QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 10680|回复: 8
打印 上一主题 下一主题

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

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

1

主题

10

听众

296

积分

升级  98%

  • TA的每日心情
    开心
    2014-11-9 17:59
  • 签到天数: 75 天

    [LV.6]常住居民II

    自我介绍

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

    群组数学建模培训课堂1

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

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

    群组物联网工程师培训

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

    0

    主题

    8

    听众

    44

    积分

    升级  41.05%

  • TA的每日心情
    开心
    2014-4-24 16:04
  • 签到天数: 12 天

    [LV.3]偶尔看看II

    自我介绍
    wahaha
    回复

    使用道具 举报

    569646632        

    0

    主题

    7

    听众

    46

    积分

    升级  43.16%

  • TA的每日心情
    开心
    2013-11-6 20:46
  • 签到天数: 9 天

    [LV.3]偶尔看看II

    自我介绍
    爱好数学
    回复

    使用道具 举报

    琳123        

    1

    主题

    10

    听众

    296

    积分

    升级  98%

  • TA的每日心情
    开心
    2014-11-9 17:59
  • 签到天数: 75 天

    [LV.6]常住居民II

    自我介绍

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

    群组数学建模培训课堂1

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

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

    群组物联网工程师培训

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

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

    + i9 g2 m# G0 q+ r  nCell[BoxData[  f3 \- x( S( E. W# w6 d
    RowBox[{"Array", "[",   x: Z' z8 J/ l; A
      RowBox[{"CM", ",",   ]# E- N9 e# j$ q8 [" c7 X' N
       RowBox[{"{", 3 u: @3 c) d4 {  M3 u1 ]
        RowBox[{"80", ",", "9"}], "}"}]}], "]"}]], "Input",
    1 K- ?+ p8 p+ d3 z% A& i, Z CellChangeTimes->{{3.577844235859375*^9, 3.577844291953125*^9}}],) g0 H/ M" G0 s' B  h

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

    % c3 @. ]1 m# Z% X7 X' fCell[BoxData[{/ `3 `: p# p' r) I% t
    RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]",
    * L, ^7 I9 l1 C; I RowBox[{"M1", "=", "1"}]}], "Input",
    4 B$ F' |: V; k0 }5 }  J% W. b8 Z; z$ X CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {
    5 x" G# K& ^7 |5 V. J   3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9, ' m1 |8 W, j9 g# f) A* y
       3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {" y8 \! H- ^! j6 f" Y
       3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9, ! i" r2 f6 N4 E* d/ k# _: R
       3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {0 y3 P+ t0 {- ~% k" P8 q  n" _, \
       3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {
    & G* v7 T& s3 w: T( p+ n   3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9,
    . e' U( `" {! U3 V2 J3 h   3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {- h. ^4 T: k3 m( f2 J% q9 G0 e4 U
       3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {3 I/ Q) U1 z2 t9 W% `
       3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9, ' c) g' [/ r1 ?. l+ w2 D
       3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],
    4 O7 k! X: q8 ]8 t5 P: `% x/ k+ N3 ~7 h. V, w# ?0 J( C
    Cell[BoxData["0.2`"], "Output",* N1 [* m! H$ U; s
    CellChangeTimes->{
    ! S& j3 a6 U3 \" _) n7 u  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
    ) @, J9 S4 t" C% q- B( v   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {$ r5 a" ]  [5 N" v/ q
       3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
    : U; n/ [( i# g9 R   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
    8 h$ }* Z/ p" }% n. Z+ T   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
    4 \" T. P3 m# J- o4 N7 ?) _) C+ Z   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {( u7 o6 `2 k0 f; G9 Q' X* a
       3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, 9 t  N6 m2 e' K- M; |
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
    ( R+ m& V( d. n9 C* N: q   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
      n7 ^8 R# p  C   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    6 I5 [8 ]& ?$ @; S6 w2 b   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, . }9 X, h. d  c' I9 _) D& I/ _
       3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, 7 V# D6 F6 R" E& m( d
       3.577960510686717*^9, 3.578012149296875*^9}],
    + g: s2 n4 _5 t8 N% E
    3 Z6 S, R7 C# BCell[BoxData["1"], "Output",
    ; n9 |7 N1 u9 [) C4 z. Q4 B4 F CellChangeTimes->{/ F. A" _# @, F  ~
      3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, ' G0 @/ [8 J% X$ P, d
       3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {* ]9 T. \* `3 ~& Z0 \9 }
       3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
    6 ?/ X6 l, @) M. a   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
    ; o4 N3 i& I4 i) w3 R1 z* S   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, 1 ?/ z$ t/ {7 D2 G/ V* @
       3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {3 o" J) o9 j0 z' O' e
       3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, / \# p" P( p* r/ I! {
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
    - y& ~+ a4 @6 O8 i   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, - I) n7 w; M) C# v6 b* z# x
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, . ~7 G. |6 }1 U" v1 F* t
       3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, 9 T# p' y$ F% W/ d1 _2 F6 `( u
       3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
    9 h3 o7 v0 E: d& x  H7 g   3.577960510686717*^9, 3.578012149296875*^9}]: d% c+ M6 ?8 z, t* v$ Y; \
    }, Open  ]],! I+ ~& Q+ O0 {- O
    2 f" m% s) L5 M7 I, T6 s
    Cell[BoxData[: X/ D. `; E( V! Q- n6 W
    RowBox[{"For", "[",
    1 |1 I2 T0 t8 W0 J" N  RowBox[{
      u  t" T7 ^* c" L   RowBox[{"k", "=", "2"}], ",",
    & |$ E. x; ]" P# B( v6 Z" Y% {. E9 g   RowBox[{"k", "\[LessEqual]", "60"}], ",", , v: M* p3 Z1 {! M" W0 ?
       RowBox[{"k", "++"}], ",", * h; }0 `1 Q$ a1 J3 k+ b
       RowBox[{"{", "\[IndentingNewLine]", , @) W4 H8 C- a' U" i
        RowBox[{( G* s. Y1 u- t3 P: k
         RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]",
    8 T6 x3 m3 d( m3 Q( C3 ?8 H. g     RowBox[{"For", "[",
    - M4 C2 A% n6 c$ J2 n* S      RowBox[{+ F) E! M/ Y! z- m0 I9 z
           RowBox[{"j", "=", "1"}], ",", 5 S" s8 n# f" u" P! z
           RowBox[{"j", "\[LessEqual]", . g) T. {, P( [# B& _+ \/ }
            RowBox[{"k", "-", "1"}]}], ",",
    ( i( m* t3 d3 U  C% I0 C0 @       RowBox[{"j", "++"}], ",",
    5 b2 e9 u0 H" V( t* J& y  V% a       RowBox[{"{", "\[IndentingNewLine]", 1 z  p7 h( r) D
            RowBox[{
    ) {. \0 E5 g3 X. x' u. \3 {" s         RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]",
    + |5 S& T! g5 Q7 a; x' L6 D+ L" Y         RowBox[{"For", "[", $ }  {5 }5 I9 g9 S: W. z) _
              RowBox[{: U! `& u! Z% }( ^. U6 d
               RowBox[{"i", "=", "1"}], ",", * u" ?( S0 q. `) X
               RowBox[{"i", "\[LessEqual]", "9"}], ",",
    $ e9 E9 i! t" N8 q% f, ?; h( H. j, d5 q; Q           RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", + ^8 ~, z; W* o7 t7 d
               RowBox[{
    * G0 n# T* H9 ?3 m" [6 ?3 U& M, K            RowBox[{"r1", "+=", : n  g: T: \/ o( d
                 RowBox[{- {) k$ O  B% ]& G4 _8 V
                  RowBox[{"(", ! v) `5 `$ f! D, v% ]# G
                   RowBox[{; ]) E0 s8 u4 k' Y! `6 T
                    RowBox[{"CM", "[",   a4 ?6 E# s: Q9 q; |/ ?' u; f( M- K
                     RowBox[{"j", ",", "i"}], "]"}], "-", / h8 u; p5 X# E  q. n  ]
                    RowBox[{"Data", "[", 1 U' c9 ?0 [5 r" d
                     RowBox[{"[",
    ) d, Q- Q, Z$ l                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
    7 w% z- M/ X) O7 q0 m6 w) q              RowBox[{"(", 5 f* b- N  }, F% M5 x; D
                   RowBox[{
    7 D( }% q! ?( `3 X: Q* p$ B6 u                RowBox[{"CM", "[", $ ^" J, o# _6 m9 e- t# s* e" G
                     RowBox[{"j", ",", "i"}], "]"}], "-", 1 o/ w' j7 C8 R
                    RowBox[{"Data", "[",
    7 Z- ~6 k" P7 P3 m$ @% N                 RowBox[{"[", , p1 L& T% v0 ~6 w; K4 j: G# O1 G
                      RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],
    , \$ W1 Y! N& f/ n           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]",
    0 ^9 q+ \4 T* n0 U5 Z& P3 |         RowBox[{"r1", "=",   T  _" F$ O+ c
              RowBox[{"Sqrt", "[",
    3 a: f  Z# H3 x% i5 y           RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]",
    / w3 P  V2 _( ?7 T9 x+ I1 z" U' I! G         RowBox[{"If", "[", " ",
    * F. l3 ~& n2 {  O' G8 c9 `) O          RowBox[{
    8 ?5 K; n3 Y/ y3 i+ W5 C* ?           RowBox[{"j", "\[Equal]", "1"}], ",", & P3 U7 d/ w) \: O& c: ^
               RowBox[{"rmin", "=", "r1"}], ",", . o$ h: \. \' {$ c" x7 }
               RowBox[{"If", "[", 9 [8 }+ e+ i4 D
                RowBox[{
    ( u! ^# s. s5 R% J, Y7 i             RowBox[{"r1", "<", "rmin"}], ",",
    ; U$ J6 Z: D/ t! {             RowBox[{"rmin", "=", "r1"}], ",",   b( e. i- I/ ~% s
                 RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}],
    6 I* c7 o  s' a. L" j        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";",   G8 q) F% l8 e9 x/ t) ~; @1 D
         "\[IndentingNewLine]",
    & t& N! N% h; p! V* O& d* R     RowBox[{"If", "[", & |/ ?* Z- l7 i3 C' N) O7 J- ]
          RowBox[{& y* ?. r1 j1 @" F+ q8 W
           RowBox[{"rmin", ">", "r0"}], ",", % B4 H/ Z, ^. J7 y. H0 N
           RowBox[{"{", "\[IndentingNewLine]",
    0 Q% w: ~. v/ I9 y0 U        RowBox[{
    0 g1 ^* X  D+ V  o4 @         RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]",
    7 j' Z& n  T+ X) L" u         RowBox[{"For", "[",
    : c  H+ s& L* b( G          RowBox[{' y3 j) l# `# ^5 a
               RowBox[{"i1", "=", "1"}], ",",
    4 w5 U3 [6 g; w/ e) x6 k8 e           RowBox[{"i1", "\[LessEqual]", "9"}], ",",
    ; ?% S8 r& L' R, d' v$ Q6 d/ n$ o           RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]",
    # G( t2 w9 m% O! J           RowBox[{) N, C+ v& V) N7 Y$ y
                RowBox[{& F( O$ z- x: E
                 RowBox[{"CM", "[", # C# D! t$ M' a" o
                  RowBox[{"M1", ",", "i1"}], "]"}], "=", " C  A& c& A: s6 P
                 RowBox[{"Data", "[",
    , T4 f" b4 u5 ]- g# ?9 K. R              RowBox[{"[", 6 z6 I( S: r& I8 s! S4 e. `5 x9 d
                   RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}], 0 y3 S+ L1 l/ ^6 L+ O
              "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",", # o4 f* P1 ?# d- G
           RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}], , Y7 w/ n- m0 S: k' J3 K/ d
        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",+ C, ?" D- s, \4 u% Y
    CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {& g$ t) _! K0 K6 L
       3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9, # f0 r6 z. y" @7 Y
       3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {9 U- L* {9 v8 |
       3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9, 9 O* y* L0 ]/ _0 f, A* a3 l+ I
       3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {% A3 ^( V1 C6 ]9 u: p4 u5 o
       3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9, " f$ t6 s9 H3 N
       3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {5 g  q8 |) G' m
       3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9,
    7 B8 w. Q' x! Y# s' ^, P   3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {
    0 m$ p0 o0 Q9 P: J   3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
      U4 O2 i6 F: _: k' V   3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {
    : X9 w: o, `+ B   3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9, ; L2 [7 `+ N6 V$ I; z1 P& s$ W- F
       3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {& V& ]/ V- g" {8 l# E* c
       3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9,
    6 @. W, x; g9 e   3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {
    5 _3 q1 J1 m- [* r3 c9 n3 W7 T   3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9, 1 n% U& j- n- g1 y, P9 Z
       3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9, # ~- b4 G8 D5 h7 T2 x
       3.577958821991373*^9}}],
    2 j* d+ t% x8 A
    ; b. A4 {  T6 A- u7 x- I: cCell[CellGroupData[{9 ]! Q6 `1 ?9 X0 W2 y, |

    % [; k3 L9 _7 r1 XCell[BoxData["M1"], "Input",
    ! I. g; t( ~. [' w3 t4 P& o5 } CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],6 m. R3 `- H0 R

    * Q! H- Z8 c- ~, f/ t1 MCell[BoxData["21"], "Output",
      x) E3 o4 T7 `: c+ V CellChangeTimes->{
    4 V! Z" l* b' u( ~  3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {5 ^: m- \3 q4 ?* A$ Q: v
       3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9, ! c9 ]+ e3 a* k: ~9 d8 }% ?; k/ T
       3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {' j. [- _& h5 {& X5 U
       3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
    ' k; s; L8 r) Y: F" u9 j# X4 _   3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
    6 O6 Y, ?( ?, q! }   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9, ; Z2 X8 J3 C" I# o5 n" _
       3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {1 n- a* ?2 K9 g7 c
       3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9,
    & N+ U* D. D' [   3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9, , ?/ O3 q' n1 N
       3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9,
    7 J; c2 r/ g, n+ }   3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9, 3 o9 A0 K; c6 Y$ p9 I2 |
       3.577960515600726*^9, 3.5780121541875*^9}]
    5 _9 y5 T/ ?4 R}, Open  ]],) u6 }& \$ u5 o( b: _) g3 n

    - c6 @1 d, X+ d/ G9 }% oCell[BoxData[6 T8 I; g# q/ ^) H2 P
    RowBox[{4 j% [+ p2 L0 i; d
      RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[",
    ( D1 }  I+ l- a# b5 y$ a   RowBox[{"1", ",", "i"}], "]"}], ; W0 K. E/ q* t
      RowBox[{"\:5230CM", "[",
    8 Y8 o) X( A( G  Q8 v   RowBox[{"21", ",", "i"}], "]"}], $ ?% |  \* w2 K9 {& t
      "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\
    5 \' i0 _! J, P\:51fd\:6570u1\:5230u21"}]], "Input",
    / j2 j$ [7 R/ U. l) S. k# w CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {+ i- h  D6 t8 m+ s2 I* d
      3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9, " T3 J! `. k7 o! J  `
      3.577960526583145*^9}}],
    . I. W* }5 i; P! ^0 F
    " d$ S/ F0 X, J# WCell[BoxData[
    ! v' z- l2 M) B' i) u5 D' }. B; R RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
    ; ~5 j* C( o; U+ K- D CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],
      L+ M1 g0 M2 R2 [3 \4 Q# ~6 I% b, Q6 e- X  s, ]
    Cell[CellGroupData[{
    - P! g( T  h3 r3 m% x4 M, W
    . `# Y" C/ \# ~Cell[BoxData[
    ! {0 J0 R5 v$ j' v5 W$ R RowBox[{"Xa", "=",
    9 D; e' A3 A: d5 C  RowBox[{"{",
    & q4 Y, X9 n+ S  w   RowBox[{$ B* O! {7 u( U  e/ |* O) Y! n
       "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7",
    + O& \6 S3 r" [. f; c. x2 |    ",", "x8", ",", "x9"}], "}"}]}]], "Input",
    7 m5 @! P- I* g7 C. ?8 G1 a1 S: o CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
    * E+ {# }: l6 W! R; S/ A& m' }) [! H4 l" `- b: q
    Cell[BoxData[. Z& I+ d! c5 z$ @: p4 n* E
    RowBox[{"{", * B/ U7 L8 w1 [  \
      RowBox[{
    " u$ d$ t! i) ^2 V# [  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
      R3 Y0 V8 J! T6 Q& {/ o& z    "x8", ",", "x9"}], "}"}]], "Output"," K& `: s, T: ]; X, g0 I% S
    CellChangeTimes->{1 ]8 c+ I  ^; J( q0 f, U
      3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9, / D9 j- J" m- J9 j7 x9 x' m
       3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
    4 }( y  N/ i0 [% q$ \6 Z   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9, % d2 z3 q8 W) L9 n8 R
       3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9, # Y7 @0 }: C6 g
       3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {- J+ V" P5 Q! J1 b- N8 X
       3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9, 6 L0 X0 U% w& ?6 Z4 [* K: W
       3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9}, % `; Q6 F7 t6 d4 c
       3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
    ) U( I, A8 W4 h   3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {
    ( D. }( j; o" u' S   3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9, : @% ~" w# U0 t! ]
       3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
    3 L& J" L/ Z5 w   3.57801215725*^9}]
    1 z: K, u' \) e- l}, Open  ]],
    & K/ {  q4 u" }  O2 ^( @+ }1 o) r" j. j
    Cell[CellGroupData[{/ x0 d5 w8 \7 z# q: m
    ; @* N+ S0 I7 v- |2 h8 S5 s8 h# f
    Cell[BoxData[8 B  o) Z. ?) B% }
    RowBox[{"Ca", "=", ) X$ D# b/ K) g" a9 g6 T
      RowBox[{"{", / v) Z9 d& o( q
       RowBox[{
    6 N7 R, s' {/ R4 `1 X   "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", $ T. l2 c- Z; C$ N
        ",", "c8", ",", "c9"}], "}"}]}]], "Input",8 z, @5 }$ w, @( A" Q0 E
    CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],
    , u/ B, ~3 t- J7 g2 b
    3 f" k1 M" [" p8 K* [( RCell[BoxData[0 v0 U% F6 X8 J! F: b9 k
    RowBox[{"{", 9 |& B. P" _( i$ I- l
      RowBox[{: C. ?  G0 i% \. j( X. }: b8 G
      "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",! S3 K" P" F3 Z
        "c8", ",", "c9"}], "}"}]], "Output",
    ! n# Z; g8 E/ I8 ]3 ]$ M) e CellChangeTimes->{8 t- o9 f; c, s
      3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9, ) {0 y, H. m: z1 r' i$ B; x* L- d
       3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
    ' u% Q& P% k1 P- c   3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9, 3 }5 c- ?; n/ H$ @+ Y5 g! u4 I
       3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {0 z8 Q3 N8 w( I# b2 f  X% A4 _
       3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9, 9 u7 j, e% a4 B* ?. {, ]
       3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9}, * o: B  y9 U5 a0 Z  y' M( U
       3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9, 7 w3 v2 l1 }  C% f
       3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9, - A! D) j  O" X- p6 ^
       3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
    ; q% r8 d% M8 Z4 `; x   3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
    + ]3 J) \" u5 k' F) |2 Z   3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
    4 H  \/ k- s+ W6 Z* |   3.577961904604212*^9}, 3.578012158671875*^9}]
    / q, ]& k1 R$ |9 Z: |# h/ p2 c}, Open  ]],
    - y! |0 w3 q" h  X& ^& {( }: a; U* v* y: \& v. A' z" M$ r, U+ q. x7 U
    Cell[BoxData[3 l2 z, c- n% j* W1 [. l0 Q, G
    RowBox[{"For", "[", * t* o' j4 \# \8 E- a. H' A9 e9 Y  }2 q
      RowBox[{" m" D$ |4 t) O& e% I1 R7 f" W0 `
       RowBox[{"i", "=", "1"}], ",",
    6 V0 i. ]) B: e" i& U9 X) l   RowBox[{"i", "\[LessEqual]", "9"}], ",",
    2 O; ?( @1 |" d   RowBox[{"i", "++"}], ",",
    9 z( q, J4 r$ i   RowBox[{1 M8 L8 b. v$ }5 L- g4 m( v9 Z1 A
        RowBox[{"Ca", "[",
    5 `. v2 o% I2 X8 T6 P; ~     RowBox[{"[", "i", "]"}], "]"}], "=", + ?7 b# {4 S! q: q: Q1 t
        RowBox[{"CM", "[", 3 J/ F3 }9 q2 Z
         RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input"," Q; W! @: F7 N& e" k2 ]7 B% m
    CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
    3 P" q0 U: W" p6 Y& G, s; |   3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9, 9 E2 b: _: W* g. S
       3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9,
    ( V: x4 ]3 O2 u8 j/ L   3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9,
    4 s; x& A9 J3 {" u3 r: y   3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9, - d& p& Z7 O( \0 o% A- Y
       3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9,
    , q, t* m" [9 r# A8 l9 B8 |   3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9, 8 N8 }% ?) b! w6 [. O0 M8 b3 D
       3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
    + _8 \% B, P9 n( D* G0 U   3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
    8 q# G7 j% Q4 A" z" W' C: r  `   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9}, # n( }# Y3 O5 N* B2 r  R, B, z, B
       3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
    / p- r3 n! S: S6 C   3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9,
    6 V; R/ o+ c+ ^) ?1 b   3.577961906897415*^9}, 3.578012176296875*^9}],( ~4 B' J* b/ ^1 w

    6 t# ^0 B% @* h4 w* eCell[CellGroupData[{: u: c. z3 B+ R3 C! y+ A! N
    / x+ g6 g. J8 T$ O0 c. f
    Cell[BoxData[
    ( ^* a$ ?4 l3 B# ~, Y RowBox[{
    . ]; c( H5 P% E; m9 x# H4 v  RowBox[{"(", - ^8 w$ b! t$ K
       RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    3 c! `) d5 ~7 n* B7 L  RowBox[{"(", 5 [. X0 |" f! q' e( u3 G( D3 X& \
       RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],
    4 t, C; d( h7 |% ?- N& Z$ {) U# m: l0 `$ H/ f( ~# n% B
    Cell[BoxData[
    & R7 S, R5 Q+ q" i RowBox[{3 x& D  c/ `: K& [
      SuperscriptBox[
      E2 J) S# }6 P, p" ?. k* {  `   RowBox[{"(",
    0 ^) V! `2 v- M, z    RowBox[{
    1 m" [3 S  _$ i$ {; d# U8 V7 r     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+",
    # d/ n# o! {% X  t7 S  SuperscriptBox[
    / u; z. j- g( u2 p8 b; G   RowBox[{"(", 5 V) S9 p8 {0 F
        RowBox[{
    * T1 L: D# o) q$ H     RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+", $ D8 n) n) [( G6 Q6 D' E9 ^0 H% w
      SuperscriptBox[* R" {) V9 ?$ a/ c# D. v4 E( ~9 w; b
       RowBox[{"(",
    7 o) a/ Z* {/ A5 ~2 S$ P    RowBox[{
    1 ~0 f& E" T3 [     RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+", . l# T6 [8 Y9 P3 V0 J9 G
      SuperscriptBox[
    4 Q  I8 B0 y0 g/ t- b; Z   RowBox[{"(",
    ' K1 D% C, O2 l    RowBox[{
    , V0 a0 _" K0 R- X2 k     RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+", ) Q8 J8 C7 R/ C& V2 c- K! W+ |2 ^, s
      SuperscriptBox[
    # K% ]7 B0 e) ^% q   RowBox[{"(",
    " |) u) k. k( Q1 E* t! b  T: Y: x    RowBox[{
      p* o1 V* }$ m( M) y/ n     RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+",
    7 x1 |! {, [. B: R: v  SuperscriptBox[
    5 n8 r4 v* q, }5 Q, o   RowBox[{"(",
    5 c# K% B! @$ K. z$ j7 B    RowBox[{% A7 {6 E1 R. W! Y
         RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
    4 Z* x! |) O; N  g& \% v& d; N2 }  SuperscriptBox[0 ^! ^7 W; Z/ b* a) }9 ]
       RowBox[{"(",
    % Y* O1 ?$ \) T+ P' Y$ t3 H6 S8 s    RowBox[{( ]8 d9 @" K( n5 }; S# F
         RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+", 2 ^+ y+ a) a1 ]  |8 T2 \, V
      SuperscriptBox[5 o8 K( V, |" @. f8 F3 W/ T1 W
       RowBox[{"(",
      B0 w  B; E" [- p9 {# q( O    RowBox[{2 g: r; t1 _4 I* [1 g' w
         RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+", / l2 y" B* W/ C! M
      SuperscriptBox[8 Z& G. i9 R3 C, G
       RowBox[{"(",
    5 E3 m. {1 k1 a. y6 L    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",
    , R) }5 O& X8 Q, }& `6 I7 T: T CellChangeTimes->{
    3 f: v8 p# T' n0 t* [  3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, # }( i5 \. s% e" x6 v
       3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9,
    0 a7 G, x$ O$ o( C' u0 J" p   3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9, 9 |) j! V" `6 K1 V4 a' V4 C( ?
       3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9, $ F7 k$ f& @7 s- n
       3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9}, - i, R  K% I* }6 x6 ^( @2 F* Q+ a
       3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,
    + u2 l8 @. E* G; v   3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
    ) O7 a* k2 C. ]8 u   3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
    2 n+ \- i; j: Y3 o  I# u; ]   3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {6 {3 z! s% B9 z* }
       3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {
    7 W# W7 e7 i7 r7 Y0 M  O   3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9, 0 A# D9 J; h3 p
       3.5779618537169228`*^9}, {3.5779618846049767`*^9,
    3 Z' ~3 ^- U1 O8 w* C' v# I- Y   3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]# ], V* p& L0 I7 f
    }, Open  ]],
    9 D; Y3 c1 l: S% A: m& i. v5 J% P( L3 f4 K$ Y# @
    Cell[CellGroupData[{
    0 B4 E6 C  ^* s2 U" ?
    ; @, o. c! S5 y+ {5 HCell[BoxData[
    7 V6 V5 E6 n- S  r* @( k RowBox[{  T$ E, S/ p* [' N+ D/ N; [- Y+ _
      RowBox[{"Ca", "[",
    2 b) \' C- J) E   RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",$ ]- Z" @( i, z( I1 x$ d
    CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9, 0 u% c! y0 g2 [, ]4 k
      3.5779616465173616`*^9}],6 i' C% G5 O0 G5 Y

    3 A5 u9 I& `  t3 k6 q2 C  |# U% `Cell[BoxData["0"], "Output",
    . c; }1 P6 K% ~$ y( ^ CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
    + Z0 A$ c2 g! S  3.5779616484049644`*^9}]+ [6 `. J+ F& |$ B
    }, Open  ]],
    9 r% W) u- p% y/ ~: O% _3 F9 ~9 X# W0 n( Q& q1 v6 k
    Cell[CellGroupData[{
    ; \, G& v( Y8 R& L0 I7 _  \" B6 ^! C& F
    Cell[BoxData[' \: Q$ O$ ^4 S4 `
    RowBox[{
    , d$ ?7 [2 @$ j4 n- e4 \  RowBox[{"Ca", "[", 6 ~$ B' ?1 |9 W$ L4 P+ Q
       RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",
    ; V% [7 L$ O  w" T  }7 r CellChangeTimes->{3.577957376235614*^9}],
    ' Z4 ~! f4 U6 d$ c
    - f* v6 K0 A) X5 U/ cCell[BoxData["0"], "Output",4 }5 r1 D: [' v: F( ^
    CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]" d% ^6 S" L8 Y! _/ T: M
    }, Open  ]],
    7 H* q9 E6 Y8 n0 A3 S9 G( m( W' h, [: x: \2 ^& V
    Cell[CellGroupData[{# u! a7 D4 L4 i
    / ^( ^. d% d; H
    Cell[BoxData[: r' o# o+ u8 l& D: z
    RowBox[{( _9 G) I) s+ c* y/ l) N
      RowBox[{"Ca", "[", . G( C! j$ N2 r  P) f1 s
       RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",% S4 F4 K# T& L7 P/ Q! J. j
    CellChangeTimes->{3.5779573112927003`*^9}],- J# C. M5 h& p% X
    1 r! U( V/ G8 j5 R1 e
    Cell[BoxData["0"], "Output",& Z, Y) X4 u$ {; Z. v
    CellChangeTimes->{
    , b7 k5 a" g- T, s% N2 ^  3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9, $ l6 ?" y/ @$ z  @! S, [1 C
       3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9, # U3 Z- A" T5 m9 ]- O/ |1 v3 j' e
       3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9}, ' b3 j1 I7 r* {$ B6 H. u, t
       3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,
    - }6 b5 r5 B3 a: e- h" D   3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9},
    ; X) Z7 g7 c; m  c   3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
    ) w% a1 G! k; a/ j1 b9 g}, Open  ]],6 \: f& D% O7 A6 K
    " L: _3 {( U2 E* P, P/ p$ _
    Cell[CellGroupData[{: S$ i) Z% M/ x3 ^* z5 z) Z) l& I$ V
    ( x% Q( T5 g3 |/ o# Y+ l
    Cell[BoxData[
    ( T) c& o9 u: i6 F% x1 F: W RowBox[{' X: z# a0 m' B* l
      RowBox[{"Ca", "[",
    . I6 ~$ F3 o: P7 H   RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
    / E1 e. H( p" I8 Q0 h. W9 k CellChangeTimes->{3.577921461734375*^9}],9 }+ X: a3 ]5 W- z# J# s1 d3 o
    ' i0 D# ]  f5 [1 O, F$ L
    Cell[BoxData["0"], "Output",
    " h9 s/ \" ~) o9 [; B CellChangeTimes->{
    ! P3 f2 ?, X& h: Y+ V  3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9, 6 g; S2 L4 J/ }1 ?9 G
       3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9}, & m; K: D# o8 Y' k* _2 }
       3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
    8 W8 s% {; L2 D   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9, 8 H8 x5 Q+ U! S/ A5 A0 g
       3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]
    , h7 \) C9 L$ `! {}, Open  ]],: m+ L1 i  T4 x6 m  v' Y' B* V2 H
    5 B: T) A+ b) _
    Cell[CellGroupData[{. v1 a5 Y3 h6 d% J+ J. `) Z8 o& w
    4 p5 ?& w$ V4 y% W
    Cell[BoxData[8 V9 w6 ?) ?; E1 S
    RowBox[{4 \8 Y4 [( Z6 U( a6 g( f
      RowBox[{"Ca", "[", & {% |: ^1 n# t7 J! O; R! W
       RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
    * x' _2 C' Y: H! A, f, s CellChangeTimes->{3.577957303118286*^9}],6 w# D$ l! b4 N
    4 g8 r% ?6 Y/ `
    Cell[BoxData["0"], "Output",
    1 Z; H" Y  j. q1 N5 L7 y: K CellChangeTimes->{
    4 v6 a5 L( k# a9 A  3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {
    ! H8 G7 [9 I+ |1 p8 [   3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
    $ \" B/ ~+ t7 g) J8 u( F! @: {0 z  h% i   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9, 9 d7 o2 X2 y5 w, b8 f8 V
       3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,
    % A, k* s5 I- y7 u   3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
    ) ^, e$ T8 K, t5 g: v7 c! v   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
    7 F$ D6 F! c/ h: ?- b   3.577961889378585*^9, 3.577961912965826*^9}}]3 N. @! d( z0 k" }" f- h& D1 \' }1 N
    }, Open  ]],
    6 Z" E! x/ Q4 I. a+ p$ m/ y# p2 D; k
    Cell[CellGroupData[{
    ) \, a. E6 k" Q7 [! n9 P6 @6 v# C7 Q% z) K) c1 a
    Cell[BoxData[3 t5 k& Y3 |/ X8 O9 O
    RowBox[{
    ; S# ?6 c( g0 V8 W6 u  e" j4 y  RowBox[{"Ca", "[", 7 g0 l0 E: y( ?$ ]% o" p- {
       RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",
    ) H1 c6 i2 Z  w8 x  M CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {  B' Q, v" l% l7 j- Y3 e8 ?- n1 P
      3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
    - D. B9 u9 ~8 K6 K+ g  3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {
    5 K6 c2 s, {, z) m  3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
    ' n! H$ @/ w8 Y  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {
    . ^$ U' q7 g5 N+ j9 W* Q  3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
    0 _( R  W  A) S" D  3.577921435703125*^9}}],1 H) e& K+ g- |" G) I
    + H* f& m+ [; a/ r
    Cell[BoxData["0"], "Output",. n' F) Q+ G1 c1 C
    CellChangeTimes->{( [, W1 ^* \% i1 N
      3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {
    ( j$ J8 q# S& p2 a0 B. r8 H   3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9, $ G$ Q* ?- d* p5 w( r) q8 x
       3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {# S" P. p' B; P2 Q% y  `# s
       3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9, 7 y( i- }9 D+ t6 Q. T3 S
       3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {
    ! y  Y# V" R* O" q# B* X7 i5 _* r   3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9, 1 Y3 s9 u3 E6 D/ J. Q
       3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
    & l9 ^6 X3 Z' [* m' q1 J9 R! g   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9, 8 {/ E% ?1 T+ j3 M0 G4 W6 n+ _
       3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
    # q& j7 a' m; o2 |) Y: y8 @8 i( r   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
    , g' h; h7 m& V0 L7 F7 `   3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {# a* v7 N  c# d; D; }
       3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9, 4 E/ @4 N$ U- Q! n. M2 C; V
       3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
    ; E) d* F3 D$ U8 G% b+ W! p) @}, Open  ]],
    0 k- Q6 U) m' o$ ?2 n) n' S, c7 y5 U- ~# u/ C! G
    Cell[CellGroupData[{& [  @; P# [' w2 f. S) R
    1 Z  [, u# h* S4 o2 N- n
    Cell[BoxData[
    0 _4 z, X  ^* z# q! N RowBox[{"Delta1", "=", 7 y; N6 Q/ {8 d6 A  u. K, I  b
      RowBox[{
    9 Y" z0 f8 @2 W4 p8 o% @) N7 U   SubsuperscriptBox["\[Integral]", 1 u# j9 j" d+ h6 i0 e
        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], * k. h/ Q$ ]# j4 \
       RowBox[{5 _. P* J7 e/ d7 J1 s2 p
        SubsuperscriptBox["\[Integral]", ! ^+ N( O3 z5 Q0 m" W5 b  j2 F' \1 H
         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    ) W# g6 C9 |5 j' n; {/ ^" L: S    RowBox[{/ c" X' p6 _1 `% J
         SubsuperscriptBox["\[Integral]",
    , q+ @+ F4 `+ H- C      RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    7 G) Y& }0 C0 E5 p+ o     RowBox[{& `/ u# h1 r7 ]1 L& @% O" a
          SubsuperscriptBox["\[Integral]",
    9 v; j; f  }" y4 G. v* J       RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    5 H: b% v- x$ P+ o% g9 m. P* ^# D      RowBox[{# x8 e1 D( v, o, S6 I9 E. d3 Q4 Y: x7 ]
           SubsuperscriptBox["\[Integral]",
    / S. V* A* ]' z        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    5 O/ r* @1 T( @! R8 \9 _/ v! L( k3 H       RowBox[{
    5 X! J3 L1 x2 u1 ?* |  {9 |# c, M# U- D        SubsuperscriptBox["\[Integral]", 1 [3 l0 P9 g5 o6 E3 \  t* D
             RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    5 _# Z" J# c: e, c# a; \1 A        RowBox[{
    : `; U7 p9 I$ b$ k7 l         SubsuperscriptBox["\[Integral]",
    . C! \( t" r- b8 |. ^          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], # t7 j7 z( g8 b  W
             RowBox[{
    7 V7 w2 Z& n8 f, g2 }8 R" q7 u          SubsuperscriptBox["\[Integral]", . V6 n) d8 b' f, m' q
               RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    2 A& r! F7 _# b9 O( m7 U          RowBox[{
    / g' I8 r6 d# `" Q3 E* X           SubsuperscriptBox["\[Integral]", % L" k+ z' t  r1 W% t8 I
                RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], " X6 R1 R2 n7 U# l* P
               RowBox[{
    7 }" f$ R2 ]3 a& f  G  T. N            RowBox[{"Exp", "[",
    * n9 a+ W5 g. E( t8 ^+ V             RowBox[{
    3 [) H8 K) P/ h- C; o              RowBox[{: ?" c" K! j/ R6 J+ F
                   RowBox[{"-",
      h  }; h* N, U, l1 N9 n                RowBox[{  b* V3 t+ Q& }+ f( z  f( _
                     RowBox[{"(", ! L) ?4 {  m6 l, A) F
                      RowBox[{"Xa", "-", "Ca"}], ")"}], ".", % Z. }) _1 |7 b$ J- ]  M
                     RowBox[{"(",
    - @, K3 ]- C% M                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", 7 `0 d; E8 {! ?
                  "Delta"}], "]"}], : ?: r& N) s& \" E) p. k  Q
                RowBox[{"\[DifferentialD]", "x1"}],
    2 w" w3 ?( ^/ [* A6 w! m            RowBox[{"\[DifferentialD]", "x2"}], & @! L: ~8 P: c
                RowBox[{"\[DifferentialD]", "x3"}], . M" B- k2 ^4 g/ n3 u( O( V
                RowBox[{"\[DifferentialD]", "x4"}],
    , ?# P7 f9 l$ O3 ^0 d            RowBox[{"\[DifferentialD]", "x5"}],
    1 `" ^- a/ O9 \" x* m, t" f2 p            RowBox[{"\[DifferentialD]", "x6"}], 8 {9 k+ c& l" z* S! f
                RowBox[{"\[DifferentialD]", "x7"}],
    ; c5 |3 Y4 s. h* I            RowBox[{"\[DifferentialD]", "x8"}], 0 R: U! G7 h9 x* i6 O9 Y' D; M
                RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
    5 a- W( u2 C8 b: X CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {# a% T- ^, m6 L& \9 J
       3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9,
    ! P2 `" |5 I2 H- }" z4 z   3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {
    . h0 h5 B: `1 V; z. j   3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9, 3 s& {) f  [' S6 P
       3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {
    $ v9 ]  d5 D" O   3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9,
    ( Y  |* T4 c  J( V   3.577918964453125*^9}}],0 c; }- s8 s- X3 y0 A/ `
    - Z9 w: o! V% k$ E. T
    Cell[BoxData[
    % T+ Z& `3 C: i" Y. p RowBox[{"97.40909103400237`", " ",
      D5 H9 w* ~/ j% l4 j" N' e/ i* x  SuperscriptBox["Delta", "8"], " ", 5 m* p( H6 u( _( J
      RowBox[{"If", "[", ) B: N; e* p% Q1 ^4 V. i- _
       RowBox[{8 `8 P3 R" t" d; e% P5 Q& W
        RowBox[{
    * u3 L3 O" ]1 f8 Y  M+ i3 B$ j     RowBox[{"Re", "[",
    1 E0 w9 i6 L7 j- Q      SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
    2 H4 j) g  l& L    FractionBox[1 Z" M* k) W; G: V) h
         RowBox[{"1.7724538509055159`", " ",
      H' V' J+ l( Z6 }9 I      SuperscriptBox["\[ExponentialE]", " r$ M' J3 ~! Y; X# {& {
           FractionBox["1.1102230246251565`*^-16",
    . r/ z9 S2 u6 A2 t        SuperscriptBox["Delta", "2"]]]}],
    % I* B" e1 L# R5 H     SqrtBox[
    + K' s+ N6 m8 o* h9 g; R( N      FractionBox["1", ) o- n5 s/ S" y; s# E
           SuperscriptBox["Delta", "2"]]]], ",",
    8 i% f! u; T5 k0 g* G    RowBox[{"Integrate", "[",
    / ~. m2 [  T5 q$ H2 m% K     RowBox[{! H4 ~/ V+ y4 M0 a4 _
          SuperscriptBox["\[ExponentialE]",
    , F% F4 i3 _7 K8 T( n       FractionBox[
    " D* n2 Z5 e' f        RowBox[{"1.1102230246251565`*^-16", "-", 3 Z. r5 H8 b$ f! ?& p
             RowBox[{"1.`", " ", . [5 P& a' X& \1 A$ f6 g- u5 l/ u
              SuperscriptBox["x9", "2"]}]}],
    7 `. ?( ~4 `2 F& b+ T6 `        SuperscriptBox["Delta", "2"]]], ",",
    % ^/ }" M4 ?, z6 }" w6 d! x& x      RowBox[{"{", * a7 ~1 {+ O7 h. R% Z* \
           RowBox[{"x9", ",",
    3 Y7 k5 c4 b) ~& t  X        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
    $ O) p( `1 K. q2 K2 R( k# i, v' U3 f      RowBox[{"Assumptions", "\[Rule]", 4 p% z) N5 Z* M6 R- x8 o
           RowBox[{7 [; }9 z) l' t
            RowBox[{"Re", "[", 1 J% }1 S* r# u. k5 Z  y
             SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
      r; s' r4 j+ y2 U/ v     "]"}]}], "]"}]}]], "Output",' g  G' G1 f, [. f
    CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9, ! r) J' t" v" S7 G, ?2 M/ _( B
      3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
    - y/ c0 A- P4 g( b8 M  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9, ' I* w* D" _6 J& h. W1 O' Q
      3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9, ) Y. X+ c& T# o
      3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
    . y+ x# N6 t0 h+ i$ l  3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
    % v  B" ?  f% o' w* c  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]& z9 M- r/ A" ^
    }, Open  ]],/ I/ l+ O( l& m; H  P

    $ F- l- F1 Q( b  ?6 VCell[CellGroupData[{
    ; s7 y. L; |" c6 r; @0 I# w. t+ y" L6 n; Y
    Cell[BoxData[( R- z7 u6 l+ X: W7 ?- ~
    RowBox[{"Delta1", "=",
    ( l* ?" W$ n! u5 i+ ]* t# T  StyleBox[
    5 W  {& I, K1 \, ]$ d! J& I( q0 y, A   RowBox[{"97.40909103400237`", " ", - L1 Q4 i* f- U; E( y) g
        SuperscriptBox["Delta", "8"], "  ", ( f, o" B6 e: L5 G/ e9 o& T# q
        FractionBox[
    , O& f/ Z0 F5 N, \8 w4 p     RowBox[{"1.7724538509055159`", " ",   `" D$ v7 Z- D- Q# P1 G
          SuperscriptBox["\[ExponentialE]", # [1 x; |* ~, S- s% Q8 E
           FractionBox["1.1102230246251565`*^-16", * q3 m+ C' ^% ]$ X3 K2 I
            SuperscriptBox["Delta", "2"]]]}],
    0 E9 h8 x' r) L) w  M7 v" n     SqrtBox[& e; O3 o* H& k0 E( O
          FractionBox["1",
    5 W; B) D) F# D0 W) V) v3 ~       SuperscriptBox["Delta", "2"]]]]}],6 @  k- G' q3 M0 T
       FontWeight->"Plain"]}]], "Input",( {. r8 c! s& L( F( V( T
    CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {* a. ^- A+ ~" w  F* b" n
       3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9, 2 ^8 N' G5 m- T5 n: h' \( V$ ]
       3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
    ! e8 [0 X8 f* v$ C' ]   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
    & }( ?9 j  m7 W, L* b   3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},
    6 ^1 B  r8 L* T4 z  ^, C   3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],$ M8 a# P, [9 |& o; |

    . r; L  V- V$ N0 gCell[BoxData[
    0 S; e6 R" h+ R+ C6 f FractionBox[& M/ w  a) u0 v; g4 U# p/ ^( Y
      RowBox[{"172.65311851642346`", " ", " p* g7 y- v: [- K" T
       SuperscriptBox["Delta", "8"], " ",
    8 L3 G% Q1 c4 A7 O  c: Z) X   SuperscriptBox["\[ExponentialE]", ; W& m* B4 F$ R
        FractionBox["1.1102230246251565`*^-16",
    8 ?1 {7 \$ m0 X* l5 o9 p4 b     SuperscriptBox["Delta", "2"]]]}],
    4 A  e! F- p" a$ i6 B8 g  SqrtBox[
    & r% |- t8 W: l; B# V   FractionBox["1", * o- i; V" u* T9 ^( E! M
        SuperscriptBox["Delta", "2"]]]]], "Output",1 |# h# y# ?: |9 J) B0 ?
    CellChangeTimes->{! s  K/ ]9 P9 B% a/ A# M* h; }  J
      3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9, 3 n; S0 D. J% q3 d6 |: h
       3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9, / O/ ~  o( X6 q1 E3 S' |
       3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
    1 H2 W7 @8 n/ i7 `+ W3 W+ c. N   3.578012166234375*^9}]! q& B: C9 r* M" J
    }, Open  ]],. h$ Z& {' V; ^* T: J) L
    4 T! q/ ?" T' f" w) W$ ~
    Cell[CellGroupData[{# H3 @' S: u( i( V

    8 d+ c# ?" W& }! J* y3 ]/ KCell[BoxData[
    ) d8 T; b3 ]! F, o) E9 A RowBox[{"DeltaX", "=", # D. Q7 b& l6 d$ ~  {
      RowBox[{"FindRoot", "[", ( T: |' j0 I5 `
       RowBox[{" N2 w5 |' N/ z7 A2 Y1 l. }
        RowBox[{"Delta1", "\[Equal]", "1"}], ",", 0 z/ K' ]1 s' \9 l* M+ @; x
        RowBox[{"{", 8 s  ]/ P+ x  s# t
         RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",
    " a- _1 W+ C+ X  _! N4 x; L CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {
    % K9 j- d, v$ y& J3 Q& N   3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9,
    5 T% e1 B# f2 K+ {" l3 Q: J2 r4 ^# ~" Z   3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9,
    - B  p3 P3 \, @9 h   3.57791921584375*^9}}],$ B7 f8 B3 h' _
    . k8 w: z- z% Y, A! H; _
    Cell[BoxData[% X/ H5 T2 ]0 a/ O4 O, C2 b
    RowBox[{"{", & u8 S+ a" u/ P  S
      RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",* g: B: P7 R/ Y2 v
    CellChangeTimes->{
    1 s6 r  X$ H9 R9 P0 {& E  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
    : i, X4 \  m7 v# D   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9, * z; B9 ~; E/ [; w- S- Y' w1 {3 p+ q2 k
       3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
    ) ]& k9 u$ z9 ^$ ?% K   3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9, 9 W, |  c2 e7 o
       3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {$ @: m7 F* M$ G/ _1 ?
       3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9,
    9 G) Y. B2 t  M6 @4 }' u; d3 w   3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9, 4 |9 _$ ~3 S9 Q; X: M6 m6 g
       3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9, . K5 n: T" w8 ]! {
       3.57796070150625*^9, 3.578012167703125*^9}]' U' N" _0 K8 _3 X3 e
    }, Open  ]],
    9 L8 x4 j7 k& _/ Y6 q) u) u. s3 W4 y* H" Y* w  L! k
    Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\* }* e$ i% A; C* G" w
    \:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
    ) f8 q$ @) }8 C8 w2 X0 U* r2 x CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
    + \! N& A* ]0 Y. t) x8 L8 D  3.577960705312657*^9, 3.577960707621461*^9}}],
    ; x4 Z% l$ V1 _5 b( K2 e) J( y+ K! w/ q3 r2 z4 m9 r7 P2 j
    Cell[CellGroupData[{$ m4 V$ D0 s6 z8 i
    : K3 |4 B$ N! r: ~  W3 }- P
    Cell[BoxData[8 ?* R3 t) t5 O6 p
    RowBox[{"C1", "=", "Ca"}]], "Input",* E) P! W8 o# R9 j
    CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],
    $ y- i$ }& y8 P6 @: |7 w! @% W" t0 p
    Cell[BoxData[
    9 |; G$ r7 L$ j RowBox[{"{",
    6 W0 f! a1 h" R% o  RowBox[{) ?& h+ Q- l7 L. I# ^/ M* l
      "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", % P! C$ {# i6 A
       "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",", 8 l3 z( \: x9 \6 `3 h
       "0.`"}], "}"}]], "Output",1 T" J* u8 p1 W$ f3 x# T, M; Y5 A2 k
    CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9, 6 Q* X/ ?0 X: U" M1 ?- c  _! ~
      3.577960710273465*^9, 3.5780121855*^9}]% l5 z& q: d$ g. K5 A. F
    }, Open  ]],5 o2 s, j" U( F  [. c

    ' N6 v! i8 v+ Q& I0 bCell[CellGroupData[{9 h, b) X" X0 N  z# F3 x6 x2 r

    ) T/ F2 v2 H- g2 Q; L6 yCell[BoxData[
    * o4 L. B$ A2 Q5 U' D RowBox[{"u1", "=", - q2 S  t5 w' c$ |, E
      RowBox[{
    ; I) \, e8 @5 q( e, f( t   RowBox[{"Exp", "[",
    0 G5 W: \5 E9 F) E- Z9 i- p    RowBox[{4 y( W4 M6 r# {3 D
         RowBox[{
    $ ?5 B7 o2 A& `6 C7 t! l' T      RowBox[{"-", - D$ L. I) ?4 y; i; P
           RowBox[{
    7 j6 G& V. X# U/ X  W+ D2 ?- F' C$ L        RowBox[{"(", # u7 u( @0 w6 Q* Y+ ?
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 7 _6 s7 d3 X1 n8 G. }, n
            RowBox[{"(",
    0 Z; L( Z% ?; e' T9 I         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],0 n6 S; n! z" I
         "]"}], "/.", "DeltaX"}]}]], "Input",
    * ?2 F, R5 C( }, q; o$ J$ e CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {
    - s0 X; M5 k0 O3 h6 ]4 Q   3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {4 ~; r9 w" P# I& D' S$ q- H8 M( f
       3.577919193484375*^9, 3.5779192326875*^9}}],
    7 W0 p4 t8 B- s6 p
    3 ]7 v4 }% Z) H9 ^Cell[BoxData[
      U$ y6 Z6 P$ x: t SuperscriptBox["\[ExponentialE]",
    ! W! ^$ a; q* |  [% D  RowBox[{"3.141592653589793`", " ", 7 ^/ I* a  v) v% H' b; h4 _
       RowBox[{"(",
    " f; W! ?; q2 ~$ K/ b    RowBox[{
    6 y6 y0 j# H# c* _" L     RowBox[{"-",
    + u$ l/ U/ B; Y  e, o2 t( t/ u      SuperscriptBox[8 h- `5 M- Q+ W8 C; o9 ?  B
           RowBox[{"(", 2 y0 z" L; }6 E2 d, L/ [) O6 [( f3 l( y
            RowBox[{
    ( J; H! d; C) x: @         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", 3 @5 h+ o! Y2 v4 D0 r% ]+ R* Y, l5 o
         SuperscriptBox[  j' z/ V. }0 r
          RowBox[{"(", - R6 W4 O" r1 H( U
           RowBox[{
    # W, ~  L; h) \% ]* T1 a- O) y5 z        RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", 8 w3 q: O2 U' j( o: b- Q
         SuperscriptBox[
    $ P3 D& z- {: j1 g5 s      RowBox[{"(", 1 ]; R' X/ j' v* J
           RowBox[{! I9 O& U8 Z! C+ y/ }
            RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", - X; V' |! ^; p) P- m6 p
         SuperscriptBox[" y5 k/ q: H+ M! ~
          RowBox[{"(",
    + N; O) N0 K7 X' |+ K       RowBox[{2 ]6 c$ h, G( |8 F
            RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
    2 h) p9 t. M  Z; J* `" X2 o4 f     SuperscriptBox[' B8 z5 d( [; z/ O, F) J! Q) a
          RowBox[{"(", 7 S3 k* j* }, f
           RowBox[{
    ) D+ s  W! {0 c        RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-", . ~; C3 G0 x' ^6 X5 g
         SuperscriptBox[: y, u* M, A6 Y/ ?' m
          RowBox[{"(",
    ) {$ Z' _5 D+ [) V       RowBox[{4 S4 h8 e: q& i# B
            RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
    % G9 b5 J% x/ K- T$ n: T3 A     SuperscriptBox[6 {: `6 B+ o5 V( I1 X( L1 z! d
          RowBox[{"(",
    9 |: v/ `2 ~1 P/ `" |2 f) m5 C9 V       RowBox[{9 Z# C! |, }! B
            RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
    ( }# I' c; M! j$ B     SuperscriptBox[2 u! V$ T8 K6 W* i: F0 b: K1 I5 [
          RowBox[{"(", : g( D# v) H* `) v/ k
           RowBox[{( c* j! T. k1 H6 X3 L/ U! M! P! X
            RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", 4 p* c% \$ c, k$ n
         SuperscriptBox[
    ' O& `$ j; W1 B$ H      RowBox[{"(",
    $ O; ?- y8 @: D2 s$ c/ N1 V       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], $ k, n9 m  |. {" R
        ")"}]}]]], "Output",5 j* ~' d3 x: n4 a( U
    CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
    $ a. e5 Y4 L2 K2 c3 t, v  3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9, 3 \+ `( K# k- K+ H( g1 Q6 ?- v
      3.578012187078125*^9}]
    4 I; ?+ `6 P2 B$ I5 D# ?}, Open  ]],
    * Z4 e1 {# w! s
    ' g9 E5 x2 A0 v5 |Cell[CellGroupData[{
    # y: t) C  r% t1 `
    : B2 G4 B+ K3 {+ `Cell[BoxData[
    - H% |5 P, t* v- U9 M7 d RowBox[{"C2", "=", "Ca"}]], "Input",6 {9 M5 u) |6 I/ F) d& K2 e
    CellChangeTimes->{3.57792047321875*^9}],; B8 r& P9 m# G) ~. R! O: T

    1 l: ]. p# h9 s$ W. a7 gCell[BoxData[( G# W+ q+ G3 |
    RowBox[{"{",
    3 Q8 w1 n( [# o5 Z- H  RowBox[{! [3 W' n3 a1 q, C/ J- ?) S+ }
      "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",", 7 Q, c5 `, m6 ~! H1 \% ]
       "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}], 5 z4 p/ @$ Z# r3 P6 }
      "}"}]], "Output",
    - ~+ D- F  Z" O* Q" a: x( E- p CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
    2 i& ]+ `' D" l; q; \  3.5779607401163173`*^9, 3.578012204671875*^9}]1 `2 C# ~) B. \9 ^! x! \
    }, Open  ]],* f5 ~. f: G7 y4 J  p8 O4 k
    ; {) W/ L% ~3 ~% c0 q, G
    Cell[CellGroupData[{% N4 I5 ^+ R% u. e9 {

    % A( F8 H" T. HCell[BoxData[" Q+ C1 w. `. y1 o; C2 A9 |; F
    RowBox[{"u2", "=",
    : }2 _, ~/ l; q8 A) b; o$ Y  RowBox[{; U' Z) E. }9 Q5 Y3 e
       RowBox[{"Exp", "[",
    % V. e! F0 o: A    RowBox[{
    - E/ Y9 {+ r1 ^  G0 \     RowBox[{/ X2 T* ]1 P6 \, W& j% d
          RowBox[{"-", 7 v3 d( L( d) j
           RowBox[{" E0 |! [: {* B
            RowBox[{"(",
    4 O/ [" U% {/ v         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    3 Z/ v* m8 ^8 A' \7 e& B        RowBox[{"(", , q. t' U: S! B. D3 R" G
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}]," W. x- Y/ v5 d6 L! o0 S" L; ]
         "]"}], "/.", "DeltaX"}]}]], "Input",
    # i* y' M3 f5 K/ r0 R/ S CellChangeTimes->{3.577920484109375*^9}],
      o6 `) S! |- o% t7 v" ?6 ^  i/ I* @* X
    Cell[BoxData[
    . B3 Z5 L" ?3 r# F" `( ? SuperscriptBox["\[ExponentialE]",
    " M, @$ I6 m/ h# I! F- R8 {4 x, ?  RowBox[{"3.141592653589793`", " ",
    5 o, k2 ^2 w5 O- g/ |; d0 P* ]   RowBox[{"(", # c: v& g8 v+ c' E) w
        RowBox[{
    ) X' z" g5 G( b, P     RowBox[{"-", 1 F7 K. J( Z/ _. h- g
          SuperscriptBox[/ ?7 K  N. m2 N) H# u' `
           RowBox[{"(",
    & C5 n! @2 M1 ?5 Q) a% q+ }        RowBox[{2 W: k+ d# x1 Y- f  T2 ^
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", # b) m$ K; W$ t& M
         SuperscriptBox[7 p; U6 h9 m3 N3 [: k
          RowBox[{"(", ; D2 F9 V9 a/ x& B% t: X
           RowBox[{% X. E* I. i' r( h  p# m
            RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
      a6 @2 m$ w* m/ a5 O& l     SuperscriptBox[
      O7 S' S4 X7 x6 B) E      RowBox[{"(", ' u* @1 Y( {  s* g3 L  Y
           RowBox[{
    4 G5 L3 c# ~6 @+ a        RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", 2 \# k6 I# r0 W
         SuperscriptBox[
    0 _( B: q: B" c# w" Q, X0 c      RowBox[{"(", ' M( @* {9 l! R9 x* ~# y0 S
           RowBox[{9 ]% }1 q: O+ J! d, e3 |
            RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
    3 X3 |8 B. l% u' [9 M2 O     SuperscriptBox[& w9 V' L9 Y% C- [. c4 y* Y' M
          RowBox[{"(", " v( C9 v  M$ {! [$ Q
           RowBox[{
    % \( m4 s! M& u* Y9 S  q        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    9 _1 ?/ D+ O- J  a7 s     SuperscriptBox[  G1 Z9 i% Y" i2 M" m
          RowBox[{"(", + ^& B: V; i1 X$ j. g* v/ P% D$ Z
           RowBox[{
    ) O4 t! @$ b- v6 o        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", % t* k6 y" Y1 l
         SuperscriptBox[
    6 `! Q, `8 f4 x2 x  j8 ~      RowBox[{"(",
    ) f) s! `5 T' ^' w       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    ' {, u7 g/ {* m, c- l     SuperscriptBox[
    : U  w8 `, r& U* p2 h6 ]      RowBox[{"(", 1 S. ^# T0 _2 z2 f8 }
           RowBox[{
    * \/ T+ l1 _, r% H% d+ Y8 I3 \) o/ X        RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", 8 X& h6 }+ ?' v+ p0 t0 _/ n% G
         SuperscriptBox[
    9 S1 v; P+ N' ?% _      RowBox[{"(", 9 a8 `: X, ]; F# H' ?0 z# x* N- B
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], $ J5 O. @( l  p1 O9 i
        ")"}]}]]], "Output",6 d2 [, o9 J- [) W
    CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
    9 Z8 b$ b8 D8 `1 U  3.5779607413955193`*^9, 3.578012205484375*^9}]
      `* V) R, w1 O* j, F2 o) i}, Open  ]],4 [9 x: x. ?  i6 H" K# y- V

      r# h3 y1 j% X) M7 d7 SCell[CellGroupData[{
    / E% @* M4 e9 h6 p% G9 t* I8 x. X3 |% Q2 l7 I5 d
    Cell[BoxData[
    # _% o7 r. p; i, a7 \ RowBox[{"C3", "=", "Ca"}]], "Input",
    9 x( O6 ~. }8 F CellChangeTimes->{3.57792064125*^9}],
    ' n6 u9 O' I) n/ P5 s* |4 h1 d1 `/ U- O2 W) q8 ^
    Cell[BoxData[
    - s" b0 r6 M% _$ y" U2 |# \ RowBox[{"{", , e2 \4 q2 R% G$ t# ~. ~+ i0 N
      RowBox[{0 u4 F) R7 t5 [7 v; c* j3 d: }- ?7 c4 }# D
      "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
    " N2 l2 v! w; o4 ]% l   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
    4 L' ?: l8 x& b  S4 O0 T+ C  "}"}]], "Output",
    4 _& {% q4 q3 \. P# W3 m CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
    & Q# Z$ s2 |+ C2 z1 s) |+ w7 e  3.5779607642027593`*^9, 3.5780122103125*^9}]
    4 O" S2 ?3 T+ i0 n4 d% b}, Open  ]],1 F1 D: I' x$ n0 A" U4 N- ~

    ( a  f$ s% K, v/ h4 Q, h' BCell[CellGroupData[{. x4 o7 k. w( ?( O" G' L

    ' H8 a+ p* N$ c+ iCell[BoxData[
    2 ?6 h( m- |! i/ G RowBox[{"u3", "=",
    % g) A. ~* {# Z$ s' S  RowBox[{
    ) e, C: [' Q1 E" u   RowBox[{"Exp", "[",
    6 r1 S; I3 A* x/ Q4 p+ ~( L- |    RowBox[{: @' l" M! |% \/ O5 R/ s
         RowBox[{
    + @- k$ n$ ~  `6 t- A( B/ C      RowBox[{"-",
    . f; _5 `' R, F% M1 g2 x       RowBox[{! m7 S* a# Q: m; V/ z
            RowBox[{"(", " w+ E3 h$ K& V* z% Z% E
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    . s" u( S* g9 ?4 n- d5 K* W1 |        RowBox[{"(", " K# C8 U" G: w+ ?
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    " W6 j  C* s9 l! ~/ C/ d; \, X     "]"}], "/.", "DeltaX"}]}]], "Input",
    ( O0 m5 z1 c  g. S CellChangeTimes->{3.57792064921875*^9}],  E' Y6 ~4 _; u
    $ ~* m# Y) h3 T% ], B7 K$ l5 L
    Cell[BoxData[
    ( Z4 V  u. u; h; Y& s" K% K% c SuperscriptBox["\[ExponentialE]", . ], K9 v- W  E5 r" u. p
      RowBox[{"3.141592653589793`", " ", " D, [8 ?, R4 L8 c' X
       RowBox[{"(",
    ) ?- Q7 x1 o. O; l3 [    RowBox[{( I6 X5 ~8 o2 g! F
         RowBox[{"-",
    % m# D5 r* G+ h1 }6 L* g      SuperscriptBox[% ?# _1 K; B5 B; p) i
           RowBox[{"(",
    " v0 k8 {* C" c( h# N; T4 I) I) ^        RowBox[{
    0 l) C1 }) x9 y4 |9 X  V5 r         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", * q# h' }' P6 Y$ U% B3 j- @
         SuperscriptBox[) b% ~8 X, Q8 w0 `) C. |
          RowBox[{"(", 6 ?( z. H+ W6 ?& z, s7 L+ W- x
           RowBox[{
    + V) G: h. M  `8 t) Q$ L        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
    $ O( B* z- B& ]7 ]- K     SuperscriptBox[
    : E. U9 y  U0 k* G' W+ h4 P      RowBox[{"(", 4 @& ~! z- L7 Y9 l) x" X
           RowBox[{
    * A' A$ U9 d% x9 r1 z) f        RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
    3 D0 U" [; k/ z     SuperscriptBox[
    8 `( w9 j& k' [9 c$ W" }      RowBox[{"(",
    / A  `( ~  ]3 y" M$ F, \. D  @       RowBox[{: c$ w4 l5 T/ A0 B% @
            RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
    ' S4 P5 b8 Q5 g& L6 }- }) k8 X     SuperscriptBox[
    ' O. m, ~7 j2 _( A% V      RowBox[{"(", $ V# @0 h4 p6 z% B0 ~/ ]& L
           RowBox[{9 N; k) k' f* M/ [, n  U8 ?
            RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",   C  x& y; r" g4 ^8 b& ]6 E4 n, E2 `
         SuperscriptBox[
    9 R5 d' E5 |! H3 v# D; F- S      RowBox[{"(", ! V. D2 b; ^4 A1 u
           RowBox[{8 {3 n, g) c+ `; f2 q% _0 o: S3 r
            RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
    : _% q  j( S7 W- |2 v     SuperscriptBox[
    3 n. L( {$ N/ f& o/ J6 `) S      RowBox[{"(", 1 E& L: O- M" _+ Q7 Z& y# I
           RowBox[{
    ! u+ U3 Y2 L/ h6 c8 e0 }        RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", 6 C* `4 [5 U# @
         SuperscriptBox[
    3 q9 F/ v6 j/ _* p      RowBox[{"(", 5 X5 n- M1 s/ K1 A- b; J" K# |  \3 S
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    + U8 {4 x8 p) u# Z8 K3 x     SuperscriptBox[
    ( |0 g. r1 e  t( p* Y7 s( t      RowBox[{"(", 5 Z7 n* `$ f0 }* U# H
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],   a% I7 _5 Z7 x1 b% C
        ")"}]}]]], "Output",
    2 u; ~0 a6 a' D1 v3 t CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9, 0 K! r& E: O* Y# Y4 Q- ]6 D. X
      3.5779607654819613`*^9, 3.578012211515625*^9}]: E8 M1 b& u4 M" |, E# {
    }, Open  ]],! t8 |+ a0 L  r7 P5 d; O5 I

    % P# L* k$ J5 P* |' M6 ~, ^Cell[CellGroupData[{
    / Y( z* Z/ Q! d: ~1 l6 R6 W' J9 }# @9 j; |
    Cell[BoxData[  f( i6 b9 D7 k7 u. _* U7 L$ s
    RowBox[{"C4", "=", "Ca"}]], "Input",
    - D: G" e( X% |* q+ G; S CellChangeTimes->{3.5779207559375*^9}],. {7 R. I& X. ?0 B* @5 L

    / P8 V) _. m, k9 M8 @. ACell[BoxData[
    : @7 p8 G* C, e! s2 p$ U RowBox[{"{", # A* c  Q6 j; \9 o4 k# ~, q( ]7 \
      RowBox[{
    8 _% T5 v9 r9 z# K5 B  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
    ) k/ h) t. b! q5 O$ D# `& v   "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], & W1 q3 e" F$ n% e8 p% k8 c
      "}"}]], "Output",2 y+ {( @8 s; z
    CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9, # w: j) n+ O9 I) t
      3.5779607861363974`*^9, 3.578012216171875*^9}]+ w7 K6 M+ D' M/ v6 r1 r8 G1 A
    }, Open  ]],& Q, c7 W. G- X, L" ~. i- f" T

    * k; ^' j5 v; m4 R; [: FCell[CellGroupData[{
    2 c! R3 ?' H5 j0 z
    ! L* {! t2 P3 s+ Z+ z& o$ sCell[BoxData[/ s3 W8 E& N. A, c
    RowBox[{"u4", "=", ; u: Y8 H/ w# T9 d5 }
      RowBox[{
    1 L7 a" Z& u3 F   RowBox[{"Exp", "[",
    + l/ V4 F8 g( o! ?( M    RowBox[{
    8 a6 F$ _  o% h     RowBox[{
    1 l8 M2 R* U, s. S" L' n      RowBox[{"-", 0 {* u1 j- f* ~0 f  Q3 @
           RowBox[{) r% \" L/ j. U. K
            RowBox[{"(",
    ; {# a, m9 ?9 J1 j5 B         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    , K! U& D7 V( f$ m7 I        RowBox[{"(",
    & Z) |. |% C: A' x         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    1 ]1 R& l9 B4 L8 ^0 r  X     "]"}], "/.", "DeltaX"}]}]], "Input",. o+ D) [; ~7 b8 l
    CellChangeTimes->{3.57792076325*^9}],
    " R, R# M% T8 c& N0 G4 c$ _0 ]) I; c  d6 f
    Cell[BoxData[% Z# P% v# N& t. R, X1 S
    SuperscriptBox["\[ExponentialE]", 2 Y% R! d& P( o* m
      RowBox[{"3.141592653589793`", " ",   B: o, s, ~7 q% d
       RowBox[{"(",
    , ~! N" n& \7 h1 _/ z/ m# E    RowBox[{" W5 f& ?: C+ X. A+ ?' Z
         RowBox[{"-", 2 [' N! j0 K" O! `0 Y1 e
          SuperscriptBox[
    + W8 I+ k4 H4 x; i$ Y! h       RowBox[{"(", . s4 ~, d& Z& v6 O$ c
            RowBox[{
    : O, A# t  K. K+ B2 b# d$ V6 [/ d         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ! k- n' Q  L/ P6 E" R& n' d     SuperscriptBox[. H2 i" J8 [/ P. N0 c
          RowBox[{"(",
    3 y$ }+ ?9 |2 n. `# C' _       RowBox[{* r& s0 q9 N# T5 j# D
            RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
    : Q! p2 C2 {, a1 Y9 k3 N% W     SuperscriptBox[# C6 u$ m, ^5 |. T
          RowBox[{"(",
    - e) X3 f+ ^* _' o! d4 }       RowBox[{. Q4 c* [6 U3 l8 f
            RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
    1 r8 C  |' O4 c1 z6 s; `     SuperscriptBox[8 O7 ^- Q# M8 P" b4 t* x- p8 G
          RowBox[{"(", 9 E) W) X7 }4 \, {
           RowBox[{
    0 g( x2 w4 e8 Y: K0 F1 |2 @        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", 8 h$ b7 q$ u" ]$ M
         SuperscriptBox[) c% ?$ R: D; |0 j
          RowBox[{"(",
    $ j9 K% K, v1 o4 \% R+ H7 s2 h       RowBox[{" d( \8 Q7 B2 U- @2 ~* n
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", 1 ^% p7 _( [& v( H+ T  F) E7 L
         SuperscriptBox[
      c) m) n0 Z, r3 O; n# r      RowBox[{"(", ' S5 S4 R! [2 W5 |, c* ^. B
           RowBox[{
    * J  t, U6 n7 h0 K& K( H% |        RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
    ! V/ X: f8 [6 y, z& F7 a4 M4 z) O     SuperscriptBox[
    1 M* Y. @9 y2 n' P      RowBox[{"(",
    ) I  a3 o# C& V- `; j       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    & z6 O$ \6 v) |$ J, B; c8 |6 t     SuperscriptBox[
    9 E4 E/ Q/ \+ l9 F. P# N      RowBox[{"(", 5 x( \4 v2 Y6 J) I6 A: g9 j! e
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    5 z1 F6 m( l3 w7 n8 _, N, Y1 P     SuperscriptBox[
    ; J; o- F9 @3 p      RowBox[{"(", ; z# S, ^+ Q; @) Q: ]' b
           RowBox[{
    9 v* I# X/ Y& h, ]* j        RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}],
    ) F2 h# E4 A1 l% a    ")"}]}]]], "Output",% R5 L' H. ^% `/ w0 _, ?5 ~
    CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,
    , q# h/ y* P6 Y  r  3.5779607873531995`*^9, 3.5780122169375*^9}]9 S5 \  z( L1 @1 ?+ Q
    }, Open  ]],1 }8 T6 t, u* q, K. q" i$ Z
    " Z- C) \0 }3 j. D
    Cell[CellGroupData[{
    0 _! C  E0 u! M: a! L3 G! o- R& i( z+ ~
    Cell[BoxData[
    4 j( u% @9 w9 [+ N, k7 U RowBox[{"C5", "=", "Ca"}]], "Input",
    ) t6 U, ~# K3 G: J# z CellChangeTimes->{3.577920860671875*^9}],
    5 G5 c. H* F1 Y8 N; m( @$ {+ C+ W7 D4 F# v
    Cell[BoxData[
    * |, @2 i& v; L- \: { RowBox[{"{", 9 a( A8 Q1 u3 _' A9 v8 v6 b5 M3 m
      RowBox[{
    $ m. S6 Z' E" b6 B  "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
    / L( W+ ]6 k* J9 i   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],
    0 ]5 ~  |8 ]) D  "}"}]], "Output",; r: P) w# m. m, \$ V9 q- m
    CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9, : h; M1 ]( W3 e, `' r
      3.5779608137328453`*^9, 3.5780122209375*^9}]
    ! A# Y- V' c0 I  p4 D6 v9 V: ]1 n}, Open  ]],
    3 a' n- X* N' l' L3 u% B2 M' i9 \6 \" b& k7 {( n
    Cell[CellGroupData[{3 z, a' b2 z5 Y0 ?# R. A9 C

    7 Y& t6 U1 v5 o* L* FCell[BoxData[' |, S; t/ J$ z" y% M, J& L
    RowBox[{"u5", "=",
    . W4 I9 o. f0 x* A6 P  RowBox[{  F1 S# f6 R9 S
       RowBox[{"Exp", "[", - o$ `% `% m/ R
        RowBox[{
    1 N! n/ w: f7 `7 J) y8 }     RowBox[{
    / r2 b: }8 i# t      RowBox[{"-",   u3 K% i, R5 s9 v5 s$ {
           RowBox[{
    # t/ Y# E6 T0 x9 f: V        RowBox[{"(", ) B: H* f" t/ f+ b  F3 X& S0 z
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",   Y7 F1 k- h/ Z7 Y$ g
            RowBox[{"(",
    / I! G1 X* T3 a* l5 E         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ! T& g- G: f5 S1 B     "]"}], "/.", "DeltaX"}]}]], "Input",; A" M- `$ }( }: _/ ?2 M
    CellChangeTimes->{3.577920869375*^9}],9 ~8 v7 V% Z& k2 u0 w6 ]

    1 x5 h- t: O& ^! n; N( k  kCell[BoxData[( ?" d  l% ?' f5 f& L( u
    SuperscriptBox["\[ExponentialE]", 0 S  O' ~  p& h+ D% y0 a$ _2 u
      RowBox[{"3.141592653589793`", " ",
    4 @" [! ^2 a7 [4 t: e8 W   RowBox[{"(", 6 F- @0 J7 J" z" q2 o( Q  `+ L
        RowBox[{, k9 F2 a) o! S$ D  n# N
         RowBox[{"-",
    3 c) d3 g) z3 |! I. @      SuperscriptBox[
    - u3 p! W' D( z7 W       RowBox[{"(",
    3 s' P+ ~! N- r8 |+ |* N2 P        RowBox[{
    + Q. q/ q  l4 _: \/ k) K1 Z         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", ) M8 k2 c1 m2 y
         SuperscriptBox[
    & `$ E6 V+ _* Y5 s+ W      RowBox[{"(",
    5 W: G3 B2 A& v) T6 e, U       RowBox[{
    - c8 @7 z+ h7 a0 d  j        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
    % ^7 d8 Z* v$ G* ^) P. X# H/ e' n     SuperscriptBox[$ @* B. z+ _, J$ F' `
          RowBox[{"(",
    5 n% L  N) C% e7 k       RowBox[{( J; F) k1 z+ E- K% c# J( ]% I  ]4 y
            RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", 4 l4 P' B0 F/ q; e
         SuperscriptBox[
    2 I2 w9 |; ?& Z& Q4 z6 Z      RowBox[{"(",
    ' j" s# P/ d+ N       RowBox[{" \: q# T# |  D
            RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
    ( [6 X  I+ f  x- V0 O: z5 F2 `     SuperscriptBox[9 g7 P; g( I5 N' e$ `
          RowBox[{"(",
    # G# [% n( d+ ~       RowBox[{% J8 V8 ]' E3 Y. Y4 S2 d: O# b4 J
            RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", - x9 }, a; b5 P6 W4 \  l5 A$ @4 B
         SuperscriptBox[
    % F+ u5 Q- r- h5 l6 w      RowBox[{"(", 2 P9 Y, d' `- `, H# v/ d
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    5 P$ n, c4 v0 k( K8 p: E     SuperscriptBox[
    - z; y2 s! S3 N- ~0 C" p- `" Y! d      RowBox[{"(",
    # m% T, h6 O2 K% R" E8 Y       RowBox[{
    + _: N; i2 [: m' O        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", ( W9 V8 K, `! i. X0 Q
         SuperscriptBox[
    6 @# |: s$ i1 ]7 t' R" |      RowBox[{"(", . J8 Y7 C1 m2 t5 z% @2 H5 K
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    0 v' |# g* s- F- b% k" l4 _9 M; |     SuperscriptBox[- ]6 m8 R2 j8 R% k8 z7 z" J
          RowBox[{"(",
    ; }. N  g) ^. y  b       RowBox[{" @3 K! f* G" a
            RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
    * f# y1 M$ F2 |# K: `% c    ")"}]}]]], "Output",
    6 B& k! g# V- L3 u* |7 k/ r! i CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9, ( V' _7 I$ `: n, T, ^: ?$ n
      3.577960815043248*^9, 3.578012221953125*^9}]9 S: h5 |4 M7 ?2 j
    }, Open  ]],
    1 R( l: @) d7 a4 o
    9 B1 x' P9 }& l& K* jCell[CellGroupData[{
    1 D- O  v) N  r+ g$ r% g9 l* H7 \' C" J) f, Z; w9 N
    Cell[BoxData[# N8 J6 k; d% Q2 l. W
    RowBox[{"C6", "=", "Ca"}]], "Input",- L5 p5 g( U5 W2 y0 x" T
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],
    : ^6 G4 C1 L6 u* `' h6 y7 K' |+ m& Z# `# {5 ]. v
    Cell[BoxData[: G" Y- j4 B( o2 k- X$ F
    RowBox[{"{", + F9 h9 r) v. L! o
      RowBox[{: i# u% B' R. h' R5 j9 f6 i' F& w
      "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",", / }. }  ]2 B; k$ }/ r9 V
       "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
    4 V5 v, W* G7 V- d   "0.494866`"}], "}"}]], "Output",
    . O: S8 x4 y/ z, _ CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,, _& U  o# A- L* h6 I8 Z* ?/ t3 X
       3.5779608373044868`*^9, 3.578012227359375*^9}]. Q+ Y" {, }/ J7 r! r+ Q6 T
    }, Open  ]],7 M7 k7 h8 K, ]( _. N, D
    5 z) R8 t$ L1 l! x0 L& B' s
    Cell[CellGroupData[{8 ?! Q, M+ e8 e9 S

    ; q% j, A. v! GCell[BoxData[
    1 h* u8 M  K% z" s8 o% y2 z RowBox[{"u6", "=", 7 ?# M% w  X& @( A* V0 S7 F) k" @
      RowBox[{9 |* w  S& }' \+ L" b8 ]
       RowBox[{"Exp", "[", 4 {$ k2 U; G9 }6 h9 s# T
        RowBox[{
    ( O8 |/ C/ G, \/ H     RowBox[{+ Q8 N& J& |8 I
          RowBox[{"-",
    . g; |" w6 c+ s/ t       RowBox[{
    : v5 L( X& l1 e/ ?, _& {        RowBox[{"(",
    $ C' H* i; g1 q         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    & h6 Q4 j0 d4 g- s$ Z1 W; Z        RowBox[{"(",
    . E* D( \3 b7 Q; j  E         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    # d( [! K- T- O5 p! p     "]"}], "/.", "DeltaX"}]}]], "Input",
    ) S- m# p: F5 g CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],' Q3 v& @( z- c' X) u$ A4 i

    ! P) y6 }! R+ Z. b0 b9 U$ u! Q0 r8 T4 RCell[BoxData[
    2 W' b7 Q' N/ [) n* @$ b SuperscriptBox["\[ExponentialE]",
    ) A+ ?# o$ \. j6 C# c  RowBox[{"3.141592653589793`", " ", 5 d) I+ D8 b8 b1 b2 W7 `
       RowBox[{"(",
    , F; }5 M3 y& U9 W7 M    RowBox[{9 B5 Z( ]# S5 g( ~0 p* g
         RowBox[{"-", 9 |% {* @* ?6 i' g% l4 d8 e
          SuperscriptBox[
    & ~5 Z3 o8 l1 F5 v8 G       RowBox[{"(", 1 V: z1 d8 I, T4 S$ c. X
            RowBox[{
    4 c1 J+ K& u$ c' ?& q' x. H9 {: S/ o         RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
    * x' R7 X& ^: [5 g9 _* L     SuperscriptBox[
    4 g* z1 H3 f0 n7 {- T6 u      RowBox[{"(",
    7 t6 E% d3 R3 a: a$ O/ z2 d; w       RowBox[{' E$ L! K6 o6 z7 O% g- F
            RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",   T! N3 o% \+ x' g
         SuperscriptBox[7 V6 u" R# s0 ~0 k
          RowBox[{"(",   Q$ f: a; b, M  i8 d2 ^5 y
           RowBox[{
    ( {6 L- ~8 E7 B' ~        RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
    3 K5 {0 }; V* R: i- ^, `     SuperscriptBox[
    ' U$ p9 o( _6 `& D  P8 o      RowBox[{"(",
    ' ~& t( n. ?  [+ B9 ^4 a; b       RowBox[{( D* z+ ~# X5 p+ L8 R7 b
            RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", 0 s5 K8 f1 {/ d/ ~& r3 t: {
         SuperscriptBox[) g5 o& A% H! W
          RowBox[{"(",
    0 V) J' t. \. d% z7 p       RowBox[{
    , I( m4 I9 V3 Z/ z/ e5 ?/ K8 }2 k        RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
    5 Y+ F! \2 O% ^$ t- _- V     SuperscriptBox[
    ' ]0 q) e4 G- M3 `      RowBox[{"(",
    , ?* r: v, p( I7 O  X% z3 h       RowBox[{3 {' U4 C9 a. u4 N" j$ i& H
            RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
    1 P2 g, O) O. M0 s! M# L- G     SuperscriptBox[
      B: ^# R1 M# l, I) D- {      RowBox[{"(", - q/ |; x7 N2 O0 C4 o  j3 h
           RowBox[{7 V+ n( Z+ X5 e1 ~1 ^* o3 t
            RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
    ) q7 \- l% Q( t4 H2 p" v4 a0 c& e     SuperscriptBox[1 f7 P$ m( `) ~) J6 h
          RowBox[{"(",
    ! [4 ~5 e" E" f+ ?' _: F1 S$ f       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    9 ^! |3 H- u& W$ J: d     SuperscriptBox[
    + B# m7 D+ T- B, v9 G& z- \      RowBox[{"(",   v- z! I) k3 |
           RowBox[{7 A1 h* }, w+ ?
            RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], 2 z1 j+ A9 z0 l# N1 X
        ")"}]}]]], "Output",
    4 ^' s3 |, m1 A" Q CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    " i2 g# r, P$ u: v# I1 ?! E" {' y" r  3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
    $ r9 C- `6 S4 k1 T; m% @}, Open  ]],
    ' k" P% v# _& D9 k7 r/ U& w) N: [  s' Q
    Cell[CellGroupData[{" L# R! x6 \' v5 `
    # L, ]& b) e( o$ C3 ?
    Cell[BoxData[
    + p2 {# a9 ?1 n RowBox[{"C7", "=", "Ca"}]], "Input",, }" p: C3 T! E, X( R% W3 G# Y
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 7 M1 l3 U  l7 G" H& e( J
      3.577921316125*^9}],9 P! }& X" W& _: A* _

    * b2 O$ {. f' M5 O. b: jCell[BoxData[9 _' j. K: W4 G* x0 z
    RowBox[{"{", 8 Y; A+ n& E  ?7 C
      RowBox[{% l9 Y' ?+ W8 h! ?: B% I3 q
      "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",", 4 n0 }, T; }3 k% G, _) O
       "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
    + O  h0 d/ f! [  "}"}]], "Output",
    6 f, S8 y' L. U1 Q: c0 M& i* ` CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    ; |/ P1 E  B* _" @8 ?3 K6 a. n3 S% j  B  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
    / e5 y: [& w$ p0 t) v: v5 C}, Open  ]],
    6 B: i- l: n- }
      x! @* J4 w: j! i& I9 d  j# M& iCell[CellGroupData[{7 }. A# G* P# I. {# |0 D

    # ^7 A8 w4 k9 O# R7 u: O! \Cell[BoxData[) j: I" B  Q7 Q1 `. Q5 c* F
    RowBox[{"u7", "=",
    9 E" B' |' J7 y; T8 o  a  V  RowBox[{) c& j9 g. @* _" [( ~# N
       RowBox[{"Exp", "[",
    9 ]- L- T  @2 Q1 Q9 l7 |4 F( ?    RowBox[{
    4 D( K5 ?8 E0 n( i1 t' O     RowBox[{* v2 [  S; B/ x
          RowBox[{"-", + O! C; m' d5 H
           RowBox[{: o0 B1 ?, f2 n2 x0 F/ x! e: p% B+ J
            RowBox[{"(",
    ( T6 }: e" p, q, t  `7 S         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    + Z) S/ _! z& x8 S3 e! j% ~5 T        RowBox[{"(", . T. u6 U8 k: {2 s
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}]," P$ @: m  M# }+ F, @2 g& S$ F
         "]"}], "/.", "DeltaX"}]}]], "Input",
    : R9 \+ ^* K- F5 `8 ]* L CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    & r. P3 y  H9 p7 i+ M5 o1 r: B  3.57792132028125*^9}],6 K8 W4 [, p9 a: e, K# ^
    5 t( @) u* _7 d
    Cell[BoxData[1 f- _$ q- |" w! y
    SuperscriptBox["\[ExponentialE]", $ m: R& A* A# S" X4 h( H7 a
      RowBox[{"3.141592653589793`", " ",
    ! i# ^  G5 V8 {0 K   RowBox[{"(", 0 B2 V- H- u+ N9 |/ z
        RowBox[{* f6 K/ h$ ^' w  Y' Q2 @! }# d1 ]
         RowBox[{"-", / Y0 C0 e: s" C( Y$ g6 k
          SuperscriptBox[4 m2 ?7 Y4 O+ \" d2 ~& {/ ^8 t5 {$ R
           RowBox[{"(",
    1 s3 E- u2 |4 {+ R        RowBox[{) t* G4 `  V  X9 p! o4 @
             RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
    9 q' e) _* X# y! {7 r7 w/ Y2 g     SuperscriptBox[
    ! F3 z9 [6 t) B) R) B      RowBox[{"(", ' m7 I( E& }2 l; r7 J
           RowBox[{
    % y! g7 _! i/ }/ I+ i$ ~        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
    ( Q+ ?/ E, e5 O# S0 G     SuperscriptBox[
    3 g( i" A) k# X( A" A      RowBox[{"(",
    " g; V# A7 J- h' C       RowBox[{
    # E; F1 b7 [1 ?, Z, v        RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", # r5 y6 D+ d1 I0 k2 |
         SuperscriptBox[5 N. S0 Y3 e: y8 `+ }
          RowBox[{"(", " p% V( b; v- F  E
           RowBox[{- N9 ~- V  S7 v" n* ^9 o' h4 q
            RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
    " J& ~9 d/ P8 M( w8 Y     SuperscriptBox[2 E$ y7 t3 m  m: n9 N
          RowBox[{"(",
    6 @& ^) ^7 e" H  d$ e       RowBox[{
    0 L; ~! T  U4 }3 U, x& ~0 F  ^3 N        RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
    ! q' x: m5 ^( k6 w; T) ~& v; z% ^     SuperscriptBox[2 P4 q5 ?- A! r3 R/ a1 I
          RowBox[{"(",   k7 j  @/ w0 Z% V0 B
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    " k3 u$ k/ `2 o- U+ H3 U& Z     SuperscriptBox[/ ~3 {* o7 K' Q/ X
          RowBox[{"(",
    2 S2 j  T4 X+ [0 k       RowBox[{
    3 N: S! ?: C! j, S. C, F        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 9 U4 U3 p5 @% n* O; d- O8 R6 A
         SuperscriptBox[
    7 `# y8 ?3 W9 _$ x: ^  N1 C      RowBox[{"(",
    8 O# [( B: A- e% r- b       RowBox[{
    ( a( u5 d0 Q4 C+ l9 e1 V        RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", . a$ o# _4 |% H  A5 ~! ~
         SuperscriptBox[& s) T9 v, R3 g0 e, w( T, l
          RowBox[{"(", + |8 B4 o2 B( x
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    6 A+ C- R" K" j" a% v, m2 W' b! u    ")"}]}]]], "Output",7 i& }  T3 k5 C
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, , r" M: c4 N2 F* B) X  t; V
      3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9, : ^) Z: X' C, b$ g& K8 F, x
      3.578012251359375*^9}]
    * t* P) q6 z7 x/ b/ `: |}, Open  ]],* j/ I6 ]; g: I1 {# X  J2 X# M8 F  r

    & S! Z5 J# I0 [- c+ p3 |2 zCell[CellGroupData[{
    " A* }5 W3 b' B& A5 A6 u1 J$ Z6 V) [7 b9 J  {8 K5 q/ g
    Cell[BoxData[
    . {  }) B; M4 q4 B+ g% x RowBox[{"C8", "=", "Ca"}]], "Input",- E) r# |: V7 K
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 5 S7 q. y' r  y% U2 x" ?
      3.577921316125*^9, 3.57792141421875*^9}],% @0 C" |$ a: l9 D! D2 `

    1 x; I% \, t5 `) dCell[BoxData[
    5 Z" w; j2 |2 p9 a; `# ^ RowBox[{"{", * q* b: g4 i. _
      RowBox[{! r" s# |6 G7 ?* @8 y5 u
      "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
    7 p, K& B4 Y: b- \$ q& k   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}], * Q" l: m; ?5 H0 O% R* |0 z
      "}"}]], "Output",9 o# {* ]' ?8 |; v- m# u) U
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, 3 ^+ u9 T8 ^- `8 e# Y5 F1 d/ T
      3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
      l2 s: _; A, Z4 |+ ]6 {# J, I  3.578012260515625*^9}]
    . ]) l- d6 L- c: `}, Open  ]],; e6 u' L- w* r$ u4 u* N% p% i1 {1 [5 X
    . a: e; V9 B; T4 e' ~; ~3 Y
    Cell[CellGroupData[{
    , i! k' z4 G" Y4 Z% i! R/ l3 @' U
    * B# t9 _# M9 g0 Z4 P. `: Z0 _% JCell[BoxData[
    # o6 n* u7 c4 L/ P( U RowBox[{"u8", "=", / H/ n9 t; X. `% M& V! ]2 a
      RowBox[{
    0 N" V. O  V3 L2 r( [: x$ \+ W+ T2 G) N   RowBox[{"Exp", "[",
    ! b/ }1 d/ C" G6 Q. U    RowBox[{" r, \) d/ B% Y- U
         RowBox[{
    , C" x8 Z" f  E) n' _2 U  S9 `      RowBox[{"-",
    ; X. G, m; p0 y# I7 M5 i; I' {       RowBox[{
    ) f, P- H& V  j% |1 E7 |2 q5 s& G        RowBox[{"(",
    " d* u5 c5 E6 ?! ^  m6 o$ R         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    3 G1 {1 X6 }5 p+ G" j        RowBox[{"(", ) Z) I( a% X% {3 H* j0 B. w: Z
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],& s* A& o+ _# n
         "]"}], "/.", "DeltaX"}]}]], "Input",0 ?  q( t' U, v* v2 \5 h
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    . a( Y. `4 F: C  3.57792132028125*^9, 3.577921416921875*^9}],% {4 {9 ^5 n/ Q3 k
    1 D) c2 g2 @) O# \% V+ a4 D; s
    Cell[BoxData[
    $ z3 M! y) \5 D+ s# K SuperscriptBox["\[ExponentialE]", ( h) I/ n# |% H$ h( p3 \1 p
      RowBox[{"3.141592653589793`", " ", 5 Z$ b# D( r! Y/ d
       RowBox[{"(", : D5 \- |6 w1 w! M5 o, R* m
        RowBox[{
    ' P* A1 K1 a' X* V0 q+ M     RowBox[{"-",
    2 d. j+ ]5 T: w. o1 R      SuperscriptBox[, x( ?0 o- |5 @! h0 W
           RowBox[{"(",
    ) s4 G' Q- S0 I) k& [: ~* X/ Y        RowBox[{
    & O$ f3 M- W+ G         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
    3 I3 z5 L- q6 X     SuperscriptBox[
    ! c' M9 f8 T8 g2 }" F; Q      RowBox[{"(", 1 p& s" `0 `: d, h: {- P2 N
           RowBox[{
    2 J. @) e5 k# Y7 I3 p        RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", 8 y, G$ J4 C& r% U6 Y' X
         SuperscriptBox[
    6 F# \6 i, \7 N, ]. G; `. }4 A% l      RowBox[{"(", . z& Q, d6 w0 c3 K/ o
           RowBox[{  ~9 g; w+ G+ M2 }; J( i( R
            RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", & l* V2 {( B( w& `8 ]2 h% z, ~
         SuperscriptBox[
    + [9 i% J5 M9 y0 P# \4 Z& i# Q% q      RowBox[{"(", 1 D. U3 f( P+ }8 n
           RowBox[{& }, `5 v1 e1 ~( F
            RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-", " _& x- [8 ^7 Y& B! Y
         SuperscriptBox[
    3 o, `5 N6 f+ ~  d+ Y      RowBox[{"(",
    2 \) r. i$ y, p- X! i4 D       RowBox[{8 _# S5 N" q. c9 s1 K1 j- o
            RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
    ( i! l2 Q4 |/ X6 ?0 j, @     SuperscriptBox[
    % P% s. V9 s9 f) |; J; p      RowBox[{"(", 4 `8 _/ ~# W2 G8 e1 J$ \/ y$ Y# N
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    # C5 d* N, m8 j/ y$ I, D1 a     SuperscriptBox[
    ) m# e9 u/ x6 |8 i+ x      RowBox[{"(", . S4 K( b0 u% `! S$ X/ n# C' k
           RowBox[{5 W. i9 {6 ~4 r
            RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", 9 i! {: B% X) n% p/ \8 F/ s6 i
         SuperscriptBox[" m  [# T2 a- `) E# ^2 E2 P
          RowBox[{"(",
    ! K# G+ f9 P2 t, m6 x4 l. u' @. b! E; q       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ' ?- ]. @) H6 ^& A) Z" H8 d, {
         SuperscriptBox[
    / I( B( ]: W" u      RowBox[{"(",
    7 F: z, M9 d+ w6 t       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    4 ^( i3 n. r. ~, C: {    ")"}]}]]], "Output",' W+ @6 ~: O8 ]  p" c& |& l& }0 R
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    8 Y# `) T* F9 q, `" G2 w2 \; ~  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9, 4 y- z8 x. f9 |5 g& G, o
      3.5779608945565863`*^9, 3.57801226165625*^9}]
    " m  E$ p. c2 i! n3 v$ f9 Q}, Open  ]],
    ; \; E- M2 l. |
    : v- i* A* {5 ~0 U2 eCell[CellGroupData[{7 b* c, C6 W' N

    8 T7 m/ e/ ?1 t: }* G) iCell[BoxData[
    ( u/ C7 Y+ H/ j, ~4 m7 v, {4 L: P/ c! I RowBox[{"C9", "=", "Ca"}]], "Input",
    + d1 x# i+ s) a CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, . S3 k! ^' S3 R$ E! d5 z
      3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],3 s9 Q# i5 V% k
    - O9 O9 o8 w! e8 t/ y% X# J3 x' s
    Cell[BoxData[
    ' J6 M! z0 `$ q9 O RowBox[{"{", ( c# c& H* m0 R+ h) |% d
      RowBox[{& s6 Y) a9 w0 ~0 E& y5 b! U
      "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
    4 A. l! l  `. h0 k5 X5 P   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}],
    5 g! q2 T; O1 v* Z) o3 c  "}"}]], "Output",) Y% `7 v/ E/ c# {0 V8 o7 I; J) o
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, 0 d  p0 x* O" H5 h; G
      3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9,
    ' B3 g  p: T/ m% ^  c' t  3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9, 6 w* y% ^  }0 J$ t% u, z$ [& U
      3.578012268234375*^9}]0 C4 _( v/ M, E7 n! I: B
    }, Open  ]],
    6 c9 k# x0 n  \
    9 x% b1 H. U! jCell[CellGroupData[{3 y7 q' Q$ _, Q' W

    * s/ ]. `, d5 ?2 `: f$ n9 vCell[BoxData[
    + s+ j* Y1 {3 |( y2 t9 z RowBox[{"u9", "=", # L; y: S% m9 L) W
      RowBox[{4 m% u+ E6 A. N* }3 a# h; w/ H
       RowBox[{"Exp", "[", ; y! u# u! [# \9 p
        RowBox[{
    & I, ^/ A" j" p" s( m# g1 R: n5 D3 F) L     RowBox[{
    6 M% |1 K- r9 w- J      RowBox[{"-",
    ! n$ J" A* _& f  f# d6 l       RowBox[{3 A; B# K0 f: l/ U: g1 }+ J, t
            RowBox[{"(",
    . X% |+ C8 @( P- i" }. G. H         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", & G0 Z. H+ J4 e4 ^5 x
            RowBox[{"(", 6 o& w8 q# V/ f' J
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],. Z* T; j3 \) q" ^
         "]"}], "/.", "DeltaX"}]}]], "Input",8 q- j, a8 E, K2 a7 u+ P2 W/ {
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    : V/ q5 y; j" u" z  3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],1 ?+ X- d5 i" p0 V$ p

    $ I( A; p' A+ A( }- ~; ]3 ]3 P8 F; p. zCell[BoxData[
    1 P7 ]) W- W5 Q" f% R1 }+ _ SuperscriptBox["\[ExponentialE]",
    / J% [( F6 t& B* u9 {! M  RowBox[{"3.141592653589793`", " ", / e+ w' P! Y/ {/ {, D* O2 P$ p
       RowBox[{"(",
    - U. W: C$ }9 r+ Q: |    RowBox[{
    # u0 Z7 f$ [6 ^( l     RowBox[{"-",
    ; c7 V1 m3 G7 i" n8 q7 I      SuperscriptBox[2 s9 h+ C! O1 h3 d6 ]5 T! A8 @- Y
           RowBox[{"(", * y) e6 |* ]  e- m9 T3 o
            RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
    4 C4 w7 `' f- z& F. \/ j) s     SuperscriptBox[  N$ ^2 p; u: f9 L, q4 o5 K! y
          RowBox[{"(", 6 F& ^9 `/ @% T1 Z4 y
           RowBox[{/ F! Y7 g: O! I) {8 w+ |$ D
            RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",   ]; x8 E1 K$ T6 j4 A; d1 r
         SuperscriptBox[8 `" M4 U1 U; n! V4 G/ V6 j
          RowBox[{"(", $ ?( g, r9 q5 `- n
           RowBox[{
    . L, B+ o, j+ F; R* M9 e        RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    9 O, z( ^% a; ]  E+ k# a     SuperscriptBox[
    ; U9 x$ K6 P0 s7 }" v      RowBox[{"(", - p+ C7 n8 p! k& r' M3 |  E
           RowBox[{
    - z9 M) v& ]7 l        RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-", . y6 A8 `6 |0 U* |- X4 \+ j6 y
         SuperscriptBox[0 {7 {* t1 N7 V& ^
          RowBox[{"(", ' S. ]/ i1 }) @* z2 M4 t" ?6 U
           RowBox[{
    , E& `/ R- G1 o9 d0 M1 J        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    % D2 B+ i: C+ ?( `$ h5 }9 [     SuperscriptBox[
    ) @- j6 y( X/ v      RowBox[{"(", ' f  l% ]( ~) u* l1 h$ y& O
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 7 {) ~! \8 x4 C1 w5 W
         SuperscriptBox[! f; \$ s4 v2 U1 c" W4 y6 J6 L
          RowBox[{"(", 4 x( |  s# N3 g
           RowBox[{
    ' P3 q$ k9 ~3 \3 F" c- n7 ?! I& G        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
    2 ]5 M; a) O7 \  F. d7 v, F     SuperscriptBox[
      r. K+ c) ^9 Y+ {% L      RowBox[{"(",   G" |( H' E/ G: d
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ( L$ Q7 b* r1 t: d& \     SuperscriptBox[9 G1 ^& A4 X" D* W& N: A
          RowBox[{"(", ( M- u9 m" \4 I% [9 n
           RowBox[{
    $ q6 g$ i+ c9 W# A. Y        RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
    - m% e, j" g/ i0 b( s: ^% I    ")"}]}]]], "Output",
    " G8 e: V& k. P* t3 u5 _/ C1 [: u) d& i CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, 1 h3 u, w( A4 \; Y
      3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
    7 y; s. j* R9 {, J4 l( b* l, c  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9, ' h4 u5 b: ?  t/ v
      3.577961530421959*^9, 3.578012269125*^9}]
    3 a8 y. X1 _* u' ]+ W% }! }; s}, Open  ]],1 m, z4 G9 D! r2 q% Q

    ' b! A: m) B  m$ ?5 fCell[CellGroupData[{
    . A4 \+ |/ T6 m8 M8 @' V4 S4 I  h
    Cell[BoxData[{
    ! T- b% y+ r( A0 u2 J RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
    5 y. n  d- u8 H+ I- I RowBox[{"u10", "=", 2 k3 ~, h3 T7 c9 u3 \, l% o# C; _
      RowBox[{
    % G9 d, F  S. T# B5 {2 i   RowBox[{"Exp", "[",
    ) t' ^. J$ |: k% V    RowBox[{
    , B8 G0 A  {3 }& \; E; t     RowBox[{/ M5 I5 @" U9 ?
          RowBox[{"-",
    0 Q) _3 m9 }! z/ r9 W) a       RowBox[{
    9 N# a% ^5 m" D5 H: z        RowBox[{"(",
    ; S. g# i7 D0 q         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    . x/ P* [( d8 b# R, `$ e/ {* M* j        RowBox[{"(", 6 S# x1 V2 P* n# l0 u
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    * O* m, W, T! S0 s" G/ o6 E. h     "]"}], "/.", "DeltaX"}]}]}], "Input",2 }% L7 s: p7 S9 Y
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],0 h: |3 T1 B+ ~" p1 |
    ' ?* |1 ]  }: R+ {& W; M5 z; }% ?
    Cell[BoxData[
    5 w6 r7 z; |0 T$ }' s RowBox[{"{",
    ) Y7 D' f7 m  B! T+ ]3 K5 z  RowBox[{
    : X: o7 {$ j5 u( I% ]  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",", ! R, z9 L: f/ t+ m* D& Z' c
       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
    ) F9 U3 Q* Q1 t) }  K CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
    . P& E" y+ v5 H) b$ I
    , n( k) C" u: U/ v8 KCell[BoxData[
    ( R' f) C5 F( o, p0 k SuperscriptBox["\[ExponentialE]",
    / {4 y6 }0 x  A2 g: Y  RowBox[{"3.141592653589793`", " ",
    0 W! F0 Q/ _, X- N/ r! T7 Q   RowBox[{"(", : `/ S7 b  u0 B/ A
        RowBox[{, h! L1 J7 c5 f" z% t  t
         RowBox[{"-",
    & I) b" V; c; o1 X      SuperscriptBox[: V( |$ u! J) R  U6 `7 Z' V* `. f
           RowBox[{"(", # j  i" V, n. t+ n3 f% Z
            RowBox[{* s' h7 p0 i) h) k8 S  c: M
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 \; F) w( A; i
         SuperscriptBox[/ j2 U& X) W& q
          RowBox[{"(", ( p9 }+ I$ C2 ^' D6 ~
           RowBox[{
    " {% ^# o5 F3 U# c0 M4 O        RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-", . [2 |; G/ w2 ^: }9 }3 P4 R* m
         SuperscriptBox[
    6 b* w2 g# o, ^6 z" \  U) v' {      RowBox[{"(", 3 y6 Z% t* [# @0 {. L
           RowBox[{
    6 z/ s8 o' N3 w7 `$ G        RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", ; N- i, W  |" [8 I3 W: u% Q
         SuperscriptBox[- n/ ], `* j& s0 P% k
          RowBox[{"(",
    % U! y/ n8 \( G+ L8 y& k8 C       RowBox[{8 p( i7 u& b: P: a: ]9 w; y
            RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", % J0 X' A4 n* g6 A
         SuperscriptBox[0 R, y3 h4 ^' f1 k% X! Z$ Y% a
          RowBox[{"(",
    ) @; O9 O% a6 _1 {3 r       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
    * c; r- Q& {( L2 l     SuperscriptBox[2 }7 F  v. g7 R$ D7 x- N
          RowBox[{"(", , O/ c) Z4 S  P8 c
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ( f- V# a( v1 P' U4 R     SuperscriptBox[
    8 C: S- g* a3 G+ Z      RowBox[{"(", 5 B( D/ Z" G/ s0 s3 A$ e: N
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
      U( t: ^' x! M6 m     SuperscriptBox[3 M3 e- b  A5 l# H: _) x: F
          RowBox[{"(", 1 j1 S0 f! C; o" S  Z! Q- n$ [/ [
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 8 [% Z6 Q* k  X: @  F' W8 M7 a4 q$ r
         SuperscriptBox[! l/ G! c/ }7 ?
          RowBox[{"(",
    6 p6 c% a6 l( h5 U& w       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    / z3 e! D0 {! E8 b    ")"}]}]]], "Output",
    ' c5 M. F3 L; ?5 A- S$ A/ ?3 N CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]9 }, p, U: R! R. r. ^
    }, Open  ]],
    ) o& o! q* W2 G3 ]8 o5 Z! Y; G4 O$ q8 G, y6 a- O
    Cell[CellGroupData[{6 t. d. S& |$ B8 m

    2 x9 _, P' _9 g; p' Q9 k+ ]Cell[BoxData[{
    . W+ B' Z% J; J& I: a& @ RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]", " m" M5 |: Y; E8 ~, b8 g& m
    RowBox[{"u11", "=",
    ! \/ J. \  u- ^2 c5 ^4 w. C  RowBox[{
    * d# P. U0 P" m4 U' j& s% P   RowBox[{"Exp", "[",
    & \4 |- \6 ?& t/ a/ L: k    RowBox[{+ W( [* R' ^2 Y9 X
         RowBox[{# z7 E! X" }) P
          RowBox[{"-",
    - D" @( C6 ?/ S9 v# a- H       RowBox[{9 b- ?- S1 d. N# b' Z
            RowBox[{"(",
    8 s1 C2 ~6 Q# l) Y3 F) {. R& V% k         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    4 W# K, @6 z: O7 G        RowBox[{"(",
    8 S  d& I8 B5 _) v* o% p/ H         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],# ], Z6 _  \) `0 H
         "]"}], "/.", "DeltaX"}]}]}], "Input",$ v& _$ D3 y: |$ h
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {! p  V6 j8 y- T& w  O+ A0 B) _5 U
      3.57796154237158*^9, 3.5779615434011817`*^9}}],
    # M0 K, K/ x# m% q9 `) @
    1 W: Z: z2 [; k& {; J1 S. C8 Z% JCell[BoxData[
    1 Q. l8 |8 t7 M% X7 w8 q RowBox[{"{",
    3 V1 \% Z: U; k5 g  RowBox[{: z. F0 S2 Y9 X+ j$ d, X
      "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
    : T! W7 I$ f; x   "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    % M* s5 y: c- \  "}"}]], "Output",
    : z$ E$ U- I. l& ? CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    3 S) H# ]" g9 I( a8 X  3.57801228203125*^9}],- Y& ?& a  X  J2 a; j  ~
    3 P" `& D) ~5 E( v5 n; t
    Cell[BoxData[
    : x& I/ b. S; V! r2 T9 }* h: ^# w SuperscriptBox["\[ExponentialE]", 9 N, r; S6 f0 x% X* V4 |* h3 |
      RowBox[{"3.141592653589793`", " ", 8 I; i* t' R! Z" g
       RowBox[{"(",
    * w/ R- T: d: P# p  E    RowBox[{
    9 r9 w. c; R5 k* P     RowBox[{"-",
    / U0 H/ k  e" a- i& f: K- {      SuperscriptBox[9 `( g( _4 [: h. F
           RowBox[{"(",
    $ z. b. C& X5 U0 P/ s0 o        RowBox[{  A* M5 u5 v- h
             RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", & g+ \" b- s! V. ^
         SuperscriptBox[
    3 v6 I  }9 J" n7 P0 q# Y: R8 _; X" M      RowBox[{"(", ' ~5 v3 X* j' a1 X" I# `
           RowBox[{
    ! H0 t  ^+ Y* @' Q9 E+ F% ^/ ]        RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", % i( s/ J/ ], o9 L; R
         SuperscriptBox[
    & s" a* X4 S* d) e2 @      RowBox[{"(", 3 R- w4 ?3 j  o
           RowBox[{
    " c7 e6 l" Y; {* Z        RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", 1 ^4 _5 w4 s0 V8 P2 L
         SuperscriptBox[
    3 f4 W7 d$ \% ^9 D/ [      RowBox[{"(", + G: G0 C5 u7 A1 z1 W  d, j/ a7 v
           RowBox[{2 ]: O1 M# A4 g7 A+ Z6 V% r
            RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
    - T) n5 ]! q6 ^. @7 A: P1 j, A( `     SuperscriptBox[
    * w# E! k7 ?1 k8 P      RowBox[{"(", ! k7 I. t5 J2 X# Z
           RowBox[{
    " R" F4 ?9 ?  R2 T        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
    6 _6 e& ~) {7 l: B) }     SuperscriptBox[# g: @; D4 m- i, _: Y8 `' q
          RowBox[{"(",
    3 G: |5 U: a* Y) k; X& z: `' b& C9 e       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", & b7 v" T. [. b- [; j' G5 d% e6 s
         SuperscriptBox[
    9 k% D! r+ D- _      RowBox[{"(", 5 i; M$ z$ _. M5 z. Q, m
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", / y! d4 Y' p0 M2 S; i5 f9 C9 n
         SuperscriptBox[5 Q7 B- y( C; s7 h( N, j/ Y
          RowBox[{"(",
    8 |* K) Y, G; [       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 4 u" M# Y, u0 v
         SuperscriptBox[
    5 ^' z# l  X! H" H      RowBox[{"(",
    ) k' [& S: l$ e6 Z0 B8 V       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 3 E& E6 j7 z2 L  C2 K4 F. {
        ")"}]}]]], "Output",9 R( ?% T8 q! j# E
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, 0 V- `4 D4 [/ k1 M7 ]0 c4 P
      3.57801228203125*^9}]
    1 {: D. e& g1 W, j9 U6 L# _% Q}, Open  ]],
    1 I0 Q: H2 E: h6 s
    9 i2 e. A! i2 o/ v9 c9 QCell[CellGroupData[{; M" i+ K- R# d0 _# {/ u# z

    $ [# I( n9 z$ PCell[BoxData[{
    / F& v/ G' Z+ w9 z RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]", ' v$ f% G+ r  A6 ]% U3 h
    RowBox[{"u12", "=",
    7 V& C0 v, r( i  RowBox[{
    $ G4 O9 O" P) D3 i' f* A7 @   RowBox[{"Exp", "[", / Y- \1 }& x& @3 j* M) S, b& y1 k
        RowBox[{0 Q$ G9 G, G# w! E; e
         RowBox[{; n' U9 U0 a0 f! j- [
          RowBox[{"-", : \. Z: j* L9 o
           RowBox[{
    . n" A! c5 u: r        RowBox[{"(",
    : @0 ]3 B/ ?- A8 @% p         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", / Q) n0 P: |  Y! {* G" r, U& E
            RowBox[{"(", 1 r  b4 e. c/ u/ s0 F0 N
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    2 [6 {( o- X1 R" a1 o6 F     "]"}], "/.", "DeltaX"}]}]}], "Input",
    4 m' C+ J! I. G5 k1 L& u CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    . y( M6 a: R* \7 E( h7 ?. t& E  3.57796154237158*^9, 3.5779615576284065`*^9}}],
    " I) z+ B0 a2 g* [) G& }' g* H; d
    3 y$ T" P& \" R% a( i& G$ y) WCell[BoxData[
    ) L1 q' Z, p5 W. ^ RowBox[{"{", : M5 J1 a5 V; M5 Z$ o
      RowBox[{: r& `! o0 `2 b( y% l. G- E' n
      "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
    . G6 L9 P/ o5 c( l8 k   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],
    ' f- Y8 l, S+ @  y" }; d  "}"}]], "Output",
    8 J* C6 l5 Q1 }0 ^ CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],9 ]4 m; @& h! d7 k
    $ \% }% A7 C% U+ V4 r
    Cell[BoxData[3 e. Y% s/ L  v: |( a( \
    SuperscriptBox["\[ExponentialE]",
    + z% }. G- T& C  RowBox[{"3.141592653589793`", " ", % j9 G3 P! v* n
       RowBox[{"(",
    & L7 G7 H9 n; E2 ]0 J( z    RowBox[{% d- x& W" e6 {+ r% K1 v
         RowBox[{"-", $ G1 a2 |1 s3 _# {7 T+ Z; E' G
          SuperscriptBox[
    ; y- o% V+ Q9 a       RowBox[{"(",
    & S6 r- @  E! ^- j        RowBox[{
    5 a: ?( K' _4 W/ z         RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ; e0 Y* c3 B7 e/ T' R     SuperscriptBox[
    0 Z' N0 Q" K: D/ R$ K, X9 d      RowBox[{"(",
    2 A7 M) `0 M% a& ~- C: u4 r       RowBox[{
    - }% J0 u% N" F4 t        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
    1 Q/ {! i3 L4 y" h& S     SuperscriptBox[+ J! V$ E9 f1 l  X7 k) b
          RowBox[{"(", 7 @0 D* R0 A# o/ L0 W8 X
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
    - D' d" |  T, |2 i5 D+ c     SuperscriptBox[! S: n# l% s& C2 t! z  x# ?
          RowBox[{"(", 7 E* l- E  h2 {
           RowBox[{
    1 q4 m+ z( ~; u- ]3 G' w$ b        RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", - y7 r1 m& f; B9 F" U  C6 Z9 p
         SuperscriptBox[
    . v: v! u; E4 }1 F      RowBox[{"(", 5 U; ~6 ^; {1 s/ p# X* D5 K: A
           RowBox[{' x" o3 n' u( Q  r0 k$ f* k9 R
            RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", . R6 T9 i6 M. l) @  }
         SuperscriptBox[- S7 z8 |! ]/ _3 `
          RowBox[{"(", 7 B. |" h: J/ H6 }. N! B& G* l: u
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 0 `  x: o" y' {2 x1 P- l
         SuperscriptBox[  i' o8 r+ D  O1 ^0 U  {" m
          RowBox[{"(", 5 e: u. I- x5 P0 L0 w" U! g! X
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    2 b% x3 J* Q6 ^% m     SuperscriptBox[
    9 M8 h& `' z- l' c      RowBox[{"(",
    8 ]5 T  Y4 v6 C! O9 q" R       RowBox[{
    4 W% e& x2 {3 D3 J4 Y) U4 P- _        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
    : x/ A( z+ B4 ?. m! ?9 x3 ?  @. E     SuperscriptBox[
    ; L+ ?; s4 b: M& O9 y0 N7 x      RowBox[{"(",
    & a* D  v# g) u: p1 n# B; l       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ! R: a5 I9 }) ~, V/ h    ")"}]}]]], "Output",# _* }8 Y5 O8 X3 U
    CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]; p. B9 z1 y& ~6 z) \% a( I
    }, Open  ]],
      I0 U0 l9 p7 v( Y- l3 s) y, k1 N9 p- j" I" q; ^
    Cell[CellGroupData[{
    * ~" {/ o, L- d$ V8 `" ?
    3 p0 Q/ h$ B- \/ L  r" x  vCell[BoxData[{/ r. }) {$ O% S. J* T
    RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
    + n9 {" a! U. ] RowBox[{"u13", "=",
    ' X- x& _! j+ m# H* d  RowBox[{
    & Y! l, r4 q: X4 w   RowBox[{"Exp", "[",
    3 @' G9 O1 ?0 h; R; c    RowBox[{
    4 L7 s9 ~1 J5 Z0 V  ]+ u5 u! }. o; m     RowBox[{
    0 F- l' `$ E  h2 G) W      RowBox[{"-",
    8 W* z: |% @0 q; j2 z/ c4 r       RowBox[{3 n- o! M" \3 i
            RowBox[{"(", - `- A* B: z- l5 J- h6 ~) c+ b
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    , o# j7 C  A! d$ _* G) A' J! f        RowBox[{"(", : o/ P4 t* c6 s" Q% f$ ^
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    + x3 }$ d/ {* ?0 p9 _, X     "]"}], "/.", "DeltaX"}]}]}], "Input",
    ' C$ W" y: k+ g- c, [' H CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {* X# w7 \+ u3 p7 f$ G7 O% n
      3.57796154237158*^9, 3.5779615599684105`*^9}}],
    ) I3 ^2 T4 u) c! ]7 [' y+ d% C1 m" r; P$ |8 B3 Y+ c
    Cell[BoxData[. w$ {5 g6 Q7 ?0 o4 K
    RowBox[{"{",
    ) O0 w* Y6 |: A: Q* F, S4 w  I9 c' l  RowBox[{/ p0 }( g" v) v% }# a0 D
      "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
    % c: v; z$ }% R1 t- d. S   "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}], * w# \" a& X  p) B( F
      "}"}]], "Output",
      R! l. `( [: o CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],
    6 i% [4 Z& r* i* p/ Y" w1 X, m- ^' ^4 A  n: I
    Cell[BoxData[
    2 A3 O$ m% r  v* N7 s SuperscriptBox["\[ExponentialE]",
    / t8 s' }, `& d- O2 U( t  RowBox[{"3.141592653589793`", " ",
    ' z' }7 h  X3 ~% S" v5 c! z   RowBox[{"(", $ y5 b- v, N9 S2 Q# d. n" J2 o
        RowBox[{
    , w3 o7 \$ X5 X9 H     RowBox[{"-",
    " F$ P  O/ w/ X/ K5 w0 g& O& J      SuperscriptBox[
    2 U& n" ]; l1 u5 t! l5 p       RowBox[{"(",
    : v2 o' E8 ^' W/ r        RowBox[{/ Q& W& M6 Q4 d% B9 B8 @  Q
             RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    0 Q+ |1 |+ c5 q0 c! \1 T; g+ y) T: \     SuperscriptBox[3 e0 P4 ~1 P$ J3 b0 i$ @) o) c( Q
          RowBox[{"(",   K  l  M# [$ ~  h! W% m
           RowBox[{0 n- A( W. i1 e+ A1 w
            RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", 3 q  }# J8 O# o1 h8 h! `
         SuperscriptBox[
    9 \+ H  p  i) V      RowBox[{"(",
    , d) n2 a9 U& K' }/ H1 Y$ R0 c       RowBox[{
    - t5 A' ?0 T; P$ N) z        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    - v2 p9 J4 j" F- S  l     SuperscriptBox[+ Q: @9 S$ A  e1 _
          RowBox[{"(",
    # y# ?" C1 j, L+ J/ M2 r& a( p, t       RowBox[{5 O9 C/ Z( z5 e, ~& X
            RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
    + J  L- e- T% U" o) @4 |     SuperscriptBox[6 n' e. T2 i2 {% A; H4 [0 p
          RowBox[{"(",
    ' Z/ o, _; U7 h; i8 E+ J! y       RowBox[{3 I7 b+ S: e2 U
            RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", 8 ^: V) I3 Q, E8 l
         SuperscriptBox[
    * y; j+ ]* x) _. I! H! |, @, g      RowBox[{"(",
    ' D( [, Q0 U! H0 p& g  F0 R       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    8 ]% K7 J. n! l0 N' O  B/ H/ j8 y     SuperscriptBox[
    8 ?) I1 h2 _6 b/ M2 U/ |) t/ t% E      RowBox[{"(",
    ' S, Z% V& C) R8 ]  S8 ]0 b       RowBox[{4 N: V5 I7 h+ v2 H
            RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
    1 T" s5 {7 Z4 |4 g     SuperscriptBox[
    1 y8 B* t0 R2 |5 w" c2 E      RowBox[{"(", + |0 {4 I& h) E& z/ ]' P/ L3 M
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 5 Z- e$ b& S! L- _1 q2 j
         SuperscriptBox[
    4 o4 T& y: I' N      RowBox[{"(", 0 a2 C9 W  R- R4 d
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    / x! Q3 c% a9 ~3 ~* _    ")"}]}]]], "Output",
    ' l, r; I1 h+ A% H( ~: g CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]8 g% ~+ ^5 y/ n/ r
    }, Open  ]],
    0 ]7 l+ a4 O, F7 ], w0 K+ W1 e- e) X7 ?
    Cell[CellGroupData[{
    9 R. S$ d6 C) X3 B" Z3 j
    3 p' d6 y8 b8 |- J, @7 m1 ]Cell[BoxData[{
      J7 a; `- K; j  v RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]", # ~+ ]% Y2 K; L6 V$ A
    RowBox[{"u14", "=",
    ( c; F% K( E2 m  RowBox[{
    6 N/ v4 m& j8 y% z3 I5 W. g) V   RowBox[{"Exp", "[", % }; a! ]: O( V* X# p
        RowBox[{
    ) T! T( |% O1 m+ A; |$ X0 Q     RowBox[{
    # v+ ]9 C9 s( k! B# L1 z      RowBox[{"-",
    + d  y* T: Z( q       RowBox[{
    ( X5 Q( ~1 ~* ]* C0 T        RowBox[{"(", 0 l5 G. I4 x5 c3 ~5 A( V0 z
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", : a  `$ Q: t) m) Q+ z
            RowBox[{"(",
    $ t0 f- _* t( L. \; Y         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],( }# i; q& W* B5 z9 @0 `) _
         "]"}], "/.", "DeltaX"}]}]}], "Input",& A: R' G$ s. t" o$ A
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    , P" _5 `5 I2 K  3.57796154237158*^9, 3.5779615663176217`*^9}}],% o, W9 }, j. ?$ U

    $ f2 a4 J. W" P! I+ a/ @1 LCell[BoxData[
    5 N1 a3 @2 X8 w9 i0 D& `( l3 K: y RowBox[{"{", ! n8 A7 P% q5 g0 q. X$ i% H
      RowBox[{
    + ]3 i5 S' f5 i& i  "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", 1 Q  b5 X) T' B" B# g. {
       "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    9 y( o9 l7 \# h7 ?( I0 A/ T3 k# F  "}"}]], "Output",
    1 o6 R3 z- F) [- e0 o* l, v CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],
    9 ]' N" R+ c5 \, j% R! v( H7 T3 z6 F0 p7 }  H8 `6 I, @
    Cell[BoxData[8 E4 x6 B& H3 G9 ~. x3 e
    SuperscriptBox["\[ExponentialE]",
    ! Y; ?! o1 H+ e+ Y) g4 H  RowBox[{"3.141592653589793`", " ",
    / g9 D7 B" X. B5 v$ H; j   RowBox[{"(", * o# Z7 q$ A9 g/ G! c, K
        RowBox[{
    3 Q: p8 y' w' e3 ]     RowBox[{"-", , k- ?$ T$ ~; _+ W/ B: s5 [5 m, ]
          SuperscriptBox[4 s* F9 v. y! j% E9 e7 q/ r
           RowBox[{"(",
      t3 l3 `* n9 c4 A1 |. g/ G: V        RowBox[{( Y  j. V! c+ C( p! D' t
             RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-", # r3 h* \( R. h- Q- c& J. s
         SuperscriptBox[
    6 h9 C1 F( r) {6 o, S0 q      RowBox[{"(", 1 o/ Z$ c' h& f' q. [# R
           RowBox[{
    % _5 d8 Q3 C8 D        RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", ! [$ f" G6 ?: z  X3 U/ ~
         SuperscriptBox[4 k' R7 p- w8 h  S0 {
          RowBox[{"(", - O% a. S' f1 D* @5 q! O2 _6 B3 Z
           RowBox[{, M+ ^8 d& h# l/ y
            RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", ) _$ p, m7 V& J7 r' @9 O. c5 W: o$ X2 `
         SuperscriptBox[4 U  r; S% F9 y6 X3 f, R& Y, b
          RowBox[{"(", 5 i3 g2 F4 Q. a* [( J( V
           RowBox[{
    * f" W- q3 A5 _        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
    7 b3 M' N! h+ U/ J2 b' z8 R' c     SuperscriptBox[
    ! m5 M' e8 w7 O% T; v. y3 q      RowBox[{"(", 0 n3 ?7 t% g, V9 i; w
           RowBox[{2 z9 U1 y$ [3 W; {2 n. o
            RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
    . m) k1 `' N0 @  s  L     SuperscriptBox[9 t! [8 l7 w: c! Z
          RowBox[{"(", ! }1 S; Y; u6 x( w( d
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    5 H5 e3 q2 {+ i8 s9 d     SuperscriptBox[
    6 N/ A' g" N3 W) r8 ?3 ~( [- ~6 f      RowBox[{"(",
    ( }" Q2 ^( Y# F9 r8 X; s8 }       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    ) i: E2 [! X* g; V6 {# T     SuperscriptBox[* M6 x! I8 V7 U$ @8 o( m, @
          RowBox[{"(", 9 x/ P& ?7 R; p3 g, i- O1 B
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ' g" A  [/ `- o- B0 R# K     SuperscriptBox[3 q. a- p  H( C2 _
          RowBox[{"(",
    ( C3 T/ B9 i7 C9 @! |       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ! C/ c' Q( u. g1 V  L0 J    ")"}]}]]], "Output",
    ; v/ ?2 @/ m/ F. E CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
    # b. e4 }) _7 K4 h1 p# N; O}, Open  ]],
    5 ^3 S, d# q* F3 T5 L* T
    " L& A& A2 }3 _Cell[CellGroupData[{
    / E8 H' [' }7 r0 j( A
    % a/ n  ]: ~, d2 ]' ZCell[BoxData[{/ F# W  \% ?( g. h/ L
    RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]", + i* E: a! [0 K
    RowBox[{"u15", "=",
    " j1 g& [* l, Y* W5 ~+ I5 L  RowBox[{0 B2 @; l/ z* ~
       RowBox[{"Exp", "[", ; x( f$ G" z/ W4 ^; [, \0 {/ A9 E' j
        RowBox[{
      t. q# I/ B1 }. W% H     RowBox[{
    ) @& h! m5 C3 l9 p- I# k      RowBox[{"-", ( S1 `* V& |" o2 ^: _* d& V" k1 D* M
           RowBox[{
    ; Z7 U  [! s; C/ h        RowBox[{"(", 7 Y7 g; q: U" J: F. x
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", / x, q8 p$ c9 u
            RowBox[{"(",
    ! x# k% o! x3 ^6 P         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],- X; I2 _3 C+ s1 ~; r: n
         "]"}], "/.", "DeltaX"}]}]}], "Input",4 B# |$ r: a1 v  T9 Z* A
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    2 J4 b* g5 j* B/ m  m  3.57796154237158*^9, 3.57796157098203*^9}}],
    : P7 h7 @/ w' x9 w( k% R
    8 y% l* g3 A5 L- n7 A2 \Cell[BoxData[) C! G' c/ E; D# d5 Q& k# W
    RowBox[{"{",
    0 C) p" E& x! N! \  RowBox[{
    + k9 r- o0 }$ p  "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", ! i5 ?. s( d. V, @
       "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}], . a# y, R' U# ~1 t: t* b
      "}"}]], "Output",
    $ L0 \* J& M: E3 O+ @: A. } CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
    , D3 x2 q  B5 l+ _; l" h$ Q
    . G8 V3 S/ ]3 BCell[BoxData[
    % M& C7 U3 X' e- T) n SuperscriptBox["\[ExponentialE]",
    7 Z' c  a6 A; a  v$ U8 w! J1 {  RowBox[{"3.141592653589793`", " ", 8 @, H0 ^3 s1 @+ s4 F/ C- _+ o& B
       RowBox[{"(",
    7 `. h  ?/ f8 h! _, K9 I    RowBox[{
    # y% \9 v- e5 w) Q     RowBox[{"-",
    , }: W9 K$ P  Z: `      SuperscriptBox[
    5 |3 l+ c2 \1 Z( c0 Z# O* V       RowBox[{"(",
    " ~* W6 [4 `, i        RowBox[{. |6 F( n! Y5 h# ]8 g
             RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", 9 A9 W7 F$ n. R+ r# p" U/ _! H6 h
         SuperscriptBox[0 T  e$ d/ G7 F# y; f
          RowBox[{"(",
    9 l- R/ M2 @" O7 ^7 g' U       RowBox[{
    3 d9 Y6 n; v! ~, e& v8 _6 ~1 k        RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
    : V, e; [$ s" P' U+ W8 u0 m     SuperscriptBox[8 g9 {7 Z' C; I# T! B+ h+ ]: I6 e
          RowBox[{"(", . i4 i0 s2 A# O7 Z. e( h. }
           RowBox[{
    ! d1 [/ z5 J' W6 `% P, i7 Q" d        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
    " X* g( J6 }% d( N: @$ v     SuperscriptBox[
    ) @( Y. A. i# @! N2 ]' E% v      RowBox[{"(",
    + y  F0 r5 }1 F) w6 Z       RowBox[{
    8 Q5 U7 J9 o2 t* f, D0 ~7 d: M1 V5 D        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-", $ N$ _1 E* s( ?
         SuperscriptBox[4 u9 U+ k( G2 |9 O( r
          RowBox[{"(", $ ^+ H3 L  ?9 y1 p  p  Z8 [
           RowBox[{
    ' k7 G1 T7 i! u        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", 4 q1 [2 p2 o4 y' L* u. P3 Y
         SuperscriptBox[& J1 W! j+ n7 E/ n" N4 a
          RowBox[{"(", / |6 R) A) E# O4 m- ~7 J, H; G
           RowBox[{, a3 c  q* ~: z8 S9 e5 X
            RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", , |4 M; m) x3 p  n0 Y  r
         SuperscriptBox[2 g: J* O# I$ k
          RowBox[{"(", 1 R- I/ k# _! D3 G, }% u3 I
           RowBox[{& Z1 d! G$ a+ M
            RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    9 o! ]4 g. {! i( N; @) ^& A" x' \2 i     SuperscriptBox[
    5 C4 d4 S$ {# w4 ]/ ^7 w% p8 E5 }7 w      RowBox[{"(", - e- Y2 Z# M  d
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ( O  O4 Q6 s& g$ d
         SuperscriptBox[
    $ L/ w  s  Q7 p+ T8 x) ]" B      RowBox[{"(", . L8 C$ Q6 D$ `; o) c' k
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    , y# o, \( B, w8 T$ x8 s    ")"}]}]]], "Output",$ U7 t0 I8 o5 X; X6 U5 m5 [
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
    / r$ e6 ]6 y; j2 c" I}, Open  ]],
    3 o" Y; V9 R+ i6 ^& A' U1 ?4 G# X4 j% V/ f# m/ O
    Cell[BoxData[5 I) G8 R9 r/ d$ J- t
    RowBox[{"For", "[",
    * C5 P/ q; N; A$ Z3 t  RowBox[{4 x/ Q; q1 p- b- K- B4 s
       RowBox[{"i", "=", "1"}], ",", 8 G( v0 _: w; L( E$ P( w
       RowBox[{"i", "\[LessEqual]", "9"}], ",", + O2 E0 f4 d9 M' d: a
       RowBox[{"i", "++"}], ",", 7 g3 N: `% {7 \4 c9 u; D# H
       RowBox[{4 f" b" Z* S$ W7 C( v
        RowBox[{"Ca", "[", % L8 a, C3 O- r, B4 x& E6 t- X
         RowBox[{"[", "i", "]"}], "]"}], "=", 6 X7 p0 |, R( h
        RowBox[{"CM", "[", % q* {: N3 m# |% E& G! w
         RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",) F7 `2 m+ g, p' j$ n
    CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
    ; t% V; I. x+ M3 J2 x
    / o) B: I2 h7 \' @" e/ p$ n9 NCell[CellGroupData[{
    7 ^0 t; j# D- Q) @+ G/ \
    ; d/ q" c5 M5 U, w) U# ~# a1 s  p$ fCell[BoxData[{5 O% Y5 g0 e6 W) ]. r9 H2 s
    RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",
    ( u8 |. |5 F$ \: E( i RowBox[{"u16", "=", , i5 u* T; o) e5 ^/ L3 n" ?4 {4 K. K3 I" O
      RowBox[{# M& |$ r* [4 R3 z
       RowBox[{"Exp", "[", " S/ d( m0 q* S3 C7 q7 Z# s
        RowBox[{. S7 U5 H0 p/ R; p! O- K
         RowBox[{! l% z* @7 \+ p. A" f2 _
          RowBox[{"-",
    / m, [; r5 S% g" n6 Z       RowBox[{" H2 K0 G6 T  Q+ \
            RowBox[{"(",
    2 m- @' a  Q6 X/ ^1 q. R         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    " X  }8 \: i5 k% @        RowBox[{"(", 5 D2 u! I" f" a* P0 p& Z' o
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    / e* `) Q% Q  S6 L     "]"}], "/.", "DeltaX"}]}]}], "Input",
      i- n* M. B  X! Y CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    3 F; J- r8 g+ p; X' T- Q$ k0 ^! l  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9, 2 s+ s4 M* a2 G! S7 J- p9 H
      3.5779615751004367`*^9}}],
    & s+ Z6 u0 H# u7 C4 R; m, {3 L- o3 c- a! ^* Q2 X
    Cell[BoxData[' Z' L* }3 D. y0 E  p9 e4 {5 \
    RowBox[{"{", 4 c) E% \! Z1 b4 p
      RowBox[{, n: f5 B3 o* S$ r
      "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",", : r. O8 ~7 g$ p" t
       "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
    $ j# h* S+ D4 M& y% g  "}"}]], "Output",0 S$ C$ j& t% v) T$ O
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],
    8 i$ M: I# y* E  o% P1 d" e4 i2 H, z( a5 G
    Cell[BoxData[- K6 w1 W0 N. l: t, Q
    SuperscriptBox["\[ExponentialE]", * {/ f, [& X# \0 W8 A& x
      RowBox[{"3.141592653589793`", " ", 9 o" c# y# i! P5 y  Y! G. g6 P  u
       RowBox[{"(",
    ( z& A2 W/ t- }1 y+ A4 N1 d! R8 W    RowBox[{
    + s: t* q3 A# [     RowBox[{"-",
    7 o% c% x4 u( q3 `/ `      SuperscriptBox[
    ! u' _% v& h) w0 g       RowBox[{"(",
    ) O+ E6 y( r% J. v6 A7 r        RowBox[{
    2 c: i% d9 `+ }0 h8 t         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
    / M, c2 s3 f9 w' O6 D- R+ v' @     SuperscriptBox[
    ) x0 J4 z- G, Y- H      RowBox[{"(", / g# S! f1 h' y5 ~" K( V& n
           RowBox[{
    . g0 u5 ]% ]3 c! s0 L        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", : D2 V8 N7 A# ~( e9 q0 Y! u: x
         SuperscriptBox[% }2 Z/ ^9 F( k/ g, ?0 q& L
          RowBox[{"(", 1 D/ s" R  T6 c3 \0 x
           RowBox[{0 O. _( x& V) w  F8 S8 h1 g6 f
            RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", 9 n# A( f- y( }$ R: }
         SuperscriptBox[* M) _3 T8 j7 A4 S
          RowBox[{"(", " m! d" M) _. }
           RowBox[{
    $ Q: R: r0 g) O1 a3 _7 b; k        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
    . O) J5 o: \- f     SuperscriptBox[1 y0 Z5 v" @4 q2 t5 Q. U1 m% |0 A
          RowBox[{"(", & z+ T: ~0 A- r4 o( }- r* K" N* ~
           RowBox[{1 [' u$ @' T# e' f8 E* c# q" {
            RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", + q$ p! o0 _1 ]" d0 p! w/ u
         SuperscriptBox[
    " T5 e( i5 q) A8 a: P      RowBox[{"(", 6 A  A2 T& u) K6 V! K
           RowBox[{$ w3 \" w( g0 m* L1 u( i0 r
            RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
    $ P1 q4 e& k5 d     SuperscriptBox[
      H0 M. W# Q  e      RowBox[{"(", ( e+ K1 ?  c2 v4 h
           RowBox[{
    7 e% j% _$ h5 k; H) M/ G        RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", 0 N# Q6 ^  _9 Q& f9 e
         SuperscriptBox[
    , `: `" M  m! ~6 W$ V: }' V% y      RowBox[{"(", 2 x8 [5 t) a9 u& E" X8 s- q' M# |
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    $ W. Q* |3 [2 |8 m" p     SuperscriptBox[
    : i3 Y2 c2 f0 ]      RowBox[{"(", & o  M6 d" B+ A0 C
           RowBox[{
    3 F; D5 \9 Y+ g# @* ?% W        RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",& N5 t5 q8 s# E+ K7 R  i
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
    4 o% A( Z0 N0 `! L}, Open  ]],3 J; E& `. _' G+ w3 U  k, A

    ' \7 F( K% T/ ]$ A0 c. eCell[CellGroupData[{
    / n0 ]( S6 D" w5 M2 [" `
    * E& g5 k. k% A6 m; P9 RCell[BoxData[{3 O. M( q; `( z
    RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]", 3 E! l  a0 K8 B1 j9 m9 p
    RowBox[{"u17", "=", 3 x* }. f% {- @8 t
      RowBox[{9 K/ X+ j* d- M8 \: F6 k3 ^) g
       RowBox[{"Exp", "[", # j4 |1 |! G4 D/ V7 ^2 D
        RowBox[{! z' l2 C* {8 J) `4 C7 d: u
         RowBox[{. Y- h9 k; c+ i! F, c
          RowBox[{"-",
    6 N; O/ T4 @: y( d: {6 u. p% z4 S       RowBox[{
    + C: \' Q% a. w: X5 g/ `; \2 i        RowBox[{"(",
    0 k3 Q, c! L0 A, A8 v* K6 P" `         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    , f$ U/ a5 S+ V! }. T        RowBox[{"(", % l% U) ?- ~6 r. t' Z  @
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],7 Q. C0 S" H5 k( o
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    ! A" S0 _! a( p7 \- h# X& H; ~4 y6 h* ^ CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ( k9 @( Y. A' G, G5 {  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9,
    9 s3 d7 D% s, g, k  3.577961578953644*^9}}],9 x, H/ O$ _0 D. E+ l4 b5 t

    2 J: P3 A* h% ?& SCell[BoxData[, b. {1 P( D9 {* P8 @# ]" d
    RowBox[{"{",
    * g$ |5 H5 J" _  RowBox[{. `. j' @  e6 m* W# J) f
      "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", 4 [  \7 C5 w+ j, w* j
       "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}],
    ; @' b3 s3 a5 }) j6 u  "}"}]], "Output",
    3 f$ h8 J/ I1 i+ G2 L, c CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
    ) Y( `$ G- {0 w3 F5 s: s
    , O1 e4 i$ M& C8 B; T9 QCell[BoxData[8 Y4 T; H7 N/ c& ]! w
    SuperscriptBox["\[ExponentialE]", 5 A" K# S; S* f- k
      RowBox[{"3.141592653589793`", " ", $ E# {9 p% J! U% R( e
       RowBox[{"(",
    , W" @! s7 Z" G5 i7 Q5 P    RowBox[{
    ) V% e) g! j+ h! q5 o; o. _     RowBox[{"-",
    $ g% h, R5 D- W      SuperscriptBox[* p: l/ T, O* r
           RowBox[{"(", 1 u$ v/ Y0 }5 x( L
            RowBox[{7 L( `" S! [3 s- p: W7 j8 d9 l
             RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
    * b2 p! T1 r2 s; `. S     SuperscriptBox[! t+ l2 o3 j; H. b2 R- K
          RowBox[{"(",
    / H9 l' Y" B" t& c  H- w" P       RowBox[{
      `( k) E( V0 ~9 {9 s4 {4 S4 o5 y        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", 3 d$ q8 ^& t; _% C/ T' k
         SuperscriptBox[& Q6 n1 N9 N! O% A/ B1 ]
          RowBox[{"(", & Y* ]) V. r. T( H
           RowBox[{; @9 \" X* r) o/ p. D
            RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", ; B0 l+ I) r5 s+ R
         SuperscriptBox[8 }; `' A. n: y+ `& B6 k& }
          RowBox[{"(",
    ' Z, O8 q- I% Y4 d       RowBox[{
    9 T# G6 {+ W# e$ n' b/ W        RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", , u' A6 N0 [( \. J
         SuperscriptBox[
    8 s8 A; F9 l4 E- }+ ?' V      RowBox[{"(",
      a1 u0 @: {" b  z$ V# W# ^       RowBox[{: N# _- a; O2 i" f1 \1 v- k2 u
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    . E8 G7 z; J- ^6 \9 x     SuperscriptBox[: ?  w9 i( A) T
          RowBox[{"(", + W7 U7 n  u7 H9 A
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ! J( Q1 N3 e& s  D) }  a# r
         SuperscriptBox[1 @/ [2 }+ @( W/ v" V
          RowBox[{"(", & W4 G. w0 o+ \. W7 \
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", : O5 W+ Q$ G: M% D
         SuperscriptBox[
    ( K, q' f( ~; x1 _3 ^      RowBox[{"(", & L( _' U) j: i. C& M1 w
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    & ?1 v. T. S% }) P0 f; E4 R' G6 X     SuperscriptBox[* L- e1 A2 F6 X4 B/ V
          RowBox[{"(",
    8 D$ S; U/ Y" c       RowBox[{' s3 |7 ], R5 z# s% {2 F
            RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}],
    ' n: J: @0 L: y  {# `3 y7 N; V    ")"}]}]]], "Output",- m7 Y% K" f8 r
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]. ~" J8 ?; s7 _7 y
    }, Open  ]],5 b4 a% X  U: {% t' _
    ; Z5 [0 f6 U8 N' V$ T
    Cell[CellGroupData[{
    , ]5 M% ~  [: Y* O! n; _
    - x1 c9 A3 t: @. a; J+ E3 X1 wCell[BoxData[{$ }7 m9 ?6 i( a3 ?# @: C1 t
    RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]", ; d3 I1 a  P; p' B& ^5 K6 ]
    RowBox[{"u18", "=",
    1 O0 _3 S4 I) f) ]0 Y  RowBox[{
    : x8 W0 [# S  V+ k$ |% d   RowBox[{"Exp", "[",
    * @$ t. g# T3 z; d$ L+ z1 m    RowBox[{  N* T' I: f+ P
         RowBox[{6 d1 C# ~- o* g
          RowBox[{"-", 4 C$ D; s8 s7 O( H- {
           RowBox[{
    3 f7 _; g- \: p  u- O3 U. w+ j        RowBox[{"(", $ t1 |/ r5 }/ I9 G( Z
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 2 U) q9 |. h: {+ {
            RowBox[{"(", ( H( V1 |! k: {  Y4 q
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    9 F  {9 r, ~& h0 f" e     "]"}], "/.", "DeltaX"}]}]}], "Input",
    7 T  J& c/ x! R4 P! t) } CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
      ^4 q1 h3 |4 T' y" S  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
    # ^2 j) j+ v& D. U' }  3.5779615828848505`*^9}}],
    ! K  s' x# W2 V+ H' n& z6 R( H7 v. M* B& v
    Cell[BoxData[  y9 o, O- {+ |2 D
    RowBox[{"{",
    0 Z- X/ [% c2 Q& }9 ~: q: x  e  RowBox[{
    2 P8 i& B% `" J" @& e& q% `  "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", # D0 s  D7 m8 n& {2 ]. w5 M3 {
       "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    4 l# F/ b; ]0 `$ y& w4 O  "}"}]], "Output",9 E1 V' i) |: @- E- v& ]
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],3 @5 x: U1 B& Z8 l

    2 B8 \) c. x& R5 S/ P" h9 FCell[BoxData[5 ]4 Z, d" u& N, R! B1 x
    SuperscriptBox["\[ExponentialE]", . I) W4 Y6 ^& O' d
      RowBox[{"3.141592653589793`", " ",
    / j5 ^6 `( E1 H5 G7 Z/ d6 L, O   RowBox[{"(",
    5 F0 z5 h5 n! r8 q    RowBox[{
    / _) |! E' B% G! N& p6 E     RowBox[{"-", 7 c: o  X7 \0 s8 v" l0 j. h2 w9 F* g
          SuperscriptBox[
    * `# \* O0 _2 f) j! W* D       RowBox[{"(", ; w4 A& c5 T( _( P% J
            RowBox[{
    : C& v& H# g6 Y/ Q7 m         RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", 5 D7 W2 p' C7 m2 e  x! ~1 T
         SuperscriptBox[
    $ B5 G5 K$ I' z3 w, E      RowBox[{"(",
    ' H5 A; |8 V* R1 c       RowBox[{
    % K* m% L" G/ ~: D        RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-", $ A" L0 k- ?" c# ^  }
         SuperscriptBox[6 e( h) S0 i$ x3 A$ Q
          RowBox[{"(", & F+ X0 E/ [/ K. c
           RowBox[{$ z$ Z0 e& K- H9 S" e
            RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", ( S+ o, u* u8 b5 G, w# @& ?4 V
         SuperscriptBox[
    * r) Z" r" P: k4 v5 R7 M      RowBox[{"(",
    $ k2 j9 m0 }1 N0 \0 E( ~       RowBox[{
    - b1 c/ y, [- B$ z! u: M7 O3 X        RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", 3 D5 ^, m3 _) v3 b
         SuperscriptBox[
    0 T. S, m! t. t# f- b+ T. H# c      RowBox[{"(",
    / A/ |7 j' v- B) r) T       RowBox[{
    8 g3 d2 f+ s' u4 m' R        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", ( Q8 @7 z1 o" [7 [( A# N4 w
         SuperscriptBox[! ?- r1 z6 }/ o' g4 @( M
          RowBox[{"(",
    ! q; g( G7 Y  o& W       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", , G3 o! u: U! N. |
         SuperscriptBox[% n7 J4 W. [' k$ \
          RowBox[{"(",
    " v9 }+ N! j! m+ D- b       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    , G% A; d$ r, \; h     SuperscriptBox[
    4 s9 B- X0 e7 E$ ?& e* t" K! K      RowBox[{"(", 2 i2 r" E% k4 h7 x1 ?# Z) U5 _
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",   Z% H$ I9 J. @5 |# w9 M6 m
         SuperscriptBox[5 M1 F  v+ m8 a9 H. ~
          RowBox[{"(", 7 E; L  H3 k# J( s. v* O
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], . v1 s" F! S9 W! v1 Z
        ")"}]}]]], "Output",
      ^( [+ x& m4 L8 T4 N4 q  w( ^7 L CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]
    + q& h9 D7 _# c! v" T( k: r( q}, Open  ]],
    + H4 [  M! T) N# F$ A/ }$ s, B& P1 |$ h% h  }
    Cell[CellGroupData[{
    0 m' B+ i! {; r* K  T/ T5 Q% V" y( k; t( a4 j, F
    Cell[BoxData[{
    " t$ Q& m8 M0 U3 p. s  ?) O RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]", # _0 ^# Y& F5 k4 N9 o) r3 p
    RowBox[{"u19", "=", * B' T' S  y- f. f8 R. t
      RowBox[{. U5 e$ N3 t2 L" z4 v
       RowBox[{"Exp", "[",
    7 W$ R. Z6 l! a% ^8 I    RowBox[{  w& `8 U4 j: m2 [& o% o3 i& N
         RowBox[{
    ( a# O% |/ w9 w% f5 [7 k( W      RowBox[{"-", * N* ~$ n1 ]* |5 t- I* n
           RowBox[{
    ; y8 J1 m) G1 o4 Y  L0 A& T) [        RowBox[{"(", : W* E, d. M* T5 d+ @9 }( m* T
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
      Z+ C3 ]/ V" Y2 x' t+ T        RowBox[{"(", % j1 b8 v8 f/ f; o
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],( G( K& _* `- n3 R. C, |
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    " o9 }* X5 N, f+ L9 W* ]  P CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    0 G  J; H, Y& ?- Y  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9,
    . ]$ C( d# x+ t% e4 l- @  3.577961588890861*^9}}],
    7 F, P' x" y* K4 i; ^
    ' m5 z# m5 X1 P  A! LCell[BoxData[  J, I# O4 H$ ~/ D1 l" G% e
    RowBox[{"{",
    + j7 \! a/ j; @% h  RowBox[{
    + G1 g+ R2 y1 }$ I7 Q- T  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",", ; }2 |6 y, S; n8 H2 [; l4 d) [
       "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],
    7 f7 A+ U5 k( k2 @: t8 @1 M( |) i  "}"}]], "Output",
    - k, G' K/ Q5 m! C5 |( x- | CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
    ) ]- c* u) h5 W# `
    1 \$ K% Y" o6 O& `Cell[BoxData[2 n8 |5 l* }& R3 i
    SuperscriptBox["\[ExponentialE]", 5 ?& _5 ~2 P& K, y& i
      RowBox[{"3.141592653589793`", " ", / ?0 h# C9 D0 I0 O6 M" b  R% c/ i
       RowBox[{"(", 9 d# d2 C: }0 ~3 h  H& Y2 r
        RowBox[{
    9 D9 G( @5 O  S: }  \" N     RowBox[{"-", 5 j9 r( x4 g- |. ?; s4 E4 n  H9 x% H
          SuperscriptBox[
    - i) V; f9 C$ |( x1 |7 z       RowBox[{"(",
    # A0 O; Q+ W" d- |7 q6 v5 a        RowBox[{
    7 f8 X6 x( B; m* F8 |7 F         RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
    7 o; Y+ X% v+ z" k     SuperscriptBox[$ s; [; N5 h8 M6 @
          RowBox[{"(",
    " @% }, q; z/ m6 u- P. e2 l; B       RowBox[{
    5 g! A) \( q# O5 v: G, G        RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", # ~' Z8 Q+ ]6 d+ T
         SuperscriptBox[
    8 A3 r- n$ Z; b0 R4 M0 I      RowBox[{"(", 4 r/ j8 R: y# d9 Y# s2 d
           RowBox[{) W' [% |4 v  X5 v* E
            RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
    9 R( j9 k) K2 M6 e8 O     SuperscriptBox[
    * `" H4 w+ U' n7 T      RowBox[{"(", + `" `/ V! d& C: Z5 c) P! j1 z* E( K
           RowBox[{
    7 }- [: d1 j& w1 o+ g9 \6 x8 C        RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
    3 O- g* E7 S+ m9 _7 K2 A3 k) F     SuperscriptBox[/ F( O) T5 v. m, o" L+ j7 K5 A5 F
          RowBox[{"(",
    " ^1 i) H( {' B/ P$ U       RowBox[{
    - R# ~4 R/ S# {' P3 _3 Y, \        RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
    4 o+ P  {3 m5 }1 h# T, R% D8 n     SuperscriptBox[4 ]" A1 t5 f6 M+ F+ X
          RowBox[{"(", % _+ y; o9 A2 G7 B. w/ y; s* t+ K
           RowBox[{
    ) K6 [4 ^5 b; S8 _+ W" g# n: C' t        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
    & f8 P) P+ Y. L" I     SuperscriptBox[
    ! {- r% S  m5 u2 K+ `" F# O      RowBox[{"(",
    ' p" d  j- P$ m0 |6 j/ [0 d8 ?       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    + Q4 Z# _& [+ p# X1 y0 k1 A1 J     SuperscriptBox[
    " G' E# p0 H2 b      RowBox[{"(",
    # d! K- b* k4 j& G: u       RowBox[{
    % z2 C$ Y3 e( R% T7 F" ~        RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
    4 t6 `4 ^. v7 j+ b# x# ]+ Y+ Q     SuperscriptBox[
    ! N0 a1 V& O* l      RowBox[{"(", . U" i$ X9 h  o$ t  J7 a; b
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    , T2 T3 d. [1 B' W% z6 }- j2 G    ")"}]}]]], "Output",9 x+ L% i4 M) U# `- D6 e
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
    % U& P% y% [0 X% Q}, Open  ]],: u3 n! W5 l, Q3 j8 i
    , x9 O" r! ~+ Z5 y
    Cell[CellGroupData[{
    , S! {% U1 z- e5 |) h: `, {  ~6 l$ U: `( z/ X
    Cell[BoxData[{
    4 M& ?1 [+ R' t# U  m* D RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]", & w/ e/ q& |, `) {" C& e
    RowBox[{"u20", "=", 3 V% p. v' p( P0 n9 Q& e/ I+ |( ?
      RowBox[{
    ( @3 q+ \/ p+ [, }% M   RowBox[{"Exp", "[",
    5 J0 r# n- Q. `5 ^% C  f* U' P' O    RowBox[{' N& m- v. w9 v" q# b
         RowBox[{
    # z/ N- `+ L, _, ~$ s: ]6 ]      RowBox[{"-", & \( ^% _6 _6 ~6 J; g: S3 a- @
           RowBox[{% p* z; g* [$ b" G3 d) `( r
            RowBox[{"(",
    $ C6 ]; b# V. N- X. o2 O! c' m         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ( B+ y0 D3 o" j$ k, W$ r        RowBox[{"(",
    $ L. ?" W. ~; `- c# J$ }         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],. B$ N$ u7 n+ S) |
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    ) N- R1 P8 p! `4 x& }4 g CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    . G6 m2 \5 h4 y% p5 z  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9, 9 g! m( W! ^: G0 G" p# P
      3.57796159382047*^9}}],
    % @8 f. J2 a1 d' l) h! M: k+ X, v3 |1 R- [: T5 U
    Cell[BoxData[4 v) h4 }% b; x3 N1 ~: j4 d+ M. a
    RowBox[{"{", 4 e0 G8 [7 E" ]) Q9 b
      RowBox[{
    / d6 O9 G- R% A$ F  "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",", 9 ]1 P+ ?  R& P
       "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}], ( [" |* ^4 ~) E, @% S5 o# ]
      "}"}]], "Output",& {1 {6 j+ w. S$ C. v! f
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],- ]6 z, F" C3 m" \! h
    ) l  C- Y+ q, D% @% z3 u4 A
    Cell[BoxData[. e% f- p1 [2 O. H, G$ h7 z, j
    SuperscriptBox["\[ExponentialE]", 1 S9 Q/ p8 I5 m( E
      RowBox[{"3.141592653589793`", " ",
    6 E* x6 a; x8 V# a' X! m   RowBox[{"(",
    % O6 F: F+ u; d1 p- [    RowBox[{/ S0 b9 h0 v8 R
         RowBox[{"-", & @# f+ c8 }& U' R' e
          SuperscriptBox[
    # n0 r+ R6 Z" ?7 g3 W8 M, H       RowBox[{"(",
    ; K8 \. n5 Q. u# A2 C  X        RowBox[{: ~) R& n7 \/ B$ C9 p: o% e
             RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", 0 z8 g- ]% \) p/ q; o: |  B  _
         SuperscriptBox[7 t8 P7 h$ m5 b. g1 b
          RowBox[{"(",
    ! Z4 h. L. W9 j& x' Y8 r/ _       RowBox[{/ f% g2 t$ m  y- F1 s
            RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
    % I3 v+ R: E6 k6 {! `3 O$ X     SuperscriptBox[  d! t# y2 |$ C
          RowBox[{"(",
    0 a- O# [1 v; A3 t       RowBox[{
    + d$ a$ Z/ [& v8 [4 [+ n+ {        RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    - {- ^$ W1 r: E7 ?. k     SuperscriptBox[: {/ d0 `3 j7 U4 c1 ~& ]9 {1 K* }" a
          RowBox[{"(", 9 J. m+ _) z- L: _2 p) U
           RowBox[{; ]6 U* _* ^/ f+ `
            RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", ' ~' t0 F, v% W' o( n/ {/ e. x
         SuperscriptBox[
    . Y$ x- f0 O' d8 n      RowBox[{"(", ( G/ [* @, r. F: g6 {- e5 ?% }
           RowBox[{, W: [, I2 ]  F! L- o, `
            RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
    ' g4 p( q. ~9 ?. g6 k     SuperscriptBox[) p' T' b2 W4 E7 h& Z
          RowBox[{"(",
    & ?6 G" j( A: E, q2 g7 R       RowBox[{& @8 X- k* e7 x$ W
            RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", 3 Q# x8 @; j& j( ~8 O: W. a
         SuperscriptBox[" [; d* ?1 c9 J2 ^" L) M
          RowBox[{"(", ; t  A  T! S- T  Z1 E1 k2 T; u8 L
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 2 b  ^8 J. C+ ?0 y- b
         SuperscriptBox[
    ' m/ \! {2 ~% f2 `+ |) G' a) _      RowBox[{"(",
    : p5 W! t0 a$ r  w/ C2 a2 ?4 V       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 8 U: b3 Z- i- p$ ^
         SuperscriptBox[
    3 p+ I+ p& {+ T4 R) \# x% M" F      RowBox[{"(", ) P- t9 J2 z, A/ S% H7 v8 _1 Y% ~
           RowBox[{
      B2 j# q  w  w% O; T, O# V        RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], : H* Y1 M$ B' }5 M. M; t
        ")"}]}]]], "Output",
    3 L  i- h. c8 Q7 F( Y/ X: t/ A$ P$ H CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]+ Q! m# ^6 x. J9 {7 r
    }, Open  ]],
    % F* Q0 m! e' [/ h" N& B' q/ k5 E( O
    9 R  @# x- N: n& @; M& oCell[CellGroupData[{
      C2 }# `( Z) M$ K/ d6 F$ R9 \  h* u/ l0 D! T3 N0 b
    Cell[BoxData[{; C% {% p2 H' G2 J: Q6 ~+ S& p
    RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
    + t5 Q' |" L2 Z RowBox[{"u21", "=",   H& g: r  G2 t- I: n1 h
      RowBox[{
    , D! y6 w7 x$ m# M4 j5 x* |   RowBox[{"Exp", "[", 9 _  `- O& s! v) v
        RowBox[{
    3 h" d2 U* o( C+ G# a  g) G     RowBox[{/ j7 k* ^+ \5 K0 S) c
          RowBox[{"-", ( q9 B1 e' Q  `: F3 d! n3 {
           RowBox[{
    * I5 F: Y/ `0 \1 M- l2 K- l        RowBox[{"(",   v4 d8 U8 Y, k& U& q* k5 Y! \. Q
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 2 N+ k% k, ^7 r
            RowBox[{"(", * D1 k% |* K. Y1 J: N
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    3 a. Y# N$ v  A; ?4 o     "]"}], "/.", "DeltaX"}]}]}], "Input",
    7 ~/ N' I! M2 _6 A! }9 D4 W CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
      y& L0 P9 I) \  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
    $ V1 r- K/ }; U7 G3 Q+ e  3.5779615991556787`*^9}}],. H: W! g* V' m( Y" a- t  D4 p, B% J

      M- V" m6 b2 p8 JCell[BoxData[+ I1 R  u9 ?; h4 y
    RowBox[{"{",
    % W. _( x: j2 |: X0 r  RowBox[{% u0 o. C7 P  x# s2 H6 M8 c
      "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
    % @  y4 q6 F$ O" i7 k   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}],
    ' ]& I7 Q" L' h; F- Y  "}"}]], "Output",% O) I  t) \" c' E9 w
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],
    & u* g- b  O% X$ Y: M- U* |) n) m, d! y5 R
    Cell[BoxData[
    ) d) L( P) ~4 X& y; W) @ SuperscriptBox["\[ExponentialE]",
    * L. B9 Y! Z- h5 e2 M/ X8 m3 |3 x  RowBox[{"3.141592653589793`", " ", ! q: n3 s5 A  q7 q+ L/ n
       RowBox[{"(",
    # r# p- q  U" G    RowBox[{
    7 y- e6 e; ?' ]( S; m# g$ ]) K- C     RowBox[{"-", , U  a* u. W4 z& b- j- |
          SuperscriptBox[: l$ K0 L& y! ]" c+ w
           RowBox[{"(",
    & q& s) g' Q( |! {  f4 [  B        RowBox[{, `* w- B9 U* c, l6 B# Q2 P
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
    : @0 B- z: V1 A: u+ ~     SuperscriptBox[8 S, h: k7 }1 b! n0 l
          RowBox[{"(",
    & a& x, T1 Q7 n9 m# a       RowBox[{" L! ~1 x& {$ S  p
            RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", - T: \+ E6 {% T: u0 s, k
         SuperscriptBox[
    / w' f8 z% a3 a* i      RowBox[{"(", . N0 \( e8 N; h; z" x( i
           RowBox[{
    $ M# L; F3 P% ?; C! b+ O: E9 v        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", ) j; m; T3 ?9 [3 s  @( D
         SuperscriptBox[; \- i7 L0 E0 A5 i" I
          RowBox[{"(", . {3 t' }' I/ X* K! l9 b& K
           RowBox[{
    & e/ f  U% `4 s# s7 b        RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", 3 s& l+ z9 \1 e. \, l" N
         SuperscriptBox[( I$ Y* F9 d) E2 _9 b# X
          RowBox[{"(", $ h' u2 }) N6 [7 n) H5 X0 ^, H* j
           RowBox[{
    * |3 |1 g" o# H& r5 G        RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", - Q0 R: C1 R% Y. q
         SuperscriptBox[
    8 I3 r0 H" |% N  _9 H$ v) @3 S8 P      RowBox[{"(",
    , f- e% G  |( b7 P- _0 H  O       RowBox[{
      V3 B+ G. f9 \7 }& V$ D2 ~        RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    1 A$ G6 k8 F. H( x     SuperscriptBox[
    1 N  w5 n" ]7 Z0 @& z      RowBox[{"(", , [' |; ]+ x) s* ~  ]8 g; z' n
           RowBox[{
    + v9 ?( F" l% A$ y        RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", 1 {' e* r" u  z$ y% I- x( _
         SuperscriptBox[8 g7 ]3 j1 ^4 J, r+ C9 |/ p
          RowBox[{"(",
    1 b4 G+ D7 w5 ^) b3 I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 8 g. z! V2 s2 r( X6 ]9 m2 A
         SuperscriptBox[* h# q- K: x* d( x" d2 R! D
          RowBox[{"(",
    7 D* R: l/ j  U# z# A& f       RowBox[{
      F$ [% q4 l) Z9 ~5 u        RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
    + G5 h3 d7 v4 _9 E; T) E5 Y    ")"}]}]]], "Output",  M' `& e8 d6 x1 c4 k
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]
    ) H1 w0 i; {2 ]+ [- G}, Open  ]],; s/ C6 V# p6 a2 t$ o: t% d
    . Q* o6 |. ~% h. ~) A
    Cell[BoxData["\:62df\:5408wi"], "Input",
    & L1 j+ t# e% f- H! Z CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],' n! p, ^% |- |8 J$ @; a1 o; I  p
    , U) _. P6 w1 ^! B8 T
    Cell[CellGroupData[{( P) }5 ~& s8 w
    & Q; O- x. z5 z' S) ]1 H# R$ h
    Cell[BoxData[$ G" q( \& P3 C! \
    RowBox[{"y1a", "=", : p- g- N* o1 W2 Q
      RowBox[{"Table", "[", ! [  y6 F( w5 C. F' g+ B6 A
       RowBox[{"x", ",", / P3 `9 v2 A1 V! v! P
        RowBox[{"{", / G0 x" V: P# ?' q' @
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",7 W, k2 k. R3 E0 M2 W
    CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {) P1 T, V* @* ^9 ?! {& Z
      3.5779226649375*^9, 3.5779226810625*^9}}],$ e: _1 |6 d6 R
    : }+ o% w, q% P! v- \
    Cell[BoxData[, e" n5 }0 m2 b; l
    RowBox[{"{",
    6 M7 C: t" T: i) C  RowBox[{
    , K4 D0 }3 D/ [5 i) _1 S$ {  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", # `8 L- V8 [7 H4 e) M* G/ x1 }
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",) t' I( z  n- g! z, k7 c
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", $ u4 R; g/ v3 T: K* p
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ' [/ J+ |, Q1 q" _! T* Z4 @
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", * D  m2 d2 X3 {. ~6 i! y
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    9 A, n9 T; c4 y! y# g( y   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    . Z$ ^: z1 M# w, u   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", + b* n3 C& ]' [/ C4 r; |5 u
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
    # x+ t6 o+ z% g1 F1 Q) l/ R/ B8 M  "}"}]], "Output",4 k+ t; ]8 G9 }8 q4 T! ^
    CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
    , y. R8 `+ \; E2 l9 I9 r2 p  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]
    5 W4 m: k% Q( V# U# F' ?}, Open  ]],
    : q8 L) [# V0 t) `- N
    - g( H1 M7 O: _2 [Cell[CellGroupData[{$ A: F# A& t, ?, }5 m* b: H

    3 B1 O% @. d& B4 O* jCell[BoxData[: b6 A" [3 y: _5 C$ E+ k
    RowBox[{"Data", "[",
    0 y8 I% [) u4 T; i) c, y* b1 x  RowBox[{"[", 6 u+ a* f" q7 A5 k; q1 s4 u' Q
       RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",1 \1 u, ^8 P/ Z' ~) |3 n+ d& z
    CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {$ b# ]* B2 V, p; ~
       3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],6 A9 H* X2 j4 d" @' V6 s! f
    ; [6 }0 G$ o1 k% h" r' D: ~
    Cell[BoxData["0.899882`"], "Output",0 }- u. l3 P8 b, o
    CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
    1 d0 x1 f7 F; G- c   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
    $ R3 J& N* W9 Y$ f' Y   3.577961929080654*^9, 3.5780123419375*^9}]$ ~$ r5 ~% x5 V
    }, Open  ]],
    / F. h9 u* f8 @4 l& `- ^
    & s1 M8 R# w8 r5 U) P1 q# w8 m( i  H6 M* B- jCell[BoxData[
    4 p) ^! q% H" k9 T5 w RowBox[{"For", "[", % [& d" i0 M; f  c( ~
      RowBox[{
    / O) z% |4 C$ B, T* ]& V! I( R6 P& o   RowBox[{"i", "=", "1"}], ",",
    6 f2 t# ^& |. _! t* u   RowBox[{"i", "\[LessEqual]", "60"}], ",",
    . _  c4 t5 ^. e; d: q* G  J( G   RowBox[{"i", "++"}], ",", * Y+ u5 v9 ]; K. r$ S8 E% u
       RowBox[{. p; ^9 N2 |1 O0 ~+ n
        RowBox[{"y1a", "[", / `- y. J' t4 L6 H+ l, V7 ]
         RowBox[{"[", "i", "]"}], "]"}], "=",
    ; b# Y$ [# V: l, g' ?) m' n    RowBox[{"Data", "[", 7 f* t+ B" n- l# Y4 |0 y; f! y
         RowBox[{"[",
    - ^9 M. Z" U" w! T+ P! Q      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",; ~$ I% e( F1 N3 p' R
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {! E4 {$ F# [. |
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    7 S9 X  a7 }8 u1 t( N1 ]( J   3.577922923203125*^9}, 3.5779588839702806`*^9}],+ O$ L/ x* h/ k7 f; ~2 O1 v! K

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

    7 `) o& U5 i* j% o% G  DCell[BoxData[
    2 e" U3 i+ ~* d- a; m5 P/ o RowBox[{"For", "[",
    9 d9 I5 f& V" }1 G3 A# z  RowBox[{. d8 l. M, q$ y- j1 l# M
       RowBox[{"i", "=", "61"}], ",",
    8 }7 [1 j  [. m! D/ g+ y   RowBox[{"i", "\[LessEqual]", "89"}], ",", : l3 o: r% @' ?4 Y1 i
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", / ~+ {8 S& Z; A- q4 n/ A
       RowBox[{; x  e1 T+ {) q/ ^  H
        RowBox[{- p: F9 z% [8 p2 \4 `
         RowBox[{"y1fit", "[", . r+ T, K3 B4 L0 E  m; r9 q
          RowBox[{"[", ; }" T8 P& F& |8 ~/ |0 @' u
           RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
    * a* ]7 ], n' U3 B2 @. f. p4 E3 b* L     RowBox[{"y1", "/.", ' @: ]; h) a$ d/ n; i# p
          RowBox[{"{", 9 W1 _6 r- l2 U
           RowBox[{
    $ U+ i! o" ]2 |3 V        RowBox[{"x1", "->", ) Z/ x7 r% c! P' X: \
             RowBox[{"Data", "[",
    ! h  M- I+ J' o" r          RowBox[{"[",
    7 H2 _2 z! K* B7 K1 O8 l           RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    7 F. U& ], w0 E* F        RowBox[{"x2", "->",   P; w3 e3 n7 ~5 y$ s3 f; z( ]
             RowBox[{"Data", "[", ! R2 k) T  u( f3 p& Q/ ?
              RowBox[{"[", 5 R9 x7 L) L+ B; @
               RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    - b6 |* @  O( S' u& J; P1 j" u6 ]        RowBox[{"x3", "->",
    4 E6 g) u, W+ C( R- w. l/ B. S         RowBox[{"Data", "[", ) W$ J5 ^+ r# g/ f
              RowBox[{"[", 6 M! \& ^2 i2 a9 l  u
               RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 6 ~+ j  E) J# v' e& ?( o' n& W' ~# g
            RowBox[{"x4", "->", * A1 k) ]9 ^; I/ O: Y9 ^: [
             RowBox[{"Data", "[", ; |: X  Q$ l9 `  ]3 b
              RowBox[{"[",
    4 \8 e+ E' ~: a$ ~- e; W% E! I           RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
      ?4 J9 n# J7 e3 J$ p9 j$ v        RowBox[{"x5", "->", 0 g% @4 L* P7 o- |9 d8 J2 C
             RowBox[{"Data", "[", & R; j* c  |. u: s8 T6 o6 p
              RowBox[{"[",
    3 f, c3 z5 b$ L           RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    0 F  j2 v9 v( b; s. Y% J        RowBox[{"x6", "->",
    6 x; O) T* ~4 H. f! [         RowBox[{"Data", "[", , J2 U9 }7 K$ _
              RowBox[{"[",
    ' p' t# E$ f/ W! a7 Z8 c) J; G           RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 2 F7 p' A3 |# [9 a: M8 ?% q
            RowBox[{"x7", "->",
    * B8 `/ O9 f1 j! u         RowBox[{"Data", "[",
    ) R) l  {) ^) s9 l5 g% e  H% [8 T          RowBox[{"[",
    + m& V9 C! E0 P           RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
    - e. ^6 w8 p# W  y) E        RowBox[{"x8", "->", 8 O. ]/ N5 F+ R* o' k7 p
             RowBox[{"Data", "[",
    ! N% l$ ]  w* F, [5 |7 n0 s/ U  v          RowBox[{"[",
    " ^2 U; y: k! W1 R           RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 1 t8 }$ r6 H) x( J# [
            RowBox[{"x9", "->", 1 A" A) G8 n) u
             RowBox[{"Data", "[", - ~3 D7 d9 O" ~& e5 }/ o& B, x2 T5 k
              RowBox[{"[",
    : _- R+ W& q7 o* b7 |           RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}],
    * w4 |8 N+ k' t/ ?  "\[IndentingNewLine]", "]"}]], "Input",
    - J4 Q$ z! g# Q! X, K4 E! Q/ h CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {
    * I+ M, ~; B2 E2 a" N2 S  3.577925286140625*^9, 3.577925306765625*^9}, {3.577958922517948*^9, & y  C% k+ ?/ w0 `2 Q+ R
      3.577958922549148*^9}}],
    & ?! ?. \* s3 y% ?* L5 w5 X1 q; X2 _& P! o" K& y) T  S" a
    Cell[CellGroupData[{( C5 {7 m& i% W& ]+ h

    7 _9 ]# ^( A' TCell[BoxData["y1fit"], "Input",4 E1 E% r/ C/ U5 {
    CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {
    : c8 h8 S( {+ y* C  3.577925040484375*^9, 3.5779250440625*^9}}],
    # `1 P8 g6 A6 [2 a4 p
    . x8 P% w" Y4 `( S2 l( C; O( a% fCell[BoxData[$ }  a. s' N6 c& B2 ?
    RowBox[{"{",
    9 c, \! n, x8 n9 O) w  RowBox[{: D, A$ `4 m& z/ ?' V
      "0.43193416525930517`", ",", "0.4501634853493982`", ",",
    ( Q/ w. Y. P& N2 _: U   "0.33336034768525247`", ",", "0.4418609896858925`", ",", ; V7 z; Y& v+ T1 S
       "0.41030378932283024`", ",", "0.516814798191575`", ",", 4 m0 M& b$ A) t& e, F$ O# P
       "0.4476631213729994`", ",", "0.3016552978696669`", ",",
    2 g& d5 p  E* L1 ?   "0.378122167437847`", ",", "0.020339844919720733`", ",", 8 f3 u6 t( B; x2 e4 r& A
       "0.018745375782087376`", ",", "0.2919925992695025`", ",", + l' @1 P# l3 z0 R0 p1 `
       "0.2649067959681263`", ",", "0.16343444284525593`", ",",
    7 k; f* X' ?3 [+ |) ]/ b" D   "0.4182466778551563`", ",", "0.27347752211364934`", ",",
    5 S) y* {9 B/ h. t# \   "0.38554057386385654`", ",", "0.35253160453718047`", ",",
    " }( H. D% `) P! N/ `7 |   "0.2054745841100774`", ",", "0.45504377112716676`", ",", . {2 e. P$ R6 W1 G: F: v" U
       "0.1598805094678612`", ",", "0.18662509982279485`", ",", % {/ n# Q( @' i7 e
       "0.10684797493248213`", ",", "0.013349212673286828`", ",", , z3 j$ X9 B) t- M; X2 a
       "0.08215836003004297`", ",", "0.2979041599362813`", ",",
      ~! M% H/ d0 J8 A  S# M   "0.05995976512343641`", ",", "0.3884793499104568`", ",",
    9 |8 p; J4 _/ \. q   "0.5361889337034293`"}], "}"}]], "Output",, h+ G5 h/ m: z/ U% t/ x
    CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9,
    1 `- o% ~9 W7 b+ j, r; k  3.577925312375*^9, 3.5779575978808002`*^9, 3.5779589654960227`*^9, & m( J; S1 l4 s
      3.5779621416934247`*^9, 3.578012355546875*^9}]
    4 N. c+ Y1 o3 R7 V* B  Y. k}, Open  ]],
    % R5 x" N; `- {- p9 r7 P# J
    % P2 y, y+ ~4 H) o+ cCell[CellGroupData[{. G2 c$ F6 l5 ^3 t5 \
    9 X) _/ w: _  }
    Cell[BoxData[) l* U" _- ?9 |' r* j
    RowBox[{"y1fit", "=", ; H/ b, a2 l0 l2 P
      RowBox[{"{", 2 \" |+ r* u9 U* F! |* F1 N
       RowBox[{$ E5 t* Q8 {' y1 f$ e
       "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    & f6 c2 m2 Z; ?0 T/ g    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    4 a. {# X! T1 D' f6 C( c- U# V    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", $ n: Y6 t* @% F8 Y
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", % v* Y8 {- z, l% w1 ~4 z) H) v
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", : e2 n) a6 [: \9 [
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", 1 J# g5 ?9 F9 R: z. j: e- v
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    8 A2 u( _- D* l0 `    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    3 y% x# S, _' n3 K6 S+ L9 H) Q    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    ! F9 B2 C- O8 @3 b& k    "0.4319341652593058", ",", "0.4319341652593058`", ",",   W: A* @, C$ u7 _
        "0.45016348534939865`", ",", "0.3333603476852527`", ",",
    ) j+ X# s. N9 O2 O    "0.44186098968589294`", ",", "0.41030378932283074`", ",",
    + `3 |. x  Z$ m7 }    "0.5168147981915754`", ",", "0.4476631213729997`", ",",
    9 Q7 [+ s8 l. X: [    "0.30165529786966755`", ",", "0.3781221674378473`", ",", 6 q9 C& B  U/ E! }3 }
        "0.020339844919720775`", ",", "0.018745375782087393`", ",",
    . y% o; |3 _* {: u    "0.2919925992695026`", ",", "0.26490679596812655`", ",",
    * z8 i" Y( y) t" T, f    "0.16343444284525593`", ",", "0.4182466778551567`", ",", ! v, W" Q5 m2 S1 u+ @
        "0.27347752211364945`", ",", "0.385540573863857`", ",",
    7 f  k) t& D; l$ x    "0.3525316045371807`", ",", "0.20547458411007796`", ",",
    * j3 d2 f- n$ [! l  }" \: E    "0.4550437711271672`", ",", "0.1598805094678611`", ",", ( W3 w4 Q) ~( P8 S9 k
        "0.18662509982279502`", ",", "0.10684797493248224`", ",",
    5 h) I2 D3 X* B  y    "0.013349212673286806`", ",", "0.08215836003004302`", ",", 3 D1 @: R% D' ?7 s
        "0.2979041599362817`", ",", "0.05995976512343637`", ",", # H4 A7 O& j, }- r# f1 w
        "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]}]], "Input",
    + a2 F3 `3 L1 X; S CellChangeTimes->{{3.577959701349306*^9, 3.5779597161381316`*^9}, {7 z6 a: E/ [8 g- |
      3.5779621548286476`*^9, 3.5779621618642597`*^9}}],+ b6 e1 L$ ]* V. i" `" z
    5 U. m5 W0 z$ K) p* q
    Cell[BoxData[
    ) W- u; M, @% v RowBox[{"{",
    / S. b2 i4 y; A+ @) O" [0 M" w, S+ W  [  RowBox[{
    3 [: a* t: n0 t  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 b0 D- ^7 R- \# @# L   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    $ K: D2 ~4 |  P& a1 `    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 8 Z) V( X: v8 V: o8 j3 E! ^( d
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ! ^: \/ ?* Z1 E* `
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", ' g% T# |6 m3 C, x9 _5 U2 ?$ i- w9 m4 U
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 0 [0 ]7 N) {3 J7 f* L0 S
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    2 I. }6 T  t) d+ n2 T   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", ; x/ Y" N' @3 E* x; J
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    ( H, u& G/ P" q" r   "0.4319341652593058`", ",", "0.4319341652593058`", ",",
      L3 S: G" H8 _$ Y1 K7 H8 x" k& [9 M   "0.45016348534939865`", ",", "0.3333603476852527`", ",", 8 J7 M/ X% r5 p2 h" h2 y, b
       "0.44186098968589294`", ",", "0.41030378932283074`", ",", . H; X% ^- J+ s& \) v7 h
       "0.5168147981915754`", ",", "0.4476631213729997`", ",",
    , c' l+ I6 L2 x. C4 x   "0.30165529786966755`", ",", "0.3781221674378473`", ",",
    $ x9 q6 k2 E7 |" o8 j   "0.020339844919720775`", ",", "0.018745375782087393`", ",",
    / G4 @1 G, Z+ l7 }   "0.2919925992695026`", ",", "0.26490679596812655`", ",",
    2 M: S$ I8 w, v- a. e- {   "0.16343444284525593`", ",", "0.4182466778551567`", ",",
    . y0 z4 N& Q+ T& J& L   "0.27347752211364945`", ",", "0.385540573863857`", ",", + o" r3 }6 P2 R* p5 a; X% Z2 w, |
       "0.3525316045371807`", ",", "0.20547458411007796`", ",", - Y5 u' j2 G6 c6 R
       "0.4550437711271672`", ",", "0.1598805094678611`", ",",
    & O/ z3 s9 l: H2 x; i: a   "0.18662509982279502`", ",", "0.10684797493248224`", ",", 4 Q: T' P5 L- ]0 |
       "0.013349212673286806`", ",", "0.08215836003004302`", ",", + V! n2 ~7 `2 c" z# l5 ]
       "0.2979041599362817`", ",", "0.05995976512343637`", ",", 6 I4 h1 ]1 F7 |( Z+ y# _. K# p
       "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]], "Output",
    ) ~; \/ O' }5 w7 D# h8 r- a9 A$ h CellChangeTimes->{3.5779597200381384`*^9, 3.5779621650778656`*^9, 0 ~2 b! v* O/ o3 _2 P; b
      3.5780123569375*^9}]
    2 Z4 _3 a6 y, s* u. a# {}, Open  ]],3 I0 R" Q! B4 b1 V! i; n
    0 L3 o: ]/ z9 w
    Cell[CellGroupData[{
    / N: U4 q" F: y9 E2 U0 v; p. B2 |
    Cell[BoxData[
    / Q: j8 q( Q: a: r4 u RowBox[{"y10", "=",
    1 X5 M* @1 z7 a* k4 r  RowBox[{"Table", "[", ' a; d- S8 q3 b, E* A
       RowBox[{"x", ",", # p: `, }$ N- e  y9 {# l
        RowBox[{"{", & Z# v# X! M  [9 h3 k; ?
         RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",. U" R) O* m: {0 o) U, k6 v( z
    CellChangeTimes->{3.5779253628125*^9}],, r+ c2 B* a$ e3 p0 D

    / X# {7 `* D: ~( G. ]2 rCell[BoxData[7 D. X9 v' R0 N
    RowBox[{"{",
    5 A8 |, O# }  ^6 F: R: D  RowBox[{3 `1 P: h7 R9 n
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    , y5 U0 Y. \1 N! \1 H6 W   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    4 F$ d% I, X2 d2 i. [7 [    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",   y9 y8 F+ _, O" `' j
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    / }$ F  m2 ~* Z   ",", "29"}], "}"}]], "Output",
    8 V/ E+ Q' Z% C3 I! I1 B, k) Q CellChangeTimes->{3.57792536553125*^9, 3.577957599565603*^9,
    + B' W$ Z9 B# c! o/ r  3.577958967383626*^9, 3.5779621678858705`*^9, 3.578012358609375*^9}]: F2 [: d+ m9 x2 Q3 X# a
    }, Open  ]],1 T8 ?- H; ~. i% z
    : T! q1 @, p! t% q, Y# e
    Cell[BoxData[
    6 d- e9 w* @/ ^* X RowBox[{"For", "[", ; i; L( U, Y8 K
      RowBox[{
    7 r$ J: g6 Z$ V' _6 X   RowBox[{"i", "=", "61"}], ",", ; s$ o7 _8 c* U6 o# @$ V
       RowBox[{"i", "\[LessEqual]", "89"}], ",", , F  ^5 k; ~5 o. m' J
       RowBox[{"i", "++"}], ",",
    ' u. s/ l: s) w3 e" K7 F- _6 ~/ c! @: c   RowBox[{5 |* u5 H% w/ |. j6 M8 k
        RowBox[{"y10", "[", 9 J1 H6 F1 ?2 w# |  b% M
         RowBox[{"[", 2 Z% G& Y! Z1 r! g' ?# ~
          RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", 1 j$ `  a9 V% N/ s
        RowBox[{"Data", "[", + O$ i7 t: A& o( |+ d6 f5 w
         RowBox[{"[",
      y7 }: y8 J) Z% t3 p$ [      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",4 T* W! v. _0 b: N( D. }& h+ K
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {5 v1 E2 S- y: C
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    " b' N# ?$ h/ h1 B7 ]   3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9},
    ' {8 ?1 `" |; `6 h   3.577958922549148*^9}],
    ) a& @- k( ?! u$ Q5 u$ U- j0 M$ }- _/ F% H
    Cell[CellGroupData[{
    ' q3 r4 O- Q! Q) S4 S8 L6 Y  \* J. Z
    Cell[BoxData["y10"], "Input",0 I' C9 N, @# L: v
    CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {  J; B- p" Y* X' E9 S0 g
       3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}],
    . }* T" k/ A+ b2 s* g: q  b8 v* g
    ( `: ~- }8 ?- @; s; s/ ~Cell[BoxData[9 z: c( Q- @: ?
    RowBox[{"{",
    & u: I2 s+ Q/ M8 B4 W  RowBox[{
    , i5 p/ l5 i. H+ v$ k. C  "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",",
      Q# @4 v0 f) G0 _" o! ^" n1 J   "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",", & L$ x. ~. M3 j" e
       "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
    ; u. ~& v  C, i; [' f' u, v   "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",", ! g, d) E2 H# F/ O
       "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
    ) v  T' d% B; {7 }" r' O   "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
    ! e' F6 y6 S& t$ N9 I1 x! I7 \   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
    0 Q; y3 F+ e' P1 n* n( `   "0.694935`"}], "}"}]], "Output",
    " k2 g! J" Z1 X# Q" c" p CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9,
    & l5 \3 u. D. Q  3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9, : C: ]; L/ F( R' }
      3.5779621736734805`*^9, 3.57801236071875*^9}]
    " ~6 |  \: j1 d7 ?# H5 f6 E}, Open  ]],
    % B6 j( D; ~5 {4 S  A/ Z- l; R& Y' \! W+ c
    Cell[CellGroupData[{: V; [2 p. x1 v; _; z+ K- `1 b

    8 ^& S+ s1 l* wCell[BoxData[
    : d. v+ N2 b/ e. a  `7 V RowBox[{"y10", "=",
    : D0 L/ @7 l% {2 Z% o  RowBox[{"{",
    # L5 {: J. b; x. u9 e& s4 K   RowBox[{
    - h+ u. s& z7 T/ u& T" |% o# ~# h9 P4 z   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    % m" I& k# X# k7 r    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! {( A7 w" G7 [- Y
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", 6 J7 C% ?& f8 j7 [! p' [
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", $ G1 ?0 C8 j0 c& n
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    1 Y1 k: f' q9 x" q3 I    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", # @$ ^% d' A& Z( F) x& F, ?
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", * D+ F& K* N8 b6 c& H
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",   \- H# A: C- Q. e& W
        "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", ' v9 o9 @6 p/ j5 @
        "0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",",
    : v4 [( u% K" L8 E8 Y6 b    "0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",",
    5 l0 k5 W( y2 k$ w' P    "0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",",
    % M5 R+ i+ X0 [. Y; j% ]. r    "0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", % w9 ~5 p$ Y% y$ u3 _" C; E2 b/ I2 s
        "0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",", : H7 ~- f4 G7 x8 r
        "0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",",
    ' j- k* F5 F* h    "0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",",
    " u+ L+ ~( p4 [) P" W    "0.390754`", ",", "0.694935`"}], "}"}]}]], "Input",
    + w4 r, ?" g/ M9 {$ _, B CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],+ Y6 d" e' s, _9 _
    3 }# J- l3 r8 ?* V6 K1 |
    Cell[BoxData[
    6 a: P, V" K) f8 I9 a+ ^* o RowBox[{"{",
    " B' v; ]( Q8 e# V' J6 b  RowBox[{8 L' z' \9 Q0 k5 G
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",   o( x, P2 D2 {
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    9 F! d/ T6 E7 W9 l7 D    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    / i0 L- B% r3 T4 x' _7 s, W, |   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    2 M' _. ^. n# I# m   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    3 L9 S0 B9 H' _4 H   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    + Q0 U; z$ L  c8 {   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    8 {" Q9 B: s1 Q  w7 \& v# p   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    1 w0 }& p% e5 p8 Y8 @! n9 ^& V' l   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`",
    & }1 R$ @9 q) v6 O% ]9 K   ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ) Z! }7 z8 E0 S- h
       ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`",
    $ O" Y# D& D, ]8 }0 S* _2 P2 K7 }) ~   ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",$ `+ Z; S2 u+ i  W' r
        "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",", : f( A% b0 B! C' p/ v/ m9 o7 ?
       "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
    ; B- d; @! ]! ]8 V6 E, d( t   "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
    # R8 n6 W( T. s   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
    0 G7 x6 x4 ?. `/ B) M) {   "0.694935`"}], "}"}]], "Output",
    . ^6 x- N# k2 Y* c1 C CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9, 0 {- s! x0 ?) |! z
      3.578012361734375*^9}]
    * T& M) e# H& ~* {4 j% i}, Open  ]],
    8 H( s* i0 i/ n! J0 j* x5 G* Z, z4 Y0 m: Y
    Cell[CellGroupData[{9 z* H9 r! U. C# k4 m

    $ A% z  Q$ ~4 V( D, A7 YCell[BoxData[
    7 M. K) d" J! | RowBox[{"p1a", "=",
    4 L0 ?' P$ r' E- F& \% I  RowBox[{"ListPlot", "[", % t, v* t4 M9 J, F
       RowBox[{"y1fit", ",", , s& s) k5 |, @- f) E
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", 2 X! a" _9 ~& o. V3 d
        RowBox[{"PlotStyle", "\[Rule]", + n3 Q) g% N! }: m$ Z
         RowBox[{"{",
      x. \3 Y- [' j8 r+ u      RowBox[{"RGBColor", "[",
    1 ?3 Y, ~: B% v/ d" u6 y       RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
    5 Y! e- v+ N. p! X) J( i0 r8 C5 p    RowBox[{"PlotRange", "\[Rule]",
    + `6 b" Q9 X) @! b9 @) ^$ @     RowBox[{"{",
    + c) Y1 z" Z1 @8 i  p# T! w+ j( ~      RowBox[{: a+ o7 {' E* \& ]7 i
           RowBox[{"{",
    # ?% s6 R# S6 l6 i        RowBox[{"61", ",", "89"}], "}"}], ",",
    6 T7 ?+ p% |1 Q0 q9 O       RowBox[{"{",
    / d9 E7 J+ |7 ~7 q0 y( ~        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", ) G2 N. K; ~( x" \0 o: I
        RowBox[{"AxesOrigin", "\[Rule]",
    . }. _/ |  Z/ _; ~' B  E# g     RowBox[{"{", ) D7 B  u5 {1 J& z. H" @4 c. H1 M1 b
          RowBox[{"61", ",", "0"}], "}"}]}], ",", / z( K5 d) q& i& x7 q( U  M
        RowBox[{"Frame", "\[Rule]", "True"}], ",", 6 Z7 u( _) T9 z
        RowBox[{"FrameLabel", "\[Rule]", % j: ^  O4 C, Z* b- J- g5 ?
         RowBox[{"{",
    # X0 f) i- V5 V9 O      RowBox[{4 b1 ?5 |# }% Q! I% S+ R
          "\"\<\:7089\:6b21\>\"", ",", ! J3 Z9 g) B7 Q) [8 u# Q* ~
           "\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
    . r( _3 @8 e2 }9 e  U1 p1 z( v2 g\:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",# }' |& X( s- J, o, B, l
    CellChangeTimes->{1 ~! l0 V" W/ O4 X; Z
      3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {; c# K0 e( v4 b2 v) v9 y
       3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9, + a( Z; Y* x: y9 z0 ~8 P/ z
       3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {1 P6 u. {& W& W, w
       3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],. V; R2 a0 C& J7 K3 r9 T& A$ N

    3 a% [! @0 }# X& WCell[BoxData[( s" @- k# k( C( t5 m) s* N+ H& R$ B
    GraphicsBox[{{}, {},
    * E5 ^" s  K* g; \   {RGBColor[0, 0, 0], LineBox[CompressedData["
    * n9 l! l) M3 @( B6 r( o9 o& [1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
    ' }( {" Q) N0 }% S% r, X8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
    6 W0 @" t* o, R8 u  B) p2 s- BD3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
    / ]% q) Z0 Z* L7 H7 J1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX2 d7 K; Q5 x9 ~
    C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN  p" U8 K! H/ _) o; R
    a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
    # Z9 b6 u; i- E) zyqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb9 W& B. `0 N- W" E+ Y& s% F
    wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59" {5 ~" @: \) C+ ?) x
    Y6nGQ3sAieueIw==, K0 L  `6 T- J+ ^1 @
         "]]}},
    ' d# ]) {, m( }: a* B  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],8 y, {: B; j4 X) K6 l! A- N$ a
      Axes->True,3 \5 b% G, P1 J. w3 U
      AxesOrigin->{61, 0},
    + D, ^; W8 x4 j- H6 T( k  Frame->True,
    7 I. j; M0 h2 @  FrameLabel->{' E6 v# J- E0 [
        FormBox["\"\:7089\:6b21\"", TraditionalForm], / H& a2 n8 N1 A) c7 J
        FormBox[( t5 ^0 m  ]% v
        "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\' y9 F+ f2 s! D7 R- {
    \:ff09\"", TraditionalForm]},+ n/ z: ?8 e1 K& X4 T6 i
      PlotRange->{{61, 89}, {0, 1}},8 {  f. u* l7 t  O1 n
      PlotRangeClipping->True,% d/ `6 d2 z9 p% e
      PlotRangePadding->{Automatic, Automatic}]], "Output",9 ^% p# [$ ]1 Y7 S; u) `* c
    CellChangeTimes->{7 w3 L: f& H4 A, y4 q9 C
      3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9,
    % L% R* h) O  A' ^* t6 ?  t1 R) t   3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9,
    9 H% S- Q7 @! p2 R   3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9}, . j, ?0 U" U/ J" u# K; W
       3.577962187510705*^9, 3.578012396921875*^9}]/ f9 u' k5 @0 g. E
    }, Open  ]],3 B5 g9 E; B( o5 _) T1 X

    4 r0 n2 E3 N! W/ i3 UCell[CellGroupData[{" w0 ~/ V- C! ~" ?7 T1 ^3 U  |

    # c8 z) b+ x  rCell[BoxData[
    2 x* e( D# a) G( O RowBox[{"p1b", "=",
    ! D- [7 w$ G4 A' f1 _. Y  RowBox[{"ListPlot", "[",
    9 x2 z* E( |$ p! D1 D1 ?   RowBox[{"y10", ",",
    8 k! D# Z0 A* ^% j    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    6 {& B/ k' H/ s5 S! h. T    RowBox[{"PlotStyle", "\[Rule]", 9 Y; k7 ~" T" W- E( W
         RowBox[{"{",   U' }. d# s* e: G
          RowBox[{$ O& Y3 @: v; A; w8 U3 Q$ ~
           RowBox[{"RGBColor", "[",
    ' U8 O$ M& r8 j  x% |, e        RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}], , B# p2 b5 ^+ d; ~) N+ J. ^* ?
        ",", + \& W7 l  D: A
        RowBox[{"PlotRange", "\[Rule]", 6 r. O' |3 t; ]  j8 T& H( H) D" B
         RowBox[{"{", & V9 M* x( @: b2 I2 @
          RowBox[{8 W2 D/ n& P9 H. E  `- Q+ T
           RowBox[{"{", / i6 J1 l# w" n3 g) K. x, G3 I: R
            RowBox[{"61", ",", "89"}], "}"}], ",",
    1 `, U/ R3 }9 M, E, F- R       RowBox[{"{",
    $ r  C4 W+ `( B9 I* y: r        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    2 G5 Y+ A3 v) }# _; s$ r    RowBox[{"AxesOrigin", "\[Rule]", ; p9 s2 |5 n- E
         RowBox[{"{",
    : w& Q, p1 {6 ?5 F  r% J      RowBox[{"61", ",", "0"}], "}"}]}], ",", * f! p( U9 r( G. f2 d% \( r
        RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
    2 n7 ?' l" a+ t6 e) t, C CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9, ' w& Z3 ~) h! K( c+ ]
      3.5779597764166365`*^9, 3.578012409265625*^9}],/ R0 c, R/ g: A9 w

    8 U" e) \& g9 i  R8 B* aCell[BoxData[
    ' U- h" r/ ~* _$ F# d0 g GraphicsBox[{{}, {},
    7 M" E( P$ v& r- d. }   {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData[", Z" T! G, b, ^
    1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ3 o1 V+ Y2 `; C. q: N
    /B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
    % I4 i) O  ?& `9 ~: U' N! f+ @: q  lGwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
    + ]  z( H0 ~# [9 A# AGFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
    / U# E- ?, ]) H7 ?7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
    8 ]+ C8 s' |+ N( BQu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri) C9 Y4 O3 j% R) O8 _
    H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
    * p3 w0 z( J3 L/ n. g: o+ j) D4 ?rQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
    2 ?9 Z7 {' ~7 d6 SvA==
    1 a! ~. h' u0 C& j     "]]}},1 x& z6 j8 S) \! d! ^% t
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    3 F2 r) V. Z; ^0 t0 E$ n  Axes->True,
    / ^& t, D5 T2 p" g2 q  AxesOrigin->{61, 0},  ~' P. e" S% S8 l
      Frame->True,2 `- `9 K# s: [2 z$ {& w
      PlotRange->{{61, 89}, {0, 1}},
    , d6 v: K2 g6 z; n6 @  PlotRangeClipping->True,; x: n8 E% ~5 }% m. w# ~
      PlotRangePadding->{Automatic, Automatic}]], "Output",/ i0 w! Y. M0 `% a8 r
    CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9, / P. n% d$ k, f6 _3 g; n" f
      3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9, 5 k, \' e6 g* j3 {- y
      3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]
    0 ?/ T8 s, [# r5 g  Y}, Open  ]],
    * Q; P8 }4 n; P0 z; @; a- n! y( M
    Cell[CellGroupData[{# h) F' J! W; ?7 k8 N

    ; j- U0 _) ^0 Z. ]& `" QCell[BoxData[! O" u: h$ D: T- t% V* o4 ?9 o1 F
    RowBox[{"Show", "[", 4 g9 q* ?6 @5 H9 I1 D# ~4 E* ^
      RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],2 @$ p5 N+ x. U( W! v# @
      ~% I( P1 c, H( K" z
    Cell[BoxData[0 X& O) ^5 W/ q, B3 H" D
    GraphicsBox[{{{}, {},
    8 Q! ?( I3 o* C5 S- Y- O' h0 j" q    {RGBColor[0, 0, 0], LineBox[CompressedData["" S. t/ d  d+ z5 V$ V8 @& q
    1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn; d; Q6 M* b# [" J# u! P  U
    8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq; u' ]2 Z* U: }; a3 ~
    D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B7 o4 Z- K( l9 R: Y
    1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX* k% i3 d, n$ e  D1 ?4 h( |
    C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN! N8 I' e5 M. v
    a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff  X$ k0 Y/ q( V, ?
    yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb! ~; M5 q& W, S, m- }" z8 Y/ v, v/ ~
    wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
    . G$ w( G6 g5 s1 PY6nGQ3sAieueIw==
    & @( t* T  J( L      "]]}}, {{}, {},   P- X0 F1 f+ |5 J: q
        {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    * H# `' s! y5 K' [9 y1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
    8 H  s+ X* r% @8 g( |! S/ f/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy9 e7 K' [. z1 N4 W! S! K- q& H
    GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
    0 j% v; U6 E8 j( p5 @GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy- ]% d5 ?! o8 d9 D* T
    7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/& Q( ?9 x7 E( P+ x
    Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri1 g! E- Y3 t) H
    H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV6 Q. m3 x; \0 M/ H( [
    rQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
    ) Z, `( ^- y/ X$ JvA==
    1 A2 O  o1 }5 j+ |% x3 o      "]]}}},
    3 p4 S: u6 c  b  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    ; k" z7 e7 v9 e$ c  Axes->True,
    2 j0 f; \8 r9 g' p" N1 M) S  AxesOrigin->{61, 0},: i6 S$ y: Z1 w. X( M$ s/ @
      Frame->True,, G3 D) m+ O0 H( W4 S
      FrameLabel->{2 w- T: p/ j! s, f* J0 B7 |
        FormBox["\"\:7089\:6b21\"", TraditionalForm], % ~2 ?+ x6 q# V* l! N, ?
        FormBox[
      o. m9 N& |+ m. b    "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\( S+ V- N* _' f- S) c9 P
    \:ff09\"", TraditionalForm]},6 ]8 {! D& B8 y. {2 a' y1 x6 I
      PlotRange->{{61, 89}, {0, 1}},
    : S. l6 [% Y) P& v  PlotRangeClipping->True,
    7 f! q$ s! V- E, u: W9 S  k  PlotRangePadding->{Automatic, Automatic}]], "Output",
    3 x8 o9 {0 q9 M" ]; h# W5 d6 E CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]
    & u0 t& A5 Y9 K" n& Z0 Q2 b5 a}, Open  ]],
      I& m7 {3 S4 q7 m/ t3 D( A" i
    , T# t" V6 v0 `8 SCell[BoxData["\:62df\:5408wi1"], "Input",
    ( \7 ?" t) I9 l3 h: m CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}, / a9 a: j. D# {9 Y9 Z) G1 s
       3.577959662349238*^9}],
    7 r( a5 V7 z' G) }( R; {
    3 f: l( Y# h! a1 j) ?" z+ Z3 lCell[CellGroupData[{1 w; L- L8 e7 Q2 ]9 G3 ^& G) H
    * v" l, k* r+ r& Q
    Cell[BoxData[
    / ?3 w3 `  |1 g6 p4 b8 Q9 p RowBox[{"y1b", "=",   O) v6 O: h/ K
      RowBox[{"Table", "[", ( Y# e( O) Q! V& b
       RowBox[{"x", ",",
    " Q$ O$ t# Z- Z6 Q; p    RowBox[{"{",
    , k! h, J: C$ _/ b0 O+ o     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    $ @$ Q. H$ K/ o& i& o CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    7 m% ^9 z' L3 J6 n: ?: w   3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}],
    1 H2 H6 f8 A: X/ T" c3 v% J
    8 ]$ Q( S. K- ]: g0 N0 @( a7 ~Cell[BoxData[
    $ l  ~3 I3 r/ ~ RowBox[{"{", ; q$ j2 N% n2 b0 Y0 ?
      RowBox[{# v  R( Y8 E; V7 l2 N  I$ \
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ! b7 I  O) }3 X% I! t   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    " C' p) \9 r5 ?" i6 A" ]2 m4 i    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", / x" q: Q) a+ T% V
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    6 t( u& P" W* J3 L   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    # u+ C" l, m6 _! O7 l   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    " p, q1 p+ V. ?: X   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    0 m5 e6 \# K* ?% Q   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    5 G8 M4 v2 s2 w& O% B# Q. K2 X   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
    * R* D' h' M% y& a' w  "}"}]], "Output",
    - G5 r9 p+ v3 H9 D: X2 K CellChangeTimes->{, P$ s! b- S8 i4 O; B+ a+ j
      3.577922682296875*^9, {3.5779582291435394`*^9, 3.5779582351339493`*^9},
    . c2 T8 W& N. k   3.577958478041973*^9, 3.577959010205701*^9, 3.5779622225483656`*^9,
    6 s: I' z  n7 W* B6 {+ p2 x   3.578012438953125*^9}]1 o( \3 v+ y- n
    }, Open  ]],
    ( j4 g* E  P: U8 W9 p
    3 \+ [9 N+ ]9 W* lCell[CellGroupData[{
    % n3 O& n& x! M; a% k$ j% l% f* t2 z, M- B# r' |$ |% U
    Cell[BoxData[
    ) v6 R8 f& w: z! i RowBox[{"Data", "[",
    + _9 x% J9 }1 g5 r  RowBox[{"[", 4 i- R9 a7 `& {4 ]$ O- c
       RowBox[{"3", ",", "11"}], "]"}], "]"}]], "Input",
    2 y+ L: t, d2 P3 t& q CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    % Q& L+ ]# N1 C4 u6 K1 l( Q$ _   3.577922912015625*^9, 3.577922912171875*^9}, 3.5779582414831605`*^9, {
    / R9 Q% {' N+ I3 v* q. I   3.577959014090108*^9, 3.577959016040111*^9}}],
    . q- ^; l; _# E9 C; M& {  A3 P& C5 ~5 w" [
    Cell[BoxData["0.492958`"], "Output",4 E; B3 R9 H: Q# d6 o5 M' O$ e
    CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, 5 \1 D- ]. x3 z- j5 e3 v& H( U
       3.577922913203125*^9, 3.577958242809163*^9, 3.5779584790403748`*^9,
    * j+ `" t4 v% X% J* p   3.5779590175689135`*^9, 3.5779622239523687`*^9, 3.578012439828125*^9}]4 V1 o- L; D. n- P6 P: ?8 E$ i! o
    }, Open  ]],1 n& H* J! X1 _' `3 m5 }" e

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

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

    ! ?6 d/ u2 f) I7 JCell[BoxData["y2fit"], "Input",
    # V: A$ ?# Y6 Q" Q7 A, S CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {
    ; H& ?% m+ h5 m0 J8 f   3.577925040484375*^9, 3.5779250440625*^9}, 3.5779583419785357`*^9}],
    2 S: r/ d7 E0 h, V3 z: B# c3 z6 }" H* y$ q/ r
    Cell[BoxData[0 ^3 P: n9 R6 j# E3 g5 S
    RowBox[{"{",
    0 o; t9 R2 m* V  RowBox[{
    ; J4 B! j( Y  O! k  p  }  "0.4853171132859182`", ",", "0.4508635216665074`", ",", 3 _. b  s; h" h: z$ b) _
       "0.3642119241752518`", ",", "0.42852077425595436`", ",",
    : O* s+ v6 ~9 i" P   "0.4712694272667798`", ",", "0.5257533056184774`", ",", 8 U% @3 M( {# C; Y5 L$ [5 ]& u, c8 N
       "0.48620658140716133`", ",", "0.41106838915591876`", ",",
    5 ]; G; A0 b; T   "0.5486894206610674`", ",", "0.007731168540073459`", ",",
    : i; G) z3 B- L5 ^5 ~& J9 w- m   "0.013872406140339109`", ",", "0.3956995051659558`", ",", 6 n: E+ q! ?4 S4 C5 [) a# p
       "0.3663118256142708`", ",", "0.29094217358055163`", ",",
    ! [* Y: q1 Q. |# R+ X5 u1 |% i   "0.5453093690736555`", ",", "0.44138898880777927`", ",",
    ; Y+ i# w* R/ s* [1 N! X: k: D   "0.42944922031163496`", ",", "0.43092890556748836`", ",",
    ! c" e; F8 S! s* C' b   "0.5942402821739969`", ",", "0.330046090785457`", ",",
    8 T7 B2 p+ |, E2 M$ M5 l# c   "0.18938658036630585`", ",", "0.4263720292858679`", ",",
    8 `1 [) g5 y9 J# a; k7 L/ \   "0.23377136184738775`", ",", "0.02232858193309988`", ",", + h1 r" u% N+ E. ?' e+ [
       "0.244364200084268`", ",", "0.5562383565309971`", ",",
    0 f; h* _& p' r$ J* F& O+ P: w  h5 c* A" X   "0.13114103402954333`", ",", "0.5815052048989465`", ",",
    # \  t5 C' @/ n. W, S/ I0 `: Z   "0.4253455966293501`"}], "}"}]], "Output",
      M% b* Z0 x) J CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9, - s, `) Y) @( a/ @$ S
      3.577925312375*^9, 3.577958343257738*^9, 3.577958511784832*^9,
    2 W  ^: t6 Q" s1 X6 n  3.5779590518421736`*^9, 3.5779623249157443`*^9, 3.578012452421875*^9}]! R9 P: T5 p/ f# y: B, V( N5 G
    }, Open  ]],
    1 ~& j5 A8 A, B3 O
    ; r  V8 t5 }/ Z( w  ~9 h5 uCell[CellGroupData[{
    / v. K* G3 Z$ i7 C' w/ }1 A) l* d% o- I. ?$ X
    Cell[BoxData[+ d  i- ]( A, ^$ n4 v( {% [- q# K
    RowBox[{"y2fit", "=",
    ' ^( V: V0 ]& K" N" C% ?  RowBox[{"{",
    0 h' j* `* `' }5 D" G   RowBox[{9 F" a: o4 Y9 h7 C; @7 |
       "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 \# [1 u7 l0 Q" O% I    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % ?( W2 Y2 l  k; W3 u5 F: X3 E
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    % `3 {" W' `+ m    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
    " Z: h6 D: }' ^4 Y- W) P: l    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    7 {  M5 o0 g7 H6 v) Q$ x    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", 0 W4 b% G8 V4 [8 q5 A, d
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    # n8 \  q' N5 h- @/ X% C7 |) e7 ]  S    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    , U$ S8 @/ `9 J  u  |- l    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    , U4 G; x4 ~3 Q/ Y+ D$ Z; R1 v    "0.48531711328591953", ",", "0.48531711328591953`", ",", " m' K; z5 u3 p0 B0 s
        "0.45086352166650845`", ",", "0.36421192417525217`", ",", ' ]' d0 }" t: |9 @2 B+ y
        "0.4285207742559556`", ",", "0.4712694272667811`", ",",
      C" h" W6 Q) A& @+ S. U0 O    "0.5257533056184786`", ",", "0.4862065814071623`", ",",
    & g0 I, [" s, S. C* L! O0 P    "0.41106838915592014`", ",", "0.5486894206610683`", ",", - Y7 T- }; U. t
        "0.007731168540073532`", ",", "0.013872406140339166`", ",", % P" Q- v6 R2 {$ ~
        "0.3956995051659565`", ",", "0.3663118256142717`", ",",
    * u, i3 p0 B! J' L$ d3 [    "0.29094217358055185`", ",", "0.5453093690736568`", ",",
    6 o  Z% [. G$ S" e3 p- g    "0.4413889888077799`", ",", "0.42944922031163585`", ",",
    ! D7 {  s$ g. F. c( v    "0.4309289055674891`", ",", "0.5942402821739983`", ",", 7 u& r2 e: L; d- L& k
        "0.33004609078545805`", ",", "0.18938658036630632`", ",",
    7 h/ a* f4 k) \+ G7 |5 t! A    "0.4263720292858688`", ",", "0.23377136184738778`", ",", 8 {4 y, D+ ~  ?8 Q" b: ]6 x
        "0.022328581933099827`", ",", "0.24436420008426807`", ",", 1 f. n/ ~# j4 r# Y* }( L8 o
        "0.5562383565309981`", ",", "0.13114103402954314`", ",", 0 w/ ^$ ^5 ?  z/ [, G' W
        "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]}]], "Input",
    & q5 L& K* y3 {  r7 A2 Y+ @ CellChangeTimes->{{3.577959355746303*^9, 3.5779593854019547`*^9}, {
    $ A1 S0 t, X9 e1 U9 g& E8 C+ Q8 \6 I  3.5779594223272195`*^9, 3.577959425104024*^9}, {3.57796233399496*^9, 4 m: x% H. V: i* B3 X
      3.57796233957977*^9}}],
    ' p" B- c( `# {3 ~7 L; e
    2 x/ m* B$ \- }# Z+ u+ A+ ]Cell[BoxData[
    1 z' k! g! p( u* I. a RowBox[{"{",
    7 i: v1 U6 L+ X# ]) d  RowBox[{. N) P3 B; ]1 y
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 u# m7 Y4 I# r0 e! V, I   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    + o& |! \$ H$ [1 z. j+ Z    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 6 n4 t7 e, G4 n. h& I6 h4 h9 r
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 5 [& x# E- v( M( [
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", 0 t% S* d9 k  L! ?& A0 S3 v
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    : E& y% j' O$ N   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    % x  ~/ h& E% g# A& v   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    4 `' C7 k$ v* _   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", 1 j' h3 p2 ]9 P9 }
       "0.48531711328591953`", ",", "0.48531711328591953`", ",", 5 x1 }: [; [+ l2 r2 ~" \0 b$ I
       "0.45086352166650845`", ",", "0.36421192417525217`", ",", 6 p4 M$ ~) W2 [7 K7 f1 J( ~
       "0.4285207742559556`", ",", "0.4712694272667811`", ",", $ ^* F4 d0 H6 T! b
       "0.5257533056184786`", ",", "0.4862065814071623`", ",",
    , Z0 w3 L+ u) V2 ~$ K   "0.41106838915592014`", ",", "0.5486894206610683`", ",",
    ' o3 T' h9 ?- h: p   "0.007731168540073532`", ",", "0.013872406140339166`", ",",
    ( N5 [/ s# V  U& |5 y8 i5 D   "0.3956995051659565`", ",", "0.3663118256142717`", ",",
    0 E% k& A: p" n  X9 y   "0.29094217358055185`", ",", "0.5453093690736568`", ",",
    8 Q- n* v/ x$ B, Z   "0.4413889888077799`", ",", "0.42944922031163585`", ",",
    2 q8 Q1 x- Y5 [4 a( C" d. ?0 {8 P   "0.4309289055674891`", ",", "0.5942402821739983`", ",",
    2 L9 {8 q/ @# |9 x   "0.33004609078545805`", ",", "0.18938658036630632`", ",", " U1 D4 W! Y6 w% I: K# k
       "0.4263720292858688`", ",", "0.23377136184738778`", ",",
    - v6 {7 c0 N( _/ A8 r/ r( e   "0.022328581933099827`", ",", "0.24436420008426807`", ",",
    2 o: l: ~0 N5 l" V# P   "0.5562383565309981`", ",", "0.13114103402954314`", ",", . g% ]" ]7 |9 q: Q# n( k* }
       "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]], "Output",: p' r4 f& \/ d( C# [: a( U$ x
    CellChangeTimes->{3.5779593961191735`*^9, 3.5779594268512273`*^9,
    2 }: O: G5 l2 o4 {  3.577962342060174*^9, 3.57801245340625*^9}]
    0 U2 Z& n5 c" k# u! \}, Open  ]],, w9 G! r5 k6 W. G
    : @0 T- R; H9 |: ]
    Cell[CellGroupData[{
    2 o' Z9 _1 a0 r
    / r& z1 {4 m; d; R$ O, SCell[BoxData[4 L; R( {( N+ y0 O. z4 Z
    RowBox[{"y20", "=", . W8 P; h0 E! K4 k1 A! L: \! P
      RowBox[{"Table", "[",
    9 L9 u1 a5 ^! }; t% d' v   RowBox[{"x", ",", $ ~% L9 F* B% Y
        RowBox[{"{",
    0 L& h, b8 X* d( K* n" ]6 k     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",; t5 b. M, D, B; _
    CellChangeTimes->{3.5779253628125*^9, 3.577958351198152*^9}],8 Z3 i% l. z* d) W6 \0 V: M

    $ f5 s! N5 i9 W0 T1 ZCell[BoxData[
    0 p9 i! v2 v% a RowBox[{"{",
    ' r* V' g$ y0 j2 |( w8 ~$ [* X  RowBox[{
    ! a5 ]6 `/ i7 F& A" |/ p: g) z  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", " k  ~1 C% ^( @) `# U4 L0 Y, P
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    1 T1 T( m0 }& H% I* }    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
      B( [. J6 s3 r5 F   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    ! q5 x( c- q# t: Q" p; f) N   ",", "29"}], "}"}]], "Output",
    + ~. _  c+ f: f0 m5 C  a1 b0 u CellChangeTimes->{3.57792536553125*^9, 3.5779583535225563`*^9,
      }: C- {3 J6 a* c) `, ~9 @3 g. a  3.577958515653639*^9, 3.577959053714177*^9, 3.5779623443065777`*^9, - s* A/ `, }% u  x; f. M
      3.578012454875*^9}]
    & ?' V, v1 m8 b% J. |8 w. U}, Open  ]],
    : a3 T$ N5 V& k/ |' `7 M/ y( N
    : P7 P' D1 B' x- [& \2 B& Y9 F/ DCell[BoxData[' a0 S/ \3 F  h  ]9 Y  \/ I' P* s# X% x
    RowBox[{"For", "[", 5 v% z7 C/ T/ S  d) {
      RowBox[{$ l; K( J4 E! T6 w
       RowBox[{"i", "=", "61"}], ",",
    7 w$ b$ Q, e! g) Y. E; j   RowBox[{"i", "\[LessEqual]", "89"}], ",",
    : q' J3 V9 y* S% Z" J5 h5 z' x   RowBox[{"i", "++"}], ",", 9 U* ]  j; a3 a4 i; o3 m
       RowBox[{4 Q& ?1 Y, z+ w2 C! ~
        RowBox[{"y20", "[", 7 M6 @1 |2 @. ?- t5 H& H
         RowBox[{"[",
    1 N2 X$ c' T& d3 d3 Q      RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
    - F: X( U/ |% y& ~$ \5 T3 `/ b    RowBox[{"Data", "[", - R6 k# Y+ G6 j6 i* {$ {7 ?2 j& A3 x
         RowBox[{"[", . ~# G- Z' R, K* `
          RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
    ) ~$ g+ `& P! N3 I8 c5 Y7 q. ^ CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {1 A5 {# {: |! E0 L( S& x8 T
      3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    9 l' g% p# l4 F& F8 p2 N  3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, {
    : y% G- M* C# H. G; {  3.5779583574225626`*^9, 3.5779583606673684`*^9}, {3.577959056849782*^9, 6 u" \: U( f1 m# P! Q- s, {+ B' j  S4 s
      3.577959058690585*^9}}],
    & o. ]* f* K8 ]! g/ y8 Q7 V( F- ?: T$ Q8 c$ f
    Cell[CellGroupData[{2 D+ U8 \: t# I$ v
    2 R4 W& f" m  C0 k" m
    Cell[BoxData["y20"], "Input",
    ( b2 _! C) [0 p5 B8 D* M/ W( B9 b CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
    5 s2 }3 d' Z3 l' k" z3 e6 s2 _   3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9, $ Z5 D1 e0 r# _; S
       3.5779583657841773`*^9}],
    8 U* s: t4 }4 ]( P2 r% g# M3 Q9 {) `- M; A' S, p
    Cell[BoxData[5 ~5 `) l+ h, V+ h2 o: A
    RowBox[{"{", ( d3 T9 i  `/ x2 N$ B
      RowBox[{
    5 m( h" A# S; W# w  "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", ",", * [1 [0 ~! R5 l( T; v
       "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",
    ' u+ h" d' Y7 i/ Y* Y7 l   "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",", / @6 a8 {2 Y8 B1 e: ~
       "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",", . Y+ A3 p2 n* x- J
       "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
    3 O. ^( _6 q. @8 M! X. n   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",", 7 E! e4 y! }/ {2 m: O0 N% Y6 }
       "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
    1 h# J& X$ Z2 {% H0 I+ c   "0.323944`"}], "}"}]], "Output",) u( ]& q- @" s' [
    CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, 7 ~6 F& q0 W+ l0 s
      3.577925393046875*^9, 3.5779583678277807`*^9, 3.577958517946843*^9, / d6 z7 x7 f* J" l" y
      3.5779590634017935`*^9, 3.577962347629384*^9, 3.578012456484375*^9}]
    ( ]- s3 l# r& ]% o}, Open  ]],
    5 O7 V# h% @; i% E' R; B) Y' c" Z  w0 T) [0 @
    Cell[CellGroupData[{
    , O* k1 t7 B% K6 b' ~- D' r% I1 F1 N: v6 H! l  r$ [7 S
    Cell[BoxData[. d8 l( f7 |. ^% P
    RowBox[{"y20", "=",
    7 Y' f" f8 W* W, S  RowBox[{"{", 0 H3 b9 L- B+ y
       RowBox[{
    : w- \; W- d1 v# C   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    . v: b/ A' s# I: Q1 {' a+ @7 F    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    9 U+ }1 O4 I- Y    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", / l5 p& e: l% _" @% Z7 S
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", ) O" W  L+ f5 f! g: r7 h
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    $ N5 }4 n0 U6 x9 A, d' r( y0 O    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
    1 M0 |3 K3 R# i    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", " C, l' W9 P8 z/ J( [6 \. Y
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", # r' m0 G- Q. {9 A$ s
        "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", ' j% ^  g/ j. a) M' p
        "0.507042", ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", # ?1 ~9 ^3 G8 }# c: X  Q$ I
        "0.338028`", ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",",
    + A# ]' {5 @0 X, h* ]2 E- M    "0.408451`", ",", "0.295775`", ",", "0.661972`", ",", "0.774648`", ",",
    , o% c  F0 a- p  o7 E8 j7 Y# f    "0.746479`", ",", "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", ! B, Z, u7 i1 A/ o* d/ z8 h
        "0.760563`", ",", "0.43662`", ",", "0.633803`", ",", "0.422535`", ",",
      v* v- n+ L9 a: ?' w    "0.295775`", ",", "0.309859`", ",", "0.408451`", ",", "0.197183`", ",",
    0 a! B  a6 y  B& Y  \    "0.732394`", ",", "0.802817`", ",", "0.746479`", ",", "0.380282`", ",",
    9 n+ o# s/ r: i" t    "0.56338`", ",", "0.323944`"}], "}"}]}]], "Input",% W7 q+ j- ?4 X5 E9 l
    CellChangeTimes->{{3.577959534959416*^9, 3.5779595573142548`*^9}}],
    5 }' P  g9 V2 U' [7 `& `$ N+ H/ y8 b6 g: N( u% C
    Cell[BoxData[+ M5 b) [' y  L3 q6 B  e, U" P' [
    RowBox[{"{", 7 v' `$ i% Y5 k- s
      RowBox[{  n3 c6 m1 o3 O, c  U1 @8 H
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",   {- O. @) V& @6 a9 R
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",3 |+ c, R" G: o# W. t+ v4 c
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    & v; t3 {% D4 t) P; A   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    0 i, d- z5 Z' N& r   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    & s8 [, e( W: d8 l, O, _3 \- F   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 3 k& a; p1 h* B! P
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    ! E; }) \9 t7 E, M* t8 O) G   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 3 W4 ^, B, S# i6 Y6 H( P1 F+ N  L4 l
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.507042`", & Y: }9 p7 S  F! K5 c; I
       ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`",
    + t8 A" u9 Q& t. M+ u   ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ","," M' a, d# t) ~1 M4 E7 J
        "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",",
    & U" i1 n0 J3 w& _   "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",
    / h( d& ]9 c$ L; S; k5 Z   "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
    1 ]0 I+ j6 o, B" _8 e" V- x8 I9 }  q6 i   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",
    , E9 N4 [9 X+ ^6 C" H   "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
    2 A, f0 M- {* \7 a* {7 O# s   "0.323944`"}], "}"}]], "Output",
    7 a0 S5 }/ o2 U7 { CellChangeTimes->{3.5779595594514585`*^9, 3.577962351778991*^9,
    & ^  I% v. }6 w( \8 `! K; Q  3.578012457234375*^9}]! c& H# D- B# \8 D0 \1 p* y
    }, Open  ]],
    * V' I3 l8 O6 d7 q: c+ e& j" L" j
    Cell[CellGroupData[{
    # `# I# t  o/ t2 Y
    % }( r. h1 {2 T/ q$ X3 O. H0 G2 V+ wCell[BoxData[, R0 G/ K  f, D! K. G3 }
    RowBox[{"p2a", "=", ' C0 J6 f+ u( ]9 ]
      RowBox[{"ListPlot", "[",
    - @5 B6 r" _2 h+ _   RowBox[{"y2fit", ",",
    % x, [- O: G4 g; m    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", 4 l/ g4 N% w0 s! x
        RowBox[{"PlotStyle", "\[Rule]", 7 L! D/ C- a  o1 n4 }
         RowBox[{"{",   ~/ j4 m( I8 W% Y, i" V+ w! R
          RowBox[{"RGBColor", "[",
    & W5 K1 C8 w( d       RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
    - P8 u; C  p4 R0 s% U7 Y* ?" U    RowBox[{"PlotRange", "\[Rule]", # ~: X3 b7 n4 i2 s2 g/ |+ o/ l
         RowBox[{"{",
      W  ^/ |$ ~8 e# g      RowBox[{" {# h$ @; V9 K/ H2 z  R
           RowBox[{"{", $ R) l: c5 K. j$ J
            RowBox[{"61", ",", "89"}], "}"}], ",",
    0 o# b3 B! R5 d8 W; K" S5 s' p. }# [       RowBox[{"{",
    4 [! W  ^& r9 I  m+ }        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    ( g+ I- k# A- A  l2 B6 v+ ?7 A    RowBox[{"AxesOrigin", "\[Rule]",
    6 J- d* {0 v/ b  q9 q; S- ~1 q+ v     RowBox[{"{", ; S& s" S2 D6 l' O
          RowBox[{"61", ",", "0"}], "}"}]}], ",",
    $ C" r4 F/ s2 t& r    RowBox[{"Frame", "\[Rule]", "True"}], ",", * @% [6 e" T- e# I$ }
        RowBox[{"FrameLabel", "\[Rule]", $ q& ^4 v8 h+ h. `9 T, [. @
         RowBox[{"{", " n' w& x! {% ?7 [0 [
          RowBox[{
    ' A/ U' p# _9 V) \      "\"\<\:7089\:6b21\>\"", ",", 6 `( C2 ]8 t# M. P' r
           "\"\<\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\
    7 U- m, h( X+ t! @* o  {& T\>\""}], "}"}]}]}], "]"}]}]], "Input",4 Z. c. ~+ d& S; H4 _
    CellChangeTimes->{
    , R8 e7 @! D6 }7 C3 I' A  3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
    / ?6 ?+ S- r. G4 Z: u9 D   3.5779583712597866`*^9, 3.5779583781393986`*^9}, {3.577958536604475*^9, 5 f$ z4 _6 n6 {; Q/ d, ]
       3.5779585491624975`*^9}, {3.5779592802577715`*^9, : A& d- S: B2 ]% H+ t
       3.5779593014270086`*^9}, {3.5779594039971876`*^9,
    / p6 {6 e# C1 s. F2 I   3.5779594059783907`*^9}, {3.57795949706695*^9, 3.5779595174717855`*^9}, {
    3 x& m0 S+ M8 i5 @$ F+ s1 q   3.5779604302529774`*^9, 3.577960442311798*^9}, 3.57801246978125*^9,
    7 c9 n* K% D' s! @, y  j' |3 m   3.578012920859375*^9}],- y+ z2 ~6 @$ S  j
    ; O4 w+ b3 _6 o3 s- t$ Q
    Cell[BoxData[. k' N; R2 w6 J2 N
    GraphicsBox[{{}, {},
    2 t# B* u4 S% [5 M9 d1 X   {RGBColor[0, 0, 0], LineBox[CompressedData["
    # X, [* n2 w/ c0 M, G9 h( x1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
    , \  h* s  K7 r& d% [7 x& E  E/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
    , J. W/ W$ j# d8 @9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P/ ^9 L0 c, \: P. Z& J0 ~6 i
    ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC+ Z! X' o: s- L
    qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
    . }! D3 ~' F' s: s1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx% N3 R- |. A6 B8 }$ ?
    0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
    1 A" b/ t: E) gsPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH6 q+ K1 }. F0 n
    99yxuG0PAHw7nyU=
    1 _% M( D( X  t; j5 f     "]]}},' f! n# @0 J5 ~# T1 Y6 z
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    - h9 e5 {2 o9 J) T) u; J! [% J  Axes->True,9 w8 k9 v" }  F0 f* L+ A) Q
      AxesOrigin->{61, 0},4 L+ w( }7 r# d& b6 V! ^  R
      Frame->True,8 K% @( b  F+ e2 F9 W
      FrameLabel->{) E# v# A7 o6 q& E1 M5 X
        FormBox["\"\:7089\:6b21\"", TraditionalForm], & Y% F8 n  r& W( g* ~
        FormBox[) |' S& T5 m# F+ H4 M
        "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", 9 m/ v; q4 X; Q+ z2 j  P
         TraditionalForm]},7 m) P: v1 Q" k# i3 J
      PlotRange->{{61, 89}, {0, 1}},% `, u2 [5 c* i/ [! ~
      PlotRangeClipping->True,
    ; D+ e; S$ |: I$ M4 q, w7 A  PlotRangePadding->{Automatic, Automatic}]], "Output",8 ?: H" S! s" s& k7 D
    CellChangeTimes->{
    + q' a' t0 k- V" |, b; _  3.577925144625*^9, 3.577925396578125*^9, 3.5779583797150016`*^9,
    7 y. N  C' g  X2 y   3.577958519990446*^9, 3.5779585510813007`*^9, 3.5779590670678*^9,
    # _; y# X6 H; _6 l9 F   3.5779593035642123`*^9, {3.5779594075383935`*^9, 3.577959430158433*^9},
    7 Z3 H* |1 t) A) e   3.5779595184233866`*^9, 3.5779604438874006`*^9, 3.5779623548833966`*^9, 1 x- o* ?2 M% S7 z" r& i
       3.57801247209375*^9, 3.5780129225625*^9}]$ ?. T; y. B% H# t! I
    }, Open  ]],
      r" e$ f; r" {# `/ F$ G% W# m) N9 n6 B4 \& P' V2 ~
    Cell[CellGroupData[{) ]2 q: u1 e5 X( t/ b
    . j* U3 T. }1 ^
    Cell[BoxData[: I" u) c  V2 \8 J: ^# k
    RowBox[{"p2b", "=", : w5 T1 ^+ L; y* k4 O
      RowBox[{"ListPlot", "[",
    1 v  x+ S  a* Z* D, ~& I, k" |7 x   RowBox[{"y20", ",",
    0 d0 k- t$ Z, W) K/ y, s7 _    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", - c- M1 Q# P: ~( ~. Z
        RowBox[{"PlotStyle", "\[Rule]",
    % D) ]8 X: f, ?, o3 {     RowBox[{"{",
    " ~+ g# u  [  W" }      RowBox[{
    4 D4 E/ k  w) {# C       RowBox[{"RGBColor", "[",
    ! ]+ T6 s! b% F) J: W. K/ W" c        RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
    3 J$ X$ X1 R0 M" y* v6 W! O% z    ",",
    / Z( V8 ^+ I! Y    RowBox[{"PlotRange", "\[Rule]", ) e$ b0 h! _) c& j7 u0 [) K4 ^, [
         RowBox[{"{",
    - \# I$ C7 A2 _7 d      RowBox[{, f3 Q6 @- \9 v+ ^3 {
           RowBox[{"{",
    - }, {6 t) Z& M' G- l* T: V        RowBox[{"61", ",", "89"}], "}"}], ",",
    ) A% u3 t8 m& R9 e$ \       RowBox[{"{",
    5 E' h! E" X# ]: |' t        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", & v0 E( C9 g" c% x
        RowBox[{"AxesOrigin", "\[Rule]", 8 w  O# B+ X) D( a# z6 ^
         RowBox[{"{",
    / h) L! N2 U. x6 ?! b$ ^      RowBox[{"61", ",", "0"}], "}"}]}], ",", ' U* N  @' G1 [! ~* p5 Q7 ^
        RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
    * D2 a6 {' q& o9 p CellChangeTimes->{' f* H- D0 ^) o$ r
      3.5779253991875*^9, {3.577958382429406*^9, 3.5779583843326097`*^9},
    - R! z) C# L/ B6 z0 E   3.57795855655691*^9, 3.5779595724462814`*^9, 3.57801248346875*^9}],
    & M; N* B9 E$ _0 o9 t7 {- O9 `. A
    . }* ?, T- \/ SCell[BoxData[4 q1 G6 w) I( _3 x* t; q
    GraphicsBox[{{}, {},
    $ P. Q4 b4 b1 P* e0 I6 h, v   {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    . D5 p: u$ Y3 B0 I1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
    # ^6 F) ]# G& o# h$ G  I6 H8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV7 X/ G% w- s5 ^) G7 H
    c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc8 M$ t* [# \% Y7 `) M
    iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
    8 i- V& d, }5 j6 \. |TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO$ W  k5 Q  Q4 s6 b" N
    fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
    " j  n0 j" S9 K0 Y8 D: G' hTWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
    1 A5 U, _, Y6 K, E' Ap0OYg4Fg/tz63VfsAdsCnzU=* B9 b8 _8 ^, v' c* J" O4 {
         "]]}},
    0 |; T: E% g8 `* q, m/ v  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],7 P6 X4 [3 c8 x
      Axes->True,$ z+ ]( c- ^: a; J
      AxesOrigin->{61, 0},: r/ D6 F( O8 V. [: Z3 M+ _- \
      Frame->True,
    6 d/ N1 C- O* S9 ]5 \  PlotRange->{{61, 89}, {0, 1}},
    - s5 @4 m. L" M5 D0 @" p  PlotRangeClipping->True,
    - u- q% X6 `. I  PlotRangePadding->{Automatic, Automatic}]], "Output",$ Y5 ^( c  P2 v* n" r. j
    CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9, ( e% N% L% A, ?! Q
      3.5779583861890125`*^9, 3.5779585219092493`*^9, 3.577958558132513*^9,
    - X; F/ ~9 X8 ]$ O. X  3.5779590691114035`*^9, 3.577959577906291*^9, 3.5779623569426003`*^9, 6 M; T' l9 e  W5 L8 O# l. l( q4 ~
      3.578012484703125*^9, 3.578012925875*^9}]( L' K4 F: o7 S, l0 ]* O3 E
    }, Open  ]],
    0 U  x2 K* X4 W, j
    0 O! o4 v5 Z+ p( A" B* ~Cell[CellGroupData[{
    . V" j' @3 y1 V; _
    - U  T; T: ]4 r( @! }1 oCell[BoxData[% f$ U0 w' h6 e  U  y% N
    RowBox[{"Show", "[",
    $ G, n4 M5 ^  h% E% d+ Y" |  RowBox[{"p2a", ",", "p2b"}], "]"}]], "Input"],
    ' e- }9 o# H- g0 c: g; z# `) I" l/ G4 a% X& j
    Cell[BoxData[2 w+ n1 O3 h# I
    GraphicsBox[{{{}, {}, # w4 M( O% J& O8 l: K, _! }  f3 [
        {RGBColor[0, 0, 0], LineBox[CompressedData["# M3 h  V) Y' h* M7 X0 ?
    1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
    5 @8 ]/ L- M+ V1 u$ X& s/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
    $ M8 l5 u- f; }6 V6 r9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P
    2 e- W& v6 z0 \ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC; P1 _! Y0 e& }* L3 `
    qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
    4 [3 a+ Q% _  V3 W1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
    5 ^" C; n1 b! y! [' W/ `0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p17 I3 I0 ?) o' k- t0 g( u
    sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
    9 e( v$ W/ J- l$ ~- [  ~$ `0 [. A3 f99yxuG0PAHw7nyU=
    4 }2 R( s, j: ], I% `& E      "]]}}, {{}, {}, 1 H, b% K; ^3 B& p3 `
        {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["; o1 G" O5 ]% e& w7 D0 _
    1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn9 W1 ^) H% k* r5 k3 H
    8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV# i3 o, {$ `3 L! o) Y& U0 N6 n
    c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
      Q. o# ^& N! ?3 {3 siX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4' E+ ?! b# F3 [& t* a
    TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO. P' k2 F; _0 C* N9 U
    fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
    ' y6 b' `8 i% P4 A* K% m0 {0 ?7 iTWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
    + _2 s- p$ A9 Y" Jp0OYg4Fg/tz63VfsAdsCnzU=
    " m& m7 V$ Y+ F2 w5 A9 ~4 ?      "]]}}},
    3 I* F" J1 e; H! K" r" l7 V  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],2 \& t! n  |7 h7 t* A; j9 `
      Axes->True,$ _4 k4 v- ]- Q  z  l+ S
      AxesOrigin->{61, 0},
    " `% c: h/ W5 b2 n) }  a, n  Frame->True," q7 [/ P+ W/ l! t  c' M
      FrameLabel->{
    . k; @, a& z/ |9 @3 ?    FormBox["\"\:7089\:6b21\"", TraditionalForm],
    4 x! P$ S) e" ^5 m* e* d    FormBox[
    7 X9 \* d% m. O0 h* K    "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"",
    6 F; o4 W: o9 }0 H     TraditionalForm]},
    $ p1 q, j/ V2 p8 o# V  PlotRange->{{61, 89}, {0, 1}},
    3 c/ P+ R! x1 p; _- y  PlotRangeClipping->True,
    $ n; T/ X$ G0 }9 H, y0 P  PlotRangePadding->{Automatic, Automatic}]], "Output",
    % e2 M) `: _1 Y$ g8 T2 D; n CellChangeTimes->{3.5779623624182096`*^9, 3.5780124863125*^9,
    # T$ J$ h0 [. V5 E- H9 h  3.578012927734375*^9}]/ d9 D4 n- O# N+ R4 ]0 b+ `' L' c
    }, Open  ]],
    0 V# [' ?0 q, P! \8 Y
    " @0 f# H8 R4 p2 h- B! QCell[BoxData[
      e1 q' D& j( p RowBox[{"\:ff08", + ]) Z/ y& g- t; L  h7 S
      RowBox[{
    - Q: G" b' X. ~3 s8 H  "\:5df2\:77e5\:521d\:59cb\:94c1\:6c34\:8d28\:91cf0", ".7406", 3 M- |* T$ A- E5 g
       "\:3001\:5e9f\:94a2\:8d28\:91cf0", ".4621",
    5 V5 g  a$ G% h9 C: O& V   "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea60", ".5208", , Z, x4 h" i1 R0 q8 A
       "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:542b\:78b3\:91cf0", , T% A! t4 T* W
       ".2221", "\:ff1b\:76ee\:6807\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\9 p, }$ ]: C' N+ b. |6 |
    \:4e3a0", ".6224", : ]4 v# C2 v& X
       "\:3001\:76ee\:6807\:94a2\:6c34\:7684\:78b3\:542b\:91cf\:4e3a0", ".2521"}],: i. k3 m" m0 l! u  U
       "\:ff09"}]], "Input"],9 o# [) N. L# b# Z# b; Z
    % A9 ?) ^, V7 {1 |3 N, Q" l4 i! k! N
    Cell[BoxData[
    & D4 C3 w7 `8 W8 }; A RowBox[{"{",
    3 y, Q* S1 b! e. C* A! G# h  RowBox[{
    . R- [% v- _$ s5 }9 l  "\:94c1\:6c34\:8d28\:91cf", ",", "\:5e9f\:94a2\:8d28\:91cf", ",", 1 }  Y+ A: ^/ G9 U# |2 H
       "\:5439\:6c27\:91cf", ",",
    2 T  d( b! K& \   "\:4e0b\:526f\:67aa\:65f6\:7684\:542b\:78b3\:91cf", ",", # Y  w. G5 z& X$ g. @5 `9 Q
       "\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea6", ",", . W/ J) p. c) f0 {; C6 e
       "\:5757\:72b6\:77f3\:7070", ",", "\:8f7b\:70e7\:767d\:77f3\:7070", ",",
    * [. n0 {9 T% U! c6 h$ A   "\:83f1\:9541\:7403", ",", "\:5757\:72b6\:767d\:4e91\:77f3", ",",
    6 D7 U) A9 f# n   "\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf", ",",
    + i9 g0 j5 R: p3 l1 \5 `3 B   "\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6"}], "}"}]], "Input"],' X: d2 P, L' E6 H  v. X

    # u& D8 W% ]6 X1 _# wCell[BoxData[" "], "Input",  o. ~0 ?5 B# }: O  _& E
    CellChangeTimes->{3.577962834553033*^9}],
    ( `6 f! D1 R, P$ p  N, w, A
    7 b! a% c) P( k& [; BCell[BoxData["\:94a2\:6c34\:7684\:78b3\:542b\:91cf"], "Input"],
    % P' m: b$ T. S8 Z6 z0 ^8 |, V" k' g. G- R7 t4 O, @# f( e) ~
    Cell[CellGroupData[{% x+ ?/ n& Z" H- d4 S4 R6 P% {

    & J/ ~0 A$ X; V/ H5 a9 l+ f0 bCell[BoxData[0 ?2 L% ]0 R! m; B! Y' J$ \( v( n) S/ U
    RowBox[{"y1", "/.",
    ) q$ A' w  @: }$ L* q4 |  RowBox[{"{",
    6 T9 B/ L) [6 M   RowBox[{
    3 w3 P7 m/ s4 u" `    RowBox[{"x1", "->", "0.7406"}], ",",
    / f) P/ \, X7 R    RowBox[{"x2", "->", "0.4621"}], ",",
    3 B9 t( i" w: M: f1 b    RowBox[{"x4", "->", "0.2221"}], ",",
    6 I6 Y; c5 L8 n: V+ I! R    RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",  w; J3 i0 C8 @; a# l! \$ |: C: Z
    CellChangeTimes->{{3.57796267209435*^9, 3.5779627224200373`*^9}, {9 D2 C. C$ d5 b* e3 g" D- B6 Q0 R
      3.5779627663029137`*^9, 3.577962774820529*^9}}],* B; A% H7 `* Y/ S3 ?' A
    . k' |: k9 L/ j) _) D9 j+ y* f+ U
    Cell[BoxData[
    5 L. {6 Y; N& m0 r! |( U. o1 t' S RowBox[{
    * X" T+ L3 ?- k: W  RowBox[{"0.2286149508637297`", " ",   }( S4 K) @% d4 \, C
       SuperscriptBox["\[ExponentialE]",
    : E" q3 D' y: E  @& z    RowBox[{"3.1415926535897936`", " ", 0 q7 v3 U7 x  G& k; O% Z
         RowBox[{"(",
    ( Q- B9 G' Z) P5 T  T& N* P      RowBox[{  w6 z$ ^$ E  p& @5 E& \8 Q
           RowBox[{"-", "0.17911224641499998`"}], "-",   T3 p" R5 P$ C- V
           SuperscriptBox[
    - p! O  y1 \: B: a; A3 j        RowBox[{"(",
    + a2 ~! n" P$ C# P- U         RowBox[{
    $ W% g* b9 Y# I; j4 o7 Q5 X          RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", , r$ y# G- E  D% [' H
           SuperscriptBox[$ Y' `) V, r% X  f2 Z
            RowBox[{"(",
    . |% E, w" {% h  \         RowBox[{
    * l  `4 z6 |8 [% D/ O3 F" Q          RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
    4 K" L' A( O  Z) e& R9 ?       SuperscriptBox[
    ( n$ K0 D5 N; d0 V: c. E; q! Z        RowBox[{"(", . }$ ?. a$ k# D6 U- Y1 S
             RowBox[{
    " X" g$ `, x6 `7 F' Q& x          RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
    " k, n6 M( t7 e/ I6 ~, B, m6 y5 \       SuperscriptBox["x8", "2"], "-", 6 x" C5 ?8 V3 l& o. Q
           SuperscriptBox[9 P% q- L+ M5 s$ Y
            RowBox[{"(",
    9 U0 f) b5 ?, S/ d         RowBox[{$ l$ y% E5 t' ~( S( S
              RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+", & f! O6 \( ~- p
      RowBox[{"0.020180806675835994`", " ",
    # Q# A9 Q, O( m/ E' ^. o   SuperscriptBox["\[ExponentialE]", : e4 a2 c6 Z5 Y6 h) A* n
        RowBox[{"3.1415926535897936`", " ", # M6 \7 \# j6 U, i+ y
         RowBox[{"(",
    $ v' d- }4 t4 g$ L5 L0 A' s      RowBox[{+ }+ n5 l# `" L  s. R! P1 Q
           RowBox[{"-", "0.105619387859`"}], "-", 7 `) ?$ s% p( O6 G; n' N1 l
           SuperscriptBox[; l3 a. w: p( G! T6 l
            RowBox[{"(", / H! Y( o4 h8 c9 n8 Z
             RowBox[{
    / j4 e4 s- }" y4 N6 T6 v          RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", 6 m6 C- Z& Q  Z! b7 m2 E0 n
           SuperscriptBox["x6", "2"], "-", 7 ~; j, i% V# S+ A7 e8 y
           SuperscriptBox[! P7 k# a! b; X9 C( c6 v2 A
            RowBox[{"(",
    5 r% c. Y* Y7 S7 L         RowBox[{+ \# p6 N6 `6 E! J+ _
              RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", % k& S/ b) f) I* q& Q
           SuperscriptBox["x8", "2"], "-",
    ! Y/ k' x( F* C; F6 F       SuperscriptBox[0 B( Y4 w# l2 Q* b& [! e" M! F5 L' T
            RowBox[{"(", 7 [+ S, z6 s1 ~1 C6 ]5 L
             RowBox[{
    : d$ e( ^- P( ~) J5 I. A6 V          RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ' @( K. t& q" m6 H
      "+",
    , N, P4 O9 B# V6 G7 o  RowBox[{"0.13092706311748437`", " ",
    : K; w! p& [  o2 {   SuperscriptBox["\[ExponentialE]",
    . ^4 N2 P+ T+ {    RowBox[{"3.1415926535897936`", " ",
    ( w$ z9 F) R: {5 f     RowBox[{"(", ) W& W) W; P0 s& K. g
          RowBox[{
    : [) i! `$ O( R, j" a+ u* f2 q  ]       RowBox[{"-", "0.236605670085`"}], "-", ) W# U0 V' ^1 v7 N
           SuperscriptBox[# m6 K4 m4 T6 s* \" Y
            RowBox[{"(", 8 g, {0 J' m* T8 u6 c! c! C  t
             RowBox[{
    + u; d+ z) P3 y" L4 d' [9 l( D- {3 F          RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
    1 b2 a8 U0 `5 A0 `8 J       SuperscriptBox["x6", "2"], "-", , O) `& l" B- U4 e/ ]* e
           SuperscriptBox["x7", "2"], "-",
    9 k. Z% x5 g4 A# O       SuperscriptBox["x8", "2"], "-",
    " D1 d: ]( R4 ?) Z       SuperscriptBox[$ Y- @4 B9 v1 Q+ K- n
            RowBox[{"(", 5 m/ O7 K3 U: o, B
             RowBox[{
    ) O- E( H4 f4 P8 h, U5 E! _' x          RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 9 Q; x$ V- @4 e$ ~/ E4 S! o  {. K/ _
      "-",
    9 R1 F, w/ q2 g  RowBox[{"0.033459349088924784`", " ", 9 M8 K7 |$ Y* x# n% ^. \% ]
       SuperscriptBox["\[ExponentialE]", 1 ^3 j2 G# `% n9 {6 m% F
        RowBox[{"3.1415926535897936`", " ",
    9 u2 l# g. \2 y  B+ d5 z( l* P# O     RowBox[{"(", ' h# |8 u1 s+ T
          RowBox[{) Y0 O' f- Z, F& @# Y+ Q0 n
           RowBox[{"-", "0.46221081830200006`"}], "-",
    - k6 T9 d& B& ~  i& n       SuperscriptBox[
    6 C8 F- H7 X8 `        RowBox[{"(",
    8 }" `) m. \$ ~/ k3 H1 s, R         RowBox[{
    & R/ B- ~( O% d          RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", . ~& N" m3 o; Z2 W
           SuperscriptBox[
    ! O7 {1 J& r4 L" F0 x4 c, W        RowBox[{"(", 2 r( x* S8 g$ G, o2 {8 x
             RowBox[{
    $ c1 {$ @6 k4 m0 s% Y! L          RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
    . z9 L1 {, Y) l. j! b       SuperscriptBox[
    ( I( O9 P4 |2 T$ f- v        RowBox[{"(", $ d+ Z$ A: D7 n% {
             RowBox[{8 ^- b1 {- [9 J/ Z
              RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", # u8 o3 v. V  q! L+ |
           SuperscriptBox["x8", "2"], "-",
    ' G& t* ^7 K8 b5 U6 Q       SuperscriptBox[
    + s9 Y5 y4 Q: y7 S% T- B        RowBox[{"(",
    + u8 p4 {! ?6 D# |/ m         RowBox[{* Z& B1 `4 p4 K3 Z3 b# Q
              RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 5 ^' `' a" d: H* g
      "+", % Q" U& H  W2 f& A
      RowBox[{"0.39611806709006653`", " ", . O5 s5 k. j/ R, r" D0 {0 v: y0 H
       SuperscriptBox["\[ExponentialE]", + {( z* Y2 `* W, `" @( R
        RowBox[{"3.1415926535897936`", " ", 1 ?1 f' g* H- Y# s0 w
         RowBox[{"(",
    3 P( W$ R) P4 d7 R5 i, I; A; E/ z      RowBox[{3 `  ^6 f  v7 J6 m; Q; _, `
           RowBox[{"-", "0.5837889295140001`"}], "-", . E: ~3 K- v7 I. ~4 T
           SuperscriptBox[
    8 ]" D* c9 F1 E8 k; d6 G1 I4 h        RowBox[{"(",
    6 m' X: p1 A" u' z* |3 K0 P9 A         RowBox[{- X* v0 ?/ n( V. u9 a
              RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", ' J& [& b7 T" F$ d; G6 Z; {
           SuperscriptBox["x6", "2"], "-",
    - @" ^9 R7 R: O+ j7 ]6 u) o( ]       SuperscriptBox[2 v, e% B( o% O: x9 j# B/ {
            RowBox[{"(",
    5 Q0 p2 U- @6 n2 N) K         RowBox[{" ~5 T0 z% m/ _
              RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", ; N- j& |$ h& u" j" r$ M4 f+ X
           SuperscriptBox["x8", "2"], "-", + d( Q, h3 A0 L& p  F) O
           SuperscriptBox[
    3 ~# x/ r: F9 K! O. b4 x+ p        RowBox[{"(",
    7 ^& a& G4 @" V3 A+ s/ V2 i         RowBox[{
    . ?; N0 c8 G4 [          RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 4 k" B/ u4 [/ `4 ~
      "-",
    2 u( r$ S9 F) g  X# m  RowBox[{"0.19996885877792045`", " ",
    0 v0 ^* g+ O. R' n   SuperscriptBox["\[ExponentialE]",
    & |& y* p! ^" Y$ e" J( I    RowBox[{"3.1415926535897936`", " ", % k# K" I$ U- N# ?
         RowBox[{"(", ! E- R; J, h5 Q6 t" a- T
          RowBox[{/ S$ r' q1 ^& P6 q& e  G! v" _
           RowBox[{"-", "0.19030188470200005`"}], "-", 8 h. W& M. ]: g- `' D1 f4 p& b
           SuperscriptBox[/ u4 d% P/ `* R9 ^/ [7 u" a
            RowBox[{"(",
    ( E' ~! O6 e! L; {( q+ U/ F8 |         RowBox[{# X: @  k1 T! Y% V. M5 x) a
              RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
    ' C6 R9 |1 o1 l3 |" z       SuperscriptBox[
    4 ?! ?9 K2 ]4 K) q1 }8 t* I        RowBox[{"(", 2 V/ `1 _4 q& B( X1 A9 @7 A6 B5 a
             RowBox[{
    3 C& H) L: W: S: W& D          RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
    2 c+ v: m4 \6 e) x1 ?       SuperscriptBox["x7", "2"], "-",
    " a. R% |2 `; M) m! m, x* m       SuperscriptBox["x8", "2"], "-", 9 E& H2 [4 L! @
           SuperscriptBox[8 y6 @% y9 ?+ B& U+ b
            RowBox[{"(", 6 O! o7 F9 @! l5 q- w6 V
             RowBox[{3 m* x6 V) F; N% @5 u. A. N' A2 T
              RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 9 [. f' Q7 r# n6 o2 l6 j
      "+",
    5 m/ b1 x* ?! h5 {$ r* O2 O7 B  o0 u6 |  RowBox[{"0.23580523388620744`", " ", 3 s# [- q& x9 M+ E" G* o7 @
       SuperscriptBox["\[ExponentialE]",   Y% h7 n# |$ |; O; a
        RowBox[{"3.1415926535897936`", " ",
    - M; S5 B; P2 N5 P' f/ s" _4 t     RowBox[{"(", ; f1 d5 f& Z  `+ i9 C! s; Z
          RowBox[{
    % z, j/ h. m2 }' K* t       RowBox[{"-", "0.28518780882`"}], "-",
    6 H9 y8 h. B; X* Z: c       SuperscriptBox[1 ?  ]( m5 {, Z% k$ x* s+ h
            RowBox[{"(", ; S+ l0 a0 h: M: i; x
             RowBox[{
    2 J; T  J0 y3 f& T          RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", / L/ X+ R7 h4 U/ J2 p  F( r
           SuperscriptBox[. @6 g6 q6 u: x3 }  u
            RowBox[{"(", - |: D+ Q' e; X) Q9 ^
             RowBox[{# i, c( ~6 B/ L) ?
              RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    : T) {6 }7 {% b6 n) j       SuperscriptBox[" F  A/ ?/ p6 R% N
            RowBox[{"(", / K: K: y% [! q- a
             RowBox[{1 H; Y& _  R4 ?% Y+ Y
              RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", ' Y7 R+ s" Z5 l
           SuperscriptBox["x8", "2"], "-",
    * D3 T) w- |8 m) A       SuperscriptBox[
    & \& I1 ~0 V" A7 `; V8 U* g1 f        RowBox[{"(", 5 s7 W& T' y! r1 ]0 y4 w3 j
             RowBox[{
    * A$ x- K8 g& o* h          RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    * }8 [% N" @6 X4 ^  "+",
    5 q. f1 S, Y9 k+ K  RowBox[{"0.667027259367853`", " ", 7 m, {2 u! I. y- X
       SuperscriptBox["\[ExponentialE]", . E: @: ~8 ?+ o4 X
        RowBox[{"3.1415926535897936`", " ",
    7 r+ c8 T. X1 t7 m# x3 w9 {4 L1 k5 t8 u     RowBox[{"(", , J6 K+ s4 G: W# }9 e2 l( ~
          RowBox[{
    % k( o1 I& t& n9 k       RowBox[{"-", "0.11387365200400001`"}], "-",
    ) J9 B1 t- i6 w$ l       SuperscriptBox[) l9 x! b+ ^: ?# M
            RowBox[{"(", 6 ?5 i" h. G7 x  J4 `
             RowBox[{6 N9 B& `. S* @# E4 P4 B4 f$ X
              RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", - Y( J- h5 C! m3 Z! y$ @6 i$ k
           SuperscriptBox[  q/ O, M8 Z  O
            RowBox[{"(", $ E. c% B, |3 ~$ }8 e) B/ y# M
             RowBox[{5 J+ ]/ i( V, a/ ]6 \
              RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    % b1 X( {4 e0 ?6 P' r% h8 X5 Q       SuperscriptBox["x7", "2"], "-",
    ; [" M5 V2 Q  K3 W/ Z+ n: t5 A       SuperscriptBox["x8", "2"], "-",
    & ]( G" A% F7 b, P7 X& Z9 r       SuperscriptBox[: x- |7 R8 k& b/ F7 R9 z
            RowBox[{"(",
    ( ~! c, I4 r5 i         RowBox[{
    8 M& P$ b1 ?0 U' ?          RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 7 k0 j( j) U( z( @. l2 z) W
      "+", 9 @+ L2 y8 @5 C4 R( q" G! z
      RowBox[{"0.25282438852646905`", " ",
    6 x2 y! u% ~4 E( \+ v   SuperscriptBox["\[ExponentialE]", * V: ~, \( S4 w: [! c6 F1 z' e
        RowBox[{"3.1415926535897936`", " ",
    * V6 c8 e6 P9 _( B0 S$ m4 p     RowBox[{"(",
    * u/ F6 P, N6 A7 u/ e      RowBox[{
    " J7 F# X( d$ ?/ f# M3 P7 a       RowBox[{"-", "0.11442644782500001`"}], "-",
    4 @* o* R3 r7 P7 |5 e% k, \       SuperscriptBox[0 g2 V" k/ V1 D8 c6 k* _3 w' V- S1 a
            RowBox[{"(",
    + @, R) W8 {# I% _9 y6 V         RowBox[{! K. V; x9 d6 \! k$ K
              RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", 2 w3 S- u" V, j- o8 e+ l
           SuperscriptBox["x6", "2"], "-",
    * Z6 h! p. A) D' c; }4 y# [       SuperscriptBox[& @/ x2 h5 ~( F# o: s, }5 {5 g5 x$ `
            RowBox[{"(", ; ~  M+ G  m7 {* D+ \+ V
             RowBox[{, C- _4 h* S+ v3 L
              RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", ! \  t0 Q( j0 }' l2 |
           SuperscriptBox[! h& w, [, U" Z
            RowBox[{"(",
    " K0 u9 T3 O. G* L! E1 ^         RowBox[{
    3 x. c" Z4 c* g: n# k          RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
    5 ?. M9 @8 \. [. b! v" `. a       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", # f& K$ Z  z% W7 ^3 b0 u6 _" S) k
      RowBox[{"0.07581214474544536`", " ",   O' `+ d% q7 K
       SuperscriptBox["\[ExponentialE]", 6 f* G2 }, ~9 l  Y4 N5 W3 v2 R
        RowBox[{"3.1415926535897936`", " ",
    ! t9 m" U7 m$ U4 D: c     RowBox[{"(", 1 g: I. e) _( c
          RowBox[{
    " _7 z& N$ Y2 `( V+ N       RowBox[{"-", "0.21008576609800003`"}], "-",
    ' x) M/ Q, M. [  j% X       SuperscriptBox["x3", "2"], "-", ! Q1 @! b2 U& C0 `3 z
           SuperscriptBox["x6", "2"], "-", 0 {) e1 @' Z& U- |9 {8 r0 u
           SuperscriptBox["x7", "2"], "-",
    + I4 g8 o) u+ D+ Z& t" I8 H       SuperscriptBox[
    : z' A* b/ g; g! ]        RowBox[{"(", - e/ w; ]9 p" B3 J& J' S$ [4 |
             RowBox[{
    , _% d" x2 B# r          RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
    / i$ V) h* @6 z0 a       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
    - |* \$ l  t/ g, Q  RowBox[{"0.10599338351843121`", " ",
    7 n3 N6 h  a+ M- b- p+ e   SuperscriptBox["\[ExponentialE]",
    $ E" z$ j; u* i+ G0 h4 u    RowBox[{"3.1415926535897936`", " ", ' ]" E1 L# y% b* L* x2 X
         RowBox[{"(",
    6 o3 e, Q. }7 p) p+ [# T$ X      RowBox[{
    - @; z# e* `& b5 K3 }5 H  M3 w6 z       RowBox[{"-", "0.4481471925460001`"}], "-", . e, n; d3 v7 q' U
           SuperscriptBox[; u$ ]9 z0 _! d% A! Y/ |" c
            RowBox[{"(",
    0 J! ?3 D' L* m# T" z- b         RowBox[{3 _+ M9 v. ~& X+ |1 C
              RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
    / Y" _9 S) ]5 d       SuperscriptBox[5 {- k+ d, J/ v& w$ E+ X  [; e
            RowBox[{"(",
    - M- I8 \+ c3 B. Y- h         RowBox[{
    ( Z2 ]. U5 J5 i          RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
    5 j1 c9 ~7 `4 j2 ?: O" y       SuperscriptBox["x7", "2"], "-", % M5 \3 n4 {& j" a
           SuperscriptBox[
    2 l: F9 j" K. V' L7 F. `4 y; ?        RowBox[{"(",
    7 w6 K$ T$ U6 i. W         RowBox[{
    . z/ h, q! H5 o# d" o) k' Y+ }5 s          RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
    1 M' C6 b/ ?; V% D& m/ q       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", ; k8 ]( Q$ J1 I
      RowBox[{"0.5008208386064421`", " ",
    . ^; \# {6 p, Q0 f& K8 H   SuperscriptBox["\[ExponentialE]",
    & F/ C6 a9 {/ @' l; v8 Q    RowBox[{"3.1415926535897936`", " ",
    0 C$ P* t  Z/ U$ b. c5 q8 v     RowBox[{"(", - b% Z0 L  A' M( B: a
          RowBox[{2 m# _3 m' I2 i. d& A4 i
           RowBox[{"-", "0.08722659614000003`"}], "-",
    # ~. u: @( j6 m' R       SuperscriptBox[5 k' k) W- i3 `. d  Q2 M
            RowBox[{"(",   C' {0 n" I5 @% v; l- F7 _/ q
             RowBox[{
    9 h  l0 I9 G. n5 Q" ^; O, I          RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
    ! n5 b! ]3 W* f$ n1 S' q, a7 Z/ k# t       SuperscriptBox[
    ' ~- _1 J1 l3 V0 I        RowBox[{"(",
    3 G: ?1 K" k5 d) D5 ~- h% H         RowBox[{- u5 R- c8 d* ~) Y3 o% o. K
              RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", 6 @9 i0 a! G) D* H- ]" c4 T# O
           SuperscriptBox["x7", "2"], "-", 9 H7 x' k4 ^+ N7 \
           SuperscriptBox[
    4 K0 f$ s1 n) ?+ E3 X  d: M        RowBox[{"(",
    : |- T8 f9 t7 R# K/ }3 c         RowBox[{
    0 Q4 X$ l7 `# d( Q- N" x          RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", 3 l8 Q, q7 ~4 a; c5 q
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    - M. ?+ E. Q5 M5 b! R. P  RowBox[{"0.32564305572552343`", " ", 5 k- I! M2 I4 u; {/ V
       SuperscriptBox["\[ExponentialE]", , J; m4 V( S; U8 z, U. t
        RowBox[{"3.1415926535897936`", " ", 2 D5 {7 X& {/ E4 m
         RowBox[{"(", + g) U8 n6 X6 R
          RowBox[{
    / m' b( ^3 H- c5 {& X' ]) l" s       RowBox[{"-", "0.23738217000100004`"}], "-",
    2 \) T4 K$ V: ^6 ^4 O       SuperscriptBox[
    5 G! T2 |4 U1 J# g6 B  I. b        RowBox[{"(", 0 |) ?, N: D7 Z# ~1 ~. Q
             RowBox[{' |6 y) a& J2 ~2 X3 x) L
              RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", / G7 q2 U$ N8 c; |: z
           SuperscriptBox[9 k/ |) }- ~) W; [) X7 Q2 G( k
            RowBox[{"(",
    ' o9 b, V# w" a( M         RowBox[{
    8 n5 q, ^2 J, `' d: K. T          RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
    ) D" }/ @7 V# O: h4 T       SuperscriptBox[
    ) A/ P. S5 `! F        RowBox[{"(", 9 ?7 k( g1 d1 n+ ]! e
             RowBox[{% C- L2 R( j: r& g
              RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", + r7 y/ T7 b3 Y3 }) c
           SuperscriptBox[+ T5 S6 a# |3 ~/ p7 e: u4 K/ Y3 s
            RowBox[{"(",
    ! M# t- j/ @& K5 D         RowBox[{; \" I9 l4 Z( u+ S2 ]; T% B( `
              RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", 5 E! v' |% c' a' t: B0 {' Z
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    7 O' O1 \9 i' P" \2 c  RowBox[{"0.6665374509702793`", " ",
    8 f4 w  `; H6 k  @" K2 G   SuperscriptBox["\[ExponentialE]",
    ) U- N9 c* _$ N' \! r    RowBox[{"3.1415926535897936`", " ", 6 _  m! l; W0 U3 u* m; I6 N- `) ]
         RowBox[{"(",
    , t6 N+ e' f; l: Q; V      RowBox[{
    9 q2 w/ p) Y, e$ n! q) }       RowBox[{"-", "0.19162171876400003`"}], "-", ! u; B6 r# w9 M
           SuperscriptBox[. @, J! E4 h; {0 N; O# h
            RowBox[{"(", 1 K& g- F& |  K# A' d) a
             RowBox[{& ~+ ^9 P- k- r! E; y! t" w
              RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", # Y3 Z/ ]% s: [- D- V. ^  e, u
           SuperscriptBox[; {) {8 V. M  r5 Y3 a# F) u5 u
            RowBox[{"(", * b; p6 l! h' t
             RowBox[{! ?. r( k$ p! V. C$ G3 y; ?. @
              RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", & s1 n( e8 ?" F- z3 Z* {8 h
           SuperscriptBox[0 |4 \+ A# @; n
            RowBox[{"(",
    ' k& D# ]2 c: f         RowBox[{
    * F4 d+ U& u* P# \; v1 A1 w9 W& t0 b          RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", ! X; m; H8 w' p* b
           SuperscriptBox["x8", "2"], "-",
    0 y" w3 z+ o, g+ i" m/ l       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", 9 @0 s) g$ L) P1 s
      RowBox[{"0.4812237524557293`", " ", $ ~* ], j, S3 b/ n4 m! i: B; H+ ?
       SuperscriptBox["\[ExponentialE]", ) q9 X* Z: C2 O" Q
        RowBox[{"3.1415926535897936`", " ", ! ~  K% u' Y" D4 f
         RowBox[{"(",
    3 i1 F# T+ d: c! o! ]      RowBox[{
    2 e1 d3 _6 ]3 h( r/ ?0 ]( Y       RowBox[{"-", "0.109748954594`"}], "-", & L: J+ Y' X0 N1 E0 r3 i
           SuperscriptBox[
    9 ~- F& |1 r0 l8 o" _- A. c7 ]2 R- d( L        RowBox[{"(", * \  Q  m# t* V
             RowBox[{
    * X( i3 }+ q  J% J2 g2 o          RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", 7 z- f# |/ f* v9 W8 q4 J- m( U
           SuperscriptBox["x6", "2"], "-",
    # {+ v8 ~/ Z2 t1 V, C6 j0 U       SuperscriptBox[% r) c" U$ [# C3 C
            RowBox[{"(", 9 o" K( a& W) V9 Z" s6 U
             RowBox[{6 B* ~& c$ r" H
              RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
    ! s- T5 ?+ O, t$ S  ^4 N       SuperscriptBox["x8", "2"], "-",
    + p4 d; F; b7 D# K  h       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", ' o% ?4 G9 |! }$ T  D
      RowBox[{"0.176024676254045`", " ", 7 a' u( r% b; m5 R! @( C
       SuperscriptBox["\[ExponentialE]",
      G$ t! h" s5 A& j2 t    RowBox[{"3.1415926535897936`", " ",
    " q6 Y, L% X: m/ {. v  T4 B2 S     RowBox[{"(", " }2 {7 ^$ D, p8 m3 s6 U0 I! @
          RowBox[{- V# D+ v# g" M! B
           RowBox[{"-", "0.14616677062500003`"}], "-", . R5 F+ ]) \$ W5 n
           SuperscriptBox[
    2 i7 ]# @3 o8 X  l/ ]! S        RowBox[{"(",
    " X" \7 b' h& H9 S  H& A         RowBox[{% d* ^1 j4 W6 C/ f: U2 e- X
              RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
    / N2 F! c- n+ C0 o2 ?       SuperscriptBox["x6", "2"], "-",
    * j8 H- D% \- e/ R* `$ q2 t       SuperscriptBox[
    , e  O  U8 H) ]( ^  _: U        RowBox[{"(",
    ! |# [2 ]  \0 _# D5 H7 d         RowBox[{4 v! E9 ~/ b# R+ M, Z/ Y
              RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
    & z, B6 X* v9 Q2 f: t! }# I       SuperscriptBox["x8", "2"], "-",
    * ^/ j% U1 a1 n* ~       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
    7 }7 G4 K& c  J8 n. b) l  RowBox[{"0.5945873894818965`", " ", . O/ X) |: A# O. v$ P. g
       SuperscriptBox["\[ExponentialE]", , D& K( I3 k, Q6 U
        RowBox[{"3.1415926535897936`", " ", 7 V; ?% G" ?! j0 o
         RowBox[{"(",
    3 J. q) J6 a& u, H1 k% P      RowBox[{: T' |" F7 y# e7 e1 P8 m
           RowBox[{"-", "0.10407011464100005`"}], "-", ; B( Q: n: q) U8 R$ l& ]: A
           SuperscriptBox[
    % T" Q: S7 ?) J1 N# u1 p        RowBox[{"(",
      R1 Z9 @7 G, z! q         RowBox[{
    / Q$ A7 S+ N! a" m          RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", ( \" a) \4 m+ W" n$ e% _
           SuperscriptBox[
    : M, g; Z! s; L, @/ m* z        RowBox[{"(",
    7 n4 Q$ _; C4 p; A; ^1 c6 `1 c         RowBox[{1 g# t' U1 W3 L7 j2 }  L- `. H! H
              RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", & g5 A, o9 e$ y8 D* W3 W/ w; D
           SuperscriptBox[
    * I# t1 Q) c9 k6 i$ x) ]: x        RowBox[{"(", 4 O; X6 w, ~* f( N8 L" G! a/ w
             RowBox[{+ g- A! }8 }4 p* X" s8 ]" o1 P4 i
              RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", , o/ B* E1 x- z4 |  g- L" }; ?
           SuperscriptBox["x8", "2"], "-",
    . n" C: k9 L: I& \3 P  t) j# ^& p2 N* [       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    $ f2 p& H3 b4 x- Z' u  RowBox[{"0.027591936509660075`", " ", ' I( Q# s0 K) t" t7 _7 k8 g
       SuperscriptBox["\[ExponentialE]",
    $ [  l5 B+ e7 W    RowBox[{"3.1415926535897936`", " ",   e7 y- Q) D" C9 e. U
         RowBox[{"(",
    " I* x  K  R3 t7 F      RowBox[{
    6 _: j8 @, a7 W7 U5 V2 n  \       RowBox[{"-", "0.31770463544200006`"}], "-", ( d9 v2 O# R8 M3 G( C
           SuperscriptBox[3 B3 @  i. j6 ?6 H/ ^2 E
            RowBox[{"(",
    ' j* t7 ~; V( }" E% Y& R9 B: @         RowBox[{( x$ v( X) f+ R, P6 P, Q( v
              RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
    # U9 U4 N2 O) X4 c7 R7 K- I7 X5 S$ r       SuperscriptBox["x6", "2"], "-",
    ' U) C& c) G1 r( Z, O/ T       SuperscriptBox["x7", "2"], "-",   U' O. x8 C" p
           SuperscriptBox["x8", "2"], "-", - V! I& M. {- p7 _
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    4 E7 T% W, G/ e  RowBox[{"0.5252475961933536`", " ",
    $ o+ [* y2 f' Q   SuperscriptBox["\[ExponentialE]", , C4 Q# K2 x7 Y1 c3 e
        RowBox[{"3.1415926535897936`", " ", 0 L. j. P/ O- D5 p9 q7 O
         RowBox[{"(",
    " j/ J) J# y0 M, K      RowBox[{
    % h7 e  B; g- d1 {4 m       RowBox[{"-", "0.6410867660730001`"}], "-",
    " [1 G5 B" I7 n! n7 c/ |       SuperscriptBox[, d# J& B& T. m; l" s" q7 U2 i: G' c
            RowBox[{"(",
    ; ~# F* S& Z; K6 S3 `         RowBox[{/ x* w1 F4 \  o* F8 ]2 a& Z: t
              RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", * M: q4 L; B7 s0 P- `
           SuperscriptBox["x6", "2"], "-", 4 g+ _! n- J, }
           SuperscriptBox["x7", "2"], "-", " {. k5 q# S# ~' h2 B9 ^
           SuperscriptBox["x8", "2"], "-",
    8 W5 h0 b. u( Z2 ^, a9 A1 R       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
    & r- ]% g) n4 ?, U  RowBox[{"0.32047284779644936`", " ", - }% q! |) N; I5 p' g
       SuperscriptBox["\[ExponentialE]", ' \% o% o( R: ^( _! S5 j/ o
        RowBox[{"3.1415926535897936`", " ", , M4 ^2 [+ O  V* J
         RowBox[{"(",
    & L8 t' M  }+ O. g) O8 H      RowBox[{( ~, Y2 W# O- @, a6 c$ V
           RowBox[{"-", "0.155663887074`"}], "-", 6 R+ J2 j$ O! f
           SuperscriptBox[
    0 y" H" L7 H8 T$ r# o: N/ L/ u! s! {        RowBox[{"(", - O8 |5 u, ~- ~8 N3 u8 s, X4 d
             RowBox[{
    6 S' h; F  q# S; g, ?  k( d          RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
    3 c6 u5 T4 I* X& P, K6 I, N( O       SuperscriptBox["x6", "2"], "-", 6 t& S- I( h9 @" _* F0 t- @3 p2 t  |
           SuperscriptBox["x7", "2"], "-", - W' X( I6 q3 v& E& c
           SuperscriptBox["x8", "2"], "-",
    1 L7 f- v' w0 V' T( d) G5 b       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", 8 X- d1 p8 ]0 F, a: W: z# V4 @
      RowBox[{"0.7528674241482847`", " ",
    2 j1 d+ h& M4 o7 @* Z   SuperscriptBox["\[ExponentialE]", % w" q# A9 U% t) E0 D9 x
        RowBox[{"3.1415926535897936`", " ", # p; K+ c2 ]2 c) h& ~8 [! y
         RowBox[{"(",
    9 A. P6 j1 V) ^" i      RowBox[{
    ! p+ o' F8 T- Q. O2 p8 n       RowBox[{"-", "0.14151232428600002`"}], "-",
    / T7 Y) i; ^/ [       SuperscriptBox[
    - v* G# B6 P9 k& S2 {% M" X        RowBox[{"(",
    $ y: ?2 Y/ O8 G         RowBox[{# I! |* ^, ], d7 e3 ]/ W3 ]# \3 H. S+ m8 S
              RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
    , Y& v7 B' G, H" P8 k5 L; p       SuperscriptBox["x6", "2"], "-",
    + Q. ]. e8 i0 ?6 ~9 k6 }3 z' F& m( w       SuperscriptBox["x7", "2"], "-", 0 S6 I& U2 z' w1 `# M  w( K  Z. Y
           SuperscriptBox["x8", "2"], "-", $ d) j1 m: A7 \9 x: L5 f
           SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",( W: o- f, |5 [- _0 |6 x, A
    CellChangeTimes->{3.5779628386090403`*^9}]0 K+ T' u: J6 ?/ S# M* u; O
    }, Open  ]],# t2 h9 w7 L; E4 V$ Q% R) q9 C
    + @6 C: h1 U( D
    Cell[BoxData[" "], "Input",7 n, @; l% I( f3 T6 f! D$ N5 @% ^! [
    CellChangeTimes->{3.577962835879035*^9}],( s" y& r0 o# J
    6 R6 h- ]& s4 B" A1 ]7 b4 x6 Z# e, N
    Cell[BoxData["\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\:4e3a"], "Input"],$ t; }' B" y& I1 r

    3 E; ?1 q" z, R" z+ {8 U0 tCell[CellGroupData[{7 [0 S: _; J, C. r( `4 l8 q2 R2 ?6 \

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

    使用道具 举报

    琳123        

    1

    主题

    10

    听众

    296

    积分

    升级  98%

  • TA的每日心情
    开心
    2014-11-9 17:59
  • 签到天数: 75 天

    [LV.6]常住居民II

    自我介绍

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

    群组数学建模培训课堂1

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

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

    群组物联网工程师培训

    涳夢 发表于 2013-7-30 20:31
    9 }0 G) c; y6 s- z7 |0 A; c神经网络系数?有这种系数吗?可不可以具体一点儿,给出原问题或更具体点呗

    ( O: d9 n+ t, h, j$ J(* Content-type: application/mathematica *)7 v9 V- J) G# y6 g

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

    : G( W) I' \& t& qCell[CellGroupData[{) M- m! {' y0 j! r* k- R

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

    3 ~/ D5 m0 j  E  \# R9 }Cell[BoxData[{- }# D7 S( P, Q0 m* c9 L
    RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]",
    - m2 g7 Y. k! ^ RowBox[{"M1", "=", "1"}]}], "Input",
    ; K) F. r. k7 \1 ` CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {4 T3 S: y; d& ?& y, p: D5 p! G1 O
       3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9, 3 j& [1 b( A, X" h$ ^( X( n" f+ H) }
       3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {& L- P" r$ V0 d6 S1 U
       3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9,
    : Q4 v. H" g. ^: F/ }+ S- o) R* a   3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {6 n* S3 _! A; ]
       3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {* Y( T/ W8 i3 D: @4 _
       3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9,
    # k* |1 P. ]. N& V   3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {& R" k% t. y* z% y( F) X
       3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {7 W2 V4 m* V8 q2 s( G/ ]- U
       3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9,
    # c  v% B/ k1 W* C' k# K   3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],
    * e# T- K5 C' e( O
    + A7 N$ r4 b) o+ J0 V! P6 ]* PCell[BoxData["0.2`"], "Output",
    1 K8 b3 |7 |: C- V CellChangeTimes->{- W( W1 v, w& @1 b8 |5 P+ S
      3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
    1 h2 l- |" z' z   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
    4 W7 c0 Y  y$ V% M3 A" s- B6 T& Q& [   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
    2 i4 x1 }, j( s   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {$ d9 M# J! |/ D* r  a- E7 J- m/ \
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, * X3 C, Q0 ~& i- |3 k- x
       3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    ' X9 k! C% a- T% y( A   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
    8 d8 i0 @% L0 r$ C3 O0 I   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
    ) v& l; G$ P; B  f# J% r0 Z   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, , [* _! d3 Q8 X
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    / k; v) u1 a8 n5 b* o' z   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, 6 W: c3 d% y5 h
       3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, 8 k+ y( Q6 o% s
       3.577960510686717*^9, 3.578012149296875*^9}],* }& S; t4 h/ S/ s- ^! A
    6 F, Y7 w4 w1 J, c4 i
    Cell[BoxData["1"], "Output",+ s8 b: T9 a9 G2 E/ w
    CellChangeTimes->{/ l" s* n: l" k, x5 v5 B% m6 g: Q
      3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, , ]! z$ ^8 V9 f% r2 h& p9 r) s
       3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {/ P6 g: j) Q% O6 y1 H  _9 d8 @. _
       3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
    . {8 `- k) _" T- Z9 U   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {8 b5 Q% H9 o" M% L- \6 g+ K
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, 5 M7 ?" L$ Z" O& Z. P% t2 U
       3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    / H3 t) g: G2 R: [3 G" ?! D1 {% \   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, : y7 N' w* m( z/ l% L2 s9 w# k1 n
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
    1 @0 ~6 Q* E, ]* L, `  B% j   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
    ' [3 x" V% I3 l3 ^   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, ) O, {) n/ z6 K
       3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
    0 A- ?: [8 C* G$ ]9 C+ ^5 K) c( K4 ]   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, 4 y( I2 H+ t7 O. Q2 b' e- }% A" z
       3.577960510686717*^9, 3.578012149296875*^9}]
    . |- Z0 n! r& j  l) i}, Open  ]],
    - _% K2 r0 p- c) }( ?' u5 }2 r+ |) y1 V  g$ h2 k' H5 R
    Cell[BoxData[' u- E; W- q, N# Q5 _
    RowBox[{"For", "[", - `/ [( D: c) g% F) y: p% Q5 @
      RowBox[{+ a9 u) U4 [  }9 q$ T$ x, n
       RowBox[{"k", "=", "2"}], ",",
    * n- V) |7 G6 B   RowBox[{"k", "\[LessEqual]", "60"}], ",", 4 h/ S7 B# B9 T5 ~( }7 Z
       RowBox[{"k", "++"}], ",", ( X) d: I# K6 H* H
       RowBox[{"{", "\[IndentingNewLine]",   H$ |1 M0 |0 `) V% Y9 @# y
        RowBox[{
    % [0 I; f! H( [8 J: @7 C+ i; r     RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]",
    $ _6 A! H% [' G/ f     RowBox[{"For", "[",   E0 w+ x, X; x
          RowBox[{
    $ R1 z1 H; H, X& w0 d8 Z$ ]       RowBox[{"j", "=", "1"}], ",", ( v7 s, M9 N% W# D; @  M" w
           RowBox[{"j", "\[LessEqual]",
    ) X  R* m& r# q        RowBox[{"k", "-", "1"}]}], ",",
    " L# v1 ^: D2 t; v. Y       RowBox[{"j", "++"}], ",", / i9 z( Y: T3 A$ E
           RowBox[{"{", "\[IndentingNewLine]", 3 U. P# [& C  ~  j7 v% M
            RowBox[{. i! o$ q* N' ^, y* e. x2 b
             RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]", 7 Z2 C6 v7 t7 u! V
             RowBox[{"For", "[",
      e+ f) X# P" g1 Q. _          RowBox[{
    . W- t2 S! u- |. Z           RowBox[{"i", "=", "1"}], ",", 1 {% R1 ^) q  X9 m. C9 ]
               RowBox[{"i", "\[LessEqual]", "9"}], ",",
    - A4 k7 _! E# p$ l           RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 4 n3 x+ @2 g7 y+ C" }: R
               RowBox[{$ T2 k! N, A8 c( z
                RowBox[{"r1", "+=", 8 o  E6 p2 g; G# d+ B
                 RowBox[{# H' @6 f/ h1 [* E4 p
                  RowBox[{"(", 0 [$ w: o' U; n% C/ y% X
                   RowBox[{
    6 ^/ P# L; V7 {% U7 q                RowBox[{"CM", "[",
    1 c3 ], D: [- Z4 M: G8 {                 RowBox[{"j", ",", "i"}], "]"}], "-", + j( w; ]( h0 {* g
                    RowBox[{"Data", "[",
    9 g9 i4 Y. ^7 @/ g3 X                 RowBox[{"[",
    6 @9 \/ T7 u7 r, a5 |                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*", $ o7 x3 v3 K! T, r4 Q& l& R
                  RowBox[{"(",
    ; X  S) X" ^3 O  W) C               RowBox[{1 F% J$ {% c. g2 K4 s7 Y1 o
                    RowBox[{"CM", "[",
    " N8 N2 B$ V: w# W                 RowBox[{"j", ",", "i"}], "]"}], "-", 9 W5 h2 g* J0 [3 l
                    RowBox[{"Data", "[",
    / O: b3 O. ]3 e                 RowBox[{"[",
    ) J/ h/ y/ d$ j& j( P# c2 a                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],
    9 {" c# D+ ^5 d$ k' G           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 9 J) W* A9 l6 D6 {4 E# o' Z3 Q
             RowBox[{"r1", "=",
    # m) G2 H# R& l! B+ h' t4 H) T          RowBox[{"Sqrt", "[",
    4 g# z# a. m3 L# J5 u1 M           RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]", ; H/ b& d' c% v" b* z: u
             RowBox[{"If", "[", " ",   }: p5 E+ b/ c; u5 }
              RowBox[{
    ) n; U8 ?+ A# A" ^8 O1 D           RowBox[{"j", "\[Equal]", "1"}], ",", $ Y9 C' V: F% {+ F: n% K! T
               RowBox[{"rmin", "=", "r1"}], ",", ( N( Q7 C/ w6 o# h2 I( E
               RowBox[{"If", "[", 3 M1 b! q! H" B( b' B. ^* ^" x4 n
                RowBox[{
    4 R9 @4 x$ ?$ w, _( Q, j             RowBox[{"r1", "<", "rmin"}], ",",
    9 o. V6 b. e+ l1 T0 q8 m# S* C             RowBox[{"rmin", "=", "r1"}], ",",
    $ c. _7 u+ _& G4 p             RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}],
    & u) b' M" H- m6 s3 {! G, U! D        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";",
    " ]* O  }% ^5 e* Z     "\[IndentingNewLine]",
    & m  W3 l; {5 M" G. s# p     RowBox[{"If", "[",
    * h* X* d! ~: w! o      RowBox[{" r, r$ F! p2 R4 f2 V
           RowBox[{"rmin", ">", "r0"}], ",", 1 ^7 m. y# I8 ^# V
           RowBox[{"{", "\[IndentingNewLine]",
    ) b! C  ?" @4 c        RowBox[{
    & G4 [, k( V/ `. R0 h         RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]", + b; m  Z  g! o) T# e
             RowBox[{"For", "[",
    % w" J6 s4 o# {+ A- J& z- V! U  M          RowBox[{% Y. o" g6 |3 U6 Y: |
               RowBox[{"i1", "=", "1"}], ",", - B) ~3 C9 t" s+ m+ o2 K
               RowBox[{"i1", "\[LessEqual]", "9"}], ",", " |" G: d; R. I6 B5 K; D
               RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]",
    # Y4 x" Y6 H) y9 q1 a           RowBox[{
    5 G* Z  `, J8 U, c7 ]6 ]; ?- v$ }+ ~            RowBox[{
    ( C' s3 W4 l: S) L6 M             RowBox[{"CM", "[", 6 Z/ t" Z6 h6 A* V; R
                  RowBox[{"M1", ",", "i1"}], "]"}], "=", 6 ^2 {% H2 B0 {0 e+ z
                 RowBox[{"Data", "[",
    & ?0 }4 z5 v! l* K              RowBox[{"[",
    , A' ~5 _2 L1 e* [4 ]               RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}],
    6 N) j; H  w: o( Y6 }' D          "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",", 7 b8 a9 D# @9 `) n* K
           RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}], ' j1 O5 i! Y7 M2 v3 ?
        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
    % [# [  @) ~4 a; {* ]# \ CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {
    4 W8 z" j! b2 k+ b3 K0 I   3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9,   v1 w4 z( P( _, a  N
       3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {
    - G# M" J( q. b! f) E   3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9,
    ( a( `: t) p- b3 V   3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {2 Z" T; V! n- s" i5 g
       3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9,
    / Y) c3 W; L1 [# w  P9 M  S9 Q   3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {6 A0 }  O$ C: q- _: q
       3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9,
    ; D0 V" R6 m3 c   3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {$ z$ T! |. @- s- }0 P& ^& S
       3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
    % ]5 O* ?) g( C. n   3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {/ H% [. C' K" ]8 R% Q0 Z; X
       3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9, 2 }  T0 J& ]" N. u& i+ A
       3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {" Z9 E- N) }- v- K2 I) ~
       3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9, . T1 h) q% X. R* I! q6 }& O3 n
       3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {/ D& `# g+ e) p: D8 l1 K6 n
       3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9,
    : [1 ]& {" b9 m0 t' c) ~# Y! I   3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9,
    $ R' r% n3 e+ c! w3 O   3.577958821991373*^9}}],- e4 R; L2 ~  r3 A

    0 ]' b, S6 C& ~2 R+ f& U7 JCell[CellGroupData[{( v% o0 b3 ?' H' Y' z2 l

    ' p! `  z. Y" X0 o) CCell[BoxData["M1"], "Input",; q- j( l- D# t, _6 i4 j
    CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
    9 a- _' ]$ H) f1 H* r: C
    ) g- U5 H; T: B( T4 _" GCell[BoxData["21"], "Output",
    " Y9 u3 V) ?' M! ?; y  M5 b CellChangeTimes->{
    ) \# |  |. I& M, M# G  3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {, [, }' M# N0 r/ h& u. C# m
       3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9,
    / C  e$ O5 m$ x  ~, ~0 u2 Q   3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {. U9 v2 \( K  A. b) r% x
       3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
    3 q5 N8 e& i% F0 p% X   3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
    6 i$ e3 j) g0 w. h4 w  F7 `   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9,
    ' d( f1 U: n9 ?2 h   3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
    " h% M" ?/ b" _0 H, ~   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9,
    0 _6 D5 K) w7 u1 f8 a" ~# y   3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9, - ?1 O7 R. ]( i9 M9 \* C. u
       3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9, ! ^7 }/ c6 u2 O6 b
       3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9,
    6 z* k2 H8 x. m7 ?: X   3.577960515600726*^9, 3.5780121541875*^9}]6 d) E6 q& ~" v
    }, Open  ]],+ Q7 Z$ b( i9 Y$ \
    + k- R! T" d0 N! M3 C9 J; A
    Cell[BoxData[
    ! q$ z8 |$ k9 b7 x7 K& J6 ^ RowBox[{' N  \4 i* J1 W+ w2 f
      RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[", % C* c( A  q5 n: I: K& q1 r
       RowBox[{"1", ",", "i"}], "]"}], / ^4 A  x0 \& X7 p% \7 Y
      RowBox[{"\:5230CM", "[", ) g* K4 P% [8 n$ g2 r7 J
       RowBox[{"21", ",", "i"}], "]"}],
    5 L- g# ]! O1 q* n; x7 P5 i* I  "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\& n1 G+ R+ Z' D9 W& f/ ?/ g9 t/ p
    \:51fd\:6570u1\:5230u21"}]], "Input",
    1 i2 `# D/ k8 e CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {( x& f0 a3 E0 ^- `3 o0 m9 f+ W) T
      3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9,
    4 r6 O* q0 Q$ }  3.577960526583145*^9}}],  T( v- |% C$ g2 H4 f5 p: |* x
    % q* \; ?% F9 F  i+ U' _& }! V
    Cell[BoxData[
    : Y* l- S0 Z, ~4 W RowBox[{"Clear", "[", "Delta", "]"}]], "Input",3 M8 \$ e. U! U9 H
    CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],) ~7 b5 v& a% M4 v5 Z
    6 J3 U4 q# n9 Z
    Cell[CellGroupData[{" ^$ w, Q# ?6 e: W9 Y$ M

    1 ^) R# R3 O+ ~$ h# N) dCell[BoxData[! ~3 q; P4 I" ^: a" o# o
    RowBox[{"Xa", "=", 1 t; x' J) @8 F9 X- f
      RowBox[{"{", 3 @8 B" w$ u. _2 }1 e0 S
       RowBox[{1 F  x5 K3 }) ~6 R$ H* i
       "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", # |8 N8 i" {8 x3 ~+ U. H' _
        ",", "x8", ",", "x9"}], "}"}]}]], "Input",
    : X7 |5 Y# s. ~) G( Z1 Q; S CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
    , `9 A' V& Y% Q+ }& O: J
    9 d/ E( l  l6 k2 a5 ACell[BoxData[, l3 _' n! b1 }( s1 u4 Q; |
    RowBox[{"{", / ]7 C' N: j7 i: J! M- w" a
      RowBox[{; F% Q) Q- o/ R8 A+ y, e: p0 C& _0 T
      "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",+ E+ a# f( f5 G  W! J0 ?
        "x8", ",", "x9"}], "}"}]], "Output",/ U( {+ o6 I: A
    CellChangeTimes->{
    9 Y2 C1 O, z, m  3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
    8 ~- Y! C* o9 M/ A1 O+ m2 D& Z; ~   3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
    6 q" G2 [- A5 g3 g( h7 K0 w4 D   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9, , f0 a2 e, Y" a5 ~. q. @0 u1 y0 }. `! g
       3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9, * G1 [: ~# f( C* j8 H# s6 u2 z# {
       3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {
    ) T# F. a9 E# Q   3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9,   w1 X+ d( S  k& B: y( B1 S( \
       3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9}, . `% l! z2 p" V/ D7 [
       3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {$ z& B$ e: n3 Y
       3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {
    3 r3 D9 F- D6 E' r& b+ N   3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9, 8 k( H" c6 k- f1 Z0 U
       3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9}, - X4 l  z6 T$ m9 ?# b% L
       3.57801215725*^9}]
    0 U5 S* t" U: E% T& e& v% w3 L5 _}, Open  ]],' e. N9 P9 ~% V: F, n$ l
      U' n" D7 Z) A% S5 w' h
    Cell[CellGroupData[{
    / u8 O4 U0 |9 j! c) _7 ^4 [) Y) [; u! c0 t, S
    Cell[BoxData[9 Q9 h. y3 ]" K
    RowBox[{"Ca", "=",
    5 h0 [' N% q, @$ r$ v7 ^& [  RowBox[{"{", ( j% Y. L% u4 I8 h4 W7 j8 `" }% \* F
       RowBox[{
    0 G9 @; ~6 _) F7 \2 g! u& T( c   "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", 4 h3 k. Q. D: O6 e6 f7 e" \
        ",", "c8", ",", "c9"}], "}"}]}]], "Input",8 u) w# W& B$ o: x) D9 K$ w7 ?
    CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],
    , c0 j0 k  Q3 E' I, I  g$ M7 p& R. Z7 g! g; a6 [& x* r
    Cell[BoxData[
    1 G+ w% w1 E4 u% Z RowBox[{"{",
      H0 c; X6 Z7 T  RowBox[{
    0 E: d9 j% i% D$ g  "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
    ( }" {- y. S# s& X  n7 R    "c8", ",", "c9"}], "}"}]], "Output",5 ~% ?9 ^0 \% E) Y3 t
    CellChangeTimes->{1 j+ g4 W9 X# X4 o
      3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9, + ]5 _+ a' b4 h" r: D* Y: n: |
       3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
    / a* O2 i$ C% j# P   3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9, $ {9 @6 J) H5 J" R0 @( y2 v. o
       3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {$ m' J! \  a& v2 M) h
       3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9, $ ]. J7 x9 q; J# A% r2 O. j- ~
       3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9},
    4 e' o8 A* E5 ~1 c& u2 D0 w( p   3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
    4 O1 `' E! L; e% a, o   3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9,
    , s! M* Z9 ^" a/ k, Q: T   3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
    , f  u) h% a3 u8 p   3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
    ' j+ }% D. i* v7 d# I   3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9, ( p  j* c: L3 J- m% f
       3.577961904604212*^9}, 3.578012158671875*^9}]
    " T6 L4 s5 _  o" G}, Open  ]],4 @9 f* `$ N8 D: G2 j# U! }

    " A9 b- o  k' l  I" V, ]. ~Cell[BoxData[( g7 Z. K& ~9 t& }
    RowBox[{"For", "[",
    8 o$ R% B* c* F3 p. S3 |* g  RowBox[{* `9 j% k5 b. M5 `3 ^& |: U4 n
       RowBox[{"i", "=", "1"}], ",", , Q2 I' P1 y1 N! B
       RowBox[{"i", "\[LessEqual]", "9"}], ",", - Y; r* B; J8 s, X2 P: p
       RowBox[{"i", "++"}], ",",
    & E7 q4 u) l2 H: m8 O   RowBox[{
    , Y3 z0 C) g+ @0 E    RowBox[{"Ca", "[",
    6 v+ e# x5 }  d8 P/ P* V     RowBox[{"[", "i", "]"}], "]"}], "=",
    ) j6 v) X* C; S2 }    RowBox[{"CM", "[", # K) P% n# W4 F5 `' g/ U
         RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    9 J" ]$ g0 R/ }) x# }' S CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9}, + R9 r( o# K7 B: S. c3 O' O- f0 C3 J
       3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
    , Y% W. i" S1 j3 q3 H, O   3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9,
    # s: d5 t& |: Q% O' N" a   3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9,
    8 C& z+ [& s& f! w; C   3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9, 8 _, W  W3 Z2 m2 q. \, u, z
       3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9, # N& V% }6 J2 k3 B+ `! ^
       3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
    * Z$ [3 x& f: P- Q2 G9 T# I   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
    : o3 [# H+ {. t  c' l4 p   3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
    4 c" b9 R6 l0 N. u) u( G( H   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
    5 z) Z& @2 I- t   3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
    0 J! M6 [. a( r2 z( u$ O   3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9, # `, Y* W2 ^$ ~
       3.577961906897415*^9}, 3.578012176296875*^9}],9 a; s# f+ e: l% B. N7 H5 g
    & x  y9 D: f6 b; E- E9 L
    Cell[CellGroupData[{+ g2 @; B- N5 L% u! a) ^
    2 n: o' w% Z% D% X) g
    Cell[BoxData[1 B0 G4 J4 M9 T1 q9 W4 Z) I6 R' }
    RowBox[{3 t" s* C' x! M) j$ y" j
      RowBox[{"(", - L% `2 H9 m* ^+ w3 j3 i  U" w* w
       RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    / H* d1 u' I, G. _( u  RowBox[{"(",
    - M' H1 [0 H$ k   RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],1 Z$ ]' O6 x/ w6 g% H0 E2 n
    / P4 D2 `1 C# y7 O' ]% E
    Cell[BoxData[8 O: ?+ m! x& U# \: J" J' y
    RowBox[{0 F5 Y  U9 x! j
      SuperscriptBox[) p% T2 q/ U  i5 b3 F8 c
       RowBox[{"(",
    ; c& x+ o3 G3 E0 D0 w! y; W, L    RowBox[{
    / m/ w$ G: q8 R- q     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+", 3 @5 ]2 K& t: l& P
      SuperscriptBox[$ {. c; j3 L- P0 W
       RowBox[{"(", : e: ?5 L0 p. T* q* F; K
        RowBox[{
      l' S. k' X) w/ ~: \% c# Y     RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",
    1 b4 k+ @  B2 k8 o0 ]  SuperscriptBox[
    7 A! U" {6 O5 J# t; ^9 d   RowBox[{"(",
    ; ~8 S* F5 F, h. y9 M# [. B0 [    RowBox[{
    ( w: B2 W1 N7 }) R: x0 U     RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+",
    4 [# D* G' d3 ?. L: `$ r$ g  SuperscriptBox[
    * @/ b2 J" V: X$ ]3 M   RowBox[{"(",
    % K' s+ h( @7 O) Q    RowBox[{
    2 S2 N1 w; [( c  }1 }. X% |" n     RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+", : R2 V9 i% Z9 w3 @8 d
      SuperscriptBox[
    9 C0 l6 ?1 b, m' X3 q0 s6 H   RowBox[{"(",
    $ g' @) W0 Q) }1 g7 G: r    RowBox[{! N, `  z# w( I1 Z8 `' n
         RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+",
    . l* ]4 [6 B- c  SuperscriptBox[7 I* Q/ m( |8 n5 V
       RowBox[{"(", ' M6 m7 F, m: }5 {
        RowBox[{
    + M+ f* w7 @5 M. n3 e! `7 L     RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+", 1 O3 ^0 ~9 [( I8 `, _5 _% ^
      SuperscriptBox[+ m3 f* _' c6 W4 S* _3 @5 X% d
       RowBox[{"(",
    4 x% x8 _; N, {" h    RowBox[{
    & t* ^+ E' |2 g! i     RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+", - ?3 o$ [6 J2 M) U6 A
      SuperscriptBox[
    - J8 p3 K! ?9 _5 @% }& w. \   RowBox[{"(", ! O4 g. I( _2 l+ O2 b5 [
        RowBox[{
    . g' n6 B8 L9 L# Y& U6 O     RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+", + A0 V8 Q% |5 l" M' Z7 W- v
      SuperscriptBox[0 |5 T& A. j  K- s) e
       RowBox[{"(",
    , u" w, f: R6 H9 K5 D. D! ~0 y    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",$ U, e: W$ y4 y. b/ S# O3 T" }7 J9 e
    CellChangeTimes->{' k8 {' o1 X! d9 @
      3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, / v5 c) ?- x) l: }3 O
       3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9,
    $ u3 o) r1 s8 g   3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9, $ m6 b+ A! a: \  a; ~
       3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9, 0 ~; H6 A, f' t& @# T; J
       3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9}, " P1 P6 E! ?4 C0 s7 `, }( ?# `
       3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9, / c# c8 m! B5 V
       3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
    & p; n. {( p4 P$ n, F1 ?, o* ]- {   3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9, / c( c0 I# a. |, z: c  W; D
       3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {! U4 K! i! w3 h% d7 M
       3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {
    ! N7 S' u  |! G/ j& l   3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9, 2 W6 X  F  j5 S% _3 U$ L
       3.5779618537169228`*^9}, {3.5779618846049767`*^9,
    5 @8 D6 A7 B4 C6 b% |   3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]3 d6 U" r/ y, O4 P+ t4 D
    }, Open  ]],
    : R; i9 \! l4 o
    % d2 F# i+ Y8 ?; |Cell[CellGroupData[{
    . x" |7 E8 E( p9 X8 x+ \# f1 p/ a$ }
    Cell[BoxData[# C" q; H) w! ~( C; n* m$ ?
    RowBox[{
    8 U1 q/ @9 D* R. A0 _8 s% n3 I' W  RowBox[{"Ca", "[",
    1 M! A. T7 B6 _1 _+ i3 P$ C0 t   RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",; t% Z2 ^( G. O- K) [- ~2 @) a
    CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
    8 H) W0 K  T9 S$ J2 H. T7 }" j- J  3.5779616465173616`*^9}],
    4 g, M! q; X. m7 Q7 J. ]
    ; \, A3 R, h. R$ L4 C5 o" z( n! A7 NCell[BoxData["0"], "Output",
    ' V  H" m$ o, m CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9, 5 Q. d* r! e% ?3 w: n
      3.5779616484049644`*^9}]8 Y' G8 @9 ?0 Y
    }, Open  ]],
    3 N" t: x1 P" ~6 C. E& T9 Z
    1 S1 ^& r/ P9 RCell[CellGroupData[{' B& F, U& n" s$ ^

    & ?; e% I/ Y1 s, FCell[BoxData[
    $ y  x4 E* I9 ?& L RowBox[{
    2 T* m1 y5 }+ A' u  L; }  RowBox[{"Ca", "[",
    9 q; Z( j2 i  K* t5 P0 R/ Y   RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",9 I+ S1 x/ T, A
    CellChangeTimes->{3.577957376235614*^9}],
      p" [8 e5 V; k
    8 L8 w8 t4 G6 |' ^: bCell[BoxData["0"], "Output",
    . q1 U1 i: [: g0 U! v) P CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]
    : x: J9 P9 A: s' F- _7 N0 D& M}, Open  ]],1 q, p3 [! s6 ?! F; J, m+ K/ E

    ( ]% |* W! ]3 T6 |- SCell[CellGroupData[{& L  {6 L' X* u9 g  f3 ]/ Y

    4 d% y! H& w( f) Z4 C5 LCell[BoxData[9 a$ y( M& q' P8 o% G# B
    RowBox[{% S' }2 [6 ?5 K1 e
      RowBox[{"Ca", "[", 5 o. y5 W8 h9 K5 d3 w. s
       RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",  y4 A( j7 V3 S" g6 v) g$ t0 F
    CellChangeTimes->{3.5779573112927003`*^9}],/ c. g% A; [2 u0 S4 o! e
    & _; \  n) v% C  l( L
    Cell[BoxData["0"], "Output",
    . M# u7 P5 r, r5 \5 t- t CellChangeTimes->{# j2 W, \. x# H1 r0 H& ?
      3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,   ^" H* j- r; ~* L& U' Z5 U5 j% O3 @
       3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9, " b' r9 {! k( Q& t  B
       3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
    7 x) d$ E7 I8 y1 _   3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9, 9 |, a( v, D$ A, t
       3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9},
    3 D3 C# O6 e3 l5 e! y. i   3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]- `- {$ J. H# h$ m  I
    }, Open  ]],
    " k6 L; r: f1 h$ c! y
    0 M8 z- M: L3 H: q+ ~. BCell[CellGroupData[{8 D: A/ |2 S# h. K

    : @. J9 X+ K" N- e! U& MCell[BoxData[2 R. |5 E0 O2 j  v
    RowBox[{
    * K* F$ r7 v1 t- l& X$ y  RowBox[{"Ca", "[",
    , {9 C% L0 q: X; Y   RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",2 T2 S. W. F' x, L# S' ]
    CellChangeTimes->{3.577921461734375*^9}],
    ' _2 Y/ G* I; m' E, D- Z- v! H; e: f6 F! }
    Cell[BoxData["0"], "Output",! X- L9 M3 N) i; t
    CellChangeTimes->{
    2 `, L: H' V1 v* J/ I( H  3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9, 9 B  K" D( ^9 h- _5 c+ [
       3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9}, * x) F# O; f6 [  D
       3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9, " o% `- X- U# F9 `: e  P+ b
       3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9,
    % Q3 z7 S& y" r1 K$ `7 Z   3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]5 ^3 \% F2 I9 |
    }, Open  ]],
    $ K8 C6 P4 T6 k* m# F% A, j
    ; N! U" M) G# m5 B) c/ e9 `9 l9 uCell[CellGroupData[{
    0 @* {' m9 W+ A* b! e1 _
    : h: _* y0 w! U7 o" ~Cell[BoxData[: O6 e. D, A! l. u
    RowBox[{
    3 r% v* x/ a; [/ |7 s4 f- l  RowBox[{"Ca", "[",
      i5 E; X, ^6 i) L   RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",4 g" m( k9 y( X1 n2 X- }* f! K8 S
    CellChangeTimes->{3.577957303118286*^9}],5 K+ l1 L8 R' }  @3 B" }- n6 \
    1 F! {1 r# i$ o! H" U6 A: I
    Cell[BoxData["0"], "Output",
    5 _5 u7 y  N" x6 g$ ? CellChangeTimes->{  J, K/ T' [6 j& B
      3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {
    0 E+ o% v5 {5 D  T5 O   3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
    ; p4 {. u2 t+ x, C& ]& L$ n* A   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9, 2 j# B. e6 r; M0 U2 m. p
       3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,
    7 j1 [9 s  N$ E! j) T; \   3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9, 7 ^  L+ c6 n" j
       3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
    0 M$ `& g* f+ c1 `1 X5 N   3.577961889378585*^9, 3.577961912965826*^9}}]6 m! w! J+ z2 f, Q& [
    }, Open  ]],
    ( S7 D" l9 J$ f6 _: V  Q% T) A5 N  b1 Z( V9 j
    Cell[CellGroupData[{
    5 U" w8 J$ ]6 j
    ( m) Q, k0 b1 ~% _2 Y2 q& b! }' |Cell[BoxData[) I2 k1 h& S( q/ a/ X$ P0 @
    RowBox[{
    4 K* r3 d. o8 D7 i) }  RowBox[{"Ca", "[", $ L2 K+ _1 b% [5 g9 D# m5 P
       RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",
    9 m( J& `, P" Z; V- j5 p  {2 M CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {
    3 D& B" t9 a0 X1 r3 S$ U  3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
    2 A) Z$ S; h" j5 H: L  3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {
    3 j( F2 }% {( C; R" T. H  3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
    , H/ k: P5 H, l+ y  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {
    9 ~4 I6 w1 H/ x" h/ p# C  3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
    0 A" Z$ q& Q' ?  3.577921435703125*^9}}],( U  ]# D" p; Q6 e+ l& ^( c7 l
    # y4 Q0 q, C! ]/ i" B) E
    Cell[BoxData["0"], "Output",
      o1 G1 B; S6 ~) G CellChangeTimes->{
    ' H! k8 I/ {. c/ z6 L  3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {
    1 O1 V+ f: u$ k6 ~6 k- n   3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9,
    - o8 [' ?' |$ O0 j6 r3 R) k8 g   3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {/ I2 L6 ?$ n- r' k+ K6 \) |
       3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9, # Y. f9 ]4 a  I/ n' B
       3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {3 |3 l' M! Q# C
       3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9, 7 B" g4 h1 k" x
       3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9, ' w$ u+ b+ y& Z
       3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
    ' M/ x6 ~) {4 x7 q9 Z   3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
    & m; ~* T( C& j# R" O" B5 k' a4 I   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9, , f8 e, ]: T7 r# i
       3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {6 o2 h+ _/ V0 y
       3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9, ( h) N- M7 F0 Z2 j2 Q% L) I; \. A1 b4 M
       3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
    / K& ^& p' X3 M6 {6 L2 r}, Open  ]],: [+ e  L3 w5 [% h9 P

    7 B6 T" r, r6 Q) n6 O& QCell[CellGroupData[{' Q: ^& h  _3 x+ {

    % {: P) Q7 S) Y3 ~Cell[BoxData[
    - Z3 s9 x+ P! A! r* y/ |; Q$ S3 U RowBox[{"Delta1", "=", 3 @' l. H5 P& G8 _6 u% W1 e
      RowBox[{$ b( J! g. _0 a) N% `; z! S
       SubsuperscriptBox["\[Integral]", 3 c( K# ~- o6 Q$ H: {/ k" S
        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], % E; o6 T" R1 R4 E* F( S
       RowBox[{9 g9 K* v5 Y4 E' Y. m
        SubsuperscriptBox["\[Integral]",
    ! I7 H; E; ^* e. ^5 D$ b1 [     RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 5 k- B. d8 R$ c# f- c
        RowBox[{  ?2 }0 u6 W$ z
         SubsuperscriptBox["\[Integral]",
    3 {  j- |3 Z+ m' p/ t( m' V$ a      RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    - q+ U) T& q8 f, [  p& T+ N     RowBox[{1 C; Y, o( e( r9 O
          SubsuperscriptBox["\[Integral]",
    # H2 A+ ?! K! v/ s9 S  K* {       RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    & Q: w, W: C6 X5 p! `      RowBox[{* E  B5 j  t. ?* k+ w8 Q0 \
           SubsuperscriptBox["\[Integral]",
    / Y. M! o% Y5 w- _" [        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    % P2 t0 C( G+ r) x6 A) E       RowBox[{
    5 Q; v% {. ^# q        SubsuperscriptBox["\[Integral]", 0 A2 j* r: }7 P, X# `
             RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], . `0 w3 _  c0 S. i( v$ F: Y* q
            RowBox[{9 A2 ?% R. ^2 n4 E6 ~
             SubsuperscriptBox["\[Integral]",
    4 Q8 x+ m5 q" u, [          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], # k' q( e+ Y! j+ q+ L/ p% p7 I3 Y
             RowBox[{. x6 L! T6 C  o9 p
              SubsuperscriptBox["\[Integral]",
    * p. `3 I6 A3 [: R1 {# K           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 7 R+ ~1 J6 S* ]4 M) K2 H* X0 R# T
              RowBox[{
    ( c1 r/ q" y% }7 v           SubsuperscriptBox["\[Integral]",
    , ~. n3 Q7 T3 R! S% ]8 _2 K% N            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    7 ]/ J% x8 w* C           RowBox[{
    : G) }7 ^7 a0 R( v; x            RowBox[{"Exp", "[",
    $ }! D+ v9 O; \/ p             RowBox[{
    6 ?) e; \& B2 X              RowBox[{
    " g3 E1 h+ l, C2 k               RowBox[{"-", / n, T# Y! N8 H" R9 L
                    RowBox[{3 D" s$ j4 |  }- O
                     RowBox[{"(",
    ( \- Y7 M: Y/ x& S, x1 b9 v                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 1 ?( g" W4 d2 {( L# {
                     RowBox[{"(", 5 N. d! C1 n" `" y" G2 Z
                      RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
    : j. l' Z5 i. _9 a$ B, C7 f4 a  }              "Delta"}], "]"}], + }, t( B' H( ^4 Y# p
                RowBox[{"\[DifferentialD]", "x1"}],
    ' e3 ^  K7 U0 ~: N; O5 _            RowBox[{"\[DifferentialD]", "x2"}], / K* I7 ]) _  [4 P& X2 O, ~
                RowBox[{"\[DifferentialD]", "x3"}], 0 {0 ^7 K% Q" V
                RowBox[{"\[DifferentialD]", "x4"}],
    1 u5 _' [7 K' ]: H            RowBox[{"\[DifferentialD]", "x5"}], ; q4 N3 ~2 P) P3 O& F
                RowBox[{"\[DifferentialD]", "x6"}],
    + M5 m0 q+ D3 O            RowBox[{"\[DifferentialD]", "x7"}], 6 c3 d6 \  ^: ]3 X. m( O$ K, n
                RowBox[{"\[DifferentialD]", "x8"}],
    / o# ?5 V5 \* w, z% Q+ p            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
    1 N( A2 L. t5 r# o; ]. I7 \ CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {8 P* P& M/ ~" K5 Q4 F6 R4 u
       3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9,
    8 B0 g  S3 S$ k# @8 ~   3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {' ^3 a$ X2 L$ ^3 k/ m' r$ r; g
       3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9, 8 g5 |: n4 x9 k' P+ U; Z# x; P
       3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {
    * R" u6 U- ]9 R& d3 g7 Z8 E   3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9, 7 F+ o3 L+ ?' H! d" [( J" O; i& e
       3.577918964453125*^9}}],
    3 _  o. Z) k5 G1 k  U
    % |# q0 t( w. w( Q6 o5 sCell[BoxData[
    & e9 E) R6 H, O4 @6 [- t. b: k( n RowBox[{"97.40909103400237`", " ", . W( W7 d0 s7 f: ~2 V5 b
      SuperscriptBox["Delta", "8"], " ",
    1 C9 z$ s# X- G9 n* J/ B  RowBox[{"If", "[", - B, [, P( [; _( k, G% s
       RowBox[{  {% I" D, x/ D7 e
        RowBox[{
    % Y$ w0 X4 u8 a( J1 N! }     RowBox[{"Re", "[",
    & F3 X7 T# J7 H! K      SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
    8 L+ O! }: x2 K0 [) ]" f    FractionBox[
    ! A/ _* L- M& G; E1 I     RowBox[{"1.7724538509055159`", " ",
    ! g4 J; e' Z. M# m* f6 d8 o$ j( {      SuperscriptBox["\[ExponentialE]", % U0 h& L/ P: Q7 w" P2 h! [" ^
           FractionBox["1.1102230246251565`*^-16",
    ' X7 P  q5 k7 l& |8 t        SuperscriptBox["Delta", "2"]]]}],
    " Y( y  s2 `. x6 T0 y     SqrtBox[! `4 A# y4 o' w' p
          FractionBox["1", ; N% I6 H7 D' g- V
           SuperscriptBox["Delta", "2"]]]], ",",
    ( s* W6 q0 _7 A3 s    RowBox[{"Integrate", "[", 2 I0 l- q7 F8 `) K& y1 P  U
         RowBox[{# z! ~! t& @0 c. }1 ?  K
          SuperscriptBox["\[ExponentialE]", 4 m* i+ M! r4 ?- p8 @( V
           FractionBox[- D' Z7 k2 P4 V- {; p6 i. h/ y
            RowBox[{"1.1102230246251565`*^-16", "-",
    7 `" S0 m% J# i; ~2 C' T         RowBox[{"1.`", " ",
    3 R4 _, E9 Z; J. v& N7 a          SuperscriptBox["x9", "2"]}]}],
    : F/ F" f2 c7 |8 R7 r        SuperscriptBox["Delta", "2"]]], ",",
    : i$ L! ]: m- s$ N$ q) M  `+ L      RowBox[{"{",
    0 @1 t5 N# n! |" K' w' z9 N6 f* d       RowBox[{"x9", ",", * @0 y: l$ U5 ^
            RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
    7 B' ~+ i- I0 P/ [      RowBox[{"Assumptions", "\[Rule]", 3 C5 ~. E! m. p/ l* K
           RowBox[{' j) P0 R- y6 p0 `# F2 C$ l% _1 M
            RowBox[{"Re", "[", 8 U+ M# S. X! j+ q- h. U
             SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
    * x6 T  J. j: b     "]"}]}], "]"}]}]], "Output",
    ! y3 V2 U- N2 M# l: h CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9,
    % W5 O+ w7 I: J& T5 J  3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9, . w, B2 F  M: q& ]8 ?
      3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9, " r+ ?0 m4 G0 l1 X
      3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9, . e6 ^5 a( V5 n! p' S0 i* ?; u
      3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9, + a2 r7 ]8 X$ \; M% s  `) N, @
      3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9, 2 C. |2 h- c; M9 d# S* V0 g& g
      3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]! Q% n: u9 c; U6 N
    }, Open  ]],
    * M( X* T: j0 r9 d1 ]+ z$ O: l7 a" N& `$ w* R9 d
    Cell[CellGroupData[{( ?8 m& O. F  F! S# m+ u

    / S/ r5 R: o4 L/ H: `Cell[BoxData[8 x. g; K2 y# J4 x' @( i
    RowBox[{"Delta1", "=", # D  H* G& w8 Z
      StyleBox[  i, J( U0 W- Q! O7 _4 U
       RowBox[{"97.40909103400237`", " ", - l7 E) p, a$ ?; i: m
        SuperscriptBox["Delta", "8"], "  ",
    0 H  x2 A1 \. s3 e! r; V    FractionBox[
    - c. t: \, J8 R3 W     RowBox[{"1.7724538509055159`", " ",
    2 t# K* G8 F( @  ~; {& n0 R( a      SuperscriptBox["\[ExponentialE]",   `+ ]# X1 ^4 X" n/ X/ A# k0 K
           FractionBox["1.1102230246251565`*^-16", + [8 ]) X8 f) N9 c7 L% x0 }7 H* U- \
            SuperscriptBox["Delta", "2"]]]}], 4 z# B- f6 m* S5 [- g) r$ W
         SqrtBox[; Q; h* _: U  a  ]" A
          FractionBox["1", 0 J4 l( ?, ^6 V  }
           SuperscriptBox["Delta", "2"]]]]}],' M/ {, I. A/ s/ ?% N
       FontWeight->"Plain"]}]], "Input",2 D, y$ G# ~! D0 T
    CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {; ], @% F. y4 R- {' o9 F; ?& |% z
       3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9, $ j- w, H" V" J) p% ~
       3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {; n2 m: W0 C  g! X% p4 Y5 S6 _) c0 @
       3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9, % ~6 ^# S9 o# ?3 c* R& n
       3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9}, ; M$ Z' |( Q! k8 M& d8 U9 k
       3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],* t0 ^# H  |, y7 N

    2 \$ i" }- c6 E& [Cell[BoxData[0 U) a! Y/ D: u3 _+ s! @2 `% u( m' ~
    FractionBox[
    ) a' ]) I; y. F/ A  RowBox[{"172.65311851642346`", " ", & {0 Y* x2 U+ |5 Z+ ^1 t
       SuperscriptBox["Delta", "8"], " ",
    7 A1 ^; ~. a# C/ b0 P2 t3 t   SuperscriptBox["\[ExponentialE]", 6 w% i" c0 r+ ]% u; e
        FractionBox["1.1102230246251565`*^-16", 7 \3 ]  A: ~! t, S5 T4 h6 c
         SuperscriptBox["Delta", "2"]]]}], : [$ {/ }, D; G8 q  B, K
      SqrtBox[
    3 U( x2 m- I+ a/ g   FractionBox["1", / I* P1 n; F) e) I4 m# `
        SuperscriptBox["Delta", "2"]]]]], "Output",
    % ?/ b- [8 E# s CellChangeTimes->{+ Z6 l5 o3 s& k2 Q5 a3 P" R
      3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9,
    ) d9 ^, I  G+ Z/ B+ C   3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9, 5 [* t4 @; Q+ Z8 Z2 r
       3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
    + I3 `/ q3 \1 i# U6 f  H   3.578012166234375*^9}]
    $ v% t, k( c5 O- i: V  Q: {}, Open  ]],
    % j: ]* ~. `3 o9 r6 J: K  R
      I: r; K2 \+ _# K" OCell[CellGroupData[{6 G: y/ D5 R0 {) X8 ^) \
    % y: O2 Y) @% D
    Cell[BoxData[1 R$ r8 ^& N4 s6 q  s( m7 x
    RowBox[{"DeltaX", "=",
    0 B9 O# S5 X& K/ x$ S  RowBox[{"FindRoot", "[", 9 o! H- ~& p- D, D( h0 k: C
       RowBox[{
    ' Y. H: N5 ~8 U    RowBox[{"Delta1", "\[Equal]", "1"}], ",",
    - u3 V. H$ P) q* s5 U    RowBox[{"{", % t2 ^, Y: B$ S! C3 w
         RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",# I! I3 ]3 e9 `: Y, p+ P: t1 l3 T( g
    CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {
      Z2 a2 I" b  A9 d# d% k% Y/ e   3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9, ' ^9 x) N$ U! k
       3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9, 0 M* ~: a; x' ?
       3.57791921584375*^9}}],( S6 ~# L4 [  Z7 ^; D+ H, @

    ( m6 w3 C7 H& pCell[BoxData[
      f* ^6 _8 e! W& r RowBox[{"{",
    9 \$ k1 J+ c$ H  RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",# \2 s3 ?; D) \- Z3 C0 U
    CellChangeTimes->{
    1 A* K" p% X, ]7 D/ {, X1 L  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9}, ! V8 H9 q: g: q- M2 v6 B
       3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9,
    3 h" C( q" m5 M! i+ G   3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
    ( t3 e# l, l* c% i+ H$ U, {/ @3 w" i& S   3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9, / R6 z6 N, d0 [: P( w0 r- A
       3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
    5 `6 N" V  d# y" ?7 z   3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9,
    2 `  j/ |. @4 K2 L0 a4 t" z; k   3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
    7 S! V. m1 x! U% W   3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9, & ~& f1 Y8 c$ L$ G0 @8 _
       3.57796070150625*^9, 3.578012167703125*^9}]/ z; o* e+ I5 g  e* l8 @9 p& x
    }, Open  ]],
    1 K8 V$ M9 y# O4 l* C- C3 B
    ) a* A- D, @. O$ E1 i- B5 TCell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\
    5 D; {/ ^* b2 a6 k1 [8 f  N  V\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
    2 v( n, \" M! p0 F" O" m, i9 d CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
    ( D2 w/ T2 W$ ~. s/ s3 U2 P1 k* Z  3.577960705312657*^9, 3.577960707621461*^9}}],; R, n. c6 r  n( _
    # j0 N2 s6 `/ w1 v
    Cell[CellGroupData[{) W2 M, o) q# V, O2 R

    . |( O/ E8 w" p8 r9 lCell[BoxData[
    7 w6 N1 m& F+ H8 q. f RowBox[{"C1", "=", "Ca"}]], "Input",
    % i: [6 y" |; Z CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],9 ^" |5 \' ?- P- i7 T  p) C+ G
    ! y/ M- g, J# [
    Cell[BoxData[$ R7 {) {( Q+ c" c( F8 R# G" w
    RowBox[{"{",
    ) I2 M/ {6 Z- v6 u( A  RowBox[{( o0 k; Y1 z% ]1 `. ~- f
      "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", 0 Y7 L# p# S( D: @
       "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
    5 M0 c+ u! H. A) V+ M5 ?" e# y   "0.`"}], "}"}]], "Output",
    5 O9 K! ~. _9 ~ CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9,
    . \$ `7 l1 v$ j4 k: c  3.577960710273465*^9, 3.5780121855*^9}]) i8 o0 t" I- i
    }, Open  ]],# |0 Z9 g% {' |9 r' N

    1 {7 G  ]* Y1 @+ x8 GCell[CellGroupData[{
    " O! c; t1 C4 ~" X" m  b+ R" h# p
    " B& Z2 |9 Y2 ~Cell[BoxData[! s3 P& E5 K- t4 N( v' m* Q1 d
    RowBox[{"u1", "=", : b) T: ]5 k& B% h( J
      RowBox[{9 U( E0 L" Q4 c4 c1 H
       RowBox[{"Exp", "[", , H4 I( i4 ^$ n" Y  ^% F( t. c2 |2 ~
        RowBox[{1 i+ C0 u) [+ x  y) p
         RowBox[{3 K- k+ Q& _8 r
          RowBox[{"-",
    3 N: p8 h) W* j- b0 r       RowBox[{7 P: G, [5 U. Y2 Q
            RowBox[{"(", 0 \7 X# F% g1 x, t. L7 F
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ) _* J1 c; Y/ Z( b2 Q. ]        RowBox[{"(", * z! |; n. v, r: m
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],; H2 U5 d4 J/ F  u4 N/ s6 J% J
         "]"}], "/.", "DeltaX"}]}]], "Input",/ o3 g1 D9 g2 a" `1 E9 D
    CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {0 U, z* W( V  B
       3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {
    $ z# ~( r" J) I, [( ^0 q   3.577919193484375*^9, 3.5779192326875*^9}}],
    4 {. s2 b0 Q1 `9 B! ]" t5 E$ @0 s
    : U8 M. J  [" I3 B8 t* _7 g1 U$ O- lCell[BoxData[; m" y" X8 `2 \& T
    SuperscriptBox["\[ExponentialE]", 8 y2 l: M. ?( s6 `# l. d0 j$ W' B
      RowBox[{"3.141592653589793`", " ",
    * R1 ?8 o; H6 H( t) u1 j0 a   RowBox[{"(", - v2 I: ?( e& _8 X& N$ X
        RowBox[{
    & ?- n( C4 L( P1 A* i1 Y     RowBox[{"-",
    ) W5 I; _( y% ]5 m* c9 h      SuperscriptBox[# f+ K- K% f# W! K. K% w; u( f1 ?+ u
           RowBox[{"(",   v" V) q$ X* T2 f; m2 ^
            RowBox[{
    0 S  ?+ g1 y$ X3 f+ R1 s9 i         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
    1 E/ v1 l. v# `6 g1 u4 E9 b     SuperscriptBox[# L6 e8 A5 X9 D& U
          RowBox[{"(",
    * R0 Q/ T7 f1 E6 d7 ?       RowBox[{4 X% ?% y, Y& ?" m) Q9 Z% y/ ?
            RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",   K4 |1 L& }% [% U- t
         SuperscriptBox[
    ; _& g0 @; [" @7 {' t" d      RowBox[{"(",
    ( D" r+ i7 O  v$ ^       RowBox[{: n6 D. Q% f9 V  A. ~
            RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
    - `( d# Z) |# B6 \+ z4 n     SuperscriptBox[$ b; @, F; i/ ~" g3 _6 f
          RowBox[{"(",
    - k9 b! L- X6 F2 V       RowBox[{
    1 Q7 B- Z. t( c2 O5 W        RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", 1 U& C! y+ Q  |) o+ ^0 D# P
         SuperscriptBox[6 W; l! V8 i; C/ L
          RowBox[{"(",
    6 o5 C  N% V, S9 v0 ^2 |: n       RowBox[{5 Q" x: s! J$ Z1 Q  P+ v( v
            RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-", 6 |4 v, z; W7 Z: C; p/ q
         SuperscriptBox[, X/ K% W8 L4 E7 }! |
          RowBox[{"(",
    # [1 M0 r" o' z2 K/ m! M: l       RowBox[{
    + |, C0 y1 P7 z2 T        RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", 1 g. E/ D8 `  J6 u- y" Y
         SuperscriptBox[
    7 u) l  }) v+ B* g; I      RowBox[{"(",
    - Z9 V- S5 Y7 Q5 U5 u       RowBox[{, \4 f7 g' n$ f
            RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
    " A$ L2 A: Y5 w3 i% ^     SuperscriptBox[
      P4 N5 C1 P- F5 w4 K      RowBox[{"(",
    / w" T9 O' Z, Z7 Q  j4 V+ e       RowBox[{& L; y* D4 `5 V* w' K( F/ m( E
            RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", 2 N8 _  X, x% d8 t
         SuperscriptBox[
    # i4 m! l% s1 X' |- i/ W1 x$ X      RowBox[{"(", 7 g2 l, t% c. j- \) [$ v: }2 Y
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    - Z8 v: K) J! L! C    ")"}]}]]], "Output",0 \- ?4 P) w  T- U4 S' T' w1 x0 Y& j
    CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9, / O" V! K9 N: _; @+ {
      3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9,
    - {& B. V6 U' y  3.578012187078125*^9}]" r0 H4 \8 [4 R: y4 N
    }, Open  ]],! J/ @* r: }1 D, [! k& h- `
    5 e/ d; g8 n. Z% v0 j/ {9 c, D9 R
    Cell[CellGroupData[{
    2 G& n9 v; X' Q3 p! W/ Z; H) c0 |: G: t/ V  D3 M& O, l. O5 u7 t
    Cell[BoxData[- }6 S: e$ R. |5 p' w
    RowBox[{"C2", "=", "Ca"}]], "Input",
    - ^1 O* n+ P. l! g4 t7 @) }4 t CellChangeTimes->{3.57792047321875*^9}],5 I7 k8 Q$ q" e- A: |: o4 e9 Y

    2 S6 U! {$ H. D& t2 |- t7 y; F+ u" O( V0 `Cell[BoxData[" s/ T9 T# `. o' ?
    RowBox[{"{", % P5 y% ~+ F2 B  q+ G2 ~4 a
      RowBox[{
    + Y9 b( }5 P* q9 i" I  "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
    ( |/ f& F$ H) G) j   "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}], / i- a2 H1 j$ X6 ]
      "}"}]], "Output",
    7 l/ e9 Q, Y( m, Q CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9, ) [( \/ h5 v1 y' g2 t  a' g  l# U
      3.5779607401163173`*^9, 3.578012204671875*^9}]
    : \) b2 u( o( o9 b+ `7 ~}, Open  ]],
    " h& }4 i) r: [
    ( Z1 ~" _; }2 q$ ~5 PCell[CellGroupData[{; Y2 n2 d7 W2 V* K$ S" f; S

    % G) [7 w2 S, ]7 F5 h5 CCell[BoxData[
    % r( I% Z1 A1 V RowBox[{"u2", "=",
    + s) _4 z' s1 x0 }7 w2 b% L- |6 I  RowBox[{3 ~5 T1 `5 c; _( J# R
       RowBox[{"Exp", "[", 2 [  t3 f$ L! E# b- G8 p7 T& f
        RowBox[{
    3 J, ]' }* E8 ?+ s. G: X* k) k     RowBox[{& u, K4 i* k  o8 m6 [6 u) R0 M
          RowBox[{"-",
    # S/ d3 X  K+ [7 {, L       RowBox[{
    $ U5 V4 U9 N9 h) F0 C+ t" _        RowBox[{"(",
    ( S2 o! }4 u; a0 u* |, e         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    - z* U. {) w/ K) _        RowBox[{"(",
    5 N' A- o. B) \' u0 c+ z         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    8 @" j2 z5 C1 [  h* x     "]"}], "/.", "DeltaX"}]}]], "Input",5 N  g7 E5 Q7 }+ V! x4 C
    CellChangeTimes->{3.577920484109375*^9}],
    & t0 a) v5 l* p3 i$ l
    1 U& J$ I* O: [1 b% |* _# e: V: ^Cell[BoxData[& {: I. J, d" n2 j! v$ v3 J$ _
    SuperscriptBox["\[ExponentialE]", 6 L" @7 }1 ?- C. n( E' t+ a' Z  g3 M5 i
      RowBox[{"3.141592653589793`", " ", / G4 a; f$ V1 m* {) Y
       RowBox[{"(",
    ! T7 y$ u* Z% g% v% w2 H* i8 f    RowBox[{
    9 m1 `$ q  j$ V. F' h, G2 R6 @     RowBox[{"-",
    5 S, y) R, J4 H8 y6 @      SuperscriptBox[- m8 [; G* y* ]. X7 C% P6 P
           RowBox[{"(", " V! ^# v' z, }: B# G: @1 K' ]
            RowBox[{7 |; V; H" b8 g) Z. A
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", ( ]1 a6 S# ?& d; Q
         SuperscriptBox[
    - J5 u$ F0 W. s' t      RowBox[{"(",
    . A5 F! G  V) @# w* J+ R       RowBox[{
    ( U8 P+ J! f8 T1 a3 Q& }        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
    1 H: H1 Q0 e0 N; V) u     SuperscriptBox[
    + @! b/ ]* I/ W/ k      RowBox[{"(", 1 z6 K' l3 t$ s) d8 o. j
           RowBox[{
    $ u- z6 I% y- Y        RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
    % g/ G, {$ I- x( h     SuperscriptBox[! W) j! C$ R6 y8 I& ]
          RowBox[{"(", ( d  b7 |# E8 ^- W3 @
           RowBox[{
    # ^; K( K; C/ V" N( D, g        RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-", ( F( D/ [$ x( e( U) ^* U  X6 U9 x) D
         SuperscriptBox[9 ~- ^  ]" S* @- H
          RowBox[{"(",
    7 e, V4 j  j" r% r4 }       RowBox[{# O1 t5 c$ \- x) v* `4 b5 r
            RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", - y7 _) r+ M2 R- s, ]% [- k9 G
         SuperscriptBox[
    & V+ U- L+ K, R$ A1 J      RowBox[{"(",
    ' u$ b2 u' ^' J, o       RowBox[{
    8 }) {- A, B9 s  z* M7 t9 |8 `        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
    " \8 w/ O6 q: x# Y     SuperscriptBox[0 a+ m0 a" u2 v( u. {! f
          RowBox[{"(",
    6 p+ C' S. L5 x& u; g  L# _       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
      M. Z; w+ I0 r, f3 H5 B2 G     SuperscriptBox[
    % g+ ]! k. v$ n% ^% j/ G8 k      RowBox[{"(",
    / g1 w8 S7 E' e2 Z- T; n; I5 p       RowBox[{9 H3 Q" H' Z: M) F* J
            RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", ; S5 ^& l, i! Q( W
         SuperscriptBox[: U+ Y: w1 }0 d5 I: b( N
          RowBox[{"(",
    1 J! T$ `) [" I. D: t/ D0 c( k       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    3 o7 U# a+ d2 a9 b) @    ")"}]}]]], "Output",9 e2 \( [/ H- F# [
    CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
    : r. f# C4 X$ f  3.5779607413955193`*^9, 3.578012205484375*^9}]+ n; t4 Y3 O. e9 K$ F8 }
    }, Open  ]],% F$ V- u4 M0 v) K7 t
    ; [! K) _" x6 v9 i* h) E
    Cell[CellGroupData[{
    - n- ]3 m% d  h1 `( d$ Q& R! }4 R5 r; b
    Cell[BoxData[
    7 A& t) h: ]* S4 L4 _% l RowBox[{"C3", "=", "Ca"}]], "Input",3 i& k+ N8 t; I. f
    CellChangeTimes->{3.57792064125*^9}],
    $ o, c# [1 `& d, [# x- ^2 u  o2 d3 H, }9 v- s
    Cell[BoxData[
    # \. J5 ^0 q/ i( j, Q* g RowBox[{"{",
    / M% W: I2 f3 K# j/ k. B  RowBox[{& Z# O) B$ {+ V3 f2 }/ h! W7 @
      "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
    . Y6 W+ Y. w% e7 x4 _; O   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
    ; p  Z! O( C; h; n) b9 ]  "}"}]], "Output",  l2 k- P% ]( A3 S) w- Y
    CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9, 1 {! R" a! M2 _; s8 T$ Z9 G2 R  c  {2 e, d
      3.5779607642027593`*^9, 3.5780122103125*^9}]
    6 }/ J6 k% k5 r. i2 G! c, a* b( z}, Open  ]],
    ; D+ R+ n! N% `* `5 Q/ g6 L. q  K9 A" L
    Cell[CellGroupData[{4 ~0 _4 i! I: a

    . D6 O% A9 n% Y% n3 ?Cell[BoxData[0 q( G# }; Q. v- r7 N$ ?7 M* e  Q
    RowBox[{"u3", "=",
    " X# H5 K; p1 F- V2 M  RowBox[{
      l1 s3 @" A8 V6 c4 p/ R   RowBox[{"Exp", "[",
    ! \3 e" a; v! i    RowBox[{
    6 O$ M* }" D3 h2 T' S9 o     RowBox[{
    8 Q2 m6 n! N% y" J5 m      RowBox[{"-", * Z, @* A3 T% S& a
           RowBox[{- n7 y# W- D5 u5 i7 R% {8 C
            RowBox[{"(",
    4 S9 s/ q5 d( o4 I0 i& ~0 D5 z7 d9 S( Y         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ) U" }! P2 b3 A
            RowBox[{"(", ' b  _) M/ G4 X, s; r1 W0 o8 k
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    4 ~1 I& ~) U1 e' A: }     "]"}], "/.", "DeltaX"}]}]], "Input",
    / k' T4 v/ [" a) M! T CellChangeTimes->{3.57792064921875*^9}],
    + s) C# D' |5 |) G! m# q+ s1 B  i9 R7 d* a; e
    Cell[BoxData[- F: z; w/ N! {0 V% e! R3 I
    SuperscriptBox["\[ExponentialE]", ( i# K" A1 M* r( {, ]$ d; f7 ]& K
      RowBox[{"3.141592653589793`", " ", : M2 E! M; H2 @+ @, Q
       RowBox[{"(",
    % n, n' I% l6 d" |- V9 N1 B+ u( k    RowBox[{/ |1 P: s" A7 E) s" X4 _' _
         RowBox[{"-", - V2 K4 H; m3 v5 \! |# D" d; i- R
          SuperscriptBox[
    2 q' b7 |# r1 G, m% |       RowBox[{"(", 8 L) `4 a7 X( W
            RowBox[{
    & y- o1 t  }5 o+ |" y9 X* b         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", 4 @' B5 z8 h1 w0 w7 q
         SuperscriptBox[+ g! ~2 e) U2 p; Z/ j- H( F% `
          RowBox[{"(",
    * W; X0 x) h* e6 |       RowBox[{' F# B( a( g5 ^* V1 r
            RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-", + ~  z) i  X" t# _
         SuperscriptBox[
    . U: d$ L# V0 t      RowBox[{"(", : e& x5 S: o1 q5 c! ^$ h' D8 d
           RowBox[{
    : M3 o+ z2 M4 Z. A        RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
    ! p( n- N% C9 L# f& t     SuperscriptBox[
    / d7 _8 H6 O/ i9 i; U1 d      RowBox[{"(",
    " B3 z5 @$ B. L1 P       RowBox[{
    0 P& |9 X9 ~% p8 O8 q        RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", 1 X0 [3 f* t7 r
         SuperscriptBox[
    7 D' ]8 p' w* S' f+ ^4 |5 D3 \& O      RowBox[{"(",
    ( s* M0 w1 r6 _  L! J       RowBox[{
    ! r8 ~& E  A8 C        RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
    - y7 ?$ |4 P7 J' U2 L     SuperscriptBox[7 f" w/ U. M, E5 q5 [) ]
          RowBox[{"(",
    ) G* K8 T5 X, I& U       RowBox[{0 F/ ]0 n; K3 X5 L) P
            RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", ! h  X7 d6 J: F
         SuperscriptBox[
    + S" t6 Q+ f* Z0 t      RowBox[{"(",
    7 ]; o2 R# J9 g) {: x       RowBox[{1 V$ o* z2 Y; n; l
            RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
    " v1 b' G  c  J$ e     SuperscriptBox[, V3 j7 `* R/ _, D/ F3 v/ a' r/ Z+ {
          RowBox[{"(", 8 {( O/ \- p/ |; @! j% V6 O
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 9 m7 y9 f7 w# \, m3 N
         SuperscriptBox[; n* z% S/ p1 h& `, t  e
          RowBox[{"(",
    ( F- ^8 X5 E: k$ `4 R4 `) f. B       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 8 F2 D: a7 w  `0 O5 k4 u
        ")"}]}]]], "Output"," U. ~) y$ K1 g3 \0 B
    CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9, 0 Z- W. k3 `' P, W5 K: [
      3.5779607654819613`*^9, 3.578012211515625*^9}]
    5 e8 g( B  q0 W0 T}, Open  ]],* U8 p, J% ^# V; Z$ f: {: L
    " O3 g% P6 f2 `
    Cell[CellGroupData[{- e% {8 n1 G1 g" N+ d
    ) v' ?- k9 x, e4 \5 I  F
    Cell[BoxData[
    ) ]: D3 [+ y. o7 |9 e6 T; j RowBox[{"C4", "=", "Ca"}]], "Input",4 h$ w0 s; J7 Y& F, c0 b
    CellChangeTimes->{3.5779207559375*^9}],
    " w: L, P. I: b7 S3 Q  X* H9 m+ o& u8 s  S( b$ J
    Cell[BoxData[
    5 g$ X# c/ e# j" u RowBox[{"{", " }5 f. A- y( N( Z4 H7 r
      RowBox[{" J% r# M' w7 [' y
      "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
    ) N: w% s/ K( }) o% T+ U   "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}],
    / d- R# I- F; q3 ~& E2 o* u2 x0 S  "}"}]], "Output",
    , S% y4 b0 b# y: L; G9 c# M CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
    * \* _9 `7 s4 v& S) J  3.5779607861363974`*^9, 3.578012216171875*^9}]8 J! n( ?5 S$ V7 M
    }, Open  ]],
    ! t9 ]' a( t  |& Z% Z) z0 \
    ( Y5 ~! w4 Q" d& oCell[CellGroupData[{
    / m* {1 U6 j7 x$ ?4 A$ Y* K  N1 m/ F
    6 i- }4 T4 y+ yCell[BoxData[
    6 S$ B7 P2 c* ?$ y  h" P. ^ RowBox[{"u4", "=",
    $ z% a! V6 |7 {4 }! T- ?, x  RowBox[{
    8 ^9 _  G% o! w- ?   RowBox[{"Exp", "[", 1 ^0 D7 Y, d0 B
        RowBox[{
    * C* q, d& G5 @" V5 m0 i9 {6 \. R" e     RowBox[{  V$ L1 R# r* `
          RowBox[{"-",
    % V, J! ]% A$ C% j9 Q8 G       RowBox[{, ^5 v  \, U0 V) m# R
            RowBox[{"(",
    ' [6 Y* @7 \8 W& J. ]         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    8 ^6 x6 W3 q4 f  @* w        RowBox[{"(",
    1 c$ D6 y, n" g+ o) P- d* p         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    8 A  \' h% L6 v0 H0 c     "]"}], "/.", "DeltaX"}]}]], "Input",
    2 U4 W' K" g) ~. g& a CellChangeTimes->{3.57792076325*^9}],! J+ U7 E& o- Z1 u3 {$ b( x1 ?" c
    ; N3 }, H, j/ I# h& |1 K
    Cell[BoxData[
    + D( |* |1 W6 l8 w SuperscriptBox["\[ExponentialE]", 3 o3 V0 [- `# Y, m8 f. G! ?
      RowBox[{"3.141592653589793`", " ",
    + T5 h+ s9 k# {( a2 K! d8 s   RowBox[{"(",
    ) M7 D% l% {- t0 v+ ?4 P2 p- r    RowBox[{
    3 |4 [6 u3 _# M' o0 R     RowBox[{"-", ) n% Y. }+ e& Q, _
          SuperscriptBox[& I$ Z4 B! M5 W8 \* z8 ~
           RowBox[{"(", : D$ t: I2 C4 P& W1 g; j  i
            RowBox[{$ n8 O: e( B  Q' t0 R0 B9 O/ T
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 9 l# }$ D! a0 f5 [  \
         SuperscriptBox[  w+ a* v: p, p# k$ p7 w
          RowBox[{"(", 7 e6 @( n7 Z( C: ]5 i
           RowBox[{4 M: }4 D8 a4 L
            RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-", * z  U/ {: p! I( T" G
         SuperscriptBox[# Q' ?3 z2 i  ^8 B4 t7 `
          RowBox[{"(",
    1 z7 Z& Q* F+ `, k$ z       RowBox[{
    " u- x& }! X( D$ g        RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", 7 t% E1 `4 T6 ^1 Z& D9 d5 @  ^
         SuperscriptBox[
    / V% c* k; k, p/ P& B      RowBox[{"(", ) N: r4 Y& l* A* W. X
           RowBox[{; v! v: Z  ^; k* v1 q0 k) |
            RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
    + p4 D: d- j. S( T- r5 p4 D     SuperscriptBox[
    ! y0 v7 K( ]1 ]' i& ]      RowBox[{"(", ( N% [# G- P8 u
           RowBox[{
    - j2 a& @' X/ C! j        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", 5 O4 [7 h  a+ @8 s" z+ y; g* H
         SuperscriptBox[
    ' q" L5 C8 l7 L' K8 v      RowBox[{"(",
    * L/ R2 z7 `3 d: S+ v/ @6 U+ y       RowBox[{, n6 D' S- p' Q* A! t3 C
            RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", 7 M8 Z% Z& w0 V* W( N% W: L
         SuperscriptBox[* g- A7 ?# B; x. |
          RowBox[{"(", ; E/ a# \/ T7 q2 c5 O/ Y! e
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    4 v! u& G& L5 t; U2 L! u, T1 ?3 o; I     SuperscriptBox[2 R* Z: z9 ~7 ?1 [' v' j. L
          RowBox[{"(", 1 l" k$ g$ l8 G# z/ i( E
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    5 b5 K5 ?( ~5 w5 l9 A# ~! T) Z     SuperscriptBox[
    3 y$ C2 T4 k6 C% a+ Z      RowBox[{"(",
    " X1 h% w) d0 t- O6 I4 A       RowBox[{/ B/ Z: t3 C3 k% v( ?8 x
            RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}],
    ( [' ?4 c" c* t$ s    ")"}]}]]], "Output",& A( S. s( T. W) K! q& i
    CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,
    % Y9 y1 G0 \# h$ W7 n1 G% A  3.5779607873531995`*^9, 3.5780122169375*^9}]! E. i5 G4 ?$ O) C  d0 |
    }, Open  ]],' ^0 G) j9 G# `2 C8 w

    8 y9 d3 c& _9 x) wCell[CellGroupData[{6 p# o. f6 o) V: x& A6 e3 L
    $ ?. j6 F8 A2 Z* g% r8 L
    Cell[BoxData[  }2 s5 D; n0 B: P/ P5 C: I7 H
    RowBox[{"C5", "=", "Ca"}]], "Input",
    4 \6 |, h) q. ]4 [! w1 H1 c" b CellChangeTimes->{3.577920860671875*^9}],% y8 Q$ |* q. n
    0 E  {* u' ~1 }9 J+ V& j- k
    Cell[BoxData[2 {9 J/ U* {  E6 C( m1 _
    RowBox[{"{", 3 p3 {5 E/ R+ [  _' o. }7 w; |
      RowBox[{; A- F5 V5 N0 N: e" [& r" V1 Z- s
      "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",", 5 x5 e6 ]* q( I* L
       "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],
    7 ^( r* W5 D/ }# p7 Z; O) n  "}"}]], "Output",8 [; }* {) b& C- D
    CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
    ! s" j  ^( {, j$ x3 s  3.5779608137328453`*^9, 3.5780122209375*^9}]% O+ C( b, Q* G1 b  N
    }, Open  ]],6 W0 L) W3 x( z% G1 n) @- Y
    7 `- i# O) C# k3 U# y; M2 \2 B
    Cell[CellGroupData[{( j/ C5 O3 b* @+ l0 Q; S

    % z# H: x5 D1 ]! X. ~$ ~7 {2 }; `# ]Cell[BoxData[3 H2 i; Q( C, X: {
    RowBox[{"u5", "=",
    2 X* ~2 Y2 d, X  RowBox[{. ?* i7 s: G2 c, ^: x% e' y5 J' D
       RowBox[{"Exp", "[", - c' b8 g* e5 I# g1 T
        RowBox[{
    9 _. c0 Y( R8 H9 }& Q     RowBox[{
    9 `: _3 }8 ^" C7 `      RowBox[{"-",
    + _; Y4 B  m6 X  U) F       RowBox[{
    ) d( w2 G. Q* A' Z        RowBox[{"(", ; b) L, i" {" t: E
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",   N# k" V9 \$ m+ A! ~# `
            RowBox[{"(",
    1 d+ u5 {  L1 A         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],4 Z0 h" J; E5 c- W! o2 N
         "]"}], "/.", "DeltaX"}]}]], "Input",5 y* R* x, I5 C) ?8 L
    CellChangeTimes->{3.577920869375*^9}],
    7 D* `, a, }! n( ^
    6 `6 j. e9 @" c  UCell[BoxData[
    1 i9 D$ [" h5 C! n: Z% |$ k* x SuperscriptBox["\[ExponentialE]",
    7 w: d* S4 u) G$ C6 u: m5 T& C  RowBox[{"3.141592653589793`", " ",
    7 x3 o- ~- P/ {" ?( P   RowBox[{"(", $ B) e) e' L5 `: L# s! s' U( v
        RowBox[{
    * j* B4 L/ A/ m( ?+ y     RowBox[{"-", + v# `! `; C3 o. x, T) ?
          SuperscriptBox[
    % ~7 U3 U) u1 X. r       RowBox[{"(",
    , W' _: t; v4 g        RowBox[{
    ! X4 C& X# n+ a' q) L% ^: o         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ; x5 [7 Q! m7 D) ^     SuperscriptBox[4 [4 ~* ~: ]; t# M$ j, k& }4 I
          RowBox[{"(", # o& r/ z# z: @0 }! a: b% C
           RowBox[{* Y' L; q- d) b+ R+ H& w
            RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-", 1 S# U7 W$ B" Q3 o# e
         SuperscriptBox[
    % g8 k3 h7 x9 b4 O" Q; y      RowBox[{"(",
    1 w0 y2 c2 ^: _; d, b0 z3 v- S; d       RowBox[{
    * J7 T9 D- L' ?        RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
    2 b3 O2 u$ s; A2 x" T: T( M     SuperscriptBox[$ D2 I8 ~( o$ n+ ?
          RowBox[{"(",
    ; C& p" p9 G% J* l; m, k. q       RowBox[{' c6 q1 f1 G: ~! Q. U
            RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-", 6 v$ Y& @+ m+ S
         SuperscriptBox[
    4 l- e* h$ @: K+ b0 `9 S, c- R      RowBox[{"(", 9 \! p8 n6 l/ d8 t: R+ C$ w
           RowBox[{
    1 o( @1 u3 B/ w$ t  ~- j4 B: a+ A% M        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", ! h# Y6 }( G+ q2 M  ^/ u
         SuperscriptBox[
    0 e8 g) ?6 y0 i" `* b      RowBox[{"(",
    2 S. x2 ^% t9 l8 \/ G, y* h       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    * e- h% c/ ?: \* ]1 U' B     SuperscriptBox[
    9 w- t& c  n5 j) L( Y      RowBox[{"(",
    5 d% O3 V8 E" N' O( [+ W       RowBox[{$ G- i4 r; H6 Y
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", - H% y" N3 ^# ~
         SuperscriptBox[
    , q% V/ i" z9 ^& e      RowBox[{"(",
    9 B- ]! l3 g6 u       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    + Q& b& m! G/ W: \) ~' F' r     SuperscriptBox[# D/ d) r- C/ }/ K7 g4 n9 r' g9 Y
          RowBox[{"(", 9 ]. c; }1 E8 R  H" f* W3 i
           RowBox[{
    ; F- c' y" @# b. ?. O) ]. }1 {* E1 ~/ P        RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], 7 P6 k: Q1 f! b* q8 z0 Z3 a
        ")"}]}]]], "Output",
    ( D' a. {8 _  G* _: S& { CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
    9 O+ D- I  W) }7 l, O9 ~  3.577960815043248*^9, 3.578012221953125*^9}]
    ( j2 T: j7 L1 v/ [}, Open  ]],
    # ~+ f3 f% v) s, @( |3 w
    ) ?( Y( E, p& Y6 z! v) r3 ]/ X+ JCell[CellGroupData[{' R2 X! U, |5 d! L! X
    9 \6 ]1 {9 @* Y* n* o
    Cell[BoxData[
    % T6 m1 @+ ~5 l- B8 o RowBox[{"C6", "=", "Ca"}]], "Input",
    ( M& Q* `/ k- ~. n! n3 E) T CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],5 o7 U0 V/ E9 K" `% w# H. ~# I5 E' {
    / G0 n4 \7 `7 j  D
    Cell[BoxData[* L* R* _5 n5 {1 C4 [( C  K
    RowBox[{"{",
    , v2 E, j! F" Z! Y% u  RowBox[{
    . g+ C5 w5 a4 a2 n4 [. Y  "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
    9 F0 D% n; O4 Q' b0 H   "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",", 9 y6 e) O1 d1 l
       "0.494866`"}], "}"}]], "Output",' ~+ q& t) w! x- ~/ z
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,, B& L( O7 y% u
       3.5779608373044868`*^9, 3.578012227359375*^9}]
    4 S$ q& N) I5 g8 o}, Open  ]],3 g8 ?+ Y5 h! Y5 y, p0 E

    3 P' a! z$ e. Z) q8 JCell[CellGroupData[{
    3 J- t: s. ?  Z; g* f3 B; t- ~0 H: T3 r' H3 a) m
    Cell[BoxData[) ~& z  k3 _! R  h7 Q1 G
    RowBox[{"u6", "=",
    $ ^1 K: t" L  k8 U# z, \  B" `" u  RowBox[{: C; l+ `, T6 F3 I% D8 I8 j' ~& e
       RowBox[{"Exp", "[", ' i( ]; x( {) s* `" I
        RowBox[{
    : K1 }- b9 F/ u% r     RowBox[{
      L0 k8 A6 u: C      RowBox[{"-",   k+ y5 i. f: S7 x0 G0 G
           RowBox[{
    $ b, I! @: w0 }, P        RowBox[{"(", ; z1 `% e! D$ N+ ^& Q
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ' I2 b4 z9 I; t$ M+ L4 W
            RowBox[{"(",
    ) @2 u3 D1 p6 t+ a% ?" Z& l$ m         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],: W2 X8 k# s+ M1 k
         "]"}], "/.", "DeltaX"}]}]], "Input",
    $ o& \/ c( v+ t CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],
    # @/ }3 O* N! S% T: J+ J3 R
    0 d5 u1 j$ G0 H3 YCell[BoxData[' ]; I( u0 ], n0 d. f3 Z
    SuperscriptBox["\[ExponentialE]",
    0 V+ P7 T9 X; d% y- b' l) D  RowBox[{"3.141592653589793`", " ",
      F2 e! J9 z3 W+ ~1 z% k* l7 G& j   RowBox[{"(",
    6 q/ D7 x- Y" ?( M4 _    RowBox[{! F, F: u+ L0 H( i6 K! R! G: _  o
         RowBox[{"-", + Q/ S3 k; [4 }9 |
          SuperscriptBox[
    ) j; O& ?/ {. k/ u2 s: e) W       RowBox[{"(", ! b7 f- b: R8 H% `* p  U) x
            RowBox[{
    ( e+ Z" E% o! B! y' ^         RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
    7 ^2 @5 K& h, A     SuperscriptBox[8 f6 \3 t' c- W9 ?+ }
          RowBox[{"(",
    * X% e5 T  M! x: d       RowBox[{& h, s& p0 s0 h3 E# Q5 V
            RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", ( t. T! l) U3 d) P! h% C4 W: F$ s
         SuperscriptBox[0 i% l6 r- V: d$ b; x" \9 n0 O" Z
          RowBox[{"(",
    ( V  t) }" |  N: n5 T& c# g       RowBox[{
    0 d" _: V) Q; q. r% ]        RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
    ) l$ H3 L* ]6 L     SuperscriptBox[
    / n1 T9 V8 E, O0 v6 D  ]      RowBox[{"(", ) T/ x# R" Y) n5 K7 c' m
           RowBox[{
    $ F6 Y: B3 W7 E; I! x+ b        RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
    9 z7 k1 g  H9 M     SuperscriptBox[
    * i& z+ O# K  }- v, j      RowBox[{"(",
    ( n1 z3 \2 }$ r0 ^" A       RowBox[{# S8 l: @& ?+ ^2 j
            RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
    1 i( Y8 F* m  ?1 k* {7 X* F     SuperscriptBox[% ?* Z: ], U) P: B) }0 e
          RowBox[{"(",
      Q/ J, k& C* n2 B       RowBox[{
    ' z3 }( [0 i9 p+ m) }) h        RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
    6 _. R* G- ]$ `5 l/ Q  s     SuperscriptBox[
    5 o7 m# \5 x3 S& H. H2 s      RowBox[{"(", 9 V5 L( i2 W7 u% `( ?
           RowBox[{
    ) H$ M9 |: S% J6 R( Z' r0 H5 A, r        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", - l2 Q/ e! h- x7 j) ?
         SuperscriptBox[) N$ q% ~  w! Q. T6 i8 O9 r2 a$ w$ V
          RowBox[{"(",
    ! W* l% Q* }6 j$ J# d- I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", # G& V- D/ v. H; A0 ]1 q  W8 c
         SuperscriptBox[! Z3 v0 X4 ?7 D/ h* n; U
          RowBox[{"(", " Q+ E; c. ?" L/ X" A
           RowBox[{
    2 i: Y3 Q0 q; D        RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}],
    5 `$ D. S) r4 u" a    ")"}]}]]], "Output",6 e1 N1 ]# k. M, J! Z6 }
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, 1 y8 ?3 a; L. h. ~4 f8 t' j
      3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]8 I6 ~. z+ \! L( q
    }, Open  ]],
    : G& ]5 A% n1 N- Y, }2 k- N, |3 W
    ' d, _8 z) q- d7 f5 L) n( z# VCell[CellGroupData[{
    : k6 T5 U2 W; m# q% b0 c$ G
    5 ^0 h& W% G( G! LCell[BoxData[& X8 \6 j' d  n: D- S
    RowBox[{"C7", "=", "Ca"}]], "Input",
    ( R. e3 T! p1 V+ N- `% V CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    $ ?7 b4 _: `; l3 d, G  3.577921316125*^9}],
    # [. r2 c& g) D7 K! u0 ?& K  }9 Q/ ?8 W. k% |! [8 t6 V! `& K
    Cell[BoxData[
    9 Z7 ~" A. B' z: Y RowBox[{"{",
    / g1 i2 \3 t6 ]3 ?3 A( b  RowBox[{
    8 O! `$ I0 \# n3 q- x- R) y  "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
    ' f6 L# b' J) X0 F2 n   "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],   {' C  b# Q- u, w2 g! b6 K
      "}"}]], "Output",
    ; f# ]8 {3 e/ K' m CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, $ X$ N( C0 u- t+ |5 I: R
      3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]1 `; o' m: D; X% y
    }, Open  ]],
    " K4 R. k" e4 o7 l9 |
    : x7 `9 L) p2 o! ECell[CellGroupData[{. @; ^  s* D9 m; a
    * G# p- l# u0 z" {  i
    Cell[BoxData[# F& l: m5 u8 J/ N0 v
    RowBox[{"u7", "=", 8 D* e4 A; Q* s& o
      RowBox[{
    ; [1 z: n4 i+ _8 K' }' O   RowBox[{"Exp", "[",
    : D# w* O- o4 U    RowBox[{3 F5 R# P/ ^+ d) f  J: M4 ?
         RowBox[{
    9 \1 G& s- z4 Y# z: p      RowBox[{"-",
    % Q4 R! u8 N5 v- Z; B' X$ S5 d       RowBox[{
    0 O2 y6 V7 T8 I        RowBox[{"(",
    + `/ Z8 G$ g( q  U( m2 ]8 r         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
      W6 W8 E% l0 v, E( U        RowBox[{"(",
    0 L- {/ G' J4 Y$ I8 O         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],+ U2 c( f4 U9 R* }
         "]"}], "/.", "DeltaX"}]}]], "Input",6 O0 Q% {8 Y& A% }
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    9 p7 t# b) n- K/ r% \  3.57792132028125*^9}],* _( Z! K9 I) `" N

    7 T- k6 J& e$ k0 x  Q1 `8 @Cell[BoxData[6 l) v; B! A1 I# L8 [4 w2 H3 M
    SuperscriptBox["\[ExponentialE]",
    ! i* n% D$ u5 M  R4 \  RowBox[{"3.141592653589793`", " ",
    / h* d5 b- f3 q( D# u1 f   RowBox[{"(", / `( S- X, S: Y: b$ q9 l
        RowBox[{: Q$ g" p$ A3 e. \4 f
         RowBox[{"-", + O$ p* ~0 @3 F& Z
          SuperscriptBox[0 F* L' Z2 Z* g0 z( ^4 a# F
           RowBox[{"(",
    - Z- D" d3 Q0 W        RowBox[{) [. F: Z1 C$ V
             RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", 5 R7 ~. F1 z" R6 M# n
         SuperscriptBox[& E/ H  h  y, B$ w
          RowBox[{"(",
    + y) ^4 l8 P$ m4 z$ u- l! G3 s       RowBox[{
    ; \# r+ K6 ~1 }        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
    * {9 v$ n3 I& f- Y     SuperscriptBox[$ K3 C. T* Y1 m. F* O
          RowBox[{"(", . S" ~* Z9 Z5 ^1 z
           RowBox[{" P% b! Y, U0 `( F* x
            RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", : l* c- W1 ^/ k' b/ J* ?6 C9 x$ L
         SuperscriptBox[% E& Q3 M; F+ j0 v2 J7 M% o" c
          RowBox[{"(", - K# ]2 i+ L7 H
           RowBox[{
    1 l1 f: V8 }0 W% k        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
    ) e# }3 J; f! [# @     SuperscriptBox[
    ! W1 O# e. j; t4 @: x      RowBox[{"(",
      ]9 P1 L: Y- S: g. @) E2 _       RowBox[{
    ) g/ I+ g$ s9 g) R5 \        RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
    . e: }9 B1 P# Q  I. h$ y     SuperscriptBox[
    , @! p7 P( T# A* q' h4 @& H" v      RowBox[{"(", 2 ^! g8 z. t& ]
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    * _9 |$ e5 Z) |! [+ x- |     SuperscriptBox[9 Q7 @# N7 z- v( Q
          RowBox[{"(", . }. J* e4 k+ B! m: A! q/ I
           RowBox[{( t, S; Z7 W! z( K  V
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", ( l) X* C) K- {0 a2 u
         SuperscriptBox[
    . w" t  Q, q* ^  @4 W! U/ Y9 x+ V      RowBox[{"(", , v! U3 ?( p2 C' X% y
           RowBox[{
    & J/ J7 C6 P. T        RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", 6 Q0 u' I9 }! I& z, i2 F$ W5 @) b
         SuperscriptBox[: q! c- ~2 Q1 M2 j" @6 u; ^
          RowBox[{"(",
    1 e" Q8 l9 R! N+ \$ D( G& }       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], : _. B$ G( `  R; |% g; z0 R# N# Q
        ")"}]}]]], "Output",
    ! h: A6 ]. e5 M, f CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    " ~; x' ~+ P/ P6 U! b. w  3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9,
    + u& O, D7 i, p2 k  3.578012251359375*^9}]6 b; A2 k# n8 h) k  Z3 g
    }, Open  ]],
    3 Y3 s1 ]1 v* P8 s1 ^6 l. ?3 h5 J; `$ C! x
    Cell[CellGroupData[{
    3 p' |& v) D% ~6 x8 t" `5 z! P, A! Z# K! J6 x
    Cell[BoxData[2 @" ~1 k! A/ y+ T2 d2 B* d7 I
    RowBox[{"C8", "=", "Ca"}]], "Input",7 ]3 f6 G# s; D8 R! Z. a
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 2 S4 n' z: S: }/ W7 t1 U* M  K
      3.577921316125*^9, 3.57792141421875*^9}],
    ( Z4 [2 C- e; ?+ ]
    ' X5 n9 ~. T) W) X1 XCell[BoxData[
    / B5 f  T. o  p5 } RowBox[{"{", 1 Z: y5 K2 a3 O. S1 V! n
      RowBox[{4 `6 T) q" E) y5 b# o5 L; c
      "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",", ; X2 U4 \8 @$ s4 x8 D
       "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}], ! L. f/ O) ^: S  u# J  Q% _
      "}"}]], "Output",3 Q5 p/ ?3 ]4 _4 H9 r
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, 2 z5 D% D& z9 n, B
      3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9, 2 o2 f1 O1 W/ u! S0 O
      3.578012260515625*^9}]' z, U! H) o; C. ~
    }, Open  ]],
    & q( A. K5 c+ _5 c5 z/ s& p, s, j$ p/ T- K  [
    Cell[CellGroupData[{
    ; a0 I+ B# U5 Y' F6 m  G/ u
    + Y( H9 b! y& e3 e- z+ G4 jCell[BoxData[
    ( B* v# f$ n* S* e  i RowBox[{"u8", "=", 3 [: |* t& n  T3 V# c
      RowBox[{
    1 T+ c6 O- b) z+ E8 g   RowBox[{"Exp", "[", 6 x2 |! N/ H6 a1 G: @' ]$ s
        RowBox[{: x; {. N; C7 ^% F4 H# o/ R
         RowBox[{
    ! \- Z8 u* R" S3 m& ~      RowBox[{"-", : e/ ?8 P. J/ T7 E# Q
           RowBox[{
    3 }+ ~5 O0 j  h# r' i2 B) O        RowBox[{"(",
    : Q/ H2 f) ]6 M) E         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", - i: a3 s4 Q' h$ |3 e+ s
            RowBox[{"(",
    & H) @: H6 k) p2 E8 L         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],5 J/ e4 I  S7 N& B; A
         "]"}], "/.", "DeltaX"}]}]], "Input",
    : w' R: r$ D) W& p* c- Z7 u# X" ]1 u6 i CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    $ N- J5 n3 _. w; g  3.57792132028125*^9, 3.577921416921875*^9}],
    1 e- p* B! r! g" u. a5 a! Y. y3 R: Y1 @
    Cell[BoxData[0 \. A1 u( v3 D7 @7 {
    SuperscriptBox["\[ExponentialE]",
    0 b% ~! }  k* Y+ T+ B. l- s  RowBox[{"3.141592653589793`", " ", 7 S" e% ^* A' o# i8 x
       RowBox[{"(",
    9 }9 H* w6 r6 R4 |! [( z  g    RowBox[{
    9 I2 F$ X" ~  f$ X) [0 k     RowBox[{"-", ( N1 ^5 C: s+ X( o. K, E4 d2 h
          SuperscriptBox[) m7 \, P! f& X& K9 z) y0 ^
           RowBox[{"(", + \" g9 i2 L- P! K8 u0 a( U
            RowBox[{
    $ X, ~0 L/ N1 s2 t8 Q5 q, W" k         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
    & U  T$ w) a/ @5 i+ q     SuperscriptBox[! A6 P7 @2 J2 j6 T
          RowBox[{"(",
    ; l; V7 O, Q+ q/ I, c( E1 N       RowBox[{1 g2 C) N" l- N$ N
            RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", $ U+ c  D9 t% ^$ V
         SuperscriptBox[  f4 K: C3 x0 Y- z* U, K0 w
          RowBox[{"(", % b! V1 \# v( u7 e' v0 F
           RowBox[{
      t, _+ c, X  }' C: Q        RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", " ~. A3 A: `% d0 O; D! |+ e- Y! F
         SuperscriptBox[& Y" x) d1 J7 B
          RowBox[{"(", ! {1 `- ?1 k1 P2 E) l$ J$ J
           RowBox[{
    ; K+ ?* c* s) H7 s$ H7 G        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
    ( }" Y6 u* w# ~: f2 w     SuperscriptBox[
    7 ~1 z/ `5 ^& M# Q. R0 w      RowBox[{"(", ; i, i' m) {4 o- @  U- a
           RowBox[{
    # G- ^6 G3 ?1 O# M. k! R. h) I        RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
    3 b! l3 O( Q" G3 q6 t     SuperscriptBox[
    8 o% @7 l: [2 g. [$ p      RowBox[{"(", " i. ^5 \- B8 B
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 9 i1 w0 ^% z2 ~# {( z
         SuperscriptBox[# |: v1 W  X4 J( c  o8 j7 {# k
          RowBox[{"(", ( [0 ~+ \7 O+ z1 t1 t7 D, R
           RowBox[{
    ! S% b# V) z( I( U/ T" D2 I1 j5 B        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
    2 J$ ?2 d+ b& b, v     SuperscriptBox[5 a+ @' j2 a2 Z, T2 I
          RowBox[{"(",
    ' l- W$ F) H) P       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ) x! o1 ?* Q+ ?# Q$ \# G1 l4 d
         SuperscriptBox[
    $ H! ~$ b7 `$ {      RowBox[{"(", ( O: O& i& J1 c+ s
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], . ~" U' P# ^! ?4 `/ B
        ")"}]}]]], "Output",
    6 @. k9 K4 M9 a5 U2 ^' \ CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    : Z9 q* E$ [/ d: m  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
    ! U& {; [6 f( T. g' r  3.5779608945565863`*^9, 3.57801226165625*^9}]
    2 q: f, }% P3 ~- c! Q* u" x}, Open  ]],
    " j9 x+ u- P# E: U, \! [4 t% \' k* Y7 \4 r
    Cell[CellGroupData[{
    - ?  h% @$ Z) C- A2 _
    ; L) T; [6 j$ Q8 t9 f  aCell[BoxData[2 N/ ~. a& E& G7 E! k) q2 h
    RowBox[{"C9", "=", "Ca"}]], "Input",
    4 B" z1 q( D3 i( E! T6 i- z/ a CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 8 O8 ~/ i. I7 S2 m
      3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],% O, m( r7 C( T$ Y- v: d3 N  ?

    ' t7 E* ^, o7 Y, K- SCell[BoxData[
    : W& R# O/ H4 @% K RowBox[{"{", 3 u' [; o% t2 [+ n' [( }
      RowBox[{) ?6 d  l: D! f# z# F; O7 Z
      "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
    ! Q0 ?- w0 [: K   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}], 9 m. i; y3 y1 \' A9 _
      "}"}]], "Output",  O/ \; G# z! S; F, ~9 E# |
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, # v. d9 F$ n/ M8 ~4 N2 w9 Y
      3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9, 6 d! C1 s0 o2 u2 _2 r8 O. y
      3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9,
    ( V$ W" u& P; B/ E1 m  3.578012268234375*^9}]  q( H" O8 a2 @2 r1 U+ `/ z' Y
    }, Open  ]],
    " v' X  R, O& q6 \/ `6 U$ d
    $ K( q3 M4 k) v! Y5 }9 bCell[CellGroupData[{' ?1 x+ D3 T% h9 f

    : U1 L; q6 g) r" y3 m; uCell[BoxData[- X2 I. n' R' @7 O, e3 u$ I2 g
    RowBox[{"u9", "=", # k0 b, R# |9 w7 M* m6 S
      RowBox[{% A+ j$ A% |  P6 d% ^. M8 s( ~
       RowBox[{"Exp", "[", 6 ]# L; E$ x& s1 H
        RowBox[{
    / A  o( H! W2 M4 _/ s* Y& d- ^* n     RowBox[{
    ( u: f6 \: x  v  Y# t' Y. \7 ~7 t$ T      RowBox[{"-",
    , X9 ^6 x2 T  `4 I& ]       RowBox[{, K! V* H* A) q2 v% e" `
            RowBox[{"(",
    $ e9 X) P4 q3 g7 X3 C% H         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    6 g& z( P: G5 u8 E: M/ @- H2 |/ C        RowBox[{"(", , _- T* n) p* [5 a9 E2 X- F4 o
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    2 Z; F+ T+ N9 e" L4 Y& H0 S5 {6 e. ], Z+ H     "]"}], "/.", "DeltaX"}]}]], "Input"," j3 L5 h! U, i0 F  z
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    # ~0 H# V8 C) u! ?. h( a& A! H4 f  3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],
    $ g9 P" z% |- C2 B9 n& z# L+ J  |& W7 z4 G
    Cell[BoxData[
    , [! F2 U* {, c: V2 H( r8 G SuperscriptBox["\[ExponentialE]",
      a* M4 @1 K/ @( B: x* e' {8 @4 j  RowBox[{"3.141592653589793`", " ", 6 o2 c$ w5 H! M$ Z, M. H( p! j
       RowBox[{"(",
    6 V" g( g& d! ^7 R0 v& I, T2 q    RowBox[{+ O6 G" b' [' u% d1 o
         RowBox[{"-",
    3 \! x' V% r& F3 j! c' i      SuperscriptBox[. G: p9 z* d0 S0 j8 n
           RowBox[{"(",
    2 a# c( v& |6 h# q) n% B; D        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
    1 n8 X& H  g! V2 t" D5 H     SuperscriptBox[1 R$ D- Q% @/ Q% |& N
          RowBox[{"(",
    4 Q1 C4 H) T9 E' W; a  d. l       RowBox[{) g. P  X7 ^/ s7 `. a3 v, D7 O0 [
            RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", 3 t. \0 i- F, g4 T0 L, m. m
         SuperscriptBox[
    1 D& P# O6 d( y0 d* V3 s7 p      RowBox[{"(",
    ; ^7 t0 @9 _+ q1 l       RowBox[{0 h) y8 [; C8 x. k( Y
            RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    ! o( U) v/ c0 q8 u     SuperscriptBox[
    ) l4 L" W+ g9 W- D$ n2 m* T+ `1 O      RowBox[{"(", - x8 ~' a0 o& Q) ]; |  A) l6 z3 h  S9 `
           RowBox[{4 m* d/ g/ }! k( Q
            RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-", ; Y3 V5 |1 C7 F- H0 e$ o
         SuperscriptBox[" V8 x4 a( D/ y$ X0 p. a
          RowBox[{"(", " B+ h8 w6 @6 ~8 J
           RowBox[{9 D$ S! S: N- b, @" {5 Q& {# A$ u
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    ) l1 {' G4 O, g     SuperscriptBox[8 y$ P- s9 p& n$ a( X
          RowBox[{"(", 2 R% m# L" \2 s9 u$ A& P% L: j" E
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    - _, W. O2 [% x9 ^     SuperscriptBox[
    - q( q1 M4 K, t! S- c4 M- r/ X# D7 r2 ]      RowBox[{"(",
    1 Z' c% y% e6 ~3 n" `2 F       RowBox[{
    / X+ |) b5 ?, A0 m1 @        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
    6 ~' \* E" `) m: v& H5 [     SuperscriptBox[
    3 Q" l; q; M9 ^/ |/ @* u      RowBox[{"(",
    + H- }8 a" Q( s       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ( }+ D, Y6 v" v$ ?& c& P, w2 S     SuperscriptBox[
    ; C# H- L' |) U5 m4 P5 ^1 |      RowBox[{"(",
    ' W! g( t) v1 A5 X( O5 M/ r       RowBox[{
    ! B! a8 P9 e- ~        RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
    9 ]3 u# W7 J0 s) C( R    ")"}]}]]], "Output",
    " S& e0 h5 ~5 b( | CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, + X7 Q) \: e$ N2 q7 D; ]7 ?
      3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
    2 Y# k  n  I4 b  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9, 1 p( [4 U2 D1 o9 e
      3.577961530421959*^9, 3.578012269125*^9}]
    & L4 h+ Z! t5 v  `6 H+ O/ Q}, Open  ]],
    2 {7 r  B/ [% s, D/ u1 M0 A
    # H4 A3 O. J" s7 ACell[CellGroupData[{9 |2 ], }* O' @/ S- s

    $ P' T5 M) h& PCell[BoxData[{
    , B5 \& x. g% B0 ~. | RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
    - C9 e  ^9 x% M: z4 i" l7 b9 V RowBox[{"u10", "=",
    # c. R; L) ^5 e8 j" g* a  RowBox[{9 L: V! L4 _# j; o1 T
       RowBox[{"Exp", "[",
    2 V' G- B- {  Y+ {    RowBox[{! J, {6 u+ G5 w6 k2 B
         RowBox[{2 l! A& U0 Y9 L  u, c
          RowBox[{"-", ! C$ Z+ \3 l8 b0 z$ Q2 K
           RowBox[{
    ) D$ k9 D! `2 Y. b# K        RowBox[{"(",
    % j+ B, c& Z% l% O+ b1 b         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ( a0 u" t, N1 o4 i3 d0 s        RowBox[{"(", 0 F9 w: l" h& w/ h5 Y  I/ T
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],  x9 ~- a  t! R7 c" @
         "]"}], "/.", "DeltaX"}]}]}], "Input",0 [, u; B7 X7 z& l/ z
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],
    # n1 e* C4 f! u) S
    ; m3 Y% U! F: k  HCell[BoxData[) o8 ?0 T7 o# n) y2 I
    RowBox[{"{",   R0 l5 }* b* R
      RowBox[{- M9 G6 ?3 `+ G/ q- _
      "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
    : w* \" U9 S3 ^2 d   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",; `9 z. ^/ W& T5 ]6 Y9 i
    CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],! v1 f$ r) y! U  F9 u- d
    ' o0 v4 f+ a( G' u
    Cell[BoxData[
    - \' q: ~# X% j SuperscriptBox["\[ExponentialE]",
    * X2 E! N, t% J" m  RowBox[{"3.141592653589793`", " ",
    ) x$ O, @9 w0 }   RowBox[{"(",
    / U; z! e# A( }    RowBox[{* O# C" m. R# p$ T
         RowBox[{"-",
    6 v; R. A; R% D$ \% Y+ a( `      SuperscriptBox[+ L5 m: h7 ~7 H* H' m9 M
           RowBox[{"(",
    : G4 w$ Z  U- \4 z        RowBox[{
    ) z% H' Y8 \% f. k& C         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", ) m5 O& L+ \6 }! _4 f' h
         SuperscriptBox[
    * `: {0 n' }* e: w+ U- G      RowBox[{"(", 8 ?) U' E9 p, R9 c0 ^3 A
           RowBox[{1 U  A3 I' O0 Q1 J; P
            RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
    - p5 V2 M0 \5 R$ o; z& ?2 m     SuperscriptBox[
    # ^* M& H0 s/ E  [: U- F4 E      RowBox[{"(", . b8 ]3 f8 @, @) x) z2 m
           RowBox[{9 U+ @3 r2 _% p& O
            RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", 1 _3 t& D9 w4 L' ~5 H2 M3 O
         SuperscriptBox[# p/ @5 {8 ]8 ^: n& }. _! c! P
          RowBox[{"(",
    , r* x# d2 Z' c, b9 F5 D       RowBox[{% `: d) G( V& r. ?
            RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
    9 V# a6 M$ Y$ F0 m" Y     SuperscriptBox[
    & R1 i" `$ U7 M6 ?/ E      RowBox[{"(", 0 j# d2 E5 a7 Q3 B  Z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", 7 n' ~. Y9 {- L7 x7 `
         SuperscriptBox[7 E. ^# Z6 G0 o$ I3 P' i2 w
          RowBox[{"(",
    & E  ^* n5 o6 M2 H% B" R" W       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ) e; |5 g' Q4 n1 ?  p( A' u     SuperscriptBox[6 m1 a  O4 S4 p- v; T' e1 ]# H) a! {
          RowBox[{"(", # l- S/ M, s  h  N3 A4 E1 U
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ( B$ P8 N" [, R2 }. A0 `  y9 D
         SuperscriptBox[5 g" w# [0 l9 N) v% c5 X1 I
          RowBox[{"(",
    4 F4 e$ K3 X4 d; g) P4 Q" Y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", + f4 g7 R# w; q  a$ s3 ?
         SuperscriptBox[0 u1 x% ^8 ]" x* u4 d  h
          RowBox[{"(",
    3 p% A0 I9 c: N  H       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], * W/ ?# S7 b- p! l
        ")"}]}]]], "Output",
    ( t! [0 m: x+ B6 u CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]/ {6 F* ~( l- o( D6 t  r
    }, Open  ]],) ^9 e8 q- _0 |  K4 o

    % ~, s* K9 ^# G: K" }7 E! TCell[CellGroupData[{8 b6 y- w; O. W  \' `( g
    . j" M/ a7 c) t- P) m8 j
    Cell[BoxData[{
    9 l' o; |) d& O. R3 O( D RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]", 2 z8 {. }' g0 A$ K0 @8 z
    RowBox[{"u11", "=", + _, p& U$ }' {% z. [) e1 ?' ?5 g. ^; y
      RowBox[{$ |: e: S3 l6 t5 X. W! Y9 |2 Q5 T
       RowBox[{"Exp", "[",
    , O  ^% I$ e2 x( j% h% z7 M1 {    RowBox[{
    7 y! `) Y+ F/ Y- V# x. Q# d; ?3 z7 I     RowBox[{( N. M3 e1 f# `) i' l# G* X9 _
          RowBox[{"-", 4 m7 L; O- n# r+ R
           RowBox[{
    : `: J# k4 l$ r2 o2 R6 K' a8 b        RowBox[{"(", ' x* `: D. z8 M) Y8 E8 @) c
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 6 @. V" v9 b* V+ U9 b( N! w
            RowBox[{"(",
    8 e9 ^( |# q' ?9 R8 ~$ b         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    # y0 c/ l) G/ ?! [& I     "]"}], "/.", "DeltaX"}]}]}], "Input",2 h7 ?0 x4 b2 q) P2 D/ m
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {! I3 y, ?) n' C! ]
      3.57796154237158*^9, 3.5779615434011817`*^9}}],
    ; s. J3 m( C* I
    3 s3 ?( j( k  _- z0 m+ wCell[BoxData[% C$ Z8 }' j4 j6 h
    RowBox[{"{", 4 p0 p% i5 c! c; k: I6 X
      RowBox[{) Z' k7 P5 ?! Z4 N- ]  z4 x
      "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",", $ ]) p# G) S3 k! E& a% ]" F& w
       "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    % S+ ^& y7 c, f4 b) W  "}"}]], "Output",2 U6 z2 t" g0 B8 C! L
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, 7 ?; L0 T3 S# n7 B4 L$ r7 {( v
      3.57801228203125*^9}],
    , q2 {6 D8 g+ N8 j: h: ~7 Y% ?7 r$ \: B2 {% N( n! d' g
    Cell[BoxData[* D; p; m* C$ ^) g* @
    SuperscriptBox["\[ExponentialE]",
    ( F% L4 o; {2 ^. F  RowBox[{"3.141592653589793`", " ", 1 c/ Y# P5 L8 Y7 _/ h% p4 A: ]
       RowBox[{"(",
    * V$ s+ h$ q* Q% M4 v1 D    RowBox[{) l1 x" t2 W1 y3 |7 S
         RowBox[{"-", 9 {6 h) }# I0 X2 f* T& q
          SuperscriptBox[
    , S: s/ b1 P' h( ]3 P       RowBox[{"(",
    0 i5 u: ^+ m2 R* C# Y        RowBox[{; C! x5 O% U0 G- s
             RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
    0 E+ p# H5 K+ f7 W     SuperscriptBox[+ a6 s$ A, @$ g: [7 r: |
          RowBox[{"(", ) z2 u& B9 q$ X# t: l, R& H
           RowBox[{$ j5 G9 ~* I* k
            RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
    / P  }5 r, K( n  S; b9 j. B# a) }     SuperscriptBox[
    5 z6 Z* B; B& g* u( C2 H      RowBox[{"(",
    ! V( f% n/ y5 P; M       RowBox[{
    5 [; f5 e4 G; ?! @5 ]2 }- X        RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
    2 K% z. N- W, W  z6 j/ Q- B4 P- i     SuperscriptBox[9 M5 D; u0 P8 T/ _; a& s! ?
          RowBox[{"(",
    ! h/ I% Z- N( E7 P- Z3 x, l       RowBox[{( O! ~! n6 c  {4 }. h
            RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
    $ f1 X: h( l1 {8 K! ]+ d     SuperscriptBox[
    : F3 I, a& J# F& t) p      RowBox[{"(", . e! J, g# D4 z% b+ X$ b4 B
           RowBox[{) j2 f5 E& y' a8 f( G0 Q* q8 L* h$ ~
            RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
    5 [9 x$ ?. }! m     SuperscriptBox[
    / @" z  s0 t" y# _: y; [      RowBox[{"(", * G) U. j) y7 E$ Y) L/ L
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ) l7 C! U! U$ D$ _  u) ^     SuperscriptBox[2 {5 t% x$ e" J- C# m5 A; c* @
          RowBox[{"(",   ]* x9 w1 B6 U4 P; j2 g+ q' {
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 6 w5 ?; }# W/ A
         SuperscriptBox[
    * `- q1 g! f5 C7 p8 w      RowBox[{"(",
    % s! b. ?- k: J8 X" N& \7 ?       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    0 C' p6 M+ L) u( g, B$ ~     SuperscriptBox[2 @( R$ M) x" g5 L" C1 A
          RowBox[{"(", ; F2 c& F6 y8 g/ s. y
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    . `. }- ~' I/ h    ")"}]}]]], "Output",
    $ U) p2 Z* v, T9 X& n% R% t; L CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, ! \- j9 w" H6 s( `2 U. a; F! O
      3.57801228203125*^9}]/ V: v3 f# [3 f: e8 k7 t
    }, Open  ]],$ G4 `% B" p; T: t1 \8 ~
    ' t5 _+ x( r) c5 G6 h( H
    Cell[CellGroupData[{
    9 O( V0 ]5 ]3 m- P- `: e4 ]% P2 k, E% j6 J! G& |! t, {# Y9 O3 c
    Cell[BoxData[{+ M) M/ H/ ]3 {& O3 Y7 `1 |
    RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]", & P1 I3 d4 Z: |& ~7 N
    RowBox[{"u12", "=", % A( e1 N1 C* t( N" n# q( `6 H
      RowBox[{2 Q! _" k3 @# U5 P
       RowBox[{"Exp", "[", 9 D/ j% [3 p2 y
        RowBox[{
    # y+ l+ r) T" Q3 F- X     RowBox[{+ R% K) g( m! K% C" z  r7 I
          RowBox[{"-",
    2 p& L! G; \7 I# I; O       RowBox[{6 S7 ~( M& y: D3 \- Y. o
            RowBox[{"(",
    4 r! N: x' R2 l1 {2 q         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 7 }& Q" I8 u5 ^& a
            RowBox[{"(",
    * _. z# l* e7 N. y         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],3 j$ x' ^" |# L( x4 F/ N( G
         "]"}], "/.", "DeltaX"}]}]}], "Input",& |( S, @9 S" H5 N
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    $ a1 a: A1 |3 I! Q  3.57796154237158*^9, 3.5779615576284065`*^9}}],0 X+ }; i1 e( _" D

    / f( Q+ Q/ _! c# d; I+ y! wCell[BoxData[
    . ^7 O2 o! J, D4 p, g; e. S2 } RowBox[{"{", / [$ m7 \2 f1 |0 z" I' {( ^
      RowBox[{
    " M& n% a* @" T% `5 `& t3 r  "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
    3 n" c6 S6 b/ z: e   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}], 6 ~+ y+ _! {! B  L6 d
      "}"}]], "Output",
    3 v% N% G. _' Z& S! A CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],% o& _7 k; a# b. m8 O7 o& N

    : p8 T, N1 A6 L* ^: T" b' RCell[BoxData[
    : ^0 G; @6 w1 e2 d; h/ ^ SuperscriptBox["\[ExponentialE]",
    . e& A; F5 a, @% u  RowBox[{"3.141592653589793`", " ", - x; s; O4 S( _4 M* Q
       RowBox[{"(",
    % y* _1 }% ~; r% i    RowBox[{, q8 B0 p# a" ]
         RowBox[{"-",
    4 Q! y- k9 f1 ?1 D5 t7 C* l      SuperscriptBox[" G- K  J4 x, z, X
           RowBox[{"(",
    ) K# z+ o% A8 s: G5 F# J6 C: P        RowBox[{; Y3 ^  ]2 d6 q
             RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", & m; x( B; x7 P  T, i
         SuperscriptBox[* ^/ |$ g, K  q! g4 p
          RowBox[{"(",
    3 }9 L) O# m, U       RowBox[{
    7 S" Q/ H; C+ G        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
    + e  W5 E( l! u) E: j' S     SuperscriptBox[, W1 G7 B9 s* {# I" x
          RowBox[{"(",
    7 A7 \) z' x- S  B; p/ h* t1 D" ^; I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", 1 P1 u# y! z8 {" w& o4 `2 i
         SuperscriptBox[
    / E# m+ g, f( ]! C) L. S- l+ i& S      RowBox[{"(",
    # e/ R% `) h' s/ n, {       RowBox[{
    - k! l8 x5 c3 v2 }* `4 k& w5 B        RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", ) A7 r9 S% F% j8 d! [
         SuperscriptBox[
    . W3 O" z6 I6 t/ u8 ~# h- t4 X      RowBox[{"(",
    $ l) @& G$ V9 T       RowBox[{5 D1 d$ u4 b- ^
            RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", # V2 W5 l5 A* D. T. m+ I
         SuperscriptBox[
    1 P- w' ^( @7 w% J! T! V& N& Y      RowBox[{"(", 5 D, G1 T8 y; q- Q6 Z. j: v' Q
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    / v: U8 w" N' a* Q1 A6 {     SuperscriptBox[
    . M7 r% M3 O/ T; y      RowBox[{"(", 2 V% Q- _. R  ~
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", . o! c$ S" h  |7 @
         SuperscriptBox[
    9 [% d0 H7 I; G- e- Z6 Y      RowBox[{"(", $ F$ c4 R7 U& k" n& Y
           RowBox[{5 X. \3 q  G* @- h, T
            RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
    ; _! M4 Y- X$ x& B     SuperscriptBox[
    1 t) L2 y6 @/ E. _      RowBox[{"(", , D) _: z$ e+ q# ?. @
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    1 K  b$ N6 b0 y! Z& P% L    ")"}]}]]], "Output",
    : B# ~! _2 x& n' L: E5 j1 n" M CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]: T; j' x; d) F. c: N) J
    }, Open  ]],
    6 r% W2 m) `2 T' w6 _& L4 k, `7 u0 {
    Cell[CellGroupData[{, {$ N7 |4 Z! o% ?, {# k

    6 H& @+ z6 _" o, PCell[BoxData[{% P( ]" X- P" e* U/ ?
    RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
    : c0 b# y: z0 v/ P RowBox[{"u13", "=",
    8 j# {- I- O) s  RowBox[{: ^/ K! T6 w+ M+ R6 Z; F6 ]5 M9 T
       RowBox[{"Exp", "[", $ N1 [) H9 M! y$ K3 M5 y
        RowBox[{! v3 y$ d+ X+ z/ U+ h! \) Y9 p
         RowBox[{: n9 l; y2 E4 u3 w) B, F. t& m
          RowBox[{"-",
    3 u' `" g9 @' \       RowBox[{* N/ d6 |% q9 I3 n
            RowBox[{"(", - N/ [' n6 u5 l/ T) |, z' C9 D
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", + b; U: c! Z6 J9 R8 G: B
            RowBox[{"(",
    7 ^! S2 p3 p; ^+ S5 H, e         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],& R: u0 [1 O1 e3 R' k2 }, M( X
         "]"}], "/.", "DeltaX"}]}]}], "Input",: W/ ~2 d9 _) w  E% I3 U  ]& {
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {" p. x  t4 k, b* P0 `. U  l0 c8 b
      3.57796154237158*^9, 3.5779615599684105`*^9}}],
    " q7 @% q) R8 r% z4 H6 h
    * S* o5 N2 E& S9 yCell[BoxData[8 Z% b/ L/ X0 D0 D6 A- B
    RowBox[{"{", 2 {7 ~- s% `  c- S* G2 [& p) p
      RowBox[{
    * }/ m# k+ T: F, H$ J  n0 E  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",", * N7 B7 R! I4 ^6 V/ U2 [* H
       "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}], 3 x0 d5 w. Y- S& c+ S
      "}"}]], "Output",$ r9 k" ]+ s0 B& x/ J( |7 C
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],6 l6 m: H+ T$ A# |2 Z
    . ]# S, ~( }- B4 d, ?$ z$ Q4 T7 M
    Cell[BoxData[
    3 d4 o0 \, L3 i" \9 }" P SuperscriptBox["\[ExponentialE]",
    . R9 i  U8 n: W& t! m8 `  RowBox[{"3.141592653589793`", " ",
    & A4 d; d8 t, W: E* @# w0 e   RowBox[{"(",
    8 n6 k( l# J$ F    RowBox[{8 ~/ F4 e$ f, Q; c" ]- t5 g; E  i
         RowBox[{"-",
    ' a) N2 l! ?. G; s$ L3 ]      SuperscriptBox[' f2 Z7 X3 H: i
           RowBox[{"(", 1 J( C0 X: y. m+ t" I. Q' _4 n
            RowBox[{% s: \7 ~5 r3 L
             RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-", / w6 N8 c' g, J' q& |
         SuperscriptBox[
    & B  b1 ^  h1 I+ Z. I, j. Y      RowBox[{"(",
      Y5 ]5 x9 ?" P) W5 ~1 P9 _4 c) q% r       RowBox[{
    3 m4 x) R# f* l+ T$ E' k        RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", 6 {7 A8 ?) h7 F
         SuperscriptBox[2 X7 q0 C0 h1 N7 N% x" g
          RowBox[{"(",
    $ C" g) P7 g$ j7 @5 y       RowBox[{1 I9 [" F/ I2 a5 U. {7 z
            RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    % u  W& D& R* X7 N3 Y) B& ~1 n0 K$ O     SuperscriptBox[
    ( C0 ^. S) Y& y& i" U% N      RowBox[{"(",
    6 q# l) S2 C4 R       RowBox[{
    * R' Y2 K9 r, t1 h: F6 J        RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-", . d- Z. U; b: F! j; g& ]
         SuperscriptBox[* E% w# D$ j: Q6 T+ G: r  d
          RowBox[{"(", ; E; T  M+ _+ h" p
           RowBox[{9 ~2 y  c3 r. o% ]. P
            RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
    7 d8 \; E. v1 j. |$ ?     SuperscriptBox[
    $ e, K2 }: p! e      RowBox[{"(",
    : ?/ B" X7 `( L# S5 d' o* H$ ?% Q9 L       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",   N  I6 q' N, U1 V
         SuperscriptBox[
    5 u! G9 Z6 g  O3 f5 U0 N      RowBox[{"(",
    0 g% U" _( ]+ e( h+ c       RowBox[{
      t8 n5 A! M1 _        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
    2 Z' q) `+ i' q1 ]  ]; j     SuperscriptBox[0 \% ~$ C: T6 N' `# @
          RowBox[{"(",
    ) l( _% \+ H* u+ Q2 w       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ; u: `3 }5 J/ t9 u     SuperscriptBox[8 T) V6 R5 |& A7 {3 j. S% d2 A3 ~0 U; H
          RowBox[{"(",
    5 F+ o: U! N; l$ o5 n6 x8 b       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], / q7 M3 ?5 |% U2 v: U$ _) [& h" K. p$ |
        ")"}]}]]], "Output",2 T( l* \& _9 K  Z' r) V4 b
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]
    7 `* _7 D8 o3 J: L% W; a}, Open  ]],
    6 y/ |- W# J; t+ f7 M* [5 V5 M0 I+ q: ?4 }, ]% J! n
    Cell[CellGroupData[{9 U5 ~. c) N5 ~# M7 i1 C
    3 |" ?# S- D4 K/ v$ {6 e2 h3 s
    Cell[BoxData[{
    ( k& h  Y5 W- g5 B9 @8 D! R, g# { RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]", 0 p' v9 s3 @$ p( w, U
    RowBox[{"u14", "=", 8 e! a2 }5 T3 P) B( F
      RowBox[{
    ( H! [" D* r( f& Q   RowBox[{"Exp", "[", ) P6 Q2 c" x$ k1 T9 ^+ Q# w
        RowBox[{$ \* ?. K" _' H5 a* i% z6 ]/ }
         RowBox[{
    ) h! G/ s' w0 v1 D      RowBox[{"-",
    & B* H( K8 B. ?. A7 I# w+ h       RowBox[{
    - c8 |* n# M- @8 h& O7 I2 D        RowBox[{"(",
    2 P; o2 z3 {. k; ^* B         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    2 w$ h0 N, M# X& e; ?        RowBox[{"(",
    ! V1 |, U( d' I  x, v) ?         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    & w! C# y' Y& P9 ^% {7 M     "]"}], "/.", "DeltaX"}]}]}], "Input",5 E8 o. m2 K* N9 t* [6 h
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {8 O/ l3 O' h$ z! q
      3.57796154237158*^9, 3.5779615663176217`*^9}}],% m) b' A, o- @0 A

    , p. P6 ?2 [( sCell[BoxData[
    - {$ A" j8 M( R& v8 f0 Q+ i; b RowBox[{"{",
    / S7 z3 Q! x1 H4 h" K  RowBox[{# l: V0 A4 ?' A8 `8 I% y+ g4 Y
      "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",
      n4 U& s6 i" k0 R$ J; b$ S   "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 4 p- b- G4 R) h
      "}"}]], "Output",
    7 C1 m+ x3 V/ k* T' N0 {+ E CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}]," k4 K4 \  w7 o( |

    / Z: m% V7 U6 w; i' NCell[BoxData[9 P) F5 g. [  B& z# e. z
    SuperscriptBox["\[ExponentialE]", * d$ z5 o7 ~' O
      RowBox[{"3.141592653589793`", " ", 5 @% Z) e" h. `3 t1 P  B
       RowBox[{"(", - r" z2 }" q' d
        RowBox[{. m9 D4 s( m" b  u
         RowBox[{"-", 0 {0 {' |) d0 K% X8 {" w8 J2 w
          SuperscriptBox[. Y' `$ o2 c/ W; @4 @! v
           RowBox[{"(",
    4 h0 W( w1 C( c$ i        RowBox[{' L: ^& M7 ~- d3 G  m
             RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
    7 L- l, y8 z0 D1 X8 w. b     SuperscriptBox[
    4 }1 {" b& }5 \0 q/ Y) |% d      RowBox[{"(",
    5 C" D4 s' a, F' v/ g: n% n7 O       RowBox[{
    . S3 R  G1 R* v4 Y        RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
    ' ^) P, x$ {/ }: c, L* k8 z$ C     SuperscriptBox[
    $ h& p0 W7 U; e0 o: C' B/ v      RowBox[{"(",
    ! p$ v5 ~" m7 D       RowBox[{
    ; ]0 t/ N) F; `% |  i  {, k5 d        RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
    2 Q/ k, c5 Q8 E$ J4 G& f6 E$ k     SuperscriptBox[
    * Z/ ^, q8 S% d" k3 `" D8 L9 w      RowBox[{"(", ; l: Z  p$ ^: M1 g. G5 d( Z
           RowBox[{
    * d1 U  @( H% l8 I        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
    # M  }" G; O2 {; R     SuperscriptBox[; J; B, g. T' R# z" [4 X
          RowBox[{"(", . U$ V9 W' J4 S
           RowBox[{
    + |. S  o2 v# g- [        RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
    % e  F# Z+ O+ x5 H* |' P" N9 {( ]+ `5 T     SuperscriptBox[
    ( ~- D/ f% n# K0 [& |  u+ f" F      RowBox[{"(", " P4 J7 v/ U; `& j! B6 O
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", : }  K, ^) N0 ]  p
         SuperscriptBox[
    # z" \5 P/ p1 l      RowBox[{"(", + m0 Z/ Q5 {- c8 t' r: G
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", , h- G0 l# A* g/ S" Z% n2 n" X6 P
         SuperscriptBox[2 K* p, f1 K/ [) `$ t" \  u$ j
          RowBox[{"(",
    7 {6 k6 Z3 V) R8 d$ M/ }% m( f9 W       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    / d- B9 h* o) P( d/ k3 }& b     SuperscriptBox[" h) q7 Q0 n; q. i) {
          RowBox[{"(",
    - {4 n$ _8 ~6 i$ {       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    # e' X- B' p" n9 z% o    ")"}]}]]], "Output",
    5 t/ N* H$ `. ^" @3 u9 m6 E& |$ d CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
    2 j/ {: c1 ^8 @}, Open  ]],5 S3 Y) f$ Q/ K; W. g7 M, m! j* ^

    % V& Q+ X3 F0 I$ Y2 t4 XCell[CellGroupData[{
    9 A- P8 Z6 q4 q6 r5 a' B/ j0 l+ H) {4 I
    Cell[BoxData[{
    7 R2 i  ~; U  b& y& N1 J RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]", ' o" Y! I( q9 E4 Y1 ]% r
    RowBox[{"u15", "=",
    ' k5 S; M$ x7 D( u  RowBox[{  y; s) S& m3 S& q+ q! S
       RowBox[{"Exp", "[",
    : j. r6 Y/ m* \1 a; X    RowBox[{
    " q; n4 k8 |8 m! _8 C     RowBox[{
    + x& U3 v4 G) X( I. h  c+ ^      RowBox[{"-", 8 U7 Z: A+ G- L9 [, U
           RowBox[{. o7 |; v8 J- T/ I% c
            RowBox[{"(", 5 `" p3 y& F' b, P4 |" x
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    1 @% f# {5 `5 _+ a0 P. o        RowBox[{"(",
    - E( ~9 A( E9 Q         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
      o) [% o  z. T* A     "]"}], "/.", "DeltaX"}]}]}], "Input",
    6 w- ]& D9 h% P5 N8 N( H% z CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    8 y0 i/ h6 z7 p- W  3.57796154237158*^9, 3.57796157098203*^9}}],
    ! G4 v+ y4 S6 D2 A; f8 I! U3 l1 `0 b
    Cell[BoxData[) u3 K  I# ^, d" _4 p, K; W4 D
    RowBox[{"{", - D" A. ]" H+ ]  z) i& ?
      RowBox[{( Y- t/ I& e. y; A' |
      "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
    1 q, ?* `7 W1 S6 {/ r6 y1 c   "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}], % ]" z& v% v: f* d) ^) ~* T# m, w7 W
      "}"}]], "Output",( j8 q: \* Z! w# V
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],! T, G1 p# x( J) f4 g8 J
    / t+ i# d0 H! K3 ^
    Cell[BoxData[$ C! c2 u# q5 G
    SuperscriptBox["\[ExponentialE]",
    . J0 s) p/ [! J% d  RowBox[{"3.141592653589793`", " ",
    8 a# X2 I) T. ~# S2 b( q( C" I   RowBox[{"(", ( U/ ^8 J, M3 K7 o* n, D$ d
        RowBox[{, r2 J) Z* y% _5 z" f& u
         RowBox[{"-", 4 n: J8 x  v- G
          SuperscriptBox[
    8 k: K6 s& O0 l2 f/ b9 U       RowBox[{"(", - m9 s$ f/ h. ?  ~& Y: E; \
            RowBox[{7 I4 n7 o* a- U* m+ S$ W
             RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
    " ]; v- {& H8 m7 K5 b8 v3 ]     SuperscriptBox[9 m5 V6 F0 [/ i# l
          RowBox[{"(", 4 \: `2 W, ^( r+ t! ]5 d
           RowBox[{
    $ T0 Q3 F2 U3 n. F: {& x        RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-", ) k. v7 H3 c" s# R. w+ ^+ s6 z
         SuperscriptBox[
    " D, f1 |9 U) M1 y5 m      RowBox[{"(",
    2 M& X' X- _8 U7 Q' a8 @3 Y       RowBox[{% I+ f& e7 w7 w
            RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", 1 `! n0 u! b5 h! ^( a2 Z! [
         SuperscriptBox[, A& u, I& `! ^" O& _; C: B6 _) J
          RowBox[{"(",
    ; C, V  F4 k% F% A! r% Q       RowBox[{
    * q8 X# C& k; M1 I5 ]3 F9 @        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-", 7 B8 ~0 \0 ~5 l& {' Q
         SuperscriptBox[
    : e) U6 M) ~; o( E2 i) J; o3 F2 r* }      RowBox[{"(",
    / U( p  _5 t' e) L5 {& i       RowBox[{4 a9 F- ~8 X! x
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", 5 e0 c. Q, {* M" n3 d" R4 Z& z
         SuperscriptBox[
    2 d( I2 \" x' J  B. `. b( D* \. n3 w      RowBox[{"(",
    % h; P, v: A+ y# G( J  O       RowBox[{- ~' _' u4 ?$ Y6 Y
            RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
    ; c; w, S. e$ r6 L( o     SuperscriptBox[" q; o; @/ Y) ?; q
          RowBox[{"(", : a8 H; ?9 O6 `6 M# b- k* d! }
           RowBox[{
    0 ^. Y* b: i  ?) ]  Y  p        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    & V* w, S8 Y( l7 d, Y     SuperscriptBox[
    6 G* w7 X" [: `: q      RowBox[{"(",
    1 k0 p& h- e- [       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    # S& J+ L$ b4 v2 O% y& W7 ?' w     SuperscriptBox[1 e4 j9 {/ F% m. Q2 s* b
          RowBox[{"(",
    0 n8 y4 h6 l$ D( Y! a       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], + M% p3 c' J6 e0 I: l1 |. n# Q
        ")"}]}]]], "Output",) b2 N/ P" n( @9 u# U  V
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
    & q7 u6 z9 L3 t& H/ _/ N}, Open  ]],
      ]6 U/ Z% P9 b; w2 ^! C* {3 g) i& H/ S0 p( I3 Z1 C
    Cell[BoxData[
    ! C& g) r* M3 P2 l4 ], n& T RowBox[{"For", "[",
    5 V5 i+ T; H' m! s3 D0 R( Z3 b  RowBox[{
    1 f9 W# [6 ]  A2 v& s, Y   RowBox[{"i", "=", "1"}], ",",
      Z: @0 V. y$ E4 H9 U/ Q; Y   RowBox[{"i", "\[LessEqual]", "9"}], ",", , H/ u& [/ E: p
       RowBox[{"i", "++"}], ",",
    6 z/ V" _7 c3 K' D   RowBox[{: z% ?" B8 f' L% F- b! M$ M6 \' X+ Y
        RowBox[{"Ca", "[", $ I$ l9 w" P& R- ]
         RowBox[{"[", "i", "]"}], "]"}], "=",
    4 |# E! m) N" Z2 |" t    RowBox[{"CM", "[",
    " N8 I2 \: R& k, [     RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    8 n3 u5 I( i8 p, G CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
    , Q" V5 d$ B# v+ k+ K
    8 R5 f% d; a" @* d4 H% b4 j% ~Cell[CellGroupData[{, @- E) e* a' ~) T
    ; l9 {3 T! n8 h* T
    Cell[BoxData[{
    - A# |/ |) ?4 D& u! W) Z; S RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",
    ' m7 {) u# c, R9 \& A( _) l" B- ~) g RowBox[{"u16", "=",
    ! q2 V0 I( t0 s4 Z: j7 Q+ P8 a( W2 z  RowBox[{+ X# a, J* I2 D  }
       RowBox[{"Exp", "[",
    $ S% n# r! d3 Z& m. P) D5 v% [    RowBox[{
    / }( n+ \0 A9 S! D2 W( {  K     RowBox[{
    7 t, k* V4 x' u+ g+ g) H& }      RowBox[{"-", 4 ^. [, P" Y9 ?( \% K) H( J& k
           RowBox[{/ S, X) x) E% U0 P  `4 J8 j
            RowBox[{"(", 2 t% h+ ~7 E, i  h
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    7 [$ J' u+ ^# F: k        RowBox[{"(",
    # a1 v$ A2 m7 e* g9 U; |         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],7 f* F5 R* h6 W- X/ R2 g( P3 @
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    - }, w% ^% J4 k& Y: K4 C CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {0 G2 C% M9 m# d* R) m6 l8 W. Z
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9, # z2 S- ]4 y, @- o; E/ U/ l
      3.5779615751004367`*^9}}],
    4 ]6 A/ g; {5 m. o
    - v9 J  |6 J( i+ o% j! YCell[BoxData[5 |* K5 ~; M0 H2 I
    RowBox[{"{",
    # o! E% T1 b( K5 l' L; k  RowBox[{; W* {: q4 S3 d! M: p
      "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
    1 V9 o7 }% b: J) H$ G! E* d1 |   "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}], ( ?: M& k  {4 i) r
      "}"}]], "Output",
    . g+ \3 f7 u, j1 T CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],
    $ i) }. Z& ]9 L. C$ l- o. v3 y: F- Q4 g2 e; }3 O0 s
    Cell[BoxData[8 y: M% ~' e) N& c3 r5 c1 t
    SuperscriptBox["\[ExponentialE]",
    ' B* r* r# o7 C" M4 @  RowBox[{"3.141592653589793`", " ",
    ; D% h: O) D4 j. p   RowBox[{"(",
    ) Y1 R# w  C% N    RowBox[{, s& |  Q4 g1 W+ H* u* Z
         RowBox[{"-", 3 z$ `, l4 f2 n* d: l8 [
          SuperscriptBox[! u- Q0 \7 n" [4 ~
           RowBox[{"(",
    7 ]1 `4 w6 |& Z/ T$ a- `        RowBox[{
    0 _5 w8 I! |5 W/ x& w3 ~         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", ' y# w7 @% }5 f' y
         SuperscriptBox[
    # P- j- Z2 Y3 P1 r( D      RowBox[{"(",
    # D) N* I" @: V       RowBox[{
    , K; x2 t# W$ T- }- l7 M: }! Q        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
    0 B* J) N. r7 ~0 A3 P8 }     SuperscriptBox[
    * L- D: v! M6 b5 u6 v& J      RowBox[{"(", 6 `0 _) B6 w" u( \8 ^4 ^+ e3 U
           RowBox[{
    ! E5 I7 Y; T" A! _        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
    , J- D" B! d( q2 d* K. G6 [8 L6 G     SuperscriptBox[
    * v5 I, z. H' k# O' g( K      RowBox[{"(",
    $ e. {* ^8 G8 H/ U9 Q# R       RowBox[{+ n  }5 ]+ {' @# k  {0 x
            RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
    " I6 ~+ X) l1 U! [8 U4 N! Z! v     SuperscriptBox[& o$ x0 r& O9 Z
          RowBox[{"(", " ~1 D5 A  S5 L7 a
           RowBox[{
    0 u6 S4 q, e' E! o4 G        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",   p* u4 \( @& n' D1 Q% K) v2 Z2 k
         SuperscriptBox[5 ^* q/ J% D; k
          RowBox[{"(",
    # Q% n4 u6 f6 J       RowBox[{
    : `% ^6 L" k5 C6 N! J8 w        RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
    5 Q0 b% S/ r/ I  N     SuperscriptBox[
    # u: D  |. A  w$ N8 _1 Q* [      RowBox[{"(", 0 `6 h# \1 B, R3 s
           RowBox[{
    . s! _& X/ ]& s+ `        RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
      N7 F! Q) F' Q# p# q- l& z: P     SuperscriptBox[& K: W) V7 ^4 i
          RowBox[{"(", - _$ T1 L% A0 q0 i2 j5 C& F3 |
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",   U1 n/ P0 S( ^
         SuperscriptBox[. z/ Y: @/ q' x3 J
          RowBox[{"(",
    " h+ R- X0 a! A! u       RowBox[{4 T7 n- }( d8 }; y% C8 W& h
            RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",& z0 u' D8 l( {/ y1 A9 Q. H' [- d% ~1 k
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]- f% J3 I6 a  T' I1 u  S
    }, Open  ]],* V5 Y3 @; l! G7 Y7 v
    4 \! v. l) v4 E
    Cell[CellGroupData[{! j0 f; z3 k3 ~- e$ f. q# k% N
    9 ~6 d4 B) b2 b8 n: H
    Cell[BoxData[{; G7 }6 M8 f$ [9 c2 J
    RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]", & y; D5 V) F0 A, C" ~1 S- Q5 f
    RowBox[{"u17", "=", & S% B6 P0 s# g! H3 E: ~
      RowBox[{
    % A* ^5 y, _9 N0 G; \   RowBox[{"Exp", "[",
    2 S) }  A% F$ D1 O  e# p" A    RowBox[{- P1 T6 ]" W( E& J# E  Q
         RowBox[{
    & t) i& z. [  t4 E+ V2 ]; _      RowBox[{"-", + Y5 x) q/ X) {+ i, I& z9 G
           RowBox[{$ U1 r; R1 i8 i' f% T+ m4 E
            RowBox[{"(", / L2 C# n1 D2 H6 _6 S. k! p
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 1 x3 Z0 H* X5 {, a- e
            RowBox[{"(",
    & |5 j' L. q; Q# ~3 W! a         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    / x6 r# Y4 k- c: d' P     "]"}], "/.", "DeltaX"}]}]}], "Input",2 `2 {& J5 P. J  t
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {( O7 R* L3 u3 H/ K5 D
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9,
    ; @1 _+ X! H2 N: L7 C$ ~4 }/ N9 o  3.577961578953644*^9}}],. [* t- Y9 ^+ o  o. w) V7 H5 h
    % R8 ]- \- K/ Q% b5 d
    Cell[BoxData[" j, s* R, W7 G6 t( U
    RowBox[{"{", 3 ^7 B& x, [4 a. Q  R( U4 _/ g
      RowBox[{
    ! J, C) Q1 H, `5 u  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", ) y, F6 p% p- T8 D: b/ }
       "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}],
    ( O1 ^* b' [5 G  "}"}]], "Output",
    7 J: M& B/ \; P/ f8 v" z' s* q CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
    0 ~  @7 C4 G$ w
    ; D2 N3 n: U5 ^9 y3 GCell[BoxData[
    # d7 o2 S0 I' H9 N SuperscriptBox["\[ExponentialE]",
    . }+ K, j0 T! ]3 R/ \. N  Y' x  RowBox[{"3.141592653589793`", " ",
    ! Y" {6 ?0 g2 v8 t   RowBox[{"(",
    $ m: F  ]' P6 ?0 U* T    RowBox[{
    ( b* o9 b3 a7 {! ?! j% a0 K     RowBox[{"-",
    8 ?# f+ Q# n$ D  W8 S      SuperscriptBox[
    , o" o3 F( z- s$ \( j$ D0 H/ ^       RowBox[{"(",
    : v9 H, S3 C5 D- \& |        RowBox[{- o6 q0 p1 o* r. \0 P- W# i( {4 ~
             RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
    & O! g* f% R$ ~+ W$ i0 o     SuperscriptBox[
    3 _" @6 |, _, O) F      RowBox[{"(", ' r; P, [: l5 a1 [2 g3 w
           RowBox[{
    3 J8 o2 q, F2 l$ B* v        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
    , e0 j# D6 J8 g     SuperscriptBox[
    # [& t. l% U! m0 h- {      RowBox[{"(", % v+ y; J* T: F+ ~/ d
           RowBox[{) s% [; ?' M: h5 q) g1 H4 ]6 \
            RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
    & D6 @* c  t/ g2 R     SuperscriptBox[
    2 K5 I6 p0 p; Z% F* Y      RowBox[{"(",
    # Q" F2 a" n$ D4 r) F, x       RowBox[{6 _3 J& o0 D4 |8 _0 i
            RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
    5 m: x- W6 @( `" Z, o     SuperscriptBox[
    " ]7 Y7 Y) o8 \  }7 q# _, H      RowBox[{"(",
    7 U6 I0 l1 U% Y! S       RowBox[{
    ; t3 X0 D" M+ g% o7 E) y        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    5 ~6 u8 ~$ T+ T0 y, `2 |2 Y     SuperscriptBox[! g5 _* b  @: l2 w$ P9 n4 s
          RowBox[{"(",
    5 t8 M3 {& P, m       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ) e; |5 J* q5 Z* |$ X4 j
         SuperscriptBox[
    # }3 n# a3 N& _& O- F( F      RowBox[{"(",
    5 Q" V+ i$ A' }+ R  K8 z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    ( e" @: \, p* l! T( M6 q. \     SuperscriptBox[0 p- n, ?, o$ ^2 p1 r1 O3 B$ ?* u- [
          RowBox[{"(",
    ) d# ]: R- I6 Q9 d3 G3 }1 o       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", % S. ^5 k% {" e% I, D* }$ G
         SuperscriptBox[2 a2 W1 s/ B6 i0 |" h+ Z
          RowBox[{"(", 2 e# M, y8 l  {) b+ @  F6 `2 v
           RowBox[{6 F- s9 p9 ^( X9 e, Q" a  t+ I$ u
            RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], + ?# k& b2 H8 o* v% w% ?
        ")"}]}]]], "Output",
    % a- s- u" @0 @) V- I CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
    + x) h' E7 M- ?, O}, Open  ]],
    $ u2 k( s8 i$ |0 x
    8 g+ @, Z3 t: P! v1 ACell[CellGroupData[{
    . G) y9 c8 \. u/ ^" `, n
    % n4 I/ d% h" i* dCell[BoxData[{* ?# x7 ~% w8 O4 u
    RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]", $ Y' }3 u' W7 q1 Y" M; P
    RowBox[{"u18", "=", 0 ]% u! g2 T# J9 M2 ?( {- {% L
      RowBox[{4 l+ K6 Z2 J) l- I9 a- X
       RowBox[{"Exp", "[", # {% m" v; r, A5 p3 W1 [
        RowBox[{7 Y) T0 Z6 o/ V$ N
         RowBox[{$ T3 ]4 t- w8 e% E. l5 P% t
          RowBox[{"-", 8 Y. m( `: c, O+ Q0 R7 X- s
           RowBox[{
    * W- h3 `/ Z% K) L8 l4 x        RowBox[{"(",
    - N1 {7 y- p  i! h" I2 X         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    0 O. Z: Z. p: n- @& N+ f: z        RowBox[{"(", - R' q* ?  V  j1 l0 d
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    . W7 T0 _9 K8 f" H7 \$ z     "]"}], "/.", "DeltaX"}]}]}], "Input",
      I7 N5 e! F# L# X CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    , L! m' W- T- I- {1 R: A  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
    $ b; @5 d  O5 H! L3 a& H8 h  3.5779615828848505`*^9}}],* j5 G/ J  C2 {8 P' x) f
    1 I/ {" B$ ~4 c# A! d
    Cell[BoxData[3 a) s2 @0 I$ G& V# R" K7 f
    RowBox[{"{", 7 y+ K% ^, v3 n5 x
      RowBox[{
    $ v8 _( ]) X  `; @( Z7 M1 T7 l, f  "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
    5 U# A6 \; o' o! z   "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    & D. c/ z; y# j: Z! d  "}"}]], "Output",  A) f# Z, Z0 a  m
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
    . z& w/ E9 m. H8 T1 d! {/ m8 T" M* X8 G/ _, G+ d$ V+ F6 h# K
    Cell[BoxData[
    ! Z6 J5 u/ b( Y; ]. G0 L/ r; A SuperscriptBox["\[ExponentialE]",
    3 {. T( w8 W2 z3 J5 L$ c, O  RowBox[{"3.141592653589793`", " ", 7 C/ Q) o2 d/ o* c* o
       RowBox[{"(", 2 Y- Q% I% N' k" r7 y
        RowBox[{; v! R* t" ~4 O( A" C1 b# {
         RowBox[{"-",
    ; Y8 ~3 q  z- E9 |1 I      SuperscriptBox[
      F! f4 X' y, y, P1 o       RowBox[{"(", 0 q7 s# {$ ~+ G  M$ ?
            RowBox[{/ z6 |7 |4 T6 z
             RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", $ Z" v- T2 F8 R, N
         SuperscriptBox[( ^+ K4 v6 }! b/ o/ W' v
          RowBox[{"(",
    8 U7 e; u% T+ B1 [9 @1 H$ _       RowBox[{* g. w( z6 |% W7 ~% e6 D; V0 w
            RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-", ! K. Q" U1 }# u1 k  ~( [3 `
         SuperscriptBox[5 B7 t# i* n2 |1 r" M- g' k4 ^0 y
          RowBox[{"(", # }! [6 i4 L9 h5 x% C' R3 z$ g8 L
           RowBox[{
    : b1 f3 r/ @# }+ B' L        RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
    $ i# @+ U1 R- |& P* q$ N     SuperscriptBox[, ?  I9 ^1 P& ?: s
          RowBox[{"(", : U' n( a3 @/ v$ q0 ^5 q+ M* C4 o8 [5 [$ ]
           RowBox[{: q3 X. q, Z5 Z5 z0 U9 G* i
            RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
    % B6 u8 f$ A0 d9 ?' {* g     SuperscriptBox[  \/ k/ r, W0 r2 M8 ?
          RowBox[{"(",
    0 H; N1 ~. f' T( `1 R       RowBox[{; e" g  x$ o- \
            RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    3 }/ i+ F0 ?$ s     SuperscriptBox[
    5 e5 K+ {; u* `1 s! e      RowBox[{"(", . u6 L* I  q8 N0 h) Z* L' P
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", & T6 |$ {3 |" U7 w# b& z4 d& R7 K% T
         SuperscriptBox[+ B" R8 e  o8 }2 f
          RowBox[{"(",
    & l5 e' \( F. P, r4 x- D1 F       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    2 k8 l7 ^$ H; _: g- l8 k+ E& Y     SuperscriptBox[
    3 V2 B- p7 c' A. Y      RowBox[{"(",
    : Y5 i6 q1 \! M  {' q4 \9 `4 n3 j       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ; p1 d' N( d; g# [2 x  D     SuperscriptBox[
      a/ V: l) ]6 x! G2 O      RowBox[{"(",
    * J# O% r2 v, F0 r% }( b& k       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    4 F) S8 P8 D) P    ")"}]}]]], "Output",
    ( R# Q; l0 {- s# q( F& H) x CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]+ g' v% q$ H6 p0 C; u; j
    }, Open  ]],
    ) [6 t4 W: {" C% N" [: o( T* Z/ K1 j; k
    Cell[CellGroupData[{. ]0 N/ E- ~9 k2 K' T) ?, @& ~9 i
    % w" E) x' r! t2 {
    Cell[BoxData[{
    / k3 v3 O( g2 J1 q3 z# U1 W7 k9 I RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
    $ y1 l+ g% i2 n( T9 w. A, N RowBox[{"u19", "=", , M; D( v& Y: E5 Q/ J  d/ w$ b
      RowBox[{
    9 R! I, ]' \7 P* F0 v4 n6 a% |6 u   RowBox[{"Exp", "[", 5 ~2 |, C7 E9 o6 S/ G
        RowBox[{! c7 T; L% ^4 @& f) o$ Z- u; c3 h
         RowBox[{
    $ U, D0 S: D( T( |3 a      RowBox[{"-",
    ; v# P! {4 `+ L; H  H) i3 d       RowBox[{" S3 k0 c% |1 W
            RowBox[{"(",
    " E/ m/ [6 e2 q1 W5 _         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    : |! N+ Y8 E8 ^- m# @; f        RowBox[{"(", 4 Z; r1 j8 u3 B7 |( J& t
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    1 S; a  i* r, s( g% z     "]"}], "/.", "DeltaX"}]}]}], "Input",
    5 A! n+ Z" i2 B6 @ CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {8 H9 m2 A/ S: Q1 Q& R8 p
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, + |* A  g0 G! x8 B" z: x
      3.577961588890861*^9}}],7 C' d/ u" {. |, T' M0 V* b3 {
    & A. C$ f* ]: h1 {* o. n
    Cell[BoxData[; w7 Z; D  \- j, @( _7 \' A" B! s
    RowBox[{"{", - j4 @5 \! [) R% X6 L4 n- B- m1 [7 x
      RowBox[{
    ) f( D* N! I+ U. x  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
    1 c; ]' k) ?) l, c. s, p% M- p+ ?   "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],
    - h/ @% i* m8 E0 h" \  "}"}]], "Output",
    1 {* ^4 g" u( h CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],( _* p) }; }. O" L- y
    5 i/ g% V7 a+ s: _
    Cell[BoxData[* ^$ J  \/ y7 F% r6 y( ?' m2 p8 V5 A
    SuperscriptBox["\[ExponentialE]", 8 a& ]+ V  G/ r% q
      RowBox[{"3.141592653589793`", " ",
    9 w* V( q8 j% q+ u3 r   RowBox[{"(", # d6 R" D* i8 T! M& P0 ?' {1 d7 p* V  l
        RowBox[{
    # K1 R+ ~  S3 a  `7 W4 B, F8 O     RowBox[{"-",
    7 @& e6 N) ~3 E0 [! |  x* q      SuperscriptBox[0 u* D: T. v7 l, b6 }9 s
           RowBox[{"(",
    # x3 r; m+ W3 f* S0 B( o$ U        RowBox[{3 v# |" W2 j" H
             RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", # ^( P& v3 m' G0 z! Y" G) I8 [
         SuperscriptBox[$ B) e! W* T3 ?/ A/ w: y
          RowBox[{"(",
    2 i$ a" ^% T3 Z4 j+ \' K$ q       RowBox[{3 h( G- L3 I; n$ ]" K2 ?# R% Y8 `* B
            RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", 9 L4 i8 Z  E0 Y6 Y( p# [
         SuperscriptBox[
    ) N3 b9 s. @# @9 |# l( ~) B. z      RowBox[{"(", , H" `' u; y+ O( \: C) n6 _- a
           RowBox[{6 ^: r  ?6 U3 v
            RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
    ) i+ m5 l! e8 h2 _( p: C: X/ u     SuperscriptBox[* t; d% L/ [; }/ n
          RowBox[{"(", . {3 u0 q: O' X
           RowBox[{6 k& Q  A- t/ S% l- N2 Y
            RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
    5 y) q' ]- M6 f$ E" n7 J2 A     SuperscriptBox[3 w/ h4 J9 B9 T/ q; b4 G1 @. Z
          RowBox[{"(", : H3 h( |$ h* p+ ?7 N( ]# k  d
           RowBox[{: j3 B# d% J8 t! \. c% ~/ I% |) X3 K% f
            RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-", . `# w$ s# y5 U+ ]1 K
         SuperscriptBox[+ a* n; o+ L% B$ u& ^
          RowBox[{"(", % h0 C8 n, p, E' I: O0 L: a, }
           RowBox[{
    / d3 W8 `) q- E. }; v# ]        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
    ) g. _5 {( v: b- M     SuperscriptBox[5 n( Z& J$ L  ?/ d  C
          RowBox[{"(",
    9 }% g, }1 `1 q. R/ A6 H3 f       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    $ L$ t8 @: x! u& _     SuperscriptBox[
    ' x' `: y5 N/ s3 F4 n8 t( `, v: N      RowBox[{"(",
    * F; M0 l2 n0 @3 d       RowBox[{
    ! {, p. |! H/ L. H  R* z        RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", ' l- L( |  K; \* t9 N8 z% J7 A
         SuperscriptBox[) `- L4 G- s* ~8 D% {+ Y* m# j7 @9 e+ d
          RowBox[{"(", : ^: C, \8 H: ]. g6 w
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 4 l8 F4 X. D5 l4 u8 f. d
        ")"}]}]]], "Output",: c, F2 B7 v5 n+ P2 i! Q
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
    & K9 ]: Q, ~9 v}, Open  ]],, Q% w$ F9 X( A3 o
    1 F: |+ z8 l0 p4 M" o" `
    Cell[CellGroupData[{. b5 J4 H  t8 ~: `( d$ m3 r

    ) g/ B/ n  I7 W% }Cell[BoxData[{
    4 e9 @3 w) G1 ~& p# ?9 k% L( _ RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]", + R9 g* P4 O, N: l1 ?
    RowBox[{"u20", "=",
    4 `+ D7 D; H$ y/ l: Z  RowBox[{
    3 B! B  p4 D9 s4 t( H   RowBox[{"Exp", "[", : D0 k! b+ w, _8 M& F1 x" ?- ?4 g/ \
        RowBox[{+ n' O' m7 Q7 ^6 L
         RowBox[{; C$ v! ~- U! q5 x6 r! w6 i/ K. C
          RowBox[{"-", 2 y/ ^& R( X$ i) e
           RowBox[{
    , a5 G$ ]; A  B& j1 W        RowBox[{"(", " F0 w3 r# R, B" T0 c) B' o3 }
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ) E2 i5 M2 ?/ @& B9 N        RowBox[{"(", ) D/ k  m1 h# M
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    $ d8 q2 Y0 s; O     "]"}], "/.", "DeltaX"}]}]}], "Input",
    4 S/ S$ h3 u  m$ } CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    $ D% A& g! J: e3 a+ i3 M  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9, 9 U; l7 c. f7 u* w, j# [* T
      3.57796159382047*^9}}],. o5 n! X" s7 s5 F, D
    ; q. T+ E0 @# n$ x! J0 \
    Cell[BoxData[! j+ F' t& i. A* D9 z
    RowBox[{"{",
    * w5 {- G& `* A/ C- |  RowBox[{
    : p' V( T, d) ~9 _' u  X  "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",", 8 F: Q! u: k1 H- H2 ?
       "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}], # c% ]+ q$ q* Q" t8 M8 a: r
      "}"}]], "Output",
    ( {7 o& a# A. e! w, u7 F, [8 b& m CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],
    / W7 [# k% g/ m: Y
    7 S: C: h/ ?7 G! t, t* qCell[BoxData[* h8 q4 h4 c2 a4 \% }% E5 X
    SuperscriptBox["\[ExponentialE]",
    . R9 v1 Y; L$ D: E' }6 T% I5 f  RowBox[{"3.141592653589793`", " ",
    ! b- f! q/ \+ {5 b7 C' m9 c   RowBox[{"(", ' n/ g$ z4 @4 l, C5 e5 |6 ]5 j
        RowBox[{$ o7 s3 S) O" C2 r  P  ]
         RowBox[{"-",
    3 h* S0 r5 U/ l( Q( n, M      SuperscriptBox[
    ; z( g; t/ x* E/ J: k" P8 t. _+ A       RowBox[{"(",
    ( [. |3 }6 I, ~* E- d        RowBox[{9 ^2 D: T' U# n  w9 F" G# n
             RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
    - i/ p; d: t+ K, B8 T! X1 a5 s  S     SuperscriptBox[: x. A( q7 C, n
          RowBox[{"(", - M; l2 C6 Q# V2 ?2 V
           RowBox[{2 W$ B8 W1 E# e0 N/ W/ p
            RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-", 6 E5 [8 c$ e# V6 z
         SuperscriptBox[
    3 e5 Y! M% o( h# I      RowBox[{"(",   h; h, N9 W: L" W
           RowBox[{
    # [* A; s! V' _        RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    ; v# S# b4 z7 K5 F6 b     SuperscriptBox[: t% I; o" @! u; \# e* T6 p
          RowBox[{"(", 9 ?1 G) M0 @2 l! E& F
           RowBox[{
    0 U: i  T/ T0 W( {        RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
    . z7 f3 h7 |- e  i' A     SuperscriptBox[. J5 ^) Z1 s% t: I! H+ j1 Y
          RowBox[{"(",
    + o8 p9 h. k& T: {  ]       RowBox[{2 b$ Z5 {4 `  G  k
            RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", : Y' w6 F9 H; F  N  T
         SuperscriptBox[
    : T4 D$ E) ]6 v& e      RowBox[{"(", 5 l3 b$ r, r5 E+ G" K3 @/ ~, G
           RowBox[{6 r) c- A) w6 D- V
            RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    0 z0 S5 D9 ]2 I4 ?4 z) z" e     SuperscriptBox[
    5 H5 i5 C0 N. U  l# ~      RowBox[{"(",
    ( j1 S0 E  i9 h$ J  X       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    1 d0 L3 h; ~+ s4 G4 l  j- o% h$ o     SuperscriptBox[( @4 f+ j. N+ R  G5 Z
          RowBox[{"(", - f- U' h' i6 u4 ^1 p  N! e! S
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ' r( b. t+ J% v, ?- |/ |
         SuperscriptBox[
    : e1 |+ ^6 L1 k1 X$ Y+ k" K* i      RowBox[{"(",
    0 s$ p7 o9 ~5 o) i9 `' V       RowBox[{  y! s" R" L) U' o  P; n
            RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}],
    / i" N5 t+ e: K! y: y3 U# G* }: t9 P    ")"}]}]]], "Output",6 u5 N/ _, [3 Y3 ~5 d  S
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]$ R4 B) J7 g& ^5 D3 Q) d
    }, Open  ]],9 ]0 X' h; K  F0 P7 m2 P* I, r1 w/ h
    9 I. j+ h8 }4 d. ~
    Cell[CellGroupData[{" K/ A3 ~$ R" o# F% Z) p7 l4 {
    3 r+ m8 c+ j) s# _$ X$ r
    Cell[BoxData[{
    0 _1 o9 y0 E. L; L RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]", ! k9 y) o8 r  Q& u, o$ `
    RowBox[{"u21", "=", , G  X& ^3 b9 M5 d
      RowBox[{6 y9 u4 \1 g' x4 b
       RowBox[{"Exp", "[", % u3 N% G' d8 W
        RowBox[{) Y- j. T! j' R1 G) g
         RowBox[{
    2 [" i' \$ N' a( ]      RowBox[{"-",
    ; h. o7 y0 g' N+ B  C       RowBox[{- Z0 m! M( N; b: |' t: x
            RowBox[{"(", $ P8 A% e  `, e1 `7 k
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 u" h. c: |4 c& O5 M
            RowBox[{"(",
    % N" ]/ @5 |* y+ }         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ! d/ i/ H- a) U7 q2 @+ s" |     "]"}], "/.", "DeltaX"}]}]}], "Input",) |2 u4 L% S* P# u4 @" q
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    , n8 ?/ ^7 `/ Y  a9 ?  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9, % x. ^" t6 x# j8 O5 P( y/ F$ u4 Z1 j
      3.5779615991556787`*^9}}],2 w; A( R. k; X, s5 k

    . ^+ i8 z: N7 V6 R8 M" x( |Cell[BoxData[5 m8 i5 G$ U% `
    RowBox[{"{", $ B" i& a/ ?  x4 w: m9 O! G3 X! b
      RowBox[{
    ( w3 o& ?% |, y1 G$ B5 [  "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
    ! p7 }# y; b5 y' w# ~  m   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}],
    ! @0 p/ ]- T  y( t5 _3 @  "}"}]], "Output",
    . w2 D$ X* X, b( l  w CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],3 }; N. `& s3 r
    + B% |4 Y. ]. X( }4 t9 N" A: b; ~% o
    Cell[BoxData[
    + d+ j1 L6 _) L SuperscriptBox["\[ExponentialE]",
    & i0 G6 J) |) e2 N6 a! c) X! U  RowBox[{"3.141592653589793`", " ",
    ' x: Z3 r+ |/ `+ S0 p   RowBox[{"(",
    2 @5 H' c/ I( o- Y# U    RowBox[{
    ' d" F; u, j/ q- ^     RowBox[{"-", " w: ]! m2 W; b. F# o2 ]
          SuperscriptBox[# U( N# s8 C! B
           RowBox[{"(",   t: u1 l2 S9 }2 ~0 l2 _0 [
            RowBox[{
    9 @8 l7 ~; r! }, I0 E; @/ s1 u         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", + ^# w- Z) {$ d# J% C& [6 \
         SuperscriptBox[
    ) y- ?7 Z/ C1 i9 X8 S) Y( Z; l3 a1 R      RowBox[{"(", . Q! o2 {, e, w
           RowBox[{& i- |0 v! S4 W& v3 z
            RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", 4 s5 L* v/ f8 g
         SuperscriptBox[
    3 L( r8 v# |' C  q) r2 H2 o      RowBox[{"(", - M9 M: ]1 t, s8 ~7 Y$ U0 v
           RowBox[{
    6 g) K6 S/ I$ o* n3 b0 \! a        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
    , q; ^. ]8 r8 o* t) V, W: p" a     SuperscriptBox[
    - W" \; r5 s" V3 B3 y      RowBox[{"(",
    , P  S) y  M, C: K9 s" Q       RowBox[{
    * r7 ]" b8 J' \2 C7 \( C0 t  ~4 J        RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
    ) C6 c- }" `& d; a5 t! I- C( h' |     SuperscriptBox[
    ( J$ h. k5 Y, y2 B      RowBox[{"(",
    5 W2 k. f, v! Y       RowBox[{
    " c9 e# J- X) g; \        RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
    # S0 |0 t! s9 z: d6 K     SuperscriptBox[0 P/ \0 |- t  w2 M8 ?3 ?
          RowBox[{"(",
    7 B! d1 S) l4 q1 H' J7 D5 [+ |       RowBox[{4 a  w6 t- g; X, P: }% m
            RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", ( P7 t3 U' c1 _. H( l+ @, q
         SuperscriptBox[+ W# x, w( |8 A4 D
          RowBox[{"(", , B# N2 F, q. _. `, c( G
           RowBox[{" L% b7 w4 `6 T
            RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
    1 Q4 ^" e0 q" a) Q4 w7 a     SuperscriptBox[
    * J/ v. F; w* L      RowBox[{"(",
    " J. w* t3 C: E; r! h; J, S       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", " w/ K  F* n, _
         SuperscriptBox[
    8 u% `7 ^, g2 [  b      RowBox[{"(",
    * K1 h0 c% [- G9 _8 ^       RowBox[{5 `. I; Q0 C6 y! I0 x
            RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
    # n% p% R$ b: |    ")"}]}]]], "Output",
    * v# A- ~' A" ]$ y CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]& N& e; G, Y; x: i
    }, Open  ]],9 U" g; k. n" [5 K6 w$ d6 g
      Z# I" l! b- h
    Cell[BoxData["\:62df\:5408wi"], "Input",7 K4 n. ~! w, w7 s% a2 v
    CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],+ K6 |6 V9 U1 z. ]

    0 x$ t& W7 `" I5 g5 l- |* K8 F; F2 KCell[CellGroupData[{, `$ n4 G0 L/ U. G) \9 ~

    ' `& S2 L4 K7 \( o' n4 {. nCell[BoxData[8 ?7 O' F" z7 [0 ]. `, B
    RowBox[{"y1a", "=",
    ( Y. p+ A- C. g+ Q+ `( i' o  RowBox[{"Table", "[", . F4 c/ I. G6 L- k( ]# O
       RowBox[{"x", ",", & s" c6 m5 a: l* \8 A6 W
        RowBox[{"{", ) `5 w' E2 p7 I1 q' h# [
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",! m3 S9 l1 A% z
    CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {; f3 Q6 c: ^) N
      3.5779226649375*^9, 3.5779226810625*^9}}],$ \  w* H7 H; J7 E' _: i

    " t! _* A! m% z! n  QCell[BoxData[
    * k( u3 ^' |$ H RowBox[{"{",
    0 C. D$ R  g, \$ O3 Y7 D" o  RowBox[{
    2 ]; R5 h; k8 Z1 m# _  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 6 U2 r* S6 G7 ]1 x( ?; [2 H5 V- c- a  L
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",3 d! z- p8 [% D% _& f+ D
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    # N! s2 [! Z1 e2 l3 c+ b+ l8 ]1 }; _   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",   q9 V1 s- e4 T( G
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", 6 C, R6 Z" {* y+ w8 ?& ]# f
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    ' v* N" T$ l, F% N   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", ' c6 F. \9 g4 n) c! [2 |
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    ) z. j! Y- U% X. F! B( v. T   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
    6 }- Q: m6 B6 s4 C  "}"}]], "Output",
    ! P& K/ X( o9 C CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
    ( e1 R) h, x* m2 f& f  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]
    9 C  p5 j7 }) y9 T1 h; v* w9 u}, Open  ]],8 z1 B/ ?) }2 V1 b2 Q7 k5 ^

    ! y/ }6 u& m8 Z1 ~2 pCell[CellGroupData[{. ~) Z- W. O4 e0 T% o
    7 }. z) k* [* h6 D
    Cell[BoxData[0 N# i! R1 h& ]
    RowBox[{"Data", "[", , D9 _: j( a- a9 x  q
      RowBox[{"[", * W) e* T" O/ w. I
       RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",  w4 q+ j" E& |* O+ a
    CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    8 G: ~7 V/ L, D; l  G8 l; I+ D! x7 u   3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],
    & i- q$ _; @/ y& s- a& \/ r, k6 w+ w6 B  g* n; W; b) e
    Cell[BoxData["0.899882`"], "Output",
    / J5 ]' Q" P' h1 I CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
    # I- T6 x) H" M# V9 g8 ?   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
    $ z& u( s  g$ T# {9 H& p9 D/ x   3.577961929080654*^9, 3.5780123419375*^9}]
    2 E5 D+ @, B6 m% x, N5 O}, Open  ]],
    ! e: g0 Z1 `2 C* o5 }9 n" b- ~
    Cell[BoxData[! E' U- u, s: @. D/ @
    RowBox[{"For", "[", & D4 G( e/ J* Z+ T1 m* J- u& }2 v
      RowBox[{. s8 e& w! m/ g( m* m' ?. j6 U
       RowBox[{"i", "=", "1"}], ",", 5 A4 S. ?- Z. v0 r3 z# S5 ?
       RowBox[{"i", "\[LessEqual]", "60"}], ",",
    , P" I1 N# \3 K7 H   RowBox[{"i", "++"}], ",",
    3 m& h  H9 d4 ^! N4 ]2 v" f7 g   RowBox[{
    2 I5 X+ [- t5 T. }, h1 I& G# d: e3 B    RowBox[{"y1a", "[",
    , z/ a# v( z! t! ~" ~6 x1 }2 E. _     RowBox[{"[", "i", "]"}], "]"}], "=", 9 k5 R' r! G$ t
        RowBox[{"Data", "[",
    / Q# l. Z1 f; H) r; J) E3 g     RowBox[{"[", - i9 `1 w- O$ c- Z8 D8 p
          RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
    . B% r: {4 Z) A1 X/ x CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {$ p$ j& Q# L4 S/ p2 t- i
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    % ]. M* ]6 F; B! v! h   3.577922923203125*^9}, 3.5779588839702806`*^9}],
    5 D: E" \7 \% Y8 N) u, k0 Y' i6 t) x( ^3 r5 W/ D
    Cell[CellGroupData[{# R. b( v  Y, l

      V& t- v( D3 {% ], c( f8 ]Cell[BoxData["y1a"], "Input",1 K4 u; `/ Z  a9 ^; F5 K; m
    CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],& e8 v- }% }; m# K' ?# W4 N

    . K9 w/ g4 j  ?6 ]Cell[BoxData[
    5 w4 B6 R% {! a( h6 f RowBox[{"{", ' ~$ C# D8 X  o
      RowBox[{3 ^3 y' |1 r  z+ K/ S, X8 v
      "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",",
    1 O5 K0 _* h( m8 x   "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",", - t5 J+ L; `* \4 b
       "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",",
    ; b1 C8 _& A  U   "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",", + i1 m! Q8 Y9 j1 M& q
       "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",", 2 X# d! M+ |& n
       "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",",
    - @4 x' b) V: S5 {( K* B# D   "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
    ' J& V% d& ?% W# o   "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",", + x4 t; h7 Y2 N, @6 L# ~
       "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",",
    4 I% j9 E9 J. I8 k3 R   "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",", + ?+ _. @- B5 G7 m, w
       "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",",
    - y& j( W, z2 l   "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",", ) \# O: P8 y" o6 k6 [; u5 y6 p
       "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
    & z- N5 t0 \- b/ k   "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",", 7 U  Q) U. @8 L9 M$ J
       "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}], 7 \: ~0 q0 C+ z6 Q: }. P
      "}"}]], "Output",
    / u1 n% X) @2 ? CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
    ; c& w; N% K' _; H  3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]3 F% ]! C1 _- x1 v0 Q
    }, Open  ]],
    / Z1 k& z. T' U; ~+ G- H  r  z1 H* R+ G+ g* U
    Cell[CellGroupData[{; p% e" C8 N* l0 w

    1 \7 V; w7 B8 h7 e% v5 t" ACell[BoxData[6 S5 k' F0 O3 O+ H6 A7 x
    RowBox[{"m60n21", "=", % A- _* C" X3 x$ r5 H6 i
      RowBox[{"Table", "[",
    1 l7 b4 s6 s4 w9 f3 D- q3 h1 g) {" f- t   RowBox[{
      }7 J" C+ S. o' I* z    RowBox[{"Table", "[", & |9 u; z) O- ^$ e: U, c- o1 A5 h% k
         RowBox[{"y", ",", , D& u( W( i" s4 F* Y5 w  R* \8 g
          RowBox[{"{", # Q( y* k) `& c3 o( g  r! f  i0 ~. J
           RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
    4 g7 I9 `  w( z! m& b    RowBox[{"{",
    6 A9 N* `2 B; T. w     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",; t* X; f( s# W4 I2 k# E
    CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {% c  K" G8 m5 d6 R
      3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9,
    : }# g! S5 e- c: D- a  3.5779619706547265`*^9}}],. l& B' d! U9 M. ^& b

    4 N8 U+ G7 z- o5 PCell[BoxData[
    % H1 s( k" C/ Y" j; w& J, T" f RowBox[{"{", & `; W4 k; u% ~( M3 i. a
      RowBox[{3 H2 m/ x* ]+ I( k
       RowBox[{"{", 1 Q* |/ x! k& x6 J
        RowBox[{3 h0 Y! m. t1 c" v9 Z+ G
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 B: F( c  D4 \
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 z  @* C* V% F* W! P$ v8 _     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% a! J; f, L2 z6 I. O5 ^9 ?& R" O
         "}"}], ",", . h. p9 Z1 ^. y
       RowBox[{"{", ! G7 C7 W" N6 d$ G$ a8 ^
        RowBox[{
    3 t4 g: s" ?4 i    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 t9 ^# {& R* f5 l+ i( x2 @      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    # {8 {9 y4 X- T6 C     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ( v- h$ b- y( I* z     "}"}], ",", 6 w, J% V$ g  p# q% D$ g
       RowBox[{"{", . J* p6 P/ @3 N3 d0 w
        RowBox[{
    . L/ F+ X- @, O) p5 {  `0 i- O    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 w. m- i. q* |; e, [. u  `
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    + u7 `' T  J; z. E1 f' S6 b     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ L3 Q- ^, b) x3 ~
         "}"}], ",", ' @7 V1 b# y- C0 Z
       RowBox[{"{", - ^  X; `* Y, N! l7 [5 q" c* a2 x7 T
        RowBox[{
    ( [- e! d$ U  Q) i' @# \  W& {/ r* K    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 v1 g% w9 G: ?+ t/ G      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    4 k5 f1 ?' ^0 J     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! @& F* [$ ?& `4 d
         "}"}], ",", 0 b8 R/ B4 l+ B, W8 p
       RowBox[{"{",
    1 n* [$ o  u1 j5 R    RowBox[{: o7 Q% j  T8 T/ v) {3 F# X
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% W  S  D2 ~, k' V: S5 t8 n
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & ^1 Z7 U2 m% w( X* e
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ j) w* H) h& H. h* Y
         "}"}], ",",
    * m1 |3 e2 u8 ], t' K( d   RowBox[{"{",
    ( B8 w7 n5 Z) {9 Z2 m0 _" {    RowBox[{
    9 P6 }( C7 a8 p6 v! d' y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    4 k6 R% ~" ?' [5 L% X5 D" E6 @      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    " U4 A+ O2 q  s6 `  {( J' ~- g% l     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 N: U3 v# r1 g, d& t
         "}"}], ",",
    8 N$ b, T2 Y% r   RowBox[{"{", 4 [" k) h; v# I
        RowBox[{& h0 P' c5 U  x; K/ x3 Y: y" g
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    . K) O! E% i" P1 _' w& b+ M      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    3 S0 T% N/ \6 J/ f5 s% T# ]3 U' B( ]     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 F. m1 s: |0 c' B; l9 W
         "}"}], ",",
    . Z% J7 b* B! m  y8 m   RowBox[{"{",
    . M; \. T9 ?/ s# i    RowBox[{6 C, X: D6 j; `/ `
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    6 V! B# Q3 o- N- I2 ?! C$ X5 V7 G      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    + l% O1 a  p& j# F; S     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    0 H+ l) h" Y) k% e$ \     "}"}], ",",
    6 g$ }$ o" @$ W. I$ ]   RowBox[{"{",
    9 t8 P+ E' [+ W& `6 \. q    RowBox[{% y5 X4 Y: ~( z* E& b5 `0 }8 A
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) k5 n# G- t# r3 X4 R4 [# [
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # H  n; D4 E- ?5 t
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," m0 g$ k0 E  O$ \
         "}"}], ",",
    6 _8 ~0 Y3 T- ]. m5 ?# Y   RowBox[{"{",
      \( K" ?/ Q( Y    RowBox[{
    + x" i$ \0 z4 y1 P" J    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    3 g' `" j% L0 H  k! b4 F      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . a7 ~2 e* W  J4 y( x4 ^* D9 f* }7 A
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& g/ o& `0 {  X. f* T& C; a
         "}"}], ",", 4 L5 B# j/ g- o% H, D. N/ u
       RowBox[{"{", , i7 h4 n1 d- j3 w6 Z( [2 @
        RowBox[{3 w2 Q  I( J: n" _( c+ F, K1 _
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: O0 V7 _8 o; y  Q
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 d9 |1 E9 t9 b( H     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    % w' i# k9 u: y5 w0 M# p) K: N- z     "}"}], ",",
    ( d8 I4 p% x9 M4 Y   RowBox[{"{", . n3 b/ g# X, q0 k
        RowBox[{
    # K! b9 p0 a# C1 s; O1 `    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 z: P# F  W$ T: Y1 O% |8 A
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    * Q8 u4 h' |/ j! ]" ^% a% U     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; w+ S$ A, s. G6 a# }
         "}"}], ",",
    7 L' H0 `" e1 J# W/ e8 |0 w& m$ G   RowBox[{"{", $ Q) N, K4 q; T; {1 w4 C7 i  f
        RowBox[{  K, t. t; O( ]6 w% ^4 X0 {: ?7 R! Y
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 L+ Q$ C+ _' M# g1 |  u      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / R  `2 n$ n( t" s4 ^
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 y+ U- L9 T6 s5 J3 l7 c/ D
         "}"}], ",", 7 j# h" l& }* \* D
       RowBox[{"{", % R0 j, d% J$ K
        RowBox[{) K, H2 ^+ t& t) H) \& `1 H
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' q* I' W6 I5 F  e( }. t' |
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 C" k. v' l! S/ D  d
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: @' c  w8 y6 S8 G- |& z8 V" k/ x
         "}"}], ",", $ }1 s- a; l% V3 B( k
       RowBox[{"{", * F9 {; \! H% a1 g3 i# A
        RowBox[{
    * n% G& q: A3 B* |6 }    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ' _% T# n. S# ]  Y) D& r' |      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    7 p* m6 F& L3 U/ E  P     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    8 Y& R! }6 I7 _0 Z) G7 e6 s     "}"}], ",",
    ( K6 X0 g& Z1 z( X  K   RowBox[{"{", ( o+ a$ W! }9 }# ^" L- o
        RowBox[{% z: Y' m  Y. f
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 D% p4 e  ?0 I8 k' Q
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : I# s7 W" [& N, S, ]/ D
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    - _* f4 s2 a6 u3 ?* |     "}"}], ",", & u7 D  B5 {1 M  G! p) ~
       RowBox[{"{",
    ; Y% Z4 h' t4 D6 n: b1 f    RowBox[{
    8 T. S2 U. c; r. y9 R6 k' D5 e6 x4 `7 ]    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 u/ i& A& h( |; Q+ p2 G& V
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; b" j' y  }' C* U( e( f5 R
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    1 s* D0 F" I$ ?3 p+ Y     "}"}], ",", 5 ^* ^* o$ U( c2 \
       RowBox[{"{",
    4 T! }% P% `% n+ l) J0 r" p    RowBox[{
    + h* Y. H) Q: v0 q6 Y, }* J, ?/ w) w    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ' U0 W; ]+ t: h* S1 ~      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 U1 k. b% ^9 S% \  C. o2 Y
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    6 D+ P6 @- r( V) e     "}"}], ",",
    # x# U" X& A& q# O3 ]$ k% o   RowBox[{"{", ; ]& }$ H2 X; P
        RowBox[{  `' [6 ?8 ]# G% a
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' V, p* Z  [" O: e" E5 ^6 U
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ Q, h8 o$ u2 y& z; @% G
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    5 G5 i+ w1 G, X9 n. B, R     "}"}], ",", ! G& }' p9 e) _; H: y. t3 Y: O
       RowBox[{"{",
    0 Z- g- o% k' ~7 x5 O: f; o    RowBox[{8 e, ?5 N( y/ c- [) o
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    * N, O( g" v8 n/ M      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    6 k6 R' j4 b8 j* B7 e% ~* `+ k     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ; ?; @! X. F9 _/ c1 d8 b$ Q" x     "}"}], ",", 6 H+ `! V) g0 C5 j$ B4 D5 j
       RowBox[{"{",
    1 L+ q2 l0 R0 m+ \    RowBox[{
    3 |% f8 f+ M7 u. V% m/ w9 U    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- t- p3 I1 @  V# u/ j& o
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    9 |7 s6 y$ l# d! J0 A     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) K, w; y( y0 [6 @5 n) H2 @
         "}"}], ",",
    0 F0 t+ n! L- [  A" n. v   RowBox[{"{",
    $ k8 ~, h& E5 J7 O- `    RowBox[{  a" |" |  d. u! H+ e8 x, h
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 _/ P4 ~4 E- g7 l
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & J; {* [: @1 w4 G
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ f. f& C( V% g. v
         "}"}], ",", $ \7 a" H) ]- ]1 [
       RowBox[{"{",
    ' q9 K& H4 ]; l) \) F    RowBox[{
    5 b( I% C4 P" M( g1 w  a) Z2 P! r    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",  O4 q5 {. p; h$ l) h1 ^
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ( L, H+ G# I# F     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 P" X# z4 \3 K* i0 {: V
         "}"}], ",",
    ; a. o. V$ P$ q1 E5 n: ^' u   RowBox[{"{", " K  v; \0 Z! @! \9 G$ ]
        RowBox[{$ L# f, J( d& v, ~# H: ^
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ) t% M# h! p' ]( @5 e      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % P' d' p( F: A) d
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    1 b* a. b# P* i2 I( W     "}"}], ",", 5 I  `! e! b  q. d* ?
       RowBox[{"{",
    ( N6 C% c' a9 w& I1 |    RowBox[{$ o+ v7 O+ w% j
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% }1 W# K! w0 {) n: Q8 g  J
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / \( U/ R: K& W3 }* W2 ?, k
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    : N8 i$ j6 R$ O6 B     "}"}], ",", 5 K4 ~, I. j. F. _, X
       RowBox[{"{", # D( Q$ g% ]* K' c- ?. [4 `% S. C
        RowBox[{7 E* f, I- S9 Q% ?
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : X( w, ]% v) z& K5 E      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 Q0 X+ T5 k+ h0 ]& s4 X# i! T
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    7 d# v, \3 I: S5 G, Q     "}"}], ",",
    ! b1 A( }' h8 B9 i0 g- g# N   RowBox[{"{",
      ^( Q" n' {* S. r! p, x7 q/ Z    RowBox[{
    1 S2 ^+ g$ S$ N# z$ q0 Y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 D% Z, I* r9 d" q5 x. m" R      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    , U6 ?3 N& s! Q* z5 v, b     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, J, K+ D9 F3 T8 A1 Z/ Z
         "}"}], ",",
    4 b! \6 ?7 F5 K; @5 x+ ~7 o   RowBox[{"{", * ]$ O$ O$ g$ n; Y  O
        RowBox[{
    5 x& U. n' }) x* u& \$ g    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",  b- X3 [& r: h
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! `3 @+ a% a) c* `3 V2 k3 B
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    , @4 G/ e3 ^, s9 w, {     "}"}], ",",
    9 I, E# |- Q4 }. }- e7 [' L$ T+ J6 Q* Z   RowBox[{"{",
    7 X" ^8 E5 y& g! R! C9 H7 l    RowBox[{7 S4 I& k3 L$ H
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 [* T" b! n# n' Q% |5 y( L! f      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    8 }- d1 Q% |$ M7 \5 h5 N, ]     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, u, Y; s- {4 T# D4 f' D
         "}"}], ",",
    ! L9 R  k. r5 c, r; s  _5 g   RowBox[{"{",
    $ X$ s4 q5 w" P+ F    RowBox[{4 E9 @: j8 ?/ Z/ V' R- M# X' m
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    " r' z) v! p4 f1 G. D/ y! S) s      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    $ _5 k* a& ~9 x1 T1 w2 `+ h     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    # c& e0 l" h& ]  D) ?7 }     "}"}], ",", $ Z) _* w( R# N# f7 w. W9 h  z
       RowBox[{"{",
    ! a2 X+ m& M: Q& Z" v; L- V    RowBox[{
    3 v/ u" x% v* t4 }    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ D4 @: ]: N% q3 x
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 s& k4 |: ~5 s- @  ]
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ o2 V' B5 V' x' a0 j' X
         "}"}], ",",
    , F" n- g9 I4 e7 `0 A  j$ [   RowBox[{"{",
    - _; ?" {4 V! A    RowBox[{
    / X0 O  {2 K% U. l! ?+ z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% g% S. ]* @; A3 Y9 c* t. z
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ) d4 B* t& D0 K9 ]; U" b4 Z/ {     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    3 r- l# A6 Q# `     "}"}], ",", " d( w# d% j, v; K! p( a& G" ^9 a
       RowBox[{"{",
    4 u! W& d5 k7 w$ a0 J( e1 ?    RowBox[{
    + C) s3 ^) c/ A( K    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : C$ t1 A  Q0 \& h# ^      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 y3 y* G- W+ k9 J  F* P1 I
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; z, _+ y* _1 B
         "}"}], ",",
    # l/ u3 Z( |; o# Q3 {8 Z   RowBox[{"{",
    * x" q% {2 Z, C. q  k+ G1 o    RowBox[{
    ! I7 r7 ]$ W- D' `    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 E6 u; e' ?2 r6 X/ q% i& {  ^      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
      q* z" D; F( J     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% ~2 x8 |7 Q' R3 `2 V* l+ Z  K
         "}"}], ",", % b% L3 y5 w4 ^% R7 P) Q6 Y
       RowBox[{"{",
    & T. `" v) [2 o9 a$ {5 ?    RowBox[{
    6 m: F& ]; T1 W% S8 J' [    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! Q* \$ Y& ^4 d/ |3 ~
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + d. S. p' A+ f' x) g, O* ^  _! ]
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," Q( H7 J1 z! g/ N0 Y
         "}"}], ",",
    7 y7 l! J7 x0 w0 ^   RowBox[{"{", : P) }7 p+ j$ o2 G" m8 g3 E
        RowBox[{! \2 m1 n9 }" W! a" g% |- G% \
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 P& _" e2 V$ T  {$ w      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    , b+ \+ k% d% ^  q  t     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    0 n  y: a  `8 E, @- ?     "}"}], ",",
    ) N' U( r4 _: X6 x, u   RowBox[{"{",
    . B* i1 a; h+ c% |- j, G) F9 L    RowBox[{
    9 H8 ~, |" B9 H( f, h& \& _    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 K' t2 }6 B$ R4 d' O: E      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    9 ^2 a5 K3 k4 ]! {7 d     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 o. L: Q1 n# T3 R- b" d1 D9 r
         "}"}], ",", 0 G4 ~- R" Z+ |6 B6 S
       RowBox[{"{",
    ; B7 S( D: H7 I7 w' H$ A+ |    RowBox[{
    2 d: [% x- `, A+ I/ l, Y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; y- g" M2 \2 d/ F      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . h2 r6 o' x6 L* W' O
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    * o6 K$ }/ n- g4 x     "}"}], ",", 5 q9 j% Q" |- L5 @
       RowBox[{"{",   t" D* |. p' X$ q% ]
        RowBox[{
    # H# ~3 Z1 N: j7 _4 L  ~% Q( i; ]    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    % p4 S  D0 W" i( c- o; ]      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & o% k8 J: Q: j- B
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . u% X1 S" S7 w5 r& x     "}"}], ",",   c" y8 B0 |6 }( w  w
       RowBox[{"{", 5 L+ i- c2 j) K# ?/ }
        RowBox[{
    # y) U3 T: C6 z0 O& J% ?1 `, `    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      J! b( X, u, x: p, g      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % V) o4 J' c$ y4 d/ o
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 |# Z1 D2 R) G$ W7 e& B' K  z5 Y
         "}"}], ",",
    ! V  O, N, w0 ?   RowBox[{"{", 0 T. w8 l, K# E3 Z# H& _9 X+ r6 L
        RowBox[{
    3 y1 M$ I' d" K/ d! [( D# Y0 w/ m    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, i1 u# h. m, ?& T
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ( u8 E$ C5 j4 o, y, c     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! w' p" H5 h7 c4 |, H* F
         "}"}], ",",
    + D$ P6 F; s+ B7 W* W/ ^   RowBox[{"{",
    ( H! c+ }' Z9 W; `7 G4 W, w2 ^    RowBox[{5 k! v: V% ^) d4 w4 A0 ^
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) H; n5 Q8 i  z1 P: d" j
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + ], [' k+ J- v
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ; `) ?% }+ V% P0 g6 @     "}"}], ",", : s6 h+ o9 s' c3 E
       RowBox[{"{", ! m1 c- I, d$ W; n& z% i$ i) r
        RowBox[{
    4 i- c& [2 r/ y$ S: k2 V* T    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 _1 G- Z3 u9 Y+ t( u- `      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    , @- ^8 U' b8 B7 E) T  t$ o& |2 n     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( L& Z7 l" E, f+ W# j; }
         "}"}], ",", + v! l% i* }$ ]" H5 [& U6 X$ m( y
       RowBox[{"{",
    8 D6 e9 j2 h/ l$ {8 i- H    RowBox[{
    , N' x4 E' K/ ^: I' g* [% }    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, L2 m0 L# |0 J3 o( O4 _; O) E% l
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    " h% X( p1 p( w* Y, w0 L* e     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    2 v$ x: r) x/ L     "}"}], ",",
    ) F) T( v, Z$ g/ z. G   RowBox[{"{", ! [6 C% l) Y* h
        RowBox[{7 I/ w. w# ~4 ^( ^1 G5 S# P
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",  s: @* x, `8 `4 K0 B* I0 m+ j
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % J6 G7 o+ ]% a% Q8 R
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# I" b: S" a; D# i
         "}"}], ",",   e; y* c) c* U% L
       RowBox[{"{", $ o5 K. u- z# V' a, v. ^# E4 x
        RowBox[{$ J' T% ~4 ?* h/ k9 f" ~( M; J
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ! F. s8 |3 A: X" E5 I      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    3 ?) ^# D! B( _4 n( R     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    : l( h+ a( E7 M9 M" V* N+ ^; G     "}"}], ",", 6 a- k  z6 @7 W' a7 ~2 I
       RowBox[{"{",
    8 ?  ^/ X4 d: h! q2 `( s    RowBox[{' T. c; e% Y8 k5 Z0 v
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. V3 @% s9 n. s- [
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 ~! |# g7 S$ x" u
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! u# s  g# _1 j. ^( h
         "}"}], ",",
    " _9 U9 R7 x0 K! }* F7 {! x6 f   RowBox[{"{",
    + p$ u4 q) J0 y; r    RowBox[{" O. c/ Y4 q. Q
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& @3 y8 W# @1 z) a: Q
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    4 T  ?) I5 a8 K! b     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& v- o' d1 j+ E: e+ F
         "}"}], ",", 4 q+ i) ~, i6 L; Q7 V+ m& S5 d
       RowBox[{"{", . }) Z! P! l# {, w1 O5 T- k+ G
        RowBox[{
    # c) c' U' d( D) c' b5 |6 ^7 `    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",  \; G6 {$ Q$ V- r+ d* _
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 Y7 n1 O  d/ k" {
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 i- L+ `' e& g: w1 x
         "}"}], ",",
    0 B* d! B$ D" I   RowBox[{"{",
    : n3 N! F) O; f  \$ X+ k& ~    RowBox[{+ H0 C8 F& C& N% S% l
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      K6 f* @" _7 M6 m- H8 ?      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    4 B' n2 L- A, C- _9 g1 r/ k; `     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    2 ~8 `6 d0 u* @) E% w5 V& f     "}"}], ",", 9 m5 Q' H' D2 G+ F0 S/ W/ O0 W
       RowBox[{"{",
    1 |* U# F" N' I5 p    RowBox[{
    : v3 e) P: \' B, Q- c; `    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ! C+ g7 d. {0 \/ F      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    " ?+ z6 ?7 Y5 Y6 C& y" D+ e3 A' v     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. V) D. n" x" _" G% ^
         "}"}], ",",
    ! \' W- S3 L. l+ V, o   RowBox[{"{",
    3 ?" U, r- v/ I6 _* F# O. P    RowBox[{
    ) z5 M' O# Y- G2 N) z6 E    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 s7 a# l7 Z+ j5 G9 _      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    9 L, T' m( P: r- C/ `* H; g     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . c& B0 [# v5 K+ Q7 n, H; J5 h     "}"}], ",",
    2 o  r" a' w1 i   RowBox[{"{", 0 l- T& W) {' z+ a$ F2 j- w
        RowBox[{
    ( _+ M- c. @4 S* B. Q% i  R    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' B4 Y9 l0 X( ?+ p
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    6 f6 C: o* ~# ?% f) d( W8 ?     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    5 M, j1 L0 G: M, Q0 j     "}"}], ",",
    1 @3 t5 m. l7 {, C1 F2 j   RowBox[{"{", ! l  X& s9 p, f( A( Z7 _6 p, [: n
        RowBox[{8 ^! r5 V' E+ g- n3 z3 m) \
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 Z+ ^; W; k5 S  K: U      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; ^3 _, \! x% \
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    1 u# w- f- v5 i3 U: v     "}"}], ",",
    5 `4 V/ [. ~& p5 F5 c   RowBox[{"{",
    9 m- x7 i7 c" K/ t2 F. b    RowBox[{; D4 a+ t- t% ]" {" V3 O# K; Z2 P
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& a3 K2 i' C3 k; S" c
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 }5 R" F) x, c- `" ]0 ?$ t     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    2 {1 |9 F6 r8 L" o" C( _     "}"}], ",",
    & _( O6 d3 T. o# v% G   RowBox[{"{", 6 C* P$ X! @% o, S
        RowBox[{
    6 g* U/ U/ e$ f1 k7 ^  q1 p    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 e" Z' T# C7 b; V0 q* F* X      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( s3 S5 x+ v1 Y
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ S; k/ }9 F; K$ l0 O( y
         "}"}], ",",
    + c6 @1 {4 Z8 M; {/ s. n- B% Z   RowBox[{"{", 2 l; c# I, Y! N1 G" l' |$ p
        RowBox[{+ m! U' j% U0 x6 @9 t! H
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ H& [4 t# Y! X, U; {
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    * r; N% [- c! |: ^, z     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . P6 W% j4 ?6 f9 {     "}"}], ",", 8 [8 k2 ?  T! i0 J: O# P5 p
       RowBox[{"{", . P- }1 S1 z$ l9 x8 r& f% L
        RowBox[{
    2 w& Q0 K4 ?- [3 y2 S' W    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* C& u6 u) s8 E) B" [0 D
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ' [$ y5 K3 B& |) |. p  ?" ~4 V* J. A     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      g1 z* N9 V. j$ b     "}"}], ",",
    ( k+ s% k/ W9 p7 \/ \   RowBox[{"{",
    " j" U4 |4 Z) s! ]/ V    RowBox[{
    ) V: b: C$ G8 x& C% f# m7 A    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 x& d/ L6 Q8 B6 y+ W( D      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 n, [& T3 _8 v! [  ~: Z" i. L
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    2 l  t4 p5 E/ K- _0 O     "}"}], ",",
    $ ~9 o9 M- p+ x) b# Z1 Q- D3 a& Q   RowBox[{"{",
    # N2 `( F( F; H0 K6 y8 k! y    RowBox[{
    ( U; k0 {2 T1 T7 B3 f1 ?/ o3 F& w    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    % O$ H( s7 `" v3 H, V      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    3 }3 F3 r- C. E2 A8 P     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    + ~) a! R9 Q! N5 h1 k     "}"}]}], "}"}]], "Output",
    - Z# |" u- _. F+ D: ~+ \$ X CellChangeTimes->{% h8 c  F0 q2 l( s: z% L0 m. [
      3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
    ) @: \: }" C; F- C& _   3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9,
    % S) h  P1 S! C5 m- O   3.5779619748823338`*^9}, 3.578012345453125*^9}]6 _3 m4 ^3 i, ?
    }, Open  ]],
    / T5 `# A+ L! D# G3 @! h9 y
    ; V8 q" ]7 k7 m0 \Cell[BoxData[
    % W* {5 j, F' ]7 j! ~/ M  R RowBox[{"For", "[",
    7 N. I% _2 q8 u  RowBox[{/ Y" P6 v9 t4 K9 M' `0 T
       RowBox[{"i", "=", "1"}], ",", 3 t9 u  C9 |+ N8 H" Y" j
       RowBox[{"i", "\[LessEqual]", "60"}], ",",   [; h* @/ m5 j0 ?
       RowBox[{"i", "++"}], ",", / h! O* J# ], C8 T
       RowBox[{"{", "\[IndentingNewLine]", % F" D( A5 _! `- M
        RowBox[{# G9 C5 N2 X' o+ {& X2 ]3 [
         RowBox[{6 v- ~0 m3 [! e& T6 _5 V! X  r
          RowBox[{"m60n21", "[", ' b; t# @: J" \: J/ r  V. L/ C
           RowBox[{"[",
    2 z& _/ _0 z; K        RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", 8 ?- l; {( d% n3 S/ S
          RowBox[{"u1", "/.",
    3 p) X% M+ d7 w' ^       RowBox[{"{",
    ' [+ x" y1 ]( y  z        RowBox[{+ o9 U$ f/ c8 [8 P1 E/ t  ~- n/ m
             RowBox[{"x1", "->",
    ) C1 {: o& s0 l( f7 @7 ?          RowBox[{"Data", "[", ' ?9 D4 ^+ E4 n
               RowBox[{"[",
    2 s( ]! m& K# \6 b            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ! D0 W( a3 l* X& \2 T
             RowBox[{"x2", "->", $ p0 r- X/ g* O2 W: S# h4 B
              RowBox[{"Data", "[", 7 Y' q' _* F9 {/ n5 {
               RowBox[{"[",
    2 P1 p7 m1 T# N; F            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", % B& Q/ V2 l# c. ?5 l
             RowBox[{"x3", "->", % A' b+ u) U. X
              RowBox[{"Data", "[", ! ~" n3 q5 W: v& u4 F
               RowBox[{"[",
    9 Y! \* @. A4 }+ p3 ?  |            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 9 M9 r* K' @; M" N  S1 X" q5 t
             RowBox[{"x4", "->", & X/ A* y, a1 v4 r
              RowBox[{"Data", "[",
    ( B% N* N) h1 V0 ^  K           RowBox[{"[",
    + J% |* r' y7 i2 U3 O1 R) r            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 4 X$ L) x0 N0 P6 U% I8 v: x
             RowBox[{"x5", "->", + m4 }9 u% q( \+ g/ d+ _
              RowBox[{"Data", "[",
    " v# P! g5 {- H8 d           RowBox[{"[",
    . J- ?3 V* a% @! k$ G            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    ; u( t- o- f0 E; \         RowBox[{"x6", "->",
    6 q& C0 Q4 q: n% U" ?          RowBox[{"Data", "[",
    : h$ A5 q+ q4 s. \$ v           RowBox[{"[", 9 P9 g) [2 x* W
                RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
    ; I) V' p% H$ z7 Y) [         RowBox[{"x7", "->",
    . p& \2 O7 B/ U* d& P          RowBox[{"Data", "[",
    0 a% g& g6 o7 N2 o$ w2 }" l           RowBox[{"[",
    ' D2 `/ y5 i( k+ s: d% X            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
    # f2 N( F5 ^8 ~: c         RowBox[{"x8", "->", : Z. c! S7 K) T/ C
              RowBox[{"Data", "[", - y1 z: m, o. [. y) n) [7 a4 g
               RowBox[{"[",
    " n2 y. _) c) v; w" k! r# n" @            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
    % j2 |8 d/ J9 ]6 U         RowBox[{"x9", "->", ) Z& X9 `4 {/ _5 c% b7 x0 n
              RowBox[{"Data", "[",
    4 U5 D  {3 V$ X" Y' M% q           RowBox[{"[", 2 `# |. a9 y3 ^5 e$ A
                RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", . O1 N  r  x4 `1 V
         "\[IndentingNewLine]",
    6 _% I& x- n0 k! J. u7 f; O* ^     RowBox[{
    & t+ G* _7 H9 W6 u( |4 \1 X+ z      RowBox[{"m60n21", "[",
    回复

    使用道具 举报

    3503

    主题

    538

    听众

    5990

    积分

  • TA的每日心情
    开心
    2017-2-7 15:12
  • 签到天数: 691 天

    [LV.9]以坛为家II

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

    群组2013年国赛赛前培训

    群组2014年地区赛数学建模

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

    群组物联网工程师考试

    群组2013年美赛优秀论文解

    回复

    使用道具 举报

    10

    主题

    43

    听众

    1434

    积分

    升级  43.4%

  • TA的每日心情
    奋斗
    2021-8-13 22:51
  • 签到天数: 278 天

    [LV.8]以坛为家I

    自我介绍
    冰E柠檬

    社区QQ达人

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

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

    群组数学建摸协会

    群组2013年数学建模国赛备

    群组高数系列公益培训

    回复

    使用道具 举报

    涳夢        

    0

    主题

    0

    听众

    1

    积分

    升级  20%

    该用户从未签到

    自我介绍
    爱好数模!
    神经网络系数?有这种系数吗?可不可以具体一点儿,给出原问题或更具体点呗
    回复

    使用道具 举报

    0

    主题

    7

    听众

    31

    积分

    升级  27.37%

  • TA的每日心情
    开心
    2013-11-21 23:26
  • 签到天数: 7 天

    [LV.3]偶尔看看II

    自我介绍
    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

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

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

    蒙公网安备 15010502000194号

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

    GMT+8, 2026-6-13 10:26 , Processed in 1.757575 second(s), 106 queries .

    回顶部