快捷通道

QQ登录

只需要一步，快速开始

  注册地址  找回密码

数学建模社区-数学中国

留学>>
返回列表 发新帖
查看: 10810|回复: 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
    问题完善一下！或者把代码贴上！
    5 U0 _) w& ]2 [5 h- U
    回复

    使用道具 举报

    琳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 9 B2 G- W6 a4 E- }' n
    神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗
    : W. T: D- [8 g) ]- V- C  E
    (* Content-type: application/mathematica *)
    3 z; P; T% S2 r2 z* g* m  H0 Y) R: U) d& @
    ) M9 R" I: O! @( B4 `(*** Wolfram Notebook File ***)
    $ V3 K+ i8 ]7 N5 r, a' Q) l/ B  C(* http://www.wolfram.com/nb *)9 `7 R2 T: N- V7 `/ x
    # ]$ ]- E+ z0 |4 ]; ~
    (* CreatedBy='Mathematica 7.0' *)
    & \" m8 X6 B3 P/ e, u# F# k3 n+ z9 m  e% N
    (*CacheID: 234*)
      g7 d7 R. l# s(* Internal cache information:& B% c5 k" G' [
    NotebookFileLineBreakTest
    - c) ]; k) H1 P  HNotebookFileLineBreakTest
      r% D7 l% |8 M, Z5 hNotebookDataPosition[       145,          7]8 e) a/ s6 q5 x, {
    NotebookDataLength[    423629,      11534]2 W" W0 J3 n6 x
    NotebookOptionsPosition[    412607,      11173]
    4 I5 W" ~! b- v% H! T& ^$ ANotebookOutlinePosition[    412953,      11188]9 W# N' v4 L3 G
    CellTagsIndexPosition[    412910,      11185]4 w. y; W/ u* ]2 o
    WindowFrame->Normal*)
    3 T8 G6 J2 m! E0 B8 q  E1 n( m. U. P7 w, A9 ~
    (* Beginning of Notebook Content *)
    ' y" J' F2 T$ W2 o2 G. w" xNotebook[{/ V' |* q* Q: b2 [: k3 [* f; n

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

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

    / @0 {  D% G1 B" ?1 r3 g' ICell[BoxData["1"], "Output",
    8 s+ H9 K" m1 L1 }4 A& |/ V% _ CellChangeTimes->{9 S4 a/ ?1 ~$ R5 c
      3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, / Y- Y4 ?$ `8 i' o9 Y$ A. @. o# k
       3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {3 ?/ n: a. r: [2 o+ Z0 e
       3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, 5 R/ j& Q6 D, x/ h4 I$ f
       3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {3 X5 J9 @, ^- l& o% _- K- j4 ^
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
    & J) P; t& I! f   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    ) W+ r1 h  Y, p- d* h% U% D   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
    / O% |, P, y9 o! H; E   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {8 y5 Y1 \% G  `  a% l) h
       3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, 3 x- q; r% o4 `1 D' `9 }
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, * Y2 {/ k0 V1 a! w
       3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
    0 H1 M: d) K' R! G! y* S& u; n0 j   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
    ( S3 ^8 k" k% T* C   3.577960510686717*^9, 3.578012149296875*^9}]
    - y2 V* R: R) h+ @}, Open  ]],! S( g- M& b/ C% p4 c' C* q
    & |7 V( w; d  i& ^0 Z( @$ a
    Cell[BoxData[
    0 Z$ {% H$ A. x7 b- E/ G8 l" u0 ?7 b RowBox[{"For", "[",
    , l: ]- u- b, U5 d% i  RowBox[{2 E7 H" b& R+ s- v! ?
       RowBox[{"k", "=", "2"}], ",",
    ; n  Y6 o9 ^! h; X3 o/ P   RowBox[{"k", "\[LessEqual]", "60"}], ",", : A+ h8 A6 I# d2 _8 V
       RowBox[{"k", "++"}], ",", 3 }- ~+ h" R; B2 A; x
       RowBox[{"{", "\[IndentingNewLine]", 2 e6 A- |( j9 e+ z
        RowBox[{7 E# x0 N0 e) V
         RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]", ) R1 f+ y' V6 k& G5 w: ], c
         RowBox[{"For", "[", . b6 z: P2 T1 P
          RowBox[{8 w& Y. a( O9 N5 ^% M) m
           RowBox[{"j", "=", "1"}], ",",
    & }; w; m; I, b' i8 m       RowBox[{"j", "\[LessEqual]",
    / @, U8 Z/ V3 ^' ^/ K        RowBox[{"k", "-", "1"}]}], ",",
    ; w/ B: i6 Q) \: J% W& I       RowBox[{"j", "++"}], ",",
    0 E0 y7 _4 c3 E. Z/ e- L( S       RowBox[{"{", "\[IndentingNewLine]",
    . @) Q* c# P0 S, p8 ~        RowBox[{+ a- V7 i: b4 M8 c
             RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]",   G* V4 A8 H; D7 w4 R
             RowBox[{"For", "[",
    ! ]& {* I" l5 \0 z3 n6 f0 ~" L          RowBox[{' X* D* Q- L" l
               RowBox[{"i", "=", "1"}], ",",
    $ h; q/ @5 O$ |% S0 S% @           RowBox[{"i", "\[LessEqual]", "9"}], ",",
    3 w* `3 r( [  ]4 i/ H& O: b           RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    ' b) v9 Y! P& E/ [; M           RowBox[{: l2 `* O- c8 e1 w+ V0 }* w
                RowBox[{"r1", "+=", - l) V' P4 E7 a- @0 f+ P. R( |4 f
                 RowBox[{6 g+ E/ K! y( g$ V+ {
                  RowBox[{"(",
    + p8 B# b- T$ f               RowBox[{% ?8 T/ C' b2 I/ f
                    RowBox[{"CM", "[",
    1 Q5 |. `  a) B5 G6 Y; g                 RowBox[{"j", ",", "i"}], "]"}], "-", 4 I' ?) u6 A1 h9 m* U: H8 x$ s
                    RowBox[{"Data", "[",
    / b! B, `1 L" W                 RowBox[{"[", : [) \% l+ K' @: E- D: ?
                      RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
    6 Q' g8 j4 G: V2 G# z              RowBox[{"(", : J( Q; o5 w, j0 Q. O
                   RowBox[{8 R8 h! s! X; X- r  i. q
                    RowBox[{"CM", "[", * G- e. v6 K- Z
                     RowBox[{"j", ",", "i"}], "]"}], "-",
    * H7 `$ {/ k* |3 R& d% h                RowBox[{"Data", "[", ) v7 l$ i& d, a) T7 E& ]% W; B/ b0 S5 I
                     RowBox[{"[",
    2 p& m; r- s0 `, i                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],; o/ T* l+ ^8 d; R. B
               "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", + v; k( Q. D0 }! l9 C2 M, L
             RowBox[{"r1", "=",
    1 a" U, ]+ G: g: S2 n          RowBox[{"Sqrt", "[", : Y" ]- ]3 o& b& m3 W$ {
               RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]",
    6 a9 I# z# a! K         RowBox[{"If", "[", " ", : a; Q9 g' D9 A3 {- _% y- p+ `
              RowBox[{0 @. r/ ?3 _7 z' Y9 }& W
               RowBox[{"j", "\[Equal]", "1"}], ",",
    # {  ^- q6 b* s. g; Q$ E6 I           RowBox[{"rmin", "=", "r1"}], ",",
    % I7 }  O8 e) E- [8 ?! h0 h4 d5 b+ m$ ?% U: v           RowBox[{"If", "[",
    , b8 Q2 A' j2 x' l$ G& }            RowBox[{
      z' \! z0 `4 ~' A3 o( N* y             RowBox[{"r1", "<", "rmin"}], ",",
    ! r+ N5 k: S1 v  T             RowBox[{"rmin", "=", "r1"}], ",",
    8 s, e% ]' E$ t6 d             RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}],
    * k- B# T  e4 s  ?7 B/ ~+ i        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";", " z$ T, t+ c, K1 ]9 J
         "\[IndentingNewLine]", - }4 z% V* s2 f$ U" j) T/ I/ }
         RowBox[{"If", "[",
    ) x! F8 G% ~! o7 {8 V3 B      RowBox[{" G: j# E6 V: i
           RowBox[{"rmin", ">", "r0"}], ",",
    . U* z+ X, O6 e: I  |. _1 f* Y; F       RowBox[{"{", "\[IndentingNewLine]",
    ( V' s; d5 n: v+ l        RowBox[{6 p7 B9 P9 q5 S7 y. R5 |. W
             RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]", " o5 n7 `* F- C) H9 ~  W
             RowBox[{"For", "[",
    % G+ H0 _! S3 E  {          RowBox[{
    6 }# \6 q9 R* ~7 k! E: n( m  d           RowBox[{"i1", "=", "1"}], ",", $ f: J# X6 ^6 }0 h- {
               RowBox[{"i1", "\[LessEqual]", "9"}], ",",
    ! e% Q# J- h  I# G1 @3 V           RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]", $ [2 ^) t+ }0 A( s
               RowBox[{
    $ W8 U7 n4 S1 f1 F9 G# f5 H            RowBox[{
    ) N; X3 k& t; T4 H$ X% t. y             RowBox[{"CM", "[",
    4 p+ D; p  m) V/ G9 P- I              RowBox[{"M1", ",", "i1"}], "]"}], "=",
    4 V/ N$ o+ n$ n. s! t  U# a1 {2 I             RowBox[{"Data", "[",
    9 k8 k. ~5 J. C# g# a              RowBox[{"[", " q! i: g+ R/ }' T
                   RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}], 3 U$ E5 ^2 i) c8 N8 t% a
              "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",", 0 Z; d( Y9 Y5 q* z4 y3 \8 E
           RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}],
    6 [8 t5 k# x# u6 T# U    "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",- |$ R7 u5 B8 i. N( @
    CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {5 ^2 ]" E: [2 v* J, R' r
       3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9, ; |9 a6 @# i5 Q8 ^
       3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {
    6 z, v9 x8 ?9 ?) x# n6 m$ G! e   3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9,
      D0 @  d/ k! V+ t   3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {7 P7 x0 b( P# X
       3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9,
    % ~2 M; D/ g! ]; b/ ]. v   3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {# ^1 c, H- i; w8 M6 x; }& B
       3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9,
    9 l; {) N9 B8 t- b0 e, g, {6 w   3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {
    8 |- W/ t) X8 u5 @& f   3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9, ) t6 U; T- E0 L
       3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {
    ( U2 l/ g  |( F: X   3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9,
    . _. q+ q; u1 V   3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {
    3 A6 A& v7 H0 R7 C* |   3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9, % V7 @* _* U, |( F4 z2 g
       3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {
    4 e( i3 l! R  o   3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9,
    0 ?. b; d- g9 q3 l  W7 S# t   3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9,
    0 w6 c, d4 K" J, I   3.577958821991373*^9}}]," K4 }6 }" }6 U4 d7 w! k

    / W! ?* g3 @: Z$ p% n  x2 N3 ~Cell[CellGroupData[{0 a+ ]: k8 ]% Z' h9 f1 O. |! V

    ' |" U; n7 O3 N6 i# c2 R5 @1 d5 mCell[BoxData["M1"], "Input",5 v% i  f0 T- y' j
    CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
    4 b' \6 O' h! q* ?9 e3 T+ l+ k2 N/ G' R/ G* @
    Cell[BoxData["21"], "Output",) ~4 s1 `) Y* w& j3 r
    CellChangeTimes->{" C! i( \/ `$ U7 q, E5 S$ S
      3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {
      V0 y3 x! s5 _& J. x7 C2 m   3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9, " }' I. B4 }) C+ e: X
       3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {
    7 o5 J7 s. B8 J) R/ ~7 O1 `   3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
    5 |! M) [; |( C; ?7 f; c: c2 T! Q   3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {2 g) H% b# _7 P5 G/ c8 r$ g6 z
       3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9,
      S  ?5 G6 b  \1 a5 _0 {3 G; K$ c) t   3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
    ) R$ N' m7 ?8 o( E6 j% T$ X   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9,
    - ~' ]" ?  k$ ~6 b   3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9,
    , y0 I+ U# `5 ^5 M   3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9, ' U- J0 t; f! h( X
       3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9, 7 D% m* s& a5 m& k9 U- v2 T$ k7 L
       3.577960515600726*^9, 3.5780121541875*^9}]
    - A+ Z7 g! e: F5 S- C. d/ B6 i}, Open  ]],
    2 j& p# O: N$ o1 [
    + ]' N3 e; u0 H5 ECell[BoxData[
    . r" ], t* i3 p, h1 k RowBox[{5 h' [2 Y6 _4 }; v" `
      RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[", ; J9 s9 E, d2 a( ~  \, A0 ^
       RowBox[{"1", ",", "i"}], "]"}],
    5 V# Q4 j+ f8 b" ]  Y: |  RowBox[{"\:5230CM", "[",
    # }/ v' ~  j. y   RowBox[{"21", ",", "i"}], "]"}],
    5 ~0 e1 ~7 Z+ r' {8 Z! J  "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\8 v" H. V; L$ O! H& r' G
    \:51fd\:6570u1\:5230u21"}]], "Input",
    & b  y( R0 C5 d" A9 g7 b CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {2 T) ]! d" w/ u7 w
      3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9, - g1 O- v, `" e& r/ [& _: ?5 @
      3.577960526583145*^9}}],
    - Q! j% p$ J7 d. q7 J6 G" H# v7 o+ _+ [0 Z1 ^$ B* k
    Cell[BoxData[8 u: e4 T/ e9 N/ h
    RowBox[{"Clear", "[", "Delta", "]"}]], "Input",$ w2 C, f6 R& t1 ]3 |: T
    CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],6 a! \& _- A* f8 c! l+ C1 a
    : |8 B2 T% Y' S3 T2 o) C. _" U
    Cell[CellGroupData[{
      T$ x5 b8 ~& V2 q& Q* m/ ~5 X; @* L0 I
    Cell[BoxData[* S9 c# A+ \8 x* R0 e7 f" L/ L
    RowBox[{"Xa", "=", 1 ~8 j$ ^) x$ t) o& s
      RowBox[{"{",
    $ f# V- \3 g$ s& i; Z; ~   RowBox[{
    $ i$ X! p/ L& w" n" z   "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7",
    # e6 J. p& l1 b% g+ o    ",", "x8", ",", "x9"}], "}"}]}]], "Input",
    " p# \- c4 N& R2 _+ h6 k CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
    2 @0 W$ S; X* B5 M4 L) K
    : R+ s- N4 J  X: |Cell[BoxData[$ c3 n% F0 W4 i9 Z5 x1 L
    RowBox[{"{",
    * X3 f8 r0 d# p  RowBox[{2 @8 I8 R1 z% E. R' j
      "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",& J: I9 ~6 R$ V6 Y
        "x8", ",", "x9"}], "}"}]], "Output",0 ^1 v% h4 A* B; k$ W$ z0 K
    CellChangeTimes->{
    - ?% @% e' d# K, ]  3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
    9 U: C/ z! N- Q' Z+ p0 O   3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
    8 Z$ B- P' T* v& t5 e   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9, 1 w3 s" K  C  m# i- O7 f
       3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9,
    5 w% L, L$ o2 \# P+ C1 p   3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {
    * Z* S) L2 y3 |1 ^7 M3 t2 t   3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9, 3 P! v2 N" p" x3 r7 I
       3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9}, 2 w$ P1 w) C1 E; e( r2 }, |
       3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {" ~0 ?$ E( m  _) |  D
       3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {7 D' K5 A  D% k: L/ }
       3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9, 4 u7 A7 r" n! h( M
       3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
    * N6 O% _' R; D7 e- z" M" r6 E   3.57801215725*^9}]
    0 f/ S0 r, C! k" {7 v' N+ L( K}, Open  ]],
    1 I; o( [: a( _- l" c" I* z9 \9 N2 |9 @1 ^9 K
    Cell[CellGroupData[{, u, z  r3 G, D- m

    # O9 V  T, S  a+ \0 hCell[BoxData[( X% Y$ a% q+ l) B" _& Y
    RowBox[{"Ca", "=", & v% o$ Z0 @+ a$ e$ U" F( E6 t
      RowBox[{"{",
    / o& c' G0 m! j: n4 J   RowBox[{
    / ]9 f# B4 k0 `, ]8 s# q   "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ' A5 b4 l4 H3 x7 D& J6 N  E
        ",", "c8", ",", "c9"}], "}"}]}]], "Input",7 ?% b. C  U' M
    CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],1 v$ @# q( b4 f$ i- h- ~2 b

    $ g8 y9 O+ Q, A4 {Cell[BoxData[2 ~  `: f! n, \4 \  b# h
    RowBox[{"{", 1 k% ~7 M2 d9 y, F  q6 ^- x
      RowBox[{- T9 m* |# |0 B2 n. w/ k
      "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
    & \+ i$ P( ]5 e5 B    "c8", ",", "c9"}], "}"}]], "Output",; R# R4 e# \% R7 D
    CellChangeTimes->{
    3 t$ y, I# p) O) t$ _5 Y) j& b  3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9, " x) y$ l# Q4 s2 ~4 T5 F" d
       3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
    . [# e3 S* ?0 }2 A0 h2 f/ o4 a: L   3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9,
    ( i* z* I, ?# |$ B   3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {$ `8 c2 `6 A2 J- H% E( Z0 p
       3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9, / _; ]  x- L9 u6 J8 e
       3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9},
    - H4 k, P1 M- _: |   3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
    8 ^7 {! `/ p. Q   3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9,
    ; E9 d& |% {% d# h; m4 M2 Z9 a$ f5 c   3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9}, + w' j2 F% `, P" A* O
       3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {4 J( k6 V- p. k# m. R
       3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,   y3 |4 w3 h& S/ ]  v
       3.577961904604212*^9}, 3.578012158671875*^9}]; @. A0 x% ?  }8 i2 m4 S
    }, Open  ]],
    ) e9 m3 F$ `1 S/ B; j
    8 k" Z8 {9 g' M8 T& H( O1 [6 JCell[BoxData[' q: O8 P# u0 @9 [7 q3 e
    RowBox[{"For", "[", * @1 d& n, n, _' W# H2 F! B9 `
      RowBox[{7 D2 g% Q% @3 \' i& t/ `, g. _
       RowBox[{"i", "=", "1"}], ",",
    " F5 k$ ?: t1 E4 _   RowBox[{"i", "\[LessEqual]", "9"}], ",",
    % \: J" l; H) c3 N5 K& l   RowBox[{"i", "++"}], ",",
    2 z& ^4 ]3 L3 D9 D! l( ^   RowBox[{2 y; S  }) {4 [3 n% n' |* I
        RowBox[{"Ca", "[",
    , R! i1 Y% n" B4 l+ u' X     RowBox[{"[", "i", "]"}], "]"}], "=",
    6 ?- @: }+ H$ ^6 ?) R. v8 r0 G* x2 H    RowBox[{"CM", "[",
    4 ]( y. K( X1 H7 j     RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",- a' z) h$ F, h0 O5 n
    CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9}, 7 u! i) w* x9 O
       3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9, % T2 x, u$ K+ B
       3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9, 2 e( b* G  ]0 W2 ?% c# }4 G
       3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9, ( X. M8 c. P  k* }. `
       3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9, ) O  q( k- ~' @) R6 I
       3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9, 2 R: B$ B' ]( @6 i& q% ?, h8 n6 W  s
       3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9, ! k6 @2 j7 q! G& e* j7 h* h6 @
       3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9, & U  c+ U0 ^3 I9 _$ w, G/ Y
       3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
    1 ?' o$ h1 y; y, p   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
    & q- |' |$ L4 i5 V5 a   3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {+ k9 y' f; z  x6 d3 B3 ^
       3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9,
    - h' g: m9 }' K/ r8 v   3.577961906897415*^9}, 3.578012176296875*^9}]," u" ~3 ^) s- B: u! b: v
    ; ~6 Y, V* D2 l: B6 k/ M
    Cell[CellGroupData[{. a. p3 f* J4 c% R( j% w

    " M% R3 t. I! m1 H/ f/ yCell[BoxData[9 M, T& z( g1 k( O2 p9 [  r5 i
    RowBox[{+ M1 V) ?! K1 s6 E
      RowBox[{"(", ' u4 I6 \% A- K  F! a, [
       RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    % H7 E  ?$ V2 w" @# s  RowBox[{"(", ! }$ _8 R2 Z: A& E
       RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],# r' O5 t3 O" D& I, v+ u
    ) I- N5 _1 k& ^( X* ?* N
    Cell[BoxData[, s, ?- u2 `5 f1 m
    RowBox[{! A/ W, ^( P0 d2 Y* |: X& d
      SuperscriptBox[! c# c$ L* m. ]& f9 Z
       RowBox[{"(", # a" K% m9 ^! z: d1 {1 L0 h
        RowBox[{
    * n- g* ^: y1 }# P4 G0 K/ C( p. m     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+", * t0 Y* {( ~( _% ~7 j2 ?$ z
      SuperscriptBox[7 q! C6 _% _8 W, k" x
       RowBox[{"(", 3 B" S; Q1 K. ^3 _" I
        RowBox[{; b7 }& @% _  c! \* T; I+ X! k
         RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",
    / P! Q$ q. P4 q$ |5 k4 s9 W  SuperscriptBox[
    % k. {1 V4 T; u   RowBox[{"(",
    2 x! I. M' t- h& ]% P    RowBox[{
    ' t. v; X6 H: o9 t  r( j     RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+", " f3 }2 X( M) A: y
      SuperscriptBox[
    * r) H8 ^' `  b- H/ \; i# P   RowBox[{"(",
    / R& l, P) b7 U    RowBox[{/ X7 O+ n. L. z8 L( ]* \
         RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",   B; ~* p& j; R& l9 d( Y
      SuperscriptBox[
    # ]1 ^  j: \/ g3 C1 o' _+ H3 K& v1 e   RowBox[{"(",
    # d7 u$ p* C' K  R8 j( p    RowBox[{
    4 [* o6 Y6 Z7 R- I% X     RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+", 8 q2 l0 y& A0 A8 a
      SuperscriptBox[
    4 O5 R/ @; p* n* p# ]   RowBox[{"(",
    8 a- g- r( ?& u1 b% X- O4 y5 k4 R    RowBox[{  c1 `% R6 h/ V9 |- {8 }0 i" g
         RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+", " J- e8 v' M' [; S' j2 C
      SuperscriptBox[. |% t0 [0 h" u% e( Y/ L
       RowBox[{"(", + U  X- s$ v. X( x" C( @* Q! `& N
        RowBox[{
    ; z+ u& Q5 F* \' W' O/ S' I; g     RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+",
    - c$ ~, ^5 L7 D  SuperscriptBox[1 f4 l. U6 h& v8 h' x) t! X
       RowBox[{"(", * Q' _& ?2 n9 v( B1 {0 {$ h
        RowBox[{- Y4 s% o, Z. U
         RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+",
    / U3 Z0 {( K2 F6 x: \  SuperscriptBox[
    5 ]$ e: W% ^5 M1 x1 D   RowBox[{"(",
    6 m$ m) n" r( l. N! Z9 z" k4 M6 t    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output"," [( [6 L; c- S# Y& u
    CellChangeTimes->{( A6 o8 B5 B' M# H) t+ d: V
      3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9},
    ' o4 a, h  Y7 X6 J% T( S2 H   3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9,
    + E% [0 q. _& Q) O; P9 t   3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9,
    : H& v$ ?& F4 @! U5 ]: w   3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9,
    * E7 g1 e% N; x$ w6 }3 {7 P% y! R   3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9},
    / s" `/ G$ w3 X% v   3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,
    , _% m2 S! y! x   3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {7 z$ k( V0 x$ _0 L
       3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
    # N% w5 t  Z$ E) ^/ g7 k5 f2 o   3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {
    6 m! }2 w3 Y4 U' G   3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {
    ; e8 Z2 _5 e# s* t  D   3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9, ( l8 h: {" R) U; B0 ^3 e
       3.5779618537169228`*^9}, {3.5779618846049767`*^9, : Z# O5 e6 C! {' z% Y2 y0 V- x
       3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]
    7 k& S5 r0 V7 n1 P2 O}, Open  ]],' c: H# S5 ]. [- @

    " ?  `; H3 N9 i8 q2 d1 J3 PCell[CellGroupData[{
    # V% z9 }+ d# e1 f- I7 b0 M( f' V* `6 B
    Cell[BoxData[
    - {4 g1 ^& N% s" ~ RowBox[{
    5 y) q+ f2 M7 A! ^- o# I  RowBox[{"Ca", "[",
    - s$ i- ]: F/ c/ e; n' @5 B   RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",& S: [5 a' {; e5 i6 Y& Q- r2 L: f
    CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
    $ a" _. x% `! v  3.5779616465173616`*^9}],/ f: n. ^8 W9 u
    8 F1 I  _$ ]0 P' R) m
    Cell[BoxData["0"], "Output",6 r& g; e9 F$ \; C/ y, _: O! h$ B
    CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
    5 N' e, l% ^1 ]+ I; j7 |9 h  3.5779616484049644`*^9}]& x" }1 {* E! I; u
    }, Open  ]],/ I* {: c6 ]8 s5 k( A% f
    8 T+ E6 J+ b5 y: @, H* O
    Cell[CellGroupData[{
    7 Q  j7 |5 L2 x9 m8 u4 ^
    2 T- _4 {4 c0 X. I' gCell[BoxData[
    % X5 e( [6 ]0 y" m RowBox[{9 `1 u, U4 \3 `2 f1 ~9 l, z& M$ }
      RowBox[{"Ca", "[", 4 }6 Z+ }9 E1 x$ M" N5 s
       RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",
    ' N9 E- E1 w5 {" j! R CellChangeTimes->{3.577957376235614*^9}],  t% \. ^+ P# a

    . o5 B& d* c; DCell[BoxData["0"], "Output",
    , s: i0 _1 e0 B# G" |1 L% t7 W: | CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]! y: N! I& I- G7 z: A5 H
    }, Open  ]],6 n6 k! e' S/ W! K( @! @6 m
    2 o" N  A. P7 p) k- g
    Cell[CellGroupData[{
    0 b0 ~: M0 X1 L# t* P
    0 X* ]# @# E% Q$ Z) ZCell[BoxData[, U+ r6 f% m; h- |4 B# q# b
    RowBox[{
    % u) o; v8 G, {& m/ y  RowBox[{"Ca", "[", 4 _1 k* X* o/ Z
       RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",/ F5 ~% F# ~: J4 D! J
    CellChangeTimes->{3.5779573112927003`*^9}]," {% u0 |$ `* y+ ?

    / a( u8 W8 V. U) m8 I9 d+ PCell[BoxData["0"], "Output",
    8 Z/ K$ o& z  S3 `6 u8 W0 m& k& k CellChangeTimes->{
    9 {0 L& u, d+ P1 }$ S8 K9 N. u  3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9, ) z7 x2 H0 l$ {0 s9 k
       3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
    2 e/ W. y  m$ f" W/ J+ s   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9}, ! Y5 A9 e) `$ N) P0 g/ I
       3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,
    ) ]7 D8 J1 n  c, _* B   3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9},
    ! ~" t0 R% k# k* ~1 {' y8 p0 R+ ]1 D   3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
    - _& e7 ]. S9 K' H6 D, [% N}, Open  ]],
    4 L$ c; S- b* ?5 c' Q; ~, R; g  y; e5 R* }; B
    Cell[CellGroupData[{
    - K$ E9 I- [/ T1 v7 Q
    3 }. j: g+ w( q4 \. W5 {Cell[BoxData[- P; t) b6 @& f
    RowBox[{' z% F  A, r0 d) o
      RowBox[{"Ca", "[", 0 r* ~4 l. v( m% o- {5 T2 z4 Q
       RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",( |0 _# o: c0 h) k
    CellChangeTimes->{3.577921461734375*^9}],
    ) y$ ?) u. S' x/ K8 n8 n# I/ v4 N0 |! O! Q
    Cell[BoxData["0"], "Output",( f5 s8 t$ J5 @* [: R0 I+ F
    CellChangeTimes->{3 f- f( a, z/ X( R( m6 t9 \& s
      3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9, , s) }: w: E2 R! D( E- K! T9 G
       3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
    ( \6 L' z0 P0 E   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
    4 H+ z7 L& T& K# w+ ]   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9, 2 S6 f- Y. d" q! ~
       3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]5 R- n- `1 r; I7 ?& M' r9 O! p
    }, Open  ]],
    $ f; p5 P4 O* w: _
    & k: m( }# z0 D& j4 {4 P0 Z' Q8 TCell[CellGroupData[{" \+ T1 l8 V/ a4 q
    / R7 l0 z9 M  `2 m( E- Q
    Cell[BoxData[
    # W1 I/ |0 Y5 Y9 l  i; |/ D RowBox[{4 p9 q/ Z5 M- r( v0 W
      RowBox[{"Ca", "[", - v! d0 D! {; {0 d6 g
       RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
    1 F: h; o3 K+ c0 G! [  ? CellChangeTimes->{3.577957303118286*^9}],6 ]/ L7 k% o7 c5 t5 U" W
    % g  y, J8 l8 b( E& i
    Cell[BoxData["0"], "Output",
    & t9 O0 o5 o& T CellChangeTimes->{7 f5 B- A+ g! ^3 V' f% H
      3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {# ?8 B1 f3 X" t) q! w# L, h
       3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
    ( o6 ^0 f* \+ G7 E( k   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
      u6 q( I& O- J5 V5 B$ S# ]% W) G$ T8 C   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,
    ( I, M" p* G8 ^& s1 z$ r: W   3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
    8 N5 \+ l3 f9 b  R$ }   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {8 p: z% w: G: u6 d8 ]6 F1 A
       3.577961889378585*^9, 3.577961912965826*^9}}]) G, M% f% J: |2 K5 @) U
    }, Open  ]],4 G/ y4 h: [8 c

    # e+ g/ w9 ~* R4 k2 @Cell[CellGroupData[{
    $ A5 A6 y; @9 D5 P& P. g# I2 h! ]3 d3 Q" ]
    Cell[BoxData[2 J- b+ f4 |" X  c+ F. M7 X
    RowBox[{. L% d5 q5 t3 l) i0 G
      RowBox[{"Ca", "[",
    % m) {! C; Q6 H* `9 l! M& k; }   RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",
    / q. d/ V5 B! @4 n CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {
    * @- [6 i" J' S- k+ |. I/ i8 \4 M  3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9, ' N! m! i+ Z4 Q% V% X
      3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {# @: T3 z" h- @% ]
      3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
    & y; D: N8 r; }7 T" T  D1 R  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {. ?# a9 H+ O& ~8 A6 U5 l
      3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9, 8 |. [& I* g. h) Q0 v
      3.577921435703125*^9}}],+ W; o0 ~6 ]3 q& C/ V; i4 [1 p
    ( {) C7 h9 V5 m
    Cell[BoxData["0"], "Output",7 t8 g/ \9 m- l
    CellChangeTimes->{# \+ G- N' Y; q' f7 \
      3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {- K! L+ ^- U" h8 {
       3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9, 3 L1 F# v# _2 X% }$ b$ ^$ f
       3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {. ?' \' U+ X5 ]3 w
       3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9, % e  g4 B5 h4 ~; n% \* R  e
       3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {2 A, S9 o) i6 h: c/ ^& n5 b8 c
       3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
    ( |9 {1 r. [# o* W, F& `   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
    5 x% Z, D6 b8 M" O, G" R* z1 t6 s, {2 }   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
    ) M* t. |. j9 Q' s/ u9 y. c2 r   3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
    . \, h7 g1 l% h" t8 R( P   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9, 3 ^: A  ^% f  D" h$ r
       3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {
    ! ~* \8 M0 M, V; B' O   3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9,
    % t/ v6 u( Y; _& M( ~3 S   3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]" H" `8 D0 x: o6 v7 n  r
    }, Open  ]],
    + E0 G, Y3 u. _* R7 ~, h+ I1 E) d, S2 q8 }3 v) M' K& J1 Z6 y; E
    Cell[CellGroupData[{! x% e! _  U! S& g' a4 V' q

    % x4 |3 N' j- v- F3 \4 tCell[BoxData[4 w4 {; n/ x/ P5 x( ~  u6 f% s
    RowBox[{"Delta1", "=",
    $ }) a& V* X, b" t: L, R2 O  RowBox[{/ c2 k- }" @0 v" F
       SubsuperscriptBox["\[Integral]",
    3 [; h- |; i& g    RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    & i3 {- k9 e9 m/ I/ H   RowBox[{
    % l, g/ S% T" [( x$ @: o    SubsuperscriptBox["\[Integral]", ( r! G8 |) o" i$ y$ L: T8 s7 c8 [
         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    1 h" V! s/ ~! }3 c    RowBox[{" o5 M6 e' I0 }; e: g  }
         SubsuperscriptBox["\[Integral]", ; L" \3 A* K/ D; N' n
          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],   Q2 m4 G! x  ?4 a. E
         RowBox[{
    0 _& z7 k9 x- ~' v# m      SubsuperscriptBox["\[Integral]", $ O! I! V$ M; v! q8 l
           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    ' G2 \5 I3 l" R8 v$ }  l      RowBox[{  o7 q: @% x' f9 ~; K9 n, W+ I( v
           SubsuperscriptBox["\[Integral]",
    ) O4 j  Z. d4 K4 c        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], : ^% q' f, B. H& r* U# d
           RowBox[{& ~9 R8 C9 R# i) G" b; S
            SubsuperscriptBox["\[Integral]", / \1 W2 J. W. A: w/ h. B8 y2 m
             RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    5 X: _: f  ^3 q; e& x) U        RowBox[{7 j  K: }" p% j% L
             SubsuperscriptBox["\[Integral]", . b! b, ^/ _3 x) i- p
              RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 1 D& e" O9 H+ P, W6 r% j/ V+ p
             RowBox[{0 E5 C* I: h  ^& F* C- T
              SubsuperscriptBox["\[Integral]", ) K/ _, \5 d) ^4 a/ M& Y& X+ ~- q: P
               RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    - m% t' D( G/ i# t9 N          RowBox[{
    5 Z* b: m( q+ I5 }- X, l, m( g           SubsuperscriptBox["\[Integral]",   p! }# V4 m! n9 L* c
                RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    - \# Q9 V  E3 N' ^+ \" H* D9 g           RowBox[{
    0 ~( u6 L- H$ s3 w& q* O8 E( A; _+ Z& }            RowBox[{"Exp", "[", 0 h4 X" |& C& G1 l+ o2 r: t7 M% m
                 RowBox[{
    0 t/ c& A  E2 ]4 L6 i; L; u) P( P              RowBox[{
    8 u: I& G  ~8 r" H6 G0 Z9 z4 r               RowBox[{"-", $ o% @+ ]0 }& P6 c1 L8 f
                    RowBox[{% U4 \6 a" |. f1 |
                     RowBox[{"(",
    . Y. y, k' k) B9 c  j7 q& U                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 4 X! X5 {. r: |. V! b
                     RowBox[{"(", : O: |: R# |: o1 l, T& \
                      RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", 0 s" ?( f) z, `6 z
                  "Delta"}], "]"}], + o; \8 f0 @& K4 v3 f9 V
                RowBox[{"\[DifferentialD]", "x1"}], 4 r, s9 K/ c. P+ F1 ~
                RowBox[{"\[DifferentialD]", "x2"}],
    7 E+ ^5 g& t2 M! k6 M% f            RowBox[{"\[DifferentialD]", "x3"}], : w7 }  s4 V2 ?+ }# W$ g; C
                RowBox[{"\[DifferentialD]", "x4"}],
    1 P" k  t  ^0 r+ T% l" X. E8 ~            RowBox[{"\[DifferentialD]", "x5"}],
    1 D2 s) u$ {2 S" V) Z$ {" J. d9 [1 {            RowBox[{"\[DifferentialD]", "x6"}], ' F# p7 C  N) Y! R% F* k6 f
                RowBox[{"\[DifferentialD]", "x7"}], 4 o. Y4 G: X; L; i/ r; ^
                RowBox[{"\[DifferentialD]", "x8"}], + }, [% i- j& w0 h2 r2 P) j3 Y/ C# ?3 I
                RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",! ^: S. `, j% A! |& u
    CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {$ N/ H' J+ ~; C# c+ F: @0 C
       3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9, % ^4 ~5 c. ~: T6 z3 P* Z* o1 V
       3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {" R* K8 s8 Y1 s% x
       3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
    & ~. C3 n, k$ K   3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {% \. O% b0 ^- L5 a* L2 P/ v3 E
       3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9, & Q, e  P& f  ~
       3.577918964453125*^9}}],
    $ s  F% ?$ @* W4 U. s3 U- x; Y, @- ~5 ?5 b" q
    Cell[BoxData[
    ) ]  E& W. h# a& A6 [ RowBox[{"97.40909103400237`", " ",
    ; U2 C/ o% k  I9 c  SuperscriptBox["Delta", "8"], " ", " Q9 U5 Q9 F- E1 ?
      RowBox[{"If", "[",   q2 l1 ]+ S; \: A: K9 |* y
       RowBox[{7 l+ ~6 R6 m1 B* u" n2 C& a
        RowBox[{. b1 N, V. H8 W* {. ]% Y) |
         RowBox[{"Re", "[",
    1 s1 t$ d8 ?3 Z( H      SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",", * q5 G$ S! p6 z# w; ^& S% \
        FractionBox[
    - g0 z* ^! f. M& C+ I3 _     RowBox[{"1.7724538509055159`", " ",
    1 ~7 Z* \- J) V' i) `# Z      SuperscriptBox["\[ExponentialE]",
    * q8 @( ^3 j: [: n. A6 ~       FractionBox["1.1102230246251565`*^-16", # U7 Q) m( N% I- r
            SuperscriptBox["Delta", "2"]]]}],
    3 K* f4 |& o& T9 }     SqrtBox[* o0 K/ e0 N6 b9 Q3 v: d; S
          FractionBox["1",
    & t# a* q) S$ r! z/ O8 u       SuperscriptBox["Delta", "2"]]]], ",",
    ) t& y" [5 q9 E. M- g    RowBox[{"Integrate", "[",
    6 x, X$ N* j; h' A     RowBox[{
    : x, P& E2 m: u: [      SuperscriptBox["\[ExponentialE]",
    " u) h8 \/ w1 j       FractionBox[
    # z* p$ t) ?: R        RowBox[{"1.1102230246251565`*^-16", "-", 6 M5 u, A% i' d
             RowBox[{"1.`", " ",
    3 b6 _* |4 U& U/ I. i. ?7 {# `          SuperscriptBox["x9", "2"]}]}], , T1 R8 [+ V4 S0 ^) ?5 P: q; K
            SuperscriptBox["Delta", "2"]]], ",", - l- A4 c8 @* W/ Z7 W0 E
          RowBox[{"{",
    ' W! j) x5 Q$ e1 ?- g       RowBox[{"x9", ",",
    # G/ a# A9 H3 M) G# F# o4 }        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", % [; ]7 [& S5 w
          RowBox[{"Assumptions", "\[Rule]", : I& }; m: O! z6 p4 t* f3 u* \) ^* }
           RowBox[{  U( j" E( }7 f( K
            RowBox[{"Re", "[",
    : {# m' `5 C! }4 Z/ r. G         SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}], 0 G; q, O' j5 a" c. a
         "]"}]}], "]"}]}]], "Output",9 P2 p1 I8 W" J8 ]
    CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9,
    3 I* V4 v( o3 p  3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
    ) F  O8 F/ l/ r6 W8 Z3 C  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,   u: o, s7 Q$ ?. _# G1 W6 @1 J
      3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9,
    $ Z1 S. j4 \% ?- i2 C5 s) T  3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9, 6 l; l2 I7 v" D0 l6 q0 F
      3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9, $ H$ W4 ?; C# ]5 @
      3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]
    1 m3 L. y' u% B/ D  K}, Open  ]],) g8 Q/ T, a, G  J6 {  W/ @

    4 @, C. P, @+ I  }Cell[CellGroupData[{7 @% R2 `& G/ F1 W+ z2 D

    - B0 m- x. j9 s4 o+ M4 fCell[BoxData[
    + g7 a5 G) H, o7 K( o RowBox[{"Delta1", "=",
    4 `: s0 D& v# k5 F% ]) m  StyleBox[2 \; l- I( k& ]% S% c) X4 F
       RowBox[{"97.40909103400237`", " ",
    7 U$ f# c+ I7 M5 s) W7 y! W    SuperscriptBox["Delta", "8"], "  ", ; u0 w" H* C. u& B, i" o
        FractionBox[
    : n) N4 P' g: Q, n" p( g     RowBox[{"1.7724538509055159`", " ", 0 Q- p; S( ]3 ?$ h( h' S! M
          SuperscriptBox["\[ExponentialE]", $ v$ U. A8 e3 W, {6 Z
           FractionBox["1.1102230246251565`*^-16", - ?" \4 f* S6 e+ m
            SuperscriptBox["Delta", "2"]]]}], . M6 y1 j2 Y" p0 _6 b' B6 O
         SqrtBox[
    # h7 C5 y+ h( M6 I      FractionBox["1",
    + A: ^' d9 A2 Z       SuperscriptBox["Delta", "2"]]]]}],
    % H" [' m+ V# k6 ~  A8 p   FontWeight->"Plain"]}]], "Input",' {/ m4 i8 j1 A4 Y5 a4 ]7 Q
    CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {
    . Q) `% {5 ~2 Q# {1 P" b   3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,   r3 Z8 I! E& u$ e4 r' v
       3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
    * F( A. j8 d( |2 a1 j8 m; z   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9, 2 f  O& w; w, ?* x- q2 l
       3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},
    & L( j5 g' S8 _3 A% `   3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],+ `+ `) q0 M; g, u

    6 s$ F  o* c# ~4 }Cell[BoxData[# b2 ^& z% f- A) X2 ?& _% o; T
    FractionBox[. n. ?1 d& H' m  R; }/ Y
      RowBox[{"172.65311851642346`", " ",
    ! ?, B/ A8 p" X. o   SuperscriptBox["Delta", "8"], " ",
    % ~# V5 U8 k# Q, b5 k- R   SuperscriptBox["\[ExponentialE]",
    * t4 E2 I' o: `2 j, J    FractionBox["1.1102230246251565`*^-16", 9 U! n- Q, o% Q9 n, i+ p
         SuperscriptBox["Delta", "2"]]]}], " F* L9 u& X9 C9 n) m! [; P
      SqrtBox[
    ; F) V0 L" ^% B1 b& o. w. d( y   FractionBox["1", 4 \  I4 z6 Z3 k3 z7 Z
        SuperscriptBox["Delta", "2"]]]]], "Output",3 ?2 Y! t" l4 A* d6 e
    CellChangeTimes->{
    6 f$ F1 ^$ A0 ]4 i  3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9, ( v6 a5 l. ~4 d
       3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
    0 m7 t  o% O& A. V: W( m* B   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9, * Q% }& n! C! \1 V/ T1 k1 K
       3.578012166234375*^9}]
    " `( D' N; d# W) t% ~- Y}, Open  ]],5 t$ b/ J+ P; n4 H  u; V: J' K

    , N( r; s+ J4 t; y# lCell[CellGroupData[{
    $ q" \$ `8 J7 D' w
    8 L' R/ W% J1 M" N8 E) rCell[BoxData[2 _+ I0 Q% Q8 h
    RowBox[{"DeltaX", "=", $ c' W8 {9 w+ N' ]
      RowBox[{"FindRoot", "[", & Z( C* {- C* M5 Y% f) w
       RowBox[{
    $ [& G- s- _% t* h5 l4 b9 d    RowBox[{"Delta1", "\[Equal]", "1"}], ",", ' v! R4 ?- _8 T$ Y
        RowBox[{"{", # k5 I6 x! H0 ~$ D5 V$ `
         RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input"," A4 T  [) a$ ~. i
    CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {+ {! M* `/ w; Q; n
       3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9, 0 B1 Q9 a; N7 B
       3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9, 2 @8 j5 e1 ^. h
       3.57791921584375*^9}}],# b# E# b* ^4 Q
    $ R+ @; u/ p' S8 d/ ]4 u
    Cell[BoxData[" r$ Q9 M/ g6 X- Y% L& L: b( d+ Q
    RowBox[{"{",
    . x+ \5 p9 p6 o$ q- \  RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
    " S* j0 A; G" ?, V/ [5 H' }* ` CellChangeTimes->{
    . g+ [" \' r& R7 l* v6 c) ~+ e5 P& W9 C  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
    ! |0 e  k2 t6 q( U) q' `   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9, 5 o1 ]7 ?. z% r: W0 |
       3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
    : l6 B" }# S2 b& g/ t/ }   3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
    $ A/ M9 M# c, N   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
    ! H- k9 D' ?! P  D* l# ~! w  d8 R! w   3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9,
    $ X  J( |+ m0 V& J# `) _9 |   3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
    ) [. S6 m( P$ f5 _* F   3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
    8 H9 N# k# j( _# _8 [& R+ d/ x. _# Q   3.57796070150625*^9, 3.578012167703125*^9}]
    $ _- w" g. n) w2 S}, Open  ]],$ R2 E$ f' _& g* d- P

    2 r+ \; o; y7 \. z: ^- I4 `2 |3 [Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\9 f2 I; d& E, t& C& Q
    \:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",% F! q4 h4 k. E; s5 @
    CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {4 Y5 O- s# X9 Y# j
      3.577960705312657*^9, 3.577960707621461*^9}}],
    , o& s: ~7 V8 V5 u% P. |
    8 N7 y5 I8 t& E' G$ y9 rCell[CellGroupData[{  ]2 I9 {7 x$ H) j" Y

    ) ]5 p5 e6 h! ]0 w1 v2 o/ RCell[BoxData[2 {' q  {6 Q3 |
    RowBox[{"C1", "=", "Ca"}]], "Input",
      F+ g1 p% V, d3 z CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],% `( J" P: {" D* Z- T
    6 c& @4 C" i# N6 W: n3 I3 m
    Cell[BoxData[5 J, e( e" x) i9 N
    RowBox[{"{", ) J6 M; X% B4 \" N
      RowBox[{
    - I/ |* o, E8 v. c& b3 K  "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", 1 {3 J4 Z# y. Q, w+ [0 B8 q
       "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",", * o( H6 A7 }2 {1 `" Z, L
       "0.`"}], "}"}]], "Output",
    9 ?1 _, l: A# t/ A8 i+ H. i CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9,
    2 B$ O: L  I2 k3 p0 m  3.577960710273465*^9, 3.5780121855*^9}]; k# U8 G! Q# q
    }, Open  ]],+ ?" [0 q- q4 T3 j7 D# A' u' ?
    2 i+ r6 K3 |8 e# S/ E3 A
    Cell[CellGroupData[{7 H1 `/ M) d% r

    8 O% w6 k. u5 A/ S/ {0 HCell[BoxData[9 ^4 U+ d' V9 [# ^
    RowBox[{"u1", "=", . ?; D. j# ]  R; Z& L$ F# I
      RowBox[{
    & S: d" b3 ^' |& _$ o7 S; d( z   RowBox[{"Exp", "[", 5 I$ ?( M' q, S
        RowBox[{( d& e8 ~( Y( {8 x' Q# b
         RowBox[{
    ! j6 e4 f4 ~+ W/ U& h1 O: X2 |# k      RowBox[{"-", - [  m5 ?/ m9 ~; u1 F0 }1 k
           RowBox[{
    4 X  Z  o4 y) \, F: b        RowBox[{"(", 8 v8 ]# {8 D1 Z( y
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", # L) B2 w0 C6 E) b
            RowBox[{"(",
      K5 M, a# f: W         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],6 y! [2 r8 @1 N4 R8 o, }
         "]"}], "/.", "DeltaX"}]}]], "Input",4 d" B, P0 ]3 R" w- J
    CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {/ m* M1 S5 \, D( g. W
       3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {. a. l" k$ C( W+ {, p
       3.577919193484375*^9, 3.5779192326875*^9}}],
    % y% ^+ q- W- |0 p3 e8 }; r  T& i0 s7 B
    Cell[BoxData[
    / I. W! @. G: ], t! a" N0 Q SuperscriptBox["\[ExponentialE]",
    + y9 l/ ^" }* h/ W/ h6 Q' V+ x  RowBox[{"3.141592653589793`", " ", 5 j8 F) N$ p. v( o" V. |
       RowBox[{"(",
    * f! ^3 p7 B; u: u+ f! H    RowBox[{$ x% }! Q- y0 j. |4 k) o
         RowBox[{"-", 7 k! S+ Z: l* \5 B! I
          SuperscriptBox[
    ; f/ {( O3 k1 h- e3 }  q6 _; g       RowBox[{"(", ' X+ e9 G$ W% U. a: I6 i
            RowBox[{- t5 p; V1 i! H0 ?7 I/ v1 r
             RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", $ }3 m! t' K( @3 y
         SuperscriptBox[7 f& ?, ~* [5 g& }8 D. p  n) N
          RowBox[{"(",
    & @  I6 x, t+ _, T  L2 ~       RowBox[{
    % M7 F  D% F% d2 p8 S1 I        RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", , i& N# V% N" k7 g
         SuperscriptBox[1 x# U' P* c4 {: J3 t% B# [9 }
          RowBox[{"(",   @( l! ~# x% {1 M# \0 Y
           RowBox[{
    ! o: w" k. o- \+ N        RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", 6 n7 @8 c' L) o4 z
         SuperscriptBox[8 S: b% [, |# V# T0 C
          RowBox[{"(", * ^6 M0 E. k& J
           RowBox[{  W. o" g3 q0 H
            RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
    . [9 T" \) B* f) ~     SuperscriptBox[8 |' o, n# e8 b; Q, m
          RowBox[{"(",
    1 V# |1 o; i+ z, ?# k3 ^       RowBox[{0 U# v/ G' x8 l' R" ]. |9 ~
            RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-", ; p5 U8 @7 I5 `( q# }
         SuperscriptBox[5 a* b# T/ X) m$ E( l% E
          RowBox[{"(", $ Y: X- v1 t( W
           RowBox[{+ d5 E2 m9 v2 l% Z1 {( j" e# [
            RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", % N7 K6 d4 a5 N4 e, e
         SuperscriptBox[
    7 z) |. t( y# s9 k5 f6 ~! q      RowBox[{"(", 7 r2 p& V' _3 m8 r2 P8 V
           RowBox[{& Y. @( A, S( J7 I3 t1 h9 W
            RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", $ \1 }! y# |" L
         SuperscriptBox[/ M; ?( w3 B0 K; {
          RowBox[{"(",
    * p0 H* N8 f3 k, p       RowBox[{5 C6 R: d! b# N; Z+ |! o
            RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
    $ o1 [5 S* O4 ^' P; N     SuperscriptBox[
    " @1 O- x" ?: i& [: d3 e- V- N      RowBox[{"(",
    0 k1 S7 i2 m$ M& v       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],   `. \1 M( Z+ z1 \
        ")"}]}]]], "Output",
    ' T$ G8 \) D0 s) W. s* Y' [ CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9, 7 f! p& `& R1 q# r; t
      3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9,
    + ]% ]! h* Z6 S) U  3.578012187078125*^9}]
    ! d0 F, [1 P  b  K8 {) N}, Open  ]],% B1 ?! f2 T: K# {& Q. }+ Q
    $ d, T4 K: ?! u7 a
    Cell[CellGroupData[{% B& p" g5 k$ |8 G) ~0 ~0 v

    , k  }) e/ G$ e* U; }Cell[BoxData[; c  B. o1 q7 i: b' q+ {
    RowBox[{"C2", "=", "Ca"}]], "Input",
    " h0 o0 f, P  ~5 H+ D/ H CellChangeTimes->{3.57792047321875*^9}],
    ( _3 _; r7 U+ Z% k& n- }6 R5 e" k9 }- S1 E
    Cell[BoxData[
    ( Y" Z  M' q, B RowBox[{"{", 2 i$ L2 L: \+ q4 R/ P6 ^% f" C; j/ E
      RowBox[{0 k1 F' T# |) Q, J& F9 ~
      "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",", 5 e5 i( H7 A2 f7 P. V/ L
       "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}], ' Z/ R1 ?' Y  P/ @* h
      "}"}]], "Output",. b# g4 O, N& D$ g8 k& [) v
    CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
    - r' e4 p4 I! }( @  3.5779607401163173`*^9, 3.578012204671875*^9}]" i! o0 `( m  ~% x
    }, Open  ]],
    8 `. I7 ]% n$ }+ d  b$ l. f6 [
    + E: {" L) l5 yCell[CellGroupData[{! E3 x, e9 l! Z# f
    ) G- d- S( [" P) {  {
    Cell[BoxData[
    , |& Q& \% |% P0 h" G% G+ s% O RowBox[{"u2", "=",
    5 K5 W& Z2 q% `) o" X' T  RowBox[{
    / K  \7 @! Z; ]# n2 V6 U   RowBox[{"Exp", "[", 5 m  Z0 Z1 F6 p; p: s" Q* |
        RowBox[{0 R" P. C6 k+ U; I
         RowBox[{2 I" J7 q0 F. o$ Y; @$ A
          RowBox[{"-",
    6 [& K1 ]% M# U) q4 H  I% C6 N       RowBox[{8 I- h* h  [; R* M; j$ K
            RowBox[{"(",
    $ O+ T7 F: u- W3 m8 k         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 7 I$ A) f9 Y0 [, f0 C" W: u
            RowBox[{"(", 1 z  Z$ m8 p/ @; @& U' ]" ]  [
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    # n( V* ]9 ~2 h! r5 }% s# F) }; `     "]"}], "/.", "DeltaX"}]}]], "Input",1 X+ a5 t. D6 F& W7 s7 ?: p" Z0 _
    CellChangeTimes->{3.577920484109375*^9}],
    ' c7 j5 {6 d  ~9 @" b0 O' P* K8 `$ R+ s& `$ [  R
    Cell[BoxData[/ X2 ]0 a3 J7 j. k+ |8 V* X
    SuperscriptBox["\[ExponentialE]", 7 a" z3 ^2 {% V2 |5 a, s
      RowBox[{"3.141592653589793`", " ", : ^2 j0 w) M. K
       RowBox[{"(",
    ! I3 G) u% l) R) }5 ~0 m    RowBox[{
    / p$ O( U1 K3 q  b     RowBox[{"-",
    , B2 A/ e# ^( z: T4 i, _      SuperscriptBox[
    : F5 `5 P- X. I       RowBox[{"(", ( J/ o# l. `8 X/ S' \" Y
            RowBox[{0 d. z' H8 I% z4 L
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", 0 v* ?% O2 X' R9 i2 H, A/ Z' ?
         SuperscriptBox[; m, l6 L7 _0 E1 X! M+ Q
          RowBox[{"(",
    . W  H- b1 ?+ Z* C       RowBox[{
    / n# ~" l6 N' S5 e$ m; ?        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-", % Q" n* N8 x+ s9 i0 i
         SuperscriptBox[+ N$ x8 A: S1 m& Y
          RowBox[{"(", $ _0 s5 `; T/ q' N; Z0 A
           RowBox[{
    * W6 a( _! ~  t+ }4 P4 ^# u% G* X        RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
    + D2 j6 p, z& O     SuperscriptBox[
    * F0 `7 S/ c! i8 g% H3 Y      RowBox[{"(",
    + s# k6 P' C% z8 W" U       RowBox[{/ `/ A* g" a9 A5 ^: v
            RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-", # T+ c1 G! W8 R; H6 T6 |
         SuperscriptBox[5 b1 f8 y9 {, r4 q% j
          RowBox[{"(", ' s9 p' z" a0 T; x% g; b! |* s
           RowBox[{3 c# [6 i- {' J6 n
            RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", 8 j8 M7 y) G  Y
         SuperscriptBox[
    2 o9 C- A# Y5 G6 e      RowBox[{"(", 5 u5 c6 b  Q% W
           RowBox[{
    & A4 h9 B5 @9 _) H7 ]        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", $ L/ l4 W) ]4 t  V. W" j; r+ Z
         SuperscriptBox[
    " o- s+ e$ k$ @. h      RowBox[{"(",
    2 a( x# k1 \! u) a6 b7 D! l# T       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 6 g/ H8 c' x7 u8 b
         SuperscriptBox[
    5 m8 T" B) ?% p, B# U: x. a& z) w      RowBox[{"(",
    ( w) |! I* ~) ^. R0 M5 W) p       RowBox[{( i  F' M" g' u' k3 \6 v- U2 z  V
            RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", ( l0 o+ D8 s, e% v9 U
         SuperscriptBox[
    ) x6 T2 L+ }* p- Y: e" \      RowBox[{"(",
    1 m& i! S1 z% b8 w8 d" w       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    5 P2 D% }/ G9 ^; m* g& j    ")"}]}]]], "Output",, F! D7 B5 Z3 `) t8 G  X+ b
    CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
    * }4 a" c5 P3 J  3.5779607413955193`*^9, 3.578012205484375*^9}]" x. M/ X( C7 r1 l$ f4 i. c
    }, Open  ]],
    # p5 q0 q0 s! ^+ H$ m
    ! I: R& g. U+ p. iCell[CellGroupData[{( @; H& p4 {6 U+ B

    ! \7 K2 ^9 y7 u& q3 eCell[BoxData[
    8 R& z& p& N7 ?0 E7 s$ o RowBox[{"C3", "=", "Ca"}]], "Input",* J) D; E6 o1 E: u! P' ^8 |
    CellChangeTimes->{3.57792064125*^9}],
    % ~  h2 c8 z" P' Z. Y5 `( n5 H0 w% U/ i+ |# n
    Cell[BoxData[3 [3 ?: u; E8 _2 Y
    RowBox[{"{", " y8 ^. e8 R. F0 @' a4 _
      RowBox[{8 f; B% n- c! W* x
      "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
    $ y+ P" T) m; L* V0 [* A4 v* P. z   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
    . F: N8 I, y0 G" V$ D  "}"}]], "Output",
    3 g/ g  g5 N5 v. Z0 n CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
    7 g: B) ]: O6 H# s" m" e3 O' h  3.5779607642027593`*^9, 3.5780122103125*^9}]& |, z1 F7 `7 A7 F  l
    }, Open  ]],
    ) {& N1 B0 O6 L: z" X. U  Q' G! u; g$ d" k$ N
    Cell[CellGroupData[{; y2 q2 w- I7 v% N  R

    ; g6 Y  u1 W0 w, S5 aCell[BoxData[" @( h; o" m+ a" }5 f- S
    RowBox[{"u3", "=", 0 j( k9 m* K" d
      RowBox[{# J  o1 w# I- r" {2 h
       RowBox[{"Exp", "[",
    : u% g$ k$ o0 G9 b9 ^+ P4 W    RowBox[{
    ! ^( R/ S( @2 U     RowBox[{, ~. q8 i/ o7 Y' k% x
          RowBox[{"-", 3 x0 A/ T" H7 B0 ^! R7 k, J8 L
           RowBox[{
    0 R2 a! y' L7 c/ d! j        RowBox[{"(", * D$ E3 l$ O3 i- e, x
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    1 Q0 M  z8 d; X' ~4 _- q        RowBox[{"(", ' M0 Q8 z( _, [2 K# [1 q
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],4 v, Z4 Q5 ~) T" p5 h4 {7 W- F
         "]"}], "/.", "DeltaX"}]}]], "Input",
    7 L9 c' H# u9 i CellChangeTimes->{3.57792064921875*^9}],
    ) q- d! \6 S" {5 l* H% D; @$ Y
    : ?3 N5 o0 B4 N# O+ {Cell[BoxData[" z7 f. E8 J' K8 Z# o6 U
    SuperscriptBox["\[ExponentialE]",
    + e( n. y) x- e9 W" G" ^7 N  RowBox[{"3.141592653589793`", " ",   U* n* K, Z' [" h- k
       RowBox[{"(", 5 T4 i, w9 L7 [: @" D0 e+ ?
        RowBox[{
    : t: {8 m* D: p% W+ F& r/ j/ {5 o  i     RowBox[{"-", ; O0 w9 b" g5 o- Q8 |3 R
          SuperscriptBox[1 c" r5 s9 M  L
           RowBox[{"(", 0 V7 h* n  k  m$ j/ I; p3 @
            RowBox[{
    5 N& x! P) l2 J4 u% m         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", & h  ^5 p2 i4 m- x, a2 G$ J6 V
         SuperscriptBox[
    1 Z: J: |9 ]7 d  L7 q& }# Z: n" H9 U      RowBox[{"(", 9 c/ B1 ~; T6 }3 p2 L2 Z
           RowBox[{
    / N+ }4 ]& I: h3 g. ]. T9 ]% L( m' N% A- E        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-", ) I# J9 U9 K: n, u0 P. ~$ }8 j+ {
         SuperscriptBox[
    2 }0 }4 k) e& n5 A: m      RowBox[{"(", & H( B: P! d9 H) `9 F/ [
           RowBox[{' H2 g, d+ N! G8 }: I3 x5 Z- C/ v" J& {
            RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
    . z4 O7 ^0 y) Y& @( z& Y3 ]0 L/ z7 h     SuperscriptBox[9 M6 |, q- Z: z: d! t
          RowBox[{"(", ' a, F: j( j4 S: G
           RowBox[{
    & E& _& E$ Z6 N2 z( j) v" R" V% R        RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
    ! T0 @0 y. M' y( Q     SuperscriptBox[
    7 n# n% o3 L4 f' f6 v      RowBox[{"(", + T, _4 C6 J) o
           RowBox[{
    $ _' p1 z. H4 b1 ^& {; `& _) X        RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
    . g8 l' f) u. |( y, B1 X+ l     SuperscriptBox[
    8 g  \- u) f4 l      RowBox[{"(", - @2 E2 g0 B4 k/ E+ h* S4 x& t
           RowBox[{" w5 t/ Y3 w( ]$ N8 a
            RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", ) S9 D* }/ [- ]( _8 q" d9 z3 M
         SuperscriptBox[
    1 r% w( C7 o! b  h& _* B5 S      RowBox[{"(", 3 C) w$ e$ T3 g7 d1 I& A
           RowBox[{4 v/ s* y8 K8 N
            RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
    - I2 v& {* V4 w& N; A$ [  c* Y2 D     SuperscriptBox[7 W8 j4 H0 \% t, k
          RowBox[{"(",
    % g! P6 m- K8 Q% ~; M5 r3 Y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",   ^0 q7 V# u. |6 V
         SuperscriptBox[" ~' W5 [; z! q0 t: N$ }
          RowBox[{"(",
    ; }: b  `2 r5 R  ?       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], / {0 ^1 m5 N! q1 }. h" r& w
        ")"}]}]]], "Output",
    ; o8 w2 L  Z% E  Y. q% P+ K8 A  ^ CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
    & R8 D3 Q3 d- x# A  3.5779607654819613`*^9, 3.578012211515625*^9}]
    & @" a: y; m9 I* |}, Open  ]],* \& `( }& [1 A  M: m6 H

    7 c5 w/ F- }; Z% HCell[CellGroupData[{
    - i* G$ j4 m* Z0 T
    " G5 r% @, [2 BCell[BoxData[
    # K4 o. ]" M! ]8 V# M1 t RowBox[{"C4", "=", "Ca"}]], "Input",
    % d* v; q3 Z2 A% v. T CellChangeTimes->{3.5779207559375*^9}],( S) r+ d$ U& o. n" ?& ~- a

    6 ?$ z: z$ l! ]2 }! _Cell[BoxData[
    6 C0 j3 o. K! s7 d) H) v4 ^, O RowBox[{"{", : z" s- \# \! W" N
      RowBox[{
    + R% s% f; ]& K) J' U  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",", + F4 c+ z& {# P" m. c
       "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], 7 X9 i  m5 E; l5 X
      "}"}]], "Output",% Y, ]/ [, }' y
    CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
    * G- C) m2 U- m/ f4 y6 t: o6 h6 t  3.5779607861363974`*^9, 3.578012216171875*^9}]
    7 B" W, j; ?, V3 v  N}, Open  ]],
    / S, r3 N9 V( H% I( i
    $ C& s! \3 E9 JCell[CellGroupData[{
    2 [  H. m& A1 O5 U1 J+ |
    0 R" B* @9 U0 m, K) s  OCell[BoxData[
    . X! Z8 k5 @" g/ e) X RowBox[{"u4", "=",
    ( b9 Z. c, }7 }& {$ P  RowBox[{
    9 N6 T- C5 w0 }" X   RowBox[{"Exp", "[",
    + Q6 }2 V) _. F$ a9 T. d    RowBox[{  b- r. ?, v: H$ n, W% |
         RowBox[{7 o& Z6 W1 V. s( G! I. c
          RowBox[{"-",
    6 s$ X1 z. [! G9 H       RowBox[{; w" C7 `0 o+ a
            RowBox[{"(", 5 s) Q  f1 `/ N
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    + f2 Z; I# z, z& u        RowBox[{"(", # L( t6 R: C& O/ `, o6 M9 {2 {& l
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ' p: T6 Q( F- z( T3 e- }9 ~     "]"}], "/.", "DeltaX"}]}]], "Input",
    8 n8 M: t0 W( x CellChangeTimes->{3.57792076325*^9}],) T/ d# f. I# U' H0 Z4 f
    , e% d6 o8 W- b7 b
    Cell[BoxData[
    " h7 N" ]. K+ a: u( X! P7 `( G SuperscriptBox["\[ExponentialE]",
    $ J1 I& [  n+ {8 p9 g& f* A1 P6 M  RowBox[{"3.141592653589793`", " ",
    : @! d  [. ^1 O# ?) l# i) r! ]   RowBox[{"(",
    ; s# O7 K7 q4 |" G" P    RowBox[{% G9 E. i. j' I7 O! B% O3 s/ V
         RowBox[{"-",
    ( `" {2 t* J5 }6 ^7 w, d! }      SuperscriptBox[
    7 i- s7 Q, w; a. Z$ n/ i       RowBox[{"(", 0 i' U/ C" z5 A1 t
            RowBox[{
    2 S  U/ G: n9 {+ U         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", ; S& W$ a, J9 o' t
         SuperscriptBox[3 Z( m& {8 r3 P7 A6 G+ J! e
          RowBox[{"(", : A% Q0 g& Q/ e6 W9 B
           RowBox[{5 K; i# H: A5 y! c& O  |
            RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
    - O0 T0 @( h7 V3 R     SuperscriptBox[
    0 h+ c0 u$ Q( ^" x2 d! H; |3 T      RowBox[{"(",
    6 P1 `! V: b* @9 g5 H8 N/ ^       RowBox[{
    - p7 C8 b; Y( J( e9 C. N! j        RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
    ' R! D% a$ J' T+ n( s9 w     SuperscriptBox[' H0 B/ C) ^3 c: Q
          RowBox[{"(",
    , r% [* U' `/ [1 o# [       RowBox[{
    / _5 ^. d+ V/ m% z" L: Y        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", 4 A. }+ P0 M* P; n4 T
         SuperscriptBox[
    , n$ c; j' k- C0 ?- G  |$ c- m      RowBox[{"(",
    % |& {4 d. g( R/ D7 x# Q. X       RowBox[{* [' V0 z) d2 `$ C% \! y
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", 1 s/ U$ y5 d, v$ H
         SuperscriptBox[
    9 c7 X( e3 j% V6 [      RowBox[{"(",
    3 B" ]2 c# {0 D, \% M2 `       RowBox[{; z  h* _* I7 G$ I& W& }/ t
            RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
    * a9 g* J* {! G  y, l0 U0 B  w     SuperscriptBox[
    1 Y* R7 h  Y. c4 c2 z/ c0 d      RowBox[{"(", ; Y1 U& f! ~: S/ J
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ' f+ x8 |& ?2 t; L  d; L
         SuperscriptBox[( y& A) c3 e2 L0 g
          RowBox[{"(",
    8 f. u5 Q0 {+ N# y* [; j       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    / \0 b1 Z, W! j1 ?) G1 b" u     SuperscriptBox[' w/ |5 p: w6 E2 X. b8 R4 u
          RowBox[{"(",
    3 G; W+ Y4 @% Q. p  j4 Q& h7 ]       RowBox[{
    ! v4 E1 r$ _4 c9 N$ S9 S! `        RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}],
    $ L$ o% K" Z& H+ V7 s: a# L    ")"}]}]]], "Output",* w; G. ?) N9 T; S) q
    CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,
    : q) I7 ~9 {, ~1 [  3.5779607873531995`*^9, 3.5780122169375*^9}]: T% o: |2 m, c! v# \0 b; }0 x
    }, Open  ]],2 m  J; r8 x! G3 S1 N4 J
    " \/ a3 }' W# H
    Cell[CellGroupData[{
    % z9 L8 @0 L7 Y; z4 W& E4 @% Z) ]& l- _& g; ~' M) b* K$ f
    Cell[BoxData[0 F! u+ T4 M2 k. s8 ?3 ?  m5 u
    RowBox[{"C5", "=", "Ca"}]], "Input",, i' \# M8 z, F* j& V
    CellChangeTimes->{3.577920860671875*^9}],& f% g6 G, G0 C8 N8 `
    - G' \" A( n1 ?+ p. C
    Cell[BoxData[! m# ^) i) g% r
    RowBox[{"{",
    6 O" y) E0 o: A" n' U1 u' t' L  RowBox[{
    # x! t) }# v( A, b+ S  "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
    * H# V2 I; A; x3 j9 t   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],
    , h- m4 F% n3 Y  "}"}]], "Output",
    ) }' F3 W, P+ T; ~ CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
    ) T( l7 X4 @1 `  3.5779608137328453`*^9, 3.5780122209375*^9}]
    6 ^8 W5 ]2 f2 p- T) c}, Open  ]],
    / m; _  G) M# b  |" j) ~
    : ~4 b5 W4 @% n/ W6 O3 A* ECell[CellGroupData[{* q+ c& O8 V1 i& J* o8 t# i1 x
    ' K! a% j+ V8 V$ {
    Cell[BoxData[
    / W5 X; q+ R) N  j2 {8 b RowBox[{"u5", "=",
    ! P, C) ^9 t+ A2 h6 d& n  RowBox[{
    ; K' j* C* u+ _; s9 M9 ?- u   RowBox[{"Exp", "[", 6 s' ~6 d1 Z6 `  R, i
        RowBox[{
    * H5 h7 [. I  `& _" a     RowBox[{( V  p3 G# T% O: J, y- W
          RowBox[{"-",
    2 ]3 D' ^% U% j       RowBox[{/ l1 W9 o  X3 u5 R. d
            RowBox[{"(",
    3 \" t  l9 p8 S+ M# l+ |7 |         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", . _$ B9 P1 p, W5 a0 e
            RowBox[{"(",
    , V1 O' z5 @' X# a" m  s' c         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    8 J$ B; b/ W5 X% }+ M: R% `: q     "]"}], "/.", "DeltaX"}]}]], "Input",0 H" Y# N3 _7 g, ?$ i6 k; S
    CellChangeTimes->{3.577920869375*^9}],: ?2 Z" t1 {! f) D6 p, c9 W, T

    3 S; z! T  M7 CCell[BoxData[& V9 k6 V, ?: x/ {7 T
    SuperscriptBox["\[ExponentialE]",
    2 e. c! y: h; ^5 p# V  RowBox[{"3.141592653589793`", " ",
      f+ W9 q& j3 h2 J8 Y3 P   RowBox[{"(",
    , Z$ m) W# o+ O; K7 K/ Z7 Z) @1 x    RowBox[{3 O9 k2 P% U! n6 `
         RowBox[{"-", 3 `- S9 J  l9 p# i# g7 G7 s
          SuperscriptBox[
      q1 G# a! n; X; Z7 M4 j" A       RowBox[{"(",
    - T+ k+ _3 v0 k; E        RowBox[{
    % I. O( J- {" f. [( ?; s! C         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    0 A, d1 V4 A" p# X* I# s$ s) L. j     SuperscriptBox[
    % D. E( ~" m! {) o      RowBox[{"(", 1 B" @" N  s6 b, U3 o
           RowBox[{
    ; v4 C% @% L! f2 A0 w2 V8 U        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
    4 Q( J; |% p& k: G5 A3 e     SuperscriptBox[
    2 l1 b7 k2 d0 q. j! ~0 D" L* Q! @: G      RowBox[{"(",
    ( {# S& @- d6 Q& J0 W       RowBox[{7 W5 ~# F8 u4 I3 f6 B* Y
            RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", 1 J. q" m1 \- m/ @6 O" q! e) q: a
         SuperscriptBox[
      k* l! O" x6 O# W. a7 W      RowBox[{"(", 3 z; J  Z/ a1 h9 E% _3 {  z
           RowBox[{# y' h/ i, _* ?$ K# O# @8 E/ W
            RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
    3 r9 M% A6 K5 g  [0 Z     SuperscriptBox[; q1 K0 U7 |* B0 |7 E# w
          RowBox[{"(",
    ; u+ u; d3 D* ^" [" I3 h       RowBox[{
    0 {# y7 o' c+ X9 B! Q% U1 Q        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
    2 l+ S# Q# e7 Y6 d! j3 Q5 h     SuperscriptBox[. W; K' D; c9 X- V
          RowBox[{"(", 5 K7 i0 o) W, r' K
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    0 \9 w9 A! W3 `     SuperscriptBox[3 [5 S  X4 I6 A  \( ^
          RowBox[{"(",
    / V# g) [) Z( u1 g4 ?0 z! o       RowBox[{
    * s  w/ _; l+ r0 n        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    7 Z* y/ ]1 R# c0 D+ q     SuperscriptBox[
    3 x7 ~% x. T9 O5 M! ]      RowBox[{"(", ) u: ~6 }0 K/ q+ t" U
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ! u9 W" f. R; J2 h) Z2 H- {" f* x     SuperscriptBox[! Y9 S+ O9 g, @6 F
          RowBox[{"(",
      i2 e! B" Z7 I4 i+ {" `( l       RowBox[{
    % n. V$ Y& U7 H# f& G        RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
    $ e" Z& ]+ [7 D2 N    ")"}]}]]], "Output",
    ' i7 f1 x% f0 I! [0 P4 q CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9, 1 E2 x* @! |2 v7 o/ O1 E
      3.577960815043248*^9, 3.578012221953125*^9}]! t0 g, A/ ?) `+ v/ h- R& Y
    }, Open  ]],
    - C" F) S8 c3 S# V/ q6 j) U9 a7 Z- Q) c  T, e
    Cell[CellGroupData[{1 W' W6 P: n4 E; r+ l" j6 k: t0 s

    " u8 G1 V( `2 b+ kCell[BoxData[. X! a" J/ `. B/ ]9 G6 i
    RowBox[{"C6", "=", "Ca"}]], "Input",
    8 Z4 {3 r1 N* y8 w" u+ u CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],$ @( s$ v/ K5 \

    : Z5 w8 O6 B6 r0 Q' MCell[BoxData[
    * u- ~( Y9 K0 [5 K" ?' q0 n5 i RowBox[{"{", 0 R( [4 n" A# E
      RowBox[{
    # l4 g# _8 m3 d& x8 o2 G1 g1 o5 p  "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
    8 T3 e. ~' D  R; p6 g, Z/ ?# m   "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
    9 Z$ w$ ?# l7 V   "0.494866`"}], "}"}]], "Output",- ~7 _6 h7 d" q3 B7 z& W0 x
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,4 l& |& T1 H  }, [
       3.5779608373044868`*^9, 3.578012227359375*^9}]
    / N2 B2 K( Q9 o- P9 u}, Open  ]],9 c1 ]& M' n4 J% H

    9 T0 U/ \8 }- _Cell[CellGroupData[{
    ! `% \. E, u4 d; Q' m- z3 q4 O7 Z) s+ E3 p: j
    Cell[BoxData[; _" H; }; M3 Y3 g5 m8 Q$ S
    RowBox[{"u6", "=",
    ' s8 I$ W% Z( Y- ?( ^# ]! E/ _6 V  RowBox[{
    4 i# g( K) M% p   RowBox[{"Exp", "[",
    , D0 w: J8 ?" k6 {  h$ @    RowBox[{0 S4 |( B$ J; m
         RowBox[{& h. k  R+ w. W; M5 X
          RowBox[{"-",
    - P* h6 w* @4 d" Q- U- H: W2 t9 r+ R! Y       RowBox[{7 W( C: \2 B: [# @% x9 y
            RowBox[{"(",
    7 L4 D/ e5 g3 C% X9 B         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", * q% f9 L( h& Z& \4 K
            RowBox[{"(", * e* ]! o5 r) O# p; s
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],- L$ I+ [: w# r4 a
         "]"}], "/.", "DeltaX"}]}]], "Input",
    + J' `% W6 m+ l  x* Z CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],( O# G1 \! D3 ~5 P

    3 t8 x) n4 \3 C( D  SCell[BoxData[4 D3 ?( ?* |1 y
    SuperscriptBox["\[ExponentialE]", # }; B7 Y& k9 B" c( P
      RowBox[{"3.141592653589793`", " ", ! O1 j) _% L3 ?* f4 X8 S+ n- H
       RowBox[{"(",
    ' L8 h  {4 J7 [! R2 h8 ^7 d* V    RowBox[{
    , M5 _- O4 R* m( j8 c7 T     RowBox[{"-",
    * }. Y/ w8 O. {( F+ u  d% H+ k9 P% P      SuperscriptBox[) o/ i( A2 e; C
           RowBox[{"(",
    : b8 r) B, G- R5 z# `- t        RowBox[{) J9 F$ X' s) ~5 Z) I
             RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-", 3 X! z5 H; ^% F0 U3 ^
         SuperscriptBox[
    2 \% n9 G, Z2 s0 Y, H      RowBox[{"(", # E* e& J2 D0 A! G7 v, t4 h
           RowBox[{8 h' X0 C3 O, H- V3 i- x; Z
            RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
    ; q; P9 ~6 s9 `" l# ?, \( T* z     SuperscriptBox[: x# z6 Y9 J  `
          RowBox[{"(",
    - j- ~$ r5 }- p4 J! u, p# ^       RowBox[{" H; n* ^! g9 |$ x5 z
            RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", - O% H8 k. m$ T' x6 _6 q8 }" t- D
         SuperscriptBox[# h* u( K4 g. [0 J/ h
          RowBox[{"(",
    : `( |4 S4 S& r  b1 x& z; ^       RowBox[{( Q9 t# L  q( A+ o: Y% \
            RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
    : l$ ]- Y& E0 ]& e0 O% {; j     SuperscriptBox[1 Z' |8 X/ {5 w
          RowBox[{"(", / @' M6 g! ?% o! G& A
           RowBox[{1 P/ y8 l! i& q8 B0 [: @6 ~
            RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-", ; w& I  p5 x5 k4 G, R
         SuperscriptBox[: G& B& Z1 p7 X+ K% H
          RowBox[{"(",
    - V6 y# f8 I* S: W! _& a       RowBox[{( v$ C2 N5 N* d$ n6 n. S
            RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", / \5 \0 y" A" C& |( C# s( j
         SuperscriptBox[8 ?5 k" e) @0 ~) L; P2 X
          RowBox[{"(",
    7 N6 j& B# k  E3 f       RowBox[{
    6 y7 j8 ^( e. @* I5 d        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
    1 C! g% x6 m/ {1 F% q     SuperscriptBox[
    ) G# _/ j5 }! ]* X1 J6 p* U4 X- }      RowBox[{"(", . M! I$ P- l8 r* X, K$ L, f
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ) W! C3 H2 u9 a8 n     SuperscriptBox[+ s7 X( f( ?7 i( V
          RowBox[{"(", $ {2 E+ A8 K3 D9 v1 R! {. L4 J
           RowBox[{$ {2 q- E& E+ s+ D% t6 R
            RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], 2 e% Z" C  ~6 H$ }4 a" i0 y
        ")"}]}]]], "Output",
    & m  z' C! R. D CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, 3 T" x9 b( k# p
      3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]* e0 j1 @6 {' @4 o6 f- \
    }, Open  ]],
    3 v8 C" G8 C( _1 B+ {5 ^+ s
    4 r$ u, G- k  g, LCell[CellGroupData[{
    , O( z. N( w- N) t0 c+ ^/ z; Z8 o# N; t1 y
    Cell[BoxData[& Q& i9 x" X7 C/ p; ~7 |
    RowBox[{"C7", "=", "Ca"}]], "Input",3 J( ^* w) K) w% P) N
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    - `3 ~' a6 v  W+ x/ Y' n, A6 H  E  3.577921316125*^9}],4 z6 }0 T0 z$ R8 d4 I) @
    * f: l3 _/ s( p& {
    Cell[BoxData[# i! {+ F# s2 Y
    RowBox[{"{", ' ^( U$ R6 i  j- s' F. r* u8 J
      RowBox[{
    1 F& n- c5 D% y7 _9 O  "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
    # \4 y0 f, t1 L" y. \  u, |7 ]   "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}], 0 C$ l7 L1 i7 _" H
      "}"}]], "Output",7 T, H5 o6 E8 {. V% e& j1 F9 z
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    5 j3 h6 s! C) K  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}], T, B$ Z! a; M6 J
    }, Open  ]],% e3 K5 ^7 `; D4 V; f

    . w& Z/ K" w5 I1 ^. p7 KCell[CellGroupData[{& g* Z9 C1 s5 e) P
    ! g5 \. C1 r3 c
    Cell[BoxData[
    4 P( |1 v( m8 Z! \/ i RowBox[{"u7", "=",
    1 f) W' L3 n+ p# O7 V  RowBox[{% ]6 W; Q% Q4 Z9 [+ {5 U% b& A+ |# ]6 k
       RowBox[{"Exp", "[",
    ( ?+ a9 n6 s' n  `" q3 o; V. ^    RowBox[{) Q' @: r, {+ _
         RowBox[{
    4 {% G7 m9 P' U! i1 N  b+ N. J      RowBox[{"-",
    % O! L0 C1 A9 p; c       RowBox[{
    8 Y, j  L$ C6 d        RowBox[{"(",
    / _4 c' {9 W) [         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", : O' D4 B# A1 P5 L
            RowBox[{"(", + B+ y+ c2 Q2 L2 {4 l
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],5 d+ f4 U/ u+ M' n2 T$ Z
         "]"}], "/.", "DeltaX"}]}]], "Input",( d8 A4 s' ~/ x/ }' ~: [6 }
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    + Y8 [0 i; B8 e2 d  3.57792132028125*^9}],) d5 [% ~- o6 {# I8 `1 X9 A0 v
    5 h+ W! `( H8 O; v: l
    Cell[BoxData[
    " {* P) B: T7 W2 ?* r# l9 Z SuperscriptBox["\[ExponentialE]",
    : w! o0 V# ?- ^9 v3 L3 M  RowBox[{"3.141592653589793`", " ", 3 B7 T$ P/ v) I
       RowBox[{"(",
    $ `2 v9 ?& @1 w4 [3 Q# W    RowBox[{( A$ J$ K% I/ b/ C! _
         RowBox[{"-",
    # h7 D: B6 l% n$ P# L      SuperscriptBox[1 e0 g" n  K) e0 b3 c) x( ]
           RowBox[{"(",
    & C" z) h' a, ^/ d; A) ~        RowBox[{9 C# c. I; m" K/ s! q: h: i( P5 s
             RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
    5 }% G) \8 D( k( O- [* p! [2 k  a     SuperscriptBox[! c/ O2 F. A9 C* T
          RowBox[{"(",
    2 t0 W; g) c+ W1 v2 ~% s       RowBox[{
    3 a- {8 D& k7 o        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", % K7 F5 \" S- p, F; D, b0 z. E
         SuperscriptBox[% V/ D4 G) A/ F' ?9 j7 t
          RowBox[{"(", 9 ]) _9 M, e+ Y! A
           RowBox[{+ l6 O  T- n- t( E, p2 ?3 C# s
            RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", ! u# |# r6 m* H1 ^% J
         SuperscriptBox[$ D  B* w4 _. M# Z0 F6 k/ r; H: J
          RowBox[{"(",
    2 ^8 J, O) a  f       RowBox[{
    ) k* Z% D; X: j' I1 ^  H! `( M        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
    ) M9 f+ M9 j+ n# ^$ {     SuperscriptBox[
    ) y' |* R# j2 f8 {      RowBox[{"(",
    + s5 v: r6 o& @/ i9 Y" o6 A) B7 u       RowBox[{9 s+ o4 x% W6 a+ r/ n0 b' _' L
            RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
    ! F: L: Y! r( q* S/ f( e     SuperscriptBox[" i3 @) k2 O/ \/ I5 ?  M
          RowBox[{"(", ; W1 A7 A# J3 T5 Z, m  d1 e
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 9 v# n+ K% q$ M8 _  A. l3 W9 B( H
         SuperscriptBox[3 L1 a. K$ Q( c7 Q* r) n- S' F0 n
          RowBox[{"(", ) f1 a. B5 m7 }
           RowBox[{
    6 q- L& k) d0 H- E        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", ' `9 o8 [1 e4 c0 I
         SuperscriptBox[
    : N# w8 C  h. i. T; w* a; M      RowBox[{"(", 2 V& G2 Q! e% n$ T4 |# E" \6 J
           RowBox[{5 {- i+ {6 F: i2 U5 V" p& e7 n0 d
            RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", 0 g0 _: G4 N; z" J. S
         SuperscriptBox[' K- U5 u9 g3 g) r( `
          RowBox[{"(",
    2 D7 D# ^% M4 z; u2 y9 E" l8 t       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ( |# ^! \/ `2 ^  _$ f- M3 \. l
        ")"}]}]]], "Output",$ |/ x! Q2 s2 B2 b0 {
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, ' T# s' L. F. ]1 L: w
      3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9, 6 Y& s+ f$ |7 D; k/ \
      3.578012251359375*^9}]5 w2 P+ H; T+ K
    }, Open  ]],2 Z, b4 A' T0 m" X6 e- m

    $ U9 I) e$ `7 `, oCell[CellGroupData[{
    6 }( `. N4 d2 r
    ' C, `0 f# [: BCell[BoxData[2 a4 ]. |0 U4 @' d; R
    RowBox[{"C8", "=", "Ca"}]], "Input",: W! ?: J* }! ~, Q- X5 y% h
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    2 ]' o0 R( I9 I* A' u  3.577921316125*^9, 3.57792141421875*^9}],
    ; B, C& K' K& P" ^9 L
    8 _  o+ U' M* G. E* LCell[BoxData[
    " H  @. C: d* c' j RowBox[{"{", 8 ?& N1 c9 @9 y6 e5 ]9 T
      RowBox[{
    2 F6 [# {" M1 @( P  "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
    $ L; B2 j2 {' i2 e& _9 i" a   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
    9 _" s; k5 Y8 D- s  "}"}]], "Output"," @6 n1 l$ G3 t- X4 X3 T; v
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, $ y4 A) x6 i7 ]
      3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
    * o/ B* R  [" y0 k; ]" [5 o  L- s  3.578012260515625*^9}]! y; M/ C' R0 u4 M9 h
    }, Open  ]]," T. F- ~# ^, V( j
    7 P, A, A4 e& X$ |0 ^1 D+ a# a
    Cell[CellGroupData[{
    8 h7 I% d4 ?9 k6 u9 b
    ( g; q) |2 y+ R, \7 O( {, B1 YCell[BoxData[* q4 E& }/ c) Q8 k  D
    RowBox[{"u8", "=",
    - h8 w) d; J& c* Z& A9 Y  Z- i  RowBox[{
    " l2 a/ q1 ?* N/ w2 v   RowBox[{"Exp", "[",
    0 ^1 z/ }- G- l7 ?+ a7 X0 W    RowBox[{
    - Q6 t4 e% _6 Z0 x6 O) n! ^     RowBox[{' i2 _; M3 Z! ]
          RowBox[{"-",
    6 J" X" s9 G* \+ u. p       RowBox[{
    8 N) s9 ~4 U8 V/ b. {# y* d        RowBox[{"(", # E; b) d* Q7 N9 n, j! z+ F/ b( D# ^
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", " x8 A& g$ W% K( {" g- @& M( Q
            RowBox[{"(",
    ; s. ]) m! H, z( Z. {8 H/ K2 T. y         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ) u2 }" u; L) M' {7 @  }) A     "]"}], "/.", "DeltaX"}]}]], "Input",8 c& O4 f& ^6 Z- W
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    : c; u- l7 @  s1 e  3.57792132028125*^9, 3.577921416921875*^9}],$ O7 r: I6 ~8 w6 x$ u( v
    5 q  J6 c/ m* K
    Cell[BoxData[( r& V1 H/ }7 T
    SuperscriptBox["\[ExponentialE]",
    ! ~' d, q" J, A) g; `9 J  RowBox[{"3.141592653589793`", " ",
    9 A- w2 O# y" ?: j7 l; E+ i8 U   RowBox[{"(",
    5 Q$ ?$ x; M$ C8 ?) {. K    RowBox[{8 G. d  G: ~0 c7 _" S9 Z
         RowBox[{"-", + s3 T- ]' k0 Y3 s; D4 n6 Z
          SuperscriptBox[% q8 m. P# V  n  f& Z/ ]- e/ w
           RowBox[{"(", ! o# s6 ]) k; n# O# t9 @& Z5 M
            RowBox[{
    " B8 K( E; l( A2 _         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
    + W% u3 g% ]( y/ Q6 t     SuperscriptBox[* I4 n& v/ w9 Q
          RowBox[{"(", ' @: ]7 n6 P) S7 o! ]1 h
           RowBox[{4 s5 U9 K* J+ j% N: A' i: e
            RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", 4 n. j" ^5 a% D+ M" l$ a* W
         SuperscriptBox[1 f& M" R; M$ n! Q0 C9 Y$ i
          RowBox[{"(", 0 F0 G5 n% v- R1 Y1 Y
           RowBox[{
    & c2 N9 G  L+ N% F8 @        RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", ; o6 \8 W; @. H1 w6 r5 w6 b
         SuperscriptBox[
    2 [  i# ~( j0 c  r( j      RowBox[{"(",
    ; \% N- p, m3 t3 z/ L4 @       RowBox[{
    ! b4 S1 ~- [) N* s        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
    1 `% c2 C& I! }4 W4 W4 P6 A% j     SuperscriptBox[$ a+ u4 d; h' b& k: Y: |( p
          RowBox[{"(", 9 L0 y2 }  i- `( Q/ H  W# Q
           RowBox[{
    " [( A! G& n% T3 E' w8 c; u6 b  i        RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
    9 B8 O6 R/ @' C; i. D8 k# @     SuperscriptBox[
    ) ?3 ~# h5 z- F; p, ~      RowBox[{"(", " U: _: y8 ]/ @7 b1 {
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ; {# K+ w2 j  M+ z
         SuperscriptBox[& G" e5 _7 T/ [4 n  t3 z1 }
          RowBox[{"(",
    " Y; C+ N; C8 Y/ U+ A% `       RowBox[{- g# g0 f% Q: A9 l8 u8 I6 b0 A) Z
            RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", - |6 F, X$ W/ ^# C& H1 e: `
         SuperscriptBox[0 Q+ d4 z* n/ v7 e3 j
          RowBox[{"(", " I7 W9 X2 U6 U+ u1 e7 ?
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    7 A# B' ?' e. t     SuperscriptBox[
    : B) F) Q: t# O1 h8 k7 [      RowBox[{"(", 0 U) t; ^, d! `# i# x" G
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ' p+ z  |7 r* o
        ")"}]}]]], "Output",) P' R8 z3 X$ w8 H8 }8 a
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    ) u9 F# T. o% h7 q, m# k  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
    / `) a6 E, a) A- x- }# u0 o  3.5779608945565863`*^9, 3.57801226165625*^9}]
    9 b) Y- @2 U2 K; z: U}, Open  ]],
    : }- g& I) p9 v5 w' A* _  L, t* p# e4 J6 x" U: C
    Cell[CellGroupData[{4 s8 @2 v, @. M; @6 g: y& O+ Y
    * e) L8 j5 _9 ~4 B, s$ H
    Cell[BoxData[) o4 T  n1 I+ F) h& g& L6 ~
    RowBox[{"C9", "=", "Ca"}]], "Input",
    7 Z8 X0 p9 t1 X- S1 g( v0 I CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 7 _( \# t$ ~/ q% [% E' {( B
      3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],+ e/ ~8 m1 u+ x7 P5 q, @- @$ x
    / O; X$ n+ F* [
    Cell[BoxData[
    3 V# w7 U7 U& [4 s- P2 r/ ] RowBox[{"{", $ G2 b1 E( n+ g( ?
      RowBox[{
    7 U( [+ U. o0 c7 m7 {8 u/ Q! {  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",", ' k  a6 l3 e2 v/ T6 ^
       "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}],
    1 B! x  m; x* g8 F6 m  "}"}]], "Output",% {3 b) d- w0 M
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, / C/ J& A5 m# ~0 [* }4 \  Y
      3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9,
    . U" y7 Q, Q$ M+ y& H5 C  3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9,
    5 g% D0 D) S# M( n& d; c1 p  H  3.578012268234375*^9}]
    , k. f1 C2 l! o& O. ^( k% T}, Open  ]],
    $ G$ g) l" p* Y& Q8 f3 d1 c- l5 F
    & i8 o4 L8 [' B, o! ?5 \$ CCell[CellGroupData[{% a$ O* [- A8 g0 F/ m% C
    4 y3 s: x3 E  {, a- G% j
    Cell[BoxData[7 H" _' H* u/ v' u" @: x' s1 V
    RowBox[{"u9", "=",
    ) f7 ]( }9 i4 c" C" o% F. D/ d. U  RowBox[{
    6 A" `. w  F  `9 D* q+ h8 W4 h   RowBox[{"Exp", "[",
    ' i0 B% v3 |& e6 g& G. q1 `    RowBox[{: H' L6 D6 ~8 m% i7 x) }  C
         RowBox[{6 x7 ^; h; F% x4 d" O) P0 o
          RowBox[{"-", ! s  M" w2 q; o- V4 l: O
           RowBox[{
      }; j' B; r2 k* @9 t; Y$ l, Q        RowBox[{"(", 3 o  Y$ _0 z* T+ J' T, q, A) H
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    & [/ z7 [' e7 U' i( V        RowBox[{"(",
    # ~* Z; |- v; t+ `( l& H! ~         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],) v- y1 `- m8 l. [& i2 p$ p
         "]"}], "/.", "DeltaX"}]}]], "Input",
    8 z* a% q8 n/ \ CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, 4 b+ Z6 o0 G9 T7 d3 Q1 s3 O
      3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],
    0 u3 S- g7 \) m! C0 r+ J4 n5 S: C- t- t. u4 A; T
    Cell[BoxData[
    ( z9 U9 H: ?/ D# {; V+ p, \9 J SuperscriptBox["\[ExponentialE]",
    5 T0 J5 j# \6 N9 M  RowBox[{"3.141592653589793`", " ", / u6 a) D! b0 N4 Q# y, v: J7 C$ B0 Z
       RowBox[{"(",
    % v3 [+ p) G/ u* ^    RowBox[{
    1 q) ^* {  b8 u  u& D     RowBox[{"-",
      T. C5 Z3 Q) q- {1 Q8 |4 r      SuperscriptBox[0 `$ m9 {# x; x# `6 W& G/ ~
           RowBox[{"(",
    3 M9 ~! L+ y$ A9 M. R' i        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
    : u7 B2 k' Y4 y+ f' \" P5 d     SuperscriptBox[
    ' J$ f0 U/ ^, D. r% Y  J: R      RowBox[{"(",
    0 u% m, V% \" M: l$ B( s# P       RowBox[{( U9 @5 D9 u4 ]; U0 [$ {
            RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", ' v3 S% s9 m' u( \: @$ C6 S' C
         SuperscriptBox[
    ) v' D  R' t: Q$ `9 E2 l4 k      RowBox[{"(",
    + E% ^+ j8 x- L7 T; G$ @# _6 |       RowBox[{
    ' s" }( @% M0 ~/ Z5 S  q  A0 o: z        RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    : z7 v4 E; x1 i     SuperscriptBox[& {$ y" E+ }+ O4 l  ]* p1 d$ p
          RowBox[{"(",
    ) J. H; j  V- \0 E" |       RowBox[{
    6 F0 r4 {7 }" Y        RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
    : A7 N) w& \0 G$ h- ~' F     SuperscriptBox[
    % O6 T! Z+ v) }; u      RowBox[{"(", ' }9 ?0 @; m5 B4 a% M# |1 W9 D
           RowBox[{
    # x% e* p6 Z/ r, G8 `: z6 l' L        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", : [  e* L& o! t% R% a; \
         SuperscriptBox[1 `( b/ e3 v8 u  n4 U
          RowBox[{"(",
    / I9 B- {: Z! ]' b4 e4 J4 V7 _# R, r       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", , g3 b+ x+ B2 P* g6 J; B# q: a' e
         SuperscriptBox[
    5 J: @6 [! V5 v7 C1 M      RowBox[{"(", 1 V3 p6 {4 `+ A  n5 |: I
           RowBox[{8 ^6 V2 `4 a- O8 L' Y" q  Z/ t
            RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
    2 R' d# o, \$ y/ z8 s$ s     SuperscriptBox[
    7 w+ R3 M/ g; ]. k0 m' k' }      RowBox[{"(",
    ! n) q" n8 |& a* O       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ! }+ l& P6 F/ K& z/ ?- K* B
         SuperscriptBox[
    0 }# ], b6 z3 F, `      RowBox[{"(", * f- m" x* j) M0 M) h2 K  U  k
           RowBox[{" B0 c3 ?8 ?1 _
            RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
    " O  j: W" E& J# g    ")"}]}]]], "Output",' _: h' u% {* r( p4 t% x
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    / i+ H5 {0 J" N0 ]8 J# k) M5 r  3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
    8 f+ I' w/ s6 v+ X/ S) P) f" n$ [  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9, 4 {+ I9 B/ O, ^( f. y# L9 r
      3.577961530421959*^9, 3.578012269125*^9}]
    " U2 D& @& q8 }% \, w}, Open  ]],
    & r! @6 q! A4 r7 I# |5 C! c& p& L, D$ c) X; ~
    Cell[CellGroupData[{
    9 A' t3 h5 J5 X1 d1 u( ]0 w$ g) m, t/ \5 n  D4 ?. V/ d
    Cell[BoxData[{/ f, D9 f% w) p' M+ u
    RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
    " C+ o5 o, u; `6 c* d RowBox[{"u10", "=",
    - g5 z/ U2 Q. }1 t7 O0 p1 U) i+ @7 t  RowBox[{
    8 y+ A! \* ?* u% f   RowBox[{"Exp", "[", 6 O# B$ `' I* J+ H/ o; f+ e) ~
        RowBox[{3 y. h, ~7 a  K  K( O
         RowBox[{( C: w: F0 \0 H, Y5 Z
          RowBox[{"-",
    1 l0 T6 Y; u! B7 z/ e1 c6 I       RowBox[{
    * c: v( g- }( E& b! o' G5 ^        RowBox[{"(", : L- o; S% P3 p
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", . Z6 C$ c5 t3 Q
            RowBox[{"(",
    7 Q. w3 J( S4 `5 s; k         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    1 G& p2 g# ]3 O& [( X# L     "]"}], "/.", "DeltaX"}]}]}], "Input",
    ( r3 u% g5 b8 N CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],5 |# V5 T1 g0 [1 \
    . u# ?' x. Z- R
    Cell[BoxData[7 h5 h7 x/ R, ?) J. m
    RowBox[{"{",
    $ `7 b: Z2 n* M. p: U5 D  RowBox[{
    ; }) w! X" m5 x9 P- A  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
    6 E# Z) G) ~, O   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
    9 ^  @6 e8 ]* A: Y. Y CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],4 f4 H, ^3 p* K" G' h
    1 m, R2 ]9 Y1 A7 |" k# n; V: D
    Cell[BoxData[
    ; s! ^3 H7 K5 D0 f% h% j! C SuperscriptBox["\[ExponentialE]", 3 X! Q5 T' o+ H8 S
      RowBox[{"3.141592653589793`", " ",
    - _. k9 i4 U! c; A   RowBox[{"(",
    4 K) B# {1 m8 A) k+ u- j5 f    RowBox[{, A/ p( S8 c: v
         RowBox[{"-", 3 O. g; G. W0 z6 d0 z( b' z2 x
          SuperscriptBox[
    % W7 g: E6 {! K- H       RowBox[{"(", 6 v' Q, S4 z0 D
            RowBox[{8 G" w+ M+ X' N+ [, w
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 h6 {7 [6 X. V7 [
         SuperscriptBox[+ `6 @$ K3 _/ i0 Y
          RowBox[{"(", : ^6 b9 q% K) O0 Y7 M( N
           RowBox[{
    2 t2 b2 M+ p9 H* a$ i( z        RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
    6 Q/ ~* t5 G. g. R) G! ^     SuperscriptBox[. R$ \6 M+ F( \& l' g! R
          RowBox[{"(", 3 z! e# N# S/ b- j0 Z* ]6 G* S6 o7 n
           RowBox[{
    6 D. K. Q/ g& ]  ?) r3 \        RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", 1 t! l8 C/ c3 C, q6 H
         SuperscriptBox[! H5 T0 J. D; d7 d$ q7 F
          RowBox[{"(", ' m# h* `1 \: S- W4 O. R
           RowBox[{
    ' Z( P- E4 {% J        RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
    $ h9 ^. f* P) p) d- g. @     SuperscriptBox[2 J. u3 W4 D, E+ q' J4 I; P
          RowBox[{"(", ! V/ a2 O9 p  C6 ^
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
    : D' s3 w6 E) H. ~6 R4 g) M; y     SuperscriptBox[) S, o3 J9 V8 h7 X" x& D( o5 f, _
          RowBox[{"(", 3 P& C  D* G( W0 r( _
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    % p+ {4 _3 B  y6 j2 R     SuperscriptBox[4 t" C0 r. r$ \2 O
          RowBox[{"(",
    2 K5 }, c  V; H0 L+ }; }; j       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ! i" ~4 V( S# \9 S2 w% g
         SuperscriptBox[
    7 c# i# @% ^) `+ n      RowBox[{"(",
    - n& M5 ]6 ^% z7 r       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    7 _" S: {" ]; Q8 R7 j( v+ l     SuperscriptBox[2 P3 G+ I% J, _+ Q
          RowBox[{"(",
    & ?6 x6 \9 j' n# ^8 I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    " W3 l* {5 s: x; C/ A    ")"}]}]]], "Output",3 Q/ d, g: ^, Q! o: n& L6 A
    CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]
    , B  k4 I/ b. q6 [}, Open  ]],# ]: ~) i$ C/ y) O2 _; M+ g
    6 ^2 ]  w' G1 }
    Cell[CellGroupData[{
    ' g+ I$ J# V: f/ S- ^6 @' t, [; I, T( w2 q/ l2 t1 T
    Cell[BoxData[{, c6 y1 g! q% K8 f) n
    RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]",
    " W/ _  A  Z' j% Q RowBox[{"u11", "=",
    $ o; L# y0 Y  E& Y# M% G! |' X  RowBox[{
    9 t4 g7 i2 e9 G! z9 C6 e   RowBox[{"Exp", "[",
    5 B: }9 D. f* S. e* M    RowBox[{+ X: `6 S0 |# {% c* b' T$ x- T: E. A
         RowBox[{# x. Q' T6 y4 \) B2 \  w! R
          RowBox[{"-",
    % }' k5 D0 N# H5 g7 ^       RowBox[{0 R8 x7 O5 e+ R% o/ S8 F
            RowBox[{"(",
    7 V% X& F2 `3 M6 v$ V         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    $ m  }, k* r9 C) g; w        RowBox[{"(",
    6 c( [0 v* t; c& z/ a1 c         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    5 t9 w. n% ]5 v4 c2 O* {& J     "]"}], "/.", "DeltaX"}]}]}], "Input",9 |+ q; {/ M3 r7 J/ i: V/ B6 E
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
      ^  d: f2 C* q. {3 `+ [8 {; f  3.57796154237158*^9, 3.5779615434011817`*^9}}],9 X3 Q  \/ F6 [- M# Z7 D7 [
    5 c& F4 j2 q- \6 `0 a
    Cell[BoxData[
    4 t/ D& n% X1 E* R$ _! g RowBox[{"{",
    4 F) u* r) m( U, o# F" A" \9 g& G  RowBox[{
    . q' X; @7 D3 C- w) j  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
    7 C; ~& g6 m* E% G; f   "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    3 y- `2 @- M* \  "}"}]], "Output",
    ) T" A5 S: @. U6 U  U CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    7 a0 x7 y) t$ W# k. _1 h' h4 ]  3.57801228203125*^9}],
    * W5 C5 a/ W' `! h: T
    2 L6 k/ ?2 G3 b1 H2 g6 eCell[BoxData[
    $ q% X. Q. a3 R& u4 t: w: V SuperscriptBox["\[ExponentialE]",
    . V; L- z( G2 v  RowBox[{"3.141592653589793`", " ", 8 z3 L0 C3 B9 Y. e( H
       RowBox[{"(",
    " L+ L2 K5 u# T, K    RowBox[{
    / w& V8 W) D+ O2 q. P+ e     RowBox[{"-", 4 q5 O! Z, p# R8 i1 _
          SuperscriptBox[
    6 n  R( r: r, Z6 c  g! R1 {6 q       RowBox[{"(",
    : _! S# p9 C, B/ K3 b        RowBox[{
    1 `' d# Z" I; s6 H2 j4 T         RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", , J: ?* u9 c, p
         SuperscriptBox[
    , J$ N# o2 h; U3 B      RowBox[{"(",
    : w* |& `3 L) f1 H       RowBox[{+ O- V7 W" R4 U* b) O
            RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
    % l" E. {' f  U" Q$ ?     SuperscriptBox[2 o  G4 [$ R/ d/ h
          RowBox[{"(",
    4 p9 Z, ]6 o3 S4 V7 x) Z2 G       RowBox[{
    7 X  j1 K9 m' P8 G        RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
    * C' g; ?: B$ [0 e) l# @5 j  }4 m     SuperscriptBox[: w  `" t/ D/ C1 _- }7 ]
          RowBox[{"(",
      ]6 S  c  W3 l# B4 }2 i2 Y       RowBox[{
    + S0 j$ Y5 ]. W9 i! E        RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
    4 s" m/ X; @- v6 B  B/ v     SuperscriptBox[
    0 w" z. u4 v' z      RowBox[{"(", * l4 w' K/ m: C' d' I' Q) |
           RowBox[{
    % C7 r* ]% U. G! z% k4 f        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",   }' T) o- F/ \, J
         SuperscriptBox[8 l+ W6 H/ \) m1 c8 E" f6 D% t
          RowBox[{"(", 8 }1 q- Y- ^# _0 ^' v
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ! k/ x5 c; x; `, T  V6 ?% f     SuperscriptBox[
    : X  t5 z, K, j( j6 q2 a' q      RowBox[{"(", + r/ X8 c" T4 t" U2 H
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", & u. n6 h! h0 j
         SuperscriptBox[! h: u; A" z/ H9 Z3 i3 l! L7 V
          RowBox[{"(",
      S0 |& P) U, C  K       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    # G0 V& n1 Z7 x# o9 B     SuperscriptBox[
    2 y0 z0 F# g# g* Q0 ^! F      RowBox[{"(",
    3 z; K2 `! ^& C  y% p# R       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    6 C2 ^6 i6 G  p- a  i6 `6 H) n7 l    ")"}]}]]], "Output",
    / C/ a: l# t  w: O CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, & e) X4 ~% O" \& c5 I' v& n5 L8 M
      3.57801228203125*^9}]* |. z' [' x% k3 V/ n) r& p
    }, Open  ]],
    7 F; [& f* @* p6 L# p3 D: ?1 A0 ^: I( c% j/ q- o0 t; D- _
    Cell[CellGroupData[{% K2 l# A8 p# b0 w

    7 |3 R: @: x* j4 T& ICell[BoxData[{
      K& g* c3 F6 @+ o! _2 k" a RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]", & k8 w9 ~  b+ u  q2 n1 s
    RowBox[{"u12", "=",
    . |, V! _& E& S+ q0 |  RowBox[{; Q# ~  p  J2 Y. @+ }3 X$ w* D8 J% W
       RowBox[{"Exp", "[",
    * m* C' q0 |6 i    RowBox[{2 b. r5 p) P% L, Y, I8 _3 H
         RowBox[{; j: P4 H2 E& a, B# j
          RowBox[{"-", ' W# D! K8 _& Y0 d
           RowBox[{
    ! f; P, s# Z4 ]/ y% U/ F        RowBox[{"(",   o; o5 T+ e7 }5 w8 m0 c
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ! m4 v# a0 i6 N9 e$ @
            RowBox[{"(", 6 c7 I# P& G1 b" |
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],- c/ ?, [6 c. W& F% }. C* J
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    8 R& p, R: z6 R! |. t" Z$ j4 | CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {! _$ y, ?7 ], G4 \2 ?. u/ k
      3.57796154237158*^9, 3.5779615576284065`*^9}}],2 ~' ~$ N( ?# m+ i$ a

    % @9 S# F! L" i6 Q; s1 n0 @% {) ?Cell[BoxData[' B5 G1 L) h8 t! ]8 v$ w! F; z
    RowBox[{"{",
    ! B" T; z' l$ B7 U/ n; m. A  i  RowBox[{8 {& L( u& F: D6 P* [0 `/ R# T
      "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
    5 V, \) r, f* n1 h1 v7 u   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],
    + H! T# y+ O% z! q" f  L  "}"}]], "Output",
    : h0 t$ W6 l4 z2 s CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],6 a* X: J' H, t4 z% Z3 ~
    , c) ]( x* D. o7 a$ _! O
    Cell[BoxData[
    2 j9 Y: x. |0 P+ g$ n. [  h SuperscriptBox["\[ExponentialE]", $ \, E  k; |$ h
      RowBox[{"3.141592653589793`", " ",
    5 \4 z$ H( }) a/ t, i% ?) S: t   RowBox[{"(",
    0 a. p% `( C; Q! i' W8 h    RowBox[{7 N% i% K3 s9 F0 f+ _- _! a
         RowBox[{"-", , p5 I9 u; o8 n, r2 _
          SuperscriptBox[
    ) m9 j0 l# T  m# L; \       RowBox[{"(",
    % `9 f/ r+ ^( a2 P6 V( f( ]        RowBox[{
    % B- G% A$ ~: c  p' l% h         RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ( s5 G" o% c( S2 E( u/ s# F  i2 ^5 X     SuperscriptBox[
    " E1 x1 r' d+ a5 C# K5 ^% U/ b. p      RowBox[{"(", . b9 X7 x0 z/ z- z' [: `5 I
           RowBox[{
    & _  y2 `; o' L) O        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",   p4 o* F2 \4 k/ W  D1 s
         SuperscriptBox[( S  z; h8 T' c
          RowBox[{"(",
    ; `  b$ T4 E- ]* L       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
    ) X6 U7 @7 i( s7 i     SuperscriptBox[
    1 ^' Z, j$ q" [2 z9 P      RowBox[{"(", * Z: ?  V- t: O3 d) c& l( c
           RowBox[{
    ( e! f; g# O8 F: r+ G# _; N2 \        RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", : k& `8 L2 p* i, {8 n
         SuperscriptBox[& @. k. ~. v' o+ F  H* P7 h
          RowBox[{"(",
    3 _  I" x4 p" P. a       RowBox[{
    : t4 e$ t/ Q% W2 q        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", 2 k% U8 `- C3 L: F+ U
         SuperscriptBox[. {" c* m% U) c6 G
          RowBox[{"(", $ V0 x, ?" r* {. h* m/ k
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    1 }7 B9 N& d1 a/ k* H% I( Q; h     SuperscriptBox[
    $ d# W8 T/ {4 |* P/ Z8 `      RowBox[{"(", 0 Y0 z! j; j  p5 R
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    2 ]7 `. N8 x4 o6 M     SuperscriptBox[
    3 R' i) [3 W+ z; \1 U      RowBox[{"(", ) Y) @& J4 q5 t/ e
           RowBox[{1 |- u1 n, `9 N; k& N7 d
            RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
    , O: l5 m6 e  U$ @' }1 g! w- c! {( P3 l     SuperscriptBox[
    3 O7 J0 Z0 F9 k3 ^6 K: Z) L      RowBox[{"(",
    & z; E( d! W) U; h) W/ v! \3 M       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    2 J2 |1 q: H7 t5 Q( K    ")"}]}]]], "Output",
    " L" \! Z& A3 Q CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]
    . ?$ W+ `; b) j* `" r$ q}, Open  ]],
    + b) d7 Y9 x4 @9 p+ k8 F% x5 L" H3 \% N4 H* {( G( c) a5 R6 o8 [4 m
    Cell[CellGroupData[{
    & f2 _* a% O1 O, l2 h3 M* f. ^
    : ?) }! g8 C) G' [5 r. ECell[BoxData[{
      K7 S/ ]" F) c5 a; _ RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
    ' V2 b1 R3 I. s5 ~* ?# A' e' B% A1 R RowBox[{"u13", "=",
    % J/ l6 o- [/ A/ T' Q8 `  RowBox[{
    ; x0 T% q* k/ z0 k5 T   RowBox[{"Exp", "[",
    ( H$ e2 [6 H" I8 H3 y    RowBox[{2 p$ t5 k4 d! D/ E2 c3 Q
         RowBox[{
    6 @) z5 Y/ K+ s" M      RowBox[{"-",
    : v# m" w# \: X2 U       RowBox[{* g1 O7 o0 H7 A1 p8 f; t
            RowBox[{"(",
    7 ?2 Q# p+ Q6 `2 M         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    % O/ I; m, f. t2 }' u2 H# _/ f        RowBox[{"(",
    % p+ v3 [! W9 g6 P/ V         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],' Z! x# b  n5 o* c, H  [) w  S
         "]"}], "/.", "DeltaX"}]}]}], "Input",$ W, R) S. b/ ?
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {, p% |; Q( g% q2 G3 H1 Q' `4 h; z
      3.57796154237158*^9, 3.5779615599684105`*^9}}],
    6 X7 Y& v) y  s8 r- m2 k$ e
    % W6 \- B* _3 X4 f) P4 V9 N5 KCell[BoxData[7 I3 o5 Z5 p. I' }' u' `
    RowBox[{"{",
    ) P; C3 O# Q4 G5 c9 A4 p9 p/ L+ W  RowBox[{
    ' _6 V+ n& K5 v' s% b  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
    . k. H+ i# x/ Q) Z   "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
    ( x0 _. o$ O5 c8 T8 k* D  "}"}]], "Output",5 X3 x1 l1 m" P* k2 t% Z" }
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],' E0 j8 n' w: Z) ~$ N/ _
    ' Q# x+ R4 B3 [- F0 A# i3 T  h
    Cell[BoxData[. @: {& t. Y  S) E) X, R+ V
    SuperscriptBox["\[ExponentialE]", + `* o2 l9 {- J  \) h! X
      RowBox[{"3.141592653589793`", " ", 6 ]* p, T8 c  T8 J! W$ k
       RowBox[{"(",
    : i/ J2 D* I0 k# e6 q    RowBox[{! d1 O/ [1 @2 H
         RowBox[{"-", * {3 k) X4 F( N  d& N
          SuperscriptBox[. V4 e1 h# P  i  {6 s# g
           RowBox[{"(",
    ' M" M: t4 J4 A3 n% o        RowBox[{5 J/ v  D+ f% V$ \
             RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ! {- W8 U% E: o# V6 t/ g; m     SuperscriptBox[7 X& c: @/ {: F0 j' L% z' P
          RowBox[{"(", 7 |, W+ O' d% \6 O2 [! f
           RowBox[{8 {3 ]0 U9 T7 N8 G9 C. z
            RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
    8 D, B; N1 U' ?. a1 k     SuperscriptBox[
    ( D6 {8 S4 b' B; L      RowBox[{"(",
    6 a# h) t) s2 P: y       RowBox[{
    / c7 a3 c4 z* y: Y2 u" s: {        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    & j; P+ {5 N) J7 P     SuperscriptBox[7 }+ L3 T4 d7 P# e: ?' g9 P
          RowBox[{"(", " W5 v8 L' s; L3 t
           RowBox[{. |- a6 Y$ G) O& N
            RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-", / g; S/ Q% z" x; p
         SuperscriptBox[9 f; w' u. E* n1 `" D
          RowBox[{"(",
    5 D* _% a( P% ~* r8 ]       RowBox[{- P) y  W& _* e! e4 R
            RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
    ( T- G- V; v2 T) Z4 n, Y! g     SuperscriptBox[0 A% D; H, \4 s# ^0 Z" W
          RowBox[{"(",
    8 t6 @8 f. F; G: p4 O8 I8 {' H1 ?; p       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",   `9 V* H! ]) l
         SuperscriptBox[: Y" V3 i9 G* J
          RowBox[{"(",
    7 @( I% b+ k/ B+ G       RowBox[{
    9 g) w6 R9 i! Y8 k, o        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", % c; {. L) u7 X5 O# P
         SuperscriptBox[
    9 |! j2 z  U0 r% L, r$ g      RowBox[{"(",
    " N. a4 X* h. x% r8 t; D" ?( }       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    4 H; H5 x1 M3 f" r* D1 ?     SuperscriptBox[
    7 Z) t, J" O+ ~: C) l      RowBox[{"(", ; `) K, s# J2 j+ M* \# N6 V7 e
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ( ?, j# [" {' o    ")"}]}]]], "Output",
    ; X  x: s7 e, C1 l+ A% P CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}], H1 r: E) o' O1 h7 N$ c
    }, Open  ]],9 M( M8 @, I/ y5 y4 g) a
    4 F/ ~" _9 L. n8 m8 U' |$ ^0 K
    Cell[CellGroupData[{
    1 e7 ]2 C8 L- V7 ?3 L5 R" q3 Q, P. b0 @; n- J' q# n& Y
    Cell[BoxData[{
    , T& j! w3 e9 w8 ^) r, J RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]",
    ! C! u. _& B* T! k. u3 Z RowBox[{"u14", "=",
    8 y) J, J3 O2 A. f$ f  RowBox[{* ^9 {% ]# i4 x1 f. s+ v& l: `. y
       RowBox[{"Exp", "[", ) R# u% c5 a7 c
        RowBox[{
    ) U# \& B: F7 E8 l* g- }: W( w) d     RowBox[{
    , W6 {: t& o0 `9 y& y      RowBox[{"-", 3 P" Q( I2 c/ k/ g; T0 m  A, T
           RowBox[{
    & y% b) J& j4 J        RowBox[{"(", ! ]" G  o- g% r9 k
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    / S" K2 e* j, J- {' g& i0 f        RowBox[{"(", / @& N: k8 T( {0 q+ s; i, _
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],. M. ?: n5 w  Z  K
         "]"}], "/.", "DeltaX"}]}]}], "Input",% u5 a6 F4 h2 L
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    4 a8 T4 f  p& d1 r. g$ a) N  3.57796154237158*^9, 3.5779615663176217`*^9}}],
    % F7 B( s; V0 a
    $ v  S3 l/ a3 ~  Q% F5 NCell[BoxData[
    & @' h/ L- H. e RowBox[{"{",
    & G% v1 l" s6 j7 U$ l2 m  RowBox[{: s4 p/ d* _$ p7 o: F
      "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",   q  Z* X' z3 }4 }
       "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 0 J$ z$ F! A; R& F! y; a
      "}"}]], "Output",
    ! N) E, w& u4 a CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],$ @4 i  R) c( U! l. S/ R1 e; h

    - l: [' `" N- D+ \) {) J+ w# d# WCell[BoxData[& G5 Z0 a( {5 q/ [
    SuperscriptBox["\[ExponentialE]", 2 E: L: F. ~, p, |
      RowBox[{"3.141592653589793`", " ",
    % D5 f& n" ~  X6 A9 a5 y5 m) z   RowBox[{"(",
    3 u" _# N1 C! s5 I* f# T4 W+ F    RowBox[{
      e" K! K( k" u2 o     RowBox[{"-", - G( |. D$ q) H( j+ a9 C
          SuperscriptBox[, N3 m( k! R; q* r& c" [+ N. ?
           RowBox[{"(",
    + K4 x# k8 p' I' s/ i5 E, h4 ^6 K        RowBox[{& P/ v5 ?* e! J6 J4 t* F
             RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
    - [6 q# f7 j" G1 Z. {7 S     SuperscriptBox[
    ! L) |- r$ C+ J3 \% F5 y: W' g      RowBox[{"(", % l) d2 F* ?9 V5 a& E" j! G
           RowBox[{: Y- f# P; t/ h% E
            RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", & }4 p9 R1 ^) l5 P5 |: ^$ I2 b
         SuperscriptBox[
    9 Z& F( p0 Y8 N" Q; v      RowBox[{"(",
    6 [4 C& E2 l% F. O       RowBox[{9 r9 k! i$ h, z1 Q1 J2 O5 F  K
            RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
    . r# Q; g# X6 j" O/ y     SuperscriptBox[7 ^, r9 m' _& z6 F# P9 \9 q+ r; _
          RowBox[{"(", ; W8 P- {/ x% T5 J4 O
           RowBox[{; V/ B8 J( U# G# h2 G) p
            RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", : X! D$ q6 @# f( _
         SuperscriptBox[
    8 F# e1 a) P# A, ?/ h0 H, \      RowBox[{"(", 9 O  c$ i+ ]+ l8 B% ^
           RowBox[{5 d9 n9 p' c2 t: C- K
            RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
    / ]5 Z+ d( V6 w     SuperscriptBox[
    1 U* Y1 a+ Y& [0 |5 X: [& B% K# w      RowBox[{"(",
      c5 Q) |0 T) m% E       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", % K, @" {  h: A& f/ w6 _2 W( Q
         SuperscriptBox[
    4 j# x9 {7 X7 J; \2 [0 N; w2 J9 G* d      RowBox[{"(",
    & m6 J* f4 m9 \' G! k       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 9 t* ?2 J3 H0 t, {& N4 O6 C3 ]
         SuperscriptBox[
    ( b5 n* S8 w7 l" l      RowBox[{"(",
    " y! Y- u1 K4 _& p* O$ q0 B! ~       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 3 b: {( J1 a4 Y1 Q5 f& q: [
         SuperscriptBox[/ t9 w( d: b2 j1 ?+ g& ^$ V6 a4 a& {
          RowBox[{"(",
    % V. L$ `- s/ }- y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ' \: b: a9 A* S8 }+ v  p9 _1 I    ")"}]}]]], "Output",
    ) Q+ M, _1 D" `. u# } CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
    9 f9 b  ]; K8 H9 U}, Open  ]],- k: X! f" o) f! M/ W/ L5 V
    ( C/ Q8 H% b6 g! G6 Q9 @" O
    Cell[CellGroupData[{, k: I1 U! Y! S4 [6 n( h
    * _; \5 o8 t3 B8 U& K) D$ d9 G0 d
    Cell[BoxData[{: ]3 I+ Y' C% z- x
    RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]",
    - l- \. R% I4 Z" y' |8 z: t3 x0 K RowBox[{"u15", "=", 4 j  X& p$ c4 V: v0 v3 D
      RowBox[{
    : b5 z; K$ t. _   RowBox[{"Exp", "[", 4 o( \4 ^4 c9 e
        RowBox[{
    " d0 z! Q4 U  D  Y: L* [7 h     RowBox[{
    9 U5 z' A  b: x/ S2 s! d- ?  C' z      RowBox[{"-",
    ( R! p, g. t' u8 m       RowBox[{
    % E7 w9 w3 N1 V  B        RowBox[{"(",
    1 G. ]0 x# Q! Q2 k  z# H) h% b         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", : R5 h# h( b( L  c
            RowBox[{"(",
    $ b; `$ Y* \& H         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],  ?4 ]4 Y( P* d
         "]"}], "/.", "DeltaX"}]}]}], "Input",) [6 y/ |' Q' x+ E
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    4 ^- f$ ^& O* j  3.57796154237158*^9, 3.57796157098203*^9}}],
    9 R+ r) X4 S6 M3 P1 {5 _! T4 N' p1 G5 b" w3 K
    Cell[BoxData[3 v& r2 Z1 J$ i" b8 z' b4 o
    RowBox[{"{",
    2 @  [3 K4 v& v  RowBox[{
    * M1 i) S3 H1 ~  "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
    , U* x2 h& P) N2 V$ R   "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
    5 C* d" P$ C4 y  Y& j6 l  "}"}]], "Output",# U/ R0 u5 O% K7 \8 y
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],+ B; q. f' c  p3 V! [
    ! S' Q  q$ H5 G
    Cell[BoxData[/ h9 F& R: y3 c1 ~) A: u" @
    SuperscriptBox["\[ExponentialE]",
    , F) H8 p  ~; t, v- v8 S3 U9 H. B7 v% ]  RowBox[{"3.141592653589793`", " ", $ }5 d4 o* b$ x. P; O2 L+ h5 R
       RowBox[{"(", 5 l' O3 ^/ B9 \" \9 o8 E
        RowBox[{
    7 B6 V; h% [+ u. P0 n: \% R/ K     RowBox[{"-",
    8 Q8 S/ t  w) O3 f8 ?' r      SuperscriptBox[
    $ _0 U) h. X3 n; S( ?       RowBox[{"(", 5 o7 C+ a6 _! P! v* ]
            RowBox[{
    9 |1 c1 T( Q) H         RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
    , E$ n" C3 B* C7 p     SuperscriptBox[) Q+ B) y% V# r# L
          RowBox[{"(", , }& Y! ?2 u  r# X
           RowBox[{$ h. `* W+ }# f. \# P' K; K. ?: Y
            RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-", 7 R% i8 h5 s  s
         SuperscriptBox[7 M% M$ |. R5 r/ D5 M
          RowBox[{"(", . {4 U, }9 M" V& c. W7 l) \
           RowBox[{2 a6 B0 w# ~  _/ @& G, w$ V9 x8 w
            RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", 0 G' A7 v, h; T. W- a
         SuperscriptBox[
    1 Y! d) A1 z' @6 |4 h9 ]% J0 C. h: n      RowBox[{"(",
    9 ?& O4 A5 L3 J% ^9 Y( _       RowBox[{
    " F& Y1 h' @2 b% f. r7 Q        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
    * G  L* ]- d$ S' H! c" A     SuperscriptBox[
    - `  M) v( d8 j1 L      RowBox[{"(",
      z+ s" H% S7 x% U       RowBox[{
    % T3 i$ L: k! T- t- g- a        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    4 E& E6 b. n  D8 l0 n6 k     SuperscriptBox[
    / i" A! d( S4 `  c9 W6 v      RowBox[{"(", 9 t2 {7 x: q. j8 T4 W6 o! a5 ?! U
           RowBox[{
    8 Y+ `" n' n8 ?  r5 w" {3 M1 ]" ~        RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", & A9 v) Q  X! z1 e5 O' R
         SuperscriptBox[
    4 R9 M4 ^3 p6 w      RowBox[{"(",
    . ^% P1 c9 o5 @; o* s( I       RowBox[{
    6 d' P% `( d- B5 q; i* L# C        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", - G6 e, Z, U. l9 _0 P" o0 Q
         SuperscriptBox[' l9 Q; S8 a' j3 X4 s
          RowBox[{"(",
    - ~; W% V  z) C1 X0 G, s+ [       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    7 A0 J5 x$ x/ Z/ J9 }     SuperscriptBox[( p8 Q" e  \; w5 X
          RowBox[{"(", ) ^* B) r6 h0 ^
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 5 U# P" B! ]! f* h6 `1 B: {5 }! x
        ")"}]}]]], "Output",% T6 \2 {+ \2 t) {% j# Z
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]- B( A1 \- X  x- B6 Q+ A% v4 P/ f
    }, Open  ]],
    7 k) n( e7 ^' \$ w8 z
    " `" V/ S" I. PCell[BoxData[2 F+ i. c& k; O3 C7 R# G, Q: E& ]) g
    RowBox[{"For", "[",
    * b7 ]) X( b9 j/ |0 @+ H2 H) s, w( k  RowBox[{: f4 h1 d' }8 u1 Z
       RowBox[{"i", "=", "1"}], ",", % |) k+ a! \/ t1 D7 i
       RowBox[{"i", "\[LessEqual]", "9"}], ",", 8 K. a  \) k3 D; q% e& T- [0 q
       RowBox[{"i", "++"}], ",",
    8 G) ?4 W' f! Z5 ]. \' G   RowBox[{  N: O5 D! p4 _: W* `+ @# N
        RowBox[{"Ca", "[", " W( s) G- v8 Y3 N
         RowBox[{"[", "i", "]"}], "]"}], "=",
    ( M2 i( g3 r  ?  I    RowBox[{"CM", "[", 3 P6 K$ u0 G/ W& B7 y8 m' W. a% m
         RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    9 O' |$ w; w: b# F# ]% ?5 M$ u) A% g CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
    , q" b9 c; _0 }$ l! o1 p8 R
    ) T. S) p1 ^( t' X' c) y# s! ZCell[CellGroupData[{$ G, `8 D. B: J# b9 S1 V
    3 G* B9 q9 K& G/ I0 x' o5 x9 R
    Cell[BoxData[{0 L8 y9 W+ t- B( {4 x$ }  e: u' j* Y
    RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",
      e+ A6 C, e( H+ A+ f( y1 G# u2 M RowBox[{"u16", "=", ( T/ l. T0 A( ~. Z6 n
      RowBox[{
    9 r' H. Q6 }- j) R   RowBox[{"Exp", "[",
    : w# \  {- L/ X! b" k4 y    RowBox[{1 ^4 Z& g3 _+ ?9 T5 \' `( u
         RowBox[{+ s! ]9 c2 m3 M$ V: n/ I+ H: i
          RowBox[{"-",
    8 T5 ]# e8 c8 w9 U- ]# g       RowBox[{
    1 C- ^! w% O; n& Z9 G        RowBox[{"(", : F/ @$ F% d- @1 d- o2 K! J
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    6 o) u7 S5 F8 J- `, ^5 j6 L        RowBox[{"(", * Z: H6 h% l( U# W/ Y0 w7 |
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ) z' M' X$ G; Z+ q; ]& a& @. |     "]"}], "/.", "DeltaX"}]}]}], "Input",
    % s( d" O0 z1 x' |9 T: F! ~) t! r CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    0 {6 I% [2 T4 [4 R& r- b1 E  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9, ) ?" E$ B  O. E2 ]0 i9 {7 o' O9 i" B
      3.5779615751004367`*^9}}],8 X# W2 N8 R( ?4 Y. G( ]
      F8 p- c& p: l9 {$ a. P9 w
    Cell[BoxData[4 \/ T, K0 Q3 u( a/ A: e
    RowBox[{"{", ; n. \9 a- x5 @
      RowBox[{2 @  ?8 K4 |( R& W! N9 h$ D
      "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
    8 I3 x1 Q' `" A) ~3 G   "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}], 2 }( j  U; H% k) I
      "}"}]], "Output",* B2 o" O2 c& o( R% y- y
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],
      ]* x4 v) ~. u4 C) z- T( i) h4 I  \9 p. Q( h3 k. v7 s  c
    Cell[BoxData[
    8 J  i5 @2 n, @: l5 y SuperscriptBox["\[ExponentialE]",
    # S9 H) ~! C  m  RowBox[{"3.141592653589793`", " ", 2 v/ @9 ?8 S) @
       RowBox[{"(",
    6 t" p  B* w" I: p$ ~: {& Y" ]: `    RowBox[{
    & P9 _8 ]1 h9 Q* \5 ?' j     RowBox[{"-", 0 ~$ K! V' d& d* z- m& C) g+ k6 t
          SuperscriptBox[+ x- s1 _% x( n8 Y, w
           RowBox[{"(", 2 w5 H) K8 Z/ }
            RowBox[{
    5 m  ?% u2 \0 _1 r  K/ S2 E! Q$ a         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
    3 L5 C2 h& S6 P& Y8 W     SuperscriptBox[! T! R& g/ A+ i8 W  r
          RowBox[{"(",
    $ \& _% C, _* h; ?( o7 H1 Q/ i/ d       RowBox[{
    " M( Z# s$ u% m; }( w% K        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
    ! m3 D& m$ h8 u# [" w3 m0 J! S     SuperscriptBox[8 n! O; ^9 h9 C$ d0 ]9 [
          RowBox[{"(",
    5 ^0 g6 f# n3 z# {6 i: X- G       RowBox[{1 E& N4 m+ P* P. Y* H  V  e% h
            RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
    ; b' h$ S0 u# h# t9 A, y     SuperscriptBox[
    # @5 y4 l, a  S3 [1 C      RowBox[{"(", , L- {4 ^, b7 M) `0 ]
           RowBox[{
    . T5 a6 H1 ]4 |, P2 S* `) M0 R        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", 4 ]% z. H4 [% R& E, t
         SuperscriptBox[& u! @- ~; R8 \
          RowBox[{"(",
    6 N2 O, e, L3 r. O) Z       RowBox[{
    ) d% ?' s0 e1 E        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", + Y4 y7 _& Y- Q; f6 M2 ^1 E1 T
         SuperscriptBox[
    ! b  k5 P* R: ]- c5 b+ Z, U$ d      RowBox[{"(",   S, o1 R. Z& \
           RowBox[{
    ) U7 S/ g2 x9 r# `% s8 a        RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
    7 y9 q* X2 t7 [0 T1 ?2 W* X4 F0 e     SuperscriptBox[
    ) Q: v, V$ \+ I+ y8 U4 r4 b      RowBox[{"(",
    ) J0 t! N- z8 F0 C- B4 O) O- D/ D       RowBox[{. _/ a1 m" I* R3 U* u4 ~
            RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", # r, o7 m# J5 O3 w
         SuperscriptBox[; Z/ x5 p& b! }7 A
          RowBox[{"(",
    ! A( k  F1 D0 b7 u! d$ S( l7 O       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", $ n  y$ T  [4 R0 W( N  Y
         SuperscriptBox[! E% |! y% T( _6 u' ~) Q
          RowBox[{"(",
    & Z) }9 Q: D" c; m; T       RowBox[{% v: _6 u. f, z. G# X' L
            RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",
    / I, D8 C( F" A: k: {9 s2 y CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
    3 o$ ?8 a8 S/ ]% E+ ^  `# {/ S}, Open  ]],2 X9 [. y: {; }* i5 |& [
    5 ?# O9 r6 _* j0 R% E2 `& g! _3 Z& H0 R
    Cell[CellGroupData[{
    - H+ X/ M/ I5 p+ Y& P4 v/ T; t4 w" J7 @  {' [
    Cell[BoxData[{  a5 k( x3 B1 o. c, E
    RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]",
    % H: n0 F/ y: p7 p RowBox[{"u17", "=",
    ; i! H: o3 O3 V  RowBox[{
    / Q1 Z- y( m, z4 a6 m1 B# P, G   RowBox[{"Exp", "[", 6 v& i  f/ n  C; w# Z
        RowBox[{3 u) r, g! K7 K, H1 \4 F
         RowBox[{7 W# V2 j5 M" {9 l
          RowBox[{"-",
    & m) [% Z# z3 Q8 k: a7 I2 ~       RowBox[{3 m2 h" f# Q# j; }) l( [% C4 p8 P
            RowBox[{"(", . b0 \+ H: ~/ J7 W  D# d# c
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    " ]8 Y- `: y9 o& |0 U8 t0 T        RowBox[{"(",
    8 e5 M; N& |- v         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],5 U5 S, Q7 R! ]# [
         "]"}], "/.", "DeltaX"}]}]}], "Input",* a) y: x4 u* U0 P5 ]
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    $ o1 t2 ]- Y6 ^# |& a  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9, + g) N+ k7 C6 g
      3.577961578953644*^9}}],
    # E4 f; M4 K5 r# o" X2 d  }( H6 c- `* t5 U7 D+ k0 o
    Cell[BoxData[
    + a: K, [9 Q% ~8 W& C) J* o. g RowBox[{"{",
    " H2 E* a& g* i& H* u/ w: k  RowBox[{9 l' W& Y/ g+ \4 S
      "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
    . Q- r$ g7 d2 |  x- V: c7 D   "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}], ( D% w' Q4 `+ H$ U& K2 Y
      "}"}]], "Output",
      m) |/ E( h2 _' \1 U% p CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],. q# N  f# H0 D) `' N$ x

    ( A$ a5 U: K+ ?( V- D: G0 O% i8 w: mCell[BoxData[
    / y5 e1 }! L( ]4 d" X- Q SuperscriptBox["\[ExponentialE]",
    - t9 i( [- H1 Y! G( R  RowBox[{"3.141592653589793`", " ", % N! K. P- g8 ]6 c7 v) L
       RowBox[{"(",
    * r- z9 H# j8 R/ h    RowBox[{
    / u9 h+ m8 {( o5 I     RowBox[{"-",
    9 ~0 X. n! x; C. d3 n+ z" t0 [      SuperscriptBox[! w5 N* I2 X$ w
           RowBox[{"(",
    & r6 S: M8 }. p) Z4 L        RowBox[{
    . }8 B8 ?: d7 k' R  f9 H         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
    6 l. Z, c6 L* d9 w/ H2 t) M     SuperscriptBox[) W- r; L1 u2 k2 i
          RowBox[{"(",
    * a" p  x8 U8 |       RowBox[{
    . S" s- J1 X5 y( z. R4 }* m( F- q( f        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", 8 X) L% V! r3 p/ E  n
         SuperscriptBox[6 o: }* F- \. D! n
          RowBox[{"(",
    5 A. ~6 I) Y1 t; K, \+ s  S       RowBox[{
    9 g  {, a1 R  ?4 F% l0 h$ H$ w        RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", % t. P+ \, M- Z% }1 L9 A% J$ }
         SuperscriptBox[& C+ d2 U+ L4 q2 j: \
          RowBox[{"(", 4 L. @( N4 G" S7 Q- C/ V
           RowBox[{
    ) ?7 h# b. o" O+ N. g0 d! T2 x        RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", ( K2 j4 o6 W1 \
         SuperscriptBox[! D; V8 Z/ I3 M( Y( n* y1 Z
          RowBox[{"(",
    # u* T$ X* k  L8 I* {+ E2 q       RowBox[{
    8 j; E$ c+ E  U8 T2 j0 m0 Q        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    6 B+ h( t6 d; c8 J6 i, b2 c     SuperscriptBox[0 v9 U2 L6 F4 ?& M2 f# p. X  L
          RowBox[{"(",
    ' r8 u& g3 C" [8 T, T' X       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", , O- g2 ?% m+ u; R2 x0 G1 \. h
         SuperscriptBox[
    ( @1 ~, ?  S* _  E- ~) c0 g      RowBox[{"(",
    4 H: D- V: [( H, O8 D& H; r       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    3 l5 Q* o: n; Y: a' t- P# o     SuperscriptBox[+ h9 k  r  B3 ]' A$ J; c, d+ I
          RowBox[{"(", 4 E1 x* \& `- s  [- e7 T1 ?
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 1 j. l& S8 W' t0 ?5 ]( g
         SuperscriptBox[) u) w; J9 N5 {6 p/ J+ B9 N& b
          RowBox[{"(",
    . L& d- b7 I1 C. }+ t- ^" m1 z       RowBox[{' Q  |$ @+ ~5 H8 s, s3 I) s
            RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}],
    ( f+ l& U3 g- {) \, U    ")"}]}]]], "Output",' S# Y3 r" z. }5 s, H# t( N3 N& Q4 z
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
    4 ]9 o: o, S; }7 X}, Open  ]],
    9 a, W9 S( H( ?4 E. w
    / p0 K9 C2 E+ C) Q% hCell[CellGroupData[{
    / R" Z2 F/ g) j. I4 u. q# L5 ^$ V  e/ [% Q# G2 t0 I+ L- J
    Cell[BoxData[{
    0 P3 G# z' }" J2 S0 _ RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]",
    + r) r6 H4 V- _. v RowBox[{"u18", "=", 9 A& u9 x, {5 z7 [4 x  ]# c
      RowBox[{3 P5 @; X) ?/ r' _5 P
       RowBox[{"Exp", "[",
    $ }( C  `: `* s$ K( O6 J, K+ K    RowBox[{1 }9 A3 S0 A3 d6 g
         RowBox[{1 a# @5 k4 b" `
          RowBox[{"-",
    9 q% H# j* f% D1 f0 k) a       RowBox[{
    & m: r" \* M, {4 |        RowBox[{"(", ) a. D! l0 {" l$ d6 M; G
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    # U  K: W& E5 P* ~8 `/ l        RowBox[{"(",
    " b! {# o5 \% H1 S         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],* n% Z& a2 @. P" n/ Y! n) W
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    / s$ Z* i/ A- U. `" z, h CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {: L3 ]% v9 F  l4 Z( e9 f3 |9 ^- [
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
    # q6 A" T9 O4 m; O/ [  3.5779615828848505`*^9}}],
    " i3 o* E; L& Z. T/ C. U/ |: L0 }, O
    : s! w% q3 R8 W6 S$ SCell[BoxData[
    + q% |7 e: c9 v7 K RowBox[{"{", % `: `/ R; d7 ~* o* y0 O5 b3 P2 B- K
      RowBox[{
    # \7 i# [1 F, j7 i+ L  "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", , z0 E8 y5 B2 Y8 I0 ~) C
       "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 1 g) G% n! m" w3 a
      "}"}]], "Output",
    1 L0 h( `  Y9 F/ L CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
    ! C5 `8 L" Z% I0 j' G; c8 q0 _6 R2 }4 W) X+ Y( M1 y
    Cell[BoxData[  [, O( e1 l0 F
    SuperscriptBox["\[ExponentialE]", 6 C" J: m7 O0 e( T- o9 O# T% U; U
      RowBox[{"3.141592653589793`", " ",
    / `; j. B; Z& F& f! M) A4 ]" l   RowBox[{"(", 9 F6 h/ E1 U2 _4 t' k+ B% m0 G
        RowBox[{
    & I: a& G6 P! \& |* y     RowBox[{"-", 9 Q  m5 C3 p# G, C2 t
          SuperscriptBox[
    # g% X# V" c* Q' Z" f4 u- h8 w       RowBox[{"(",
    ( ?+ o! X6 e2 v5 Y# Y, C        RowBox[{
    , [" W* h" }- u0 z& D1 J         RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", ) Q& _1 O! y+ \! D( S& ]" k
         SuperscriptBox[
    / |- h/ ]3 v! x" ~1 W4 z      RowBox[{"(", ! n% q6 ^4 G/ g" Y6 {
           RowBox[{
    , z1 V( C. y2 a- {        RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
    + k  l- ]* c+ M2 t" D, h2 |     SuperscriptBox[8 x3 ?- u) ]& b
          RowBox[{"(",
      X0 u/ G6 g, y8 _2 f* S       RowBox[{
    7 I$ X: r- G- n' d        RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
    + o4 K' F+ [$ k* N2 Z     SuperscriptBox[
    4 F: t8 E. l: V/ w2 q, C* W      RowBox[{"(", , l* ]9 T$ ?; R: `! @2 L! }
           RowBox[{2 e5 p# [, X, A% e% Q
            RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
    ; A( f: Z- r2 J+ k     SuperscriptBox[
    $ h2 y2 z2 U0 }      RowBox[{"(", " L0 l" g4 {+ Z" ~" m
           RowBox[{
    , k( A/ C. a+ X0 H2 M7 M        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", & C* _# l. J. j/ v, j6 V
         SuperscriptBox[
    : @3 ~2 h# w6 a9 _3 k. I! w      RowBox[{"(",   M1 p7 D6 D* {- w
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", , H: H7 Z6 `0 x! _6 y$ g& k4 ]8 B
         SuperscriptBox[5 B$ p; A0 [# A8 r2 b
          RowBox[{"(",
    " e+ r% |, ^$ f/ a1 ]       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    ) d0 @6 K  {' j     SuperscriptBox[5 ]6 U' b- r9 j* Z; t  h
          RowBox[{"(",
    + i+ V+ m7 _) ~9 N  t0 I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", + m) h7 N# f+ J! [1 n1 q4 T- `
         SuperscriptBox[
    1 `- J4 W, C5 _  |: n      RowBox[{"(",
    , P/ s5 k8 m: P  I9 g       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    2 t. X  ?7 D! G6 u) u- D    ")"}]}]]], "Output",. H0 x  I; e! [9 w& g
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]+ ?5 c8 x( b1 L0 a
    }, Open  ]],
    5 ^  f5 _+ q8 R5 _: a9 `$ Z) c1 _+ Q
    , T. F, I2 s5 R/ jCell[CellGroupData[{
    3 ~0 L$ P( @1 _0 t8 a2 O* h; `& z% N/ j3 J
    Cell[BoxData[{
    ' a& |, ^$ {, ~( T5 G( u! x RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]", " ~/ Z, o' t5 [
    RowBox[{"u19", "=",
    ' E. @& G( M4 O3 v: v- i  f  RowBox[{8 |' A& F& {; m" W
       RowBox[{"Exp", "[", $ B" L% _0 r, r8 V" F1 d1 `: q
        RowBox[{
    # M1 F6 W2 C; ]) g3 b7 m     RowBox[{
    3 B  p* f% @( k7 v/ S( b      RowBox[{"-",
    8 S6 Y/ _) n+ a+ t7 m       RowBox[{3 D9 A. P! {3 s, w2 Q
            RowBox[{"(",   g9 N, W: k1 l$ t7 |0 J( X5 @8 h( R
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ; ^6 d* q5 g8 k9 _" M6 z# S
            RowBox[{"(", + Y' `" @3 _3 x+ E0 Q' ?
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],9 ^' H; u9 _" ^% ]
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    9 X" m% m, D- ~ CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    " S7 D6 D0 p* f" o- _. k' \  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, - Z+ H7 _# Z% }1 R9 ~( X- J
      3.577961588890861*^9}}],
      s" f$ ]# b! B2 _7 |
    ! C1 O+ D3 E" X) ?. }5 t9 ?0 oCell[BoxData[1 w( y* g! ~3 I, n" }' E% q
    RowBox[{"{",
    ! }9 m1 K: P& m1 Q  RowBox[{
    ! ?* J! i" C) a- |  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
    # }& p% o; ~" T3 u& h) k   "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],
    , y/ F, J5 Z, O2 E  "}"}]], "Output",% M+ ~5 o5 `; b
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
    , y% a/ y+ B) a. n& E+ k4 s& k+ i% C* T
    Cell[BoxData[/ f+ K) j4 l# }0 X$ `6 b5 a
    SuperscriptBox["\[ExponentialE]",
    3 D/ a1 T' @/ d0 o, S# ^  RowBox[{"3.141592653589793`", " ", % K; l0 i: I  v- e+ w7 R8 s( Z
       RowBox[{"(",
    7 i% Q$ \$ J8 L; y# x9 ^2 [    RowBox[{. s. [7 u2 h# S4 v8 i$ H
         RowBox[{"-",
    : z% d& S6 X; X: W# g& ~0 Z) [      SuperscriptBox[6 `- |9 G  {. s7 j
           RowBox[{"(",
    " `' |9 y) S% a6 ?        RowBox[{
    ) u. F5 y7 Q- h% U- W0 j' W         RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", , ]* `2 ]% c. H8 C& Z7 a
         SuperscriptBox[
    - K& Z, h) g6 p% R      RowBox[{"(",
    ; v, ]5 B0 k, ]$ f$ {& d* l2 s0 h9 d       RowBox[{
    . K' Q/ R+ o/ y! M/ ^* x/ u6 i& }( I        RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", - H% C0 k+ Y: a% E1 `
         SuperscriptBox[
    . _, q5 q  k+ W% R0 O+ \& n      RowBox[{"(",
    $ p* G& c+ U6 x: }$ E       RowBox[{
    5 X8 ?& t/ L- C! f  W        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", 8 G3 Z+ p1 f, N% w) {# i4 A8 k9 y, S
         SuperscriptBox[
    % e% V. C) J0 h, `8 T      RowBox[{"(",
    8 }$ n6 _1 x, a4 k3 t       RowBox[{5 r8 D* P1 u# p8 l
            RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
    9 g* |  J$ e5 x0 G2 f  L     SuperscriptBox[9 P+ V1 C' d) H% R3 j: V: u
          RowBox[{"(",
    2 [7 i9 D7 `( e# X  {! T5 Y       RowBox[{) P; W" J& [, D) y- P
            RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
    + t# X" G+ ^& v' A     SuperscriptBox[' j: [! i4 P& h# P6 d0 X# w
          RowBox[{"(",
    3 l  E2 f. B7 M4 W- s2 `       RowBox[{
    6 b! {, A. }( j. W1 ~        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", % l4 }+ y* k& |& Y$ }
         SuperscriptBox[
    7 o+ ^5 g% Y7 c* y" h2 P! T& P      RowBox[{"(", ; e/ a& ~" Z  p" k. N, Q0 D  f
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    % e3 n4 Z5 L4 |9 S     SuperscriptBox[
    7 [% Y+ N6 p6 S" `      RowBox[{"(", 3 t- _' _* w2 O  f0 z& t0 x4 L; W
           RowBox[{
    . _4 h0 p/ j& w+ |, z/ K        RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
    1 |$ [  |. \. A2 e/ Y  b     SuperscriptBox[9 R" G' ]- |$ @- ?: e
          RowBox[{"(",
    6 f  ~, B/ W, |" w+ n2 Z7 ^       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    7 m) n8 w: J  ?( E; h( w; k    ")"}]}]]], "Output",7 {! R; j5 _; v& Y
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]4 |- N: U; L8 u+ x4 n+ M( A
    }, Open  ]],3 Y' E1 z" K4 ?. K$ O+ R& @* f

    $ o2 ?4 v6 A0 l  Y# @+ f  H& |Cell[CellGroupData[{
    ( J0 I) c7 J% m. r
    . U  L: v: e1 F6 p! x1 FCell[BoxData[{9 R2 a. ]$ [8 r- o6 N0 T& F
    RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]",
    + }# u- C' Y5 A9 M8 a5 {- D RowBox[{"u20", "=", 8 I; y- f& ~2 ]+ u* j
      RowBox[{
    $ @0 I7 _# \4 ^5 b/ O) x   RowBox[{"Exp", "[",
    3 K$ a5 h- [+ }/ @; D' q0 o0 N    RowBox[{
    # @8 a5 a1 G* K" r& ^     RowBox[{
    ' @3 L6 R: o& l3 M! s$ l# v; Z7 E      RowBox[{"-", % w3 E, F4 F, x7 O
           RowBox[{
    7 s2 T! N- X( _8 u        RowBox[{"(", / p, ?3 r1 I7 u! `% k) W0 d
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ! A. w$ C! O8 e* D, t+ n' y9 ~
            RowBox[{"(",
    3 P9 X) v! {/ n2 S$ |3 f# ^. \0 k         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],& |% P+ d# P9 q$ i
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    & u0 L+ e% I) M; O0 i- m CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {7 ]$ g9 V: G0 k
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
    0 u8 J4 Z4 Q' J  3.57796159382047*^9}}],9 c7 d2 R7 F+ Q$ K3 ~7 `

    " @" H7 z) n9 |! |& R' S/ k* nCell[BoxData[
    7 S; O& r6 Y. I2 S/ h4 v( @$ ? RowBox[{"{",
    * V( _$ P* T- I& {  RowBox[{) f3 G6 I1 h4 T' G9 n
      "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",", - C7 A" ?/ ~3 b( u
       "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
    9 ]/ P4 ]$ m1 e- {( u0 {  "}"}]], "Output",
    : x8 |; l; E6 l9 `% c# X, f CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],
    1 ]% z0 H  ]8 `, E! G# t4 P1 n1 r) _) s  C
    Cell[BoxData[8 v: Z4 l5 v! m$ e, T
    SuperscriptBox["\[ExponentialE]",
    , Y7 Z! ^4 H/ T; m( u1 m  RowBox[{"3.141592653589793`", " ",
    / \8 v- A2 h( r/ J/ x: B: J, G   RowBox[{"(",
    " Q+ g" `$ ^$ s2 b    RowBox[{! ~( w) Z. W1 R% j  t7 g. }! Z5 u
         RowBox[{"-",
    ( v' {# U# q9 u4 S      SuperscriptBox[
    ) y0 ?9 w+ q& q  K2 }. t% R       RowBox[{"(",
    & T$ A$ Y8 Q% n% {1 X8 p" q7 O        RowBox[{3 u. W! h" i6 m) h& A8 r$ g& f
             RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", $ ?. _" J% J8 ]4 A1 I+ E1 ?) q
         SuperscriptBox[
    3 ]/ @9 M9 s0 T* ^9 b6 q      RowBox[{"(",
    9 U& y: u1 `9 `8 w       RowBox[{
    ' t" d) n) \# [8 j        RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-", % u8 R/ d# d8 \' g$ i- F3 f
         SuperscriptBox[
    1 {* S7 p% u6 B& R" {      RowBox[{"(",
    4 s# Y# d( I3 c       RowBox[{
    " }* w# y# ?* B8 m& {7 R# N, y/ l        RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    " d9 c, U$ J- b% j$ e- [     SuperscriptBox[! M4 n" W: r$ _$ r# a3 t- i1 e
          RowBox[{"(",
    3 d) a! ]2 L9 M5 e1 n- R& W( K       RowBox[{
    0 k5 U3 E: t( y) p, u9 O        RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
    ; v6 Z1 n; A/ p& N     SuperscriptBox[$ m! p7 F/ S! g9 d& i$ d* Z0 W
          RowBox[{"(",
    1 K) l' g3 r) l: e0 j       RowBox[{1 ]. U: Q8 h0 F" P! o
            RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", 7 w; V& K: ?* P$ C7 m' j3 o
         SuperscriptBox[
    1 W1 g8 [& b  u5 c% c      RowBox[{"(", 0 V2 C* e4 l6 c" V5 H# A2 B
           RowBox[{4 X# N7 [+ i% _6 {: G3 l0 w
            RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    % A; J/ P# F- O     SuperscriptBox[
    0 G8 b! Y, T# P% ~      RowBox[{"(", ! ?( M8 c; ?8 i6 G6 i2 _4 c
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", / }/ q; E/ N" W7 T+ l
         SuperscriptBox[
    , B2 \/ Q( I# N- W      RowBox[{"(", 3 _5 C, v$ Y* o, C' t! t
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", & L/ v* ~5 U% b- G' k
         SuperscriptBox[) g8 E3 w& R1 f
          RowBox[{"(",
    $ p2 D4 }  G/ Z- V! W( m       RowBox[{1 g% T( {: R' M0 u& u
            RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}],
    % V) _$ o* q+ P# J9 P    ")"}]}]]], "Output",: a$ p1 Y2 l0 Q& |* v& y7 ^
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]
    0 }4 s6 @8 j- f}, Open  ]],- _' Z9 K7 f- _2 ~2 B5 O: c

    1 Z4 w  D$ u) y, oCell[CellGroupData[{
    2 p" `  m4 A% s. _1 K$ K0 @! F' [2 G; i* j! b6 l3 ~
    Cell[BoxData[{5 b# B6 Q3 H. |: p" L0 K7 T$ ]% O
    RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]", 7 y1 }9 X/ b4 x3 I9 R& f
    RowBox[{"u21", "=",
    ' U7 u. o/ S5 W# v$ A# ]  M  RowBox[{
    ; c% j$ e% J& a- D   RowBox[{"Exp", "[",
    ( d% {- Q& i3 `. m9 v. K& t    RowBox[{1 k# I/ X4 G5 Q2 @
         RowBox[{
    - U1 E) p' h3 W( q. c      RowBox[{"-",
    8 D. m* _$ h$ f  y( n3 w5 F$ A       RowBox[{
    : \( n0 z9 `# {: M" V  j        RowBox[{"(", % g! d" ], i- q; j7 T: u2 V! v
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    " r' n1 a6 F: _4 S4 M. _' v; S        RowBox[{"(",
    / Q; T4 U8 }# t4 W& H         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ; P2 H# N0 L/ I9 b- t# a+ K/ |     "]"}], "/.", "DeltaX"}]}]}], "Input",  L& k, h- H/ f  S6 V& I& q! e5 ^
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ' A+ w6 V6 b% M2 _. L( ~  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9, " C# m! ]% J9 b) M9 f
      3.5779615991556787`*^9}}],0 e% L! T% ]8 B( q6 }

    ( s$ C4 \; l9 H+ U/ T$ XCell[BoxData[
    7 C& C# v( t# w9 B RowBox[{"{", . ~. b) t0 C2 r5 }7 B
      RowBox[{  M# W1 ^- v) H: _& F
      "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",", ! v; w0 l! F5 u( R% B- `( i4 s  O. H
       "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}],
    $ g" S' w) S1 b- d  "}"}]], "Output",
    9 D# W* D0 b, h/ U8 R CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],  A1 j; o/ j/ U1 R
    , u& C$ r  K4 U( X* c$ w6 m
    Cell[BoxData[2 O6 A: }; D- i6 ]* U( z$ R
    SuperscriptBox["\[ExponentialE]", ) W1 S( h/ k% q. G$ U
      RowBox[{"3.141592653589793`", " ",
    % T  s8 r& t4 o$ u5 m   RowBox[{"(",
    ' D: _; q+ W& h8 b    RowBox[{. a/ o  [- l' a8 x) V1 ^2 B( Q5 Z) g! D
         RowBox[{"-",
    : c8 O9 G% ?6 A8 {: t9 w5 V      SuperscriptBox[
    . w5 B1 q6 p, e+ I       RowBox[{"(", + S3 _9 B& X) e: y5 ]# Q) X
            RowBox[{
    " v6 P# v; U5 J3 m7 f. r& Q4 L( ^7 ], t' A         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", : U! i2 G. u$ R( y$ u+ L+ }
         SuperscriptBox[5 y0 o# @9 c0 k- \: p
          RowBox[{"(",
    * l- H2 U+ I0 B# K; p0 a9 ~4 c       RowBox[{
    ! D0 K, l8 @: p. m$ i        RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
    $ _. Y0 s# ]2 D- f     SuperscriptBox[: M9 W* d% v: i6 E  O- w: V
          RowBox[{"(",
    2 u1 b( E6 f$ q9 Q. q2 s       RowBox[{6 ?. P% K' s' a8 c4 C
            RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
    0 \$ X8 f: Y! a3 l     SuperscriptBox[# k  R( \# B# z
          RowBox[{"(", # Z( C0 @: ]& ]/ ~# v
           RowBox[{" A$ s- P& d6 s9 V
            RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", # H' `$ v2 r- L, q0 b, R' A
         SuperscriptBox[
    : j8 I5 _5 W9 |) s      RowBox[{"(",
    7 L% x" s7 |6 s       RowBox[{
    ( V% j) \0 z& X2 s( i7 J/ S- x+ o        RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", $ Z* H: F0 K/ b) f! _" f
         SuperscriptBox[  n* {# @* t0 \* C
          RowBox[{"(", - `4 F2 O- o" L- \7 }1 k7 g. I
           RowBox[{$ Z3 L) O6 m. L  A* d3 X
            RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    2 C5 m4 G+ D8 `" ^     SuperscriptBox[# V( W! Q; l  l8 Q
          RowBox[{"(",
    9 l1 l* O8 b& g% W       RowBox[{
    4 Z" Q3 t9 p  q        RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", - E) b. p! G8 W
         SuperscriptBox[" g7 \( U8 x. k
          RowBox[{"(",   ^6 ~7 X& ~1 e7 Z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    0 @' i! B9 ]9 t: o" i8 P2 `     SuperscriptBox[
    + P. X+ q% Z+ n* Y6 s      RowBox[{"(", 4 {- q% e7 u4 Q: L/ V# j
           RowBox[{
    ) D! M9 n) d1 d5 z        RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
    - b2 C, c7 T, z6 w, h    ")"}]}]]], "Output",& S" {' u9 Y# C
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]% _: ~+ p  h3 c
    }, Open  ]],
    2 _6 S( j7 W, \/ s3 f9 I( m
    - f) r9 w' W9 h: a2 {Cell[BoxData["\:62df\:5408wi"], "Input",
    0 r6 u" c- T- ]1 V CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],
    1 q3 m  n$ F9 E, u9 J8 B) I- Z2 X7 V* i# m4 u
    Cell[CellGroupData[{. |. U( \* ~# ]& E$ D9 D

    ( d1 O; f' l  j7 o( s# x- uCell[BoxData[( g# ^" ?1 l# B; K
    RowBox[{"y1a", "=", 7 Z  C0 U, ~' t  P8 A" Q" j
      RowBox[{"Table", "[", ) X* ]: ?$ \4 y+ B
       RowBox[{"x", ",", / u, w- S! n* I! D4 w( f0 j
        RowBox[{"{",
    $ |) A+ K  ^" }- e1 m6 B6 P) D     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    # Z8 v! l, ]( X+ j CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    + d3 g6 z2 E' t6 n& I% a3 A  3.5779226649375*^9, 3.5779226810625*^9}}],$ o" w+ ^5 R! U( @! r
    1 C$ o8 k6 D; ~' w1 X, @
    Cell[BoxData[
    # W( L1 v$ r& U' f8 C7 W: @& g  U RowBox[{"{",
    3 O2 t% f$ k6 n1 L1 S  RowBox[{
    ! T9 p+ @( i  F. ^  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ( {5 l* a7 L- i: ~1 m% A   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",/ [0 N4 X% v2 M0 S$ G
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    ! Y1 \% f7 k% x: M% ?   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    . i7 R5 ?7 S0 l/ E1 [   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    ! s2 {+ R9 J& B7 L0 Y3 e   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", - C1 z9 Y: y+ J( K" a$ d0 ^) \
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    8 r3 ^% j- D' Q2 d4 c  F+ T   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    / _8 I0 E& @5 K* X7 }   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], ) w! ?" E0 L6 c" W8 r1 K' `
      "}"}]], "Output",6 ]9 w6 U. e/ s
    CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
    0 f5 o' b8 l, V. Y  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]: s; x2 @3 Z2 F, r
    }, Open  ]],
    7 b- O7 L$ s+ t) e' D! a. s9 _. `$ }) q5 E
    Cell[CellGroupData[{4 x  B3 ^) T8 b: x2 l0 F) G( n0 o

    # e2 _8 B; {9 c. F# c4 YCell[BoxData[9 s: N' p  B  r9 `$ u: ?  z) c  v
    RowBox[{"Data", "[",
    : J- Q& d; W& M* b: B5 f  RowBox[{"[", 6 W1 W0 K0 q2 v( I8 o- h' J
       RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",
    9 y  e# i" [* q+ z CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    " x% g6 \2 r, o) ~+ p6 @4 E   3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],) b' _) y7 I! \1 g3 Y' n
    & C9 f- G( c5 L" M
    Cell[BoxData["0.899882`"], "Output",
    ) ?# w+ T1 o, d9 p0 m% z8 { CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
    # e3 H+ W0 g  O' C, {3 D   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9, % N3 d0 N. z$ w
       3.577961929080654*^9, 3.5780123419375*^9}]4 i$ w/ D3 j) A" R
    }, Open  ]],
    4 E4 I, e3 y: A+ ~8 m: \9 ^! v+ b: h: A& D% H6 j, N# u4 J5 o
    Cell[BoxData[7 h" r. P* S) K. ^% j5 b' y
    RowBox[{"For", "[",
    2 F  s- X) @: P  j2 ~9 @& B  RowBox[{
    $ a0 y' G4 m' h( b$ B   RowBox[{"i", "=", "1"}], ",", 9 F% }, _, D7 I3 `4 M* A
       RowBox[{"i", "\[LessEqual]", "60"}], ",", 7 a- F* f6 Z9 E( ~
       RowBox[{"i", "++"}], ",",
    * v9 Q& S; h; v# d, {& G   RowBox[{
    & G/ w/ W5 Z8 s4 g3 `" }    RowBox[{"y1a", "[", ! m/ K2 i) y6 M  u/ d- s
         RowBox[{"[", "i", "]"}], "]"}], "=", 0 ]# N( b/ V" U: j0 G
        RowBox[{"Data", "[",
    # |+ U. ^" c; ?     RowBox[{"[", : ?- I7 r$ F7 K
          RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
    0 r# T7 y8 K2 {9 _2 f; r CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {* D1 m1 S- w  @9 h4 r
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, 2 I) s  b% t5 E: J- L
       3.577922923203125*^9}, 3.5779588839702806`*^9}],! T' b( d6 q; u6 z

    - x; Q8 M1 W( Z# ?6 tCell[CellGroupData[{
    , Y( s5 a* T, p! e0 K& y- s- L! l  A& Y
    Cell[BoxData["y1a"], "Input",! x/ h3 g9 k9 B! a7 u, u4 V
    CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],  k/ u3 O- u8 V6 ]# T- W/ Q0 t
    9 Y4 J3 N; w/ X: Y" c/ t
    Cell[BoxData[
    % D( ^" M) W3 K) [ RowBox[{"{", ! D$ v' U2 y: g5 ?
      RowBox[{0 {* D" S8 N8 q* z! r
      "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",",
    0 c. y2 Y6 W' |/ O6 a. G4 b) e   "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",", 5 L( \) w8 k$ ]
       "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",",
    / r+ O- P; [- Y7 m! v   "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",",
    ! c4 _  v% O7 n; i5 b   "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",", 4 W  ?( B# q1 d) R6 z" O
       "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",", . p! j; L) l, b$ `% {7 F# C9 u8 T
       "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
    ( p( P! {) |: R3 R" r   "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",", ( J, N( j. a, Q( a7 C# W7 c! k
       "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",",
    ' T8 r% @8 z" c: l. ^9 p   "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",", - b; e9 q6 v) Y/ e
       "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",",
    ) Z# O$ V5 A9 ^& j9 ~  t   "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",",
    % R4 s4 q4 ]$ w1 p3 }! f0 S   "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
    $ N* Z" f- z" e& I# D% [) U   "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",", 8 x3 Z& q6 R( B" ?6 _6 M$ `
       "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}],
    1 k6 {$ v) ~* Y% q6 O# J  "}"}]], "Output",; T# |0 {' G2 o* B2 f
    CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
    ( ?1 E5 K3 A. ~) O0 w" j3 d7 d8 M  3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]
    # }( g, E! ]& Y/ y# x! A: A- p}, Open  ]],6 G; i1 k: i$ c/ _! Q8 h

    , |" w. M1 J. p1 Y' @" HCell[CellGroupData[{
    ! {$ T9 P) |/ p0 O$ {" U* ?& t* f! v# T( J
    Cell[BoxData[
    2 ]8 P7 F$ l! D% w7 [ RowBox[{"m60n21", "=", ! ^! `6 q/ J7 X# Z  w  E
      RowBox[{"Table", "[", 3 s  F9 m! g  p) r* x
       RowBox[{& w+ b1 n( G9 ~: g! d1 [
        RowBox[{"Table", "[", # B# D% p. l' H+ S8 H( @6 Y3 X% X) h$ b
         RowBox[{"y", ",",
    , V# u7 g; e$ r, L      RowBox[{"{",
    * F: i1 g7 H7 w" B) K3 t2 j       RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",", ; b2 C% ]+ u  \/ |: ^) |9 V3 n
        RowBox[{"{", " a3 b. T9 F" d; S8 ~
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    ) C- Z5 I6 T  _. b CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {* ~% x9 k) D( H# a4 H
      3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9,
    * i6 }# `8 ?, c3 o  3.5779619706547265`*^9}}],$ d+ T# e' C! M

    & i3 T; i9 b1 ]1 rCell[BoxData[
    0 R( H4 \# i; r/ j0 ~- f RowBox[{"{",
      N: Y! |4 |4 [3 I- r& p  RowBox[{6 T) a1 z( y. {$ F
       RowBox[{"{",
    , M; f6 ]6 Q+ H    RowBox[{
    # J) ?& I1 {- c* s. e( A$ [    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. W/ f, [' s  x8 j( Y2 y
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    " t( A3 r$ W3 P7 i     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 k1 }" H. Z0 J: V1 L) a
         "}"}], ",",
    3 W% c2 U8 y" F/ j   RowBox[{"{",
    1 a) M; c7 D/ ^7 d( v# r    RowBox[{
    : g7 S* a& T2 X" h/ I    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 [4 ]& P6 X! c: `4 n      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 k4 V% d* ?; x% x( [2 P
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    7 m+ C& J5 B6 u$ U- d     "}"}], ",",
    $ H2 r1 V0 o+ Y8 K   RowBox[{"{", ( s" U" z" }/ {: _; C
        RowBox[{
    ( S* z: H) u1 K) y8 T" B3 a- m7 |    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      B* M$ b+ Z* y2 z      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 w7 K# Z9 Z) k% v2 K2 v. k
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: L& c1 i" l/ O! t/ }$ C
         "}"}], ",",
    ( J9 H% H% x1 c- u   RowBox[{"{", 1 [* L" t8 r6 l7 j
        RowBox[{* O% F' s6 u" ~
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ' A& T; {0 D9 f5 C      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    - s* J" K) n# ~2 c1 W3 i7 e     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    0 a) g. U0 y" u     "}"}], ",", , J: M: Z1 h4 e% G7 b. u8 t  b
       RowBox[{"{",
    4 A  u1 z' U: V% J$ a$ m7 c    RowBox[{
    ) C0 ?) ~- I7 x( M; M    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    $ N; o* w2 L! [7 B" N7 U) p      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    6 v& l8 @% n' |8 C4 \2 ^     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 w6 t6 Q5 N, z( }
         "}"}], ",",
    $ w$ ^# F, L6 P4 M! |   RowBox[{"{",
    6 C  r3 L; G% e" P9 l    RowBox[{/ Q1 E/ i9 _& y
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ) S0 ~# {! P* b% A7 Z. M      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ( ], F' {$ J8 r0 L- X     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ M9 ?$ a" r# g" T  _
         "}"}], ",",
    # B7 j4 e; M. P4 c9 I   RowBox[{"{",
    - j) f. u9 y& m    RowBox[{7 C# z9 l$ q: O
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& a+ K( t4 [- _- j7 X
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 Y) P( c- V  ~9 A- I: U* T
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ) X# ~2 Y, P; v! v: R     "}"}], ",",
    0 e" P0 }8 c" B; R& u! v   RowBox[{"{", 0 @7 u8 H( e, S7 C, D
        RowBox[{
    , j. y) N* K6 {0 Q- {    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ! f) v) Y$ u- c% P+ j/ p/ Y9 n  W      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    9 ]1 E' Z" N7 f5 n     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," _) H! J* `7 K/ [
         "}"}], ",",
    : ^8 m- h2 ?: w+ G$ U5 C2 p   RowBox[{"{", . `* E7 o) S! Q; v1 v' j
        RowBox[{
    2 Y  F( D+ |2 f9 a# A    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) o3 p2 T3 S5 D. e/ Z
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    , O# f: r- }7 h3 f- ]     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# s2 t& k* b1 A
         "}"}], ",", 0 Q- [( E0 {% U6 j1 G% ~* a: a" b1 E
       RowBox[{"{",
    * {% s  V' q5 j4 {    RowBox[{
    9 V# m8 U3 J, q4 ?9 o8 O7 ~$ X0 [    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 m- G* t  V3 \$ L- ^* A* @
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 x9 G7 ]: T  S$ ^
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ \) H$ \1 V/ j/ w) C
         "}"}], ",",
    % h% f& B4 V, z- c! X5 E8 p   RowBox[{"{", - W2 o+ y9 i5 e8 }' D" L
        RowBox[{
    - A3 ~+ ?! `# U$ W    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," j  d' t: C. }( A: ?# {2 m" Q
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ) i5 G* F* }$ o; ?- s% p# X/ J. u! r     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    : _& f1 j* S9 @; H     "}"}], ",", ; v1 @* ?  Y# Q# Q  _: g
       RowBox[{"{",
    2 \+ U/ ]# A3 U1 _    RowBox[{
    ; m" d" c1 q7 [4 v7 K4 ^    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; A! R& g4 _: v" c# `      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    : W) A4 e- R9 t3 U     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    2 Z1 I5 z# _$ Z     "}"}], ",",
    + Z3 t* }& x( J- h5 T   RowBox[{"{",
    ! ]5 M& L& F: J& o* c    RowBox[{( K. v5 |/ k. j& ^/ I) t* M
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ) y( X) B' ~. \2 L" H0 i( o5 p      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' q1 I/ e8 ~: K$ b
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ I  n/ n7 [  [# h% f3 y; l
         "}"}], ",", " [( `; e% y/ o0 H  G; D
       RowBox[{"{",
    1 T) _* |. X1 D( D: Q6 A    RowBox[{( V2 {' e' I. y% t
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",  u7 s6 }  P, B; Z
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) w) A7 x' S" c6 x2 e: z
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    # a% |; S+ }+ C% a* Y6 r; U8 B     "}"}], ",",
    : V) ~/ {- c* n  b$ W2 D0 x: u   RowBox[{"{", - F2 b) ]! g4 q& M/ S
        RowBox[{
    / i- V5 f$ d7 l3 C  R+ a    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    * d& m2 U% O9 w' ^      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 a( Q4 Q) e0 a) u7 l
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    5 a6 b1 p; O( p+ V     "}"}], ",", * w& r+ R2 k2 g8 y/ L
       RowBox[{"{",
    $ {. W0 m, {. U$ _! R0 Z    RowBox[{
    + [0 H* m+ Q+ U6 |3 i1 h$ Y- Y, F    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : e' D3 g$ L5 [7 n$ G* |' V; ]  J      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 O9 ~4 v: b) m; |4 B! {
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 g/ b  N' w$ }" |+ v
         "}"}], ",", 1 U5 r8 H2 g/ [4 z
       RowBox[{"{",
    3 D, I4 a* @9 H  U; ^6 [6 A    RowBox[{
    * v0 t* O" y2 B1 @; S  {+ ^5 Z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; ^  u& k) o, S# v' h      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; M( D- |3 ?  I
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 }  O4 u/ G, V% [2 Z
         "}"}], ",", 1 y$ I8 K$ o* {, S+ H) U) X/ T* W
       RowBox[{"{", 3 f) d, u. M: q+ w5 a
        RowBox[{
    - }1 X/ i6 H6 ~4 ?1 Z# v9 W! H* n1 S' I3 E    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    # w( c" f0 l8 @! E4 X& O6 o; D* f7 I      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + {" p- A  Q- J# _7 }) E
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    * V; ^: p( O; e7 q     "}"}], ",", : O2 @6 z: E2 ?
       RowBox[{"{",
    - V$ h% R3 @& k- T7 W* K/ q    RowBox[{
    % u& s+ O: O# s9 ]( ~    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ( ^6 k5 g8 Q* x      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 J' }) L5 B1 |4 K1 q6 V4 f/ G* c
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 @$ W& x( e* D0 H2 o4 \( Q
         "}"}], ",", ) f+ s. J$ C8 {2 C
       RowBox[{"{",
    : h$ U6 H6 J9 W5 ~: H$ _  l    RowBox[{
    2 R: G- ^9 ^( e) H; p( M    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ( f: C/ P, r; C, E! `" d      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 h, b" x9 `4 D+ Y' m9 e
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ( K: Z8 M6 N( ^" P     "}"}], ",",
    : Q" {- V' ~8 J% F) n5 e+ l   RowBox[{"{",
    3 A' J' C  ~0 t, Z9 S    RowBox[{) q7 M8 s* @4 k8 P! |' i
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' G7 U! o! f9 u) k
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - q/ V# C# ?  p  |
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% K' G" U& b  u
         "}"}], ",",   B7 s/ x$ |) C0 _8 N  R
       RowBox[{"{", # `7 I) r3 ]6 c* a$ V; Q! Y' h
        RowBox[{
    6 S6 }9 n9 R9 u/ a    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    3 k6 q0 y- p# x" t" j2 K      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    4 z  R% b+ q! r     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& Y6 E9 F! l" r: l
         "}"}], ",",
    $ ^1 o2 W1 A) `8 l0 x  R% `   RowBox[{"{",
    1 O/ ^; T5 r- J! t  G    RowBox[{1 e" k) r' i4 {2 r9 \
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% @. l; b8 [$ w6 D: x
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    : K. r& W% J& q) U     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ H0 O7 h7 a9 A) _
         "}"}], ",",
    9 u0 C3 R) w& G, D   RowBox[{"{", + D2 L. m( J* N* b  \4 y
        RowBox[{1 n' z" x5 E1 {( f! x+ j
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    % y7 H* m+ M  G6 a2 _/ r" T      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # q3 J# y& W8 y" u6 Z8 s
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 C& P: O+ S3 R
         "}"}], ",", ( U" n8 W, ^5 w* y
       RowBox[{"{", 2 Q2 K  u7 b. f# s5 l8 q
        RowBox[{
    + q; Z6 F9 E6 ]" Q3 y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 D5 x: `  O9 \/ V
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    & ?: r0 N4 S; r9 A4 q8 A* s5 H3 {     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    " I- V/ r) l; x7 I7 S     "}"}], ",", ( O; n) s* Q; {
       RowBox[{"{", ' |" R$ r) k) x! H9 h( L
        RowBox[{, v# W5 `0 |1 C: j* D# m. T  C
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    $ L9 w" U, W0 L, K" ^      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    9 c  `/ a1 {1 a; d     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    + G8 m4 ~# v3 W7 r6 P; P& i9 N     "}"}], ",",
    ' W- x6 G% \  {   RowBox[{"{",
    3 e: \0 N8 h! }* J    RowBox[{& i- l  v  H9 N3 j& p" S
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 J# z- Q: [$ T* C
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 M1 b$ O) z  U' ?" m9 X
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    6 }5 [* p! X* x% b1 n3 E8 r     "}"}], ",",
    1 F; d1 ^% l- j   RowBox[{"{",
    - }7 K" p+ q" q" t+ q    RowBox[{
    ' E' s: \. \+ o3 I7 m2 _& U! h+ z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    - u" c3 H' @9 X  u      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    + {5 v" E1 O4 X- ^% O, d7 P     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      U" W3 u3 K2 C7 P* P6 f6 P     "}"}], ",",
    ; H' ^8 Z. W( }! _6 y/ I   RowBox[{"{", # W2 j0 ?( H+ \7 V
        RowBox[{1 T$ U6 p+ v1 b( K+ `
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 y( ]* v3 a' n: y      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ( z/ Q% M9 ^- W0 Z( F     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 X$ n' ]1 R5 {4 E* k+ l
         "}"}], ",",
    ; `: m+ A* O9 z) P: _   RowBox[{"{", " ~! X  Q* o9 y$ D
        RowBox[{1 P% J( ^0 s& u
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ X+ c6 u2 f3 U  Y
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / l1 q. t+ n: e. N* J' `3 v
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    3 m( M% V, G" a' w0 e) ^5 h) E     "}"}], ",",
    - |; ~) o5 c9 L* W) R  k! q* l0 h   RowBox[{"{",
    8 O5 y1 ~* J* R2 V" o% x4 @    RowBox[{
    9 _" ?  F5 t+ X. k1 O    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 M; c; m5 h( ^2 B; {2 I      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    $ B/ c  q6 l4 L1 I     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    - r/ `( \' Y, c7 r" g3 I- g     "}"}], ",", $ E9 C) ]+ L+ k/ x# u
       RowBox[{"{",
    / w* P( V; f( Q  F& O    RowBox[{4 c) j6 T' J8 z7 z/ Z" x$ s
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," M) o9 ]& ~$ f' }6 E1 q1 I
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; b& D/ c& n- ]# K& N. P, n# j     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 G+ [5 R- A) x/ w1 N4 T
         "}"}], ",",
    : I& I1 q2 S5 i$ ]6 ]/ O4 k   RowBox[{"{",
    3 w1 d  H$ m9 b  e( i" E    RowBox[{3 P2 x  E& o9 C/ S8 }! b
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 q! p# q9 ^( i, D. u+ B7 h3 O
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    / Y8 [  M9 P. S- F, \6 y" ~; `' E& b     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," y+ [6 e9 G; A
         "}"}], ",", 5 H$ \6 ~3 q3 ]# E( o" R5 q* B# J
       RowBox[{"{",
    7 P9 \/ g, n1 k* U$ ^    RowBox[{8 \. Z  o" d, d7 U# `
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," G1 i$ ], N5 y4 C$ ]
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - G$ C) R+ U) p# J* a( @, E4 D
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) q5 S  M- _( q' V, v
         "}"}], ",",
      U1 g& K6 @7 \4 M   RowBox[{"{",
    5 H& E1 v7 _% Z9 U% ^7 {" g- e" Q    RowBox[{2 h+ n8 D/ M9 P0 }
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 K* F1 f% W7 @$ b( f      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 P9 Z# A& s2 U$ U5 F# E3 _
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    3 p" m8 z0 r6 N4 Y4 \     "}"}], ",", ( q: n* u9 j+ s! J7 \
       RowBox[{"{", 5 T" ?4 W! k; y/ k
        RowBox[{
    ! Y- K! R1 D3 s, r! g" s    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 O' X/ R5 ?' V5 y& Z      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; J, w2 ?5 B3 t     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    * S; x0 e: ?* K$ F: [     "}"}], ",", : `3 x. r& t- ^, Q5 I" c& G7 t
       RowBox[{"{",
    " D8 `+ Q# b* Y) {: G    RowBox[{
      Y7 k+ B6 O/ ]8 j6 K( E& Z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 ^2 t( d2 I7 K6 L      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    3 ]# U3 c' q( k( A& r: }5 C     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    7 x, ~& ?2 Z9 ~4 M" K5 ]- H5 @- ]. y: B     "}"}], ",", 6 l$ m( w5 U) m( c" d( J1 n# _; W
       RowBox[{"{",
    ' @. _; p4 R% _+ Z6 E; n1 K    RowBox[{
    - c5 W+ L7 x/ |. e: n7 @! {+ Z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! q* B# G+ P; S5 u* q- ~
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 t) h; r( P6 j! p( f+ v8 L; h3 i
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    & u+ e: z: H% N     "}"}], ",", ) L. i3 l" y" t' d+ l
       RowBox[{"{",
    , R* N2 I% y3 _+ Y1 m; S% z    RowBox[{/ r+ h0 t( j3 M
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; G' H9 h) F+ V( ]      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 D+ t; N( W! K2 X5 m$ r8 A     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    " Y9 X) O. G; E& r9 D) Q+ d     "}"}], ",", 4 t6 k4 S( q0 u
       RowBox[{"{",
    4 w5 q$ ^3 j* q" N( e    RowBox[{4 g9 s1 l) l0 h) Q3 Q2 W$ Y
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, C! J, \( A% c( K* Q% ^' J. V. B
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 \* {& e' x1 w3 }
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    # E: A9 R. ]( U! C+ y/ g. K: K     "}"}], ",", 0 w" X. T) ]  X  h3 i+ ?
       RowBox[{"{", 7 P# w! o1 u5 g9 n$ L
        RowBox[{$ k3 p  H% v* R
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    4 s5 I: Y3 D/ U% C      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 W" {0 t3 h, V" @! e
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) Q3 h( `: M& w# [+ r- y! m9 N
         "}"}], ",", % T! |" [/ E8 p& ?  t6 R) T& i
       RowBox[{"{", ' v6 c# t* E# O$ h2 x
        RowBox[{6 R& O. [' G+ ]
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    # ?/ l! A3 S( U, k      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
      [3 `4 O9 Q6 u7 z     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 ?0 X  V+ m5 p
         "}"}], ",",
    - c) V. n1 X  l4 C   RowBox[{"{", 4 L( {/ I$ e9 T3 n  s' I
        RowBox[{
    3 L" T. a6 ^( f1 @5 z& x    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 c4 z* H) e7 u  e" R! u) w& t      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 ^; Q$ D- L& A     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& ?# e9 Z- {: |. z- V
         "}"}], ",", $ }" b3 c" a/ z3 y: w# W) |4 l& K
       RowBox[{"{", 4 H" z7 B/ g# K: E4 t, y1 S
        RowBox[{
    , N  m* v/ I: [( m    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: y) _4 e  \; k
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( ^( j' K" Y7 u. x$ D  n) Y" g
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 k' Z! v# O: ~1 ~
         "}"}], ",", : e0 B0 @- Y; C
       RowBox[{"{", ) r% h. B- P" R
        RowBox[{) d5 z$ x5 a, }/ [, o5 r
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    , E+ Q/ {1 E3 I  b/ x* m      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   m7 E2 {9 _6 M. h) M5 d6 h
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],  I2 o$ E3 F1 ?8 K" j/ ]7 |+ i8 Q, F& S
         "}"}], ",",
    & t; w: @" o7 K% \' O   RowBox[{"{",
    + X; L# J6 M- T0 M    RowBox[{
    8 E' y# W9 S! W% n    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- `( _/ S! F9 A: k
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    " J$ K# d& _! `4 L$ F  c     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' C( f7 K4 z, d
         "}"}], ",",
    8 }  B# {; k5 s: r+ b! c   RowBox[{"{",
    1 `, j9 q! X5 T/ m4 J0 W0 l    RowBox[{9 ?* q! @$ `% q. a5 L
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 s, Q1 C) D) S1 v9 @
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    : z" Y1 v2 ]0 C, L0 j" e3 b     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    5 P# [! |) V# X1 i' Q. ]     "}"}], ",",
    % Q0 R+ ~! q" d/ G   RowBox[{"{",
    1 M) @- N& ]5 ^! H, L    RowBox[{7 {! h! K1 w. `; `) s+ r
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 }- I& i& K$ I1 [
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   }  i: G9 M5 }$ u
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 E; S. y) x5 G
         "}"}], ",",
    : b& }  I- {- j   RowBox[{"{", + S" y' N- J# F$ i0 s8 k
        RowBox[{( S& C% s# v; ]' w( C. v5 D
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( W$ F6 B8 a' p# I0 d& S3 ]
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & k$ T% t6 ~, Z5 P
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ! M! T% h: ^& [& J& J     "}"}], ",",
    5 }6 ~. g; d1 M! |8 H/ d   RowBox[{"{",
    $ i" l" j/ N% ~% j    RowBox[{' p* L" r4 S3 V& |9 q( }
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    3 @: x( }* H; g$ ]( B+ {      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    0 ~- G, ^- @6 |: j6 @     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . R+ v3 V7 G& m" f7 [3 H7 p     "}"}], ",",
    ( r3 c; K) {/ I2 W   RowBox[{"{", ( o& }( O; R$ o/ n( F7 E1 {6 A/ R0 D
        RowBox[{
    ( b! o" d) j) r+ T    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 P; C1 @2 \# Y/ U9 O9 g0 }& W4 @
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    6 W, T% u/ V& s0 r5 B     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    4 p, M& Y" Z. G     "}"}], ",", " F7 w5 ~  S; s4 b6 y) F/ x% w* A
       RowBox[{"{", ! L  d0 B6 I: J" O  P5 \& Z
        RowBox[{
    - i- Q$ T; B) d( G$ r    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ) A1 P# P2 ~# D6 z. T6 ]( v- z+ j      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) r/ E" G; O8 J' T3 |+ _0 U) c8 k3 c
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    4 X& }# S7 `! F0 @# N     "}"}], ",", 8 U" q+ c( O' U6 A+ y2 T  |
       RowBox[{"{",
    * G% f" c1 v5 G% f! u: u* R    RowBox[{
    4 c& x4 e5 K4 w    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 T# C; h+ n! X& s      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    : L$ H* z& a/ v  z  v  X     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 B, f1 K; Z2 @2 B& W  I9 Y& U, Q
         "}"}], ",",
    # U0 A- l( m  V$ A' }5 U% S   RowBox[{"{", ! }9 ^8 h% ^  O. ]1 O
        RowBox[{
    3 l' V! P$ A" \( w7 K    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# b: O* p9 g: `. u4 t7 e4 O1 |
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! X  Y4 k$ ]6 ~
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 s* x/ E# ]5 K" t. a
         "}"}], ",", " P% o/ l7 `& H( \
       RowBox[{"{",
    1 h, C* B! D) Y. d" }    RowBox[{
    * J: u6 Y7 d$ i9 q/ y$ T6 v% n7 p    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 x1 {2 `4 _/ M" W# z  p' |+ t
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / t/ u% _! o& U  j5 b
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . W4 B' u1 b2 L0 r4 S8 u     "}"}], ",", - D4 U: y8 j3 M/ F7 m* D
       RowBox[{"{",
    , B3 ~! e9 U9 Y1 n    RowBox[{2 i5 P+ H; R! ^3 d1 |, ]8 S
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 D; R0 f% t  O- H, m      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; j! f+ a, g) H) N
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    9 q. \4 o+ H( H% S     "}"}], ",", / }  v, I# U- ]
       RowBox[{"{", 9 S) F' F# Q$ [% m
        RowBox[{' Z8 y. G1 B) A2 c
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      \( S, C2 c3 v$ U. l: s      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ( T9 s  S) V8 l# A5 W9 Z7 H     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    4 d6 p- v( L9 Q4 U4 ]     "}"}], ",", ' Q5 E9 T0 |7 X; J( X0 |& \" |
       RowBox[{"{",
    ; k- ]- j4 P8 t! M8 |- v    RowBox[{
    1 X1 e1 x) R0 \    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 x4 k3 e! K+ ^  s  F' ^      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    0 r$ }( {* }5 H6 n. v: [. H     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* n! f. }% y; i
         "}"}], ",",
    * o0 C# @4 M1 B' B( n1 A0 T   RowBox[{"{", 2 O( Z3 I6 a/ `. s" I0 N
        RowBox[{- L1 u/ O7 V8 ~* n  z$ X
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 o. o& h5 x/ @, a
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    3 u% |5 }( f% B2 N' ]" |     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],  {) }! d$ j8 I7 u  `
         "}"}], ",", ! c4 F' K' A( T+ X3 V
       RowBox[{"{", % @+ y% S. F+ J
        RowBox[{
    1 ]- V) c% s" G" V; R; Y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ! R" S$ a* r/ ?) l7 |' f5 h      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; a* M6 }, f9 l# a2 G& t: f
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! n* a' a) m* r# v0 \- q
         "}"}]}], "}"}]], "Output",
    # M9 o4 j: o+ B6 x+ W, j CellChangeTimes->{
    3 ^8 k4 u, j; g1 o( Q  3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
    : h$ C, d' [; b8 `- y, V, ]   3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9, 3 J/ u4 L+ D; u: x
       3.5779619748823338`*^9}, 3.578012345453125*^9}]4 t/ |+ `" C# L( c
    }, Open  ]],
    5 k$ S4 F1 m- f* X
    ' E3 W+ Q7 ]4 g! j9 p" r; J9 UCell[BoxData[! R/ [9 r- }8 D  }& Q( V5 d% Z
    RowBox[{"For", "[", ; B: M" B& ~1 ~  L) H+ _
      RowBox[{/ v( M+ q+ e, p+ ?7 A. z  `
       RowBox[{"i", "=", "1"}], ",", 1 z  O5 ?$ Z, n& u7 S
       RowBox[{"i", "\[LessEqual]", "60"}], ",",
    * d) V1 E8 Z5 Y* V; l2 V   RowBox[{"i", "++"}], ",",
    7 B3 L* J3 E* S1 ]   RowBox[{"{", "\[IndentingNewLine]",
    ; z" @8 T& d* h    RowBox[{
    ; L: |  K/ s& x' t. L7 g9 I2 W  ]6 T& X8 {     RowBox[{
    6 v2 c1 g/ c8 f$ R6 Y      RowBox[{"m60n21", "[",
    3 Y. S0 ~( j; E& a       RowBox[{"[", 9 W3 H- R" s1 c& `- e2 x8 |5 ]
            RowBox[{"i", ",", "1"}], "]"}], "]"}], "=",
    ' J9 |8 ~% z+ f- M      RowBox[{"u1", "/.",
    0 s3 }: O( v0 w3 l6 H  Z       RowBox[{"{",
    4 b- c3 ~$ f; z% T/ F        RowBox[{+ F/ K4 u3 h* ]- \! D
             RowBox[{"x1", "->",
    ' F/ F1 a! H  d6 X          RowBox[{"Data", "[",
    6 @1 b" G  K7 }' k8 A3 j           RowBox[{"[", % m9 S5 a1 H. P( C
                RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", + i% z) D9 p+ A7 [% ?
             RowBox[{"x2", "->", # d3 W1 S# X) V- [  [! j
              RowBox[{"Data", "[", # u# }; \9 |$ w0 `+ Q1 n& B! @
               RowBox[{"[",
    4 m; b/ m4 b* i8 B            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", , F: ]! g' _( q' W
             RowBox[{"x3", "->", 1 r1 ?+ q- t, g4 f% o$ G+ A/ h
              RowBox[{"Data", "[", . |9 x! O4 x' p% T4 s. y
               RowBox[{"[", 6 v9 e( _, D' y9 o
                RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
    ' b; p& }6 g" x3 i; c         RowBox[{"x4", "->", ( ]. [; y+ t3 I! f. W+ K
              RowBox[{"Data", "[",
    2 e  R# j9 r& \7 }) {- P! X3 S           RowBox[{"[",
    : k0 ~3 }2 H! S5 ^" k            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    1 M# f. y9 F0 b9 w2 q         RowBox[{"x5", "->",
    " C+ [6 H# Q7 |) v& P7 C* M# f          RowBox[{"Data", "[",
    ! n: d# m& a1 i( ~0 X8 b           RowBox[{"[", 4 u, a" n& M8 f9 M7 |: @6 i
                RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ; H% Y6 N8 O& Y. c2 Q) {7 F& }
             RowBox[{"x6", "->",
    5 g- d& p; W) [$ x          RowBox[{"Data", "[",
    + {, y( M& a* N           RowBox[{"[", ) G( _  Q2 B1 F( s- v5 d  l8 ]
                RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
    2 r. V0 E& d: s: Y' F0 ~! B         RowBox[{"x7", "->",
    " r, J8 q) l& e# ?- @          RowBox[{"Data", "[", 2 A% i, L0 U: Y0 _0 i5 J2 p6 ]& @
               RowBox[{"[",
    + s. F( Q9 y/ [            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 8 B8 \6 J; g" G& }% o
             RowBox[{"x8", "->",
    . A. w0 V& P5 F5 Y& J          RowBox[{"Data", "[",
    3 b/ y1 \4 V3 J5 K0 J, p           RowBox[{"[", . s1 D1 `2 D' W0 D$ ^
                RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 7 W. ?& J& g$ h- w
             RowBox[{"x9", "->", : n- b/ `$ v  j" w0 G
              RowBox[{"Data", "[", - Z! F* a( I  \- D, z' j
               RowBox[{"[", 9 {0 X( ^  Y8 h7 y* T& R
                RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 3 N5 m1 ?* E4 a3 T; ^( i8 G" V
         "\[IndentingNewLine]",
    ) G! ]5 v$ m( Y' |" _' J2 P4 f- \" G     RowBox[{9 S' V# V8 W! \1 v! z! h( \4 z
          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 1 q. ~. |' E3 i& }0 @; X2 [, ~" W, k
    神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗

      n7 w' w6 g9 Z. K* Z(* Content-type: application/mathematica *)5 K- G* z* i8 v) B: W

    9 j" k+ a" O2 L8 G1 z(*** Wolfram Notebook File ***)* F' U2 L1 a8 t# e! K# z
    (* http://www.wolfram.com/nb *)) E1 h8 P2 [- R- G; C/ E3 R3 r
    " A- f# h+ W: z6 R4 C+ H
    (* CreatedBy='Mathematica 7.0' *)
    / n7 t& R9 ~" X& S
    0 T- `% }' w/ p! E6 S1 d# [(*CacheID: 234*)
    / o6 O; A& [7 b7 c& X  I2 z" @(* Internal cache information:6 O2 F( j1 }0 ?. [3 T1 Z
    NotebookFileLineBreakTest
    ! A% B( V3 H. f3 F; BNotebookFileLineBreakTest$ f( f4 c1 p! Y. J. b
    NotebookDataPosition[       145,          7]! a: W: {$ e, ]- w' M" y! O
    NotebookDataLength[    423629,      11534]. f* r1 l) |% r, z2 |2 M
    NotebookOptionsPosition[    412607,      11173]" N, s8 d) X  a8 V4 J* y
    NotebookOutlinePosition[    412953,      11188]/ V. ~! g( d& H
    CellTagsIndexPosition[    412910,      11185]2 r# r% U: U! G! t( e5 P  b4 U+ }
    WindowFrame->Normal*)' Z" L( I" F% @4 G5 W, T

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

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

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

    # H0 Y7 \# f7 R! U& qCell[BoxData[{# d0 m# y- \9 z0 `6 M7 v
    RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]",   f: I5 ?( \/ E
    RowBox[{"M1", "=", "1"}]}], "Input",
    / i+ i: m7 O3 O/ X CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {
    6 a) b' z: a# C4 y9 e* }   3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9,
    * C: J% |5 L8 n% F( {  J8 }   3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {
    * W( c4 i( w5 w  f+ R   3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9,
    ( V- U: }) A" U, ]7 I( Y   3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {( p( I% e! f6 g
       3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {7 F/ H! S5 R6 _# \7 x' n; Q' O
       3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9,   n7 \) I+ _6 `
       3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {
    $ w' v8 A0 e% \8 t7 G   3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {
    4 x! V  E3 z( h8 }8 p- B/ W; N4 i   3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9,
    - [; M: o3 O7 ~   3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],# T0 E8 W7 N' U( r$ X

    $ O% k$ Y3 H: O" Z" BCell[BoxData["0.2`"], "Output",
    ) G1 j( t: J5 i0 ] CellChangeTimes->{. f0 ]5 m$ X# M& i
      3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
    # e0 s1 A, r- S% ]$ J3 z, U2 C   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
    ; j$ j! E" {8 O   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
    0 b+ C: D! y* m. Q   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
    & T4 M& l) G; `7 N3 x5 i   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
    * k, }! C; X* B9 h   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    0 B5 g' G+ {7 `, L7 u% D   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, & ~- ~3 u# h% `+ M: u/ f/ }0 p+ c
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
    ' k/ q' D" \) u: o4 G   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
    $ O+ ~/ o$ V& {1 R9 d   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    $ `+ v/ N1 ^& D+ O1 G7 j. N, `   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
    / [& j  U* T2 s; ]7 g4 `  N   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, ; m2 r6 R# _+ y
       3.577960510686717*^9, 3.578012149296875*^9}],
    - \) {/ w' [1 I$ \7 x/ f( I
    7 \9 ?; a8 {2 l3 G# eCell[BoxData["1"], "Output"," w9 ?/ E0 f' m* U
    CellChangeTimes->{
    $ L1 N* d; I! m  g2 A8 m+ C  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, ! b# I2 d3 [4 G* G4 L  `5 O; F
       3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {  }3 E, S- b$ V- g3 g' p
       3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
    " O$ ?( M$ i! ?4 I% V6 T0 |   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
    $ L6 F4 V/ m( G   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, . T: K7 D. [$ `4 L  i! u
       3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    9 @3 D+ _) j+ x0 J   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, ) c1 K  u! C5 \4 _& t" I
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
    4 }' V. s0 M( M" V   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, " C: J* _+ |6 q) i; o+ M
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    1 v* o1 ^9 D% Q( b   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, , R- q" T0 @" Q& D. R3 \' Z
       3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
    , j0 L0 }) x. k; G; w+ ~7 n0 R   3.577960510686717*^9, 3.578012149296875*^9}]
    1 W5 _8 c. t# l( c}, Open  ]],
    8 R: E  W# O: w$ ^, _/ }& U; ?$ j- {
    9 I7 j* W& e# m; GCell[BoxData[" @9 j7 f# K: V' R, M$ l3 f
    RowBox[{"For", "[",
    ! I3 y& X1 }# D3 V3 E  RowBox[{% s% x' r, a, V) h/ X5 F) |: ]$ K
       RowBox[{"k", "=", "2"}], ",",
    + G  x7 Q6 G! V/ |1 F2 A   RowBox[{"k", "\[LessEqual]", "60"}], ",",
    ! j# \. e3 O  l; D   RowBox[{"k", "++"}], ",", - @. i- J0 }- O# k4 t1 \
       RowBox[{"{", "\[IndentingNewLine]",
    ( ^) }- u7 n; {5 |  c5 Z    RowBox[{0 Z* i7 r, M% l: P) s
         RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]",
    0 U2 [/ Y: c: d+ `1 }     RowBox[{"For", "[",
    , R. H) o% H' `0 i& O      RowBox[{- y3 v; L* ^+ W
           RowBox[{"j", "=", "1"}], ",",
    3 N8 {/ L4 W' u       RowBox[{"j", "\[LessEqual]",
    ! o& ~2 y3 @& d# D8 ?$ {        RowBox[{"k", "-", "1"}]}], ",", 6 z* V, F7 z& j% s
           RowBox[{"j", "++"}], ",", : h0 N4 Q0 n' A' R6 A- K
           RowBox[{"{", "\[IndentingNewLine]",
    2 ~& d$ O. ?: `" @4 W# A9 ]& z        RowBox[{
    ' V( j7 m* p# Z8 p( q# e         RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]", , J* K4 s4 e# c! `+ u5 S; C" P7 i
             RowBox[{"For", "[", 2 E6 P3 e. K& o0 r
              RowBox[{
    ; V5 M; ?) {$ R3 c, M: B           RowBox[{"i", "=", "1"}], ",",
    . _5 L+ u# e; i. S           RowBox[{"i", "\[LessEqual]", "9"}], ",", . J1 Z3 M* Y. z
               RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    ! K  |- {$ P0 n& |/ u5 i+ [           RowBox[{6 A3 O! u* ~/ O# y+ O+ U
                RowBox[{"r1", "+=",
    6 f/ v7 S" Y  }1 }5 @             RowBox[{
      d. V8 b2 B+ O9 k              RowBox[{"(", 6 d& S) u6 Z# b5 j% v0 N6 p
                   RowBox[{5 f3 z; Q' x2 Y" a8 g
                    RowBox[{"CM", "[",
    9 [4 w# j# W# E) q, W& R: L2 ~                 RowBox[{"j", ",", "i"}], "]"}], "-", 8 \& q( s) b7 s" Z9 ^
                    RowBox[{"Data", "[",
    $ C, X/ {5 D' {                 RowBox[{"[", 2 p3 O" W* W5 Z* w+ c
                      RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
    + Y9 i" B4 v3 ?: V+ ^              RowBox[{"(",
    ; L: e% u& J9 {. x               RowBox[{* M9 J' D' J* m" q$ f
                    RowBox[{"CM", "[",
    * n7 V" O  D' \& c                 RowBox[{"j", ",", "i"}], "]"}], "-",
    7 b1 w* p1 M6 \5 t/ g8 o                RowBox[{"Data", "[", 9 j& G5 U. X9 A' A0 W
                     RowBox[{"[", 2 F& N1 ~# X- Y3 E' n
                      RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],
    8 |2 q% ?% v4 Q) T, e           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 7 b0 N& C- p" L
             RowBox[{"r1", "=",
    3 u$ p! E$ @5 Y, x; K) u# \          RowBox[{"Sqrt", "[",
    5 }1 O2 Z: T8 k" H2 `2 ~. f/ s           RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]", + G' ]. ^: X6 L
             RowBox[{"If", "[", " ",
    + q* l8 D5 X( X2 [8 @# ~8 ]2 q, Q          RowBox[{, K: Q. I2 h6 J9 B7 K  Q: X
               RowBox[{"j", "\[Equal]", "1"}], ",",
    6 Q, a, c( r; |& W& v3 Q           RowBox[{"rmin", "=", "r1"}], ",",
    4 X; D9 z  d1 S- }8 o           RowBox[{"If", "[",
    + [, R2 r# f1 Z% X1 Z. G5 l            RowBox[{
    9 w7 U6 G  {6 k9 F& c7 b             RowBox[{"r1", "<", "rmin"}], ",",
    . F& }( {: O. i8 w, O. P6 g             RowBox[{"rmin", "=", "r1"}], ",", ( E' x% Q  Z# f9 n( u
                 RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}],
    ! I9 w. K/ v0 h6 A1 ]: K        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";",
    5 p4 ~' m( m5 u     "\[IndentingNewLine]",
    ) u6 S& @" b" o     RowBox[{"If", "[",
    2 D+ s3 x1 \: h6 D4 K: Q      RowBox[{; ^% j3 s2 d. O# V# ?
           RowBox[{"rmin", ">", "r0"}], ",",
    + a! ~% q& c7 r; r1 @       RowBox[{"{", "\[IndentingNewLine]",
    5 l6 ?. J$ R  T3 r1 P# c        RowBox[{9 q& J6 {7 C/ U$ v* e1 r( I
             RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]",
    ! z% g' g& s9 v# Z  p6 i# U5 g" W6 ^         RowBox[{"For", "[", - {: l) i0 Q1 U2 j* A
              RowBox[{
    6 Q2 |- E) n8 X/ x2 n1 v- `& J           RowBox[{"i1", "=", "1"}], ",", ! W. D8 v+ M5 r% I" ]) p+ [5 N
               RowBox[{"i1", "\[LessEqual]", "9"}], ",", / h7 O- C' o9 c0 k$ Q7 r$ d+ y" |( F# b3 H
               RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]", 8 K9 l) k' p$ X8 H* I  d( W
               RowBox[{8 {2 [$ H- E  d' h
                RowBox[{
    ( a5 N# X0 [+ X; h; l             RowBox[{"CM", "[",
    3 S* r( [4 E$ j% n7 S              RowBox[{"M1", ",", "i1"}], "]"}], "=",
    ' |9 u0 S; N. z; s3 K             RowBox[{"Data", "[", ) j2 M$ b0 L/ w0 w
                  RowBox[{"[",
    : _. M/ ^9 @3 e3 g* _* T               RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}], . r# \% N/ W2 d7 h, C! n6 Z
              "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",", / g: P- L# U* n
           RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}], ) c3 d7 \5 r' j0 ?5 s: D0 x& L) N
        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
    ( j# Z0 [4 D2 g CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {2 D- D' H% ~8 U; Q6 ^
       3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9, 5 E1 W4 ~1 H, b
       3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {; f: E9 W. _" u2 L  Z8 f
       3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9, 7 ]) r1 P4 t4 [" |2 z' r
       3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {
    . V: G% d2 B5 g7 j   3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9, : P' E6 i: z9 h# B0 ]5 h7 _$ G# I/ g
       3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {
    , ?1 a; z: L( B+ @0 d' x9 i   3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9, : V- |: a! Y' ]1 _- m
       3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {
    9 x0 d% t  }# y, w7 D4 H( B$ b   3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9, 6 T  j- D' n; }% o3 P! S+ l
       3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {1 m2 ^& v6 C" [( q! x2 H
       3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9, 8 B) m0 \$ B/ f+ V$ B# X: }5 f
       3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {: O6 R9 M. r/ I- a3 ~% G: [4 e; D# V
       3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9,
    $ ?+ \3 r+ `; }- R& _   3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {
    , r7 v  d# I# w   3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9, 5 U* o2 @7 C* r9 F8 S
       3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9,
    . w4 Y% @' _0 H9 b   3.577958821991373*^9}}],8 N3 x( y* F1 \; X2 K4 U
    - `7 H4 u% H) z1 Z
    Cell[CellGroupData[{
    9 `3 m/ D0 c' z7 Q
    + ]3 b0 o! b, KCell[BoxData["M1"], "Input",
    % ^$ ?/ m/ L2 y7 r% k CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
    ! e6 _5 U3 V7 c& k) `
    5 @9 i+ Y6 x. F6 n7 V& zCell[BoxData["21"], "Output",: Z$ w6 G% K+ H* l$ X
    CellChangeTimes->{5 q& y2 S: _% A& o( s; Z- ?
      3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {- |3 Z. e& z4 r9 ]3 S1 z
       3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9,
    / U$ D0 z% h; M6 M4 x   3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {
    3 o, f, G' b" T7 E  {( J   3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
    + k% L  e* \- I  @; ]  n   3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
    & [% J0 k& d3 ?+ S+ D  o2 |! R* u   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9,
    " h7 \6 g/ v9 T! ?   3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
    7 u8 G, i# c( C" q& `$ H   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9,
    . M; w) _* T! A' m) B# z   3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9, ) d, \8 E% g7 @+ \, q7 L
       3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9,
    ; d% p2 i" \- y   3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9, , e, w) I" s# ~
       3.577960515600726*^9, 3.5780121541875*^9}]
    $ Q4 v& C) j: @# C}, Open  ]],
    2 I; O& j3 C! }# O" K& p/ P
    # d7 J& c; `7 ?4 WCell[BoxData[
    0 S  U2 c* }& Z RowBox[{
    , }/ y& I: X1 a0 b- m2 _% a  RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[", ( G2 p4 s: c* {' R' ?
       RowBox[{"1", ",", "i"}], "]"}], : \3 x* C& ~. D* }0 N+ {% |2 t" A
      RowBox[{"\:5230CM", "[", 9 S1 J" a9 h$ y( A& k- Z6 ?0 _8 A
       RowBox[{"21", ",", "i"}], "]"}],
    ( I" m, }: Y0 G2 {  "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\  \: v% X/ p2 I$ V" N
    \:51fd\:6570u1\:5230u21"}]], "Input",
    , \0 L7 `7 u/ F2 r CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {0 T1 a# u9 S- A; ^( w3 a, D3 w
      3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9,
    % Z+ @0 K/ D( c4 h5 n, l6 e2 P- t) Y  3.577960526583145*^9}}],
    2 v6 f  y  n/ S$ {
    , ]" `7 s: F, r7 [1 j6 HCell[BoxData[, G. x* n0 S1 Y0 P8 D' l
    RowBox[{"Clear", "[", "Delta", "]"}]], "Input",: u! \3 U9 @5 c6 n; S8 m+ t& l8 e
    CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],2 Y6 F! a! u) K: ]/ i- g
    8 X' n$ J) F1 \- p3 |' {' s% \
    Cell[CellGroupData[{
    . |0 i1 e* u! A3 b  G7 `0 W) ]% N0 P7 @: I# S& O
    Cell[BoxData[& f: M+ T) p, O' U
    RowBox[{"Xa", "=", % E+ b: L' @) w  v
      RowBox[{"{", 1 J8 I0 y1 I9 w7 q
       RowBox[{# z. d5 K' _1 e1 L' r
       "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7",
      B9 B7 W+ V3 J$ b' P  G6 N    ",", "x8", ",", "x9"}], "}"}]}]], "Input",
    7 m: d' j# A6 U  H CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}]," h, D- _$ ~" D' ?( K2 Y: D. s

    ! _' V' g& H/ ?# \! H& LCell[BoxData[
    % s3 j, R, q6 J5 f; P/ y% B  Y# T RowBox[{"{", 1 T6 h4 A5 s1 h8 N  [, m$ s* i, o
      RowBox[{
    + W9 f4 {7 c8 {) `6 L! c  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",  S- {7 a+ [/ s! U, S& g/ @6 J
        "x8", ",", "x9"}], "}"}]], "Output",& \  N# L% ?6 L4 i8 L
    CellChangeTimes->{
    % l6 h! N0 A  L* M. Q, K  3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9, 5 r) t2 Z2 [4 T4 p6 c
       3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
    : i" ^7 N1 y: W6 L/ K   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
    3 W' J8 d- R6 E& F: K   3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9, # D+ D  z) M: \5 g) r* j% H
       3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {
    / v( Z+ @* E- I1 G2 }# @* l$ G   3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9,
    1 j) o- A9 d9 q4 e   3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9},
    " c" X& ?: P7 k: |   3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {0 W/ I( E" V) a- ?) @; r
       3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {1 w3 H: x9 p6 \+ z* w5 r$ e/ t2 x. V
       3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9, ; z# E  Q/ r+ G4 u) d
       3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9}, ! K8 \' G4 H! ^% p" c7 Z! H
       3.57801215725*^9}]  p) I5 G# a0 F: R" d) m3 b/ S
    }, Open  ]],  `+ Q' y/ Q  m) C" N( O' ?" B" ~' f

    * g; E7 n  c+ sCell[CellGroupData[{
    4 v8 m, Y" [* ]% K3 a5 N: G; t0 o2 @$ v' @( V9 ~
    Cell[BoxData[( E0 @3 B8 ?" K+ p, {( k7 c9 e1 a
    RowBox[{"Ca", "=",
    $ l, U, U( S; T  RowBox[{"{",
    1 c4 o% h% w% ~5 M4 R; Y' J   RowBox[{. r. N" C0 ]; T
       "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", * M) u6 U% W) f3 N! |( K1 K; f
        ",", "c8", ",", "c9"}], "}"}]}]], "Input"," W. C6 n- X4 D1 k9 ~/ X5 p, |5 y
    CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],
    3 ~: h( L: C& [' @  P5 z& Y$ E0 h5 l7 o8 {3 F( x2 x/ \, n
    Cell[BoxData[' {. H* R! e- w
    RowBox[{"{",
    ' d+ h# F: o/ q& y7 |4 l' H  RowBox[{
    ( L# b" ^1 t- U3 {5 [0 V7 w9 O  "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
    & }( |; j% Y8 Z$ }3 Z% y( u    "c8", ",", "c9"}], "}"}]], "Output",. K% A, o& I4 }" b7 @& s
    CellChangeTimes->{
    : c3 q% a' m  y: f9 w2 j) v6 z  3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
    " n% o* ]  B# S1 q3 K   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,   ]1 ^. M' y" c
       3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9,
    # l" Q5 _. R5 p: l9 J- m0 D: ~- ~   3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {
    # K  Q2 r) g, H$ T   3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9,
    4 i! G/ c8 }0 Y7 t+ Y1 W   3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9}, 2 K) U, f3 \, T# b8 J/ c) }
       3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9, : b/ ], M4 J; U! g; g
       3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9, 5 P. y# |5 }+ D( ]7 w3 O  _3 x" n
       3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9}, 8 [9 q# b" D$ v+ g" y
       3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {5 Q7 x# H7 U- Q& K
       3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
    7 {, e9 \1 h9 c6 p4 m* _( B   3.577961904604212*^9}, 3.578012158671875*^9}]
    7 C) I- ^% j9 y: W/ \6 w}, Open  ]],+ q9 V- `7 O9 h5 V  J. z- Y$ z
      o" Q  N* j6 Q
    Cell[BoxData[4 t6 U. N4 F5 w
    RowBox[{"For", "[",
    : \- F- V. f4 u% `; o# Q/ i  RowBox[{
      t- e1 W1 H( b+ S; Y' h* e   RowBox[{"i", "=", "1"}], ",",
    ( P* H" ]2 e1 E0 ^5 c   RowBox[{"i", "\[LessEqual]", "9"}], ",", 9 T* c5 O5 x( [# E- M
       RowBox[{"i", "++"}], ",", 3 L8 i5 Z0 Q2 O: [0 u
       RowBox[{
    " h. |9 g( F9 ^    RowBox[{"Ca", "[", & M% N9 E: t5 ?) b" c' T) d
         RowBox[{"[", "i", "]"}], "]"}], "=", 1 R/ j- j, l. b) G* H/ N
        RowBox[{"CM", "[",
    $ Q, C- F- f5 H7 `1 X1 w4 }     RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    ) `* A( o% f( ~% x% @/ u7 k CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
    % i. I7 w6 h, b& Q0 X   3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
    . Z! `& Z+ r5 `& h: @   3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9, * C1 ], I" L8 j( y
       3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9, 8 j# C6 {0 c0 p1 O9 U: `5 D7 x
       3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9,
    8 G, J1 ~) |+ f/ i% Q, {   3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9,
    8 x+ z- T; `0 x% t" t1 W   3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
    ; B0 X) F+ h) W! I1 p: t  Q2 i   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
    ! Y) ?8 p$ i* M0 I+ c+ G   3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
    2 k2 R* G3 D8 R& n: u% l   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
    ( e( H' J6 }; r3 y; S   3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {) c/ h1 U' u3 r" @) Y" Y! A5 x
       3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9, " \/ u/ G8 a9 @6 r7 j9 p; b
       3.577961906897415*^9}, 3.578012176296875*^9}],# H: O0 F2 N( y3 j, i# Y& h
    , i% S9 g! ^" U. z/ T9 G
    Cell[CellGroupData[{* t5 e9 z( H% Q. S; u7 ]

    * P7 c& [) p/ k8 t, n0 p# YCell[BoxData[
    9 i! ]; i. m4 S- h- h RowBox[{" k* p! y( u# }# v/ k
      RowBox[{"(",
    - Z2 x  e: l% Q5 G% l   RowBox[{"Xa", "-", "Ca"}], ")"}], ".", , Z  t, F6 V. s- i& `, R9 S0 G
      RowBox[{"(",
    ! T  @# y4 `# Y0 }& G8 [+ H" H: G   RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],$ ]& P) h# ^1 s- I7 ]! I
    $ {( h# r1 H2 P& o1 _! n' m
    Cell[BoxData[
    3 T* m' Y: X+ n; \ RowBox[{& ?/ V% K: P& r
      SuperscriptBox[
    ! n7 F& K* ^) p( j$ d! n7 G) r   RowBox[{"(", - c5 a# V8 D3 x" p* w! _
        RowBox[{
    5 k' O% g) K1 S6 T+ T( U8 O4 G  S& x     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+", ) c2 I3 n, S8 u8 [+ |4 x
      SuperscriptBox[
    0 t$ V% A6 @3 P% D* `   RowBox[{"(", 6 E2 [! W* t4 ]" X
        RowBox[{6 n! U1 I( U. u& c6 H2 E* x
         RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+", ) v- i& C4 p' N, j, z
      SuperscriptBox[
    0 E+ m" i) b0 V, _5 m1 D   RowBox[{"(",
    : g2 e0 k; V( D    RowBox[{* d+ j% \! l0 B3 w* F
         RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+", , h5 A9 T# [1 ?8 M2 N. B7 r6 Z# m
      SuperscriptBox[4 n* p/ c7 j- V/ _
       RowBox[{"(",
    2 _# d$ N7 D. A* u2 c$ ~' ^    RowBox[{
    & b9 |, r. z# Z4 \     RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
    * y2 G0 u  K/ w  SuperscriptBox[
      U: ^! I3 \$ u2 r, @% I   RowBox[{"(",
    , V6 W* q' j/ s  |2 U; ]    RowBox[{* [& M2 H+ t. a! {& g; D3 F" S
         RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+",
    1 i" _9 n& \7 V  n/ x5 I. K' H  SuperscriptBox[
    8 I! g  u' P, F0 U( ]9 v5 S/ o  r   RowBox[{"(",
      Z; m) W6 u  c' j( J0 I    RowBox[{
    . t6 e( [% t& G+ P/ A( ^     RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
    ' z+ p8 R. O9 Q: O% s" z  SuperscriptBox[6 b7 y- [. c1 A
       RowBox[{"(", , \# `2 f5 `$ m7 x
        RowBox[{
    ' H# b- c; h$ n. u' `( c     RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+",
    / L. g" f6 i+ l7 H. E  SuperscriptBox[" {, x) U1 M9 O" y
       RowBox[{"(", : ~' _  |. A5 x( }$ R) u
        RowBox[{) [1 P" k0 N$ u. x4 ^" Z
         RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+",
    - z- L. ]5 I6 P+ P# P7 b* P3 t  SuperscriptBox[
    ( x8 K; L9 |8 C4 L   RowBox[{"(", ( F; o) z4 |: u7 U5 K  x
        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",, x- g$ U0 d( V- E8 u$ h; \- A
    CellChangeTimes->{7 c( C( }6 j( @/ o
      3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9},
    & {( `) w5 a4 R3 J1 X   3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9, ; `# `5 [) w7 H
       3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9, ' t  [4 ?  g, q! q# Q7 f6 V7 W6 D
       3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9,
    6 Y% A( T! \3 i7 ^7 D: Y5 o   3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9}, & g2 E2 |  ^, K: D7 l
       3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9, : }* k5 o% L+ b) \. f& L0 A
       3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {5 n$ i8 M+ q1 X( S0 f
       3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9, ! `4 S  d0 f; a5 o0 q- F) g/ @
       3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {. O& W! j; [3 J; i; k0 B3 O& ?
       3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {8 u$ Q$ T" r* X
       3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9,
    ' M( l4 E4 Q( T   3.5779618537169228`*^9}, {3.5779618846049767`*^9, ) t" Y" X  w: F+ L4 M
       3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]; K9 Z9 ]* n. k, R" v$ H/ d+ }) K
    }, Open  ]],+ j- h! K! s. h5 V

    * ]. }. @, B7 F4 C/ V, l) VCell[CellGroupData[{$ s+ i/ ^) N  D4 l% a

    " _8 U% O+ [; y4 cCell[BoxData[
    0 `: W9 V; T. @5 O$ ~( g RowBox[{
    $ s) Q: ]( W5 |  RowBox[{"Ca", "[",
    ; X; ^3 ^0 W: m1 `2 p8 i   RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",
    , F& J( |3 q+ i CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
    : T- {4 J7 R6 Z+ A7 l  3.5779616465173616`*^9}],
    $ o7 q# D; \3 }+ f
    , w7 F7 Z/ k$ v0 z4 ICell[BoxData["0"], "Output",
    9 a/ `/ |) a; ^" { CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9, 5 e  E% {) m( U+ _  e
      3.5779616484049644`*^9}]- a/ f4 i0 }6 k! P8 }4 T# ^: l
    }, Open  ]],1 E8 b* p+ q/ f$ d4 b$ C# w
    & a  V9 t% c- h$ t3 [; F) ~4 y; n
    Cell[CellGroupData[{
    % @9 {/ r4 q& C  n, `, E) A4 ]) e
    ) b( Z" w2 q$ e; J* D2 yCell[BoxData[
    , [  ^9 _2 e( M7 J7 O# P RowBox[{
    * e. e7 f2 t) H  RowBox[{"Ca", "[", 1 {$ B3 R4 h; k' e& k: q
       RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",) {& \" C9 V( M  a/ E
    CellChangeTimes->{3.577957376235614*^9}],( A8 ]7 ^3 ~& ^# L) E0 I

    * N' @& J+ B, zCell[BoxData["0"], "Output",
    5 h# K7 f! n* X6 S CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]
    " {# r) J  J! ?; i* w}, Open  ]],& p+ }& s( p1 e
    6 A2 c+ a3 S' H$ `0 l9 k
    Cell[CellGroupData[{. j( V  B7 E5 m* v+ A# o) ~+ X1 W+ {

    & F6 T/ K0 k" DCell[BoxData[# k' a! t* ~; O& z% u5 W! H9 ?
    RowBox[{5 s( X% p' E( K3 q6 u- k
      RowBox[{"Ca", "[", : {9 z# m( ~- x1 [8 `$ y+ b1 ?, K
       RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
    9 C& j1 W9 V9 o& N  Q% D3 U  x CellChangeTimes->{3.5779573112927003`*^9}],
    ' o. t9 G6 m, M7 Z, Q) ~" o
    3 o# n- `! s3 s- z/ Q, Y  pCell[BoxData["0"], "Output",
    3 _* i; g4 H" k1 z; } CellChangeTimes->{
    " W4 ^2 w0 l* j) S. P* ^, {  3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,
    4 V' G" X% x+ ^# p( C- f   3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
    $ s& B+ N# V" e" [0 A   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9}, 8 x% n8 a- i# x2 Z
       3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,
    4 N7 [' S! R' A& J& o: c   3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9},
    & i3 a, s5 u8 u6 j9 Y   3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]" U, Q/ R5 V+ z1 v
    }, Open  ]],/ N1 B- Z5 Z& O& v8 K
    9 Z: z/ l! w3 P5 o
    Cell[CellGroupData[{/ M  j( L( s4 N, J+ _

    2 m2 p$ P; G& R5 \( n  VCell[BoxData[( n4 W$ v& E8 H6 N* S% \( T
    RowBox[{
    , j  Y) D; ?, R. [: _  RowBox[{"Ca", "[", 5 R9 V% w$ g) z! @  z  Q- y
       RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
    6 D* a. ^$ \+ M2 H CellChangeTimes->{3.577921461734375*^9}],/ n* G% O; l. ]
    5 k+ Q; P  k# Z: G8 N
    Cell[BoxData["0"], "Output",
    3 L; O$ a% F: L6 J$ M& ~  h CellChangeTimes->{! W! O' d) |/ d0 ^  v) w) [
      3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9,
    2 q7 J8 F4 u) d  f& \3 ]" R7 ~   3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
    " L. i; ~( z- K4 i; y8 a0 @   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9, ' o# D2 }8 {$ }* z2 o2 q: T
       3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9, ' j/ }$ P4 @! L2 c% S8 K
       3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]
    + n* x3 V- A1 |, H% G8 h}, Open  ]],) g, s$ D! I5 _0 c6 C5 J
    ' }. a8 o6 b7 ^. o4 Y
    Cell[CellGroupData[{  I# x7 Z6 E' M4 q7 r3 V: n5 U
    " P' K% v& m8 r) y
    Cell[BoxData[
    2 j/ D, g; }8 ~2 c; _0 H RowBox[{: s3 K, y: E; ^6 k# h, I5 A
      RowBox[{"Ca", "[", 9 X, a: w- r0 s* e3 v1 v) I6 \! p
       RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",; t  T. j* E, \, f9 F/ U% g
    CellChangeTimes->{3.577957303118286*^9}],
    $ a. q9 r$ D6 ~! `. J' W' Z& q2 E# |: u
    Cell[BoxData["0"], "Output",
    ) {2 Y" H+ P# v- i: k& B CellChangeTimes->{% u% x* q, Y( ^1 o7 P% }+ R3 y
      3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {/ q5 L3 B, I: h; Y. Z  i
       3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
    : B7 j) X0 K, L! N+ Z3 f; |   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
    4 ^$ f7 V0 ]  {# n! ~   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,
    $ v$ R) J/ m& Z8 k% O8 u   3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9, / L, @8 |: p+ k; S" ^% |& ?
       3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {$ Y3 D; W6 G8 S( j
       3.577961889378585*^9, 3.577961912965826*^9}}]( w' B' Z" I- A" e' f: H9 i+ b
    }, Open  ]],
    9 {1 J1 }3 |2 ~# V5 P" Q
    4 ~9 A- }) p* o0 b" J( t' kCell[CellGroupData[{6 y' F& Q$ X/ }- ]7 c: y8 D9 p6 `
    7 m7 Q* v% }1 z  ?
    Cell[BoxData[
    3 j2 y, z: U/ Y9 o! ] RowBox[{/ @6 r. \0 \- d0 x) v6 w
      RowBox[{"Ca", "[", 6 C, f/ w5 s8 _: `, }
       RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",4 I$ v) s: u( N9 P: L# j
    CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {
    & O9 d( L4 x$ p5 O5 k1 _# X  3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
    * j: A2 r2 M! u0 v8 w) K6 E. e  3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {4 r& I2 f$ O, L, W: I" j" L* a
      3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
    : O6 k" A2 k2 e0 T5 @) w  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {  r9 A' J5 Q6 J
      3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9, + F: D& k4 g7 ^+ c6 x( G" Q5 U
      3.577921435703125*^9}}],
    0 p5 T) u; ], d+ P1 e) d0 K" L" |) n! x, s
    Cell[BoxData["0"], "Output",* S  i  E2 v# q+ P0 L# ?) Z5 S0 r4 n  |
    CellChangeTimes->{5 f1 L3 j+ u$ A
      3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {
    / e3 E1 j& v' A$ Y& K   3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9, 9 A9 w3 w8 p$ {/ M* B4 P8 ], k
       3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {
    3 |* s2 O3 S' G9 ?" u   3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9,
    . x: w7 ]/ m  y+ A) t   3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {) p) l1 P, h- `* P
       3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9, $ ^  \( V' O% K+ z! C" f* ?) b
       3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
    1 R/ I% ?: i, Y' a6 \$ Q) H   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
    . I; z8 a8 E3 A7 p( X   3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
    $ |  j  X8 o0 S- ^   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9, 8 K4 V, a/ D, `7 k1 Q& w
       3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {
    ) p5 I. y- _; U1 `! }! I   3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9, / f3 |3 R: o" q/ g
       3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]4 {7 W4 [# c6 p: ?
    }, Open  ]],
    ! |# _6 X) x# P: h+ g8 z+ v
    4 \- l- _1 |  o* R1 lCell[CellGroupData[{4 ]* n& @, F( `. v4 v$ k
    / _1 z. y8 L# d- ^. x
    Cell[BoxData[
    + D' z" N% V! O8 v RowBox[{"Delta1", "=", ( `5 M1 L5 E% q0 r. B  `1 l
      RowBox[{
    & p/ ^5 H7 L# {8 W3 E8 u   SubsuperscriptBox["\[Integral]", 8 I; j" x2 @" ~% G' N
        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    9 x4 L& e  W9 \, q, P% }' C) J  M   RowBox[{1 E8 F  f8 Z' V  b( j1 R
        SubsuperscriptBox["\[Integral]", 4 m7 z0 \$ @$ G& @8 g- J1 s
         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], . U( ]6 i0 s! U: W
        RowBox[{
    3 t" {- N, G4 L  }  B9 U5 {     SubsuperscriptBox["\[Integral]",
    , I4 J6 }* `# G! M7 P2 G% |8 T      RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    ! v& E  O) |5 h5 F  P     RowBox[{; r+ B  ?; D4 ^& G8 ~/ d. Y
          SubsuperscriptBox["\[Integral]",
    6 H% O1 t  G) Y$ r. V/ f: o; Y       RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    $ e2 R0 @0 e, h+ i; `' D& L      RowBox[{
    . s# d' x8 N9 V2 ^: G' J! o       SubsuperscriptBox["\[Integral]",
    * Y( ^* b% A$ Q7 T$ v        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], " I$ \$ ~2 I4 M9 }8 S
           RowBox[{
    # C: W: {$ M) Q3 [7 b& ~0 W        SubsuperscriptBox["\[Integral]",
    ! Y! w1 Q/ g, D         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 9 j% I) L  b+ K9 F% I
            RowBox[{. e/ U" y) |! s9 x! x( w; q
             SubsuperscriptBox["\[Integral]", 3 i) E, q  D$ }6 r7 ^1 j9 G
              RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 7 X5 I( O0 d: c
             RowBox[{! ]/ {( ^! y5 M* M3 D2 u
              SubsuperscriptBox["\[Integral]", 5 r& `1 B2 y0 ~6 |6 z3 V2 J
               RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], % n2 q% f$ d/ ^" Y' i) N
              RowBox[{
    5 A4 [) C% I& d  `           SubsuperscriptBox["\[Integral]",
    ) @5 i) Z: H1 M8 I5 K9 K( ?! @            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    3 `9 _7 p3 C# S           RowBox[{+ v* E, r% Y+ e9 l% ~) @
                RowBox[{"Exp", "[",
    1 F8 N& Y$ A8 m# C             RowBox[{
    # j7 V( J9 h! S5 I$ x9 A9 W: A              RowBox[{
    , y' v2 V3 Z+ x2 A/ b# c& n               RowBox[{"-", + H* h$ V: t( r( X
                    RowBox[{
    5 i) i6 I/ s8 N  @' P                 RowBox[{"(",
    0 @2 N+ D+ C5 f7 A5 l3 g+ O$ T0 J                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".", . Y& Q- ~* _+ Y4 D
                     RowBox[{"(",
    * }8 w7 a2 i2 d( i) j  K* d                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
    9 ]2 ?1 i" I" _$ T              "Delta"}], "]"}], $ T) W  ^1 i- B8 P9 V- E" }
                RowBox[{"\[DifferentialD]", "x1"}],
    . F. u* v. `2 y: M% R8 E9 w5 V            RowBox[{"\[DifferentialD]", "x2"}], 7 k1 M# N. K$ p! {( p+ m2 i! g
                RowBox[{"\[DifferentialD]", "x3"}],
    + ~" L2 U' F! e: c( l            RowBox[{"\[DifferentialD]", "x4"}],
    ) V% f9 L2 k* R7 X8 E# i2 }            RowBox[{"\[DifferentialD]", "x5"}],
    9 x, n% {6 K& Y5 y. @& V            RowBox[{"\[DifferentialD]", "x6"}],
    . j2 R! i: Y( S! p: A            RowBox[{"\[DifferentialD]", "x7"}], : j, b) h" S" X4 P
                RowBox[{"\[DifferentialD]", "x8"}],
    . M! X4 G. Q4 g' |$ c( X1 q+ N8 i! N            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
    4 i! l+ O# x' y2 L! x  t  { CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {
    + {& K" b+ `- d$ ~   3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9, , o, \! V! C* h3 k! h- `
       3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {
    # v! r. s" @3 \. l   3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
    ' v; I  A$ H# {- [& I   3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {
    ! L/ P; n% u$ S5 H  V: r$ T   3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9, . y; R! s9 z2 M
       3.577918964453125*^9}}],
    ( X8 x. S' K' D2 C
    : ?7 e+ \# @6 G! H( n5 r& CCell[BoxData[
    0 V; ?' y/ W" L6 R1 k RowBox[{"97.40909103400237`", " ", 0 r+ R* r/ b! H/ J' ^8 S
      SuperscriptBox["Delta", "8"], " ", 9 }1 F& n3 j- A! x% i
      RowBox[{"If", "[",
      z9 Y. E- m  g+ a3 d+ ]8 p   RowBox[{
    * Y9 m4 h1 p7 l. w: f; S# d2 ^    RowBox[{6 A/ `+ z' u7 u* r
         RowBox[{"Re", "[", : b- _5 g# J  x# K2 {
          SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",", 5 v! P8 O5 H4 p" d$ U
        FractionBox[
    # M0 a2 U  |5 M( Y! _     RowBox[{"1.7724538509055159`", " ", 6 W4 N% I7 U$ A8 z( ~7 t( K: U: ~
          SuperscriptBox["\[ExponentialE]",
    " Y7 c- Y* u3 K; R- ~+ s# v       FractionBox["1.1102230246251565`*^-16", " O) ]9 k% [6 X" k: g
            SuperscriptBox["Delta", "2"]]]}],
    , |* s2 @/ p8 ?' ]     SqrtBox[- w# f( J! i3 X
          FractionBox["1", ) y) e# @  j8 B8 k1 w% e  ]1 T
           SuperscriptBox["Delta", "2"]]]], ",", 0 ]. F, ~3 H; A) `( u, B
        RowBox[{"Integrate", "[",
    ; {) b9 F. o! S4 Y7 W$ h     RowBox[{* F/ O. ^$ _! ]0 M
          SuperscriptBox["\[ExponentialE]",
    9 v5 }- l+ r( o* h       FractionBox[2 N+ O6 S) C4 w6 b
            RowBox[{"1.1102230246251565`*^-16", "-",   z4 o/ G# j0 v: Q- F& n2 x
             RowBox[{"1.`", " ",
    : j" {6 ^/ R- _# O          SuperscriptBox["x9", "2"]}]}], ! }) q: S& G& B) b/ h+ L1 Z8 z2 F
            SuperscriptBox["Delta", "2"]]], ",", ( M; I8 f# H. r4 n9 k1 x
          RowBox[{"{",
    " }8 t( F" r# v/ J% B       RowBox[{"x9", ",",
    $ D# k, \: t: A4 \" e        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", * u5 ^& ^0 [9 n/ {4 V
          RowBox[{"Assumptions", "\[Rule]", % Z) [9 @' G2 A0 a) z6 x' m) k/ x
           RowBox[{. O3 E* V( y& f3 U3 K6 ]) k
            RowBox[{"Re", "[",
    2 P8 |& r. ~! z! r1 \) W! w         SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}], " }' R' ^, V9 Y% w& X3 o+ ~
         "]"}]}], "]"}]}]], "Output",, @* S0 T& V9 p* N1 F
    CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9, + o3 B; _4 C- ~9 U' r1 P
      3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
    , B* O% H! Z% [, D2 N* P  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,
    9 W2 T+ }  r6 ?  C1 F1 c$ ~  3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9,
    / o5 u: \' x, n# R$ a) Y9 u1 g) ]% ^  3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9, 3 ^8 P/ S+ p4 O, E! i9 w
      3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
    ' ~( s" o/ I- _6 b6 u) Y' R3 A  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]
    4 v! _" L* C% f4 ?% N1 i" S9 n}, Open  ]],
    9 ^3 c3 a! q0 |% J- k  `  Z2 B$ g3 F, a" o! ?$ ^% C
    Cell[CellGroupData[{6 z7 s* x% J4 I! ~" n/ D0 i

    6 {2 m; n* E3 v, `" g: }: k: xCell[BoxData[( I7 g4 g/ E  ]
    RowBox[{"Delta1", "=",
    + P! J5 T2 i1 P# \/ t1 {% U( D  StyleBox[
    " Z% j. j; @6 _+ t   RowBox[{"97.40909103400237`", " ",   Z0 v2 y+ y  h
        SuperscriptBox["Delta", "8"], "  ", 2 M3 W6 [& s7 ?" s* y2 `4 M
        FractionBox[
    . z% ?3 r  ^, {# K7 ~+ ^  p( f- k. t     RowBox[{"1.7724538509055159`", " ",
      a7 n* {! F9 U0 P2 P8 p* j      SuperscriptBox["\[ExponentialE]",
    ; l# J  W; P  z) S+ [       FractionBox["1.1102230246251565`*^-16",
    $ f5 A# Y3 F* P- F7 m, n        SuperscriptBox["Delta", "2"]]]}], . t/ A* x* ]) n4 e* n( P
         SqrtBox[
    9 q- j; Y! G  D- G4 i      FractionBox["1", 5 Z* x& i1 r" F2 v: _6 o3 p
           SuperscriptBox["Delta", "2"]]]]}],2 R- j. p) M( w
       FontWeight->"Plain"]}]], "Input",5 A4 B% ]- y& s9 w; G9 c
    CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {
    $ E9 o; Y/ A3 I& J1 y  O, A   3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,
    & ?2 _! h' y% Z+ p) _7 N   3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {( P+ R* c+ _' q- x9 Q' q  ?  u6 _
       3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9, 4 b) |& U+ ]  l% z( N# o
       3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},
    2 s  W$ p  k% }1 C" U8 \& u- \+ }9 {   3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],
    7 C' [  d- Z: Z% B& h# N$ ]' a* d: N' b
    Cell[BoxData[: @. w' l% i! n) M
    FractionBox[
    * s! U/ W, _. m5 |2 G  RowBox[{"172.65311851642346`", " ",
    " @; {, A# U; O/ `   SuperscriptBox["Delta", "8"], " ",
    : }% U" o6 p$ X4 b  E( Z$ v0 [# W   SuperscriptBox["\[ExponentialE]", * k/ Q+ j; r; ?5 M
        FractionBox["1.1102230246251565`*^-16",
    * T( }, J& K  \% |2 X! I     SuperscriptBox["Delta", "2"]]]}],
    7 C5 i& |2 _; C5 {2 y  _  SqrtBox[* Q+ E% W6 V) s
       FractionBox["1",   P- L! a6 c" ~( k6 N6 J4 k
        SuperscriptBox["Delta", "2"]]]]], "Output",
    - V/ ^7 ?( W& Y; V; }9 n CellChangeTimes->{) v3 x& n9 z; x& z7 U
      3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9,
    0 P+ J0 ]. s+ Y- P: n7 |6 W   3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
    8 X% t. X! R% a9 p' Q   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9, 8 f3 Y# E: j# p0 n4 \2 r( O5 i
       3.578012166234375*^9}]) v* L8 h9 u* ?8 z' k1 L9 x
    }, Open  ]],
    : n+ q% i3 a; b; S4 N* `: h& V' w
    Cell[CellGroupData[{; j0 u* ^: a$ j3 L' ?
    7 |6 x) k" b# _6 D- A
    Cell[BoxData[; D/ q0 g" A5 W2 Q: y$ ~2 o- a
    RowBox[{"DeltaX", "=",
    & @' x1 z' X: ]9 Z- U  RowBox[{"FindRoot", "[", $ B. d! ~5 B6 H2 f# }' |0 K: Y% d
       RowBox[{
    . i- ?3 T4 v2 Q1 H$ U( _    RowBox[{"Delta1", "\[Equal]", "1"}], ",", / z) |. r1 L: ?% Y; l
        RowBox[{"{",
    & ?  F* m9 f4 p/ Z2 N  t3 M     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",, [" ^1 v! m/ q# n4 O5 J' A' J
    CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {
    % F9 L6 P! [- `2 W7 i9 q   3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9, % Z2 g% x  q8 c+ Z, [
       3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9, " N6 w% K# ~4 }8 t! o1 T" A
       3.57791921584375*^9}}],; H0 j7 x, u! c" T; R

    % N+ {9 Y9 `7 B  LCell[BoxData[4 x: K( t2 p& R( C
    RowBox[{"{", 5 l" z' C4 e! D: h$ R+ {: [$ u3 a
      RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
    & h2 O" z# a0 `. L  v5 @! [& b CellChangeTimes->{- D" L2 W# q, I' {, `7 i3 I. O
      3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
    7 |( z: w3 [7 U, A( f3 e7 B   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9, 5 P2 d: z1 L5 P9 Q: z
       3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
    # u2 t& Y. C0 m8 \   3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
    $ T- k+ k/ x  g: f   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
      y$ n" A9 C! ]   3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9, 4 s( a1 o* z( Y( f  E
       3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
    5 E9 S" O. [0 q3 h) H   3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
    5 `/ D, X+ N* I   3.57796070150625*^9, 3.578012167703125*^9}]3 ?! _; y9 V$ R$ B% |/ a; f
    }, Open  ]],0 P- X. L0 ~% V, I
    ' v$ r1 |, f5 q0 `$ [8 h4 k
    Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\) |8 |1 A: }8 G- R
    \:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
    - E: _7 I: p* }$ u% S1 x2 j CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
    , x2 x  X& |! O+ m) q9 g  3.577960705312657*^9, 3.577960707621461*^9}}],
    9 Y& U% E& R6 [% p
    ! J% ^( a4 U$ ^3 f+ ICell[CellGroupData[{8 D; _# ^- v0 `( O

    ( Z" Q& f9 x2 }7 OCell[BoxData[
    / }/ n* b! k9 ~% D RowBox[{"C1", "=", "Ca"}]], "Input",
    4 a7 X6 ~8 w/ w CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],
    / ]( k9 {: a+ G4 x3 d9 C+ w) E8 v' ~* z8 W* n5 C6 L
    Cell[BoxData[
    6 k' x; U' w; F& H( y& _8 x, T# } RowBox[{"{",
    6 d7 U7 @# i& j8 ]2 v0 X* b* f  RowBox[{
    ) l) {, B7 A, l  "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", / U; L+ s# L8 T4 ?# f
       "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
    2 p( v9 H2 |5 S) K   "0.`"}], "}"}]], "Output",2 p/ [, D3 `' U* A
    CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9, ! J2 h4 N. b% D5 g: e9 f! E
      3.577960710273465*^9, 3.5780121855*^9}]; V" N+ [0 F% I; f# K( G) Z; A  K
    }, Open  ]],
    & e) c9 ?: ?" f+ M) f
    5 D+ N, L2 _$ {Cell[CellGroupData[{* e7 P6 ~* W* }

      H  v; g9 s' |( ^- LCell[BoxData[( m6 a/ K4 D7 b- @7 s, G
    RowBox[{"u1", "=",
    ; a( ~' t1 u& l6 _' F; h4 h  RowBox[{
    6 j9 S4 K- g1 g5 t  l; z* U   RowBox[{"Exp", "[", 5 I5 B$ O( E* @. w  R- P
        RowBox[{
    : S/ G+ Y, n2 O5 v/ F( r4 j     RowBox[{6 C! P  y4 p$ k; D; e4 Y
          RowBox[{"-",
    ; Q. x- P. p3 v) H       RowBox[{
    0 X/ }' W8 b  g0 r* g! z) y& U        RowBox[{"(", . o# p4 x* B1 U$ d% G* x
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 4 p0 `) i. X1 x% E
            RowBox[{"(",
    ( P4 e' {. c  v0 H' E         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],6 S, z! q5 n$ l8 S% f
         "]"}], "/.", "DeltaX"}]}]], "Input",
    " b! U: L7 X1 v0 I1 Y0 e" d0 B CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {
    6 T  @1 A5 x, F; A9 @" m* ?   3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {  g' @% ?' g- j- L4 E& A, y
       3.577919193484375*^9, 3.5779192326875*^9}}],
    1 }) }5 p6 G# T9 P" ~7 S
    + M9 y7 T' s' G6 a/ k0 aCell[BoxData[
    ) }$ C( }4 _5 [7 W+ p SuperscriptBox["\[ExponentialE]",
      ?  I- B: n: ]! t( t. Y! H) j  RowBox[{"3.141592653589793`", " ",
    * @0 \7 C  v  ^! U; `   RowBox[{"(", & \. _# E7 w5 u( |1 l
        RowBox[{+ U! C" _% z, O" W2 O
         RowBox[{"-",
    3 Y; b* q" n7 c% G      SuperscriptBox[3 w5 J0 r( _& e  r  e
           RowBox[{"(", ) V' D% V4 P* s
            RowBox[{
    * ^! F# X% h+ W4 U# y         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
    + d" [' |  J* C     SuperscriptBox[6 x' ~& l( Q# @- g: G# b% v
          RowBox[{"(",
    # O/ |" D' S$ I# }' s9 P       RowBox[{! r% V+ T9 p+ g* j5 V" \# I
            RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
    * Y/ C' ^6 m1 i/ E     SuperscriptBox[) M! r: _' M0 U: J+ V+ o. O
          RowBox[{"(", , x8 r0 z" B9 |0 ~/ P* A
           RowBox[{
    " u$ k! t5 m  c5 Y: v" F        RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
    + }# {. n- v2 O     SuperscriptBox[( W9 I" l% `$ R% G
          RowBox[{"(",
    - b! g% D9 G+ Z4 Q5 n       RowBox[{" q. y7 \# V1 ^/ q: A; G7 r3 N
            RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
    : u0 |) k+ Y5 ]- |     SuperscriptBox[
    0 w% @8 F: {/ ]1 e2 A" @      RowBox[{"(",
    - W' y/ f8 ]! w6 r4 A! R- _       RowBox[{6 e; H7 H* J1 t( w7 a% E! W2 d7 O
            RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
    , T$ ~+ K$ I$ G# F( _; Q     SuperscriptBox[
      h0 ^4 l1 a6 L4 o      RowBox[{"(", - T/ ^& _! t* E. \
           RowBox[{/ D! b6 z1 j2 P3 ?' p! x' F
            RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", : M; H, x- e3 u* g1 C
         SuperscriptBox[
    . W0 ]) ]9 W) k2 x      RowBox[{"(",
    3 P" @8 ?) P; z. b: B8 L; B+ X6 S       RowBox[{3 v( B6 s! w' ~7 p( {
            RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",   K, ~* r% G' ]+ P5 @* q  \
         SuperscriptBox[2 a- E, ?+ d4 q* g
          RowBox[{"(", 1 w( `+ x  l8 I& F' L: s$ d! S
           RowBox[{: R, T+ g4 ~/ z9 }9 ~0 {
            RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", / o0 f; a9 o! I4 L
         SuperscriptBox[7 V% a9 j% s$ w* v$ Q5 s; J# z
          RowBox[{"(",
    ' ^; Z" `, p) K' v) w! \       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], / o% B+ u5 F# d! X6 [5 o  [2 D& p
        ")"}]}]]], "Output",; d7 A5 X3 e& K7 r2 o
    CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
    ) j' ?' C9 L) [2 c  3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9,
    6 S; p3 T& P# u/ J9 d) q  3.578012187078125*^9}]7 w2 R, R. e1 i! {; @( f
    }, Open  ]],* v# [8 i; `" N  {# u& @" n
    7 m! o: s" I8 b, G0 z& Z" S
    Cell[CellGroupData[{. Y8 r* D! F' e- B* t

    * V- M0 w0 r- V! ^) e% G6 VCell[BoxData[" @2 o/ C$ w6 L7 D' g0 d8 @9 k
    RowBox[{"C2", "=", "Ca"}]], "Input",
    6 i1 x2 v$ }1 S0 T CellChangeTimes->{3.57792047321875*^9}],
    7 @4 S9 E, y% l+ u9 z: [, a0 C2 o9 b& i2 c! Q  m
    Cell[BoxData[, G# t9 k+ H4 B8 n7 F' G% D
    RowBox[{"{",
    ' T* z$ e  x1 m8 Z  RowBox[{% R- b. i: [. [3 M! L
      "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
    7 Y/ k, X$ C- j1 l( E   "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}],
      v8 R/ e: A! f4 d: }! c, t' Y+ G, C  "}"}]], "Output",
    " c& d0 I9 ^* R CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
    ; I0 r9 p& l) ^+ |# j  3.5779607401163173`*^9, 3.578012204671875*^9}]1 D+ A, Y- E4 m) ]: T
    }, Open  ]],
    7 k) S! r, Q* f& u! T. O5 r/ ?$ _, A) x" h, t5 l
    Cell[CellGroupData[{
    : R9 X1 s1 }# G/ q/ J( \
    5 x$ b: w' W. ]* H, v6 E7 F: _! yCell[BoxData[
    ) P8 g1 I3 w; `; | RowBox[{"u2", "=", " {6 a* \+ \4 G7 i8 h
      RowBox[{" v! m! @* E! n
       RowBox[{"Exp", "[",
    * W3 w, t4 a9 V1 d  t/ e6 K  Z    RowBox[{
    2 q; c" z3 O; ?     RowBox[{1 S/ H7 O/ u; F; Q; L3 i: ^/ [
          RowBox[{"-",   ?. _9 _( a5 m9 j( b3 F4 N
           RowBox[{
    - g+ z( {- ^& J# X5 M3 ~$ e        RowBox[{"(",
    1 @- Q# U: y9 f% J) {         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ' r& T# Y2 U3 y
            RowBox[{"(", 9 H& G  D" L. L0 c
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    + e% y' ?) v. d% Z0 i. p     "]"}], "/.", "DeltaX"}]}]], "Input",
    & d! L# c7 I# ~7 X$ M! K" h& I4 p! ] CellChangeTimes->{3.577920484109375*^9}],2 n0 l9 m3 @! z, |- c( |% Q
    / A4 U2 Y: j  S7 k, a, w0 ~/ f
    Cell[BoxData[) q* N1 W. R, }  s9 ^' F
    SuperscriptBox["\[ExponentialE]",
    3 p! Z! P" _! c' u/ n) m0 a  RowBox[{"3.141592653589793`", " ", * j& s# g1 r: y. a' H
       RowBox[{"(",
    + W! }, f! q  |8 ?$ }    RowBox[{+ \: {. u- w5 l( P$ o: F% h5 U
         RowBox[{"-",
    - Y- O4 K+ F7 p+ ]      SuperscriptBox[. W2 N3 ~/ ]; H4 V4 J) e7 q9 F
           RowBox[{"(",
    % n$ e7 ?$ \: x. i: R6 w8 `        RowBox[{& ]% {) F8 a% ?- y# f$ `
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
    7 |. I; P( Q& v% o9 ?, I     SuperscriptBox[
    , m5 s# g2 Q% {      RowBox[{"(",
    & q7 t) s0 c8 ~8 f$ k) n. f       RowBox[{
    ' u% [) R% L+ S0 c* ]. n4 X/ F        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
    9 _: B3 F4 ]: p/ {     SuperscriptBox[
    2 c) ?3 F0 Q: e" R0 @3 ]      RowBox[{"(", 7 ~6 `6 M$ O# `2 W. x1 d
           RowBox[{
    3 \/ J1 N0 j& v& B        RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", 0 W; c4 A* w; z3 J; T
         SuperscriptBox[
      h9 b; Z6 I' A' n# Z! E1 m: _8 v      RowBox[{"(",
    * B( a0 s9 O& Z* h       RowBox[{) w) E2 T7 q' }7 r) c
            RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-", $ _, ^. R2 o1 v: D& W* S* v
         SuperscriptBox[
    9 ?5 ^( d: M) a1 ?      RowBox[{"(",
    - w% H; J/ r1 n% p: Y4 t) W: M  O       RowBox[{0 p- e0 k/ l, T! w
            RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", * K1 B8 S% S1 W8 I
         SuperscriptBox[/ f# j2 v9 S; b+ d" H
          RowBox[{"(",
    $ Z  S: L8 X1 [       RowBox[{1 u. L  t2 _( W- k& m! N
            RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
    7 R( N% ?  k. t$ e: w% l     SuperscriptBox[
    , b" J4 y, C3 w6 c5 R: _$ x* W      RowBox[{"(",   {3 M  a  s2 X# U4 `* k5 U
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    3 }. _* A9 c) E1 D: T4 l     SuperscriptBox[- ^4 y- O' P% ^; U1 m* M& b& u
          RowBox[{"(",
    # k% B& ~: ^' L2 S# v) l5 t" s       RowBox[{9 u1 [7 K& v5 P- M( g7 q
            RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", 7 D5 w& `. Z) v% M1 x
         SuperscriptBox[
    $ ]# L# r7 V+ s, J7 p+ R' Q* O      RowBox[{"(",
    8 g, E" J4 x, L       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], * S6 F' L4 v" z8 |6 l. h
        ")"}]}]]], "Output",
    % V2 l# S: h' U3 |: l, L* Q+ z CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
    + O; v6 L5 g3 s3 c# s4 @  3.5779607413955193`*^9, 3.578012205484375*^9}]
    ) K, ~( a# N5 |}, Open  ]],9 P# D1 l; Y$ _* o( Y' Y
    # t, U- s) G1 ~) X) ~
    Cell[CellGroupData[{% F: P& ^# j2 g4 o! _2 u) |

    ; E9 Y* y- D' c4 YCell[BoxData[
    1 Q  P7 [) e" ]/ [, e RowBox[{"C3", "=", "Ca"}]], "Input",2 s( y# z! e9 P/ t5 c/ [$ G5 @' _3 Z
    CellChangeTimes->{3.57792064125*^9}],
    # i; Y! c, j( {: ]4 j8 _( L* M. ~+ N: m: Y- i+ e! q- _
    Cell[BoxData[
    ' L3 d( L+ H+ n RowBox[{"{",
    9 o$ `  c4 [( ]  RowBox[{" z5 c: h# s, F: T% ?* f* m
      "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",", 0 e: \8 p2 I3 P  A8 [6 u1 B
       "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}], 6 |/ e) k: }3 a; Q; s! }+ E1 y
      "}"}]], "Output",+ v, Z* X3 E- J& h
    CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
    ( {9 B2 c$ G. Z# E7 G  3.5779607642027593`*^9, 3.5780122103125*^9}]
    & r' M& `2 t7 w! y: a, p}, Open  ]],
    - C1 p3 T" t, `+ ?) a3 U' R
    % L6 K1 \# U6 M$ u: g: I- P0 XCell[CellGroupData[{' K- K6 F) y3 T. x. ~/ U- y6 Y
    % W  g; q. E: ^9 |% ?5 c- j
    Cell[BoxData[
    8 _' ^& E0 r! R$ a$ Y8 j RowBox[{"u3", "=", 0 g/ G/ v1 a3 K
      RowBox[{
    : K. `8 G1 Y  `: X   RowBox[{"Exp", "[", 8 b6 Z3 v  P  s$ f
        RowBox[{
    5 |* g0 w1 A: y0 x5 }     RowBox[{/ t1 R. a" L; j
          RowBox[{"-", % M5 V. t  W7 f- |; N
           RowBox[{
    5 j3 n- h. a( A8 {4 O: L        RowBox[{"(",
    3 s$ d6 `! Y$ z8 A" @+ S' j         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 X( t" h8 @1 J7 L: p1 X) i
            RowBox[{"(", , j7 z. W) u* y; \0 c
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],: G0 O9 ?4 [; [- i
         "]"}], "/.", "DeltaX"}]}]], "Input",# I1 `8 G, ?, a+ l
    CellChangeTimes->{3.57792064921875*^9}],
    # r+ F( e) D' Z  t# U0 T
    7 U9 h9 h2 V' U" ?) \' WCell[BoxData[! g* |% Y0 }7 [; x( M! A  r. A+ l) }8 V
    SuperscriptBox["\[ExponentialE]",
    1 p# M8 t+ E0 h  RowBox[{"3.141592653589793`", " ",
    ( C  ^% B' a) U   RowBox[{"(", # ^5 \$ a' i' i# s5 C: D8 X+ l6 {
        RowBox[{/ m! |$ s& X8 n% F
         RowBox[{"-", 8 B/ v6 j% }7 w; y
          SuperscriptBox[% z4 G1 {9 k7 G
           RowBox[{"(", 7 V0 e9 B3 J( W1 l9 v; y
            RowBox[{# @! a  |- Z& J" u# c* `9 W
             RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", & [9 d0 j/ G# n! l) ?6 Q
         SuperscriptBox[2 x; Y6 c9 D5 K5 i, a
          RowBox[{"(",
    " L" _- E) y0 M" S# d( }' j       RowBox[{
    ( S2 M1 w# q" D        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
    ' |& K# u$ H8 X( L6 c, d     SuperscriptBox[1 I4 c( ~7 w9 j7 J1 B# r  s6 y, L
          RowBox[{"(",
    5 [' W- U  Z' M' I       RowBox[{/ V' i; z+ @0 B+ B3 m
            RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
    2 Y' D: M* R8 K$ `$ m" ^& V, c     SuperscriptBox[
    , Q! a& N& f, v$ m% b      RowBox[{"(",
    # h0 _. Y+ X, [$ [, Y7 @1 r       RowBox[{
    & c$ y, q) a3 C, |* w3 k        RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
    / p- O& r( K& B; Q* {& x  z1 ?     SuperscriptBox[  y1 I7 d4 i" ]: ~
          RowBox[{"(", ' R1 V: q( N5 L5 v  x% p  w4 c
           RowBox[{
    $ j4 @; R* K0 Z+ K; v3 @        RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-", 5 K; l. o8 [! Z6 n% F
         SuperscriptBox[
    4 j- m# ?. Y  B( H      RowBox[{"(", . s0 C4 O5 _3 k# E4 }4 I, z$ g
           RowBox[{( e% u2 s1 [$ ?& {+ _( J$ ~
            RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
    ' c+ U4 e: Y/ E& y8 a! w     SuperscriptBox[. B; m9 m, k5 ]% c
          RowBox[{"(",
    8 Z5 ?8 ^7 K; t+ W5 A       RowBox[{# ?- k0 d9 t. |% l$ t" j
            RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
    * r7 p- U5 Q4 L- \5 e& q& w     SuperscriptBox[( }" z8 `% L0 ]" _; p
          RowBox[{"(",
    # V& u+ f! p- `1 y' l* A6 k       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ) u- ~  V+ |' R4 G. R1 I$ e     SuperscriptBox[
    5 v0 E: s1 Z4 _1 @      RowBox[{"(", * c0 _7 C* d& z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 2 _1 n7 D4 ?$ d! M# j
        ")"}]}]]], "Output",  K2 S4 R  y( i
    CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
    5 I: ?. _. C: p  3.5779607654819613`*^9, 3.578012211515625*^9}]- V( a+ W% [9 u! [) W* b$ T* v
    }, Open  ]],3 H9 ^7 k- I& h9 H

    ( D; J- d6 M. n/ U+ I8 NCell[CellGroupData[{7 G4 f; \7 [+ [2 T& n
    # G7 T6 z) C$ @* a3 a- C5 w/ p
    Cell[BoxData[
    6 `" a" N# [/ w/ c4 ] RowBox[{"C4", "=", "Ca"}]], "Input",, N. H$ _% [' I% h2 U
    CellChangeTimes->{3.5779207559375*^9}],$ w2 x/ u" v0 D0 Q& z' [0 e4 m* _

    3 X4 p# k" x% M) R1 R/ v; h2 GCell[BoxData[4 i8 r% z" [2 x0 f2 [2 Z8 z4 e$ g' Q
    RowBox[{"{", ; p( |8 ]$ z4 ?- r- }
      RowBox[{
    & O6 c# t( `% o2 W" V0 l5 B  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",", 6 [4 Q% j4 w: E9 y; c
       "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}],
    # _7 F- r) d  x1 G  "}"}]], "Output",4 z- s5 R0 r8 n2 e# w: h
    CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9, $ i7 X' {3 \7 K* t8 m5 F* \; M
      3.5779607861363974`*^9, 3.578012216171875*^9}]
    $ S! B& Q' N1 ?. Z}, Open  ]],
    # {$ Y4 g$ J1 C( m* Z0 ]5 e: ^
    . T+ M, c; g/ l% _Cell[CellGroupData[{
    7 f" r; [0 U- y, W  d* I# c% Q9 l& U5 i: w/ t0 H  Y7 S$ j: t1 m
    Cell[BoxData[" l0 P% h6 m- H) _* H
    RowBox[{"u4", "=", 1 E3 a5 @& w  }* V& n$ r' `
      RowBox[{* }* ^5 t: W/ D; e6 h2 I* b+ F  Z
       RowBox[{"Exp", "[", : m6 }0 ~( ^3 ^
        RowBox[{
    4 Y: _. T2 W$ B7 h     RowBox[{
    + p3 O9 z9 j7 E; j( ^      RowBox[{"-", - F- G" i9 `# a2 ]  m
           RowBox[{
    3 g1 R7 c5 B/ N9 t* N) c        RowBox[{"(",
    : v: l' ^7 R# k# L7 M8 M         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    1 ]+ T2 T* E3 _( r" S+ Y* w        RowBox[{"(", . a/ x4 d6 R0 @( F
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    % o$ V4 P5 t1 K" h6 j6 l     "]"}], "/.", "DeltaX"}]}]], "Input",9 z0 z" E% s1 N& i/ e% p
    CellChangeTimes->{3.57792076325*^9}],
    % k( Q. V+ K. _8 c  B4 i' [
    5 U9 R8 G/ }" i1 Q+ W# E3 kCell[BoxData[; _+ Y, n/ y6 k. z$ V2 ^' l
    SuperscriptBox["\[ExponentialE]",
      E$ I. K4 J# X* J0 n  RowBox[{"3.141592653589793`", " ", 5 C& n' H4 z8 k/ o, s
       RowBox[{"(",
    " j( n* m2 \3 H4 ?/ W. a! }    RowBox[{
    $ B  ]* V% X' Q. b' q! N; H     RowBox[{"-", $ P# L, @/ A9 c: ~- E2 c
          SuperscriptBox[8 c, V6 m4 O* D: \8 w+ j/ z
           RowBox[{"(",
    " K2 a$ E- |7 M+ O$ a! q% U$ [; ]        RowBox[{/ @  O4 i% v' ~
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    + R) f" `6 s( y. {8 ]' q     SuperscriptBox[
    & I( O2 A* H8 N/ h5 Z' m- p1 g      RowBox[{"(", : S; n" @3 N& ^6 A" f
           RowBox[{% [! [- h& m2 W( F# G, e( F8 [: s
            RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-", + Z, z; c- T3 q9 r. i- ?
         SuperscriptBox[
    , |; ~3 x' y6 ?/ ]; J      RowBox[{"(",
    6 V5 R* n* F% a+ D' f       RowBox[{; |  n2 b) G* h! s. H" \  r& S; V
            RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
    9 {: S2 W% ?$ F" }6 J     SuperscriptBox[
    # X8 O# ^. t+ a      RowBox[{"(",
    8 h) k0 T* F+ w- r' O* S       RowBox[{6 }, P4 j/ ^2 F# \/ h/ ~# R
            RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", # k1 t. j! @# F* t/ q7 \
         SuperscriptBox[
    % d4 t, e2 {& B! i& q9 F' m4 N      RowBox[{"(",   y  {: }& {6 U3 X
           RowBox[{
    5 H' H3 W' n% F        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", ( g( h8 U, ~8 l9 T2 |" U4 n+ T8 Y0 g
         SuperscriptBox[) d, b+ ^( J5 A1 v
          RowBox[{"(", . e% {9 }3 l& x
           RowBox[{
    . |9 O$ h2 j; o8 l; K2 [2 s3 a        RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", 2 h5 E) B( B. y: ^0 b  h) \+ B
         SuperscriptBox[
    ' R& Y1 D. q* [1 @      RowBox[{"(",
    ( M$ |( a' n( P       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    . f4 l' o% d( h+ w8 c2 N) J% B     SuperscriptBox[/ {& k/ Z: N- E3 n! [, O" J
          RowBox[{"(",
    * P( E9 M7 F$ K, x* q0 f  q' V       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    + t1 C8 f9 }0 h/ G; H     SuperscriptBox[
    # N0 R. j* q: w$ W& d  A      RowBox[{"(",   ~% Q6 ]. H8 k5 Z* k% P
           RowBox[{0 P; P0 ?6 X2 m7 ?  S
            RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], + L! f& o! e$ F& d; o, b
        ")"}]}]]], "Output",
    + P+ B- I) e! T  d" ~/ t CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,
    ( B& d, w, U# y, P# ?  3.5779607873531995`*^9, 3.5780122169375*^9}]
    - L$ ~( M4 S9 ?}, Open  ]],
    8 j  `2 x4 W& \' F9 K! \) D6 y6 ?+ d. r
    Cell[CellGroupData[{
    0 y$ l- o2 T8 ~6 b
    . E' Y/ @1 I( B9 n9 N  v: E+ lCell[BoxData[
    ! V3 d/ \% U% c" ~+ d* u RowBox[{"C5", "=", "Ca"}]], "Input",' d) w+ i3 h; O( A$ A
    CellChangeTimes->{3.577920860671875*^9}],- s, G- F2 h+ w3 q! V
    4 u" M7 X) a: U9 ?% s( ^  \
    Cell[BoxData[
    0 [, ]- I+ e; G' V$ {: d RowBox[{"{", 3 c  V- q5 X4 p. Z$ l' t: ^6 d( W
      RowBox[{6 u0 B/ {) Q& X8 |. C4 a; F
      "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
    6 F* ^- S+ b! W  F/ M  M   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],
    ) L6 f: n- {  w6 y( b2 n1 u' H8 _  "}"}]], "Output",
    - h  F: N' c( l/ K# m* N. ^ CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
    * x5 _# e! }9 |  b3 V  3.5779608137328453`*^9, 3.5780122209375*^9}]' f8 Y4 |5 p1 G/ B) }4 f7 O
    }, Open  ]],
    2 r! i$ {( s+ L  w
    5 r) c7 L( e, T6 ]Cell[CellGroupData[{
    1 z- M2 I5 }: P2 v; R0 @
    0 G" ~0 w+ f6 R' T& ^( k+ k! \Cell[BoxData[
    0 _/ |4 G" e" |7 b; } RowBox[{"u5", "=", " T& r5 i6 ]( c0 o' p% d( @: h
      RowBox[{
    1 s7 L8 C# Y; i: _5 ?9 ^/ t2 Y   RowBox[{"Exp", "[",
    $ a; R2 ]( c& _; m6 n! Q    RowBox[{. @- S! I) q7 b# B  O2 a
         RowBox[{: m( w; l, `( |2 T# t
          RowBox[{"-",
    7 ?' m0 |6 m" w. P       RowBox[{% @6 R5 h1 Y$ @# d5 V: w
            RowBox[{"(",
    2 i  k4 |. E+ W9 M9 v# }! W& A, j         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    # z* q, R$ t  n1 }        RowBox[{"(", , v) ^, k" Z4 @* h; Z1 z
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ! `9 ^! s1 b& p, J8 n     "]"}], "/.", "DeltaX"}]}]], "Input",
    5 r! C7 ?2 N6 C CellChangeTimes->{3.577920869375*^9}],
    2 G# {' g  l0 ^0 ^) ^" Y
    * [% R) ?7 m6 O5 [! L4 @5 R/ yCell[BoxData[
    % J* q+ d3 `+ g" f. [$ w0 E SuperscriptBox["\[ExponentialE]",
    ! a" m' K- |$ i9 T/ @  RowBox[{"3.141592653589793`", " ",
    0 \+ @+ e" U9 P2 K: a4 h# R! x   RowBox[{"(", + [; Y1 U+ p8 \0 D2 j
        RowBox[{
    9 O2 g3 `; x7 |+ B6 P     RowBox[{"-", * H6 A' q4 \: C; l! M
          SuperscriptBox[
    8 Y, [* t5 S/ K2 h3 d1 r4 V       RowBox[{"(",   c+ j- k6 n/ n; J, {, \' \( U( v
            RowBox[{
    ! O) ^/ M; k6 ?! t7 P+ v         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 6 K( K# R$ g, p. e1 K
         SuperscriptBox[
    8 H0 d2 y# e# j6 {8 U5 |      RowBox[{"(", ' x! \: M6 \  f5 U  u3 G% Z* p' C
           RowBox[{/ s6 l9 m; k- P# F
            RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-", 7 V8 k) H& n& k  y
         SuperscriptBox[
    " z) b* X+ T0 z" G3 r' f      RowBox[{"(", / P! K4 q4 X) c  ^2 ]. `
           RowBox[{, E3 I/ F9 G+ Y) M/ \" Q
            RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
    ( h0 L7 K9 T; k" m# z  \     SuperscriptBox[
    4 o- \8 S4 M- \      RowBox[{"(",
    6 x. e; X* o) [2 C, v       RowBox[{9 i) d5 R  ~. C& |+ ^6 ~) @) ^# K
            RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
    : j3 _8 W2 g5 t, r2 ~$ c     SuperscriptBox[
    9 A: {- H% A- @% ~$ P1 f0 g6 o6 f      RowBox[{"(", , \) _3 A( I1 {' J- V
           RowBox[{7 r: c; r$ a; h' o
            RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", 3 Z8 _! b1 s5 \# e
         SuperscriptBox[
    , Q6 T! P5 T. i4 I9 g' U      RowBox[{"(",
    ! y# f9 g! x6 S. i       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    0 \; `) }* z4 T% e+ J2 {     SuperscriptBox[$ ]- \! R7 R9 i  K
          RowBox[{"(", 3 U' L9 w) W! x5 Q7 k
           RowBox[{) E8 g) h) H8 K, k
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 0 g* I  s. B1 S6 W2 L- D9 e) O4 u3 r
         SuperscriptBox[
    0 \; U8 m) H4 F. R0 ^3 @      RowBox[{"(", % i! }4 g2 ?8 a
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 4 [$ l3 G% ^. n& n
         SuperscriptBox[
    " n9 o: A! D' ~  z% W8 i% _      RowBox[{"(",
    : i; Y3 U9 d/ y1 h1 V9 W% C0 I2 b       RowBox[{3 ~( |6 a: p8 D+ C
            RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
    1 Z, \' Z) m9 f2 e) z1 S4 |/ a* W    ")"}]}]]], "Output",0 u. M. T" O1 ^5 l
    CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
    5 u: ^% U' |7 j3 L; _2 q* o0 s  3.577960815043248*^9, 3.578012221953125*^9}]
    * u" U9 I* V4 s" z}, Open  ]],! z. n, @* I5 t

    2 K7 z5 R7 o9 r  nCell[CellGroupData[{
    2 [2 q* f) {$ U& t* S* M% S
    & O3 Y, E& F$ ]; }6 ^$ [Cell[BoxData[
    7 B5 D7 {4 H% j* b; g& a# J! F RowBox[{"C6", "=", "Ca"}]], "Input",
      y9 l- U3 L8 K% T CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],% ^% @5 _- }; s) D
    % d# ?8 E6 F# T: D3 H
    Cell[BoxData[% v. I' Q2 {% P$ B9 F3 T! J: A
    RowBox[{"{", # [7 V+ P; s# c( e1 o
      RowBox[{
    ; B5 ]/ L" B! i8 G/ h  "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",", ) X3 j) f. g  ]8 ~
       "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",", " T) J9 e/ T, `& z& H9 Q3 w: o
       "0.494866`"}], "}"}]], "Output",
    4 t1 U' N% q3 I0 w: z. u$ h) @ CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,
    ' o' k8 s* `6 C  I- b   3.5779608373044868`*^9, 3.578012227359375*^9}]# {% V: o$ s" |( m6 B# Q
    }, Open  ]],
    % F* k5 D6 T( k3 Z1 r! o
    ) z" N6 T3 H. g) i3 L1 ^) M) z8 fCell[CellGroupData[{
    # @5 e1 A+ K7 m3 p! T) y  o% Y. ]# n) G3 H  E" {/ e; K
    Cell[BoxData[
    , s% V  F# N6 V! `3 p6 ~ RowBox[{"u6", "=",
    + ]6 Z1 a9 T/ B; l: ~  RowBox[{
    ( W/ y: g- X+ w. l- }5 ^' t( }0 V  S   RowBox[{"Exp", "[", % |6 }# G9 R, B/ E% A- ~5 z
        RowBox[{' K  d) R4 p$ a- V2 {
         RowBox[{- @) u1 {+ F; D  @; F2 r
          RowBox[{"-",
    & B  Y4 m% E  X& B5 F: b4 ~" I       RowBox[{/ a* z8 A7 F9 l# u9 y: _
            RowBox[{"(", $ I; {0 ]4 Q0 T3 e& ?& {7 R! V7 l
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", , n6 O4 z: _1 y8 c9 `
            RowBox[{"(",
    " M8 X# E/ F2 F! U+ r         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    2 S  G: F7 |4 P     "]"}], "/.", "DeltaX"}]}]], "Input",; Q% }6 q, C6 X# S
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}]," _* H; J- T5 {9 T' }1 z1 C

    ! V9 U' B$ K4 M. r' s0 {: {Cell[BoxData[
    , R; {! M- P( R3 g1 Y* R& ^ SuperscriptBox["\[ExponentialE]",
    $ o6 E! H5 k8 p: {7 n% I  RowBox[{"3.141592653589793`", " ", ; T9 L3 z$ B( C  K/ d% K. I
       RowBox[{"(",
    2 Z+ [# n3 u* T( ?  m! N    RowBox[{: J9 Z# D; u: M% t  j0 ?, |+ U8 d( c& `
         RowBox[{"-", * x5 p7 P6 O' r3 B
          SuperscriptBox[
    / X2 I" K8 ~' G" C       RowBox[{"(", " y) V; ^- {6 b. U' f
            RowBox[{
    . p0 j1 J) L  ^* B" ^; P2 Q' C         RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
    4 I3 c2 h: Y" p; L# N     SuperscriptBox[! F& I- b) s3 b
          RowBox[{"(",
    1 v' I" G. Y- Q( N, Q- f       RowBox[{% v: Y! H( J  _( s
            RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", % f  [/ d' ~9 I2 r; L
         SuperscriptBox[
    " j+ P" p( `; E1 n4 L5 ^# ]      RowBox[{"(", % W& O: _2 X( Z- C) H7 d
           RowBox[{7 p' J  t, W: o: w/ l7 N
            RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", 1 |1 _# M/ f  `! l; p' G4 b: C
         SuperscriptBox[
    ' L" m/ f# e; N1 F      RowBox[{"(",
    7 h: Q0 ^/ J+ O$ h% ]       RowBox[{  t4 T$ H! @2 {/ S5 w6 ^
            RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", . G3 @2 [9 f  N- P
         SuperscriptBox[, Z7 `, E# o3 U$ o) S
          RowBox[{"(", 1 x& y  p9 p$ g" R: e. R  |- P( C( Q
           RowBox[{6 Y% \( k" t$ K% M. L! l; K  w
            RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
    ' M2 D' h6 V+ z3 _& N; V0 m     SuperscriptBox[
    ' p" W* C6 N) A/ v: N0 D" j5 d      RowBox[{"(", . @1 \, h+ k' @2 e- G
           RowBox[{
    - p# F8 a2 k# V# F) I4 t- i        RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", 1 X# ]# H! H- A0 ?- z
         SuperscriptBox[$ N- p# M  x8 }( O( D3 j9 X
          RowBox[{"(",
    & F% H  }4 a5 T( U; J& B2 u       RowBox[{
    ( ?4 M; S+ Z# {0 V5 c        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
    ( d3 G$ A- a* C     SuperscriptBox[1 ~& ~7 e' _% f: k* e' u* I* M4 N
          RowBox[{"(", 9 T% {# G: o+ Q, E' z! \
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 1 R' _4 ~$ t2 S) o9 N4 x
         SuperscriptBox[: B% Q3 i- D0 i% U" |: u
          RowBox[{"(",
    . i/ Z# D' x! \       RowBox[{5 n1 g( s9 I- Y4 V8 |, g2 a0 K
            RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], + ]( r0 R: o4 \7 @+ o8 g: u
        ")"}]}]]], "Output",
    1 K, E( u& }3 i CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, ( x" w; }. B5 R
      3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
    # M8 \) u8 C5 |5 E) \- z}, Open  ]],
    9 n2 u0 N6 T# `% Q& d4 E
    8 c* T1 G  G+ J3 e2 {Cell[CellGroupData[{: z) w: C/ [6 w; x  E' H/ e
    6 J8 @1 T! U% [4 r/ ]& _
    Cell[BoxData[
    ( ^6 W9 K: c7 k* B1 p& i4 y RowBox[{"C7", "=", "Ca"}]], "Input",/ j: ?  m# M+ K0 s* P
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 7 O8 u- J/ X: u" ^) A7 d
      3.577921316125*^9}],5 O9 K1 U3 I: @
    ) n& L- l$ G) T
    Cell[BoxData[( O  q. S& Z8 z: i- s$ i
    RowBox[{"{", 8 {' _, `2 w% Q& @' W* o
      RowBox[{& l$ g$ K8 i  B( M* @
      "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",", 9 W; X. N* _# j. y& a
       "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
    ! }  w( U& I* A  "}"}]], "Output",
    # j1 L$ {  Z: ]: M& R, {# o! W CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, 7 F! v0 G# J% T. l$ }% n# c. J/ M
      3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]) K1 n, t8 p8 M
    }, Open  ]],! |0 ]1 k2 X1 [  O2 P: F! X
    $ d0 v% |; E' a+ K- m
    Cell[CellGroupData[{
    6 Z! {. ^7 H, n# E- s2 G6 d8 |
    / L0 A* H# H( l, U! oCell[BoxData[
    6 c- j+ K& `" R# X: q. e6 Q+ C0 \ RowBox[{"u7", "=", & @# s2 Q! _- W( J7 o& S
      RowBox[{5 l& P, u2 {6 _& K4 [  N! R
       RowBox[{"Exp", "[",
    " J# O; }, @) B" a( z    RowBox[{0 e! K5 N& d$ w( I0 f. m3 O% |
         RowBox[{! ~% i1 l% t% ^% {5 T& f& O
          RowBox[{"-",
    5 \+ N& B& u* |7 O+ c       RowBox[{% H4 B% a3 G  E# h7 g1 [% {
            RowBox[{"(",
    ; N' @9 p9 P" m; f- l         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ! W" Q& g, h; o7 I' l) m
            RowBox[{"(", 2 D% Y' S/ M) }  K1 j
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],) E, C; G) ?# S- W
         "]"}], "/.", "DeltaX"}]}]], "Input",. q/ E: \1 s7 Y  J: M; [
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, & H, b8 u$ C! f. B) i
      3.57792132028125*^9}],7 l2 s" N: ]( P1 u1 b' i' A% M

    4 f: k, J/ r% E' _. ^) `4 G6 DCell[BoxData[
    ! T8 H3 l) G) F$ W SuperscriptBox["\[ExponentialE]",
    ) T1 p8 O' I& b) ~  u' L2 ^; ]  RowBox[{"3.141592653589793`", " ", . l$ {" m- {) t  W6 x8 _+ ]
       RowBox[{"(", - h8 y+ `/ ]( g: h
        RowBox[{
    $ Q2 w" F# ~  _7 s+ _9 M     RowBox[{"-",
    - L0 ]+ G' X  d% Z# b      SuperscriptBox[
    ' ]# Z, N8 L0 n- N5 U' [( m       RowBox[{"(", 8 [. s: R+ P( _7 v" C" I9 J  Y
            RowBox[{9 {, o: Z0 c- ?7 E$ K* O- Q
             RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", 0 G4 v$ |0 V) H* n
         SuperscriptBox[
    6 k( q  d7 s! M      RowBox[{"(", 7 Z2 s4 O5 F- \: O. U8 N
           RowBox[{
    5 v0 Q% v4 ]& {6 J/ \) C# A5 T) e        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", 2 W6 }. r1 t1 I0 z. j
         SuperscriptBox[6 S' e3 s% T3 ?, H5 ]4 S& `
          RowBox[{"(",
    ; n: @1 l& g2 K- T       RowBox[{9 R3 K: Y% a7 _, h/ A2 M
            RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    , b3 u; O1 @- B     SuperscriptBox[
    2 g" L( S6 Q, V8 D+ _; g' ^      RowBox[{"(",
    : }' A7 ~0 Y8 \7 Q       RowBox[{0 }% @' v" k" H# M6 L6 v
            RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
    ' Y5 f# |# [1 T' J3 P, c3 I     SuperscriptBox[
    ! Q3 ]6 F5 P' F! i: Y      RowBox[{"(", $ u- _: O( g5 G. r% `5 ]
           RowBox[{
    7 V8 p( k) ?( R. b" t" q* ?        RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
    : Z7 c0 F1 R' d     SuperscriptBox[
      x! ~; Q  G2 y9 y# A1 t      RowBox[{"(",
    ) T) W( a& F' I. q" ^) L/ E, T( ?       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 1 o; N2 u5 z" {& ]. o
         SuperscriptBox[1 w  ^" E- x' {" a, L3 Z
          RowBox[{"(", 6 a0 R* ?- e( l) Q  z$ L
           RowBox[{
    ( E' L9 H' Z. W        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    ; ^& {$ C/ B; O& d2 U# a# u* R) E% p     SuperscriptBox[( W  O& N1 b1 v+ y' J, Q  Y# ^: d6 y
          RowBox[{"(", 7 B1 H+ m1 |; u* P; S
           RowBox[{
    1 t% w8 ~0 W% ?: ^1 h- z/ F5 y        RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
    ( r4 D+ Z( B3 ~# V     SuperscriptBox[
    5 B/ j" z, g0 ~      RowBox[{"(",
    # R# V% G  i& M. w       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    # {; b2 `0 B" j' p    ")"}]}]]], "Output",: C7 b6 k+ [- W) h7 n8 `  }6 D
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, 8 I7 R9 x/ T! r
      3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9,
    $ F  k5 q7 x) D$ h# c) E  3.578012251359375*^9}]2 t2 p; v: P" J. y; |9 l5 B- I- k
    }, Open  ]],) P6 v, f1 K* C

    # _' t3 `: c9 h2 S7 a+ |& CCell[CellGroupData[{% b) i) ~# K2 k  v  u

    1 ~5 Y* X# Y% N8 j9 gCell[BoxData[
    / U8 k; r" m& {! A( U RowBox[{"C8", "=", "Ca"}]], "Input",7 g" W) E& E5 ]" e- B" m
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, # @8 o7 z  Q8 ], D: T
      3.577921316125*^9, 3.57792141421875*^9}],0 t0 R" \' O5 ^+ P  K4 a/ c

    1 o1 |2 l" e/ D9 hCell[BoxData[0 S9 l0 N, L* z6 P' g* u
    RowBox[{"{", 7 a6 d0 n8 q5 H# j4 Q1 V7 q- w
      RowBox[{
    5 u' U6 i- \* ]% j$ S- h  "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",", 3 o2 w1 |% ]- Q: t/ G
       "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
    % p' z3 [1 v* r  "}"}]], "Output",
    8 G3 W% e( h: f+ J CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    ( H7 \% M3 D9 G5 }9 M  3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
    ! ~9 o1 i8 ~- M# p/ T  3.578012260515625*^9}]$ ^9 a, x! `: o* r: y* }
    }, Open  ]],
    $ }* O: a; R8 u  ]% K, M+ {$ d0 ^1 _! Z. b
    Cell[CellGroupData[{3 O3 U0 P/ U# N0 d! d
    , V8 m" u; m9 n: d
    Cell[BoxData[7 L, b/ X: T0 c, X: i3 u
    RowBox[{"u8", "=", : [; ~6 k8 K* x- K: S9 M
      RowBox[{  q: w; ~1 J1 h. }* L: `
       RowBox[{"Exp", "[", 1 h- x# q  p' F+ v" c
        RowBox[{' P$ I1 }; C: H7 Q+ i9 B8 ]+ M
         RowBox[{
    $ F" w7 a% [' J: [3 d+ s      RowBox[{"-",
    5 M' ]8 u/ P* p6 ?2 M/ f' M       RowBox[{) ~0 T0 s( T9 X- F) D
            RowBox[{"(",
    5 d  C: D) W' z) Q# o         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 9 I# L' }3 X, i7 {3 X; Q  }
            RowBox[{"(", ( O: W( L5 n7 ]3 U3 P' P5 ]
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],9 g' |0 T5 O6 b3 _1 m0 J
         "]"}], "/.", "DeltaX"}]}]], "Input",7 V+ F( Z0 g: N- j5 c9 v
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    " t) G2 ^$ b- Z, {* S! |& Y  3.57792132028125*^9, 3.577921416921875*^9}],: o7 s1 R0 a* J* o% I
    4 }- f. S. w& p. s
    Cell[BoxData[( L+ }) ^! J* M1 Z' s  }  |9 D
    SuperscriptBox["\[ExponentialE]",
    " E2 {3 Y- C) W$ \  RowBox[{"3.141592653589793`", " ",
    0 M- ]7 X& E& _   RowBox[{"(",
    9 V1 ~8 f9 Z1 m+ r    RowBox[{
    2 Y& g; X$ v5 k     RowBox[{"-",
    4 D6 P9 r* N1 q; d      SuperscriptBox[
    + U$ C8 y5 u& g# Z1 @; c       RowBox[{"(",
    & x7 i, y7 x  @" a. G. _        RowBox[{
    " S3 @9 q5 R2 c# i, [         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ; ~/ F* ]% x0 N     SuperscriptBox[' S2 U! b: e) A! Q3 Y/ q
          RowBox[{"(",
    " M; r# J5 Q% S% _7 s+ _2 [       RowBox[{
      ~" u# i7 i$ F        RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
    , U+ f# l; }1 F" ?5 w; b     SuperscriptBox[
    & q0 b" v* c7 x$ N& k/ Y$ W      RowBox[{"(",
    $ k( a; k9 o4 ?) G       RowBox[{
    ! e6 g4 q: }  u        RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
    + U6 D+ p$ F7 ^2 i: m) p& s     SuperscriptBox[
    ' M; y% `7 M- T# V5 _      RowBox[{"(",
    1 j: p& }6 V* ?4 ]1 |8 `/ R# L       RowBox[{
    7 M( K* s! f- l" X/ O7 u        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-", 5 B. d$ u# Q& D& ^
         SuperscriptBox[
    4 Q& t$ W2 @7 F( k; L      RowBox[{"(",
    " D- J  n( P  H. O! X8 x+ F       RowBox[{
    / r0 H( M% i: M7 D3 v7 N        RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", 0 P* i3 U7 ~1 x  B! ~) b
         SuperscriptBox[: F  m& l0 s) z! ^  s4 s1 a
          RowBox[{"(",
    & l/ P' Q3 l) C5 K5 y: g+ B; A4 Q1 Y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    / E. R# o+ L; S. n! e) k! y7 G     SuperscriptBox[
    2 }& i9 X( X( }5 z: n6 K      RowBox[{"(", . q/ S  A6 Y( X8 s2 U. [
           RowBox[{
    " O- o( Z- L  C' I        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", 9 _' e: d1 S9 O' I: p6 p
         SuperscriptBox[
    ! i9 O* A" w$ N( n4 I4 B$ M3 Y      RowBox[{"(",
    , {! Q* N: g6 y5 R$ i$ j* x) p       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    * f; }$ Z+ W( X: g     SuperscriptBox[
    % q6 H$ F! Y& c9 b$ q. m* [      RowBox[{"(",
    ! k8 z' U5 a& y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
      A$ I. {& s+ m6 ]  T8 M( k    ")"}]}]]], "Output",
    & \$ U& P4 W* i; n) R CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, 1 B5 x9 e) |; c" Z; Z" m; k
      3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
    2 O; q7 o0 Y5 f! \3 x2 r, C! M5 U" _  3.5779608945565863`*^9, 3.57801226165625*^9}]* B. s. A# u3 l5 ?% J* A* R
    }, Open  ]],5 O4 j; _2 B" `; X- \5 E/ v

    / N7 N8 I; B3 d* f4 F" ^6 VCell[CellGroupData[{& i; j! P; R) a1 A4 e) |
    & w& W/ d; `3 T
    Cell[BoxData[
    " Y2 T2 n4 p/ `8 \ RowBox[{"C9", "=", "Ca"}]], "Input",
    2 p6 l: A$ s  d& D) F CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 5 @- k1 t7 v7 Y5 r- Y7 M" d
      3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],1 n0 K: |9 l) P
    : C. D4 t0 ?6 o
    Cell[BoxData[
    8 c) `% @- @7 O. R: b RowBox[{"{", # I4 j6 \) A, J
      RowBox[{
    + {; T# h4 O4 \4 D1 d% }+ J' V  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",", : ~' `# E( e7 P
       "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}], / C7 V0 x  W5 h! k) n
      "}"}]], "Output",8 _% V! r3 ?  ^: s2 w/ K
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    2 y: Y$ P! P7 i! S+ ?2 V  3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9, 1 `) T  N: a& u& n3 o
      3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9, , b" z- C+ ?( f7 M0 E
      3.578012268234375*^9}], `6 \# L+ ~5 `! k! C0 A; }
    }, Open  ]],  l. H5 O- g# M1 ]; v( k
    9 ~* m- u' Z! O. u/ j% L# F; Q
    Cell[CellGroupData[{
    , q$ u  }% M3 E# b+ c0 ]$ l0 B
    0 \; M& K8 T1 d6 \Cell[BoxData[
    / L1 ?! ]8 h. D& T- c RowBox[{"u9", "=",
    1 \- {0 [% w, W1 w$ s* D: j  ]& D4 l  RowBox[{2 t% c  H$ P1 B) L; V( _) M
       RowBox[{"Exp", "[",
    # r- _6 k- V+ s. W* T    RowBox[{$ m' b2 |# T: o. m, ]6 e+ U% [2 @/ u
         RowBox[{
    " z9 t  Z8 z( N- n/ d4 f      RowBox[{"-", - S- g) p' H7 ^5 y# V
           RowBox[{5 |. P! x3 q6 b! Y
            RowBox[{"(", / q, [! |; i( a) z9 D5 b/ x0 E
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",   r" k/ \% g0 q% M4 M' i, v
            RowBox[{"(", & Q! O' A4 U) ?* [( G7 L
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],4 s# m7 L7 N6 I  U& z5 w
         "]"}], "/.", "DeltaX"}]}]], "Input",; _/ }0 F5 O9 b+ {  t
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    - ~) q; T, D  I$ f  3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],9 ]7 o2 c+ F  ]

    % i  k9 {% m+ `9 ]8 b2 P$ ], }* \Cell[BoxData[
    $ i% o, p$ Z4 `2 U& d- G SuperscriptBox["\[ExponentialE]",
    - ~1 K9 s& o4 \( i3 H+ G+ M4 z, v  RowBox[{"3.141592653589793`", " ",
    ! S. e* O% c! j# g, Q   RowBox[{"(",
    # X. d8 l  t) ]* y5 N; c    RowBox[{
    7 N, Q) N5 q. J2 j3 Y" D$ l     RowBox[{"-",
    0 B, Y: p# T4 w, {& [* N8 s      SuperscriptBox[
    0 T6 E1 q0 @2 Q* O  r5 v% z/ J  x       RowBox[{"(",
    * `- y3 ^# w# u3 x        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", & Z- n! N" _2 k0 ]; `( T
         SuperscriptBox[
    0 v9 i/ D$ i2 @; e$ V      RowBox[{"(",
    5 V6 E) S5 \/ o, \4 C, M       RowBox[{
    ; L4 D1 k; x- D2 F! h8 Y        RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", + G! U# k3 ^+ w8 l! U) W
         SuperscriptBox[4 C3 g* Y& {: \% ?6 A2 J$ V6 A3 ]- I% ^
          RowBox[{"(",
    & V5 a  V+ G6 Y       RowBox[{
    ; Y, w" _: S7 m! C- F        RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    0 K) _5 s8 j+ Q2 u( @' c     SuperscriptBox[
      N) J( v  H( f6 @$ h& o, E$ L      RowBox[{"(", & S+ w( H. U+ z+ y8 v# N
           RowBox[{
    ; P8 y  ?4 N* y* T        RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-", 2 I9 y1 D- p' [2 W. \' R1 J3 k3 S% I
         SuperscriptBox[  T' R  J# v- q! q
          RowBox[{"(",
    $ l, K6 ~; T# D       RowBox[{
    2 B( B4 O4 j. b0 G, x        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    6 K$ s6 }" f3 g' Q8 z; I6 t     SuperscriptBox[
    ' }2 f0 ~+ B% K$ v- D; }      RowBox[{"(",
    2 F" Z- y5 o5 ^1 j8 ^; x* n       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 9 a6 z7 M! V9 d2 }9 S
         SuperscriptBox[9 }- J6 A2 O; j  K# O
          RowBox[{"(", ! d- W& H6 v" A3 f0 v. }
           RowBox[{3 `& x2 c* [: D# F5 N3 a
            RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", * v4 e# C6 ~* @/ n2 N( A7 U
         SuperscriptBox[
    3 E, X2 @8 T6 f      RowBox[{"(",
    5 y: a2 `. m, c- u  \) v       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    & J2 V2 D6 n1 a/ @# h3 l0 J     SuperscriptBox[
    3 R9 R7 ~  u6 i( w5 ~1 p      RowBox[{"(", ; e+ J- p$ O3 o- L" R- F
           RowBox[{
    9 m! V  p: D% Q, L6 k        RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
      w8 B4 Y: r1 V. T" i+ k    ")"}]}]]], "Output",5 o+ g( n" P& s+ E& o  e4 b
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    / }$ y, ?8 M1 \" l/ P  3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
      G; \* y- G( M, n+ H' C  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9, . I, |( U3 N& |/ u/ l0 d5 _
      3.577961530421959*^9, 3.578012269125*^9}]
    ) t9 @* d( q% _1 C  z1 r, t2 i" v}, Open  ]],
    ( U4 V8 D3 T1 @. a4 W8 Q
    % K8 q7 s% n. _. `! `& F: G3 eCell[CellGroupData[{
    2 M' I, z; G3 g, q: ?( m3 x; w- ?& [
    # A" C3 k6 b, A: SCell[BoxData[{
    : G& c) T' @6 F% ~" u) h RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
    ; r8 Z/ B0 _- r RowBox[{"u10", "=",
    " W# I4 V- u  o  RowBox[{) _- {0 m! q1 i) [7 G! u
       RowBox[{"Exp", "[",
    5 b7 g! Z: k4 p2 c9 O3 r. X% R    RowBox[{" f' W4 A2 y% i5 f" R7 ]5 [1 F
         RowBox[{5 K0 d6 T% x5 k1 E: O
          RowBox[{"-",
    + t8 s- X) A- K% K  z% W* B- W" r       RowBox[{. U# w3 Q9 r& t% |. K- O# T
            RowBox[{"(", * x) h) I  s7 ~
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", , s' p8 @* m; U+ n8 o2 R
            RowBox[{"(", , h3 d5 P& F2 i4 f
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],. Q: Q0 }$ _# }. h
         "]"}], "/.", "DeltaX"}]}]}], "Input",& Q% c7 O. j1 E9 L7 P5 h
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}]," d, g7 D3 d: s5 b0 R9 ]) |( f/ I
    * U" C7 {$ J; ^5 c) D
    Cell[BoxData[
    9 q; {& i* w" V1 ^4 A6 x; l RowBox[{"{",
    : g9 U3 h- F! g  RowBox[{
    ) T+ a% k6 }2 h/ P9 ?  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",", 8 E# h4 m; ~6 W
       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
    - _! B% U! O+ f2 \/ [ CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
    - y' Y9 u# t; y% G9 ~# x2 B, H0 ?% _  c: @3 }- F( u
    Cell[BoxData[3 o1 @6 o- j/ w8 }) H1 ~% j
    SuperscriptBox["\[ExponentialE]",
    $ y) q( w: ?# N6 ]  RowBox[{"3.141592653589793`", " ", ' f. ]7 f+ V& [+ M
       RowBox[{"(", $ W% A2 ^0 A/ r" C1 f
        RowBox[{
    ) U7 ]. s5 H0 S* h5 I7 I8 e     RowBox[{"-",
    0 D4 z* n% v- T  M/ g$ E      SuperscriptBox[$ z& J! X: s8 E
           RowBox[{"(",
      q, x; L' e9 q1 H% T! z: a7 E        RowBox[{- a2 F+ y* F% G1 Q4 I2 R8 j
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", & i+ h" q1 P, `# _  J0 j
         SuperscriptBox[
    " g- O+ k! k" w% v! d5 M/ x. t- F      RowBox[{"(",
    ! Z" @; z) J9 w+ [       RowBox[{6 E/ r! ^) }. `+ i& N. j5 N
            RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
    4 [7 ?8 q: d" f     SuperscriptBox[6 @, Q/ `5 U% {
          RowBox[{"(",
    / |. b% A, ]# g  d6 J4 x* K; T" Q       RowBox[{
    1 G# [3 }( B% I( j6 J        RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
    ' p4 v5 P% M, d3 k     SuperscriptBox[7 H& Y3 l  S2 `4 ^; w5 ~* |) `
          RowBox[{"(", 8 I: c4 E9 L3 a3 ]4 G
           RowBox[{% D; `3 T: O5 E& {6 d
            RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", * w. L; Q  c, o8 A! a) s  t0 g
         SuperscriptBox[
    " G% }% |  n( }6 v      RowBox[{"(",
    ) b9 {. n, ]' `. _$ ^' L; A* d       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", 3 u2 w2 |# R/ c+ A5 `, w& A* {
         SuperscriptBox[
    # }* W$ x+ |7 }) q" e      RowBox[{"(", 4 w6 P/ W9 V) u4 Y! f  }
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ; |3 O: o$ L, i( T
         SuperscriptBox[
    / c( k3 t% g9 A/ n( q4 j      RowBox[{"(", 3 y% U  p3 d: q$ V1 z& u: U/ B8 t) F2 @
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ) S% \4 B! U: l4 C
         SuperscriptBox[
    + l$ z7 o9 T6 d! ?! L% p      RowBox[{"(",
    9 v* V4 Q2 x9 h* W       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 6 Q- f* d$ I9 f9 l& D
         SuperscriptBox[; }3 R& N2 N) d  U
          RowBox[{"(",
    ! I7 B: S4 h. t       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 4 k- Q! D4 K, y: X" s& P
        ")"}]}]]], "Output",, R# o% B" a3 x3 i
    CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]' E/ [+ y( v. t/ l- I8 T( V5 B
    }, Open  ]],2 F8 |6 S' ]- T' \

    7 e8 x+ ^0 U( N- F" eCell[CellGroupData[{; {3 e7 F( O8 }7 ~
    ) h7 M0 H; |( o$ I& I% M' O0 y( N- X
    Cell[BoxData[{
    4 k8 B2 ]. l5 l RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]", ( A- B6 e9 Z. r, {1 U- ]7 `
    RowBox[{"u11", "=",
    . `7 _5 ~3 c7 V; F! z  RowBox[{  c" f' _0 d4 L# _/ U, o' G1 D
       RowBox[{"Exp", "[", 6 X) K3 D+ @- L
        RowBox[{
    $ m- D- L" H! a9 O" }9 Q- d     RowBox[{) p# `! K/ e" W* Z# X+ u
          RowBox[{"-",
    ' x# Q7 w! t- h       RowBox[{$ x* @; n5 N" J& g; f1 Z
            RowBox[{"(",
    8 X) V. q! r2 x8 s0 R3 ]         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ( ]* ~( F8 X+ J; r1 m
            RowBox[{"(",
    # J- X4 Q8 `! R7 \& F2 ^         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    # h6 B) c2 X; v% R     "]"}], "/.", "DeltaX"}]}]}], "Input",: P9 s' q! B: q( J) K) n
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {: O8 i9 e1 y' n& ?
      3.57796154237158*^9, 3.5779615434011817`*^9}}],
    7 p9 s6 l# S, T
    , m' d3 f/ \  y1 E- W! _' v: rCell[BoxData[8 d* b' E! ]& a5 A) M2 `. {. T
    RowBox[{"{", # M5 O  J2 U2 G2 n$ r
      RowBox[{
    6 Q0 x* P4 X$ v/ J, _1 z  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
    ) n' e0 s9 @) e! v" ]5 X   "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], + K' d8 X7 |4 b* Q
      "}"}]], "Output",% N4 M$ F1 B) @
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, $ D3 y: M9 t: h# V1 w7 a
      3.57801228203125*^9}],+ M0 `6 Y, l, W

    3 ]1 J2 Q0 \$ i% i; \8 l/ ?. Y/ kCell[BoxData[
    ) @( d3 K. U: C( G$ V7 o SuperscriptBox["\[ExponentialE]",
    4 n, V5 L, P  b, e7 [) E  RowBox[{"3.141592653589793`", " ",
    * p! ~. D3 v5 w+ G3 _   RowBox[{"(", $ W+ H$ }/ H: |0 I  k4 m
        RowBox[{0 y! C  ^4 {0 n% Q
         RowBox[{"-",
    + v* O* f  _9 ]7 }8 g7 L      SuperscriptBox[" k5 [" D0 i$ r  O7 x  E
           RowBox[{"(", + }. v# y6 Z) M4 @
            RowBox[{# l9 M1 g! L. W; \! t9 D4 y
             RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
    $ V+ ]3 w# o& g$ A% F" r     SuperscriptBox[
    ! A4 q% I5 v+ i8 T      RowBox[{"(", * R  Z) I# l9 _" h( G+ G
           RowBox[{
    , ?4 ]( O5 @3 p  M1 |7 L        RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", 7 T. u+ @8 }% y* W' \( _; u1 f
         SuperscriptBox[
    5 f6 X1 l7 J. b  W      RowBox[{"(", ( c+ Y7 Y5 d. j/ _. s3 l( Z
           RowBox[{
    ) X8 A& I$ y' V0 H9 [% M        RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
    4 K  j% h, H4 _     SuperscriptBox[
    : E' L3 q3 B5 L- J( _$ e- ^      RowBox[{"(",
    0 H6 T- A# [2 W) x. e       RowBox[{
    " W) b, v2 G, l) C        RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", , K1 O; e! G- ~! O
         SuperscriptBox[, p& ?9 m' m+ e& E2 C% {- p
          RowBox[{"(", ) w+ [  Z# \8 f% e0 {0 P8 H0 k0 ^) i
           RowBox[{' U( R, Q" H9 p2 |2 W+ Q3 F
            RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
    6 e  r! S, n1 N+ ?     SuperscriptBox[6 }# B/ t/ r  W, n4 ?
          RowBox[{"(", , d$ i( U* M# A  H7 k
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    % K7 u6 a9 @8 h- B     SuperscriptBox[
    , i0 M# }3 x) f- _; ]      RowBox[{"(", / n3 ]# o9 E# T
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", / M! d" ~; u/ o; G# z  J, H+ i
         SuperscriptBox[
    9 i+ R7 f8 n( f( [* ]: h! V) y      RowBox[{"(", & r# |7 H$ J+ x# _
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    & O0 E! F3 Q* p     SuperscriptBox[- J1 A; t' Z6 u, m
          RowBox[{"(",
    . ~* @! p1 B% x8 z# S5 b8 c4 D       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 0 J; h) a; S- _6 a
        ")"}]}]]], "Output",
    9 z' y' o6 E4 n$ d. q3 e CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    ) _7 }5 J+ n& S  _* A, k4 w  3.57801228203125*^9}]3 w4 ?7 K4 a( x, e2 V/ Y
    }, Open  ]],4 P5 l4 P+ t' j* }0 [6 S: P% p
    & a, Y2 t: x/ a1 l- ]9 `
    Cell[CellGroupData[{9 ]! D& |: H9 b
    , Z8 E# Q8 l" z. H' e9 }
    Cell[BoxData[{5 }2 c- z+ i& t2 C4 C, D) f
    RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]", 8 d3 K% s4 v3 y2 a" F0 {1 R
    RowBox[{"u12", "=",
    * ~  V* |- x! ]# F+ h! C  RowBox[{
    0 }* T" ?/ G( k4 n: |   RowBox[{"Exp", "[",
    9 [* l# K+ F" [+ q    RowBox[{; K; u5 l! G8 O9 G4 S! P( T) T
         RowBox[{
    " K8 v9 P+ X# F. b0 i% o6 k# U      RowBox[{"-",
    ) Q& D; v) y$ y# ]0 f       RowBox[{
    6 J& N1 i+ Y* @. d0 p5 T+ k        RowBox[{"(", + @- J0 Q5 M$ |3 l6 X, s, ~* `
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 2 C3 Z. ]% ^5 ~2 Z0 s
            RowBox[{"(", 3 i+ b+ f4 L& h
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],* J8 P- B' \/ d2 [- B
         "]"}], "/.", "DeltaX"}]}]}], "Input",, i8 O0 C  V6 _
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {; |& D7 }. C/ Q- t
      3.57796154237158*^9, 3.5779615576284065`*^9}}],# K/ {$ Q; t# C* |( y) h2 ?+ W
    0 R7 g. K2 y4 `8 z9 Y" A
    Cell[BoxData[
    / s& c5 ]5 _; B RowBox[{"{", 7 D5 v; H8 F6 b8 B: A
      RowBox[{3 N. |0 G2 b* v3 t% {
      "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",", + t8 n/ X2 s7 W; M1 l
       "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}], . t; g; a- p: f3 R
      "}"}]], "Output",* m7 z; q4 m8 {1 k. k
    CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],
    ; @' S# y1 i  h( j/ x
    $ |: ^$ P* A0 M. R3 U" F* G1 UCell[BoxData[' Q0 C8 b3 p# P8 n
    SuperscriptBox["\[ExponentialE]",
    ; O! j3 D& p9 `  RowBox[{"3.141592653589793`", " ", 5 M% X# _7 ]; Q" @" [9 j& x$ M
       RowBox[{"(", & c  }5 i" T, d  @) P* X, c
        RowBox[{
    ' g0 U5 ]1 P1 w# K     RowBox[{"-",
    ( I* }5 m8 o& `9 Z      SuperscriptBox[
    ; g# |7 i  o5 w0 R4 X: b       RowBox[{"(",
    / @% P) a/ H: W8 G! |        RowBox[{
    & Y: M/ K7 X0 A: ^" M7 L         RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
    5 M) u3 \1 R% ]8 U, n     SuperscriptBox[+ _: l% ?# Q; Y" z! t* [; t
          RowBox[{"(", * ~  d# g* P" ^+ b8 O: U
           RowBox[{
    9 H' g4 }/ W) |' Z+ Z8 h        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", 4 U9 I  I7 H! [  N0 o- |
         SuperscriptBox[
    / J  m# v$ G, d3 @      RowBox[{"(", ( b% X! E! h0 }3 L9 e
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
    ( h9 a: n- T: \3 r     SuperscriptBox[  m3 U6 \5 `3 s4 J
          RowBox[{"(", + F& R) g3 m' p$ c& X
           RowBox[{: ?8 e8 h$ |" Q" T! H
            RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", 9 E  {" o) h/ D4 `
         SuperscriptBox[  u" `% q2 K( L
          RowBox[{"(", . x& S& d- L4 p; G8 e4 F
           RowBox[{4 ~2 K0 ~1 t% |
            RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", " Y% p8 a0 V' n! f& Q
         SuperscriptBox[
    $ e8 u. ]* {7 F2 v! _4 ~      RowBox[{"(",
    " m) `4 Q) e% E% K0 ]: F       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    $ h  B; H; Q" o     SuperscriptBox[
    / Z9 d& c, x. f- p. a      RowBox[{"(",
    - L. L% V1 C& d, @3 r3 N& }- q' V       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
      Y0 z( f# k' G; ^6 d6 p     SuperscriptBox[
    # G  h5 _* p+ o. I$ B. a4 Q      RowBox[{"(",
    8 r6 X' J  c: l* K; a       RowBox[{7 N6 h$ D3 f- v, q) _8 p
            RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
    4 a) \9 f/ G/ p! X% ~" |     SuperscriptBox[  B+ v% ~& z, r
          RowBox[{"(",
    " K* b, V/ x2 C$ D/ [3 k& k0 B       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], * a2 g1 d  v% A
        ")"}]}]]], "Output",
    ( R2 `( E2 e  z7 b4 V6 x CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]
    4 K9 V# l% S/ E. d- p! E' v}, Open  ]],3 [9 B4 m; Z8 |$ `" F. S
    9 L  b/ Q0 X' u, {/ J) G% G/ o. h" _
    Cell[CellGroupData[{# c% G9 `7 r! ^2 C
    3 X3 T- \7 q( D
    Cell[BoxData[{1 w% H' G/ P- l6 E/ M5 A
    RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]", 1 S! x( K: c* U# S
    RowBox[{"u13", "=", " {4 h2 h  u8 x; _$ V
      RowBox[{$ }% T# s- ~, @% @
       RowBox[{"Exp", "[", ; B& X1 P9 c  R/ r' m5 B9 C# D
        RowBox[{- `: a2 {  f) ~8 n
         RowBox[{
    ! j# y; S# \9 l# ]+ j7 _  D; h# T# u. K      RowBox[{"-",
    3 T' M7 [: D' v7 S; D; d3 e       RowBox[{
    5 q* A- j; c& H: r3 T        RowBox[{"(", - x  S8 l  N+ G: j
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", - _0 ?) s3 B) D0 W3 u
            RowBox[{"(",
    ; j# z& H8 G; {$ u+ u$ W/ w         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],) n) ^( S7 ]+ ?8 I5 \4 F/ D
         "]"}], "/.", "DeltaX"}]}]}], "Input",1 J% z9 W* ~7 A, w  u+ q, P9 U/ s
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {8 j) [$ ~4 M1 ~# }; ~* `5 c" ^
      3.57796154237158*^9, 3.5779615599684105`*^9}}],
    $ Z' g: P) g( R; B& W1 l
    " w1 H2 f: Y5 o4 y7 T% B0 R0 ?Cell[BoxData[/ r& }2 `4 o, w- i
    RowBox[{"{",
    & I6 g7 i7 G8 j) v) A; b. z  RowBox[{( i$ T& ]/ N. u" T! z! U
      "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
    " e. g+ m" r* T0 e   "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
    2 E7 U1 q* N3 E) s$ {0 N  "}"}]], "Output",8 I# M: @* S. ^" E! i0 S9 v& h
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],
    " O' X* S9 C1 [% Z; K5 v! _5 G/ [. |  q0 z/ a0 [! }2 m  {, C. C
    Cell[BoxData[
    8 b* A7 c% m# m+ T. |  T" b1 @* v8 W SuperscriptBox["\[ExponentialE]", 2 Q( O" v' \4 a0 P
      RowBox[{"3.141592653589793`", " ",
    $ `$ s' d' j) _9 D   RowBox[{"(", : p0 E' B* R4 w9 z3 j
        RowBox[{+ _& x# s! o  a7 x9 L# C
         RowBox[{"-",
    ' a/ J; F* }% \6 ]. ~) N9 c0 H      SuperscriptBox[: E& z" }) o& r
           RowBox[{"(",
      F* l0 ]5 G1 i& U- U& |% s        RowBox[{
    , p5 w; E, Q- I" S% u8 F8 L         RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-", ( K8 H0 {7 X5 l! ?6 ]5 n5 |
         SuperscriptBox[
    0 b4 ]- v, c  s( b- h/ h( F9 w      RowBox[{"(", ' r5 [3 {6 d$ Q, i9 [/ ^. d
           RowBox[{
    + H% E4 U8 e' Y# N# e: B! `        RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", ) h9 o0 K8 A7 r, X# B( n8 F
         SuperscriptBox[) S! X& s" @, y6 D3 ?! ?5 h% X7 q7 Y
          RowBox[{"(",
    - P! _' {. |1 I  o7 |+ c       RowBox[{
    * C/ j, z( d* b. x8 T& ~) U$ R        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    # N0 S8 M% u0 s; @! H4 p     SuperscriptBox[
    2 ?* s( D4 \( G5 l( R      RowBox[{"(",
    . K- D9 f6 S! f0 u- T       RowBox[{
    * t: m& o! A2 y0 n        RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-", 6 H4 f2 g  x) D% s
         SuperscriptBox[# h1 j8 z4 P# Y* V- d* N
          RowBox[{"(",
    6 I) q; w% Y5 U0 d( U- g7 p       RowBox[{( Z5 K, ]) ~6 H5 e! M2 Y
            RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
    4 O( I) r1 g/ R0 V* [9 Y" O9 \     SuperscriptBox[
    ; ^# x6 K1 {) }+ A) g- x      RowBox[{"(",
    ' h, k1 e3 I4 C( {  ]& Y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", & m( u; }" d' w3 U2 L+ y
         SuperscriptBox[
    4 L/ [4 X: J# j+ l      RowBox[{"(", 3 z$ D) h6 \( z+ P
           RowBox[{
    3 S" \* j# x, V5 Q  y2 |& ^        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", 7 z- R2 \6 w0 i0 j5 f
         SuperscriptBox[
    9 i8 t/ e, `' r- g9 ^/ L8 q  a      RowBox[{"(",
    & ?9 r+ \- ?; G       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", $ f) e5 _6 l6 u5 z+ [
         SuperscriptBox[! G6 o8 ?, A0 R' e& W6 s$ U
          RowBox[{"(", 7 _9 {& a! z: b
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 0 R8 p, m! _- f* {
        ")"}]}]]], "Output",
    $ o. L; ^9 f+ i; X! {  g1 B3 t! w4 p CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]
    . Q7 h) X7 U1 a}, Open  ]],% {2 x$ m6 H& I
    9 u9 g- y& O2 v# j7 ], E
    Cell[CellGroupData[{2 |* [+ l+ Q# ^

    ' j6 d% o+ y9 x' V" r3 A& F3 {Cell[BoxData[{
    ( S$ @( R& Q5 F2 {2 t RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]", 3 g; S- p6 Z( k" B0 \' _
    RowBox[{"u14", "=",
    + n8 T  T; ?; }3 ^- q+ _; |  RowBox[{
    # G( b; M- ^& ?: k2 d   RowBox[{"Exp", "[", * E0 I% Q/ w9 i5 Z
        RowBox[{
    ( z- E2 _2 P# E; {- D     RowBox[{
    ) @; g& N' X/ V# Z0 ~: ~      RowBox[{"-",
    : J: a7 r8 D' s- ~       RowBox[{
    2 i, s* _. k: c! U6 y( i3 d) d1 ?        RowBox[{"(", " m3 v; e) X* G1 v, a& b9 p" F
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    3 M5 v( j4 |' x; c. S        RowBox[{"(", 5 b8 d+ o, c! G+ J
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ! G  x" e- h$ r3 I. D5 W     "]"}], "/.", "DeltaX"}]}]}], "Input",
    + T4 S4 s+ [6 \7 G4 Y9 d  M% S CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ' T2 A3 r2 `) [* z- Z  3.57796154237158*^9, 3.5779615663176217`*^9}}],0 H+ z9 _8 b8 k) O; y; @
    5 _9 e% d6 ~( E& W* J* O0 a; |
    Cell[BoxData[1 b2 T! k, F, Y& ?) L# ?
    RowBox[{"{",
    & z) m) I# r" d8 y' q( v# s  RowBox[{
    ! M. s2 p8 x" S- \$ L* D  "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", 6 Q' d$ x5 O5 n
       "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], + V% j( A9 b' q& J8 t
      "}"}]], "Output",8 y) j7 j5 W' \& O5 C, M
    CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],
    $ c. [& a, p5 X/ g% L2 M: Y
    ( [4 F/ r/ X% V: b5 m  ~9 NCell[BoxData[
    . m" ]: ~- W$ u: E! i SuperscriptBox["\[ExponentialE]", 9 {* z; o& A6 H  C0 c: m, [+ ~  r5 z
      RowBox[{"3.141592653589793`", " ", + u/ q, M# j9 u- A# }3 U, h6 Y2 u- U
       RowBox[{"(", $ U6 q4 m1 V  F( K" D. u/ B
        RowBox[{
      Z$ J5 D3 l, |/ I     RowBox[{"-", 7 Y; O4 J# I# ~8 M
          SuperscriptBox[
    " z1 P, A7 }. v       RowBox[{"(",
    # T9 K: t7 L8 J( p1 W: \        RowBox[{$ u# n5 c; l5 d, a
             RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
    4 g+ x. S/ ]( Z% h+ l     SuperscriptBox[
    / d( R6 F& T# S0 ?* Z( H      RowBox[{"(", 8 m+ @# H- r' Q% b. g# A' B2 y6 E
           RowBox[{
    0 E) }0 g: i% g& V  y        RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", 5 W; g. e2 r5 G3 i8 y% y4 M
         SuperscriptBox[
    # U$ F% F2 }0 F2 C. L! R7 s) Q7 H      RowBox[{"(", - s( A$ D. t& [% A
           RowBox[{3 `+ v% ~- J# S- Y
            RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
    / D/ \. R( E5 \+ B" R1 m) l3 f2 `     SuperscriptBox[
    0 t3 D) N/ d+ I. X      RowBox[{"(", 2 N5 ]7 Z7 J+ `% V% P
           RowBox[{
    & w9 P( m/ C0 S% m8 R+ {        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
    * f- [( A  M9 Y     SuperscriptBox[
    + V0 X3 P( P$ ]2 J% R! C0 f7 H      RowBox[{"(", " \: \5 m4 Q- r; Z9 v
           RowBox[{. j2 C0 c+ g7 Q$ N/ W8 p; O9 p. q
            RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-", " e% L" D; V; G) v# j: U1 |
         SuperscriptBox[- ?2 g2 o  |6 ~# u0 `
          RowBox[{"(", 4 a2 h. @0 ]6 Z3 Z! ]
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    4 L" I. Z9 J& m  d  e     SuperscriptBox[! t5 M% Y8 R! [
          RowBox[{"(",
    ) ?" ^& R" N5 b" ~+ [       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 0 k5 t2 u0 J1 B
         SuperscriptBox[
    7 \7 j+ O% K( I5 w" y3 U      RowBox[{"(", ; K& m/ V, k$ J3 ?! W, [
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    8 T3 k. s9 w$ y: B( a' `     SuperscriptBox[
    + ~+ n: e( Q2 n5 r      RowBox[{"(", 2 t4 W+ w5 e: E4 }! F' R9 ~) T
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 5 L3 R0 G+ ?8 `- l
        ")"}]}]]], "Output",8 K  I. w3 g: p# X: M' l
    CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
    . x+ w/ }" H6 ^- H% X. K}, Open  ]],
    - F' z  f  t1 B: E& e  D
    5 S- W; Q8 L% a/ L( _+ L. vCell[CellGroupData[{8 ]3 C: M+ r7 p  {1 i6 ]! r
    ) o6 j% C+ h$ G. p
    Cell[BoxData[{" u+ J6 Q  \# e# t0 x
    RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]", . |0 s) ~8 t6 u4 p$ \9 v
    RowBox[{"u15", "=",
    . W8 v; \& F8 I) k  RowBox[{6 i6 Y2 @1 {) I: J+ ~8 P* D3 A3 E
       RowBox[{"Exp", "[", ! L6 t4 H# Q+ m/ L
        RowBox[{
    9 x  W  X' A' M( R' k3 @8 e     RowBox[{9 c8 K3 D8 F. }+ d% ^3 f
          RowBox[{"-",
    & f7 o$ o8 J5 H' L3 U       RowBox[{' t* r* R  c# A4 [+ @' z
            RowBox[{"(",
    & ?5 c- @3 |" D, ~         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", / q1 E5 m8 `/ A  C. x; `
            RowBox[{"(",
    ! x' @4 ?# O( j, D         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    : p- S1 e4 h0 Q. A& z& z- d* r2 d     "]"}], "/.", "DeltaX"}]}]}], "Input",
    0 i4 u- t; h- `6 J$ r; s CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    , I% e" s0 E' \6 E1 c6 g  3.57796154237158*^9, 3.57796157098203*^9}}],
    0 g# y3 v1 R7 r' Q$ |9 c
    ; s5 Q+ c* C& W6 W7 P+ C3 {8 P" k& _0 qCell[BoxData[+ \8 b9 o5 I- U+ v. y  E" m
    RowBox[{"{",
    ) A1 n( {1 u2 l; ?* I7 Q  RowBox[{
    1 l$ p1 v4 b; {8 w  "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
    ( p( `# z8 R. }+ ]) c   "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}], " z( a$ Y' K: y1 `! _; v
      "}"}]], "Output",
    * k' c: ^) z! e0 L; F CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
      C3 N* T5 L9 s5 T! L# E+ R6 x3 Y0 a
    Cell[BoxData[: F1 z: n" B: I3 D
    SuperscriptBox["\[ExponentialE]",
    0 m& j: {- {+ ^" C  RowBox[{"3.141592653589793`", " ", 6 J" ?' Z" [# ~9 W1 d
       RowBox[{"(",
    3 v9 n: g( H6 l+ o3 Y1 d    RowBox[{4 x3 F( n& n/ p8 y5 W: ~
         RowBox[{"-",
    % F$ j( v# b% k3 w$ B      SuperscriptBox[) B6 B2 a  I+ ~% V/ R' Q* Z; P% G
           RowBox[{"(",
    0 E  e( z0 b! d4 ~5 `        RowBox[{
    * K, B4 i. \4 r, F% |: P         RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
    2 h$ }8 U! n: \4 x3 t     SuperscriptBox[% s: W- r6 B$ R3 [2 z2 s3 Y
          RowBox[{"(",
    1 R' T6 X3 L8 L. q       RowBox[{
    . j; G. Y' A* w1 y! E        RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
    0 S7 J* T! W+ Q6 n- y# _, S     SuperscriptBox[3 m# m& Z9 W! x$ e" ]* F
          RowBox[{"(",
      k2 ]! Q, x! m. @9 O- Y5 X5 b* u/ b       RowBox[{; E8 R3 E/ @3 P! b/ e
            RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", ' ^' Z9 z. ~+ f3 m+ T+ H6 W1 V
         SuperscriptBox[# o1 S( z7 l$ e" R
          RowBox[{"(",
    . H$ s2 C' w7 f$ E       RowBox[{
    6 ]9 D& }6 V8 L3 P        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-", 4 P' |8 A* l* S" [* Z* [6 K' l
         SuperscriptBox[
    1 b5 u! h, `, [$ c5 x* z      RowBox[{"(", % {  s, L8 k; P
           RowBox[{) f; s: Z8 i) ?. d' e
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", 7 s! M8 A7 X& e
         SuperscriptBox[, P6 v; B. O) y% b" W9 O
          RowBox[{"(",
    # Y! C( A, r5 _# M4 s       RowBox[{
    * B9 D! e8 q! U/ X" X% J4 c        RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", + A! ?! l5 L+ [& R4 N8 G) a: S
         SuperscriptBox[
    ! T$ t4 u8 k) K4 B3 u* b# q      RowBox[{"(", % [6 Y2 R# O, s3 \1 ~9 x0 j
           RowBox[{6 A3 Q' t) k( m) {1 n
            RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    6 M8 j9 `  j$ t( m     SuperscriptBox[
    ( g- x7 J* y# B+ E# V7 t) D- T      RowBox[{"(", 0 h" m) [, c" L0 h  E6 i" R* E7 V3 `
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ; x% ~% ?$ z! X) b     SuperscriptBox[% i* e+ i% b5 Q4 g  f' {$ W
          RowBox[{"(",
    8 d. [4 Y. `* F& J       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], : A) @; b' d" f" ^
        ")"}]}]]], "Output",% Q# P5 K5 x3 d# U. c
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
    - h1 e+ R1 ~$ n& k}, Open  ]],
    6 ~9 Y! r# X* U* @1 ^: `, p4 f! p, r- D5 S$ W+ H" P+ X& k8 R5 V
    Cell[BoxData[, D, R8 B  q8 s" v
    RowBox[{"For", "[", 0 Z6 W! }# D$ o( y
      RowBox[{0 J+ C4 w* O6 W* h( n' T4 E5 o7 O# x
       RowBox[{"i", "=", "1"}], ",", # M; g0 g% I- o5 ]8 C
       RowBox[{"i", "\[LessEqual]", "9"}], ",", ( Q4 C. G- y. \, s2 i, ~' q5 e
       RowBox[{"i", "++"}], ",",
      S4 J: t3 S# S; D) h5 M& v   RowBox[{" u$ p- E* ?/ z
        RowBox[{"Ca", "[", 9 c1 P9 s& [0 t) U7 c1 ~2 ]
         RowBox[{"[", "i", "]"}], "]"}], "=",
    ; A6 b; k  ^0 ~6 y! ?; D6 |    RowBox[{"CM", "[",
    4 j: L4 c  O  N- E; [' h     RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",- A2 H# `- g6 B, X" d( |5 r
    CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
    ) T+ E  y/ r8 J8 K5 K" @+ N& a2 n4 s4 g7 _, r
    Cell[CellGroupData[{" b0 `! x: Z' l3 A% D$ l
    & g) Q: t7 O/ M
    Cell[BoxData[{
    # ]9 k! }6 p& v$ l' N9 Z3 g8 W RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]", - Z  E  G( s% U
    RowBox[{"u16", "=",   H% p& R. _4 E/ C* X3 N
      RowBox[{3 Q5 E: S" T. H
       RowBox[{"Exp", "[", * H: W6 v. b" S: j; y9 X$ C
        RowBox[{
    / i& b2 D# ]' e2 r" M& |; o     RowBox[{+ r! N3 _5 }7 J! @
          RowBox[{"-", * `7 w. d- [9 W( L7 ^9 H& r
           RowBox[{+ i9 N, p; L4 z
            RowBox[{"(",
    1 A7 [3 E+ d3 U3 Z) z% T$ l9 i         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ( h* d/ x, p* E* G& r. n        RowBox[{"(",
    1 x$ k' v& Z: c, M         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    - o2 K; f' T9 \# d  [: V" F% M* d* ^     "]"}], "/.", "DeltaX"}]}]}], "Input",
    ) s( o6 n7 I" [0 S" V+ G CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {9 w' F3 _, b: ^. M9 [7 f: r# [/ D
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
    + Y' K$ g0 K2 n1 d8 a, R  3.5779615751004367`*^9}}],
    ; J. {% U' s1 X. j7 B- q8 E0 M& {' V. z6 \9 Q1 w' a3 f
    Cell[BoxData[( O" `% p1 Q2 f" p! J" F/ j6 p" r
    RowBox[{"{", ' J  q: k! j' \. \6 k+ @( n4 _) A
      RowBox[{
    : ?- F2 K  E% b1 Q, M  "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",", - D; v8 Z; S" r0 R6 \+ Y
       "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}], $ V/ V0 ]* T& i
      "}"}]], "Output",
    , ^% [; |9 q' a9 v; ^+ `4 W* P CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],
    ! K! R/ R$ w- U; n
    + Q! [( [% J2 l# bCell[BoxData[
    % o3 X2 @- N+ O2 K. V SuperscriptBox["\[ExponentialE]", 6 s% Q5 z9 @7 X2 m
      RowBox[{"3.141592653589793`", " ",
    / C, v2 w5 L! L% k) T7 i; o; @$ _   RowBox[{"(",
    9 J+ R3 U4 P- e5 u    RowBox[{
    ) Z# n2 E. R+ \/ `) V. Y     RowBox[{"-", * ^+ d$ l- Z: Q; S" e
          SuperscriptBox[
    " b1 M4 W3 K" v       RowBox[{"(", ' R3 z8 E* n4 J& `
            RowBox[{/ ^% |+ U! M1 n5 t/ }1 G, S4 t
             RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", 7 ~6 W8 l2 ]2 G# a$ t8 N7 U
         SuperscriptBox[3 u1 ?2 U" V0 Y, a
          RowBox[{"(",
    2 _0 p$ y  ~7 J6 B) T       RowBox[{
    - s& b& B/ n, H; Y$ D' ]        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", ' l& z8 M/ F, Q
         SuperscriptBox[. W/ V( z# y; |) f* g1 ^; `) [
          RowBox[{"(",
    / Q; Z1 o& u( J       RowBox[{( `# B* [% l3 a! t1 e+ _6 \$ w9 s
            RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", $ D0 S' E5 P4 r# k  ~2 Y& f8 p1 o
         SuperscriptBox[! R+ ?3 ~1 j2 y2 n
          RowBox[{"(",
    : n: Y1 L$ L' P# i" J       RowBox[{
    6 I. y' R0 {1 V; G6 `, M        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
    ( K& i: [  Y7 Y( J     SuperscriptBox[
    : u: w, \0 V: E3 ]( @" N      RowBox[{"(", 0 k+ I6 r3 R) Q# a
           RowBox[{
    4 g7 u! ^" D* R; p        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", 4 x) w/ h3 B  _8 L
         SuperscriptBox[& a9 _8 d* F. c2 B! q' E
          RowBox[{"(",
    " a* d+ L, M7 j# {       RowBox[{3 v7 w- J, v" W' r: e# u
            RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", 3 N9 a3 i3 b# x! h1 u$ B0 t
         SuperscriptBox[- e0 u* R. s3 y5 p
          RowBox[{"(",
    0 O7 y0 [1 c; w8 Z# P  |       RowBox[{$ a& ^5 C" E, Z( n& V- K8 R5 f0 c
            RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", ! e0 F  y% y0 L" J& A% T
         SuperscriptBox[
    , ?3 V3 J) T, B( @6 s4 N7 A" k      RowBox[{"(",
    ; r2 [3 Z1 G) y& S, E. D2 \       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ( Z$ e& H" b. d' l+ E, I1 a5 h3 v     SuperscriptBox[$ ]7 s% o0 r7 o5 v' a
          RowBox[{"(",
    , U' r& j1 R( F. V' k& d4 g       RowBox[{
    ; ^8 S' L; L- Y1 N+ u        RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",- P: Z" c+ s9 ?/ y. k1 E  E% C
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]" n( ^! r9 m5 ]5 r
    }, Open  ]],
    + |) W' ^: T+ E8 o
    * D# J5 o( B- E  O: U% J  K1 c4 }Cell[CellGroupData[{- e$ Y$ ]6 m$ r. T+ F" _

    0 @2 i& a9 B/ L( v' |. C- HCell[BoxData[{9 v  K9 M8 ?) p# `% S
    RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]", 4 l6 s* [3 e* W$ d; A
    RowBox[{"u17", "=", ) A: V/ P. F' T9 d# ~
      RowBox[{
    3 K% r! X* i% c   RowBox[{"Exp", "[",
    3 h. P0 Z% V- w  z/ u    RowBox[{
    ' G5 d0 `$ [/ B2 g4 B% @     RowBox[{
    $ G1 c3 Z2 y$ O0 Y) d/ T9 S1 {      RowBox[{"-", ! l5 i# S" X9 }8 K0 X" \' q
           RowBox[{6 S% |1 M, E* D" b4 L% M
            RowBox[{"(", 4 `: r8 _" [; t$ {) q
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ( i2 E! I6 I! _$ J- b( a8 h5 d        RowBox[{"(", ! o2 ^, J2 f! X" W8 [
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    : Z3 C/ _1 J7 y8 q' L+ r     "]"}], "/.", "DeltaX"}]}]}], "Input",
    ' X  g' l" h0 k) N% U, X CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {. S* T% R" c/ ^: U) T
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9, 1 C' B+ e; t3 F6 M- F8 m
      3.577961578953644*^9}}],
    / K7 Y1 N, j& {, p) o. ]0 z7 U. h5 Q1 g. u# J! t  P
    Cell[BoxData[1 i3 r: d6 c! z2 B" j$ G+ L9 i
    RowBox[{"{", ! r5 T' _' M$ B  t4 a
      RowBox[{
    2 P3 b7 G" w! k- a- Q" q+ y# V  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
    : F2 Q2 ^& f: R6 P% P2 [   "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}],
    % D3 K! q: c, X" R  "}"}]], "Output",
    ) ]# z% m$ ^) V CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],6 L* w' R" X3 w. y: X4 l

    8 G3 [6 g( [8 O- k: vCell[BoxData[9 c2 w! V' D$ ]8 ?# L
    SuperscriptBox["\[ExponentialE]", % G. C6 @3 O6 z; o) k2 t; O
      RowBox[{"3.141592653589793`", " ",
    + I/ B+ M, Z4 s9 r( t2 E! n" D   RowBox[{"(",
    8 R: b  m& }& C, q. E# l    RowBox[{( K/ z$ ^/ d) D
         RowBox[{"-", 6 {: c1 A4 G" y! a4 x: l- R3 a1 O
          SuperscriptBox[
    1 w) ?) N2 n" d7 i( q8 y: A' W3 |       RowBox[{"(", ( {, C0 j: O9 n/ q
            RowBox[{
    7 ]4 w& R1 x" p1 s( M         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 U- T" i6 `2 R2 o$ {
         SuperscriptBox[. x7 q, A; J2 l+ W$ E4 A/ I
          RowBox[{"(",
    3 R# j) ?  F! f) x0 N7 S/ Q3 ?/ x       RowBox[{
    2 b0 Y, k+ o. ~( P6 D* c* k1 ]. }        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", : R/ O) G( Q2 R. g4 H
         SuperscriptBox[
    1 j4 |( `& E0 S1 t      RowBox[{"(", ( J4 I7 D& T+ J& k. N* Z  m0 Z! H/ g
           RowBox[{
    % x" q' V9 \8 b0 G3 _        RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
    1 {' {4 y+ b+ h9 J. m     SuperscriptBox[" r9 v( U: b, P+ a, G
          RowBox[{"(",
    7 v0 h8 T* q8 E  O       RowBox[{
    3 y& \0 k/ L9 {6 O# ]' D        RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", . ]+ F4 S/ z) C1 y8 _0 c/ ~
         SuperscriptBox[
    3 |: [5 b/ h/ ~1 p/ l% n% L      RowBox[{"(", 0 R4 E7 H" g% u- r% j
           RowBox[{0 U( q0 ?. n% m$ M
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", # H3 `7 n" m5 z  f! W; S$ e- @
         SuperscriptBox[" t% w+ z7 P4 Q/ `' R
          RowBox[{"(",
    " ]9 M/ O; j+ q' _       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    8 a& S4 @$ t# p2 P7 C1 z     SuperscriptBox[8 |7 ]! ]% `9 B/ a/ ^! j
          RowBox[{"(",
    8 I! a3 w6 q2 N3 V; W  e* I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    0 ^3 F) Z9 X' s; F; @7 K: Y, ]     SuperscriptBox[# c1 ]0 X8 `- w5 v3 B2 w9 U" F
          RowBox[{"(", 3 U7 |& U% t7 n) n( B8 n0 F1 h  p
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 0 n3 [& S; G4 q6 d% `- i1 }
         SuperscriptBox[  T! d5 |7 w  k
          RowBox[{"(",
    / k% `0 T; g9 y# B( O: e       RowBox[{" D$ S. }" R; F  t
            RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ) I7 {9 R- D& T3 }* S' [/ r
        ")"}]}]]], "Output",/ G$ a7 c) e7 {# y1 Y5 c
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
    0 F8 t( w  h7 ?/ a% b5 ?; z}, Open  ]],
    8 F1 ^: ~3 w3 p9 G" l% s: B9 w/ v
    + I! w7 ^9 Y$ s0 _9 jCell[CellGroupData[{& g! y; B( N2 N: ^) S3 p* [
    ( i# i' @$ w& {/ Y$ |4 H
    Cell[BoxData[{; ?) U/ x9 G6 M: h
    RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]", ' p4 J: G4 G! ~0 Q
    RowBox[{"u18", "=",
    : A0 ~  f3 g9 d7 F; j  RowBox[{
    7 r4 {+ L: f) c  L" u+ B   RowBox[{"Exp", "[",
    4 s! v0 S% X% ~' P2 N    RowBox[{
    ; _! s$ L6 C: C     RowBox[{4 t+ {" {' l7 h4 r
          RowBox[{"-",
      a/ v, `" Y3 A       RowBox[{
    ) V/ E# K# a4 T8 b  `        RowBox[{"(",
    + i6 ]  r3 w% [1 Z- A: }0 m         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    + v0 T) A  v% b- j+ @( A        RowBox[{"(", 0 D5 h1 p, b. o( X$ w0 x8 Z$ m( }
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],0 m7 C) Z) z/ P+ r  M* {
         "]"}], "/.", "DeltaX"}]}]}], "Input",7 I" H  h! R+ z" H3 r. ]: J) W
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {1 w5 l9 E/ u$ B! Z! L6 N" W1 F
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9, 7 ~9 \+ \5 A8 G; q  K
      3.5779615828848505`*^9}}],
    4 C. f, L+ G8 h6 r/ u8 @+ u* u  i" a  c
    Cell[BoxData[
    ' C: g6 F+ @* A' m5 ^7 l4 D RowBox[{"{",
    / K* b2 s/ x" @% B' x0 o  RowBox[{8 X$ l% P, t5 L
      "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", : O: q% i: `8 g
       "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], ) Y. l; v$ T# i+ m6 J
      "}"}]], "Output",
    : `1 `2 z2 N0 Q, m" h+ v% u+ m$ n CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
    ) Z) T# X& w  ]" u$ S  _. O0 ?" j+ a
    Cell[BoxData[0 p5 k9 h# y! L2 O& j: x3 e4 m" t3 E. |  X
    SuperscriptBox["\[ExponentialE]", ! G) o1 ^7 Y+ m" r! m4 Z5 r  w
      RowBox[{"3.141592653589793`", " ", - G8 ]- B8 l3 g" P7 Y% o) N
       RowBox[{"(",
    6 L' W9 N+ `7 }5 \0 e2 l# ~$ T    RowBox[{8 S5 E& E. n+ V+ H- q) K
         RowBox[{"-",
    & e% Q! N# O* f& s! t      SuperscriptBox[3 n. C& L! S: P' A6 c9 P
           RowBox[{"(",
    " @! C0 z* D7 ~6 t0 Z        RowBox[{
    # A: o$ d3 w% @0 W* X$ Q4 _4 U         RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    * g# s) z  g2 ^, t* }     SuperscriptBox[; r3 ^7 b+ o/ j
          RowBox[{"(", ; A* o8 `9 r5 P/ k* \" @  U
           RowBox[{2 X, p6 ^( ]! T- d0 b
            RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-", + E4 o: B9 P7 D) y) L% S9 j& ]
         SuperscriptBox[
    ) t8 y6 \& E9 J3 B. a      RowBox[{"(", , f7 M" j/ \. a- T. V
           RowBox[{3 T- {9 f9 q5 e6 u
            RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
    9 `% E! |7 A* x9 g     SuperscriptBox[
    : Z$ A  y" @- {* L" C8 Z' J      RowBox[{"(",
    / q; S# }, }7 ^+ K& t- K       RowBox[{9 f0 |* |( V7 E' m; l, y
            RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", % U' V5 ?: z9 X* l5 R
         SuperscriptBox[
    1 t. u6 }( v. O5 I% g* f6 R- L      RowBox[{"(", ! }* {. e2 A- j3 s1 B1 g' j
           RowBox[{. U, ~- \9 u) g3 l2 s' g7 K6 V
            RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", 0 Q# Y# c! ?/ N2 b
         SuperscriptBox[
    / @0 p" w) `' @# V5 U      RowBox[{"(",
    - U  |. V6 a; z: D, W. U/ c5 x+ C       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 9 t6 d' f0 a& k  T$ e
         SuperscriptBox[2 R7 k6 W: }2 u+ [
          RowBox[{"(", # B# u$ A1 f  o7 y0 V+ l5 [* I
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ( |0 i# b" I3 W! E# n
         SuperscriptBox[; }, @- r5 |' w0 S
          RowBox[{"(", 4 G1 }9 [/ c8 {! A2 f( R5 Y
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", : y5 G* w, R2 w9 U
         SuperscriptBox[  [& @! S# B1 @# T! v# l
          RowBox[{"(", * v* b. {0 v3 T% e; Q
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    8 `& Q2 F9 G3 u) T+ i    ")"}]}]]], "Output",% c4 T; V$ z, H( s6 y
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]
    6 p  F  o( E; \3 f% W  R}, Open  ]],* T+ ~. O$ m4 R6 D# G' X. J

    # {8 Z. f1 \! C) Q7 ?Cell[CellGroupData[{
    # Y9 Q. L# p/ m+ |1 z+ y' \. S8 d% K5 r* ?# B5 e
    Cell[BoxData[{6 \! }/ Q* F2 l0 ?. R" j' e+ T
    RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]", 2 I1 H6 o3 x, H0 p7 H) m# o  e
    RowBox[{"u19", "=", $ F% P; x3 j- {( w9 I/ ^
      RowBox[{
    # h* V/ J  v0 D$ u; [, v/ Q& t2 e   RowBox[{"Exp", "[", * K, I5 g; R2 J  t3 o6 H2 X& k, E
        RowBox[{( |/ ?: w) M. a# Y6 a$ Y
         RowBox[{* R9 x8 [  ^/ d6 ?; t
          RowBox[{"-",
    7 M9 |' S( {5 I* u3 \7 [, _       RowBox[{/ r6 _5 k  U1 B7 {2 t0 c
            RowBox[{"(", ) G( t) a4 q) N$ ^0 O. H0 l4 r3 U
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    & y5 `  M% |: v. y" u& p$ W        RowBox[{"(",
    2 x$ V" P4 v' ^. H5 E1 T- f& L, l  L         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],3 ~0 q% |, G: O, n$ C  C5 F# f. W; B
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    * |2 ]% ~  q* n+ |* w! I/ Q CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ) \( A+ g5 n+ w$ B, i  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, ( {5 ]0 y  F+ o. [  a. q" ^2 S8 F
      3.577961588890861*^9}}],9 D9 `7 f  K! \" K, ^% z7 ?

    % i/ |1 g& }; Y( L8 ~" z! BCell[BoxData[' V7 R' t( c! w1 p
    RowBox[{"{", # a, l5 t4 t0 k/ p
      RowBox[{
    9 t3 r2 V9 {6 \- ?0 E8 g  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
      F3 C! y+ P- J; Z, |4 S   "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],   s& l  b- {" @1 P3 O0 W
      "}"}]], "Output",
    6 h7 f" i. f8 b CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
    9 Z4 Q# ~& w7 P4 n# x4 H9 e# T2 O. R* c' ]6 N" y7 g/ r
    Cell[BoxData[
    % F1 {! Q5 J2 K: y/ q) G# q SuperscriptBox["\[ExponentialE]",
    0 `+ Z" |* T/ P* u* T' S  RowBox[{"3.141592653589793`", " ",
    1 E: J! z: O$ F. B" C   RowBox[{"(",
    * [* X" P# e/ x8 S. B    RowBox[{- q! k5 d2 z) @( }& M
         RowBox[{"-",
    2 `- D( \& V* ~      SuperscriptBox[
    . P( L, m5 i) q5 F       RowBox[{"(", # @! V4 e% f8 w; C0 {
            RowBox[{
    4 G& {1 a. f" Q5 D         RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
    0 ?! p$ K. Q  e1 Q. ~3 @& O9 Q/ w     SuperscriptBox[2 a2 q9 `& n3 b4 A3 `1 r
          RowBox[{"(",
    ( g3 S* l5 _* ?8 k       RowBox[{9 h2 Q. o% I7 o; r# p
            RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", . Q4 s8 m7 k0 ?+ f
         SuperscriptBox[
    2 c$ V& }8 \, h  k) q" ?& r* u      RowBox[{"(",
    # R' a+ x0 F$ H" O- q0 p- G, {       RowBox[{1 g; |4 ^' m+ D
            RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
    # P' [6 j. I3 B5 b/ P% s     SuperscriptBox[8 j5 @' P0 f  H* R
          RowBox[{"(", / |8 p: X9 d* e# j
           RowBox[{
    / w) O1 K- R0 d( o        RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
    # B4 k5 Z0 M9 \' v% k2 p/ r, {     SuperscriptBox[
    - m7 a# J6 c0 R% _/ e5 e* J! r+ v      RowBox[{"(",
    7 ^8 A/ j3 i; j* h       RowBox[{/ d# F7 ^. U; Y
            RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-", % I; b" o( I1 |, G" P
         SuperscriptBox[
    + l2 j2 m1 U/ t% w* U      RowBox[{"(",
    0 J6 i6 l/ v+ F% z       RowBox[{) t) F, U, Z1 D- T, w, i  ?
            RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
    ) O' Z( a' x, b& y     SuperscriptBox[' T4 n8 b7 ?5 G- \3 G7 v. U9 |+ U
          RowBox[{"(",
    0 ], U/ i9 U. y4 X0 S- [! P! N! x& J- o       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    3 x+ v- a* f' N     SuperscriptBox[2 @4 ^; S/ B2 P
          RowBox[{"(", 8 S3 K) r* I2 z2 W( r
           RowBox[{
    # z& T$ w2 u! r/ C5 u, U1 U) k        RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
    $ z/ f7 u+ f" {  ?/ f& v8 x     SuperscriptBox[
    & x& n; q( [1 m2 p" `9 D      RowBox[{"(",
    1 @, R  N' E, y$ h' B5 ]# O       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    - [2 ?$ M# s, ^, B! Q2 h0 D    ")"}]}]]], "Output",6 C- M  s; |: X* ~. R
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]1 B# g( \  e* z  d7 l
    }, Open  ]],
    - o& C0 r4 Q, h; s& E% g
    , T+ [5 \5 W6 O5 P! rCell[CellGroupData[{9 d1 ?* I4 v0 @3 v9 [

    ' l; Y/ F% f) b& T( O: |8 B  m- uCell[BoxData[{/ ~0 z& f) T/ K! W' d9 U: {: U
    RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]",
    % @  [: O( f, M" Q& J0 K7 E7 f RowBox[{"u20", "=",
    ' B! P) @$ P  {! Z5 q5 L  RowBox[{
    , Y  I7 Z. ~; A' S6 _   RowBox[{"Exp", "[", ( l' e' d9 B# C) f
        RowBox[{0 x: t7 T% m0 V
         RowBox[{
    4 S" B5 a4 G8 G6 l. U0 ^% w' R      RowBox[{"-",
    0 [' Q3 [, [1 @( g2 o* g/ O, I       RowBox[{  P0 j. X) d9 x- `9 @6 `
            RowBox[{"(", ) G1 N( m2 T( ~* a
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ( x& O! i) q% E. R        RowBox[{"(", 7 r) ~1 l( j  |7 N1 i$ w
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],$ p- {  E$ S: Q
         "]"}], "/.", "DeltaX"}]}]}], "Input",
      s# D+ F1 ^. A+ V1 u( `9 W9 t3 P; F CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {- k' t2 o8 x9 o+ ~# L2 ?
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
    $ G% j! h. D/ h$ s, W0 l0 A% x  3.57796159382047*^9}}],
    7 v( L9 v. K% g( T/ {) C: v+ D( ?. {( `) g+ v% k
    Cell[BoxData[& \# c- V* I6 w9 O  O/ x+ j- y
    RowBox[{"{",
    2 K; s: `9 f! ~3 q& R7 g  RowBox[{
    0 }& d! a8 i" v& ^& V' B0 `  "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",", ) ~3 j3 Q1 [4 Q( Q; M
       "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
    5 Y% B% |; f. }' ]5 q, H! y3 N$ v  "}"}]], "Output",* l/ E" c' Y" O& C( Y
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],
    & _* I2 `% c3 G2 n) \  v
    & v" x6 z1 k" V9 zCell[BoxData[
    8 m, g4 n5 x4 g SuperscriptBox["\[ExponentialE]", ' e) `# i+ O- ~6 Q7 X
      RowBox[{"3.141592653589793`", " ",
      v2 [/ D, g& D3 [* O: v   RowBox[{"(",   V. r  y3 Z# w* F3 ~  Z" f" V
        RowBox[{4 Q( y5 d- p" O( y3 E8 {1 V
         RowBox[{"-", , A/ ?# a5 i4 E% q
          SuperscriptBox[$ _# L9 s2 D& X3 q4 o
           RowBox[{"(", , o" j+ A8 O% l0 \2 N
            RowBox[{
    : X# h0 ]2 S8 D* L- N: d         RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", + s$ _; p& Z$ ]' o& t
         SuperscriptBox[
    & A3 H3 W. x) H      RowBox[{"(",
    - s; s) N+ `0 p5 h$ Y$ o& R. [       RowBox[{
    ' l; h. }: [, ~3 i        RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
    3 y8 t: g" N. a! ~2 K     SuperscriptBox[; w* R6 A8 S3 C1 f+ E
          RowBox[{"(",
    6 L6 h0 t8 @6 _5 |3 S7 T) Z       RowBox[{5 m' }1 V; V; [
            RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", 0 C! y) O2 F4 {1 [& a
         SuperscriptBox[
    * c3 K3 Y1 P; T/ \9 v+ X: p      RowBox[{"(", 7 q" x) p) w8 Z' _
           RowBox[{) F, ^% K' i9 {
            RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", ; s7 o( d% N) l: m, A
         SuperscriptBox[
    + R( ]6 |$ |% W  x( X      RowBox[{"(", # d. c, M) m! L. X, ]3 D9 y
           RowBox[{
    2 Y0 [5 P0 r* W* V        RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
    2 N7 C  c( b' U2 Y$ B; c% ]     SuperscriptBox[0 i- e0 V1 z( n  Z& O' j2 z
          RowBox[{"(",
    0 Z' j$ v3 p  T, M& j+ s7 _8 Z. l! g       RowBox[{
    + Y( `' l+ {- u; ], V+ w8 H        RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    2 i: D2 C1 T; T; ?3 @     SuperscriptBox[0 n8 \6 C( ~4 w( J4 ~6 ]+ B4 Y# Y4 g
          RowBox[{"(",
    3 D5 L9 _1 T7 Y8 b' K! W+ K5 v       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 9 B( o9 i& H" g0 c0 V
         SuperscriptBox[
    9 L0 f! y8 D) o! k      RowBox[{"(",
    . v* a( V2 T/ Y  I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ) [% e& e0 u$ ^2 @" k     SuperscriptBox[- S! s! y/ j/ v- u/ D! W2 X+ Q
          RowBox[{"(",
    7 L; A, ^- |6 a0 _* \! k% b8 D; M       RowBox[{$ y+ Y8 a: W9 ?# d% Q; v8 @
            RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ! j$ Q% }/ ?3 j$ C( t
        ")"}]}]]], "Output",) e! J4 T- {# L+ U
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]9 R& y/ E* V& X) W
    }, Open  ]],
    ( C1 j, m. }$ I, Q  B7 ?4 R% K2 z+ Y! Y+ M; f
    Cell[CellGroupData[{
    . h5 g0 A; X8 u6 C1 E8 ~2 Y8 o) u4 M1 Q) F/ O% Q
    Cell[BoxData[{
    2 e7 o9 d- s( M( f$ p9 |. [ RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]", 3 V. |% D0 q* Q0 o! _
    RowBox[{"u21", "=",
    ; t! M, _: G* q  RowBox[{
    " c" J! K5 q+ K1 T   RowBox[{"Exp", "[",
    ' {% }+ b7 N4 G  u- V5 {& X    RowBox[{$ F7 l* b+ ~0 a# y2 I# A7 L
         RowBox[{' r: T& e* H! l; F5 i
          RowBox[{"-", / |2 ?% c/ u3 w1 F; h6 n
           RowBox[{
    ! z3 S5 ^) F- J$ l/ I        RowBox[{"(", % a2 ?* w/ |( l" J: a; B9 e& m
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ! }! }6 W/ M( N7 G& ]7 O) y; u        RowBox[{"(",
    * [8 \/ P; c* n' G) B) l! _9 h         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    , J" z. |. f1 M( b2 \( e     "]"}], "/.", "DeltaX"}]}]}], "Input",
    & R% q& K7 ^; G3 ?: | CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {/ \3 h, J0 U) M6 w
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
    5 R' I+ Z5 ^8 X6 P) c  3.5779615991556787`*^9}}]," i, I4 O! l; ?1 [7 ~+ I0 V7 v$ I
    0 J' Z4 x; _  V7 K) b# [: [
    Cell[BoxData[" i' n$ D6 r0 N+ v  A, B
    RowBox[{"{", 6 L' K( B0 H  C" Q3 F4 t
      RowBox[{
    ) d/ y9 x3 g' I; w  "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",", 5 O1 ], F/ f$ f. n) {
       "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}],
    6 M4 h% S# F  V9 n2 ^8 W  "}"}]], "Output",
    ( T% H# ]. w, @2 z: t0 [& @ CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],
    + G8 w/ }$ e) Y7 n) g4 u' C$ X- Q' y/ J9 ?
    Cell[BoxData[
    , y1 M+ I* b7 y( ?" A6 A SuperscriptBox["\[ExponentialE]", 5 q& m- e" r: l5 q( e8 @
      RowBox[{"3.141592653589793`", " ",
    : R$ H: ]9 T& |% c% r" ^) x; h   RowBox[{"(",
    * g  f! b# h3 S    RowBox[{% \- L1 x& r( J# R! m$ }: Y0 R8 V
         RowBox[{"-", ' |, W3 W/ b$ P9 Q9 Z
          SuperscriptBox[
    3 e) ~& b) G4 G5 }3 r/ l5 x       RowBox[{"(", $ e  X# Y3 w7 u5 B( U- V- l
            RowBox[{0 M5 ^, c4 S/ k4 c0 V! S
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 y/ |  \9 C9 x, ~, C
         SuperscriptBox[" _4 Y/ B2 C4 Z, l- `% c; a
          RowBox[{"(", % h5 c+ g0 t9 [( V8 k6 w& u5 A
           RowBox[{$ v7 c1 B+ k! x+ L
            RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", # A: k  H2 v' y! W, \" j
         SuperscriptBox[% F# M' S3 a% [8 _* v
          RowBox[{"(",
    7 g# C: I5 k9 ]" ^* [7 N9 Z       RowBox[{
    4 Z% q; y" L7 T) I        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
    / Q3 @) J3 \/ ~" u! [     SuperscriptBox[
    - [$ `+ e+ w. I$ I+ ^8 E8 Q      RowBox[{"(",
    * T  e# v6 J& I( v$ C  w9 ?3 d       RowBox[{4 S# w" g/ I* K
            RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
    ! c, ~+ ?) Y6 B8 c8 T     SuperscriptBox[) G/ ~0 m3 Z; X, \) e# v- H& h1 t7 W
          RowBox[{"(", ' p0 Q2 t- \7 h% g$ D
           RowBox[{
    2 F  O! p  Q, `* H- r        RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
    - Z( r. o( u  \! @     SuperscriptBox[
    9 ~( E$ T- j; B2 f% v* |      RowBox[{"(",
    # t$ ]7 E) G* ?5 M' A* Z       RowBox[{
    0 g: @7 Z. b7 m# `7 x# Q( q        RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", 6 u! N: C6 n4 W5 \! K
         SuperscriptBox[
    0 ]& f7 N! C* q* `6 G: k% r      RowBox[{"(",
    7 l0 {5 V, O7 S/ I" T       RowBox[{  m- Q& x! l6 E+ G+ h
            RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", 9 ]7 R# X& A$ C  k4 r' r
         SuperscriptBox[% N5 x6 U1 }: M: `5 u- W$ S2 ]
          RowBox[{"(",
    0 y" z- x$ w, M2 [       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", & d/ t1 `3 h: V+ [8 g
         SuperscriptBox[
    8 L" w; @  D2 z2 i6 S      RowBox[{"(", + ~& K, D/ K/ [$ u5 Q1 f  w
           RowBox[{, s1 x$ E6 ~% a' I. @
            RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], 6 z( F: y- ~% a6 `. Y
        ")"}]}]]], "Output",, p; j2 F4 a) D/ W
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]
    $ k& A/ N5 @, |  j1 L: Q}, Open  ]],0 u  t3 _+ Q8 a% k6 n' y$ S4 K2 ]
    6 ^8 j! O/ I) o4 D; O
    Cell[BoxData["\:62df\:5408wi"], "Input",
    5 D1 W7 U& _& j# ~" ~$ U CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],# _+ \6 C4 o1 d% }( m
    ) E  K: S4 X2 R" l# F
    Cell[CellGroupData[{' L; `3 M1 G3 @* V

    5 p- F2 U$ K8 @0 m; ~+ vCell[BoxData[
    * J" t  z7 ?2 g RowBox[{"y1a", "=", ; a5 X0 o" S# R% M# a
      RowBox[{"Table", "[",
    5 E' ~1 H6 h: D8 ~6 E8 L) S   RowBox[{"x", ",", 6 R3 R; Y7 h* u5 |: F& n+ ?5 W  ?
        RowBox[{"{",
    6 M$ P* A5 D( P     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",, X4 A& y' ^3 o
    CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    % t7 {( d* q% s' a  3.5779226649375*^9, 3.5779226810625*^9}}],9 g" A) A2 _& B

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

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

    3 I3 M  ~, ?' t% K8 \Cell[BoxData["y1fit"], "Input",3 @) |8 {1 K3 w: ?
    CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {
    6 f' v* G! X8 J. T0 N# f3 h' H9 z( B6 s  3.577925040484375*^9, 3.5779250440625*^9}}],2 J* |# m' r+ ?; T3 ?
    ; Q6 v+ x4 O0 Y. a
    Cell[BoxData[
    % x3 H" U4 @. P: q RowBox[{"{", 2 Q. o9 y. g6 @, Z+ M# E1 m0 s5 a
      RowBox[{, c) u# I( O, F5 Y5 ?' J
      "0.43193416525930517`", ",", "0.4501634853493982`", ",",
    2 f3 l' i& Y: e3 X$ F   "0.33336034768525247`", ",", "0.4418609896858925`", ",", ) C( F+ X; V( z6 X
       "0.41030378932283024`", ",", "0.516814798191575`", ",",
    * m4 H, U+ i- |* w" G0 K% E   "0.4476631213729994`", ",", "0.3016552978696669`", ",",
    0 v( c- P& _! e) c   "0.378122167437847`", ",", "0.020339844919720733`", ",", ( u- z) g0 a4 x
       "0.018745375782087376`", ",", "0.2919925992695025`", ",", 3 p& K* @1 q2 b# F1 b
       "0.2649067959681263`", ",", "0.16343444284525593`", ",",
    ! j  ^" @3 }5 L" k! k! E' V   "0.4182466778551563`", ",", "0.27347752211364934`", ",",
    ' u" }2 o$ |3 l$ Z, J. b( x: m   "0.38554057386385654`", ",", "0.35253160453718047`", ",",
    , f  c5 p. U, @1 s' ^" q/ h- a" z   "0.2054745841100774`", ",", "0.45504377112716676`", ",",
    0 I! i- W! n& s   "0.1598805094678612`", ",", "0.18662509982279485`", ",",
    5 D6 I7 i2 g3 y% \   "0.10684797493248213`", ",", "0.013349212673286828`", ",", 7 L/ I# R* \* Z2 f1 g) |
       "0.08215836003004297`", ",", "0.2979041599362813`", ",", " i3 Y7 R- j) ^
       "0.05995976512343641`", ",", "0.3884793499104568`", ",",
    / y2 G* i9 q/ d5 D2 L$ f2 s   "0.5361889337034293`"}], "}"}]], "Output",
    3 }3 u" C3 V, a' i CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9,
    ( r; D; V+ X4 H% z, W  3.577925312375*^9, 3.5779575978808002`*^9, 3.5779589654960227`*^9, ! C( L' D' s8 B" J$ O2 b+ W
      3.5779621416934247`*^9, 3.578012355546875*^9}]# \0 T" @3 E! y6 D% D! G$ W- p! D
    }, Open  ]],
    $ ~5 e5 g' R& o$ P0 N1 M8 i6 J! h( x( T0 p6 G7 d0 g* }
    Cell[CellGroupData[{1 r  ~% v) L; a$ S& C

    * \# w/ C& T- l4 T- P, c9 ?: M! qCell[BoxData[+ I% [* |+ M& ]6 p  `+ w
    RowBox[{"y1fit", "=",
    % f7 R1 w# x3 v0 ?8 v0 }  RowBox[{"{",
    ( x' D7 h0 V6 m* Y   RowBox[{6 ]; ~: b9 y. `
       "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    / r# \$ T& X- q6 D    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   Z4 i; A* W. G/ {2 p) `
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    . k1 T6 W' w$ N$ _    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", " e6 d2 B' J# u! }  c7 r) u
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ; K- k1 i# ~2 ^% f+ A) N6 k0 Q2 P
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", ! W7 b& G+ g: A
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", + ]4 z5 S7 f' `
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    + H* W" L  @+ a4 s! i# T0 @$ F    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    6 K# h4 h  |- I, h3 X3 A% i  n    "0.4319341652593058", ",", "0.4319341652593058`", ",", ( I9 o1 c. Q9 E- T- X% r7 ?3 Z6 x
        "0.45016348534939865`", ",", "0.3333603476852527`", ",",
    4 F" Y& g8 I, X    "0.44186098968589294`", ",", "0.41030378932283074`", ",", % Y" f; \- ^0 D% i) l1 P
        "0.5168147981915754`", ",", "0.4476631213729997`", ",", / h) B5 B3 s, u% m. ^
        "0.30165529786966755`", ",", "0.3781221674378473`", ",", 1 b! z' V! k. k# \9 z1 r
        "0.020339844919720775`", ",", "0.018745375782087393`", ",",
    ' q) u5 o* m1 I    "0.2919925992695026`", ",", "0.26490679596812655`", ",", / z9 O5 ~' s- K7 j* [  z
        "0.16343444284525593`", ",", "0.4182466778551567`", ",", $ A/ X3 I9 Y5 ]9 P" S
        "0.27347752211364945`", ",", "0.385540573863857`", ",",
    $ }% H) y4 D8 ]6 A1 j5 b    "0.3525316045371807`", ",", "0.20547458411007796`", ",",
    ) [. i, v0 }2 A5 M    "0.4550437711271672`", ",", "0.1598805094678611`", ",",
    & L! ~% V* w  r+ e    "0.18662509982279502`", ",", "0.10684797493248224`", ",",
    2 D8 l" N/ y- a% x% O    "0.013349212673286806`", ",", "0.08215836003004302`", ",", 5 r4 P5 Y) {& g, A
        "0.2979041599362817`", ",", "0.05995976512343637`", ",",
    ; p1 t4 W4 q: X, x5 r; M. V0 ~1 j    "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]}]], "Input",
    . R# ~; x/ S1 o+ | CellChangeTimes->{{3.577959701349306*^9, 3.5779597161381316`*^9}, {
    , N2 l! t+ j9 C- P# o4 a  3.5779621548286476`*^9, 3.5779621618642597`*^9}}],
    # s0 y* w' P8 p3 L0 d+ W1 ?" ]
    + F3 q4 x3 ]8 v7 S$ }/ s7 i8 C0 tCell[BoxData[
    . m- _! T4 s! b5 o/ l/ v+ `9 ` RowBox[{"{",
    1 T7 m+ L( {) |6 w# D) k  RowBox[{* w; q4 x8 d# o( Y7 }; a5 N
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ) a8 ~" _2 C% [& X
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",  C7 K& [3 V  |2 o/ K! z
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    0 r. D& a7 A: h0 \+ f  `   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    9 a, k8 `3 J% L$ H0 W- N   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", & v. z' {, u) V) x8 c
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",   h( Z& S4 C3 F( A: L: W; R
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    + O2 k0 w4 s8 ~+ n. H% y3 V. g4 T  l) b% f   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 4 {  [5 d" r5 q& j: x( p1 ^- V
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", 3 i6 M6 }+ B2 v3 Z! x/ Y
       "0.4319341652593058`", ",", "0.4319341652593058`", ",",
    & s) x! x2 t& A# D: @- k& O# S! L4 r   "0.45016348534939865`", ",", "0.3333603476852527`", ",",
    ! K: s: I  P6 |1 P' ?   "0.44186098968589294`", ",", "0.41030378932283074`", ",", ( v+ D  U$ }; ~$ G' `% r
       "0.5168147981915754`", ",", "0.4476631213729997`", ",", 8 A/ C1 l5 S7 E* I" b6 L
       "0.30165529786966755`", ",", "0.3781221674378473`", ",",
    3 u) c* o/ F/ x7 y   "0.020339844919720775`", ",", "0.018745375782087393`", ",", 6 J+ O" {0 ^+ u. W
       "0.2919925992695026`", ",", "0.26490679596812655`", ",", & `. b2 d* o; t
       "0.16343444284525593`", ",", "0.4182466778551567`", ",", 9 ~2 b0 F) A# A1 \2 B
       "0.27347752211364945`", ",", "0.385540573863857`", ",", / O# v! ?/ b% v6 A9 l8 o
       "0.3525316045371807`", ",", "0.20547458411007796`", ",",
    * Z. O, W5 F; Z   "0.4550437711271672`", ",", "0.1598805094678611`", ",", ; K0 m( j, j+ L' Y8 H, [5 r  Z7 {
       "0.18662509982279502`", ",", "0.10684797493248224`", ",", 6 \, h3 {" W; V5 X) P
       "0.013349212673286806`", ",", "0.08215836003004302`", ",", & ^' Z  G1 Z& |$ |! b5 j
       "0.2979041599362817`", ",", "0.05995976512343637`", ",",
    7 c0 m, I+ ~4 g4 p% n! A   "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]], "Output",
    . b* j1 `0 h3 ^% Z, P3 o CellChangeTimes->{3.5779597200381384`*^9, 3.5779621650778656`*^9, 6 b  F. [. K  n) C' P
      3.5780123569375*^9}]1 C) I; d+ n! ~( l
    }, Open  ]],. W, y9 w0 @( k4 ^: g. w% w4 @, o
    7 l, B& w. I; }! P! d4 \0 _
    Cell[CellGroupData[{
    ! B' F% {6 m& d
    2 q% T4 j$ q; W9 sCell[BoxData[8 ]$ r0 ], u9 s/ k: \5 P
    RowBox[{"y10", "=",
    9 p- o# L3 l/ X  RowBox[{"Table", "[", : m6 H7 V+ k+ C8 B8 c
       RowBox[{"x", ",",
    # {4 R+ S/ E# O+ M. y) g! D/ ]    RowBox[{"{",
    + `0 H, K5 D0 V4 }  |2 O     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",( I' H  o' l( g4 d$ k3 j
    CellChangeTimes->{3.5779253628125*^9}],
    * Y! V- }2 Z8 s0 F! I& H1 n
    + |! I9 i  j7 o% i; zCell[BoxData[4 [4 N  @2 B' a; A% @
    RowBox[{"{",
    ! H5 d% ^. p2 `" p" h( R4 O2 h  RowBox[{
    0 p+ l9 K, c: c% k! T# n% T- r6 Z  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 q& j2 P% B1 [7 s; ^$ t   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    6 k' j% x& @0 x' E8 o. L4 x    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 2 F7 l" T' C6 V1 u# ~: r/ _5 x
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 6 Y: z% |$ u- w3 d! M- i' S* Q5 B1 D
       ",", "29"}], "}"}]], "Output",
    3 r' q* j- E- v. F8 A! F3 d5 w4 V) _ CellChangeTimes->{3.57792536553125*^9, 3.577957599565603*^9,   k/ [, E0 P: _7 y
      3.577958967383626*^9, 3.5779621678858705`*^9, 3.578012358609375*^9}]# D- x1 {, o# t9 A2 @2 Z$ h( C% m
    }, Open  ]],
    " A3 `4 b/ B) E, j. P& Q. [8 ?6 U; g& u
    Cell[BoxData[* s9 ^% C$ K  Z' d" y: `$ Y
    RowBox[{"For", "[", 9 F" r5 ~2 T6 Q
      RowBox[{* }& p+ U" ~" [* c
       RowBox[{"i", "=", "61"}], ",", 1 c: j& W3 S3 g4 O9 Z
       RowBox[{"i", "\[LessEqual]", "89"}], ",", 5 N# D/ f4 ]- h6 Z! W
       RowBox[{"i", "++"}], ",",
      E$ X, _. s( Z0 s% J+ \* d   RowBox[{- B. I, e" a4 a( R4 p, j
        RowBox[{"y10", "[",
    + a; s2 V5 S2 q  }. _9 g8 f     RowBox[{"[",
    * Z) t4 m. e: p/ `      RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", 3 F% U/ J9 J) X8 c1 y
        RowBox[{"Data", "[",
    , [. \( m6 g' z9 \9 d; Q  }     RowBox[{"[", % l3 w2 |+ z! `5 ]  _8 v6 ]+ n! F
          RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",8 c0 |- R$ r  V% c" D
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {3 l9 c1 b1 S' S) {% N( s& M
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    , L) l7 G* r) o8 q/ ^2 U& G9 e1 S   3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9},
    0 e$ S- ~, X6 P: d   3.577958922549148*^9}],4 F# o7 l' [, v3 `0 W$ _; \9 @# z

    : @  l# @% S9 ~# B% [: CCell[CellGroupData[{
    ( V& \8 |9 f3 R# W: _& v# C
    ; e6 ^( t7 u+ \+ W1 G* LCell[BoxData["y10"], "Input",- [/ Y; I+ d) E! ?' x( y+ S
    CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
    % p# p  }* K2 K   3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}],
    6 M9 H9 P. _7 ^3 S5 p* R  V% f1 `2 Y8 [8 R- B: g: l7 a, k% \( U
    Cell[BoxData[" S& B2 L+ v' a/ y
    RowBox[{"{",
    : b7 E4 X/ Y2 E. x  RowBox[{* V  |7 A  [( h8 v& {5 [/ p
      "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",",
    ' F" c- K7 m* ]   "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",", : t0 U: c# U6 e. L, j6 ]
       "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
    / O& |9 R( u$ ~0 K   "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",", ! I- b! A  e; f  H* W
       "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",", 9 o  m: }& i2 P. {; Y
       "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
    . Z' l! L, s! L   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",", - l) K6 o/ t4 f8 _: ^
       "0.694935`"}], "}"}]], "Output",; m% A; k6 \! Q- s" Y
    CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, : @- U2 [6 |- D  ?: ^
      3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9,
    / @  R) _* ]$ ^; k  3.5779621736734805`*^9, 3.57801236071875*^9}]
    1 Z/ H1 v* e; F}, Open  ]],- x( F1 E/ |& P( P9 u' F

    ( t  }0 b* p  _Cell[CellGroupData[{
    ; O$ U8 H, L9 ?; ~4 ~0 K" I  Y
    7 q. b0 Q0 P2 x0 y$ D6 X8 MCell[BoxData[
    - e" ^1 o6 }1 V3 J7 a' L RowBox[{"y10", "=",
    ! p; i; c6 ?6 c6 {3 T4 f! u  RowBox[{"{", 4 H" @) q. u& y$ d) w* c
       RowBox[{; r' {" S! L7 e! c4 a. J  g
       "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    / a) X6 W/ h: T5 N; R' Q! ]1 U( d    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    % i2 u: g) n4 A! u/ j2 y; D    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    $ w# n) y0 C' ~# ?9 P    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
    / V( q6 t; S& Y    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ; [/ U' @7 l# c
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",   D- j. ]3 ?+ k4 d
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", 9 P- C  \+ i4 x
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    / s/ x. M6 R, T2 G: b$ @- l- n    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    3 G& b/ W. r$ h+ a* f4 }7 {    "0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",",
    $ ~) H9 ^! R6 l1 y6 z  U    "0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",",
    ( Y7 X/ k$ t/ i4 [2 Z6 X4 L    "0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",",
    1 D. f1 [1 u+ V9 F( Z: Z/ N    "0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",",
    . C/ t- R1 j* c( M) B) T/ B1 C    "0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",", # F* _; ^) D: f! @0 q
        "0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", 2 z; ~( J3 F; Q) k0 J  N0 ~' _
        "0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", 1 t0 w3 L8 r! o3 y$ F
        "0.390754`", ",", "0.694935`"}], "}"}]}]], "Input",
    : |% [6 Q# r4 i6 \5 l( l* y CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],( k7 Z, I; J/ b! W8 [' P

    $ J' G2 O7 ?! S2 e/ J0 n7 NCell[BoxData[6 k( Z  B% K! N7 K: H# |
    RowBox[{"{", 2 a$ L8 n5 l  U$ O, c
      RowBox[{
    : k1 T$ S) i: K  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 1 E. H# Q1 W3 c1 O  v4 @1 }0 s
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    + _. p; k& l: c6 `( Y    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", ' E5 y; C7 H- e
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    , i( a* ]) R# d& i/ R3 w   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    4 O" j- g* a3 _: A! c+ t9 T   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", ' j7 g7 T, l  Y
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",   i  ]7 t9 M5 r) N) R3 J/ y! \1 o
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 7 R% V4 S" o  |5 E
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`",
    $ c0 e3 A+ Y5 U# s" f   ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`",
    + E4 x, \; n+ _' p+ d   ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`",
    , {* ^0 l6 E$ A- C% @# c) _5 S3 j- m! f   ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",3 u" |3 r( O4 K) q8 E
        "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",", : L; d% S0 `& o+ C6 @5 ~9 p
       "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",", 8 w2 D+ i  o" A( }$ j9 O
       "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",", ( k; L' ~  O; ]$ Z! }% [3 s9 |$ x& ^
       "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",", & O9 M7 `- _. \) q+ P2 d
       "0.694935`"}], "}"}]], "Output",
    5 w3 g; n0 t. P+ s: q CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9,
    / d7 A. b) j6 ^" u- x6 l0 l  3.578012361734375*^9}]: f5 L3 n1 ?; l. ^1 }
    }, Open  ]],5 X2 y6 ], C" m7 ?0 i4 |3 h

    / `, b$ B. p* j5 O. ~) g) hCell[CellGroupData[{, L$ F% u* H+ b! P& |6 C) b* x
    7 X/ e; n% ]( b' E, Q5 P
    Cell[BoxData[0 @/ B0 Y) g( P$ M7 s" X
    RowBox[{"p1a", "=",
    " H2 A; h6 l5 _& v& ~$ e! k- K  RowBox[{"ListPlot", "[",
    ' k! R3 b! h5 `% h8 L# e   RowBox[{"y1fit", ",", - Y3 V4 y3 A7 n; K" a/ \% U$ a
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    4 v# p: E, g, {4 y4 D  Y4 t  D: T    RowBox[{"PlotStyle", "\[Rule]", 7 f9 w8 d) ~8 Q1 ]3 ]! u  g5 C% \& @1 F
         RowBox[{"{",
    1 {# w; [. H. i1 @4 W# O      RowBox[{"RGBColor", "[", ! z% X. d& s$ `
           RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",", 5 v/ t+ M6 u* @5 y
        RowBox[{"PlotRange", "\[Rule]", " G- R: `" a; f" B
         RowBox[{"{", ) {+ x6 p7 E- _3 ]- @; Y& \
          RowBox[{
    . T7 j- x. p4 k% x$ Q7 x# g3 E       RowBox[{"{", 3 r8 g) M" y8 l/ Y6 W* [7 l
            RowBox[{"61", ",", "89"}], "}"}], ",", 0 W/ k3 _# M# k: S' D
           RowBox[{"{",   k' T7 F" ?$ Q0 y9 A: I; l) d
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    0 \9 z* L! ~  A; A' ]5 n* v  @* S    RowBox[{"AxesOrigin", "\[Rule]", 7 d( E" H, V1 s# W
         RowBox[{"{",
    - J" e8 k7 ?, m$ B! [4 i- Q      RowBox[{"61", ",", "0"}], "}"}]}], ",",
    ( q/ N5 ~# `1 c' G* c& B    RowBox[{"Frame", "\[Rule]", "True"}], ",",
    & q6 }& Q/ I, v& L4 p    RowBox[{"FrameLabel", "\[Rule]", . Z/ @. s) r  T, a. Y' T
         RowBox[{"{",
    5 l1 \8 }* w7 W9 M* |: N      RowBox[{. b' N/ c4 Z; K6 g2 T
          "\"\<\:7089\:6b21\>\"", ",",
    - K" U- F( ]5 j& C( F* J       "\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
    / J/ u0 c$ [3 t+ x* {5 s2 O\:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",
    : H! P! M/ D' L4 C3 U, o CellChangeTimes->{
    % L2 v9 G4 d' C; y- f  3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {% f, U) F  G8 G  X, f
       3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9, ! x$ u1 r! D, K5 F( z9 {# m
       3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {1 \; c6 x  n: @$ }' m' W
       3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],4 Q; ~" a5 k. t; I! b8 L& _- Y, ?

    1 D$ U* P" y( g( }: MCell[BoxData[
    8 f# c2 U. L4 [ GraphicsBox[{{}, {},
    & [( J% U( p- X. l   {RGBColor[0, 0, 0], LineBox[CompressedData["
    * P: T6 h# g. o  {2 `* J1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn1 R4 K* u! q  p4 y% Y
    8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq! t7 a! h2 W. O% f; ]
    D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
    ' h# }* ?1 a* O  R1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
    # i6 V+ ?9 m* r/ r9 aC1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN
    . y# r& |/ U  }# Ua2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff2 c7 U8 A( t( r
    yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
    8 [9 \" ?( C+ {3 u; B$ qwrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59- H. Q, l: u. J. O
    Y6nGQ3sAieueIw==
    2 V0 i  ?' e4 a  W     "]]}},
    % D& F* D/ T& b" I% s+ T' z  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    3 e7 J* l" ?' M  Axes->True,+ U5 f( C. Z; C: Z+ `
      AxesOrigin->{61, 0},
    ) s% _- u, ?5 A0 \3 n: g  Frame->True,
    & |# Q/ P9 D# P5 M. k$ E( ?; B  FrameLabel->{2 m" D1 n1 F+ ]6 r2 s
        FormBox["\"\:7089\:6b21\"", TraditionalForm],
    $ V7 ?# b7 \: z+ O, h/ r5 w- g0 T0 M    FormBox[
    , S3 q" n. d" q3 n    "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\5 z+ u2 p1 J7 e7 |: q
    \:ff09\"", TraditionalForm]},; @: f/ i5 @1 `+ S* \$ Z: w
      PlotRange->{{61, 89}, {0, 1}},, V! y' k4 l. `) T3 ^
      PlotRangeClipping->True,6 n3 H8 Q/ J4 Y& f% ?  h
      PlotRangePadding->{Automatic, Automatic}]], "Output",
    9 F1 P% B, _' t: @0 B+ u6 i CellChangeTimes->{
    0 x5 ?. V4 j+ Q& y5 i  3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9,
    ' n, D% p; T( d: b& Q- j/ ?( Z) `8 m   3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9,
    ' H5 M8 \- s5 A3 r* C2 {9 u2 J   3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9},
    % G4 `' G, H- |! Y4 A0 n+ }+ `' X   3.577962187510705*^9, 3.578012396921875*^9}]  S& f- H. n2 R4 ~8 Y; ]
    }, Open  ]],8 s1 c( s( H1 R

    5 z* `# O) `, k0 e& B) r8 `) I# jCell[CellGroupData[{4 T3 H# h. N+ K* {1 V3 j$ P
    " g/ ~. S* u8 K  s8 T6 P
    Cell[BoxData[
    ; F0 E, s2 ^6 k. ^7 d! }$ [ RowBox[{"p1b", "=", 2 z# m+ }1 J4 ?6 k8 D* p; w
      RowBox[{"ListPlot", "[", ' J/ U. R" O( f: s
       RowBox[{"y10", ",",
    5 A7 w: X2 M9 o* e$ f3 z' K    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    # o: D* Z5 w8 ^# \    RowBox[{"PlotStyle", "\[Rule]", 0 @; k+ |: C" y# ^5 H
         RowBox[{"{", ( ?3 d# P8 z3 g$ z* O: o+ V$ O( }) d
          RowBox[{
    6 }+ a' @: Y# G9 b3 b+ t       RowBox[{"RGBColor", "[", . Y  W7 c$ P3 }7 J# Q# ~
            RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
    * K7 R* G( K1 r& A, b. y2 P6 }% D  B    ",",
    / m- u! @8 K2 D( G    RowBox[{"PlotRange", "\[Rule]",
    ( {" p- g$ d; h! e2 E1 R. \     RowBox[{"{", ) k% b, f" o3 p' A- z
          RowBox[{
    ' C+ s9 Z( c2 j. \3 p3 `       RowBox[{"{", 8 `+ ]" \$ d" X# g1 i. ^
            RowBox[{"61", ",", "89"}], "}"}], ",", ( q) K" _$ s- Q1 @# E4 _( K
           RowBox[{"{", 6 k* |6 g2 G8 Q  C% ~  Q1 j$ m
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    6 g8 H0 A- o  C5 Z    RowBox[{"AxesOrigin", "\[Rule]",
    / M/ h+ B' A+ \" g/ |6 P     RowBox[{"{",
    9 n8 F, N* u' T3 K3 Z      RowBox[{"61", ",", "0"}], "}"}]}], ",", 2 p. Y  i4 \0 E4 J# K
        RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
    0 S% @8 `( X' \  e7 y CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9, # a2 @- L1 ^$ @: ~
      3.5779597764166365`*^9, 3.578012409265625*^9}],
    ) U, A8 W. l* G6 `) B' k
    3 @$ v0 F  _! z, U0 a' l- CCell[BoxData[! ?; g4 f- M, _+ K: {
    GraphicsBox[{{}, {}, ! R. [* V8 e3 s, H% e
       {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["# X8 y: K+ `+ t8 y  `/ h2 V# t
    1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
    5 {* d( A- I! i( l/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
    % G& J. I5 b/ C0 m/ j. Z# lGwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
    - a! C1 B* M$ l9 RGFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
    ! B% L/ [: v8 [, r; y7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
    . d* T$ ?/ f8 aQu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri/ o& ~/ b8 J9 D! ~" ^
    H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV' D6 |. x% D2 A$ J3 w
    rQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T* X% U7 B, Y4 t) ~1 u$ M
    vA==
    0 G8 S' _  E6 V+ ^1 t     "]]}},$ D2 f9 K3 k% t5 x7 X( _4 O
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],6 J- t3 x( I0 E4 f0 P. ]2 k; t. O
      Axes->True,
    + F3 K2 n& S4 M  AxesOrigin->{61, 0},
    ( h% ?8 \$ e7 h9 }  Frame->True,
    2 W8 Q+ Y- j+ Z4 |. B9 d9 F  PlotRange->{{61, 89}, {0, 1}},
    + S) L! y) A3 H3 f* S  PlotRangeClipping->True,, ]% k* v! M8 v4 p) Y2 ]9 s
      PlotRangePadding->{Automatic, Automatic}]], "Output",
    " i$ T% Q; L1 ]" K( W CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
    4 W: Q; Y: e# P  3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9, . C1 r8 j5 \/ q' A. d
      3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]
      v) `" ?7 Z5 f5 A0 S( p}, Open  ]],
    " @# Q  u- q9 B  y* y  Q; \) c9 v6 j$ q/ ]3 k
    Cell[CellGroupData[{: T) r8 j% E# u$ u4 G

    & q3 W+ f/ y  R* e/ C4 RCell[BoxData[
    . v9 g4 V9 @3 ~; v# K- T RowBox[{"Show", "[",
    . Q) d' z4 c. G, s# D) p  i- y  RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],
    * [2 w! G# b$ o$ b8 |: B" o) o* [) m' y5 u5 }
    Cell[BoxData[+ Q/ A' J5 g, c' n$ X, n
    GraphicsBox[{{{}, {}, # J, E& K( G1 o; p& l
        {RGBColor[0, 0, 0], LineBox[CompressedData["
    8 }2 r! @' q) R1 A7 d1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
      t! Y" S! B4 ^  h8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq( h7 O+ w) w( V& Q, ]  ]; q
    D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
    1 K4 |3 l) d1 f3 Z1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
    & ]5 j9 w4 Y; oC1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN
    ! k+ o$ W; j% _0 m+ J8 Q7 w& }: Ka2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
    8 H+ U" p+ z. P) Y% b) ryqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb2 i1 L8 p! w' c
    wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX590 L+ B( T8 B: x: U
    Y6nGQ3sAieueIw==
    + _* q9 m% F% r* w# F      "]]}}, {{}, {},
    " C" c7 D9 K2 C" c0 Q  F! H& |    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["% G% `) }/ k! R
    1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
    3 R/ O  |( Q& a0 P  {; H1 P% u4 g/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
    # O# h5 h6 ^* l. n6 @/ eGwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy. G5 I+ k$ E# P: @7 p9 H3 [
    GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy3 G8 B3 p3 n2 O
    7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
    ; y* x& i7 G$ @4 O: E, ~Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri' T; p. v  u4 N6 P. A( v
    H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
    1 I$ p. I( O1 Y4 m5 L# J# V* urQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T- r" L( d! k3 W& e9 l
    vA==
    ) M* y/ [- R% Z' T4 A( Q      "]]}}},- Y( d" a: h) R% J7 |/ l
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],0 V* Z9 R9 N5 [
      Axes->True,
    ) g6 K, A: n  E) D  AxesOrigin->{61, 0},8 l( y3 l3 {$ J& a. X
      Frame->True,8 }; y9 x0 z$ o
      FrameLabel->{
    5 G  S5 q5 L2 q2 H) R2 X    FormBox["\"\:7089\:6b21\"", TraditionalForm],
    8 h: t0 U/ w7 _    FormBox[
    % d5 J1 ?. P/ e* X    "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\  H0 q' u6 e6 Y  `# n
    \:ff09\"", TraditionalForm]},
    8 ~2 Y9 R' _2 {  PlotRange->{{61, 89}, {0, 1}},
    + b7 |* v% l! k" n9 W0 u4 z* p# ^  PlotRangeClipping->True,
    ( V% C" y2 h, r5 C4 B  PlotRangePadding->{Automatic, Automatic}]], "Output",7 G( n& n! e3 F# I6 d0 F" @/ U
    CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]
    ; G6 ~' B. A' o& D}, Open  ]],
    ; ]' X- i5 S/ W% L; j9 Z; [1 Y* w( H- l# m# i: @
    Cell[BoxData["\:62df\:5408wi1"], "Input",
    : Z: P6 ^  ?. j, | CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}, 7 }. o; p$ c" d1 V7 _( Y5 ^0 `
       3.577959662349238*^9}],
    . j+ _7 r: i8 ^/ [2 ^3 G* F$ {0 N; K, [5 I. z8 p, {+ d
    Cell[CellGroupData[{
    ' |: Z# ]/ D7 a  u% _8 y1 p  [2 a* y
    Cell[BoxData[  _. p9 c! G) ^$ q+ p8 ]  r
    RowBox[{"y1b", "=",
    7 b6 P* t: t: |, E9 q6 U, s. u7 }2 p  RowBox[{"Table", "[",
    5 k% ^' i' s5 }- i, }   RowBox[{"x", ",",
    " t  i% i) T& \! I    RowBox[{"{",
    7 `& x+ q3 e" N* Q4 B     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",7 k* x5 S9 P, \2 h. ~
    CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
      X. }) F6 P) q4 P3 o/ d   3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}],3 ?. h7 W! [' v" b; y

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

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

    * R2 z/ \1 s! ECell[BoxData[
    ( ^: [3 s# P; O! N6 F RowBox[{"{",
    3 T0 g+ y3 h) g7 y  RowBox[{
    ( H7 y% `  L/ |  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ! ~3 E$ n. G2 U! l( [1 }8 r
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    5 b  j8 D: `6 G# j, @) W    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 4 r; ?  Z: `7 p: h* |
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    7 W9 x) v. j/ I# c" X4 v& O   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", 6 J& z- I7 w* \) n) `5 v3 Y7 V
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    & b1 o. j. M2 [7 x! ?  G+ N5 x   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    * j, {1 P" l( Q: i4 e   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 7 Z+ _- f  [# u. T7 i. L
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    2 z& z' I* g* |6 o& Z9 ^* a/ n6 }, O   "0.48531711328591953`", ",", "0.48531711328591953`", ",",
    8 Y# g3 {1 N/ ]% v" E# j   "0.45086352166650845`", ",", "0.36421192417525217`", ",", , u1 I# w4 m' p- O
       "0.4285207742559556`", ",", "0.4712694272667811`", ",",
    $ b2 F) Q- [" ?; E   "0.5257533056184786`", ",", "0.4862065814071623`", ",",
    / J* @9 I, o# {1 @  Q5 ]# E   "0.41106838915592014`", ",", "0.5486894206610683`", ",",
    + c3 Z2 x9 l! S% s% l   "0.007731168540073532`", ",", "0.013872406140339166`", ",",
    " Z7 l" H! c' V6 t. D& A+ H4 j; \   "0.3956995051659565`", ",", "0.3663118256142717`", ",", & r5 N' l  _" K" v3 b2 x5 u
       "0.29094217358055185`", ",", "0.5453093690736568`", ",", 3 ?" [  Y# {! R+ @
       "0.4413889888077799`", ",", "0.42944922031163585`", ",",
    $ g+ Q( E$ H! K6 D. \   "0.4309289055674891`", ",", "0.5942402821739983`", ",",
    " O% r- R2 w4 }% V) C/ v& ~   "0.33004609078545805`", ",", "0.18938658036630632`", ",", - S% K7 C: O$ E+ V. ~" ~
       "0.4263720292858688`", ",", "0.23377136184738778`", ",", ! U6 _- \% ~$ Y) o. y
       "0.022328581933099827`", ",", "0.24436420008426807`", ",",
    8 e6 u' q. L2 }7 p1 X   "0.5562383565309981`", ",", "0.13114103402954314`", ",",
    8 O' j& F9 y4 O( N   "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]], "Output",3 }" T( s+ B$ ]
    CellChangeTimes->{3.5779593961191735`*^9, 3.5779594268512273`*^9, % D: ^! }' Q! B% D% M" `
      3.577962342060174*^9, 3.57801245340625*^9}]
    * X; l% e$ R! [# s8 t) u  W+ e}, Open  ]],
    ; V* D" l8 g1 e$ p7 R: L. Y+ x2 h
      e- ]  a0 j0 L- O! ?- {# oCell[CellGroupData[{5 ^& B' \5 z7 L+ Y  k

    / u# g6 t! [" b( Z) P& ZCell[BoxData[! T3 E, G* K3 r/ R2 X
    RowBox[{"y20", "=", % d% E! e% l' p  {
      RowBox[{"Table", "[", ( \( t* E, h  f3 K% l  q+ y
       RowBox[{"x", ",",
    8 R8 L! e- g+ m, |/ A+ ~  ?( Y    RowBox[{"{", ! \8 j2 C, Q5 e# Y" A# C
         RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",/ Y' p1 R) C; b, c7 C: V
    CellChangeTimes->{3.5779253628125*^9, 3.577958351198152*^9}],: y9 H' W0 {/ J2 x8 W

    2 a  b  Z' ^9 J  P  UCell[BoxData[
    ! `) o# b" t  Y9 c( G RowBox[{"{", 8 W3 z# _$ a8 t5 O& e; T
      RowBox[{+ }; y- I0 a5 D5 q2 Q
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", % z& S5 H0 N6 {: i% v) \) r) h2 a
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",' [3 |, f! C: @& _; ^; k' a
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    % C, K$ q+ f+ U$ ]2 L0 X3 i4 N) V   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", - n4 |0 M# `% }3 D! ]* C1 C$ _
       ",", "29"}], "}"}]], "Output",
    * H, K, O: g. _/ C3 G* S# Z CellChangeTimes->{3.57792536553125*^9, 3.5779583535225563`*^9,
    6 e* u1 Y0 O9 \) Z; D  3.577958515653639*^9, 3.577959053714177*^9, 3.5779623443065777`*^9, + Q! W7 I  m2 d) j2 a
      3.578012454875*^9}]! }4 f! G# F" U: @, U
    }, Open  ]],4 i1 |, A& v0 v+ i/ \
    - u) l, h9 L! B3 v* M$ X9 d
    Cell[BoxData[* w" u+ `+ f/ y" j& G: \% _
    RowBox[{"For", "[",
    - l6 F& m5 e& c7 l  RowBox[{
    % {* |" B* w/ h) ?$ X8 t   RowBox[{"i", "=", "61"}], ",",
    / b+ T$ |6 H! x   RowBox[{"i", "\[LessEqual]", "89"}], ",", : V6 H* E9 h! p9 w5 f. y& v
       RowBox[{"i", "++"}], ",", 1 R! |- u8 g2 Z) [7 X+ J
       RowBox[{
    6 m) i* V, {. w$ x5 \% p9 h7 L( i    RowBox[{"y20", "[", ( g' I! M: E  n. d; H, e
         RowBox[{"[",
    - u8 k) f9 ]- |      RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
    9 }( v0 D9 p2 N" [: r2 x    RowBox[{"Data", "[", * i" H2 w  R- p3 @9 A! U
         RowBox[{"[",
      N- c/ k# o" }6 ?& J' B      RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",& t+ o5 U8 v, \  G& Y8 s, a
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    9 l9 Y: Q8 R" X6 X# G  3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, ; A* {& n4 Q0 X2 i" e0 v7 h* V( S
      3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, {
    ( H1 b! i9 B; \4 [$ z$ |  3.5779583574225626`*^9, 3.5779583606673684`*^9}, {3.577959056849782*^9,
    , w) d" q: F4 v0 ~. @* J  3.577959058690585*^9}}],* x  o# L5 d+ }6 g' r3 r, D
    3 [/ ]* g4 c) ?! f/ {2 Y
    Cell[CellGroupData[{
    3 n( m& N9 j" b# x2 F; r1 s6 y2 {7 n% I9 _
    Cell[BoxData["y20"], "Input",
    & a9 T* o+ e* G CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {: w" P: k+ _6 ^# }6 M4 r, k" O; O
       3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9,
    " m$ X' o. o1 `   3.5779583657841773`*^9}],
    ! y& H9 ]& r/ j8 A. _" E# @/ X7 c
    4 `0 U( Y. R# t1 p+ |5 C  D( PCell[BoxData[* F! I! S' k" @6 H! j  i7 l
    RowBox[{"{",
    ' d+ B. v8 L9 R" o) [  RowBox[{
    / f7 b7 o* R$ U0 {2 Q" [  "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", ",",
    2 l0 ^7 J, V' W* k$ S4 @8 n/ {) s5 h   "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",
    : Q' y: E9 X, f9 T# Q5 G! W: c   "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",", # k2 I- h& G, Y
       "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",", + ~+ x* M  i$ n/ j# c: ^
       "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
    # E7 n; D0 j, p   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",", - o/ m( f, \8 j7 P
       "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",   `3 x. C' K5 H- s! d/ f% r
       "0.323944`"}], "}"}]], "Output",
    0 I* Y7 \6 m4 S9 T; N. T4 T CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, + n- Y0 i# G: x5 h) _& R  V
      3.577925393046875*^9, 3.5779583678277807`*^9, 3.577958517946843*^9,
    : M9 D2 i4 h0 w  3.5779590634017935`*^9, 3.577962347629384*^9, 3.578012456484375*^9}], \6 V* V( J' k. |6 o+ O
    }, Open  ]],0 l6 P$ x+ l# N+ O/ p

    9 U0 ^8 s4 d: b9 b1 U/ FCell[CellGroupData[{4 j5 y* O( Z( P9 b; y4 E

    % a  A* f$ X( a) iCell[BoxData[& c6 Z1 T* V! l0 f$ P- y# h, B
    RowBox[{"y20", "=", 3 T: T8 p5 i( F, \$ \: N' ?* o
      RowBox[{"{", $ }3 N& w( m- V$ p1 X
       RowBox[{* u; i* ]$ _% G2 O2 v% u2 U- q
       "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 4 m# C9 U8 \' e
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : P9 y% i- T" n( G$ V
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", . W' t9 y8 N! |( r: r2 Q
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", 0 R5 ]% K; ?, T; Z' I8 `
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ; d; g$ ]/ _" k  b0 W: W
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", & f; Y% I4 h2 h; @4 A& K
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", 3 Y9 O- u0 Z6 M8 C  [/ h. {' _6 M
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", ( \2 Y# c$ \' O1 I5 j( j0 P6 ~2 J8 c
        "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", . S$ T* g4 A5 M( ?& J( T
        "0.507042", ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", " B8 N. M* E& w3 t
        "0.338028`", ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", 6 j6 N4 o# E) }$ `
        "0.408451`", ",", "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", 8 x- @4 K( d, J* I% Y6 p1 `
        "0.746479`", ",", "0.887324`", ",", "0.84507`", ",", "0.704225`", ",",
    1 j5 i8 P' f7 t* o4 J    "0.760563`", ",", "0.43662`", ",", "0.633803`", ",", "0.422535`", ",",
    5 @0 d8 S. i( Z0 q3 K, z2 f    "0.295775`", ",", "0.309859`", ",", "0.408451`", ",", "0.197183`", ",",
    + z! W% E# E- @$ D: q7 k    "0.732394`", ",", "0.802817`", ",", "0.746479`", ",", "0.380282`", ",",
    9 b+ L0 _/ |6 w6 K' s& F    "0.56338`", ",", "0.323944`"}], "}"}]}]], "Input",
    4 M0 D8 M0 W- d- {5 u9 q CellChangeTimes->{{3.577959534959416*^9, 3.5779595573142548`*^9}}],
    ( O" Y  M3 Y  _  i
    , {* }1 R- s8 M  ?Cell[BoxData[5 z# U0 R2 e) s4 t- H
    RowBox[{"{",
    ( B& j6 C7 c7 U9 {: S  RowBox[{
    4 o4 ]# l- u( x0 {) [  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 4 \8 o! l) `# X+ {/ v& b) O( Z
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",# G. @* v2 g  n, @  ~
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    - b  s$ I* `3 k' }) @   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ) t# Y1 G. o$ I- B1 q
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    8 B  }. g" U. `9 u. L, M# h   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    4 M1 Q% l6 L1 v  Q+ V. Q   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    5 m, a6 d8 s2 Y0 G, f   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", - K8 v7 S2 u: ^7 v
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.507042`",
      U- b7 M1 D) t8 R. P* k7 p2 ?   ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`",   A! g3 w% W! p( y0 i, ]
       ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",
    ; ?% A% I! r! I3 z/ I    "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",", % E% H: y/ V6 W4 f- r3 |; G* M/ l8 `8 [" G
       "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",
    % V5 H' g2 S" M, i* F3 b7 `   "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
    8 u# T  A1 U4 G0 O   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",", 8 O) X# c* Q+ K& [) c' @- g8 _
       "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
    5 A6 {. {6 v3 w+ n9 k   "0.323944`"}], "}"}]], "Output",
    ) C% Q- T' D/ N) Q/ d, e0 M% h CellChangeTimes->{3.5779595594514585`*^9, 3.577962351778991*^9,
      ~. Z' t5 F/ t" M  3.578012457234375*^9}]* _1 w' f' j9 m) D: p) x( u1 c3 x: T
    }, Open  ]],  w" q+ t! }; q4 C2 e; c
    : p$ X. m. p' ~
    Cell[CellGroupData[{0 o8 |3 ?. E$ o# ?- d: {5 M. r

    . ~! T+ R( C6 o( j  p8 C# gCell[BoxData[
    8 Q+ j% @( s; ?% ]4 @ RowBox[{"p2a", "=", / T) C8 S3 r0 }' r1 L) j& _
      RowBox[{"ListPlot", "[",
      D3 _/ \1 O- C/ p8 J& h6 }+ \   RowBox[{"y2fit", ",", * {% \0 p# e" R# p
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    " Q8 D; C! i% j7 {$ k    RowBox[{"PlotStyle", "\[Rule]", 4 U, B; N  V* |4 E! F
         RowBox[{"{", 7 d( `+ H( m/ R3 A. c$ G9 b; A: ~# W
          RowBox[{"RGBColor", "[", 4 g* {1 c( k+ k, `/ R  r% A
           RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",", 4 |8 _- c4 @1 Q9 q# }* g  R2 [7 E
        RowBox[{"PlotRange", "\[Rule]",
    " u3 H* j1 Z( F. Y' f     RowBox[{"{",
    ( N; o0 u: Y8 ~' A      RowBox[{, X& X. o! h7 |. s3 P
           RowBox[{"{", " Z( E) @% G9 k. ?
            RowBox[{"61", ",", "89"}], "}"}], ",",
    & d, x8 e0 ^+ {9 Y4 E5 a       RowBox[{"{",
    : U! {; @+ N; u        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", ! B1 O5 o# r0 L. [: R$ d
        RowBox[{"AxesOrigin", "\[Rule]", . W2 F6 y% X* V* g0 S
         RowBox[{"{",
    * |& Z1 b; T8 I. S- R3 W      RowBox[{"61", ",", "0"}], "}"}]}], ",", 1 {" @$ {7 J& d( X; k& y* t
        RowBox[{"Frame", "\[Rule]", "True"}], ",", * a- q, t- l5 j2 u. W/ k, i
        RowBox[{"FrameLabel", "\[Rule]",
    5 M' t% t4 R  ^$ O3 g     RowBox[{"{",   V7 I8 y( M3 ^8 O
          RowBox[{; ^& ]# R& C8 b( c4 s
          "\"\<\:7089\:6b21\>\"", ",",
    4 j5 N* ~. G" i       "\"\<\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\
    ( m8 r2 Q9 X0 V& l\>\""}], "}"}]}]}], "]"}]}]], "Input",
    " F& F1 O8 s7 Y* x) r  w CellChangeTimes->{
    * `$ k, p' Z- }& x" T$ ~  3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {4 U' u# A/ ^. B4 n% A
       3.5779583712597866`*^9, 3.5779583781393986`*^9}, {3.577958536604475*^9, 7 T% ?. k' Y$ d( V9 B# V$ o8 r
       3.5779585491624975`*^9}, {3.5779592802577715`*^9, % h7 |2 B  ~6 p. T: Z! Q* a  V/ A
       3.5779593014270086`*^9}, {3.5779594039971876`*^9, % T' I  H4 @$ [) @8 C- W$ N3 u
       3.5779594059783907`*^9}, {3.57795949706695*^9, 3.5779595174717855`*^9}, {7 j) Y4 j3 o" C
       3.5779604302529774`*^9, 3.577960442311798*^9}, 3.57801246978125*^9, + j6 U- p7 i& I5 l  U2 q9 |0 ]9 m
       3.578012920859375*^9}],
    . u2 w$ p3 H* z" x9 j
    9 H6 Z% m) A; I  i  v3 }; e. M" `: XCell[BoxData[% [& ^( V9 z6 ?4 |
    GraphicsBox[{{}, {},
    6 r+ I( V# l1 X0 y   {RGBColor[0, 0, 0], LineBox[CompressedData["$ d' T5 _# G$ c: @
    1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
    9 p; K# b* P3 W/ q- ?! Z/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
    : ^0 R4 K; ^7 l, |: h9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P
    ) q9 H- I( U. M7 N  @/ m, g, R0 IofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC5 g* P: ]9 T) D' {
    qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
    1 A6 N) ^- v: f6 |* @1 M+ f9 R' Q1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
    ( j8 K; }# |. J9 o  z' U3 _0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1$ d+ X; G  h+ E7 H  E6 j+ d7 L( j% W
    sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH2 p( B' ^* n2 {
    99yxuG0PAHw7nyU=
    % Y9 z; _3 r0 @8 A9 x     "]]}},' [! C8 @& p9 s8 |
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    " t1 y& k) h7 `( R2 \2 o' R  Axes->True,: q* v+ S1 a0 {8 r4 h* F
      AxesOrigin->{61, 0},- ?+ T$ |! [5 y! f, |( U9 G
      Frame->True,3 `0 C! K0 E2 W1 z2 _
      FrameLabel->{$ p& l* F! P) D( x( }4 S
        FormBox["\"\:7089\:6b21\"", TraditionalForm], + t& h- u" q; z& ~. _! Y  S
        FormBox[
    2 m: Z, Y1 S7 W) E' E    "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", * S. P# y% z# |0 m2 V
         TraditionalForm]},
    1 T1 u  b+ k% v7 R6 w  PlotRange->{{61, 89}, {0, 1}},3 Q* \' w( M1 `; V' F6 |
      PlotRangeClipping->True,
    ) q7 _( Y5 {1 x; ~1 V1 b  PlotRangePadding->{Automatic, Automatic}]], "Output",
    & M0 m! h! [$ E. M* S8 b CellChangeTimes->{: M- m3 ?" e' R/ t+ N+ R
      3.577925144625*^9, 3.577925396578125*^9, 3.5779583797150016`*^9,
    ; P( }: L0 h# B   3.577958519990446*^9, 3.5779585510813007`*^9, 3.5779590670678*^9, * l, E8 o: q/ r+ [: S% Q; y  ?- j
       3.5779593035642123`*^9, {3.5779594075383935`*^9, 3.577959430158433*^9},
    ; Z& X! S$ B  O5 k. W   3.5779595184233866`*^9, 3.5779604438874006`*^9, 3.5779623548833966`*^9,
      z8 X, d( {0 P  V   3.57801247209375*^9, 3.5780129225625*^9}]
    . v! L9 T1 P. Y+ c# f' S}, Open  ]],  j' K) q: I5 \( I# k, u7 K
    0 I/ r" C2 D  Q! O6 G
    Cell[CellGroupData[{
      Z4 l' E8 v) y! R: \. n1 X5 ]6 F) T1 O; T7 L! t$ G
    Cell[BoxData[
    & V! `3 H: n, } RowBox[{"p2b", "=", 5 m1 H' |8 U+ y% ~; ]
      RowBox[{"ListPlot", "[",
    6 U6 J) W. ]4 H8 H7 Z   RowBox[{"y20", ",", 1 L2 ?( l% ?7 j8 J; O
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    2 h6 h; P  ?; }( ^    RowBox[{"PlotStyle", "\[Rule]",
    * S' _* K. V) a- k  |     RowBox[{"{", 1 h' _9 k- K2 b7 A) H' Q' B: G
          RowBox[{
    ; T( M! V) r- m" W9 h       RowBox[{"RGBColor", "[", ( t7 K6 s/ M6 @- ?7 N
            RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
    2 W4 K$ ]$ i% E* X. I) ^& k* }- |* w    ",",
    1 n- X' E, m3 k    RowBox[{"PlotRange", "\[Rule]",
      Z9 T+ n5 K1 }     RowBox[{"{",
    : {- D6 Y6 {3 t# J      RowBox[{9 s/ N6 x2 x! ~$ U
           RowBox[{"{",
    & z% H& L' D' j        RowBox[{"61", ",", "89"}], "}"}], ",", ) a3 ?' n3 K# o' s6 Q
           RowBox[{"{",
    ( ^' G4 H* W( Y' ~+ T        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", + h- d( ~3 l% L6 s
        RowBox[{"AxesOrigin", "\[Rule]", : p& G, A6 }& ]0 y4 J
         RowBox[{"{",
    2 O1 N+ p8 |7 O/ b      RowBox[{"61", ",", "0"}], "}"}]}], ",",
    $ g7 d" ]& ~% ?; T+ q: ?    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
      v" U  r. a( O7 K CellChangeTimes->{
    ' K0 Q9 j, @, s  3.5779253991875*^9, {3.577958382429406*^9, 3.5779583843326097`*^9}, 2 c. D5 o" b0 G2 C" q1 k/ p+ `
       3.57795855655691*^9, 3.5779595724462814`*^9, 3.57801248346875*^9}],
    9 T1 r2 @8 U, f! q4 \
    ! J; T$ h! h. ^% R; uCell[BoxData[! U1 Y7 @# N7 }# Y( h8 W$ z) z
    GraphicsBox[{{}, {}, & {" ~; a. i9 \2 X, T9 e+ g% b+ k
       {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    * U$ t0 y. r" P1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
    7 ~+ `! k* d# q8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV0 [! v0 q: L  h$ e
    c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc, F' @& \! o1 ]3 U6 s. j8 ]
    iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk47 W- m) |; Z- n# A" C
    TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO' I6 M( A; d" M5 k" P
    fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB! `: U  l( |$ C5 X- H. v( c1 M
    TWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
    ) Y) P+ e" n. T0 ~p0OYg4Fg/tz63VfsAdsCnzU=; ~6 j, A- T6 j2 `+ R& i3 _4 v! _. Z
         "]]}},# k- v6 `0 E" T: }
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    3 ?4 S) X( ]7 |" S* K2 d, w' J  Axes->True,
    # y; P  }5 `+ s' I  AxesOrigin->{61, 0},$ ^8 a/ r2 ?: F8 }5 H# s/ X
      Frame->True,
    , F: ]6 k+ M. i* v) _8 Q  PlotRange->{{61, 89}, {0, 1}},4 |& I/ j, Y/ S5 m) H% s. ~
      PlotRangeClipping->True,
    * b' {: a, A3 x* [9 G8 A  PlotRangePadding->{Automatic, Automatic}]], "Output",8 g9 s' |% N) U9 z5 G! y0 i
    CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9, 5 j/ N$ W5 B7 v# [$ {) D) |
      3.5779583861890125`*^9, 3.5779585219092493`*^9, 3.577958558132513*^9, . C) R* B  l' \& F/ A/ q
      3.5779590691114035`*^9, 3.577959577906291*^9, 3.5779623569426003`*^9,
    : V; r; `! i/ ~2 @7 M0 O  3.578012484703125*^9, 3.578012925875*^9}]
    $ @# p6 P( e1 {: a6 k! e5 O}, Open  ]],  Q9 b9 D2 t5 H  l5 F+ v

    9 U) h8 f  O, O0 c; ^Cell[CellGroupData[{
    / M* G9 J1 u( o$ y: Q  x
    ! \2 I9 M% Q* y* ~0 }: U- LCell[BoxData[
    5 x9 R/ B$ |! |) H, e" J/ t RowBox[{"Show", "[", # ^9 q3 n2 q9 S; T! R
      RowBox[{"p2a", ",", "p2b"}], "]"}]], "Input"],3 m* g2 I" k9 M) H$ `; I: B9 J) B4 n5 E
    4 F3 k  G  U& t  y5 Y" K
    Cell[BoxData[5 G( d" H3 Y$ q3 P* O: Q' v/ L4 l; C
    GraphicsBox[{{{}, {}, ; V) t. L9 Y8 O1 E
        {RGBColor[0, 0, 0], LineBox[CompressedData["2 ^4 k2 O" J* \9 v" ?) f1 G$ ]
    1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM" y: r9 V% D9 G; h
    /g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ- m" H6 {1 Y- Z& e. p
    9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P
    . j1 i8 H. p* D0 rofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC
    4 k- U. X1 ^% ~4 Z) W! RqPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK: R4 U0 M# k6 o" }
    1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx( s) S; y. B! H8 H
    0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1+ G/ O' A( f0 y2 x% H# m2 K4 s
    sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
    & T! |3 @% `3 V3 J( @5 y# C% b99yxuG0PAHw7nyU=
    ) [# r% x; |. z( B$ c      "]]}}, {{}, {},
    - ]& a# r- i- {6 J& v    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData[": \# U7 B/ g* S$ r6 x# P
    1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn/ R1 R% c) _5 V$ `+ @8 q
    8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV1 t( x- H# l  h6 C6 W" m1 A
    c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
    + W" J# W7 E% ]9 ?  jiX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4+ }  e! T" k1 T- w4 f: E3 d
    TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
    1 @+ k  n2 W5 z4 o# IfzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
    - `# x- U! i. @' R4 _: R& g- KTWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
    . R1 Q" `) C! ?; J5 gp0OYg4Fg/tz63VfsAdsCnzU=
    7 e$ e5 w' g# `      "]]}}},
    - X' A& O4 e$ H, Y$ |9 G  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],# q5 P8 [0 F) i) V9 ^: f
      Axes->True,
      W1 G! U$ h8 N9 a5 K  AxesOrigin->{61, 0},8 v- K9 \" ~" i; j& U. o1 r2 U- o
      Frame->True,
    ' B% v2 z1 V" O8 a* Y$ E  FrameLabel->{4 t- x7 [) e) T1 J
        FormBox["\"\:7089\:6b21\"", TraditionalForm],
    % n" r7 n& S# S6 O    FormBox[
    ( Y) p) y$ N; E  x9 {    "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", 2 D7 y2 l3 ~1 I/ B' P. g( x( K2 C
         TraditionalForm]},
    ' N& i7 }: U8 N  PlotRange->{{61, 89}, {0, 1}},
    # Z1 f, ^5 ?5 O" L# P  PlotRangeClipping->True,
    / g9 d4 U3 G* y  PlotRangePadding->{Automatic, Automatic}]], "Output",
    5 k% b! \2 `# }' G( c: L/ D/ i CellChangeTimes->{3.5779623624182096`*^9, 3.5780124863125*^9, 3 i* R" P5 e- Y9 ^
      3.578012927734375*^9}]% A# Z- L% U( x& V  u9 t% ^! }. l
    }, Open  ]],. \0 J" ^, y2 a3 B$ [
    & }& j/ i, W' H! N3 f) f( E/ n$ E
    Cell[BoxData[* ?3 M6 {4 X8 z) L  S( Z
    RowBox[{"\:ff08",
    ( p% T5 a) R$ H  RowBox[{
    " M: ]3 n4 |! c5 X9 i5 G7 U  "\:5df2\:77e5\:521d\:59cb\:94c1\:6c34\:8d28\:91cf0", ".7406",
    6 g  C" _# O2 K6 D8 l6 {# S   "\:3001\:5e9f\:94a2\:8d28\:91cf0", ".4621", * ]: h2 {6 X, h
       "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea60", ".5208",   |! W2 a% s8 B% Z# h
       "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:542b\:78b3\:91cf0", 4 {7 I' `2 I0 K- `+ m, C7 W4 I' W
       ".2221", "\:ff1b\:76ee\:6807\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\
    ; Z/ [) R/ Y5 V% W7 R2 t; I\:4e3a0", ".6224", 6 Z4 e0 d- u& x, J9 @
       "\:3001\:76ee\:6807\:94a2\:6c34\:7684\:78b3\:542b\:91cf\:4e3a0", ".2521"}],
    " u7 Z8 z" N5 b1 M2 ]8 C   "\:ff09"}]], "Input"],
    & A4 y9 B6 J) v4 _3 S- I6 S
    3 ~; o: N) J/ c0 h! l* M0 j& MCell[BoxData[
    ) H7 e' V, b, {2 v3 H RowBox[{"{",
    $ ~% ^9 h. o* i2 ?  RowBox[{
    % \6 z2 @7 u% C0 |3 C5 D  "\:94c1\:6c34\:8d28\:91cf", ",", "\:5e9f\:94a2\:8d28\:91cf", ",",
    0 f) m2 M0 c! [1 m& N   "\:5439\:6c27\:91cf", ",", - W( l# z5 n  [, S6 e6 f9 ^, z
       "\:4e0b\:526f\:67aa\:65f6\:7684\:542b\:78b3\:91cf", ",", + K! R' J8 a! \! h, b7 E9 _
       "\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea6", ",",
    % L1 k% u5 N& J9 l) p4 M   "\:5757\:72b6\:77f3\:7070", ",", "\:8f7b\:70e7\:767d\:77f3\:7070", ",", / P/ Q$ [  E4 ~9 g7 L7 N
       "\:83f1\:9541\:7403", ",", "\:5757\:72b6\:767d\:4e91\:77f3", ",",
    ) z6 v( z) ~' l& a% W8 i2 i   "\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf", ",", / Q0 k- u& e; Z/ s' r, y2 d! ~
       "\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6"}], "}"}]], "Input"],) ], w5 i+ w9 c1 A1 W+ `4 ]  W
    1 C9 k, F4 h- @9 E+ r
    Cell[BoxData[" "], "Input",
    5 C, w  T/ U5 ?' ~( W2 W8 ` CellChangeTimes->{3.577962834553033*^9}],8 p- i& @5 l  Z) V: q

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

    9 }0 ^9 H/ ]+ u(* End of internal cache information *）( l! v% ]% W7 Z  [
    & K& G$ R/ X, b
    这个是用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-10-10 08:50 , Processed in 1.972861 second(s), 101 queries .

    回顶部