快捷通道

QQ登录

只需要一步，快速开始

  注册地址  找回密码

数学建模社区-数学中国

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

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

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

1

主题

10

听众

296

积分

升级  98%

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

    • 签到天数: 75 天

    [LV.6]常住居民II

    自我介绍
    无

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

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

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

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

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

    相关帖子
    回复

    使用道具 举报

    兰秋小沫        

    0

    主题

    7

    听众

    31

    积分

    升级  27.37%

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

    • 签到天数: 7 天

    [LV.3]偶尔看看II

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

    使用道具 举报

    涳夢        

    0

    主题

    0

    听众

    1

    积分

    升级  20%

    该用户从未签到

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

    使用道具 举报

    冰E柠檬        

    10

    主题

    43

    听众

    1434

    积分

    升级  43.4%

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

    • 签到天数: 278 天

    [LV.8]以坛为家I

    自我介绍
    冰E柠檬

    社区QQ达人

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

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

    群组: 数学建摸协会

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

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

    使用道具 举报

    百年孤独 实名认证       

    3503

    主题

    538

    听众

    5990

    积分

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

    • 签到天数: 691 天

    [LV.9]以坛为家II

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

    群组: 2013年国赛赛前培训

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

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

    群组: 物联网工程师考试

    群组: 2013年美赛优秀论文解
    5#
    发表于 2013-7-30 20:56 |只看该作者 |招呼Ta 关注Ta
    问题完善一下！或者把代码贴上！! `3 B! t) b3 }+ }( T5 Q  w
    回复

    使用道具 举报

    琳123        

    1

    主题

    10

    听众

    296

    积分

    升级  98%

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

    • 签到天数: 75 天

    [LV.6]常住居民II

    自我介绍
    无

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

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

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

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

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

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

    ) X, ~9 W4 ~7 c- B4 O. ZCell[BoxData[
    - L( c* `& N, J! n  x2 { RowBox[{"For", "[",
    8 [1 c4 g$ _- ~; y4 z: {  RowBox[{
    - f5 z) M+ [8 T; K8 J   RowBox[{"i", "=", "1"}], ",",
    3 c( q" q8 G% R3 y! x0 @* V: H& ?   RowBox[{"i", "\[LessEqual]", "9"}], ",",
    ! u1 x" T4 x, K5 ~: o5 q. ?5 A   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    * ]5 p+ c5 i6 u; W) E2 n7 E) s9 B   RowBox[{"For", "[", * b; C& b8 r& `( j4 U
        RowBox[{
    0 u( J. N' G+ z3 n+ h- T; [     RowBox[{"j", "=", "1"}], ",", - ?* X" N% H" R/ m9 W3 H
         RowBox[{"j", "\[LessEqual]", "80"}], ",", 5 G2 A$ P& z  a) u1 l$ W) l) R8 z
         RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", , T2 [9 b' H6 a9 v2 f
         RowBox[{. {" Y( f, q) _8 F% s, ~
          RowBox[{
    0 A! q/ D) s6 z0 N0 ~       RowBox[{"CM", "[",
    5 {6 X- W' `  }, _+ Z: j0 o        RowBox[{"j", ",", "i"}], "]"}], "=", "0.0"}], ";"}]}], ( a1 i, U( a# k! T) ?
        "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",
    4 F# G' H1 Z2 `; [! ` CellChangeTimes->{{3.5779132504375*^9, 3.577913285203125*^9}}],
    - L+ m7 N( Z2 a  }- x- V% Z
    , E4 j0 N) U! h  NCell[BoxData[2 e& o  V: D3 a' D- J  S
    RowBox[{"For", "[",
    ( W" T5 L2 \* z$ y- q( ~  RowBox[{
    " k) w) I% o/ G   RowBox[{"i", "=", "1"}], ",",
    : Q" F7 v' `, u, x1 F   RowBox[{"i", "\[LessEqual]", "9"}], ",", 7 P  ~! X, v8 Y+ r) O4 j3 }* c
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",   i3 `( {& @% I! Q) _+ D
       RowBox[{
    9 q8 P5 k- q7 _7 r2 \6 q    RowBox[{. P* M1 d7 D  D* t$ g! {
         RowBox[{"CM", "[", 3 w) ?+ i  m: \! ]( v
          RowBox[{"1", ",", "i"}], "]"}], "=",
    9 D+ t% D$ y0 G4 y     RowBox[{"Data", "[", : B5 @' P' f) J# S* l4 Z
          RowBox[{"[",
    , S/ l- c  S" J) n! t, E       RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}], ) O# H7 j! _5 v: V! C
      "\[IndentingNewLine]", "]"}]], "Input",
    , H5 ^* S9 |* Q" J" f6 s CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {
    ; k# J0 i+ j/ {+ a, Q  k8 h   3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9,
    $ i5 J, I0 C, Z: g$ E% G   3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9, % j" t7 z; ^, [9 ^* n" e: H% ]
       3.57791344209375*^9, 3.5779588070933466`*^9}],) s, a  E$ v* p/ ^5 _, a
    ' L- K( n' D1 E: |: M
    Cell[CellGroupData[{
    ( V: S0 b5 f- l* I9 [; T# J. E# z6 L- q7 V  x
    Cell[BoxData[{# Z3 m* ?( ?) U) b4 K
    RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]",
    2 Q4 V) t" H/ M1 S RowBox[{"M1", "=", "1"}]}], "Input",1 R" Y/ z/ S1 G/ @, X# e$ O4 t
    CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {! a) a* I. T  p9 n% `3 U% p4 X
       3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9, 3 [9 L+ f) d6 T) y
       3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {4 {) ?' Z" l- M0 X. U+ O6 P( W
       3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9,
    + }- h1 \; o* `" ~; S$ w   3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {
    2 h' T( {. I9 X5 h5 O* @   3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {; R9 f1 h  T. K
       3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9, - J( `1 g" y7 C# @  v* W0 v" y$ Y0 F
       3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {
    2 g0 R% j- F0 U, m6 R1 \   3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {
    - S: X: p3 C; T: ~, l   3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9, # e, J; a/ |& S: v
       3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],
    * K, e  s9 u4 g5 e7 n( [
    # A2 `4 [9 U+ R2 pCell[BoxData["0.2`"], "Output",5 R: C6 }/ u0 E. p4 P: c
    CellChangeTimes->{
    9 c1 O$ _9 T; [1 f; f6 J  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, 9 z) {, W9 K7 r; s: N7 a  N9 P
       3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {+ i$ I, i+ b% S  O# a
       3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
    0 x* S4 J, a* w; \, V2 y7 x, d   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {+ A8 f( o% T6 B
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, 1 U0 j; U! Y) B. c  |3 Z9 Y
       3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    8 f% s8 i1 t5 _/ S0 g/ t) C0 Q8 m   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, 8 O1 m2 K/ H, f9 e3 P. H% V
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
    - O/ b2 o: o& M5 L+ B" X( I( |   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, ) g  W5 N! y* |% q$ j1 W4 N/ X
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    & g; v) h  L- j6 }, ~   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, : o! Z. X' }1 ^& m
       3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, : u: c4 j; _6 `- k: l* F3 E; D4 a2 r, T
       3.577960510686717*^9, 3.578012149296875*^9}],
    1 `2 m( D1 v  {# s- ?
    9 Q+ P7 G2 Y9 Q& }+ h% j" Y! PCell[BoxData["1"], "Output",& `( |$ w6 A& r
    CellChangeTimes->{9 P; |. h& G; a% b  H
      3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, # [6 V. o* X4 S8 |
       3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {2 N( g, f) K( O
       3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, " m2 v+ W1 L( P6 M' S
       3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
    0 J& J% D# }, F% f/ q  c   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
    + L5 C9 O0 s3 \. f4 C& ]% L   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {7 H: B# h: d" c$ i! `& d1 W
       3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, & R6 n+ _) W8 z; J# h
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
    1 [( b6 ]) O0 \/ U) u4 n' C   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, % k' h" y5 T! ]8 l5 M- @
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    & d- V2 z" s6 u- j* p$ g   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
    ! _! O- U* N8 ]& ]' K% k   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
    5 R0 H8 o4 o3 j. J' Y   3.577960510686717*^9, 3.578012149296875*^9}]
    ! J& {" Y5 @7 H* H}, Open  ]],3 t7 o- Z/ R9 H; |0 b; S# L: k8 @6 s

    ; R: J* _" A9 X8 Y. BCell[BoxData[
    * `+ W* D" r% m RowBox[{"For", "[",
    ; S. C$ f: s- J  RowBox[{, j. q7 d  R  V1 V' c/ u1 C
       RowBox[{"k", "=", "2"}], ",", 8 s+ r" K5 R; V4 n( T: K7 n
       RowBox[{"k", "\[LessEqual]", "60"}], ",",
    ! M) ]  O9 @# v0 l/ F   RowBox[{"k", "++"}], ",",
    8 J0 A) ?( M# M& `   RowBox[{"{", "\[IndentingNewLine]",
    1 k2 T+ k6 |- L% p' C: b( T* v    RowBox[{. R. @( ?6 ^0 Q; I5 i) G3 R7 E
         RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]", ' a  z/ G2 e4 t) E3 i) k2 R
         RowBox[{"For", "[", 5 e5 s! K  [. [
          RowBox[{# U& j0 V* w3 ~0 t- {' x' ?
           RowBox[{"j", "=", "1"}], ",", $ ]/ Q; q2 L! p* S( r# }' `
           RowBox[{"j", "\[LessEqual]",
      j# S( j8 b9 C! T9 F) Y- y        RowBox[{"k", "-", "1"}]}], ",",
    0 M+ |; m! n4 d# b4 f$ F) ~       RowBox[{"j", "++"}], ",", : P! W/ u" r% w) x: S/ r
           RowBox[{"{", "\[IndentingNewLine]",
    / l# J4 j0 S0 Q2 N4 l        RowBox[{1 r1 |% @) L- G# c! `! n: b
             RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]", : c: A5 Z' r3 ^& p) s
             RowBox[{"For", "[", 6 h! z+ a, J" u- O
              RowBox[{
    % n- r. H9 A; p4 Q           RowBox[{"i", "=", "1"}], ",",
    0 E" q4 W8 b' d           RowBox[{"i", "\[LessEqual]", "9"}], ",", ! S% e& h* f" q) M' h3 l  x
               RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", + o% T* S( ]$ a4 {! U, \. ]/ g
               RowBox[{
    3 o/ c# p+ x# v/ P+ q            RowBox[{"r1", "+=", # T7 w3 b3 y$ y
                 RowBox[{
    ' v* y/ R" C. n; p1 K. I9 }              RowBox[{"(", . a& @/ e0 ^7 v; i) ~. m  i
                   RowBox[{
    % ]) O; `* k$ Z. g                RowBox[{"CM", "[",
    ) E. M' A; N, Y0 {! A                 RowBox[{"j", ",", "i"}], "]"}], "-",
    ( Q% P% Q3 }" @6 e6 ]# `                RowBox[{"Data", "[",
    & I- ~# F# k0 E0 w) ]* N                 RowBox[{"[", 7 a" V( @0 h8 E3 C! w
                      RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
    2 j+ M6 k7 y4 j( \4 Q" K9 ^+ c              RowBox[{"(", , P; y1 H" ^- C
                   RowBox[{
    3 ]1 G. J1 E! ~) r                RowBox[{"CM", "[", 1 c- S1 g1 |" T: \* I0 d
                     RowBox[{"j", ",", "i"}], "]"}], "-", $ K$ ^5 K3 g$ @
                    RowBox[{"Data", "[", ! t- M8 E% Q8 c) H
                     RowBox[{"[", 3 }" e5 p/ j- T: ~% }  }7 J
                      RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],
    ' {1 u+ N" X/ p           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]",
    : L+ |8 `; G$ k         RowBox[{"r1", "=",
    ' k! c% ^- H, }) U1 P% c          RowBox[{"Sqrt", "[", . |9 ?1 R# M! m3 v- h
               RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]",   s$ ?, G5 s8 X
             RowBox[{"If", "[", " ", ' l7 u# [) Y  S0 `) _7 j
              RowBox[{
    ( E/ B# B& P+ @8 {5 F  w' c           RowBox[{"j", "\[Equal]", "1"}], ",", * m4 z% H4 R5 @
               RowBox[{"rmin", "=", "r1"}], ",",
    , |3 i$ x+ j' K5 n  v: F# K+ I5 |8 R* v           RowBox[{"If", "[",
    # z) W% F% Y% Y5 Q" ]            RowBox[{
    . y& q! z5 l: ~+ Q4 B5 o6 J             RowBox[{"r1", "<", "rmin"}], ",", ( N" \0 A& Y+ ]/ H' D6 `+ T6 b
                 RowBox[{"rmin", "=", "r1"}], ",", 8 L" y; y; B' R
                 RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}], ' Y5 I4 U, v7 G5 p# W+ L) a
            "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";", ) p4 G$ S" z" f8 E7 ]9 g4 E: Y- \
         "\[IndentingNewLine]", ; l/ Y" o  }  ^+ d! v, e. x! l; ]# j
         RowBox[{"If", "[",
    5 p) N6 B# p# G# @) i      RowBox[{
    " a2 d  d1 R, q+ {& Y       RowBox[{"rmin", ">", "r0"}], ",", 0 U. L: t' s; s* L# d. t4 K
           RowBox[{"{", "\[IndentingNewLine]", 2 r, V# E/ {0 W0 B' T
            RowBox[{1 ^, w7 U' W# k. V# t% O0 I
             RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]",
    7 Z5 U" M- C- N7 r% o         RowBox[{"For", "[", 1 [* ?, A: R( i- S
              RowBox[{
    4 ?! O1 E1 I& _% j( n" l. B           RowBox[{"i1", "=", "1"}], ",", 0 e4 y4 Z$ R3 W/ \- q
               RowBox[{"i1", "\[LessEqual]", "9"}], ",", # ?( l4 N8 Q  D- J, {: n2 D9 k
               RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]",   [# u) P: z* k3 u! Z* |) b
               RowBox[{) M. K9 @9 s% ?. A
                RowBox[{
    ) I" A1 s" K. ^1 O# K             RowBox[{"CM", "[", # T# E5 e' Y& ^- }) g
                  RowBox[{"M1", ",", "i1"}], "]"}], "=",
      o9 A. V' ~! z. R* B! Y1 u9 C             RowBox[{"Data", "[", + J% O& o* Y( K. ^
                  RowBox[{"[",
    6 y+ w2 m9 H, u- f               RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}],
    % _5 f9 _( f) y6 d. ~          "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",",
    2 m/ C# D: ^; p1 |       RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}], 7 e! F9 O7 Y+ @) z. Z
        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",; W3 ^, W. Q6 I/ K
    CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {
    " \$ f; \/ J- N5 G   3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9, / \- N( f& F- d% J
       3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {" s! ~: F8 K" T% d0 w; \
       3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9,
    7 o: }; a) \9 ^5 \9 O   3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {
    . Q8 s+ P/ Z9 S  w5 F+ {$ H+ p* O   3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9, ( k! ?% |  q3 {
       3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {
    & w5 H% ~$ B/ \2 C   3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9,
    9 q  H+ q1 |- K5 j   3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {! f# j* Q$ K7 r7 c: c
       3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
    $ [  v8 B) T* i$ s# E* W+ R   3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {
    - h4 X/ e  p7 _! T   3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9,
    , N5 w- L1 `: f  ?# J   3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {2 b' a7 }; q, K* F" R
       3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9,
    $ G" o9 g3 h" I( s8 u' y   3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {+ g  g# ]' T0 s: L" [  ]
       3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9, . _) s/ k/ S# K
       3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9, $ {4 f3 l  E: O- l- T
       3.577958821991373*^9}}],+ R/ S: r3 a4 H# E

    . Q; N$ t6 n5 J* cCell[CellGroupData[{; f% ], l$ C5 J" ^% j
    ) O2 V3 ^$ B4 x: m- Z
    Cell[BoxData["M1"], "Input",. `1 d0 h2 K# x7 a, ~6 j: u& M# j! K
    CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
    7 ~( M& c& ^% n  Y
    ; k# T6 [6 s% H. x. T6 b9 kCell[BoxData["21"], "Output",! h3 k* `9 g: E, A( K* b7 {
    CellChangeTimes->{& o! ]# D1 `6 }4 [! s2 h" ^
      3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {
    7 |% f4 {) }2 x* Y   3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9,
    $ ~) C: j, R  d/ o0 d1 [8 j# ^   3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {
    , S- |% Q( X$ p4 y7 i0 K   3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9, " u) I0 C8 k3 n2 q
       3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
    " v8 ?1 U& q" F! e0 p   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9, 4 n& K* h4 i5 e0 w
       3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
    ; i1 I  L1 c+ @3 L, P   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9, : o- }& J* ^. s5 j8 O$ Z
       3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9,
    & b( D0 w, r) h, l' d   3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9, ( i; L/ V9 G( F
       3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9, 3 }1 ~" u. ]' n9 K8 W; C
       3.577960515600726*^9, 3.5780121541875*^9}]0 r+ d3 E/ @" t" o; }. i+ o
    }, Open  ]],
    3 c3 u) T) _, k# x5 d" g) O% c$ @7 C" Q" y  w: C$ w
    Cell[BoxData[+ L  E* o$ X- D/ U
    RowBox[{3 U5 [# ?3 q$ j$ y0 ]- F
      RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[", - E9 v. G* }- T$ Q$ N% |
       RowBox[{"1", ",", "i"}], "]"}],
    # b+ ?/ o5 g8 j$ B- p  RowBox[{"\:5230CM", "[", / s5 d3 M) z& J2 O: }5 f+ C. r
       RowBox[{"21", ",", "i"}], "]"}],
    " O+ P( Y% g" }2 h1 d3 h9 P% i  "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\5 ~! [3 X5 J8 a
    \:51fd\:6570u1\:5230u21"}]], "Input",
      l( w! [( C/ q/ u; ]) O, Q CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {
    4 _4 u! ?! o( X0 v2 G  3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9,
    + w! x1 ~0 b: r  3.577960526583145*^9}}],6 i; f! ^7 N/ D; w" Z
    0 P  V5 U+ m+ g( x; |! f: }" z
    Cell[BoxData[, z% N0 F& v. `9 ?
    RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
    ; T7 P. R6 H9 a; M- {, p- z0 `5 L CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],% m3 G* |& I- B% E$ ~. u, S
    - I: X9 w  k7 E/ q& G4 D  G
    Cell[CellGroupData[{
    - e2 ]) y' k/ P# D5 H  i2 q( o2 v
    5 [" U6 G  E* B' d, XCell[BoxData[$ l+ J0 ~- }+ }+ [8 M8 t) Z
    RowBox[{"Xa", "=", / G9 Z7 h2 k- I$ S! z8 i
      RowBox[{"{",
    ; S2 @) W+ P7 d& J2 o7 ^   RowBox[{
    # M% q) C8 Z) f. z- x9 h   "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7",
    : v. a7 S; ^  F! ~) O- m1 \    ",", "x8", ",", "x9"}], "}"}]}]], "Input",! m# a8 p5 P  {1 |% \" P
    CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
    8 C" t7 z1 F/ }! E4 M+ T0 J
    $ M- s% A: j5 _Cell[BoxData[
    / f7 L  s- h$ ^) G3 ~& o RowBox[{"{",
    ( R1 D) k( Z9 a! u: F  RowBox[{
    - r- N- u3 u; W: A) N5 j. m  k% I  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
    ( f7 I) p7 ~3 w7 c8 T; ^    "x8", ",", "x9"}], "}"}]], "Output",
    5 Y7 M2 E9 {4 G' B CellChangeTimes->{& s9 c9 g1 F) K
      3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9, ! j, S- @4 A- f; S
       3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9, # p; l( Q# G+ `* |% m% v; ?
       3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
    7 F2 D2 x, p' n- }   3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9, " |: x7 E9 o: q
       3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {$ a! P' C7 N) z, k0 M/ j
       3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9, ! D& C5 Y5 {& U# H8 U; H
       3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9}, 2 j* l  c* @2 [, L: K4 b7 ?. \2 G
       3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
    - _+ l3 j% `0 c/ z   3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {* Y! w! ]1 T% B) Q# X
       3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
    ( O2 O+ K/ P; j& y6 _! G0 D   3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
    ) d- h) t  _0 N* M  o4 F- T   3.57801215725*^9}]
    ' P4 K+ \: t" W$ o6 J# u2 y5 t}, Open  ]],
    2 W; ?) y* w, M' k5 c. H5 ~4 _  u  b# Z! O: [7 W
    Cell[CellGroupData[{+ C/ L/ t% j; N* ^

    ' O8 _' s8 n' K5 A% x' H$ pCell[BoxData[
    5 B' U: q; o# z; f+ R0 Y RowBox[{"Ca", "=",
    . K2 L6 U- J# s: f: g" u# u& [2 F  RowBox[{"{",
    1 }- c7 r( x' {   RowBox[{2 q& o! ]8 d* X; ?$ h: v
       "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7",
    ! t8 i- y  m& I" R& }    ",", "c8", ",", "c9"}], "}"}]}]], "Input",5 O# F* Y2 ~9 b1 o; _- Z( G$ |
    CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],  r+ \- x; `6 w

    ) g+ }3 J' O- A7 G7 F5 _& g3 |Cell[BoxData[
    - H. T8 {+ z6 }/ @* d RowBox[{"{",
    ) F0 w! }! n, v( _/ \( E# N  RowBox[{
    ! D2 E" F4 W5 N% R7 a  l  "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
    ( {0 M4 k+ F1 t1 I    "c8", ",", "c9"}], "}"}]], "Output",
    1 j$ O$ b2 B1 X CellChangeTimes->{& A' _' _1 [. ?$ B! E6 k
      3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
    " b8 v, X: ]" P& t0 G   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9, : n0 s% S  b* a: U) u
       3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9, ) q. p9 M2 y1 U  w: ?; k
       3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {
    4 j& g( d) c1 T) p2 \+ B   3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9, . D5 Q* K2 H' e0 m& a) h& N1 J5 m
       3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9},
    6 a8 g# u# }4 U5 p# M6 G8 B   3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9, , F' D1 q# n; T* a/ ~
       3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9, 3 n) o4 C' H) C4 c: p( j
       3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9}, 1 k- K0 Z0 E! s4 l6 t
       3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
    4 K* q$ A, }7 Y5 t/ T7 Y. [+ f5 w   3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
    7 ?* y1 M/ S' K+ D* n   3.577961904604212*^9}, 3.578012158671875*^9}]1 p  K3 M+ k+ I8 [7 m
    }, Open  ]],( e+ \  c7 e9 G2 K( U7 v
    / R5 H, J+ k! m& v
    Cell[BoxData[
    5 X. R8 l3 Y3 x+ s RowBox[{"For", "[",
    $ p+ [: z' b) ?  RowBox[{
    9 [7 P6 Y; X7 Y' B* j   RowBox[{"i", "=", "1"}], ",",
    2 J; w2 I' ^' B" d   RowBox[{"i", "\[LessEqual]", "9"}], ",",
    % o: F' F5 o0 O   RowBox[{"i", "++"}], ",", , _( j3 `0 h! f
       RowBox[{
    - d3 ?7 o/ m6 |6 T* s" Y    RowBox[{"Ca", "[",
    ; B6 j2 ~+ s* `" l( k0 C     RowBox[{"[", "i", "]"}], "]"}], "=",
    5 t: e1 ~" Q$ u* B! X    RowBox[{"CM", "[",
    - l* Q% m2 t; y, i6 }) \" z9 U     RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",: l7 f3 U4 o* u7 H
    CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9}, ; w! z. Y8 D( ^  t- F( K
       3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
    ( m% }8 X0 n5 M/ t6 A   3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9,
    ' G6 V/ O& A. O   3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9,
    . J8 [# ]6 u; K: n. `   3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9,
    - E& a$ W! v5 e3 S- \   3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9, 3 T! a3 @2 s: S/ B! [) d9 J/ H" m7 n+ P
       3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9, 6 P. ]6 }, O& \1 G8 a5 L
       3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
    1 k7 B) \5 K5 U. D   3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
    * \  L$ S) k( }. c. J   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
    : `% p2 I2 I1 e3 P   3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {' m7 w' ~$ U5 f: N  f/ e
       3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9,
      k* o; l, B4 r9 Y0 F   3.577961906897415*^9}, 3.578012176296875*^9}],% M' c5 X  e) m( b  p

    2 g9 A) W4 j% u+ nCell[CellGroupData[{4 z! r3 J+ I0 P: ^6 E
    2 t/ [9 s- B3 T$ Q8 F% ?
    Cell[BoxData[
    - m7 \! H8 x- q+ r& I& I( D  \ RowBox[{) b, V9 J9 f: R4 v. @! X
      RowBox[{"(", * T- Z  K6 T# Q: F/ c
       RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ' d6 b8 @! T' ~
      RowBox[{"(",
    0 o9 t: L% @' ]8 M$ b   RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],
    5 S! b9 J% e2 M. X2 Z
    + P9 _% i4 D; H% ]1 u0 xCell[BoxData[
    9 \9 J8 `: i: U1 j6 U7 d! K; { RowBox[{
    ; s- v5 i2 g7 }3 L$ Y1 L7 }; J  SuperscriptBox[% [7 O/ S" Y# K; ^* z/ D  V( C
       RowBox[{"(",
    ' F2 f4 \) k' n, z  i3 X; U    RowBox[{
    5 a, S: u! `6 h' ~" \     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+",
    ' k" o8 V+ g2 `6 y+ `1 ?  SuperscriptBox[
    " |4 N& d7 b  Z/ {* c; [1 P: }   RowBox[{"(",
    ( i- R. E0 o; x3 w    RowBox[{0 x; `9 J0 _* d" M! m
         RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+", 8 B) {: ]0 ], I3 O
      SuperscriptBox[5 C+ I7 v4 H  c0 f; }% T! J; F
       RowBox[{"(",
    8 R' p) }: H5 ~0 f: k# c! j( r    RowBox[{5 q+ I$ p& ]' x  Z4 p  p
         RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+",
    ) @+ ]! @$ ^- P( n" L9 U  SuperscriptBox[$ U  ?# ]2 F, G' @% v
       RowBox[{"(", % U' L/ H4 d1 q3 d
        RowBox[{( Z: `; H3 e+ e" I
         RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+", " y2 I7 g. k+ G1 m( c9 x
      SuperscriptBox[" r3 R: F$ Q9 ]: p/ s- @
       RowBox[{"(",
    % ^8 Y1 a4 g: _1 z8 E0 X, E    RowBox[{+ e1 O' l0 e+ a0 G1 x& A1 \
         RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+", 3 v% Z; p0 M# W# X, o+ P4 g
      SuperscriptBox[
    3 j( G+ r! o, v: T. O% X; @- i   RowBox[{"(",
    6 z9 Q* S! A2 s: ~6 ~. h    RowBox[{
    1 |8 C# p3 I8 |6 Q     RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
    5 B, s. @, h7 n  SuperscriptBox[* f1 h- q5 ?- v  b) {( G0 v5 v
       RowBox[{"(", ) V4 R7 `! [( b. U, ~6 b
        RowBox[{: ~4 p! |8 N/ \4 ]* l* z6 I
         RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+", " n6 a) J0 ^" J+ y
      SuperscriptBox[% v) _$ H1 p  w" X
       RowBox[{"(",
    ' n) n' G8 p3 P  ]+ x. d    RowBox[{% s4 r. m3 J2 ~+ V
         RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+",
    0 D9 @1 W8 |- e. H% j" E7 d  SuperscriptBox[
    - F. |& n' L- a   RowBox[{"(",
    : w8 N8 M. [9 M6 n    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",' p; x4 F0 V3 V  c
    CellChangeTimes->{
    0 ]0 @0 K2 _- m% N; H. X  3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9},
    ) }- G6 K. x! ?% ~5 U- L   3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9, * S( Z+ m- W2 g3 ^. W4 Z7 @! T
       3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9,
    6 r- j" _) U& Q7 \# v1 Y   3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9,
    $ t5 r6 X( J0 y; D( L   3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9},
    : c2 b$ C3 r" Q   3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,
    ' a  j/ X" i, k# |   3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {5 V8 p# \  m1 L
       3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
    ! {6 C" F0 H7 @   3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {4 E4 [3 N/ a) ^, P
       3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {8 e% s) R9 j9 l
       3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9,
    $ l( K- G7 V; q   3.5779618537169228`*^9}, {3.5779618846049767`*^9, $ s, D# X! G# g+ a+ d
       3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]
    0 f( R9 X) R4 V( ]* r+ `0 E}, Open  ]],
    6 I! v" E% Z2 S8 A  b1 }' b! Y# {- Z5 z8 z0 d/ v+ W- J
    Cell[CellGroupData[{5 n8 y/ y6 Q3 T
    & ?6 p9 n6 Z8 L9 G9 T
    Cell[BoxData[) e; ~* G8 N" W, z8 {5 w, a
    RowBox[{
    . M6 U& X' w* f' l4 r  r8 `  RowBox[{"Ca", "[", ( c5 R8 h! F5 N8 G
       RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",9 I+ K8 `: b/ o0 b" h0 i( |
    CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
    ( B9 e! G9 c6 \  3.5779616465173616`*^9}],
    4 ^1 ?, `7 x6 J# X9 \. C2 e# h2 M5 B/ T- s" \" A+ {
    Cell[BoxData["0"], "Output",  e. Z. _) d" t
    CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9, % X" M  ]0 ^8 T- G
      3.5779616484049644`*^9}]
    1 z4 a$ j- M$ F& u$ `}, Open  ]],5 {: F4 u( O; i8 T$ J

    $ M+ q9 k! _$ |; O* o; cCell[CellGroupData[{
    0 `/ F- {6 y4 Q1 g6 g- K4 c' b; t( z" c( t) H( o! ]8 a. a
    Cell[BoxData[
    " q; z6 ^0 u6 y- \! S. L RowBox[{
    % X. }8 J) K/ z7 Z) `% ^1 V  RowBox[{"Ca", "[",
    ( f7 w  O+ j( C   RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",( x* \1 n: k9 T* u! R9 L
    CellChangeTimes->{3.577957376235614*^9}],
    8 S4 j  t/ D; E  W9 M3 b1 G8 j* D; O3 [% s# `( z2 V- O
    Cell[BoxData["0"], "Output",
    ; F( e+ \+ g, \/ W& T' K3 l/ | CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]
    . v- X6 ?" L7 a" [+ c7 a4 S}, Open  ]],+ r" z+ a% I! l8 v* Q. r1 D3 V

    % W! N- p5 `9 s# gCell[CellGroupData[{7 M7 \; M4 n& M/ O) x. Y

    # p% R2 t, R: Y4 tCell[BoxData[1 k" h' J. i3 j/ y
    RowBox[{' ^; L$ M( Z6 s
      RowBox[{"Ca", "[",
    9 `( j9 s1 e" @4 [   RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",6 [  t3 [, |& H/ h% ~5 [
    CellChangeTimes->{3.5779573112927003`*^9}],% s# r; ^- G' \1 |
    . S6 o3 c+ n" i0 g
    Cell[BoxData["0"], "Output",5 N7 C! |0 r( U" e2 R' r
    CellChangeTimes->{; u5 T" u; W( b. f* C% N% E9 ?$ `* x
      3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9, ) b* d! J& `/ \% I; J' z, E, c4 V
       3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9, 0 b0 b3 o9 _$ P3 m: F, A* [
       3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
    - M0 x( J9 G7 t5 ~! Q0 @   3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,
      W! u" K( W+ V3 `   3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9}, 1 p8 C& m+ O" V; x0 |( U
       3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]8 r( T& @4 x$ k9 p
    }, Open  ]],
    9 W% y, S+ a; O" U6 c0 \
    ( V0 ~7 N* b: _! ]Cell[CellGroupData[{
    ) }2 G4 D. \+ R" b/ m. }5 @9 X8 @6 j/ g  S9 B9 u& v) Z. z" U, {
    Cell[BoxData[
    / d2 z% C; ]1 j3 L1 k RowBox[{: D9 H  U( o+ a$ L0 b4 U
      RowBox[{"Ca", "[",
    # d7 D$ t4 W6 c3 H4 A5 i" M   RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
    " R0 x0 ~7 l2 `- ~4 ~: r7 F/ p$ J CellChangeTimes->{3.577921461734375*^9}],
    ) K+ ~% Z! F0 N6 w4 Y; H, V
    3 i( J: W2 G5 |; U  Z2 _Cell[BoxData["0"], "Output",) j8 g0 l- E  I2 m8 D( g0 J
    CellChangeTimes->{% M. x2 w7 y6 t+ {, G
      3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9, * n9 q0 x" S5 t- M  `
       3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9}, 2 e8 }2 g6 n( l0 V* e0 T
       3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9, # W$ {& l' c! \/ e  E
       3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9,
    ; d  M6 g+ ^7 X( ?( Z   3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]' c$ e9 h/ Y$ _* m& ~/ \! k" T
    }, Open  ]],2 ^- k% p" U6 [) X4 ]2 m2 K

    ( X4 F2 x( i! `6 v0 jCell[CellGroupData[{
    ( Z* `' M% W7 g1 h2 j, ^- O' u! `  C4 X* E  L+ D+ g
    Cell[BoxData[/ V$ \3 t. b' b8 U
    RowBox[{. b. {) w% i+ Q) E( ~+ W
      RowBox[{"Ca", "[", . i9 k& }0 o) W" A% ~1 h% k
       RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",$ ], r. C- c# f% z) ^( p
    CellChangeTimes->{3.577957303118286*^9}]," b3 ?. C  f3 M  s
    / Y9 x' }" L9 `& ?+ \% d8 n, J
    Cell[BoxData["0"], "Output",
    5 ^$ J5 t# \7 Q9 ^ CellChangeTimes->{0 {' A3 S) a- G6 z2 x7 J1 x2 v
      3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {' }+ [' f3 z* P5 B+ q1 L
       3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9, ( H! Z5 `% U! a' V
       3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
    7 u3 r. f7 p4 b" I   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9, 2 K% T2 G3 N4 o4 A: X0 n: L% n
       3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
    ! Y5 y1 j/ ?+ T4 E& K" I/ s   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {# Q& b8 O9 p. n
       3.577961889378585*^9, 3.577961912965826*^9}}]  J- i3 B2 [; V; W6 L: Z6 G, |( s
    }, Open  ]]," ^) h& x& r; j# o
    # X% ~" D. y0 J9 A+ j' r' g
    Cell[CellGroupData[{
    & h0 V1 a& E( k: _% v% i+ a3 ]
    , o# ?6 u7 _! Z5 N! xCell[BoxData[
    , M$ Z% V9 j4 v' w RowBox[{/ z$ k3 R% R& W+ P
      RowBox[{"Ca", "[", " X8 L5 ^& q8 Y6 t
       RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",5 v0 ^1 n% O, K/ f8 n. z: U
    CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {) r7 N( ^9 [# M; S( e$ x
      3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9, 8 p8 ]3 ]7 l$ p
      3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {
    . }8 y. ^1 [& X( J8 b  3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9, / ?$ }: m+ e( C: o0 ~
      3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {( S4 ~) ]  u$ G/ W+ ~$ G
      3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9, , I$ x4 d) Z7 [/ \8 R
      3.577921435703125*^9}}],* ]+ h! Y) B/ L: Y. A$ M

    0 i$ _: ^& p# p; dCell[BoxData["0"], "Output",; p8 D5 N; H& V: C% l
    CellChangeTimes->{
    ! H& e$ e1 T8 |9 y, j: I6 z  3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {
      b* p- S0 a( B" u" f2 `$ S+ S   3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9, " X( R2 G- I: y
       3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {
    % n( k& y0 ~& G: P   3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9, 2 o$ H+ |6 D: l' e& T5 F& J
       3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {
    2 E4 o5 I9 `! H  G& r   3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9, . |% f# d0 l& [8 v' }
       3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9, # a3 E/ W! Y( h( W& E! w/ H; M
       3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9, 6 m4 T, g8 A2 M5 I, I+ f
       3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
    7 C& j- r: @6 N+ j! o   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
    / W0 d$ v, r/ G" o7 m7 z   3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {
    2 Q$ w1 F& v% Q$ w; [- v/ K   3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9,
    3 }$ g$ p( {0 b2 W( S. Y$ L   3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
    ; c( b, }3 [' k0 g8 v}, Open  ]],
    3 I) B$ O+ _% L+ b9 |4 C" W+ H9 w
    Cell[CellGroupData[{7 Z9 w' g# z. d9 \  G. r0 D: w
    8 V; t- L, n7 Q9 o
    Cell[BoxData[4 F% I4 G/ N* b( t9 X3 \4 b2 n( z2 k4 P. |
    RowBox[{"Delta1", "=",
    ' R2 }/ o# t2 \7 i+ U5 e- f  RowBox[{' v" Y/ `% j# ?2 P- a* T4 c
       SubsuperscriptBox["\[Integral]",
    ! ^) }$ z6 [' `8 t2 Z- `    RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ! {8 u  F1 D% E- I0 i9 Y
       RowBox[{
    3 w8 |) E) {7 b7 m    SubsuperscriptBox["\[Integral]",   v5 Y# ~  R( v9 I6 O4 ^3 q
         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    * g% n3 e7 K/ D7 n4 J( [    RowBox[{
    $ D) H9 n$ z& W" }+ F: L     SubsuperscriptBox["\[Integral]",
    1 t: B) a. A% y! k* I$ D" p: q8 n, O      RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    ' D: I2 Q  p; O6 W& c2 z) ]$ x     RowBox[{' r4 R: v+ H) |7 o% P) L
          SubsuperscriptBox["\[Integral]",
    4 O! K8 N$ h* j8 M) p/ `4 v       RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 1 }+ ]8 Z2 l) H% S
          RowBox[{& p9 m4 f1 M! ~! K9 u
           SubsuperscriptBox["\[Integral]", 3 I6 [2 t0 B0 I
            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    2 X8 }0 V( Y4 ]1 o2 r! Z% X: S- q       RowBox[{5 F0 y6 R' {' i
            SubsuperscriptBox["\[Integral]", 7 K$ d- ^8 S' s& |9 m# |9 J
             RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    1 d8 U% Y/ ]2 O4 D8 Q3 I$ D% P        RowBox[{" s1 F+ o" W1 H+ y/ O: S
             SubsuperscriptBox["\[Integral]",
    . Q# P( Y8 G  j* x: C, p: o$ X          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    ' w+ ^& J( q/ D& j7 H- z- `         RowBox[{3 H$ Z, n+ h' g
              SubsuperscriptBox["\[Integral]",
    * N; z6 E9 R2 V* z* Q           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    / y  V. Q# _7 `9 j2 x- F          RowBox[{+ {# v6 f5 L5 [) j  N6 H# S' _
               SubsuperscriptBox["\[Integral]", * W( ~3 d5 `7 D# P
                RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    5 F5 v* n0 f' P- l1 R* E9 z; d           RowBox[{
    7 W5 {7 S- k% X4 g            RowBox[{"Exp", "[", % @$ Y' z+ w' G7 w8 P
                 RowBox[{
    . \3 z; p  b4 O6 S3 V              RowBox[{" U* L& i! ~" A4 s! d2 \6 Y2 v, t% o
                   RowBox[{"-", # r& w4 d2 |1 W6 P
                    RowBox[{) N2 r9 r% U1 b# O* o( G) h7 c
                     RowBox[{"(",
    7 a6 s% |. n# _0 A8 e                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 5 J& u- [+ a6 G0 ?( `! n" O
                     RowBox[{"(",
    4 z) [; j: K1 K: N7 p                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", & n; W% c  e' f
                  "Delta"}], "]"}], 6 X1 T% S5 l3 z" }6 ^
                RowBox[{"\[DifferentialD]", "x1"}], , E1 @# d- \5 }
                RowBox[{"\[DifferentialD]", "x2"}], & H9 W2 m1 ?0 r1 ~% Y; {& [. {% _
                RowBox[{"\[DifferentialD]", "x3"}], . d- y( p1 F1 ]
                RowBox[{"\[DifferentialD]", "x4"}],
    5 Y8 S+ ?7 S( X+ H- g4 `% a$ }3 c            RowBox[{"\[DifferentialD]", "x5"}], 6 r( T3 V' G! y: @* k) N
                RowBox[{"\[DifferentialD]", "x6"}], 2 O% O/ g% I$ t+ E  N
                RowBox[{"\[DifferentialD]", "x7"}],
    % j  _$ s+ B' Z1 z            RowBox[{"\[DifferentialD]", "x8"}],
    1 |" R: w; R* D/ M5 K: C9 {            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
    ' l, S# c+ i  ~4 v! V/ W9 a3 x CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {, _, k7 U3 u7 r1 s6 b9 s
       3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9,
    7 C& }5 N  ]3 I: v8 S& Z5 H   3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {
    8 {8 s) ^0 w  j6 s( _7 m, k# [" H   3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
    9 R* T+ G& Z  j% n% i8 F1 Q& `+ j   3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {4 S$ j( E- a4 ?4 n- ^1 V9 L7 A- h
       3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9,
    # b: m& U% o6 M1 K' R3 A   3.577918964453125*^9}}],
    ! P$ n' K9 T3 l. m+ l7 r
    ; T8 M$ u, s7 h( P! Q! dCell[BoxData[
    0 N- e9 W* C: k/ p RowBox[{"97.40909103400237`", " ",
    5 X3 h, f* ^2 f' O5 u! v7 n# I- P) g  SuperscriptBox["Delta", "8"], " ",
    4 k2 c0 s2 S) t$ p  RowBox[{"If", "[",
    4 g* V/ j% o" D   RowBox[{
    # J9 b  P% V! K1 q' ~    RowBox[{
    , s2 l% V2 {& p3 l- L+ m  ^: Q. m     RowBox[{"Re", "[", $ _* ~. P% R- F( M
          SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
    8 r  e+ b- }6 @/ S4 {# ?    FractionBox[
    9 M3 f* t: A/ C4 u8 V     RowBox[{"1.7724538509055159`", " ",
    ! b6 H: ?. a5 ?      SuperscriptBox["\[ExponentialE]", 5 o, {3 S" A, ^7 r2 G! D4 A8 }
           FractionBox["1.1102230246251565`*^-16", ( K& h' o  s: C- g3 F
            SuperscriptBox["Delta", "2"]]]}],
    4 Q# {7 U% z8 L' R9 Z8 M     SqrtBox[
    0 `! F, t6 x: B; W5 y. [      FractionBox["1",
    + E1 ]* t& C7 M, g3 p" {3 d       SuperscriptBox["Delta", "2"]]]], ",", 7 T1 V4 K+ i2 e) N
        RowBox[{"Integrate", "[", 6 ]; a6 g( \5 o/ a0 o
         RowBox[{
    5 _9 Y2 d( Q" C# j" [$ o% O      SuperscriptBox["\[ExponentialE]",
    * A( j; A3 Q7 S5 N2 @2 o% J       FractionBox[" K6 M9 A4 T1 [) A& J8 e3 j
            RowBox[{"1.1102230246251565`*^-16", "-",
    ( n! J% Q8 S  G8 E         RowBox[{"1.`", " ",
    8 u# K( y5 R1 E          SuperscriptBox["x9", "2"]}]}], 0 T% ?3 q8 a" d! y  a
            SuperscriptBox["Delta", "2"]]], ",", ; W! h  Q2 w9 \; Q
          RowBox[{"{", ' x! ?6 O3 b, K
           RowBox[{"x9", ",",
    ) t, `$ ~% L% m        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", 9 H- T" A1 @% `" `% i. k
          RowBox[{"Assumptions", "\[Rule]",
    ( R4 z  S# q$ i' `9 @6 Y+ [1 {       RowBox[{7 ?" b) J+ M% V( x& `7 _& C0 I
            RowBox[{"Re", "[",
    9 b' z  `  G; X( e- i, j         SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
    # E+ ^6 H2 s. N( ?+ d2 b% L8 C     "]"}]}], "]"}]}]], "Output",
    % _: m7 f- ?( q' x2 ^ CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9, 5 D  f6 e. t0 s: Q7 |
      3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
    5 b% q- j" z& z6 T/ S4 |  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,
    . A0 u; v3 N9 Z1 \  3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9,
    : @# q8 @( \7 X! s  3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9, / @& K; e* |5 P2 S- _! [0 \. }
      3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9, ! W  G3 R* ?1 |8 s0 {
      3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]3 B/ _/ E, y5 o! ?, W1 i
    }, Open  ]],) ^2 L% ]2 i: O! F' d5 n- \3 d; C
    ' Q$ @6 |  r/ q5 _# r6 e5 o& i& X
    Cell[CellGroupData[{
    : C$ w& Q$ h  U
    - x* m+ K9 e) d  I4 R. uCell[BoxData[
    " A7 @& }2 R) I3 k/ M$ z, c9 N$ B- R RowBox[{"Delta1", "=", ) x- \; y. |" c! u4 b; b
      StyleBox[. V. U; `4 Q5 t- t$ `
       RowBox[{"97.40909103400237`", " ", % p. N2 g' Q5 v/ v5 X, j
        SuperscriptBox["Delta", "8"], "  ", 6 X7 J4 A  A! h/ _" H6 g+ }+ q) F
        FractionBox[
    3 e/ ?1 H0 ?- e. E% b     RowBox[{"1.7724538509055159`", " ", + p$ [. G/ b& ]1 U
          SuperscriptBox["\[ExponentialE]",
    $ y( w% z9 B1 i8 F- U% L       FractionBox["1.1102230246251565`*^-16",
    8 o! S, |" W' X: b3 H' v        SuperscriptBox["Delta", "2"]]]}],
    , p9 J4 P0 O+ }! n% z     SqrtBox[
    1 d6 h8 c& g9 j* P      FractionBox["1",
    # Q& h4 u6 \- X& B; y* a/ q       SuperscriptBox["Delta", "2"]]]]}],
    # J  w- A9 r* N# \   FontWeight->"Plain"]}]], "Input",
    6 @& S6 A2 J! \ CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {7 D/ T/ [" h4 n/ M6 a
       3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,
    1 N5 E+ s$ a' l: G8 C   3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
    8 z, G0 W$ b/ U- S, d6 Q   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
    " d: @6 x+ ^% |& Y   3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},
    ' e- \  a4 r; O4 Q   3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],
    ! B! r% A" V5 g- i! u  Q% u5 @
    1 R4 o+ |7 J/ T8 H" _% C# e& `Cell[BoxData[
    * D7 ~. P) L0 W6 g1 u FractionBox[
    * Q# |% s  }/ J# V! M, J6 h  RowBox[{"172.65311851642346`", " ", 4 V: ~. ?, K$ f
       SuperscriptBox["Delta", "8"], " ", , j0 w0 }! y' c# p1 Y% b# Z' f
       SuperscriptBox["\[ExponentialE]", 9 }+ l# [/ m: Z' r
        FractionBox["1.1102230246251565`*^-16",
    3 K* G/ ?* T) [1 Y0 x1 F     SuperscriptBox["Delta", "2"]]]}],
    + x& D. K/ r( F( a0 g7 `  SqrtBox[& I$ _5 }& p. Z3 @$ |
       FractionBox["1", $ V, `! U" B  \
        SuperscriptBox["Delta", "2"]]]]], "Output",3 J: d- H$ y( H
    CellChangeTimes->{
    : s: D$ p3 A! W: u  3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9, ) G( D- O+ T5 [$ i
       3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
    ! S$ G$ k; n5 G   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
    7 i. I. v1 }9 ~  n2 H, K   3.578012166234375*^9}]
    3 @; }, f9 G, X}, Open  ]],
    : E7 k& g  t. v; o; h
    # H) }, {, Z. qCell[CellGroupData[{
    - z- `+ B3 o, s7 K- A( v$ L+ [8 M. a& z6 S
    Cell[BoxData[
    ' v3 m0 o; c+ t6 v# R$ h RowBox[{"DeltaX", "=", " b, h2 ?8 G/ K( R3 @& z) @
      RowBox[{"FindRoot", "[", 6 ?0 j$ \6 d' s# G. M) F2 c
       RowBox[{
    $ g2 g7 D9 B6 T* _: }    RowBox[{"Delta1", "\[Equal]", "1"}], ",", ) u8 V% Y" U, u# _$ D
        RowBox[{"{", , P" c9 Q+ E! @8 ^) T
         RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",$ j$ x6 L. n( i& j+ Z
    CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {  m0 A; q# b" |& p* ~% K4 v; F
       3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9, 9 q, d7 q1 I: U- y1 _
       3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9, ) B% x& H: M9 e$ L
       3.57791921584375*^9}}],
    & n8 z4 g$ }  Q4 D
    1 O- b- p' Y/ C( f( C- k7 C' H  eCell[BoxData[
    3 _- M" B0 U/ W% t6 E RowBox[{"{", 2 r* J; J6 o' g" H& V
      RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",( q; V* x2 a/ P( x2 A! d
    CellChangeTimes->{* q$ S, d: ^& Y$ g
      3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9}, " c) S/ N3 v" Z( w5 b
       3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9, 8 s9 i4 v! ^8 W2 y8 A9 r
       3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
    * V$ @! R4 \3 b! S, I3 P2 R   3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9, . c% a3 e7 v: n/ W* S( b
       3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
    ) k7 Z. x# w; a2 k2 y& }0 x   3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9,
    8 p/ `/ ]. S4 D4 Q   3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9, : n" c! B6 z+ T
       3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
    $ g4 t: n6 L) E! P9 ^   3.57796070150625*^9, 3.578012167703125*^9}]
    7 q/ \' T1 L) c+ t}, Open  ]],! b* {1 C. Y; v3 y7 j
    ; V0 |- D) M+ h, l8 S+ X
    Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\: h* E' w0 H' d
    \:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",$ e* M7 `: M4 X
    CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
    9 F# ?, @$ C$ t8 o& H5 @/ ~  3.577960705312657*^9, 3.577960707621461*^9}}],
    " g( y& T: q: n; a7 \- ~  G9 [
    : ?, b3 t. {  u# g  \; M* n" F; T. sCell[CellGroupData[{
    3 Z. Z  }: p  l2 H( H- ^
    6 H$ ]# v. ]/ U, H( \: V% SCell[BoxData[/ g  F7 i6 Y9 K) m" r- o, l
    RowBox[{"C1", "=", "Ca"}]], "Input",
    : m3 m, p9 r* Y CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],; {9 o% i. i% q# r; j  S
    ; L- E0 J5 o5 F7 P% ^0 F
    Cell[BoxData[
    / @. F4 \2 B5 `/ U RowBox[{"{",
    ) c- j, O; o) C, q  RowBox[{
      _3 ~: x5 \% W3 ]( v% [9 e9 N  "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
    8 z* m/ c1 ?# m) g! n   "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",", ; z# ~. L# a$ V) B
       "0.`"}], "}"}]], "Output",6 S5 }7 d% {% Z" ], V" Y
    CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9, & }  p! `" A4 {2 {& c
      3.577960710273465*^9, 3.5780121855*^9}]4 ^/ w. v: {) K7 `
    }, Open  ]],2 _8 m" C$ Q" r4 J5 d0 n% W& _
    9 t, U+ ?5 t5 k8 n* x  y
    Cell[CellGroupData[{) M2 n% \9 |: V6 `* x0 Z' z" M( n3 A

    * u- `+ I! ^. lCell[BoxData[
    + W6 `. B9 j6 Q" p RowBox[{"u1", "=",
    ; U# D* L7 J" _* J: ^  RowBox[{  G9 V9 U" R3 }2 J
       RowBox[{"Exp", "[", . r9 l! c) A; J5 G- O" [
        RowBox[{+ i; F( Y1 W! w% W' A+ B
         RowBox[{
    ; D' }# \5 X$ O+ F4 p, ]1 L" I. [      RowBox[{"-",
    ! s7 k- `0 \. t) K% D9 L       RowBox[{
    1 z% n0 |$ P/ e8 L9 Q        RowBox[{"(", ! X: C# P4 t9 R# l+ q+ J' P2 i9 Z
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 Q1 e7 [" D3 S+ V# w; d. _
            RowBox[{"(",   Q* u" f5 Y4 l1 q
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    8 u5 s' j0 O0 t     "]"}], "/.", "DeltaX"}]}]], "Input",
    ) `) H9 `0 H2 k( p' Z CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {
    ' f  B2 {/ O# d' P8 m   3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {) ], l+ g& o4 O  q  _, S
       3.577919193484375*^9, 3.5779192326875*^9}}],
    6 z* [; m, h7 f, i9 T$ \& {8 O
    2 @% N4 u* x" j7 u2 A5 OCell[BoxData[
    6 z" A2 @! ^0 M: @ SuperscriptBox["\[ExponentialE]", ! Q# s( y7 ?& ^" V" X4 o  {) h1 n
      RowBox[{"3.141592653589793`", " ", - M" C9 Y, s4 q% u5 g' J- i3 \
       RowBox[{"(", 7 Z9 W& |0 d" S% t! l2 q, x7 A( _
        RowBox[{) I5 s! B% e7 x8 D7 K: O* E9 n
         RowBox[{"-", " D$ k( H8 X3 s) m% \+ g8 e9 M
          SuperscriptBox[
      B0 B1 s6 v, r       RowBox[{"(",
    / s, E6 E: W9 z1 C0 s3 ~        RowBox[{7 W% c, m9 u4 u) a' Z5 y
             RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
    # C4 o" c# |, @9 m/ p     SuperscriptBox[4 \- Z! y& @: B& z$ r6 ?2 Y
          RowBox[{"(", 1 n4 j! I# O4 z4 A* A2 G7 Y* A$ c
           RowBox[{
    5 V" G3 k6 I; r0 C4 v1 _/ i4 H1 E# Q        RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
    " v/ B" h% @2 K9 Q     SuperscriptBox[: k% n4 r$ ?; F) b4 O
          RowBox[{"(",
      Z3 P: c1 \& n       RowBox[{$ z4 p" K0 K- y  B
            RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", ! R. a; e. M# I  S9 _  |
         SuperscriptBox[& t2 U/ G. N6 M) I
          RowBox[{"(", , e& P" u% M# U
           RowBox[{
    3 {& R+ C5 [* l( E        RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
    . P$ S4 _3 y' S     SuperscriptBox[
    , f9 v( O% R. }& z( A( ~5 n      RowBox[{"(",
    $ u/ b$ d, J- t       RowBox[{$ |6 Y& O' M# v/ d9 v( _5 g! y) \, h
            RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
    3 e( C7 E& G, m& ^- B; L6 o2 `2 ^     SuperscriptBox[
    % V# W7 s) R# N2 V# m5 j8 [$ r" f1 L      RowBox[{"(",
    + m, |% j" }- [       RowBox[{$ ^' Z' A% }* d
            RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
    . w* q' X+ Y4 c: c+ t+ W0 e: U3 t     SuperscriptBox[
    / H1 E- @3 L9 b4 U      RowBox[{"(", 3 Z& u7 ?" I4 X0 [/ j
           RowBox[{
    " Z. c% B7 Z' a  E- J( L) P. x        RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", 1 \7 Z7 t6 {; X* I  l1 M( j! b- q+ z
         SuperscriptBox[2 w2 L/ \5 Q' o, q! D
          RowBox[{"(", / h0 m- R6 ~: z( S- N# N
           RowBox[{# M* a: r1 B* |, L% t
            RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
    ' u& m1 `6 a; E8 h1 X     SuperscriptBox[
    / b1 b/ k8 K+ ?' T/ Z8 A      RowBox[{"(",
    3 f/ ]9 n7 k- l/ w' `: _       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], $ j. n& f$ g0 f6 I
        ")"}]}]]], "Output",
    ! m& T7 L* J# i- @1 G CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
    6 N+ x( T$ p. ^$ {4 O3 Y' A  3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9,
    & v: N4 P' x, G  3.578012187078125*^9}]
    ! {! L& e: Z: n5 I$ c}, Open  ]],
    0 O& _$ F# [( P1 K4 w" m4 Z: b$ n" G" E: t
    Cell[CellGroupData[{
    $ a$ [& l. |5 @& V0 S9 z. ?6 G9 e* s8 Z3 W) E# }
    Cell[BoxData[
    + C  a: m% P8 f: r7 }' c, ` RowBox[{"C2", "=", "Ca"}]], "Input",
    ; k' b  Y/ j, Y  J CellChangeTimes->{3.57792047321875*^9}],: D% P) f+ M1 `5 @, G  }

    . c8 V. K$ y- m: U3 ~Cell[BoxData[
    % V$ U5 x7 _6 T5 [ RowBox[{"{", ' S( g7 n; |, Q1 [- J! D
      RowBox[{! h1 r6 ^2 H  M! j6 n, k
      "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",", $ m* P1 K) h+ s, ]. A
       "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}],
    - C+ x& g- M8 `; M4 q; k7 @$ N% w  "}"}]], "Output",
    7 @9 k/ y  W. ~% m- H" h CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9, + N* S" n/ j+ Q
      3.5779607401163173`*^9, 3.578012204671875*^9}]
    4 x, ~! l, C  o/ C7 F}, Open  ]],
    ( [2 v% P! X* v( H, x5 A  b5 O$ ~
    - ^- _) Y; N% O* d; Q8 \Cell[CellGroupData[{0 X9 |' K6 G/ J8 p1 Z# v! g' V
    9 U9 Z: U- K7 z% U4 A# w; ~  v/ u
    Cell[BoxData[' T3 y4 c7 Y4 |* U# J4 P
    RowBox[{"u2", "=",
    # b- Y+ L1 E) K& l  RowBox[{
    : u2 i* Z& L8 x; v   RowBox[{"Exp", "[", : F9 S& X8 T! G& d3 h, U
        RowBox[{& x# b9 ~! G4 x' X4 ?; j' H4 X
         RowBox[{7 l. t/ \! W$ d* g' o" Z, `# l
          RowBox[{"-",
    ) i* g# m5 q& s' _6 k       RowBox[{! S7 G7 I2 o" ]0 A1 m' q2 f1 b
            RowBox[{"(", # C4 ~. O1 B7 a2 F$ b# P) V' j/ `2 J
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 7 k4 b: w& o5 W  c+ B' u
            RowBox[{"(",
    + r3 F$ u" C$ }8 A         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],& r, X2 _# }3 d' J' m
         "]"}], "/.", "DeltaX"}]}]], "Input",4 N, M+ ?- n3 h+ K
    CellChangeTimes->{3.577920484109375*^9}],
    3 S3 H) [5 g2 H; ?8 j  j1 z& `5 M7 u( c5 ~; a& Y
    Cell[BoxData[8 x5 p3 M8 r  X% \5 P! S9 O4 z
    SuperscriptBox["\[ExponentialE]",
    / G4 @! r! m5 Q% k  RowBox[{"3.141592653589793`", " ",
    0 C3 o, Q$ Y1 x   RowBox[{"(", . A* T7 g" G/ h2 P0 k
        RowBox[{
    ) q# f  i* k) e9 D  }$ s/ p) s     RowBox[{"-",
    2 P) d; k: M/ g- d      SuperscriptBox[# e7 M2 y# A$ r1 j# D+ l+ }8 Q
           RowBox[{"(",
    * }$ ]. p- |4 }; q        RowBox[{/ _9 G6 r+ a9 [; ^+ J
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", : Z; ^( q; `% C; b4 q
         SuperscriptBox[3 ^0 g! x9 E4 b4 x3 l4 p' U$ b
          RowBox[{"(", 6 b! b* a  ?/ f  j3 `$ ?
           RowBox[{
    # E7 w; P' H5 y. m/ T5 x        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
    # A% |9 }* T/ g     SuperscriptBox[
    ( o: {4 Y0 a0 i5 x      RowBox[{"(",
    . w" g* |* G; d9 C: o; P  S* X+ T       RowBox[{1 b- W; q7 p5 Z: I( I2 r5 _( [
            RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", 7 [  y* ?1 B" }/ ?! W
         SuperscriptBox[
    ' `" S2 k( }- z+ ~/ J' F& j      RowBox[{"(", ( m3 T! b' t0 @* J- Y5 }
           RowBox[{
    - u7 b0 R3 U8 D* e. H        RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
    " {1 p# Q) l; k8 d     SuperscriptBox[
    1 b7 }/ \- L8 T, z! L# \      RowBox[{"(",
    5 r) o% {5 E9 e; O, R9 ~       RowBox[{, E9 t+ M- \5 }9 Z* w+ m
            RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", / ~+ }* ?1 ]( a3 S* G) J- H! r
         SuperscriptBox[
    8 w1 B* O" P/ F, E6 o3 z      RowBox[{"(",   ]. S+ o4 E8 O  d+ Z
           RowBox[{
    3 U: q7 g9 v0 ?- ~+ _, N        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", ; M8 R/ c7 ^! @- s3 z: P
         SuperscriptBox[2 x  D  l) n4 y% ?$ |7 B
          RowBox[{"(",
    1 T! _, o5 P: Y3 b; X       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    + n/ S+ Z9 w1 `5 L0 ~     SuperscriptBox[( j& g% b( S: L1 u9 e9 d: v) ~
          RowBox[{"(", 4 V$ q6 S0 u0 W% i* S" C  K: z
           RowBox[{
    ; E9 U6 j! O" \$ S& X5 a7 A        RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", 4 z/ x- U4 ]6 T( Q, l- s, Q
         SuperscriptBox[- w. q' v1 Y2 X3 R$ g2 r
          RowBox[{"(",
    5 ]* ?+ Q& R# e' l4 \* x2 B* {- g7 d       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 4 A% U, {: m. w" |; J" l3 C; B6 z
        ")"}]}]]], "Output",
    ) S9 f; p" i' I/ s7 L! ?# l% g CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
    5 K9 G7 {8 s8 X# r1 L: e6 R0 m  3.5779607413955193`*^9, 3.578012205484375*^9}]( Y7 P" H7 i: X( S
    }, Open  ]],
    6 ]2 F, c8 D) }  ?" Y5 _0 z/ o2 B9 U) C& r. j) w) B
    Cell[CellGroupData[{; Q( W1 J1 v* A# W4 Z7 ^/ J8 ?

    $ u* Q3 ^! P1 |& Y" z6 _7 y7 u" GCell[BoxData[' h8 B) c9 s* O
    RowBox[{"C3", "=", "Ca"}]], "Input",: i  z- t. ?' G" F$ a% `
    CellChangeTimes->{3.57792064125*^9}],
    8 l5 f! }( p* ~/ J
    6 r( S# h0 r/ r& r' |2 Q6 c! h5 UCell[BoxData[# k, y) N& |$ V6 k3 ]
    RowBox[{"{",
    0 J3 ?5 q% \* C. j: j5 V  RowBox[{
    ) L0 T1 e# I5 ?# I  "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
      k8 \3 e# F9 ^8 \* {   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
    2 e0 o7 U" \" e2 c0 K& I  "}"}]], "Output",
    6 E" N( {0 P- \5 n CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9, * }+ w) I9 b% G# o+ {0 [
      3.5779607642027593`*^9, 3.5780122103125*^9}]
    ; d" E, {% p% J2 M, ?* x2 z' x, S* G9 I}, Open  ]],
    ) Y! a2 P& A. o  Q9 R
    ! j4 o- A2 }6 W- HCell[CellGroupData[{
      m! W% S# ?& k* }
    % K& d) ~5 `1 c8 x$ J3 V: W5 gCell[BoxData[
    0 B# A: R  i3 L* J3 Y, b1 ^- ^5 g RowBox[{"u3", "=",
    * a4 Z. A0 r$ D2 N6 P; f: G  RowBox[{
    ! g7 k$ p  s( Y# X- r3 @' |   RowBox[{"Exp", "[",
    7 h' u) K6 y+ n9 ~    RowBox[{; x& Q9 I' {3 f- \  g
         RowBox[{6 x: A3 E  S4 L; G; N
          RowBox[{"-", 3 G% i- v5 X) h9 |) v# K4 h: s
           RowBox[{6 }- e- j' X  \' t* Q- q$ q( D
            RowBox[{"(",
    1 o3 q+ O- h5 O0 t' e7 T         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", / s4 F% o" {# t3 a( u
            RowBox[{"(", " m+ ?1 Z+ n6 U8 m& n+ [* `4 Q' p; u
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    6 {* i: d& Y2 l* y( [% B     "]"}], "/.", "DeltaX"}]}]], "Input",
    8 p$ e2 W7 z. P+ F" H+ I CellChangeTimes->{3.57792064921875*^9}],0 V% U, a; _6 f- |! u) K) U; Z
    $ [! @7 g& e* i- t
    Cell[BoxData[  ^0 `+ K, |2 ]* Z
    SuperscriptBox["\[ExponentialE]",
    8 A8 w# Q7 f) D1 m$ k. P4 w  RowBox[{"3.141592653589793`", " ", + V+ x+ b0 U/ R! W3 d8 ^
       RowBox[{"(", ( U5 W4 R  o% Y, a% x9 t+ j# T1 M/ A# K( G
        RowBox[{
    1 v# c* S$ z. @     RowBox[{"-",
    $ s8 v! ~4 E( z) ], q      SuperscriptBox[
    % I. a/ Q3 ^4 Z& \% K) y       RowBox[{"(", 4 N- q$ L' d/ M- M2 j0 B( R
            RowBox[{3 \$ E# h* c& ~; z3 F* g
             RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", # L4 k, Y% x) f3 J0 o( W
         SuperscriptBox[8 x5 K( o4 S! u! \6 Z& c; ?
          RowBox[{"(", ; X: ]9 i9 D2 I  l$ j$ H4 W6 l
           RowBox[{
    ' S4 t: g1 D" {% i+ {2 ]) p        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-", ( e" `- @. Z$ Y1 ^" A
         SuperscriptBox[- _1 C8 n8 x! O! y
          RowBox[{"(",
    ; k; W! [) @* V( l* ]# F       RowBox[{
    / i( _0 w- E5 c1 q8 E* T        RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
    " `9 w1 ?/ E# b( D6 ~  B     SuperscriptBox[
    6 R: M* w3 j- a* V* n: z: g      RowBox[{"(",
    7 N3 \" ~& b" r, v9 e1 Q" }0 S       RowBox[{7 L; t$ H: }9 q
            RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", 7 Z' P( W. y$ U2 [
         SuperscriptBox[
    0 |# P$ W1 W! k7 z, u      RowBox[{"(", ' \5 H; p3 v' C; @$ D3 q+ r& p
           RowBox[{
    2 E% F9 V/ i- f2 k3 R        RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
    : }: f8 r! T8 L0 K( m2 ?$ _% L     SuperscriptBox[% e$ z) E6 y% f& r
          RowBox[{"(", 8 I2 `! F1 l& k& j, x1 N8 @. }
           RowBox[{  A$ @$ z4 C/ U+ [
            RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
    6 |. Z6 g9 E- _     SuperscriptBox[5 l. p1 {; b, f8 f
          RowBox[{"(",
    9 P7 t' D5 c  |% i( ~- K7 p       RowBox[{
    . L4 M8 ^# v8 ]% D: `" b        RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", 1 E' y8 e. Y) Y% ^2 u" g
         SuperscriptBox[  f) N0 ^9 F! y% p6 q' P
          RowBox[{"(", 7 Q- _  ?* f/ t/ }
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", + e* K. s& _, c1 f0 \; X8 }
         SuperscriptBox[; K- s3 l' e. T2 W, e* l
          RowBox[{"(", % p& ^6 R1 @( P, g, ~; ?
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    % e+ Y5 M) T! o- r    ")"}]}]]], "Output",$ k% n6 z# b' O; w  V: f. k$ U& D
    CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
    " X/ g1 u7 z; d( G6 x. J  3.5779607654819613`*^9, 3.578012211515625*^9}]
    6 @% A  L; j; m$ Y- W/ p6 J}, Open  ]]," a2 R5 S2 b8 B+ p2 m4 F5 Q

    ! n% W1 L  Y0 x, L" t7 L$ CCell[CellGroupData[{
    ! {& l6 ?, z" |+ {& B
    0 e$ S* N+ J9 C$ kCell[BoxData[
    9 W3 F7 q( g" H( y/ f RowBox[{"C4", "=", "Ca"}]], "Input",2 X) y' ^" h" ?( d) s8 X, a
    CellChangeTimes->{3.5779207559375*^9}],) ~, K& B0 Q* m7 x2 G: O
    4 R+ s5 Z+ Q- O( q8 P+ e
    Cell[BoxData[$ B$ w% [# \- T- {* K- [' |, P
    RowBox[{"{", % p, z$ L- ]/ h/ a, n7 h" `* |$ B" \
      RowBox[{
    9 u  v) R- a% ^" C9 {  W  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
    % q4 l, B4 N" V   "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], 9 A0 K& F1 x1 [7 m8 m* B
      "}"}]], "Output",
    8 l# R. l( k" F) u  s; F CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9, % N/ Q) F. W. d
      3.5779607861363974`*^9, 3.578012216171875*^9}]
    $ b8 _& K  a, ?& s4 w7 M8 B; \}, Open  ]],* V- H, _+ q: I) h- B
    % e1 J+ V5 T: @. O
    Cell[CellGroupData[{
    7 {9 U' S, m' `2 S6 `
      s# }7 N! }/ m6 Y  ~$ yCell[BoxData[
    " H- w% k' |6 G( D RowBox[{"u4", "=", ! i6 q- R) I, T- j
      RowBox[{. H) L) s8 y6 {6 h6 [- I8 r
       RowBox[{"Exp", "[", / c3 z+ V; L! X; R
        RowBox[{
    $ G) C' M# R6 @     RowBox[{
    / r- ?3 b9 J6 B$ p6 W      RowBox[{"-",
    5 t0 a& o4 p- {       RowBox[{$ D! L# N; z  r& ]* ?; ]# _& O' r
            RowBox[{"(",
    1 u9 F0 H7 g/ V% Q' ]& P( I         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 7 }: Z4 m' p$ D- F; h* m
            RowBox[{"(", " S0 Q" ]" C  V; n+ i6 M0 K' u# h
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    + o( z* u% F3 c7 l: d     "]"}], "/.", "DeltaX"}]}]], "Input",  S* z6 R2 P: e1 m$ T
    CellChangeTimes->{3.57792076325*^9}],6 z2 C5 P' B8 d' @+ x, {# ]

      Y. O4 T9 h3 n" C5 E( wCell[BoxData[
    6 }4 l  M* M! w) @ SuperscriptBox["\[ExponentialE]",
    6 W* {; d. \7 S/ g# Y0 ]8 q( A  RowBox[{"3.141592653589793`", " ",
    ' t2 Q8 H& U, Y" u* Y9 |. J   RowBox[{"(", 9 @8 l% a, l5 L: f6 w
        RowBox[{
    ; l/ \$ G, p* h' n2 Z% |3 L. l     RowBox[{"-",
    ' y# {& j$ t, x: P% n5 H      SuperscriptBox[. @9 S1 J6 s; \( q/ h& f$ V; T, {
           RowBox[{"(", ! E. C6 h  I$ {1 ?5 Q
            RowBox[{
    $ X2 Q3 t) q' C$ M5 x$ O2 n% i         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    4 u. n/ N4 O1 W- h, p     SuperscriptBox[, C- D& E5 S: B# y4 r! K7 u) i5 d
          RowBox[{"(", ; {$ z1 I9 ~8 v+ M& R. o/ i' `2 I
           RowBox[{
    : R6 U- S# G4 b- D5 K" Z        RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",   v5 m" ]8 W6 j) s
         SuperscriptBox[* X& X' `& g9 \  U# u7 V
          RowBox[{"(", 1 f8 Z" h4 R  i! F
           RowBox[{
    / o7 S  k0 {- T. O% z/ L/ z7 p/ _/ j        RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", ( U0 B  S9 d" ^- x; |- R  i. c* l
         SuperscriptBox[
      G; M% V- q% \, Y! \0 c  w      RowBox[{"(",
    ; J+ z# g& l+ {       RowBox[{( J6 X' T9 U) R7 n- A& \7 I' t
            RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
    ' z2 {+ S% ]/ b1 S( X, D" |; Y& s8 l* d     SuperscriptBox[
    8 y( i! N( v  P2 p9 q( K6 z5 L% b      RowBox[{"(",
    % _- N. c( u  x1 E3 v0 b       RowBox[{
    4 }0 {/ [" N7 B* S; A; F7 I0 ?        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", ; r7 M* I1 j: x) O! ]
         SuperscriptBox[
    " G0 u+ X8 M! c% m/ F& T      RowBox[{"(",
    % L/ [8 e8 P6 W       RowBox[{
    5 D( t3 d0 ~0 M0 @        RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", ( H- f5 _* N/ e' Z# v
         SuperscriptBox[, t* F( f* ]6 h* {7 m# t
          RowBox[{"(",
    3 A* R" I& {# D" L6 n       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    " \( b! W8 X3 x+ J; ^     SuperscriptBox[6 {9 ^$ u9 |( k
          RowBox[{"(",
    " M0 c" ~( M3 {. S) [       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    5 y* k+ w; M7 q     SuperscriptBox[
    . {3 w5 n8 D8 ?! p% y      RowBox[{"(", ! l% E9 k/ X6 t/ P4 r! t. u
           RowBox[{9 ?9 o; f* `4 C. @: x& T3 n
            RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], / H- J5 W, |, L4 ~
        ")"}]}]]], "Output",, l  Y! B* m0 t9 k, Z2 a6 ~9 X- P
    CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,
    : N7 I8 C" Z1 e) w  3.5779607873531995`*^9, 3.5780122169375*^9}]
    2 z6 F/ _3 Q( r8 d9 \/ g" p) R}, Open  ]],
    " s1 A4 i" `) L8 f5 {% R) z/ A/ _
    Cell[CellGroupData[{
    ) g- e. p. ?0 E0 t5 K! z) W! a2 |* E9 d, ]5 {! J/ Z9 D+ M* ]1 N- w
    Cell[BoxData[
    9 @5 g' k/ ?; C1 T4 [ RowBox[{"C5", "=", "Ca"}]], "Input",
    9 z0 a- @$ G) o/ _ CellChangeTimes->{3.577920860671875*^9}],
    * {3 v9 }1 W1 L3 b; X2 G. p+ m  X1 K6 M
    Cell[BoxData[
    - b1 h6 m" ?" I RowBox[{"{",
    ' I" o$ c9 m* o  RowBox[{7 f% r6 R- I: X
      "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
    , q7 B9 b2 V1 w1 ^   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}], " ?- L% E1 w, p
      "}"}]], "Output",
    ; C  p" J6 [/ h! y% i! c0 b' x CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9, ) j( E9 y. [8 J3 F8 \3 B) K( M
      3.5779608137328453`*^9, 3.5780122209375*^9}]! d; O- l% f, w
    }, Open  ]],3 Z# z$ u8 s" w( ]

    # l% y$ w3 p4 m4 CCell[CellGroupData[{' P5 v) S% H. B. C( m$ C

    ) I  W/ U# ^$ X* ^8 o2 w) ^7 NCell[BoxData[
    9 ^/ m8 n7 Y* [* I+ S$ } RowBox[{"u5", "=", 6 v, |8 N( W- W) k0 C" d$ }& N9 N. _
      RowBox[{
    4 ~7 F' q2 _. ]5 v* v$ z# [   RowBox[{"Exp", "[",
    - n! h1 W0 C1 j9 v! S    RowBox[{
    . D  g4 {/ T1 t8 X1 j6 v( H* N, L     RowBox[{9 s' l$ [" p* H' B0 i0 k0 e
          RowBox[{"-", . |& V/ ]! w8 }" c5 B4 a& m
           RowBox[{  L0 X# j1 P$ U4 y. v
            RowBox[{"(", 7 }7 E3 F( P) E4 P$ a+ {
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", % B% ^- e" [+ I+ x  T2 \$ H
            RowBox[{"(", 8 ~4 o9 V- k* t; v
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    6 F3 V# E* J! ^* y& [$ t     "]"}], "/.", "DeltaX"}]}]], "Input",  @7 w% C9 f, Y6 L. M! V
    CellChangeTimes->{3.577920869375*^9}],9 T' F' Q- u+ O" l' E+ y' Y/ V

    3 v  Q/ G1 M* h4 F: N, lCell[BoxData[
    3 h$ P! c6 ~5 M SuperscriptBox["\[ExponentialE]", : I2 n8 B; n: D- R* V& m
      RowBox[{"3.141592653589793`", " ", 7 o6 R4 e7 p( n/ g6 w7 N( u0 p
       RowBox[{"(", 1 ]% i8 ^1 p; j. c5 n/ i
        RowBox[{1 c0 y6 I+ X9 }! ]; X
         RowBox[{"-",
    6 s4 z1 y% q3 V" j* H: L0 B      SuperscriptBox[" _0 y  \; d( h' x# L7 n+ G2 L
           RowBox[{"(",
    ' N$ I- \- Y% G        RowBox[{6 a. _% s. H, g; l/ r
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    8 Z, e# S0 \7 n: d& p     SuperscriptBox[9 m+ q+ e1 m2 ]4 `- _
          RowBox[{"(",
      ]+ E: C( Y4 P: m       RowBox[{/ L( f+ j+ O. U9 `3 o4 X% |
            RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
    : B) S  C6 B; \7 [     SuperscriptBox[4 f! {' l8 `. d# T- \
          RowBox[{"(",
    2 n9 d, ~% }$ }2 c" C9 Q       RowBox[{
    ! i5 w8 K8 c2 u        RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
    / Q+ \6 @' t: y- B8 W! Z' E     SuperscriptBox[! ?7 [/ L9 b$ |3 {/ c3 r
          RowBox[{"(", . y1 U! S: _( v" g; u1 w- f
           RowBox[{
    % j! v4 [/ G1 u+ R. a9 Z- Q        RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
    ( z9 Z6 }6 v. p* r, e+ h     SuperscriptBox[
    6 k$ \  M6 @% c3 P6 j: o4 P" e- t      RowBox[{"(", 2 t/ U0 p* O/ t8 H
           RowBox[{( P9 D8 s- z% A6 J- A6 o
            RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", $ O" X  v2 b- Z8 ^# Y: j2 c
         SuperscriptBox[3 N0 u8 T" W; T$ |  O; j% {7 W
          RowBox[{"(",
    8 ^5 Y( g* v3 g5 I  o- a       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", * g) e: o3 H/ H* g: J. P
         SuperscriptBox[; r2 J9 E; D6 E. E
          RowBox[{"(",
    0 J  A2 G1 R' [- P- Y       RowBox[{3 D/ k/ S" W7 n" i; C6 ~
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    ' j( ?+ r# M( z" R- m7 I     SuperscriptBox[
    " h/ |0 q( g; A# w      RowBox[{"(", 5 ~+ a$ i. `2 M4 N, R& e
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ! o7 {" k, N1 H" J
         SuperscriptBox[5 m/ t! e6 ~; i# Z. {" o% F
          RowBox[{"(",   d# G) a7 ?/ F% P0 H
           RowBox[{% b: }, {2 w. w
            RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
    7 p% Q! @  @/ c. P- c) G    ")"}]}]]], "Output",
    % @  z' V- l- a* p CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
    6 b/ s5 i9 X5 w  c  3.577960815043248*^9, 3.578012221953125*^9}]8 }/ e# _6 m" [7 }6 f! m
    }, Open  ]],
    " V& p/ K( r5 Y
    9 Q7 m9 z8 Y3 ICell[CellGroupData[{& G2 `9 E/ J4 p# |4 F4 P8 G

    7 i/ |) n- @. t% @/ D/ S$ VCell[BoxData[; ~; _. q2 o) k, N  l; e  U& m
    RowBox[{"C6", "=", "Ca"}]], "Input",% ~4 U1 i+ v& |7 E2 i5 X
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],' x4 N7 d3 R! Q! _
    & v; H) ?4 G$ E! r! U$ w9 ^
    Cell[BoxData[
    4 c  d" N8 m6 Q RowBox[{"{",
    3 f5 |4 ~# o& m: m8 m7 c  RowBox[{4 D# s3 X3 d/ X
      "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
    * v9 Z1 A) M. G6 I' d7 x1 @; x' l   "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",   o: B# [$ x. k, z# o  L
       "0.494866`"}], "}"}]], "Output",
    ( {. `& S  b: V5 F2 M3 Y CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,
    4 @" D, u& W4 s" V  X1 Z   3.5779608373044868`*^9, 3.578012227359375*^9}]1 s/ F+ r1 T5 A# s! _" U
    }, Open  ]],
    ; p9 Q4 A& u; x$ y1 b% R/ E! b2 Z* ^
    Cell[CellGroupData[{
    8 b! Z- Z$ i4 C& b# X) g+ R0 v% g3 z, K: d
    Cell[BoxData[
    ) x! M( v' U9 r' t% } RowBox[{"u6", "=", 9 T. g. I, r  w+ e% `
      RowBox[{
      k/ i% `. [5 \, j   RowBox[{"Exp", "[",
    % J! }% a+ q, @& U    RowBox[{' x$ [$ U- _" g
         RowBox[{+ w9 K$ T$ N) j8 c
          RowBox[{"-", 6 x  Z/ k- a- I! o
           RowBox[{2 X9 k9 D. ~6 f) {( m4 Y, H. ]( w
            RowBox[{"(",
      c: P# [2 ]5 O4 W         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 R5 y% Q5 I* V& D
            RowBox[{"(",
    0 P1 U: j9 e: |         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],5 \/ P5 m. x" D0 F  o" D/ n& p4 s
         "]"}], "/.", "DeltaX"}]}]], "Input",
    . B7 g  v$ r5 X& j+ H: I7 ~% D4 M CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],9 m0 |; U* N/ a+ @/ |, R( e

    * n1 W) `6 J4 P$ O) QCell[BoxData[" G* }+ x, |7 _3 g" L/ j
    SuperscriptBox["\[ExponentialE]",
    0 X: y. E  h8 K& q  RowBox[{"3.141592653589793`", " ", " Y3 Q8 E% T; t0 j7 w& o
       RowBox[{"(", + g+ U" J' t1 f: K4 E& ^
        RowBox[{" O+ X4 W! e% [! m
         RowBox[{"-", & K% A. D: o$ M! a% Z  Y* s$ H$ D) D
          SuperscriptBox[6 Q5 _# r# j) k
           RowBox[{"(",
    , {% i6 U0 W% t4 M/ P6 o  V+ E        RowBox[{
    0 d) A  z4 j5 j: U6 R* b: y8 y         RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-", + C) e' \# j* |* A- R
         SuperscriptBox[% i, q* b2 U( M" `* l7 N* p
          RowBox[{"(",
    / i. |. y4 x# V2 Z       RowBox[{
    ! y6 `3 e1 G6 A        RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
    " H/ U  z( L& n5 C' k. I     SuperscriptBox[" [, }  o+ m$ O4 _- c
          RowBox[{"(", 1 g1 N6 l; Q: X5 T; W
           RowBox[{8 X3 X9 O. G& q$ C; \: s. E/ N8 t
            RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", $ R; g# x+ C2 V# H6 T2 z" R/ |! G9 K
         SuperscriptBox[
    9 H" A* {! n# W+ Z' Q  x      RowBox[{"(",
    , t8 u8 W# t# t) V& F9 a       RowBox[{
    ' I; |6 a7 j- I6 D8 r        RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
    4 V2 E  C6 c- l: J6 m7 d     SuperscriptBox[/ T" I, p+ x% c' F9 U
          RowBox[{"(", 7 D: q3 p+ M7 |* M+ ~
           RowBox[{
    ' ^; M; d  R" v9 \4 L" Q        RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
    # @$ E8 r2 W8 s6 @  Y- S     SuperscriptBox[
    ( |- N' h# a. u7 `3 m      RowBox[{"(",
    & d4 B* B) a9 ?2 J* t7 s       RowBox[{% W5 O9 G; a3 Y2 |6 g& ?
            RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", 2 x: t# ^6 r. J5 @+ G
         SuperscriptBox[
    / D8 P: m/ h4 y) J4 w      RowBox[{"(",
    - _3 x0 Q6 i1 z. L9 q( f: e" J( E       RowBox[{
    : ~% J" u: _# z9 u; Y, D- s' P        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", 1 Q! k  z& p5 e0 k5 g4 T% M1 E
         SuperscriptBox[& E8 C, Q+ v! J0 R* f7 N; m# ^3 [
          RowBox[{"(",
    ; l' T& z/ w1 L3 {       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    8 q- ]7 d5 E- Q5 f& O! `     SuperscriptBox[; |; R  B  x. @4 `& h
          RowBox[{"(",
    3 a( J) L3 a- |2 U& h       RowBox[{) }$ r/ o7 Y9 A) i0 L
            RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}],
    * Y+ x  ]1 _4 q' ~2 H0 a1 x    ")"}]}]]], "Output",
    / z8 w1 l2 B% `$ N1 N2 |: V CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, 8 b% T  j# Z0 [: k
      3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
    ' [! W$ K" t5 D/ r3 j}, Open  ]],
    8 T  n1 `0 @* O0 `5 E: ?4 x* G, R) K; L3 v7 j4 A
    Cell[CellGroupData[{' X) ?$ y9 g: |; U7 \; w

    : L' S: R3 N5 b2 `* l- D6 ZCell[BoxData[
    0 l" c% o3 J/ q+ a3 h7 W; c4 q RowBox[{"C7", "=", "Ca"}]], "Input",8 ^5 d8 d5 V6 T0 W! f  K" W4 _' `: J
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 0 D1 U# t) a, p1 I
      3.577921316125*^9}],
      t) n$ p' c' B8 q
    ' N! W; r6 f3 P* I1 wCell[BoxData[# [; q# R1 h! ?+ @
    RowBox[{"{",
    & c. b: X& G! z6 F, s5 R# |  RowBox[{
    9 ~" Z* r. U( }! h6 e1 R' i- J4 p  "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
    ( M# B4 ]4 P' [5 G) e5 a   "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
    + g! Y  e+ I0 F- V7 b" K  "}"}]], "Output",
    5 j( d/ |/ m- S7 f CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    2 o, r2 ^4 c. ^  L9 g! Y* s  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]- `$ U; M5 ^' Y! z  |' Q- u
    }, Open  ]],! c: q/ @4 t  ^  w6 M

    4 }! v* _2 D; _9 D" t3 Y9 dCell[CellGroupData[{& Y# K, R0 c$ J2 F+ w

    $ A9 Z) x% t3 |: R3 e- fCell[BoxData[
    2 s% ?! m1 {- ^! W( g RowBox[{"u7", "=",
    ) E0 \3 I( p, w) ^  RowBox[{
    $ K- ^# i3 `# }* V. N; ^   RowBox[{"Exp", "[",
    , |: G& `! |% O9 [* g8 E    RowBox[{
    . j2 Q* U& S7 u" o) m     RowBox[{! I- I( C2 f* y3 b" C4 l% w" U
          RowBox[{"-",
    6 S) _4 D( D9 O       RowBox[{: R& K/ _1 k; }" A  d  I( f6 E
            RowBox[{"(",
    . \2 @5 i* }) j% K         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 7 j- P* y- i6 r2 D/ L1 E
            RowBox[{"(", , s5 E* s4 v# F5 @0 X
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    , a, @; P1 b/ l3 i* r. y     "]"}], "/.", "DeltaX"}]}]], "Input",( b- I7 ^; K- B% O. D, {$ w
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, " z: |, p' S( Y! m
      3.57792132028125*^9}],0 l( u% J4 P" n. ^, q' F
    2 |; k' B2 t" A" c8 U( }- d
    Cell[BoxData[; y+ a* s* m% V% q! q+ s+ l
    SuperscriptBox["\[ExponentialE]", * U- V% {0 G6 ^% D
      RowBox[{"3.141592653589793`", " ",
    - K( a. c% o+ f9 k) O   RowBox[{"(", # F0 A4 h5 a% ]9 [  X' H- `8 F
        RowBox[{
    : B" \0 J8 F9 W$ ~     RowBox[{"-",
    / K. R3 e, q0 W, [/ A) i- Q      SuperscriptBox[
    5 h. v( a  s& V3 p6 v* e6 `       RowBox[{"(",
    9 U8 O" J1 Q$ Y) }0 o) W        RowBox[{6 [# q" L" x1 ]2 o! Z% E, B* u
             RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", 7 _* {. M2 I, X9 N& a. K, p1 F. n
         SuperscriptBox[- n, C8 y1 R' M% G2 x/ W
          RowBox[{"(",
    ; x9 V  a3 j( v# t( m       RowBox[{6 K0 c) z( q0 x3 R' N: I
            RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
    - W( n5 ]; c# `5 l+ I8 i; w* ]9 l+ b     SuperscriptBox[) t2 a8 w7 p' r7 M
          RowBox[{"(", * P/ C; \: y) I: {' i
           RowBox[{  K7 {) C% e! |+ x3 ?) C' U; |
            RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    * U1 V) d, U* l# o4 e6 f$ o     SuperscriptBox[% L( h6 S  T/ J! C
          RowBox[{"(", 6 `7 a: t1 q  W! J. J# x
           RowBox[{8 J) K% m1 n7 g
            RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", 7 `2 S8 e; N9 H$ v1 A
         SuperscriptBox[0 V4 `6 l4 V/ \" v( j5 |
          RowBox[{"(", % O& U) H/ u6 [3 U7 Y* z, i
           RowBox[{! Q. }5 z* k9 g5 q1 Y
            RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
    & d4 }2 C2 b% P3 o) S3 X     SuperscriptBox[0 r/ L" e6 F% J0 t7 ]
          RowBox[{"(", & J' s' ]  l/ E' Y- S
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 5 u/ B' A* D* S
         SuperscriptBox[
    ) D0 \+ t2 T7 r, I* z( b      RowBox[{"(",
    3 f8 I+ V, G' r' g" m" n+ A       RowBox[{7 G# P. o: g' l3 U9 _
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", , q( z, T4 R5 b4 D3 u5 Y; m
         SuperscriptBox[
    6 n& m% P2 J6 K4 N/ F% j% M      RowBox[{"(", $ \  T; r& E% V) X
           RowBox[{9 ]$ R# X* l2 ]: t, z
            RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", : E9 F+ C4 t. d- l
         SuperscriptBox[
    ; p5 y- F, R2 j) k) L  e- q      RowBox[{"(",
    ! B7 g$ \& D8 [, S5 Z! z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], , h+ l! N  d6 t/ w7 y
        ")"}]}]]], "Output",
    ) c/ K6 T1 [5 S# N0 b CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, 8 l3 V% F0 F& B- f0 C) D0 y5 W
      3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9,
    6 b% F: @9 u2 ?  3.578012251359375*^9}]
    / Z( W; n& Y- P$ ~5 m  x- D) T/ l+ e. y}, Open  ]],
    6 N* u* v4 j. n; x1 J# {) u7 u* r' k* g( k! }" A! I5 Z
    Cell[CellGroupData[{9 h9 P7 ]% n4 J- k9 r1 \
    6 N/ |" Z! l! t6 n  Q
    Cell[BoxData[& ~* x  E3 y8 _/ \9 L7 r* |/ C
    RowBox[{"C8", "=", "Ca"}]], "Input",) P8 p- d' j/ T) E$ j
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, ; z8 z/ n) z% ~
      3.577921316125*^9, 3.57792141421875*^9}],9 ^5 |6 E3 r* i) h

    4 B* y, p7 ^+ `Cell[BoxData[
    " j" U. v0 ]0 ?6 e  |+ T1 a RowBox[{"{", * ~: f' Z4 z4 X/ l
      RowBox[{+ v& M4 q1 @+ I% J$ b
      "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
    , O1 x8 I( T% q' ?7 w   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
    4 R5 G1 f& `* _) M: L  "}"}]], "Output",
    1 b+ Q. ?# I' U. }& d% y4 x CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, + c: z6 {( s& E/ {' V  z
      3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
    - C+ o# D* G. r  k6 b# H; z% E+ l  3.578012260515625*^9}]" Z& N: D2 V  o5 D& X
    }, Open  ]],3 W/ Z( d, f) T( e5 c

    ) x- k# O, h7 z" k6 }6 p% y7 ?Cell[CellGroupData[{3 Y) w7 {5 T& B2 z/ Q3 q6 Z: N
    7 o1 Y4 L3 Z% Z- O* b5 r3 F
    Cell[BoxData[1 C: U& [/ r$ D
    RowBox[{"u8", "=",
    & A: k) `0 v# f. U3 t  RowBox[{
    ' u' }5 O3 h, f9 _( r4 U1 f   RowBox[{"Exp", "[",
    , Z  m6 X: P2 X, P    RowBox[{
    ' x* F4 O! K5 W; \' z     RowBox[{
    ) q' w) ?/ ]$ f! m& q      RowBox[{"-", 7 v" U4 K- z5 d
           RowBox[{3 T" N3 r% E* X$ K4 y
            RowBox[{"(",
    + B0 _4 ~6 {8 `2 r! H& X. @! ?         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    $ z& n6 L1 Y; Q, K3 ?" z2 c        RowBox[{"(",
    ! a7 ~7 h7 C" Z6 `+ K# k         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],9 H5 q3 t3 _; N: r
         "]"}], "/.", "DeltaX"}]}]], "Input",
    7 R& r* S+ r$ y CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    ( T$ f6 h. j1 c9 f  3.57792132028125*^9, 3.577921416921875*^9}],7 I, l4 f  @" ?/ Q" F0 d1 W

    7 i9 _; `) F! S3 N! \5 o2 ECell[BoxData[
    6 u( K. p9 h9 V) R) K+ @ SuperscriptBox["\[ExponentialE]",
    6 @% M& \, R4 ~# i4 M; I  RowBox[{"3.141592653589793`", " ", 2 e8 ~+ n& f+ u  K9 ^. P3 q
       RowBox[{"(", / n; {. u. U9 V# K% M
        RowBox[{
    $ ?2 e# a* O* G! J     RowBox[{"-", 5 a8 {' J5 Z* X/ `$ x9 j
          SuperscriptBox[
    0 D5 [* z9 w5 m2 M" V7 n$ Q       RowBox[{"(", . @8 V8 _. G! Y
            RowBox[{, R7 P$ k+ h4 _' }: L$ e
             RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
    1 W  n; K6 g5 \0 ]! Y3 ?" S0 q     SuperscriptBox[
    0 Z7 n5 U4 O7 B      RowBox[{"(", 0 t: t& L( X% u/ o# ?& f
           RowBox[{% }  a" ~* X/ S- y0 K$ o5 q
            RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
    9 Q: c$ t% Y2 W     SuperscriptBox[
    ; P. i: t; g7 b! u% |$ ^      RowBox[{"(",
    ; B0 e& t6 t# w; a       RowBox[{
    + O1 }# u1 {3 z' o        RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
    ' `9 j1 _* x+ }5 b7 L9 L     SuperscriptBox[
    : D& w- K6 l. f      RowBox[{"(",
    / I& f" Q# w7 ~' H- `0 A       RowBox[{/ L% L+ I/ p" O8 H& i& d: @
            RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
    7 K, }: ^8 r: t8 x2 @0 k0 L/ w/ [3 G     SuperscriptBox[( ^5 O1 e2 t9 V& S& }% @, g- {# Q
          RowBox[{"(",
    8 t# N, i( ^; T       RowBox[{& y" |0 F, N+ A4 w2 t: \$ R
            RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
    6 ^( I/ l/ g/ o$ \" r) J2 O     SuperscriptBox[1 O( Q9 t+ r& k: q1 T# h
          RowBox[{"(",
    7 t+ A8 O" S$ l" j" f2 e" M       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", . i1 f, B& `4 U( t7 N: C" [6 D7 o, D6 @
         SuperscriptBox[
    - V) t+ B+ |+ G$ }' }      RowBox[{"(", 8 E% ~% G1 @. Q9 D+ n* |
           RowBox[{. B9 l& Y$ h& Z" D$ R; z' p
            RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", 0 x0 |% k$ c4 C1 v; L1 A. c
         SuperscriptBox[$ ^# d5 K8 E6 z9 |  N  a
          RowBox[{"(",
    " V! {. S/ B, T" W! D7 F2 _       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 3 P) {' m9 W# U, P4 \2 V" X
         SuperscriptBox[
    ; I0 I  f6 V( o; a      RowBox[{"(", $ T: v0 |# q' G9 h( `$ O1 y6 P  F( l
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ' ^" |. E2 `, L2 |1 _, o- }' C    ")"}]}]]], "Output",
    / P1 v. Y2 i% n2 n CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, # b. g' ~$ I+ Y6 ^2 h
      3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9, 9 u# s0 H+ D* @& O1 M( R. N
      3.5779608945565863`*^9, 3.57801226165625*^9}]* c# I. i% g% @% ?5 G
    }, Open  ]],
    " r0 o6 P! E0 u0 S  k
    4 e5 n, p$ I7 R, P; T/ N" ACell[CellGroupData[{
    . }6 q7 b. v+ x& y9 H) V* A% }0 z! s6 d! C+ y
    Cell[BoxData[
    3 o2 V# u0 X3 ~2 [ RowBox[{"C9", "=", "Ca"}]], "Input",  t& M% e& f& G1 S/ O
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    & L2 r/ W% |) R' V6 a  3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],
    + t& n2 [! n7 ^/ r& W$ g1 d1 i  R( O7 P1 _6 B
    Cell[BoxData[5 W3 W0 o; A. z  H
    RowBox[{"{",
    % k9 }0 ]5 M" u% y+ G# O: M  RowBox[{* o: d8 Z( H8 H2 _3 P1 R
      "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",", ; T) x$ W! t. ?& A& p5 w7 J
       "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}],
    # z% f! o6 Z) f" n1 p! j# d1 f7 Z1 n  "}"}]], "Output",
    4 Z8 m/ s, ^  Q) {4 O CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, ! f  a9 [4 _5 H: @/ j( C/ o/ J
      3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9, 9 @- L2 x/ Z0 @  J
      3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9, + Q5 C0 L2 O) S: ?) P& w) T
      3.578012268234375*^9}]
    / Q2 X# ^; \5 @}, Open  ]],7 M6 N) J  [& S0 w7 A
    - x, v" w( p- b  d5 W9 o
    Cell[CellGroupData[{# x6 V" z# t/ _& {0 l

    1 P  d5 d& u0 Z- S4 f8 `Cell[BoxData[
    - V8 C' k4 b; G RowBox[{"u9", "=",
    1 Y9 l; F5 V. x2 Z  RowBox[{% F3 {& Z+ L6 ]3 x, _
       RowBox[{"Exp", "[",
    $ n9 L% S, L  _: G% I# h! p' J    RowBox[{$ A  k* ~2 f, w2 u1 x" j
         RowBox[{( M% C; m6 }; v% ~) p6 l! ?0 z& b
          RowBox[{"-",
    1 g8 ~0 ?& p, w" x, }8 r       RowBox[{( k8 }8 M) X  V* E; t
            RowBox[{"(", ! s3 L* E; _$ V
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ; _# b5 _! e% W- B/ e# b  s$ F        RowBox[{"(", ; C* g0 p+ v% k; b4 N( ~
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],8 W& Q& U7 {& @4 {
         "]"}], "/.", "DeltaX"}]}]], "Input",: b0 l: c; G+ R* w. t
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    : q" ?, t! N- X. W% b8 a2 x  3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],
    " m4 o& c6 J/ j! p  V: ]# f+ g1 }6 a
    Cell[BoxData[
    - ?& D, ^$ F4 ^0 ? SuperscriptBox["\[ExponentialE]", & `/ ~. e- G4 r' x' o
      RowBox[{"3.141592653589793`", " ",
    / K: H2 F4 I5 Q& G; `# x- [. `   RowBox[{"(",
    4 s5 M, r8 d8 t  w' e. k  E    RowBox[{
    - c( T# K, c+ [5 m5 O/ R     RowBox[{"-", 5 c: [$ h/ f( a( h+ Y
          SuperscriptBox[- e0 _. {) q" Y! `" I# P0 ~
           RowBox[{"(", - T! k  {# q: _1 N8 y$ i2 I$ z% w  f9 W4 L
            RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", $ M4 D# S, V. z( @
         SuperscriptBox[0 i1 n; G+ B* I) ?. Z3 R- Q  ^
          RowBox[{"(",
    5 X' G6 W) G6 X+ {       RowBox[{* S5 ^/ C0 n% i2 u. s
            RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", 7 W7 B: z: M; K" p  R- g
         SuperscriptBox[
    3 g( O9 \; }- d2 k# A      RowBox[{"(", # Z( |0 x% Z( {! g& p/ q9 b
           RowBox[{3 d, b# }& ]) W( @1 `$ l
            RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", ' ?1 g# l( V: {  `
         SuperscriptBox[
    7 Y( O  L% g  F3 N. F; X4 `      RowBox[{"(", 8 O4 n6 @6 {" v( ~$ A7 j4 P
           RowBox[{
    # @7 |, [- e3 b        RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-", 1 {. \  w& R" \6 T
         SuperscriptBox[
    & O! X9 D2 o0 N) ?3 d      RowBox[{"(", 5 |7 ?- W  v' r* s
           RowBox[{
    ( A7 Y1 i" C4 D- h" E        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    6 s: ~% g6 ], c. u' G     SuperscriptBox[- X& Q! S) k- z! a
          RowBox[{"(",
    $ ]3 K) ~# c0 x9 D; B       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    , p7 E& K8 b7 f" _, A6 c' E- r/ u9 V     SuperscriptBox[
    % u$ o1 k" R9 j8 [6 C      RowBox[{"(",
    . [4 R- J# }6 j" C/ M, ^       RowBox[{" H5 V5 C- D4 X% K1 p0 [
            RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", 9 Q0 x! f% n' r& k, f
         SuperscriptBox[
    1 ^! e5 I) F7 A/ j1 @0 o      RowBox[{"(", ( C- }/ H6 D% d/ l1 s
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ! T; W5 K4 @1 a. Z9 e/ Q9 o0 [9 G
         SuperscriptBox[
    6 b5 Y4 m- C7 b0 q! P      RowBox[{"(",
    / H1 O" n; L& R# ^! _       RowBox[{2 |' r" E7 E2 h6 m
            RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
    ) a7 h- t! s- o    ")"}]}]]], "Output",: c1 [' K5 H( I
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    ! c8 r) _1 p8 i5 W; N# B  3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
    $ ~& i5 y* r% S, ?. P  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9,
    ) O- }: W# ]  P9 b! T1 ?& N8 j7 f  3.577961530421959*^9, 3.578012269125*^9}]
    ( I6 z$ q+ W! M1 B' g9 ~: G' \}, Open  ]],
    4 `" c  i# F9 q7 T) [0 q3 o3 T; j2 p% K1 H
    Cell[CellGroupData[{
    ' D3 p, s, n, R5 S7 M# p: [2 ~% x8 q, d7 {6 L& L& B7 f" u% Y% _
    Cell[BoxData[{9 B* H" \, Y5 u( l- }; w4 D. W* Y1 K* y
    RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]", ) t8 _$ m7 Y( g# p" J* P
    RowBox[{"u10", "=", ! A5 M$ R, H0 h: _  e
      RowBox[{+ _# t  @8 z, `7 [* o3 k( w1 B
       RowBox[{"Exp", "[", , {. f# x8 [8 b8 E
        RowBox[{
    9 R+ k/ ]' w# n# O* }% w$ U     RowBox[{
    " Q/ ^1 [( j2 S9 Z  i$ Y      RowBox[{"-", 4 e$ [- H2 ~1 v7 h
           RowBox[{
      ]# n, J- v" Y. d, e        RowBox[{"(", % ^6 X7 ]1 `; O1 O8 D/ q, J
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",   `7 O" e0 \3 e* U8 r3 C
            RowBox[{"(",
    $ @# T8 f% @8 E1 Y8 s7 ?2 \         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ' t( j6 @. o3 d     "]"}], "/.", "DeltaX"}]}]}], "Input",2 j. d( v) e& w! e+ q# ~0 U
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],4 ?; X0 P& i- V2 f$ F$ A9 p
    # a5 L8 w1 i. M0 s
    Cell[BoxData[
    ) C9 _. B$ y3 A- z0 ]* W3 i, v RowBox[{"{", # w0 }$ a8 R, Z0 j/ W; s5 F
      RowBox[{
    1 U* W9 }# M6 u& }/ y2 a# D  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",", ) A3 Q! m" l' j
       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",0 i2 `4 g0 g5 \) i
    CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],0 ]5 r% e5 D2 n0 P) {
    3 a( |+ ]+ K& R0 e+ n+ J
    Cell[BoxData[
    4 L0 ~9 J. h' V; \7 b9 A SuperscriptBox["\[ExponentialE]",
    2 @' w- V2 E5 k$ u7 c  RowBox[{"3.141592653589793`", " ",
    # k7 G# z* q* X" m   RowBox[{"(",
    - |: W( [9 v1 x1 A( C7 p0 Z2 u+ Y    RowBox[{8 [+ n& I. X( {$ r' @' q; e
         RowBox[{"-",
    " s! L9 S9 S( f/ F; q/ j8 D2 w      SuperscriptBox[. z8 L. c5 A+ D
           RowBox[{"(",
    ; I- q+ Q4 A2 O8 _" D4 x& T2 M: Y5 q        RowBox[{
    % H. E. [9 g7 c         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", " N, f( l6 g8 c4 [# ^
         SuperscriptBox[+ W6 I+ m" r  Z" `* z, Q/ g1 ~
          RowBox[{"(",
    - f# P7 x; M/ R- }% q       RowBox[{
    , n) h) s4 ]. B% x& S2 O. ?5 Y        RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
    8 _/ l+ o* D: F: ?- e     SuperscriptBox[
    3 n* g. C  v: Y4 _- x0 P      RowBox[{"(",
    ) D1 k% K& U6 F1 w3 o) k) p; i       RowBox[{
    # k) ?+ }/ [) M/ b# F# X8 [  i! ]  H" x        RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
    . _6 A: F, P1 I- n- ~0 I' x4 z5 u' ~/ d     SuperscriptBox[
    - M. F8 h/ y: ~7 [( `5 ~; c4 I      RowBox[{"(",
    & P5 W/ ], o) H" q1 e8 }3 x$ r       RowBox[{6 C# N  S' _1 z# O$ V. V
            RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", # Y# C5 |) L* `1 ?2 t: F
         SuperscriptBox[) U; @. F  |. y0 Z6 L4 F
          RowBox[{"(",
    " S# v. h1 J% [: ?. C       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", # J+ j- W0 n. T0 r; n) i
         SuperscriptBox[
    3 c7 E+ R0 T' ~* `7 G1 g, {# g3 \3 c/ a      RowBox[{"(", ! K1 {( P; |* h& n1 ^- r; J& ^
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ) t, F) Y* j8 t$ s     SuperscriptBox[  K( |0 a& P$ h6 h% A8 }( I
          RowBox[{"(", ! T3 n( l' q* ]. Y2 b
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 1 U. e" W2 g# ?3 ^0 \: }
         SuperscriptBox[
    # M& t1 t5 ]/ [1 l" `$ w# B      RowBox[{"(",
    ' d2 ?" i  z, W3 O5 u       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    " f9 `) _- [2 W, |, P     SuperscriptBox[; T0 b0 f% d/ d7 [+ s& E
          RowBox[{"(",
      o- D7 J  [$ }$ q. l1 B       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 9 j5 J! i0 Y! W6 C
        ")"}]}]]], "Output",
    : h% @0 L- i, ^3 A$ t9 Y3 Y CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]
    ; m) D: _1 D' F/ v1 f4 N3 Z}, Open  ]],3 h) V# P5 d, w( j

    4 a/ N; Z5 M2 L* n9 _Cell[CellGroupData[{
    7 u: v! O0 E( C  `9 X. ?# X/ \
    5 K+ e* j4 d' j! UCell[BoxData[{
    & B, A& r" i' q, s7 ]8 r4 H8 T RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]", 8 }, C4 v/ f) ?6 i) l. _) |
    RowBox[{"u11", "=", - D5 j& T6 H9 y  Q7 L) e, d
      RowBox[{
    ) x2 m6 [9 |& q1 D, r7 n2 ]   RowBox[{"Exp", "[",
    - T, y. F+ I% \6 F    RowBox[{; \5 j% Q: Z2 {
         RowBox[{
    1 u, u" i: }: ]6 {0 H( A' g7 j      RowBox[{"-", ! S9 w5 S' h5 ]" ?) J, Y
           RowBox[{+ \% a/ d* s2 a  E
            RowBox[{"(",
    2 S6 i* h/ x* W1 j: L" a" h         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ! T4 }7 [" E5 C& D5 F) m5 }9 S) e  y        RowBox[{"(",
    8 V" \8 e9 c' b% q1 }, Q# s         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],$ _8 U5 I- O4 D: J  ^4 t' z5 F
         "]"}], "/.", "DeltaX"}]}]}], "Input",  Q+ l, d2 w6 n- h8 N9 s5 W# I
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    6 P+ X- v$ R6 Q; E7 c5 a# C  3.57796154237158*^9, 3.5779615434011817`*^9}}],
    8 z5 O& J. s9 f) ~. H- O# z* W# d0 Q
    Cell[BoxData[/ V+ K$ ?3 P4 |. T. h! }9 ]
    RowBox[{"{", ( D3 B5 `. P, X3 ~8 J9 Z. `
      RowBox[{
    6 A/ e3 x0 W' q% t5 m5 u  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",", ) O- d( d, e. |9 T
       "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 8 k2 u; x8 n/ r; `: }, `* L! k
      "}"}]], "Output",1 r2 a2 S  I. f. D: R: ?
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    : ?* S( o; Y+ S% j  3.57801228203125*^9}],% T4 s3 J+ E* C, ?, ^) W" H6 U+ f

    0 |1 ]$ z) f+ J1 ]3 j4 ~( a# LCell[BoxData[
    & _3 \) z  D& L8 E9 q  [ SuperscriptBox["\[ExponentialE]", ! I2 l/ X7 z6 P  e8 \. _" ^( j
      RowBox[{"3.141592653589793`", " ",
    ; t0 q( H" Z3 z  L   RowBox[{"(",
    2 I. f4 m+ w1 ~- ^: h    RowBox[{3 x2 E0 |; n6 K& D: z) X/ E
         RowBox[{"-",
    * Y( Q5 W% A; R# i' K      SuperscriptBox[
    ' X5 O0 U# B$ y$ x       RowBox[{"(", $ U9 H8 Y1 p+ y/ B9 j! A
            RowBox[{
    " W- b, ?* `2 S; E" m" E8 g. e  O         RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
    0 v7 m3 {: w6 a' e     SuperscriptBox[. Y0 |3 o* ~& E
          RowBox[{"(",
    " Q" |4 b7 B% ?: m0 \       RowBox[{9 d9 M6 U& R' @7 R; g. R
            RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", % B! M  B* B% j. h: W
         SuperscriptBox[
    ' g: a$ A, t0 R8 f! @3 z5 @      RowBox[{"(",
    / {( F! C; W  C0 }% M8 j       RowBox[{
    . `' _1 T" B! ?        RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", 4 B& B6 Z1 Q: t. @9 f
         SuperscriptBox[9 h4 _+ x% E9 c' v% ~7 C/ e' j! g- n
          RowBox[{"(",
    * v  l1 ]9 S8 f  I0 E& [9 h       RowBox[{( e! w& m9 r: x* m
            RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", / F+ t7 ^, y6 Y. z% y" j" y
         SuperscriptBox[' |0 f! ?# e: O2 C9 e, `$ ~
          RowBox[{"(", 1 L: G- @, o, Z+ w
           RowBox[{4 c/ V2 r5 L$ p1 {3 q
            RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
    5 W, b+ s' I: m  [; D' T9 B8 w8 n4 q! G     SuperscriptBox[5 S, l/ W9 v' K3 V
          RowBox[{"(", 3 g, b  U& A4 b4 u& Q* O* r* p0 H# Z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    3 k8 r# j$ ?+ e6 m; u     SuperscriptBox[
    % T+ s; U+ L5 Y3 z# f! f      RowBox[{"(",
    . H3 \' n2 F5 ]/ O       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 5 v/ |( z1 `0 d2 i
         SuperscriptBox[! }0 A) P. b- d! R( M
          RowBox[{"(", + Y" o& _& o- v  I. p; _" w2 H7 ]
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", - C4 J+ p9 ^5 g
         SuperscriptBox[
    % L# v$ O# b( Y" R      RowBox[{"(",
    ' l( S. M: X) w2 ^- J       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], : X5 N  r: ]* D  l) l
        ")"}]}]]], "Output",
    % a5 g  d4 M; ?7 ?5 r0 [ CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, / o  f1 m% X+ |% ^8 I
      3.57801228203125*^9}]
    ; n# p8 l* t" g( R}, Open  ]],
    ' `: G) L1 u7 U, E  ^; h! A6 g/ d* l4 t7 M& H/ O4 }: B; H
    Cell[CellGroupData[{  ]% S  l# I0 t$ p0 c' t" \1 c
    ! v7 t/ Z& y  p& R/ z
    Cell[BoxData[{
    & r/ H5 `5 }* R, I% e3 W3 p1 H RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
    ; r( c0 B/ H8 a RowBox[{"u12", "=", , J$ a% p  U  \! |' W
      RowBox[{
    5 A' U* @$ E. \9 {1 U* A   RowBox[{"Exp", "[",
    " D& O4 G: N( y) w, h. t9 M    RowBox[{
    7 M9 c( a% E# p2 r     RowBox[{2 H: h: E% ^" T- P( Q3 j% k+ F
          RowBox[{"-",
    - R/ w. ]- F+ Y! N7 M# w3 A4 g       RowBox[{: h" U* z$ f# v6 ^
            RowBox[{"(", * Y4 X0 ?& n. Q& U
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 3 }" N0 S( B  l3 c1 a
            RowBox[{"(", 2 w' c( N% G# ^* r1 g) L1 f
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    % N  o0 h" A3 Z) z, x0 f     "]"}], "/.", "DeltaX"}]}]}], "Input",
    ) X8 C# y: L- ^- f( z( c6 T2 B: a# o CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    * H9 y0 m. `. [. y  3.57796154237158*^9, 3.5779615576284065`*^9}}],9 `) l7 N. G  I

    . }* v9 V( w. F9 C$ ]' d! aCell[BoxData[) c- L* m9 z2 S0 M% J
    RowBox[{"{",
    6 _4 o6 R+ y9 ^  RowBox[{
    ( [4 ~8 ?6 t+ N, ?9 z( c- X  "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
    ' J% ]+ t8 x  m1 L( `% t. h   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],   [5 W# w' |! j
      "}"}]], "Output",
    7 [* ~( k2 O1 H  l6 g CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],
    4 e4 O+ T2 x$ R9 B9 x8 q; X1 y3 H5 ~3 {
    3 {( I& i6 k$ J4 b2 XCell[BoxData[; m# i! B% j0 a& }
    SuperscriptBox["\[ExponentialE]", 8 `7 |2 O8 n: L; H* U; p. P) \
      RowBox[{"3.141592653589793`", " ",
    * K% ]' A7 G/ L* l, z2 z8 i  Z% w' i+ q   RowBox[{"(", . E( h  N! v: }" a) X3 v
        RowBox[{
    ; \+ Q) o( v# v. G) A     RowBox[{"-",
    & M+ }; r9 X2 ?% b! }      SuperscriptBox[
    ' e3 u4 W9 d1 A* r* B! B- _       RowBox[{"(", - k4 z$ J) C) A! I3 [
            RowBox[{
    7 {% }5 o3 R% M# D         RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", / c5 ?+ o# D' Z6 H1 p
         SuperscriptBox[
    : `1 T1 c+ P9 A7 A5 i1 n' M      RowBox[{"(", 6 T) z2 R7 `" E5 u2 V- P# F
           RowBox[{
    & D+ W  y* o: F; ]0 c& O        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
    2 t' X9 b: s; H9 S% y# f     SuperscriptBox[' i+ f7 |2 u  [  `& h
          RowBox[{"(",
    ! j* f7 s! q4 l( Z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", 2 e+ m5 \8 x" A$ C0 m6 _1 Z3 \+ u
         SuperscriptBox[" m2 i) w1 \% i" ~
          RowBox[{"(", ' T9 O( |8 G6 Y. N* P
           RowBox[{
    % i$ S& x0 w. j( ?, U        RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
    % z5 Z' ~) O: M3 r0 D( |     SuperscriptBox[
    5 `0 j4 @5 N4 u. @) ~" M6 B: U0 X0 J      RowBox[{"(", 6 A. ]+ z$ s- i% C9 N$ L
           RowBox[{
      n- r/ C+ i$ c& ]+ |# [$ G% W        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", % Y, h2 m! }& b) b& V6 {/ T* N# [
         SuperscriptBox[
    / p: w8 w- O' @* \      RowBox[{"(",
    " d* D5 e7 \+ a( P& P, m8 h+ d$ b5 o       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    " p  Y- j7 Z4 A1 j+ b     SuperscriptBox[( E! m) I' Q) R. R, M
          RowBox[{"(",
    " b: h, T3 D2 t# F- G. ?. j       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    6 j1 W4 w  K; W" N! o# w     SuperscriptBox[
    1 w$ ?  z7 Q/ D  Z- g6 q      RowBox[{"(",
    1 L+ B/ y6 m7 u6 T5 ^       RowBox[{
    ' a+ Y0 F# q% X" h& A        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
    , X$ a9 b- ^& e  ^     SuperscriptBox[
    1 o* \  N1 t8 s, F      RowBox[{"(", 4 o# ^) d6 K, Z4 Z3 p/ S: E6 J9 h
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    5 G3 I0 Z" y8 \0 x+ y0 z    ")"}]}]]], "Output",
    2 i, u* T. E) a1 O CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]
    . s& [: J9 e( \  j}, Open  ]],/ M+ Q2 W: X+ p
    : \; C, j. F2 h+ O  g
    Cell[CellGroupData[{
    & O! M8 _  {' C9 ~% D& ^, t3 j3 U1 y& O
    Cell[BoxData[{
    : A$ b, e9 g# o RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]", ) {' W% u* c8 v
    RowBox[{"u13", "=",
    % q0 L! R2 x( K; z# N& J! v9 w  RowBox[{
    9 y- l/ E, j$ I. p4 H4 {7 B+ m   RowBox[{"Exp", "[",
    % j% U2 \, i$ B8 ^+ |    RowBox[{4 D- p( Z9 ~# f4 E6 Z
         RowBox[{  T0 j1 J5 |' z" K7 f
          RowBox[{"-",
    * N& a' s$ F1 B' h9 L/ B       RowBox[{
    - c- ^# t9 o1 u3 u/ V6 i: A        RowBox[{"(",
    , L# P1 I! f$ J+ t# V9 n" e+ \, B. u         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    4 M$ S3 A! x% p        RowBox[{"(",
    5 e  a( F, P/ A" T$ |+ s1 @         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],' L* j6 S3 O, m3 k; G9 @; T0 w8 {
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    ) ^$ |, s$ Z& _$ w- G3 C CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {1 n$ Z- w; ~. g: i9 p; O5 p# |
      3.57796154237158*^9, 3.5779615599684105`*^9}}],
    ; m+ P! K9 |$ j# X: g
    9 O" v) N" Z. [' m$ I; RCell[BoxData[
    9 h* `# W. A1 |! Q+ E RowBox[{"{",
    ' C* f6 f4 s" C9 [  RowBox[{
    ( o  |# Q% k/ G  ^9 P$ m4 G; P  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",", % g, ~' M& u" R: y
       "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}], ' M4 V; A$ G. Y+ y
      "}"}]], "Output",
    $ W* k: j, N! F+ ^2 }3 Z7 M CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],
    2 N: p  D/ g7 f, K, G5 \6 U) Y
    7 X  R. l1 J% }6 A& ICell[BoxData[
    5 E* g0 `7 ?1 I6 J SuperscriptBox["\[ExponentialE]",
    & Y0 R1 @# p) g- D/ |/ T- d, f  RowBox[{"3.141592653589793`", " ", ) k( q" C- t5 B) V2 t, p" _
       RowBox[{"(",
    1 s- R" W1 A) |  c2 F" a    RowBox[{. t- I7 T, S1 ?
         RowBox[{"-", 9 _# l% P0 c5 |9 q$ |6 r) f
          SuperscriptBox[
    # S5 n" S, @) F3 J7 H       RowBox[{"(",
    % i  I8 a3 X! p* i3 d        RowBox[{. h9 u+ [3 N2 h/ W) y# j
             RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
      c( S7 w$ Z$ F# y# ?! h     SuperscriptBox[( w- s0 t. N. `: c* M! m
          RowBox[{"(", $ c! _+ |* H3 F7 @8 m, r) J
           RowBox[{
    & d$ _- x; F# K, C) i3 Z        RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", , ~9 m& E# ?) @' f) t% K
         SuperscriptBox[
    $ N8 V) o& W7 ^0 u4 Y% p      RowBox[{"(", 0 }. X3 U9 |% W9 D4 l6 ^* a
           RowBox[{
    4 p6 G# }9 v1 f        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    - F; c) e6 C' q5 E     SuperscriptBox[1 |8 l, P9 s7 R+ R2 B' u3 T
          RowBox[{"(", 9 H- s1 X1 ]( m
           RowBox[{1 e0 K1 {9 X* e7 ]2 A. P, V! O# m
            RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
    % N2 r$ [' N5 [) `6 u+ e3 M     SuperscriptBox[
    & d+ j! P/ s( s      RowBox[{"(",
    ' g8 k$ ^# J+ [" I/ c" h/ |       RowBox[{
    ' C' z6 a% ~9 N1 F; U; \        RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", : G: S- g! m- f4 N  o% F
         SuperscriptBox[
    # t; P  x$ x9 ^9 a      RowBox[{"(", 1 N8 F$ z5 G3 Y7 X
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    / R8 |) C7 r! D; Z$ Z' p4 }( Q     SuperscriptBox[( y; I8 P3 r7 U: [$ `! y5 [; u- Y
          RowBox[{"(",
    2 P; f. |' I; h2 O' J       RowBox[{/ d6 s# b3 S9 h. _
            RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
    1 W! @4 [1 R1 ?: R. g( d" p3 C, r) L     SuperscriptBox[
    7 E2 t3 f. k& M$ l      RowBox[{"(", ! r5 M' ^! @; ]2 r( w  S
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", % I8 x. c0 @# z' v& j+ |, X5 W: j
         SuperscriptBox[1 _. E+ k3 w. q, {# B8 d( e, \
          RowBox[{"(",
    $ w/ L4 f6 \# z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 6 B6 [6 a7 ]5 Z' |1 q: n
        ")"}]}]]], "Output",1 V5 h) u1 j9 X1 h# R. G$ }( N
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]! l* p2 i  N2 W
    }, Open  ]],
    0 L9 _" m+ Y; u2 [
    3 V9 e. s% h( M# O7 ^( [# c5 F8 _6 jCell[CellGroupData[{
    + g) o" w: S; L& o8 a2 A4 g: p; |+ B& R- @" W
    Cell[BoxData[{. Q2 p2 \! e* R/ j5 j( C0 W% Q( l
    RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]", 3 c. L9 M; l+ {/ j# i5 T
    RowBox[{"u14", "=", + h; z( f- i0 B' [  T  E7 O
      RowBox[{8 X2 N" _# i. x/ a; @. G
       RowBox[{"Exp", "[",   \$ M9 K+ i0 G9 B
        RowBox[{
    3 ~/ B0 ~& G9 f- R0 G* `+ s5 F6 B     RowBox[{
    / z! M+ S7 r9 B, K+ P% a* h      RowBox[{"-",
    3 h& v; I/ J8 ^' X6 W0 M! T' f6 u6 }$ k       RowBox[{
    # o6 Z( ^8 W; }, u  F, Q2 }        RowBox[{"(", 6 _4 }% d9 _7 H' r' j8 n  N
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ; O5 D( s5 c3 @5 s0 o' Z% E3 J        RowBox[{"(", 0 j+ x6 y. W" Z0 X7 x# F; H1 d
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    , Z" P# F- B5 O0 D6 o     "]"}], "/.", "DeltaX"}]}]}], "Input",
    $ J7 f6 |* c" w9 y& F2 |+ Z" i CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ) L* s( f6 y8 V! k  3.57796154237158*^9, 3.5779615663176217`*^9}}],$ F9 O! `8 q, y9 d

    - c& D) B: ^& B6 \( \' K% ZCell[BoxData[
    ( e& y! j# z1 b RowBox[{"{",
      c1 ]3 K" A2 O* q3 c8 J0 @2 Z  RowBox[{- t  x5 D0 |1 |2 t' a5 W& N9 S& z! O
      "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",
    , S5 I7 b- p  p; I   "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 2 _8 \) a& v, B: \) {
      "}"}]], "Output",  ^  G  h8 E  k
    CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],, @' X% O, @) L$ q' E/ b

    8 l  `7 m% `1 U& xCell[BoxData[  V! X  m: p1 z6 ~
    SuperscriptBox["\[ExponentialE]", 8 t% t. V  j7 D; u% R' N6 G: w2 _: L
      RowBox[{"3.141592653589793`", " ", 8 p/ E9 T- n5 G* L
       RowBox[{"(",
    ' P. S6 y+ f" P& |! x    RowBox[{
      z1 p& V! ?  s  u6 {3 k2 y     RowBox[{"-",
    ! d& f: l! N$ Q4 Y8 `$ c; z( y. X      SuperscriptBox[
    9 v  x: v( Q# V% J5 G7 k       RowBox[{"(", * c" l( y# Q$ g4 r" k9 |
            RowBox[{6 C5 @6 I* @: a: ?# S$ b" b$ j& m
             RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-", ) X% _  _, u8 s" ]  N# w; t
         SuperscriptBox[( O$ i- f7 V" ~) |) u+ n; i, }
          RowBox[{"(",
    + ^- `( y4 }8 v/ |/ A+ h       RowBox[{. x! m4 I5 k# D% A$ U
            RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
    : l  _+ l* B& u     SuperscriptBox[
    : x3 ~1 [+ V  V7 G1 E( h/ D      RowBox[{"(", : f3 c( M2 I, M1 l1 e" m
           RowBox[{1 [4 Y2 c' e- n
            RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", ! \' b5 x) z8 }5 i) A
         SuperscriptBox[/ c4 E. p+ U0 Z6 n
          RowBox[{"(",
    & ?8 s! O8 m. X3 |% t       RowBox[{8 I) Q6 H2 _. V
            RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
    : m' }+ v7 _' \6 N3 a8 ~6 r) @" i     SuperscriptBox[
    9 R) a% Z0 d8 K! T" l/ T      RowBox[{"(", ) J: h4 R' Y) R
           RowBox[{9 }' |' j& x% ^% y+ K. B! A
            RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
    2 A" P) c3 ~0 e8 A, ]. M0 ]) V     SuperscriptBox[: T$ q+ c0 S1 Y; P, S
          RowBox[{"(", , _% I( F9 `8 }2 K) m9 a# \
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ( E2 k* b7 `9 t" \% }& I; d
         SuperscriptBox[3 A9 O5 z# q  G2 v  _4 ?
          RowBox[{"(", * {: b- Q9 e( D7 H7 O
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", " w4 e: ?# F# m
         SuperscriptBox[
    ! P" _1 }, B5 H; w      RowBox[{"(", & ?/ h) ^4 u4 z3 \. y  p0 i$ |
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    + ?. ~" j0 A6 d0 _* q3 l) Y2 p& z* Y     SuperscriptBox[  c9 [. z. ^. q1 G6 H
          RowBox[{"(",
    / v2 m$ w0 }' I- Z' k       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], - n% \( ]6 B. K* _6 A
        ")"}]}]]], "Output",
    * F. s: h# `' U9 z" x CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
    4 }/ ~$ f% T- H' h8 w}, Open  ]],
    + u) J+ N' w9 f. E8 M1 I( L9 l+ k1 A! U. j2 B5 ?4 `+ I& o
    Cell[CellGroupData[{
    ) [5 {  h, X: v  |6 ]& K  v
    # {) }# \& G; w* e. T6 t4 S( ~/ XCell[BoxData[{! F! b  P7 {' u3 g# I9 T# ~: p
    RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]",
    + h1 @# ~2 P3 K RowBox[{"u15", "=", 8 R5 O  Y$ }9 Z% I9 ^
      RowBox[{" G6 o+ X& q3 M1 [8 H
       RowBox[{"Exp", "[", , B. u8 j. Z- A, d3 m
        RowBox[{
    # N6 u, U1 C% B0 l% ?( k' A5 {     RowBox[{
    ( L7 F0 u' q  N* a      RowBox[{"-",
    ; G, Z, e4 }9 l* @+ B7 D       RowBox[{: L% i# \  [! Q' f" b
            RowBox[{"(", 8 X0 u. H6 y% q) u( S0 U
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    8 Q; o% U6 b% v5 a. V        RowBox[{"(",
    / i& l/ ^) X8 @         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],  A, N5 ^$ g: L! ^. o: }
         "]"}], "/.", "DeltaX"}]}]}], "Input",# l7 V! u' H, O% D- B6 l' k$ A
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    % u3 ~$ @' E8 G1 U3 N  3.57796154237158*^9, 3.57796157098203*^9}}],8 F$ e4 P8 g, f1 w: C

    1 w/ J$ Z& q# C  F* Z. ^, i& gCell[BoxData[1 Q: G8 i& V/ R, b, U
    RowBox[{"{",
    - s! g: c) v( _. k2 s) w  RowBox[{
    ' D! ^/ n+ B  ^( S7 \/ }/ n* U& R  "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", ; B& n5 F! Z# ~/ c& x/ C1 z: `4 V* o
       "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
    % j7 @, p/ D& [+ m  "}"}]], "Output",
    ( d! }; x" J5 R; D( f# c CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
    9 c" @( L( R# J  s& O/ p" W/ S
    8 \7 A5 C: v$ FCell[BoxData[
    " g! E9 L3 W/ {+ k: ^" u SuperscriptBox["\[ExponentialE]", 9 e, s2 g1 F% a4 J, o
      RowBox[{"3.141592653589793`", " ", 9 J3 T9 q" ^0 x
       RowBox[{"(",
    8 L/ u- h1 ]/ V% y) a    RowBox[{9 S, ]  x3 K. S0 m9 n# b1 F  J3 f& Z
         RowBox[{"-", ) p2 t8 w! W# P( c- W
          SuperscriptBox[
    3 V( A& ]! ]- k" _! o0 t       RowBox[{"(", # Z3 I6 ?7 \/ ], a3 t2 f* D
            RowBox[{8 G- `8 z" |7 V9 I4 C
             RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", 3 [% m3 i6 _: {% u' [4 U& p* v5 N+ g
         SuperscriptBox[
      F4 G) O) K0 p+ o9 V; Y      RowBox[{"(",
    - p" }4 n  r; ^9 @: M0 `       RowBox[{, S6 O; \6 k; w% @$ x1 @  J& c4 }
            RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
    / P  i7 S+ h* j     SuperscriptBox[
    2 N3 @' K7 \3 |# y: [      RowBox[{"(",
    + w2 {2 D9 Y4 M$ L+ P0 A       RowBox[{8 M. R. l, v0 b2 h. q1 w* f! B7 W
            RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
    . c5 ?& P9 w5 n+ }     SuperscriptBox[' v1 A, J2 @" q! n- j3 Y
          RowBox[{"(", & `: J7 M3 t7 `  O, E& ]' {2 U
           RowBox[{; s* e$ z9 C7 H* a: ^
            RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-", ) \1 |; [9 P6 N  N& O
         SuperscriptBox[% s, \" T5 i' A. F2 u+ M8 K
          RowBox[{"(",
    + y* v5 c) a- v% ^       RowBox[{
    3 q+ V/ m3 Y4 K. v0 U  Z" P( G  ^        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    : c0 D; b# u$ M1 t( Z     SuperscriptBox[1 o" V/ Q# O9 f. v1 [
          RowBox[{"(", $ S  }) u/ ^  [' C% F2 m
           RowBox[{' c6 Y' V3 ?+ P4 @
            RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
    ) m) Q; b' L( ~: m: P! o6 T$ `     SuperscriptBox[
    ( L) C1 y8 X9 m: ]      RowBox[{"(", . Q# F. u: h+ I2 k# E$ L# Q
           RowBox[{
    + H# d: X  C8 I5 m        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", . N0 u- F0 a! }
         SuperscriptBox[
    & F% V/ a6 n: c0 ~      RowBox[{"(", 8 d# k2 i, X, j* B  Q. g2 |
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    3 U% X8 W4 B( V! r' P  {     SuperscriptBox[* O# f7 E) @$ E" G" [- ]
          RowBox[{"(",
    * s3 [: }$ e  a. k1 L, B& J7 v       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
      m- E" v! m9 q    ")"}]}]]], "Output",5 K  G( D9 l" }5 S; z* L
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
    ! \1 e* v2 X/ y}, Open  ]],
    9 P; H) _2 `" f  p+ i& d$ t; x: F9 n; \* f* N: W1 ^# D8 I
    Cell[BoxData[2 t4 n4 j6 S) X- x; w3 o
    RowBox[{"For", "[", 7 U9 D/ e: j( H. R: @0 v  c
      RowBox[{& L  h1 j# b9 `) q* j0 U6 r
       RowBox[{"i", "=", "1"}], ",", & Q% l; L( L8 n- Z
       RowBox[{"i", "\[LessEqual]", "9"}], ",", " A: O& I2 m* [: ]9 k$ q& I# A9 v
       RowBox[{"i", "++"}], ",",
    & \1 H7 e6 X" W/ l   RowBox[{
    " i4 m; V+ C0 j' ^# ]    RowBox[{"Ca", "[",
    : Z; V7 f/ R0 x1 j7 {- ?' z     RowBox[{"[", "i", "]"}], "]"}], "=", 4 W! v$ @1 e( @* j$ O! G. l4 G
        RowBox[{"CM", "[", 1 ^/ n/ d7 g/ a* Y
         RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",6 F' d0 @- f4 `4 P* f3 I4 f2 q
    CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],! Y4 @9 x1 Y- p: W  I8 P
    4 n0 l4 T9 N5 V6 G5 F' }7 \% n
    Cell[CellGroupData[{, @/ |+ t1 |3 M, J
    * I9 ~1 [1 \5 o
    Cell[BoxData[{4 r4 ]6 X7 V7 c0 B
    RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",   H: a; Z" F; m: K; }1 S# x
    RowBox[{"u16", "=",
    ) Z9 h. h2 F5 f8 z0 g% |  RowBox[{
    - u% Z  S% K* H; k" ^   RowBox[{"Exp", "[",
    , e! i0 ]. z: r9 k( d$ `    RowBox[{0 G% m) M1 n" i( F1 F8 c1 B' a8 T
         RowBox[{0 T" C* G; P5 W
          RowBox[{"-", * ]4 a8 e7 z( P
           RowBox[{
      J4 [7 G2 I; z        RowBox[{"(", + }" i" z" W; `3 f( {- m
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",   l- [# e  A# l9 J: |3 d
            RowBox[{"(",
    - }1 K6 C0 P4 ^, j         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],. k, @- s0 w/ ~9 w
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    & k* I1 V  j, s CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    4 O8 b7 I" X+ J$ d) A4 ^' o* P  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
    & p: h* f, w+ d' {% V7 C  3.5779615751004367`*^9}}],1 _+ T2 [+ i) |0 ~- [

    1 E: n8 \. q3 a: F/ v0 jCell[BoxData[
    + E9 }8 U$ n3 z5 i RowBox[{"{", 1 N( Q( X2 y/ b
      RowBox[{
    ) }) b" M2 m% Q. V" d8 b3 O  "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
    - \% @/ V4 B- m/ u# M) C( ]   "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
    & S' a* }6 u) i( i  "}"}]], "Output",
    7 y8 @7 {; O: B; _# C6 }: s. W CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],8 o6 T2 a: p" _& J6 ^1 U2 S

    ' ^4 j% ?5 c( V6 E* Z& r8 \' S, \Cell[BoxData[
    / q. \6 u1 _: V3 u, C/ }  x4 |- v SuperscriptBox["\[ExponentialE]",
    . |# H5 x$ M5 d( P# |6 `; W  RowBox[{"3.141592653589793`", " ", 2 s% ^, {, C" C( u5 Z/ D7 f4 C
       RowBox[{"(",
    1 g' z$ @5 I: E8 d9 h6 b4 \    RowBox[{
    9 w" M4 ?+ b* i! f& f9 T0 \/ T1 s     RowBox[{"-",
    6 E, n3 C8 U; q      SuperscriptBox[
    * \1 n: v7 S; Z; J       RowBox[{"(",
    : A4 g6 Q) x6 h        RowBox[{4 }  N* A+ d1 H
             RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
    2 Y; Y) Q/ R1 ^; ^     SuperscriptBox[
    # }! k1 C7 C7 z. g, K* H* w7 R      RowBox[{"(", . \5 y( y2 i9 V
           RowBox[{
    ) Z" z/ A8 p& }' W  k        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
    ( b- n% `8 I2 l* }$ j3 [& x) e$ k     SuperscriptBox[
    , ]5 L! ^5 g) F" g4 z      RowBox[{"(", + [8 [0 S. [3 M4 a) U% ^2 _/ q& j& u
           RowBox[{
    ! u/ ]8 o* K  |6 H5 }8 S0 k0 P        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", % q) |. g  h: ~6 b" J
         SuperscriptBox[& `- k7 D! A- T$ g5 f! E, G8 i) u
          RowBox[{"(",
    % L6 `9 Z$ V: T8 K       RowBox[{
    + G! {% H) ~7 w        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", ( a6 Q" y4 [) [; X
         SuperscriptBox[, Y/ G0 Q1 L+ z
          RowBox[{"(", # |! }2 |2 g2 `4 o) s$ p
           RowBox[{
      [: W3 l6 v3 A. D8 I! P0 L        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
    & C  I( N9 ^- r0 T* f! J% r3 i     SuperscriptBox[8 J0 j7 c# `1 a9 k" @" q
          RowBox[{"(",
    : G! p* c$ f# ~4 v5 e; z! C       RowBox[{) [# r/ e1 x* Q; b; F  X+ L) c
            RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
    # p- W) I$ z, r; N9 Y     SuperscriptBox[
    2 l2 _; R5 C* Q+ F  H8 G2 G      RowBox[{"(", 5 `- X) @! L" z. p) h
           RowBox[{
    ) T- t7 v1 [; q/ _5 I1 o        RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
    1 s4 U5 @$ a9 ~$ I4 T     SuperscriptBox[
    , Z9 ?+ C# G0 |/ [7 T6 r      RowBox[{"(", # u, N: v; g4 f2 a" S
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    0 s, K, I3 l& c/ \' m+ U" f2 S     SuperscriptBox[
    : W0 R5 K2 f4 U5 o  A' D1 |# A      RowBox[{"(", 1 B8 E9 ?& B9 K
           RowBox[{
    % q  i: F# w; R* j+ \        RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output"," V0 S3 G2 k- c  Z# X
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]* h2 o1 Q, t" S) k; m4 k) O; O3 _
    }, Open  ]],. q# F' V. k! z$ M5 h
    3 X4 B9 w) I+ P3 n
    Cell[CellGroupData[{
    % V6 ]# |  J( ]. q/ C# F! L4 |3 J7 u' \
    Cell[BoxData[{
    $ b; _, h7 F- n! J/ ` RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]", * O5 Z' Y! S, C
    RowBox[{"u17", "=", 0 k) z( s* A  G4 S$ J' Z$ g: k2 a2 O
      RowBox[{+ P( t2 M/ D: T
       RowBox[{"Exp", "[", ) R! ?/ ~- |0 M- S+ m
        RowBox[{
    / V2 f3 [+ j* I     RowBox[{
    : E5 d+ [7 H' B8 Y      RowBox[{"-", . ]5 z+ F0 @1 K; j
           RowBox[{7 ?9 Y# T. C& N
            RowBox[{"(",
    3 b: v: ^* w- _         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 1 Y+ e& w7 k1 H% V
            RowBox[{"(", ! h4 r, p( N6 ]3 T, b$ q. P
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],) Y6 Q  p3 o2 ^# {5 I& P
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    ; H) r9 D- |# F4 V$ H CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    * W. D7 Q7 F+ X6 d1 W! A" K* ^  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9, + T0 G6 S' Y- U. r( H
      3.577961578953644*^9}}],1 S: X- T% c# m! K* ^' t
    1 o' N1 R) C' u7 U$ k7 l8 h
    Cell[BoxData[
    8 n4 V( Y; O0 h8 d3 { RowBox[{"{", 9 J2 _. C3 _5 U' a0 p% ~  F0 V
      RowBox[{4 {1 y8 z5 D" k  Q+ I. m
      "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", 0 h' M5 Q2 O  d" T* s4 I1 f% m
       "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}],
      ]4 W( |4 u2 g2 [6 u" h% a  "}"}]], "Output",* s" a. ?/ q' D
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],7 p3 P, t5 M# i6 t! O3 b

    3 V# e' N$ h$ l+ |" V& YCell[BoxData[9 t+ h9 \! b) q, r# z( M, T) Q) o
    SuperscriptBox["\[ExponentialE]", 3 o8 R4 R6 d" ?3 I
      RowBox[{"3.141592653589793`", " ",
    : B$ l+ D, c7 C9 c# Q: }! J   RowBox[{"(", * e" @( L: U% `7 a% p' Q5 E4 g3 @
        RowBox[{
    ) M3 \9 ~% m8 g4 _- I     RowBox[{"-",
    6 H( T1 F; ?3 d; J      SuperscriptBox[
    3 C' k' y. u+ y  g6 F       RowBox[{"(", : @" F( o3 Y% Z; K
            RowBox[{
    * u1 [# K5 u; V7 N' o. v8 h         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", 6 F: d. x# m+ P  u! L. Y
         SuperscriptBox[4 ?; A) ?0 Z% w2 F" x& K
          RowBox[{"(",
    3 h5 \! {% g9 m  c       RowBox[{+ }" x7 O: a& ?/ s) q( L
            RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
    4 I0 ?' S1 _* r6 q     SuperscriptBox[
    4 D& z( d4 l5 D* D$ {) i+ ?7 n5 s      RowBox[{"(",
    ; e! e  W) {' N0 _2 k8 R4 e       RowBox[{; n+ K* T# R: ]2 A
            RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", # U7 Z- S6 {+ v& |' ?
         SuperscriptBox[# p8 w* l) Z: f9 n  G
          RowBox[{"(",
    # U. f( [& o7 Z6 Y% C1 B$ \( E       RowBox[{
    ! H0 J- _; N+ k% p& D/ g. o        RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", 0 D4 [+ ~# s; }8 g; `- p( M( e# E
         SuperscriptBox[6 P( [4 K: x4 b. D$ |0 Y
          RowBox[{"(",
    ( G% c6 k8 ]0 L1 ?" j       RowBox[{
    + y0 Z3 \+ f; O! @4 i  s( i+ @        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", ' w( b! H; C  G! [. s/ {
         SuperscriptBox[7 ?. Q! i  f2 {3 W3 n/ h
          RowBox[{"(",   G3 I. j5 a) g, J
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", * P% B! ?4 U. g% F& B1 q! D7 C; U
         SuperscriptBox[! a  V, {" }  d& W$ q' H4 Y& t2 S
          RowBox[{"(", 9 e8 V' }2 K9 y) m
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", * N. s0 W* B& l( W
         SuperscriptBox[
    . n8 M. N) a7 j: S- K& G- w' h      RowBox[{"(",
    , V5 _  J- X8 A& z5 M! E% o, v       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 8 L; E  |5 W- Q" _
         SuperscriptBox[
    - f8 k6 _8 y/ s      RowBox[{"(",
    9 ?2 h* D6 [* G" v, ]6 f       RowBox[{8 n9 X/ t: y1 i
            RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ) {, j; x8 U1 \" S" H: l
        ")"}]}]]], "Output",
    $ ?, |- c" p4 A4 k CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
    , g  D- X6 @. _: P: X}, Open  ]],
    9 k" S( s( `: Z6 M3 A4 n2 g+ [1 |+ b7 A- T! W2 k
    Cell[CellGroupData[{1 b& A8 ~: `# L7 z% \8 X
    2 g8 O7 J8 }2 A6 N, M) h, m9 [5 M
    Cell[BoxData[{
    $ z8 h% F* u' U3 t( `0 e RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]",
    - e9 y& g0 n0 ?/ Z! X) w* }6 z RowBox[{"u18", "=", ( h3 _) }# {9 P1 Q
      RowBox[{
    1 n5 C( O& J$ q2 u, V6 s   RowBox[{"Exp", "[",
    " T3 |; K/ H# F  y5 ^  G    RowBox[{- ^' F1 W: X  P; e/ a
         RowBox[{
    - {3 a, l9 r8 L: ^7 e      RowBox[{"-", 4 F7 q" y0 q( b9 b. @& H
           RowBox[{
    - M+ _  D4 |7 N4 ^        RowBox[{"(",
    ) q! j2 b/ y5 z; u' W6 h4 n- V         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", * g$ h# m7 C5 v( S# h$ Q; d, u
            RowBox[{"(", ; x- m4 x& S% k# g
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],8 j# r  _6 u, S0 w  s6 J
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    , A6 v/ }8 F0 m* `: ~5 t; o8 G5 L) d CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    6 _) Z, |  E0 H5 j: V; S$ M6 @  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9, ( p! F& h# c: B" T& e" u# y
      3.5779615828848505`*^9}}],, o* w& W- P; ]3 t; h
      t1 Y( P4 P0 r2 f* `. C% P' ?  J7 i4 d2 }
    Cell[BoxData[3 ^' ~1 d. b1 A+ L3 M* [
    RowBox[{"{", 9 l& i8 z4 M# c, d
      RowBox[{/ n. ~/ ^. c8 X- \; ^3 U1 k
      "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
    - P3 S' K, f$ v. r   "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    8 v% S/ Q+ C# w$ ]; \# K; T8 |  "}"}]], "Output",
    4 d" n4 m) o. { CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],( g# w* s# X8 @2 a* ^& K5 l0 ?+ c

    ! ~. H5 W! ?# g* {Cell[BoxData[
    / v2 l1 n5 \/ T# V& Q7 T0 n SuperscriptBox["\[ExponentialE]", * |' A+ M' s/ T4 P4 t
      RowBox[{"3.141592653589793`", " ",
    : S! M' _! y- y0 `0 j  A   RowBox[{"(", & ?) u2 n2 X# S) |1 @4 o
        RowBox[{4 |. a( @% h" f+ v: D: [( P
         RowBox[{"-",
    $ M" J9 M5 L& S      SuperscriptBox[
    4 B) b+ |: k# a) l  m  m       RowBox[{"(",
    # U  z  j4 x1 m2 s' |' e; c        RowBox[{- s" o4 Y- e% \. O( t' M' |& {6 d# S
             RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", . W. p* d! T: S2 Z% G1 \  b
         SuperscriptBox[
    : L$ e# t7 M* ]7 D8 b/ h      RowBox[{"(", % F# p5 Z/ P7 p; t3 v
           RowBox[{
    - ^8 z. W5 x7 {: t0 H/ b" K: p        RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
    0 h  n7 n3 C" W4 W5 E     SuperscriptBox[1 R% s; Q/ S! O$ s  z, r& p
          RowBox[{"(", ; w. D0 H/ ~3 k+ n# c
           RowBox[{
    ) m0 o2 o/ w3 _  t) `+ A        RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
    6 ?2 G  F7 _3 H; k: w9 ?# z2 S     SuperscriptBox[
    ' R0 z& i* [# M2 {" }8 `: K. C5 U      RowBox[{"(",
    2 S' `+ j* u# [8 Z       RowBox[{. c6 X, u# s& X- n2 h: S- `
            RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", + n9 f# ]. {, A' ~
         SuperscriptBox[
    4 S) o$ D1 B& p% q2 b, i! G; v( U      RowBox[{"(",
    " i: X( O- y) S1 d" M       RowBox[{
    0 A: S! k4 `$ n6 N% C        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", + L$ R' d  W/ }3 h5 y
         SuperscriptBox[+ {) r! {) ?% o& p3 Y0 i! Q1 f
          RowBox[{"(",
    0 `: i& K, o& z! U       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ) i5 U7 ]5 h2 i( i6 c* c; t4 V
         SuperscriptBox[; F% a* k* _/ t- d* b# J
          RowBox[{"(",
    5 g) E0 @3 @, a2 f! Z2 O       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    0 e7 _- G" u9 Z+ ^( L     SuperscriptBox[
    1 ?6 Y) ]# u$ Y: K5 i/ ?      RowBox[{"(",
    5 R+ Z1 M& \* O. Q! p% l' i       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 4 B( X: s8 K" Z$ `# X$ P; `
         SuperscriptBox[
    8 I  o- e3 [  E! ~' ^9 v8 s5 W) p9 V4 v      RowBox[{"(",
    * n- c( [8 C, R* @; W7 n       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ' \* L5 H7 D) M9 U9 B( y, \% q    ")"}]}]]], "Output",
    + c, R# e6 E: }' `; i. o CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]
    & U8 ~$ l: K/ _$ Z}, Open  ]],
    ! F( }8 M# N2 E+ n0 n% f% N
    5 S7 b: S# v: f" [$ UCell[CellGroupData[{- v# L1 \5 [$ A( M( z7 Q; I/ w

    2 `6 K5 I4 e: S) `% S: D0 XCell[BoxData[{
    # q3 E+ Z) N% \3 x/ f5 H RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
    , h1 j* g( n+ e+ }9 S- v RowBox[{"u19", "=", 1 `! H2 p8 j9 @* ?7 p
      RowBox[{4 d8 ~- ^  _) |9 y$ X( o# k+ t
       RowBox[{"Exp", "[", # `) t4 D: W, D6 V* E
        RowBox[{
    0 ]- @# Q# [$ G1 _6 a& `3 Y$ g     RowBox[{& u3 b4 ~5 g: i. V5 S0 k0 a
          RowBox[{"-",
    . v3 Z! l% a: T- W  j1 C       RowBox[{9 o+ O% M* Y  ]4 s7 P
            RowBox[{"(", , q% N$ l/ _8 p. C7 p
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 2 q( m- f( y+ C! U$ j4 C- ~- B% ~
            RowBox[{"(",
    1 E: o4 M8 U5 t- T         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],$ {/ h9 ^7 y* Y  Z2 n
         "]"}], "/.", "DeltaX"}]}]}], "Input",8 a$ Q; y' L1 d* J; g: {
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {# r' B1 n. ^4 J# z
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, & l1 ~/ P3 Q5 A# a3 F- e; U
      3.577961588890861*^9}}],) i1 e) Z" Y9 m) O

    - x; P8 q8 c! d  K8 Y% v7 zCell[BoxData[
    : D' V0 u! p1 d4 V" l, Z RowBox[{"{", 4 e# z5 f2 t% M* m
      RowBox[{
    ; L8 |+ w$ V( m  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",", 2 y7 U5 h+ A1 |8 @1 ?
       "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}], 9 @% F7 u  ?* |( m$ n' l  n4 T, Y3 \
      "}"}]], "Output",' N# P5 x0 C8 r5 e
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],5 u$ |/ j) \# M* `" L8 R: K, ?! a

    2 R7 \% B% |2 W0 b& i! `Cell[BoxData[, {; k" ~( @3 d4 @
    SuperscriptBox["\[ExponentialE]", 3 t5 y& \4 \4 A0 i1 q
      RowBox[{"3.141592653589793`", " ",
      g. r" s: X  x/ p   RowBox[{"(", 2 K8 `# B) `7 a2 f0 O; Q0 t; H0 N
        RowBox[{
    3 V: J; K: W/ I, j: a6 |4 l     RowBox[{"-", 5 e) O3 R4 I. \" `
          SuperscriptBox[+ V9 X3 q2 z' a
           RowBox[{"(", # d# L+ D6 a; U0 ?
            RowBox[{
    , r# ~4 g( H5 G5 j* U! F         RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", 3 p* Q. I/ F6 I$ }
         SuperscriptBox[
    ) s" o( N+ g/ ~) u* F! F1 e      RowBox[{"(",
    * y7 o" H% \: i1 W; g2 v# X       RowBox[{4 P3 P" w7 c& f3 t) \6 L
            RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
    + F9 Q+ v9 N" e     SuperscriptBox[
    " z4 L) |0 v) X& P      RowBox[{"(",
    - g2 L3 b" G8 u  q7 z; I; L% e7 x% C6 i       RowBox[{' Q" Y* ]4 z6 z# B/ U4 U" k2 g
            RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", % r, G8 V$ p# T
         SuperscriptBox[4 G. X# v. N1 `( c
          RowBox[{"(", 2 h  J# V; \: G9 y2 L
           RowBox[{3 t+ G% X. p/ \3 S: |1 x
            RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
    , n( I9 R% m6 Z# X9 |! S$ f     SuperscriptBox[
    8 s; x) {4 f/ s4 _7 w3 G5 h  I      RowBox[{"(",
    9 u( n; n# P* U$ O       RowBox[{
    2 \# I+ C: @! }+ n; K9 `. F        RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
    4 q! o5 k  J4 }/ p. H3 \, x. v     SuperscriptBox[
    ) t" i) O( o  b: _6 ?4 ^      RowBox[{"(", 4 O" V) O/ v' Q" i7 ~3 I
           RowBox[{
    ) k# Q  Y3 V- M5 g3 i& S        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
    * |3 w. Z2 Y( Y" M     SuperscriptBox[" G8 N2 x( G/ }% H" q. k
          RowBox[{"(",
    : y6 M( Z* J" R4 P3 I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 3 {6 p- ]  f* V1 g- e9 y
         SuperscriptBox[
    9 j" r2 R5 |9 P# |# @      RowBox[{"(",
    2 s* a5 M" b! f; T       RowBox[{
    7 [! ^! t  B8 z6 z        RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
    $ s5 z0 i1 e$ B+ B  J     SuperscriptBox[
    9 t  j' c( |+ `      RowBox[{"(", ' E* p  X/ ^- E8 `
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], $ N- D/ Y0 _) Z! B6 K- b! d5 r
        ")"}]}]]], "Output",  U3 s. S! z( `) t: u1 s. f6 E
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]4 K& K+ d4 y; S% P2 ?! ?/ s6 g, {
    }, Open  ]],* B7 p% a5 a9 |7 M: J7 q, M
    , J2 X8 G) ?! k2 J; z
    Cell[CellGroupData[{& F9 Q' h$ C1 s' y9 |) ~8 s9 d9 i

    6 T' K8 q0 A5 iCell[BoxData[{
    ) B4 I  f; o* V- x( p% S2 m( Q$ M RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]",
    # U" W: t: D# f RowBox[{"u20", "=", + \9 m. }6 t( b# w  N9 w* h. Y5 M
      RowBox[{" _7 p! Y+ W; I1 K
       RowBox[{"Exp", "[", ; d' K* I/ n5 O* f
        RowBox[{* p' b7 T3 [. S* u
         RowBox[{
      x, b! b( K3 m: z7 C" ~8 J      RowBox[{"-",
    ) j/ e9 }0 e  n2 u5 B       RowBox[{
    / _0 i, |, S7 a2 T2 V) Y        RowBox[{"(",
      ^: x: H, B* S: x         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ' Y' U% q' T0 Y. `7 Q% R3 d* W! P& T( m        RowBox[{"(", 2 ?9 z) T( |+ S0 O- k% M; Q
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],0 U. Y5 y8 ]6 F
         "]"}], "/.", "DeltaX"}]}]}], "Input",' q% `  T) b+ ~
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    2 ~: ]* V/ y; j7 Z2 u6 h  X; Q9 U  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
    1 k3 a, `2 j( C5 Z- Y2 K  3.57796159382047*^9}}],
    & w$ H& n+ M" |
    4 ?& [: y4 T9 y# d) M6 {Cell[BoxData[- C7 m; f+ ?) K+ l
    RowBox[{"{",
    0 U% o  r. [- z  RowBox[{- ]+ E8 n5 a! N" S
      "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",", ) b$ E8 [1 P4 u, ]0 P  m8 R
       "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
    2 S* v& E% u( D' s' i/ \  "}"}]], "Output",
    5 k7 A7 P' e2 [9 k CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],4 H/ ]' o. I6 \
    * F) s6 P+ b& S1 D
    Cell[BoxData[- k& C5 {7 I4 c$ k( ~
    SuperscriptBox["\[ExponentialE]",
    , h' t  S4 I# Q0 \5 f  RowBox[{"3.141592653589793`", " ", 9 O1 d0 q+ I( `% k0 Z% @! N
       RowBox[{"(", 8 ?& n' j$ p# d2 q
        RowBox[{
    6 `( O2 g8 k  U" u     RowBox[{"-", " m8 a7 _0 _9 C' w, y
          SuperscriptBox[
    ' Z) ^( V& R4 M; r& F       RowBox[{"(", ; ~0 k/ B6 W, `. G/ z3 k
            RowBox[{& R9 x7 e- x' k2 v* w- S
             RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
    4 v4 |4 d- F2 p7 A$ a* d     SuperscriptBox[
    3 @/ T1 S0 f' t% \' H      RowBox[{"(",
    8 @+ `) K& z+ G3 }  `5 C       RowBox[{: U+ @7 @  i1 {# B9 v7 n6 Y
            RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",   N( [# o5 G) \- J! R
         SuperscriptBox[
      a7 e  @2 m9 u2 y9 |      RowBox[{"(", ' k) u1 n+ U& |  C; ]! A
           RowBox[{6 s+ N5 N5 ^8 @8 ^
            RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", + Y4 x9 F8 s9 @
         SuperscriptBox[
    6 L9 [: J  C* Q. e* \5 j% d+ z      RowBox[{"(",
    * J8 c* q$ n  R; r0 {, x% }7 A5 ]  c       RowBox[{
    0 O2 m$ a' r1 I9 ^3 N% c        RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", 6 @9 [& E8 H6 ]2 L
         SuperscriptBox[- b) W! W& p) A* o- o
          RowBox[{"(",
    " z+ ~4 s$ E5 B" E0 @0 {- u       RowBox[{
    ; m/ T7 Q5 R+ a0 x1 g- l        RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", 7 _5 R: C9 G; q# o) I
         SuperscriptBox[- F9 ^& O) l: A5 {5 m3 u
          RowBox[{"(",
    % j+ \6 U- Y- S8 q       RowBox[{% q7 o! u2 ^/ b6 ~8 M
            RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    : v8 [! q) g4 S+ R: {& a     SuperscriptBox[
    9 |. c- C3 V/ L% g5 V5 ^      RowBox[{"(",
    & ]' r9 P8 L0 V6 L5 }1 P4 A       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    $ y5 h8 `! G) B* S     SuperscriptBox[1 A$ E: A1 R- a3 C' c9 M0 i
          RowBox[{"(", ) \5 M; S5 I$ x3 \' Y/ R" }" N
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ) Q; P' v+ L. N7 G- U* {
         SuperscriptBox[) r# A, m) [1 S5 Q( l
          RowBox[{"(",
    1 \" ^  y+ I* m( x5 b8 L6 C; U8 b% \% ?       RowBox[{
    " W: t0 d# w, h; r! Q' s        RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], 9 j% ]5 }0 A0 \- p# r+ O# Y1 W. F% C5 u2 w
        ")"}]}]]], "Output",% q( ]& A8 ^( \
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]! p, U' q  l$ R6 [: _
    }, Open  ]],
    . T3 x  U* i+ q& R6 [  V& I( T6 s" p: e6 a( v
    Cell[CellGroupData[{
    ) k! {) y5 h) A8 l
    # P/ y- R% a- w6 e! C) Z0 RCell[BoxData[{- e: @7 q7 v' n/ T/ I
    RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
    # D4 T! ]. g( W RowBox[{"u21", "=",
    9 `! x# f9 ]. b* K8 _8 a9 I0 ]7 o  RowBox[{& s" t1 w+ y8 j, G& e
       RowBox[{"Exp", "[", 1 s  x$ Q; t* s$ i8 w1 Q* e3 r: r
        RowBox[{
    ( \, T* U5 P6 C+ l) T& v* ]6 ?     RowBox[{
    + X. G8 T0 x8 e5 g2 z      RowBox[{"-",
      f* F2 \. W$ D' r: j0 |% D       RowBox[{- f0 E% J2 N- C
            RowBox[{"(",
    " s6 z5 W! j# T3 q         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    0 q( \; P& x/ S7 l1 X+ K# b' ~        RowBox[{"(",
    ( [' q; J! D* o* F5 R2 X         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    4 W: W% S5 `2 B; {6 f7 G# L# Z$ \     "]"}], "/.", "DeltaX"}]}]}], "Input",' E$ u5 e& ?5 F+ ~: [' K' Z) s
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    1 e. a3 s* U+ T  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9, % G, \& s- L. t# \
      3.5779615991556787`*^9}}],$ P; k, a' Z+ s

    ' A9 y4 H5 x# W* y6 G9 Q* KCell[BoxData[) I" F. _; [8 a
    RowBox[{"{", 9 _9 j  h) Z" b. u9 M( l9 L" {
      RowBox[{
    : h% c4 g  {3 a7 o* I; v9 u  "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
    + F( d4 ?4 g0 m   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}], ) E1 D- f7 M/ ]  \. b( g1 u
      "}"}]], "Output",
    " E; S% d' i0 z  ~4 r CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],( ]% n9 X6 S; X
    ) i1 T: p: O: x: ]
    Cell[BoxData[/ m) ?8 j/ |7 {( E0 u+ z0 z& C8 n
    SuperscriptBox["\[ExponentialE]", 4 ^+ r7 C$ I) |% b6 P! j% \6 Y
      RowBox[{"3.141592653589793`", " ",
    - M& ?/ d- N' J. Y% R: E; T   RowBox[{"(", " }: ]' L1 h: o, r1 |/ h& c
        RowBox[{
    ; \$ X5 |/ T% k5 g/ ^9 p     RowBox[{"-", 3 L; X. o+ \: X8 u2 _& P  D
          SuperscriptBox[
    & I: e1 m! K2 [. V       RowBox[{"(",   Z4 e. _6 m/ V1 ~& _  m  u
            RowBox[{! M, e1 A7 _) w) M
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
    2 s; f' ~0 Q4 V' A5 T     SuperscriptBox[
    ' i( J1 O- p. b& I      RowBox[{"(", 7 T/ X' c1 N/ a. h% @. N2 r
           RowBox[{
    + ~8 X8 u# i" Q) x7 b        RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
    $ G3 Y& p1 c- i& s* d* u) z     SuperscriptBox[! _9 T8 ?  W$ @" b
          RowBox[{"(", ( Y% z; d3 M7 S2 W5 a8 Q
           RowBox[{
    3 E7 ]0 D. O5 T2 O        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
    7 d# o5 J* Z6 b' {3 Z: a2 U     SuperscriptBox[
    . `% `: W: ]7 `      RowBox[{"(",
    & s/ N$ s$ S1 \7 q       RowBox[{
    7 C3 O- O1 z8 ?0 x& E* Y7 l4 k        RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", * E8 Z5 Q0 Z2 L
         SuperscriptBox[/ j1 f" W/ S5 N* a8 N- }5 z
          RowBox[{"(", # E" i& u) q$ Z
           RowBox[{9 d: S' r! ^* }1 _8 z
            RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", / \( a! a9 {: \" x& I
         SuperscriptBox[7 \* F) a- X6 R3 Q. c8 M5 E
          RowBox[{"(",
    $ v' l& H4 w2 L& r( n  o# q; [/ R       RowBox[{6 n% Z% E5 [' X
            RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    . Q2 a  H9 x3 p     SuperscriptBox[
    - {+ b* p* o( I      RowBox[{"(",
    5 O1 a  \3 ]" d, F0 w: c" c       RowBox[{
      x# g! J8 H: O: P        RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
    $ w! B8 Z3 h8 @( f  n' V     SuperscriptBox[
    ) k; D  Z/ A4 ~/ L, d: ^6 R6 w      RowBox[{"(", 7 d5 b( p. U7 @5 g- O8 s
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    & M* d/ D9 i4 r3 S0 \8 b: P     SuperscriptBox[
    $ V! R5 K, |4 Q  i5 z      RowBox[{"(",
    # g* s7 F- S6 M" |5 x0 J       RowBox[{
    + k: g  P2 o6 g        RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
    % a' g$ h; _, z  N0 C! t" P    ")"}]}]]], "Output",, v0 Z0 U8 w$ n" X9 u
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]5 R/ {, w4 L( E& p: z. F
    }, Open  ]],9 f+ ]% k: J9 l0 H- M% n/ J
    . x) [; g0 `' f$ B8 f
    Cell[BoxData["\:62df\:5408wi"], "Input",9 V1 B& H9 {# ^' b7 h" p$ f
    CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],
    + G; A8 a" O# H' [4 h3 d, R( d4 g/ T* N. a  ^3 {' l
    Cell[CellGroupData[{
    9 Q" o5 E5 V& \; Q" a) l  G
    9 P6 ^; a4 }" Y0 p" [4 z9 j$ }( H! rCell[BoxData[
    , ?* v  L1 j' P; ` RowBox[{"y1a", "=",
    ; c9 G: q5 i' s0 Q8 b  RowBox[{"Table", "[", , r1 P4 `( k8 A4 w# |- E9 B7 Z
       RowBox[{"x", ",", 7 y! E. r7 u: S; t+ d8 z
        RowBox[{"{",
    : `5 L9 S8 u1 K1 }4 R     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    + L4 v. a( }/ A7 a$ x  l: \5 c CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    $ u0 ]' [5 L; Y3 Z  3.5779226649375*^9, 3.5779226810625*^9}}],
    ) ~9 ?$ {4 H/ |6 k% B: V% l+ ]$ b+ L$ i  M0 W9 O
    Cell[BoxData[5 F" n# }+ Y; |1 |$ a
    RowBox[{"{", + w* b7 d5 @8 K; k& Q& Z
      RowBox[{
    4 a- j% d* f8 H# p. J  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 6 u+ z" [9 q- i) f
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",9 w0 x- W) i& D1 \0 P
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 1 g1 V7 q6 Z& Y9 j' ]+ g) Y7 h
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    / h  d. Y0 b4 L' C1 g. Z( o3 v   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", % Y& [" k% F" U! m7 P
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", ' c: R* f5 Z7 R# V
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    ) V/ y, K& ]" k   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", ' s, v- w0 ~0 {3 U
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
    2 D9 q2 j) K. c( G  "}"}]], "Output",
    7 E+ j9 [1 O5 @4 v7 \( E5 s/ M( Q1 S CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
    : t' h3 y) p5 F7 p8 x- n  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]8 S& r, X3 a$ ?! v' n: V
    }, Open  ]],+ w5 M. X0 r" \' Z7 ?9 {2 A
    ) I8 f$ {1 G3 u" p2 w9 ]
    Cell[CellGroupData[{" C+ n$ O6 x1 e3 t/ K( m
    ! t, ?3 `. X" `: Q' B) s# ?
    Cell[BoxData[
    ( m# p! t3 {7 y* J3 x RowBox[{"Data", "[",
    * g4 e# W/ }4 F3 \! x  z% k  RowBox[{"[", - c, h! O* z4 v4 t/ R& `. X; f6 i
       RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",) I+ l' [" i* v
    CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {, d* \0 K2 ?  H; q# F% B: _) P* w+ R
       3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],1 b4 W6 r1 F* K* T

    / h* o+ n+ [" kCell[BoxData["0.899882`"], "Output",
    + |: l7 _! M, y  ?9 y- X( K CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
    / s0 B6 A  ~0 E4 g/ R   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9, 2 k2 k1 k  M/ E
       3.577961929080654*^9, 3.5780123419375*^9}]# B, Y- m  \1 a/ I3 H% V/ I' D
    }, Open  ]],0 P& M8 R" X) e) K! Y# V$ q4 {

    7 K) Z2 K/ a9 P+ c& n5 GCell[BoxData[
    $ T$ d- Y6 G. J1 J7 h4 L3 M RowBox[{"For", "[", " ~! a# f+ ?, Z3 ~' ^
      RowBox[{
    : B9 C0 N- [/ X3 _+ Y/ i   RowBox[{"i", "=", "1"}], ",", 2 h. @3 u. @* c7 F6 n/ A6 h3 w4 F
       RowBox[{"i", "\[LessEqual]", "60"}], ",",
    , G3 O  y3 M& v2 u+ u( w   RowBox[{"i", "++"}], ",", / K' Y' k* V+ B! E
       RowBox[{( y. ?" ]- d; q1 ?
        RowBox[{"y1a", "[",
    2 r, Z  ?6 l5 D% h) w% G     RowBox[{"[", "i", "]"}], "]"}], "=",
    9 c2 P) V$ b% y, E0 p  A    RowBox[{"Data", "[", & U$ f9 ^$ m* D
         RowBox[{"[",
    1 z$ m6 d: G9 ]      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",7 l: m3 H9 E' E: }( K* Y! T
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {7 I1 g8 H. w3 Y/ o8 n9 o
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    4 u/ _- M, p! \3 W& J" ]) e! H   3.577922923203125*^9}, 3.5779588839702806`*^9}],
    $ D5 Z9 D) T% e2 J# s! E8 M# X6 b* ]* K* M
    Cell[CellGroupData[{
    ( b) y2 Z* h* a8 W+ a
    $ l" S0 p; a3 b- [+ a6 |- sCell[BoxData["y1a"], "Input",( d' w; U; S. A
    CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],
    ' n0 P" \) c: L: V4 n& _4 W  e* [" h9 i$ ?" _- N
    Cell[BoxData[8 F# Q3 Q  h/ d% e) D5 q
    RowBox[{"{",
    / m! E  K2 y# b9 w( `8 m  RowBox[{/ T- D$ C+ A; H6 H5 S0 k
      "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",", : Z  h0 |' A9 r  j- S& x6 n
       "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",", : E% ~: `5 o5 P# o8 @
       "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",", . l3 O) ?& z1 R# h: t: J6 \: s* y
       "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",",
    9 G' d+ U0 v) G. D$ t, }   "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",", - o9 Q4 b2 T+ a$ T$ i4 M
       "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",",   ^5 @! ~* k/ ]) q& _# g! w; z1 m4 V% _
       "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
    + P- h. Z/ r* ~3 c# k   "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",", 7 M* |2 K( b: U( Y$ L
       "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",",
    ) A, O1 K: `% i* R1 p% y+ Y   "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",", 0 ~$ }2 y- ^  X( @! Q
       "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",", 6 T( |6 J# D6 J$ s8 z
       "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",",
    $ i8 N# I9 K. D1 B   "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
    + G% i; h3 B9 v  ^) K9 k+ j   "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",",
    - u3 z# ~! t; |( E8 u4 E3 `$ Q   "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}], ; l) s+ l/ ~( F. Q& y7 e6 h
      "}"}]], "Output",
    4 {$ F6 k0 M3 z6 ?. A, ? CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
    5 v5 `, Z$ x2 m9 y  3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]8 a$ R% n+ {4 ^$ \# _! b
    }, Open  ]],! u8 l& u% _5 l; N) F8 m* X

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

    使用道具 举报

    琳123        

    1

    主题

    10

    听众

    296

    积分

    升级  98%

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

    • 签到天数: 75 天

    [LV.6]常住居民II

    自我介绍
    无

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

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

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

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

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

    ! X2 B4 Z4 p7 n1 s0 v$ yCell[CellGroupData[{" `) i/ u! h1 E( |5 H7 O$ ~- N( b

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

    0 _* A, L0 O( Y6 [4 p* J9 YCell[BoxData[
    - t" T: ~7 P: t# ?' e* w RowBox[{"For", "[", * d3 a) Q$ K( P
      RowBox[{$ }& t0 d* f2 f5 ~+ e0 F
       RowBox[{"i", "=", "1"}], ",",
      r' F7 W) K1 r0 m3 [   RowBox[{"i", "\[LessEqual]", "9"}], ",", 2 E$ \# b' ^- R. l2 }# g
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", $ N9 M, ~9 q, g1 k& c& [
       RowBox[{
    / t9 J5 B0 D' v. c1 A' L3 `    RowBox[{
    9 |0 g3 X5 a/ I     RowBox[{"CM", "[", & D% g9 |; S" Y: \$ F! E. Z
          RowBox[{"1", ",", "i"}], "]"}], "=", ' i# w4 g1 p; c7 B8 k  r: `
         RowBox[{"Data", "[", " o4 L- F2 }7 E/ [# I
          RowBox[{"[", ) u& a+ V8 d  u# D
           RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}], + e/ I5 ]& H3 u9 L
      "\[IndentingNewLine]", "]"}]], "Input",# O' {6 f" F; B& d; {) i9 ~
    CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {
    . m7 c$ l' z( @   3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9,
    " C( d  h$ f1 C* o4 {   3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9, 3 f" k& p) C" }! s5 s0 S
       3.57791344209375*^9, 3.5779588070933466`*^9}],0 ?% a9 _$ r6 P5 U8 @; |2 T+ R  C
    $ O3 D! x) X! K+ h! r5 I' g
    Cell[CellGroupData[{  ?  O" D; y2 `' f7 L

    + O4 D, L; R3 U! a/ GCell[BoxData[{( P8 j( t4 J6 x, @* t
    RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]",
    ; S1 J1 i3 G" ]+ b3 Z RowBox[{"M1", "=", "1"}]}], "Input",
    , H) i0 C; J! f& R5 P, m- I CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {
    ; G7 O1 n8 F" b) i1 g6 W; g   3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9, . e* i; q; [4 @0 J
       3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {
    " c& D2 S+ |/ K+ x   3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9,
    - y) F- X3 K0 D# i   3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {
    : z" s- E& e1 x4 N* |   3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {
    2 l: c4 c. T4 x7 t   3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9, 8 \. e  q. ^4 f- }2 x3 |( `5 R1 D
       3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {
    0 f6 y2 h) I" }  Y$ v   3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {! n# @" K6 o. I* u, ]5 d
       3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9, , e. y) ^: b7 ?+ h
       3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],
    . d  K  T$ @; }! F5 ~( R6 |' a; N8 i$ I5 V2 N$ v( E
    Cell[BoxData["0.2`"], "Output",
    0 s0 l) x) z0 H" r* ]! N CellChangeTimes->{
    6 \. q+ ^* g1 C  y7 j  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
    ( B7 l1 J. ~  O4 [   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {7 O7 D+ u" _1 E& I5 `) g
       3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
    $ j5 ~' e+ r3 f/ C% }   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {# e2 A, I' t, J( d$ h
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
    7 x3 M9 |+ H- G% Q1 @% |4 p- ?; p   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    / Z7 g3 {0 e7 }2 ~: ~: P   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
    + n4 C3 o, h8 a8 b8 X5 b   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {7 ?. S/ V0 P9 p" I
       3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
    6 v( r6 k$ L6 o) }   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, 3 J' T# k! p, Y7 C, C' `
       3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
    . |$ v5 n' Z: v  b   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
    $ _$ E8 g1 Z* U7 J& q+ x, c$ @) a   3.577960510686717*^9, 3.578012149296875*^9}],, o) k7 S0 }9 b7 i1 ~2 k

    ; |. s1 u- f7 k2 e' ?! s+ x+ \% Y+ _# HCell[BoxData["1"], "Output",# m/ V6 p# ^1 V) d8 }
    CellChangeTimes->{
    ' L8 g/ E; C% }6 H  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
    / z% o8 g& r- k. C. B2 T' R4 ]# x   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
    6 C& N: h6 |4 J+ L' U, L7 H   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, " Y6 V; J0 C# f+ m2 Q
       3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {4 q! N- w& h. l, G. ]3 x( o
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
    ' l3 O( \" t5 M( T# J# p% O% b, k) ?& ~   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    " q! o# S' }) |) Q  U   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, % O  P3 m/ y: H% n( d! B8 k
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {- f* V. j- ?* D1 c  R7 ?% H3 Y1 L
       3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, + s0 u8 q( U0 d6 U; u4 M1 Y
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, / u& S9 j$ U, B/ F* W
       3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
    1 ^9 l: x7 i. Y4 B) `   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
    % B6 Z' W/ u1 @: e. x# K4 [, ^3 y   3.577960510686717*^9, 3.578012149296875*^9}]
    ' u* E$ b+ h3 l- a}, Open  ]],
    ' U- D9 f" q, w; r& J: E2 p
    " h, O/ ^: J0 W7 r1 t* W1 wCell[BoxData[/ R9 U5 n' d6 }( Y9 k$ g) N
    RowBox[{"For", "[",
    & P: n* S2 N; }% o6 F7 _  RowBox[{$ l7 d! {6 @& d4 {3 R7 S+ R* v
       RowBox[{"k", "=", "2"}], ",", : ~1 w' [/ P5 s+ Z* V2 Y2 S1 z% I
       RowBox[{"k", "\[LessEqual]", "60"}], ",",
    ( U, m2 T& @8 G# U& A9 d9 O3 {( Y   RowBox[{"k", "++"}], ",",
    * k# c! j% d4 W$ \& r. F: \* ^   RowBox[{"{", "\[IndentingNewLine]", 4 Z$ T  w- V4 [9 z1 B
        RowBox[{3 D# X# ~2 t8 j2 g$ {# s5 Y
         RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]",
    ; L0 G# {, O; h& T/ D5 Q4 v     RowBox[{"For", "[",
    . _. T# w& S3 C9 q4 R      RowBox[{
    . t: N5 K1 J. I. c6 u+ ]       RowBox[{"j", "=", "1"}], ",", - u& G6 d& K# V, u( R: W$ {. ?0 X! @
           RowBox[{"j", "\[LessEqual]", 3 F; K6 S3 y! e$ z
            RowBox[{"k", "-", "1"}]}], ",",
    & K. q* A7 }: ^( H       RowBox[{"j", "++"}], ",",
    ' [* v& a$ a0 V       RowBox[{"{", "\[IndentingNewLine]",
    * z2 k# ?3 Z/ F3 W        RowBox[{
    . a* ~' ?5 ~4 o! z1 a  t         RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]", 6 Y3 z2 O3 c) J" K2 b) U6 X
             RowBox[{"For", "[", $ U5 j( r6 s7 F4 g3 h$ `0 M. i
              RowBox[{
    # h$ a* f9 l5 o/ b% t: b5 ]- a           RowBox[{"i", "=", "1"}], ",",
    3 u% K5 e' r6 Q4 L9 c           RowBox[{"i", "\[LessEqual]", "9"}], ",",
    # V) V6 S/ r7 b           RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    ( _, x+ B, E3 _( S( F6 q- P           RowBox[{9 l+ D4 g: u; |3 Z  }
                RowBox[{"r1", "+=",
    1 k0 ]# ]% U  M. \' g/ x' P             RowBox[{/ u! k/ B" n% v6 y, G+ C( U9 q
                  RowBox[{"(", 9 }# B3 c& i: h/ P; v9 j
                   RowBox[{
    ( b3 N- f1 d3 g                RowBox[{"CM", "[",
    1 y  c6 A/ d  _' ~' W- d% r+ }                 RowBox[{"j", ",", "i"}], "]"}], "-", 9 E6 l4 q# a, O. @- e
                    RowBox[{"Data", "[", ' D2 f! {! v: o1 @( c+ }. K
                     RowBox[{"[",
    7 p% C# @/ s* P1 j4 q                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
    : K' T" H" n! {0 [( _              RowBox[{"(",
    , s/ G; n6 Z! b8 p! ?               RowBox[{
    ' ~4 ?+ `/ j% A! B+ N                RowBox[{"CM", "[", ) E* \& ?+ x, V0 d  {
                     RowBox[{"j", ",", "i"}], "]"}], "-",
      R2 T4 H/ j7 R, C7 P                RowBox[{"Data", "[", * J& q' G9 u% A9 j
                     RowBox[{"[",
    : y/ P" M5 v8 V  W9 g  M                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],$ v. O! f2 z$ m9 y
               "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]",
    5 W1 N* F+ u; R( R. G         RowBox[{"r1", "=",
    $ K8 H( J. d; G7 x5 Y3 K          RowBox[{"Sqrt", "[",
    7 |3 S* x, Q: c! O! \3 L           RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]", 9 n( u, k# {: e- k% ^0 i# \' @1 _
             RowBox[{"If", "[", " ", 6 x# P  `) Z1 o  O9 x0 \4 n
              RowBox[{1 @/ [7 M! j9 z/ V
               RowBox[{"j", "\[Equal]", "1"}], ",", % F- w- A8 ^5 f8 I0 i, h* B$ A% J1 \5 h
               RowBox[{"rmin", "=", "r1"}], ",", ! h- E( P' f+ c/ |+ r
               RowBox[{"If", "[", 3 d. N: [  E4 j4 O  W6 X$ ?- E
                RowBox[{
    8 e  m5 y. E9 c2 d8 v             RowBox[{"r1", "<", "rmin"}], ",", 4 R& f% S# [: _- w
                 RowBox[{"rmin", "=", "r1"}], ",", ! D( k' B- t6 n9 D
                 RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}], : [. t( N# q) }8 G& e) w
            "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";",
    % ~- j" p& x/ m/ m     "\[IndentingNewLine]",
    5 a' j7 g5 d' ]- z     RowBox[{"If", "[", ! h" ?2 @+ l" Z3 n; [8 i
          RowBox[{
    . B2 n8 q6 n  i9 P+ N       RowBox[{"rmin", ">", "r0"}], ",", . L5 q0 H, b) r% L
           RowBox[{"{", "\[IndentingNewLine]",
    3 R& j* i8 ]0 [7 p; F        RowBox[{
    . r" s! z8 A0 _* g         RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]", ! Q$ a7 |# y8 |, k7 m  E7 G6 M" Y
             RowBox[{"For", "[",
    & D7 b/ Y  \- F2 J          RowBox[{, A$ E! e4 W2 T! ]3 w* F( ?
               RowBox[{"i1", "=", "1"}], ",",
    5 [) x% K( m. T4 u6 l           RowBox[{"i1", "\[LessEqual]", "9"}], ",", 0 k* I$ l* `- y) t' `
               RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]",
    ; w4 C' C+ s; d4 P0 g; T           RowBox[{+ U. D/ p6 l. V& Z; W! z
                RowBox[{) f5 s* t* e* l8 h- r' M
                 RowBox[{"CM", "[",
    " ^. C1 h7 L; h1 W( T              RowBox[{"M1", ",", "i1"}], "]"}], "=",
    4 F) H: r# J: z$ F- V/ J$ _3 V) y             RowBox[{"Data", "[", 4 O$ S4 E3 P1 o1 b, Z; R0 G
                  RowBox[{"[",
    / V2 s2 P1 H. x+ J* R2 U& Q, m4 @               RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}],
    5 r, a7 s# a  i6 b9 _  R; l; P          "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",", 2 ^# b( L% {2 r% H9 _; e) |; E' s
           RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}], 8 L* p& y5 u0 I4 m! X  c& o' }7 |. O% F
        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
    9 y/ H) U3 q( ^ CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {; o1 r# {; p6 O0 O3 @
       3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9, ( t1 w- {# `9 }# t
       3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {
    $ c8 n4 v$ O8 F* ^3 q$ I; C7 H* B+ B   3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9, ' d  K8 n& O6 y* c0 t. {
       3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {
    % T4 j) X2 j, c3 w* ]! X3 w+ R   3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9, ) `/ Z( q/ k( V: F* d& ^
       3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {
    # e* W* X$ C" Q( H+ n   3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9, 1 }0 Z7 k/ d6 D/ S
       3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {% X3 B3 s8 Q8 }5 F: w! \8 l8 Z
       3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9, 0 Y. F$ R1 j0 a7 _
       3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {
    0 o( c, Y" c1 u* P' g. _9 m: ?   3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9, $ S. Y) W# W, G9 d+ R7 ~/ V- o2 Y
       3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {: f' t) Z: j9 Z6 G2 [2 A8 O1 q
       3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9, 8 C' \( I$ E. a, d- Q* O
       3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {
    9 M  {, J, a9 P' q4 e& I0 {   3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9,
    ( w" m/ }% @$ e3 B   3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9, 4 V; u0 J  I# ~: v0 ?$ `, k$ `
       3.577958821991373*^9}}],; x1 K- T# [3 C, N: X. [6 ~

    % k8 q( v  G5 P( W" ICell[CellGroupData[{5 [" M8 t. w, m! I9 t
    ( E$ `" L0 @; j8 g
    Cell[BoxData["M1"], "Input",3 U. e9 M$ {5 M7 [* |) A$ n6 |
    CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
    7 b: d1 t  N8 Z5 ], l: z
    6 u* {$ Z; X# x! {4 a+ rCell[BoxData["21"], "Output",
    . q! ~( q+ v" W  G CellChangeTimes->{- e5 p. f2 _9 ]% m
      3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {
    0 N+ o6 J2 z* [" p7 @1 _' a   3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9, ( P$ Z( H1 Q/ `* i8 s( U$ @
       3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {
    % J, L, p0 r5 q! u   3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9, . W6 n  z6 q  u- b. L6 y7 m- P1 w
       3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
    ( d" Y+ f9 L# H* T' u4 r2 T   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9, 4 \4 [" T: ~: O. }/ K
       3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
    # U& t! H+ s( E) V: E6 |4 k+ v0 p   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9,
    2 N2 p# P; k; X# |/ ]   3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9, 4 r- g! t% x+ k5 `, U4 X, d
       3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9, & P$ D# k0 t- @  J) P# ]6 K
       3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9, $ R3 B' B# e# C* m; d. V
       3.577960515600726*^9, 3.5780121541875*^9}]2 q. c4 h- H  H; {
    }, Open  ]],
    3 p8 ~* {7 i$ Q& |4 B4 b3 S- }6 x- H; k. Z) R3 x
    Cell[BoxData[
    8 r4 D; `& l' s# n# y" C RowBox[{% e+ w1 M, @' i: C) t# ^" J
      RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[",
    ! O8 G8 {0 c' P" j1 x: P, K) O   RowBox[{"1", ",", "i"}], "]"}], ) j+ {! x% R+ c
      RowBox[{"\:5230CM", "[",
    " P! A* C( s) s# A   RowBox[{"21", ",", "i"}], "]"}],
    * s+ O0 E' A6 }: {  "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\* B0 C0 W, @, A, E- ~
    \:51fd\:6570u1\:5230u21"}]], "Input",
    3 M" P* |  \+ ~8 [9 [+ i3 T; f) ` CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {3 r5 P6 |' T# h- J: [2 V* J) p3 i
      3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9, 9 Q1 F. F! Q, Q  L' f3 Z& v8 {. I/ {
      3.577960526583145*^9}}],
    ) ]0 n' F3 P" g; K$ A1 ^8 p& _/ g
    / E& ?* S0 T# F' }/ yCell[BoxData[
    ; d2 e. d$ c+ [- u7 }6 F' w RowBox[{"Clear", "[", "Delta", "]"}]], "Input",$ |/ |" e" B0 ^6 _- T8 s; {# X
    CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],
    5 ]; u4 T: R' e( `1 X+ R" `: f
    1 }( ^" Y# }7 E% v8 |' j& k5 xCell[CellGroupData[{
    3 i, v# z5 I$ s1 y# a6 \
    " M  a3 i9 t0 t0 [$ rCell[BoxData[
    9 E0 w1 l' z8 R/ f3 f4 z9 b RowBox[{"Xa", "=",
    ' s2 |9 Q6 ]4 U& O- n- S  RowBox[{"{", 6 i' D, O5 e+ y) ~
       RowBox[{
    0 m+ ~4 m' R3 h" \6 C! e( m3 x" C   "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ) z  N8 k0 `% c) c* Y8 A5 I
        ",", "x8", ",", "x9"}], "}"}]}]], "Input",
    ! F# n9 p' v" Y  h/ [3 g5 @ CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
    - J4 |8 W# D1 y# m$ l4 f: T5 R" w: @( y
    Cell[BoxData[* `! T. L: t: L
    RowBox[{"{",
      x  R% W0 A& J9 W! D* b5 [  RowBox[{
    : s$ [% ?' r; Z/ J1 Q, r5 {  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",$ X0 s, c4 V) w4 D5 A& y4 S
        "x8", ",", "x9"}], "}"}]], "Output",
    . t+ u& ]1 N9 s* S9 w, y CellChangeTimes->{6 I, o$ V3 R6 M7 v# D8 ]* t
      3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
    ( i& h! z) a% G2 r5 H   3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9, ; E! G: @0 o, t) b
       3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
    & e% e+ W# f' M   3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9,
    ' c% \3 A; S. w3 H* I) T+ Z* T4 Y   3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {2 T8 |! y3 a) b
       3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9, 7 ]2 X) p! |1 @0 o4 t
       3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9}, ; T6 F9 P5 P% A
       3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
    " e- R" c' n! i, z2 b   3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {/ D. P3 b+ H" N# }# W9 ?
       3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9, ; J+ T; Q9 j8 W6 C
       3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
    4 {+ @8 G; C0 d+ y# C$ g, i$ f   3.57801215725*^9}]# |/ C! W, s0 m+ L; \& A+ k/ w" ^
    }, Open  ]],- }. h% M- t( A1 G# l5 d2 a! D

    / d* I# t" Q, j7 ~4 j7 o6 CCell[CellGroupData[{' n. ~: b  I0 {! X: k  ~

    7 D; d' o* ^* m' N- {5 K  |0 O+ rCell[BoxData[& d. P" r" E% d# s
    RowBox[{"Ca", "=", 9 Q; s6 t/ b! L
      RowBox[{"{", & x$ W- _- o) d3 _$ ?& z' ?: J* E
       RowBox[{
    0 ~, F6 u& s3 v5 P+ a( Z$ P3 l: x   "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7",   Y9 A) d, O: G" U$ Y
        ",", "c8", ",", "c9"}], "}"}]}]], "Input",4 v/ \$ H" M  n
    CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],/ a% q1 f; G0 ?) N0 d$ a. L& _

    % ^" G7 M  G* j! V6 F# ?Cell[BoxData[
    5 M, g, w. i  ^8 V. s  \ RowBox[{"{",
    ' `: P. ?0 N# h- S5 o, |* `  RowBox[{
    0 ~8 Y  j5 `1 A4 j& G  "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",4 _& z8 v% f4 o- ?6 W$ ~  U
        "c8", ",", "c9"}], "}"}]], "Output",% f0 g! ?, M' ]/ N
    CellChangeTimes->{( l% l) j" e! z( ~, `9 o9 X* p
      3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,   o3 R/ Y7 j* ^
       3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
    3 P; d+ g+ f, s4 }9 a   3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9, ! c* u5 F8 Z- t# C( C
       3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {, a$ c/ r% ^' G, R) m* F* k
       3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9,
    ' X, I2 N3 U) h/ l6 E- V   3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9}, $ p( Q$ ^8 ^1 I: {- w5 H
       3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9, 1 D9 g0 \' [5 D8 ]
       3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9,
    4 t( G4 o- |  z4 r4 H+ i   3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9}, . ?: B9 P# u) M! |0 |1 R3 T; e4 P7 ]. t
       3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {; C1 }4 z9 h: r- b$ o5 O
       3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
    0 g7 `( M3 V1 q   3.577961904604212*^9}, 3.578012158671875*^9}]% G9 H8 ~  K# ^/ Z! [, l
    }, Open  ]],8 E4 H* ?' v/ K  j

    & Z  x2 |2 ]8 B  U3 u. i5 q1 p) fCell[BoxData[$ E; q/ y: F3 ]9 \; W8 O
    RowBox[{"For", "[",
    ! h4 M3 n7 w7 s; }; A5 m5 [  RowBox[{
    . D* f& f$ s0 c  M! r   RowBox[{"i", "=", "1"}], ",", & p( Y, x' U; I7 J/ K+ d
       RowBox[{"i", "\[LessEqual]", "9"}], ",", ( k& t/ v; ?/ E/ n4 [. M; ?; n
       RowBox[{"i", "++"}], ",",
    1 a/ O/ ~! Y1 \% r$ P/ N   RowBox[{
    4 \: l4 H1 V% A& J    RowBox[{"Ca", "[",
    9 M0 V4 ]# X' G4 j- K' P     RowBox[{"[", "i", "]"}], "]"}], "=",
    . _9 r; k, O7 K    RowBox[{"CM", "[", 3 C- u3 R$ z, l3 r. F: W: M4 V
         RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    ) O% O3 r7 A+ ?% ]% n9 H& q1 E/ v; Z CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9}, 5 c; Q) F/ c( o; L
       3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
    ; E* I9 i  D6 X) a   3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9,
    - `9 |6 B" c0 Z6 A. ?& K   3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9,
    1 a- J: Z- k9 i   3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9,
    ! w/ ~' e2 F! ?. p% k* y$ M1 d% M   3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9,
    : N4 Y" K# ~6 B$ y7 T   3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
    6 F+ G9 t- p2 z0 a   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9, 5 y, z4 Z8 x' A4 H! f+ L7 A# N
       3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
    / B3 F6 R( J; ^   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
    : Q9 t9 C1 W7 L) z& J! N   3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
    % P: R' S. E" T3 m   3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9, 7 Z9 H& Q! D7 U( U
       3.577961906897415*^9}, 3.578012176296875*^9}],
    3 ]3 ^& t9 t( \" \7 U! y0 g, Y+ I5 }, k
    Cell[CellGroupData[{
    0 s% x1 B1 d/ `& I+ ~" @; h
    & H3 z' b8 n; @& w1 fCell[BoxData[
    , Q/ H! i* y$ X( _& M RowBox[{
    8 l& b5 j; w" Y$ ~  RowBox[{"(",
    8 X9 h0 \* v4 |. l   RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    5 A4 M- v, Z8 r- Y7 T' U  RowBox[{"(", 4 w9 n! E8 t% Z& e
       RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],
    ' P; B+ ^3 b/ `+ v4 x# X
    - U4 Y$ S1 h5 ?$ u" p# G2 _6 RCell[BoxData[
    ! W/ S5 a/ U6 F, S" z* [, T. Q9 @ RowBox[{
    ( x8 {" F, C/ x7 O4 `( ?6 B  SuperscriptBox[
    . A/ j: U9 U) ^( t/ H   RowBox[{"(",
    / a$ R3 o1 p' @/ l# g    RowBox[{* {+ M3 }# y: n
         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+",
    " S1 a' K. ?' T+ Z  SuperscriptBox[0 F$ K) d. t. u
       RowBox[{"(", % w& }5 T  M# V, A& ~: h/ M
        RowBox[{4 ^  N) I# i1 H3 [9 i' Q, j; q; t% O
         RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",
      J6 u8 L# B! q9 c" a1 s5 ~  SuperscriptBox[
    $ r* L9 M4 x& Z" U1 l! j* C6 t   RowBox[{"(",
    - Y& z0 M5 v5 ]9 A0 D    RowBox[{* X: X- n- J* B, k4 p7 }
         RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+", : I* E' @1 x. f! W$ P; n
      SuperscriptBox[$ U# p9 Z0 J, X
       RowBox[{"(",
    ( C4 `. s& L9 S+ K1 k- j9 J    RowBox[{8 ~5 `4 c( K! B1 J
         RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+", & I" E/ {" ^) M. E' K# L# }" ?
      SuperscriptBox[6 M& w6 S0 J* u4 y
       RowBox[{"(", # {5 M) l2 _' t
        RowBox[{
    ! }/ ]: W. f1 G     RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+",
    8 m. x& {. I+ T  U/ S6 Z  SuperscriptBox[; Q, }' v9 F; D% ^
       RowBox[{"(",
    ! l* B9 d" h: m6 y+ W    RowBox[{
    - }* \, v* D7 l- U1 l     RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
    " [# z9 |  p! _4 I) S  SuperscriptBox[: t, G( L3 J2 P$ I
       RowBox[{"(",   V+ d$ g5 G: ^0 O; R
        RowBox[{& `! [) x! I3 v* G
         RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+", + L1 K5 R, [; U2 J1 E4 o1 G
      SuperscriptBox[
    ' P+ ^# M  T4 H/ J  l% y$ G   RowBox[{"(",   _+ e- X6 f9 G8 d% k$ p9 V  f1 O
        RowBox[{" C# a9 K5 U  r' A' Z# w6 d/ x
         RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+",
    % q$ s8 B9 V& y  J( B: B( S8 z/ L  SuperscriptBox[
    ! U$ v) P+ H, ]0 i4 O' x$ ^+ B   RowBox[{"(",
    3 F+ r% @+ y6 x5 b" ^  H7 K3 X    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",7 _' Z! ?* z. r* h* L% B: D( Y
    CellChangeTimes->{' y: k* |' Z2 P: L( `% m& K
      3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, : }  c2 j, v8 G! Y8 \( V9 Q* V
       3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9, / Z, t/ ^7 ?' l: A) j: m
       3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9,   I- Q/ j6 N& ?
       3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9,
    ! v9 ?( }7 z1 D: F+ N, B% R   3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9},
    / e7 S& D9 H$ D! F1 m   3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9, # F2 A  ~' c: o) x  C0 j
       3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
    8 d8 M9 ]8 _. J9 k   3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
    9 |: j& }% F8 P+ a( u' g/ |/ V   3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {
    $ E2 E4 {# t! n' l+ X   3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {8 W& E! l0 [( R4 ^
       3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9, 6 V) L) \( @) D. F' [4 P
       3.5779618537169228`*^9}, {3.5779618846049767`*^9,
    " ?- n5 u& ?% {. q$ G; Y# T! t# Z   3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]
    * i$ h/ V- F% m/ a9 e% M; U- ]}, Open  ]],
    ! u) t7 ^: {& W! z+ K3 m. @# L, m: S5 Z3 @+ P' h$ X6 E
    Cell[CellGroupData[{
    5 X& k) \" T- E9 ^
    5 Q: f' S, k: B/ Z1 n+ _Cell[BoxData[6 a! ?+ p* L# w9 Y
    RowBox[{- Q# T( C' K1 E
      RowBox[{"Ca", "[", 9 i( E4 B; A  e
       RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",* O9 h0 H2 p+ u  l! W! ^. v
    CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
    0 U* P7 L, }/ Q2 `/ E* W  3.5779616465173616`*^9}],( d* h4 O6 a5 d  w( _
    - L/ W9 A( {5 F+ N
    Cell[BoxData["0"], "Output",
    ! d. [; s1 k& O+ c6 T- h CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9, + ]0 T2 W" u/ Z3 p# E3 h( U
      3.5779616484049644`*^9}]1 w$ |* Z: G8 w& N5 W8 X7 q8 O, x
    }, Open  ]],
    ' V7 W3 w" j: r3 ]( @5 m2 A- f; Q" D
    Cell[CellGroupData[{
    9 X7 C( R& u# q  o) d( k+ Q  m' a4 u% J' k5 w4 q" k
    Cell[BoxData[
    2 k4 j/ f, G- _+ T RowBox[{$ n9 i9 l5 f8 X
      RowBox[{"Ca", "[", # c0 h/ Y; l$ b' G
       RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",
    9 X* [- w* i( D' j CellChangeTimes->{3.577957376235614*^9}],# T7 j" Z3 u; S
    ! w" @1 C1 v. D4 ~, E8 ^3 @. d8 a
    Cell[BoxData["0"], "Output",
    : M1 E- A: O) d3 P* i% _  V/ E! e CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]
    7 u) c' L+ C. N2 Y; r}, Open  ]],1 c6 W  c, j9 F4 ]  t% N8 j
    , ^/ H$ Z) m* y
    Cell[CellGroupData[{, ?& U& n# u" _/ k) B9 D9 T/ T
    . ^6 m5 l0 N8 _& x* e3 B  I
    Cell[BoxData[3 L  }. O0 D( w: d$ Z
    RowBox[{
    - d; N$ L: J1 m9 a  RowBox[{"Ca", "[",   }, s. }! \! a4 w' J8 u
       RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",% R" {/ D# }9 V) J
    CellChangeTimes->{3.5779573112927003`*^9}],
    , P0 h- n$ `: M. L7 T
    # p. f! u( F  ?- `! NCell[BoxData["0"], "Output",& ?" h" c. c% j( I8 e& _; L6 M
    CellChangeTimes->{
    ) e3 j- I/ M+ d' K# z. E  3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,
    ; \/ E: q( ^: e" Y) ^. g8 o  V! H, @   3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
    - B& i1 _* P) D1 _7 w7 f   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9}, 7 I0 d2 n9 `; ~, B$ e! Y9 Z$ E
       3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,
    ' y( ]; X. H3 o/ B  K+ ]   3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9},
      A: Y5 [/ m" @- N, W* Q   3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
    ; X7 j5 W' m8 v/ k1 |% C0 W; [" p}, Open  ]],
    ; t: k2 {% ~3 t4 E6 `
    " x) H9 R9 o0 o; RCell[CellGroupData[{3 v1 k7 {( B  `
    3 A# |0 l$ E2 T/ y4 g" Z2 P% |# u3 P6 H
    Cell[BoxData[
    . C' I5 |3 U! c; \ RowBox[{. I) U. x8 E5 r+ c+ e) [/ m: R4 o
      RowBox[{"Ca", "[",
    % s- [/ M: {, ?% R   RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",$ f- o; t' y1 c7 ^( ?8 r# W
    CellChangeTimes->{3.577921461734375*^9}],
    8 Q' h3 ~& W/ V) e8 e
    ; n7 c- k. w; p! W: XCell[BoxData["0"], "Output",
    % }& w' C" F# P5 l* b$ W. _: K7 O CellChangeTimes->{- f- q/ T0 M9 f4 f1 u. }4 {
      3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9, ! F3 v/ _2 U$ w' E, I
       3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9}, 2 n& R( h& _: H7 e- Z  H# R
       3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
    & ~# h2 Q0 K/ }- P0 ?+ t3 j" Y3 @/ @   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9,
    ' E; [  f+ Y7 _3 ~9 i4 \, T" g   3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]: s) k9 }/ Q. t% Z7 h5 r5 O
    }, Open  ]],
    . o$ e( z: T/ P4 n: O) E* d+ p
    ! P1 F* p- t- X+ Z- Y- dCell[CellGroupData[{; o" N, i5 c: t# d. w* U( F- I
    . R9 n9 x+ `/ Y4 s5 F
    Cell[BoxData[* h7 L+ S- R1 I0 s  B* w6 L$ w
    RowBox[{7 k4 u0 d0 W! b7 F" b
      RowBox[{"Ca", "[", % w. a: G2 ~6 ?7 b* A- O% c
       RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
    * u0 J- ?) X3 l0 P CellChangeTimes->{3.577957303118286*^9}],4 T, b; l1 [6 M$ k# m0 A
    % Y0 B& i( {, m6 X
    Cell[BoxData["0"], "Output",
    7 S* G) t5 @1 G3 P3 t1 y, R# @0 n CellChangeTimes->{
    8 w, _4 B! C7 F0 c: `  3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {. |( V0 t; _: D5 h* r
       3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
    " ^. K1 ]( a$ ~# n. P, _   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9, 8 f, p; i, ]' u  C& X( f
       3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9, 8 A/ G% |+ j! {0 W
       3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9, , F& Q& F2 O. @" b+ o& x
       3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
    2 ?- ^1 q" @" @8 H+ M6 W   3.577961889378585*^9, 3.577961912965826*^9}}]9 F( q& @4 i* m' a" ]
    }, Open  ]],* Z0 ]( i) D& o. s
    ' R# q  C/ c8 m; P. R' S
    Cell[CellGroupData[{& b. j7 n6 a. e) U( `. E; f, y

    9 b; k2 X6 l0 \' {3 T3 H/ }Cell[BoxData[/ I) C/ Q$ {; [, ?6 a' W
    RowBox[{7 L9 G. ?6 j- L8 m! E  v, H
      RowBox[{"Ca", "[", + d' i; [. r1 c* ]) q, O
       RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",
    4 i! p0 D$ i3 w6 c% y3 u CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {3 A4 E3 f4 R8 |6 X, |* m
      3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
    . v( @- T! ~! P: [" _' M- ~- F) M  3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {8 D& D- f8 v, l5 T
      3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
    - k) x  l2 Q7 J  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {
    1 F# \" {# R" m2 z  3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
    & A- t6 O+ C4 o1 U+ Q0 }0 T3 b& ]7 ^  3.577921435703125*^9}}],
    # p- l# x( C4 M+ Z: V8 X: V/ X$ `
    3 s! q4 N0 V: M8 u4 H0 V- iCell[BoxData["0"], "Output",( d' w" j" F% j( N: p) c5 h
    CellChangeTimes->{
    * p5 L8 C( F4 |6 \. `6 y# i  3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {9 ?, d# A7 q8 k+ A9 ~
       3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9,
    ; p) h- ?! ?0 a0 x' _   3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {
    % W# m4 k" U# F: w' A" p   3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9, 4 b1 a, Q$ d: G: t0 Q; Z
       3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {" e0 U7 Q8 J! u
       3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9, / d6 E9 B7 x9 j: b: J
       3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9, , f% w# G& t, O1 l, `
       3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9, , h2 W' O! a5 a7 w% A0 d! \4 b
       3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
    % Q5 ^# U) l9 X% B; ~+ \   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9, $ V. V; ^% M; d$ D, h
       3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {) K: K; ^! g# W
       3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9, : e: K8 E$ v# J+ e! R3 `( e; y" H: w
       3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
    ' \  ^7 O; W$ \}, Open  ]],
    9 ]0 @5 D$ l  w9 q: q% b( y
    : [# t0 S! i$ ICell[CellGroupData[{9 [, g( w1 z& m: u0 X3 [
      z1 Y. Y, ~3 V1 d
    Cell[BoxData[
    # k# ~" E* A* c+ ]* [ RowBox[{"Delta1", "=",
    + B- i/ \9 P: O2 ~3 |; @  RowBox[{- J  U. T3 x- y
       SubsuperscriptBox["\[Integral]", : [+ Z. d" J: i  U& L, M
        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], " q# J/ M1 u& G
       RowBox[{- S# {3 z: B: f' n' ^
        SubsuperscriptBox["\[Integral]", 2 |* j1 x8 @* H  ^2 u3 h
         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    7 h9 J0 i/ G& {    RowBox[{- \% j# v+ A6 f$ u1 D! ]
         SubsuperscriptBox["\[Integral]",
    5 ]/ i# U8 j  {1 i2 I' K      RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], # n% F. q2 g1 |& |7 ]6 H& v& C
         RowBox[{" ?3 l, K" X* s' R5 \8 Y
          SubsuperscriptBox["\[Integral]", 9 |+ f5 _1 b5 o" s. d. E
           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ) o1 F, m' g# ?7 A  I
          RowBox[{
    " Y& A: z- P8 {# p7 ^: J% q7 B       SubsuperscriptBox["\[Integral]", ( D+ H( \' I# R: a) |5 A( [# O  l
            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], # [9 H: Z/ q* d( m- X& K9 V/ q
           RowBox[{
    3 K) l; @  y( k6 r' _9 L        SubsuperscriptBox["\[Integral]", * f8 T: w" O, ]6 E, F6 X+ g
             RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    3 Q, j$ o; W- F$ c0 G0 ?        RowBox[{/ a5 i0 r& i/ W6 L: L% K' B6 b
             SubsuperscriptBox["\[Integral]",
    ( h- @' w0 [2 {* a          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    4 s9 c, W( g0 m, a         RowBox[{
    " e" r, m1 P8 V$ |/ ?          SubsuperscriptBox["\[Integral]", : N6 d6 J. Q* k! G2 w0 ~6 y) E8 J% Q
               RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    4 J9 O* M9 [9 Q# o( R          RowBox[{
    : g! L# Y4 g. D! z! j           SubsuperscriptBox["\[Integral]",
    , I2 Q$ W' P$ H0 N            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], % \+ S5 w' i* `
               RowBox[{
    + k7 O$ a: P) f+ E7 i5 O2 A/ ?4 T            RowBox[{"Exp", "[",
    ( M* @( y  \5 Z) Q             RowBox[{
    8 h9 i; }% p: ?9 N. r              RowBox[{5 P% I3 E- M" N6 q2 c& l/ w
                   RowBox[{"-", + v- r  |6 B* G" l4 h2 `
                    RowBox[{
    - d" h8 }. G5 s+ Q# n. x0 V# c                 RowBox[{"(", ' ^; G' H) L/ W# L" h2 u' B
                      RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    5 e; z7 a' ?: Q1 K, J                 RowBox[{"(",
    8 |: Z, Y& [  M                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
    % _; B! J. v7 ~              "Delta"}], "]"}],
    ( E2 f( n- }, s9 i3 D: E            RowBox[{"\[DifferentialD]", "x1"}],
    % g) b9 j4 h* v4 m* @/ ^: |            RowBox[{"\[DifferentialD]", "x2"}], $ m. m/ H  J# ?# G0 D
                RowBox[{"\[DifferentialD]", "x3"}], " Y( `8 x  e) {4 S
                RowBox[{"\[DifferentialD]", "x4"}], ( y" \9 m6 }- e, P9 w2 x
                RowBox[{"\[DifferentialD]", "x5"}], ) a+ m5 l  ?% h8 H
                RowBox[{"\[DifferentialD]", "x6"}], % C0 q- \8 h0 {  `! K$ f) ~, ]
                RowBox[{"\[DifferentialD]", "x7"}],
    # R7 b  @: s8 F; {+ g1 l            RowBox[{"\[DifferentialD]", "x8"}], $ E: D0 K" G# s. C
                RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
    : ^4 a& F8 I; W1 } CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {* l; w7 C% }! I  T( w
       3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9,
    : H* t' |$ f3 `2 q3 ^. f   3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {/ d2 A5 l' c' X, w8 \
       3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9, ' x6 d5 v1 W) ^7 W: i
       3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {1 W3 ]& `2 N3 a; Z
       3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9,
    * W# K+ l, C2 o" j; W   3.577918964453125*^9}}],
    + V$ j& n' e" c& [
    , P/ L0 z( A( O1 a! Q8 oCell[BoxData[
    : j8 W& M! i( J) J( m) l" \ RowBox[{"97.40909103400237`", " ",
    + j# e+ M/ T( J' i: f; E  SuperscriptBox["Delta", "8"], " ",
    & K9 n# W7 q. Y: y/ P$ ]" h; X  RowBox[{"If", "[", ) b0 v3 y- r! [! A3 p; k- j
       RowBox[{
    7 h; {8 c5 A: {- W. m    RowBox[{8 g( D+ \) L; ]0 Y3 F' i1 X, N8 @
         RowBox[{"Re", "[",
    & H0 ^# `4 M* J# x' |# v& j% M      SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",", & |' f5 z2 Z# Z$ Z8 n9 U1 ]' P
        FractionBox[7 M+ H$ w( C& C. y0 Y2 o7 G5 H
         RowBox[{"1.7724538509055159`", " ", $ L4 [* B+ G( [/ u: I8 t3 K
          SuperscriptBox["\[ExponentialE]",
    1 f0 j/ ]0 I& C# V       FractionBox["1.1102230246251565`*^-16", , Z" q+ v% {5 z! M8 y
            SuperscriptBox["Delta", "2"]]]}],
    0 C4 w' D0 `- {: P( j6 ~     SqrtBox[
    ' p9 z' T8 i9 W( S6 {; w      FractionBox["1",
    * B9 W0 ]# k2 z) i       SuperscriptBox["Delta", "2"]]]], ",",
      q! s0 D- v6 a% x2 |    RowBox[{"Integrate", "[", " Z9 I# j& k& B! e/ N& G* b' K
         RowBox[{
    : \8 v; e5 F+ w7 m( ?      SuperscriptBox["\[ExponentialE]",
    0 F6 W& D5 ?7 W9 n5 \       FractionBox[3 k3 Q! l+ G. B( \9 W' o
            RowBox[{"1.1102230246251565`*^-16", "-",
    3 P" @' E$ m! I- e" H         RowBox[{"1.`", " ", ( _) F9 ^" r8 g1 m
              SuperscriptBox["x9", "2"]}]}], ' w# u, G! j1 S0 W! r& ]4 e1 ^
            SuperscriptBox["Delta", "2"]]], ",", 3 w9 V, T9 D, q. \, G
          RowBox[{"{",
    3 g  ]! J5 z# I, E" B& h  R+ X- A       RowBox[{"x9", ",", 1 G: m( ]$ Q/ y' F0 x
            RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
    - s# H8 W4 ?7 h; q6 R0 \      RowBox[{"Assumptions", "\[Rule]",
    ( L; j: h7 {! \       RowBox[{
    % S" c: F3 P3 K9 N9 H7 ?/ @7 q) A/ ]        RowBox[{"Re", "[", # L! T1 [' P: Q5 c2 C* V- u
             SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
    # t) b6 H4 @( }. F     "]"}]}], "]"}]}]], "Output",! g6 A3 Y, _" |2 u- e
    CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9,
    1 |7 K% [# w; ~  3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9, + o, u+ v8 c2 N* L  t
      3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,
    7 C# Y$ F# o( f3 Q7 H- k  3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9,
    ( C$ S3 {$ x% j* \, k8 s+ h  3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9, 7 _. J% n! U1 |1 I
      3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
    $ r1 t) c+ a9 U& k" k: H/ ^  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]% t0 m  W6 D! A( z# C7 ^
    }, Open  ]],: c8 q0 Z6 h# H5 E" D$ {

    . E# k/ ]. A+ E/ o& w% p; C" gCell[CellGroupData[{" y. r; j/ p2 O6 I/ ?
    " Y8 }# l4 O* c$ R
    Cell[BoxData[
    5 V6 U0 P% ?8 Q  R/ T RowBox[{"Delta1", "=",
    3 X& ]" ]+ ?( s* o8 i  StyleBox[
    9 ?/ _% c* G( f, p' F" m$ x   RowBox[{"97.40909103400237`", " ", 8 k# K2 d- A& T! Q; `( @
        SuperscriptBox["Delta", "8"], "  ",
    / x) S# ~; d) U: H    FractionBox[
    ! m! R0 [% F. }! I) T8 m2 u2 F! v     RowBox[{"1.7724538509055159`", " ", * `2 @8 A! p$ P
          SuperscriptBox["\[ExponentialE]", ) p* s% D7 L! P) O
           FractionBox["1.1102230246251565`*^-16", " U. u/ J- M7 i0 {4 S1 j
            SuperscriptBox["Delta", "2"]]]}],
    8 d+ i2 d% Y9 @2 z$ Q8 J     SqrtBox[
    ; B! r4 E$ _4 N      FractionBox["1",
    7 n" Y3 W- b) e9 t: |1 x       SuperscriptBox["Delta", "2"]]]]}],7 O9 N% ^2 ^% h' J; J
       FontWeight->"Plain"]}]], "Input",  ?& }7 B) \% d" e. C# }/ t
    CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {
    ) S5 ~5 M$ S6 I  a$ V  W1 ^   3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,
    1 B2 Q! Y; V& |- h   3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {& Z& R$ ^: v, Z0 n% m- B
       3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
    1 y, K: s+ y2 A' J/ w* Q) f1 y   3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9}, 2 }; B. w" o5 v" I5 o- S6 t
       3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],
    : M8 ]- x0 ~7 d6 A3 t" q; V
    9 m" Y; m6 r3 Z1 Q2 D: v/ u( O- [Cell[BoxData[
    * {$ o  u$ M5 [' D! @  o# \- v6 A4 a FractionBox[
    9 V" g" T3 z$ _2 c" P  RowBox[{"172.65311851642346`", " ", ! k6 z/ G: w. ?
       SuperscriptBox["Delta", "8"], " ", $ X6 T* J$ A: Q! \# w
       SuperscriptBox["\[ExponentialE]",
    5 s% G- D# P8 X- Q8 M4 v  i! u    FractionBox["1.1102230246251565`*^-16", ( I5 b' T' f' x4 Z
         SuperscriptBox["Delta", "2"]]]}], ! w( o# q( `3 |! {) S. J2 h9 x* |
      SqrtBox[" m! @" x/ b. d
       FractionBox["1",
    , |+ h& F5 n) \* g% w    SuperscriptBox["Delta", "2"]]]]], "Output",5 b0 y' g. G/ I
    CellChangeTimes->{
    4 a7 |0 h) v& Y9 `" J- D  3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9, 4 I. W' g+ k7 @) q( Z8 s: Y  r
       3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9, . _- U$ w* K6 e, e) L: A
       3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
    8 l8 `, h4 O2 [  c7 G   3.578012166234375*^9}]! v6 k7 h+ W- C( ~. p
    }, Open  ]],/ b& l  s% z/ S- M" N
    . G" K: R; v) I+ M
    Cell[CellGroupData[{; o4 n# N5 ~9 k7 p2 _5 _* u
    6 `! t4 Z  R; i2 @; X# a' M
    Cell[BoxData[
    + R! ]$ R2 \9 `! b" A RowBox[{"DeltaX", "=",
    / K, {' d7 `- t" U" C; m$ O  RowBox[{"FindRoot", "[", 7 G0 q- L/ f5 l4 a2 f- _5 X
       RowBox[{
      F. G" D+ R2 j9 o    RowBox[{"Delta1", "\[Equal]", "1"}], ",",
    - q- u! E6 i4 B, R: }8 q% a7 i    RowBox[{"{", 5 u9 W' I7 [$ {' O. H% M
         RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",
    # p, c% y! W4 ]- F+ _. v! Y% d1 w CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {; S8 w3 P& |' R% o6 b- N
       3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9, 7 G- [3 f8 C1 D! [
       3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9,
    5 M+ N& T9 s& E0 W8 F' R7 n   3.57791921584375*^9}}],
    4 d3 S( I. u# T% A; ]6 y) G1 W* [1 |$ G' ?
    Cell[BoxData[
    : ~% m% y: ~- A0 W$ [8 J RowBox[{"{",
    0 E. O1 x/ t, W5 ^  RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
    , a, @: S. E% n2 O) Q% X& Y) f) k CellChangeTimes->{
    6 H) V9 {8 C- q$ m: d2 j" t. d; v# C9 ~: c  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9}, 9 M1 {) }0 D" K1 w/ t
       3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9, ) _9 f8 ]. H! j* b/ W8 s- _3 v
       3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9, 4 [  k6 ]  ]; e/ k5 P1 B
       3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9, " B' r4 P; L( B' p7 k' Z' w
       3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
    0 f5 P3 F5 v# b   3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9, 2 ^8 b) ?. g8 m+ j4 x
       3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
    2 O3 b- _: J! v   3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
    4 ]1 x) j' g; O: N/ O- ?; |   3.57796070150625*^9, 3.578012167703125*^9}]
    . h. H& s* k/ H9 x& u}, Open  ]],# m9 d# i* G: H6 x
    5 w/ P  R1 x* q! ?1 W
    Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\
    1 p0 [6 I' q) O8 h, H2 ^: E\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",; _2 ^0 c& g# i, h" H5 _1 z
    CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {' R2 G, B; P& N# c3 J
      3.577960705312657*^9, 3.577960707621461*^9}}],& \2 p, H" D' D5 o6 R
    . C7 A4 ]5 h" c8 C1 n
    Cell[CellGroupData[{
    " r9 S5 G3 c9 g
      A( U2 X' R3 l  J( J9 h& cCell[BoxData[: g% s1 A: Y/ J2 W) [
    RowBox[{"C1", "=", "Ca"}]], "Input",
    , _' t; e( K+ Q' U CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],& P6 f  D4 Z! w0 R' A
    " w0 L: }; e$ ]* Z  F
    Cell[BoxData[0 w$ I; l8 Y! R
    RowBox[{"{", 1 j) Y3 N2 Y7 Y' {# `& y: B1 S1 ?2 a
      RowBox[{, E" Y, Z+ C2 v+ E
      "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
    + |. t  Z, ?# X9 w   "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",", 0 `( a2 K2 `$ o/ w1 l& g& O, M6 I
       "0.`"}], "}"}]], "Output",
    6 |" |: _! b* p: s, c5 z8 R CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9, 4 V7 @) s9 U8 b1 {# g! ], o; `( C6 z
      3.577960710273465*^9, 3.5780121855*^9}]
    2 k8 H5 ?' X/ K3 E( P" u: v}, Open  ]],
    ' ~0 j9 ]) v! u8 f# `+ o6 S( r
    & a, X7 B& _( Z1 A% sCell[CellGroupData[{
    4 `: {+ @+ S7 c3 M/ O, F0 h  E
    . m1 [1 ?+ f/ F  {  t9 j  {. i% a. ]Cell[BoxData[
    % D1 i* C- [$ {+ s RowBox[{"u1", "=", 2 n& b" q; |& q- P/ V
      RowBox[{
    . w$ w: h1 S/ A' x# x$ ?   RowBox[{"Exp", "[",
    5 @, q' j4 H( x1 f! s, M    RowBox[{
    9 s) d/ I+ f( i; \4 L# ^     RowBox[{  h; C* i6 n( Z8 V5 Z4 x
          RowBox[{"-",
    8 z* j6 W  ]) `' G1 N0 b       RowBox[{  E( s8 s7 Q; S3 k& j# {
            RowBox[{"(", # N4 u! E0 D3 _: h8 M, B
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", - T" U5 r: ~. z% }% {2 G- q* j
            RowBox[{"(",
    , @/ {* T! w3 |& a& t' ?- O7 p4 w4 r         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    8 X; @% B; |) W* @     "]"}], "/.", "DeltaX"}]}]], "Input",
    8 u% s7 l+ S- i3 s: b CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {. b9 a# `" Z$ b
       3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {# }2 P$ A4 R4 @5 G5 I* u  n9 ~
       3.577919193484375*^9, 3.5779192326875*^9}}],
    0 j5 @8 j) m$ w) \* ^! Q- f, V$ L5 l  U) z8 l  \& H
    Cell[BoxData[
      D) ]3 b. n$ K& n SuperscriptBox["\[ExponentialE]",
    ( n5 U+ x2 F  z- @1 B5 E  RowBox[{"3.141592653589793`", " ", 7 M! G$ u+ ]1 L+ p2 O" `7 ^4 t# z
       RowBox[{"(", 2 Z! ?; ]  V$ O- g; l* T6 E* o7 Q
        RowBox[{
    / l$ w. p5 v1 u1 a& w3 l     RowBox[{"-", : s( z4 @/ W; ]( @5 J: S& q
          SuperscriptBox[
    3 {2 ?% z+ N' Y( q7 L6 R8 b9 X       RowBox[{"(", & H" T" A9 c! S' A+ X
            RowBox[{
    . _, Y) i, s) e- f" I6 v, d         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", 5 E+ P0 ]7 U- X# A6 Z
         SuperscriptBox[# u* h' q0 B7 ?7 H- @, r% q0 D6 q
          RowBox[{"(",
    # v6 M8 `6 M: i# ^6 d+ c: E       RowBox[{: y( q- @& z! Z
            RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
    . Q, |% W# T, J& Z     SuperscriptBox[
    4 M/ @/ d( L) k3 P; L+ x      RowBox[{"(",
    * l( @& T" Y4 X" a) p: `  V       RowBox[{
    ( X2 G( W8 x- J. C, P        RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
    . B/ K) p$ h, k% s  D: i4 m     SuperscriptBox[
    + q: ]/ j2 y5 l4 t      RowBox[{"(", 1 Y/ m4 |3 W) ^
           RowBox[{' g/ g. W6 C8 q- E+ {: x7 w
            RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", / N6 Q  V! p, b% m# w+ y5 c& k4 U
         SuperscriptBox[
    8 P9 q5 ?4 O6 R9 i9 Y      RowBox[{"(", % I0 l9 l" H( d8 @8 m* g
           RowBox[{
    " ]; O7 n4 W5 _        RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-", , K; \! T. `+ M+ k. Y" ?0 p
         SuperscriptBox[- L8 @/ u: A5 m  ]5 h
          RowBox[{"(",
    / M) g0 w+ @# ?5 C! g) v       RowBox[{" a: F8 Q2 K! k
            RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
    , Y: Z* L" U+ ~0 y4 Q     SuperscriptBox[1 f4 a% H# A0 y1 [" X& R! U: S
          RowBox[{"(",
    & P7 I8 N/ q- z3 w       RowBox[{
    1 t! G6 t3 L: W  \3 I        RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", 1 w/ c2 Q0 n% `6 ]) `
         SuperscriptBox[
    " O/ B( n! S7 L& e' H! N4 \      RowBox[{"(", . K. b( s9 G4 I  p
           RowBox[{; }) v+ V9 I* M+ ~7 t
            RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
    . v6 ~& Z* m- f4 z* [1 }2 f     SuperscriptBox[
    ' D- [4 W" B) y: F" E! _2 Y      RowBox[{"(", * A$ O/ A7 Y5 ]7 `) P* [
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],   R* [/ I) m9 t4 e8 B! V: R
        ")"}]}]]], "Output",
    ' R' s! o1 h% J1 E CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
    ' R4 t3 s7 d) H( ~  3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9,
    2 g; D0 ]7 q; P  3.578012187078125*^9}]% `4 c1 {7 T, {9 D! B5 H
    }, Open  ]],
    . w. c) |+ H: |0 d/ @
    - j! W5 f6 B! Y4 |: D2 j0 aCell[CellGroupData[{8 w. b* A# R7 M1 K

    3 I0 x1 _( T$ ~! q# cCell[BoxData[3 }% U5 [! B$ i; k. S( U
    RowBox[{"C2", "=", "Ca"}]], "Input",
    0 {: i! _* w  u( w/ [; L0 } CellChangeTimes->{3.57792047321875*^9}],5 i! r) P0 S- `9 `; [
    2 v; m4 F- j' }$ w8 V2 |
    Cell[BoxData[, j# o5 V( @/ s$ \/ {
    RowBox[{"{",
    3 M- D% T( l4 _) ~$ C& F4 l& Z  RowBox[{
    * B9 c& y' @# Q1 k/ |+ x. }0 O* O  "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",", $ }+ Z3 `( ~5 W
       "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}],
    & ^! `7 t2 n! \( M* [  "}"}]], "Output",* \+ T1 Q) P+ O1 y/ W, Q2 J; ~
    CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
    ( _, f& Y0 W1 \  O/ ^  3.5779607401163173`*^9, 3.578012204671875*^9}]' L, B- M3 [; t5 b4 w
    }, Open  ]],2 M$ I: _& Y! M: O' Z

    * U* y# z5 y& S9 JCell[CellGroupData[{
    / c/ S, n5 p6 a1 b8 u1 _, K, T+ v! E7 D, V: ^
    Cell[BoxData[
    ' w# @- F* u5 i$ K) ?- c0 S9 ] RowBox[{"u2", "=", + A$ `) U2 X2 U- J. u
      RowBox[{
    ) m) A  Y  [# o) B- \   RowBox[{"Exp", "[",
    . j0 H# L* h8 q0 e    RowBox[{5 P( J; R- U8 X1 U5 ~6 O7 J& m
         RowBox[{. v' W4 |8 D" G% E  w
          RowBox[{"-",
    0 E+ t) [" C  x' Z/ D       RowBox[{! {" c# l( Y/ W1 `  B. ^2 ~% y
            RowBox[{"(",
    ' e1 u4 O6 V& ^         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    % n# R" L3 u, r" M0 ~! E        RowBox[{"(",
    ' F& R$ _! l) O8 V( \         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    2 b  \5 _7 m! Q& G     "]"}], "/.", "DeltaX"}]}]], "Input",
    . U6 L8 W- H) m& X, Y* @$ R CellChangeTimes->{3.577920484109375*^9}],
    * p6 d. a/ I8 B: D6 D. w; v3 C- U# W0 c' d$ d
    Cell[BoxData[
    # s2 n2 ]9 y) x- f! g SuperscriptBox["\[ExponentialE]", ) |: H; j; L6 D. w  o
      RowBox[{"3.141592653589793`", " ", & u. S3 `+ H% {
       RowBox[{"(",   i  G$ j0 ]6 y" T
        RowBox[{
    & Q# K8 c1 g( a; ]- e     RowBox[{"-",
    4 D* F) A$ w( P6 k: D) B0 X      SuperscriptBox[
    ) B% y2 v$ V2 r7 w" {       RowBox[{"(", $ M4 d- g  B9 X+ P- B6 _" q% Q% B
            RowBox[{  B& l+ o0 v0 r3 P2 d
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", : \. [& ?  |% ?) b" v
         SuperscriptBox[  p6 g4 X2 l( D3 E8 d
          RowBox[{"(",
    ; `7 \* K: ]- {: F; C       RowBox[{
    % P6 ^+ O5 d- }4 o6 f/ C        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-", " x- t( O2 ]* u0 q& a
         SuperscriptBox[& L( W2 A0 @: h& r" P( F
          RowBox[{"(", ; E* K/ ]& P* G: s6 G2 y
           RowBox[{
    : Y6 d5 z7 a: N        RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
    6 l7 G+ R7 m6 A( a     SuperscriptBox[
    % _- l- _2 `! g( I0 n! l+ k1 j      RowBox[{"(",
    - V( q9 L5 E/ Q, p       RowBox[{
    $ U6 _/ C: G7 j$ X) ^* T( t8 a        RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
    * d- ~7 T3 g' I     SuperscriptBox[4 _' }& Y0 E+ I3 `  B
          RowBox[{"(",
      [) m. e6 y' o0 y- }: U4 Q       RowBox[{
    2 C; N% ~; [, _8 I: Y        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    / F6 l8 ^& b! u' y3 u+ o9 N+ O     SuperscriptBox[
    * M- c6 |- H( j" Q+ ~1 F; j# u* F; g      RowBox[{"(", 6 A. O/ p) w" E. S
           RowBox[{8 D, C/ D# x% M4 d* L
            RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",   B# t* y4 d0 x- k% F7 }
         SuperscriptBox[
    ( I7 g0 h" u9 b0 k/ _* w4 b      RowBox[{"(",
    ' x7 ~( [9 G! w' B; `: y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",   h  L2 A& q- g5 j0 A
         SuperscriptBox[
    ( t/ Y. b8 e& N$ H  E4 e  T3 J      RowBox[{"(", ! k5 P. N  A: u9 G
           RowBox[{% x; N: {- f- _" p$ Y3 l
            RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
    2 Q/ g  H% n$ T( \     SuperscriptBox[
    4 n: j, ^( ~! F      RowBox[{"(", 4 ]1 U3 U* x% r( O; |& h4 q
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    & z4 J% V1 Z& n* p* T6 e7 M7 }    ")"}]}]]], "Output",; y& }$ V6 E; h
    CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
    : o, `7 s1 f( Y! i  j  3.5779607413955193`*^9, 3.578012205484375*^9}]
    " I2 t0 u2 E) p" c  }}, Open  ]],1 D0 q* P5 ]! ^5 p' U3 z

    , F* _0 ^0 E# \: lCell[CellGroupData[{
    5 g# Y. S- A3 Y* |
    ' C( m9 T& q0 p; q& }/ ?Cell[BoxData[6 b* D% `" A, o# a! y: N
    RowBox[{"C3", "=", "Ca"}]], "Input",
    3 V  ?& _& K, `0 k CellChangeTimes->{3.57792064125*^9}],
      _, ~4 P3 i4 ^/ ^2 a
    ! Q$ C0 e: `9 k: o, r, U* eCell[BoxData[
    & |; k/ m% {* X: D+ [- n RowBox[{"{", 4 u% \9 U2 [& g) m: {" l
      RowBox[{' V0 Y0 p; {: A
      "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
    ; z  T, \6 \+ t; ]9 Z2 E/ ~   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}], 1 A; s. ^1 A$ U) t# I) U  M
      "}"}]], "Output",6 M4 z- v  i" F% _0 N; P
    CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
    6 J. _- G4 K$ M8 ~$ z! n  K  3.5779607642027593`*^9, 3.5780122103125*^9}]
    . {% E& B5 C, z' l8 g: P& W}, Open  ]],
    . v0 T0 l( w8 y/ S2 F" g  l. `, I; \4 o/ k3 V% s7 G
    Cell[CellGroupData[{
    1 [- B; Z2 r1 L- I$ F# a2 \
    + o( `2 @: J- \! e! Q% L8 |Cell[BoxData[
    ; ?' y- `% q1 M1 D1 c1 r6 Z RowBox[{"u3", "=",
    : K/ x4 h9 \3 u8 U& o) @+ R( R6 x* w  RowBox[{. _& f2 x) `$ v
       RowBox[{"Exp", "[", ( G+ G. r2 m" O# |$ q+ h- O
        RowBox[{/ i0 n0 Z* d4 x! x4 T+ z; v
         RowBox[{
    ( J$ Z& i, l. u" b# ~      RowBox[{"-",
    ; N' i" ^/ [+ @       RowBox[{6 H( _2 E. C8 P  u4 @
            RowBox[{"(", ; O5 X8 S4 \6 B: }( N" K2 g) v
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    * \! Z0 W$ m/ U% ]        RowBox[{"(", 6 X. D# ^; D0 {. ^' X8 P
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    9 i2 B7 M2 [1 d0 k5 I% M     "]"}], "/.", "DeltaX"}]}]], "Input",
    " o* C) v6 ~5 B8 m& K& @, z CellChangeTimes->{3.57792064921875*^9}],8 r3 m+ M( ?$ d& C6 u
    & |1 P8 R5 ~7 t& h9 k' i
    Cell[BoxData[
    ! z5 T! e& E8 w SuperscriptBox["\[ExponentialE]", ( o3 y/ Q2 F! ~- N: l8 i
      RowBox[{"3.141592653589793`", " ", 1 G6 K2 h8 K8 B+ i+ J
       RowBox[{"(", % r0 X# n' T3 r9 F. R
        RowBox[{7 Y+ S$ P( f% Q
         RowBox[{"-",
    5 f  C- e6 c' \, V# C      SuperscriptBox[- p7 A& E2 S2 ]6 i+ C. D" X9 ]
           RowBox[{"(", 7 k) j4 r- F+ h0 b% V, U
            RowBox[{. C" y# f; z9 Z) m) L% E' a
             RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", ' x/ _2 l+ L( m5 J5 j
         SuperscriptBox[' g& R6 D7 }. H0 ~
          RowBox[{"(",
    & H  f3 b9 e& ], R4 H6 a& f3 V       RowBox[{
    ' R; B( @8 f2 Y; }- M9 g" I- W        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-", ! e& D6 u3 J) i- U
         SuperscriptBox[
    ; P" u1 W: q  _& s4 W4 C6 ^. A      RowBox[{"(",
    3 C, @( v+ b1 L% y: D       RowBox[{
    ; |  l6 W+ X8 }9 z4 u  Y4 Y        RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", + b7 t1 q+ t1 ^( O9 {
         SuperscriptBox[
    : c- q/ |+ H: }- V% X, _      RowBox[{"(", : ?  t) ?; z3 A
           RowBox[{
    " W9 E3 D5 [8 q! @0 x. f8 V        RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
    ' F$ k2 `4 s3 ~0 G$ J/ U) r& A# j+ E     SuperscriptBox[& _2 a: a. r2 A8 G# B: d) {+ S: o) S
          RowBox[{"(", & R! l' v; M1 W# f( v# u; g2 h
           RowBox[{
    ! n- V" _- x4 o9 r  c$ p# M2 e        RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
    2 v, ?0 k2 j- _- d0 ]: g5 Z) S     SuperscriptBox[# M1 [  F, s; q( ~0 R
          RowBox[{"(", . H( L7 l+ H- r3 q" S& \
           RowBox[{
    ! o$ V4 O  ?/ n! d( w& Z6 U        RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", 6 V* ]- u( T. h1 O& J4 J6 Q8 U
         SuperscriptBox[
    ' h' e) R$ T( ]0 L      RowBox[{"(", 9 S, H7 z. ~$ u2 [
           RowBox[{
    / ^0 W: b# G* D        RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
    ! @1 J, k; u" g& b5 e; g8 r' f     SuperscriptBox[
    - g$ L( Q" H3 x5 R( \      RowBox[{"(",
    * u  b9 `3 \$ c# |3 b       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", " S& r1 c. e4 t! D! L
         SuperscriptBox[5 i$ A& c& f  y' u* Y
          RowBox[{"(",
    5 k# A. ?* x0 @+ C: ]1 H% f7 h/ o* a       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ; b( c, |. \3 l: S6 c3 g
        ")"}]}]]], "Output",6 V. H0 w* i$ F& I0 [
    CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9, 1 Y9 `7 D7 O/ X8 U/ \' B
      3.5779607654819613`*^9, 3.578012211515625*^9}]7 W% m) c0 P0 y( b
    }, Open  ]],
    3 q4 g. {0 J( a, D
    , m! G6 o+ C; eCell[CellGroupData[{
    0 a) L& Z8 b$ c3 B3 w+ C- e, C  [' X- `
    Cell[BoxData[
    / Y' J3 W- i0 L6 ^* y RowBox[{"C4", "=", "Ca"}]], "Input",4 y( p8 J- @7 M
    CellChangeTimes->{3.5779207559375*^9}],6 h5 i0 r8 n/ U* \  S7 t

    : ?* f( l! S9 F! aCell[BoxData[
    ) m+ L& C, |" G: c" Y RowBox[{"{", ( a+ Y' C+ h5 j: i7 |+ ]! Y; f
      RowBox[{
    9 L, A3 ?4 S7 J2 q- E  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",", " Z2 b) w) b: k- f
       "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}],   ?* f' X3 n# ~) `8 o
      "}"}]], "Output"," B1 _- f, p# e4 m, @; w
    CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9, . x+ t: E7 A- m, c# F+ p
      3.5779607861363974`*^9, 3.578012216171875*^9}]4 b4 V% Q. b$ O% _- O, |
    }, Open  ]],
    2 V' B) L3 Y( Q8 L* g  s, D9 H" r" W9 X' `
    Cell[CellGroupData[{+ Z5 ^. W  E9 c4 C& y- j  Z8 h& z* D

      q) R7 L/ G3 ^Cell[BoxData[2 B% q; ?8 U& z/ u( Z
    RowBox[{"u4", "=",
    / p  J& s% S' j* V$ z% \, f6 S  RowBox[{! N! o/ n' d3 J1 j/ I* h4 s
       RowBox[{"Exp", "[",
    6 ~! c, M. [$ H3 q# S    RowBox[{
      k7 B2 o5 B! _     RowBox[{( n( F* d. [$ h& Y% l: O3 e
          RowBox[{"-",
    4 z1 J% m+ M; I       RowBox[{; N; l; W  E3 {, l) C4 A
            RowBox[{"(", 4 o- {% t9 d0 A, o0 j" j
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ( B1 u- A+ ]! s2 x
            RowBox[{"(",
    8 Q8 v$ J7 B8 z3 Y! V         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    , u+ E0 T( ^; T     "]"}], "/.", "DeltaX"}]}]], "Input",
    9 p: S. ?# b& l" Q9 j3 x! x CellChangeTimes->{3.57792076325*^9}],6 U- @! V# f5 C1 h! h

    ; J. B( i& L; q/ X- S( i- J. ]Cell[BoxData[" A$ X. ?) w1 d3 N( ?3 a# i5 [& m
    SuperscriptBox["\[ExponentialE]", 9 ~) o9 v# w7 l2 i' f
      RowBox[{"3.141592653589793`", " ", 0 A3 g% \9 w) ~' e
       RowBox[{"(",
    4 Q4 V$ x5 u$ c# v' U6 @) O3 L    RowBox[{# I  Z7 U  ]7 p* L2 @6 Q* H
         RowBox[{"-",
    ' v; b9 L5 c, r  E  X      SuperscriptBox[
    7 U: J* r9 @# C. h       RowBox[{"(",
    2 ]1 Z3 B, [2 m) i7 b* e0 i/ S        RowBox[{' X* n% T- f$ W7 m0 O
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ( h( [" O# N5 f: a3 T: S     SuperscriptBox[
    - W* R) K7 w  Q+ @3 Q0 Q) @      RowBox[{"(",
    6 U# s  s9 o6 q. J- b5 X# Q% w! K       RowBox[{# X- E  a! q- P* \
            RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
    # a6 S  T3 U/ Z; W% s2 y: d( ~     SuperscriptBox[
    . B/ W9 M: Q3 N" o" S0 K      RowBox[{"(",
    : b) {9 `. }& J! e: a       RowBox[{* N) l, X& ^0 l/ C) g+ p/ t+ s
            RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
    / b) [3 f$ K9 d4 U7 M     SuperscriptBox[
    9 L2 |/ X9 d  n. ], g      RowBox[{"(", 3 b! i4 I; Q" }' b# {+ O
           RowBox[{
    6 d0 U" H  @* z3 b0 k& Q        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", 4 y, K4 K# |9 D7 d! z' s
         SuperscriptBox[
    9 v5 n4 }( i8 C, v9 p      RowBox[{"(",
    / h, Q& {8 M. z/ [8 d( s       RowBox[{1 j; V# z5 c7 T0 e6 A/ T
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    / i' {. l: |) ?: L3 N  ?+ O     SuperscriptBox[
    ; X  [7 \0 G' q1 ~  v      RowBox[{"(", ) Y/ h1 Y. `; d
           RowBox[{3 m: ?6 v0 v8 |
            RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
    4 w  a! E! Y  s     SuperscriptBox[
    $ ~) T/ ?% N- V      RowBox[{"(",
    ) T2 C4 u& w( y7 D( S2 J( t( ~       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    7 c* c& ^  @4 l3 ~  C     SuperscriptBox[
    " e2 _+ O. o! Z' e( I' I! }      RowBox[{"(", $ n8 y; I6 G- q
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    : x5 v7 t' X8 B; X     SuperscriptBox[
    ! h3 B) l7 N) T      RowBox[{"(", ; G: }9 g2 U! p3 Q
           RowBox[{: a. N* s# [' Z, D7 _
            RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], % X: h+ q* j4 r0 B- Z/ ]9 g4 X
        ")"}]}]]], "Output",
    8 U- C% t% [, B7 C CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,
    ) K$ b: K7 h1 S7 @& B  3.5779607873531995`*^9, 3.5780122169375*^9}]
    : E$ W* R. [9 G; Y6 T# B; C}, Open  ]],! `* B; \3 v4 Z7 p- P

    / g" H) A: o1 C! qCell[CellGroupData[{
    ) F8 \8 W8 J; Q4 \, h, J! t# H4 {
    - B+ C$ A( k+ b# x( B! H. NCell[BoxData[- L+ M, n' e6 [3 O; v! s7 G/ m9 ~
    RowBox[{"C5", "=", "Ca"}]], "Input",& P9 w- _, ]" U. R2 T) t3 J
    CellChangeTimes->{3.577920860671875*^9}],
    6 g# d+ L+ P* a" b6 v; i: H7 j5 k- y" v2 r! d: ?0 F
    Cell[BoxData[
    & ]9 r, z; G& e: v0 E RowBox[{"{", & G2 i1 q* a3 [; B- }
      RowBox[{
    . W: w. W' r6 e  "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",", / f! K6 Y" k: Q+ \( ^$ k1 Z
       "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],   m1 P) e+ w: ?* N
      "}"}]], "Output",1 K( ?0 \* m: k0 X. S8 R  `0 n& C
    CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9, 9 r( u. M3 n) j% M4 |, _& R
      3.5779608137328453`*^9, 3.5780122209375*^9}]1 A; C, l  A  P% Q9 P9 [* {
    }, Open  ]],
    9 ^+ ?# c! `. r* q/ I; O1 j  ]! k5 R- ]
    Cell[CellGroupData[{7 j+ |% b/ \- z+ |) k9 P6 G, \5 Y
    - b" O: P9 w5 h' m+ |# `& ]
    Cell[BoxData[/ G) D+ r; x' \/ d1 ?
    RowBox[{"u5", "=",
    8 [; [6 o+ M1 H% {: U8 ~0 P  RowBox[{
    8 u+ @* C0 ]; H. ^) Y+ {$ v   RowBox[{"Exp", "[",
    # ^6 X2 Q& E8 y6 F    RowBox[{
    * X9 ^" O0 {; I5 _/ A     RowBox[{
    ( ]' k7 r$ V' q8 ^: d! j0 w      RowBox[{"-",
    ' W" @$ a3 ~, A- G  P6 {, D       RowBox[{0 }7 i  o' u4 L/ ?* z! V. N0 X' a
            RowBox[{"(", 9 U8 T5 B: Z  _
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    , G% T- }- W4 O: _* l3 B4 x1 L: o% Z        RowBox[{"(", 6 V; I6 o* ~  ?. P# K
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    7 l* H7 ~8 c/ N/ `, P7 u     "]"}], "/.", "DeltaX"}]}]], "Input",, N- J4 N+ M1 l" E/ i5 p
    CellChangeTimes->{3.577920869375*^9}],& Y: O( r9 L0 c. W

    / t7 \4 d7 {6 Z; TCell[BoxData[5 r1 f$ b7 s. {8 S
    SuperscriptBox["\[ExponentialE]",
    ' A5 c* L  a% x+ i2 n4 _0 x! o  RowBox[{"3.141592653589793`", " ", 7 A  z' h1 y2 P7 I
       RowBox[{"(", 0 g# ^  Z( Z2 Q7 A0 f
        RowBox[{' X& h* f1 R" ~: k' Q7 A% n
         RowBox[{"-",
    , b5 N- r/ C2 [      SuperscriptBox[
    * b, M* y( S; p) E2 y% ~; f       RowBox[{"(",
    & D/ p+ M+ J  l4 r$ E. W/ c% S        RowBox[{( X# y$ o: E3 R8 A1 v* i3 d( n6 x
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 7 Z9 C1 N5 q  T6 b9 n4 w
         SuperscriptBox[0 F- x  M, }$ q3 O2 T- }& M
          RowBox[{"(", 4 q9 Y4 ^4 D0 d  s, H; c/ j
           RowBox[{
    ( _$ i3 j7 ]! O1 J        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
    4 p! [( T- {; K7 g7 l     SuperscriptBox[* u! I- W4 t. W5 H( i4 q- F
          RowBox[{"(",
    3 F2 x/ f( `# N, F0 ^3 x) ?$ S4 c       RowBox[{
    ' E1 }2 o9 P" Q" O: {7 B9 L$ H) w$ E        RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", 1 M: T& \9 Y- Z
         SuperscriptBox[# P# X) @* B7 o- \7 h4 c
          RowBox[{"(", ! S& m1 I8 [4 s$ M1 U9 a# _
           RowBox[{$ Q% V$ P& S0 J
            RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-", 4 d1 _$ l- ], _. ]
         SuperscriptBox[) ]1 ]! A2 j& ^" o
          RowBox[{"(", 4 P- C, S; ^3 q: }- J* H
           RowBox[{
    7 y) H3 A" Y8 p% g9 T+ K; Y  i        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", + w! D. b+ Q* |2 c7 A- v
         SuperscriptBox[
    3 F" x' z: a% I  M5 b+ l! F      RowBox[{"(",
    ( j: G2 f2 p6 ?- j       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 4 S; ~* {+ p' F
         SuperscriptBox[4 \  H; k, v- ^0 E/ }$ H
          RowBox[{"(",
    0 s/ i  E& {8 s' g. x       RowBox[{
    : Q8 S( d- ~1 q, a0 I: W/ Y        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    . R* Q/ b. p3 o% z: n: j% X# P     SuperscriptBox[
    % s; j$ H' l( w  T- k( H+ s      RowBox[{"(",
    6 l" J  z1 s/ {       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    9 d- w+ {' P! C3 D     SuperscriptBox[" u+ S# L/ Y. @* x2 W5 m8 v* r
          RowBox[{"(",
    / L' v4 o. T( e4 R% U       RowBox[{
    # X) d, K$ i, i" F* X        RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], 0 O0 l* V2 S; N2 H  j9 V, n
        ")"}]}]]], "Output",
    . [  m5 T% y$ k$ K CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
    - W; h' J( g4 ]- W) M  3.577960815043248*^9, 3.578012221953125*^9}]
    , W) A, J5 \$ g' }}, Open  ]],
      Y; R7 a* V/ p3 g% P6 ?% p% z* c0 P* p1 Z  e# e9 P
    Cell[CellGroupData[{
    / b6 [" g# @/ A6 Q! ?* {
    * w" A* }. _# s( k3 QCell[BoxData[
    5 r0 c$ A2 y- g7 V! k RowBox[{"C6", "=", "Ca"}]], "Input",# F6 G+ R; B( R
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],0 c# }, z# c( `2 m2 g; H, j; U
    3 ^( S) N* I7 H( r* q
    Cell[BoxData[3 X9 \) B1 h/ T
    RowBox[{"{",
    ' @. T$ B( j' k6 X; H  RowBox[{( Q: M5 t) {8 s: p
      "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",", & m2 ]/ ]& @6 S! U7 b; o2 e: \
       "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",", ! I. @9 g, D! z  ~% V$ ?
       "0.494866`"}], "}"}]], "Output",
    0 Y3 Z- c! C/ \, o. q2 A" ~ CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,7 ^+ e3 R& n) S; E
       3.5779608373044868`*^9, 3.578012227359375*^9}]
    & F" H5 r) T9 O; I1 Y1 G+ c9 v}, Open  ]],: N* [# q& W3 U

    ' ^! i) {) F8 KCell[CellGroupData[{
    - N' F% ~* f' a7 y1 B
    ' s8 N; f7 k( o- fCell[BoxData[* [, N0 @! Z2 w. ]+ F! i  j" ~
    RowBox[{"u6", "=", 7 Q, F4 O5 P' _8 y2 G
      RowBox[{
    5 H4 Z' e' _5 }   RowBox[{"Exp", "[",
    $ l- m# `* H+ _6 u# [7 E7 k    RowBox[{, ^% `9 R2 C2 h. v- _- `
         RowBox[{3 x/ j! v! u8 _( E5 Y$ T7 t# D
          RowBox[{"-", * z: o( F# F( U, k& s
           RowBox[{
    ! h& j4 Y2 L2 m. s        RowBox[{"(",
    / T5 f# S( I3 c6 ^, S# ^7 Z         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", + P' ?4 R3 A8 m: t  q4 ^0 k' q
            RowBox[{"(", 3 g. t6 a; y7 [5 C7 R+ |
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    2 o7 _2 O. a$ C) K     "]"}], "/.", "DeltaX"}]}]], "Input",# Y" v  R+ G- X
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],, f" Z9 @% Y. ?3 e8 {

    + U: ]7 r2 ^! w7 `0 \2 qCell[BoxData[3 N( K# h8 N! e( j
    SuperscriptBox["\[ExponentialE]",
    1 M& d4 ?& S6 C( m  RowBox[{"3.141592653589793`", " ",
    6 V( S, v4 T1 M: P1 `: i6 ^$ T  g   RowBox[{"(",
    , A! |% D8 r9 O% {% \; S. V) j: ?    RowBox[{3 H% w) b7 b7 z' U! X* f
         RowBox[{"-", . z6 A* h' s3 i3 u$ D# H
          SuperscriptBox[9 x$ I  q' V: W' |; s' M- g
           RowBox[{"(",
    * ?4 J5 b2 u- j+ K$ V/ Z        RowBox[{0 v# p0 b- ~7 a
             RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-", # O$ d) n/ v$ m6 @0 b- K2 O: i
         SuperscriptBox[1 U! A/ ^9 y. p3 R5 K
          RowBox[{"(",
    9 _9 |) A( C% e5 L7 M# ]. o       RowBox[{: u7 G/ d5 |& e) Q& c0 U
            RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
    / d( J$ ~3 n  \     SuperscriptBox[
    - [1 Q7 ^6 n; j( G/ e1 q' w      RowBox[{"(",
    7 W  h9 X7 y: B& v' f       RowBox[{7 S1 _# R6 T; o; [0 X2 T( \
            RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
    8 a: p! }$ T1 Y& a" y3 _/ I' u     SuperscriptBox[7 u! Q) q5 m2 u2 ~5 W$ ^
          RowBox[{"(", / B6 Y+ d( R: B3 F
           RowBox[{
    & f/ J- [: H( V+ O0 u- D        RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", 0 ~. o5 c8 f0 K; p( y5 H  J' M7 h
         SuperscriptBox[- q0 h2 a( s# }  g5 m+ e
          RowBox[{"(",
    8 n3 D7 a8 i/ e% w7 j* U; I       RowBox[{9 ^$ k; V9 e3 E8 U# e( D1 O
            RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-", / u# D7 f$ V3 N1 |
         SuperscriptBox[
    . w' n: @: o  Y# b3 i& \) ^1 C2 k' k      RowBox[{"(", : ?5 e% D! H! w
           RowBox[{
    0 G, ?2 _3 l% O( S0 M        RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
    9 P' U: L* p. j* N' H9 }/ a5 v     SuperscriptBox[
    1 k5 J+ z. L' Q1 W7 a' O" w. A1 N% k      RowBox[{"(", ' u0 J& d+ N0 i
           RowBox[{
    ; |# |) _7 x' @6 _" i3 x4 T8 `        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", . L8 I' l, ?$ S5 L! a+ Q% h
         SuperscriptBox[0 ~( N+ K% N2 w/ K7 C  \
          RowBox[{"(",
    , e9 o+ ~5 C8 S5 m6 Q% k       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ; O% t5 Y& H8 a
         SuperscriptBox[
    ! _+ T1 d8 F, `3 T% k% n8 J% }      RowBox[{"(", 4 _. F% }  x: }' j, M7 n" ^
           RowBox[{
    " y+ U0 }0 y: Z: o        RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], * Z" k# r. @3 P$ w. G
        ")"}]}]]], "Output",
    : c" H' J# p0 I; e CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, ; ^8 Q2 V( ]/ g" p* l
      3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
    - d% B' D, |& }! t6 s}, Open  ]],
    : l9 l% w! j1 |: ]' i. v) X; G
    7 F2 K% J5 l6 i! q5 JCell[CellGroupData[{5 A1 ?) j* u" A& C. }3 W
    $ s& A" m# ?9 l8 a  X3 n* G# n
    Cell[BoxData[
    6 V+ o3 b- c3 I, h# ?6 t+ P1 ~ RowBox[{"C7", "=", "Ca"}]], "Input",% f8 d& H8 P4 ?* z6 f9 Z# M3 ~
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    * U1 X/ A) C6 k& H' U* G  3.577921316125*^9}],; L( {% g* z& k) y

    6 |- H8 I+ ^$ |; _Cell[BoxData[) P% z7 d6 f' _+ B3 _" c
    RowBox[{"{",
    5 D4 m& j& F4 u! R- Q) @* B9 M  RowBox[{
    8 s# A6 G3 p" d2 s3 X% K. W7 J  "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",", 9 Q# m; e* p, Q& H9 d! l
       "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
    1 ?& Q' c/ w7 }. P3 U7 r( a, l  "}"}]], "Output",
    ; ]2 `! @& L& K CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, ( `0 S$ N, f5 [0 @1 n6 m: n5 x, a
      3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]& T7 [; @0 ]+ K( V+ {
    }, Open  ]],
    + g& s& L: Y. e* d
    . h1 g: {4 `. tCell[CellGroupData[{8 X1 r6 B. P& n  w$ ?5 `
    + B! C- N) O& Z, J
    Cell[BoxData[
    $ u. u" b2 B9 o, v RowBox[{"u7", "=",
    4 G8 c5 R' F/ ?( U8 ?) q* l3 l$ \/ m  RowBox[{4 y, i1 D' x/ ]7 `4 Y8 S# u. R* s
       RowBox[{"Exp", "[", 5 @. r  l4 O. J8 V) k' r
        RowBox[{
    5 @2 a7 f% \9 w, @0 V* i& Q     RowBox[{5 M$ p4 _5 C4 Y( y
          RowBox[{"-", ) A4 }7 U- a* E0 E3 _: h* n
           RowBox[{
    # @4 q6 b' d; }1 u        RowBox[{"(",
    8 P7 n8 C7 g% \0 h4 R6 Z! Z* w         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", * g% Z: T8 D5 ?
            RowBox[{"(",
    % N# h. i* \$ z, m$ o6 ~         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],* L  \6 L  l- h7 X6 I9 q
         "]"}], "/.", "DeltaX"}]}]], "Input",
    6 f3 J- B. U' y+ C, {! p CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, 9 R. T1 N& B. N# U( e; t
      3.57792132028125*^9}],
    % u, X% }7 v$ ~  d2 w4 _+ Z
    , C$ m1 u! r5 [9 a! BCell[BoxData[
    / o$ q3 G$ d+ N+ k+ S4 t SuperscriptBox["\[ExponentialE]",
    , \+ Q6 ^( {* F) N: }+ ]+ m  RowBox[{"3.141592653589793`", " ", & i' q4 W& \! Q: [7 t
       RowBox[{"(",
    6 f" _0 P+ K* [* B% @    RowBox[{
    9 _% n* S- a6 P  P! Q     RowBox[{"-", & C2 z9 Z  O3 Y
          SuperscriptBox[
    / V+ ^  L# S' s* p2 O- m5 c       RowBox[{"(", # _- L6 \  l6 u
            RowBox[{2 P# ~: B  y( w
             RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ! {- `# f, c6 E' x     SuperscriptBox[; j$ g: X6 w* q6 k/ U
          RowBox[{"(",
    1 n2 {9 p% K8 ?- j       RowBox[{1 Y  N) f7 W5 w4 r; J  }: C& @+ F( }
            RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", ) J" m7 L: E9 _2 f; R7 G4 h) t- H
         SuperscriptBox[
    3 k4 s, l# o9 E      RowBox[{"(",
    , G8 Y4 M  b+ M% @5 A. H: p       RowBox[{
    ; s, |) m1 W- l. Q( a( v0 h        RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", 3 C6 E$ b- w2 }; @" |% l3 m
         SuperscriptBox[( @7 F7 s0 o7 a8 B0 T. n, r
          RowBox[{"(",
    ' C6 T: {5 E4 z9 Z+ C6 W       RowBox[{
    ( ], L) h8 |2 h4 K( c  X8 Y/ k/ }        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", 6 H! G0 R2 a5 [" T4 s5 R; o% w3 j
         SuperscriptBox[% a2 |  I3 B0 T9 ]9 H3 r* D" D' h- Q
          RowBox[{"(",
      n" Q- R3 r; J# u! B2 H3 h       RowBox[{
    / K7 @5 _; \* o: Z, q        RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-", 7 ]" U5 D: `6 R) O& Z3 J
         SuperscriptBox[
    5 T" P& l) T+ v, C$ V      RowBox[{"(", ! q2 \6 E; j" u- B. {: E
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    * w0 c% r3 w& y* i6 j" C     SuperscriptBox[
    # H6 p4 K: _) w      RowBox[{"(",
    4 ^: Z4 |7 ~& A( M$ X       RowBox[{
    8 T) [! I4 C- S# `/ x; t        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    5 `3 z9 G4 @/ |- H1 E+ J     SuperscriptBox[
    $ H+ y: }  U+ K      RowBox[{"(", . D9 Z. d1 a) |, v% w& [
           RowBox[{( z; Q# ]6 c: N' \* |* `: N8 [
            RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
    ' U# B6 G. a& J, s. i" c6 m     SuperscriptBox[
    $ c* ^% p/ u0 i5 O      RowBox[{"(",
    % g9 G" u/ F9 G- a, o, }& _       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    $ i/ ]5 ^  |# ^0 \: z  ]0 {    ")"}]}]]], "Output",
    8 U5 x2 i# W9 }) F/ M: D CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    ) t( |/ |8 R! L; n, R0 z0 M" C  3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9, * o  s7 ?  a8 e/ h
      3.578012251359375*^9}]
    : p* o. ?: y3 S4 N}, Open  ]],
    1 D  `. D; E1 {8 p+ f- `" O1 O  ^" ]  k- p/ {
    Cell[CellGroupData[{) j1 N/ m" A+ H# Y! U5 q6 D
    ( R% |+ L2 b3 u* u% i: q
    Cell[BoxData[* v: r% A) t6 V) J
    RowBox[{"C8", "=", "Ca"}]], "Input",
    7 F) }8 }) {7 N; u' d CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, / p. Z) w, z" |# G" i$ d5 |& u
      3.577921316125*^9, 3.57792141421875*^9}],
    3 l' |% c! v4 [: I+ v5 Z( j) s5 ]) J% B* f! v$ c; x
    Cell[BoxData[
    ' T( m: F; }" u* f" C RowBox[{"{", 2 \7 F2 w+ @7 _# F7 f6 w' I' a
      RowBox[{
    ) T3 R* [4 v( @& k$ v  "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
    0 d# ?! j2 r; S( c8 C   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
    7 W  l4 D) y0 m) @3 {0 b% r  "}"}]], "Output",8 `( [( Z3 s! f( ^# [/ x* x: m, d
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
      R% r; }. q4 ]0 [  3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
    1 J6 S: i! v! h! ?& \2 N  3.578012260515625*^9}]
    # h" f! x- F8 r}, Open  ]],1 X5 s0 W% X. `7 f8 p; l* }8 H2 v
    : P/ a9 T6 Q& G1 Y  Z" w4 W
    Cell[CellGroupData[{/ Z  y+ e. f7 B# f( M

    & c# z% ^& k( U5 {7 H8 F5 RCell[BoxData[" K) [) _9 H) s/ H) _# a
    RowBox[{"u8", "=", 4 ?. w" n* s9 S* G2 L# Z5 z, l
      RowBox[{9 _" J4 i- u, F, ^0 R, H2 s4 f
       RowBox[{"Exp", "[", 5 {% W* w3 X! H6 X! a7 |
        RowBox[{& {* s, Y3 U* Q. c$ u: g0 L- R
         RowBox[{
      W' k2 n2 c" j- W      RowBox[{"-",
    * M1 |, ]  R! W/ `5 K/ v# O+ [       RowBox[{
    # ]. ]: l8 }2 q        RowBox[{"(", ! r. M0 u# S: @3 l$ n3 h
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    : \! w9 A+ s" ^( j+ U9 P. @8 J        RowBox[{"(",
    . w% h0 {% ]4 R+ L1 i2 n3 v; Q6 z         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    5 o' I6 J/ o, Y. p8 {! u6 _     "]"}], "/.", "DeltaX"}]}]], "Input",
    & n* F* l5 v. {  D CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, 3 j% W  a* T- J7 @( C6 B
      3.57792132028125*^9, 3.577921416921875*^9}],# Q6 f) a  I+ k5 u8 s. t7 p; k
    2 R; p% E: h; @  z: {! `! N. S# \% _
    Cell[BoxData[" d9 M& v, E2 e1 [, H
    SuperscriptBox["\[ExponentialE]", 0 ]" i1 L7 W3 A# d7 f4 w; K. x
      RowBox[{"3.141592653589793`", " ",
      r4 x) Y" v6 x5 s5 ^7 s   RowBox[{"(",
    * d, J+ `6 O8 l0 x( n( l    RowBox[{$ Q& @! R. G* i
         RowBox[{"-",
    - y% E3 \" N+ I/ f$ h$ f8 c4 n      SuperscriptBox[8 j$ k: n4 a. t0 c3 \4 H$ S" q$ b
           RowBox[{"(", 4 G! h  S9 @5 h8 u
            RowBox[{$ c: G5 v# x! `% j& D. w
             RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", * {; @8 R4 N# F6 ?" o: x9 Z, |
         SuperscriptBox[
    - d) q% \% \+ B4 J9 T' N. F      RowBox[{"(",
    ( i$ O+ Q* E' q$ A       RowBox[{5 g) }; a1 _  Y9 ~. K) G8 u
            RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",   {- K# J1 v% g& F, A$ ?8 `5 \
         SuperscriptBox[
    . X4 |) I3 v  j: ^3 _$ g      RowBox[{"(", ; V2 w% S- z& e4 n  S; x2 `/ u: P
           RowBox[{2 W0 K. n; F- o) n1 {7 g
            RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", 8 x, z# ~5 t* E0 q7 O! `
         SuperscriptBox[
    / g& V" s' V; I! W! q      RowBox[{"(",
    + V0 G  X% f' P+ R0 T8 j       RowBox[{5 \/ f% p, P. U5 @9 t
            RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
    0 R( l1 d4 ~* j' d& p     SuperscriptBox[
    * f  a3 G8 v: e9 ^' L5 p      RowBox[{"(",
    & i7 X1 C2 r) S- v# p       RowBox[{
    : A0 U" @+ ]" i4 N* e        RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", * [9 ]; D3 R- D
         SuperscriptBox[) t4 J7 e& i. T
          RowBox[{"(", ! y( w" S' z5 W3 }7 V4 l% U2 r2 p
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    0 |! c9 ?3 ?% V* a' q0 y0 x     SuperscriptBox[1 t" x8 L( K6 {+ U" k
          RowBox[{"(",
    : S% j. `( i9 f6 n1 m' _1 d3 d       RowBox[{
    , X- j0 C' ^, Q; R1 j7 g  i        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", / j1 p9 T: {, a1 p, ~* |* P
         SuperscriptBox[
    - ]6 P& }' t4 C0 D* ~2 B6 z      RowBox[{"(", ) l; q9 s# X/ s" W# j. Z. b/ T
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 7 z, D, s' u' S; E4 B( u# B. \8 b
         SuperscriptBox[6 {* B7 q, ?4 \2 }
          RowBox[{"(",
    # P. |# }5 W* {+ m       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    4 @0 ?0 g& Y# O- Y    ")"}]}]]], "Output",
    # ]2 }4 h: W+ K CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    6 y& d" J, g2 M/ i6 S1 g  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
    + \. ?0 {4 }3 Y( O9 K9 r! P  3.5779608945565863`*^9, 3.57801226165625*^9}]8 G. R4 q; J: A$ d7 ]
    }, Open  ]],
    . A( d; b+ s- ?4 x6 b  r+ v: d4 ^: C! @6 h7 o
    Cell[CellGroupData[{
    - z% p( Y9 d$ c% Q) J0 r7 y0 U# e7 O7 J
    Cell[BoxData[
    5 @# [: c& R+ a RowBox[{"C9", "=", "Ca"}]], "Input",
    & Y  }- T! m- X' m CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, . z( u9 h7 e! o$ e5 }8 K4 l
      3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],: A2 |0 P* C2 h' T

    ( a. j: ~8 U- C% vCell[BoxData[- b0 O2 O" s) u$ v; i9 r9 Y6 J
    RowBox[{"{", , }2 m5 N( ~& S
      RowBox[{
    9 n) U! M6 k( p- }5 i  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
      x. `6 D* q: z4 P4 x6 R   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}], ! i* R9 h6 `( x& a+ R9 ]
      "}"}]], "Output",# n5 b" \( Q: q
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    ) c3 O6 I) J; S, n6 ?  3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9, 0 `9 A# Z: E3 L
      3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9,
    6 r6 ^$ d' I3 ~+ ]  3.578012268234375*^9}]
    : P- x# \! Q# u2 X! U) A& V}, Open  ]],( e* x$ U. A) V& }
    ! }; j0 C/ E  @
    Cell[CellGroupData[{
    # p1 N1 j/ j% ~  S/ B$ p% T1 ?  @( O! ^8 v
    Cell[BoxData[
    2 S8 q0 D, E' f- v RowBox[{"u9", "=",
    + P) o5 ?& L  M6 x* X  RowBox[{
    5 `8 k: u5 p# @. h6 i0 z   RowBox[{"Exp", "[",
    3 z: K& P/ P6 b3 g* L    RowBox[{
    + ^+ f  ]1 n, b" i. r. o6 H     RowBox[{9 [6 _; V6 e# G
          RowBox[{"-", ! _7 Q3 h- H" e, {
           RowBox[{" a  I5 W: S0 A7 |* Z
            RowBox[{"(",
    , G% U+ a: x5 G4 B* q. J+ Q0 }) ?         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    : }. x. F% t& _. W  P        RowBox[{"(",
    2 @. D' u2 @2 x         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    5 h; \* P6 v# b6 M+ X     "]"}], "/.", "DeltaX"}]}]], "Input",
    : Z/ S! ], v- |# o6 k CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    6 M. U6 z# [. F( j+ H; a& V( x4 b  3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],! v# c2 F% a* V! b
    6 Y: O( W1 Q1 F, F+ x, b
    Cell[BoxData[
    0 Y5 h, P$ q  @. O; X' C SuperscriptBox["\[ExponentialE]", / C; q1 q$ O! A+ `/ R
      RowBox[{"3.141592653589793`", " ", 3 k" Q/ G( r6 M% g# E- a9 N7 `
       RowBox[{"(",
    " B/ L+ m' a/ B. B    RowBox[{$ e) ^- {# j5 S' Z4 e) I6 [
         RowBox[{"-", 8 p  ?, m4 V( v+ j# Y
          SuperscriptBox[, c- W' G  {* O$ ^! y3 `7 x; G  w
           RowBox[{"(",   a; A6 ?7 w* N" h5 Z
            RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", 6 [6 ^7 X4 O8 G# M
         SuperscriptBox[
    - r7 `5 \. g3 R5 {- k3 u- f      RowBox[{"(", % ?) B: R. y# B% w
           RowBox[{7 j0 w; m6 w; j3 c% b
            RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
    ( S5 f6 g+ f, _1 c; t* E     SuperscriptBox[7 w; G# L! C( q, p9 O
          RowBox[{"(", - P3 \& ]. ?* `* T
           RowBox[{" m3 Y. W! p, [) r+ f3 o
            RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    3 `3 H- c& Q# }" P' b( O( x     SuperscriptBox[
    ' r  e6 c9 A5 L+ S9 P$ M      RowBox[{"(",
    3 X# v. s1 F# ~* x* q$ ?3 D" E       RowBox[{
    ) k" _, O9 c' L" m$ y4 X        RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-", 8 P3 F7 \* h5 l
         SuperscriptBox[
    ! ~( H  `; V9 \$ p1 i      RowBox[{"(", " Q1 \% o7 m8 o4 @
           RowBox[{6 ]1 O6 s1 C$ u% i4 O# n. x* X
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", 7 u$ N: e8 x8 @
         SuperscriptBox[
    3 o8 B4 x  H% B# E# E! Q      RowBox[{"(", + @4 b& g. ~8 f2 V" T
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", $ c7 r3 |! k4 e2 T+ z% `
         SuperscriptBox[& |8 _% T2 n8 Q6 Y) [
          RowBox[{"(",
    " _8 Y7 I5 c" S0 s, p! d% z, T' B       RowBox[{
    2 r3 i" W' k6 A! Z; \; U: J) b6 r! L8 Z/ S        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", 5 y) n" i, D# p0 W. M
         SuperscriptBox[
    1 K& ?! T# k4 B3 ]. ~. n! t! _      RowBox[{"(",
    * W2 R$ \# [! w- f% P       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    * m- ]+ d+ M9 _) P$ i     SuperscriptBox[
    - F: `1 v* G4 p! u; z0 f      RowBox[{"(",
    ; W" d# n8 ]6 ^" u. y. Z       RowBox[{
    / t: \1 X& _" o, J' \+ u+ M' y        RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
    * j4 |. o, j; y6 R& ^9 t3 X    ")"}]}]]], "Output",( d' U: i% ]$ h1 x5 j
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, 6 n! Q) }, k# H% b$ S
      3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
    : T1 O" A" L, B. R  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9,
    0 i# B2 T( ?4 R( r4 V5 w, N  3.577961530421959*^9, 3.578012269125*^9}]$ k8 B0 T. k9 Y( ]+ V
    }, Open  ]],9 n2 v8 U& P* M

    ( ]' C9 B  G- D3 c, Y7 ]( fCell[CellGroupData[{
    7 N" c) E8 i; o
    + L4 G, Z. w/ ^Cell[BoxData[{% t0 j# z5 k! I5 M! F
    RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
    , y1 [% q2 k$ y( [ RowBox[{"u10", "=", " F& I) C: D6 i$ E6 C
      RowBox[{
    , v; x' _$ H' z& v9 z   RowBox[{"Exp", "[", 3 E4 L2 R* v% {6 _- G
        RowBox[{
    * n) D2 o, g; R* ?     RowBox[{/ e: {, R8 S+ H5 U7 i
          RowBox[{"-", 7 z; J( [6 u. z
           RowBox[{
    1 `5 y2 N$ j- }4 w6 `        RowBox[{"(", # B+ y- }! y6 D$ C" c' O- y
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", - Y" `5 x( a% C1 ?! I6 ]: W
            RowBox[{"(", 0 G; R$ e* K1 P2 x/ B( j
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    , |% S' e* [5 n& J     "]"}], "/.", "DeltaX"}]}]}], "Input",
    ! r* h. o, V' i1 {8 T' @, w CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],
    6 S( Z9 }5 d+ O% T
    2 N# t( q2 S9 e, o; N! e- d1 ?Cell[BoxData[
    ! }2 z( D' H8 |' ], W0 v+ a6 z/ f RowBox[{"{",
    $ Z/ u2 W! o5 }# i8 Q  RowBox[{
    , m! _1 K& X. @0 q" q  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
    3 g& k" `* |; U6 M8 z   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",5 k' p2 u( ?3 ~0 q; x$ C9 T* B$ m
    CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],' l7 u' r* k4 d& ?) {- i- d

    8 g- I2 u3 v5 l  \3 Z9 qCell[BoxData[( \: \9 ~6 m; A6 n# `% |4 F& H
    SuperscriptBox["\[ExponentialE]",
    * C% c4 w7 w' m7 Q# V/ }  RowBox[{"3.141592653589793`", " ", + \! |/ y& s8 b$ a% }" @1 R
       RowBox[{"(",
    : n. B8 K7 u4 R7 E( `8 D    RowBox[{
    6 [' x. @# z2 l& ~) |     RowBox[{"-",
    2 G2 q: b; b$ p. K9 l6 k* c1 x% a      SuperscriptBox[
      w/ N* `  ?- }" T       RowBox[{"(",
    1 j! Z8 s( l8 |        RowBox[{
    * F5 [; _* b/ t5 ^% d         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", ) U) V0 W9 b4 M2 x9 M3 x
         SuperscriptBox[
    8 A- c5 m2 t) R. ^' K8 [      RowBox[{"(", % y; [; E  C2 R% r. j
           RowBox[{; a* w. }" e+ d/ E6 ?4 Z" {- @; j
            RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
    9 ?1 C0 h0 Q2 ~; k$ ~$ W$ P     SuperscriptBox[  P4 l* V+ H9 O- P* x- j
          RowBox[{"(",
    : Z2 J0 X$ Y' ~' y8 F! M0 z       RowBox[{5 T! j; m0 w3 O
            RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
    # v+ M/ B( y! r) @, q! N  S: }     SuperscriptBox[
    7 j1 u8 O' _3 i5 U- h4 j1 y      RowBox[{"(",
    / P$ [: t+ c9 X3 ?7 z% x       RowBox[{
    . c8 Z" `- j' M( N: x# R, p        RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
    8 x+ R$ X% j8 _; z( ^     SuperscriptBox[1 N) \: Z8 t5 Z$ p& O  h, g
          RowBox[{"(",
    7 o' Q$ k" h( h$ ]7 ^       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
    . ^4 @" `: ?! z' }     SuperscriptBox[" M) U- s, d5 M) Y0 q5 ^
          RowBox[{"(", " k: I9 B" J. ?9 V
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    , F- f1 w2 I4 Q9 x# T8 {     SuperscriptBox[! g# o% x  \' B- \5 t
          RowBox[{"(", # C# R% b+ @* g/ F) k) \3 r
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", " L2 i7 n% G! J7 K
         SuperscriptBox[
    : ?: f8 _5 H# _) ?- \. k. f      RowBox[{"(", * ~( y; C% A$ Q$ b5 J1 P2 Z5 R
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ; l& Q; D  o6 r     SuperscriptBox[, w7 a8 M: H# g0 ~# m3 }+ X
          RowBox[{"(",
    # j1 e- I- J; q$ K! r4 [0 W5 o       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    4 L4 _* D  e- I/ U    ")"}]}]]], "Output",
    8 c+ Y) T, o% [5 y# J CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]0 Y% k5 }2 L* p7 |# p' H
    }, Open  ]],
    . [% x6 U! N  Q
    7 w8 S4 u: l) i0 x9 }Cell[CellGroupData[{) H  q$ z$ r3 T" t* Q' F

    & |. z) S* {* f/ `; q' L, XCell[BoxData[{
    / T, |5 J; |0 \4 E RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]", 8 ]/ M  }# k# x; v5 c
    RowBox[{"u11", "=", ; l- }; d$ q! Z; m: B9 Z
      RowBox[{2 c9 S- A4 X/ V' \) T; f" x9 h7 y
       RowBox[{"Exp", "[",
    " E' |  N* R( l    RowBox[{
    0 J9 x5 Z7 {/ w: p     RowBox[{/ g: q! t: W. n# o" j/ d5 [8 o/ B3 U
          RowBox[{"-", , K) I/ J- [4 Y1 z; q3 E
           RowBox[{+ I- K+ _# D( c: f7 X+ L
            RowBox[{"(",
    . r% d4 g+ @( E  ?$ J         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 5 A2 q/ W8 Q' n3 o: c3 Y) D
            RowBox[{"(",
    3 x7 R- H1 ?: x4 H# F0 W0 g+ p  S0 w4 {         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    3 s3 G! B9 W7 U     "]"}], "/.", "DeltaX"}]}]}], "Input",, H  r: c$ w  w3 |
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {$ I* f8 e3 M% ]# \, e" X1 u
      3.57796154237158*^9, 3.5779615434011817`*^9}}],6 p* B' w% ?: q4 U7 L" P7 E

    - O. k% ^' v0 o( G) P) B' T- h, rCell[BoxData[
    $ A. g; R/ ?8 v9 R RowBox[{"{", ; X& T  q5 Z, {% w% X% ]' E
      RowBox[{
    ( r  v& `% n8 x" z; k  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
      |$ W& Y/ {" E; w" e. k8 @   "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], $ C+ U* |2 U. w' e' r2 i; [
      "}"}]], "Output",
    + {+ O9 m" N* s, E& g CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    / T9 ^; B7 w+ |  3.57801228203125*^9}],9 x0 k9 Z: J( n* y' k' p) a2 N8 d

    - N0 u; p/ w; n3 n/ v$ ?: ^Cell[BoxData[2 x/ i0 T8 K4 P/ O& Y' ~6 O
    SuperscriptBox["\[ExponentialE]", - p% `) N: g8 p7 L3 e; x7 |1 f9 h9 \6 a
      RowBox[{"3.141592653589793`", " ", ! p7 f' D; p, A; p$ G0 P
       RowBox[{"(", 1 L1 O. M3 s- I, m# z
        RowBox[{
    1 P% s% n/ o% r9 e, r) ]     RowBox[{"-",
    ; D/ b$ _) ?) N) a( F  ^: \      SuperscriptBox[
    5 [: X$ Q. G% a4 Y, ^" }8 ?       RowBox[{"(",
    / ^5 M2 p! F+ x; G' r& Q  F% T        RowBox[{
    % }4 M# W/ \0 g; D0 r$ ~         RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", . S5 u8 O) [7 y& p
         SuperscriptBox[
    , Q- g" k2 y9 f/ h4 S9 L      RowBox[{"(",
    7 X7 W/ M- }2 b" I       RowBox[{
    5 N0 P* G; ], ~- ^; [1 v+ d        RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", ( p8 G1 Q7 T. r/ S3 O7 O/ c
         SuperscriptBox[3 e) Y6 x) |9 Q# D5 `4 L1 ]
          RowBox[{"(",
    . V6 p9 f5 c% w       RowBox[{
    1 u- Y- K9 o. S  P        RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
    : V7 t% R% u4 u6 M, L! H3 {' n     SuperscriptBox[
    / H& C- u& F* P8 K4 i# w. r9 u  c: T7 \      RowBox[{"(",
    7 J5 s& n  g7 o3 Y, l       RowBox[{
    ) u( \* ^2 ]! U* c* u8 ?  y        RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", 7 W  u* A" q) s- g4 X1 t
         SuperscriptBox[) `2 r5 z" h* @6 h8 ^1 g5 e8 o; P
          RowBox[{"(",
    " f. w0 v: n! x3 H/ o) Y       RowBox[{
    1 G6 X# G* ]  w# v, C; d5 l        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
    ) P" ?! v( p2 R" ^/ z     SuperscriptBox[
    0 `' Y( [4 q$ u      RowBox[{"(", ! j3 P" U! c" x
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 2 @6 a& @) r  A. _; C
         SuperscriptBox[# v) o5 d& U1 g  k. a
          RowBox[{"(", 2 n1 ^8 k$ ?; |0 F
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    5 f9 x1 N9 ^. d' s! w, F6 h* y) b     SuperscriptBox[. ^2 w% I) H% S/ v
          RowBox[{"(",
    - Z( z$ _8 Q$ W0 `) V2 R" w. z1 i       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 4 t8 {# E8 H- c3 v# N
         SuperscriptBox[
    7 \) T' r+ {( }; A) K% I! e      RowBox[{"(", * ~4 q( m+ x2 T: J& u1 C  Y
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    0 ^% M' R/ i( h* v5 v    ")"}]}]]], "Output",
    3 s; ?9 w  g+ O/ u' ~8 c CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    0 _. b4 V# b3 l' {' E( [, h  3.57801228203125*^9}]9 v* ]9 h; l) r* T2 N+ ]. j7 h
    }, Open  ]],& x, z0 k' a2 [( e2 \
    & N! N1 W' Y2 I$ ]3 W
    Cell[CellGroupData[{
    ' x' Z: k! f& b
    & ?/ t* n1 Z# B: O" BCell[BoxData[{
    2 ~) D' u4 r6 Q RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]", 2 p1 q- j0 A& `/ |- D' _" I# m
    RowBox[{"u12", "=", 7 o1 `  g" T' {) B& O
      RowBox[{
    7 u4 A6 M% R/ ?  A& v& \   RowBox[{"Exp", "[",
    , {: ?. d; }; o8 F8 h    RowBox[{) m% R" ?) H8 Z  z; f- G; ?; `
         RowBox[{: q8 c1 l+ n' z6 R( w
          RowBox[{"-",
    $ ]1 d/ t6 y1 Z       RowBox[{. q& j  T2 G! H# ~; Q/ Z0 X
            RowBox[{"(",
    ! D3 e" g  F* n         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 7 l  ?( Q% J- ^  z: a
            RowBox[{"(",
    ) M/ U/ t! E: h% ^: j         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ! `" {& |0 w* |* @! F  }     "]"}], "/.", "DeltaX"}]}]}], "Input",7 p' |: S4 P5 s) t6 T, }4 E( r
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {5 \# m" d) O2 c8 w
      3.57796154237158*^9, 3.5779615576284065`*^9}}],
    - V' ?4 T: }  Y* e8 _8 _- X" _1 }% Y! J* V
    Cell[BoxData[
    " ~" n4 P0 |, l  |1 O RowBox[{"{", 4 r& Y& x+ c: Y! [5 d  W& l: k
      RowBox[{! K9 Q' q- d* d4 f
      "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",", 7 P( n/ e8 p4 n1 c1 E$ N5 T
       "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}], 3 z& @/ n- I; v. U
      "}"}]], "Output",$ G6 [* u2 E2 k2 \9 R/ t
    CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],
    3 {( V* \) ~) _% S4 O. U; t4 p% U9 B5 H1 z2 ?1 C: M+ T
    Cell[BoxData[
    3 t0 @' X6 @1 Y5 F, q SuperscriptBox["\[ExponentialE]", $ S7 _- W& p; \( K
      RowBox[{"3.141592653589793`", " ", . t0 e9 D0 T7 r; k7 O. D
       RowBox[{"(",
    : g# {5 |5 F" N( T8 g; b    RowBox[{
    , i) V" e6 J8 y, b2 ?8 D     RowBox[{"-",
    9 |9 U( Z) a, `0 X6 l2 \  f      SuperscriptBox[
      B  J0 L6 C2 ^* J" L       RowBox[{"(",
    ) _& z# k8 e- `        RowBox[{/ o, R- N7 h; r; x, v
             RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ( d3 y0 U  n2 M# I; Q4 h+ z! p; m/ r     SuperscriptBox[
    5 \  y; w4 v3 w8 x$ V) g      RowBox[{"(", ; D9 d- W' t# E4 J
           RowBox[{: [: R) W1 y" }- ]! ^" C
            RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",   d) I! a% j9 W! b3 c, p
         SuperscriptBox[
    + ?# u$ N# l1 Y      RowBox[{"(",
    8 m& g( G6 m5 l& [, y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", 4 ~! a6 F2 f8 {$ |
         SuperscriptBox[  D5 K- @$ z& ~1 o. @3 v
          RowBox[{"(",
    $ z1 q3 l1 p; P2 t& c  W, i* f       RowBox[{
    8 {1 r9 y: u2 Z        RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
    6 I6 R( |) y" k* a3 y     SuperscriptBox[7 J* A+ q: n& d# j
          RowBox[{"(", 2 i+ B. l' u6 n9 i0 f; f6 n5 d2 ~, D
           RowBox[{
    1 `, }7 [; V& O+ B' q, y9 j4 F" H# }, A        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
    ; U2 E8 Y# r) L* S0 |     SuperscriptBox[% F- w& d5 ^* C6 ^
          RowBox[{"(",
    & Y5 g9 S" l/ f       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", - u- M& d: b$ L) g6 h( l
         SuperscriptBox[
    8 v( Q' {0 G1 J! a, b6 k      RowBox[{"(",
    ; S/ q' U2 ]. M+ V0 ~3 u       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    ( J9 U" h( \/ I& n0 ?, E* r     SuperscriptBox[
    % q  N0 ]; M9 S$ w) m0 l      RowBox[{"(",
    + P: V2 d6 s8 z3 \       RowBox[{
    0 Q/ u% o, h0 d% E; M; H        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", . ?+ Q5 L- ~5 f0 b; E: }# p
         SuperscriptBox[, D3 l% g( X# p+ v7 ]
          RowBox[{"(",
    & L* R) h) t) Q5 p2 C/ F2 b5 |       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    " g# Z: J; M+ c# C4 L3 J) H* L( e    ")"}]}]]], "Output",1 v4 ^6 |7 v# e7 B
    CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]
    4 h1 _$ E8 M7 [' E) s8 p9 c8 P' W- _}, Open  ]],
    9 ^) M6 V, v- P8 g  @8 L  b: I6 N9 V# c# q* [
    Cell[CellGroupData[{' j1 x; e* K+ G$ t

      W3 ^# e5 R* z4 C' g  _Cell[BoxData[{& Q  N+ l9 G$ \# ~* [* w
    RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]", & a# I8 [7 a8 P/ N! q4 {
    RowBox[{"u13", "=",
    6 \9 I  `. q" F4 _2 P5 {' m  RowBox[{/ E3 |$ H& s2 k; L* r- N
       RowBox[{"Exp", "[", + q! y) r0 U  J4 j. Z; O9 _# t  e
        RowBox[{9 N' v; M( {& r  K5 V% C( ]2 N$ d4 r
         RowBox[{( ^- D6 W# ?+ ^7 S; _
          RowBox[{"-", ! b) F3 r% V5 ?) u% j" V8 O, a
           RowBox[{" Y* F% T" Y! Q
            RowBox[{"(", + E/ `- t* m+ e
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", + ~& |8 f, F( l5 O, `
            RowBox[{"(",
    9 q+ N1 L3 N% S; S& ^% `2 _         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
      F+ i! t1 o) l" I% R     "]"}], "/.", "DeltaX"}]}]}], "Input",
    + q  u) |- a8 n0 ~; o5 x CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    # ]7 _0 V( o7 I. K3 F  3.57796154237158*^9, 3.5779615599684105`*^9}}],+ Z# l& n0 Y7 K' Z9 g9 p

    % ^* J' u/ P# t8 T  D+ J  n1 yCell[BoxData[0 X' l# s! W( d, v
    RowBox[{"{", * F: R1 O5 A  b+ X+ D" }2 u; Z
      RowBox[{5 |! ]. ^! q! |7 F+ _9 x3 P- G
      "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",", 1 \/ g$ T( S' {  K9 Q( ]; u/ S
       "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
    ! e& a) T! Y  f  "}"}]], "Output",
    / A* |- z$ u0 q CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],% ]6 N% `! F: [4 b' u

    - _4 Z/ o3 {; \% ~* V; LCell[BoxData[  j+ u  o$ k  o0 S* v$ l
    SuperscriptBox["\[ExponentialE]", 3 K. y# W3 S  [6 y" e6 ]
      RowBox[{"3.141592653589793`", " ",
    # `2 G$ {  i7 |% X& h   RowBox[{"(",   t+ K: l/ b3 [' ~* K9 |1 N1 j
        RowBox[{, n, r+ z: y% I, H
         RowBox[{"-",
    . k. I* z; @2 ~! b& b* R      SuperscriptBox[. C1 |) f0 G1 f& O
           RowBox[{"(", 7 n- `; U4 A3 G* T5 r4 i
            RowBox[{
      y* j8 b" \& r         RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",   y" V% p% C5 V* H
         SuperscriptBox[1 Z2 @: z( X* n' |* g
          RowBox[{"(", " H% r9 X9 F. k0 T' ]# _
           RowBox[{% n: X' U% j/ q9 p
            RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
    % d6 n, R; I1 J0 H+ |. B     SuperscriptBox[4 P- ^/ x8 h5 R
          RowBox[{"(", + V# a. H' ^0 f( c
           RowBox[{: a  U/ k# ]6 h7 b" @: Z
            RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", 4 `, Q. \7 i' b& K: a  ]$ R5 w
         SuperscriptBox[* h8 P/ H" Q# l% X+ a
          RowBox[{"(", / v) n4 ~8 \6 @& P9 I5 L
           RowBox[{$ p* I7 n8 D$ {8 x
            RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
    $ }* n5 d! d* G$ |     SuperscriptBox[
    1 u# K& ^3 }) Y) }: D      RowBox[{"(", : J& @. X( u" U+ }6 Z! m" a. b
           RowBox[{
    ' ]) K1 K4 j, m/ |) P7 v) |        RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", ! Z: J. V0 J# z* n: z4 N! P0 Q
         SuperscriptBox[4 Y4 J, `) R- x4 s6 C/ }; V! b) d
          RowBox[{"(",
    2 c2 E. v2 T# v$ B' H       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    6 g# [' Z0 t* C0 p) Z     SuperscriptBox[
    9 M& y# f, _1 m+ w' @" s! K      RowBox[{"(",
    * i7 P5 E$ v; B       RowBox[{/ G9 a) p; y. n1 z
            RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
    # b  ~/ V5 h# Y7 V# K# }' z: H3 Z, i     SuperscriptBox[  l6 D+ w# O# x. V
          RowBox[{"(",
    9 W! Y) t# ^  z1 _$ u       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    + }2 u- x/ E: `     SuperscriptBox[
      J6 Q4 }. Q, @# u& Y      RowBox[{"(",
    9 d9 d4 j+ v& y0 d9 r; u) u       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 7 T# S7 I  N: B9 x- U" h
        ")"}]}]]], "Output",3 Y9 V% v9 ?3 K- l7 X
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]
    % V5 U2 q  ?% u8 g}, Open  ]],7 ?! X4 _1 \( K5 b4 }9 o5 F% L) @3 k
      u5 O% N* C- c! c
    Cell[CellGroupData[{
    , F: E* B5 r+ c+ D
    / @# L4 s, ]4 D2 s6 E5 ACell[BoxData[{
    9 A1 r, w9 \- c2 I7 @1 q7 p RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]",
    ' M* h! c8 d+ a4 S3 k RowBox[{"u14", "=",
    8 k) Y% j7 }& q' t  B. r. X  RowBox[{
    0 i: h3 P. i) w& g, u   RowBox[{"Exp", "[",
    , z& J6 W2 E& C7 [    RowBox[{+ [# m, x3 x8 \' {0 j
         RowBox[{
    ; u1 d* J. T7 B' _% {2 J      RowBox[{"-", 4 b# I) o9 A' c6 Q  \( x; l% v
           RowBox[{
    ; i; v- J0 Z/ h" h        RowBox[{"(", 4 h6 D  N; V# R; [! X9 L% A
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", " d: J8 S/ g  ~2 f+ `
            RowBox[{"(", " U% M) D* d( n" U9 s* |0 [4 X
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    + |) ~, a# m! e+ G9 F' s; n     "]"}], "/.", "DeltaX"}]}]}], "Input",
    : W, G, p( Q& L CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    " l, _# F0 q" s7 y% d2 D+ ^9 V  3.57796154237158*^9, 3.5779615663176217`*^9}}],- H" |' J9 R( A% g$ U
    % O6 `, [* _0 L8 E
    Cell[BoxData[; S- B8 Z) n5 S8 L/ l) O1 _
    RowBox[{"{",
    $ m' P! ]* L& g  RowBox[{3 R0 Z1 t; N( X0 u1 i
      "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", 9 c3 a4 F8 k8 l& j) @# \" g! m
       "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    ; P/ R( K% X8 L' v+ u2 q" P0 G  "}"}]], "Output",
    5 h. q/ Z% i' ] CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],* C! B# g) \( M5 K+ v4 y: F

    ! G: e* i: i" Q  _; y6 rCell[BoxData[1 f1 @8 n$ E: u7 s5 n& f
    SuperscriptBox["\[ExponentialE]",
    ! p' j: y- n9 |+ d6 P' c! h  RowBox[{"3.141592653589793`", " ", $ g- |1 O& W) ~% V9 {+ ~
       RowBox[{"(",
    6 S/ k4 C$ C9 f4 I3 g. `    RowBox[{  y$ m* g+ ^( t; d/ ]1 [) K# J
         RowBox[{"-", # d. X( P; m5 R: M% {0 e
          SuperscriptBox[5 J" y7 N* ?, Z' o( @3 v3 K
           RowBox[{"(",
    6 H8 T* ^& k! s9 u  a$ v0 Z2 P        RowBox[{0 E4 i! N4 t1 [# k  b# _* z/ I
             RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",   h; X! f$ G& x* N% _8 S
         SuperscriptBox[
    . L5 N, K9 Q9 t7 n( n# B      RowBox[{"(", 4 Z) h+ S  `$ F
           RowBox[{5 Y! U" L% c7 E; _$ U6 K! |- k
            RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", ) o7 F) a- T$ r" Q6 a! t: H% i( c" o
         SuperscriptBox[4 w- K* @5 w+ M* a
          RowBox[{"(", % ~- S( `6 H7 T" O) t, h2 {6 Z
           RowBox[{. y9 R* `) B/ c& n/ c+ z3 i
            RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
    ! ?% \5 ~4 ]1 C     SuperscriptBox[& f! z  s+ f7 S1 Q/ W1 [
          RowBox[{"(", / _# O5 n' V- f  |/ l, a: Y3 s
           RowBox[{
    4 n) ?2 I1 |3 o# d/ r& g; {( x        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", 0 z8 b5 F1 s7 b; {6 `- F) k
         SuperscriptBox[1 _; ?  g6 K# a4 K; G% U% O
          RowBox[{"(",
    8 B# `& ~. t" T: l) o$ Z       RowBox[{2 M) l) l% g1 E( `$ ~. s& t5 s
            RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
    * @$ D; `" X3 V9 m0 a2 l6 l4 T     SuperscriptBox[
    / H" S+ j+ F! ^  {2 `! S: Y3 F      RowBox[{"(",
    0 @# M6 u& l" n6 G2 E+ u       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    # B. [! H/ Y' N/ ]! c) b     SuperscriptBox[
    8 |  ^, b1 P9 p1 q      RowBox[{"(", % _* h" X! r8 J, Q% c* w
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    $ R" P# P# a, d& c     SuperscriptBox[- o  Q* X+ l7 @# w
          RowBox[{"(",
    3 j9 f5 o& l% n$ z  m       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    4 u: W2 C" d- |% M& W* j8 G     SuperscriptBox[( Y% @; |1 s# s
          RowBox[{"(",
    2 ~+ }7 r* d6 q5 Z9 l5 ]& G) s- z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    5 W0 z! j/ c- Q: T    ")"}]}]]], "Output",
    ! A/ x! C2 |6 y, v/ `3 w9 ^ CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
    / `$ W8 n9 Z( K* g$ `1 Y& f5 T1 h}, Open  ]],
    1 d- y' |6 r  G7 I( r$ t. d* B4 W" `% W
    Cell[CellGroupData[{  \/ t, m% d3 ]/ M4 A. d" J; _  Y, ?8 S
    - G2 J* e2 I0 y% ^( z" E" R- l9 ~
    Cell[BoxData[{
    : J! c# s& E! a8 t( i# b RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]", ( w% w0 |3 l8 y
    RowBox[{"u15", "=", : G5 G3 v! ]5 _, u; N, D
      RowBox[{
    ! A6 j0 I: ^0 N% Y5 k/ G   RowBox[{"Exp", "[",
    $ r, F* N0 T3 ?# m; v- z    RowBox[{
    " H5 B1 P$ d# o' t     RowBox[{
    - u/ G) `9 Y5 B# k      RowBox[{"-",
    ) N5 {9 r0 |3 M6 `       RowBox[{) k: {9 o: ]1 w
            RowBox[{"(",
    . B8 k+ k! A: t) z1 B9 @( ^         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 3 ^9 X  V2 Y2 x  L$ Q
            RowBox[{"(", 5 T1 U1 G# l% [5 Y: |+ o% R
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    - _: g! p' p) i' f     "]"}], "/.", "DeltaX"}]}]}], "Input",
    9 ~8 L0 p8 ]- m" f/ w4 E# ~% n5 ? CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    : u9 X6 j* `3 |$ f  3.57796154237158*^9, 3.57796157098203*^9}}],
    1 U( L$ m/ _6 C. t8 E0 V- k0 z8 D' U& g& |( [; T! {1 l
    Cell[BoxData[
    , v- t4 V, w  c* ]& G' ] RowBox[{"{", 9 M' n* I) e+ x! j/ c( |( t8 U4 j
      RowBox[{
    9 `, C' R, e7 j+ x, Q  "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
    ! M9 ^! r  K4 y) _+ K' e$ B   "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
    9 {) E9 a1 u& l# e( V2 u  "}"}]], "Output",
    - O( d! p* @8 Y6 H; B! @ CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
    & B1 ~" o7 D$ k! i( K' S8 h6 |0 E( p. b$ V
    Cell[BoxData[4 l7 D8 ~8 h+ k% M& S! M
    SuperscriptBox["\[ExponentialE]",
    ! V" r  m4 C5 j  RowBox[{"3.141592653589793`", " ", : X5 E! s/ T9 X* ]+ V
       RowBox[{"(",
    0 z1 g. }& U  l; O    RowBox[{% U' J7 M/ x+ N) r+ Q5 f0 g
         RowBox[{"-", ' {# c2 z- q1 ?+ c1 s
          SuperscriptBox[
    + ]+ |1 y; J/ W* N       RowBox[{"(",
    + V1 z2 ?! T3 r6 s        RowBox[{3 O$ K4 Y8 z: K3 ^( s. h8 T5 _
             RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", 1 ^9 F% y( B; l: H0 D' |
         SuperscriptBox[( e2 c! W! M1 R4 H
          RowBox[{"(",
    ; e2 b* V( c0 n% \& L       RowBox[{
      p' O7 @9 y1 i8 r        RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
    2 r# w' Y9 U1 c; y/ l     SuperscriptBox[
    $ m- D- |7 ?% V6 E3 N7 ^& I' F      RowBox[{"(", 0 }6 H( W2 F% E- z
           RowBox[{
    $ l/ v. w4 k, m" f& P0 M! [* C6 \        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", 6 \: [& U- O7 {5 B+ @1 ~8 I" \
         SuperscriptBox[, x2 F8 \) U1 q9 B
          RowBox[{"(",
    : G9 V$ j) O# G/ X$ X" I       RowBox[{, z6 G- ^. L. Y9 R' k
            RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
    , L' }0 e. U* D+ o% C/ F5 n     SuperscriptBox[
    0 B5 @# J! w- t; g      RowBox[{"(", 8 m$ G" F' m" |) ?9 {6 n
           RowBox[{
      T. s) v$ A4 E! G2 H        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    + {7 }& }6 ^. f% T8 ?8 l" ]8 L0 Z     SuperscriptBox[/ ]! v# c& C  S& o) M
          RowBox[{"(", , B+ t& k- S6 F6 j2 e
           RowBox[{/ ]$ X' t' f8 y5 j; ]
            RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
    : F) r9 ~9 z. D+ y2 D% z! P     SuperscriptBox[
    - Q; [4 j$ {7 M* ~- ]/ r      RowBox[{"(",
    6 G/ E5 p, v) S/ s9 a1 o! {" Q. A4 P       RowBox[{0 L1 ], ~/ S: y) }+ _
            RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    % a* e# @% P3 }9 e+ o     SuperscriptBox[8 t1 s0 l+ _4 n$ p. {
          RowBox[{"(", ' w: J9 M* z: L/ t* u' N1 G
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",   R& z3 l* I0 E4 o. M. ]* m2 P1 u
         SuperscriptBox[
    ; b/ E6 F) E- t. @! F: t; {      RowBox[{"(",
    * g- J! |" m+ Y& V( T       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ! m+ S+ n: }2 W- ]8 \1 Y
        ")"}]}]]], "Output",
    4 @! G6 y7 E+ U CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
    + y( Q1 z1 ^/ V& Z) R8 A}, Open  ]],
    7 ]0 Q4 b3 j' ~- Z0 H; \6 M0 K/ f# W0 ^9 f  i
    Cell[BoxData[
    5 k. ]! \' F0 T& G8 U6 Q0 M RowBox[{"For", "[", ' C6 C7 L- ?* W6 _& n' U: j1 r
      RowBox[{
    + q8 Y1 x8 ~6 ]5 i) ?, W& y   RowBox[{"i", "=", "1"}], ",", 2 V) B8 N2 ^: h3 p0 l
       RowBox[{"i", "\[LessEqual]", "9"}], ",",
    . p0 `4 R: t2 u   RowBox[{"i", "++"}], ",", 7 r0 E9 D2 w- j
       RowBox[{# z, n: a* M: G$ T  B- Q
        RowBox[{"Ca", "[",
    $ ?9 x: T# I2 i; i     RowBox[{"[", "i", "]"}], "]"}], "=", ; V) Y6 }5 m6 p8 J+ `. K* H
        RowBox[{"CM", "[", " a: ^4 ~3 q  T, c
         RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    / Y: M, U6 L4 H, I, r, n; J CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
    % |. N* C1 L% b. Q$ K5 m8 ?6 ^% i# G$ O; @7 S! e
    Cell[CellGroupData[{
    2 `' k' ^3 T7 w8 s" q" {' e& p: ]' r. E2 G- a
    Cell[BoxData[{- Z! X2 W, h& A# g) m& U/ T
    RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]", . ]+ n, _" g; G1 G7 E% t
    RowBox[{"u16", "=",
    + P  ~) ]/ b8 I# K+ B  RowBox[{$ H) Z; j; j/ d$ R
       RowBox[{"Exp", "[",
    7 p- P" g% U6 w3 j$ w    RowBox[{
    9 s. U* n2 D" H9 r7 a& U5 [" }' ^6 o     RowBox[{6 v* x$ x4 R! g! E$ X. f( ^
          RowBox[{"-",
    + M) o" |0 b2 V  Z# B0 w2 g' ]: ]       RowBox[{% w& q/ b6 g* \+ w2 z
            RowBox[{"(",
    , o3 u/ r) F6 M6 _1 Y7 f         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", & W8 \# @2 ~* u3 \# }9 n1 E$ O
            RowBox[{"(", 2 F+ c% ^7 _3 O7 _: ^5 D9 Y1 p
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    4 j; [3 K" ~" Y     "]"}], "/.", "DeltaX"}]}]}], "Input",
    . b( S# e6 _- q* M! }5 ^$ D CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    2 _( Z. F. m$ [' q  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9, 9 s$ y7 V" ^/ j; {. d
      3.5779615751004367`*^9}}],) i+ T8 q" [: Z+ _) P; y* z

    + t3 N; @- k/ GCell[BoxData[" R# y6 ?+ f+ v5 U: P1 g
    RowBox[{"{", # |8 O7 {) w  y$ U7 V
      RowBox[{
    2 |; b# k4 y% V  "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
    # H7 }6 e0 \7 E   "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
    : t2 R* V. s' }  l$ F/ \3 @  "}"}]], "Output",: V6 G9 a' j$ e: O! f2 }' X
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],3 y2 m# V% e/ L: Z6 w

    6 B; p8 ^# `5 J) |8 N+ ]9 N& \; V9 XCell[BoxData[
    & e5 }$ E4 `$ W6 ^2 k SuperscriptBox["\[ExponentialE]", ( G# L. g* S. C; L, L) u4 s
      RowBox[{"3.141592653589793`", " ",
    + ?# G& ]- a3 x   RowBox[{"(",
    " h4 @6 B8 Z& ?; v" o7 n) R  j    RowBox[{
    , s; D: S& c7 E" I     RowBox[{"-",
    1 _( d0 {- U5 X      SuperscriptBox[0 s; z, g9 D  M/ Y- ^' Y
           RowBox[{"(", 7 R% U5 e. K: P# c+ k/ B
            RowBox[{
    0 v( e! Z" M* m! }6 I5 X- C         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", ( w7 E+ P" Z+ \  Y! Z
         SuperscriptBox[; j+ _3 l4 l6 Z* p4 ]6 j! d
          RowBox[{"(",
    ; Y+ F! }: W; t2 w' S. ?       RowBox[{
    & C1 X: ]. A) x- W$ ?        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", 4 ]6 {: M  ^$ {5 }- D8 W$ j
         SuperscriptBox[
    7 m$ E6 x- w' d1 k6 O6 p- N0 Z: ^      RowBox[{"(", 5 s+ S8 `  t6 z* \
           RowBox[{% l# V) l! j% N
            RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", ) E9 Q* Z/ C# q: ]
         SuperscriptBox[" g9 _, T9 s! e2 y. Z4 L& m
          RowBox[{"(",
    2 V' }* g4 d% C1 X# o6 n- J; ^0 c       RowBox[{: a# p- [) q4 F) r2 N
            RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
    2 C) R! I  j4 q3 @. D     SuperscriptBox[
    0 e2 b" r7 _6 d" z0 N; }9 Y      RowBox[{"(",   w: S* n5 Y4 O6 X
           RowBox[{
    % ^3 U  K+ a# \; c5 A  C0 [        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", " X8 r. c# x" x
         SuperscriptBox[
    9 o& F& R4 R( Q* h      RowBox[{"(",
    3 N. I- @7 r4 }% m       RowBox[{
    9 i/ P5 ]2 a* x, Z' H        RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
    , g1 F- C- a, h/ E3 y     SuperscriptBox[
    9 `& r5 `! F. `5 s      RowBox[{"(",
    . Z& F# p! o1 S% H# x* i       RowBox[{
      o4 @% i  h6 ?* r        RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", . ^! m9 T* F/ t4 S& U
         SuperscriptBox[
    1 C/ W8 Q7 H( s- x! ^, T7 T      RowBox[{"(", 9 ]# r1 F6 }5 a" z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 2 i  i. A0 _% p+ U' c& c) s0 u
         SuperscriptBox[
    # f& y! a8 r) r  W6 a      RowBox[{"(",
    3 P" r# R" o# R       RowBox[{0 M7 p; j1 g3 \4 u: T8 s# B0 d. @0 J
            RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",
    8 ^, o3 ^3 k8 n: w6 r CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]: X/ Z. h' D# B  U6 u8 o
    }, Open  ]],
    . Y: w* b% W1 K# T! p( R0 f
    3 z+ \& K; ]; q  W& A9 A, c7 wCell[CellGroupData[{2 A. Z/ c$ {* T1 x5 Y2 Z; A
      h4 ~* u9 _( |! t+ t
    Cell[BoxData[{
    0 h* z4 |5 Q7 C4 G, z0 Q RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]", # f. ^! e& R- I" E4 d# @
    RowBox[{"u17", "=", - f$ @+ z6 w8 ]; e8 m* ~
      RowBox[{. W" ~* r9 u- O2 L! ~
       RowBox[{"Exp", "[", ! t0 A& U. Q+ q6 c, |+ N
        RowBox[{
    7 Z  P  S5 \- L4 C$ |, r     RowBox[{2 x; d0 ~* W* N4 m5 ~, c0 T
          RowBox[{"-",
    1 F3 a5 r) }9 |0 O3 p: B; H       RowBox[{# J7 U! z( B& L8 m+ ^; x; j/ m4 I, R# |
            RowBox[{"(",
    7 {! @3 R# }  j1 L         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", , Z! S2 q6 R3 N8 a2 O: ~2 n, B
            RowBox[{"(", / i: N3 B$ `: O0 ~: H9 r
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ' q% C' k, z# H% _* d     "]"}], "/.", "DeltaX"}]}]}], "Input",7 D! W  G9 x; V2 P9 D7 \7 a
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    + `& m! j" p* l$ S# `  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9,
    + q: C# n: S4 B  3.577961578953644*^9}}],
    * `! W1 Q5 m  t+ r( {
    : W8 d# d6 `& m. F: |# ECell[BoxData[
    ! g$ ^; v4 J; q" R8 D RowBox[{"{", , @  r5 Y! o9 m& `
      RowBox[{
      i$ Y  H% J, `5 q7 L9 s7 G  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", . o0 V( x$ h" o' Z
       "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}],   S" D/ N$ L8 g8 W' {
      "}"}]], "Output",  M% a/ [: y  c2 D
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],% n! c. m! A) G

    ; C# S9 V( \  y0 g/ x7 N% i* oCell[BoxData[. ]& [( V& W% f. V2 I( e. X
    SuperscriptBox["\[ExponentialE]",
    , L8 e. ~4 p* x; C, j  RowBox[{"3.141592653589793`", " ", 2 ~' k- E8 a" R# M7 v" I) M" U
       RowBox[{"(",
    $ H( ^0 z3 X% o- O  h! A) x    RowBox[{4 X4 _/ w6 }" a2 z/ ?# @$ a- b" f
         RowBox[{"-",
    / b- m5 E! h  A, A      SuperscriptBox[
    ( U5 G' O$ {% N! \0 V% ?       RowBox[{"(", 9 U; ]& q% k1 Z8 b& l
            RowBox[{
    4 x# I9 r5 b/ [7 |9 u' P4 R) E8 r$ ^         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
    8 K& m; r9 t. u+ ~) m* K     SuperscriptBox[4 m9 r9 U3 s, N+ @5 F) [  N
          RowBox[{"(",
    % A/ p, r0 o. Z- u7 e' U       RowBox[{
    1 e0 v5 D- Z" t* f3 s+ x! M        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", ( H& ^, m1 g( l) F5 G, f+ T: a
         SuperscriptBox[% U: B' r% i9 f) W, _+ h
          RowBox[{"(", 3 o4 H7 t  Z1 e0 c' w+ z/ }1 R3 J
           RowBox[{" _7 ^( v1 `' j. _
            RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", + @( o/ T% k3 f! E- l" a
         SuperscriptBox[) C1 H6 L; y) {+ F
          RowBox[{"(", - n* G* g8 n( H& D5 e) z- y/ o
           RowBox[{
    & h0 g& ?; U& `3 \( W: j        RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
    / P; m' W5 o! R* k* v     SuperscriptBox[( W2 S, s( P" I$ m
          RowBox[{"(",
    * T0 l0 F0 p# D& h       RowBox[{) t0 {8 n) t4 h* z! J& |# i! p
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", % p. [6 s& W# Y
         SuperscriptBox[
    6 ~1 ~% U! f$ r3 W7 }5 v      RowBox[{"(",
    ) e- i4 ~8 R+ A. |% z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    8 [% d3 L+ H+ m5 ?* i/ F! F     SuperscriptBox[0 D( `7 Y4 l: ^5 y6 z
          RowBox[{"(", ) T: G8 X2 e+ N: U
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    9 Y9 @/ V4 V: O% Y( E7 e& O     SuperscriptBox[9 @1 W2 o! e3 w4 C/ y& ~9 u/ K
          RowBox[{"(",
    4 m% A1 M3 M, {/ ?- x       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", , Q" N# d' g/ D/ E9 ?/ M1 N
         SuperscriptBox[
    : j" a7 e8 C3 ]9 m: h+ E" O      RowBox[{"(", 8 e- E& Y9 u, O; l8 X& X3 [
           RowBox[{
    5 [7 l0 ]! @$ ]- }9 b        RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}],
    ( o9 G0 R' x8 G& S3 w# w6 f2 Z( u    ")"}]}]]], "Output",- U- [; ]  r6 N. p
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]& \: A3 g2 B, J4 X: Y4 t) ]
    }, Open  ]],
    ! j' g. I  F( H' Y- K0 M3 b, i+ t2 @' O/ \7 v7 |3 m8 y
    Cell[CellGroupData[{
    % V  e6 D! ]+ N& S. l' i8 q- |" H. [3 H" O# p
    Cell[BoxData[{( b, {' z, X4 C1 S! w( H
    RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]",
    1 U. e1 v/ V( [ RowBox[{"u18", "=",
    7 S! G$ I/ J" C3 S; F: @  RowBox[{
    & e& _% U) @: p' Q* ~   RowBox[{"Exp", "[", 8 C! o- I& Z  N& O3 x+ R
        RowBox[{" l- e% N$ Q6 `/ j, o* m6 E
         RowBox[{& m1 Z. F' P4 m8 d
          RowBox[{"-",
    : b; t4 h. K9 o& s, P       RowBox[{
    $ J; O. L2 r6 _( z; j. g        RowBox[{"(",
    / N2 B3 j) P+ U, A         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", * e, d& K8 v% ?3 _/ u
            RowBox[{"(",
    $ a9 \+ f8 K# [7 q" g0 \$ R: ?         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],: D# M( K; ~3 m5 g: c! \
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    & y: y6 O7 R! a* y% e$ U! O3 g, r CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {' l& U2 b& v: E4 ^9 {7 z
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
    # I. A  Z* W& m  j3 ]- t  3.5779615828848505`*^9}}],1 O6 C1 }# U& i
    9 S/ T% d) x* f7 x
    Cell[BoxData[
    $ X8 z7 A/ {0 ` RowBox[{"{",
    % S7 y; _% F' a9 K+ G  RowBox[{
    4 m9 x. a! x% C" R  "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", 0 G7 i2 i5 e4 ?" W2 O  i. o( ^1 W
       "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], * v& S1 y5 {# L% T" `
      "}"}]], "Output",0 b& z8 p/ ?3 L: M
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
      |% i% b7 h) e4 z" U1 p5 k" E0 C9 }. H2 }4 _  X/ }1 Y+ P
    Cell[BoxData[5 ?& Z5 A% X  {6 @$ t  I
    SuperscriptBox["\[ExponentialE]", % w3 W6 b5 X# c% a- c/ a
      RowBox[{"3.141592653589793`", " ",
    6 F. S& Z. W. Q6 \* ?& N  P   RowBox[{"(", ' k6 g' f& n0 U7 v" y7 t+ r
        RowBox[{
    ) o4 E, d1 p& T! B3 m( k     RowBox[{"-",
    2 z# E" d4 U) y6 [      SuperscriptBox[
      q, E$ U/ |( N% o: b' Z       RowBox[{"(",
    - x4 U: _, K7 r& s% M. v0 w        RowBox[{; b$ P4 \& E( z& O$ X5 P1 K
             RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", ; o) a! V$ z+ H0 l
         SuperscriptBox[
    2 e( @, S# E+ x! u2 h4 k; }0 J" U6 J* y      RowBox[{"(",
    7 K4 I( ?8 I3 z7 g       RowBox[{( p" o1 n  b/ v8 g  i4 i
            RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
    + k8 |' S5 v. G& F! \/ P) _     SuperscriptBox[, C' f! q: O' ^4 ~4 o- p
          RowBox[{"(", 2 V$ c- s" L1 k" J
           RowBox[{5 w( [4 J1 s' ]- U# [
            RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
    8 |* n0 h0 t  ]! L! U     SuperscriptBox[
    4 r1 l2 [) c& Q      RowBox[{"(", " J8 z/ g5 [" g; n& F
           RowBox[{
    ( ^+ N- I: e. ^) |        RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", # v& D- n: h. A9 f0 A
         SuperscriptBox[
    0 ^1 L# H9 z( A, Y! ~& F      RowBox[{"(",
    ) u1 ]6 u* F0 R+ [# d       RowBox[{
      c& G# L7 _) T  d        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", ' B# ]0 O! E7 {! U! Z
         SuperscriptBox[- B. b+ X5 D6 w+ {
          RowBox[{"(",
    4 m! R# q% n" I; c       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    - b$ }! e4 F" J     SuperscriptBox[) E3 l6 I$ @5 R5 {% p* Z+ F
          RowBox[{"(", 4 W5 b2 @& J) k& Z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 8 L9 V/ i* X7 N, j/ L' c. b. n
         SuperscriptBox[' c; j0 V. r+ z* H
          RowBox[{"(",
    - ^5 a7 e$ N2 }  a* j6 r4 S       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    + [9 Z! [, W) a' |2 v     SuperscriptBox[) v& p. X. ?/ L# b
          RowBox[{"(",
    ' `* e; Z+ F2 c/ l; Y; N. u       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 9 f8 Y7 k. v& L+ C% R- d+ h- m
        ")"}]}]]], "Output",/ h; O9 Z" v: |3 Z& P
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]/ R0 ^. M8 w- z
    }, Open  ]],
    # l& p& K% X9 D+ M8 q2 ~+ e( c) w0 T6 |. r
    Cell[CellGroupData[{  C' Z3 }+ X* A. P, V

    5 {: P  G5 K6 ?& ?3 A$ W6 sCell[BoxData[{
    8 r2 [$ ]+ U: o/ N RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
    8 w* r1 Q$ d8 I( k  d RowBox[{"u19", "=", ; g5 e0 K+ X! b3 L4 o; s  \
      RowBox[{' o0 o* J* r# [; x1 o
       RowBox[{"Exp", "[",
    & V, |* \$ Z8 C3 O: K2 t    RowBox[{# \( U  ~! x' d7 M5 [! {  c7 ]# C
         RowBox[{" y: l& M! _& c6 e, g, V3 A
          RowBox[{"-",
    - T; c4 u3 X; b       RowBox[{. N5 O% x  u* U1 J8 D8 a
            RowBox[{"(", - c+ C& c. _( ~% d4 Y6 p
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    4 Y" ?" @2 a+ E7 R/ k        RowBox[{"(", + m4 Z# x. n) V1 O- O6 `4 h
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],/ t$ P; q$ B1 A$ {+ n
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    # Q9 Q1 B) P' |/ z+ k( d. t  t' B CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {5 o% m% G' A) I
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9,
    8 h/ V) \8 ~% X  3.577961588890861*^9}}],! H) `+ V" Y# B4 h
    - x- N' o+ d3 Y
    Cell[BoxData[
    " u0 |2 u. O& q RowBox[{"{", 0 g9 V6 V) E( ~4 s! l
      RowBox[{) h+ @$ S5 X; j7 N
      "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",", " z6 G# p" A+ V* C! C
       "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}], 8 b- o5 N$ x- _' t# y( S7 Q
      "}"}]], "Output",- u0 J$ U# \7 `5 \# G
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
    9 [  o, r/ c, o5 W
    ' ]+ M, C8 O' S* F/ B0 M+ |Cell[BoxData[# ^! s& H% k, }* J; k
    SuperscriptBox["\[ExponentialE]", ) P9 s$ Y8 U, H" b; h- N
      RowBox[{"3.141592653589793`", " ", / C. z$ N$ E7 K: A0 d
       RowBox[{"(", : n* Y( ~& H! `! T" c) j- H
        RowBox[{+ N9 g) b0 i* C$ m( p
         RowBox[{"-", ; \! w0 e: Y/ d
          SuperscriptBox[
    7 X, o7 u7 ], @9 Q: Y9 w2 ]  A& }6 Q       RowBox[{"(",
    , f3 q0 Q% p, G) [: c3 u& H        RowBox[{+ |% W' w6 W% @, a( j8 E% O- _
             RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
    + U' e0 ]- y- {: t& p     SuperscriptBox[8 T6 K  n& A; P9 R# `7 Z6 [- Y
          RowBox[{"(", : A3 D$ P/ Z8 |/ @% {. X1 F# Q
           RowBox[{3 I) L( b: Z) u: w/ @
            RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", " {, f. G7 n- e8 a( w2 Q) p8 Z
         SuperscriptBox[# c" P; h- _  u8 V! E/ D0 O  _
          RowBox[{"(", . ~7 B2 G. E5 ]) ^7 M" z+ ^) t. ^
           RowBox[{& F- k$ p5 ~) t; ?5 w
            RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
    7 \$ K' g* c% i7 }3 R  ?5 m     SuperscriptBox[' ?$ D; {! C# x2 n
          RowBox[{"(",
    ' @4 t5 p/ l( D! G, X: x* ]! B  t       RowBox[{: F+ D* r* z& N6 Z# v2 F$ @  V
            RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
    0 b1 m* X' K- i9 ]: q# P% L: ^     SuperscriptBox[3 f7 l% S3 x, }' v
          RowBox[{"(", , u- j1 I9 I- c" ~- h
           RowBox[{
    9 N/ Y, p7 M' ?) {  T        RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",   O3 Q, l3 s. j6 z. e% s& _
         SuperscriptBox[, Y6 u- O) }- h+ f* u
          RowBox[{"(",
    0 C/ k5 E7 [1 D! G/ T8 k; T+ S" K       RowBox[{
    7 j# b5 {% i: C1 V, F4 W1 r4 \        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", % |# u1 C- j! j
         SuperscriptBox[
    + f0 a2 B' V! ]; j  K      RowBox[{"(", / C! l8 x; B& E! x8 }/ \+ v
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    3 _: y1 Y2 @& X) H, X) c1 C4 o8 ^     SuperscriptBox[0 b* x# V( L# K2 c
          RowBox[{"(",
    ( q8 Y5 x: N- a       RowBox[{
    ! W& `% Y# w: w2 r9 u! O( e9 u; L  V        RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
    # M' T/ i. t# _! N' l4 R  G; E     SuperscriptBox[
    : i& {1 y0 z0 n) T, p1 W      RowBox[{"(", ) u0 o7 G, ?6 c' Q% J
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    : S# U% h& S* g1 H    ")"}]}]]], "Output",
    9 a# W1 g; p# o& _  D9 a CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]3 b2 Y$ M* h9 m, B7 y1 N0 ^/ u4 f/ D
    }, Open  ]],
    # A0 w, o5 n" \1 v5 d% U7 q* m- w' P  s+ y1 ?( x$ i
    Cell[CellGroupData[{
    / `! u- f1 g3 ^
    , \& p. ^+ |( h- R  Y0 LCell[BoxData[{' {& }( J4 Q1 J; s! B
    RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]", ! x4 ^* |  _; I+ Y5 P7 n& V( t
    RowBox[{"u20", "=",
    1 U' G1 Q' Y% n! `$ j  RowBox[{
      c3 O, g7 v# e7 f5 S   RowBox[{"Exp", "[",   M0 {& w1 \5 k) L# d8 l
        RowBox[{
    1 [: I0 t$ r. k     RowBox[{& @# h/ o6 t! T; l: i  _
          RowBox[{"-", & S- R3 G, k; ~  r9 n. @7 I& E
           RowBox[{
    2 J8 x* I# a* u7 v% f3 E# Y8 ^! U        RowBox[{"(",
    + ?6 ~" r. y& s+ l% [/ y! W0 a- m         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 7 ~6 W2 ~4 U! q  O9 L4 R+ ?
            RowBox[{"(", ; {% U* g7 j9 Z8 [. o2 E( O+ h. r
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
      J# p. n8 |0 G9 F8 Q! Y- x     "]"}], "/.", "DeltaX"}]}]}], "Input",
    ! d" \* E( ~) [, j CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {' Q* ?' E' v  `) U# z
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
    ! l2 `* z5 L( }: F7 I. ~4 y  3.57796159382047*^9}}],
    3 s/ ?( B4 d( t# g. k
    $ g( }; o) ~# @* ^Cell[BoxData[, F! o; X9 p8 E" ]+ n) h/ M% k
    RowBox[{"{", $ j4 W; {2 z4 _9 X
      RowBox[{
    , |5 I& T7 k. B' t6 s6 S  "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
    * c9 d2 |4 R- Q' C% z. X   "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}], 1 ~5 Y' y! t0 q8 V7 v- P4 X
      "}"}]], "Output",
    : l. d) q! Z" u5 Y- E* ?9 E CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],
    6 |  e" N8 Y* i- c# y3 e
      W; r' V3 z- [3 lCell[BoxData[# u2 t3 Y# j9 F+ j# U9 \: x
    SuperscriptBox["\[ExponentialE]", # b0 U2 s/ {0 S9 v! H; W6 j; p! R
      RowBox[{"3.141592653589793`", " ", ! T5 `# z/ n" w7 i# L+ W
       RowBox[{"(", " h  }2 ]. t4 D, @
        RowBox[{
    $ c5 z9 h6 O5 F# Y5 Y     RowBox[{"-", 3 H# C' W) ]% p2 e% t3 G
          SuperscriptBox[
      n7 v6 E" x$ x: ~  r, b4 j       RowBox[{"(",
    # ]3 a/ l6 c2 Q3 `- A        RowBox[{
    * A1 ?: ]5 V: S. |         RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
    2 E8 B' W9 P. U0 L5 ?     SuperscriptBox[
    : w  }' y$ C0 R% N" m      RowBox[{"(", 3 p6 ?1 m0 ^+ K+ F  ]/ f  I2 A" ?
           RowBox[{
    : Y; w6 {4 I) ?        RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-", ' i& H% r9 g" ~5 r& T" h
         SuperscriptBox[4 g/ C7 F; n2 T# g1 }$ ?8 q
          RowBox[{"(", . M& O" k0 s9 i
           RowBox[{* J+ O* B/ T( @# B; {6 b
            RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", , `, d% A4 D9 ?- g+ M5 s
         SuperscriptBox[
    - W+ T3 L1 F/ d' O' T( f3 u      RowBox[{"(",
    ) N$ A( V' A; C( |& W       RowBox[{) o6 B# w' I. g8 }5 F
            RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
    $ j' r' ~7 h4 v% N     SuperscriptBox[9 Y3 U3 k  _. w5 h: \. b5 T) N
          RowBox[{"(", 7 ^/ _3 Z  Z: S9 ]
           RowBox[{" a6 Y3 R5 W: r- T0 W
            RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", 4 N9 ]5 O* T+ u- q
         SuperscriptBox[
    ; m) f: k* j4 s# K: j  x      RowBox[{"(",
    * }, R: J* S! P' |2 |% H       RowBox[{
    8 N% `8 H* a* P4 g; m2 P0 e        RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    $ u3 B' l9 w& H# G" ~, Z     SuperscriptBox[
    " R# H2 M4 h; t9 t, k; f( [  s      RowBox[{"(", ' @/ C' d. |( t& o* j* S; M
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", & ]$ l4 ~9 i& ?% f7 t2 f: {& ?
         SuperscriptBox[
    4 h" z, t) y7 M( Y% l      RowBox[{"(",   n& O8 }* l9 K, r  P, _% _4 Q/ F: |
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    1 Q& M# i' D. c. J/ o+ c     SuperscriptBox[* `+ d( X2 P8 ]* L, |
          RowBox[{"(", ( p% I. B+ s- D: D
           RowBox[{
      y( u  j0 r0 e& n3 I        RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}],
    , A( r5 U! g1 c( t' e    ")"}]}]]], "Output",
    ) a/ H! }. O. X3 P; r: o$ O) z CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]
      v& f0 \& R7 F. o7 \; k}, Open  ]],
    5 C+ [6 L, Y. ]& T0 J/ s
    * t6 }% s" t: h% {. j: K6 C6 ]Cell[CellGroupData[{
    2 f* n1 p3 f4 C% L& M; t* A5 {& E
    Cell[BoxData[{0 G, }( C/ Q7 x
    RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
    , t0 g8 I/ \6 z% q% q$ T; Q RowBox[{"u21", "=",
    - k+ ^  V& k3 R* W& u- ?  RowBox[{: q& ^% U/ T" k  f3 t
       RowBox[{"Exp", "[",
    ( g$ X! E6 J( o' e3 v    RowBox[{
    * x. h4 p1 O8 \+ S4 i4 d4 R     RowBox[{
    5 V0 p& N. f9 G      RowBox[{"-",
    + z$ w. N- `) T0 ~( B( Z       RowBox[{! l& T* o. ?9 @  _
            RowBox[{"(", 1 E7 t# H0 U5 h" N
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ; O% L' {, f4 ~
            RowBox[{"(",
    " N) [5 n* E* X         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    5 {+ v3 C$ I; b- @4 ]: }3 m6 m     "]"}], "/.", "DeltaX"}]}]}], "Input",  Y8 \  ^& H& h4 `7 U; O3 `! ~
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {$ U) ?4 w8 p3 ~' a6 f
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9, 0 l# `" t7 F* I* k
      3.5779615991556787`*^9}}],) d% e2 ^  V8 D  `) _, P: [% S$ D  L$ a
    ; d7 W  E3 H9 s0 c% A( V( R
    Cell[BoxData[
    ' A! L& q) c1 p5 v2 W: F RowBox[{"{",
    & y" P4 s) p' R# C. T, D  RowBox[{
    4 I+ V0 s+ W, W; y  "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
    ) [; p( o* m+ J% q* c* W   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}],
      a! q7 K6 f) d4 i7 ^  "}"}]], "Output",9 H( |; K! C9 A3 k  g3 D8 ?1 O; X; {
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],7 }* W5 k  E5 s! Z, ]& \- m
    ) U1 u0 G2 A: m; O" h
    Cell[BoxData[& g6 |' p8 R  E$ O( ]  Z
    SuperscriptBox["\[ExponentialE]", 2 `+ S! P6 W4 T  a% x8 z/ c
      RowBox[{"3.141592653589793`", " ", & \7 a1 Z- c* {$ \' Y
       RowBox[{"(",
    / J, r& |) C" K2 e! J" K3 Y    RowBox[{
    3 w. V  F( V3 y7 S1 n# h7 W: ~3 i! o     RowBox[{"-", 8 J$ i9 Z2 f7 A1 n& r9 M
          SuperscriptBox[
    1 b, k4 n& |* A$ p' |4 l: g       RowBox[{"(",
    1 T3 m  N8 b. ~# \        RowBox[{
    - @6 f+ R7 C" J+ U; q2 }4 d' I- J         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", ( U  A$ ~# ?/ N6 v' N, v7 r
         SuperscriptBox[
    * O* I+ Y/ t1 _      RowBox[{"(",
    ' Z! \: P; o7 ]& y! t0 j1 J" k7 e       RowBox[{% }; g, N: f6 [+ s& F$ h
            RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
    7 E6 |+ Q* x( O  B- T     SuperscriptBox[
    - q7 {2 n9 m# o2 _% e/ q: v( @% q      RowBox[{"(", 6 R" Z7 W0 J/ @$ y/ W4 m& ~
           RowBox[{
    0 ?! A- w2 _# Q' }        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", + N6 B; i& g0 w! D/ o+ j) ?; i5 o7 b
         SuperscriptBox[
    8 l% j: R& c. b; z1 V" ^! E# s      RowBox[{"(",
    : _* Y5 W: }& Y+ C( ~- m       RowBox[{0 r2 R* _. ^  G# Q8 n
            RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
    3 E8 ~7 F7 E, `: b1 ^     SuperscriptBox[9 g2 Z% Y4 r* h, E4 S' R
          RowBox[{"(",
    4 x8 F4 B3 @8 O- Z; P7 v2 Q* x( P- W       RowBox[{
    ( a7 d* k- d& a" ^$ J- @        RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
    " _1 }9 N2 L5 O! y1 z' o6 H6 \     SuperscriptBox[; a$ s  w! D9 E+ ?6 s/ W- |1 j8 e
          RowBox[{"(",
    . ~" ~, Z4 a4 x% V! q       RowBox[{2 `) |2 H% ?0 \9 q9 m
            RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", - I& s5 c* n6 y- o( V7 M
         SuperscriptBox[
      J. M6 P  G. l& `0 {: k7 y/ W+ [8 G      RowBox[{"(",
    * O) v$ c' A3 }+ M6 N       RowBox[{- i3 U; j, A1 w0 f. I
            RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", " V3 V  y; Y5 V
         SuperscriptBox[
    9 P; a1 ?- x8 y& K8 p9 s      RowBox[{"(",
    $ l  J" g& H' w4 A" ]% {       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    % M! `5 w! q4 V- Z5 S     SuperscriptBox[
    % @! a- `- |; }& \, R6 V" X      RowBox[{"(",
    : p, ?) M! a8 P8 w3 K: x& i; r       RowBox[{$ w, s; g1 `6 O! ~
            RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ! Z% `$ }3 u4 _' I5 Y/ w
        ")"}]}]]], "Output",/ \, s/ q# i: Q
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]& g6 h, X- l! a2 O* u4 ?
    }, Open  ]],
    % t8 A* \3 Q- x- F' P+ @* j, s! s8 k2 e! D8 Q+ O: `  B
    Cell[BoxData["\:62df\:5408wi"], "Input",8 a: u0 s, P# E* x- Z$ U2 I2 A4 b! f/ Q, p
    CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],* }/ u* J6 p  N! U; S6 J% q; q
    ' K, f/ Y, H( R! m
    Cell[CellGroupData[{
    / f. ~7 F2 N5 H: _! H3 ]+ m5 N' H( C+ ]
    Cell[BoxData[; A! S1 A$ `; Y$ E* k
    RowBox[{"y1a", "=",
    , m# W. \+ X: F  RowBox[{"Table", "[",
    % L' Y; b6 a) Y# f6 y   RowBox[{"x", ",",
    ; Y5 w3 `: \; ~4 b3 v' P4 L' ]    RowBox[{"{", ) _. Q4 h+ ]" x9 S
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    " i0 ]! F" G6 H CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    % o: L8 S) u: b8 r6 ^" q% `0 o  3.5779226649375*^9, 3.5779226810625*^9}}],; E! V* {. `9 {. I3 \0 N
    ( }; U: {! O- e) ^
    Cell[BoxData[
    / ?. e# ]1 ?9 B0 q# ~" P; c RowBox[{"{",
    ) r: w( C+ T. W, R; @9 q  RowBox[{
    * v6 X; E5 f. [* N  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    + r2 K" c, L, D! i7 g! M   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    # K3 ^5 H8 d$ v6 |' X    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    - n* a  a9 ]. J7 P5 Q   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    ( H7 [- ]" j2 ^- I) B- i% [   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    , c( E8 ]" ~' g2 G' o3 f7 V% q   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 9 G  f( D7 e1 H, U
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    # ~7 E9 [+ t/ [" d* R# `2 h   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
      L6 g4 a9 }2 u  n* m   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], $ f, Z& |) o0 {- ^: H. |; H; `
      "}"}]], "Output",
    ; f7 N6 Y5 s" ^* v3 L CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9, & ]- h+ D8 n8 r% ^9 b$ }6 c: T! T
      3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]
    0 T0 r& w5 X& ~' N/ [( c}, Open  ]],
    ! ~7 F. ]) c% X+ P9 m5 M6 Y8 s  E: B3 _% H5 y/ Z
    Cell[CellGroupData[{7 o0 J- @- y. n* o

    2 G2 g# ?' Z( P" t- b( aCell[BoxData[
    - z( ?$ t2 K. f2 P5 y3 T4 _! m RowBox[{"Data", "[",
    ( e5 W& h# u6 I8 C* ~  ]9 J  RowBox[{"[",
    % T% f1 D4 {( |: z  A8 \   RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",+ F; [$ R$ [* ^) V
    CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {1 d+ P6 O: ^$ f. i
       3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],
    0 B" Q2 b! `# g6 Q" c7 J( z+ T5 B4 W4 C' r+ s. f& L
    Cell[BoxData["0.899882`"], "Output",, c* Q& @5 l8 V/ e7 B! H3 `
    CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
    4 [0 ?6 C7 [4 y$ E2 g$ G   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
    $ j; G+ T4 c4 M, ]   3.577961929080654*^9, 3.5780123419375*^9}]2 a2 m, v8 Y! e$ l; b
    }, Open  ]],
    4 q: x  A0 m+ m4 C
    $ |; V7 v( `( l- m; WCell[BoxData[- g9 d5 f) i) q9 ~# @7 o7 ^
    RowBox[{"For", "[", 0 i. u+ I. G. ]8 V
      RowBox[{
    5 a7 [. ]4 k. {5 c& K, H   RowBox[{"i", "=", "1"}], ",",
    7 H) b7 o9 m2 g. M/ y' q& c$ O7 P" P   RowBox[{"i", "\[LessEqual]", "60"}], ",",
    % \0 x% x( ~# B* M   RowBox[{"i", "++"}], ",", ; n! X7 Q+ B) Y* {" ?) I
       RowBox[{
    + O5 n; {% @6 i) Z" W5 q% N# L    RowBox[{"y1a", "[", % v' e: M2 y- d, k) H5 d1 C' a
         RowBox[{"[", "i", "]"}], "]"}], "=",
    % T, v$ A# s( M  B3 v    RowBox[{"Data", "[",
      g  ^* K; u8 v: S" p" q( E7 n0 D     RowBox[{"[",
    0 {9 G6 A4 O* U$ R8 |      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",( P) T8 W. |( N4 K# l2 b
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {. u' U" j; L4 ~- D
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    . l1 e& X. `5 H+ E   3.577922923203125*^9}, 3.5779588839702806`*^9}],
    / \9 @3 z" x+ f7 Q* K" S% V: {' e, d
    Cell[CellGroupData[{
    . q4 c' T. ]2 Q
    * Q) W5 p2 Q$ E2 d+ H9 F) [( \: ~5 LCell[BoxData["y1a"], "Input",- h6 k9 |$ j- j# g  V- t) g
    CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],8 S! N0 K- y' c, |+ V0 z8 I

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

    3 @+ L/ }3 Z) F) L( jCell[CellGroupData[{
    : C' \, e; s* C; G, N
    ) U; i7 i, l+ K, K/ O! l. e) zCell[BoxData[
    ! t3 h2 A, e7 e5 }4 s1 @8 D RowBox[{"w1a", "=", + [7 y0 |( W, G6 {! n. O/ ?6 U
      RowBox[{"LeastSquares", "[", 6 s9 J0 Y' j# f; @0 e* f; h. F2 {
       RowBox[{"m60n21", ",", "y1a"}], "]"}]}]], "Input",
    4 L" u5 t6 G8 I$ \6 E4 s& C CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {  j. a$ @& w* D' G
      3.577924662765625*^9, 3.57792466596875*^9}, {3.577962074644508*^9, + ~  O4 j9 m- ?( H* `
      3.5779620748317084`*^9}}]," n  E( A# o8 H( G+ y5 ?" N

    ! X. h7 H' d0 ~( L% ~Cell[BoxData[0 G: E' R2 |+ E9 I+ p5 H
    RowBox[{"{",
    2 _2 p$ j9 R5 x/ K  RowBox[{"0.32564305572552416`", ",", "0.500820838606441`", ",", - U3 ?  G2 m$ J1 Z9 o
       RowBox[{"-", "0.5945873894818967`"}], ",", - F/ ~* \8 P. t% L8 G
       RowBox[{"-", "0.1999688587779198`"}], ",", "0.020180806675835994`", ",",
    1 a, l4 n( X$ ?% g* ]7 d, h5 `" H   RowBox[{"-", "0.03345934908892623`"}], ",", "0.25282438852646905`", ",",
    8 j% k  d/ c' f( T; m7 {   RowBox[{"-", "0.17602467625404622`"}], ",", "0.3961180670900672`", ",",
    " f4 P& Y, E- \5 R4 I' q7 h   "0.02759193650965952`", ",", 1 P+ r( `$ O% ]/ Q6 f
       RowBox[{"-", "0.320472847796449`"}], ",",
    $ f( b8 [% \- E. R( U8 A   RowBox[{"-", "0.07581214474544527`"}], ",", "0.4812237524557292`", ",", " r, g4 L: T. O" i8 e* J  G  [& n
       "0.7528674241482847`", ",", "0.6665374509702799`", ",", $ J, n$ h: J  G' E- O8 A
       "0.22861495086373018`", ",", "0.13092706311748484`", ",",
    ! ]- j3 m( S* \   "0.5252475961933538`", ",", - U, G) S) F3 ~' s  s3 [
       RowBox[{"-", "0.10599338351843157`"}], ",", "0.6670272593678526`", ",",
    , z3 z. s, N- Z  B4 j   "0.23580523388620733`"}], "}"}]], "Output",/ H3 q5 x4 d2 C. ]/ X) I. ^+ N) p
    CellChangeTimes->{3.577924621953125*^9, 3.5779246688125*^9,
    3 ^  a% `3 S3 C) t6 J& k0 c6 H1 w  3.5779575884583836`*^9, 3.577958952875601*^9, 3.5779620806661186`*^9,
    + s- X+ W. W0 ?# o, I  3.578012349875*^9}]
    5 e4 I: A6 D, h. E. Y; \4 I}, Open  ]]," Q  k) I; s: H% V8 B# q" I, ^+ x

    ' l+ e2 ]) ~6 i; |; H9 w" OCell[CellGroupData[{
    5 T: k# _3 [; E. T" y% j5 }; }; r$ _" ^$ k! K, c
    Cell[BoxData[
    * m- _) }8 ^, `" [ RowBox[{"y1", "=", " L: @8 a8 h( X9 ?" Y, ~
      RowBox[{"w1a", ".", 0 p- G0 `0 x- Z2 y
       RowBox[{"{", : `2 E( y  \  j/ e/ T1 h7 X$ U# r
        RowBox[{4 Y4 a$ v+ r, o1 k, L
        "u1", ",", "u2", ",", "u3", ",", "u4", ",", "u5", ",", "u6", ",", "u7", ) A0 a1 S8 G6 q+ v9 b
         ",", "u8", ",", "u9", ",", "u10", ",", "u11", ",", "u12", ",", "u13",
    ; X- f# r- x" V# |4 r- ]% j) z     ",", "u14", ",", "u15", ",", "u16", ",", "u17", ",", "u18", ",", "u19", & a6 D3 d  T& U8 l3 @$ g* h
         ",", "u20", ",", "u21"}], "}"}]}]}]], "Input",
    6 E; T  H1 U6 Z CellChangeTimes->{{3.57792471553125*^9, 3.577924755875*^9}, {. ]1 c- k. K$ X! W1 I' H1 g* Z$ X
      3.577924897078125*^9, 3.57792491596875*^9}, {3.577962095642144*^9, . F3 {; I, Y/ b% z) P; C  s2 h' B  V
      3.5779621231449924`*^9}}],+ f5 L% A& \" T- `' k  N1 ~

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

    . {$ ~( K( |3 n% C3 v- Y. {3 SCell[CellGroupData[{
    3 {! ?, d( Q4 G# m5 G% ]# e& |9 M! y3 c6 _
    Cell[BoxData[: o/ z3 D4 R, d
    RowBox[{"y1fit", "=",
    : i# L! ?  N% C  RowBox[{"{", 6 _- v" y! Z4 t5 y0 k3 O
       RowBox[{
    , m- _- }7 N: J% N. z/ Z   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ! Y3 M, C% T! {. R0 [' A. \  G    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ( ~; A! a9 F1 F  m4 S$ ]- @    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    4 t  I! ~# q4 v) P( K/ Q  J6 Q    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", ' a0 y' z# E* O( W# S) ?  g
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    2 `( H3 g+ i/ c8 }# r7 t% _/ p    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", . V# R3 K! p* X- M3 k6 |
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    7 ]9 s; L1 D( m    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", ! n0 y" V3 k' l  {) {1 |
        "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", & K# Y4 _2 L& }
        "0.4319341652593058", ",", "0.4319341652593058`", ",",
    " w! ?3 z: r7 D8 i+ ?    "0.45016348534939865`", ",", "0.3333603476852527`", ",", ; u( t, ?; R0 h6 Y: l7 s6 L8 w
        "0.44186098968589294`", ",", "0.41030378932283074`", ",", + u2 M4 A$ v! Z3 S$ y. o+ b7 p& j  `
        "0.5168147981915754`", ",", "0.4476631213729997`", ",", 2 p5 B; D: o- u/ y0 u' p' ^! e
        "0.30165529786966755`", ",", "0.3781221674378473`", ",",   U& n( E3 j4 D
        "0.020339844919720775`", ",", "0.018745375782087393`", ",", $ X- r0 G  b4 r- ?( u$ o5 A5 X4 ~
        "0.2919925992695026`", ",", "0.26490679596812655`", ",", ! D* d9 L6 }. h
        "0.16343444284525593`", ",", "0.4182466778551567`", ",", 7 {& Q2 E. u; K9 _
        "0.27347752211364945`", ",", "0.385540573863857`", ",",   q% U+ ^4 s7 C& {
        "0.3525316045371807`", ",", "0.20547458411007796`", ",",
    4 ?2 @" I9 [; w) A    "0.4550437711271672`", ",", "0.1598805094678611`", ",", ' `% X* c! q+ S, U/ i" {4 @
        "0.18662509982279502`", ",", "0.10684797493248224`", ",",
    ! Z: v1 Q4 P1 x* I- r! k' |9 m    "0.013349212673286806`", ",", "0.08215836003004302`", ",",
    ; U! l# P0 m* H- V4 D8 F9 A7 Q    "0.2979041599362817`", ",", "0.05995976512343637`", ",",
    " `& G* z; a4 b* M2 {7 A    "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]}]], "Input",, M, X3 S7 ^' Q! c
    CellChangeTimes->{{3.577959701349306*^9, 3.5779597161381316`*^9}, {
    8 p( u" H0 B* T  3.5779621548286476`*^9, 3.5779621618642597`*^9}}],
    ! j5 ^- X$ H( E
    . ~+ g* J8 \2 ], a* ^+ Q( Q$ |Cell[BoxData[! o7 s" b3 K  ~' z8 b
    RowBox[{"{", ; u) `2 T: k" O9 z  Z) P8 H  |
      RowBox[{
    6 H7 P3 G/ @/ k, K" o  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ' v. q, g3 A* E
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",2 ?5 R1 g* e! h1 h$ c4 `7 T; V8 c
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 6 b: k; k) g1 u) F/ M7 \9 a% F9 V
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    - X! m1 l6 C/ }( X  o   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    6 z3 r/ C5 b! M$ g* H: z7 N7 L   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 4 P# a6 l: ^' n) |) f0 t# s3 M4 s
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", 4 {  f- u. ?6 ?6 O  D$ M; S3 Q, O* {
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", ; M% r" y8 Z1 H  d6 R+ M. y
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", & C3 |) x% e+ H5 C% L9 k
       "0.4319341652593058`", ",", "0.4319341652593058`", ",", 0 D  Z0 r1 q# S& @, t; x6 b+ A0 ?
       "0.45016348534939865`", ",", "0.3333603476852527`", ",",
    & M2 X0 Q( d; i   "0.44186098968589294`", ",", "0.41030378932283074`", ",", # `8 t1 ]3 f3 ]! x! b7 L* C
       "0.5168147981915754`", ",", "0.4476631213729997`", ",", . {% {0 P! c" y1 c' D
       "0.30165529786966755`", ",", "0.3781221674378473`", ",",   h) C8 u; S/ D. w7 ]$ t) J3 z) _
       "0.020339844919720775`", ",", "0.018745375782087393`", ",", ( v1 Z  C* r4 r4 I" W
       "0.2919925992695026`", ",", "0.26490679596812655`", ",",
    7 N: Q! z' ~* P' ], h, `5 O   "0.16343444284525593`", ",", "0.4182466778551567`", ",", 8 q: y9 a* w5 M; D6 @& K3 n
       "0.27347752211364945`", ",", "0.385540573863857`", ",",
    6 }1 z- i$ E+ d   "0.3525316045371807`", ",", "0.20547458411007796`", ",", 7 q( `. J3 D9 O( ]( _8 W
       "0.4550437711271672`", ",", "0.1598805094678611`", ",",
    & f# \7 J% i9 C0 V3 b3 F   "0.18662509982279502`", ",", "0.10684797493248224`", ",", . M8 I$ R( k# s! ^$ d& v  d
       "0.013349212673286806`", ",", "0.08215836003004302`", ",",
    / F1 o+ ]4 r1 a; k& y6 v   "0.2979041599362817`", ",", "0.05995976512343637`", ",", ! r( |3 g2 Y* m! O& n+ a) L
       "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]], "Output",
    / o$ D1 R  n" b% N+ T7 [" P CellChangeTimes->{3.5779597200381384`*^9, 3.5779621650778656`*^9,
    : X/ m, w* Q" X! p6 u; O! d. H  3.5780123569375*^9}]  x# H! H: s/ E0 P" D
    }, Open  ]]," Q8 }0 h8 d0 I9 m6 R: H

    7 f/ M; m( ^. c& c/ {Cell[CellGroupData[{
    / r% [1 q8 R8 }! F$ T9 u' m: f3 ?) j$ Z  m
    Cell[BoxData[7 P+ E1 h5 o9 I* Y
    RowBox[{"y10", "=",
    8 k8 U% j' B# H) ~6 O2 c  RowBox[{"Table", "[", 8 M0 b, X9 m5 d3 M+ z% q% f. y
       RowBox[{"x", ",",
    & i, B: b! T# ~# C    RowBox[{"{",
    ! b' E/ u: P9 o7 h     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input"," i) S* W# m9 _, q  `- {4 t+ M
    CellChangeTimes->{3.5779253628125*^9}],2 v$ x$ F/ Q) \# S7 j6 C
    6 M; S/ L: F0 Q/ x4 ^6 ?9 {+ R
    Cell[BoxData[2 t3 Q; r9 j/ a, p& [) |9 c! J
    RowBox[{"{", 1 P$ D) V0 W' J1 J# T- u
      RowBox[{
    $ `  \& y7 ?8 z5 A% d# X. a  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 3 h% s& J& p5 p" R' r2 H) D/ k
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    4 O6 R' x% |9 [* N9 g& I! H7 L1 z    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    " f0 l4 q1 j6 e( V   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",   a/ c: _3 ]5 B1 ~, w' b
       ",", "29"}], "}"}]], "Output",
    / A- n4 m8 I( s. e& @, T CellChangeTimes->{3.57792536553125*^9, 3.577957599565603*^9,
    4 u1 ~7 _6 @3 N6 K  h; a/ ?( S% u  3.577958967383626*^9, 3.5779621678858705`*^9, 3.578012358609375*^9}]7 z! K: b( \8 b9 u9 H+ z
    }, Open  ]],
    - q9 U/ d  I" ^- |9 R6 T1 Q5 H( q2 t! l3 V& q' y
    Cell[BoxData[
    ' J1 |  l% k9 Z) u6 a& M! P8 e( z RowBox[{"For", "[",
    * c5 n4 k& T0 g% B* K  RowBox[{  i* D: [, H7 g! Z8 ^1 l) F: i
       RowBox[{"i", "=", "61"}], ",", & @/ X' \' {* X: Q# O6 @) R4 ]
       RowBox[{"i", "\[LessEqual]", "89"}], ",", 7 o; n) S5 i% x( ]
       RowBox[{"i", "++"}], ",", 6 d. _+ Q; V4 k. u
       RowBox[{9 q) C8 G2 P- }9 _, N
        RowBox[{"y10", "[", & w$ y6 v9 q& H" i( E$ a0 S7 B" i) W
         RowBox[{"[", 4 V. _* o, O% `1 q5 f+ F- S2 ?( @! r
          RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", 0 y% J/ S* M2 B3 |
        RowBox[{"Data", "[", . z) O8 ^: c. F  r
         RowBox[{"[", - B* l1 q0 J; F! F! }
          RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",. W, G- t- F1 Y' |- t7 l, s
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    7 r0 Q. t% v" O8 ]1 L0 D   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    . x3 A  g- q" ]  H6 F   3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9},
    % ~! L( A* E$ ^6 d% \, }   3.577958922549148*^9}],
    * M: _, i; U6 [: H
    5 h3 o6 {# Y( L0 B! K# F. T' SCell[CellGroupData[{
    , K" }; w2 l$ a% @8 s% g0 Q7 v) N4 o8 i  a
    Cell[BoxData["y10"], "Input",
    + W3 ?& q$ Y# ^6 J1 ~ CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {" A( s: |% ]' }" }- U( O  s8 z8 T9 T7 B
       3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}],! P5 ?# o7 r' p" S. s
    5 L' Q% F% \! D' A+ S0 c; m3 ]
    Cell[BoxData[
    " N- I5 M" }. N) ]6 ] RowBox[{"{",
    1 w0 X; ^7 w6 S: E' p  RowBox[{
    2 \) T; ?' d+ M4 f7 A  "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",",
    3 E6 h8 u* Z4 V* {* i% H1 L   "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",", - k3 ~% m' j! X- x$ c
       "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
    4 w( ]$ Z$ T/ z/ L% @   "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
    " ?1 c& w4 e& \# h. ]   "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",", % n+ B$ R8 d0 u6 F
       "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
    - C* h) e0 v/ I; t   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",", " y% I: x( s- s2 ]; G, B0 q( A7 V* w( d# `
       "0.694935`"}], "}"}]], "Output",0 j# N" Q/ T4 ]& l  D% u' F1 _  ]
    CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9,
    3 z- S# |( q4 s4 D( l! F  3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9,
    % s% e) v4 V2 _; C  3.5779621736734805`*^9, 3.57801236071875*^9}]
    8 Q$ }; H0 H& g6 S}, Open  ]],& E' K( z8 r1 n! I) B1 ^

      i( v# p, l2 Y! r- _  LCell[CellGroupData[{
    & W2 f% C; A' F0 y. A
    1 @; Z( r7 O* h: G2 h8 ~Cell[BoxData[# Y. k! h( O! [+ n' D
    RowBox[{"y10", "=",
    7 {* P2 n. L, U( Z9 o3 I4 g  RowBox[{"{",
    $ q8 b+ ^0 z6 \8 \   RowBox[{
    0 e: w  R+ a6 ~8 z7 {6 z4 T   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 5 J- l9 t; B, y4 Y* Q# l% V
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / ~  U! D; O+ c# L+ ?
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    / Z- D: V1 ?9 K# R- f    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
    : f9 E8 D  b) `% t4 d    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", + i4 }5 K% H! c) V) V
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", & O+ n1 a3 _. i2 H+ t
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", 5 o1 r/ O+ ]8 R9 D6 @% z) ^
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", $ i+ w. Y/ g$ J; d# S" g
        "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    4 W7 O# T6 U% W; z( B, m# Q    "0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",",
    & t: T4 @; W) L! N, e* G    "0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", 0 R* r0 t$ E! m0 _+ m1 ?- L& l
        "0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", 5 H/ Z3 O3 o, K5 \/ _
        "0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", & ]3 C0 D. y" Y. O( T
        "0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",",
    ; X/ d0 E" A+ E    "0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",",
    , l: X) G% u8 P, J    "0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",",
    " T& _% V* ~. u8 V0 U2 ?- k    "0.390754`", ",", "0.694935`"}], "}"}]}]], "Input",: `! ]" E2 p# \2 E: m
    CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],; c# a+ {" O- r' h

    % @9 p- T" G$ L# r9 aCell[BoxData[0 Y4 b% `/ A. S% T
    RowBox[{"{",
    : k' ]1 @* F: }0 }0 X5 K  RowBox[{
    ; v- Q" |1 B% ~5 o/ R' Y  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 4 U) m- v1 ~& d0 F3 t' w
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",& f* q$ \0 y( Z: `2 I
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    ( u) T/ |! k- k2 d( K   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    9 W; O* P  a6 T) G' _2 F( Q0 w- f   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
      m2 U5 S3 |/ ]# g9 q0 F6 ]+ C   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 5 {9 c% Q% _! o+ V5 u+ c0 u0 x2 b
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    & u4 I1 @2 e3 j, y   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    ( b, N. B6 G& A2 I) u   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`",
    $ w' J3 n3 D0 }$ A! t   ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`",
    % n/ S: ^! j: p; q. R( w   ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ! w$ c. @& V, J; e
       ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
    - P5 Z7 U5 L: W" x    "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
    3 a2 b$ k; L6 i   "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",", . R* H5 h; _: Q& E
       "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
    / F, P5 S- y. R6 Y3 _   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
    * J  y9 ]2 ^5 K& M+ [2 X# _8 D   "0.694935`"}], "}"}]], "Output",
    & Q3 F, W5 @+ `/ G# g- y/ s CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9, # N( @) L( u2 }2 N8 w
      3.578012361734375*^9}]3 j0 F' c3 p9 G/ r1 C) J
    }, Open  ]],7 s, o7 a0 \+ V# o% ~

    4 @  o9 J+ U' k% SCell[CellGroupData[{
    * F) B+ L* i% a9 P7 v
    3 N1 Q* p: X2 X" {; ZCell[BoxData[, b# ?! p9 J# F+ l6 e: [
    RowBox[{"p1a", "=",
    ; o- P! g9 \3 D, S9 {  RowBox[{"ListPlot", "[",
    1 {- w9 ?: w. U. C2 K& r   RowBox[{"y1fit", ",", & _$ W. e# G, h5 j/ C0 }
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    . n$ S$ l- E6 \7 N, x9 a    RowBox[{"PlotStyle", "\[Rule]", 9 r  C9 p( m( g' U- O0 n
         RowBox[{"{", 1 ?; R' u0 a$ u+ l8 I
          RowBox[{"RGBColor", "[",
    / E$ a: i' Q+ v  i- _" x7 e) r5 U( X       RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",", 9 H1 E6 z' d/ P
        RowBox[{"PlotRange", "\[Rule]",
    ; Y: l* I- {! i8 b: n6 b+ L) A' r# g     RowBox[{"{",
    : u# ~9 S- j5 c  C4 U      RowBox[{
    3 u$ q, O) A' R: d- H. [9 Y       RowBox[{"{", ' a2 l" R* f$ [* ^$ c2 q% F. X
            RowBox[{"61", ",", "89"}], "}"}], ",", * N& p" W% a+ C5 g
           RowBox[{"{",
    6 h0 C- O9 e' s+ z) B5 l7 p% F        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    ; A' C0 @+ b2 o/ W: I% u3 a4 [5 i    RowBox[{"AxesOrigin", "\[Rule]", ' L" Z, K  E9 u$ N: @- _% l
         RowBox[{"{", : U& q  J, j7 Y+ l- D: R
          RowBox[{"61", ",", "0"}], "}"}]}], ",",
    ' ^3 H+ w, k4 y    RowBox[{"Frame", "\[Rule]", "True"}], ",", ; c% B- N2 q* b/ J; t
        RowBox[{"FrameLabel", "\[Rule]", # p' A# J6 O% L. m  |% u7 w4 \. {
         RowBox[{"{", # K; [; v& S  s
          RowBox[{
    4 h3 U- H; P8 k      "\"\<\:7089\:6b21\>\"", ",",
    $ ]3 i! A% s, V       "\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\7 @3 G( V+ S$ {& O! j6 C6 t
    \:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",$ `' Z( E* Y1 h, N) ^+ x# R: _* m
    CellChangeTimes->{5 j+ P& H. y5 n. j9 v
      3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {6 L$ C% F2 ?9 q7 s
       3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9, , l: y5 H- ?0 U3 ~/ W
       3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {
    # ^5 u# x5 ?# I+ d. s% Q: s! [; v   3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],5 |9 l$ ~' q9 N! U' W& V* d! U
    " z- `  }+ S' e4 x% l" q3 b
    Cell[BoxData[
    ) j" g% o" s2 p$ }8 Q. A GraphicsBox[{{}, {}, ) g  y+ o9 r1 d7 U* s* S
       {RGBColor[0, 0, 0], LineBox[CompressedData["
    5 j# l6 V1 \1 j9 S! Y* B9 ]1 W1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
    " ^* B" w& t3 i0 t8 ~8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
    , N; v( q$ A2 n5 F4 OD3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
    - `' @5 e  P# G7 c, x0 p: w# {1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX8 S* g4 e9 T1 z3 l' f- ~
    C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN/ [. }' `. h9 ]/ N2 f
    a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
    1 Q/ ]* I/ `$ a) E- w1 ]  s: K$ MyqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
    ; W) Z3 f) H. A/ D( b4 g& b8 fwrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59  F" I+ K, k- ?# e
    Y6nGQ3sAieueIw==8 _- S% W- d' [- A; b) `1 I0 \9 m
         "]]}}," n, [" |. l) Y" `
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],; |  J. C3 }  H* O, c9 ~
      Axes->True," r% s, u0 Y% u0 e1 E& g
      AxesOrigin->{61, 0},7 \: T8 T2 b* t- m
      Frame->True,/ ]& ?# p: m5 ^( E& k% q  c
      FrameLabel->{, g: K$ d0 p( ]: R7 E
        FormBox["\"\:7089\:6b21\"", TraditionalForm],
      j" N1 B/ a5 G# |$ O+ C    FormBox[
    9 N8 ]* i) n9 O0 K    "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
    3 l& G; C& k+ a6 n7 z# p1 L/ Y: w\:ff09\"", TraditionalForm]},. N  C* p  [" i- n1 x$ N1 m) s3 f/ y
      PlotRange->{{61, 89}, {0, 1}},) O* d" e0 }8 g3 x" f" E
      PlotRangeClipping->True,. K6 i1 i$ M, J" \# e) I3 E
      PlotRangePadding->{Automatic, Automatic}]], "Output",4 W$ m6 U% N5 e8 @
    CellChangeTimes->{
    . Y% ~: b/ l, `$ D$ j3 g& M  3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9,
    0 L8 ~- ?0 x1 ?: B: C9 J0 j   3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9,
    ; {, l, L5 [+ r, G4 r: N   3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9},
    - |. p  T6 @3 L. b5 |3 W- A) z: v   3.577962187510705*^9, 3.578012396921875*^9}]
    : Q$ `2 `$ e) _}, Open  ]],* L$ s; O- L. Q; M+ K4 `5 G

    ' |& l0 Q; S/ r9 p0 UCell[CellGroupData[{
    " B6 w# @( c  C& Y6 b; |* x2 }- B/ n4 \8 e* r" ~' @
    Cell[BoxData[
    * y' ?: M. G1 x6 J RowBox[{"p1b", "=", - f6 }3 ~( p- A$ ?, `6 i* I
      RowBox[{"ListPlot", "[", + U2 h/ U8 a9 c7 R  i. ~& P  z/ ?
       RowBox[{"y10", ",",
    * G3 |: w' i+ e+ \* U# Q    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", / j( L0 E3 A: q3 R0 Q' n: n
        RowBox[{"PlotStyle", "\[Rule]", : D  p9 |  E; d% }
         RowBox[{"{", ) h4 w2 Q3 K% ~. |/ O5 i# h4 c
          RowBox[{# t' f& H5 s( @
           RowBox[{"RGBColor", "[",
    * N# l& T6 I' b  V        RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
      o: C& H& B. ~9 R# F    ",", 0 K' ]  Y8 q5 |
        RowBox[{"PlotRange", "\[Rule]", " q5 d( ]. e- w8 {8 Z, P6 ^& T
         RowBox[{"{",
      w- l" d# ?3 r6 d# l5 {# Z      RowBox[{
    # W  `  ?4 b8 {8 |' p+ U! P$ [       RowBox[{"{", 3 O' W7 o1 Y. J4 }; `
            RowBox[{"61", ",", "89"}], "}"}], ",",
    3 m& ]0 X0 _% g1 J4 o0 T4 d       RowBox[{"{", 3 N) Q) u) i' t, i1 r
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", ! ~$ [  A) C. B5 o' W; i* D& k# U1 S& C
        RowBox[{"AxesOrigin", "\[Rule]", $ o6 a; q. b. s# \) I6 ~
         RowBox[{"{",
    ; Z2 O5 @% @( ]- A0 z2 g, p, A      RowBox[{"61", ",", "0"}], "}"}]}], ",", 7 y' Z0 s4 \7 \/ U2 J
        RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
    2 H, \( q3 e& } CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9, 8 f9 S8 R" \6 E  c+ m  C
      3.5779597764166365`*^9, 3.578012409265625*^9}],
    ' w# u# {4 i  h- p+ G8 @8 }4 _% H1 Z% }3 ]. |5 {( I
    Cell[BoxData[& [: l! q  v  h$ ~
    GraphicsBox[{{}, {}, & x0 U8 g2 y9 E' ?% y1 l  ^3 Q' q
       {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    ; A! a- Y* F& [" a7 V* n0 W. w1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ5 n( H+ B# Y5 }$ ^! S
    /B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
    5 ]2 |4 i: N6 `  f4 j! ~GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
    7 a; d+ O# q7 X' {GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
    : ?4 i3 h! P" V% w! R7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
    ( _/ a3 m% z' Q0 t/ GQu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri5 ?" U2 S* T! u- ]' D* T# L' `. Q! C3 h
    H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
    ; Y6 f& \& W5 e* _" e8 V- srQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
    & f- @% f( U! A0 {vA==1 H5 i6 Y; n4 l( a! m# x
         "]]}},( J/ d  K" [+ F7 b
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    / d6 J1 ~4 o- {  Axes->True,
    8 J) T6 u4 [3 p1 f, g  AxesOrigin->{61, 0},
    ) O# p3 L/ c% G0 r: g  Frame->True,
    2 E: R  o% g% ]" i3 r  PlotRange->{{61, 89}, {0, 1}},$ a2 d# v0 g: A% A1 M% J& m
      PlotRangeClipping->True,
    2 G& h4 N: i- S2 w  PlotRangePadding->{Automatic, Automatic}]], "Output",: X4 C3 X& s! ^. m! E5 j6 Q; _
    CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9, / K4 D- z& ~& @6 H7 I5 g
      3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9,
    5 _' _1 i+ R/ f  3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]
    $ P' i4 N# x8 A}, Open  ]],+ A: B3 s  S% |( k, \% D" r

    ) F7 w* O; \, ?Cell[CellGroupData[{
    3 i# i6 U$ N7 P9 f  z+ e% Y  ~
      M  `' ~7 W2 e6 A8 T/ F  ]Cell[BoxData[
    ' b1 d. M- `% n& V RowBox[{"Show", "[", : U$ E/ n! X( {. l0 J3 X; a: B
      RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],1 ?+ M5 B8 O7 ]
    # \: ^4 q3 J0 B/ \; W) T
    Cell[BoxData[
    0 _: s" f- s; R, |( l GraphicsBox[{{{}, {}, / L2 v7 p5 N( ]$ J+ K: J
        {RGBColor[0, 0, 0], LineBox[CompressedData["
    - g; h3 _- `; Y+ k; _, V* ]1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn- U: z) s, N- n4 ~( c4 Z5 Z* ^7 C( p
    8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
    4 m; _6 _& @: e8 |$ ?D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
    1 k- S$ O; o- b  i- ~1 `1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
    - p1 [3 y9 t6 G5 hC1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN& U3 K! x) z; Z+ u9 j5 n* [9 q
    a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff- |2 k7 S! P* W  l. ]
    yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
      e$ r& {6 C. d$ O8 E$ awrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
    9 Z! r/ Y! J  ~$ y' q8 C: k" D3 pY6nGQ3sAieueIw==5 I& R$ u0 b$ G: V* o% A
          "]]}}, {{}, {},
    # p# k1 U7 Q! P% H, Y( h    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["8 j& |! `8 |+ o* _& @: {+ ^
    1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ$ F$ P7 a, o/ ^  R( u: Z
    /B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy% O1 S8 H  `  R8 `" `) r7 ^
    GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy& u$ N: W! n& D; [5 e
    GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy  K) [& U# |. q2 [
    7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/6 ?" [5 Y/ [8 I4 ?- L/ G  s3 p1 w
    Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
    1 L5 b- \, H* X7 tH+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
    7 X7 W9 d3 p' UrQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
    ! J* t2 B# q3 a6 l" q1 J+ EvA==
    & |  R7 P1 G- ~$ o  d! S) K6 q( ~      "]]}}},
    , s  u4 A% b7 O$ O  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],# \) f5 n( r. k! ]/ ^
      Axes->True,
    + ^- |! n/ A1 e  AxesOrigin->{61, 0},# S: G2 W5 O, f$ ?# e! X" k6 g
      Frame->True,
    7 o: J3 P/ N( W$ P. J% n$ d" g7 o8 S  FrameLabel->{
    . M) U, _% A4 e* U    FormBox["\"\:7089\:6b21\"", TraditionalForm],
    ( Q$ l( ~; b6 B    FormBox[. T: m8 A4 l# R0 l1 ^
        "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
    1 n6 ^' |# U! v5 F7 U9 D\:ff09\"", TraditionalForm]},
    $ q! \' T  C! z; h# S+ J* J2 A  PlotRange->{{61, 89}, {0, 1}},2 M- ^3 }, F# [( w" c
      PlotRangeClipping->True,
    / y7 X5 s5 Z( q$ q3 W  PlotRangePadding->{Automatic, Automatic}]], "Output"," u/ B! t' L. B2 ]3 k' Q; `
    CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]8 i- `% d# w  ^. L0 S
    }, Open  ]],
    9 m: u# K7 i) v- k# w! ~" _' n+ C) z& U" R  y/ Q7 S
    Cell[BoxData["\:62df\:5408wi1"], "Input",, y0 F7 w+ j+ V, Q
    CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}, ( \# G' h* g$ O7 Q, ^
       3.577959662349238*^9}],
    . e! y- Y* a' W3 u& v7 F" X; A. Y& K3 F, G
    Cell[CellGroupData[{
    0 X8 P8 _' X) F
    ' |5 {5 B# i" G, g- H3 uCell[BoxData[
    6 w3 d" u8 q) t! N. V RowBox[{"y1b", "=", , h: H6 R3 x1 V' A9 T/ `4 v4 B
      RowBox[{"Table", "[",
    6 a! T& |) z( `* U/ O& `   RowBox[{"x", ",", & l  t* \7 w* i5 E# p# s
        RowBox[{"{", : s: c$ M- V7 o' A) y& k, }$ t3 @
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
      ?. c) k/ t3 J6 s9 m8 I( w- N, ~ CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {/ v, L5 C  \& \
       3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}],) G- g: |# F& m0 U
    % i  M- c5 D1 o
    Cell[BoxData[* O  Z7 g. i  Z% n3 L
    RowBox[{"{",
    $ b" O. \& Z% z" z) n5 R: N  RowBox[{) W( D" O7 `2 Z  g6 b% V5 x, N
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", $ m8 n* y( L$ s; q; t
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    , |+ ?% o) v$ T7 O0 v    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", * `+ W/ D5 u$ R9 G8 [7 O/ [% {
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", % A( X0 F; o9 [, l1 i0 V
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    + b* }& Q$ q: e5 P   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    + o. `4 b9 o: I9 g6 `   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    0 d; ]# ?, B' m4 p; P2 Y1 O   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 0 x6 e. [! h8 q; ?
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
    # M  m8 I. ]4 ^4 K' G  "}"}]], "Output",* c: m- z1 k# I% w8 p. p
    CellChangeTimes->{
    $ K4 Z2 h' s9 R) Z  P  3.577922682296875*^9, {3.5779582291435394`*^9, 3.5779582351339493`*^9},
    6 K6 ^- `& `: W) b, M3 t% u2 N   3.577958478041973*^9, 3.577959010205701*^9, 3.5779622225483656`*^9,
    & s  k# t/ C8 I! s9 Q# D6 W5 t' D* s/ B   3.578012438953125*^9}]
    $ f" s5 H8 T: F6 P% ~1 ^/ o}, Open  ]],
    ) c1 o, G* L& \, ~, @! A6 P) S3 \! I2 u$ T
    Cell[CellGroupData[{
    # O' D6 L$ H( K6 q; m3 Z) s/ r$ \
    # Q  _& b" z  ~$ qCell[BoxData[5 `! ?. [3 V9 J) L2 m8 G
    RowBox[{"Data", "[", / }: G3 u  y- z% {7 J
      RowBox[{"[",
    % R8 t( _9 ]! ]! F! W6 L+ i   RowBox[{"3", ",", "11"}], "]"}], "]"}]], "Input",
    6 L$ [& D/ z/ g$ ]% u" i* [* n% `1 L CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    # Z* W! a. v4 ~2 i* \' o& n   3.577922912015625*^9, 3.577922912171875*^9}, 3.5779582414831605`*^9, {  C9 O" O( E7 c% o
       3.577959014090108*^9, 3.577959016040111*^9}}],: M1 L+ x+ m# n6 f( {2 E
    1 p9 y4 K9 S; ?  j! z: R
    Cell[BoxData["0.492958`"], "Output",
    * [$ R  N8 ^5 F) ~ CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, ( v7 y( @; O! r! p+ x9 V, A% e
       3.577922913203125*^9, 3.577958242809163*^9, 3.5779584790403748`*^9,
      @" t4 M, J7 u! A% J( r+ U3 _' I   3.5779590175689135`*^9, 3.5779622239523687`*^9, 3.578012439828125*^9}]* ]2 ~4 D$ E/ `7 ^% P3 {
    }, Open  ]],
    ( ]# {3 a3 d9 f2 Q3 F% B, v
    1 e0 B; N5 {! ~8 bCell[BoxData[( E1 s( Q; E8 n3 H: x! T5 s0 F5 l: O1 m
    RowBox[{"For", "[",
    . ?  M1 f) ?+ r: f* H  RowBox[{. X, e; c9 v/ Q% D8 ]
       RowBox[{"i", "=", "1"}], ",",
    . H& o0 Z' C) q2 Y   RowBox[{"i", "\[LessEqual]", "60"}], ",",
    / ^+ f+ g" z" E- u6 X2 J9 y   RowBox[{"i", "++"}], ",", 1 B- C! F3 T  {/ w7 d% h
       RowBox[{$ ]! E; g" T/ S$ a! a
        RowBox[{"y1b", "[", 7 @9 ]! T# e- a
         RowBox[{"[", "i", "]"}], "]"}], "=",
    5 c. M9 P- n- a9 S* `6 I    RowBox[{"Data", "[", ; S+ G2 S7 H, @# f4 B% j/ M
         RowBox[{"[",
    4 A) ^0 W6 O) b" |4 O" o& t      RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
    $ V3 j8 D, g7 T6 Y CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    ; ]* e( N( K. w; q' O   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    # w- h% X$ h( y! n  M+ {2 o; X   3.577922923203125*^9}, 3.577958246272369*^9, 3.5779584755771685`*^9, {' }2 C+ {( q6 n9 y6 x
       3.57795902089172*^9, 3.5779590227793226`*^9}}],
    ' ?  v4 ~9 Y- y8 I6 C+ n2 ?% a" M, W4 x( ^1 r
    Cell[CellGroupData[{
    3 |; f1 O0 i* |$ c% f  A. x: I$ D; X# L* x* a( K# C8 k1 u
    Cell[BoxData["y1b"], "Input",$ L7 e* y) {5 m) h& Z
    CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9},
    / L0 c5 y. E! z- n) B  A   3.577958484172784*^9}],
    - H+ H$ q5 b0 a7 F6 m. X1 h2 V" ?3 a9 @% O
    Cell[BoxData[0 n% u' G; T( b' e& g
    RowBox[{"{", $ C) f/ s, g# N
      RowBox[{, z- |" Z) D6 h7 S. S' K( V0 B' L
      "0.873239`", ",", "0.464789`", ",", "0.492958`", ",", "0.774648`", ",",
    $ |9 J0 ?) y+ J% y( I* i4 j' z   "0.380282`", ",", "0.647887`", ",", "0.56338`", ",", "0.295775`", ",", + `; ]$ Y  {' R7 f, O5 d
       "0.338028`", ",", "0.211268`", ",", "0.690141`", ",", "0.43662`", ",",
    / u& R5 h0 @7 J. U/ t' G; H   "0.`", ",", "0.267606`", ",", "0.211268`", ",", "0.408451`", ",",
    3 M0 p1 i/ s6 l4 W. K   "0.478873`", ",", "0.380282`", ",", "0.211268`", ",", "0.43662`", ",",
    & S; f# B* a$ a! z/ P! E9 z   "0.478873`", ",", "0.295775`", ",", "0.028169`", ",", "0.43662`", ",", 3 X' J3 w: B& K
       "0.394366`", ",", "0.295775`", ",", "0.830986`", ",", "0.169014`", ",", ! `8 [) f' P( t/ r$ q. H# B' T
       "0.366197`", ",", "0.309859`", ",", "0.352113`", ",", "0.309859`", ",", 1 ]( U' ]+ y4 ~! x
       "0.774648`", ",", "0.422535`", ",", "0.887324`", ",", "0.887324`", ",",
    ( H1 b% c3 z: [1 L   "0.859155`", ",", "0.239437`", ",", "0.295775`", ",", "0.746479`", ",", 6 l$ C1 L2 A; ]; M0 _2 h- U5 ?
       "1.`", ",", "0.549296`", ",", "0.366197`", ",", "0.549296`", ",", 8 B2 v$ |: N" N7 p8 t' I/ m3 R
       "0.577465`", ",", "0.690141`", ",", "0.71831`", ",", "0.521127`", ",",
    ! w0 Z! _& s* n6 Y7 g/ N9 w4 w# g   "0.929577`", ",", "0.521127`", ",", "0.338028`", ",", "0.380282`", ",", 2 S* v6 `  @! p5 @3 V& d! c4 P
       "0.676056`", ",", "0.591549`", ",", "0.464789`", ",", "0.295775`", ",",
    / Y9 `  f$ |: ]4 g8 H7 ]) O   "0.380282`", ",", "0.211268`", ",", "0.253521`", ",", "0.28169`"}], 3 L* n0 U( F) I. P
      "}"}]], "Output",2 n) H! d: G5 \- R$ n+ T6 B1 y
    CellChangeTimes->{3.57792293246875*^9, 3.5779582549771843`*^9, / o- }7 @. Q4 m  [: t4 z9 Y% t5 n5 N
      3.577958485420786*^9, 3.577959026460929*^9, 3.5779622288195767`*^9,
    4 j6 ^& }# L* W$ ^* \  T  3.57801244275*^9}], E- V2 a- S  _( H# u8 o- P
    }, Open  ]],
    7 c  I' P( U4 x% K' [7 K
    8 p1 W& g" `$ ]3 ]; C: JCell[CellGroupData[{
    1 _" h' {' A2 Z' N" o" p( J4 q$ N7 \% v
    Cell[BoxData[
    - \$ Z0 Y! ^2 t  F4 v# l2 p RowBox[{"m60n21", "=",
    + X9 z4 M) Y: m( y: y. e# c  RowBox[{"Table", "[",
    / g2 f" }+ K( b5 u, c   RowBox[{
    ! `8 a, x. r& j& K3 d8 l/ E    RowBox[{"Table", "[", - @. j% D" U' u( b4 m7 `
         RowBox[{"y", ",",   Y1 ?# ^5 C' @$ r3 h& J
          RowBox[{"{", 7 N' \6 e: ^4 P! I, c; u
           RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",", 3 f- C( i& Q: D' @5 n. W
        RowBox[{"{",
    + {1 V# g9 r9 t$ t7 M0 N     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    " @% l. W1 E7 V$ i$ L  P CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {: z6 Q7 V: u7 m/ x
      3.577924052828125*^9, 3.577924101671875*^9}, {3.577962237961193*^9,
    ) @" }" J, x2 _' Q: {  3.577962240082796*^9}}],
    1 v# Q+ H3 U; a7 E
    ( b* x- ]' b' g1 ~+ t* BCell[BoxData[
    4 p$ T/ }8 Z) \4 d7 F% ~4 z8 p RowBox[{"{",
    6 S# b! l6 m3 M' v; |  RowBox[{
    % z( d4 ]* Q' a+ [7 f   RowBox[{"{", 5 b% H2 p! P* H8 F
        RowBox[{
    " z! e9 R1 \3 D$ c2 R, b$ h  _    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ q3 u! Z% B& @+ x; j" O( R  X
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    . D' V  }  h$ u$ }* g3 @9 B2 c# P     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    0 X* G% e' B; G0 y2 F* N* C$ ^     "}"}], ",",
    . p5 I/ H( B9 d$ q3 t4 o   RowBox[{"{",
    $ v+ y! w$ \. p5 C4 F: @1 v    RowBox[{! B' \7 z- h5 v2 C' D
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 c: ?4 c% F& K* G2 |      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 }8 p: d$ J6 G$ i
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* G" M. F& e% j. ]' R  Y
         "}"}], ",", " z6 |' x  u# k
       RowBox[{"{",
    , `( u/ r4 h/ L0 U7 B1 d# W    RowBox[{- E/ J' p$ P/ p
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: ~5 U3 j9 G5 C; b
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    " k" N/ w  v6 a$ V     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 C6 T# h8 f" _# r  e7 C' }+ M9 F
         "}"}], ",",
    - Z2 X) u: P! C8 h6 t8 I6 L7 L   RowBox[{"{",
    $ u5 ~4 B% B$ X  l$ M8 K    RowBox[{* ?( w. M$ _8 |& J4 T5 `$ S! s
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    7 I0 c: ~2 ?$ d; f0 f1 C, B9 ]      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 A: i4 E3 j: N6 `1 H1 a  l
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 V; k) W, s: {" G7 H: f9 U
         "}"}], ",",
    " l; U! G0 P. V: Y; O, o$ T   RowBox[{"{", : b# p4 U& I$ a; G6 s( q
        RowBox[{) V3 L$ @$ T- }6 N+ U
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; z, P+ x  l1 v
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; n. \8 A, K4 P* E+ o     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# ~$ h* v! ^( o& y0 b: H
         "}"}], ",", % q3 f; l0 }5 C: r# O  b7 B- b1 l' h
       RowBox[{"{", $ z, ?% `0 \! _
        RowBox[{
    7 f" h$ m6 Q# e% k% x    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( C2 o! m- E, T1 W8 v/ x2 C; h
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * q1 {4 R% [/ m1 J, i
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 e' a  f9 M# s- T; S
         "}"}], ",",
    ( k# C5 a/ H2 g7 {4 a# G   RowBox[{"{", ( n6 U. h0 Y! O: T
        RowBox[{* z" x% q# D- Q6 `  }/ a) _
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! C. X" p3 I# G0 X/ X2 p  [+ y! c5 s) Y
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( F4 b+ P7 {9 a
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& X" ?: W% ]& d/ K$ m
         "}"}], ",",
    . y( D$ u7 v. g1 m. U1 _4 ?   RowBox[{"{", ( R6 P; X, r: r, ?8 r! E0 V
        RowBox[{
    , I8 s; z4 k  V- U1 G9 U    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      P; p1 N& J5 g, Z( `5 C& n1 G$ G      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ' @* V% }( O0 L1 `4 p& S     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      J0 H3 }* ?  m2 @9 G7 @     "}"}], ",", " W8 b% p$ U1 ^0 b7 b* Z. [
       RowBox[{"{", 3 j7 K/ L; E/ B! N) C8 U
        RowBox[{
    $ k( C9 P& R) Z: x, X' K: t" x    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ' E: t9 O* \8 a& b& V+ L# d! \4 l) B      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; T' L. R7 v; v, ?     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . g% C; T+ V9 p* [- r5 {) A     "}"}], ",", 3 c8 ]) }- _0 ]2 f& z
       RowBox[{"{",
    4 l2 g: \# f, w$ Q: A/ N- |6 }    RowBox[{8 [9 |0 u# C$ M2 n; H7 d
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    & f) ^2 K5 A3 J  \9 K8 k      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 ]" d7 J( P7 @& N  L/ t
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    3 m  R5 z0 Q* y) @; a. s     "}"}], ",",
    ) Z, z2 w6 r( ~# j; {   RowBox[{"{",
    7 z8 c3 N# |; N2 J! A$ }    RowBox[{6 J% L" Q/ s9 ]
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) D- \( X% R( P. V5 z% B& U
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 I& A4 {: B1 l  z6 c- ?; a
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. p& ]; Z, y6 n  w3 T% ?+ Y
         "}"}], ",",
    + |' {, o# K6 d2 T) n% s4 T   RowBox[{"{",
    + _  _# {, u3 J# ]6 b6 a; m    RowBox[{$ c0 h# Y9 c" `& }# D
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," [7 s4 w# B$ V& y
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    # B9 l3 l8 ~. `     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 P; L3 s7 d( L5 U, }7 a6 W
         "}"}], ",",
    , S$ Z' t) x) P/ s! V3 m4 r' H! V   RowBox[{"{", # V. O$ I3 f% j  j+ V5 M
        RowBox[{
    : L8 \9 W6 u' r2 U, v; j/ {    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, j7 S  H8 T! j8 W( K% E" X7 J" [
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   b$ T4 M, c8 a% z5 N% w
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( u3 c' O/ B+ p2 `+ j( N% a# O
         "}"}], ",", - X! g7 p0 x% }) m! }& _
       RowBox[{"{",
    6 h+ V( A8 d3 }+ ^. n    RowBox[{1 o, Q7 e" K6 e. B6 G* G
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    . g3 N3 p, A6 J5 G5 C& N      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ) O3 R  C7 x. Z8 K0 g     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    2 j4 V' i7 C6 E- n     "}"}], ",",
    * G; W1 k4 B# c3 w0 _) n0 h   RowBox[{"{",
    - i! T& i; ?6 d8 C# A+ n    RowBox[{% q, j$ P/ Z. H- C" q( o2 R
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    % Y4 y& ~0 o/ r      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    3 ^& K& a& A2 W& q     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 u7 G7 W2 Y, [/ K7 V$ I$ u$ _1 E  l  R
         "}"}], ",",
    2 r& j6 h2 ~/ Y6 v, V   RowBox[{"{", 3 J/ x1 B. v6 M9 R' `8 _
        RowBox[{
    4 M9 S/ ]7 a% u9 P    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 Y; n, w  v$ O5 a      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + i/ I' Z# K% q7 K2 q0 y
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& Y/ O4 ~5 D. b9 t) `) w7 T
         "}"}], ",",
    - P4 o6 h+ C, C1 t   RowBox[{"{", * Z* {6 g, F, R  Y6 @" t5 d; O
        RowBox[{
    ; d( }' j0 _9 _$ `* c- ], t. k    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# ?. H  _1 L  F" r9 s2 s
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    9 z% V# M0 d+ f     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    % x5 z* k( H1 Z% }     "}"}], ",", # G5 h1 O: B' f( p
       RowBox[{"{", , S, Z9 ~' w; M: z" J
        RowBox[{
    $ _' k7 l+ R% b* m- G    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 ~' |. n* _! T: U  m) z" o5 s' M      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & L* S7 r% f. }' ^
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# Y0 {' [* S  {9 @" _) X
         "}"}], ",", ! C  j# P6 Y, `
       RowBox[{"{", ! ~- Z1 D3 D. g/ @# l8 Y4 i
        RowBox[{0 _4 \' k) q- I5 M2 |
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 ~2 d' C, `, V3 B) [+ M  ~
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 p5 Z3 Z3 R1 i% I. H
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    # U, Q/ U; n# G0 @     "}"}], ",", * Z" p$ A: R; B" f- `
       RowBox[{"{",
    7 r7 X& i/ S, @1 `1 F  d$ p7 q    RowBox[{
    * P: t8 S7 m; n4 x3 u- S4 R( N    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 i) s( V* z1 D
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * g% W3 ]: N: N
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    3 X3 Z6 x8 w7 |     "}"}], ",",
    : o& Z" z: N& t  C4 W1 W; A3 l   RowBox[{"{",
    . L8 q  ~0 ?/ Q# g1 W! R  [    RowBox[{( }# r4 Z" t& r2 E7 a& S: O0 E+ x
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",  R; s: L- ]3 V! J. I4 K
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) m, r8 Q. b1 o* n) ?1 r. z1 Z
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ( S2 b1 O' F/ U9 E6 p$ c: d     "}"}], ",",   \6 [! _7 A  {
       RowBox[{"{",
    5 }% I3 L2 X8 f! G. @7 `/ ?    RowBox[{5 }7 H2 h0 P: t( n8 ^
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ _8 i. e0 E( n9 |% z  {
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 e) ~( {4 p$ d6 }9 Y2 E
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' s; a% ^* C% D0 m3 c7 z' |" ]
         "}"}], ",",
    # c+ P: a' H' e% `$ y& s& ^   RowBox[{"{",
    . H5 _5 W. Z( I! Q; [' T; ?% J, |! N    RowBox[{
    % j- p' _+ V/ X    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) L' ~7 B4 @; W6 k/ l. C2 C$ q/ m
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : b, S+ x. Q# n! {* V2 K
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      Z9 k2 I# g4 A' p     "}"}], ",",
    : L: C* t' E% ]! {   RowBox[{"{",
    $ ]# _" c' }+ o7 |    RowBox[{
    7 o) H; r2 b* w  ^, {' v" ^8 \    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    . x/ A+ p8 O, ^* x8 m, j/ M; M% k      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 {/ O$ N- N& o5 \  c: v* s) {
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    % R) Q  [0 {# I4 Z     "}"}], ",", * o9 m- e/ @, h) E4 N3 C7 d/ I
       RowBox[{"{",
    : H9 X* ^& f2 o7 [$ e    RowBox[{
    % [5 d9 v, [' Z; R7 m, A    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. K4 y: ~  @) V* k  g
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    % K  B: ]6 e: x; a4 L& j. @     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 b1 `: [3 @# U+ A$ S6 T( I
         "}"}], ",",
    3 x& ~$ M. S0 x2 y   RowBox[{"{",
      `8 X4 M& C# {    RowBox[{
    * r9 {9 O" U3 z" H: Y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    3 r* I" }/ \5 l. e      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) Y- {* Q. ^7 |7 x" K5 E. J
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    - B2 g! O9 \/ F0 J     "}"}], ",",
    $ p; e7 ]/ h4 Z7 Q  H% i3 n) M   RowBox[{"{",
    / E" @) V3 u6 v: D+ W    RowBox[{' f0 m# u- S- @, C1 ]/ n
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 f  _$ a& J4 y' j: F9 V      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    $ Z7 M* {9 J8 S4 \     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    0 M/ f3 ^" I2 N. K     "}"}], ",", " F4 v/ \0 F7 U" d- Z
       RowBox[{"{",
    3 A% A6 Q* u2 }, w. z    RowBox[{" ^  R+ D8 Q; k/ [1 W& u
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* Q$ L5 T8 [# L8 T
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 P2 l8 R6 p4 P' r: s+ I
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    7 N/ O* |7 v2 k     "}"}], ",",
    % B6 s) @( ~0 v( k& |   RowBox[{"{", & V/ V$ Y; @" ^8 V+ c7 l5 E
        RowBox[{0 b+ `$ B$ |2 Z3 o* j
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    5 g7 w: v- c, `8 f9 r      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , Y5 P: S8 m) J+ ]3 T4 h
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ( W7 c- V# K: `$ V0 @     "}"}], ",", ( p& l' c! k* T: M; h
       RowBox[{"{",
    . t# M2 A: l' @. D1 @) y    RowBox[{
    $ ~( }9 O! g1 i    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! ~" z3 s; X& P! K
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    , I# i; |( u) @( D1 a     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    , S# t# v$ B8 Y% ?  J9 m1 O+ j     "}"}], ",", 6 y3 k( u6 p0 r$ q: ?
       RowBox[{"{",
    ; _/ \4 Y# o; `, X    RowBox[{8 R0 q/ j9 I3 f1 y2 N) E
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    . d" l  y, \. t      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ ?, y# [; G) p. U: p/ V  i  I
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    * w! N1 {6 k' `* M2 k; _' a     "}"}], ",",
    - C2 d1 o0 M: e+ P9 N( p   RowBox[{"{", $ ~5 ~. ^7 W( b2 u0 G& r$ Q% u
        RowBox[{% U4 _- B$ g4 {0 _6 V2 b! l- v6 N; S
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 h* z' [, f2 Z( r8 _
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    & T6 f9 V0 `5 P9 B1 m9 D6 f     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; k" O5 f; z- F1 M, S
         "}"}], ",",
      x2 w0 Y6 f3 ]2 |* ]   RowBox[{"{", 0 I8 z1 h( J- `# N- V
        RowBox[{% H8 q/ ?* Z- i1 R) t$ k
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 h& V0 r$ h9 `- w) C& x" S0 s" J
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! H' H' j+ |( a- s4 c+ n
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    * ~/ u$ ?  {( o1 R2 ~- ^5 ?* `% W% ^     "}"}], ",", + S+ |$ N+ V' ~& [
       RowBox[{"{", 3 v+ l- h# d3 B% e1 F6 k
        RowBox[{
    ! C! F9 e& H) x3 ^9 `" |1 n; w! g    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; w8 t1 K  o7 z) I0 Y
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! O7 R! _- e9 ?4 S& N* u- X4 c
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    2 ~# I: x7 S3 L  t3 @  R& M# o# O     "}"}], ",", ! L& W" F, K2 x8 b$ ~  U# u
       RowBox[{"{", . E: X+ m" {! U% F% ?
        RowBox[{% d" ~& r/ Y2 A( ~7 P/ E' Q
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ R; g5 ?3 H% s  S( W7 A% x/ f
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ i+ J% f% ~! z8 D* _! e' _
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 t: ^& {+ D% M6 ~4 P
         "}"}], ",",
    + F* S3 _5 g7 H   RowBox[{"{", 1 Z5 b8 C: j8 X. [4 }3 M
        RowBox[{
    # m5 v8 c' S4 B! u    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ) o4 v9 _" V8 L6 p5 n7 Q. a# i/ R      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " ^: |5 E: Z. X$ k! i
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 z5 M) Y' D- f. S! l4 r
         "}"}], ",", - H2 ~. A# R- P6 Y. |
       RowBox[{"{", * }* J6 D1 z9 ~  O" y& u8 t0 M! A
        RowBox[{
    ; D* n. L( P  I% x3 J    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    + C$ p* p5 D+ ^1 K! a      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    , Q/ ]% x' P- N4 A9 s' h     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    / k" t+ W6 r1 V# C. [! M     "}"}], ",",
    : [( E% l2 N: \- r% V4 R! J( [: M! [   RowBox[{"{",
    - N' F: I5 z# i* k    RowBox[{
    8 V2 g% v& P3 p    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : q7 N, N, Y' }  V2 l0 {1 W      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; ^+ d% Q$ I1 K3 ?# z( R$ Q     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ I6 M' t# ~( f
         "}"}], ",",
    / v0 j$ z1 p9 T7 @) R   RowBox[{"{",   Z" r8 w* o. T9 a* _, ~1 _! E
        RowBox[{
    3 {* u/ J8 {" W9 @5 t    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 F; b6 f. [8 e
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . v2 t; u  q, b% [% }
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    8 u: k6 O8 {  w+ J! j     "}"}], ",",
    ; S/ Q6 x+ U: r0 }! a( {   RowBox[{"{", , i+ z; B% f2 s' V, |4 n
        RowBox[{
    2 ^' A8 c# \, T+ s) j    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 g  r7 q0 ^9 ?+ W      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    & w2 t0 Q! V& Q& f1 E7 U' I/ X) }     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& [7 U% Q- v6 K  B) K( ^3 C( R
         "}"}], ",",
    , I2 a" c" q7 W   RowBox[{"{",
    & _) q( K; R4 T1 V    RowBox[{$ q2 h/ U5 D* F3 o% Q5 [
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    & D2 _# J1 |/ N4 A0 W' Y! ~      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    8 s3 x, p! q2 Q* K% U& p     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ m+ f/ l) o$ Q5 ?. Y! R( M; Q
         "}"}], ",", ! w( |8 V8 k: s
       RowBox[{"{", ! m1 ]) j( m& C) l2 ~
        RowBox[{
    ( Z# ~" O$ l* n" X. c1 e& i- G    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 Q2 `$ i7 Y. _7 d# e0 ?# o
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    5 }$ d1 u' R( J4 e  `4 Y9 N, [& s     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    6 y7 R  p9 W  T" p# Y     "}"}], ",",
    ) l' M% Q  e2 _- E& q* y   RowBox[{"{",
    , \' A0 S, o; T" ]% r/ X( _    RowBox[{- |7 f1 }: E3 P
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ! w+ a# x, I, q& q+ x/ f      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    : M% ?: Q5 U. d! Y1 W6 J7 ]0 W     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 j$ j. Y" m+ A% S  ^5 d
         "}"}], ",", ' [7 [" ?9 Z" o# T3 z: @
       RowBox[{"{",
    - A+ S: R3 t  k1 H% f    RowBox[{5 h9 s; u, D' B4 h7 I9 |
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: P$ [8 [4 q7 e( s3 ~9 b0 T8 e
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    * m2 t* \0 h2 e4 M& Z7 ?8 ?     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    , f$ @" N0 c0 o     "}"}], ",", ' a- w& P0 b5 @
       RowBox[{"{", & n2 M/ ]2 d$ m, n# d9 `0 P( R
        RowBox[{
    & j- I8 R9 G9 }1 I; \- F    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: C$ O/ q: ]: A3 `( O, e
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ) U4 P- J6 c% w6 ?4 F     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    / s" |7 C; h* V" t/ I& l* E     "}"}], ",",
    ; T9 K4 g& j! ?( t- t8 K+ y; j7 B   RowBox[{"{", / x& i6 C) e* R+ p
        RowBox[{( h7 k3 E# w/ b& y- E. J; ]
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 K" B& P8 O) }6 v( m4 l0 f
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / c4 k3 l7 k. Y2 }; @
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ( \- i+ V0 t- X  M5 e( @     "}"}], ",", , p$ {% G, e  a/ a, W. u1 `+ I2 ^
       RowBox[{"{", 0 J3 Q1 e: a9 Y) e
        RowBox[{6 y1 z, ~$ f/ ]9 m; y! J
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ( i, V- {* X% ~3 |      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    9 Y! `8 u/ p) ]$ i1 I$ Q; J/ g     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& e$ H* D# Q6 X$ h( H
         "}"}], ",",
    ( r7 C; D5 t% h   RowBox[{"{",
    " B9 B' s: _/ P8 h3 G    RowBox[{) o" |* \5 p% ]- V  J  I6 i! \
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : N( Y7 z, x( Y9 w$ X1 h      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    + e( v& m! {' R0 J     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ |' \. r' d4 e2 @( L& Y0 [! }
         "}"}], ",", 1 T1 v2 n6 K1 e
       RowBox[{"{",
    " a: l- c% L1 a8 M    RowBox[{$ {( d5 ^& O: b6 p7 A0 \" d8 w0 y
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. I* R' j+ h0 k# Z- a0 A
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " ]( U* v; ]; q" ?9 h  p5 Y* K- i
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 M$ D# Z/ P( s5 h3 I
         "}"}], ",",
    " r% d9 N& |1 Z& ^" g   RowBox[{"{",
    3 c) a. G5 E$ }+ G    RowBox[{
    8 K: N/ D2 T) r    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 [# D& o+ J. W' e/ x# p+ S/ I      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    - a$ \. W; k- u+ p     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 H; h# f/ p" r. x! u# O% q$ R' G
         "}"}], ",",
    5 M% Y# E( C  F2 I" G   RowBox[{"{",
    " d+ L: i: s% [9 D3 r    RowBox[{
    ' f: S8 A$ X" g* q8 w8 g; S* _4 o    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    " B6 A3 t4 z+ i+ v      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    / g! S+ E& b/ r  e5 ]7 E     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 A9 O0 D, z+ l/ p6 Y# W
         "}"}], ",",
    & C8 h+ U+ w7 ?2 i  t   RowBox[{"{", + b0 r7 J1 u3 ]9 z2 G7 n, w% R
        RowBox[{) d+ U: `5 i# ~3 F; }: U' w
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 H" R1 a! C, }* y6 V8 W
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    9 H* f$ c' F% [! y1 B9 Y, v+ ~, c     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    - m; H+ N. _# b3 N     "}"}], ",",
    ( l3 ~: N- ^; V% ~7 `4 Y, ^   RowBox[{"{",
    , ]% j; F+ w9 L2 h* L. X1 X( n    RowBox[{! P9 k  l% n: Y3 d% _
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ O* w( d) Y: _  t- P8 ^
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 k4 w# _2 K# L$ T* C& Z0 x  n
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    & e, b) c, [, K8 S, A     "}"}], ",", 9 k3 t' [* [9 l2 W( ]% a+ u
       RowBox[{"{", 7 }8 q! W7 |; P! y" [: T
        RowBox[{$ a1 V; A1 ]/ A- S" w
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    6 I- f. z" T. c      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    " _3 Y+ x1 S5 n* N% z$ B0 S     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    & o9 q( V+ A' d( P7 M9 D     "}"}], ",", . U2 }! g3 H# M
       RowBox[{"{", . _- u: d% `6 V& T/ M% A, I; w
        RowBox[{8 `# U5 X1 T, E3 a
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) u+ S8 }- c% w; Q
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " Q0 j$ ~- F9 c
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    & `5 f% C& F: }6 r     "}"}], ",",
    3 a0 v9 T: I: g& S+ g   RowBox[{"{",
    7 l$ d( @5 Z% y+ V" e6 u) o+ M4 D    RowBox[{
    ) d1 y( k* f: V1 d    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    # g2 g; A0 I7 l4 I      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / S. [2 s4 t' T1 ^" \  m
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ! _5 p1 t, `# M% T0 D8 [; W     "}"}], ",", 6 B& t' ?& y+ w* }- _
       RowBox[{"{",
    + `! }  q& [) b, Q3 l; c  t    RowBox[{
    * B* K( N; ^3 C+ ?* M9 e! T    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* I7 j" J& v' B9 y4 S3 }
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( b  K, \* ?; o/ u7 K4 W4 U
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ w; J. p4 L9 p; H% `) }' E
         "}"}], ",",
      T8 c( o- w* X+ Z9 I   RowBox[{"{",
    ; D6 T. [# y- ]# p: ~( G    RowBox[{
    ; y" P6 X  ]% A# P! [) @; U    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    & `( y7 g, |4 Q3 W- A, `      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    % T$ W& F, Y. x( I! y% ]/ H5 K; @4 O     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    3 z% H4 \2 ]8 y2 X3 y     "}"}], ",", . c; F% z2 V: Q# d: F
       RowBox[{"{", / R( t1 k8 i* L( H, {
        RowBox[{$ g5 t; r7 k% s; t
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% [4 H& ~. Z4 x# J' S$ D
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) {1 T  x% X; L$ b3 ^, e( l: y
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. p4 `7 ~/ k' n  w  K
         "}"}], ",",
    : A" f1 \' U. D: v  z# C   RowBox[{"{", . D! z& T9 p+ a: x/ b* w
        RowBox[{$ F$ y: [( ]" E$ k3 t9 k. p
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 P3 e4 z, G2 ~) m5 F4 I
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    * Q; ]$ d) Q% {     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 a* @4 Y8 I0 J+ {4 S
         "}"}]}], "}"}]], "Output",
    2 O5 D/ ?- a$ f% p CellChangeTimes->{6 L  X% O  q! @0 i3 ]+ M% w4 u& a
      3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9}, " l7 O* ~" u2 ?9 Q4 i0 A
       3.5779582609987946`*^9, 3.577958492393998*^9, 3.5779590297369347`*^9,
    $ v% u# q; f/ L! q9 F   3.5779622422980003`*^9, 3.578012443890625*^9}]; F, }4 D. _' S
    }, Open  ]],3 k0 Q5 Y* f4 F
    . m: @4 e" j. N" F$ o
    Cell[BoxData[
    . W) |7 K: N; L7 [$ a0 i/ |8 H RowBox[{"For", "[", 5 g( X8 c- }# Y+ g
      RowBox[{4 E0 G6 z4 r! ?2 n3 C
       RowBox[{"i", "=", "1"}], ",", 4 W0 g: f4 s* W" Z8 v$ ^9 F
       RowBox[{"i", "\[LessEqual]", "60"}], ",", 3 X( ^5 \( |9 w  _+ x  R
       RowBox[{"i", "++"}], ",",
    " o5 @4 y7 V- k5 H+ h9 D3 T   RowBox[{"{", "\[IndentingNewLine]", / q: n/ F" B; \% H; U
        RowBox[{; F  N. J, Z- H; o
         RowBox[{
    ' ]* R0 ^5 }+ _4 V+ J3 `$ z9 o      RowBox[{"m60n21", "[", 5 J& l" |/ j  t( [( @/ f2 H
           RowBox[{"[",
    ! R% ]: c5 B# N! `/ j+ X        RowBox[{"i", ",", "1"}], "]"}], "]"}], "=",
    9 Z& R% w" j1 b& b: ]1 a      RowBox[{"u1", "/.", : k" Q$ e) y, r7 @
           RowBox[{"{",
    1 H* P% J* y. s4 R        RowBox[{, q5 J1 b- A* a2 m4 g2 U
             RowBox[{"x1", "->",
    - \, z1 p. E" d5 t* C. o# ?          RowBox[{"Data", "[",
    1 }  A$ L5 u3 H5 S3 O- w           RowBox[{"[",
    * T$ F) M/ t8 ~( f            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    % n' g; e/ H3 r  _; R6 q# ?) s) t         RowBox[{"x2", "->",
    ( \( L( M: R- i7 _) N          RowBox[{"Data", "[",
    7 u2 ^" X, h! s* ~/ ]. O8 O           RowBox[{"[", $ e+ [% y1 [4 k# U+ A
                RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    6 r, P7 I; `) H+ c5 f$ r         RowBox[{"x3", "->", - ~0 \, @) u- @/ }
              RowBox[{"Data", "[",   p# E; W8 l! N( m/ u) S
               RowBox[{"[", : k' f! j2 h" ]
                RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ; j) k2 S; ?) L+ w
             RowBox[{"x4", "->", 2 H+ y0 c  g, m
              RowBox[{"Data", "[", " M* I, q4 `: }7 R* |& H
               RowBox[{"[", % F7 }- o1 {& M
                RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 1 |% b5 U) T  t' |" d8 X- e
             RowBox[{"x5", "->", 8 S( ~6 p/ Y1 o5 x1 n/ I& B
              RowBox[{"Data", "[", 6 Z/ r0 f" M) x( B) u1 ~
               RowBox[{"[", / c9 B5 t- R2 E
                RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 4 y. d# Q5 P$ r( O  p; e
             RowBox[{"x6", "->", ' z' Q/ M  x- ]4 Z
              RowBox[{"Data", "[", 7 X- A+ C6 ]2 {: M& H
               RowBox[{"[", 9 ]: B" J! X' y  o. r1 R! c: V% _
                RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ( z0 n" [0 I9 `8 Q5 p- ]6 g. S5 k
             RowBox[{"x7", "->",
    % f# |& V( y$ d; {5 H2 X          RowBox[{"Data", "[", . X$ Z. K7 A3 S) v/ ]6 l) q# F, y
               RowBox[{"[", 0 {% _% `6 o: N$ O/ T/ {7 q: r
                RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 6 k5 |9 i+ [4 ?, l9 f% _) a& ]% W# Q
             RowBox[{"x8", "->", ; X+ f- {  R7 R" S7 n( t
              RowBox[{"Data", "[", ; s1 g+ y; ]3 |, t" y) o6 x; X0 W
               RowBox[{"[", ) A2 Z5 [. z; X; P" m2 L' z
                RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", + P, \/ w, C0 v% i* M' ~
             RowBox[{"x9", "->", 9 L4 M0 X5 I3 E! u' b
              RowBox[{"Data", "[",
    , k: ]( g8 V& o- w) r: \           RowBox[{"[", 2 U0 t. Z- _& k' X. L2 Y
                RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", - r' q4 x8 Q' d. i4 d4 O
         "\[IndentingNewLine]",
    ' \4 W6 l% r" ~1 H' t1 Y     RowBox[{
    ! S6 A2 p9 e( G' p8 M0 w      RowBox[{"m60n21", "[", 7 M- X! A& I+ A& E) d
           RowBox[{"[", + r* A6 d2 A: ]& @
            RowBox[{"i", ",", "2"}], "]"}], "]"}], "=", / C  |7 _- u3 z2 i. E) U8 a( y
          RowBox[{"u2", "/.", , p% J# [2 Q& n* s+ K
           RowBox[{"{", # _8 ?/ G* i* d3 }6 R, q
            RowBox[{9 |  T+ t. ^4 }! F, X
             RowBox[{"x1", "->", / e- b( W: h: G0 J1 o
              RowBox[{"Data", "[",
    3 o+ t2 o% F) v* c4 N9 G% @           RowBox[{"[",
    ! w2 {& E5 R, z' L* v) k$ S7 Y+ W            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 6 e6 P6 U* O3 p
             RowBox[{"x2", "->", ; u# M( B! z5 d
              RowBox[{"Data", "[",
    7 h" h. \( w$ U  P. B           RowBox[{"[", ; E! {! M( H7 L. y* S% i! d
                RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    0 h8 p- J% r; O  u! b4 [; G         RowBox[{"x3", "->", " q' |/ Y0 H# [
              RowBox[{"Data", "[",
    * G5 ^2 j8 z) \5 o: Q: N9 _! _- O% q2 v           RowBox[{"[",
    3 k4 p/ @! J' d/ a- K7 E            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
    3 A1 d, ]% ~* _, y% u4 F         RowBox[{"x4", "->",
    3 u8 G7 v9 }6 z7 S# o' o: `          RowBox[{"Data", "[", - h8 @; l3 N5 p5 \& ^  d/ m; s# j
               RowBox[{"[", 0 d: [2 c( c0 E4 @! n4 e
                RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 2 W. _/ b" r8 l* U
             RowBox[{"x5", "->",
    " w, `8 S2 Z, {" C) T2 P" g          RowBox[{"Data", "[", / w) w/ p* V" u) E# W, q+ N# j
               RowBox[{"[", ( `' r; x* E  w+ H. J
                RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 4 d4 C( @/ u8 s1 X2 I5 w7 s
             RowBox[{"x6", "->",
    # L, M9 C4 m! k) b          RowBox[{"Data", "[",
    + ?- J1 r" ]. `  P  f0 t           RowBox[{"[", 7 T# z3 U. Y" q: b
                RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", . m/ J# q$ m4 @' u4 C! [
             RowBox[{"x7", "->", & N4 v0 @! `7 F0 r6 p' V$ R
              RowBox[{"Data", "[",
    + d& z- i- q- P/ G5 \5 q           RowBox[{"[",
    2 @3 d2 W  L+ ^            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
    ) s( c8 h3 a$ P5 C; W+ K2 x; M         RowBox[{"x8", "->",
    - h! q# l# j( w6 r          RowBox[{"Data", "[", ( p( u7 \/ Z3 T
               RowBox[{"[",
    $ m$ z3 s; E7 L            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", - e; P; p: z( Y3 u4 R
             RowBox[{"x9", "->",
    9 A6 f5 p8 D: a, K* P9 M- F          RowBox[{"Data", "[", - c: y/ w$ P2 A/ g3 ^, W
               RowBox[{"[", % G3 V5 n  T7 z5 l2 o2 }- Y
                RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 6 w8 x) k& x3 P2 n
         "\[IndentingNewLine]", 7 n5 C8 h% X* W  ~  }
         RowBox[{# J' C/ N4 B6 C/ V" |
          RowBox[{"m60n21", "[",
    5 r2 z" V6 ^1 {8 O. K$ P       RowBox[{"[",
    0 w+ |. Z8 @  Q, y6 g0 G        RowBox[{"i", ",", "3"}], "]"}], "]"}], "=", % K1 Q, r2 I) \
          RowBox[{"u3", "/.", # i- d8 i/ \  f* i% A  r
           RowBox[{"{", - i2 r) \; I3 M4 @# z
            RowBox[{$ z8 A9 P- M: E% `
             RowBox[{"x1", "->",
    ; S; _9 [6 c5 s3 g( b5 @- P5 z          RowBox[{"Data", "[",
    ' C8 y2 p2 M& d8 E           RowBox[{"[", ) v+ a2 l5 I4 M: |
                RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",   x% e; C. E' ^
             RowBox[{"x2", "->", . w, p  g8 K* V$ j/ _  P
              RowBox[{"Data", "[", 6 i5 k# E9 k6 ^1 u6 D
               RowBox[{"[",
    ; |3 Y2 K$ v2 }: b. U            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    ( x$ p# C9 x. j: s         RowBox[{"x3", "->", ! X2 C5 E- i& R
              RowBox[{"Data", "[",
    ( y, r3 d, ~/ ]: [           RowBox[{"[", 9 L! P2 b! H' Q/ n( k+ U
                RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", # Q1 P& l* P7 J9 t
             RowBox[{"x4", "->",
    / Y" [! z; p  c9 U  Y          RowBox[{"Data", "[",
    " G  k) i! p* t) Y3 Z/ {           RowBox[{"[", 6 v; ]3 v8 |' D! k7 V
                RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", $ w, b9 Q% t. V: S7 ^  e( d/ ]
             RowBox[{"x5", "->",
    $ ]: S: Y' H' D3 m4 S$ Z          RowBox[{"Data", "[", 1 x9 g% v' D% J. X! F3 v. v
               RowBox[{"[",   _( `' [2 Y4 e$ l, Q: Z1 k
                RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", # H/ m$ [6 Z. {3 k* f- p$ R
             RowBox[{"x6", "->",
    , P$ Y* R& u/ V2 i          RowBox[{"Data", "[",
    5 e6 j* `2 F& f/ L- o           RowBox[{"[",   [9 d9 h( y. f  v- O. h
                RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", # i! N  }1 G4 h
             RowBox[{"x7", "->",
    ! y) R# ?3 @2 i1 G# `. g- T          RowBox[{"Data", "[", ! U& j9 h" t, f: m( _: e
               RowBox[{"[",
    1 M$ d9 M5 a& y2 X, X& o            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
    8 W: a$ l8 v2 h3 A8 f         RowBox[{"x8", "->",
    ; I& ]* f4 X/ v/ ?% i# |          RowBox[{"Data", "[",   ^+ P9 M( v! v0 ]- ^4 ]4 j/ L
               RowBox[{"[",
    3 h% L! d0 y, l, j            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
    , E0 K" J; g  F8 Z" p6 e         RowBox[{"x9", "->", . W* u1 Y5 ?- l+ C+ u
              RowBox[{"Data", "[",
    $ g' x5 S0 ~+ F8 C           RowBox[{"[", 1 |9 i+ X4 w: r! u7 f( o
                RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
    1 X$ I* b& G& Y! H+ h! z     "\[IndentingNewLine]", 5 t$ T. v% c8 T) Q
         RowBox[{) G" j; B, p- O
          RowBox[{"m60n21", "[", ; g, N' [& f* M( D) ~
           RowBox[{"[", / r8 \/ c8 G; z+ h$ {
            RowBox[{"i", ",", "4"}], "]"}], "]"}], "=",
    ; V  j4 g. [3 M! m/ s8 V0 ?5 k! T      RowBox[{"u4", "/.", ) L8 m$ e) R3 u+ v# D
           RowBox[{"{", - m* I( U* g  H$ o
            RowBox[{9 o3 I5 X* k2 [
             RowBox[{"x1", "->", " e$ ]4 X* o7 r6 C: o( E
              RowBox[{"Data", "[", 8 c& f; V8 \: E* |: ~$ v
               RowBox[{"[",
    / o" ?& Y: q7 T& F$ S# W+ f  b: x+ e$ c1 |            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", / t3 t3 S' J- ^) i+ B, A
             RowBox[{"x2", "->",
      `( }3 h, R* S5 w- j          RowBox[{"Data", "[", - k$ T1 l" }# |2 r
               RowBox[{"[", 8 s; h3 l# p$ {, ]' h0 V
                RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", + h$ Z* A/ X) s; d. x
             RowBox[{"x3", "->",
    ( z; g! t- \9 b1 F; t. c          RowBox[{"Data", "[",
    * y3 P2 K3 A+ Z0 Y           RowBox[{"[", " I! v, B- f5 Q! X6 R4 }
                RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 4 g+ K; G* o) g( o- z* I2 ^
             RowBox[{"x4", "->",
    5 L/ y3 G: U; m& M! R5 u/ ^          RowBox[{"Data", "[", , W, o; y" ^6 ]7 c
               RowBox[{"[",
    % g# ~5 J8 l5 ?  T' `            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    ; j& W; ?- _( @4 Y         RowBox[{"x5", "->", % G; m1 ?; s$ G
              RowBox[{"Data", "[",
    ; Z8 i5 u: r, m' U; J/ d           RowBox[{"[",
    4 G/ _7 |! h8 N* ]2 s            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 3 b& |4 e. i1 F- Q! j3 o- V
             RowBox[{"x6", "->", & f) N; f0 U! e$ {' ?
              RowBox[{"Data", "[",
    + F# f' h6 _* `( A$ ?( z/ j           RowBox[{"[", ' o6 Y8 L: r+ O' u  J# e, J
                RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", - T, N: y6 n, H/ J1 }1 l
             RowBox[{"x7", "->",
    5 W7 L. E" v9 f) \/ N3 y6 D. E          RowBox[{"Data", "[", 2 n/ t- B0 e: f* I
               RowBox[{"[",
    ! ]0 w9 n: m2 ^5 |: N            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 8 v" n3 d- V! f% w! U
             RowBox[{"x8", "->", + Q" x  b5 `9 @3 s
              RowBox[{"Data", "[",
    * s5 F- x" T; F           RowBox[{"[", 8 }$ n. M' ~! H1 Z. W, {
                RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
    7 t" F$ V# c( q- e         RowBox[{"x9", "->",
    3 a; d* x. W1 V0 g9 Z2 X. |' |          RowBox[{"Data", "[",
    . V6 X- j1 I) k) n! |7 |           RowBox[{"[",
    & @' U: z8 b/ s            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", / l! |5 `, p/ n
         "\[IndentingNewLine]",
    + E+ O! z: ?( p" D0 e     RowBox[{+ h# q/ A* [( r1 ^* o
          RowBox[{"m60n21", "[",
    $ f: o9 A4 Z/ X6 T       RowBox[{"[", " i3 l  E, e3 |, {% x2 w" I1 S$ f
            RowBox[{"i", ",", "5"}], "]"}], "]"}], "=",
    / }( p# ~* {' ^7 a3 z! d      RowBox[{"u5", "/.", ; w, N7 ?2 P8 |
           RowBox[{"{",
    , ~: E# Y' t" U; ^7 ]* i7 K3 Y        RowBox[{- C3 }7 C, k- u, C: i, L
             RowBox[{"x1", "->", ! {1 m/ Y) L: n1 G
              RowBox[{"Data", "[", " o3 l, P# s; T) [
               RowBox[{"[",
    # Q0 H) i8 r) @* M6 z% D            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    3 o' K5 ~7 p6 w* G: [! c, c  O         RowBox[{"x2", "->", 6 |. w, w3 n+ v6 F& g. i" S
              RowBox[{"Data", "[",   A" N& T' J7 L; `) d' W5 w
               RowBox[{"[",
    / D7 z' `" j6 K/ Z" k3 O8 B            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    8 w: ^" C" M( `5 l3 C' ]         RowBox[{"x3", "->", 6 j! ^7 |; w# X' ^& |
              RowBox[{"Data", "[",
    1 t. _2 K! t7 J6 K; H           RowBox[{"[",
    4 H  a- M, M9 y8 G4 U            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", - o& K/ c1 m# D% F9 H$ h) a) m
             RowBox[{"x4", "->", " T3 M( ~2 n9 e* {; f
              RowBox[{"Data", "[",
    ; N& z4 v! u, m2 T5 X           RowBox[{"[", ! Z; s" }6 U6 r: c1 O( i0 G
                RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    4 H4 u; s1 _, U% C& u         RowBox[{"x5", "->", % F6 a- ]; C6 t$ D3 i8 t0 j3 Y& Q
              RowBox[{"Data", "[",
    : Q) s  j0 T# z5 R4 r           RowBox[{"[",
    $ }( K9 p" C+ M: t: N% d( T            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    + B! G! W% N  |( u3 y/ m. h0 B6 |         RowBox[{"x6", "->",
    + l, l  k& q6 e' d+ _- p          RowBox[{"Data", "[", / p0 g+ O) a! U1 V& m0 m( F4 R; n
               RowBox[{"[", 3 J/ x5 f# ~2 `* Q& a" _! R
                RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ' K1 V: L, A( Y7 m" M
             RowBox[{"x7", "->",
    % k( F6 q! S. \- o: a          RowBox[{"Data", "[", ; }) z4 w& I$ H6 U+ w# J8 B; ]
               RowBox[{"[",
    4 f/ z6 |9 _( z  e- j  _" `            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", " D$ q3 K5 b) p. Y& |; N/ z2 w
             RowBox[{"x8", "->",
    + k; @* B" x+ v+ \* ^/ z# Z9 J0 _! B          RowBox[{"Data", "[",
    . D$ ^% g8 z3 O8 k           RowBox[{"[",
    ( V3 y) C) u1 ~( R( a) N& E            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
    ' i3 l# a3 n/ m( g3 `4 N, I         RowBox[{"x9", "->",
    & V6 B, D7 x5 e' ?  W1 s5 ^          RowBox[{"Data", "[",
    % J4 E* L! d2 I- o" S           RowBox[{"[", - x8 T; Y/ G) x& }: R- G" |
                RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ' \: z/ S- k& G; Y
         "\[IndentingNewLine]", % A' s2 V2 B8 |( N" C0 m
         RowBox[{4 _: h9 x6 o  n7 p8 Y* Q6 o3 O
          RowBox[{"m60n21", "[", + O% l! X# I, U. U; g! m
           RowBox[{"[", : u# q1 H' j, j) l# ]
            RowBox[{"i", ",", "6"}], "]"}], "]"}], "=",
    * K- t% R' C2 ?! r      RowBox[{"u6", "/.",   d% a: @( i) @$ T( y# \# ~( K
           RowBox[{"{", 8 Y9 l8 {" F2 x* X
            RowBox[{
    0 q0 |9 Z: c4 I+ Y0 J" e- S' _         RowBox[{"x1", "->",
    . b1 _# f: k0 }4 I2 X          RowBox[{"Data", "[", ; R7 s4 s/ S% b# a
               RowBox[{"[",
    0 q! n' v% S& n: X6 u) n            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    7 l3 ^  a; C. j  G% ]         RowBox[{"x2", "->",
    ' S6 T' R" w8 K9 E  p3 ?9 d- {/ ~          RowBox[{"Data", "[", 5 X  }! b: w* n  n- K) b3 P% G
               RowBox[{"[", * q  J: t  [$ Z7 R. a
                RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 8 f) e, i; K) ~$ i
             RowBox[{"x3", "->", 7 l) i2 N+ R' B' Q9 b% b) F( |
              RowBox[{"Data", "[", 2 y2 }8 P# P+ h0 ~! d
               RowBox[{"[", # l4 X! y6 b( K) v2 m$ _
                RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
    ' P$ D, E- |7 ~* R  K" J         RowBox[{"x4", "->", # B+ B" K+ Z( y
              RowBox[{"Data", "[",
    8 w% K3 L) M; ]8 C           RowBox[{"[",
    ! c* L* U4 b3 r. y) M            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    9 \, v: A6 v; I         RowBox[{"x5", "->",
    % ^: G( S. t1 Y          RowBox[{"Data", "[",
    - f' @' M' p( X% @           RowBox[{"[", # [( Y& d4 ~7 s; h
                RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    # z! n7 ^5 F6 |3 K; p; h         RowBox[{"x6", "->", + z* [6 N1 S8 P  P7 M6 d5 e7 e1 a6 {
              RowBox[{"Data", "[",
      D. c8 Z( N+ m- a( e: a0 b, {           RowBox[{"[", : e4 {/ s* L% j
                RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 0 W( V3 p' m1 m0 Y( V
             RowBox[{"x7", "->",
    3 a1 x* T; V) L7 T8 t2 ]1 x% v  F          RowBox[{"Data", "[", * O0 k& j& ~; o8 ?  y) N- n
               RowBox[{"[", . W2 P. o! p# ^8 T8 h) x0 \& @
                RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 9 o: Y7 ?* F9 p1 ^
             RowBox[{"x8", "->",
    ! [0 I) h0 P. \, {$ C          RowBox[{"Data", "[",
    8 k$ `; k. G5 k           RowBox[{"[",
    ) X% `! V% b% r; ~% E            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ' n6 q% H% X4 B
             RowBox[{"x9", "->",
    ! d+ L7 _! d& ]          RowBox[{"Data", "[",
    9 E6 L! Z  S! U: d( ]+ Y, ?! P           RowBox[{"[", & |' \' _! K$ g5 F* |. O$ w, X
                RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", , [! D( V" Y% }
         "\[IndentingNewLine]", 6 n& |6 E/ x  ?; Y" L7 P$ V. J
         RowBox[{
    ' N; q' Q6 ~2 w0 q0 K1 m+ u      RowBox[{"m60n21", "[", $ }" K- Q$ v$ _2 Y* @: ^
           RowBox[{"[", ! X( U. I0 }6 U/ y0 G: H
            RowBox[{"i", ",", "7"}], "]"}], "]"}], "=", ( ]* [* i0 f$ @8 ?# s
          RowBox[{"u7", "/.",
    0 ]' P. F! G' y$ t9 ^, N1 t# C6 _       RowBox[{"{",
    3 l' m! a) W( k/ s2 ?4 V& W" O        RowBox[{* g0 ?4 F6 |( S( u& T
             RowBox[{"x1", "->", : T- m) k/ e) s1 S
              RowBox[{"Data", "[", 5 o% \  ]) @, E: A: [' Y  C0 O
               RowBox[{"[",
      Q; @5 k6 X, @4 p1 v            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    7 o0 C: e' U( Q( E: Y: C         RowBox[{"x2", "->",
    , J0 J: B% l/ l" @          RowBox[{"Data", "[", : _- M9 w( m/ A) }, p, S7 X5 `
               RowBox[{"[",
    % |- ^2 d  o. V2 a            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    ( [3 B! Q& y% x- q9 m" g         RowBox[{"x3", "->",
    % \; N% `; }& N5 l2 f( E& |7 w5 w5 m          RowBox[{"Data", "[",
    : I. @% O5 p# I7 X: e( ]  Y           RowBox[{"[", & F2 A# V: @1 b6 x; D, D
                RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", - [1 }7 Q" S2 M9 s* a5 V
             RowBox[{"x4", "->", # w( t/ z$ ~0 c' _) W9 c: \
              RowBox[{"Data", "[",
    % s, A0 A. D3 f/ @: U( I3 _           RowBox[{"[",
    ( s2 v5 I8 p2 ^, e- \            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 8 t; [: Z4 v$ W( ?2 V  _5 A
             RowBox[{"x5", "->", 7 n! [5 `+ R5 ?7 Z' Z$ O( }
              RowBox[{"Data", "[",
    & Z0 [& t! r  C4 s% s. N3 j           RowBox[{"[",
    * m0 @6 x* a! q+ F3 O            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 0 s8 W9 n; P6 ~
             RowBox[{"x6", "->", 4 O3 [  R# z3 u2 ~" @; d, x
              RowBox[{"Data", "[", . m/ j4 e" n: X1 A
               RowBox[{"[",
    & u5 y7 w' F4 V- A            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
    + k' E$ Q* O+ p         RowBox[{"x7", "->",
    ) f0 |! r  q" }. S( C          RowBox[{"Data", "[",
    ( {$ b. M! w; i5 c( a           RowBox[{"[",
    6 @2 H( t$ w6 c            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
    2 a% B/ o. n: F3 S  A* S         RowBox[{"x8", "->", + f4 M9 D. y: d
              RowBox[{"Data", "[",
    0 ]; o0 ^- |" {4 Y9 _& o' U           RowBox[{"[", ; G! m5 Q- e) J/ O! L0 Z
                RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
    " M; G" u' L# w         RowBox[{"x9", "->", ( U1 F" j7 I5 ]7 \
              RowBox[{"Data", "[", % O5 e' l9 c4 G2 ?0 _) D1 e
               RowBox[{"[", ( q* K/ ]4 N4 Y( I7 C1 R
                RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", * P2 p7 i" u' _8 \6 R
         "\[IndentingNewLine]",
    / ~4 E) X! U# r8 C* h6 n     RowBox[{, v% k" n* I, f0 U" T/ o6 F1 d
          RowBox[{"m60n21", "[",
    ; {* D3 ]6 ?; T       RowBox[{"[", ; @& p& z8 C5 v1 v) W
            RowBox[{"i", ",", "8"}], "]"}], "]"}], "=", & F* B' |! p! g, X! [; [) r7 Y. \- }
          RowBox[{"u8", "/.", ! ]5 B9 {8 q6 i. v8 |( j3 A7 g
           RowBox[{"{",
    ( g' a- P4 K( I- M        RowBox[{
    $ U" o; q6 n( H2 A. g- g/ O         RowBox[{"x1", "->",
    8 l0 E# E5 e+ \" \$ e# ~          RowBox[{"Data", "[",
    - ~/ G+ ]9 \8 L" p           RowBox[{"[",
    + d" Q: \6 s7 @. R# W            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", & V+ T7 L% `1 v0 q
             RowBox[{"x2", "->", 4 e- a4 K- {( i
              RowBox[{"Data", "[",
    0 \8 j0 }: ~7 _           RowBox[{"[", & n: o9 E# @3 N0 J$ z
                RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    : L$ B% H8 V' V3 y. e! F         RowBox[{"x3", "->",
    3 x: ^* C( }& W" R' C: _6 g          RowBox[{"Data", "[", # E- m, B; `, i7 v7 T1 \
               RowBox[{"[", 7 v8 c. B! L' h
                RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
    . U5 V9 }8 n7 ]# U+ i9 O1 i         RowBox[{"x4", "->", - `8 J, t- ~& Z, E4 T
              RowBox[{"Data", "[",
    $ _$ g  R. j# Q# t! d2 B+ D           RowBox[{"[", # _. b1 ]6 r) ~0 H, L* _- d
                RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    3 S7 y, S/ z  g$ p8 y         RowBox[{"x5", "->",
    . m. ^$ X1 _3 y. M( P! t) R; f! V          RowBox[{"Data", "[",
    7 e3 M+ Y8 j& _% R0 K           RowBox[{"[", 2 B5 M0 s& H" S! O% g
                RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    $ y. x1 S* `0 z3 q         RowBox[{"x6", "->",
    1 t5 [3 P3 {" f( V' }2 ?8 S3 G          RowBox[{"Data", "[",
    " j6 d( A1 D! L' k$ L           RowBox[{"[", : z8 e0 `$ m) ~% K( t8 z7 u* x3 z
                RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
    2 C+ m* u# Z: ]( z         RowBox[{"x7", "->", * I, z* o/ g6 n2 s
              RowBox[{"Data", "[", , \: x: R/ n$ E, K+ x% E3 X9 q
               RowBox[{"[", ; `& K1 p+ E4 d4 ~) d+ S
                RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
    ! w& L& }# }) v* g% X         RowBox[{"x8", "->", 2 A8 y2 d! J, Y* ?. M
              RowBox[{"Data", "[", % h* M9 M2 j) [4 ^  i
               RowBox[{"[",
    - f! I) Y* [2 H! o9 Y2 ~            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", " F0 t% i+ d. A& ]
             RowBox[{"x9", "->",
    , @! v  b. w6 j0 }3 J          RowBox[{"Data", "[",
    # f6 \$ G% \1 u9 j# g, Z! o           RowBox[{"[",
    : J6 ~& X  h, U3 ?4 ]            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
    . Z- x% i0 `# g: Q/ s, n9 c7 E     "\[IndentingNewLine]",
    ! r% d4 v, K8 s; }6 X     RowBox[{
    . i3 n6 D- {- T& V4 k      RowBox[{"m60n21", "[", % ~6 R# f; r2 S5 Z  ^, j
           RowBox[{"[",
    5 `! m/ u& d5 P' ?# y, g, u& A        RowBox[{"i", ",", "9"}], "]"}], "]"}], "=", " c0 G+ ~$ b6 Q' C+ [
          RowBox[{"u9", "/.", ! u5 m. i  K; t- i8 z3 C
           RowBox[{"{", / D" P( z0 z! g1 k- s
            RowBox[{
    - ~8 W) l" @4 l& J( D         RowBox[{"x1", "->",
    1 Q# F9 ^$ u& p, K& H" S& j& {          RowBox[{"Data", "[",   G2 b  p1 l; S- c+ R2 u) \! E) F
               RowBox[{"[",   O) \2 i' B2 l4 ~/ D8 |
                RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    9 M; f& C4 N8 t. I7 B: a) J0 h) x         RowBox[{"x2", "->",
    : I: _  [/ A; c" x% F7 F          RowBox[{"Data", "[", 7 H* p, c" }5 k* w
               RowBox[{"[", & P) X! }  `# Y# ]' H
                RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    5 B5 P: z2 d! T' D1 i+ G         RowBox[{"x3", "->", 3 r( u% q( K0 i; m
              RowBox[{"Data", "[",
      \- ]1 x/ M. ?           RowBox[{"[",
    ! c1 G9 c; ~  F+ j9 B            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ) o- q$ m; c$ m( |/ Z
             RowBox[{"x4", "->", . |& [# A+ Y/ l8 @
              RowBox[{"Data", "[", , {: Q. ]- ^0 b4 M+ p9 ?
               RowBox[{"[",
    5 i+ Z. g6 z5 L( x' g            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", # r* c" [5 L. Z# j# Z/ z$ a/ D( Z
             RowBox[{"x5", "->",
    8 K6 U4 X6 x1 {2 V4 n$ V9 P( v          RowBox[{"Data", "[",
    # @" y& o; _+ K           RowBox[{"[",
    : X4 _3 W  A) R  Z1 s            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ) P; {+ y2 C, ?+ ?
             RowBox[{"x6", "->", " n  D# z$ p5 ?& g8 C" @
              RowBox[{"Data", "[",
    0 w: l* `' O+ a/ o           RowBox[{"[", # Z/ K/ N2 Z. X+ g6 N6 `/ F
                RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
    0 J% \6 z9 b- Y; q' i# z% _+ P         RowBox[{"x7", "->", ' J9 M; m: P' _: _) ]; z, i
              RowBox[{"Data", "[", 6 h0 n8 A9 Z. Y! \; n- N9 T/ [
               RowBox[{"[", . T9 Q1 s( A9 a/ I, A' |+ f
                RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
    ' P) [! O( m" p. q5 S* H# S: @         RowBox[{"x8", "->", ! j0 i; ^) H/ I; e
              RowBox[{"Data", "[",
    # g  K' p, e* Q  G& Q9 k           RowBox[{"[",
    . v! e6 V9 X. o: _8 a7 u            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", " _  F) z- o8 G  `0 ]
             RowBox[{"x9", "->",
    # r7 V) o  X  y! C          RowBox[{"Data", "[",
    0 J8 T- J) w) D% i           RowBox[{"[", , f7 U4 s$ |3 ^
                RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", % J3 t% T5 K  Q/ a/ K% T
         "\[IndentingNewLine]", - f9 A, r, G7 ], G* G) v
         RowBox[{1 Z9 I# W9 V0 C
          RowBox[{"m60n21", "[",
    , e5 u( }3 X) G/ ?5 R1 U       RowBox[{"[", . X& N) f# p6 Y* s; ]8 v
            RowBox[{"i", ",", "10"}], "]"}], "]"}], "=",
    4 L/ Z  Z7 ?0 ^% O$ D0 j      RowBox[{"u10", "/.",
    . C3 c) h; N) |- p8 Y$ w$ e       RowBox[{"{",
    . j+ m3 h" @: _5 a) }3 ]        RowBox[{6 w1 Y! P) U( h  p8 |2 L' u8 o
             RowBox[{"x1", "->",
    9 A" k  R3 C. \9 n          RowBox[{"Data", "[",
    3 s( ~6 v. }' h+ i           RowBox[{"[",
    - `4 q) E6 ^9 q$ r            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ' k) B  T# \1 E# h. b/ n
             RowBox[{"x2", "->", ! p, t' i: t+ f5 V
              RowBox[{"Data", "[",
    4 a! l* Z+ q* G' W' I           RowBox[{"[",
    7 O+ `8 ]9 C7 \! J# i& t            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 0 C. Z! g4 m( G  a" f1 R* d" x! |5 s
             RowBox[{"x3", "->", 9 S# U$ ?+ @$ @4 s; i+ T$ z9 a
              RowBox[{"Data", "[",
    ; h1 T2 E& G- j1 H. ?           RowBox[{"[",
    1 R0 h! p2 \% m, `+ }            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
    & }6 y) ~, B8 |& w9 M         RowBox[{"x4", "->",
    & t$ [" ?* s  }6 E+ T          RowBox[{"Data", "[", 2 g3 H9 Y; ]' G( s. N
               RowBox[{"[", 1 c2 n: _+ \  V9 k, Y" L
                RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
      [4 \- M* |; R. ~         RowBox[{"x5", "->", , m* q. }  K4 ]/ Q$ f  E
              RowBox[{"Data", "[", ) ^; |- g, ?4 n- P0 @* d! I
               RowBox[{"[",
    ; J& ~! f8 R0 K% _& G            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    7 k0 k1 i# l. K5 d$ D         RowBox[{"x6", "->",
    6 d- O  d7 R- p' f$ d: P          RowBox[{"Data", "[", " l, v+ R: ?/ K1 ]! ?3 P5 i" i
               RowBox[{"[",
    8 X/ Y; }# R" Z0 m            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
    % [- i( L3 ?: l( c         RowBox[{"x7", "->", 6 `/ I1 Z  u& U# e+ {. q; k0 V
              RowBox[{"Data", "[", 8 @1 A( \/ i+ z- ?8 W
               RowBox[{"[",
    , ]5 w; w. K! V6 Y% D2 @6 V, l$ I            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ) c) D0 z. [. L1 B' ?. y
             RowBox[{"x8", "->",
    + m; h7 K' H( e7 O% A9 }' J          RowBox[{"Data", "[",
    " r' b& B( ?, q  t' K% v+ z% ?' F           RowBox[{"[",
    7 y2 h9 A  S/ F* p3 Q, L            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", / K# K& H% B7 Y+ T" O
             RowBox[{"x9", "->",
    1 {. v" k4 g9 ^, a1 H: ~          RowBox[{"Data", "[",
    & p, l7 k/ ?, l7 R           RowBox[{"[", 9 ]5 ~8 |" f" ]0 b: B+ b
                RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
    $ n$ V8 f5 M2 a. n9 o9 f     "\[IndentingNewLine]", / J9 i# D3 `' E2 d! x
         RowBox[{
    8 Q- h" ^* w1 y      RowBox[{"m60n21", "[",
    0 G2 ^7 J2 j* ^) B: Y       RowBox[{"[", 1 I# T. F/ F' C
            RowBox[{"i", ",", "11"}], "]"}], "]"}], "=", , d: x3 @7 ]- `" W/ }1 {' ?) P; }
          RowBox[{"u11", "/.",
    0 b; }1 ~6 f2 _, n0 E: `9 r7 l$ m3 X) s       RowBox[{"{", # k$ E0 o  g& P% O
            RowBox[{
    " l2 J+ R( ~" N6 `4 S( \' ?% G         RowBox[{"x1", "->", 0 |  }( P7 u. b
              RowBox[{"Data", "[", 2 x5 s. F" O0 ~. X# m5 ?9 H
               RowBox[{"[",
    4 n0 E5 |) x; e4 A  i& z            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    & V: ]8 g" Y% d+ J# H         RowBox[{"x2", "->",
    # M+ G2 I( _5 p! k7 @          RowBox[{"Data", "[",
    2 b9 n/ z1 G; x+ q$ O" ]2 M           RowBox[{"[",
    ( ?. ~1 d: N: q2 m7 V1 Q            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    7 }: F; V( t1 c0 N; }5 u$ {$ q/ n; E         RowBox[{"x3", "->", $ S" e% A6 `) i" |8 h3 x# z
              RowBox[{"Data", "[", / q! D7 I2 }% g, |/ w
               RowBox[{"[",
    6 _$ K! l5 n. }/ e            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
    9 P# c5 E8 M3 J! O6 r- |         RowBox[{"x4", "->",
    0 {0 s% q6 P( _. E* O          RowBox[{"Data", "[",
    3 j: y9 Z5 X: q% B4 y+ P; s           RowBox[{"[", 9 q, u( s1 z( E
                RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", . _, L7 v2 H" ]& L' |# \5 }
             RowBox[{"x5", "->",   e8 J7 f- s) B9 l
              RowBox[{"Data", "[", 8 y7 H' {8 h9 J  A4 k
               RowBox[{"[",
    5 @6 o7 O: t/ h& E  s* W) }            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    7 P/ w% K4 H9 Q( C# B( y         RowBox[{"x6", "->",
      W0 f) S- S5 O5 p7 L& i          RowBox[{"Data", "[", , M8 d4 w4 A0 K
               RowBox[{"[",
    / v5 n. j- x/ @# ~            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", : ?/ z) Z) q( _0 m. ~5 }$ u3 y
             RowBox[{"x7", "->", ( O8 o- x9 T6 J; P& t5 _
              RowBox[{"Data", "[",
    % K: r: G+ w6 B1 ]4 Z           RowBox[{"[",   h$ }$ n. R/ w6 a/ Z% [$ ?
                RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
    " `4 d5 q+ H2 j, M         RowBox[{"x8", "->", - \# |, p# F! e7 N6 D4 G9 f% }
              RowBox[{"Data", "[", 4 F1 V8 H: n# a
               RowBox[{"[",
    " N% Y. \$ G$ Z# L            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
    % I' R- j1 z5 D7 Y# @         RowBox[{"x9", "->", - M  q/ h/ B% P
              RowBox[{"Data", "[",
    8 e( ]  I* W2 q  i& m9 v           RowBox[{"[", 9 A. X6 j5 b9 v# V/ ]! e
                RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
    " g) Q% R3 O  ]9 q' D$ X     "\[IndentingNewLine]",
    / {1 R6 o3 r# |+ K: V     RowBox[{
    3 b; |: b; z) ?/ Y9 d+ |      RowBox[{"m60n21", "[",
    " N5 t" z+ e" ^' o- C3 b: A       RowBox[{"[",
    4 T$ E% W4 u& V. k) R8 J        RowBox[{"i", ",", "12"}], "]"}], "]"}], "=",
    - B, H3 a, Z) j6 h      RowBox[{"u12", "/.",
      a8 I/ v$ B& ?: |$ J% z       RowBox[{"{",
    8 Z1 b. U3 c5 A0 [' {# T. X        RowBox[{& H. N8 c; B5 y$ Y" \7 D1 Q
             RowBox[{"x1", "->",
    0 E$ O1 Q! M0 N3 t          RowBox[{"Data", "[",
    0 j0 y0 P& R1 W. \7 H           RowBox[{"[",
    / D' u0 Y9 \( o4 {9 @5 s/ d* Y( b            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    + [* ~5 t5 N! {) w' M9 `         RowBox[{"x2", "->",
    8 ?( _, C) u* m          RowBox[{"Data", "[", ! \' z# c6 s0 ~+ W! t1 e, B0 @
               RowBox[{"[",
    7 D: O- F- G- F+ [! S            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    2 B% Z) F( E" ]7 {         RowBox[{"x3", "->",
    & r# I5 _" ^) t/ p! {& X          RowBox[{"Data", "[",
    6 G+ W# @2 w9 c           RowBox[{"[",
    ! H8 ], J7 ~1 }% ]8 ?5 m            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
    $ d& A# J' x# \7 P         RowBox[{"x4", "->", 2 S# N9 \, ~! v
              RowBox[{"Data", "[",
    9 d- Z) ]5 c7 U- _2 h1 O4 _           RowBox[{"[", $ }1 b: \4 H% l0 U5 S3 y8 Z- r3 [
                RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", + F' b! w$ L, ^
             RowBox[{"x5", "->",   M$ `# }- Z. U& @! s/ b
              RowBox[{"Data", "[", 1 n( b6 f* j. H' [% J
               RowBox[{"[",
    " b( e  f3 d5 I# m+ a            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 6 X' E* I* T2 {" }9 T! M7 Z$ Z+ Q
             RowBox[{"x6", "->", + I( `$ P# Q# R
              RowBox[{"Data", "[", 2 Q; F5 H# p! [/ X
               RowBox[{"[", 9 A% {0 F) X: a6 C$ Q: s) L! Y
                RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
    ; I9 H+ d4 G4 U5 F, S9 Q' y         RowBox[{"x7", "->", 9 J2 `+ Q6 H" U4 ]6 O; S
              RowBox[{"Data", "[",
    % ^  W/ L% o* f' i* T2 z9 ~           RowBox[{"[",
    2 S/ O  K' c- j5 A' E1 Q4 E0 L            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ! C/ @  S; D4 A5 i# L4 @
             RowBox[{"x8", "->",
    * ~6 I' A- k. C3 Y: S4 d. @5 `          RowBox[{"Data", "[",
    3 Q% q8 H: y- e" t           RowBox[{"[", ( D2 p3 ?9 F) m- M7 I8 a
                RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", , C# E' c- m! D8 j8 Y
             RowBox[{"x9", "->",
    8 G& ~  D! M# A1 r4 @          RowBox[{"Data", "[",
    # S7 v/ y$ \' i9 X           RowBox[{"[", 7 k$ z) W  L1 Q2 E- f0 [
                RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ' s- X+ |% P3 O& Q2 ]3 X4 t( E# S
         "\[IndentingNewLine]", # F! {2 p2 _* K% I. J6 j7 ?
         RowBox[{6 o: M, N: Y9 S' b2 j8 v
          RowBox[{"m60n21", "[", & o! v& L1 k5 h" D
           RowBox[{"[", ) h9 i$ a  D( f
            RowBox[{"i", ",", "13"}], "]"}], "]"}], "=", + r) T; \* z8 N
          RowBox[{"u13", "/.",
    / y. E# d; V  R# W  _       RowBox[{"{", 5 z, m; ~% l4 I+ M& N: F6 B
            RowBox[{9 _- Q: X6 j/ t( \
             RowBox[{"x1", "->", 6 A+ n) b, R- ]8 U: f' |
              RowBox[{"Data", "[",
    ) q6 f0 J( J! Q6 r* @/ G           RowBox[{"[",
    ; O" Y! b' @6 Q$ W            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    : K  k4 j9 [% y; q  P. I4 i         RowBox[{"x2", "->",
    , }" P5 r/ r; x- e+ z% \" Z          RowBox[{"Data", "[",
    7 V7 h5 H, e+ Z/ V7 p" h           RowBox[{"[", ! P; r9 ~* ^7 o: l+ p7 H: Q, t: V
                RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
      D, U. R9 B4 c/ P+ Y9 d         RowBox[{"x3", "->",
    % n1 d! W+ T( k' p3 z& V          RowBox[{"Data", "[",
    3 V' n2 p% W% \" _5 \           RowBox[{"[", 3 g- i# j: ^: S
                RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
    4 I0 d1 U( s. W  V$ R         RowBox[{"x4", "->", ' y! X6 [- |5 s. ?7 u
              RowBox[{"Data", "[",
    2 [6 ]* v1 c% M0 g: N           RowBox[{"[", : K# L; M1 w( n9 n5 J
                RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", / g& I! c, u/ x' Z3 o4 G) N0 x9 B8 C" e
             RowBox[{"x5", "->",
    % ]; z' p" v6 r          RowBox[{"Data", "[", + P, O4 h; l2 p. s2 q/ N
               RowBox[{"[",
    + D9 E/ s1 s; Z/ n            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ) u+ s4 C9 i6 w
             RowBox[{"x6", "->",
    6 m. M6 @# s& Y          RowBox[{"Data", "[",
    7 W) u0 W( I& v9 {$ H: B           RowBox[{"[", / \( w+ ?  h# l4 N  }
                RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 6 B  ?3 s- P( S4 Y$ i' s2 b
             RowBox[{"x7", "->", ( J2 M9 S* `7 u" W
              RowBox[{"Data", "[", - j5 Y3 ~. s+ I# }4 l8 D. H% I3 e
               RowBox[{"[", + u) t8 Q( B; }8 H1 d2 B; d
                RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
      E8 q! {% ^3 ]- t! I         RowBox[{"x8", "->",
    9 \1 _! e3 Z; L: w          RowBox[{"Data", "[", / U3 J% Y8 v+ i& {7 ?0 e: n- {
               RowBox[{"[", + I$ J+ Y1 e6 F; d5 _" }7 b7 ?; ~) M
                RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
    6 ~/ \. C* @( S+ X% s         RowBox[{"x9", "->", " [; }* w3 Y7 C9 E* z" a8 C8 H
              RowBox[{"Data", "[",
    2 \5 k3 m( v; o# T3 s2 \           RowBox[{"[",   |, U5 j( t5 _6 Y3 V
                RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
    9 c6 w; U. t, [" N& K     "\[IndentingNewLine]",
    6 K& D8 k  m3 N& k; V( S! w     RowBox[{$ I1 ]3 O! t' k
          RowBox[{"m60n21", "[",
    + g6 `0 y5 m: n7 \/ g       RowBox[{"[",
    - a1 N0 c$ i1 E2 c        RowBox[{"i", ",", "14"}], "]"}], "]"}], "=", 8 d0 D  B+ |8 u: e
          RowBox[{"u14", "/.", 6 O1 W  Q5 L: |9 |" w4 k6 r$ @
           RowBox[{"{",
    & r/ Z# l+ t# j4 N$ h2 V3 ^0 T        RowBox[{
    3 N6 C2 H  A; l. ?' r# t         RowBox[{"x1", "->",
    ( K4 r2 P6 }; `7 j) ?# d/ q          RowBox[{"Data", "[", 0 O' I8 J/ l5 f/ I+ M7 e
               RowBox[{"[",
    % l9 D  P0 m, A9 n' M            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", . L4 \$ v  e1 d  \: n( E* _, [
             RowBox[{"x2", "->",
    ) k/ x$ m1 K  }( Q          RowBox[{"Data", "[",
    0 @# c+ B) v4 S  |- w           RowBox[{"[", 6 _6 W- ^: [; c! @( l
                RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 1 D/ ^+ d0 ^& p" \. V! }* E, W
             RowBox[{"x3", "->",
    ( `' J- a' e7 b4 R          RowBox[{"Data", "[",
    / U! i: l$ ]( X* v- P           RowBox[{"[",
    + ^" H- M+ P; ^. \) ^3 ?& }            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
    ( [+ X4 w: j6 Z- u8 l9 m% O         RowBox[{"x4", "->", 2 \& q# E9 v- M
              RowBox[{"Data", "[", 8 S* w& Z; D" S, f  t, ^: S- d
               RowBox[{"[",
    ! z4 r" I& @9 Y; V0 b9 n: ?            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", : r% O; O+ D% M& E
             RowBox[{"x5", "->",
    . ?2 n; y9 z0 p) Q/ m          RowBox[{"Data", "[", 0 X3 Y* t! `7 z) G: }5 ?, ~
               RowBox[{"[",
    4 ?0 B, l8 S9 G( s2 Q            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    4 i  R$ O1 K8 `$ M  O; I0 z8 ?         RowBox[{"x6", "->",
      p1 l3 P2 Q' w$ }3 y; f2 q3 e          RowBox[{"Data", "[",
    * m  w" N) J- R$ O* ~           RowBox[{"[",
    ! m0 m7 I, u- J; S            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 8 n8 M$ `0 x5 ^
             RowBox[{"x7", "->", 8 L- Q0 J# N1 ^7 V2 J" e  f
              RowBox[{"Data", "[", $ H  i3 T. D. R9 B4 S
               RowBox[{"[", 3 k, O/ y; n4 K; ^7 w
                RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
    * {- G' I4 d+ K9 c$ n4 j6 A         RowBox[{"x8", "->",
      \6 v* j/ e7 m( B+ u: R          RowBox[{"Data", "[", ) g; I$ @2 t. I; l. c, x
               RowBox[{"[",
    0 m: G& p. [8 g3 `  s  w            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
    & z0 I* f! z2 l1 f6 P, i2 ?         RowBox[{"x9", "->",
    / R& H8 }% r9 n) T' i          RowBox[{"Data", "[", 6 \2 A4 P5 r5 L! m2 t
               RowBox[{"[",
    ( p) {+ @/ H8 ?- S            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ( S/ Y' m7 h6 z% I' }( a5 i" p3 [6 _
         "\[IndentingNewLine]",
    6 X1 v. P0 g2 X- K2 H4 w     RowBox[{
    + \/ C/ o$ n; X6 c# u      RowBox[{"m60n21", "[",
    2 A! d2 h& _, T       RowBox[{"[",   ~4 s: M* m- v9 n) [2 H- ?6 b
            RowBox[{"i", ",", "15"}], "]"}], "]"}], "=", & f, C( d$ I( L; [! p+ r3 j& \
          RowBox[{"u15", "/.",
    3 J0 d- ?0 E  f' a0 {       RowBox[{"{", % n- Z) V( L( ~' W8 M
            RowBox[{4 G5 M" A) g8 F
             RowBox[{"x1", "->", * d9 f- ]- x+ x" {
              RowBox[{"Data", "[",
    & g. c1 T* f5 V1 t4 D/ W$ K* ?5 u           RowBox[{"[",
    0 \( D9 R" K' D  r* J( ~            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    & l8 x# ?) e( V( M' t- [         RowBox[{"x2", "->", 9 I/ {% g; l0 @6 v: ?9 G
              RowBox[{"Data", "[",
    , N4 R! z2 t  D- i6 U2 Z1 d6 d           RowBox[{"[",
    3 M. ^+ M* n/ g5 V9 q) X            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    . m* W. u  p; I8 @( m         RowBox[{"x3", "->", ' b- N7 F4 \' i% Q
              RowBox[{"Data", "[", 3 q* D& C7 r7 F
               RowBox[{"[",
    0 z; x6 g9 y, k            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",   _/ C% _! y* v) i4 A
             RowBox[{"x4", "->", / i/ X  ~; m9 A7 v
              RowBox[{"Data", "[", 5 H1 t# `8 g6 `# O8 m3 m
               RowBox[{"[", " F* e& ^9 W0 M/ G) c! h' r( x
                RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    1 x% \% K! f" p1 y6 N  P' K8 Q         RowBox[{"x5", "->",
    % @6 j- Y6 T1 y3 [" Y          RowBox[{"Data", "[", % _. x9 F$ o1 ]3 k0 A" p! x
               RowBox[{"[",
    4 S% K5 j" i4 t) z- Y, D* {8 c            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    9 M2 V6 S: b7 x0 M. B; }7 R         RowBox[{"x6", "->",
    9 D3 o& H5 n0 X6 s2 g          RowBox[{"Data", "[",
    # C. v9 b, H! D0 c; P6 b           RowBox[{"[",
    5 v% a2 @& s; b2 _) X7 m            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 8 f: E. \0 `1 g
             RowBox[{"x7", "->", ' b) R4 Z5 b, M* Y, u, Q. s, Y
              RowBox[{"Data", "[",
    " [4 d, Z, B6 J; }2 m           RowBox[{"[", ' V. Z& `- z. z  U9 q
                RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", / w: G6 }6 o2 `3 N
             RowBox[{"x8", "->", $ |: O. a* Q8 a8 U$ D8 t- Z/ G
              RowBox[{"Data", "[", . W5 X8 W; A! v* K+ y) y
               RowBox[{"[", ' k& W$ I+ Z5 d8 p5 E
                RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
    9 b! x0 }& _; \4 d% r* a         RowBox[{"x9", "->", 2 K( B9 P, P; D, @# k1 I
              RowBox[{"Data", "[", ; Y, `. b9 q: |$ S
               RowBox[{"[", 2 F% k, K2 K1 h
                RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 3 X! f: V" w" t
         "\[IndentingNewLine]", , O2 p$ d7 x& O
         RowBox[{2 q9 l8 \; o) p+ p7 l/ t
          RowBox[{"m60n21", "[",
    ! F$ J6 q% z- w) v/ r1 T7 M" n3 m       RowBox[{"[",
    6 X4 F% ?  ^/ z+ ?5 i& Z        RowBox[{"i", ",", "16"}], "]"}], "]"}], "=", " W  D: R: g$ ^5 D; d" s6 S9 N
          RowBox[{"u16", "/.",
    - S+ M+ K+ R' N& g# H- f. q5 d       RowBox[{"{",
    ! s* e- F# Z: `. q+ P        RowBox[{
    " A& P1 |& x* q0 B4 K' a1 g* L         RowBox[{"x1", "->",
    # w5 i1 |7 g" ]. K          RowBox[{"Data", "[",
    : ~; `, Q5 s9 @, V1 f# n8 K% }5 T1 K           RowBox[{"[",
    ) ~& M6 T' A  F& [) |            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    $ e6 Q7 b7 F- N: d         RowBox[{"x2", "->",
    0 L( w2 O2 u+ ^          RowBox[{"Data", "[",
    ) X& Y; Y7 |4 d$ M           RowBox[{"[", * y2 Q3 H& N3 \' J0 a
                RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", " a5 J7 e  C/ J6 O
             RowBox[{"x3", "->",
    2 H2 J9 ^' W7 k  |' s          RowBox[{"Data", "[",
    8 F3 b3 V- S# x3 S: Q' w0 ~8 Z           RowBox[{"[",
    : r: _, T: s* Y) Q6 d- `- f6 }            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", - w4 u/ M% ^; B1 F& X9 Z3 a0 m
             RowBox[{"x4", "->",
    " S& L' S* ]. k3 B2 K          RowBox[{"Data", "[",
    $ Z( s+ d+ E9 l+ V. A. X           RowBox[{"[",
    + s* I& V; |4 u5 R& M( a$ i            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    $ q) |9 l- d( o7 I2 _- _2 `, y         RowBox[{"x5", "->",
    # K2 g6 v' m- s6 R; [/ }* \          RowBox[{"Data", "[", 3 _" v) F* v* J- J& ^
               RowBox[{"[",
    + A8 w1 x3 _8 S            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    0 p3 R3 Z! T7 O( n- a2 D8 m         RowBox[{"x6", "->", : x5 v( h3 [+ D/ R
              RowBox[{"Data", "[", . I) G% }. d8 d2 L9 I6 \' Y! t$ J
               RowBox[{"[",
    ! `5 O; G; L" m( \) y            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
    4 ?' Y% R1 U) T' c$ W% {( `         RowBox[{"x7", "->",
    ; m' y( j3 i2 ]* X/ r8 O          RowBox[{"Data", "[",
    0 u9 x: T9 B8 O! N" b1 N           RowBox[{"[", # {, h2 X3 J) m8 t) N
                RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
    : U  j% ]# c4 p         RowBox[{"x8", "->",
    # E, v) m. \- i; s" e          RowBox[{"Data", "[", * {$ W$ t) \! k1 N4 Y* y2 i1 G
               RowBox[{"[", 5 Y' d! |; ^$ c2 D+ i( z3 T/ Q
                RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 6 v5 H2 ], n" P0 E/ \% Z
             RowBox[{"x9", "->", 4 Y. j$ V% j+ D0 R7 S, X
              RowBox[{"Data", "[", 7 g$ O/ {9 O1 ?$ x
               RowBox[{"[",
    3 R" L! s4 A6 y: g* }: s9 `0 h7 ?            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
    ; }3 S" D7 a$ F+ c" g7 ~+ \     "\[IndentingNewLine]", ( Z. D1 J3 O: o+ s# J! Y
         RowBox[{# m4 i, o+ N7 o+ o; b
          RowBox[{"m60n21", "[",
    9 l$ J% R8 T6 x* e' T  M& t       RowBox[{"[", : M2 m% z1 B# S/ b4 Q) o# F
            RowBox[{"i", ",", "17"}], "]"}], "]"}], "=", & z# N- @! E- q. _+ _1 g
          RowBox[{"u17", "/.", ( H3 V% w3 `/ Y& {! p2 B/ h
           RowBox[{"{",
    " R6 V+ O( k9 x        RowBox[{6 T' p9 U( i% z* R5 C
             RowBox[{"x1", "->", $ |1 d. u2 e. V7 @: P% y, m! u
              RowBox[{"Data", "[", % I1 {7 Z5 d1 `% ?2 g5 i
               RowBox[{"[",
    : T$ W, X% T( C$ q: e/ o7 q            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", . B& t9 e* t! u) ]( q& M: Z" p
             RowBox[{"x2", "->", : m: ^, j$ E, l5 {4 o( m  \# O9 b
              RowBox[{"Data", "[",
    : }! _9 K. R7 t6 u' U/ C+ s           RowBox[{"[", ! S7 @& P% S+ ^- y
                RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 9 d* G3 s6 l& b/ ~& Y
             RowBox[{"x3", "->",
      A1 t$ f5 ?* g, M; c          RowBox[{"Data", "[",
    * C% b8 v+ x8 i" Q8 q           RowBox[{"[", * r: ~$ N( v! ^! M2 X6 Q2 m5 M8 {
                RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ( F( S% b) Y7 Y- P& W3 H
             RowBox[{"x4", "->", 5 G& O3 l5 y' m5 J6 r* v& m  X
              RowBox[{"Data", "[",
    1 ?5 r2 B$ n7 P* u. S4 V. R           RowBox[{"[", 6 f' A6 S3 J8 W
                RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    7 y, B0 \# K- U9 G; W4 Q8 Q         RowBox[{"x5", "->", : o9 E3 a& y; }# v  {/ V
              RowBox[{"Data", "[",
    " U2 f; R& G( X! G           RowBox[{"[", % Q: n2 n2 c7 Q9 c
                RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    & B: M/ c5 P- Z! ?         RowBox[{"x6", "->",
    * B9 m: J. w2 M% S/ x6 R% |9 y          RowBox[{"Data", "[",
    / _3 ^* J2 N+ F6 Z$ |0 @4 e& x0 k           RowBox[{"[",
    ; S3 o3 ~' E4 ^0 K3 F& i            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ; z/ u9 e( D+ a
             RowBox[{"x7", "->",
    ! Y, i6 u+ S7 r2 W2 Q          RowBox[{"Data", "[", 1 l' O2 O" V% G
               RowBox[{"[", " i1 q" o' ?- y% h; `
                RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
    * [0 `* s( I# ^+ M+ h5 R         RowBox[{"x8", "->",
    6 b3 _$ i$ I) L% u; J9 ^          RowBox[{"Data", "[", - N& ?: ]6 v0 N! n8 @/ r1 e
               RowBox[{"[",
    " \5 @; _3 g0 {% [4 a) L+ H, h6 Y7 P            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", / Q; G% i' |+ [. K% ^& z
             RowBox[{"x9", "->",
    ' n6 q! _+ O! G$ f+ Z8 ~          RowBox[{"Data", "[",
    * j0 e6 |; J1 J4 g  s+ k# R3 q2 d           RowBox[{"[",
    8 i0 u7 A7 |! B6 n8 j' g            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
    7 g7 g, U6 [  m     "\[IndentingNewLine]", " v6 d! {- ?6 p2 v8 R' J7 [
         RowBox[{
      H0 H+ m3 a9 h7 ]: P      RowBox[{"m60n21", "[", ! D( q, h$ [1 R- k+ |" L
           RowBox[{"[", + C4 a6 T: P* W* k; ~
            RowBox[{"i", ",", "18"}], "]"}], "]"}], "=", # e9 }9 x' j9 }, e; b8 m
          RowBox[{"u18", "/.",
    . T0 A. [/ t6 s) N: [       RowBox[{"{", % M- f+ S8 X1 o8 Y
            RowBox[{( {2 e) P. c3 N9 M7 `5 i- E
             RowBox[{"x1", "->", , g" u9 [1 v; B7 n' y! ?9 T
              RowBox[{"Data", "[",
    6 @: l! `* t6 z! G- X/ q& Q           RowBox[{"[",
    / D7 M" C' R$ S) N: ~, u# _            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    & e+ T! |( h. K6 g5 n3 n) ^         RowBox[{"x2", "->", 5 C& q3 p9 @# a& J9 a1 \' F
              RowBox[{"Data", "[", " U: N1 `% q6 k- I/ C
               RowBox[{"[",
    ; L' _& ]1 V5 g3 B% B+ \            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    3 q! m' I. h0 y/ J( \3 v+ {! i; @         RowBox[{"x3", "->", : ^/ ~3 F$ x* _
              RowBox[{"Data", "[",
    3 U( Z& [1 d! t" e9 u( G% L( ?           RowBox[{"[", & ~- P0 h' j. A- y( a
                RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
    % ?( Q2 }5 S6 Y; @+ \* C! l         RowBox[{"x4", "->", 4 w$ m2 P( ]' q
              RowBox[{"Data", "[",
    $ [/ }0 }% d4 l) d7 W           RowBox[{"[", ) W) P  l2 O$ K  n: o6 z! G4 w' J
                RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 7 R' i; a+ T/ U0 w
             RowBox[{"x5", "->",
    . x9 q* g/ B- C+ J1 t          RowBox[{"Data", "[", 8 L9 ^8 n( j, ^$ u" _2 ^" {
               RowBox[{"[",
    ) I5 D( k- v) r! q' V            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    : A, G4 l; {9 [! p' |  n         RowBox[{"x6", "->",
    : t0 L1 K2 S4 s( f2 }+ ]8 d          RowBox[{"Data", "[",
      ?* t  J5 l# g( \           RowBox[{"[",
    . {/ f, q* I5 L3 p0 w: o            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 0 d' o' `/ v% \* K* `% k" |
             RowBox[{"x7", "->",
    + o2 Z( }0 d  y) G% J9 u          RowBox[{"Data", "[",
    ) j7 n- f+ \. e& U4 _& M* r; d           RowBox[{"[", , I& L6 Z1 X# u4 X' n+ D" B
                RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
    9 s$ q, _8 }: C: a. j         RowBox[{"x8", "->", ' c- h% r, @& S8 b* y* G# t& S
              RowBox[{"Data", "[",
    % z0 s1 f$ L" j5 }( E7 t: X! B8 P           RowBox[{"[", - {5 u' [& ^) P4 Y5 L
                RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 1 S7 C( @( t0 v7 C* D4 Y
             RowBox[{"x9", "->",
    4 \5 q, b1 b+ {3 ]9 w6 `9 C          RowBox[{"Data", "[",
    ! P* l/ _. ?% O& k& l; C           RowBox[{"[", , z6 \, M" a% m- E" Q
                RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 7 I1 w5 L# W9 J; P8 @
         "\[IndentingNewLine]",
    & Z; ~+ x3 v, c$ B) _0 ~     RowBox[{
    5 O2 ?1 H% P. }' y7 }      RowBox[{"m60n21", "[", + E% p3 ^, }2 K) p' {0 z
           RowBox[{"[", % n4 [$ c- }9 S: c4 J4 k* p; s$ ?
            RowBox[{"i", ",", "19"}], "]"}], "]"}], "=",
    # n$ c3 C! p/ Y: \! v% W. t" M      RowBox[{"u19", "/.",
    3 e( j; ^2 U8 y& @9 P( u& s       RowBox[{"{", ( ^4 I+ ]" F$ W4 v) Z5 g; l  ?
            RowBox[{
    - K4 X: e1 l- \) h$ e         RowBox[{"x1", "->", 4 _# p5 m7 \* C! C* q3 W
              RowBox[{"Data", "[", $ N) {2 V, ^+ I  N* `
               RowBox[{"[",
    $ I3 ?* n, G2 `+ V3 y/ e; p9 l            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ; c5 G9 N# m% S) x" B! T
             RowBox[{"x2", "->",
      s, J. Q1 M6 O; r  q          RowBox[{"Data", "[", 0 \2 y' n4 e4 P; i  U  D
               RowBox[{"[",
    & y2 H; S- W( B            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    " y& O$ U+ x/ R1 c3 ]4 E" |         RowBox[{"x3", "->", ' {3 O7 {0 `7 k. k
              RowBox[{"Data", "[", ) }3 t1 H9 p1 ?9 g
               RowBox[{"[", 0 M0 l. S6 @% [' x5 p
                RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
    5 w  g! ]  m2 W( O1 M         RowBox[{"x4", "->",
    ' v+ Y) }" m5 b          RowBox[{"Data", "[",
    . ]* m3 `8 _  O  G" w9 O+ d           RowBox[{"[",
    * }' Y; P/ D# {6 \5 E0 @' h            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    4 u7 A+ J$ b1 n. m         RowBox[{"x5", "->", 1 C! T% s3 X& m5 P; r, @
              RowBox[{"Data", "[", $ \% I( e& p% O. D( d
               RowBox[{"[", 8 J5 ^5 X, E7 d7 U1 S- f1 U6 L' c
                RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    + `4 ?3 ?# x- f! G& @& m! {% Z         RowBox[{"x6", "->",
    ; W# |$ Z/ w$ u/ N5 d: t9 t          RowBox[{"Data", "[", ; r) W+ a( I8 ^+ I9 v& ^% F
               RowBox[{"[", # g6 b; M, }4 P7 b( s
                RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
    . n0 d8 c9 w" o( g) e2 ^" S/ o         RowBox[{"x7", "->",
    # u2 }- j. n- w& N$ f          RowBox[{"Data", "[",
    0 ^# ]+ i) n/ a5 _           RowBox[{"[", ! w; R! ]1 W. Q  Q& m
                RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
    ) c& C$ j9 ^2 }5 D1 K' v5 F. v         RowBox[{"x8", "->", 7 K; l! p. n$ Y
              RowBox[{"Data", "[",
    ) _7 R$ H# q& u2 W' u           RowBox[{"[",
    7 Y5 N' V+ p) Y0 x& a- h            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
    7 @2 U9 }: @, W8 @" }& c# q! G* C         RowBox[{"x9", "->", : c+ d5 B  _- y+ s; G/ e
              RowBox[{"Data", "[",
    4 E! b; j( J9 q           RowBox[{"[",
    " ~% ]8 c. R% B* `1 u; |( G            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ( f7 |. {  I7 P& {" u# I
         "\[IndentingNewLine]",
    ! m  M/ b; B. [. Q     RowBox[{
    , p3 ?2 X% U1 y5 a: P1 I      RowBox[{"m60n21", "[", * z0 b, g9 w1 f, E/ S
           RowBox[{"[", + r( f2 f8 S7 U: [# _
            RowBox[{"i", ",", "20"}], "]"}], "]"}], "=", + S/ ?2 i7 l8 g# Y- ?7 H
          RowBox[{"u20", "/.",
    + m! z- @' V  M% P       RowBox[{"{", 2 h" z1 [* ^. p/ O2 o
            RowBox[{
    8 d+ v, D" W- ^         RowBox[{"x1", "->", 8 n$ h/ s. A7 b$ g! {
              RowBox[{"Data", "[",   e3 T) s! H% v8 j: t0 X+ T1 p" i
               RowBox[{"[",
    3 Z" P8 a* Y+ ~7 K5 ?, U/ K            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    1 Y+ p5 B4 w5 G$ L& F% c. R6 z1 y         RowBox[{"x2", "->",
    # F( {; `9 H' d          RowBox[{"Data", "[", : `$ p  x- d- q5 r  x
               RowBox[{"[",
    # _& l* U8 z3 \* A            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    5 B9 c" @* u6 R) I; P- r1 |         RowBox[{"x3", "->",
    4 v* I6 e# B4 S$ S( P; W: ^2 r: C, t          RowBox[{"Data", "[",
    ! y1 Q( y/ E1 O: I# S+ Z" s           RowBox[{"[",
    ! W/ v( K/ L& T; g3 |            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 4 h* a$ H) L) E# g9 R/ @1 [7 c% _
             RowBox[{"x4", "->", ' e3 d" |3 Z( t8 S$ b
              RowBox[{"Data", "[",
    # h& V- }! s" L1 u& C9 z           RowBox[{"[",
    0 F, p" s2 ?) w0 L$ _( C' X$ u* i2 s            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    . }1 X  F! N" t7 v+ z         RowBox[{"x5", "->", 1 T! @+ F7 ^$ m0 f; i3 R
              RowBox[{"Data", "[", % [7 D$ J: _- I* X) w$ _) H
               RowBox[{"[",
    : C% F  l  ?1 b9 ?: e4 W# O# Q; n  Z0 M            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 6 k9 O) _/ \! |5 U; f6 B
             RowBox[{"x6", "->", , X" g0 a$ X$ ~5 t
              RowBox[{"Data", "[",
    % {# f( s, Q2 ~6 ?           RowBox[{"[", & \% D! o9 L6 a1 k3 u; i
                RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
    # x+ p& `$ s% z# }9 t3 V         RowBox[{"x7", "->", . {/ g- j, @) c2 F7 f# {
              RowBox[{"Data", "[", ! z# t0 s( v4 g0 ~4 D* r8 P
               RowBox[{"[",
    3 F$ G9 |3 H  c7 g5 G            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ( D, ^% O  p* _" J* p# Q
             RowBox[{"x8", "->", & j. J3 e, b. Y
              RowBox[{"Data", "[", - s: G/ j5 @/ q2 g( |
               RowBox[{"[",
    ( I1 q5 k- E" D5 \( s            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
    * z1 [/ `: `9 t& \% c1 H9 ]         RowBox[{"x9", "->", / e" l9 A+ g) P+ g7 T; n: ?% A9 k
              RowBox[{"Data", "[", 8 q. S$ d& D' U! a
               RowBox[{"[", ' }' c! q: K! e
                RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
    6 X) G7 b$ h$ Y     "\[IndentingNewLine]",
    $ @& i3 b  X& ]5 l, P$ w     RowBox[{
    ! N5 j: F& _; t5 K; j, x: R6 B      RowBox[{"m60n21", "[", ( v6 ?  T, p# m
           RowBox[{"[", , h" [* s5 o" K: v- x2 X
            RowBox[{"i", ",", "21"}], "]"}], "]"}], "=",
    2 m; E% ^& _2 l. R      RowBox[{"u21", "/.", + ^& [! E8 p! i2 }
           RowBox[{"{", 0 c0 r, U7 k0 e8 M& j! L" k  z6 m
            RowBox[{
    9 ?+ ?$ ~3 C, [' B. s3 v; e; L9 m         RowBox[{"x1", "->",
    $ b" k, t" C; }  L# E$ U9 n6 W          RowBox[{"Data", "[",
    + @6 G. d$ }# w' i           RowBox[{"[",
    8 [) y$ `% ~! w            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    ! w' ]1 a' A: A1 |* Q2 e+ |; U& c         RowBox[{"x2", "->",
    , e1 Q7 |0 M* X9 T1 o          RowBox[{"Data", "[", ' J9 ]% d8 ^+ J8 u
               RowBox[{"[", % R& [) Y; K, h% H; |- F/ A
                RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    2 c- [0 m+ U! ]         RowBox[{"x3", "->", 1 Q  v+ d% H5 R& w/ [8 O5 H2 d
              RowBox[{"Data", "[", 9 A! Q* Q$ R! h! T
               RowBox[{"[", ) _; ]2 A* M' `
                RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
    . V- D" K/ f7 p         RowBox[{"x4", "->",
    . M/ Q- p5 ~# n% g: t' f          RowBox[{"Data", "[",
    9 Q0 U& X, j$ g* a# z9 r& J           RowBox[{"[", - ?6 Y* ]5 x5 ?
                RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    / T  n6 G2 ^# ~  i! J8 k         RowBox[{"x5", "->", 6 P: z, o; a6 P8 ?. X2 j
              RowBox[{"Data", "[", 6 k& v6 [+ z2 K
               RowBox[{"[", : @( A: g0 m5 @( S+ l7 `
                RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    : U( `! E+ B4 W: V+ g         RowBox[{"x6", "->", 3 Z8 C- k  m7 h
              RowBox[{"Data", "[",
    ( }, I: J: l4 q$ q0 l           RowBox[{"[",
    2 R# Q' |: n9 T% J/ h. D/ S2 W* X            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
    ! q- X: |3 ?; y         RowBox[{"x7", "->",
    % j+ j+ B" l  k          RowBox[{"Data", "[",
    ' }# b: I% o5 D8 ?1 T" ~; d           RowBox[{"[",
    ! S% c  |5 I& d            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", - E1 j) |2 F5 l9 v- H8 A2 h: n* h; f+ n
             RowBox[{"x8", "->",
    ( d8 h. E7 x0 b          RowBox[{"Data", "[", ( u. C' r( O2 P! |
               RowBox[{"[", & Q5 s  p: ]8 q( e: w7 C8 b& G
                RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 7 I) w. r. l) }$ B. e. g
             RowBox[{"x9", "->", 8 f6 d( M% z& o8 M" Z. u
              RowBox[{"Data", "[",   A# _2 e3 S2 D( d
               RowBox[{"[",
      ]9 Y/ R- R' F! K            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}],
    8 x  {/ n4 N/ s! c    "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",! J2 H3 o8 F( U: y- R' B
    CellChangeTimes->{{3.5779241165*^9, 3.57792417728125*^9}, {: ?/ t* f1 v! m8 ^) B. z+ S/ o( O# H
      3.57792428359375*^9, 3.577924585109375*^9}, {3.577958919491543*^9, , q$ ~5 }4 J5 J+ Y% ]% u1 z
      3.5779589224867477`*^9}, {3.5779619825731473`*^9, 3.5779620676400957`*^9}}],
    5 Z1 y" ^4 [* P5 r4 U; v! J6 k+ ?8 J' |9 D% O$ P; ?" E4 Q7 s) h
    Cell[CellGroupData[{, [6 f8 p# W- l/ {6 }" w. B$ f
    3 \" a- h# m1 j6 I
    Cell[BoxData[
    + W' x) d/ C5 `* u4 l* z RowBox[{"w1b", "=",
    8 z, b: |" O$ B0 C9 q( @* V  RowBox[{"LeastSquares", "[", ( g% Y. W3 F2 i' j$ h0 L$ {
       RowBox[{"m60n21", ",", "y1b"}], "]"}]}]], "Input",
    ( ]# x- h  B+ O CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {& v4 L- Z3 s& o$ E
      3.577924662765625*^9, 3.57792466596875*^9}, {3.5779582865360394`*^9, 6 y  r& C6 L! L( [2 c5 }4 y0 Y1 q: k  S
      3.5779582963172565`*^9}, {3.5779622900808835`*^9, 3.577962290377284*^9}}],
    7 Y( T2 ]. b$ G- _/ `$ E: B& n4 B9 W( m
    Cell[BoxData[) n4 d4 X) x! |, R1 c' W
    RowBox[{"{", $ T1 R5 G& V! c# C, |8 e/ Y1 ^
      RowBox[{) Z- a; C  l9 f
      "0.48228184971363947`", ",", "0.16041393254115022`", ",", 0 U1 ~/ d; i) T3 C* t1 h
       "0.3741982811661129`", ",",
    2 A8 t5 _# {4 ~   RowBox[{"-", "0.12620581913715245`"}], ",", "0.28831860112966734`", ",",
    1 R( @8 `3 l8 `0 v, [) s   RowBox[{"-", "0.2282993884666894`"}], ",", "0.3207174990295839`", ",",
    6 A9 u& ]; _+ ]$ e   RowBox[{"-", "0.4666313851213302`"}], ",", "0.27551257162880227`", ",",
    4 z: s% Z! v  A   RowBox[{"-", "0.025873988843993667`"}], ",",
    $ C1 P. O) p' G$ m( N9 E   RowBox[{"-", "0.1339854044819916`"}], ",",
    6 k3 m' t' u2 Z% c   RowBox[{"-", "0.15852708848338315`"}], ",", "0.3129687276967983`", ",",
    2 J. w# U8 z, z% A" H  C* Q   "0.45723850991134063`", ",", "0.2954923840077215`", ",",
      A4 q/ |# d( l. D' R3 K   "0.9125798890455868`", ",", "0.21159052285983104`", ",",
    * S+ N$ M0 \9 @   "0.5575503376854456`", ",", "0.6019775648968265`", ",",
    0 A9 a' \, Z  I   "0.2361524780938108`", ",", "0.12782130225993923`"}], "}"}]], "Output",0 Z' B# `: D# z+ ~) p. f& W! i) H
    CellChangeTimes->{
    / P" Y* U& u7 b  3.577924621953125*^9, 3.5779246688125*^9, {3.5779582894220443`*^9,
    1 w" W7 g  ]7 `8 o   3.5779582992968616`*^9}, 3.5779584995700107`*^9, 3.577959040157753*^9,
    ) J0 B! H& G5 a' d( R   3.5779622919996867`*^9, 3.578012447734375*^9}]
    5 _3 ?/ ?2 ?$ G$ q, L! i$ a; ?}, Open  ]],
    $ G, ?8 n6 D- A. o% Y7 e  h' V' ~+ ^" J0 ~% G0 n
    Cell[CellGroupData[{
    2 f( P. ^) B, m
    5 a. N- e# C" H3 Y; p  eCell[BoxData[2 K( b7 {% O* U. }: m' m
    RowBox[{"y2", "=", * z, U6 S- ~" v& O/ f
      RowBox[{"w1b", ".",
    / P! J$ r- z" y+ T4 n1 G0 b   RowBox[{"{", 3 S9 q  _' u! C9 z/ g/ ~& o
        RowBox[{
    + k8 c, k2 M' A1 P/ @    "u1", ",", "u2", ",", "u3", ",", "u4", ",", "u5", ",", "u6", ",", "u7",
    : H- ^9 V  |: k* _; E     ",", "u8", ",", "u9", ",", "u10", ",", "u11", ",", "u12", ",", "u13",
    9 q; _/ q9 o/ w4 Y     ",", "u14", ",", "u15", ",", "u16", ",", "u17", ",", "u18", ",", "u19",
    & W# C  p/ o; Z2 r2 W+ b     ",", "u20", ",", "u21"}], "}"}]}]}]], "Input",& w- @8 w3 ]- P; {, d$ e
    CellChangeTimes->{{3.57792471553125*^9, 3.577924755875*^9}, {8 ~. a# X1 p( L0 u7 z% t9 h1 U
       3.577924897078125*^9, 3.57792491596875*^9}, {3.5779583101856804`*^9, + M: p- d: ?* U& K( X1 p: Z# I, O
       3.5779583178920937`*^9}, 3.5779623163513293`*^9}],
    4 G- }0 }- |; M7 [9 C1 r; R' q) N  A3 Y  F0 K
    Cell[BoxData[
    ) ]% \3 z: }; t RowBox[{
    " V  M! F) I" U( L  RowBox[{"0.9125798890455868`", " ",
    4 {. o: m- i) {   SuperscriptBox["\[ExponentialE]", ) q6 M8 n" v+ H
        RowBox[{"3.141592653589793`", " ",   ~% o; g( T% |" l$ P
         RowBox[{"(",
    . L; g# x9 l7 m      RowBox[{: p1 i8 b" V6 l# y5 E: }
           RowBox[{"-",
    1 i; J# }* G3 N. x        SuperscriptBox[4 I* t% z7 e1 T) @
             RowBox[{"(", ! ~2 U& H: P* b! s' e
              RowBox[{1 \+ A- j, g% _( ]3 }& f
               RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ' H, r4 @: g  V8 |0 k6 [( R1 ?$ j       SuperscriptBox[
    1 g& N9 C1 z6 u4 I: w! D        RowBox[{"(",
    5 d$ n, x8 j, O! S4 A4 K- @) N         RowBox[{
    4 m' W; x) h6 `! C          RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", $ s2 a" Z5 R& n! y4 s: P) T
           SuperscriptBox[( @/ c$ m8 d) F. m. E
            RowBox[{"(",
    " ?" E) d" ?0 Z. J1 H  M( o# m         RowBox[{/ T$ a8 {+ M3 V' T. e  @) s
              RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", ) R4 m0 F8 i# w1 }" L
           SuperscriptBox[
    6 ^# ?. M. ~* R1 J& E0 V) ]        RowBox[{"(", 6 b4 }( ]" l8 {) T
             RowBox[{. |1 |3 W) [* F
              RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", $ l# Z/ D) @8 \& h1 N
           SuperscriptBox[9 x  j6 Y+ F) d# t* B
            RowBox[{"(", ( ?/ K  g' p3 [9 d- c6 |! ?# C
             RowBox[{8 l' U$ G! W( r, f+ d
              RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", 2 Q' g  G0 R6 c# k4 k& T
           SuperscriptBox[
    / s4 B, s0 I+ O& {5 m+ K        RowBox[{"(", 0 Z7 w- M. H. a) i2 u1 a4 m
             RowBox[{! t3 n; F6 h$ h
              RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
    + h2 y$ w% B0 h/ R' E8 N* r       SuperscriptBox[6 {" q! H" V1 Q5 a
            RowBox[{"(", / m) z: }; h- g/ I; @- V2 h
             RowBox[{
    2 K( ~# T! T/ e* {0 y3 I( C7 F" D          RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
    ' j+ A8 X1 W/ \  b2 a+ Z       SuperscriptBox[8 T" W/ F$ h7 j& ~2 w1 z0 D
            RowBox[{"(",
    0 g  i9 {' e: G5 N/ s% p* E         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 6 ~) P  V" C" m) s2 u( y# P$ ]
           SuperscriptBox[0 N- e/ \9 `0 _: C* C
            RowBox[{"(", , @, i" V# H3 C7 f/ U. s- h
             RowBox[{
    " K' ?  W) ^+ x. ?* O$ b          RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
    $ w4 L7 u; j5 x3 Z2 e  RowBox[{"0.28831860112966734`", " ", , t7 Q! t$ E5 P5 T3 C
       SuperscriptBox["\[ExponentialE]", % }9 @: ~3 V3 S' Z
        RowBox[{"3.141592653589793`", " ", 4 F1 o; S' H1 v* @5 P+ c% X0 K
         RowBox[{"(", 1 \' A+ H1 R8 W' R7 J' _' j
          RowBox[{
    , f) Z5 P5 e' T/ V8 k6 P+ w       RowBox[{"-", - H# Q9 o0 q9 q, X$ d
            SuperscriptBox[
    , ]8 E5 O& J% B         RowBox[{"(", . \- F/ {/ X! ?$ F. \/ N
              RowBox[{9 X) V5 r; U. S4 U
               RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
      _8 c6 q' S# w* P. {       SuperscriptBox[
    $ ]" H' b& k# A& V; m) K! F        RowBox[{"(", & P! X& _4 I% n4 R5 K5 K' C* U+ o
             RowBox[{7 e1 U/ ^; v) z. }  ?; C4 {! F
              RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
    ' b0 C/ k% I( d3 }$ k7 k2 ^       SuperscriptBox[
    % i2 l9 V0 V* ]% C( N/ M+ W) T        RowBox[{"(", 3 [- S) D8 [& N
             RowBox[{3 r" _# b! _3 ]' U1 M3 b0 {
              RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", 2 n/ `2 t8 c" F
           SuperscriptBox[
    8 I5 w/ h/ }1 K; G1 a        RowBox[{"(",
    4 S0 [8 M1 n2 Z! s0 ~% V: x         RowBox[{
    - O( C/ F+ N2 @7 l          RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
    5 X, a1 Q7 Y) v3 H# _  k4 w, O       SuperscriptBox[
    ( g6 e+ d$ c6 k6 M" u- x: p        RowBox[{"(", 8 P. g5 g1 u1 ~
             RowBox[{
    ' Q' b( k4 N/ \" {          RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
    - ?) [+ u- \% G. b3 ]9 A& Q: B       SuperscriptBox[
    0 F0 j3 p0 b( U9 E# u" z- z5 s        RowBox[{"(",
    , v! u5 U8 f* N- F  m; Y7 X         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", * ]$ F- ^3 H& r7 z; n5 H' p- R
           SuperscriptBox[
    - e7 d" s4 L! ]6 H        RowBox[{"(", # M4 n! f& S* n) L7 T+ B' r  s
             RowBox[{9 j! W, s& M& d
              RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    4 e; z/ U1 |" j( b% i7 y       SuperscriptBox[
    " [. ]. [7 v; I. F1 G        RowBox[{"(",
    / p' ?3 I" y/ k+ `         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    0 |3 W; |! y  O, R# i# Y& l* x) [& `, @       SuperscriptBox[
    & [4 r# j! x- [% Y        RowBox[{"(",
    1 ?. n7 c/ z. H0 k, o) h         RowBox[{; Y$ u# e6 L! @" t0 _
              RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    & \# M5 X+ r* m4 P6 W  "+",
      C) }8 W  H. S3 O  y2 L/ D6 [  RowBox[{"0.21159052285983104`", " ", * i* k+ ~* O* F
       SuperscriptBox["\[ExponentialE]", - B, w6 L5 Z& M
        RowBox[{"3.141592653589793`", " ", - M% b, ]5 L4 S. j4 f; B, z
         RowBox[{"(", 5 [, O! ^2 `9 \7 Y$ `6 q% @' d& L
          RowBox[{
    : _6 B, E6 Y$ r3 E6 g) e- {       RowBox[{"-", 8 R5 P  l+ @7 p* l/ r  w
            SuperscriptBox[
    : K: P6 u" t7 a# T+ Q! S2 `         RowBox[{"(",
    1 k4 B4 x1 w  s5 t4 r          RowBox[{2 ]0 |" ^0 {$ u
               RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
    - l# V' F, c9 A       SuperscriptBox[. S  \6 @- {- T* g8 ]/ e2 U
            RowBox[{"(", ! G3 b$ Z: M+ @/ Z
             RowBox[{7 V1 ]9 n0 s+ S, p( d+ U3 W* |
              RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", 7 f9 P. ~# C4 ]) j1 H& c0 G- n
           SuperscriptBox[# X$ Q& |% K6 H# C! f& o! y. Q
            RowBox[{"(",
    * A+ A% K. y; i; f         RowBox[{
    ' w( G2 I7 Q! s  @! v4 L          RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", ( b( C  T5 q; a# M4 A
           SuperscriptBox[
    . M7 C2 @& I7 x0 i        RowBox[{"(",
    ; u! y# S8 }! Y% j+ N         RowBox[{
    . x. `9 m/ M$ a& h# {( D; |/ ^          RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
    1 {4 J: f8 c! b8 `       SuperscriptBox[
    - ]4 L- Q& J+ Z        RowBox[{"(", 7 ^# k  w7 U8 ~/ q" a
             RowBox[{
    ) b+ g- n. L2 f6 o2 ~$ j2 {- ?& g          RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", ! v; b$ m4 M4 ]1 S* ^
           SuperscriptBox[- m9 t) F. G5 [+ J, E; T6 Z4 [1 @, l
            RowBox[{"(", % v+ \- d7 w) U3 P6 m4 Z1 h% r7 X
             RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    * k+ h% q% m) S) b6 d; Z. t1 b       SuperscriptBox[1 |! ^0 O3 n/ U' E8 F
            RowBox[{"(", " r4 q1 \3 e, U* \) S2 ]
             RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 7 C8 I: K. J$ D2 N6 O5 C2 j6 `
           SuperscriptBox[
    3 a  E# v- G& M: J        RowBox[{"(",
    5 M. x- c3 b, z! s         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    3 _) R) a& r. \  P       SuperscriptBox[* \! D! Z" V5 N6 K* j
            RowBox[{"(", 5 t$ z/ R+ z' d1 H% X& e
             RowBox[{& H, Z3 t; i/ e3 E
              RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    0 w" x$ p  {  f" r$ o  "-", ! _: R- T* Y* U' z
      RowBox[{"0.2282993884666894`", " ", 6 K, h8 Q/ i" p& @* E/ A
       SuperscriptBox["\[ExponentialE]", 3 I6 T, a1 w; w6 ~$ J; s
        RowBox[{"3.141592653589793`", " ", " b6 {, }4 J* ?
         RowBox[{"(", # D* L2 ~0 g% q! B4 }+ O
          RowBox[{" T, V  C; C, F* }2 O+ g/ Q* J# D
           RowBox[{"-", 3 R1 [  E: d# S4 l# V4 q7 {
            SuperscriptBox[
    : v4 C7 @% P1 A         RowBox[{"(",
    9 R* G9 x0 f" \, h& t          RowBox[{& }& c. H! B  d- u5 T3 t4 y
               RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-", ) C8 J5 \6 V9 r0 n+ ]
           SuperscriptBox[
    7 g. r' d0 a; s        RowBox[{"(",
    1 x& {0 X1 I- {         RowBox[{
    - Z  X# l9 W) [' j. `7 H$ y7 X. a1 V) l          RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
    9 J/ J9 v8 _1 `       SuperscriptBox[1 Z0 m' ~) v0 M% j1 S
            RowBox[{"(", ! p/ D* n7 n$ n1 [. ?8 J
             RowBox[{3 d. O4 Y5 i/ a/ _/ W0 `: a
              RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", . O% V" c$ H" V2 T# r
           SuperscriptBox[
    ( M3 A/ T# s  i; N$ _        RowBox[{"(", ; A9 x) O0 g# U- l; b- t  r) O4 @
             RowBox[{$ [7 b" E) u' W& c+ g/ T
              RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", * k4 ^, s9 i8 S, R
           SuperscriptBox[
    : {7 g/ h# O! }4 z6 q        RowBox[{"(", + T) X$ I  e6 v3 p
             RowBox[{
    % B, K/ v6 d9 |) Q          RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-", 7 o$ U, r' w+ n# k( T8 r2 k
           SuperscriptBox[+ j- G& z0 G5 F" O& V' P4 @( \
            RowBox[{"(", 2 M9 W/ [) E* J; }. j! f$ G
             RowBox[{
    ! m" U+ m) i5 }2 n          RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
      b5 N0 d; M/ V: z       SuperscriptBox[  }& P. Q4 t5 Z3 _
            RowBox[{"(", # e9 p$ P! M* O6 c1 }# }1 X( v
             RowBox[{2 p2 [/ i6 p  G4 d# U) s8 ^
              RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", 8 O  M( w+ m- h
           SuperscriptBox[
    " e& ]! R: k7 j. \  X& h# l! {        RowBox[{"(", ; {" Z( j( S6 E" W: S# Z
             RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ( A; w6 t) V7 k/ n. O/ b       SuperscriptBox[2 _/ a/ u& q, m$ @% c+ i
            RowBox[{"(",
    5 Z0 x) k! G; _2 @3 G* c$ J3 m6 Y         RowBox[{, M. a/ ^( |+ C1 e# Z; Z/ d
              RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    & |2 \3 B% i& I; k; Q1 Y. C  "+",
    ; l- ^) ]" {# T  RowBox[{"0.27551257162880227`", " ", 5 v, [7 F+ O' e4 r+ c
       SuperscriptBox["\[ExponentialE]",
    $ Y- T- U. H+ n- H8 b6 h5 v* D9 u    RowBox[{"3.141592653589793`", " ", 7 k; [; K/ I# k+ f) |: r- N
         RowBox[{"(",
    " \6 m- v8 E( T, W      RowBox[{  c: v4 q" V+ q$ T% g. |! t) o
           RowBox[{"-", 0 G3 U/ U6 T+ ?- O2 ]. S4 A
            SuperscriptBox[) _% M4 M. F5 @7 Y
             RowBox[{"(",
    ) Y, x: k- {3 V0 g6 L9 g4 [          RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
    . ?% X: m5 Z, e/ R/ H2 i1 }; g       SuperscriptBox[
    ' R" O8 t+ B6 E2 Y3 B        RowBox[{"(", , Y1 H: X3 l# x! c- D/ @* ]1 _
             RowBox[{  p3 ?( o2 ]( }; F! H; M( ?( h
              RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
    $ _* f: E1 c, f' j' E5 @: o       SuperscriptBox[
    ( b3 P, ]3 M7 K3 m7 ~        RowBox[{"(", 6 h% Y3 H' J, O# C8 m# R, b) p
             RowBox[{
    ! S! r7 ]' l$ b          RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", 4 v, S0 n/ F8 A" ~! r0 x
           SuperscriptBox[
    $ U* M- v4 _1 j7 ?        RowBox[{"(", ' f% ?2 h) K/ U4 H
             RowBox[{
    3 k8 w3 [  e& b, @  Z$ p- t          RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
    & `- ]# i- ~% h/ B5 K       SuperscriptBox[
    . ?# m; }2 h4 h! ]( Z        RowBox[{"(",
    ! `2 q% B3 [6 E% G1 L         RowBox[{4 K! A% \6 f2 j
              RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    3 i2 t  a3 |- O       SuperscriptBox[6 N( U! B; S- X7 K
            RowBox[{"(", 2 n% h6 A* G1 c5 P. O+ i5 s$ t
             RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", . }) ]1 l6 X& n3 F$ q
           SuperscriptBox[
    * c2 X% D5 s" x# t# C8 a        RowBox[{"(",
    ) a/ R% G0 ^5 Y         RowBox[{. [2 Y0 i: g% r) h3 d
              RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", ' t/ x2 ~3 O$ O9 D# ~
           SuperscriptBox[5 |) u: G: z3 b! \- D
            RowBox[{"(",
    / l6 c& c: Y* H2 I) ~' }% ~( V9 Q         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ' t! ]5 }" D: q$ L. {9 \% F. ]
           SuperscriptBox[! e' F" R. N( {  h& y" m
            RowBox[{"(",
    8 Q: L0 ]2 U! ]$ f         RowBox[{/ s7 ~  `; g6 t+ ?+ O* G6 P2 |
              RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], % O& w9 j4 ^7 f' s0 ?
      "-",
    5 K0 _4 U! G; \9 a  RowBox[{"0.12620581913715245`", " ", * r0 f, c6 J6 i8 y' n1 o7 G1 i1 M2 E
       SuperscriptBox["\[ExponentialE]", / j6 v; O  t: H: o, ?- z' u
        RowBox[{"3.141592653589793`", " ", ' C0 q2 k" }/ l5 V! U: |, H
         RowBox[{"(", ! L# u8 o7 J0 f
          RowBox[{
    7 y1 J$ ?0 [; S% A  X       RowBox[{"-", 5 s$ u! [# m7 p7 s7 r
            SuperscriptBox[
    8 F& z1 x6 A+ z1 }, g5 [0 l( E+ m         RowBox[{"(", ) ~# {- Z3 S$ Y' T8 L
              RowBox[{
    ) y; c+ A7 h0 O* E; g           RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    0 y4 w9 K" ]& l# |( u3 r7 }( B6 w2 b5 H       SuperscriptBox[4 |8 E! i* `; Y6 j& `
            RowBox[{"(",
    7 x1 Y# [2 T  {9 X) [% V         RowBox[{# V1 A# G5 V7 H0 S
              RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-", ; x* N' t1 B) P* o7 F4 o( I
           SuperscriptBox[: ]# S& E: S% R
            RowBox[{"(", . s+ Y2 u8 g) a& _
             RowBox[{0 \; ^' o3 ~$ o+ [% P; M$ T
              RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", ( p( Y0 i3 o" ]5 z* z( \
           SuperscriptBox[2 {+ J* }& t8 I3 Q0 V% {) x7 [& E
            RowBox[{"(",
      i9 ^! |0 _7 p( ?. y9 D         RowBox[{4 O/ s3 |  U3 T! K$ r
              RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", ( v4 D/ y- {3 f/ u$ Y3 ~
           SuperscriptBox[
    4 ?2 ^% P2 ^3 Z. }        RowBox[{"(",
    " ^8 K( g3 ]6 y% C5 ?* I         RowBox[{, S& f$ r9 q$ k
              RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    5 H: F, Z, ~8 `- d7 c; d' A6 R       SuperscriptBox[
    1 `5 ~8 t) j; ~+ G/ [        RowBox[{"(",
    ! i5 ^" Y; U" N9 v! W0 U         RowBox[{; q5 w  `  v9 J$ a
              RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", , Z$ F# E; Y! S
           SuperscriptBox[6 I6 j: C6 a& c
            RowBox[{"(",
    9 |  `7 \9 G. N2 D0 h6 T9 }" s) Y         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    , ^  d3 _0 D  m" j8 D# |2 B) J       SuperscriptBox[( a: w9 T- {) p" V* U9 {' t
            RowBox[{"(",
    9 m5 C/ j* B: a         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    " l9 F" Y: G. f5 Y       SuperscriptBox[
    8 @6 b" k5 o0 x        RowBox[{"(", 0 e5 q6 z- r# e2 _) K2 y
             RowBox[{
    5 N3 P0 `/ l$ ?* ?0 x/ j) W          RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ' T8 e0 Z+ x( S$ ]9 F2 h# v1 I
      "+", 5 z+ Y2 ~8 @8 f2 u* v
      RowBox[{"0.12782130225993923`", " ", ' d0 O2 Q" j) W
       SuperscriptBox["\[ExponentialE]", 4 r# c) {4 D! [6 p' N9 A$ [
        RowBox[{"3.141592653589793`", " ", ; R  D7 C  k5 s1 V/ Z! l. J
         RowBox[{"(", 0 O+ @( ]% p1 B+ d% t
          RowBox[{9 Z' F( q7 x! Y* ]0 J5 F
           RowBox[{"-", * L: L. X+ Z+ ~- T- Z. a0 E- `
            SuperscriptBox[
    ' i# v! \9 W1 e1 g6 l- n0 A7 ~; v         RowBox[{"(",
    6 V: j  N' b( E          RowBox[{
    ( ~! d( G* ~5 P! X. G) V2 ^  ?           RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", 4 I0 E4 w  }5 K$ }* @5 O
           SuperscriptBox[; P8 g/ j, ~. |" }
            RowBox[{"(",
    / [+ v8 n9 D! ~$ H! I3 I3 M         RowBox[{1 [4 ~( H, U% e$ W* @+ G9 p
              RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", ; ^1 Q9 u  {& _, N( g& _1 I
           SuperscriptBox[
    $ s0 L! ]8 x; c, o( @, m- l7 F( N        RowBox[{"(", " u0 r# H3 Z6 I( W
             RowBox[{# [6 i2 h  c8 v
              RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
    " a* n8 F( ?6 a" d       SuperscriptBox[7 ~0 h, ]% ?$ f/ ~& F
            RowBox[{"(",
    5 A, p! j1 r" m7 s2 ~2 z2 K         RowBox[{
    $ U( e, g' \* l7 x0 V  A; V/ i          RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
    " d( [2 A: b1 W. @4 K( Z       SuperscriptBox[8 q  F6 e. d. F1 L3 O2 ~7 k; J( D
            RowBox[{"(",
    % z& \3 C! w) I" A& ]% S+ m         RowBox[{7 c. N/ z2 H; R% ?5 n/ \
              RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", ! l& ^, H; y0 p( x
           SuperscriptBox[
    " l/ [: k, e+ [2 u" @* C) r        RowBox[{"(", ( G3 G2 k( z4 M, u" [
             RowBox[{
    ; x) G- `. T( I# |          RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", 4 ?/ d2 y/ v& v8 A
           SuperscriptBox[$ Q' b( p6 G4 ]
            RowBox[{"(", ' I9 F  D2 A8 {0 a3 T
             RowBox[{
    0 v8 K: Q: d: k% B' [          RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
    # R: |  t5 P. Y3 T       SuperscriptBox[) K) [7 C+ a  m9 D5 o5 U
            RowBox[{"(",
    . t1 ?4 \; P% ~! A& g2 i         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    - R7 V% K$ D+ m* r       SuperscriptBox[* A1 _4 q, j4 v0 Y
            RowBox[{"(", 9 f$ q: K. W  |2 `' F$ q- D% S7 e
             RowBox[{
    7 ^6 m  q, R% b* m+ `9 ^          RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], % O" M$ e& n- G& p
      "+",
    , P5 d0 G( |: J  RowBox[{"0.2361524780938108`", " ",
    - H* y3 |9 x6 Z) X. e* j8 h   SuperscriptBox["\[ExponentialE]", # q  `; G9 b; I9 W
        RowBox[{"3.141592653589793`", " ",
    9 D, r% J# n3 z     RowBox[{"(",
    + D+ _9 p, B9 `2 A& A      RowBox[{
    / X% N/ {7 x- {9 U       RowBox[{"-", 5 }) ~: E( z. A2 h
            SuperscriptBox[1 v9 ^3 E1 c9 W) a' C
             RowBox[{"(",
    . x" T! j9 t, ?3 A  A          RowBox[{
    1 ~  Q* P# l# _7 K           RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", " C: |+ f8 T3 k- f( s
           SuperscriptBox[
    . V# W) e' \/ F7 z% v1 M        RowBox[{"(", ' Y  u& }0 K+ R) U
             RowBox[{' H. X; o9 p: o5 Z# e- S* Z
              RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
    ' M9 r) _# x7 }" }5 Y! ?       SuperscriptBox[: x& ?, z5 _6 q, u
            RowBox[{"(",
      m3 i6 [; C+ p# S; n, z3 K% z         RowBox[{
    % B% o+ c8 l2 n3 I5 j. v* A          RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    ! {1 e) Z5 s$ g; z% k- U/ k- X       SuperscriptBox[% a1 u; S2 V, N% c& |. S
            RowBox[{"(",
    9 _( B8 r) ~; @$ j/ p* x  k         RowBox[{
    1 E0 ~1 F# v0 H* a9 S& k! j6 i2 F5 j          RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", ' `& X, T/ c" x1 v8 ~
           SuperscriptBox[" ]2 a( n  i9 o: \9 A- C- F- z- s) m
            RowBox[{"(", 9 X+ W! e, E# L/ |8 K
             RowBox[{2 \8 D& v$ x4 |( J1 G) t6 B
              RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
    ' o7 ?% Y3 W9 o4 {$ d1 A$ S       SuperscriptBox[
    1 w3 N3 G. F% ^5 E        RowBox[{"(",
    * w7 h( G  [4 ?         RowBox[{
    + k4 }& Q! L, p! W0 u  I3 v          RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    5 ]' e0 l6 A2 w$ ?" d! F/ s* r, K5 E6 O) D       SuperscriptBox[! W2 L/ H; H& v+ i  x' v
            RowBox[{"(", + C" f0 P8 G( ?6 `4 C
             RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    * [& v% `  d- y3 y: T       SuperscriptBox[* @* {' Q4 I9 a0 |( p- ~
            RowBox[{"(",
    / \) M- z# Q9 A  h3 \  X# q+ b         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 8 q+ p( B6 A* t; G1 w/ a% n) Q
           SuperscriptBox[
    * `# n" N  r' C) B" T4 R        RowBox[{"(",
    * r0 @& O% b4 U         RowBox[{
    # J& y# t- g, f' B9 _) \# r1 @" F          RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    $ W8 |* s) @4 d4 c; q  "+",
    4 U, Z0 S4 E8 Y; l/ x  RowBox[{"0.3207174990295839`", " ", 1 @' I' y4 G* n) Q
       SuperscriptBox["\[ExponentialE]", / ^% T6 u6 S6 R7 I2 Y4 ~) j
        RowBox[{"3.141592653589793`", " ",
    % @9 k  i: l" S- R     RowBox[{"(",
    0 H/ i3 S* Z6 c( p. p7 `) N      RowBox[{
    5 d/ ], s( I/ e: z5 l* ]       RowBox[{"-",
    " Q) X+ L7 b) g        SuperscriptBox[
    * n9 t0 h" K8 j) u" J         RowBox[{"(", * |: c' o0 l) I7 z
              RowBox[{0 N# R# p4 |) n5 z
               RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", 4 t6 c8 F" a: b. Q, e4 t5 L. O: k
           SuperscriptBox[  r! Z1 g4 L: T6 e0 o. ~, a
            RowBox[{"(",
    - U; H9 ^' f4 P5 L1 X6 N# @* {) w         RowBox[{
    5 F/ d2 W1 @- }$ ^          RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
    ' U+ b  B. N! }. h       SuperscriptBox[
    2 p8 ?; v+ `) `1 r        RowBox[{"(", 0 a* s- j$ `; l( J  o2 H
             RowBox[{) O5 Z- H2 j2 y
              RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    7 [0 ]+ ]) K  y* C+ ^$ W7 N% M  S       SuperscriptBox[
    9 v, @( P5 F0 J9 E1 e  X. Z0 G        RowBox[{"(",
    & g: t0 L" E% g9 V         RowBox[{
    % C1 v) i6 T1 |; R  `; G          RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",   }. }1 v8 W4 d- t  c6 c
           SuperscriptBox[! w8 v% E. l( U& N9 D2 o+ m
            RowBox[{"(",
    " |1 x0 k/ n& S         RowBox[{% \: ~( h: X0 s6 k' `
              RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
    + A" W. V. p9 P% P       SuperscriptBox[* U0 f' \4 p# g$ @8 I
            RowBox[{"(", , N  c( o/ y" |: a, d1 J
             RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ( P3 }6 b; A" _; k4 A       SuperscriptBox[
    6 i9 B) g: B: ~  H% b3 H1 U        RowBox[{"(",
    : h" a- t0 J4 n" e- Z. ~4 C         RowBox[{! b# d. N8 a! \. W
              RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 1 _. e7 W8 i1 T& e2 U, v5 i
           SuperscriptBox[; r9 F8 `7 N: b, X( W
            RowBox[{"(",
    3 Q# X( `. o# [2 S) l         RowBox[{) s- h; u5 E& B
              RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", ! n! Q  S9 Z& i* x* i7 R
           SuperscriptBox[
    5 C4 R- @* ?+ Y% X        RowBox[{"(", 6 m" a& v2 Z- r# |3 O  C6 }) }
             RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ! C! k5 H  O% V6 m; T9 f( ?2 o
          ")"}]}]]}], "-",
    , _0 b+ i) Y3 @; K7 D( ~  RowBox[{"0.15852708848338315`", " ", ) `# J$ p4 O  i( I
       SuperscriptBox["\[ExponentialE]",
    ( E( g9 x4 N% r- h    RowBox[{"3.141592653589793`", " ", 7 K" i; ~: [% s1 m# Z
         RowBox[{"(",
    + B9 ~+ e/ r' O" S      RowBox[{; Y' p. `" t/ J
           RowBox[{"-",
      r- }' J- o# [        SuperscriptBox[' ?8 G* X, _$ v! ~
             RowBox[{"(", % a4 L& p; X# y1 l, c% m
              RowBox[{0 t! u& M0 F# Y$ |5 U- t" R% U
               RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", ) M0 J5 q; p1 z2 e
           SuperscriptBox[0 {0 B4 ]& F; @
            RowBox[{"(", 8 o" K" F7 m: z8 D5 B
             RowBox[{5 o$ V2 u. E! K5 @$ `# e- m% D
              RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", ( x2 Q' P: O! R
           SuperscriptBox[
    1 i! v1 z. e; q3 {2 F6 D        RowBox[{"(",
    # v* {, H  {" r; q+ j         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
    / d' D$ r$ K/ R9 @! T! G       SuperscriptBox[
    8 r% ], N& J9 T6 `+ j        RowBox[{"(",
    / ?3 c; w+ E/ }7 }' W         RowBox[{
    , i; ~0 G. b( z! H          RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", * n3 n9 k# k' I! q8 M. d" D6 U9 X: u
           SuperscriptBox[
    ; i8 l9 t+ D: E& c" H        RowBox[{"(",
    & Q9 M( m+ w# T  f( J( a         RowBox[{/ D  r* i- x# T5 }9 R; h
              RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
    - c! t% {7 l: T       SuperscriptBox[8 `1 @' E+ T. y9 m9 {5 n, O
            RowBox[{"(",
    ' Z5 ~! |/ Y3 V1 _3 S  Q         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", # y5 |6 ^1 k& D) N* ], g
           SuperscriptBox[
    3 {2 b8 q: J) D3 Q# j6 ^; G  I        RowBox[{"(",
    $ x4 @: w0 G7 I1 f. J         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ; {. X0 p$ R: q- ]9 k5 v2 L9 L' q* Q' Q
           SuperscriptBox[7 v" P+ L: x/ r' m! n7 o3 t# U* f$ t
            RowBox[{"(", $ S5 N0 l4 r1 T$ \, U
             RowBox[{
    ' Z# e, ^5 I1 a( t          RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",   @4 D6 X% Z2 r% i0 K- y
           SuperscriptBox[
    ' x, \, J1 X# P5 r- W        RowBox[{"(",
    5 U3 Q, S& W6 O% e9 i# H7 p         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    : Q  P9 _0 C( K) |+ @      ")"}]}]]}], "+",
    / j1 v7 H  W+ F3 W: K0 W* @  S6 I# N  RowBox[{"0.6019775648968265`", " ", + [! g) p0 k  u" x( Z
       SuperscriptBox["\[ExponentialE]",
    0 X3 ^, @& G  a* s5 x  F    RowBox[{"3.141592653589793`", " ",
    4 }5 b. A  }4 _( f, ^5 g     RowBox[{"(",
    8 H' _9 ?7 ?  h& ?% N      RowBox[{( z( h, w$ D- `& y! G: }
           RowBox[{"-", ) a; m$ R' y! V% l7 }
            SuperscriptBox[
    9 A8 J6 S# o, h0 |" t         RowBox[{"(",
    / R$ @# v+ Q% z. s          RowBox[{
      F( p1 G3 H: l9 C( k0 ~0 ]8 A5 H           RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
    , K0 r& S+ X, d& v- O       SuperscriptBox[  Z0 `1 m# t5 a' O9 e) N! S
            RowBox[{"(",
    * F  G2 I: W6 A0 |! F: f4 k         RowBox[{
    ; _2 i* h$ n) S9 {+ R          RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
    4 c3 }; K+ Z/ t# N       SuperscriptBox[$ V5 u' d' m2 j1 {" s0 `+ y# C4 K# ~* z
            RowBox[{"(", 3 Q6 r9 b+ O  R0 D' K; k4 u) G
             RowBox[{
    8 e1 A8 H, z. l8 o          RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", 3 B- H, [5 X: ?( i
           SuperscriptBox[
    ( L' k. ]* `* K$ \' l' P        RowBox[{"(",
    * j% l" H) o. N% ^         RowBox[{
    8 G! x/ o( z& I  d* ^          RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-", 3 B8 U, }& Y2 j) g8 C
           SuperscriptBox[% x/ r* @- t- q3 C
            RowBox[{"(", $ a$ E' C9 i: H$ v; ~# ]
             RowBox[{# C2 V' ]& Y  U% Y3 `' y6 S/ N4 V
              RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
    ' g3 J  c+ l1 G$ R3 z! P/ g       SuperscriptBox[! R: V2 x6 \1 U8 O. y# ?8 H+ U
            RowBox[{"(",
    1 I) M7 d2 A4 D6 G         RowBox[{
      U' U6 g* ~7 }- X! o          RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
    : T5 |6 U5 K6 X# @( u       SuperscriptBox[2 u" ?0 G3 }& {% m8 D: d
            RowBox[{"(",
    & _, q' J" ~( S- x         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    * O9 M+ ]3 J3 {# ?  F: S; G       SuperscriptBox[2 ]: y* ^* ~/ K5 _
            RowBox[{"(", 6 X9 u; Y* l2 m8 V; o; `
             RowBox[{
    # w; i) I& l7 ?. m5 t          RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
    8 s! N$ d8 x, n2 d6 n' @* A       SuperscriptBox[" i! ?: b, c7 i% A! |. F5 |7 F
            RowBox[{"(", 0 f& A, ]6 S- w! ^9 g* O
             RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    4 E, m2 k; i6 X9 E1 W      ")"}]}]]}], "+", # N, ]( [) T8 z0 F8 _
      RowBox[{"0.16041393254115022`", " ", " b  l% J/ C, a0 m( t9 t- T. {
       SuperscriptBox["\[ExponentialE]", " P2 D: N) o7 o2 u* {. L
        RowBox[{"3.141592653589793`", " ",
    6 E" \: R% a8 u8 u' c9 Y  T% D     RowBox[{"(",
    , b! y2 i& ?* v# l1 O      RowBox[{
    8 s6 m+ C+ \; K0 V/ ?' U# w       RowBox[{"-", & g7 O7 h2 p6 G
            SuperscriptBox[
    $ |" E' z& L7 `8 I         RowBox[{"(",
    9 h) Z' o; r% R0 ?  E; X( f          RowBox[{: \6 S) @# m( K
               RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", : j$ N& Z0 m9 @7 ]
           SuperscriptBox[
    1 J+ j. U: ^+ }* `2 x        RowBox[{"(", + \5 z& \: v0 F/ Y
             RowBox[{- C7 _$ c6 P7 ]. F5 J* V( l# O
              RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
      a; I1 d! R: [+ b* l( V       SuperscriptBox[) X* u' u! I2 ?6 E2 v
            RowBox[{"(", 2 c8 T1 b8 s$ a8 ^  V
             RowBox[{
    # P3 g/ \, n# |+ z0 J, }          RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
    & _+ C3 E, }% r( Y' Y+ \       SuperscriptBox[
    . i5 v; N3 S* S* I6 Q  l0 U; R  q        RowBox[{"(", ( m4 m! G4 x; G2 O. |. |# j
             RowBox[{
    / Z# j3 j3 ~5 K) E. t- n, A; O          RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
    / I9 y) S: W, u5 h       SuperscriptBox[" @0 y+ D! C0 ~( Q" g* u
            RowBox[{"(",
    + N4 M6 [. u, w         RowBox[{3 o  F9 p- ~: R! A
              RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", & i7 h9 R5 d4 }- y& I1 U+ c/ m
           SuperscriptBox[! @: j$ o% ^' K9 p
            RowBox[{"(", / ?$ N* k* {0 }9 C
             RowBox[{
    ! w/ j0 n) p8 Y2 I6 r( ~/ z. `+ f          RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", . m0 q: @# Y& P, d2 S
           SuperscriptBox[
    0 O9 ]( ]. h5 S7 R% y        RowBox[{"(",
    # w! T8 \6 g7 ~. L* d' S         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ) ~) u4 H5 [' }; i  G
           SuperscriptBox[/ \. k( u- x! n$ w
            RowBox[{"(",
    * Q  V( i) J5 b9 _+ Q( c         RowBox[{/ ], m. k. ^( B8 b& n/ |; p9 a  j* F2 X
              RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", + v  E: }6 `" e9 g& W8 J
           SuperscriptBox[9 A& D2 d$ X  g+ I
            RowBox[{"(", 7 X/ o6 l' o4 ]* s1 m+ _( T
             RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    9 f8 B( q2 Y) C, t0 W      ")"}]}]]}], "+",
    9 z& d9 J4 r: j+ n  RowBox[{"0.48228184971363947`", " ",
    * X& C9 d0 K; `+ n) {   SuperscriptBox["\[ExponentialE]", " N% j6 a5 e9 t0 t/ _  ]' W
        RowBox[{"3.141592653589793`", " ", ! J4 y. I! }' L5 P" J
         RowBox[{"(",
    : m, f% W0 }0 J% }      RowBox[{# l, q+ p4 o! s6 N
           RowBox[{"-",   v/ p) e( G: f
            SuperscriptBox[" d' p. R0 t3 y8 b: S5 j3 v
             RowBox[{"(",
    9 k" M8 y; ^/ R: [5 \          RowBox[{
      i( U: \2 s' i. [# A/ _8 l, M           RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
    " S: m( \4 R* o8 m3 l       SuperscriptBox[, c5 _- S2 Z$ H: B8 F
            RowBox[{"(", . e9 {3 i4 M0 E7 ~
             RowBox[{
    3 \  o* [7 r& q! l2 j& ~          RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
    6 \: N  G- V9 ^6 K. R9 `0 w  D       SuperscriptBox[
    ! k! p; G/ z) @+ `) y; @8 r        RowBox[{"(", $ a4 s- v/ d; {
             RowBox[{
    : V6 i; L3 H7 e* f3 m0 T          RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", : L% Q" k" `9 j2 |& G& Y) r2 j
           SuperscriptBox[1 e# ]# E4 g# a' a+ g8 v/ P0 G
            RowBox[{"(",
    ' m' q7 ]7 A5 T5 ]( V, s* O' S         RowBox[{$ H; k2 N& L5 N$ F  O+ C
              RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
    ) l5 z9 I9 A5 C- L: X       SuperscriptBox[
    . m: C' ]8 a$ [, _4 _5 B6 P        RowBox[{"(",
    ' V$ x# ~. M( v+ y: R2 }         RowBox[{/ H& l" |( T: x+ X- n! u
              RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-", 1 I9 i; U6 _+ O, k
           SuperscriptBox[
    $ V, L% w* h6 J9 y2 m1 F/ Q$ P        RowBox[{"(", , j  n: `: u# w/ w: [! t$ x
             RowBox[{2 M$ y% x2 _) X/ \; L" o1 p+ \( \
              RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
    % D6 O3 Z3 Q: r! M7 M6 P" G9 f       SuperscriptBox[
    + E9 s* J) J" \! p        RowBox[{"(",
    * w5 i1 u" m/ t1 n+ M         RowBox[{
    : E3 n0 H3 z3 Q+ X3 _6 g          RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
    9 M; k5 H+ y' g2 h       SuperscriptBox[% [# O. K. Z" Q4 ]9 {
            RowBox[{"(", 0 O2 z1 {9 \2 g6 p- o: z4 F
             RowBox[{
      \9 l" u/ I% ~$ k" m          RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",   d, J9 @6 k1 c# E
           SuperscriptBox[
    ) Q4 E4 a" Y" B- H# l6 V        RowBox[{"(", " H. z5 j. p) K; Q0 s
             RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ( ?) s' C- w3 W5 F      ")"}]}]]}], "+", / h, v# c; p( s8 g
      RowBox[{"0.2954923840077215`", " ",
    ! M* [  n/ l' C& F1 F   SuperscriptBox["\[ExponentialE]",
    , o- Q; ^$ E6 ]% q7 V$ t! p2 }    RowBox[{"3.141592653589793`", " ",
    . o3 k$ \) v( J, o' m% i     RowBox[{"(",
    & u6 L' t! K5 v# ]* |      RowBox[{
    3 i9 `7 S: V6 W3 y* X9 N       RowBox[{"-", 1 x0 k- [( b: A: h. p
            SuperscriptBox[- f9 _; W7 D1 r1 U
             RowBox[{"(", 1 ^+ J1 w6 G: S' s
              RowBox[{
    $ f9 @5 e4 g9 ^% S0 [           RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
    $ ^% p, l6 R) V) x2 i) U, J) R- z       SuperscriptBox[/ g9 u8 c$ V5 g* m) {8 ]9 s. I
            RowBox[{"(",
    7 ~9 ]$ }* \, q' [4 e9 h. x         RowBox[{- N) s; |$ Y% \' T  {
              RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
    0 C4 \, e" w# D: y" _5 X. T       SuperscriptBox[& j) Y1 V6 L  g
            RowBox[{"(", ( j$ y# |. u) a# A% Q$ D
             RowBox[{
    6 Y" q' E+ ?$ F* v  g. N- [          RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", / f/ e$ j+ h, a  d- k8 W. p; P0 a
           SuperscriptBox[& P6 D& ?' u/ l- o1 g
            RowBox[{"(", : U& i4 |% Z6 H$ i/ j# }8 t
             RowBox[{( o1 o! q5 P" P/ z, G2 C
              RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
    4 d9 l) ]. p4 w) ^! r       SuperscriptBox[
    & |% u- r/ p+ A; O0 A9 M" x0 N        RowBox[{"(",
    ! {; F& m# ]* h7 U! F$ y         RowBox[{
    / N6 l7 i3 }% E1 L7 E  A- ?3 |          RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    6 F& F. j" R0 h       SuperscriptBox[7 ?9 |; v8 q/ i, I4 R7 }' a
            RowBox[{"(",
    * W8 t7 D6 t1 d4 v/ }* e         RowBox[{
    ( ^' e9 \8 V( y+ w# w! v" C* d1 ?% f6 {          RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", * z- @9 U& [; f' {% D
           SuperscriptBox[
    5 T8 o' U  r* j        RowBox[{"(",
    / i- `  P9 D' X! g  F6 _+ Q1 x         RowBox[{
    - ?( Z# [5 C3 V# K; l8 `" f( q          RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    * P# o6 m3 c/ F$ T       SuperscriptBox[
    2 ^* v0 u& b" D" Z        RowBox[{"(",
      T5 q" D5 j. ~7 w0 O         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", - Q( Y2 H( r  [" P. ?
           SuperscriptBox[( |% b8 b3 k( ~/ ^+ q
            RowBox[{"(",
    ; E+ I8 n3 T& w+ n         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],   W8 I" Y+ ?! s/ }4 N% L3 R; c: K
          ")"}]}]]}], "+",
    % ^8 z4 B2 F7 G$ M  RowBox[{"0.3129687276967983`", " ",
    ( ^1 E: T; f$ S9 X5 T4 w2 Y. h   SuperscriptBox["\[ExponentialE]", % z2 F) r( k2 \3 x1 N8 e
        RowBox[{"3.141592653589793`", " ",
    0 _4 G! C: ~) \. k; n% {* Y     RowBox[{"(", , Z0 t) ~% V( Y9 Z$ {/ E
          RowBox[{3 q/ B7 C8 m7 P. @
           RowBox[{"-",
    2 ]! x9 i( j" V$ n        SuperscriptBox[. T: E$ b  u( a, Q2 ^, y( ~) T5 C
             RowBox[{"(", 3 b- Y9 Y5 M! q# N: P
              RowBox[{* Q) \5 b2 ~' o- J
               RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-", & c) W' x/ L8 e: k: ~# D) j0 c
           SuperscriptBox[
    ) V, r, S  i6 o        RowBox[{"(",
    & y6 Q5 |6 c0 m0 E4 U         RowBox[{
    ! v2 M/ c% z" K5 F' \: q* m3 D: b          RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", : V; l0 H/ v6 a  X7 O
           SuperscriptBox[" R$ _6 ]/ g0 C* |1 u
            RowBox[{"(", ' c1 c; _! H1 K4 S! }. N+ r: [6 F
             RowBox[{
    6 l/ p8 K, r. @1 J% e2 {          RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", : b6 d) Y# Q  X/ ^
           SuperscriptBox[3 ~3 j# G( U& D# O
            RowBox[{"(", & E7 G. T2 l* v2 Z& C. A
             RowBox[{0 ^2 {: U8 p4 B7 j
              RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-", . z; }6 n2 }3 b* Y) }* K- P
           SuperscriptBox[
    " K: o' d- A" V: o* g" N7 U2 J$ |% m        RowBox[{"(", 1 E- `# O7 V: \' }
             RowBox[{" e3 c3 k0 X+ w+ |  ?! D
              RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
    6 e: T+ [0 ~% A8 P* a7 g: H$ o       SuperscriptBox[5 m% j; E7 |; p# ^( Z' ?5 |
            RowBox[{"(",
    $ |; B& }2 }3 p& j+ ]         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    # F5 _* x* Y) p" S! x5 x       SuperscriptBox[
    + ]$ ]5 v) ~' v+ Q) U9 e+ B        RowBox[{"(", - n, E: r! \0 A! t: S8 V7 m
             RowBox[{
    - j. d# R  a: ?" U4 i) Q9 b  S          RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", $ f* L' o: ]& `( l
           SuperscriptBox[
    $ B4 m2 ~2 P+ B# i0 w/ o' j# }        RowBox[{"(",
    & b5 `$ ?, O! Y3 m2 {         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ; ~9 o/ u' ?# ?, y0 b
           SuperscriptBox[
    ' ~- d0 C* I" Q8 y& H1 h        RowBox[{"(", 7 h: V& X6 l- j$ ?+ o1 A8 G
             RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], % d) |1 h9 `! B$ ~# b) r- L
          ")"}]}]]}], "-", * T; a, l9 W* r' q% |
      RowBox[{"0.4666313851213302`", " ",
    8 H* n6 d7 L8 ^5 F. F   SuperscriptBox["\[ExponentialE]",
    5 F- \( o$ a8 n; ]    RowBox[{"3.141592653589793`", " ",
    ' f. ]; c* D! U7 O* B6 k( o- k& M1 P     RowBox[{"(",
    * O9 u# S9 V5 c! r      RowBox[{# O7 j! j& n+ t3 Z1 b
           RowBox[{"-",
    % {+ ?) S; N5 F4 `        SuperscriptBox[  c, p3 j0 G' G8 `" w
             RowBox[{"(", 9 ]+ T6 r; J8 x' [4 A
              RowBox[{' W, @5 H/ p1 @+ Z% a
               RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
    4 W6 `/ {6 n5 W" B       SuperscriptBox[+ x9 t6 Z4 n; l2 z
            RowBox[{"(", 2 x4 O- j7 a/ ]6 I, J4 \
             RowBox[{
    & X: W+ ?6 k9 }3 q! e( k7 s          RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", 6 u) d# S% b7 Q/ M
           SuperscriptBox[0 W) |4 t6 p# g" r3 `7 y
            RowBox[{"(", 6 z- u# q* O9 P- I6 i: ~4 ]8 m6 u1 n
             RowBox[{
    8 e3 X: A8 u$ K$ i" W/ u6 P, b          RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", 9 o' Z  M  ?! e' O: @
           SuperscriptBox[3 ~) m' h# x/ ]8 L0 T
            RowBox[{"(", ! r- ^) y5 a. }% c
             RowBox[{- M8 w) R- n0 H" O4 |
              RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
    4 P9 Q" |' ^" W3 V' n0 B       SuperscriptBox[, b2 k+ z9 n' Y0 N: E6 `# t
            RowBox[{"(", " w; R% v" Z5 r: Q
             RowBox[{& |, W! P. ]" g: i9 B
              RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", 3 Z* S6 ]/ S: G' {* F& c# D
           SuperscriptBox[
    ' `$ y7 {  i- x) K0 w2 U1 J4 e        RowBox[{"(",
    1 B4 ~# y3 p  A: ~3 t. D5 l         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 3 ?1 Q( I: w: W4 Q9 @- h8 g! k" R' U
           SuperscriptBox[" G* ^# d) Z' |
            RowBox[{"(", . Z. n) a" r6 A3 i# S
             RowBox[{% M( e8 t2 R8 I. N, j
              RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
    ( S) H( ^% H6 O: k4 t       SuperscriptBox[
    5 C9 W9 p& H3 y  z' r* w! D        RowBox[{"(",
    & t* k3 s; h% h: Q         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    1 w# D  ?" F5 n$ u; |! X: i       SuperscriptBox[
    - A. N5 f& h; O# u* Q0 A' j. q        RowBox[{"(",
    ; d) c/ f! O$ X; W3 Z  ~         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 7 X5 @) a9 Q$ j: Q7 s- J
          ")"}]}]]}], "+", : K+ Q% @- Z' H* |' X; N
      RowBox[{"0.3741982811661129`", " ",
    0 U& C2 K5 r* W6 a% Q$ n, \" f6 Y   SuperscriptBox["\[ExponentialE]",
    1 E& o9 I, W" w    RowBox[{"3.141592653589793`", " ",
    , L* }7 g! Q0 c: |3 z/ a     RowBox[{"(", ) T, z, u6 ?4 I7 V; f
          RowBox[{- g, j; ^3 e4 k9 Y# ~: o/ m
           RowBox[{"-", 7 W) K/ g9 l) C( |# N# m- w
            SuperscriptBox[
    . x; Z$ B. N1 T         RowBox[{"(",
    4 P! x( x' O4 Y. H& C- @2 F          RowBox[{8 w8 V% Q+ k) r0 O6 W( f9 y: w+ S
               RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 |; R* _% t6 K
           SuperscriptBox[
    + f# _" r2 q' _7 s        RowBox[{"(", 3 f. h; a$ S5 Y
             RowBox[{
    ' t4 b% L, G3 ^% P6 v, g          RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
    % W7 I) N3 C4 I  t  ?       SuperscriptBox[
    6 C6 n% {# U9 m9 p        RowBox[{"(", 9 i8 y8 E8 [' r
             RowBox[{. i( W8 k% \9 {: |- j: R4 `
              RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
    * n( T9 k* `3 [; H       SuperscriptBox[
    : ?1 \5 R3 y' Z1 E  J        RowBox[{"(", 1 k& i) l2 I% A' e& G' F
             RowBox[{
    , V4 c) I: L  w$ {          RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", & n# Q# L# Y4 g: I: t$ k# u- ]/ T
           SuperscriptBox[" J: U5 T  ^% `1 P% a( w7 q( F
            RowBox[{"(", ' W% u# a8 g4 I+ o
             RowBox[{  {& E* }0 M; u: @3 Z
              RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
    / {' h5 Z2 X. d  ?# @5 U! Z       SuperscriptBox[
    # F* ]' c7 [& j  ^        RowBox[{"(", . P  Z3 H) U! Q4 m1 T0 D
             RowBox[{
    5 X# {+ z" g9 P: ]; b          RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", - o) @: {9 m1 `7 t1 D0 D  o
           SuperscriptBox[" u3 ], l* k+ x- T* _9 U6 H5 J
            RowBox[{"(", 3 h) d) ^2 ^" r! `: I. \3 Q. q! Y
             RowBox[{
    " i$ j) P, @! d% u' `5 U          RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", # p0 C: e* q$ o, H8 M/ v
           SuperscriptBox[
    1 {8 z& d( U% Z0 W( `        RowBox[{"(", ' _8 ~4 o5 j7 c( J* Y& P4 u
             RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
      H7 w# P7 V9 p8 Z* w* x& f( y       SuperscriptBox[
    4 ]5 I% W! y/ {" Y6 U" [" }" |( ^        RowBox[{"(",   ]. _- z7 e% Z4 X1 v% e/ p! |( a+ i. Q
             RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    . I* P0 c+ R, p5 S1 i7 \2 }      ")"}]}]]}], "+",
    7 _$ D- }/ L% A# d  RowBox[{"0.5575503376854456`", " ", # r/ k$ W) [' y! j9 @% K
       SuperscriptBox["\[ExponentialE]",   ~  i7 }5 d; \  h9 v
        RowBox[{"3.141592653589793`", " ",
    5 F" K/ Q" l* l     RowBox[{"(",   p7 ~2 U6 O# H, z6 m0 ?9 X9 |
          RowBox[{
    / x8 j- Y- H9 X% q3 d4 L       RowBox[{"-", # c7 I4 M+ S7 h& [: }: U$ n( E; M
            SuperscriptBox[. h9 \! `: ?( }' Q" n% S0 L. Q
             RowBox[{"(", : A+ P0 ^5 c% w
              RowBox[{( t$ @" G' Y; o( ]
               RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", 2 E+ \4 A9 v( \7 H
           SuperscriptBox[( Y; S% ]5 n& a/ n! o
            RowBox[{"(",
    ( Q0 p8 G3 W+ d. d0 w  W* c; n$ U  H         RowBox[{
    0 g7 k( p* _8 G5 ]1 B4 h          RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
    6 G0 M* [8 T$ ^& v+ A9 D! ~" D, d       SuperscriptBox[
    ) r1 D" d4 I7 D' w+ v* c/ X        RowBox[{"(", 2 e( _9 T6 Q$ Q/ r, R8 |; i
             RowBox[{  F' E% x; ?8 D
              RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
    0 }- t9 {. r* u0 l7 Y# ?% w       SuperscriptBox[
    6 c8 s1 ~) m4 ~* I        RowBox[{"(",
    , a) e6 \" `, ^8 Q         RowBox[{, r6 M5 x  z6 l5 r
              RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", ) M/ k* ?5 [6 t$ r' v, H3 p
           SuperscriptBox[
    " q. D3 H4 Z% V$ a( \' Z) q        RowBox[{"(",
    & M5 X0 |! x; S/ C         RowBox[{" |% h( D% j5 W
              RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    3 g: Z& a; ?4 w1 L' J/ a       SuperscriptBox[! S, B" k" Q% W% b
            RowBox[{"(",
    " e, K6 ]* ~; o. T; M$ C         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    & B1 B' a. ~7 o8 w       SuperscriptBox[
    0 p5 f) ^2 e' f( c# {# J7 T        RowBox[{"(", % h1 m; s1 ]6 [. y; d
             RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 6 q7 D7 b% L3 E3 p
           SuperscriptBox[' H* ^6 ?; R! J7 f- o- k- Q
            RowBox[{"(", 9 }7 R, w4 a  ?  g6 Y9 P
             RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    8 A& h. k. E: w! o       SuperscriptBox[
      Y4 I* f: M* j/ n0 q        RowBox[{"(",
    5 R0 R3 u) A* L' q5 t' N         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 8 j+ W- F3 t# Q6 }  E$ E# e
          ")"}]}]]}], "-", ! `$ I; U" y/ J8 M) x0 s" h, F
      RowBox[{"0.1339854044819916`", " ", 6 I  T7 o% I7 F
       SuperscriptBox["\[ExponentialE]", " ^; v% K$ {& P
        RowBox[{"3.141592653589793`", " ",
    , x" Y- ?$ E/ b- z6 m7 G( p2 L3 T# J     RowBox[{"(",
    ( ~: W' e. W6 Z/ g; Q' _1 P      RowBox[{
    8 n- o) D; O1 H4 V4 r       RowBox[{"-",
    0 m& M' w5 i; J6 ]0 R4 u7 P        SuperscriptBox[
    : W( ]( d5 X; _, I9 \. F( O         RowBox[{"(", 2 _9 R) {' K% ]  d+ w- R/ W8 n
              RowBox[{5 T2 k& l9 [1 A0 h  _
               RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", ! P, r& M& A; R0 H  Q% r' Y% |
           SuperscriptBox[
    $ Z8 u( @1 z' j2 n/ h        RowBox[{"(",
    ' T; S4 O! p( k( C6 U         RowBox[{
    ' w1 @  v$ B. \* e4 g7 g  q9 j8 i7 I          RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", 1 B* Q. u& Z6 Z" z0 ]
           SuperscriptBox[) P- ?% v. V2 U" k( J! g
            RowBox[{"(", $ ^" z3 M/ d% r; `2 A0 a
             RowBox[{4 e& U/ y4 y9 R. z4 R
              RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", % x/ N* ^- M$ Q! X1 j- s
           SuperscriptBox[
    ) @! r$ M' m. h        RowBox[{"(", 5 p* ]7 e: J: z* \# [+ j/ X- y
             RowBox[{6 P9 r9 n/ C/ ?! ]4 j  {+ `5 |
              RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", ( x: o5 x7 D2 ]2 F. W( B* I8 J1 a
           SuperscriptBox[
    / E2 o$ g( e) h. ^" {2 x4 {        RowBox[{"(",
    . t$ a5 N& u2 {3 ]6 V. ?/ D$ m         RowBox[{
    + `- ~- m9 s4 T/ k+ }% c          RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
    ; p2 m5 A% i, R% ?, d' B: V4 j       SuperscriptBox[
      d) e1 r. X) |& o* N& ]        RowBox[{"(",
    % L( x# e8 I' i7 i) `% L! f         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 8 K0 d; U6 ?7 _, X4 d
           SuperscriptBox[1 C5 Y1 m& _& V+ ?+ J1 S* N
            RowBox[{"(", ; l' j" \# g- T: ]
             RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 0 T! p5 c/ _3 B& Z. H( ?. ~
           SuperscriptBox[
      y8 |$ X, |; c! u# K5 m- N        RowBox[{"(",
    3 t- `" y: G* S" k- P* l# W; [         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ) S3 d! j) |# W3 d  s7 e
           SuperscriptBox[* l; K" T/ s, O5 C
            RowBox[{"(",
    / c& r- A* w' ~9 g( k1 H+ L: _         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
      R/ u) R8 \/ `; v, ^      ")"}]}]]}], "+", 1 M  t: t" d. T$ _; ^! \4 ]& m
      RowBox[{"0.45723850991134063`", " ",
    * M6 s% l8 H/ ]$ K. X- P5 i   SuperscriptBox["\[ExponentialE]",
    0 y4 J  T; s3 I+ i' m( h    RowBox[{"3.141592653589793`", " ",
    ' d/ h) h* j4 c1 V: {; k7 R     RowBox[{"(", 4 T/ r; }, A5 F  C2 T
          RowBox[{
    ; |& S: {9 K3 t  i" w# l       RowBox[{"-", ) b1 z# d+ w+ I  {! e9 s& F
            SuperscriptBox[
    # c5 j4 p+ q, m8 q- R" ?         RowBox[{"(", ( q1 p6 k1 i/ x% k" t* R: y( p; t
              RowBox[{/ I( l6 I. s8 L- q: ?- m6 t
               RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-", , R1 p; n- R# Z4 L8 o
           SuperscriptBox[
    3 ]# U5 z& }' k+ t# v0 \' J+ [        RowBox[{"(", ' p. U* _, i/ k) E, g' S- r
             RowBox[{
    2 P3 V, p/ x+ I          RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
    9 J  j* U6 b' |5 }- ]. O) k       SuperscriptBox[& ?0 ~; ]1 G3 S5 w8 ?$ X! O
            RowBox[{"(",
    6 O" m  Y$ b* X2 T+ e         RowBox[{
      a* Z8 M# @% ~  d+ B4 Y+ [          RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", & P% \1 k# Q! P1 \
           SuperscriptBox[
    . ]/ G2 d& P, i( V, E1 G        RowBox[{"(", 4 E! B/ Y9 D- `+ D, U( K, ~7 k  X
             RowBox[{
    ) d: U" \7 Q. I/ P          RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", : ]/ p. v9 ]7 f9 ~7 _
           SuperscriptBox[
    ; h: q" }; N. B3 O  ^4 D8 r# V( J$ ~        RowBox[{"(",
      p8 [4 i4 x  m& @" J/ J5 }: A         RowBox[{6 _+ V; Y2 q2 z5 O
              RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
    - }( F$ d/ p1 D       SuperscriptBox[2 v/ P4 U4 S4 D+ @9 u
            RowBox[{"(", & B6 p* O# k; N& B: M6 X  C, h8 a
             RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    1 v/ R' i7 Z' y- @' W6 \       SuperscriptBox[
    0 m' l7 I4 r: g* H% u+ v        RowBox[{"(",
    / K; J" V, C6 r5 q7 L# Z9 G; b         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    $ g" q' k' p3 g" j       SuperscriptBox[
    $ e- p1 X& t# P9 ^# ]3 `  R        RowBox[{"(",   n) h1 B; z; T; E3 P* E) a
             RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    4 i! A2 k; g: U" m8 B+ I. v/ G       SuperscriptBox[
    ' B! Q2 z6 ]; Y1 ]        RowBox[{"(",
    8 j5 d* F. |$ d" f4 `) g         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ) u( _) q; B% s1 o8 P      ")"}]}]]}], "-",
    , E/ H$ {- U% |" I( [  RowBox[{"0.025873988843993667`", " ",
    : v9 F' u$ m! {9 K# i! m; A   SuperscriptBox["\[ExponentialE]", $ R$ G0 V0 R! G9 }% o2 b
        RowBox[{"3.141592653589793`", " ", * o; t! e3 d0 u2 F2 |( G
         RowBox[{"(",
    8 K  K9 h% r. F/ W* V      RowBox[{
    ! `' F% K( O: A% j) r# Z       RowBox[{"-", + k' Q5 Z  K" }0 X% S2 B) i/ u
            SuperscriptBox[& z" t. X" `( k4 B" u
             RowBox[{"(",
    + ~4 o; a1 S. }( U7 w; G          RowBox[{
    + k0 ~1 y7 v1 X) a/ A6 h! g; q           RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    8 S* A5 ^7 O& e+ K( _! R       SuperscriptBox[
    7 H0 C8 w7 k  m( ^* V        RowBox[{"(", 1 q7 H: H! E8 C4 P3 [7 {
             RowBox[{& @- q  O; G+ t; V' m, g
              RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-", & C, y7 e* g7 {/ l3 M( u$ E9 p
           SuperscriptBox[' k9 t4 O$ q8 b2 F6 S
            RowBox[{"(",
    ; K  Q& ~1 s) Y9 t* [         RowBox[{
    ) _# I8 _# E" k" m# K% a          RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
    ( p  d4 s/ v! o4 }% {; Y1 S       SuperscriptBox[
    . J/ s# Z, N2 Z0 F$ \  P, U7 _        RowBox[{"(", 5 N: w) U! ~. ]) S" J# t2 a) ^# R. [8 G7 W
             RowBox[{
    ' @" `( o6 o; J2 [          RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
    5 e: c6 }8 u8 j8 ^7 A       SuperscriptBox[2 Z% q. O- x. \! H: e; w* z  ~
            RowBox[{"(",
    " _5 [" G. O* \0 p! B2 H         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
    ' Q% l; r7 Z  F       SuperscriptBox[0 i& K0 j# }6 D
            RowBox[{"(", & l+ p8 x4 N: o5 `' W! D
             RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    . C+ r( J& t) X1 |       SuperscriptBox[
    + Q6 q9 i8 o% C8 ]3 N2 j        RowBox[{"(",
    " v1 X& I& t0 J         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 7 j/ m& n5 \1 g1 ?# G- |: H9 i
           SuperscriptBox[1 P* |1 ^' S0 \3 T: T
            RowBox[{"(",
    ( o- k" L- Q% J, r6 v         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    1 F7 j" n2 `7 Y. W- ]) e       SuperscriptBox[
    0 ]9 p$ m8 a5 F, U- K        RowBox[{"(",
    6 \' u8 k: M) f* }( b! ]         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    0 r; t3 ^1 Q  k( H      ")"}]}]]}]}]], "Output",
    " ^" `( A8 c7 ]0 i: Z$ j& K. s* z9 h CellChangeTimes->{3.577924759875*^9, 3.577924921203125*^9, 1 E3 e- B: [% Y) h4 v
      3.5779583210432997`*^9, 3.5779585060284224`*^9, 3.577959043308958*^9, 0 F; y  J$ ~+ h3 T+ ^" B: q/ F
      3.577962317973732*^9, 3.578012448875*^9}]8 Y: o/ ]5 E; _' }, L
    }, Open  ]],0 y( N  s8 x  _, w( Y, G7 ~: H4 f

    * m, s) t, G8 tCell[CellGroupData[{0 z* f; t4 e5 f# J
    # F7 M6 ~, Q& m. P4 s* f1 O
    Cell[BoxData[
      S. G; I4 N; h. w5 K. O1 ~# R RowBox[{"y2fit", "=", 7 D4 r' O  t; l6 k( Y5 d
      RowBox[{"Table", "[",
    2 Q  k- b. S3 w0 Z% H   RowBox[{"x", ",", & `* p$ ^8 J9 w4 q
        RowBox[{"{",
    4 n# T' F# |7 ?' T0 A1 Z: t     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
    ; u/ G- S! r, {4 F3 F/ p9 r CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {
    # Z% c( f  q( G: `1 ^8 f6 v   3.5779252768125*^9, 3.577925277484375*^9}, 3.5779583246625056`*^9}],
    : U" w; W% p% K. q) j
    1 r* ^5 T6 J# BCell[BoxData[  d0 Q) J; n6 S0 \" N( a: A
    RowBox[{"{",
    5 x1 ^! H! \1 o! c/ ?- v  RowBox[{
    4 z, o6 x. P8 }7 a! L6 v) _  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    " n% [4 F9 e. v2 T$ c; w3 c( I   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    4 ?8 t7 S/ N6 [8 p    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    ! p- Z0 t* w' I   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", + _4 ?" G8 o% d+ T" C* y
       ",", "29"}], "}"}]], "Output",# b3 V- t& ]/ F9 v7 O3 H
    CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9, 3 _: Y! D/ R- d9 f  q9 G! w
      3.5779583268153095`*^9, 3.577958508118826*^9, 3.5779590470685654`*^9,
    * u2 C% {- }- f# M3 S, X: ]5 W, c  3.577962320173336*^9, 3.57801245028125*^9}]
    ' s0 y8 {3 P7 I( K. b: V0 ?}, Open  ]],
    , e' l2 [4 K4 n6 B$ w# \
    " ?; d0 }) {) V' ?1 A9 jCell[BoxData[
    - E+ M6 {% w4 ^0 m. d4 ~ RowBox[{"For", "[",
    " ^0 q% `9 h/ A7 v+ t9 N! V  RowBox[{& L3 s/ o  U4 \8 T. {; f! z
       RowBox[{"i", "=", "61"}], ",", * O8 r4 k0 Y. }  s$ s8 S
       RowBox[{"i", "\[LessEqual]", "89"}], ",",
    " J3 y1 ~5 d, Y, ?6 n   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    ) ]$ c2 m7 E4 ]/ c7 D   RowBox[{: Z) |4 p# d* M" m- f5 l
        RowBox[{$ X# S" V. I) v; q" n* v1 p
         RowBox[{"y2fit", "[", - M0 X& m# r9 m/ Q" @& l; P( N
          RowBox[{"[", 7 y. B7 `# S0 B! O' C3 L1 m6 @. e5 v
           RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
    , c5 p  V3 ^0 `( _- U: a9 H     RowBox[{"y2", "/.",
    ) V* N/ r2 \& [' E- |2 a      RowBox[{"{",
    , c; M& Q2 x3 G: U       RowBox[{
    $ }6 H9 t7 J5 \  B" f% q1 c        RowBox[{"x1", "->",
    : u" G8 j: R4 |4 W/ ]         RowBox[{"Data", "[",
    . V. f& `' ]% v& F          RowBox[{"[",
    4 c8 e; t9 n$ i2 `  L           RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    $ r7 o8 G# K! Y/ U9 }; ?& P; v        RowBox[{"x2", "->", 1 I  K5 a$ h& O2 B
             RowBox[{"Data", "[",
    : A5 E! H7 Y  d$ u1 c+ U3 E( I          RowBox[{"[", 9 S( g0 ]* b: U3 [$ ~
               RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    % u) f. B" P7 Z+ o! x& J1 y        RowBox[{"x3", "->", + F# z) z5 r, X$ k1 M# ?
             RowBox[{"Data", "[", + m$ w+ J0 N( _1 C. T: X& M
              RowBox[{"[",
    ! B& H" h8 p# W, X* Y. E8 |  n6 g           RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", & O$ F2 J3 h  j: T
            RowBox[{"x4", "->", 5 u& p  z  ^5 e) G9 [
             RowBox[{"Data", "[",
    # B2 l, S) V! n9 |          RowBox[{"[",
    7 `& Z9 k9 ?7 A0 W% o7 i' h9 J5 F           RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    : f8 |7 ]* }# w$ n; j        RowBox[{"x5", "->",
    : d6 i( Z2 e- c: R( ?6 \         RowBox[{"Data", "[", ' z7 W) j9 _$ S2 X7 v# B' d
              RowBox[{"[",
    $ {  z+ g* Z* J) A! m$ J# h) E           RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    1 I# s8 V8 M! \3 s  r        RowBox[{"x6", "->",
    9 y" e# b, s( Z% T- u         RowBox[{"Data", "[", 2 j, h- K# x5 o3 ^$ }5 Q) {2 X
              RowBox[{"[",
    - h8 {+ d9 N4 y           RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 8 i3 i- w- {0 R' _& n0 ?
            RowBox[{"x7", "->", 0 n) S, p9 G  f2 c. B3 x
             RowBox[{"Data", "[",
    % p# m4 A6 q3 p' i9 Z6 \7 v          RowBox[{"[", 7 x( y# i- f; I3 R2 ]' T1 v
               RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", / }& _" n" f7 z
            RowBox[{"x8", "->",
    ' Y' \! f# X; ^1 N# d         RowBox[{"Data", "[",
    ! [( R' A* ?* ]; M7 e" z5 q* k          RowBox[{"[", & o  r: e9 d. k
               RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 0 o* f: a* M, @: F" k8 J+ y& R: R
            RowBox[{"x9", "->", % Z, j1 [, O$ {
             RowBox[{"Data", "[",
    7 Y2 n8 t( K7 {) q          RowBox[{"[", 2 i$ A2 h; |, K$ y* P% R7 @: X
               RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}],
    : \' e. P5 `+ {  "\[IndentingNewLine]", "]"}]], "Input",
    ' O8 U; U% m" Y6 I CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {& A8 c3 _! {2 {# K  Q! @
      3.577925286140625*^9, 3.577925306765625*^9}, {3.577958329919715*^9,
    / [& M+ g4 g$ @, \  3.5779583326341195`*^9}, {3.57795892351635*^9, 3.57795892354755*^9}}],
    6 `3 |' S8 K. H
    $ M! e8 @8 _3 `6 o5 H0 N7 wCell[CellGroupData[{% b( u; G" o+ a' M6 m9 l
    % R/ ~  H0 ^% H8 j& n! P) h
    Cell[BoxData["y2fit"], "Input",# Y( \- T: N( x6 {7 A
    CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {- J6 u& E) Y( l- C& F6 V
       3.577925040484375*^9, 3.5779250440625*^9}, 3.5779583419785357`*^9}],
    ( y9 U0 \5 A. A, T1 t4 C1 c9 g% M7 H9 Z/ G( h: u+ t4 X& B$ D. C4 D7 |9 x0 N  u
    Cell[BoxData[/ }  a* x( O1 I$ g) }. U
    RowBox[{"{",
    * n! i: o9 j' P! r; Y  J; j- I8 }  RowBox[{
    7 H$ }+ q/ T7 T+ o" Y" r7 o- c  "0.4853171132859182`", ",", "0.4508635216665074`", ",",
    & A3 j: Y7 o" @% P' e: I+ z- \6 _% V5 ]   "0.3642119241752518`", ",", "0.42852077425595436`", ",", 7 N9 w" O0 \3 K4 F5 A+ n# }
       "0.4712694272667798`", ",", "0.5257533056184774`", ",",
    9 d, z8 k. N* _* D1 x   "0.48620658140716133`", ",", "0.41106838915591876`", ",", / _8 x1 x) V- {) P5 v
       "0.5486894206610674`", ",", "0.007731168540073459`", ",",
    ' Z2 U/ S4 M; N% C) ?   "0.013872406140339109`", ",", "0.3956995051659558`", ",",
    ; o9 k; X8 q: d+ |( E   "0.3663118256142708`", ",", "0.29094217358055163`", ",",
    . ]& A' t- u2 C+ |/ U. q  d6 T   "0.5453093690736555`", ",", "0.44138898880777927`", ",", 1 R+ G7 Z1 z- T( d) d4 U! \
       "0.42944922031163496`", ",", "0.43092890556748836`", ",",
    . t8 P# g7 y8 N; t   "0.5942402821739969`", ",", "0.330046090785457`", ",", 1 R( V! x0 T5 Q3 s# t2 @3 [9 }, v* W
       "0.18938658036630585`", ",", "0.4263720292858679`", ",", $ J# c& D# x- {9 q) d( x" L
       "0.23377136184738775`", ",", "0.02232858193309988`", ",",
    $ j. L9 F% l, Z5 Y% A% h0 b7 G5 Z   "0.244364200084268`", ",", "0.5562383565309971`", ",",
    " M! B4 [. A8 H' u5 Q   "0.13114103402954333`", ",", "0.5815052048989465`", ",", 8 ], Z* {# |- e  G! Z& }
       "0.4253455966293501`"}], "}"}]], "Output",1 K" [& _/ V! k9 w+ D7 F; ^
    CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9,
    : X; Q& \8 i$ x8 K: P! C  3.577925312375*^9, 3.577958343257738*^9, 3.577958511784832*^9,
    % E- n8 X. g; W( w/ z  3.5779590518421736`*^9, 3.5779623249157443`*^9, 3.578012452421875*^9}]2 P, q: H& y6 f( x% y" r3 _
    }, Open  ]],
    % }; T6 n; W! Q- @3 V- e4 k0 Y. D  S/ Q3 q; K3 Q5 j' l
    Cell[CellGroupData[{+ u3 _8 [# G! q% O  Q! V% [9 x

    ! E+ r( s$ s% T" ^) k  JCell[BoxData[
    " }. i. S4 Z0 h1 {  |( b& h8 \- a RowBox[{"y2fit", "=", " n; P7 b3 |- J
      RowBox[{"{", ) n6 h4 B2 S+ Z# g- a' t/ `
       RowBox[{! K0 L3 T+ l- @2 S5 }- t
       "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 4 s+ k2 h5 H1 [1 T
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; L9 Z2 n  N) C* b
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ) P: }2 G% A$ [. H$ H0 g
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
    ' A% M. S6 J4 c    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    ( h8 c0 Q' `, g$ }* f3 ]2 }3 I) ~0 g    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", 9 x; k' t3 N# |  o; i( C3 u# I; G
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", 8 M+ z! e# y! O9 o" |0 s
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    5 F9 K6 T5 T/ o& {1 b    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", & ]8 W5 G  [) m5 u9 X
        "0.48531711328591953", ",", "0.48531711328591953`", ",",
    8 b0 A& C' _/ u" G. e+ Q5 y    "0.45086352166650845`", ",", "0.36421192417525217`", ",",
    ) d2 b( |+ b4 ], J3 R    "0.4285207742559556`", ",", "0.4712694272667811`", ",",   s8 _3 D5 ~- L. F4 l
        "0.5257533056184786`", ",", "0.4862065814071623`", ",", - i; s2 o8 |5 ^
        "0.41106838915592014`", ",", "0.5486894206610683`", ",", , ]* h; }9 x$ r( N% X
        "0.007731168540073532`", ",", "0.013872406140339166`", ",",
    5 o- |5 t7 y# }. d& L0 \# V    "0.3956995051659565`", ",", "0.3663118256142717`", ",",
    % v( i" [& v) c' u2 q    "0.29094217358055185`", ",", "0.5453093690736568`", ",", 4 n: J# z+ R' F: w! f
        "0.4413889888077799`", ",", "0.42944922031163585`", ",", " U5 Q/ }& \) Y9 k" Z" z
        "0.4309289055674891`", ",", "0.5942402821739983`", ",", 9 L4 i+ Y8 Q% S9 S
        "0.33004609078545805`", ",", "0.18938658036630632`", ",",
    6 Q9 T' M1 }$ [, R# H" ?    "0.4263720292858688`", ",", "0.23377136184738778`", ",", ( Z7 u, i* n8 E
        "0.022328581933099827`", ",", "0.24436420008426807`", ",", ( H6 z- C0 N% t. m  e- g
        "0.5562383565309981`", ",", "0.13114103402954314`", ",", 4 b# W! c( e$ x+ E2 |- b: k
        "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]}]], "Input",; ?$ u0 T# a0 ?! o) p
    CellChangeTimes->{{3.577959355746303*^9, 3.5779593854019547`*^9}, {
    % u8 E. `( Z- M" d; Y! l+ b* x  3.5779594223272195`*^9, 3.577959425104024*^9}, {3.57796233399496*^9, . v9 K/ G* O! ~+ M( _
      3.57796233957977*^9}}],
    ) J# j' h4 a0 c
    * ^  t7 k8 S: c3 A  KCell[BoxData[
    $ M( O7 n! h+ `0 q" h& t$ X RowBox[{"{", $ |. V6 x1 B% o7 L
      RowBox[{* w+ d0 r; f2 N" @4 E0 }
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 2 I; n" M) G# v
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
      p+ P9 O& |/ Q6 t    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 3 g3 \: f1 R2 C' e
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", , f7 W" s" N$ W9 N6 ]
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", % |6 a3 u& j4 B- Z' V, v7 p# a& _
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    : L: y+ i9 B8 Z+ y   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    8 ]  t+ x8 P% u6 k: T   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    . }1 u: J) f3 A   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", : W' z7 z% u  a; N
       "0.48531711328591953`", ",", "0.48531711328591953`", ",", : {4 C; ?) ~% I% \0 b' @: Z+ `/ H* ]
       "0.45086352166650845`", ",", "0.36421192417525217`", ",", 5 x- X, T% ~. ^) J: Y
       "0.4285207742559556`", ",", "0.4712694272667811`", ",",
    2 E* J6 Z9 E% r+ ^/ c   "0.5257533056184786`", ",", "0.4862065814071623`", ",",
    / N- ^5 ?. p/ k3 i9 m   "0.41106838915592014`", ",", "0.5486894206610683`", ",",
    4 S+ D( M- P0 Y4 {8 M   "0.007731168540073532`", ",", "0.013872406140339166`", ",", . P# f  w/ {6 S) e" A( ?. ?
       "0.3956995051659565`", ",", "0.3663118256142717`", ",", , U5 d% X; a! Q. O0 B! H
       "0.29094217358055185`", ",", "0.5453093690736568`", ",",
    : G% r( F/ ?& b. Q: b   "0.4413889888077799`", ",", "0.42944922031163585`", ",",
    ) D- G' X, w; c) A. e5 {   "0.4309289055674891`", ",", "0.5942402821739983`", ",",
    & x# M) v9 i- A* C% g' P1 }0 }" Z   "0.33004609078545805`", ",", "0.18938658036630632`", ",", - v7 |, ~0 T% ~! l1 D
       "0.4263720292858688`", ",", "0.23377136184738778`", ",", ; M. D, D' o9 [% @
       "0.022328581933099827`", ",", "0.24436420008426807`", ",",
    8 _5 X/ ^& o2 j/ j/ T5 t" ^+ R' U   "0.5562383565309981`", ",", "0.13114103402954314`", ",",
    ! n, r, t5 F6 _$ S   "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]], "Output",
    * ]6 I' h: t0 v0 n& [ CellChangeTimes->{3.5779593961191735`*^9, 3.5779594268512273`*^9,
    ; X$ }5 T$ L2 d6 p  3.577962342060174*^9, 3.57801245340625*^9}]/ b3 X( e# Q7 w+ `- k
    }, Open  ]],& ]! s5 X; \9 R3 n0 P
    3 g- ^5 L  y' W: D/ r& j/ O, w% j) ?
    Cell[CellGroupData[{; P/ [# U" o1 Q' f
    8 X- b; x7 |9 p! b' F% C9 u0 r
    Cell[BoxData[
    / A# l$ q! m9 i' S- T* X$ X( m RowBox[{"y20", "=",
    1 v6 [9 D4 |2 d6 s! s* P  RowBox[{"Table", "[",
    - H2 v" @9 q: b8 P+ e' H1 i# z/ v   RowBox[{"x", ",", 6 ]  _+ @2 W: h+ h) t
        RowBox[{"{", ' ]5 {# ?5 E3 f# F6 T! R
         RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",; H/ l5 h) Y2 J" H& z( U6 L* R5 |
    CellChangeTimes->{3.5779253628125*^9, 3.577958351198152*^9}],  Z; i) T% w! h2 k2 u% r
    7 D6 G4 M& {. Q
    Cell[BoxData[
    & S7 k" r6 k9 Z8 f: h4 K RowBox[{"{",
    . n) K9 f2 }0 W  RowBox[{
    . E% u8 F4 b( |. Z+ R$ v7 \7 h" Y  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 8 s1 L. ~2 \% y3 L" h
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",) I1 m, C- V. T9 W
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    & p9 V0 a3 Z4 j7 \) d   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 9 j1 K3 _$ ^, S/ P
       ",", "29"}], "}"}]], "Output",; B6 }( e0 T. G  q1 x$ h
    CellChangeTimes->{3.57792536553125*^9, 3.5779583535225563`*^9, ) ^+ L  u" m- m/ p( H: L! @; ^1 q5 k
      3.577958515653639*^9, 3.577959053714177*^9, 3.5779623443065777`*^9,
    , Z8 m4 o- p' k7 h$ I& a0 [0 m+ H  3.578012454875*^9}]
    ' U% X7 t" P* T( q' I3 `}, Open  ]],$ g$ A! V: c, O
    9 D8 t8 D6 U# _
    Cell[BoxData[2 Y) ~; w; H, C8 z7 x. ~2 c) O# ~
    RowBox[{"For", "[", / t5 A1 q+ P. t2 F) y1 `7 U
      RowBox[{
    0 r" n; v8 j" N' ?& C   RowBox[{"i", "=", "61"}], ",",
    ! N. Q  f% ~! e   RowBox[{"i", "\[LessEqual]", "89"}], ",", ( W9 ^# m* z+ [$ l
       RowBox[{"i", "++"}], ",",
    ' {  ~/ K( W) t! J+ q' g* d$ c! O& a   RowBox[{
    ; Y1 k& O/ b) ^# Q    RowBox[{"y20", "[",
    / ]: U  v) l/ B* _/ Y. }- V" \     RowBox[{"[",
    1 H4 F8 x1 z4 M! D6 q0 c1 j% u4 B      RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", 8 s/ q$ H/ I$ q8 K
        RowBox[{"Data", "[", ( F9 X9 a7 P$ g9 w$ G
         RowBox[{"[", 9 s" F% {  h1 w) i
          RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",9 H  D9 C$ W) ?' f" }; F+ ~. n
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    2 M% P- U: u! v! h; Z  3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,   W- l# U! n9 B8 T) q
      3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, {) T& D5 J  Q; {& _/ Q5 F. ~9 K
      3.5779583574225626`*^9, 3.5779583606673684`*^9}, {3.577959056849782*^9,
    ; E1 @2 o& _3 A) Y1 ^  3.577959058690585*^9}}],. ?) {9 h0 p- L
    # T) n- t' i" g, r6 z% o
    Cell[CellGroupData[{8 |! o& ~: E* S& S

    * `& K, D3 G$ X6 P: xCell[BoxData["y20"], "Input",
    0 U) j: q/ e$ A1 c$ y+ b5 x7 q CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {# V; s; W" s& K' ]5 m) @
       3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9, 9 R7 E) b+ W* C  _6 P
       3.5779583657841773`*^9}],) o# W# k3 Q. k" w9 m1 C; }
    ' Z$ n* ~5 ]" O- C3 l4 S9 R- |
    Cell[BoxData[
    : p4 x1 E; z$ V# P, ? RowBox[{"{",
    # e* g7 T/ E/ y' f# x3 ~8 d$ H  RowBox[{
    ) |; F3 o7 I& s$ D2 g2 t  "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", ",",
    2 V9 Q5 b% }2 W  Q, @5 i   "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",
      n- L& O6 b# a" f7 Z4 ]   "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",",
    5 A1 J6 [6 O2 Z% S6 D   "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",", 0 Q& a! Y' w5 y- ?9 |
       "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
    % _/ n" Y0 i; B/ Z% N" i! h1 O   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",
    * R8 v- }5 a5 z& @# d   "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",", % o$ [3 A+ _* U) S  D
       "0.323944`"}], "}"}]], "Output",7 j6 h6 t/ L; M2 b- u9 _1 Z
    CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, " |8 ^8 `$ q- K2 o9 @$ v% e
      3.577925393046875*^9, 3.5779583678277807`*^9, 3.577958517946843*^9, ( U+ ?- p/ t1 f6 K4 o
      3.5779590634017935`*^9, 3.577962347629384*^9, 3.578012456484375*^9}]5 r9 \" P. O* \) V
    }, Open  ]],, l( f5 D- \* p

    + S* w9 a$ l# V, [$ WCell[CellGroupData[{
    * \4 i8 }( h; T* s( R, u& g2 o# [$ a! z
    Cell[BoxData[3 K! z: a) a% U4 F% Z( C' ~+ E) \
    RowBox[{"y20", "=", 5 m, g' r$ g$ h! C# D
      RowBox[{"{",
    ' V( q1 s7 v5 j/ v, H7 h   RowBox[{
    ! v' I" b- c) u, M   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ( S/ T0 t$ D: M" z# T3 c  f! i5 H
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : `0 p# J% L$ d. i% O% S
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", : R4 j; o; I# t
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", ) {) }2 n1 z6 u; t9 z
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ' S$ U, |( U( G4 a1 L$ g" o) D5 f3 G
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
    1 v! Q3 ~4 H7 Y$ K3 K. ~2 c7 X    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    & x' e9 c$ @2 B# O2 [6 z5 h0 k0 M    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    8 z) A- ?, C, @5 a    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",   x& t. J, q0 V$ k; n0 k. k
        "0.507042", ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",",
    5 K$ @2 P; u+ p6 R* h( T- b    "0.338028`", ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",",
    4 C3 B) \3 Y% S1 \3 b% W, r( i    "0.408451`", ",", "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", $ c: D$ F& }: |' }5 g: i6 g
        "0.746479`", ",", "0.887324`", ",", "0.84507`", ",", "0.704225`", ",",
    ' v1 W7 P6 k4 P( q/ |    "0.760563`", ",", "0.43662`", ",", "0.633803`", ",", "0.422535`", ",",
    ! e/ D; P# Q" a7 o9 l) ~) e8 h: G* e1 C    "0.295775`", ",", "0.309859`", ",", "0.408451`", ",", "0.197183`", ",",
    % s( _% F6 W2 |' k2 L$ p/ z  l& {    "0.732394`", ",", "0.802817`", ",", "0.746479`", ",", "0.380282`", ",",
    8 a# u5 d- M1 c2 S+ ^4 s/ g- _    "0.56338`", ",", "0.323944`"}], "}"}]}]], "Input",
    ) V/ e8 L, G* l( q2 ?$ w CellChangeTimes->{{3.577959534959416*^9, 3.5779595573142548`*^9}}],( V5 D5 f8 s! J7 X+ f8 i
    ; M8 s( K) Y% N1 l7 k' P
    Cell[BoxData[
    % x+ j1 \: `# I) C) o! d5 H RowBox[{"{",
    ) @2 M  K+ g, _- I  RowBox[{
    . q' b' N* f0 }) \% ?& ~2 w  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 4 n! E, s4 `" |  q( Y4 N6 P; a% b
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    2 `: ~- d: B/ y7 V2 M, Z. f    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", # K0 E9 e+ V5 n( [& F! {8 L
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    . d3 s6 H4 }7 J6 i1 a/ ]   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    # B- l0 i" l! t- z% S3 l   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    ) g9 Y. @1 @" D$ f& X. t/ _   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", . B- z$ m4 g& ~* L
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    9 J2 U' W/ o9 k   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.507042`", ; o7 g& {! P/ W: a% x$ ~: L
       ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`",
    8 i/ B- `, z, l* `9 g   ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",3 g, G6 c( D5 _+ P, u4 W
        "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",", + ^: ~& s! c8 @7 t" ~9 K, e9 T
       "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",
    1 O6 A/ D6 d' D   "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
    0 ]0 I, Y7 ~% o( D; W6 ?   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",", - E6 t. A* V- M% @3 Z5 P& U: H$ P
       "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",", 0 t2 B/ s- \+ c  l
       "0.323944`"}], "}"}]], "Output",
    0 \# J' G' r# Q% d: @4 p CellChangeTimes->{3.5779595594514585`*^9, 3.577962351778991*^9,
    " N" E1 g; h  D* {+ W& Z! a  3.578012457234375*^9}]  k  W8 m8 N% s; Y# p! J$ q
    }, Open  ]],; z  Y8 a! l- F( i6 C2 I

    ; c, I0 l( }* ^Cell[CellGroupData[{
    # s: t! k/ Q& k6 y& P# c
    * R1 f5 L/ w. R0 s; H7 I- lCell[BoxData[& d* {# E1 J' c+ Q! c
    RowBox[{"p2a", "=", . x$ V- c( @3 M3 r( e' t3 ^& b
      RowBox[{"ListPlot", "[",
    / p, M$ k. t9 ~% P  Y3 T" m   RowBox[{"y2fit", ",",
    - X% `2 b0 h- l# K: V    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", ( \: Y0 u5 V  d9 y- \
        RowBox[{"PlotStyle", "\[Rule]", 0 S0 _; f* h# A! S2 C2 y! T! S
         RowBox[{"{",
    2 K; J* _' [6 j! _# W3 c: M9 p9 y) _      RowBox[{"RGBColor", "[", 5 [! J* f+ y3 u4 g: n
           RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",", * v3 p: E% S& l. S. ?' [
        RowBox[{"PlotRange", "\[Rule]", : s7 i1 d' n" m! o
         RowBox[{"{", / A8 o$ P9 x+ n( {! g" X
          RowBox[{
    - l4 h+ W# T( j3 x% G       RowBox[{"{", 6 Y, x; E- R$ J2 N' F
            RowBox[{"61", ",", "89"}], "}"}], ",",
    & ~! V* d3 k; J0 N       RowBox[{"{", 3 N, S, k% l) F8 ?
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    8 [( \' x& n7 t6 n/ u0 P    RowBox[{"AxesOrigin", "\[Rule]", 5 i/ @. R  \) r- @0 f
         RowBox[{"{", * |+ p! v! q# h: ?
          RowBox[{"61", ",", "0"}], "}"}]}], ",", 7 ?" {* Y5 Z9 }$ I
        RowBox[{"Frame", "\[Rule]", "True"}], ",", ) j- r  V  P2 g  F5 O, {
        RowBox[{"FrameLabel", "\[Rule]",
    9 F9 L& S/ E( c7 O# o     RowBox[{"{",
    : F% \+ w/ N% s( {* y7 @( @9 Y      RowBox[{& ?% Q  X# j8 r' V4 G9 o. i) z& W: z
          "\"\<\:7089\:6b21\>\"", ",",
    & T3 t/ f! e' k6 Z- A       "\"\<\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\! R( i7 d* P; ], x8 l6 R/ b( p  R
    \>\""}], "}"}]}]}], "]"}]}]], "Input",' T4 l( H4 [$ a) y; Y' {
    CellChangeTimes->{4 a9 w0 @- V* {9 W, b$ Z6 v9 h
      3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
    ( O! h5 {7 `8 Q; M0 H   3.5779583712597866`*^9, 3.5779583781393986`*^9}, {3.577958536604475*^9,
    ! H7 f/ @# I8 \1 O3 Q& W3 a   3.5779585491624975`*^9}, {3.5779592802577715`*^9, 1 I% H; B/ {% w& J/ h
       3.5779593014270086`*^9}, {3.5779594039971876`*^9,
    - C, [9 U2 W8 S5 Q; ?4 A   3.5779594059783907`*^9}, {3.57795949706695*^9, 3.5779595174717855`*^9}, {% y* m; l- `/ ^4 o3 \
       3.5779604302529774`*^9, 3.577960442311798*^9}, 3.57801246978125*^9,
    5 v) C6 @3 d" ^- ^( E3 ^, ?$ {   3.578012920859375*^9}],
    7 p9 G/ [( v" Z7 G# ~, F* L
    : B, d7 ^. y* R. Z7 W/ HCell[BoxData[2 f7 b8 H! D4 B& ]% O
    GraphicsBox[{{}, {},
    * a4 G5 a$ a' m  }   {RGBColor[0, 0, 0], LineBox[CompressedData["
    ; \$ U3 P# j% T1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM# t& B4 ]2 J0 X0 |* P1 y" O
    /g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ# K# e7 c, _( k
    9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P/ \1 r: b5 B5 h6 y$ A
    ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC$ O% j4 }7 E5 a4 x1 i% H
    qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK7 \4 x. S: k# j2 l/ f3 p9 p1 A
    1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
    0 R! U" E) H6 ~; z9 x0 j0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
    % Z9 e3 Z0 B! r. ysPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH- x' T$ y6 Z+ O% P9 d+ \8 x
    99yxuG0PAHw7nyU=" m. ?( X. O2 c7 f7 }4 Y
         "]]}},
    $ f* m, K- O: I  Y  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    - M2 @. N$ z5 S3 R2 R4 |( R) r  Axes->True,4 D6 g8 I3 B/ }8 D
      AxesOrigin->{61, 0},5 t( c. L) M: O5 P
      Frame->True,  T* H6 p9 Y, z, Y+ C
      FrameLabel->{
    / I2 `* q) E8 i$ {    FormBox["\"\:7089\:6b21\"", TraditionalForm],
    6 o6 A* G& `: \* {( o% {) I    FormBox[
    ; s7 @+ z. ~2 ]/ S    "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"",
    3 ]& h+ F# k  ]  A$ I' o+ N     TraditionalForm]},, m3 t' `+ s! Q/ g% _; `4 W
      PlotRange->{{61, 89}, {0, 1}},
    ) g  {& c1 A0 l: X2 e) l; ?) v5 N  PlotRangeClipping->True,
    4 I7 X6 U2 _4 U, i8 ]/ T  PlotRangePadding->{Automatic, Automatic}]], "Output",/ |' `0 l$ c0 R
    CellChangeTimes->{4 B! c' P' D6 W' u+ o0 E
      3.577925144625*^9, 3.577925396578125*^9, 3.5779583797150016`*^9, 5 Q- o8 Q& t# F9 E
       3.577958519990446*^9, 3.5779585510813007`*^9, 3.5779590670678*^9,
    ) X5 T9 J3 u5 R   3.5779593035642123`*^9, {3.5779594075383935`*^9, 3.577959430158433*^9}, 9 B8 [  T# }, m
       3.5779595184233866`*^9, 3.5779604438874006`*^9, 3.5779623548833966`*^9, / q3 d; H/ Z7 U
       3.57801247209375*^9, 3.5780129225625*^9}]6 Z3 P! r' N& |
    }, Open  ]],* ]  X/ T6 ?% k! x) W

    6 r+ x6 ]  x. f7 \* D  UCell[CellGroupData[{
    * f& J5 D3 u$ {' `, \+ y" g, s. N, w1 U: }+ z
    Cell[BoxData[8 X" P+ B* ~7 u2 J' q) p
    RowBox[{"p2b", "=",
    0 o% g+ ^$ J3 @4 X( l  RowBox[{"ListPlot", "[", 2 ?8 B% p' {8 N& o/ [
       RowBox[{"y20", ",", 7 b& W2 C4 ]* P0 g
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", 7 E8 y  J$ ?: c2 ^# |: o
        RowBox[{"PlotStyle", "\[Rule]", : j: \4 d( n9 K! M. o( R
         RowBox[{"{", % P* ~4 W) {/ A
          RowBox[{
    4 m5 C+ Y/ z  Q9 l/ T       RowBox[{"RGBColor", "[", 0 G; r$ D6 K7 n. b* w$ _( ]
            RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
    6 n: h. ^* c$ K6 J    ",",
    1 x) i! l4 ~3 `" S& T    RowBox[{"PlotRange", "\[Rule]",
    3 G! C4 G/ G# H. K     RowBox[{"{", " F, Q$ J  [$ c' ^+ D+ H6 i* M7 t% J! ]
          RowBox[{; b6 x2 ^" L- _  F1 I: W
           RowBox[{"{",
    : ?' g1 M5 `0 ?: o        RowBox[{"61", ",", "89"}], "}"}], ",", , e) q* d2 m8 _# F! r" `8 k4 U
           RowBox[{"{", 6 N" S% W: K) v( W9 q( a/ d3 J
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",   c7 K$ p3 [3 S+ V( b" Y; d
        RowBox[{"AxesOrigin", "\[Rule]",
    % w& G" \' o1 O% L, s     RowBox[{"{", 5 Q$ H2 Q0 ?, p3 b* a$ Y
          RowBox[{"61", ",", "0"}], "}"}]}], ",", 2 F& A) Q9 d0 J6 ~( h
        RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
    2 X" M/ h/ {' B% X2 g( }0 {; v CellChangeTimes->{
    / u1 B: i& ?# X8 B2 e  3.5779253991875*^9, {3.577958382429406*^9, 3.5779583843326097`*^9}, $ u( H3 O0 L* S! L- @! B6 l
       3.57795855655691*^9, 3.5779595724462814`*^9, 3.57801248346875*^9}],
    1 s7 E! g) y; G9 S$ S7 Z# Y
    2 F% U5 h2 p: i; A% xCell[BoxData[  z! y- t9 \9 H" R" U. ~$ X# O
    GraphicsBox[{{}, {}, 7 O8 |5 [7 j# p* i& J7 q, T
       {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    : d4 a: ?% C" e: S) l1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
    % X- e( e  R! M8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
    3 W) I9 d3 @# h) G7 Xc/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc6 Q/ ^! m; n0 M  t- _
    iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk49 ?! q; K0 e6 Q- U3 C" B5 U" v1 b  [
    TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
    . f6 L1 Y8 g2 \3 r2 wfzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
    ( S* u7 V0 |7 o/ o" i& sTWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
    6 C0 M. j5 }9 u# e6 J0 Xp0OYg4Fg/tz63VfsAdsCnzU=; h7 u9 x" U$ K- I6 T' \& I4 O
         "]]}},
    8 D0 W; x7 \" H$ d  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],0 ~& M% \. Y4 F
      Axes->True,- ^6 {6 o) z( ^& p
      AxesOrigin->{61, 0},9 i& I% D! R( q# O" c$ L6 h
      Frame->True,
    4 f1 O5 `/ C/ f: J+ o  PlotRange->{{61, 89}, {0, 1}},
    " l- }' g5 W9 V( C( W0 b" @3 A! I  PlotRangeClipping->True,
    ! `0 r# c- e! ^) ]  PlotRangePadding->{Automatic, Automatic}]], "Output",$ \+ p7 h# A7 r! m. y: I8 a
    CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
    / U9 |7 i5 c9 C0 Q0 p5 I, q  3.5779583861890125`*^9, 3.5779585219092493`*^9, 3.577958558132513*^9, + A- d, P8 \; P0 k9 y
      3.5779590691114035`*^9, 3.577959577906291*^9, 3.5779623569426003`*^9,
    ) o2 E0 Q) D( Z  M8 ~9 C4 I" ~  3.578012484703125*^9, 3.578012925875*^9}]
    + H4 A' R4 ~4 s& j: n. T}, Open  ]],9 U# a" ^6 D; M7 u
    - o: c* r9 e6 I) w5 c2 z
    Cell[CellGroupData[{
    * \, f: z  e5 B: z/ ]5 Q8 t% P7 S  `5 k1 X0 u. h- f9 n' \' |
    Cell[BoxData[0 v$ A& |5 h. A
    RowBox[{"Show", "[",
    ! a9 w. c& {0 Y% C( R4 T  RowBox[{"p2a", ",", "p2b"}], "]"}]], "Input"],) {2 {1 `9 }# V0 D

    ; {4 p: G, Y& B0 u6 @" ^% m# \Cell[BoxData[
    + |4 Z) @8 u7 l$ E. J0 o# g* x GraphicsBox[{{{}, {},
    4 x6 E, I2 P. T2 |8 m    {RGBColor[0, 0, 0], LineBox[CompressedData["9 |6 p/ _- c# o. V' G7 h
    1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM0 c# B5 l- a1 N5 q
    /g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
    2 H3 [) t- L5 J- s* w3 A: A( Y9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P% H/ G) e% `# H' \. ]$ q
    ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC
      r! I9 @* k! h6 ]( r2 \4 A+ k% A( ]5 J% NqPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
    - ?7 s, s5 l( q6 b1 p/ \9 Z1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx' D) c  S6 I+ h7 M
    0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
    " I4 l& q* j! M9 E2 V1 A" XsPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
      h1 g7 D! U! ?99yxuG0PAHw7nyU=
    1 t. d) T! R- U3 s  e; b, u      "]]}}, {{}, {}, ( p4 G' W8 C# B1 b9 E- V& Z
        {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    ! B& F( c; x1 _7 u. R; S  Y1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
    # e$ P2 f4 d  v8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV6 G2 v6 O! _" Z1 w5 F( t9 ?
    c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc1 z% v1 v4 H4 m5 z; h9 j
    iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
      T7 `; E2 K  M; s5 NTZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO* b3 P0 W! s: j$ m" m4 D5 b
    fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
    ; r4 y& i& [! VTWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG; N. a$ U' u: x$ e6 M
    p0OYg4Fg/tz63VfsAdsCnzU=
    * v( x) w/ p4 @1 [$ }      "]]}}},* B5 \. ^8 j& F- B6 a- S+ N1 b! w" v
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],+ t5 E$ l: k( N3 p
      Axes->True,
    * \: D+ v: O3 j- i/ V  AxesOrigin->{61, 0},
    * Y0 }' J1 a! c# y  Frame->True,( ^; B5 `+ h1 J" a; ~: g) L; S( g
      FrameLabel->{- w0 g- e% Y2 _' e$ L9 D3 L
        FormBox["\"\:7089\:6b21\"", TraditionalForm],
    & ?  e. u6 w. ]( C& D# Z    FormBox[* a$ J5 e3 `* f3 h; H) w
        "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"",
    : D+ R$ d4 A+ G/ T6 h/ M     TraditionalForm]},
    - K; x; N/ H' K& @: v7 @  PlotRange->{{61, 89}, {0, 1}},5 ^. f2 e1 y" }7 [  G
      PlotRangeClipping->True,  v. a8 Z- J6 F: @9 K
      PlotRangePadding->{Automatic, Automatic}]], "Output",
    / V" ^$ a* H0 X' i9 D; T CellChangeTimes->{3.5779623624182096`*^9, 3.5780124863125*^9,
    & ]% X' p# N  r$ c  3.578012927734375*^9}]+ a. h3 [9 Y2 }* |* p/ `3 o
    }, Open  ]],
    * L/ W1 b  \- j+ U) ~# \! V
    ( B, ~( A& p4 \! C' h/ g, W4 M% tCell[BoxData[
    2 Z4 u/ Y1 Q9 |3 L! Y) u; |* \4 r+ e RowBox[{"\:ff08",
    6 t: g. Y( H0 v4 Z. n0 i3 R  RowBox[{
    " k$ o' H/ F( p4 l4 F  z  "\:5df2\:77e5\:521d\:59cb\:94c1\:6c34\:8d28\:91cf0", ".7406",
    8 ^" l1 ?: ]  z( {# @   "\:3001\:5e9f\:94a2\:8d28\:91cf0", ".4621",
    , X& X! C. L9 g" d4 a9 ?   "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea60", ".5208",
    5 P$ Z- z, N4 |7 W2 x3 i6 Z: W   "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:542b\:78b3\:91cf0",
    ) H$ c* W2 T6 b# I1 H   ".2221", "\:ff1b\:76ee\:6807\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\# B1 R6 U6 Q+ u# k' N! M; G
    \:4e3a0", ".6224",
    8 y0 J0 I# f8 @" d4 s' u; a   "\:3001\:76ee\:6807\:94a2\:6c34\:7684\:78b3\:542b\:91cf\:4e3a0", ".2521"}],; i: ]; @: o; k, i2 x
       "\:ff09"}]], "Input"],' m  Q8 Q! s3 Z# f) D

    - r, j3 o/ @" j" pCell[BoxData[7 o5 W- M% c5 i( ^- D: p# |
    RowBox[{"{",
    0 e# |- Y$ T0 V/ ?1 b2 s: J  RowBox[{
    + W$ [1 G' @! o2 Z* _  "\:94c1\:6c34\:8d28\:91cf", ",", "\:5e9f\:94a2\:8d28\:91cf", ",", $ u. k6 X5 A7 C; O+ F9 N
       "\:5439\:6c27\:91cf", ",",
    * J) `5 j; x# h7 v5 X   "\:4e0b\:526f\:67aa\:65f6\:7684\:542b\:78b3\:91cf", ",", ) H& k0 L" I" E( d3 O& @+ U( V
       "\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea6", ",",
    / K1 l9 V3 j, f+ ?/ `  Q& Z   "\:5757\:72b6\:77f3\:7070", ",", "\:8f7b\:70e7\:767d\:77f3\:7070", ",",
      f3 w8 V: q' }* s. E! V3 z   "\:83f1\:9541\:7403", ",", "\:5757\:72b6\:767d\:4e91\:77f3", ",", " e5 |8 ?) f3 A
       "\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf", ",",
    + \) I& }0 m( j" l) @   "\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6"}], "}"}]], "Input"],
    # m' B- F5 K2 L8 P. }
    # [7 G8 B! u( @6 _: }4 p5 vCell[BoxData[" "], "Input",
    + J% T3 H% f; n' u, s+ I CellChangeTimes->{3.577962834553033*^9}],- Y: Y$ v4 a+ J( f
    % c" S. i# a7 V) K  L7 }, e/ d8 w
    Cell[BoxData["\:94a2\:6c34\:7684\:78b3\:542b\:91cf"], "Input"],
    * ]  w7 X' L2 Y0 k1 K+ q* {0 s% v% {6 D9 M8 i1 y$ Q! G  {
    Cell[CellGroupData[{
    6 c0 E7 d8 e3 q
    / E! E3 }  r& w# [Cell[BoxData[
    ; p! Y( H# Z' l) b5 x RowBox[{"y1", "/.", # p* P) q3 L. ^
      RowBox[{"{", ; D/ D7 J$ A& |
       RowBox[{
    ; h# x- T% a! ~) P8 k1 ~7 \$ y    RowBox[{"x1", "->", "0.7406"}], ",", , x$ E+ h6 T$ x% L# }
        RowBox[{"x2", "->", "0.4621"}], ",", - L2 m3 b" l* y1 \9 p8 y* R: T8 _
        RowBox[{"x4", "->", "0.2221"}], ",",
    5 G" `. X' p1 X( l& R+ a    RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",  |/ e& M" x( b2 Z! y
    CellChangeTimes->{{3.57796267209435*^9, 3.5779627224200373`*^9}, {
    4 N" |, H, b9 I5 [  3.5779627663029137`*^9, 3.577962774820529*^9}}],8 e" L% Q1 ?8 }# T; j+ I' C" z

    / M  g+ e3 Q& j2 G! n; J! UCell[BoxData[
    ( v( Q% @6 f$ d RowBox[{" Y& |- K+ D$ z  ~5 E. E2 [) U
      RowBox[{"0.2286149508637297`", " ",
    . D$ @9 W" `1 O1 y6 K" ?   SuperscriptBox["\[ExponentialE]",
    6 f  o5 z+ ~9 ]5 A    RowBox[{"3.1415926535897936`", " ",
    . ~, S6 S) D& }  k( y3 G7 {     RowBox[{"(",
    & E8 w6 f& K3 q% [9 i      RowBox[{
    4 ~, {1 G3 v6 ]6 E1 l1 d7 C& Z  v       RowBox[{"-", "0.17911224641499998`"}], "-",
    ; y# @( C" I! I; E8 l       SuperscriptBox[
    3 z% t  n$ b2 h: p; l4 s/ C        RowBox[{"(",
    0 O# K3 C4 M9 W! V0 C( U         RowBox[{
    8 y$ l' A4 |. g          RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
    % Y  c7 \  t. n       SuperscriptBox[
    & ~: R2 r" w  n' E6 c        RowBox[{"(",
    7 X6 W/ n, }* v% F6 c1 z& U( H         RowBox[{/ W* Q. R5 L, M
              RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
    / c2 |$ ~; _$ \- I6 |) [       SuperscriptBox[- z$ H9 ?2 t& M- s6 |3 ?
            RowBox[{"(", ! V7 u. J4 ]' p7 j9 t) {' [
             RowBox[{# k; `% w  P, [/ V
              RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
    - J# u  |. p6 k/ s$ c, \- L       SuperscriptBox["x8", "2"], "-",
    # b, [( J7 S( U/ |3 |. y       SuperscriptBox[
    + X+ i3 B# x( V$ R        RowBox[{"(", # f8 f, M) e3 S! `) i+ Z
             RowBox[{9 S  s- a% G8 F# y6 _
              RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
    9 w! c% |, A- K( u$ {0 k7 Q9 U  RowBox[{"0.020180806675835994`", " ",
    6 M5 ?$ I4 P4 V! m1 E3 W   SuperscriptBox["\[ExponentialE]", & v! @0 ^/ B) V( ~
        RowBox[{"3.1415926535897936`", " ",
    $ A0 |4 a; l& x0 |5 w( r  }. ~$ y     RowBox[{"(",
    5 d' F1 z# P- r      RowBox[{
    ' q! T1 a7 h2 G       RowBox[{"-", "0.105619387859`"}], "-", , h  }  O; p! e) `2 H3 }
           SuperscriptBox[
    - |3 D& @6 D8 O# O1 ]        RowBox[{"(", ! v; i. m. ~& L9 H3 k
             RowBox[{
    * P$ [: H2 [  ?          RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
    5 t4 O6 ^$ M4 U* B9 q  v       SuperscriptBox["x6", "2"], "-",
    - {, }. X. F7 H4 }% c       SuperscriptBox[% k# Y: j& A* t0 u9 T( G; ~
            RowBox[{"(", % ?4 C$ _4 v* X% t1 L  v
             RowBox[{) Z  v3 H, L/ w" M
              RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
      }7 X6 a4 t" K2 f       SuperscriptBox["x8", "2"], "-", & ~- `- h7 V2 w, G' P
           SuperscriptBox[
    " O0 ], v4 y( C6 y7 O        RowBox[{"(", 7 V$ m! ~  h5 ]3 `0 a1 \
             RowBox[{
    " y  A, {! y$ x% f+ p, E- u          RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],   b& i- f% I: x7 `
      "+",
    3 _7 N6 o4 _; D$ B# s& H  RowBox[{"0.13092706311748437`", " ",
    7 a. \4 d' }+ z# j( H; X3 j   SuperscriptBox["\[ExponentialE]", : A" d- X& L1 L7 O" t
        RowBox[{"3.1415926535897936`", " ", : l- \4 B# J9 H
         RowBox[{"(",
    ) K: d# k4 y+ F; X- b) a4 X      RowBox[{' h3 W/ Q8 N) @* W- C: \1 Y
           RowBox[{"-", "0.236605670085`"}], "-", 2 Z( r8 u: t0 a: {  `& l: B- J4 r
           SuperscriptBox[$ B4 \. ^$ c" N- Z/ U
            RowBox[{"(",
    $ a2 D6 F. u- R8 \4 N' Y         RowBox[{0 W# g1 C' L0 R
              RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
    0 a  |( g, K( ]3 B! V       SuperscriptBox["x6", "2"], "-",
    2 \( x0 q' W1 x0 M: t4 R8 d       SuperscriptBox["x7", "2"], "-",
    ; |4 P7 x! l  e! M$ `       SuperscriptBox["x8", "2"], "-", ' {# A5 X) ^! ~2 v- s$ A/ T
           SuperscriptBox[7 Z) T/ t/ \6 J( |$ ]  s6 @
            RowBox[{"(", : b) @! a% \% Q; u8 R
             RowBox[{: o4 |; G& B- ?3 u$ ]# ]' [
              RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    , B$ V9 F( q9 [* I2 S& ~! h  "-", ( P/ L9 U; s  Y5 |1 w
      RowBox[{"0.033459349088924784`", " ", 7 c2 p8 O! v3 v8 _, X7 g
       SuperscriptBox["\[ExponentialE]", ( E! f1 o7 W1 a% q7 a! c6 h1 B6 b
        RowBox[{"3.1415926535897936`", " ",
    ' P( ~1 Q8 R# l3 z% e     RowBox[{"(", : M# M# s* ~/ _1 |  S
          RowBox[{
    6 i$ \; {4 S5 ~3 c' h. r       RowBox[{"-", "0.46221081830200006`"}], "-",
    , C, b8 |, a1 R  ^* R8 ?/ D5 U, f- M       SuperscriptBox[; }1 o1 R" C- A3 b$ C: N
            RowBox[{"(",
    3 a2 h7 y  z  {( X' [3 |- S  q7 u- R/ T         RowBox[{$ k  ]& m$ w, @$ C% O' ?7 J
              RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", 9 D6 F& \7 }% ~4 s2 u1 z* l
           SuperscriptBox[
    , s" A) n: d8 F8 w5 c' `9 Z$ p        RowBox[{"(", ) C5 _' O/ a( ]  [+ H8 m* o' w
             RowBox[{! w  v! ]( D: S7 Y) I! v
              RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
    % {+ M& Y0 y5 V' y& q9 {8 l& h% S: C       SuperscriptBox[3 Z6 S7 j6 B; b7 A! |/ Q
            RowBox[{"(", ' `( l! C9 u" a! w
             RowBox[{( B& r# Y7 T4 Y& f0 A/ X
              RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
    1 J% j& I6 o7 }       SuperscriptBox["x8", "2"], "-", * H, ?" Y3 |; H; n1 m
           SuperscriptBox[6 ~5 F/ g3 ~! P7 w8 m, y% Q# H
            RowBox[{"(", : {/ f9 b8 e" z
             RowBox[{1 X$ J) K2 l9 G4 U& {* e, E7 z
              RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    5 H5 }0 G) Q; T. z, L0 z  "+", / j6 ^, K: Z6 ^: t
      RowBox[{"0.39611806709006653`", " ", 9 G: t3 `# D5 Y- n) Q5 W: p! @
       SuperscriptBox["\[ExponentialE]",
    % G( |/ c0 {4 f+ }" u9 [4 E    RowBox[{"3.1415926535897936`", " ",
    3 D1 Q9 v$ C) Y6 `     RowBox[{"(",
    % A! `; f, w5 B, q' K) s      RowBox[{
    7 x1 {7 ~% @7 n- r, l       RowBox[{"-", "0.5837889295140001`"}], "-",
    5 ]' Y1 x$ s2 z       SuperscriptBox[
      K' t8 I9 k3 [. @" A, D        RowBox[{"(",
    0 ]* f' g% j0 O! D         RowBox[{6 _3 s0 W$ q/ v% g
              RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", ) z6 t) N0 \' }3 M- a! R2 N3 y
           SuperscriptBox["x6", "2"], "-",
    0 Y% F+ K: h" K/ b2 O6 j# f9 P+ A       SuperscriptBox[
    . a8 ]+ B# d8 o        RowBox[{"(", . M# O- s6 s+ b5 V, k+ x
             RowBox[{
    ) ]) J! x. ~) Q& j' u8 i4 F; C          RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", : j  z/ V, {) R
           SuperscriptBox["x8", "2"], "-",
    1 W: v, {  _2 u# ?. J! B5 P" v: _       SuperscriptBox[0 W' _0 [$ V% t6 s% g7 J
            RowBox[{"(",
    , X3 c7 o) |  N- V         RowBox[{
    # J; L$ `0 u4 Z: n          RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],   M% A" `, q* n6 s
      "-",
    0 k+ O+ S/ Q% ~6 B3 ^4 j* l# s  RowBox[{"0.19996885877792045`", " ", 7 K8 w+ v- \  \4 u8 d
       SuperscriptBox["\[ExponentialE]",
    4 M$ H3 r, G" y6 k( `    RowBox[{"3.1415926535897936`", " ", $ O6 Z' X9 J* N; X* Q7 _# j0 E
         RowBox[{"(", " \7 Z! S& D2 S4 f
          RowBox[{2 s5 `7 P" v) a* |& {4 _9 l; g
           RowBox[{"-", "0.19030188470200005`"}], "-", ) M+ g* p' l/ X$ O
           SuperscriptBox[
      d5 }5 {7 Z/ x$ I5 s  y, n8 c        RowBox[{"(", 3 n7 U5 W0 p9 r: v7 Q  \' A# N
             RowBox[{5 {+ W! ~/ `2 @
              RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
    $ J# \- D3 n# S* ]; M  X3 m" Q       SuperscriptBox[" h, Q+ H3 p' w- N$ _
            RowBox[{"(", + ]' h( c5 b. d& S) i7 a, I
             RowBox[{4 D. u# N" m  C0 c$ w' q2 Z7 H
              RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
    ' U2 u& z' v" c) V# n' ]% [0 i       SuperscriptBox["x7", "2"], "-",
    ( O1 g$ q6 ~: `  ?       SuperscriptBox["x8", "2"], "-",
      Z' h7 d7 [. {% N       SuperscriptBox[
    9 E2 e# g  E, A5 v9 i1 s        RowBox[{"(", * m* [0 e1 J/ z) x5 |
             RowBox[{' }3 Y0 I- a9 l- ~/ `6 U
              RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], $ o! p( \: t, [  L* \, D
      "+", $ s& X4 b" e5 g9 J$ ^
      RowBox[{"0.23580523388620744`", " ",
    7 r+ P, ], p6 b. `5 t   SuperscriptBox["\[ExponentialE]",
    6 X) E6 u, F' N* Z  |" Z5 S9 O, z  C    RowBox[{"3.1415926535897936`", " ",
    ! ?0 O" p' i1 s! {- |     RowBox[{"(",
    1 {2 W' U  W/ j6 M, x* B7 R      RowBox[{
    9 U# C/ j, A- G  n0 G: ?       RowBox[{"-", "0.28518780882`"}], "-",
    5 G0 O4 z: [6 A! r, f0 g! B  s       SuperscriptBox[/ a6 H' n7 m9 ^( X( ]
            RowBox[{"(",
    : x2 M3 S" C; M0 e         RowBox[{
    . c3 F9 q9 V* |% w9 c5 {          RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
    1 C7 N) F8 Q% r' I& I* ~& {2 z       SuperscriptBox[
    ! ?* f# \3 P3 o1 m: P        RowBox[{"(",
    5 _. \% v/ i) M5 V9 V0 P7 a# r         RowBox[{7 t9 z) `% `2 Y) N1 G) S7 ~6 U
              RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    ) k- d- A+ X6 ^! `' N( |- ^! G       SuperscriptBox[
    " A9 F' T! m* z* K0 _        RowBox[{"(",
    0 j3 m9 W# v$ w1 K- O         RowBox[{. g% D+ b7 O5 n8 F) O. q
              RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
    : c" S, z7 ~9 d0 v       SuperscriptBox["x8", "2"], "-",
    ) {8 b' D, E3 [5 t       SuperscriptBox[
    3 X$ q! b4 H% _) r( e        RowBox[{"(",
    0 C( Z6 I6 P( y) U9 |: O" e, e) E         RowBox[{. r. |* ?! V. X2 k
              RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], / ^% i* V+ ]1 ^, |" v, ~, D, r+ t5 t  A
      "+",
    3 W8 s0 \# r4 o( v+ H  RowBox[{"0.667027259367853`", " ",
    ) z' L! `+ g4 |7 i1 @. s   SuperscriptBox["\[ExponentialE]",
    1 t. W6 b- L2 T0 g- i; ^    RowBox[{"3.1415926535897936`", " ",
    # x2 N! e& c6 r- o9 S: I     RowBox[{"(", ; A. n4 N# ?4 S( J4 Z
          RowBox[{
    ) g  j& b* v1 l4 `" q* v6 U       RowBox[{"-", "0.11387365200400001`"}], "-", % d9 }' Z  X8 S% ^/ R' B) B
           SuperscriptBox[9 L; u; }+ h9 t% D( d3 H; }  h) k0 @
            RowBox[{"(",
    7 O6 x9 b, n# O. `# ^- Q5 ]- x         RowBox[{) c( b/ x  V$ q3 ]3 }5 A/ r
              RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    9 x9 {' i  J0 n6 M% m3 {5 s) d& p7 v$ ]       SuperscriptBox[0 p7 c0 J, Z& F  B
            RowBox[{"(",
    / h$ A9 F2 g5 x+ r0 {         RowBox[{; z+ i8 X8 E1 \! W3 G4 U# T1 q
              RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", $ s- w0 y2 i9 B0 d
           SuperscriptBox["x7", "2"], "-",   C/ g, `1 s# ^5 b! Q; l4 R
           SuperscriptBox["x8", "2"], "-",
    $ d; ]" T+ B' ?5 B       SuperscriptBox[  X0 N0 K7 u2 u: M+ }
            RowBox[{"(", 5 ?. O2 I( ~6 a- I
             RowBox[{. ~7 u4 T8 F* i' ]
              RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], - u/ u; [% ?- m. p+ O- f# W
      "+", 1 |6 C. U8 N8 d% }1 ?8 i' L
      RowBox[{"0.25282438852646905`", " ",
    ) C* o5 _4 R1 Z0 ?" T2 L   SuperscriptBox["\[ExponentialE]",
    8 N4 o' z( }3 X1 S  T    RowBox[{"3.1415926535897936`", " ", : c, B- g# p: V! F7 p
         RowBox[{"(",
    / d; N! L3 T3 j. L7 N) L- M2 s% \      RowBox[{6 V# J2 N- m( s
           RowBox[{"-", "0.11442644782500001`"}], "-",
    . T# d% A+ c: g# x+ Y+ O       SuperscriptBox[
    & ~8 I* n0 @8 [2 O        RowBox[{"(", 1 l- }- N- I2 I
             RowBox[{! y; F1 Z: Z! t: N
              RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", & z# Z* f5 N" E4 A) {& T3 E
           SuperscriptBox["x6", "2"], "-", + Q8 H7 z& S+ j( V, S" i
           SuperscriptBox[5 G  X$ [0 v, [5 i9 w0 w/ Q
            RowBox[{"(", ( g. t0 h8 h, C  P0 l0 J
             RowBox[{) \. O- b  o' T% S9 ?$ E# K
              RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    0 H+ `- _& A% b4 Z: I" I       SuperscriptBox[
    $ s  p" A2 L! b) J$ b" n        RowBox[{"(", % s$ r# B# O  i4 Z& |5 ^0 m$ z/ P( @
             RowBox[{
    3 G8 N1 ~7 {2 d: c2 h7 X# P% d+ Z          RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", : y4 d& S, V0 z
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", 3 L. j1 R& \  m! w' J; d" t: A
      RowBox[{"0.07581214474544536`", " ",
    9 s( _/ d( X  B+ V7 X4 o   SuperscriptBox["\[ExponentialE]", 5 m* F9 m% v/ T3 P& F0 @7 E7 s
        RowBox[{"3.1415926535897936`", " ", ) ^* Y  f2 T& |3 u
         RowBox[{"(", 1 y0 {1 y+ r! K
          RowBox[{1 {  j/ Q1 }0 u5 e! q& V% t
           RowBox[{"-", "0.21008576609800003`"}], "-", ; p9 n# S/ e8 K" R& }* E
           SuperscriptBox["x3", "2"], "-",
    / ~. ~5 [% C) g8 z# Y1 L       SuperscriptBox["x6", "2"], "-", 8 [& D' U( e$ N, F# q, f( F
           SuperscriptBox["x7", "2"], "-", # s; s1 A/ h+ T9 a# a9 a5 y
           SuperscriptBox[$ ]. d1 j; }. p' ^" E- b/ S
            RowBox[{"(", % ^! x- X- n) E
             RowBox[{7 y* u/ `; }. j9 W5 X
              RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", ; v: `* f& X. T, s( q
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", ; V: J% W1 X. d- {6 `7 Z
      RowBox[{"0.10599338351843121`", " ",
    % W' y1 y2 K/ U" o* e& N) z   SuperscriptBox["\[ExponentialE]", / O$ N* ?" w. \, k4 J0 I
        RowBox[{"3.1415926535897936`", " ", / E- p+ ]$ A. ^+ _: T9 E
         RowBox[{"(",
    8 B4 H4 p+ F! f& n/ i0 V- V      RowBox[{
    ) j) C. e, P; q, }; t& R5 c       RowBox[{"-", "0.4481471925460001`"}], "-",
    7 u! L% B. u/ V3 a/ g7 j       SuperscriptBox[
    & B% ]3 V! {/ l        RowBox[{"(", % E* f1 n/ T5 ^7 j
             RowBox[{- t+ A3 f6 R4 k( P0 o- n7 b3 K1 b. j
              RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", 7 O0 w! u+ _8 e& K& i# ]/ o) ^/ o3 x3 G
           SuperscriptBox[! \2 X/ Y. ~' [/ Z1 I! E- N# B
            RowBox[{"(",
    0 \9 Y  \; f8 S         RowBox[{
    % Q# D0 ^* Q4 ~) Q2 B          RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
    4 n- B! f$ B8 H4 K1 g       SuperscriptBox["x7", "2"], "-", & R, s% |& T9 T- Y' u# `0 X2 H
           SuperscriptBox[. a- C" T7 _: c# q; c4 w+ u
            RowBox[{"(", / `; S, v  q. q
             RowBox[{
    $ h7 Z* e# A( H2 G1 _          RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", . C5 [: z! D$ ^5 G& L- l. J" ]5 @! C
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
      @6 I* j# L8 d8 p( A( s+ j  RowBox[{"0.5008208386064421`", " ",   J# o- X: F9 v" \8 ]; z6 k
       SuperscriptBox["\[ExponentialE]",
    5 v  F; a# ]+ }3 B$ R$ }) i    RowBox[{"3.1415926535897936`", " ", 2 T0 l* Z( M, i" q5 W# x% M
         RowBox[{"(", 2 |5 }5 A. E* W* [4 F" ?9 u
          RowBox[{
    3 \) `& d* s% L$ i* Y, l: H! m       RowBox[{"-", "0.08722659614000003`"}], "-", ! d' C% p: @9 Q8 w& J" T1 z# w
           SuperscriptBox[
    ( Y$ V% Z' c# j4 e% r' z        RowBox[{"(",
    0 _# d- Q! `' o' ^% d         RowBox[{. Q: w' Y* I) k  ^9 Y6 a
              RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
    + c) X9 l5 j4 F8 @- D       SuperscriptBox[
    . f) O' q( q; v, Y' F        RowBox[{"(",
      u; b. `- s" d# L         RowBox[{
    : ^# v" Z' S. q" `4 ?  i- W          RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
    0 \; W$ {8 O2 L1 x  C) G       SuperscriptBox["x7", "2"], "-",
    ) m  ]9 N+ K- `% m* ]! \       SuperscriptBox[; }; P0 l* A2 }5 ^5 F1 b
            RowBox[{"(", 9 H* u/ N# z3 s( j) x7 G9 R; \: T
             RowBox[{
    4 ?) P/ Y# k! L5 N          RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", ' ~4 S3 k4 ^' ^6 h1 C, C+ b
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    - |  X( t1 H# V- b1 s  RowBox[{"0.32564305572552343`", " ",
    ) j' H. l- ^. J! `   SuperscriptBox["\[ExponentialE]", 9 z" _/ z! a/ D7 x0 y/ {2 N
        RowBox[{"3.1415926535897936`", " ", 0 f- t( f* S/ l: y% v% a7 e8 y8 ]9 X
         RowBox[{"(", $ I+ M1 w+ i" P, d
          RowBox[{
    / V" w2 W8 |/ J4 o7 w% e# h% q       RowBox[{"-", "0.23738217000100004`"}], "-",
    1 W+ v: g" a, _       SuperscriptBox[
    ( _  p, H9 b! p/ F/ D' n! D8 C        RowBox[{"(", ; S* A- ?+ A6 ~3 l$ Q* Y
             RowBox[{1 r% a6 `% ^: T9 l! b" v
              RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
    7 Z2 K; ]' H, m7 j" Q+ Z       SuperscriptBox[9 ?. y. D4 O! n* k
            RowBox[{"(", ( z5 O& x2 A# G, |
             RowBox[{  s' i+ I5 V( q4 {
              RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", 1 a2 y& R: w2 ~6 Q
           SuperscriptBox[
    9 V4 @/ [5 m# i7 d        RowBox[{"(", 2 t- ~% B' p: T4 j8 d
             RowBox[{. Z' T% p# s  g/ n2 h. k" w# E/ N
              RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", * j9 v, Z- u* I8 K! J" H
           SuperscriptBox[
    ! B& u3 ?  n2 C! C$ s" M! {        RowBox[{"(", 0 I" N2 o# B+ j# h$ z
             RowBox[{% H9 f/ _6 x9 D5 I8 T
              RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
    9 Y) n0 R2 L- Q9 m       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    & T2 w+ D0 N- l) K1 K; N7 Q: V2 s  RowBox[{"0.6665374509702793`", " ", 1 L# E! l2 g1 Z+ ~6 Z3 @" ?  v, C% \1 r
       SuperscriptBox["\[ExponentialE]", 0 ]* [$ Q3 D& a, U: i4 U
        RowBox[{"3.1415926535897936`", " ",   Z- N  C6 k# z! ?0 g, z$ l
         RowBox[{"(",
    3 d: @7 Y5 U7 x& F' {7 _8 k      RowBox[{
    + w: F8 N: p6 K/ I0 [2 ]       RowBox[{"-", "0.19162171876400003`"}], "-",
    ; f& B3 c8 D8 X9 ^  n9 I       SuperscriptBox[) g( B2 q/ `8 Z2 R
            RowBox[{"(", 7 J% [6 c% z2 L& \
             RowBox[{
    0 F' }+ s" w1 O0 H# {          RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
    ( A6 t' b0 C( ~7 B5 B& y( Z1 j       SuperscriptBox[
    + s# u' L  H5 X8 O7 y& \9 A        RowBox[{"(",
    $ a0 W, Z# b9 x& m1 m- h+ a         RowBox[{
    ( @; d" o- f1 I: a5 b  S4 v$ X          RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", : f! P+ p/ g, U. z6 l
           SuperscriptBox[
    % W+ l4 G8 \9 ?        RowBox[{"(", 7 p6 [3 x$ n- N. Q8 w. S: |
             RowBox[{
    - R% K9 ?" s1 f4 k" [          RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    - k2 s8 S4 O' g' [       SuperscriptBox["x8", "2"], "-", * [( T, Z+ v8 i% E2 o0 S
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    8 @! \  I9 }  Y1 }) T- ]% u  RowBox[{"0.4812237524557293`", " ", 1 }4 ?  \; @2 H+ g
       SuperscriptBox["\[ExponentialE]",
    9 t6 x8 C# Z0 s2 D8 g1 c8 u2 O    RowBox[{"3.1415926535897936`", " ",
    ' s( P5 j! s: [1 ?: e" D     RowBox[{"(",
    1 @. l0 u4 m' ?' F& O5 q1 J/ f- `9 L' f      RowBox[{2 n- @) w, A/ g( r$ \5 [- j8 @5 O
           RowBox[{"-", "0.109748954594`"}], "-", 4 h. i) d; b8 j
           SuperscriptBox[; f; x# U* A8 a; u
            RowBox[{"(", + `  u7 I9 @6 F! |+ e- @
             RowBox[{. ?' R6 T4 L$ l# n
              RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", + m+ U+ ~% Q- r1 y) U
           SuperscriptBox["x6", "2"], "-",
    : f1 h1 e( P7 C- b+ U8 V1 ~       SuperscriptBox[
    $ i, D% r' y+ p; _; d! A8 f        RowBox[{"(", 4 T' c6 E# r7 L5 S3 P
             RowBox[{
    ( S9 Z- U, M( q' |! @          RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
    4 r) g1 O& P4 V       SuperscriptBox["x8", "2"], "-",
    / f& U- x( M/ }( j+ [' W       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
    % Y& t. P& u' B0 x2 v  RowBox[{"0.176024676254045`", " ", 1 K0 W5 {6 q$ s( N1 N2 u( y5 A
       SuperscriptBox["\[ExponentialE]", # N4 `6 L6 f; e8 S
        RowBox[{"3.1415926535897936`", " ",
    2 D, \% K" n. @' a4 y     RowBox[{"(", : n' U( h+ R: q; p8 ^5 _5 b
          RowBox[{! K6 Q" q; b1 a! {; \$ C0 W
           RowBox[{"-", "0.14616677062500003`"}], "-",
    7 e. j9 R! M; S0 r$ t       SuperscriptBox[
    . ^7 f3 N, U! i! P: v        RowBox[{"(", 1 r# L% O2 @& P, [/ o) B4 X
             RowBox[{/ k' K& Q/ ~/ A2 P# a# {
              RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
    ! |1 e; p4 w9 s; Z- n) c       SuperscriptBox["x6", "2"], "-",
    4 p5 K" _: n5 u6 ^2 N9 _' ~       SuperscriptBox[4 u% `! d6 }) V7 Y
            RowBox[{"(",
    , W; T' F" R! Y" \, p! c. ?         RowBox[{
    6 X4 E6 [* q9 r          RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
    ; h, s2 h# Q$ j4 o       SuperscriptBox["x8", "2"], "-",
    7 c( @# W. m3 F" W! A       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
    " G+ J) b1 r) L' e  RowBox[{"0.5945873894818965`", " ", ) x" j; G% M5 b
       SuperscriptBox["\[ExponentialE]", & @( M" G, [9 u7 m
        RowBox[{"3.1415926535897936`", " ", ) q( Z# G* v) `' {5 o
         RowBox[{"(", - F& ]$ [5 o7 _/ H
          RowBox[{# |" }$ O$ j/ U3 G5 s# d
           RowBox[{"-", "0.10407011464100005`"}], "-", ( I: i3 _$ i% ^7 a
           SuperscriptBox[
    , T2 _: {( _- A7 n# O9 l# ?        RowBox[{"(",
    " ?. V9 s4 S: |4 s! F" ]         RowBox[{0 `+ j* G, c4 D. P
              RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
    6 n1 w  z& Z( H$ u7 F  Q8 f       SuperscriptBox[
    ( a7 ]# z- v. F( N9 l7 l% S" t        RowBox[{"(", 2 ?  `* _% B/ C  a
             RowBox[{8 S6 K0 C/ U: ~0 B6 i* m) \2 f+ |
              RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
    2 M; K  W; o3 A' T: G( J" k$ A       SuperscriptBox[
    3 g+ _" N" d" O        RowBox[{"(", * X/ _  f) R# U  P/ a
             RowBox[{5 e/ Q: G& E: e1 }3 s0 S) _
              RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", # Z. C, Q5 g1 ^  F: ]2 x
           SuperscriptBox["x8", "2"], "-", , [8 {% n1 t. J4 c/ ?+ r( |4 V$ x/ T
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", : ?" R5 Z" M" K$ D
      RowBox[{"0.027591936509660075`", " ", % d, i7 ^3 O- a1 ]
       SuperscriptBox["\[ExponentialE]", ' z/ u6 _$ g( F  L$ K
        RowBox[{"3.1415926535897936`", " ",
    & Q" F4 _) s; u6 H: C; ~     RowBox[{"(",
    ( m3 Y9 h% S8 a5 K. e4 n      RowBox[{
      t5 b& S# G$ A, h! a       RowBox[{"-", "0.31770463544200006`"}], "-",
    8 f" t3 |" ?1 T( ?9 d! V       SuperscriptBox[. p  y& }; ~" @% ~* U6 P
            RowBox[{"(",
    8 c! P7 P: H+ A6 w2 }* h4 C; l         RowBox[{1 R( j4 g6 t; G. J& A! m6 N
              RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", / m" i7 ~( z5 w$ f- H6 L
           SuperscriptBox["x6", "2"], "-",
    4 N) r( o5 }& @$ F% i' W5 r' F       SuperscriptBox["x7", "2"], "-",
    0 I- s) u  R* H. I2 S       SuperscriptBox["x8", "2"], "-", 1 ]4 M3 R5 c1 z$ e' g# G+ V( ~
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    ( M, b7 y! K, i/ C/ r- O4 ^  RowBox[{"0.5252475961933536`", " ",
    / x! q7 I8 b: R% z3 n0 m/ M0 K   SuperscriptBox["\[ExponentialE]",
    . [: a: @% _; ~7 t8 x! A    RowBox[{"3.1415926535897936`", " ",
    6 O  Z; g9 y# G! U9 n( l- A9 \     RowBox[{"(", ! G% @( a- ~7 L1 V5 ~: ?1 e+ ?
          RowBox[{# t- ~) ]8 X: ~
           RowBox[{"-", "0.6410867660730001`"}], "-",
    4 E8 m2 `9 e. M* X, R$ y) g       SuperscriptBox[
    0 h; ?* E8 `8 R8 ]! g& G3 s' {        RowBox[{"(",
    " @, N( ?3 \1 v$ q$ c! @         RowBox[{
    ( Z5 G6 \% W  f0 {& y8 v$ R          RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
    1 d* R5 P: V5 a0 l       SuperscriptBox["x6", "2"], "-",   ]8 l  g: f* q% J+ I
           SuperscriptBox["x7", "2"], "-",
    & e/ l# x; k( L; A       SuperscriptBox["x8", "2"], "-", 0 S+ r: i( C7 r# P$ V
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", $ x6 O: ]4 k  ^( N! C  q  X
      RowBox[{"0.32047284779644936`", " ",
    5 G9 c' B- O3 L) U2 ~   SuperscriptBox["\[ExponentialE]", + {$ G0 d7 P/ Y4 D; V# q; y
        RowBox[{"3.1415926535897936`", " ",
    % \" k. k, c4 z- _0 }4 K: n     RowBox[{"(",
    9 ^, k4 s( s5 p      RowBox[{; U! K* I2 {0 I$ f1 W2 {
           RowBox[{"-", "0.155663887074`"}], "-", 0 p: H1 H7 n, I
           SuperscriptBox[6 t6 ~9 z% x9 g+ r2 v2 p3 Z* @
            RowBox[{"(", 3 F7 T2 d( ]9 Z) L
             RowBox[{5 I- `2 g. P* w/ q7 u/ X
              RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
    & C1 p# W, K+ @1 b# N       SuperscriptBox["x6", "2"], "-", ' O" x- t- \2 ^1 L* F6 x, _
           SuperscriptBox["x7", "2"], "-", : `, K! L6 |6 c5 \
           SuperscriptBox["x8", "2"], "-",
    ' z% [& @3 l) _4 s% o! U" I       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    , N  H% S# O% p$ X% T  RowBox[{"0.7528674241482847`", " ",
    5 }8 o( N2 k/ N- K2 f   SuperscriptBox["\[ExponentialE]", " i& O0 H  S) H: k8 U, t! o
        RowBox[{"3.1415926535897936`", " ",
    + X: u$ O3 t* h+ L     RowBox[{"(", 2 P) d7 G5 Y9 h& y1 h' y* r
          RowBox[{* @( z6 B. t' n, U# a& N
           RowBox[{"-", "0.14151232428600002`"}], "-",
    # m: r4 a  t! p9 b       SuperscriptBox[& w2 W+ ^2 ~/ B7 t4 Y* U$ _
            RowBox[{"(",
    . s" ~# m  a4 G( Z. y8 b7 }* G$ Z         RowBox[{( E7 V/ g$ D' v7 x0 Z! O
              RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", ' l4 U7 z  A  |/ P6 j" i0 o( w
           SuperscriptBox["x6", "2"], "-", 9 `3 U/ q% l- [3 b2 r; L. G! `4 K
           SuperscriptBox["x7", "2"], "-",
    9 Y' [+ B0 h/ X, @       SuperscriptBox["x8", "2"], "-",
    : M$ X* {* A- @       SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",
    8 h; w1 m6 A! Y1 x+ U: k. B4 g& M3 z CellChangeTimes->{3.5779628386090403`*^9}]9 V/ r& b. n2 D8 F' r
    }, Open  ]],
      u/ u, {2 P- f: z4 R3 n2 D* u# P, B$ d3 V7 `4 W" e; g- E) D& _# K
    Cell[BoxData[" "], "Input",
    . `7 t% P  _3 J1 a% ]' @- I, V CellChangeTimes->{3.577962835879035*^9}],
    " B# V( i$ i5 R
    ; |; |* ~6 ~: C/ lCell[BoxData["\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\:4e3a"], "Input"],
    $ N# Q5 i6 D" K* |9 n9 t: P( _
    9 q+ P. ^0 g& l6 N; @' kCell[CellGroupData[{' k) F' z7 a" r

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

    使用道具 举报

    569646632        

    0

    主题

    7

    听众

    46

    积分

    升级  43.16%

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

    • 签到天数: 9 天

    [LV.3]偶尔看看II

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

    使用道具 举报

    -___        

    0

    主题

    8

    听众

    44

    积分

    升级  41.05%

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

    • 签到天数: 12 天

    [LV.3]偶尔看看II

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

    使用道具 举报

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

    qq
    收缩

    • 电话咨询

    • 04714969085

    fastpost

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

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

    蒙公网安备 15010502000194号

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

    GMT+8, 2026-6-11 02:28 , Processed in 1.663346 second(s), 101 queries .

    回顶部