快捷通道

QQ登录

只需要一步，快速开始

  注册地址  找回密码

数学建模社区-数学中国

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

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

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

1

主题

10

听众

296

积分

升级  98%

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

    • 签到天数: 75 天

    [LV.6]常住居民II

    自我介绍
    无

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

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

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

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

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

    相关帖子
    回复

    使用道具 举报

    兰秋小沫        

    0

    主题

    7

    听众

    31

    积分

    升级  27.37%

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

    • 签到天数: 7 天

    [LV.3]偶尔看看II

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

    使用道具 举报

    涳夢        

    0

    主题

    0

    听众

    1

    积分

    升级  20%

    该用户从未签到

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

    使用道具 举报

    冰E柠檬        

    10

    主题

    43

    听众

    1434

    积分

    升级  43.4%

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

    • 签到天数: 278 天

    [LV.8]以坛为家I

    自我介绍
    冰E柠檬

    社区QQ达人

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

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

    群组: 数学建摸协会

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

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

    使用道具 举报

    百年孤独 实名认证       

    3503

    主题

    538

    听众

    5990

    积分

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

    • 签到天数: 691 天

    [LV.9]以坛为家II

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

    群组: 2013年国赛赛前培训

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

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

    群组: 物联网工程师考试

    群组: 2013年美赛优秀论文解
    5#
    发表于 2013-7-30 20:56 |只看该作者 |招呼Ta 关注Ta
    问题完善一下！或者把代码贴上！& {4 l% [! p, {2 q( M  V
    回复

    使用道具 举报

    琳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 v9 e! x  x1 |! i. M" z5 o. j; P
    神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗

    ' s) i: W6 M6 c# _! C% U9 D: v+ d1 j(* Content-type: application/mathematica *)7 O) P# V0 c8 R1 }# T/ q8 R  _
    ; ^$ q5 {1 O7 ?! s3 C) W* n% E% r0 v
    (*** Wolfram Notebook File ***)
    ( l& w4 r6 L/ S) j( H( J(* http://www.wolfram.com/nb *)5 \1 y1 z9 J' u. Y$ m" N
    ; Y9 I4 d- @+ C. `
    (* CreatedBy='Mathematica 7.0' *)3 m0 B5 j; U9 d

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

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

    ! g! V: ]0 ^" Y- a, U) pCell[BoxData[
    : q6 e* v" r& L, f0 k" h# s RowBox[{"For", "[", $ x4 B  S* n1 ^+ m: |
      RowBox[{
    2 ?/ n3 i5 |) ?" I. q6 P   RowBox[{"i", "=", "1"}], ",", # n- O1 [, ], X3 a4 f
       RowBox[{"i", "\[LessEqual]", "9"}], ",", 8 `  i9 ?9 v6 s$ \$ t; X1 F
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", . p  u4 X: f# y  q! [
       RowBox[{"For", "[", ) |8 z) x7 Q$ s4 y4 T
        RowBox[{
    0 G( a: ~, ]9 b1 P6 o6 {     RowBox[{"j", "=", "1"}], ",", ! ^6 j& Q; X6 w
         RowBox[{"j", "\[LessEqual]", "80"}], ",", 5 i% M. k) {+ D! w: P! t
         RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", * l+ z( H/ B5 N1 u( ]
         RowBox[{& k+ \, C1 Q9 U! L
          RowBox[{) A: i9 @2 Q/ l; I- z/ W" ?* `8 w( v& _- n
           RowBox[{"CM", "[", & {5 ?, `$ I. v9 g
            RowBox[{"j", ",", "i"}], "]"}], "=", "0.0"}], ";"}]}], - n1 Q! E$ _# T- L1 q7 u2 D$ @) O1 e
        "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",$ o: D4 j& w( h
    CellChangeTimes->{{3.5779132504375*^9, 3.577913285203125*^9}}],
    5 @6 c9 C- C1 R# c4 U0 V8 n4 R$ }; d. f+ Q6 V0 Y8 r/ z( W3 e
    Cell[BoxData[
    . J0 ]8 Y: O# J6 e% ? RowBox[{"For", "[", ( E1 A; T+ N" [) L% }. W
      RowBox[{# l9 H/ s% o4 A$ {9 Y1 Z
       RowBox[{"i", "=", "1"}], ",", 6 a1 A" k( c! [! I- ^
       RowBox[{"i", "\[LessEqual]", "9"}], ",",
    0 G2 T, Z& i/ z- Q9 W   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",   X: ^) h  Y9 {6 [& w
       RowBox[{- K7 |2 Q. x+ `1 v9 |- {3 n
        RowBox[{
    # c4 E4 Y5 W' R: _0 a     RowBox[{"CM", "[", 5 j% y8 ^+ \7 W
          RowBox[{"1", ",", "i"}], "]"}], "=",
    ! W8 ^; @; m8 ]/ X( T* {     RowBox[{"Data", "[", : S2 ?2 u( d" ?$ Y. \/ e
          RowBox[{"[", 3 j0 J0 o, T4 \6 j& V9 L4 E& L( t
           RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}],
    7 b! S( Q" Z  d$ P, ^  "\[IndentingNewLine]", "]"}]], "Input"," u' [0 o: }( h: U- Y3 `
    CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {4 h2 h5 ]9 |2 A* _8 q9 {7 G1 X6 Y
       3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9, - u$ q$ L' q; a1 Z1 i3 i9 ^
       3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9,
    * }- r  r2 V4 l( Z& q$ P* e   3.57791344209375*^9, 3.5779588070933466`*^9}],: Z: H0 W: {; J3 f- G
    ; t5 F2 h- U, w6 p3 M, d
    Cell[CellGroupData[{) L  U. b6 m: E$ X! G# C

    - p) C& u) n3 N+ W+ t5 b% W( c* f' ~Cell[BoxData[{
    : y- C: p# \6 u4 \ RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]", . Z4 Z2 W2 o& X( C6 J* c! P, w0 L6 {! l
    RowBox[{"M1", "=", "1"}]}], "Input",$ j' \* C! H1 x3 C  i+ p3 }+ F& [
    CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {
    $ g, l; w, R' k  F+ G3 B2 q9 r( [1 X   3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9, ( N* ?5 ~" ~4 X7 S( J- v
       3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {
      x4 B6 ^: N/ S/ n# T" C   3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9, , b% D4 V3 v/ {% P5 ?/ c
       3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {
    + L+ ]' i! h  E* u+ `   3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {
    ( y4 i  c) G! q   3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9, ! p/ @1 m  g2 y, _# t
       3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {8 K  ]$ I/ {. ^, p9 l
       3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {$ j6 Y) ]" l: ^% t- X$ g& u
       3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9,
    4 S0 [3 Z4 k6 y" w! Y! J6 b   3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],4 v4 k5 x) Q. m; ]. {, d6 `1 [5 B

    , `3 {- W, N2 `9 i$ _; vCell[BoxData["0.2`"], "Output",
    7 n! j6 K1 W4 G* `, T9 y" O CellChangeTimes->{
    * O" \6 W, v9 R0 L* G; z! \  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, 8 B0 l) i. n8 K* _& n% ~
       3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {* _8 p0 r* b# ?5 b0 `! k) t
       3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
    9 m2 G& m- c6 ]! y" q/ Z+ p$ T9 \5 @   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
      I2 e4 z* ^. {6 G   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, ! K$ |6 R8 d5 T, n
       3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {* M6 a! h; U" o, z
       3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, ! x) b( q: A" p( M: g, E
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {, L* T$ }. U8 i6 }% J
       3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, ' ?4 u: s$ P( \7 R1 [
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    9 a7 d% N0 ?$ }" x/ `6 d   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
    ' x( p2 i2 N  b) s$ z; V   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
    . ^3 E/ x4 k$ I  }1 S% p  u" [   3.577960510686717*^9, 3.578012149296875*^9}],
    ; Y1 d9 z! I; Q+ X8 W6 E5 ?- _7 w
    9 n4 a  d- r! y: d, C. hCell[BoxData["1"], "Output",7 y5 ?! w; ?8 \5 Y  w( L) \
    CellChangeTimes->{4 q0 P+ c% X) i3 [9 L
      3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, , c+ A- n2 ~7 e3 \% a
       3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
    * F. x) F" t- d   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, ( C' v$ |) ]- \! P. s4 j2 A
       3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
    ( S9 n% V  I' h" a   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, ( @% M8 Q& h. D* _7 i' X
       3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {: l1 h5 w( ]) d" B' j+ j( A
       3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, " ^9 K7 f* J5 s0 `! q
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
    ! o3 h! I$ h) u2 E7 V1 c. s   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, 1 Q9 T- ]4 p% {6 ^$ a0 ~# n
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    2 ^: R9 N+ Q: `$ k. V# k   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, + ?4 d" k0 r) R
       3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
    2 @, a0 t/ q5 f( s   3.577960510686717*^9, 3.578012149296875*^9}]
    : n& ~0 ~& l: i! Q$ P}, Open  ]],
    * P$ a" m9 j8 Z+ T0 ?, \
    & j6 i* y9 Y. rCell[BoxData[, g5 ~+ y  _! o: C4 j; l
    RowBox[{"For", "[",
      m/ m2 s# T/ S5 U  RowBox[{
    5 p, D2 V) T5 g( q* D! h   RowBox[{"k", "=", "2"}], ",",
    7 |  E1 z) Y  l6 |$ z0 K! i9 c   RowBox[{"k", "\[LessEqual]", "60"}], ",",
    + I+ D* x- O" x/ B   RowBox[{"k", "++"}], ",",
    + s" l$ N) U7 z: R   RowBox[{"{", "\[IndentingNewLine]", # y* ^' F8 U* A9 [' n9 H. ?+ v
        RowBox[{$ `" Z4 P) H# f
         RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]",
    2 ^+ G1 z0 y  x0 y( m6 _$ n     RowBox[{"For", "[", * f# Z5 v9 d: H$ n0 {% m, G
          RowBox[{" V: w- S( p9 \: ?
           RowBox[{"j", "=", "1"}], ",",
    : @# H" I! d. B. @5 m' j+ A       RowBox[{"j", "\[LessEqual]",
    , U9 \9 N4 T. X3 |4 N& ^) H        RowBox[{"k", "-", "1"}]}], ",", 9 q1 e7 @: k& ~6 E! g0 Q% u& \9 S
           RowBox[{"j", "++"}], ",", ! [5 K- @" |2 U0 Z) L0 D
           RowBox[{"{", "\[IndentingNewLine]",
    / I' H. w. W1 N: x$ m. c$ x/ k8 u        RowBox[{9 h0 b1 F+ D! d
             RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]", 8 x0 g8 p) D9 W* Z$ R" b
             RowBox[{"For", "[",
    " y5 q3 C4 H/ ]          RowBox[{8 f$ T( e. K- W' L  i7 n
               RowBox[{"i", "=", "1"}], ",",
    5 G8 j4 i" |( D% D           RowBox[{"i", "\[LessEqual]", "9"}], ",",
    7 e! r- o/ I& x7 w           RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    $ o7 Z* q$ \9 x4 @& ~8 Y           RowBox[{2 z" x9 v; D% m1 _9 D
                RowBox[{"r1", "+=",
    % D: T- M8 A8 w7 `4 j, h! _             RowBox[{9 t& h7 C, [( ^# E1 b- s
                  RowBox[{"(",
      o$ Q& w" i2 m# w, [( q8 h               RowBox[{' V6 J- z: f  W
                    RowBox[{"CM", "[",
    : S! g1 I0 w# A) @. @, p                 RowBox[{"j", ",", "i"}], "]"}], "-", 9 Z8 |" p' H7 H( s
                    RowBox[{"Data", "[", * w. b7 l! g" H1 x
                     RowBox[{"[",
    % ]. A) l) r' ?6 s3 T0 S                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
    , s( Q) Y# R3 n              RowBox[{"(", 4 b7 @% A* \4 N- ?& C. T0 Y
                   RowBox[{
    5 a7 K! J, b. Q) U9 K. W                RowBox[{"CM", "[",
    ! O' j) S* k5 K; B# @  h                 RowBox[{"j", ",", "i"}], "]"}], "-", * d# k6 d! n6 m
                    RowBox[{"Data", "[", % X3 F1 d% J: R6 k3 ?  ]0 d
                     RowBox[{"[", ; a6 r/ ~; c: K4 A) W9 ~$ i
                      RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],% q$ i3 ^7 V( m. S6 G6 i
               "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 1 l& _  c1 H5 _. c2 z& L- b
             RowBox[{"r1", "=", 1 s" U% J8 I  f+ Q
              RowBox[{"Sqrt", "[",
    ! E4 j5 E6 t( H6 ~7 G+ B+ C4 n! _           RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]",
    2 A! L" I/ I1 v5 C. D         RowBox[{"If", "[", " ", ! N3 u6 w% e  _" w9 w7 [% B
              RowBox[{* @( l; O  n8 Q4 j: J( i( {
               RowBox[{"j", "\[Equal]", "1"}], ",", . c8 j1 c* K7 n3 Z6 g! i* @
               RowBox[{"rmin", "=", "r1"}], ",", + ^. C, y6 [. K# T3 |/ v2 b8 A% R
               RowBox[{"If", "[",
    + e& O& ]) [' Z6 m* o* j, f            RowBox[{
    * V  u7 E7 s: O* Y5 E9 n, V" I             RowBox[{"r1", "<", "rmin"}], ",",
    ; \3 A" J2 C: }7 i7 p             RowBox[{"rmin", "=", "r1"}], ",",
    $ U% Z+ [0 ?! c  J9 U, r             RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}], & o4 `) Z4 n, L9 P. R1 k
            "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";",   P3 H" _3 ~0 T
         "\[IndentingNewLine]",
    # W/ k) N, P8 F7 V* I- j     RowBox[{"If", "[",
    * F1 c) f. D+ J/ @4 [: ~: E      RowBox[{
    7 {" J% T: {: I. E( b  P       RowBox[{"rmin", ">", "r0"}], ",", 1 J7 Z' h3 c$ S- U6 |, d3 d5 K# z
           RowBox[{"{", "\[IndentingNewLine]", 5 A. q5 @4 ?' ?0 V7 Q1 W, c9 V! J$ e4 _% G
            RowBox[{
    ( V) U7 O8 W5 j) D8 C" U' m% P         RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]", 0 ~3 v; z! }- H! M5 }, J
             RowBox[{"For", "[",
    6 n4 N( M& A5 T  X7 t5 C* i. f          RowBox[{
    ( a& }4 P5 U! @3 L           RowBox[{"i1", "=", "1"}], ",", ; [5 `  B. ^; d, P9 w8 [4 N. y
               RowBox[{"i1", "\[LessEqual]", "9"}], ",", % w6 K" M; s  U
               RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]",
      m) }: @$ Z+ \5 Z# @  T) M: }; M           RowBox[{1 Z5 }/ j5 n9 q
                RowBox[{, m+ y2 v. |% V$ Z0 d. o9 I
                 RowBox[{"CM", "[",
    : {1 N9 B4 F5 ]5 x$ \              RowBox[{"M1", ",", "i1"}], "]"}], "=",
    : Y4 ]0 N/ L$ l2 Z3 d             RowBox[{"Data", "[",
    7 V6 W8 f/ @  s4 h3 Z! p/ v              RowBox[{"[", - h. F5 u2 H) r1 V1 x+ o
                   RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}], 7 p* Q  b& z4 H+ C8 ^- W9 p
              "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",", " T2 K  u* [- R
           RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}], 6 X( B/ K! j5 l% E* q7 R: Z: W
        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",6 Q! t0 `( v; K% ]" q- J% S
    CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {
    # o  O/ t$ t( D, o3 G1 \   3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9,
    ( Y$ I( q' {4 X/ f3 k2 k   3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {
    ' h2 N( F- k$ q! R9 H   3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9, + e( E& y" p1 {* S
       3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {
    , m) f- i8 [  m0 N( `0 l- B   3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9, 4 _$ i5 H/ _+ V, I; L+ Z
       3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {
    ! s( Z! J" k) B) O3 S1 l* Y   3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9,
    ( o. N% r) y) F  y( S! m& T   3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {
    3 w# F, w! v* d0 u! ]0 X7 U! i2 j   3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
    ) ]4 w: |# E: d) ^4 [2 P( L   3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {
    3 U4 E: Y% i' B2 u2 h. ]   3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9,
    - m3 h- @1 S/ u6 C7 J( T1 Y/ ?   3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {
    - e% X! K7 F1 d   3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9, 7 x- Q' c1 O6 r8 B, ?
       3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {; p6 m- f0 X. h. Y( {. j
       3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9,
    6 A& r( D" s7 m3 L  ^7 k4 W   3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9, ' n; N: L# v" q0 B. q  Y* z0 D
       3.577958821991373*^9}}],
    3 s8 r5 R/ R1 ^" ^7 U
    5 c9 k& B1 P; ~+ N* dCell[CellGroupData[{
    - j: {- Q( ?" r0 C. i2 j+ x5 ?* V, Q/ Q) ~" ], ?
    Cell[BoxData["M1"], "Input",% e) n# E& w& ^- r7 w+ g
    CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
      r7 L7 S5 a! Q& g* j7 F8 d, o4 T' B
    Cell[BoxData["21"], "Output",
    ; q4 d" Z* w$ }1 U8 q4 c CellChangeTimes->{
    + e' _# [  P9 \6 T2 {3 Z  3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {
    - K5 f& z3 B" M+ [: `. f9 I   3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9,
    5 }6 B- V7 L$ }   3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {
    0 z/ D* _" F: l   3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
    / T2 Z. F0 R, j4 f' s   3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
    . i! d  C  h8 A5 j; f   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9, 5 v. X8 O7 {! [9 |9 U2 M$ S
       3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
    ' a! S% \( f9 z. v; F! f0 L   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9, - R  [( L' B- H# Y( u5 ~2 R, e
       3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9, 5 |1 e& j  F6 o+ N
       3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9,
    $ `7 U9 n% q+ A/ t   3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9,
    + D8 z5 q0 W3 M" b   3.577960515600726*^9, 3.5780121541875*^9}]
    . z# e0 T* X9 S}, Open  ]],
    ) M# q: Y. _9 k) V& H! Y- L
    * [/ c  ^% W" k* n  e% p  e' oCell[BoxData[
    9 a3 y1 ^4 b5 [/ E& ?0 D RowBox[{7 m7 T' |* z+ u" t8 D7 P2 j
      RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[", 8 F5 b  c) r6 ^
       RowBox[{"1", ",", "i"}], "]"}],
    * |% j3 ~0 m( d$ n6 F/ _  RowBox[{"\:5230CM", "[",
    9 y0 [" F. d; @0 q. Z   RowBox[{"21", ",", "i"}], "]"}],
    : l2 ~/ O  F" l: q! W  "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\
    0 m8 O7 L' I* V\:51fd\:6570u1\:5230u21"}]], "Input",& ~7 ]2 a& a1 j' D
    CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {
    % Y) q% b# k3 O. b" L7 E  3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9, . \# \/ ?! p9 r- F! R
      3.577960526583145*^9}}],
    $ n2 W8 O% K! t$ k+ d
    - T( R: K) f: E0 T% cCell[BoxData[0 F  C/ X4 {% l+ q0 l
    RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
    : N- h' w9 B) F0 ^0 K: j5 d, z CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],6 q: ?( G, {9 s3 ~& \; C
    2 O5 @5 w8 S/ }
    Cell[CellGroupData[{
    9 B2 M+ u. b! j4 n; T& O$ h/ d8 E9 {7 X) F( r: N
    Cell[BoxData[
    1 G8 B' @3 m3 M# g RowBox[{"Xa", "=", ! S3 N; \: {5 W! f* Y9 n3 V2 G
      RowBox[{"{",
    7 u- f. d5 X: Z( C8 \' ?+ e   RowBox[{( r4 `2 `2 _' [
       "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7",
    & e4 e6 |- Z5 F2 b2 u7 y( P7 k/ Q    ",", "x8", ",", "x9"}], "}"}]}]], "Input",
    ; F3 {8 b4 g/ A5 Y# M# T( H+ m0 w9 b7 O CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
    6 o* h: ?) w; w, H6 g, u8 z, v6 m7 |( N9 j5 @8 J9 K
    Cell[BoxData[
    : G- B7 d. ~) t. N4 H RowBox[{"{", 4 V/ F' w! Q; m# p+ O0 G
      RowBox[{2 z6 Z% V& J: ^. y2 y
      "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",; D) D+ H& ?2 O% I! _. F7 `9 C
        "x8", ",", "x9"}], "}"}]], "Output",
    5 F7 j; X; j3 [0 j& ?9 J; I4 E CellChangeTimes->{+ L+ ^9 X7 [8 J% f' @( D
      3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
    ; i& ?0 t; S% O5 M, R# k   3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9, $ n* ~2 [# C7 b+ @: {) N' \
       3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9, , S: ?' A+ z! z( `5 R
       3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9, % f/ A( I, @/ v' }
       3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {' \  p/ {) P# ~; [0 k: J
       3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9, 1 {0 F" v3 z+ j: `
       3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9},
    ! Q$ o( g2 j# K   3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
    & p7 X$ a( g3 p% i4 r8 r+ l0 V   3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {0 V* r9 a1 j# Z
       3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
    0 [0 ?0 {4 |! i5 p% B% M   3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9}, 2 U" \- V2 a5 l' t3 e5 e1 p$ l5 b" @' p
       3.57801215725*^9}]) C8 q2 \) l+ @; L, Y/ V
    }, Open  ]],1 _% p0 i4 p& V& g- j/ X7 p; S3 x

    & k% e  ~) [% j3 I! HCell[CellGroupData[{
    * T. y2 M& b8 ]! W6 Z1 v8 h5 B2 b5 v1 J
    Cell[BoxData[
    7 G% u8 T. P/ _8 } RowBox[{"Ca", "=", 0 `* x  M& k; x) s
      RowBox[{"{",   |; T# b3 [+ f% w
       RowBox[{" X4 z0 e* {2 x: t! B3 p$ b
       "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", , ^3 `) n  o, W8 F( ^
        ",", "c8", ",", "c9"}], "}"}]}]], "Input",  r+ i4 H2 I& r+ p8 i3 {6 e
    CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],) B3 r# Q7 \; C! o- c6 G) F

    2 z5 O1 t: s6 D. I: u0 E2 D+ ?Cell[BoxData[1 d) `1 ?4 t0 x0 ?! l) X. W
    RowBox[{"{",
    4 h. C& w3 l$ K, D% S; [  RowBox[{
    2 }) y% K& K$ @1 M$ Y- t  "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",; W; C2 `0 T$ Z5 a. K" O) |2 I& H
        "c8", ",", "c9"}], "}"}]], "Output",$ U* N: Z$ h& J$ W* V# ]
    CellChangeTimes->{# ]: C  F2 v$ a/ ^+ R8 {
      3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
    7 ?! J8 B- o) L; ?) x   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9, # k7 S5 e7 b* S: D9 Y
       3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9,
    9 x$ I0 j$ b$ V: X/ `  q! K0 e   3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {: O/ d$ ?% a# d! [' H9 \
       3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9, : c3 h% {! {! ?! n/ n- i$ U
       3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9}, # b* k: i3 v5 F  k% o
       3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
    & m- A. F* z+ a: B# m  d  o' F   3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9, 1 G, m: @  ?5 a1 W4 w+ t: N
       3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
    ) E3 J/ z9 ]: O' l5 e9 M4 O   3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {: a  G  o, h: d7 z# R
       3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9, ! v- D7 R" C0 D6 X/ m! n
       3.577961904604212*^9}, 3.578012158671875*^9}]: x3 ?* x. \/ g* I+ e' N
    }, Open  ]],
    7 G9 S+ T  }; U2 @; t* r  i3 p' C3 X9 w
    Cell[BoxData[* J- }. u% ?2 i$ x2 s8 \/ L4 d9 j
    RowBox[{"For", "[",
    + [; Z- T) G! h* |1 e4 s5 y$ A  RowBox[{* I# v8 x$ a4 v' _; ^
       RowBox[{"i", "=", "1"}], ",", # ~# j: i; N% ?& n+ m0 y
       RowBox[{"i", "\[LessEqual]", "9"}], ",",
    6 T% Q" G* c/ q7 R   RowBox[{"i", "++"}], ",", 2 v' ^1 v, e. v3 }
       RowBox[{  @# w% a% V0 t
        RowBox[{"Ca", "[",
    $ |# F6 V5 R5 T7 u     RowBox[{"[", "i", "]"}], "]"}], "=",
    4 M+ P! ^5 ]& ]$ s$ ~4 b    RowBox[{"CM", "[",
    6 a) o+ G- ~( g- A. ~! y4 X     RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",$ G/ g  S1 B8 Q) G1 o
    CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
    + e* L3 \' u9 Y+ J4 S   3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9, 5 F2 `  l# r$ d
       3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9, , _& z: X0 d) ?+ @+ S
       3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9,
    9 a$ Z9 K/ w/ F  S. W   3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9, + q2 F: Q/ X8 k# \
       3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9,
    8 P0 Y$ s& V$ e1 }' \   3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9, 6 m6 h* J. K7 H! T$ I% a
       3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9, 0 _) E) U9 k" B3 p. V
       3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
    / ^( H+ h- c7 h% Y0 r! d   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
    ' ?5 T8 ?+ X' o& d4 _   3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
    - f; S0 m- s# i2 o. _% y, k& k; U  R   3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9,
    3 l; d& q7 j' [& B4 T6 j3 s   3.577961906897415*^9}, 3.578012176296875*^9}],( j9 J& W5 Q2 h0 B# S) Z
    9 c0 G8 S- G+ M. e* f" B4 \. G. s7 o
    Cell[CellGroupData[{
    6 E( B/ s- s2 R  ]* `
    2 n9 n: r8 }$ b/ F! o+ k' B  uCell[BoxData[
    ; t/ ?% I1 z& P$ z$ ^, V" n RowBox[{1 t9 h) W0 g- D
      RowBox[{"(",
    ) N3 n+ q" [+ I3 J5 w4 H% ?  {' I   RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ) H$ _$ z2 i8 q: _  RowBox[{"(", . v) ?4 ]3 r- b8 V- c& ^' D; M
       RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],
    . x0 n0 }! |& e1 q, o. a9 B: H
    ! q7 [) I3 h1 dCell[BoxData[
    % E! f- G6 Q. s& C9 i0 H RowBox[{
    4 t  V+ g$ v* n; {8 [4 B  C2 U  SuperscriptBox[! X& S' K7 w4 t( x  a0 `5 ^
       RowBox[{"(",
    $ w7 M% m, o1 p0 V8 P$ {    RowBox[{
    ! l. @: D5 H+ q     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+", 1 ?5 c+ I7 O- C, J
      SuperscriptBox[
    ( Q! d; Y4 v" R; t! b   RowBox[{"(", * p# J, Q4 S* d+ ?4 H) |. ?
        RowBox[{) V4 s+ y% O, f/ d1 L3 l5 a! g) ^; s4 S
         RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+", + A( t! e) @2 D$ l% P8 Y
      SuperscriptBox[
      f/ [3 R6 f  x0 a2 h  E   RowBox[{"(", 2 ~0 o+ J; f) {  `  E9 Z
        RowBox[{
    5 D! r( h1 z: H9 Z3 m7 {     RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+",
    " e% c; x7 P1 e  c+ c  SuperscriptBox[" O& R; T6 M! g% f) \
       RowBox[{"(", ) w: a5 S* z4 x; f% T, |) R; C. e- P
        RowBox[{5 u$ x0 i/ ^' e8 H) w9 \
         RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
    + E  Y2 ]4 V# e/ v7 a7 h  SuperscriptBox[
    % y+ {& ?/ u5 A5 @' h   RowBox[{"(", / q/ R3 {% |  G0 Z5 x
        RowBox[{8 g/ X& f' f# z7 u* }3 T, X. H
         RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+", 5 f. @! @7 v/ h3 f9 N7 J0 r% w7 q
      SuperscriptBox[
    & d/ K0 `( `* L( }7 n" v   RowBox[{"(",
    : v6 \# g$ f( {) x& W9 C# E) Y    RowBox[{
    % s' Z: u$ A2 {% b     RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
    8 @" C; N9 a# K* P+ j% ^; W  SuperscriptBox[
    : `4 N' [: \* K5 L+ x' e   RowBox[{"(", : C/ G8 C/ Q! h) Y2 n/ ~6 S  B, G
        RowBox[{3 S2 s8 C4 D* s) x" w, k
         RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+", * ?, I% a. A. w& G
      SuperscriptBox[2 ~  L& M: H' |
       RowBox[{"(",
      v9 k( |2 d  j6 H    RowBox[{
    ; d( L: w8 Y5 j7 _% b5 ~     RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+", + x4 u1 q9 {4 p* |  I7 R
      SuperscriptBox[
    ) i& b) t8 z0 F0 v7 q   RowBox[{"(",
    0 ]( N; i. }$ L    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",
    : C) `* P, r/ G4 F/ p6 I) d. v' U- c) [- J CellChangeTimes->{+ M: a1 [' c8 J* E+ j/ _
      3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, 7 b% O% H" y, P& S0 ^9 A+ `5 q4 m
       3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9, 2 t) f% k2 R7 |; {
       3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9,
    ( \" n( ~; D$ ?   3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9, 1 @' D1 F4 G, H5 _
       3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9},
    9 b% y9 J3 V9 u1 J   3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,
    # e: q" }( T, C7 c   3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
    / x/ h( Z2 @9 }* o   3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
    2 F4 U1 ~/ X, D8 j, g3 D" E* X9 \   3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {
    ' M  h1 h$ [! \  v9 a; v   3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {
    ; P# j5 x- p& B2 P  q   3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9, 6 R1 }" l" n/ @% t: x8 C
       3.5779618537169228`*^9}, {3.5779618846049767`*^9, 8 Z# b+ [! ^% R1 f& s
       3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]
    " l! a0 y5 J# u+ x0 |}, Open  ]],
    ! i5 w8 G! ?9 G. C# S& s# K6 s3 V8 I+ B. g' t$ A+ i
    Cell[CellGroupData[{
    . L% Y& E" g5 y! j- Z" R5 C
    / E8 H" t- X- @8 ?6 ~8 P4 i5 LCell[BoxData[/ E, ~* v+ b- [$ ]7 W* y9 h
    RowBox[{9 {8 a1 o5 }* ~
      RowBox[{"Ca", "[",
    $ W. x$ J) ~% E2 [, c   RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",& \' p  N+ n+ R% x! D: J- U8 |
    CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9, + D4 G0 Z  ]/ \
      3.5779616465173616`*^9}],3 W0 d7 z4 T* k

    ) o: }% Y7 Y1 `' {  W( {' W* @Cell[BoxData["0"], "Output",
    ) b& L# ~' B  P' G CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9, & D; G! L# B" o- t7 d' ~- Q; N. l
      3.5779616484049644`*^9}]" G) i* p' q8 l
    }, Open  ]],+ J4 s2 i- `, u

    ! \5 s' j8 L/ g  \7 ~Cell[CellGroupData[{% P9 f. z8 T: n" K
    ! ?3 ]7 q/ A0 F" f2 q
    Cell[BoxData[
    3 p) w( s$ L* ?! @6 f; f% K RowBox[{
    6 E9 A' A6 l+ K0 S6 c  M5 T2 Z  RowBox[{"Ca", "[",
    - _3 A) [  C( \  v7 ~! H  K   RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",
    + Q/ z& k7 C% O+ k/ l CellChangeTimes->{3.577957376235614*^9}],2 o% S, O: Z' F& p& p$ D
    " O; U$ D* k" I9 T9 B& L
    Cell[BoxData["0"], "Output",
    % L' }: V8 ^8 L: k% B  e* I+ n2 s CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]* c; B% @1 p  o4 U  _
    }, Open  ]],0 e2 s0 t6 b, g0 @' X9 {9 f8 q6 e
    6 @2 i* \% {, K- i+ J: S  X5 Q
    Cell[CellGroupData[{
    2 |) U+ Q: h% d# E9 F4 m1 E4 {
    5 f* E- U# D" C2 o* HCell[BoxData[) B: W& r8 E% t8 H" h5 d
    RowBox[{
    ; C; c' j# S0 a' R1 f  RowBox[{"Ca", "[", ) H1 W! J. ]* l/ A2 w
       RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",4 b0 A7 ^) f+ S7 o  U
    CellChangeTimes->{3.5779573112927003`*^9}],
      p& b; M/ m1 z8 `- i- i: N# T. e3 @. Q" R3 f
    Cell[BoxData["0"], "Output",
    . y  a/ m7 R/ M/ k) \; \ CellChangeTimes->{* N- G; D: R4 O" a9 q9 t- Q
      3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9, 4 s+ C+ i: M) i3 Y2 u9 e' E8 ]
       3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9, $ ]% b9 r- a3 r  h7 k4 v
       3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9}, $ |6 @) C6 j0 d( b) o/ `) b$ t
       3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,
    $ k8 N7 ~  _' G3 Q" T3 J  V   3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9}, & E# D5 |' H' c( _; f! i* E
       3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]. @% U/ ]& V% G/ X2 f" T' C9 u
    }, Open  ]],
    ' @9 B% R- B0 E' f) D. ^; Y' s/ A+ P/ U& F/ ~# c
    Cell[CellGroupData[{
    8 G( u# }3 |; t" q- n6 y; F- t& T) t) L2 z: I) Y
    Cell[BoxData[* B; K! p8 |9 \1 `+ y; X# W
    RowBox[{2 E5 d; [& o8 k  @9 y
      RowBox[{"Ca", "[", / ^9 ]( r) B$ V8 j+ v8 V
       RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
    4 l; o# G. U. {9 k, R, u CellChangeTimes->{3.577921461734375*^9}],
    / ^9 y( i( h; v) N! l
    $ D+ W7 n  t6 O/ B* k1 bCell[BoxData["0"], "Output",! C* X5 v- I  v1 L" c1 b# [: X& T
    CellChangeTimes->{2 A1 Y( l' T; n4 n
      3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9, 7 N& R/ w" y6 u# b3 s
       3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9}, , ~1 W: G# W9 R7 P: y9 G0 F
       3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
    2 J( A+ Z2 p3 W4 v' a" e8 Z   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9,
    7 N$ U& u3 s. p  B- r$ v   3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]# [) R! @) i7 m) Y
    }, Open  ]],
    - q7 c0 M! c/ p. e/ M- E6 {4 T" k$ I: u
    Cell[CellGroupData[{
    " x6 v+ }' y$ {, A/ E9 V- o* I1 V: r  k+ u( n( X5 Z
    Cell[BoxData[9 U* E) d( e1 S* @
    RowBox[{9 w7 H3 Y% P/ f6 d8 z0 o
      RowBox[{"Ca", "[", ; a0 g: Q  @! n1 B' [; C7 \* }
       RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
    1 [% r$ D7 y; H1 x. R: ^7 ? CellChangeTimes->{3.577957303118286*^9}],
    8 c4 m' h- S, Z
    6 d4 N( W9 e3 ]$ O7 v/ ^1 DCell[BoxData["0"], "Output",3 G1 v# u7 `: ]& [; `& n5 z
    CellChangeTimes->{8 M! d0 k# a8 d7 C% O1 J: S
      3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {
    1 ^3 s5 v4 R2 U! X/ [) r- d# _9 B' x3 C   3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9, 4 |: h* n# \2 H9 a* B" O. j, ?
       3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
    , s6 ?* E1 f% H) m$ x, Y1 [% g   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9, 0 Q4 `9 ?4 {% ^! J9 c/ |$ v+ V6 G* y
       3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
    $ e. V# W2 `- L7 ?$ @   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {7 t& i4 w# _- N
       3.577961889378585*^9, 3.577961912965826*^9}}]
    6 o% l3 G% w) P! q0 P; A, f}, Open  ]],
    - W+ K. Z. h, x4 `1 V  ?
    " e; w8 C2 q( g) @0 G6 Q# m" ~Cell[CellGroupData[{* ^  H/ ~5 x3 S7 ~) l
    1 r6 C  N/ `/ ?  Q1 l4 o* Q
    Cell[BoxData[
    4 f$ A- P4 X0 c, L% @ RowBox[{
    2 N0 s0 M/ Q0 _, {& |5 K2 b% i9 H  RowBox[{"Ca", "[", % D- @7 i, n9 b% V# J4 f
       RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",
    4 H0 Q, d; B2 s: [. D CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {7 q( U% ~" ?- t, s+ U
      3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
    ! h. ?; W6 J8 x  3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {, |* l, h& l9 l/ K/ _6 l, D; `+ |- ?  Y. h
      3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
    , o8 v8 x* U. a3 V6 |( q6 D  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {( n6 R& C; W2 ~: d8 W, o4 ^& U3 u6 C
      3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
    % @" J: w6 `1 B* t+ E, G  3.577921435703125*^9}}],. h# i4 K6 _- E, L
    ' i3 l! O. `/ d
    Cell[BoxData["0"], "Output",
    % ~4 `+ d% Z3 H8 ^1 K  l' P CellChangeTimes->{
    1 u# m$ Y/ k/ M* h  3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {8 u" z; N$ ]% Q+ p
       3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9, & r5 i! X* E$ Y& }7 ]# E7 V1 p
       3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {2 X' S- t" w. j. A
       3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9, 7 h. s7 N5 {0 W# X+ S1 w. n
       3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {  s6 D" ^; R3 S% l9 P0 ^5 ^2 [
       3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
    : H1 e8 [! B) h6 p. S) y6 T; y   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
    $ F0 Y/ X  ]. t% L   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
    7 o: W3 C2 E6 Q/ f' E   3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {9 |7 `9 ^4 N9 `" S* H/ A4 k
       3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9, 7 A) B2 i' S4 w6 {  K( ?. c
       3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {
    ; f2 K' I9 p" @" H2 X; s0 a1 @   3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9, * B) }7 Q+ N+ m# q! L+ a
       3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
    & P  Y; \2 l+ R  E2 _7 Q# B' K}, Open  ]],
    ) c/ K; C7 y% U8 B9 O$ h: V( i6 O# P$ e3 V0 t! L
    Cell[CellGroupData[{) n, f" O/ }( c! G; t5 ]- m; x
      f/ q" Z3 Z5 T. k6 |
    Cell[BoxData[) ]" F9 A; c% U& o; U
    RowBox[{"Delta1", "=", - M8 S0 H1 A8 [9 V. ]3 g
      RowBox[{
    $ ~7 |+ H9 x5 p" W. k( A" E8 k   SubsuperscriptBox["\[Integral]",
    5 a% o* K! N  B5 o' T/ z    RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    * {1 k; b: F$ I; _9 k2 }   RowBox[{8 l) j3 E- y* {. l: G2 o4 x% \
        SubsuperscriptBox["\[Integral]", 9 v5 N% t- H- g3 V
         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], " p+ @+ Y  _, l9 o1 t2 T7 j
        RowBox[{+ C8 F& Z( L+ {5 h+ s5 ~' T
         SubsuperscriptBox["\[Integral]",   Z' I& J1 }" Y" w2 s& r2 n7 d
          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
      L, G, `* t: }  q" ]/ i  t5 b3 u     RowBox[{
      J2 F3 M8 `8 a9 U/ a      SubsuperscriptBox["\[Integral]", # S* M8 ~% A( q* X. y; Q2 S% F7 h0 _( ^
           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], # e- A  {, ?9 k# G5 e
          RowBox[{
    ; I: y4 Z% R8 t' F( x       SubsuperscriptBox["\[Integral]", 9 Z8 S! F* |$ V: L5 n  J& ]
            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    " k* X5 `8 R) z, Q% o) `/ x( ?       RowBox[{
    6 F2 ?9 B8 s7 c1 s: @5 Y% {+ }: G        SubsuperscriptBox["\[Integral]",
    + x* t$ H; |) d: [, E9 M         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    ( d# t, Y& Z9 f+ U/ A* T4 r        RowBox[{0 @2 d7 D- N) X* s- S& Y  p2 W
             SubsuperscriptBox["\[Integral]",
    ' S" H0 W* i8 ^0 v          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], : @: o. c% @, E0 m( Q
             RowBox[{6 T9 @1 U! ~0 T# e' ^; k* w
              SubsuperscriptBox["\[Integral]",
    ) y# I. F( j) F" C           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 5 K. [) U( J  p; _( Z* C& J
              RowBox[{
    , y8 O1 H3 n9 v0 e1 s$ k1 |           SubsuperscriptBox["\[Integral]",
    , Q- `- A1 \2 t* H+ D9 b! `! D            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    3 [- b: _! t: I           RowBox[{% o  C" Z; O* ^4 B8 \4 b1 l' J
                RowBox[{"Exp", "[", 7 G9 {$ e6 E# ^* |$ H
                 RowBox[{+ {' z. [3 y: x9 t
                  RowBox[{5 x  n) B# E' q) ]# F
                   RowBox[{"-",
    & R" |% i; n. [& r$ ~3 q7 t  e: J                RowBox[{
    5 G# `" m# `% z' p                 RowBox[{"(", . \! w$ p% F! {( X
                      RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 8 r  Z8 h" N3 w1 {% K2 e
                     RowBox[{"(",
    0 G4 M6 i7 G6 U6 O8 f- ~/ r4 i                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", 4 e  j" v5 {6 c, x: J- Q# @
                  "Delta"}], "]"}],
    ' j1 R0 ?2 t$ |4 P            RowBox[{"\[DifferentialD]", "x1"}],
      Q1 \  Q8 i, w# v. b. S            RowBox[{"\[DifferentialD]", "x2"}],
    + K7 @3 L1 \. Y: J; k            RowBox[{"\[DifferentialD]", "x3"}], 7 a# K' L- H" {( q: Y, t9 d( U
                RowBox[{"\[DifferentialD]", "x4"}],
    " O% r2 p+ `4 O9 l. R            RowBox[{"\[DifferentialD]", "x5"}], ) P) J4 d- T& Z* ]5 U
                RowBox[{"\[DifferentialD]", "x6"}], 3 @; |' E, z; t/ q0 H6 v: q7 B
                RowBox[{"\[DifferentialD]", "x7"}], ' `' R2 w. c, G; M" }
                RowBox[{"\[DifferentialD]", "x8"}],
    3 Q+ Z+ W& P% g9 I# a+ Y3 q4 |( S: d( S            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",2 r# {% @( A* R; d5 ?
    CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {! d9 f9 J7 y+ P) g( D7 }
       3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9, / I( ~- i7 N1 d& R% L" M6 F
       3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {
    " X; P. Y  }  B% C/ Y5 I* ~& s& |  j6 w   3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
    9 ]( t( j/ ~0 S4 H   3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {, C$ B) B# i9 X# F) \
       3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9, ! J2 F1 C- z/ A" j( b
       3.577918964453125*^9}}],4 }* k3 E) p+ b8 {& y, ~9 d6 s0 C

    , j; C5 o9 }' ~2 B! |# ]; T! i1 ACell[BoxData[
    ' i2 V7 _* s" @/ V RowBox[{"97.40909103400237`", " ", " @. q: [2 N% e' b
      SuperscriptBox["Delta", "8"], " ", ; F# |! |+ u8 q
      RowBox[{"If", "[",
    4 y( T1 j. ^* j& ?1 E   RowBox[{4 K0 ~* P4 O7 Q2 d. l1 W
        RowBox[{2 @; S. z0 j  \( K) D% x1 i5 U
         RowBox[{"Re", "[", ; F' _$ z  s- y
          SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
    - p9 y5 u( O+ E0 R    FractionBox[1 E0 V- Y- p1 Q2 p2 H; [( G- O
         RowBox[{"1.7724538509055159`", " ", : L" R4 T4 i+ B& x# U, z
          SuperscriptBox["\[ExponentialE]", ) `8 ], \( W  I! O, ~# l
           FractionBox["1.1102230246251565`*^-16",
    % y  N8 d/ F& Q3 a! f9 k! V* i        SuperscriptBox["Delta", "2"]]]}], 8 `( b0 s: A/ y( o
         SqrtBox[
    8 w, V# r  Y6 D8 p( u6 ]      FractionBox["1", " K, v, ]" c. @7 Z3 g$ g" M5 I
           SuperscriptBox["Delta", "2"]]]], ",", 7 l+ I* d0 a: u8 [4 C3 d% ~) Q6 y
        RowBox[{"Integrate", "[",
    7 I% K. l4 A2 M) L  d     RowBox[{" {* V) f- b- h7 z2 m! f
          SuperscriptBox["\[ExponentialE]",
    1 Q) `  m  k- S" b: L8 W       FractionBox[# i. r' d- e! ~" |( x
            RowBox[{"1.1102230246251565`*^-16", "-",
    1 i: d! ^% _. T6 l4 n% U2 f         RowBox[{"1.`", " ", / G1 p8 n- h- t& ~0 a. j% D8 {, x
              SuperscriptBox["x9", "2"]}]}],
    6 K  J% @* N' Q4 e        SuperscriptBox["Delta", "2"]]], ",",
    & g) t% p6 |( I* K7 B      RowBox[{"{",
    ; G6 `' k) H0 b1 l! W, p       RowBox[{"x9", ",", : B- `: j5 Z+ ]6 V0 D. @
            RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
    4 E5 l& y0 s4 b      RowBox[{"Assumptions", "\[Rule]",
    6 _6 S2 ]  B1 r+ i1 m8 b       RowBox[{9 s# ~- e; D+ {; h
            RowBox[{"Re", "[",
      O8 U# C- B4 ?1 z0 y' Z, M         SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
    ) @0 K3 y- R1 c" F6 C; @8 \     "]"}]}], "]"}]}]], "Output",9 u! s! P9 a' U
    CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9, 0 S0 s$ ^8 Q0 f+ A  Z+ ^0 m: }4 u
      3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9, $ w) n" Y  r0 q1 N" y' t
      3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,
    5 |9 C0 E! w4 V& o" y1 E9 Z  3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9,
    2 Y# y9 b/ G; j6 V  3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9, + V( z8 @: o0 h" X0 h8 r0 n
      3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9, ; L) d4 j) h5 ?/ N, W
      3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]
    7 v9 H: }8 {* Y2 q}, Open  ]],9 D! d  D4 [% m( g
    ; Q0 r/ z# V/ {. l+ ]9 a  [, o. D
    Cell[CellGroupData[{
    ' W/ S) [  a8 H/ O( V% P  L7 ^, q% n
    Cell[BoxData[3 j6 x# B! N% |' y* A# V% L
    RowBox[{"Delta1", "=", . a' G: U1 e* T. z" W& b7 J. t7 _
      StyleBox[
    3 b1 X7 g& \5 h% g4 w/ x7 z' ]3 w   RowBox[{"97.40909103400237`", " ",
    " A0 T2 _0 v9 f: p    SuperscriptBox["Delta", "8"], "  ", 2 b5 ]5 h* b1 S' [* d6 j0 P& S+ h0 y
        FractionBox[& q7 W* \& C* o" G0 g. W5 b1 |% w
         RowBox[{"1.7724538509055159`", " ",
    - h! X4 m7 |" V+ c: J. m      SuperscriptBox["\[ExponentialE]",
    ) L  G7 v' z% N! J, d. W  h! [       FractionBox["1.1102230246251565`*^-16",
    6 x$ B: V: U- M2 s1 [2 n1 V        SuperscriptBox["Delta", "2"]]]}],
    / V8 o3 f! k! h1 b     SqrtBox[/ S. ^' N# F" W% C- J5 e- J
          FractionBox["1", . R) T" T7 t7 c. p# Y& s
           SuperscriptBox["Delta", "2"]]]]}],7 A) \3 F4 @2 o
       FontWeight->"Plain"]}]], "Input",5 Q4 I5 ]  N+ t! N
    CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {0 _# r) `' }' U4 e0 [
       3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,
    8 y" w# S( [2 _, H   3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {+ C% f: [: ^5 H  R7 g5 Q
       3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9, 8 J- t" T3 r$ Y: z4 L( t
       3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},
    3 L8 x8 {6 v: D4 }) C, t. B: b9 |   3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],
    6 Z+ ?& o2 B* O, }; n
    " ~- p' q* i' {! `7 oCell[BoxData[" T  R. h2 G4 @' H4 B+ Q9 a
    FractionBox[
    ' m, p2 h/ s8 }8 M; H- L+ a  RowBox[{"172.65311851642346`", " ", & D' }5 W( C2 y2 J+ \6 h; V
       SuperscriptBox["Delta", "8"], " ",
    * w5 E- @" b( k   SuperscriptBox["\[ExponentialE]", 6 m+ z* f6 O) w7 K
        FractionBox["1.1102230246251565`*^-16",   O+ [2 S! f! m3 Y6 y
         SuperscriptBox["Delta", "2"]]]}],
    / U+ I( W; I+ x# n  SqrtBox[  K/ P9 R: m% [3 L" ?3 G
       FractionBox["1",
    , z# b: S; G+ i0 f& W0 d    SuperscriptBox["Delta", "2"]]]]], "Output",
    - L# L; |9 [7 [6 a9 l2 ^  _: | CellChangeTimes->{
    ( q# d8 O% J/ X& c6 I  3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9, ( u2 ?; f7 q( m
       3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
    - F* x6 y/ E, C% g( C   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
    9 Q5 D) W9 ^0 j2 ^+ u   3.578012166234375*^9}]
    7 a* L$ k7 R5 @6 F7 M0 w' M2 R}, Open  ]]," ?0 e; X  w# |* t: P

    2 W) y  q% `! J# F' A9 ACell[CellGroupData[{
    9 O7 J1 s" X0 U# p/ V2 j* Y6 X- B2 Z$ u
    + h' r- v8 W6 u* f* LCell[BoxData[
    4 ?- O: f( L) L- p7 [8 [" A RowBox[{"DeltaX", "=", # q1 v6 x9 M6 O$ Y( D9 w4 g1 y
      RowBox[{"FindRoot", "[",
    / c! K8 A& R* D5 q8 T4 N) A   RowBox[{6 s9 s/ M- r" S1 M6 J
        RowBox[{"Delta1", "\[Equal]", "1"}], ",", - |& P8 t1 E' |9 ?0 m. x% k7 X
        RowBox[{"{",
    3 L. D* W( Y7 W0 E7 l6 A- b     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",
    ) g4 c3 ?& z: i! n% G4 G CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {# Q$ |% i6 ^2 ?7 y- V, f- k2 X# K/ w8 H
       3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9, * n0 f8 s4 g/ v+ A+ G, j
       3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9, ; `: [* ~' p1 `4 u" Z0 k
       3.57791921584375*^9}}],# R8 w' O6 C- ?0 [4 j$ v
    " Q& e9 k! n; i7 [7 W6 v( q
    Cell[BoxData[" M3 g, @9 e% b  n3 s
    RowBox[{"{", " a9 I4 f1 K9 h3 B2 j) D( w
      RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
    $ Q# B: u) ~  p  V+ n0 { CellChangeTimes->{
    / _, F5 o' B$ E, q* _8 u  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
    3 ?: U$ v! R* F0 D! R   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9, 1 U( q% A% L. M. [
       3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9, : N/ d) @: s7 `7 ]+ f; u5 e  U
       3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9, ' H# j" E3 o# m0 q, t5 [* [
       3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
    # c5 ~3 Z0 F$ `   3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9, 3 x7 `9 N  U# d' `/ O' \6 [
       3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9, / u" E; L1 x0 T) N* k9 V3 Q
       3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
    . b  ?6 A3 Z& I# d2 {# f2 h   3.57796070150625*^9, 3.578012167703125*^9}]
    * A  A3 z7 C1 a7 ]1 a2 _}, Open  ]],# ~2 Z) R4 z* |
    2 S. g: S" W: z' r, g# V1 y( t
    Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\( T! N& Q' j! |" [- a/ x4 I
    \:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",0 C  I: M" j3 p, i* z' z: s6 H
    CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {+ R. o9 c* b( h# w/ B, o! Q' N
      3.577960705312657*^9, 3.577960707621461*^9}}],
    ! [5 ]! W) Y/ D. @: ^; W. Z9 h& [2 H! H7 M+ l5 F
    Cell[CellGroupData[{
    7 H' |/ F! t! N. q+ m+ `1 W" u$ j7 }# Y2 F; E" G- K: x
    Cell[BoxData[
    ! f6 D9 P" m6 S/ e0 y: z6 D RowBox[{"C1", "=", "Ca"}]], "Input",
    " u4 ~1 M& G- o& ` CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],! o! y& d7 C: Q2 ^+ X7 }

    ! t7 X; w# M0 T' Q, `) b6 |Cell[BoxData[; H& @5 N$ G+ R) _$ W& k
    RowBox[{"{", " M) r, z4 T9 E9 Q1 z5 b
      RowBox[{, G7 s: R9 D4 K; G& [
      "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
    ! b. n' R& ?7 D2 m1 ~   "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
    8 x( |. @1 W+ {6 i( g) p6 F7 b   "0.`"}], "}"}]], "Output",6 D3 W$ G$ g5 y4 |8 q2 m2 i
    CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9,   j; i  I$ ]) t0 L
      3.577960710273465*^9, 3.5780121855*^9}]/ N5 v; X& N8 o8 u
    }, Open  ]],
    % D8 ]3 M: h* c6 q' n3 m" n1 R  ^& d: S7 |* e
    Cell[CellGroupData[{
    $ Y* N& {+ v5 l% R/ R% Y, w. R' l* [/ \
    Cell[BoxData[
    , G$ J2 N- q* z) f5 X9 N7 D, \( x RowBox[{"u1", "=",
    . `% U* x$ X% ^& Z# O  RowBox[{
    ; R  N# M1 _, D% p   RowBox[{"Exp", "[",
    . {% `7 R% x. ]1 C& v: v    RowBox[{. N9 K/ K5 x5 f3 x9 N8 b* B
         RowBox[{  z1 U' q" y* ?1 X
          RowBox[{"-",
    / C7 C# \4 \( {7 a0 ~       RowBox[{
    0 _6 h$ j# W# I        RowBox[{"(",
    2 k# E! l% W. R8 ~$ l. x         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    0 ^& Q' @/ B) V  v$ \' k6 Q  ~        RowBox[{"(", , I- Z  Q4 m9 T+ E( T
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    5 Z) k: p/ m$ E) |     "]"}], "/.", "DeltaX"}]}]], "Input",
    ( w' B& i* l4 X6 O; _ CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {
    7 H& V5 s* c0 j. L  u& \   3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {
    - k( l6 V% j6 t. U4 S! q' e   3.577919193484375*^9, 3.5779192326875*^9}}],9 q0 C0 R; \% @* C$ @$ \
    * k- r8 F% O+ z; e9 e" p* R
    Cell[BoxData[- E& |" n" ?6 W( J" q
    SuperscriptBox["\[ExponentialE]",
    5 K! v! i% O% }* r$ O* a! F5 [4 d  RowBox[{"3.141592653589793`", " ",
    . h1 X; x6 e  S' ?   RowBox[{"(",
    1 i" D' q* \# ?    RowBox[{- L2 H0 h6 l( V, a
         RowBox[{"-", 7 t8 b9 s; E7 j0 Z; T; A
          SuperscriptBox[" w$ K# p$ A: d
           RowBox[{"(", # S' u  M4 y2 b* s0 Y- c
            RowBox[{+ q. o$ o/ R! i# O9 U1 ]
             RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
    0 v' N! T. L) z/ B% ^# }& g+ w     SuperscriptBox[
    2 n+ z" L/ ?: y      RowBox[{"(",
      a3 x: g5 x  Q       RowBox[{4 R* Q; v6 M# C; W+ s# G
            RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", 2 A# Z: |4 p0 V" x0 s: h
         SuperscriptBox[, {6 Z- D0 v1 y9 _4 `& X8 O, J
          RowBox[{"(", $ m* ~# l  t! T& l
           RowBox[{8 o# V5 |1 C+ e/ v- I3 T- g
            RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
    + K7 T" }' i# p9 P     SuperscriptBox[5 n. }( s7 R4 D! j& K
          RowBox[{"(", % g1 ]4 ?+ k2 Q! S3 y# a4 `( ^
           RowBox[{
    - ]2 T4 V6 F; S+ O+ k6 }5 u        RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", * L. W- O0 M$ w3 @# c
         SuperscriptBox[9 n1 D/ D' _8 r1 K
          RowBox[{"(",
    * s; t0 c, |" M4 n       RowBox[{
    * U# m: P* `2 N1 ]+ [, j        RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-", : O: v  F# g! ?9 w" J& S4 W8 o
         SuperscriptBox[
    8 _1 {1 W7 q: P, R      RowBox[{"(", / e) W) h+ N+ i7 }' B( t
           RowBox[{
    " Q1 t9 g" s! g2 r$ G7 W* z        RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
    5 K' ?3 B% D! [% F( ?  V     SuperscriptBox[
    , f, |6 p4 W- [7 E! e      RowBox[{"(", 6 [, q6 O# v4 ?0 {( F$ E( P
           RowBox[{
    9 E5 j1 t) {2 N$ E        RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", * g7 |: g8 x6 k
         SuperscriptBox[& H" i- r8 z: B1 A2 x  |( c  P
          RowBox[{"(", : k  a9 Y/ g  V! X" `2 l" j
           RowBox[{/ I+ N) E: h8 x& ^. \
            RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", 1 @4 ^4 [3 c1 W1 S
         SuperscriptBox[
    ( h& ^+ K# V5 c/ J      RowBox[{"(",
    5 H0 M9 R. t. s; @/ j) D( ?- s       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ( H' }$ U& C/ J* k
        ")"}]}]]], "Output",
    # }8 g; _# V+ w& G5 w1 @ CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
    , ]" i! Z5 t2 f/ }  3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9, 1 b3 y1 H3 M3 L; Q" i4 i9 b" Q) S9 Y$ h
      3.578012187078125*^9}]( f8 k2 \- C8 n) {' T; m$ }2 i4 ]! `
    }, Open  ]],
    8 s3 |( T0 `; F4 E: _
    ( j5 `8 k+ d+ C. A' [. }Cell[CellGroupData[{
    2 _4 ]* ]4 I! c0 C! A$ `& O& q% k/ t2 I: U( ?% n) Y' D
    Cell[BoxData[6 n9 L, @; ]3 o6 `, [, o- q' a
    RowBox[{"C2", "=", "Ca"}]], "Input",; M( }+ W4 B( D) z9 F1 V
    CellChangeTimes->{3.57792047321875*^9}],
    : O9 P. e  Y( g6 ]  }+ B( W: ]1 ]: B, F( o0 p4 u
    Cell[BoxData[
    / ^/ J3 v, s) Y1 A7 ?/ @0 M RowBox[{"{", % L  {1 G" ^, ]3 G3 A
      RowBox[{: F# U  V; Z0 K7 ^% t. d8 b2 {- O8 o
      "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",", / B( ^7 w+ J8 I9 ]6 ^
       "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}],
    # Z5 I6 B4 |9 U, s  "}"}]], "Output",
    & @  W5 a: N9 } CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
    . q& n' H5 b: }& s; t% f* R  3.5779607401163173`*^9, 3.578012204671875*^9}]; G5 {0 x. e+ j2 L0 o) [# \
    }, Open  ]],
    2 }0 `0 O2 ]5 W, m: h) C' [
    ; g$ p* o  I: a4 oCell[CellGroupData[{
    0 q3 h5 L5 z4 w5 p( k1 N2 K5 P7 J( L
    * O! o- |+ n: b" Y! b7 PCell[BoxData[; d. l" Y8 j# [+ D) q
    RowBox[{"u2", "=",
    ) M: M) m, e) c  RowBox[{( E( G$ U( H: `3 q
       RowBox[{"Exp", "[", 4 e, M8 @. S7 a( ~1 L! Z- ]. U4 @) T
        RowBox[{3 \& m6 v! Q: _# R1 R. K8 l1 W
         RowBox[{
    , W9 P6 J; K9 L7 C1 e; `# h" F      RowBox[{"-",
    9 i6 R, q6 U) C6 \       RowBox[{3 ^5 l3 F! N+ _3 ^
            RowBox[{"(", % b! M' f0 k# ^
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", * G; \" P9 K+ i, ^2 d' {, N! p# I
            RowBox[{"(",
    & o$ |; V0 C/ c) f6 ]% o         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],2 o% M# f: Y; Y, t4 A% Q
         "]"}], "/.", "DeltaX"}]}]], "Input",
    . U. M7 o3 ?! {* M, {0 M+ J+ x CellChangeTimes->{3.577920484109375*^9}],6 I* l* m" ^5 Z

    . v( m- i  s' ]$ U$ {Cell[BoxData[- j$ R! Y$ C7 L. o$ G1 V
    SuperscriptBox["\[ExponentialE]", . [  l- Z2 f$ Z6 W  \
      RowBox[{"3.141592653589793`", " ",
    4 v/ X8 }4 h! O- e* j   RowBox[{"(",   ]; \% v  |5 ?9 g5 r
        RowBox[{( {: |7 G! r' v- {! \3 N; {
         RowBox[{"-",
    5 p9 E6 |) t# r- `4 H; X6 t; L1 O2 a      SuperscriptBox[4 s+ H& G  K. G$ W4 x. k( ]
           RowBox[{"(",
    : \* m$ @+ X+ P3 P1 S# n; i$ S        RowBox[{
    $ }/ y: \, `2 w/ E/ \: N( O. `         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
    + H( }- T- T& g/ T2 T( n& Z     SuperscriptBox[
    / U' R# C1 r& u5 @; F* i      RowBox[{"(",
    # h) z3 E2 A2 Y1 d: }& j1 b       RowBox[{6 D& P8 A) r. b7 p; k6 z- v
            RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
    ( x+ M3 K- p0 A- B     SuperscriptBox[
    # Y  b0 v5 a0 J2 G      RowBox[{"(", * ]; L/ m& E7 }- j1 R8 i
           RowBox[{- I2 I+ z# C7 q) t2 ]9 O" [
            RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
    1 V$ j  C8 i  q- [- w" D0 M) M/ r     SuperscriptBox[
    # ^, ]* a, L& K! {4 U" s      RowBox[{"(", # r1 S* }' L4 C, I! R
           RowBox[{& t" M0 c5 _6 Z9 C1 w( H) ]
            RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-", 8 `3 q- z' v5 Q
         SuperscriptBox[
    ' U2 g* [, p# q7 M      RowBox[{"(", ( w4 [* b( ?1 S4 A7 k4 v
           RowBox[{
    & Z- \1 F5 c4 j0 t        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    - W5 x" }. Q2 n8 i' P: H     SuperscriptBox[
    8 Y3 y5 [- G% S, x      RowBox[{"(",
    + d2 R: K+ @9 _7 _8 Y       RowBox[{/ S  f2 e" z; Q
            RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
      j8 H5 U$ j) q; e5 ?, s     SuperscriptBox[5 E3 R# m" {$ a$ d+ ^! m* o/ J
          RowBox[{"(",
    , t( ]1 u3 Z! m8 f( H       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    # q$ `+ I2 @' n( h$ F     SuperscriptBox[$ `% Y3 A3 b1 o! I
          RowBox[{"(",
    , ~% o! q, p/ b6 \, ^5 A% X       RowBox[{( p' i- z2 Q* c5 l' g
            RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
      I6 x; l) Q. I6 o# I     SuperscriptBox[2 ]8 p: g  r0 C: B
          RowBox[{"(", 7 O; d0 C' {  k% G- r5 ]7 i6 a
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 4 T9 X$ ]) j1 l# u" {# t
        ")"}]}]]], "Output",% n* T" W4 H, n& L
    CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9, $ o, |; C/ F/ ?& M+ [( ?) t' R" K
      3.5779607413955193`*^9, 3.578012205484375*^9}]
    4 t. C8 m8 g# ^' ]4 j% |7 K}, Open  ]],. i  ~4 t! \1 P3 Y3 W; V! t
    1 ]1 P7 Q. T7 T& d% n7 X( l% z6 F
    Cell[CellGroupData[{% W3 }5 t" b4 R7 @* {
    3 O9 C) u; Q. ]/ |" b, a) k* Y" s
    Cell[BoxData[
    / }3 t, |: a  }( T- u RowBox[{"C3", "=", "Ca"}]], "Input",) J: l  D$ {4 v7 e6 d$ @  D
    CellChangeTimes->{3.57792064125*^9}],
    % S2 K8 V7 D+ r% U- |
    7 W7 c. Y5 Z, ], @# e& k% E. P% qCell[BoxData[* \2 g! k# [9 O7 ~2 W& G
    RowBox[{"{",
    0 t! Z9 Y7 ^. P# y/ i# u% i$ y  RowBox[{1 d/ G! s4 t7 y% c6 i3 i: j
      "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
    7 n7 F$ [: m3 c, a+ [, H3 }   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
    . L7 Z' v) l( j+ T$ {  "}"}]], "Output",
    7 u8 R' O! a  ^- m( e CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9, ' I  _" N/ @& ~7 c5 k
      3.5779607642027593`*^9, 3.5780122103125*^9}]
    " ^5 P: E$ `3 ^+ s}, Open  ]],  V  k5 \' y: k
    & \3 D3 c" j! [! c) G
    Cell[CellGroupData[{
    3 b& q: ]9 A# {. N; o
    * }9 n7 Y' O: A  R- }Cell[BoxData[
    / |4 L: N+ s2 E RowBox[{"u3", "=",
    % [6 p" s3 l# t7 y3 w4 Y  RowBox[{7 y* b: x% @+ f$ F3 a
       RowBox[{"Exp", "[",
    - h9 f" ~9 I' z8 j$ ^  ?    RowBox[{. Q9 \" G  Z+ t+ S# ?9 u" t% `
         RowBox[{* z$ Z+ F2 f: d: K) e" u) q( {  J
          RowBox[{"-", ) Y0 m! q+ z7 x1 m9 H
           RowBox[{7 v$ h$ `; j$ K5 y; X% N
            RowBox[{"(",
    ! {. h+ z9 k& b  Q  h         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 8 I0 s8 ]* H8 u6 ^' D5 R$ H
            RowBox[{"(", 2 R4 `) U& @& v7 e+ o# |! V7 @* x
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],2 q/ T% D0 O3 a' E2 h
         "]"}], "/.", "DeltaX"}]}]], "Input",
    8 _/ |% O, W2 c" o CellChangeTimes->{3.57792064921875*^9}],* o( A+ a3 k1 r# {: z. l

    * m% o/ Q/ U1 T4 R5 U' s2 c( w9 hCell[BoxData[2 P$ L1 y' L- C$ Z, ?, w
    SuperscriptBox["\[ExponentialE]", 1 ^1 O1 X* M0 p4 B) L+ m6 q# H
      RowBox[{"3.141592653589793`", " ",
    " X5 X" k' a1 x2 T  L   RowBox[{"(",
    ' ~3 b0 K. i& o% r0 j) f    RowBox[{  |7 ?7 W/ v' m
         RowBox[{"-",
    2 v! ?( f% [$ u# q' Q      SuperscriptBox[
    ( a5 U& Q+ [1 v       RowBox[{"(", 4 A- l# _" `0 o6 e* L$ Z5 J* m" M
            RowBox[{: v$ Z' S8 `$ J( R
             RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", ( n! Y, Z. e" I; E/ M
         SuperscriptBox[: N" t+ F6 H' r" x
          RowBox[{"(",
    1 t! F, e6 k) x! e8 ^4 N; F" x       RowBox[{. \; J; I9 P. b0 a0 u
            RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-", " S. j  ^4 t* f$ x
         SuperscriptBox[
    $ A/ I2 Q* ~9 T      RowBox[{"(",
    : g' n. I4 d1 N" Z: w, {- x8 q* S! U       RowBox[{
    & e/ U/ l: J4 g" d- B$ g4 B0 q        RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", $ u: [. @6 t3 l7 e8 V1 Y
         SuperscriptBox[
      @# N: R0 ?: `7 }" S8 Z2 @      RowBox[{"(", ! I7 O6 }( e: B: ~* ~6 Y1 {
           RowBox[{- @+ v+ ]% q$ N) |
            RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", , S1 R' s- k' l: J
         SuperscriptBox[# q( M0 }7 l% c
          RowBox[{"(", & H7 Q8 j4 a3 A0 H3 W2 G
           RowBox[{4 v- P/ X0 ?9 l( C+ S4 h+ O# L
            RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-", ; p% i! n) L! |/ ?  v. a4 q
         SuperscriptBox[
    $ _( P+ a7 [/ L      RowBox[{"(", 2 K9 Z3 x3 N, C5 {6 {
           RowBox[{
    4 n2 g7 N6 z0 y6 C$ G        RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", 3 x" h, W  o8 {2 J/ \4 d
         SuperscriptBox[% b! Z  Q# o& b
          RowBox[{"(",
    & O5 W) z3 N% Q( _4 @9 g       RowBox[{0 }% n. i$ A' O' ?- K. u0 z: k9 }
            RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
    ( E/ t3 J8 f1 l# R; D     SuperscriptBox[
    1 y2 V0 D8 _9 ?2 i$ g1 n, B      RowBox[{"(", 4 D' G: ?% G  h4 o0 x
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ; t& K% `' L3 E7 p4 a4 \     SuperscriptBox[
    6 d# T0 u* W9 S3 i  X. I      RowBox[{"(",
    : ]  g1 }. F) S0 D! P8 g: t       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ) C4 O9 l/ |+ M. i7 M5 R4 C- ?& i
        ")"}]}]]], "Output",
    5 m( B3 H9 N" t' A( J CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9, 5 p! P5 G% H+ o9 ?3 R8 C. }
      3.5779607654819613`*^9, 3.578012211515625*^9}]- r4 k$ u8 P$ K/ D: w
    }, Open  ]],8 _) S1 g2 G# y

    ! _) _2 g) }5 I/ eCell[CellGroupData[{
    1 ?/ ]' x0 q  G' l8 K; B0 V1 S* i: ?
    ' T* a3 D5 h/ P$ GCell[BoxData[
    2 n" j. Y4 J3 b  A1 L3 X# x RowBox[{"C4", "=", "Ca"}]], "Input",
    1 }1 a$ ]0 F9 o CellChangeTimes->{3.5779207559375*^9}],: r  R7 `, G0 ]4 X+ `
    - A; }4 ~6 H8 x4 x
    Cell[BoxData[& |, l9 \0 |' z; a' @
    RowBox[{"{", 3 R! p# M- Y1 g( b0 B9 ^' D
      RowBox[{, c; Q0 v; i( \4 V8 K0 l* u
      "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
    5 U' ?! l# Q* Y% a9 d   "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}],
    % V; h  ?3 l- W* P% ^  "}"}]], "Output",
    4 d6 z0 z% j/ ? CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,   F' W# \% X! U# |  N
      3.5779607861363974`*^9, 3.578012216171875*^9}]
    , d4 M# `. M1 U2 q}, Open  ]],
    6 ^: f! |- o/ k$ N. \/ h( n) V
    9 k! Q4 B9 n5 M  [1 mCell[CellGroupData[{' w9 ~/ {2 U# b7 |/ @4 Q
    ( H1 w* ^( D$ R* g" V$ t8 {) {' s
    Cell[BoxData[
    / S( S0 `8 o' a* g RowBox[{"u4", "=", 3 F- t' v+ S. H+ O; \; E& T
      RowBox[{5 ]9 p- o" j, `( h' @
       RowBox[{"Exp", "[",
    : o4 P+ k* x! {/ P7 m% y    RowBox[{, L) ]6 \' S( w
         RowBox[{
    7 A: [) n9 |8 `# ^8 G) [( Y      RowBox[{"-",
    ( ]) q; z( s1 W1 D       RowBox[{
    ( g& C; i  T. h        RowBox[{"(", 3 f4 S0 {5 {5 m; g
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
      U% d3 e. `6 K& u; y! ~: N) w        RowBox[{"(",
    2 S2 j3 h8 u! |         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ' D8 W" t4 ?( p     "]"}], "/.", "DeltaX"}]}]], "Input",* o6 J; ]9 Q; _3 y9 e8 N4 ~
    CellChangeTimes->{3.57792076325*^9}],8 c. m  j$ J( S9 q% N$ g6 V- q" Q

    " A  j% Y: d7 Q1 Z2 ~* WCell[BoxData[
    . S0 I4 B  q8 w. _0 X  Z" \- Q4 ] SuperscriptBox["\[ExponentialE]", & X0 |9 O! u- `# z5 m: d0 F" ?% [
      RowBox[{"3.141592653589793`", " ", 5 c( e6 Q: V, {2 \, p/ l
       RowBox[{"(", ; n% D" c* B4 L) j. [1 |
        RowBox[{
    $ `) G8 c; t0 ~* g; L     RowBox[{"-", # F2 U' D" _. J
          SuperscriptBox[' e# v# e8 R/ z) O. q% M' E
           RowBox[{"(", 5 v& ]' N1 z! w' Y7 C8 g( b
            RowBox[{3 |1 K8 V3 ?1 W5 @) h- P) d. o
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    # }# K. c: R: V1 U# v! F* s     SuperscriptBox[; o* H  A1 M1 W. y$ z
          RowBox[{"(", . ^, @8 X  R' a5 D$ x
           RowBox[{
    ; D9 w$ T6 `, }, A7 s; w        RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
    / s  l5 _% u' s     SuperscriptBox[" w1 m! H" Y4 h  Z
          RowBox[{"(",
    ) S$ U' G- D$ l5 H2 y0 _( s1 Q       RowBox[{
    0 U" ~: ~. H3 _/ v        RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", + G" z5 ]( n/ T3 B4 p
         SuperscriptBox[
    ; @3 L  C- C6 C0 a4 P, r0 T. f      RowBox[{"(", ; _7 _) ^! n8 A5 l, \
           RowBox[{0 n& s; Z' @  g0 q5 {8 h
            RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
    + Z0 h1 W* M( G4 o0 n4 N9 c     SuperscriptBox[% Q% b1 M1 |" V7 }# M  a, V1 C( Q
          RowBox[{"(",
    # c6 O1 v5 y' t) ^0 k7 @! F% |       RowBox[{$ ?( G8 m! L+ [8 o4 O& Z
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    # k/ F, v$ u4 d' K/ I8 }; w( e     SuperscriptBox[
    3 v% _. K: H2 F. S) {  S      RowBox[{"(",
    $ d) F3 ]! z3 |. Z' ]5 x" r       RowBox[{) g! u# P8 t# m5 c. `! \  z) b# q: t% O
            RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", 8 l, C0 u+ ]$ s8 E4 R
         SuperscriptBox[
    4 x: F: }) X0 K9 }) q; e# z! G      RowBox[{"(",
    8 B; M  f0 W( l. X, f       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
      l' W/ B& P$ J3 T     SuperscriptBox[
    7 Y3 e, g/ [6 N5 C2 J! F      RowBox[{"(", , L" R$ y7 c  V
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    2 N/ g- R( l% ?$ p     SuperscriptBox[- R; t& n+ }- O8 Y: F$ x* W
          RowBox[{"(",
    # v- f5 A5 S2 X- K; ]2 N) h       RowBox[{
    - |& A9 u" c* |7 }        RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}],
    ; k; m, Q; i) g& `    ")"}]}]]], "Output",) L- D! g% n8 t9 P( E
    CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,
    6 ]# c* Q  a2 E7 q% M0 c3 \2 A  3.5779607873531995`*^9, 3.5780122169375*^9}]
    7 g/ z, `+ l" K+ y9 M}, Open  ]],
    : W: _& r: s( k/ v; }6 ?
    + v2 i+ y' l0 i' Q) N5 F; QCell[CellGroupData[{
    ' O+ {( ]1 }( _  b
    . ~" F( Y1 K; YCell[BoxData[1 ]+ Y- E) C  s4 K% ?* K8 E7 N
    RowBox[{"C5", "=", "Ca"}]], "Input",  N, x! W* g/ F
    CellChangeTimes->{3.577920860671875*^9}],
    . v/ S1 r7 x4 o2 V' w- t( X; S5 q: s* H. d  V$ |
    Cell[BoxData[
    0 X- M& C4 R  \2 t* C. b. ~ RowBox[{"{", : g( Q8 m8 l( y2 g# M# l
      RowBox[{+ c4 g1 t* t% g# m
      "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",", & @; A) }8 p( x3 b  j
       "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}], : }/ V$ |7 Z, D1 Z, k- v
      "}"}]], "Output",) H: v& V9 ?1 f1 i" p
    CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9, % z1 d; ~' P! L( c$ s( U- t8 n
      3.5779608137328453`*^9, 3.5780122209375*^9}]
    9 O4 e; e- u" c& v5 g1 t}, Open  ]],
    " W+ v, e  o  y: `' g3 T: A1 j' w: W" O, g( x: B  {
    Cell[CellGroupData[{3 J- {. L6 t7 ?3 _2 L. w9 F' H! u

    ' V( v: |- J- SCell[BoxData[
    ' ^/ o3 M( J& t) A, |, s" c) | RowBox[{"u5", "=",
    ! q3 }+ o$ ^2 f0 y# S  RowBox[{
    # ~- g% |0 {; j   RowBox[{"Exp", "[",
    6 N6 M" C" N8 _. [0 f    RowBox[{
    ) k' D: \. r$ f9 b6 l: ~) w     RowBox[{% M$ C. c3 }4 \  H1 c3 a: T
          RowBox[{"-",
    1 f% ^* q# s9 T: d7 B       RowBox[{/ F2 v) E% b6 e
            RowBox[{"(",
    7 Z' q. l- y* ?% B$ `6 Z; X         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 2 q2 H  l+ `8 `# A- x; `4 b% H
            RowBox[{"(", $ y8 r) a0 |, [, J3 J' h1 ]# e8 O
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],2 f5 N$ t- d" Q; K1 ~
         "]"}], "/.", "DeltaX"}]}]], "Input",
    ( }# G8 F! j' b6 w1 R5 w, {8 y CellChangeTimes->{3.577920869375*^9}],
    ; [+ n: U& O* p% P/ J* \/ ]# I5 A  |  f+ k7 I
    Cell[BoxData[4 [- ]$ p- e7 l$ w' w4 j  M& \8 S
    SuperscriptBox["\[ExponentialE]", / F0 o1 {  j. a$ E: C
      RowBox[{"3.141592653589793`", " ",
    * _) ]- T% s- \6 Z8 C3 o   RowBox[{"(",
    3 r2 b0 h/ N  H7 i7 ^( X* x4 Q    RowBox[{
    9 ?6 _0 T: G) r) k/ |     RowBox[{"-", 6 f( U  j; z. x5 j$ n9 ~
          SuperscriptBox[
    6 r& v7 w% I; z' o% b& D6 q       RowBox[{"(",
    8 ^# Y8 b6 W3 f  p( i4 j8 z" e        RowBox[{& r: A3 [+ w  |8 g  P
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    * p6 X, k1 p( o     SuperscriptBox[
    " i+ u" Z2 _, B      RowBox[{"(",
    / b$ E0 |. \  G" S3 K       RowBox[{
    ; M! S. T, d3 M4 K1 \        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-", 7 t1 O; k/ e! j$ D0 T& @
         SuperscriptBox[
    3 `% q4 v( r! Z+ @9 X      RowBox[{"(", / I6 C9 I  T' a4 I
           RowBox[{
    3 o; _, j+ c. w, d# x) }        RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
    1 {0 A' X% f# _+ ], t# {" _     SuperscriptBox[
      U4 n% _6 Z1 e# F3 E: n/ A      RowBox[{"(", ' z8 O5 |( m  V% ~$ f
           RowBox[{
    & Z0 }0 G+ W$ n" M) H        RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-", 5 S. n6 W% W( ^, A) u
         SuperscriptBox[8 J! j$ w1 J: [; }2 v
          RowBox[{"(", 4 S$ y& S8 \* A
           RowBox[{
    3 T$ y! h- z5 T9 T6 d+ {" ?5 b        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", % G9 i  A4 {4 B0 i
         SuperscriptBox[
    7 S, a# Q3 K$ ~3 l! K      RowBox[{"(",
    0 ], D3 k* L' b8 I6 f       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", : i! N/ A8 m4 t. w, C7 w
         SuperscriptBox[9 ?5 I3 l8 h+ u7 x
          RowBox[{"(", ! z4 W# k+ f) N% \* a7 v: T) M
           RowBox[{5 @) P- N0 `; h# @
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", * E2 j5 g, y  w& c/ V4 t. W' c" n& k
         SuperscriptBox[
    / u5 t# J. v- w& E4 H( h/ b+ r3 d2 B      RowBox[{"(", 8 \( f6 h: N( G
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ) b' ]; T! c$ I8 j     SuperscriptBox[$ u; ?! c. L6 o6 z6 a1 U1 Y+ f
          RowBox[{"(",
      \0 a- H4 L) e  M/ U       RowBox[{' |2 v; N; G1 _, }5 B, b- I
            RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
    8 r4 X2 i8 T" b0 |: L    ")"}]}]]], "Output",. N% X) [1 U- i' v9 L& \  t6 ^8 s
    CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
    1 z- z- G' M- c$ a* G( y  3.577960815043248*^9, 3.578012221953125*^9}]/ k0 F9 M7 X! @
    }, Open  ]],5 K5 Y- u. c/ g* M

    ' U& d) N* P% oCell[CellGroupData[{
    ' S' |2 ]: _& C+ Q7 _0 X5 E
      }& `1 R: e/ Q, DCell[BoxData[3 ?0 I$ V, P, _. Q  c
    RowBox[{"C6", "=", "Ca"}]], "Input",
    , J) B5 q4 o7 b CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],
    1 j. l7 k( U6 s: s9 M. C4 y3 ^2 V0 ]7 U
    Cell[BoxData[. s5 J" _: N& F! g9 \9 O( y9 W- ?
    RowBox[{"{",
    % ~. [7 ~( o$ w% b' f2 X  RowBox[{8 d$ Q* |+ \  x7 l2 C/ M$ i
      "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",   `3 \! m/ d$ Y6 T
       "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
    % `: z8 b+ S: ?) O. _4 C   "0.494866`"}], "}"}]], "Output",
    & J$ D) |8 x- D+ ~& V; ] CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,& _3 s+ {& n7 l: q
       3.5779608373044868`*^9, 3.578012227359375*^9}]
    ' T6 ]( i' a: F4 ^' G) y}, Open  ]],7 M5 l, w' w" Y6 t
    : L2 r( z) C0 Q6 C5 Z
    Cell[CellGroupData[{
    2 n$ P6 ]" d9 u. J( c+ m" l7 `
    * M$ e+ S- m2 f* g% ACell[BoxData[
    ! L7 U: E: z! l$ {8 d5 G9 r/ o  m) N$ M RowBox[{"u6", "=", 2 p8 {# {6 Q1 j8 i5 ?
      RowBox[{
    ' F' @/ z5 Z  U+ ^   RowBox[{"Exp", "[", ' E& f9 n6 G( O
        RowBox[{: P& O9 ^4 C  e8 s7 z, m" r8 R
         RowBox[{7 E' R. d. i. U
          RowBox[{"-", . N2 n1 `; @8 Q! q5 y
           RowBox[{
    * [# G- L4 P, q% q5 ]' v( Z+ u        RowBox[{"(",
    0 P5 [6 w% q1 X& ~+ ~         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 E" x& O& T- t) _, T
            RowBox[{"(",
    ; _# M" F# `0 |         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    , t" l4 Y+ C* r0 J     "]"}], "/.", "DeltaX"}]}]], "Input",- y0 l2 ~8 G7 y  \% U1 D$ y0 R
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],
    2 }8 c5 r1 h; z3 y$ z
      l8 Y+ e! w" C# Z& F: dCell[BoxData[) P! }7 o! F1 Q; S6 i1 y- [$ Z
    SuperscriptBox["\[ExponentialE]", 3 I4 k# {, Y7 k
      RowBox[{"3.141592653589793`", " ", ' o8 D# R9 t: \! a
       RowBox[{"(", 2 {9 e' s& X3 S/ {2 Q
        RowBox[{9 M6 K, D7 a0 |5 ], A
         RowBox[{"-",
      ?& G* i, U3 o  d" l( J% b3 w4 j- W+ @      SuperscriptBox[: E2 O/ R! x) Z
           RowBox[{"(",
    7 X) h( s# S2 Z  {! S' g$ ]        RowBox[{- f8 _4 `* @, O/ A0 E8 X
             RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
    * r9 z1 c4 B, h. }6 ]     SuperscriptBox[& v& @( A+ d$ z, h) g  }( m4 L
          RowBox[{"(", 3 O1 m; f% d0 }) ?8 V0 U, L
           RowBox[{8 I* D  \/ ^/ d/ e) R) `
            RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", 0 f8 K6 c! ~" i$ `" U2 |/ Z
         SuperscriptBox[
    . G8 `6 H: F6 e) p  m      RowBox[{"(", * M4 U! G  M1 x% W1 I3 ?$ x
           RowBox[{0 n5 M$ C% I9 l' P6 ~# |1 A
            RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", 5 T( n- j0 T3 N8 w0 X% ~% X
         SuperscriptBox[. F1 R: @2 a# l8 L0 E
          RowBox[{"(",
    ' k+ V3 C( V! `4 S/ o; K, \" u+ S7 o       RowBox[{
    9 c8 A* o9 C& ^9 [4 J$ ?" ~        RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
    0 v- f' g% X! V0 F* y& c     SuperscriptBox[
    + ^: y* [3 ~& P7 ~( M& ?# O      RowBox[{"(", ! s) @7 Z& G/ P
           RowBox[{$ R- F. u$ l- o- C
            RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
    ' L$ S# R2 C7 j     SuperscriptBox[1 l; ~6 M9 H# N( V/ C0 Z/ I
          RowBox[{"(", " L# Q) ^& ^+ e, f/ x. a8 X
           RowBox[{9 N4 g6 {8 g# }1 i2 c  {8 T% G
            RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
    4 q0 U4 Y* i1 F* }7 }     SuperscriptBox[
    / Q. _) z9 @7 J: B7 M, ^! g' s      RowBox[{"(",
    / |+ v; A! X$ d6 G       RowBox[{
    3 s% B- o! _- R1 J' k, d        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", / ]) g! j* Y1 G/ Y( s$ s
         SuperscriptBox[; I8 G8 A8 ^" X
          RowBox[{"(", ' r1 J+ v6 T' f/ s' R5 [
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",   b4 Q- z2 u& V
         SuperscriptBox[
    : Y9 j( P, l1 ]' Q, d# I4 F      RowBox[{"(",
    8 V9 u! c( R, d6 ]6 r       RowBox[{0 P2 T$ [* y6 m6 B) r
            RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], / a9 Q! Q2 Y$ t% t2 u. }# q8 T/ C
        ")"}]}]]], "Output",
    ; N1 O8 ]1 C' x6 l CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,   ^1 u( H( u6 |; v  }- b
      3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
    ( a; K, g% |2 O1 D" R$ E8 T}, Open  ]],6 M4 t' g& o1 L! U  ], J

    . c, F7 ^0 V. ~3 G9 SCell[CellGroupData[{* f5 p. O. P; E& `7 P7 h, l4 o0 I. i
    ( E! E: v" @# \  N7 O: f3 a
    Cell[BoxData[4 J9 D# w; z1 j  N" \$ N' T8 e
    RowBox[{"C7", "=", "Ca"}]], "Input",
    3 n( r' ]9 ]# Z CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    0 Q# p2 s* G6 `  3.577921316125*^9}],1 o6 P+ _9 t  ]5 M
    ! T  s( b7 V0 w( a
    Cell[BoxData[) B9 Y9 |. a* X
    RowBox[{"{", 1 [3 ~' s6 N% Q' g
      RowBox[{
    - H: y* R" e* d# {& r9 R& x4 g  "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",", ) }- G1 }) i+ S5 j! D: ?* J7 _
       "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}], ( N; B/ a( |9 N% c
      "}"}]], "Output",
      O, Z9 p0 J: _# P6 I CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    ( x- Y7 i9 B1 y0 L* ^' [4 K  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]7 \7 ^( `( M0 c6 ?  E
    }, Open  ]],! W" _  f6 Y9 Q* O7 Y2 \) p+ _

    8 A5 W; o& Y# K/ DCell[CellGroupData[{
    4 S9 O) Q+ Z  i& H8 I! g! g3 t8 L7 Y5 Y0 ^" N
    Cell[BoxData[6 I  j0 o$ \5 ^& ~8 a  H7 ~
    RowBox[{"u7", "=",
    ; P% W7 }1 Q) k7 e4 R; ?6 M2 p  RowBox[{
    7 |( }, c: e0 ^+ C0 E8 P$ w4 c   RowBox[{"Exp", "[", 5 f- y% y5 y# A
        RowBox[{5 r% x( C& P9 ~( u* T* {6 [
         RowBox[{
    & Z8 U9 H! F8 ^  I  V      RowBox[{"-", 4 g+ T( V% C* \  Y8 I* O* z
           RowBox[{
    , f: z+ j, Q) C0 e        RowBox[{"(", . G* q2 ?) R( ]1 U  o5 w
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ( W' ~  A  ^8 ^8 U5 S8 X6 w, V  B
            RowBox[{"(",
    . }% a$ i& v0 ^* M, z  b         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],7 c2 S, r9 s( m  l9 p) t9 \% @0 _
         "]"}], "/.", "DeltaX"}]}]], "Input",+ ~/ ^2 f) X- j$ C6 i$ v7 C
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, 3 U( v- v; \% E8 W; c: _: I: ^
      3.57792132028125*^9}],, d( d& m) I7 X+ ?- _6 W/ [) s

    6 o1 i" W. o/ J% ?4 a4 K3 d( P4 pCell[BoxData[* B4 D4 O) F0 h9 y0 c3 B
    SuperscriptBox["\[ExponentialE]", ) ]0 t6 q8 T: y& t
      RowBox[{"3.141592653589793`", " ",
    ( S* V' i5 I# D7 o' n: R: I   RowBox[{"(", : x" n$ X6 H0 `7 }1 B! V! `6 S" _
        RowBox[{
    0 U; g$ m3 C4 x     RowBox[{"-", : ?" C% P0 q5 G$ B5 A1 D, x* {/ t
          SuperscriptBox[* x- ]3 d: u* _5 ?
           RowBox[{"(", # v! |9 T$ s3 k0 j
            RowBox[{
    5 P& r$ x9 i1 E         RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
    " T- e' K* u9 C! s     SuperscriptBox[6 ~; H: x1 }1 A/ D
          RowBox[{"(", 0 V# G# w" {: a5 Y8 e( \
           RowBox[{
    5 Z5 m9 T- U9 R0 S8 {9 {/ I; S* w        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", 3 A/ X  @; l6 w
         SuperscriptBox[
    - W1 s& a) k* h6 {4 E( h' a" P# z      RowBox[{"(",
    7 D4 p3 f8 r+ o- b; t& N       RowBox[{! m/ o- p7 W* ]/ d2 c
            RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    0 J8 r% c: A; o; D( V     SuperscriptBox[
    2 w1 _& }6 N6 [. Z1 W/ Z      RowBox[{"(",
    8 t4 j  ~6 o9 Y$ w  J4 a       RowBox[{- @) p, ^2 z* ]! t7 |. X$ {
            RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
    3 ]; \9 \) Y: n& `     SuperscriptBox[
    , o5 d3 h  S1 H- Q9 R- p+ x- u      RowBox[{"(", % b; l) v- q" D0 \0 |4 `( c4 ~
           RowBox[{$ z# {8 z2 v/ G  y9 c  J+ }
            RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
    6 r3 t0 B0 T$ L     SuperscriptBox[
      I* F" {9 m" r( v/ r$ S      RowBox[{"(", 1 a7 ~( N0 G& ~  E! I- M
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 2 A9 q: \  J1 t" B4 e0 d/ b! c
         SuperscriptBox[" Y7 Q" w6 ^' @* J, G
          RowBox[{"(",
    ' Q3 p' `! T% U: X1 R, r& @" X       RowBox[{
    + y: O" u* K- X5 L9 X        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    0 ^" j. H/ S0 H     SuperscriptBox[4 l! ?! d8 U% m5 Z- d
          RowBox[{"(",
    # E& u$ ?; a6 S2 k; g       RowBox[{
    8 H0 k  ^* U1 n9 u" R& F" f3 z        RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
    2 o7 s4 }9 O; s3 [, ^: _: b- |. ~     SuperscriptBox[
    7 n: d6 N- G4 {- ~. X0 B      RowBox[{"(", - A2 U( {' I+ @, A7 j
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
      b5 q) H' W$ Z, {7 z! ]: i    ")"}]}]]], "Output",. X. J5 H6 }! R0 N. Z, h$ r
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    2 P2 x" r/ ^, {  W  3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9, . z+ B2 Z  O* G# s+ {/ v8 v" M
      3.578012251359375*^9}]1 @+ Q  Z. u2 T$ Y
    }, Open  ]],5 u. i$ c2 t6 N

      G1 m: @; f$ w8 R% N/ U7 U8 HCell[CellGroupData[{
    - J5 a% i& \- \/ E( s6 ^6 q
    - I. T5 h7 D7 L4 NCell[BoxData[' w8 m" p, h& E0 t
    RowBox[{"C8", "=", "Ca"}]], "Input",
    ! u+ [) f$ z. k9 l* z* l3 ^& n CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, % p: [* A9 {9 @! e9 `/ S
      3.577921316125*^9, 3.57792141421875*^9}],; U/ c' {& |  I9 V1 Z7 A8 h2 E

    6 z. P/ B4 n: K; N" ]0 ZCell[BoxData[* i% a* w  _' i+ J9 L
    RowBox[{"{",
    1 z% e0 x. j; n; m  RowBox[{# m; N3 p. D5 d# R' w2 k; l4 H4 T0 U
      "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
      M) x* \/ Y: D( ^2 j  T  O  H  Y  \   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}], 5 B3 ]8 @2 \: F" [
      "}"}]], "Output",, Y( @# q/ x, ^( e! ~- b: T
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    + d1 E/ X! p, @/ Q3 G% x  3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
    " R4 E  C/ i9 A  u- R4 ], l  3.578012260515625*^9}]
    1 m' m& k9 u% x; |8 e}, Open  ]],1 g. G' ^) s. r1 C$ w

    ( V1 j, o$ G# |+ [. _( xCell[CellGroupData[{3 u2 G4 x( e" N1 ^/ `' a4 m* D; v

    ; ?; Y8 p5 ?0 U# D4 I4 U* X/ Q! i6 I  \Cell[BoxData[5 b: s. c6 M/ e
    RowBox[{"u8", "=", + e0 J. _: i# I6 K$ \4 Y
      RowBox[{
    ! M: l. G& W, a% r- U   RowBox[{"Exp", "[",
    : V  V5 q. }' m    RowBox[{7 P0 P! R7 K; |% h: Y
         RowBox[{
    2 d, H7 {2 F9 O3 D1 B6 n8 T! X% E      RowBox[{"-",
    & J% l9 T1 H# w$ o( U; Q% q1 c- z       RowBox[{
    2 ?9 s% \8 d5 ^' d        RowBox[{"(", 7 e# P9 g1 _3 J/ U8 O4 Q* y- M
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", , O3 G/ l: U& a8 s
            RowBox[{"(",
    ; E4 |5 @% y8 l) j# d* k/ C# p0 I/ H         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ! e- r: s2 x; J! L, u0 |     "]"}], "/.", "DeltaX"}]}]], "Input",% c0 L1 C: d  p: ]& N# }$ `
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    - v8 C/ s+ T  T2 L  3.57792132028125*^9, 3.577921416921875*^9}],
    * k" q. w" e% l" \1 ^3 D$ c; o' P) }' y) x. {" H: x  u
    Cell[BoxData[
    6 \/ Z# y# Y$ g) F SuperscriptBox["\[ExponentialE]", 2 d+ [9 |" {7 q! z
      RowBox[{"3.141592653589793`", " ", ' O9 l, N: k2 k; p2 o
       RowBox[{"(", 8 R* M4 h: h' I& g  X
        RowBox[{
    + v3 Y) p( t+ V9 a1 [     RowBox[{"-", 5 a- L% ]( L& x1 _
          SuperscriptBox[
    / `3 n- y% f: X, i+ ~: `8 }7 K       RowBox[{"(", ; Z, S3 Q8 b5 B% _
            RowBox[{2 E- D8 A* T  o
             RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", 6 L# ~" O% {$ o1 e
         SuperscriptBox[! h0 R2 n% n0 P9 Y) L( }; y+ h
          RowBox[{"(",
    $ h. D$ H5 ]- R: P7 U  R       RowBox[{2 H+ [9 {# K  Y* b
            RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", 1 S( J$ f& ~: e% y8 @$ r/ G- _
         SuperscriptBox[* s) s6 L# m3 b+ O
          RowBox[{"(", 6 ?: @' P  H) O& U9 |. n, A- k
           RowBox[{% H  S5 F. t* f0 |
            RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
    ( `: ^2 y. i$ ?  @     SuperscriptBox[
    / U$ H, Z( _- r2 S% `0 q      RowBox[{"(",
      U) t: I9 M- F! R$ {       RowBox[{+ R9 g" r+ R4 O$ x/ a+ Z1 U
            RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
    7 N1 `9 ^  S* o: P# m5 m     SuperscriptBox[
    , H& J2 W! ^. R" B+ a* o4 @' O/ o      RowBox[{"(", 9 d& g  x9 Q% g$ l+ l9 q
           RowBox[{) g, d2 D* K3 |  n9 C
            RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", $ w* u) M* ?& Y' d5 a3 k
         SuperscriptBox[
    7 p) X9 J+ Z' Z0 q      RowBox[{"(",
    ( L( \8 V+ K* o: A8 A% A       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ( z2 L2 W1 K3 Q3 F6 X, L
         SuperscriptBox[: e3 \; {8 c5 Z' Q/ ?
          RowBox[{"(", 0 U& g# F; O8 `! O% j' F# k* w7 ^
           RowBox[{& J5 b8 M7 }! v
            RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
    7 N* E% H* |$ Q  G- k     SuperscriptBox[
    ' g+ }& J1 x+ Y7 j  s      RowBox[{"(",
    + o+ R) G. {  M' ?! L0 V' u       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 2 n" t* a' d: U2 b+ Z
         SuperscriptBox[; d  d# C5 \3 q& ~1 C4 s) [9 g
          RowBox[{"(",
    3 K: C$ r) }- r. [6 S" M       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ! e% ^" J0 @( C/ t
        ")"}]}]]], "Output",1 l' q5 f6 p; W( g+ p4 E
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    1 J9 Y' m7 C+ D' ]9 v7 M9 |  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9, & ~: y( t% c/ I6 T+ ~
      3.5779608945565863`*^9, 3.57801226165625*^9}]/ u" c' g4 g; d! h7 l* Z, T! _6 |) J
    }, Open  ]],1 C2 J) J0 B, O! O
    " ~4 q8 b" C3 p9 I9 [0 \) T
    Cell[CellGroupData[{
    9 i: a: a) S; g% R8 f
    " ?- T% S2 o5 Y: X3 LCell[BoxData[# z7 S; v$ k3 l) m9 t! n, I
    RowBox[{"C9", "=", "Ca"}]], "Input",
    * D3 N2 X* A7 z5 z# m! R; E0 \ CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    ' H6 x; m* x" {$ H6 J& y5 Z  3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}]," P1 W8 [4 O, ]! f  V/ }# m# g
    : p( k  o- @5 Q: Y2 E
    Cell[BoxData[8 ~9 {: O1 X; O( s8 J3 q7 m( ~0 h
    RowBox[{"{",
    6 D% @4 r8 I& {: {1 C2 T" v+ J; ^  RowBox[{
    2 Z6 O$ g9 N3 V% ?, x6 p, u  H  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",", 4 u/ z8 G) g: \* H% w* C( B  i# i' N
       "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}], ' n7 j4 p/ L/ y  s, k
      "}"}]], "Output",8 H* d6 |: f: X0 }
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    ' W8 J9 A6 i* j  3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9, : \0 O/ S& h) ]  h; o
      3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9,
    & T5 }: _: ]( s8 T  A  3.578012268234375*^9}]' h, B0 J1 m( Z; U3 ^' n
    }, Open  ]],7 i4 z/ P. |" {! w. {0 z

    9 z  x6 W% L4 ~" ]" eCell[CellGroupData[{
    / M! i, b. M- `8 O7 S0 D3 D3 L# k1 n) l: h7 e+ X
    Cell[BoxData[! @0 ]. g, k2 j2 G6 t8 Q
    RowBox[{"u9", "=",
    - c7 M" o$ b! U2 b9 l$ M1 a" C  RowBox[{
    : z! }0 S. R0 {' P" b  y8 V# P   RowBox[{"Exp", "[", + b0 n, v& h) _6 x2 n  m1 U2 K
        RowBox[{
    % ^& N/ R/ v- j5 B$ d4 Q     RowBox[{9 T0 S& g: r+ R0 R/ h/ z
          RowBox[{"-",
    3 i6 k5 y) ^; @: K       RowBox[{
    8 a9 d) H! t9 ~9 `0 ~/ A- i; u        RowBox[{"(", . {$ t0 ]  C3 @2 C& o
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    : f  L4 ~/ M7 v' h. T        RowBox[{"(",
    0 `5 G- Q! x- o& d9 ]         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],2 g4 i* m- p8 K+ j& c
         "]"}], "/.", "DeltaX"}]}]], "Input",
    . I7 ]% p* M  j CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, $ `" |. V# B$ _' J6 d$ t7 Z" H8 J
      3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],) C" z% [7 \9 P7 P; u# N) m) b

    & l) J  H* |2 o( ^5 K) \% ECell[BoxData[, M' S, l/ ?- I+ }
    SuperscriptBox["\[ExponentialE]",
    * h! l5 {) u& O# {! ~) e# R, @  RowBox[{"3.141592653589793`", " ", . i9 P4 o: {% f. q% r
       RowBox[{"(", - I# @! m. Q' S& I9 J
        RowBox[{& U: b+ d2 r: t
         RowBox[{"-", 1 r6 |/ D6 R& b$ t
          SuperscriptBox[: [$ W; `! F; f6 M5 U# l
           RowBox[{"(",
    5 a9 m) p& S; W; k' t" w        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", / g5 d  `. m8 V. x+ w
         SuperscriptBox[
    0 s, D/ H0 p2 x1 }      RowBox[{"(",
    8 T& X9 f) M. p; W& Q       RowBox[{
    ( E, P1 p+ W9 |8 `/ \0 \        RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", 2 s" G% L' m/ w4 H/ |$ G% m/ a+ Y
         SuperscriptBox[& S! H8 _: `1 L' n4 X' C
          RowBox[{"(",
    : {' K0 w6 t+ j# R# K       RowBox[{
    * R) Y/ ?; c$ P% k$ c' v* z. _        RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", 8 K: f4 P- Q$ d2 H) ?& r
         SuperscriptBox[
    . ~4 f2 i2 r: V7 ^      RowBox[{"(", 3 g! o- ]. ]' V) m( v
           RowBox[{6 F" M1 @0 _6 O# y3 a" k2 v
            RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-", ! v8 x) J, m7 k9 f  Y+ X
         SuperscriptBox[! b) Z2 R1 ]6 `) w
          RowBox[{"(", 3 q9 p: n* D8 Q# T* J2 J- L
           RowBox[{
    : w1 E0 d7 k5 i+ \' l$ J2 T        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", ) C! M3 G! E, f6 C# P0 G
         SuperscriptBox[
    - S' q& ?4 c7 L8 U' x& V* N      RowBox[{"(", 1 `2 I) O. c' T+ Y
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ; v" y" N" o& H, W# |; k
         SuperscriptBox[( u' |7 C6 k* a+ ?
          RowBox[{"(", ! p3 z% m( J- D+ F, i
           RowBox[{
    5 C# n4 L1 e+ N, ~" x: F        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", - `$ j# V9 A2 G, z& J
         SuperscriptBox[
    ' X! _9 B3 E4 j- z      RowBox[{"(", , K- V9 V7 I* ~3 S) w
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    # O  `( o1 o4 \8 ^' e/ z     SuperscriptBox[
    ; j& C0 L, s/ _% ]8 f+ C7 y# ?% S      RowBox[{"(", 1 i2 c2 `, Z4 r% [" P) M, _$ V2 G
           RowBox[{0 v0 F* f: q! A
            RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], , z4 S2 N/ Y5 B. ?  a8 \
        ")"}]}]]], "Output",
    4 s8 d& p, W6 ^5 C# g. [0 B* J CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    6 \1 w$ V6 F: |* p2 G  3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9, : L3 Z  P! K1 l' s, L# a. C  f& _
      3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9,
    - q3 t+ P; A) S" j  3.577961530421959*^9, 3.578012269125*^9}]
    ! x9 h0 P0 z" F5 T5 c}, Open  ]],
    " {9 M* c9 `5 X: I$ L' e* {* r" a
    Cell[CellGroupData[{
    2 f& M/ W9 |/ u. v1 e; L: L" ~7 }! b5 N% T: b
    Cell[BoxData[{8 T4 V9 ~- ]: ~$ U1 h
    RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]", ! C$ [* l3 o' P
    RowBox[{"u10", "=",
    9 ^' m: B) S1 w+ W8 y, O4 z  RowBox[{  b+ r9 t- Y6 k4 A, l% t3 p
       RowBox[{"Exp", "[",
    / I0 O8 P# E# A. D    RowBox[{
    % H2 t1 J' ^; f* @6 b/ ~. w8 b     RowBox[{* z( x& x1 `# u
          RowBox[{"-", 2 H/ X$ {' U2 d1 z
           RowBox[{% F8 d0 h. d2 m4 [: y/ E
            RowBox[{"(",
    0 v& u# z* i! L         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 3 }* T; C/ \) ^4 K( p* r
            RowBox[{"(",
    5 J$ q$ ?) D) |8 q" Y         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],# b. d3 w: V7 {2 c
         "]"}], "/.", "DeltaX"}]}]}], "Input",# Q9 x2 X' [& b4 i- E
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],
    . r8 S# v4 h$ B  [  l+ P& [, J9 U/ T1 |# T6 |) c4 f
    Cell[BoxData[& K) n: m9 D) H" Z6 M
    RowBox[{"{", 8 M) a9 r# X% B: j4 h$ x
      RowBox[{
    8 ~6 K5 I1 f6 p$ j$ ^5 C  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
    3 ?7 C% j" j( a0 l+ H1 Z   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
    " e" q9 {* {" Z3 h CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],/ F2 C  J8 _3 J  G' n/ q& E9 Y
    $ A/ L6 s" [# W; ~; M1 ?- }
    Cell[BoxData[
    - R% U- ~9 o4 w1 t; ?% i* J SuperscriptBox["\[ExponentialE]",
    " S6 y7 }7 F1 B7 J' O  E  RowBox[{"3.141592653589793`", " ", : w* d, q7 W) S5 s' Q7 l" N$ |1 d# F
       RowBox[{"(", 1 i8 O/ N/ h: f) m
        RowBox[{
    3 r# c# X) e% `* A     RowBox[{"-", + \% q6 B  k, d  B1 P: |+ r# _/ M
          SuperscriptBox[
      ]  \; F: S7 G0 d       RowBox[{"(",
    0 f; N3 s! G: P$ R7 C; \        RowBox[{
    + g" E7 |) W/ K6 A         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 9 I( m* J! V4 T
         SuperscriptBox[
    & q7 \4 V6 n6 o5 a5 `+ [( ~      RowBox[{"(",
    : d+ x) H) q' ~+ I' ?) e       RowBox[{9 g$ [  Q9 j/ B1 ]% I
            RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
    ! ^* L) o' b5 S4 J4 h4 C( c     SuperscriptBox[
    4 G+ P( q7 @+ i+ g; Z0 v      RowBox[{"(",
    - q* y5 R0 Y! q       RowBox[{0 T  s* e6 b# S* C
            RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", / q' `7 Z  w1 _5 c- c. J! f4 O
         SuperscriptBox[
    ; J) \9 }5 A. m2 i/ m      RowBox[{"(", & C% k" V7 E: ~$ D0 a; m
           RowBox[{
    % X, k4 a* h( I5 M( O        RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
    , g; E5 Y, q( ~- k/ [- i4 |     SuperscriptBox[0 t3 P# L% s5 `1 e' R
          RowBox[{"(", * g4 c3 M0 f6 n
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", - A7 H- z7 J5 J) Y3 I$ I, `
         SuperscriptBox[4 ]0 D6 ]% L: G+ R, }9 Q2 n5 D" D
          RowBox[{"(",
    1 a7 c; _9 ]9 R+ `8 z0 ~: p       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ! G; t1 l8 B" o( |3 b7 }8 p: x     SuperscriptBox[
    + X/ u- N" ?0 v. O7 d1 e      RowBox[{"(", ) d6 [% h; K# P
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 0 a' q: B- z  Y$ V1 P1 s3 e5 Z
         SuperscriptBox[4 o2 S. E  G" L
          RowBox[{"(",
    9 z" ~- o' _0 g) X3 ^' q' U       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ' R. t4 e+ ~, L5 l     SuperscriptBox[( v5 A. n1 v- I) x( p2 ^+ y/ R, u
          RowBox[{"(", $ I8 L8 e% _9 ?* {* s
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 9 P1 a/ g. l+ V$ k
        ")"}]}]]], "Output",+ @8 P- f. w" Z- z
    CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]
    : T5 G, H' n& J}, Open  ]],
    0 L5 N  t3 E' [: G6 i+ y5 p0 Z, s1 G; r- W. ]8 }
    Cell[CellGroupData[{
    " t8 C: g/ [$ c* K2 C0 P3 N- B8 a, G! h  c8 j, L# P8 K# \! ^
    Cell[BoxData[{
    " |: b7 \3 ?6 c2 u% @ RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]",
    * v3 D! p4 O3 T- h4 T' ] RowBox[{"u11", "=",
    : z  q" n& {/ z  H1 ]- `  RowBox[{
    . o8 u! a: e) y% I1 t   RowBox[{"Exp", "[", 4 n7 ^) ~  x  G0 j8 \2 a4 k
        RowBox[{4 z$ ?* @0 @5 @, y" E! L: K( l" Y
         RowBox[{
    + f' b' p  r* l7 P+ n6 B$ @" D9 Y      RowBox[{"-", ! v3 `: U4 A* {, P! N! j$ J
           RowBox[{: j: d3 B" m0 z6 j. d0 C' x7 a
            RowBox[{"(",
    ) ~- }$ X4 k. u  f         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    2 i4 C2 ^1 a7 W0 l# y        RowBox[{"(",
    " s& b0 |  ~9 c  R& w% a         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
      S5 _# k4 p7 H5 A     "]"}], "/.", "DeltaX"}]}]}], "Input",* \3 E8 }5 A* k, j5 q& Z
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {9 J) i' P$ S2 E7 w! `+ V
      3.57796154237158*^9, 3.5779615434011817`*^9}}],0 H. A1 Q1 H( P- j

    + M: M/ e& y  r% ICell[BoxData[; Q* V0 U% c+ [9 [
    RowBox[{"{",
    * d6 r3 c5 ^# v& c! `  RowBox[{1 c% ?  z+ P( d, a6 f
      "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",", - h/ E( r  ]" j8 L; s
       "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], & p# |6 O; p# t; X& G, c6 e3 G
      "}"}]], "Output",
    * n3 E& O; `0 W5 q0 o, W' J CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, ' `7 d. R1 W$ b7 Q9 U# {
      3.57801228203125*^9}],( e1 v2 Z; |4 q  E$ D: G7 Q

    # Q, c& l! Q5 mCell[BoxData[2 H3 G/ Y1 N4 M) d2 {/ V
    SuperscriptBox["\[ExponentialE]",
    " H! J' E+ ?5 K6 g* D" r  RowBox[{"3.141592653589793`", " ", & a7 l* c, Z/ d1 o) a1 k
       RowBox[{"(",
    1 O  t  }8 U' A* Y, D    RowBox[{. F0 R( F# `+ E/ U8 K
         RowBox[{"-", ! J) K* F4 i4 o& O& X! [
          SuperscriptBox[
    ! o7 U  _2 E( `4 r- |       RowBox[{"(",
    ) {2 a; k0 Q1 @5 \4 h& }4 e        RowBox[{
    # x1 t  i1 m7 a2 |* w         RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", ' \; F; }9 X- h* V6 G/ Z! P
         SuperscriptBox[
    4 m0 [4 D) @* J2 N2 X- L      RowBox[{"(", 8 d+ ]  ]( c; D( g) ~1 I% g2 O" D
           RowBox[{
    0 C  x8 r! V/ y# G8 k. Z        RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
    & B$ |: E7 ]  l! N# n3 {     SuperscriptBox[
    1 l3 z1 G$ r( l+ g& u      RowBox[{"(", 6 W8 g. P- ?, P! W2 L! ^( X5 v2 f2 g
           RowBox[{! g' l" Q( P! C6 B7 G
            RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
    " Z  P4 s& m/ q7 h     SuperscriptBox[
    4 }& q9 L* G2 h& {2 b, \" j      RowBox[{"(", 9 x& M# |0 C7 n6 t& b! X: M
           RowBox[{
    ! K1 _* h, I. Z0 p# y; R        RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", ) p' K0 C* @2 J) e7 ]
         SuperscriptBox[) A# O0 E# V2 ?7 v; {  O
          RowBox[{"(", : _4 Y1 c8 \7 A  w- P# c
           RowBox[{% B1 g, F' Q2 W( Q( j; W
            RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
      M# U. v+ ~9 a5 T# t3 H( z& i- p% c+ E     SuperscriptBox[0 w" H- T& G/ x+ Y
          RowBox[{"(", 9 z) ^- o6 Q! z8 B
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ) k/ h& c/ v; K6 F     SuperscriptBox[. E( l+ v, H7 v% f
          RowBox[{"(",
    * m+ M0 o/ h1 ?       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", " ]5 f, ^" f, K/ J1 `: z! w
         SuperscriptBox[
      S* X" W& k, S- B- ]4 S3 W      RowBox[{"(",
    5 H( u  o* S! a       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    0 c5 T/ f! V  Z1 L+ e6 V- s     SuperscriptBox[( J1 l3 Q2 A5 m
          RowBox[{"(", / Q- Q+ a# M/ i# m$ f5 N) w
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],   ?  T6 @6 \, ?
        ")"}]}]]], "Output",/ o9 P( Z3 {- x2 j
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, & m( G) J. m! q9 C& G" N$ r
      3.57801228203125*^9}]& k) a) q7 {1 G" @9 B; v$ Z
    }, Open  ]],
    " _8 C; O) L# D5 E8 O) `# P6 A- M9 r! l. B
    Cell[CellGroupData[{% v0 r* {! c5 Z: w2 [4 R% o* F

    ! y1 ^) z8 ^" y! u  J  p! ^Cell[BoxData[{' k: O+ D% T+ K1 T3 i6 B$ K& H7 I
    RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]", * y# M$ r% `1 c: o( z. m
    RowBox[{"u12", "=",
      u( Z* T/ I: u% M6 \  RowBox[{: Y5 W% u3 D  [3 e  U  s. P
       RowBox[{"Exp", "[",
    7 U& g4 f& c. [/ @9 W* T6 F( v    RowBox[{
    $ M4 s% ~) O  H7 e" Y. j     RowBox[{; V" r# k+ |/ d3 Y* H
          RowBox[{"-",
    . V; |* s% d. ^% h( k6 P4 ^1 p       RowBox[{( h+ H: T8 w0 s" d! ]
            RowBox[{"(",
    4 g* G1 P7 |: e1 r8 z  x: c% B5 J3 d         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 8 X  P- _: {5 k* n( J+ ^9 B
            RowBox[{"(", . W) b1 P" }3 a1 _; I9 A% P* w
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],' |8 o5 |6 m  \' l% E: l% a
         "]"}], "/.", "DeltaX"}]}]}], "Input",) V: ~* Q) Z5 m. U
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {+ A  I+ W$ R9 ^/ X! B
      3.57796154237158*^9, 3.5779615576284065`*^9}}],
    * R3 S7 U8 ^9 `$ M
    2 y0 _8 n: G! g. y( i2 M& ZCell[BoxData[
    , ]- i  O4 A" h+ z RowBox[{"{",
    ; q; C$ G' Z" j. @/ V2 ]- h  RowBox[{$ T6 A: X/ P, X/ t. F+ L
      "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
    / _& Z% o; A& j( b" {. K; ?' B$ `   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}], $ z5 u" L# A7 u
      "}"}]], "Output",
    4 F+ U3 C8 [9 Z! N$ c7 g$ b" H; v% P" R CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],' i2 z0 n% \* [6 p8 R+ }5 m8 k* P5 M0 Q
    , a) I5 k; o, o( J% Q
    Cell[BoxData[, @( ~& R- Q) ?
    SuperscriptBox["\[ExponentialE]", % H6 r& |% ^: |% T! Y$ f
      RowBox[{"3.141592653589793`", " ", ) q* R# |' d. _+ I9 D# K( ]
       RowBox[{"(",
    0 r8 F0 k6 Z! P0 D, Z    RowBox[{
    6 W' N" r! @6 ]0 A     RowBox[{"-", 0 y3 S8 m4 e6 o, l+ ?: M( B% ?
          SuperscriptBox[
    # z7 s4 ^+ R2 G       RowBox[{"(", : Z& g6 k& M: K- E. I
            RowBox[{: _5 T( ?" L( L6 L9 |0 o
             RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", . |& F5 _. {& [% w
         SuperscriptBox[' D1 ]2 G2 I+ ]$ t  [
          RowBox[{"(",
    . A2 u9 T! E) ~6 O; K) @/ j5 A2 X       RowBox[{' H' Z3 e) F+ W4 d/ X" W
            RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", ( p$ B' [# k8 n2 b2 [! U. i
         SuperscriptBox[
    : |3 c- L8 {6 U2 h* }      RowBox[{"(",
    ! j# Z4 u' ^( \" V0 V; t, X       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", 6 I& `3 {9 W5 s$ f' R% _
         SuperscriptBox[
    3 q' }2 f' ^4 S1 H# j; `      RowBox[{"(",
    * |8 u7 H' U* L$ A& n       RowBox[{
    , j. |. N! D9 T8 g0 L5 ~        RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", 2 x$ E( U) A% `" S4 G# L# f- a$ H
         SuperscriptBox[
    4 `. q% i. T0 P+ J8 `4 o      RowBox[{"(",
    ( F2 Q7 t: O5 k$ T7 v2 S       RowBox[{
    5 e* P0 B' ]1 Z% g        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", 2 K& X( U% p/ a" ]1 Z9 ^* o
         SuperscriptBox[. N! M, n9 q8 p
          RowBox[{"(",
    4 T' u3 D' f4 x6 S. q% e       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    . z1 O/ K  F9 s' k3 Y7 F     SuperscriptBox[
    3 T6 N+ |& v& O3 \& l3 a      RowBox[{"(", ' P: B! Y* X( o( Z8 N
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 2 n4 R/ F- ?' F1 t+ U+ [) ?
         SuperscriptBox[
    / u% m6 \1 m/ ], ~; n$ A, P      RowBox[{"(",   N- m5 ~% Y) q9 L' }
           RowBox[{
    7 F1 \% O$ K% n( d: y& {        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
    ! @# z: D/ A4 K. \* Z3 k4 ?     SuperscriptBox[  M% {1 ^# K& p9 K7 G9 C, D
          RowBox[{"(",   h. a3 v! n& B) `9 x* W
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], & _9 e- d! o; f* i/ o
        ")"}]}]]], "Output",
    1 K6 U0 l; Y, M( J9 i CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]- X" p( r% B) t" u
    }, Open  ]],! P0 f, Y% }$ _) A- }  D0 ^8 z4 \" E, O

    ; P$ h: h- H+ P9 I) d: NCell[CellGroupData[{
    - [9 U% Y% r8 ~; c% c$ T* L  _( e1 H
    Cell[BoxData[{3 P* @& A  e+ }2 E/ H0 X
    RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
    : Z) h0 f$ `6 K; w9 M/ X RowBox[{"u13", "=", 7 Q( l2 G, _& S: g( C( L- p. I
      RowBox[{
    / D% O9 A2 B/ T6 e% ~+ w   RowBox[{"Exp", "[",
    9 ?  O/ I8 D+ m( A( d' D, H: ^& ~) Z* s    RowBox[{
    ; j# [; ^; _+ e* q! E9 Z. L, Q  _     RowBox[{: w; X$ a( p4 d3 J) T# ~3 o
          RowBox[{"-", , n% @( d% l5 A% u% ?# o
           RowBox[{
    9 j8 s) I  P" b/ V: Y+ K        RowBox[{"(", / [) H5 K5 b3 m
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 9 o: j. e+ F) X  I$ V- l
            RowBox[{"(",
    6 N- A7 [; @& E( H& c, _         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],( u/ L1 f8 E4 g$ ]
         "]"}], "/.", "DeltaX"}]}]}], "Input",$ t) L( ~8 a2 X: |/ o
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    % J( p2 k3 p" x8 J: S2 }5 [8 ]  3.57796154237158*^9, 3.5779615599684105`*^9}}],! O: E! X) O9 F/ Z- H
    3 u0 Q9 ?: @# N2 \' a9 w
    Cell[BoxData[8 }% O: f* I. M& ~* j
    RowBox[{"{",
    , X/ f2 l* k! {8 K; E. B/ Y! e  RowBox[{8 O" R, E1 j4 Y4 S0 e6 W$ _+ W  |, r
      "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",", ) H, w$ A/ a5 t& f! r
       "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}], $ w3 I6 d1 f9 z; h
      "}"}]], "Output",
    9 A% w/ _9 v# {0 U. R  w( r1 t" I CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],6 [9 k; g* G, v8 p* \
    + u! W' I, Z3 ?, A9 {" v% Z. a
    Cell[BoxData[! Z9 \! |' k# {! E5 o
    SuperscriptBox["\[ExponentialE]",
    9 K5 L- k2 M' S4 ]% o: p: D$ l  RowBox[{"3.141592653589793`", " ", 8 w. I% c' S. M' S6 ]; J$ q
       RowBox[{"(",
    2 o& r4 [0 Q1 w: j- K0 D. }    RowBox[{
    6 y! m& {  B8 [     RowBox[{"-", # z# {/ _) {- I& e- t  O' y
          SuperscriptBox[" r+ W; h' E$ h6 V; `9 y" }
           RowBox[{"(", 4 }. Z2 J& V4 Z) q: u! i& @
            RowBox[{) E" T6 S* ^& `$ ~; `
             RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ' y* q) u& o7 f- c4 I$ H. c7 K# P     SuperscriptBox[
    ! r" A/ T6 z; m+ M& N% m* y      RowBox[{"(", , ]3 }2 S9 L- p% h; M/ t1 q. M0 a
           RowBox[{$ t/ n; h9 C$ y5 z; g
            RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", 3 L: k! H/ |5 v' P# @/ i+ d
         SuperscriptBox[
    " t9 b$ m- x+ |. V6 [2 }      RowBox[{"(", ( J) X- W% z1 K$ ?8 A# D. R
           RowBox[{! m( T0 @- m/ H
            RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    - ]; p$ I$ D2 D     SuperscriptBox[5 B: w4 r; [- u6 h0 `# R( {
          RowBox[{"(",
      C. |& l, B5 Q. w3 M       RowBox[{- c% G  P6 L! I: K
            RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
    1 k* C; |+ D  {     SuperscriptBox[
      r# J& r3 x( V" t, r% q      RowBox[{"(",
    ' A/ ]7 A; g8 j: P       RowBox[{
    0 l5 b. g' |6 I0 ?# Y7 T        RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", # v. }: J  A- E2 ~
         SuperscriptBox[
    8 U- Y5 b: |' k1 z      RowBox[{"(", 6 ~. m- A6 j/ S8 Z1 q$ d
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ' S; o& k5 {  c! Z* c" D; Q
         SuperscriptBox[
    8 u! B& s7 n; W7 C! I      RowBox[{"(",
    ) }9 A4 K: S. ^8 v1 k$ Z       RowBox[{' ]/ {" ^3 G$ Y* _1 @: F
            RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
    3 g+ t5 \  K7 z4 J/ T     SuperscriptBox[
    ; C+ `( x, Q8 X5 Q% e& Q& {      RowBox[{"(", . w, s- p2 y% i$ g% X# h
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    5 i4 m5 o* _% t, u7 _* ?     SuperscriptBox[4 d- u" u/ _2 K2 v* B  F' g3 T! B
          RowBox[{"(",
    6 E5 V2 V' O2 h9 w0 u       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    * c3 G" {$ V2 i" _3 J% I    ")"}]}]]], "Output",- `# P: ~% z; c6 J% @; U
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]4 ?3 t, {4 K' ?3 \! R5 h
    }, Open  ]],5 S) S; Y  l8 {3 x9 T
    " u1 w0 m3 d2 [; M
    Cell[CellGroupData[{
    + t, c: }' c+ `
    - ~0 H2 L" T0 }0 r- b% N% nCell[BoxData[{5 U; |  b+ U7 _8 I
    RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]",
    $ B- z5 F' b3 N# J+ }& W- U RowBox[{"u14", "=",
    ( O% T$ q! e& T3 E% B2 m  RowBox[{2 s6 F$ o: |) ]# r
       RowBox[{"Exp", "[",
    ( r9 Z. f- d5 k4 _: q! n( [& T    RowBox[{
    , T0 S( `) ~, U9 n. U7 D     RowBox[{
    5 L1 p; \4 w7 R0 L2 D" \) F      RowBox[{"-",
    + G5 z' v/ F. d5 T0 }5 J/ T       RowBox[{
    ! t, F$ O! y% I) b        RowBox[{"(", 9 z& N# |; A3 |9 N
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    # X1 ~3 G+ L/ U! ^        RowBox[{"(", ' {7 C) L" [9 e" ^6 T4 T
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],5 H+ S$ M  b6 A
         "]"}], "/.", "DeltaX"}]}]}], "Input",5 z+ a( [+ ~# U1 e' h9 ~7 ^
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {* _# n5 G( D; V
      3.57796154237158*^9, 3.5779615663176217`*^9}}],
    + L4 `& D8 |9 O% \  Z, Z* ]4 v7 Q  E- y5 [" g. A) l1 k' e8 U! f
    Cell[BoxData[
    . j* N) o. `3 V% m: D RowBox[{"{",
    7 n0 S/ a  a# \( H4 ~+ E% B  RowBox[{8 C3 ?! \0 G: U( C8 u& i- j
      "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",   Y3 Z, e2 \. R- g' i
       "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    ; o; H7 v  _! K% [6 v' U$ d8 e  "}"}]], "Output",
    1 x) x- A5 j; {; Z% d; P4 b6 x CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],: Z1 X- i/ _1 m- g. ?

    4 d$ F- h/ l9 _! `4 u+ n( D; qCell[BoxData[- Z% K2 |$ l+ a* s5 P+ V
    SuperscriptBox["\[ExponentialE]", * T5 w8 v3 N( a& g4 D' R4 X
      RowBox[{"3.141592653589793`", " ",
    0 N4 I" I: f: e1 e/ {/ n   RowBox[{"(", ' A  O' B& d% x0 t6 {: P
        RowBox[{2 [6 O5 s- f4 o0 ^- z
         RowBox[{"-", $ X9 R" }' k! d  M& q) T8 R5 a
          SuperscriptBox[
      t) X6 v* C+ K1 i( o) h       RowBox[{"(", ! B: Y8 d, p5 R+ m) @" [
            RowBox[{
    / C4 d; p9 p. c' I# J+ \3 K         RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",   G7 U0 ?; i( n! F
         SuperscriptBox[
      I  m2 d9 l" o% w# g      RowBox[{"(", : i: x- C' G0 X
           RowBox[{
    1 I7 F8 X! b3 G- s3 y% b        RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
    4 D8 q3 z; {/ l" N- t0 S' s     SuperscriptBox[* s) b: d- s9 l: z9 a
          RowBox[{"(", 0 Z; c0 b5 W7 ~2 F
           RowBox[{$ V8 T% b  N' F
            RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", " `* \! r( Z! E: N5 r  d
         SuperscriptBox[
    4 S* ?* T- R! X+ P      RowBox[{"(",
    ' `6 y7 _6 W+ `8 k% E4 B       RowBox[{
    9 k& O* ~+ u' d3 C- R( {  M. v( m        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
    " o( q# S6 u8 H8 x+ F     SuperscriptBox[+ [& Y9 E; G0 y: t: L0 [
          RowBox[{"(",
    * Z2 t* u, C: ~4 p4 U4 `& i       RowBox[{; j8 P3 Q' _' C0 K- F# @
            RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-", ( ^0 O) j2 z, {+ {# ?
         SuperscriptBox[. A$ ]4 @, e! L4 D
          RowBox[{"(",
    5 A; g: a$ M6 ^+ ~       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    6 b( i: E7 r1 l+ D) q- o& b     SuperscriptBox[
    $ l  _( @/ |2 I7 J6 {  S      RowBox[{"(",
    & r' F8 G% E& `+ O       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    7 \2 u; F" y6 P( H     SuperscriptBox[
    6 _/ W( H9 J6 B" B, V% I      RowBox[{"(", ; R# N9 M/ T# |0 u% B* T
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ' f" t; b! E( ^2 v7 p
         SuperscriptBox[" j8 l! `( K' G6 X! p& A* @# ^0 ?; N
          RowBox[{"(",
    4 q, A, \7 ~2 _8 J  |       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ! Z; j/ R3 h7 C" E  |( _( T
        ")"}]}]]], "Output",7 t6 p3 M6 e  @# f+ j  r. ]; z3 t6 ?
    CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
    9 t6 I8 j; C  A4 |, V}, Open  ]],
    9 R+ [1 P! p( q+ ]! f
    $ O$ F/ ^8 Y  e& A  `. i! ACell[CellGroupData[{
    ' e2 A+ w% N2 Q4 N- c; }9 s9 Z& g
      X$ G$ N8 H: fCell[BoxData[{) p8 J, R. d1 ?* ?2 ?' D
    RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]",
    # u! k$ l* T: L, ^+ j# r RowBox[{"u15", "=", * X! h$ \5 _1 N1 b- N7 }
      RowBox[{9 w2 W- `  x: S1 Y
       RowBox[{"Exp", "[", 9 B# i& E. R& f2 }
        RowBox[{* O& T3 m; N- L: K# U
         RowBox[{
    , ~- b# X5 \: H4 d  k% k      RowBox[{"-",
    , a8 _% d( U' \       RowBox[{9 M+ {4 L# f$ b1 I' }9 A0 }
            RowBox[{"(",
    0 W+ t% i9 y2 ^. [  z8 M$ Q         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", * L4 N5 q# ~/ \. r* e) d' ]
            RowBox[{"(", 3 @/ I! i+ e' \; h: U' E' X
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    # V/ T7 ^* }* F/ M& E     "]"}], "/.", "DeltaX"}]}]}], "Input",
    4 T$ v- H3 V4 i CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    % i9 R% m* d$ d  3.57796154237158*^9, 3.57796157098203*^9}}],
    / X% r6 Z: k9 r' M4 n  Y/ M
    " y' ~8 h+ ^( q; k' U1 HCell[BoxData[
    0 O) Z( J7 Y) n8 }1 S8 E$ b RowBox[{"{",
      \2 v$ @. T, @2 w5 o  m  RowBox[{' X3 B, x0 I5 O" D7 r0 i
      "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", 3 |$ Q; f$ `5 n- w% Q
       "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}], / o3 N7 W8 M# Q% \# I3 E; n, a$ |
      "}"}]], "Output",7 o) |6 }8 \- x6 v5 d$ J3 `
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
    $ q! H+ C) o, o6 s
    9 h) m' a8 g2 p( ]/ A4 }Cell[BoxData[  p' z2 ^2 K8 n  p6 ~1 Y! [, X3 E
    SuperscriptBox["\[ExponentialE]", " A, @3 y7 u6 p
      RowBox[{"3.141592653589793`", " ",   T" Z' c9 R2 G$ }, W+ a$ j6 T, _
       RowBox[{"(", $ d2 d% ?: Y* z
        RowBox[{6 w% k8 E* n3 r/ t1 O& j6 @2 w
         RowBox[{"-",
    6 H, y, V3 h; X% c      SuperscriptBox[+ P7 y$ Y. T/ x2 P+ v7 u7 j' Z
           RowBox[{"(",
    1 {( ]; @9 [% w7 x9 E/ J        RowBox[{
    . r, I' }: C2 d  V  e' W/ O2 Q         RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
    / r0 V& r# g( R     SuperscriptBox[$ l# b0 W1 P% m6 n- s) a
          RowBox[{"(",
    * P, P: P; s3 w) L2 S       RowBox[{
    ( T8 D: X( u, @. \        RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
    ( W5 }) B/ T% L% I- v) \* @$ }     SuperscriptBox[
    1 [" O& U4 Z; x" V( ?1 @      RowBox[{"(",
    8 r' i/ p' D# G6 s3 U7 e       RowBox[{$ A! o7 K" _- Q
            RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", & e- w1 f: V) o  l$ J
         SuperscriptBox[
    # H- g3 H* [( z      RowBox[{"(",
    * h' F  M9 Z: l" Y7 a1 E* H       RowBox[{* }8 k& Z3 y9 w' B! k  @" O5 `" m
            RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
    0 E# T  p& u1 i+ [+ n* w     SuperscriptBox[. h3 v/ r8 t6 S) t
          RowBox[{"(",
    ) m+ V; F. G& R' s+ n# H; b       RowBox[{; r1 K" c- `7 [% q. F$ [1 h
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    ! T( r7 O- |- g( p% Z! ^     SuperscriptBox[, e$ g( x' K. `
          RowBox[{"(",
    8 M% t4 J5 j# E) }3 H' d       RowBox[{
    ; ^4 e* ~$ x, d  O7 k( ^        RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
    , S0 l/ A( O& |     SuperscriptBox[
    * ]8 w2 L8 X1 ^; L      RowBox[{"(", ' }$ @; J8 j" p% W+ Y% B/ e
           RowBox[{
    # e7 [" r/ ^* V+ M* J        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    8 i9 k, u* d/ I* `: p; z$ ^/ F     SuperscriptBox[
    ' g+ l4 w% O* }: z3 U+ ?      RowBox[{"(",
      ]$ T7 v  G, C; q( K       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ( x; Q- h1 \  `0 ]- P* V     SuperscriptBox[
    * r" m! R% o. x* m- Y5 q" W      RowBox[{"(", ; l0 Y& N) d5 u* B! c
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], # T( i" v& @  c; I4 G. c8 N
        ")"}]}]]], "Output",
    ) P! \, W7 Q5 ~' b CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
    , N( m6 I4 V2 p: F) P  r9 h}, Open  ]],5 h: X' v0 W4 J  p( i' ?

    6 g$ J6 s) V4 u5 L: }! g9 j6 |4 {- fCell[BoxData[! Z; ~- t; M3 I/ l2 R! k
    RowBox[{"For", "[",
    7 O. K* l0 q( d$ }% p/ n  RowBox[{
    4 f1 F5 m7 _& h   RowBox[{"i", "=", "1"}], ",", + ~  ?& O' u, w5 |
       RowBox[{"i", "\[LessEqual]", "9"}], ",",
    0 Y$ z' W, V+ V   RowBox[{"i", "++"}], ",", 1 W( f5 `; e* x
       RowBox[{
    2 V- M9 E; C$ M( p2 x    RowBox[{"Ca", "[", + c/ s* L% e0 w, }/ B2 T1 m! m4 X
         RowBox[{"[", "i", "]"}], "]"}], "=", " `8 O5 ?9 z) X
        RowBox[{"CM", "[", 3 R9 k4 ~3 H+ v/ o6 [
         RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    8 j- G7 R% _! s2 A& y9 ~# L! c' j CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],4 o6 y# |4 H6 b+ c

      X, g; d; E) T4 T9 ~# s" {Cell[CellGroupData[{
    0 y" {( ^# \: B, d0 O2 K1 q2 H) b( k2 X; Q0 G/ @
    Cell[BoxData[{
    + s- h' f6 [7 w) O RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",
    : r8 a" X7 d2 [$ z RowBox[{"u16", "=", ; p  V" s' E# A3 a
      RowBox[{
    % K  d% l* g9 L' G: H3 l  m   RowBox[{"Exp", "[",
    . Z! ^( p+ _3 G$ j1 w, n; z    RowBox[{+ L  y9 n4 c. O  D
         RowBox[{
    ' j8 G/ @7 ~- ~8 N6 U3 c. q! V      RowBox[{"-",
    $ v; k# x: U% H       RowBox[{
    7 E+ Z& g  ~: z        RowBox[{"(",
    ( H. u# a( l) g+ w( h  P         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 9 l' K3 a/ @" e+ |; Y9 |& k! E; e
            RowBox[{"(", 9 b9 g2 ~4 W; A6 D6 h
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],! n" \6 r: w$ b/ L& B( V; o# W
         "]"}], "/.", "DeltaX"}]}]}], "Input",: h- H; y9 L+ S( o, i( p" I
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {: Y; X1 L# Z0 @+ ~- z3 Y. ?! a
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
    6 F4 o8 {; I/ u. a0 z+ P" r* X  3.5779615751004367`*^9}}],
    4 _! J+ F* f8 {* Z
    % `" x# A* S* U" P+ jCell[BoxData[
    2 @& k2 q( S! }% z RowBox[{"{",
    , x. G( J$ X- u( {5 t  RowBox[{
    1 f! ^2 ^% O. k3 I8 R  "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",", 7 r. @8 ?: B- D- m+ l: M; J
       "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}], , o- h9 O% E9 h0 V
      "}"}]], "Output",
    + K- G" h& w7 a9 B) @9 X/ m# t CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],4 n0 D8 d/ h6 A: e4 k* E
    ! H5 X' T" T$ V
    Cell[BoxData[% R9 U: V3 o0 \. E) s
    SuperscriptBox["\[ExponentialE]",
    ; @& h, X: g8 @  RowBox[{"3.141592653589793`", " ", . ^- s  h: x+ i0 {$ W$ r
       RowBox[{"(",
    1 R& e7 y) |- W' P4 y+ i: O    RowBox[{
    * L; Z" A- S7 q: z% m     RowBox[{"-",
    4 Q. w( D/ O. b! m  T! Q4 A& k: ?      SuperscriptBox[: }0 `3 ]% E7 n  K. D# d% c
           RowBox[{"(",
    " U4 ]# \5 X+ N6 Q$ ^        RowBox[{7 d/ J' K4 S! o6 G( N4 r/ h
             RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", ( I/ n/ U3 s8 L6 R0 ^  b1 @% |
         SuperscriptBox[
    : U7 F% w# b, F/ O# |      RowBox[{"(", & ?% d; G. N0 X6 B7 z
           RowBox[{
    9 w  \& _% D" ^5 V, V/ U        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
    : q- D) a  {( j: t     SuperscriptBox[+ B8 v( Y% H3 H
          RowBox[{"(", ) j, ?' ?' p* ]# s& j9 |
           RowBox[{
    : `+ R. k# V% x4 v        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
    ; k6 s" H& l# m8 A1 p, }' N: \     SuperscriptBox[' \0 [4 x6 M5 e
          RowBox[{"(",
    ' x: t2 z* S2 O. s: A       RowBox[{- Z$ {+ M' F" O" V( C
            RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", " D6 I7 \! h4 M/ T& h% z5 V( @
         SuperscriptBox[
    6 p% y4 K4 }! ^( C2 e& G      RowBox[{"(", 8 v- I" J4 k5 @
           RowBox[{
    ' r+ ^) f/ I3 k8 y. g        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
    " o) ]2 k2 y5 |! C6 [     SuperscriptBox[" W. E6 N, T: u
          RowBox[{"(",
    8 C8 n" I/ i! I" ~$ U8 T       RowBox[{
    & n8 i$ L/ `0 l  @7 U        RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", 5 ~$ [8 E1 q3 I4 Z+ \
         SuperscriptBox[8 T2 g1 J) ?( u& m
          RowBox[{"(", . K- \8 n# k5 C; ^
           RowBox[{2 s  N! Y  |, l
            RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
    + Q  p2 V2 Z2 e8 M) p     SuperscriptBox[% A+ S" @, ^* k4 f+ Y8 X
          RowBox[{"(",
    ( B3 X: T- Y& |$ G0 \8 C       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    / t! [5 m' I  k& g) w& Y9 c     SuperscriptBox[
    # @7 {+ |+ U" ?      RowBox[{"(",
    , s8 x( ^6 {: n: ^0 q3 T. |0 K       RowBox[{7 q7 l5 r6 ?5 ?5 D" o! _' ?4 V
            RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output"," g, s! v! d& b- [, |
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]2 ?% y% t5 L2 R. B
    }, Open  ]],5 Q( Q5 Q6 G8 c

    6 k' q6 x& k) H" ?2 |Cell[CellGroupData[{
    3 I2 `6 i- Q; I& V  }8 J7 z
    ) t6 S4 E; ?* w' TCell[BoxData[{
    $ ]+ h0 Z8 @8 ], [. B# P& y RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]",
      Q+ b7 \( v& O% Z' F& e RowBox[{"u17", "=",
    ) H: J" d5 F2 f  Y, F9 q% x  RowBox[{& Y* X* E* J+ k: h  a' f. d; ^
       RowBox[{"Exp", "[", 7 R0 `( A! K1 _& P  [# o
        RowBox[{
    # b, y7 i; K) f3 V* V     RowBox[{3 A1 M9 O7 g( l& m, F
          RowBox[{"-",
    ! P: {# K* |) t/ g( o       RowBox[{
    % b  N; t; h, B        RowBox[{"(",
      \' J, e; o. j# J/ ?7 Z' ~         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", / V6 P; g& l3 a9 E
            RowBox[{"(",
      T% [" G" N5 s2 f1 r+ ?7 J         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    # n! G# E, F" J: b) T) [     "]"}], "/.", "DeltaX"}]}]}], "Input",
    2 {! w& z4 `9 U9 ]/ a7 l$ i CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    + r- ?$ _. ~! ~/ V4 t  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9, / K7 }- A! I+ f' M
      3.577961578953644*^9}}],& B) A9 U0 \7 W

    % i# X) V8 A+ W/ M2 h. MCell[BoxData[
    % l8 {  r  W( W( |$ N/ m  e( F8 k; U RowBox[{"{",
    8 C2 g' D5 n& c  RowBox[{
    0 b& s# q% h$ c% i. i( C8 c  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", 7 s' @- A  J5 H- H# f
       "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}], ) [! k  n2 z% D6 o8 X
      "}"}]], "Output",
    8 H1 V8 Q- Z8 l' a7 X% Q CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
    5 X9 X/ U1 _9 a5 Q5 |/ t+ V
    2 U4 v  \% s+ b8 r+ |Cell[BoxData[
    9 w: B$ g! ]1 M* m SuperscriptBox["\[ExponentialE]",
    7 Q  e: ]( Q* C) |9 H  RowBox[{"3.141592653589793`", " ",
    9 @' r$ S9 u: Q$ n( b" Q" L2 n9 E   RowBox[{"(",
    + J  m9 S0 T7 w, E* e    RowBox[{" T  p1 E' P5 N9 o. E0 g! }; Z
         RowBox[{"-",
    " H, x3 D: s2 K% Y! s& G" P& X      SuperscriptBox[
    7 I# q' N  S1 E9 |$ b: B2 e       RowBox[{"(", 5 i' E% ]1 v9 w9 l
            RowBox[{
    9 q* X1 p/ u/ E- D+ |         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", + E2 ^( V2 Z6 k9 q
         SuperscriptBox[7 n, m$ u5 k3 W0 F; `* w& b
          RowBox[{"(",
    & [, g  g* l! j       RowBox[{
    & H# W' A* C  c2 }* }        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", ' l7 S1 P: }/ Q; _' `4 ~7 e
         SuperscriptBox[0 o: `1 j, g7 |# s5 b
          RowBox[{"(", 4 h2 K/ N6 j; {! P: D0 g* J; f
           RowBox[{( I4 M% _# h/ k: C  C
            RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
    - @# R- ^6 ~; f; C. }3 ]  l. d     SuperscriptBox[5 _7 M/ D. g6 P! A9 n
          RowBox[{"(",
    % t! x. T8 [2 L- p       RowBox[{
    8 L# s6 X6 L  {% j% R8 K) E, k        RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", ! M. Y' }9 O: v) M; K7 V# J
         SuperscriptBox[# l* k2 J8 J6 s7 C  m9 z
          RowBox[{"(",
    ; Z/ w( o! v* G/ I       RowBox[{
    5 Y3 ]1 C- c3 h$ P1 j* m/ |) P        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    3 `2 T# M6 O" f* T* T4 J) N     SuperscriptBox[0 V3 ]8 W6 n  Q" b/ w
          RowBox[{"(",
    : ?! }1 n% F5 M# @1 ^       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", & J( S2 e  ?( W3 X
         SuperscriptBox[9 ~1 s( P1 E" b+ m
          RowBox[{"(", 5 N6 N! d$ v. S' q$ i% p% \
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", + g5 o, J% {0 Y6 e) v( ^
         SuperscriptBox[
    2 h8 h7 F$ F8 P+ ~* t      RowBox[{"(",
    . k8 a* h" ^/ J       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    $ o9 G$ v5 k' c7 i, ~- U7 c     SuperscriptBox[
    , o, f# _' @* u# ]2 _, L      RowBox[{"(",
    2 G# J9 f' t/ v$ \       RowBox[{
    " Y1 q! j3 Y4 c- k- s$ Q        RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ! }. ^5 |4 T* _0 t5 x( B) W
        ")"}]}]]], "Output",4 j- \; Q% e) O; T8 W! B
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]' N, [) n; c' l( X# O
    }, Open  ]],$ S5 M1 O/ u8 y, S3 b, L# u* H

    . U. [( a) v( wCell[CellGroupData[{" Y* V& v( J9 f9 r! }4 n3 |: y& }

      [8 s4 j0 P* QCell[BoxData[{
    $ i! k& B+ F+ [* ]) p! T( H RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]", & G5 S- q' G. G& L8 _/ p
    RowBox[{"u18", "=",
    % x9 Q7 w( v+ h6 ~7 H  RowBox[{
    ! a% j  ]4 i, N4 u# B   RowBox[{"Exp", "[",
    % H) _: c+ i/ u8 l  ]    RowBox[{0 z* M( n" |1 M- q0 F0 V! O4 S
         RowBox[{# C# \7 G  o( h" e
          RowBox[{"-",
    # f0 b, [$ L4 G' v2 o       RowBox[{+ v5 @6 Q* H3 i, N% n) d' Q
            RowBox[{"(",
    % X4 q) O. ~# m8 K         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", , W& w3 b0 @1 J7 _" C% N
            RowBox[{"(",
    * A& T0 ?, K. b. e         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],! _/ q1 ]/ S5 h# {1 v* [
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    * g) w- [3 A' U CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {3 Y! [2 f; a; v& Z0 V
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
    , Y9 t. Z! D2 a- W  B  3.5779615828848505`*^9}}],
    + ~! Q) Y' P# V/ ?3 l) f7 E8 j6 A6 D+ }  ?
    Cell[BoxData[
    / `' U2 W6 E3 y7 c4 c  @9 }! Q RowBox[{"{", - {* ?  P& B- b& _
      RowBox[{
    , u. B" d  g) I% w  "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
    # s' a$ y1 m  O. j6 j" f6 @   "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], - c( b' P. J6 ?/ }
      "}"}]], "Output",
    6 ?" [0 g" x* K) z3 W6 O3 R CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],6 F0 a% V% N3 }4 V

    - e+ L  d6 f* ^/ d2 zCell[BoxData[# S$ x- i: R, A. ?% Y0 a# s- b
    SuperscriptBox["\[ExponentialE]", - ^4 ?% {7 \( \8 V
      RowBox[{"3.141592653589793`", " ", ) Y1 R4 n" l  O$ E+ L- Y- {. S
       RowBox[{"(",
    * C# K' R! x& a    RowBox[{7 Y# V6 L7 [: S, C1 g3 E  _) t3 E
         RowBox[{"-",
    - D0 Q7 I* s# J: ?4 z) a      SuperscriptBox[) G& ?/ ]5 @' F* e: H
           RowBox[{"(", 3 K2 n0 W1 O  i0 n& m' {
            RowBox[{4 _1 Z$ Y* w. z: O4 }9 p/ T( {8 C; D
             RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    % w! v; S  C. E! U1 ^8 U     SuperscriptBox[
    & P9 Y, q* q4 o2 a- m      RowBox[{"(", # F5 a; K* F' y* a+ c* W5 L
           RowBox[{* z7 @* Q$ R# W3 r6 h
            RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
    2 i. z- V4 C$ j8 ^9 J; I2 y; F     SuperscriptBox[
    3 h! s" N+ A6 e! i2 t      RowBox[{"(",
    % K. ], _6 c3 y# @& E: W! o       RowBox[{0 y% s  T! M  C
            RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", : ?4 N+ \, y1 _/ I" ]5 E6 X
         SuperscriptBox[2 {, M# N6 k1 ~; m. v: z
          RowBox[{"(",
    2 C, b, g+ S* g# _9 p2 J       RowBox[{
    3 `9 C7 U* y4 [/ U        RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", 2 K4 r  s5 E$ I3 A  v% f9 X
         SuperscriptBox[  n5 j# q8 B7 U: Q9 @% a
          RowBox[{"(",
      x4 r/ z8 \& r$ K+ h" p" J# N       RowBox[{
    / P* p  d  s& h1 ~% d# U        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    5 ], q) E3 }' \& f2 [/ g" R5 x     SuperscriptBox[
    ( h6 i9 h1 m2 D( G8 D2 f: V      RowBox[{"(", ' L5 [' K2 T( q7 u; u
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    * h% c- ]/ e) [- I* b     SuperscriptBox[5 Q4 l$ h% P9 j# s8 {: l- Y3 H
          RowBox[{"(",
    " e8 c& _( ^6 e  o! I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    4 u& s) `2 Q6 F, \( y# m     SuperscriptBox[
    & K, p* l" d- r! f& A! j. _3 Z6 p2 x      RowBox[{"(", / d, i& G5 L7 R" w  G
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 1 l* i) m6 v2 P3 \$ `1 p! t
         SuperscriptBox[
    9 r* G+ g2 U/ Z; c5 q      RowBox[{"(",
    6 M4 j6 X* _% e1 N; s       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 3 w5 K% u& H, I, r, j
        ")"}]}]]], "Output",8 r5 s" p- `$ J9 z& e, ?4 ?
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]
    6 o7 X1 s* l. u* G2 n5 ^}, Open  ]],
    4 N1 E' U; N6 D4 C' K3 l  ?$ Q2 A7 |7 j2 H: n* k4 }) c4 G
    Cell[CellGroupData[{
    1 c' N- o1 }/ ?) J: `7 U
    6 U. @+ A- ^& h8 f" q8 oCell[BoxData[{8 J6 a' w( K1 O. L+ J& Y( i( f
    RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
    : D$ i8 G+ j5 X RowBox[{"u19", "=", 9 D2 C& i* h1 u7 o* X# y- @/ x
      RowBox[{/ @3 u% @) D5 \
       RowBox[{"Exp", "[",
    * Y. K/ K. i; `0 T    RowBox[{4 T0 ?! f( ?2 d, u3 b
         RowBox[{
    ' d+ f9 v2 B1 d* e( m      RowBox[{"-",
      U  V( B# e7 w2 |       RowBox[{/ e, u" u; B- v% l  w/ X+ R
            RowBox[{"(", 6 P7 d' C$ V7 R) F! \  ]/ `
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    0 ^* S% I  q. g( f; y: D        RowBox[{"(",
    0 |1 Q4 Y. [5 L3 L* x' D9 P7 T$ z$ ]         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    + D) v1 F/ E* h0 {     "]"}], "/.", "DeltaX"}]}]}], "Input",
    " Q2 j7 y1 y/ s9 j0 Z, M CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    0 |; M- j5 i  s( P# I  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9,
      U: l: V  v  ]* s  3.577961588890861*^9}}],
    ) V  O2 w$ L* K2 _) i$ q: O9 |8 t/ {+ C; r3 e, c
    Cell[BoxData[
    ! `& \$ D* {3 W# ? RowBox[{"{", 7 ?# R$ e% B! a& D8 r, m7 ?
      RowBox[{5 D$ l* U+ q( h' K9 _
      "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",", + J' P* ]" O# g
       "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],
    # V' K* C9 p- @0 R/ A/ a  "}"}]], "Output",1 [& ]3 I5 X! z1 b1 k8 V) X0 P
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
    ) ]8 G; E) J: Z2 w& K% S- f2 M& F) ~
    Cell[BoxData[9 r: ]6 G* T# ?! c4 W+ P
    SuperscriptBox["\[ExponentialE]", * G4 \% M8 u' l2 ^: g5 n- k
      RowBox[{"3.141592653589793`", " ", ; R$ B' K5 S& `4 d) l* ~
       RowBox[{"(",
    " A3 b! S  ~$ ~; v7 B$ R    RowBox[{
    4 `- m3 Y9 K2 M7 G5 T1 [; L     RowBox[{"-",
    , G) H. ]* @) W+ c8 U" ]      SuperscriptBox[
    * V- r% s' q2 V( y7 h; B  s+ K       RowBox[{"(",
    ) T  i7 ^$ U1 j$ f! I- h4 K        RowBox[{$ N* Z5 n/ `' B3 h/ c
             RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
    5 y+ T4 z2 T$ y, ]     SuperscriptBox[
    9 a2 X" n2 O. @2 g7 x9 [+ U      RowBox[{"(",
    & g& s) O4 |/ {3 I7 @( h       RowBox[{. K- S7 n8 o4 {" D* x0 n5 |
            RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
      _2 X0 L! g7 C6 Z0 c     SuperscriptBox[' d& \* N4 |; u
          RowBox[{"(", $ m8 r1 i0 y% U
           RowBox[{
    ' y9 _0 {- |: l0 d        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", , [1 v( a3 ~5 Y% E
         SuperscriptBox[! b  N& B) l! \5 o6 x
          RowBox[{"(", - f. J) S$ n: A2 O. ]  l( g3 t
           RowBox[{
    ' B% s$ [; V4 g0 S1 [  T1 o        RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
    - b6 c8 D7 e) j, v: f0 X2 j     SuperscriptBox[
    8 N8 }* s! E" }$ G% D5 y" m# \; o+ r      RowBox[{"(",
    # N3 V, a$ _5 S. B       RowBox[{1 U' T& B% Y- ~- n
            RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-", - k6 Q: V& M% b" E/ O
         SuperscriptBox[
    7 T; E, {; e, `) M      RowBox[{"(",
    ! }! f1 R& L+ ?! D- F7 ?       RowBox[{
    6 n) n: ~9 [) a5 j: ]5 B5 l        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
    1 g8 q% i2 H. v( h     SuperscriptBox[
    & T" \- I4 \, d7 u/ V* z; V$ H$ ?      RowBox[{"(", 5 W5 |, n& v. G" ~$ }
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    + y9 F: z& Q2 L/ `$ ?1 C) s* P* }     SuperscriptBox[0 E; K9 j2 _0 I2 o; ?$ I
          RowBox[{"(", ) x3 @# N6 L: L. Q
           RowBox[{0 |8 j6 i6 h, }: m4 V7 L
            RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
    " A* j  Q, _+ u* `, Y7 E/ }% P6 ]/ `7 j) F     SuperscriptBox[
    / K( i( R& ]/ G0 a      RowBox[{"(", " {: V' O( u* u4 G/ k) v' t
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], " Z" e& ?; G9 M2 s( |
        ")"}]}]]], "Output",2 y: y) S% j2 J. P
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]. @4 z# }* C2 U' a6 ]0 Z
    }, Open  ]],4 R& O3 C+ {) s
    0 e* p& }0 ?, y: ^/ Q
    Cell[CellGroupData[{/ Q4 E: v, u* Z! b, g% ^5 Z
    0 T, v- B0 ^0 _8 ~! E2 x! M
    Cell[BoxData[{
    & ^8 I4 e, B4 W6 j' C" J RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]", ( S  ]1 ]% L4 a% }( S; d
    RowBox[{"u20", "=",
    8 {0 J2 J4 E/ g7 a' ?  RowBox[{
    4 m( a' O$ S7 W6 T( E0 F4 B- i   RowBox[{"Exp", "[", 6 T1 h2 O8 w6 ?- [2 X: {, B
        RowBox[{( G. E" a2 _2 t, I
         RowBox[{5 M8 Z/ O( E2 L2 y+ X, R
          RowBox[{"-", ( J% V8 p1 J7 ]; u
           RowBox[{
      p+ i! F7 u' |. I! G        RowBox[{"(",
    4 S# U$ D$ v! V* x+ f         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    5 C2 x. q2 ~' H  A1 W        RowBox[{"(",
    ! |3 A: u1 R: _- {         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],0 ~7 y! V: P  U' U: ~' f' g
         "]"}], "/.", "DeltaX"}]}]}], "Input",* m0 t" Z& {( D0 O9 U4 k
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {$ D2 ?" n* [$ s& ~% n0 V
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9, , Z! K% x8 V5 L( T3 }
      3.57796159382047*^9}}],
    7 l# [, ]2 o3 X, y; q
    - _  e  ?! d* X0 KCell[BoxData[
    " x$ m9 O7 i4 E% q# m. S RowBox[{"{",
    + h4 M& x& C' |8 ~  RowBox[{
      X+ S1 g/ C& q# i$ a  "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",", ' W) f8 n: B8 R5 t2 \! g( ]
       "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
    1 T( K# S0 p: g) S/ o  "}"}]], "Output",
    ! R7 F/ b/ C* g) l7 N! O! ] CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],* z5 e5 |, j9 h- i% c* D8 B

    " C' l0 }; y6 k; E" qCell[BoxData[' ~9 Z) M. a" N5 |. F
    SuperscriptBox["\[ExponentialE]",
    8 C; }, R7 b* u0 B( l9 A  RowBox[{"3.141592653589793`", " ", - a0 B/ Y5 v9 Q  z( i' |# J
       RowBox[{"(", ; Z$ R5 X! A+ d/ Y
        RowBox[{
    8 Q' g* P; N% a     RowBox[{"-",
    8 u  a0 K  X5 U% X. P! i( C      SuperscriptBox[. r  y5 p5 P: A6 A9 n9 v: A% @
           RowBox[{"(",
    ( I! e& F- p$ W        RowBox[{
    / X2 V- t7 Z/ s. E, V- w# s         RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ; C+ ]1 M8 L- a* I! M     SuperscriptBox[
    2 o6 ~/ y- P- m" f8 ^      RowBox[{"(", 2 \9 r/ l' S  ]
           RowBox[{
    / I& {5 f. p0 F1 V7 v        RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
    ' `- \% M: w# @4 b7 C# {     SuperscriptBox[$ ^& y; Z  m9 X7 n" M
          RowBox[{"(",
    . x7 _  C/ e4 P+ s       RowBox[{0 c, f* R- T8 H+ f) b- z# C1 Y
            RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    3 n8 T% [, r9 U( Q4 d/ v6 ?+ i2 I. Q     SuperscriptBox[
    " n7 N/ l% h4 ?( r: w      RowBox[{"(",
    0 y: |! ~0 V9 K( N0 O9 d  V       RowBox[{& o6 I; l5 F5 T/ z# C1 C% [
            RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", * G$ n; V# F6 k2 o
         SuperscriptBox[
    ! z7 O2 f1 N! Y) M8 Y  v( ^! H      RowBox[{"(", 8 }  n% w/ z7 r$ a! O
           RowBox[{3 V" e% X7 O& E
            RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", 8 N9 |4 f) i# u; w8 ~
         SuperscriptBox[* y8 l7 B7 W3 V) l0 g
          RowBox[{"(",
    & S' N2 }( N+ ^' L% u       RowBox[{& P5 r: d: t7 ^) y. K
            RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", 9 U! q: Q4 R- [
         SuperscriptBox[
    + o( S+ }: Q$ J. [/ b      RowBox[{"(",
    , |4 g( F) `+ X5 V( \       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    4 g, n7 Y4 P' U     SuperscriptBox[2 V$ ?2 A' l5 E1 z4 q: c( {# V
          RowBox[{"(",
    ! S4 j; R. `" T  w! \& T( [       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 1 {9 N4 {' Z- y  o! Q* W6 {
         SuperscriptBox[
    # f! [" x* Y  I4 ?) E' w, B+ e9 Q      RowBox[{"(",
    ) y% ]' Y( j. R$ [/ a       RowBox[{
    + n3 y* {, m  {        RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], 8 A9 x! y9 c6 ]0 w% ~1 `
        ")"}]}]]], "Output",
    * m% \3 J' t$ S) E/ z/ i CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]9 a* `( c4 e; n' H3 ]/ F5 c5 X
    }, Open  ]],
    1 {/ v% j* r0 V# |$ j: q8 w- w" i" K) S9 E- b
    Cell[CellGroupData[{5 Q% p( k0 \' T

    5 M- ?- b& }+ Y+ _7 NCell[BoxData[{
    & A7 \2 \1 n0 x3 |# [) ` RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
    % h' L8 }1 ?3 ]6 L. q- Y" ] RowBox[{"u21", "=",
    1 j9 x0 n/ a4 o6 ], {  RowBox[{
    8 i# c$ `0 @2 r( |; R, }   RowBox[{"Exp", "[",
    & H6 j) b& C/ f, }    RowBox[{
    ) J0 ^  Z5 H5 I! r     RowBox[{
    ; }- Z1 U, a, L$ ?, y7 t% D9 n      RowBox[{"-",
    ! w4 s3 P7 E/ F3 O7 I; D! x' k       RowBox[{* J; u% {# G: _* K+ ?
            RowBox[{"(", " H: t* _$ c; B  {( o9 R
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    # Y% G5 k$ E9 @8 ~        RowBox[{"(",
    ; O$ F4 i) V, z7 c         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    . ~% P3 H& I3 C: \$ L. D     "]"}], "/.", "DeltaX"}]}]}], "Input",: p% H* \2 y- I
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ) r5 K1 u& q$ e% |1 @  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
    : @0 Z2 b3 O8 m5 i. o  3.5779615991556787`*^9}}],2 L. W/ S" F6 @

    7 L) {+ ]/ {( B1 ^, Q7 J% n: @) H# S( lCell[BoxData[
    + {1 O+ T5 f' X( p5 m/ {- p( R RowBox[{"{", : c) M5 W8 U# l+ h+ X9 v) E$ c6 ]
      RowBox[{: d% ?3 ~" N6 B4 p  s- n) I
      "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
    % O; ]1 P' J5 Y: N; n   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}],
    9 I6 t# q3 D7 T- F5 n  "}"}]], "Output",
    0 r# P+ O5 P3 b$ [ CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],
    9 t* o: I: e, X3 ^8 k# W$ j0 \' |+ g5 l$ Y4 h% B7 u$ M( \. _
    Cell[BoxData[
      ?! f& Y# b% X- v: R SuperscriptBox["\[ExponentialE]",
    9 D7 _% h9 _- Q  _) t. G; {  RowBox[{"3.141592653589793`", " ", + `% D2 [5 M/ Z2 N: B1 y: ?; Q$ k% Z6 ~
       RowBox[{"(",
    2 K# \  X# q' Z, {* b3 U2 e    RowBox[{
    % ]; V; i! C# I) l3 J. t     RowBox[{"-", 9 Y) L" u( p% c
          SuperscriptBox[
    + \( ^/ \% M( z1 D3 u6 i       RowBox[{"(", - o7 H6 H6 k, b; t9 S! ?/ B. D
            RowBox[{: ^0 V  o5 Q- f9 w8 y
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",   ]- @' O+ _7 w0 b+ [
         SuperscriptBox[: t, N" A+ t: o6 P" t( _- S: l
          RowBox[{"(", 2 a* j- \/ E, i, D/ u5 Q
           RowBox[{! V7 O7 X- d% j; `# P: _
            RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
    5 _# }$ S/ ?# A     SuperscriptBox[
    5 Q- |# U. @4 z' q      RowBox[{"(",
    & _' O9 }- ]4 ?, @6 W1 d2 H       RowBox[{6 t0 _& N8 q3 o% c$ K6 e
            RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
    ; Q& z5 @. |$ s     SuperscriptBox[% |2 I. g% l$ _! u" j; j; T
          RowBox[{"(",
    9 _1 d6 Z$ z/ a3 v5 E       RowBox[{
    4 \# q+ T4 i# @8 o+ {3 y        RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
    ! E2 e4 E) L+ T: A' K1 l     SuperscriptBox[% z8 W9 U; T' x# E6 {
          RowBox[{"(",
    * h$ B* W4 k( O' R/ ^' O  p       RowBox[{2 E* e5 L- j3 y: a! Y$ h! `
            RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
    6 F. D1 w. g0 j5 Z& u- P' Z, t2 v6 _8 I     SuperscriptBox[1 ~0 [7 ?5 A( @! T  V2 ~3 S
          RowBox[{"(", , M' A1 c) \6 I9 b$ Z( H
           RowBox[{% q& ~" B5 w5 [7 C- `" t+ a
            RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    ) B5 {8 e4 p3 _9 T) _1 H# K' Q     SuperscriptBox[$ I  J5 Y; f0 q; F0 o
          RowBox[{"(",
    3 ?' k' H2 a' o7 q4 L& i       RowBox[{8 M! Z8 H6 _8 j8 ], M& X
            RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", 4 Z2 r. \5 x/ `$ Z, |/ D1 I
         SuperscriptBox[
    $ T, |# }: H. \, M; O      RowBox[{"(",
    # w' x! m" a2 C! }& u3 A' V       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    8 y6 h2 v( ^" ]* d4 W7 p. e     SuperscriptBox[  W% d7 ]( L7 q- z. J2 N
          RowBox[{"(", / G  H9 z2 ^2 y
           RowBox[{
    ' o6 Q8 a- N; ^        RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
    $ d1 h) _4 K) L+ @: q    ")"}]}]]], "Output",
    # B& ?& q/ e+ b  W8 N( d% e CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]
    7 b% S/ L0 Q5 W$ d- i0 ~2 t}, Open  ]],6 t( a1 j& Y! B1 ]" F( {$ }# b
    " R: f# K' B6 _4 }- ?
    Cell[BoxData["\:62df\:5408wi"], "Input",- \; p& u" A9 u0 f8 I
    CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],5 j- \+ u5 n4 u% [

    ( M( Q* B6 v2 x0 `- M, @Cell[CellGroupData[{/ s! y0 `0 {2 k( |

    ; u* S2 {2 C! @1 V' n* aCell[BoxData[
    4 ~* i& Y& v: c7 w( }# \* V( T0 @ RowBox[{"y1a", "=",
    1 E& p" ~( m$ e8 D& B: f( y5 n  RowBox[{"Table", "[",
    & c+ A; p# ?6 C' p) \/ p1 v/ _   RowBox[{"x", ",", + b6 H, j& S! k* `4 \9 z' u
        RowBox[{"{", 0 A6 E1 k: [  [; S2 N
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",9 p2 `* Y+ l6 M9 u! g
    CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    4 `6 M: L5 Y) L9 E  3.5779226649375*^9, 3.5779226810625*^9}}],
    ) o. T( f/ W5 `% |2 C4 ?$ y' m" c4 g, W) _
    Cell[BoxData[
    . A. |6 N( `+ X3 n" }/ j RowBox[{"{",
    4 j& q6 [0 j% m9 Z# l  RowBox[{" }1 W. O- d% r+ f, d
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 7 R, }) k7 ~3 u4 x( t- v" Z
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",. z$ {9 z1 ^( Y% e
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    ' d5 U4 _$ Q. p  ?- q   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ; U2 i* D; \; {1 O
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", 5 E0 _8 P& a4 D4 _! g
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", $ f9 b' B8 d$ a1 h6 ~8 P
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", $ j$ H. u, z6 ^7 X9 f9 V/ ]) ~% a
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", : y' e2 K- ]0 u$ H
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
    ; _0 P6 p# d0 I$ N- G  "}"}]], "Output",
    ; r& n2 c6 `' _2 F. F" I CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
    6 J! R/ p( }' a0 Y1 J  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]
    2 L" W0 b5 y# w5 n}, Open  ]],( |0 y& p2 C1 M0 [
    / p: C) }- r' \% n8 |
    Cell[CellGroupData[{* Y- a6 K+ h% {/ m+ M
    ; l- x3 V! E9 v4 k8 q
    Cell[BoxData[
    , y9 v6 U6 a; ~8 n0 z) n RowBox[{"Data", "[", $ Q  z4 q; q# i7 v
      RowBox[{"[",
    ) e- c2 R( u7 W  {" h% {! y   RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",
    $ c2 _* e2 s" j0 Q  i% q CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {, c8 z& w/ D1 G2 x
       3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],/ j7 }: L2 U0 L2 n; [- R
    2 P% p. w7 X! d  g. F3 D
    Cell[BoxData["0.899882`"], "Output",1 g3 I6 c! H# R6 J
    CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, 5 d  P6 R" j3 }( m5 D* ^
       3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9, & \; w  i! W: E
       3.577961929080654*^9, 3.5780123419375*^9}]3 h5 o7 A4 w; ]) ^- O3 p
    }, Open  ]],5 ?: X9 F# n8 K7 t& N4 ]

    ) Q' Y( \: \3 ?6 fCell[BoxData[9 D6 E; |3 x2 S$ E: S$ Q; w+ D
    RowBox[{"For", "[", 5 M" J" t7 e, J/ _3 _9 B  d$ C5 s
      RowBox[{
    7 U5 v4 r9 b7 c   RowBox[{"i", "=", "1"}], ",",
    # r. W' `) H. I  S   RowBox[{"i", "\[LessEqual]", "60"}], ",", / i1 w6 t9 T" q& n& q4 L5 ?' s1 J
       RowBox[{"i", "++"}], ",",
    $ [- _5 A0 v9 ^" b% @   RowBox[{
    ; s. X+ g; }; b: j) u( n    RowBox[{"y1a", "[",
    3 w; Z% D. v% n1 C" }; P1 E8 H: F6 y     RowBox[{"[", "i", "]"}], "]"}], "=",
    9 Y- T7 i! e8 w: `    RowBox[{"Data", "[",
    ) g5 R3 H  s6 d$ b8 u     RowBox[{"[",
    , ^6 ^8 `) g* t% E      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
    / F: @! R3 J+ ^. ?* Q CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    ( c4 Q5 F$ Z# N4 C0 p# ?   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    3 d( {7 a7 g' S4 y" z  c   3.577922923203125*^9}, 3.5779588839702806`*^9}],
    $ O0 T3 b2 D- Q( b) q4 s8 I7 T% t2 p+ s+ w* D! }1 f1 x
    Cell[CellGroupData[{8 J- g8 U- ]' i

    1 r) n* Q" {- u9 S8 Y& [5 b7 _Cell[BoxData["y1a"], "Input",
    * f( E: j8 F! Y CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],  j9 s& @) U6 o
    0 R% f# Q" j& B5 u' p3 q
    Cell[BoxData[) X0 C9 V; \& [- B
    RowBox[{"{",
    9 w) {) l# x/ H/ [1 T6 B  RowBox[{% t8 s1 e' ]0 `. A! p0 I& A9 ~* C
      "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",",
    0 I5 l8 F4 u4 C9 J, ^* z) F   "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",",   z9 i2 }6 E7 ~9 Z" o0 s
       "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",",
    & d$ E) [" w3 T1 v: G9 t: A   "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",", : u) D6 h8 C0 r5 s+ E, A0 P9 }  ^
       "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",",
    # M8 n/ u; B$ n% u/ O3 k0 q/ t   "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",", ) ~: b0 \- |& t. x3 B; j  `8 A
       "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",", - O$ S* L. s; Z/ {0 w- j# y* z
       "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",",
    . y) }4 v. s) k. y* x5 m9 K% p4 Q   "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",", 3 w5 G6 r' S, o+ t& |
       "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",   V% G0 P$ Y5 l2 b( W: t' q' n/ m! |
       "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",",
    8 y: n4 Y! r: Q; y5 j2 m+ w. m3 V   "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",",
    ) F( v, @0 q$ |! {3 g   "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
    4 F9 \0 x0 U$ }( d/ g/ H   "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",",   C5 o4 L+ |( x! g
       "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}],
    ( ?: W+ d; t7 l3 x9 h' w' Y5 K  "}"}]], "Output",- E6 c5 e  s. F9 D- U2 y/ D
    CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
    " ?- J' A  }0 j6 a6 ]# A2 Q1 E  3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]* P& \/ W  }; E4 q1 ?
    }, Open  ]],1 ~- f2 K% G5 u" {* U* g

    1 ]2 r9 e( |, b( ]Cell[CellGroupData[{
    ! o$ _" V6 G! x( O- W' S$ P' e1 w9 C% J- B; t* S' Q7 K9 n6 J
    Cell[BoxData[
      s6 c; T9 k% k+ [7 L RowBox[{"m60n21", "=", : E  n5 Q9 P3 G; n
      RowBox[{"Table", "[", 7 o( ~2 Q8 D' X$ w7 L& ~
       RowBox[{& x3 i8 V3 K- K( j$ w
        RowBox[{"Table", "[",
    . y  P0 ~; s% D: E/ Z     RowBox[{"y", ",",
    ' Z1 G, D; W+ g/ C- v  V8 t      RowBox[{"{", ! Z" W; v! k1 D) w8 Z
           RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
    6 B1 A) D- z4 N* U, }' g    RowBox[{"{", 0 o) t& E/ H) w" ]' \) k
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",3 b' T2 l. ^  l, E, W8 k' w3 r3 [. g/ @
    CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
    5 [4 |" @! u3 ~) ~  3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9,
    % ]' ~$ U8 {0 D7 J5 O7 z  3.5779619706547265`*^9}}],/ f, }+ m1 @7 p' K  i" a2 ~
    4 }6 A  `2 q3 W" A3 S
    Cell[BoxData[
    * t" k3 n- b3 h3 y1 z RowBox[{"{", ' i2 _2 e7 ~- X' ~8 u: S4 \
      RowBox[{6 n- V% B! `4 e
       RowBox[{"{", 7 L6 m6 k+ W" a+ J/ O! E
        RowBox[{; R: O8 ^+ ^7 S7 E
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 N2 g% Z+ _" U) V" N
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    : Q% t: Z3 s; S( P! \     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ! X2 v" E* q, a  E6 H     "}"}], ",", * E& ?2 e* B, Z3 n9 \
       RowBox[{"{",
    . j- T: n# ]3 z    RowBox[{
    7 c  J2 b% m1 [% b$ Z2 J  e    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    7 T/ o2 w+ r" t      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , B' ~# N: j4 l4 |7 @
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    8 n' U) R$ Y8 V6 F0 r     "}"}], ",", + g' x. |/ x& c- ?
       RowBox[{"{",
    8 l3 U- \5 ], i% Q7 f4 _    RowBox[{
    + {' W( L5 K# h' {9 l9 {( F' ~    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ( `( O8 i6 [" z$ c% y* A: @      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + \" j" l% [( D: ]' n, ?" y" x
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    % v+ D/ V, v8 r7 `/ v6 ~. H     "}"}], ",",
      }! l1 D, E4 W6 Y# v3 D: u4 u   RowBox[{"{", / ]# T6 e9 h3 @0 k" `8 E, g. s' W
        RowBox[{
      Z7 V' v8 s/ W% _. n+ ]    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ |. m  [) B+ [  l( q
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    0 a9 c% ^% O# i3 n6 h7 C7 B' r, y     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    0 Z) N$ E$ h4 R) n  N9 T& D5 p     "}"}], ",", / H3 a# j$ b9 l  J+ J
       RowBox[{"{",
    $ J7 T" n- Z! a- A9 g  R    RowBox[{
    ( ^/ n% c- d- g* |/ P5 g/ b    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 A$ l; a1 y) i( d8 I) Z6 G" k
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    - i% z/ j, B; o     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ! g1 U; ]' _: N  _( p     "}"}], ",",
    + m0 b, G9 T# G: J- L! H- R   RowBox[{"{",
    * ?5 h( E. J3 T0 I    RowBox[{
    & z; u% B! @, z. W2 h( R1 J    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 I3 U, u3 _; P9 O* |% K
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 o/ n5 Z# t5 q8 w' k& C+ H3 O
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    1 E$ ~! S* Z( r: `  R. y     "}"}], ",", " o6 G, Y9 |- h# L; |( d9 ?( Q
       RowBox[{"{", & p8 l3 K( ^( m" |$ A# N- o* m; i  N
        RowBox[{
    , ~* |9 W2 ^  H' t8 F: }; D8 n: |    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ I  ~- Y9 w  u/ ], ?( _
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 Z. T% {- b+ I3 M# }8 ]
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 Y; F6 I) N3 j( s* J, C# a- @
         "}"}], ",",
    " ?) U0 g+ d. Q   RowBox[{"{",
    ( o; `- W$ m1 l2 |, a    RowBox[{
    . e+ T0 Q* k7 W6 k* X, A3 O    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# y- K" _0 {" o4 {
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    $ K6 r+ ~% `' n* |2 X% Z     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    5 i: E% c0 \7 o4 c! a$ T     "}"}], ",",
      U4 ?1 |- k2 d6 t, m   RowBox[{"{", & h* E4 x2 c/ F) d% E2 p  {- y% A
        RowBox[{
    # F4 G7 }* F$ ]1 t    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ( ?# N. Y5 L. e3 q+ [$ L" A      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 C  M4 S0 K' j& u: K( y/ K4 `
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ' K$ A, I0 N( [     "}"}], ",",
    7 ~! D5 _7 e  y- y   RowBox[{"{", 3 V1 g4 d+ q5 d+ q5 R( v- v
        RowBox[{
    " z; }8 z+ d& Z) g    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, [1 J( @, [, T* p1 e  K+ D
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 y" P7 j) F% D
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    : F* I9 O  C- p  w     "}"}], ",", 2 q# [  S  m3 p
       RowBox[{"{",
    % m5 n' e: `7 I% }7 S! M$ Z$ |    RowBox[{
    3 g4 `& U7 X& s, ~# D5 D% m    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 p, J+ c" L2 Z8 a( ]: L- C# g
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    8 i% J. v# X- P7 P6 I  ?     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    * c- G6 G* b3 w: j0 S# d; r/ E     "}"}], ",",
    2 l; l2 y; G( b/ l4 h6 z1 E   RowBox[{"{", ( P8 G9 b2 f0 _9 K7 F! p5 I7 v
        RowBox[{
    ( Z9 r" H$ s% U6 E0 r) R! M# C    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",  R0 f5 @: l+ Z% a, E
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( \' D$ q- D) Q) S
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    9 s& N/ d3 X; _( q$ E* N     "}"}], ",",
    : C9 p, x# I  ~5 n( X   RowBox[{"{",
    ' ^! m% t% _5 Y0 o9 [% L. L    RowBox[{$ _( x" n( d8 [4 S" T5 ^1 h2 }
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 ]4 J: Z% T- O6 F
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' p" A, m5 ^% c  K9 Q
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ q2 v/ W# H! {; |4 g/ X' ^
         "}"}], ",", 3 n% U; r, w8 c, g+ R1 M8 U
       RowBox[{"{",
    # u' i$ M; ]+ _9 e- |9 s" i' y% F    RowBox[{1 \. E6 }& r6 k- |, a/ R( F
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 k, x6 q( j, P7 I, e( J
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 n  U$ p; v- _8 {% n, F
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 F6 R/ G+ u* X+ P1 ]* w4 u/ c3 Z
         "}"}], ",",
    % ~2 f/ G% Q8 V( }   RowBox[{"{",
    9 f( j, ~5 i5 S$ i; a9 R    RowBox[{
    2 ^/ c2 o: p" w/ f2 B    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 ^* C8 }; T# z5 I. }5 _9 m8 O      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    " B5 Y+ V$ L9 [     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    , F. R& K( q  }! _5 l5 `1 A     "}"}], ",",
    0 X2 Q" l0 {* X4 w% @' Q  o   RowBox[{"{", , V/ i& b9 k! g6 G
        RowBox[{( f. ]$ B! G, q' g
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 G  v$ d8 H: D! B$ x      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - [4 f! i' C% r) p! Z' Y
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . z' O/ x* s1 R: V2 Z- e     "}"}], ",", 1 l) e/ P% R' o3 U
       RowBox[{"{",
    " r/ Q( _* i6 b8 m" p* ~) y, M2 m6 F- {" [    RowBox[{$ f, @0 r$ T# c7 l5 I+ G3 J
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 b$ \9 v+ V! d' K. B' l+ U
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * M4 f; l& s, ], o9 j
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    5 K7 E& ^6 D& e     "}"}], ",",
    " p6 E1 K) k! z+ R8 |   RowBox[{"{",
    8 i5 N# c$ d0 i* v1 \: C    RowBox[{* Y2 l  o; \: |0 Y
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    + V8 f; v  Y' o! r5 S! N) I3 T9 N      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + R1 X1 q- m: U, A, T. {! k
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ; f+ p+ b7 Q) m+ F     "}"}], ",",
    $ C! e7 K$ k9 _9 n+ A( {   RowBox[{"{",
      o; e0 r& b9 I; R2 R. W6 y3 e5 G    RowBox[{7 Z3 x9 Z7 I  F: \8 C: D
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 I- x' T0 O. W. f      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 T- b. Z+ U7 b, x* j
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    8 z8 }# t% `% D6 L7 o, H     "}"}], ",",
    7 w4 _* [3 f1 Q/ A/ e   RowBox[{"{",
    9 \% S. E! B  F" Z# F    RowBox[{
    1 R2 T; q( N) o# @9 |2 ~+ D( e9 Y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    6 A4 C& A; k# ~: {3 _4 ~      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 N9 y& v& n: L7 ~2 Y. K
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    1 H4 e  h" Z8 g, U' j     "}"}], ",", 7 c1 B; i3 W# U
       RowBox[{"{", . B2 w& Y3 I" X1 ^7 p: _' h
        RowBox[{0 f1 D* y  R! D; H9 n
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. b+ R4 c- i! V: e8 M
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 ?4 S4 y- p" W, K
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( O  H; ^$ _" e
         "}"}], ",", # i" U7 \  p: ]2 Y6 p
       RowBox[{"{", 3 \) b3 O: p  D4 j' T
        RowBox[{
      O& `- O' b9 ?4 B* x3 _    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      P2 M2 b8 u2 V- c' J& d      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 D4 I6 C+ u3 P# P3 d* N
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 y1 w0 M2 H" {
         "}"}], ",", . V; w; f' }' Y. Z8 x% L0 ^
       RowBox[{"{",
    - e" {' h& N2 q% _9 h0 x1 _& P    RowBox[{
    & T& T' l6 O0 i& {5 ^1 ~* j0 Q    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( h' S: J5 |' K0 ^
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    3 Y- U3 ?' Z. g/ h9 }     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 Y" L7 v2 |# ?  V! u$ F* x$ u
         "}"}], ",", ! k9 Y5 n8 F( ^" g' J
       RowBox[{"{", " E2 p! P$ {- V0 p0 t) x* V  k* t7 h
        RowBox[{
    ! V8 H9 |) t4 L" i6 ]    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    # V& X/ N! A7 t, W/ |      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & y$ w7 ?4 V1 S  ^$ I  _* V
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    3 n* P, Q. Q* r# H* ^     "}"}], ",",
    3 R: z/ o  [! h2 \$ m. y8 g4 d4 l: Q( H   RowBox[{"{", . h% l) ?3 p9 F6 H+ |$ d9 u
        RowBox[{) ?5 A1 {, a7 {  S& b% Y) @
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    & o6 `; M, x& s- ?/ B- I3 @* K( E      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    5 d6 X0 L1 V6 i' M     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ; T6 u$ {8 V5 G0 I7 R; m: r2 a- v     "}"}], ",",
    3 K% G! \, c; Y% I' g  x3 p   RowBox[{"{",
    1 A/ B4 w+ M3 {    RowBox[{# w" H9 I  b5 Y8 O( Y% m) F8 e7 ?" N
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& }, o3 y+ Q; v4 {; p
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    . r( C& ^$ L) r, a  m' u; K     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      n/ W3 P- ~0 s     "}"}], ",", , ^% n! p0 l  H5 x, B
       RowBox[{"{", ; Z) `8 T6 K) z4 d/ u# b, l
        RowBox[{
    - S: f0 q" Q7 K* e    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    . _/ v) @& ?9 |4 C5 Z+ @      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    + ]* @: D: L2 Y& G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . E# U! w6 |8 ?/ d2 `+ Q* `     "}"}], ",",
    7 V0 Z+ b& Y8 o5 z/ C2 c   RowBox[{"{", 7 q; a" `+ J( K- [
        RowBox[{/ }' g+ L! F9 _& @# v0 e5 h# y
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- M$ m8 [7 Q0 `% B
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ) j( R+ J$ n+ x+ H6 H     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 t; l+ `1 t6 \: o
         "}"}], ",",
    " F9 j) o7 b, N   RowBox[{"{",
    ; H9 ~3 _+ ]4 u0 c# P    RowBox[{
    5 V; m# K7 b7 |; `3 @3 o    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 ~8 f7 s) Z7 Q: v      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * ]( N* \4 g  i0 e) `
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    " M. U6 S" F7 S+ z" r4 n, g1 Z     "}"}], ",",
    1 o7 ?- U/ n! r, `   RowBox[{"{", 7 B; K7 t, k  A
        RowBox[{
    ! I3 \; G# B& \3 L9 }    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 ~* C4 @* K3 B1 A" L3 C5 K8 I
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    . d0 \/ b5 _1 e- n* x* A/ a     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    / q* h+ E: C3 x3 T; y* K: H     "}"}], ",", 5 o$ E4 U+ t, h7 [
       RowBox[{"{",   r& a" a' Z8 c
        RowBox[{7 M4 U& k; k7 e+ m
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 P3 A) k) r& }  c$ C
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    # j; n2 ^8 f9 t! J/ p     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ W3 x, j  c" R0 n4 R; }7 M
         "}"}], ",", 8 J6 h9 P2 y4 }, P! P
       RowBox[{"{",
    / Q2 K1 l8 `: W# W# F- X/ c    RowBox[{
    ; p/ v& X4 \/ K+ i' F    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    & ]- S8 N% D( k      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 F" M1 h7 j1 a" X' m$ S
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; K8 k! r3 d& ^: g# \* s( e7 Q
         "}"}], ",",
    1 L2 E9 K/ A+ k   RowBox[{"{",
    4 C3 Q# P( N3 p& O0 b( E' ?    RowBox[{; W$ K! d+ p  p* x( W
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ C( e1 I* B  v% i& Q( R% t
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    7 C9 N# U# y2 P; c9 g     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 I3 U; m5 ~$ L# B2 r% x
         "}"}], ",",
    1 L* \, N2 }$ k   RowBox[{"{",
    - L5 U) v% H7 u3 \9 B# E    RowBox[{; p4 q8 Z1 T6 z6 l; O% o# [: I
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 e9 E: _0 q- F5 g, u      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    - ~( n) a' P3 P& I% ~7 G, w( K     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    # K, ]$ K, [! @9 P0 F5 f     "}"}], ",",
    : n6 l" H4 N8 v2 \5 x   RowBox[{"{", ! r, R2 e$ r0 I! x0 m; G( E) b, {8 X
        RowBox[{
    % R8 T* E' q! K6 l    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- j* U9 E+ W0 P
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 t6 z) M% p  M* I8 t2 g9 ~
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    9 j2 A$ u- b" q. x     "}"}], ",",
    ! C* @& D; \- I1 `   RowBox[{"{",
    & _" a+ ^  `8 }8 @4 y3 D    RowBox[{
    : R+ |# F& j9 N4 ~, U& y3 ~, H    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : Z/ y# `" D3 k, o- F: `      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    # B, @% R7 ]3 {( A& \     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    % s' u9 N1 \# n# L3 D! o4 k     "}"}], ",", ! G$ }# l" V+ U$ ~  f
       RowBox[{"{", 7 P) \& l/ w) V6 c: E* T
        RowBox[{
    * g  G! ?8 n0 T' b    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 Q9 e. K! ~+ r) f
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    3 A, S. m3 t- G' c" s     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," y, u6 S! m  l
         "}"}], ",",
    & ^- \# d8 I- h7 t3 ~5 d1 I/ c   RowBox[{"{",
    6 j- z+ r" r  ~    RowBox[{  N& B2 |/ c8 [
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( Y& Q/ Y% g1 ~6 }, t1 ?
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ U0 W' j7 T# q  q( Y& }
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 j/ d2 s  A0 O9 j! ]4 l
         "}"}], ",",
    & [3 c: `1 N* y   RowBox[{"{", 6 K% m1 m7 Y" |5 P& `
        RowBox[{
    6 u  T& f! z$ `    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    - H2 G9 e4 _$ j6 E$ D      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    $ v! v2 k5 B: A# T0 a     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ' Q5 G) v6 {, X9 m: _     "}"}], ",",
    + M1 I7 g/ N% I4 X; {% ?0 W   RowBox[{"{", # m8 K5 G9 P  S' l
        RowBox[{) h/ r% j6 _4 N" ~
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : C2 @5 A/ p5 o8 {3 M      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % `/ g1 Q- x1 x: u, s
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," W; I8 W  b, L4 ^" _( I
         "}"}], ",", / i# Z: Q, |2 a# ]* Y* Y5 p; f
       RowBox[{"{", , k, \" S- U+ n
        RowBox[{' [# z- N' v* [$ |7 [
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    7 @2 }- s; T# @9 L+ d      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    / U9 F; I4 G$ `     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    7 U' a: r* E7 }# r     "}"}], ",", 5 R( i5 ]- L2 E' G4 P* V
       RowBox[{"{", - d5 n' l! N- }+ l2 `
        RowBox[{  [: L; ~- o5 N
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 J+ q4 P2 I) p1 @$ v5 q4 ^- i      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 j7 j  T( C6 D
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    8 \, ]7 Q4 S" x7 Q+ u' g0 F     "}"}], ",",
    # v4 ?- `0 K( O   RowBox[{"{",
    + C/ m1 M& P3 \% ]$ q    RowBox[{
    ! T) x6 Q* Q% V" U- O+ B5 M6 V: H# b6 Y6 x    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# E/ ?1 K& b3 i3 q8 j% b# L: V2 S
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    " j; j/ k5 j) ^* F     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," ?) B; D- a" C# S3 K
         "}"}], ",", . f4 R8 t: ?2 B8 R) S
       RowBox[{"{",
      q; i) l5 j+ [5 I    RowBox[{& O2 r' F2 I9 ~
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& C) m7 q* d" [( g
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' v/ K4 M7 R1 Q% f" b: M; |$ c" z
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: c/ C  f3 ?) m( _/ U9 @
         "}"}], ",", ; g2 |5 b% P2 R1 d1 v* b' |1 o, D
       RowBox[{"{", ' j* ]+ ]3 I& J
        RowBox[{
    7 d$ ~- ~& \/ x6 K* W    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," Q2 o7 |6 ^& P3 I
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    & ?1 ]1 h, f+ p. q3 M     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 i5 P. `2 b  U+ a8 H8 f/ g. c
         "}"}], ",", 3 e9 f; _& E( O  G  W" X
       RowBox[{"{",
    1 d! [: s2 p9 m) R    RowBox[{
    ) p: x2 C' }! Y( b    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& C2 I$ M; y2 X
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : S, q, Z: H2 b9 X
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . S/ H) r& _/ c3 I0 ^  V     "}"}], ",",
    0 i7 [1 z! T2 H. [* _$ q! X1 I   RowBox[{"{", : _0 s: o7 j' a+ Z
        RowBox[{
    ' u+ `4 u! A% x/ S. i+ F    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 M# X. W: J4 D: `8 U2 ]7 V
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    4 ^; `/ b2 j% W9 p7 E2 q     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 [. p* ^: Q0 u+ d
         "}"}], ",", $ H$ I, r" H3 H* b
       RowBox[{"{", 8 Z9 D% _$ [% a
        RowBox[{
    ) S" A3 |. y7 Y) {) O  \5 U    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    3 F) v% T1 Q1 r5 m7 o8 q: D' V      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * T; e+ ~" g" r5 Z: _: c* ]( u
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: s& R/ a1 }! m
         "}"}], ",",
    1 L8 F% k2 |  l/ }) ~   RowBox[{"{",
    : \6 z  w$ L) g) I. U    RowBox[{7 y4 d( u4 C4 U2 ^( j1 A6 {
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 ?6 c) b9 N2 F# l+ i+ ]
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    0 q4 ^- v" G  l! H7 ~) H% N1 e     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    % i! Y$ x) V4 |4 d" b/ @6 \) N     "}"}], ",", ( c0 ^3 w" V; d
       RowBox[{"{",
    4 O3 L# O+ X3 d( C" ^    RowBox[{$ U# u% r# h% o$ ?" k4 `, [
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    4 ?4 Y' z: F9 S( X      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   G" i+ L! k6 L% q8 t
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. v% F$ i. G! ~) E: x
         "}"}], ",",
    1 n& x; w; z  O( X' G) V. W   RowBox[{"{",
    2 J6 v7 d$ F9 Q5 ~' j) O6 d    RowBox[{# W+ J: o; n! F% M
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 L: G5 O8 X. N$ o  d      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( Q: V7 _% L" ^
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ( ~, d6 s" M; d# }. V     "}"}], ",",
    7 I- k9 r9 m! K   RowBox[{"{",
    # Y/ }$ L$ g" F. w2 `5 o    RowBox[{
    3 A$ c. ]: Z! ~% Z/ K1 m- \9 w) [. \    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    & Z7 o- c- z5 j      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 ^' o3 Q) a$ O$ W6 X8 O     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    : G$ k3 E8 }. P7 l; m/ i     "}"}], ",", 0 \& k6 s$ t1 G+ ]1 E
       RowBox[{"{", 9 ]/ q8 c; N7 p# b; D7 U
        RowBox[{
    ' {2 t8 m0 \5 M* O. b2 s    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 J' Z. N- O' A1 ?      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    / L8 o$ r, _- G5 n9 Q: a     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, f) H3 f+ k% Y( y# X8 `
         "}"}], ",",
    . o4 A% y7 N) s" z' D   RowBox[{"{", + |0 G) U! B" r5 @6 d" p6 G
        RowBox[{
    ! ]4 r3 c; r* u) I( w    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 |1 G- \; F9 |- m" n
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    * P+ n: f& X" y% \. I+ i9 l3 `3 f     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    1 r5 y6 Q6 S$ S     "}"}], ",", ' |0 d. {1 S6 l
       RowBox[{"{", $ C$ A' M: h" u' c* L
        RowBox[{3 T2 u1 Y( o8 A- N* w6 x+ K
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 f' T4 [" V! L      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 `; |/ d5 J. w9 w8 ~
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    & f' Y8 d* z; i3 V. K     "}"}], ",", ; n9 O4 F7 x% q" ^
       RowBox[{"{", . F7 ~$ a' D& i$ z0 q, }9 M1 S
        RowBox[{: P& k4 |! ~4 @: C7 N
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    % [' ]/ ?6 L2 M4 G& w- D3 A      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    0 T1 v! P1 m  ]& o  S% D     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    8 c- _$ Q5 e# h) O; c3 w3 t3 \     "}"}], ",",
    - ~/ n2 S0 J  A) |! i( {# w   RowBox[{"{", ( m2 s* y* k. j0 K
        RowBox[{" [5 E' d8 |4 C$ W  b
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : r8 x% l7 e0 y) z      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( t+ z+ _# m! I! p- {# {/ r. I
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    6 K1 Z$ S' L+ @* u. g7 g9 f! f     "}"}], ",",   \) A4 I( U- I% G8 e
       RowBox[{"{", 7 b! c4 A8 X) m9 K9 d5 G
        RowBox[{. k3 l+ M8 L6 }2 D& O! J' {
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# I5 n9 ]! U9 n1 U$ c4 h
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ' S" L& n1 Y: r5 C- Y     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 J. {; |& M% B3 q2 D
         "}"}], ",",
    . z: ^  n, _  K( b( D5 }8 g. u   RowBox[{"{", 9 M" c2 m" x' U" a8 P
        RowBox[{7 E! J" F! g3 R. X$ `1 X# R
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, ?- Z$ o& T$ E) I8 O2 {% U
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! K8 v* F8 o% `& _9 x- b' [0 ~     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 @! i+ G/ ^, x- F; O* G4 c
         "}"}], ",",
    % c( n: V9 L& G8 w9 c' b   RowBox[{"{", ) D) b- F6 w! I% B1 o
        RowBox[{
    ; ?# M, X* f) g- H2 u; m9 _3 d/ t# e    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    $ p( _3 H9 N, n. F  g      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 L5 ~% Y3 }  y. E5 B     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: a# k6 Y' f  L$ b4 s; m4 P! F
         "}"}]}], "}"}]], "Output",
    # a+ n* J" g3 [2 \# p0 h- Z5 [ CellChangeTimes->{/ K; P. F3 E  m) I. V% x6 E
      3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
    ' t/ w" e8 H& ~; U; S   3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9,
    + G/ H  G' J7 J   3.5779619748823338`*^9}, 3.578012345453125*^9}]
    & Q0 s  v& \, ]- O}, Open  ]],
    2 D- V8 Y1 i9 x6 \* K" r+ F, Y7 T$ I0 B
    Cell[BoxData[
    2 O1 J5 m. _0 D  ]8 X2 _ RowBox[{"For", "[",
    ; C9 I8 K1 {- A, H# p9 A, @  RowBox[{
    ( B5 k& p( f# S* c1 C   RowBox[{"i", "=", "1"}], ",", 5 D& a) |3 }2 l3 t3 G! h/ ?, G5 @
       RowBox[{"i", "\[LessEqual]", "60"}], ",", ; H7 r2 u' @, X& y; K
       RowBox[{"i", "++"}], ",",
    1 r) i# s! z/ r" r: v7 p/ }   RowBox[{"{", "\[IndentingNewLine]",
    * ]: C# c, C* s- D- O' @( [: G    RowBox[{
    : |6 V' ~  \; Z  C7 Z* K+ A7 _* P     RowBox[{2 h2 k5 A. C4 U! \0 |4 b( n
          RowBox[{"m60n21", "[",   K& A, K( k: ?5 ~
           RowBox[{"[",
      e0 s) o- D6 q% M. _        RowBox[{"i", ",", "1"}], "]"}], "]"}], "=",
    6 |, D! c& ?. v# O      RowBox[{"u1", "/.", 7 l; g- R8 H! G" I: ~$ Z! Z
           RowBox[{"{",
    ! b( Q3 t2 Y& y        RowBox[{
    ) J3 {  D! s/ N7 J         RowBox[{"x1", "->",
    & y, a1 P6 N9 r. t) n* @          RowBox[{"Data", "[", 7 S/ @1 P4 e6 F* S( P7 q
               RowBox[{"[",
    ; _* R0 C# n# T' I            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",   z$ e. m" H0 r3 Q
             RowBox[{"x2", "->",
    7 L7 \9 P) p+ i5 }          RowBox[{"Data", "[",   r7 Y  o! |- b" R
               RowBox[{"[", 9 o) V5 @8 [' s. n/ @
                RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    # J8 m* k) P1 U; J& K. V# y) w         RowBox[{"x3", "->", + Z; j) Y8 m" x; {' I$ ~1 w
              RowBox[{"Data", "[", : I0 B& d9 N" A) Z/ j1 j
               RowBox[{"[",
    , T+ s- \' Y5 T: y3 U            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 8 t2 D- P( C7 N1 {. b" F6 G; j
             RowBox[{"x4", "->",
    8 G8 w2 ]3 o! ^0 P# z) l          RowBox[{"Data", "[",
    , @/ n1 z/ j8 y! ?( k           RowBox[{"[", : a5 C% N( ?$ l, \+ r
                RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", , I( S9 \: _' |2 c% Q* x; ?
             RowBox[{"x5", "->",
    + Y, k( V+ H% L3 L7 C0 X          RowBox[{"Data", "[", * J" L) T4 ]# G. j' `5 t
               RowBox[{"[",
    % u  O7 Q6 ]9 H7 \            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    ' i* a$ u# ]0 L4 s) p# @         RowBox[{"x6", "->",
    2 W3 R6 i" q  @6 V. C          RowBox[{"Data", "[", # F+ Z7 s; s- |6 K8 a  _! j5 W+ x
               RowBox[{"[",
    % m( x1 M" {3 m$ t* W$ F            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", : L: n, O1 L  s4 _6 K# M
             RowBox[{"x7", "->", ) u( Y, R: `5 [
              RowBox[{"Data", "[", . T. K/ J+ H7 q$ i
               RowBox[{"[", - z1 |( X/ P1 W. f  ~
                RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", * ?" ]- m* L# C. e
             RowBox[{"x8", "->", * {- p) V5 G' Q# N; y  [" k# ]
              RowBox[{"Data", "[",
    : S4 E9 d& R: a1 V           RowBox[{"[", : x. b' ~- `& W, X2 }9 _, p
                RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", # W4 }+ A5 ^; a% P
             RowBox[{"x9", "->",
    ! ^* Y4 B& K1 L5 U. l  q+ u          RowBox[{"Data", "[", 7 m& {5 I2 L5 k8 [9 n" m* j
               RowBox[{"[", 7 R; \0 o! H: d+ q/ m/ m1 i( p6 ]. g
                RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
    & q/ b& c2 m$ C) C$ W. E     "\[IndentingNewLine]",
    ) q( B9 A% m. u$ F2 g4 u/ Z     RowBox[{
      d: P( z6 I" O) h/ n: X      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 c9 \2 a7 E+ n神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗
    : Q7 |9 l. h3 {6 ]/ N% G1 s
    (* Content-type: application/mathematica *)7 |; ?8 c, h' S+ s

    9 V. P( R; M% s* y+ z7 y(*** Wolfram Notebook File ***)4 X0 b: Y7 n! d, k  \- W- G7 L3 U. v
    (* http://www.wolfram.com/nb *)) y3 p, x0 e  R" V

    ; X8 k) X5 I9 q/ g: u(* CreatedBy='Mathematica 7.0' *)
    - {8 e) Q# Y+ O$ T; j) L1 _+ V0 |6 a9 B0 G( B
    (*CacheID: 234*)# x& g! R) N8 G) V
    (* Internal cache information:
      H/ H8 _$ h% w+ u1 vNotebookFileLineBreakTest
    1 ]4 q' ]# [2 m$ n% l; q4 x( \NotebookFileLineBreakTest% X$ O( h, U3 a( L: j  p
    NotebookDataPosition[       145,          7]% D* j; J% K) V' `+ |) _/ ?
    NotebookDataLength[    423629,      11534]
    7 J4 U: ]4 t9 l( e1 k% V6 JNotebookOptionsPosition[    412607,      11173]
    $ }4 [& F( ]4 p) hNotebookOutlinePosition[    412953,      11188]8 P* P9 q+ Z6 W
    CellTagsIndexPosition[    412910,      11185]2 m: s' I$ U& L1 }1 T
    WindowFrame->Normal*)
    0 `: v) U" |& F& S$ R7 B' s* l! R2 H/ h
    (* Beginning of Notebook Content *)  i$ Q" O& }' I. z/ M; i9 [! m/ s
    Notebook[{* B; w$ y6 [& z

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

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

    , D0 f7 ^3 f) z+ H' u$ A+ N3 N9 d: q4 PCell[BoxData[
    8 x* ^" Z5 G$ d- [+ S7 D  L2 _ RowBox[{"For", "[", 9 D9 Z9 U. h  Q3 d+ O4 D
      RowBox[{" x3 ?) Y+ [. t4 t
       RowBox[{"i", "=", "1"}], ",",
    1 ^2 M/ ]2 v+ B% }& L# |; y   RowBox[{"i", "\[LessEqual]", "9"}], ",", 6 |$ p9 J0 ]' l% G
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", ; Q, L9 B5 x6 U( X2 e0 P; Q
       RowBox[{"For", "[",
    & Y/ S8 J+ q+ N  w/ Z9 G9 w    RowBox[{
    ; v4 t0 R' W% E( ^     RowBox[{"j", "=", "1"}], ",", : B" _) _5 X  \' N8 ~" C7 X1 m6 U
         RowBox[{"j", "\[LessEqual]", "80"}], ",", $ e7 X8 Z# {, s
         RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 4 Z/ o/ G2 q( z2 f
         RowBox[{- T4 m5 z' D# I
          RowBox[{% h, a: ?2 N0 u& p" e" K/ e* p
           RowBox[{"CM", "[", , K9 |7 K; Q% Q+ I- C
            RowBox[{"j", ",", "i"}], "]"}], "=", "0.0"}], ";"}]}], 6 E. C- c- @! \) }9 ~0 A
        "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",- s6 |0 W( A2 j- a
    CellChangeTimes->{{3.5779132504375*^9, 3.577913285203125*^9}}],6 y+ s3 M7 x5 `. Y, i& {

    5 n% i! ~! M" e* o; C6 d# |Cell[BoxData[
    4 p" q: r& V& o3 n' s RowBox[{"For", "[", * W/ d' L& y) a. \% R4 n: P
      RowBox[{  x/ d# C1 G6 C
       RowBox[{"i", "=", "1"}], ",",
    2 Q7 N: o4 P, e+ K* O% T. P   RowBox[{"i", "\[LessEqual]", "9"}], ",", ) Q& K' {4 a+ U/ ?5 u: A" M
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    8 L+ n5 a/ v. N( _   RowBox[{
    ; B% Z& [; [6 H, G1 @* ?    RowBox[{
    ) R4 \" {& I" _. r0 f$ w- X     RowBox[{"CM", "[",
    - A. k# x; [) g  V. i      RowBox[{"1", ",", "i"}], "]"}], "=", 5 S9 m# F$ D" Z  v. S5 m
         RowBox[{"Data", "[", - s) g. p& f* H5 H. L. [
          RowBox[{"[", 0 f; b  u" z1 Z* K3 R# ~! d* \
           RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}],
      f4 x1 N& {; ?% c  "\[IndentingNewLine]", "]"}]], "Input"," @% i) m0 x0 [0 b" q% _7 r/ R
    CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {! s" Q; _. K7 B5 S. r/ k- y
       3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9,
    & V% ]! H6 f9 f) @  k   3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9,
    5 \$ m& ?# j% F& x- k6 U   3.57791344209375*^9, 3.5779588070933466`*^9}],
    3 q  k% p8 P# o- @
    # v. e: m' N' o9 |Cell[CellGroupData[{
    7 G3 {! t% O1 Z& T. T1 b* u) z5 o! j* f1 }( d4 R, l8 k
    Cell[BoxData[{- D: ~) }4 H' ?
    RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]", ) q; L0 o) v; n2 `* z* y6 f
    RowBox[{"M1", "=", "1"}]}], "Input",
    ' q/ n$ Q0 `* L: j& H1 v. P. ?/ d/ c4 F CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {) m- S. K, d& ?
       3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9,
    : {- i& v9 D( f+ |   3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {; d; i1 s! ?, o( A( P% K
       3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9,
    * t7 g4 z( @! o! x- l( P6 ^   3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {
    " Q: H9 U) j) F) N2 E, j6 F. A   3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {
    3 m& C+ V% f# J   3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9, * n' Y% V3 m2 m; e, n7 [% j; s  @1 K
       3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {! l% c' k1 X# E3 e& u4 R( Z. S
       3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {
    $ L  d& j3 W1 d  j" _) ]5 w: T   3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9,
    8 _' I+ i5 Y) ]1 ]1 N! d   3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],) }8 Y  ~3 F7 [: J

    $ P: K8 @, e3 v1 q0 P. tCell[BoxData["0.2`"], "Output",9 V; r2 X. b) T6 n2 f: y
    CellChangeTimes->{
    4 `! K7 t0 w; {- ?  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
    " z" x/ [. ?; u- e& G( {1 b   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {0 [: W- y! r6 F9 j
       3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
    " c3 A, @. s' U   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {7 `6 q6 Z' k2 |$ i- q+ G& a5 y
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,   J! c- i& r: g6 G# J7 s
       3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    1 x& i) m$ J' G9 _   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
    : K3 _* l9 y- q4 b3 `   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {" J% H1 h/ Y6 ^" C* M: l
       3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
    / l; S* l: g" [5 u: B   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    7 x- I7 ?9 W5 ?( }: G- T   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
    4 y; A, }7 M9 Y( G0 Q/ Z   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
    / s* r' S" g% t5 M% I0 V   3.577960510686717*^9, 3.578012149296875*^9}],
    8 I: l0 N! O8 S* V5 H! t
    1 f- M) D" ?( J) E& ACell[BoxData["1"], "Output",
    7 m9 Q* P; y( ~ CellChangeTimes->{
    4 @* m: L3 y" e7 [  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, 6 F2 ]9 q1 T4 y) ~
       3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
    - X  Y& ]9 k2 }  [5 g   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
    & t% L( u! Q" A7 Q  ?/ l, B   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {& k$ ~. d6 J9 _; r
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, ) d( w4 ?6 g* o
       3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {4 K9 V, C1 n7 ]# A. A7 p- y
       3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, 8 m6 U: o, ?! o9 L( W: Z. h
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
    6 c2 G7 D; S, r1 t   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
      j7 a- r$ ?( T7 {   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, % d- w( ^- ?% X7 q% x0 e3 k: @7 b; D
       3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
    3 y7 r; ^0 V; |  s   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
    2 P0 Z4 a6 ^  T9 J5 F   3.577960510686717*^9, 3.578012149296875*^9}]7 Y2 O# i+ ]+ K1 }/ k
    }, Open  ]],
    ' k- C+ ?4 @# x. L+ D9 q1 j8 C7 _5 z( q3 _' S5 g
    Cell[BoxData[- \+ e  Q! A7 Y' `% i( T
    RowBox[{"For", "[", % q# Z& J; K' f' F
      RowBox[{
    & `# q2 R$ D: V4 C( v   RowBox[{"k", "=", "2"}], ",", : Z/ @4 z, _6 b
       RowBox[{"k", "\[LessEqual]", "60"}], ",", ! c( H$ k) F! b9 T& i$ f
       RowBox[{"k", "++"}], ",",
    1 E5 m# v1 _2 p$ w# s8 |   RowBox[{"{", "\[IndentingNewLine]", 5 M2 f9 t0 y- e7 s/ k
        RowBox[{
      d5 _, p2 _4 k3 ~0 W     RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]",
    , K+ L/ H8 F9 T6 w5 y, O  j     RowBox[{"For", "[",
    ! K3 n( b- F& G) J  W, h/ b8 E      RowBox[{
    0 |0 ?* _. ~$ T, ?       RowBox[{"j", "=", "1"}], ",", " ^; n9 _4 N, o* S
           RowBox[{"j", "\[LessEqual]", 5 {" ~7 ~$ l: T! H" \, Q$ L
            RowBox[{"k", "-", "1"}]}], ",", 7 H( E( M( B- a( @2 G, _6 q  F8 ?6 k
           RowBox[{"j", "++"}], ",",
    + c' ]4 Y" T: b/ n. \+ A1 {3 R       RowBox[{"{", "\[IndentingNewLine]", ! R  s1 }& s, L  g8 f- X
            RowBox[{
    5 Z& H. r+ u2 H. [, b( p         RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]", $ [7 V0 c) l5 q. q, b; L# H
             RowBox[{"For", "[",
    $ h5 {" s  S0 I          RowBox[{( y1 w  S# E$ e- m0 K3 C
               RowBox[{"i", "=", "1"}], ",",
    8 |- J. o8 Z1 w$ @4 {. B           RowBox[{"i", "\[LessEqual]", "9"}], ",",
    ' I0 n" i  q, X) j$ S' m. |* N& f           RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    # X) n. H5 k- C0 b0 x           RowBox[{+ N9 B) Z) W* G. Q4 c
                RowBox[{"r1", "+=",
    * k8 J' }: H& w6 X4 e# ^/ ^             RowBox[{
    . [! V; y. q# W1 {. o6 \, W              RowBox[{"(",
    ) @" X: B5 H/ c' v               RowBox[{
    1 J2 Q# e# j  y! @& J                RowBox[{"CM", "[",
    ( _% p3 A* u: r* B( k0 ^                 RowBox[{"j", ",", "i"}], "]"}], "-",
    ( o1 d1 r  O% c9 A2 @                RowBox[{"Data", "[", 0 I' J2 }: g* }) j, G9 S
                     RowBox[{"[",
    , b2 o: P' N1 Q; D# z# a                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
    ) [; F. l' F- R6 ^# {              RowBox[{"(", 5 R/ l% \! I! `2 s) J- H8 ^
                   RowBox[{9 U3 \5 |4 y# ?6 N: A6 i
                    RowBox[{"CM", "[", % e8 z4 |. Q* x" Z
                     RowBox[{"j", ",", "i"}], "]"}], "-", , K; ]( g: t& n) k4 X9 W3 c
                    RowBox[{"Data", "[", 1 K. @) P/ f1 m# ?
                     RowBox[{"[", 5 S/ v2 \# G3 a: [8 N9 C
                      RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],: }. z) s7 m- j# B. ?
               "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 6 c! }( n: e* q" G+ x: q! D7 {
             RowBox[{"r1", "=", 0 W& K: y) h+ |3 }# _
              RowBox[{"Sqrt", "[", 7 N# p# ~0 ]* E* J  z
               RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]",
    ! N1 q& [$ @# m! v) x' i$ k3 B- ~         RowBox[{"If", "[", " ", ! Y# g, Z; S) a1 I8 b, ^- b7 z  r
              RowBox[{
    ' |" y6 Z' U+ W           RowBox[{"j", "\[Equal]", "1"}], ",",
    * d: i) \& y. {  \1 }8 h           RowBox[{"rmin", "=", "r1"}], ",",
    ; C( A, w4 w7 K9 ?- D( V           RowBox[{"If", "[",
    1 B8 c! P9 ^: s* Q            RowBox[{9 W- ]$ w# w0 a/ i! M; k/ u. h
                 RowBox[{"r1", "<", "rmin"}], ",",
    ) o  i/ t8 `; s# B8 C             RowBox[{"rmin", "=", "r1"}], ",",
    6 E1 A6 }" C0 e             RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}], / C0 p) K# ]  y+ [
            "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";",
    5 h& W9 ?1 D8 w' D& J( G- P+ S     "\[IndentingNewLine]", & B: @$ S# ~$ m; ~2 x7 a2 a
         RowBox[{"If", "[", / I  Z; Z/ V- J7 u' h% f
          RowBox[{1 ?, Q2 O; Q( h0 P
           RowBox[{"rmin", ">", "r0"}], ",", 1 n8 V7 U( p% |, k( M$ S- V! a1 `
           RowBox[{"{", "\[IndentingNewLine]", 6 F, p7 g5 v4 u. p
            RowBox[{' n" D7 {/ ^  \* x
             RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]", ' d1 c' p6 M2 l5 F2 F6 ?  g! G
             RowBox[{"For", "[", 2 x, [% k+ `& p' N/ S9 Q: c
              RowBox[{1 }) F8 d9 Q0 Z% E
               RowBox[{"i1", "=", "1"}], ",", $ ^* z+ d( i6 v# ?
               RowBox[{"i1", "\[LessEqual]", "9"}], ",",
      m: L+ |0 ^8 T; B/ U% o4 U           RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]",
      @! x+ E% e% E# p) Y+ |           RowBox[{
    5 i8 b9 f& j8 d+ o/ e            RowBox[{
    ' Z5 a3 C4 W: A* v$ e; ]             RowBox[{"CM", "[",
    2 v9 A3 [' \  C4 N) b! ?* y              RowBox[{"M1", ",", "i1"}], "]"}], "=", 7 y8 R: x! S9 N6 |, {
                 RowBox[{"Data", "[",
    , n8 \7 F% R0 g1 a- a2 n+ ~) j1 ?              RowBox[{"[", 7 Z% Y* a2 ~8 e; y* k  r3 o
                   RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}], . o1 A+ P; P/ S  c9 I
              "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",", 8 C& J1 H8 g0 @$ q
           RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}], , }0 i9 z- D$ m/ z5 [1 o4 |
        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
    $ D/ l' ~1 U: v- t CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {+ A. U$ F5 X( a7 b
       3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9,
    & c/ a9 u$ a" A( S   3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {8 N% h8 z! W- I9 S/ p# ^# X
       3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9, " W! Z+ v% d, k) x* h
       3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {8 ~* q- D, g5 Z: g% ?* ]
       3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9, - D' {9 ]. N1 _" x/ x  e
       3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {& m; @- {2 x3 ?3 o; K5 A
       3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9, 0 F6 B" b* l* G6 ^: ?
       3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {
    * V% Y+ B$ u8 {1 ]# k   3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9, 6 d9 ]* n  J# N6 O
       3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {
    7 F4 x& s9 p. D# a   3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9, + ^8 j( P( o1 c0 i  Y
       3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {4 i# p5 N# M( h/ H1 t- A/ {' b1 j
       3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9, 8 f! d# V& C6 r; B
       3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {2 \- c6 l& l! }4 `8 c
       3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9, . F9 k  V! E3 D3 \7 e" ]5 G2 M7 a
       3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9, ) w5 @% W8 b: C4 _+ a7 l1 ?& X8 j
       3.577958821991373*^9}}],. l. m0 e/ G: N) E! A

    ( `! |* W% R) h& J7 mCell[CellGroupData[{
    1 ]3 R) ^% ^# K! b( x
    0 L3 L7 u" B# Z) t7 K. sCell[BoxData["M1"], "Input",
    ; Z- M1 _+ D4 K CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
    " k& V, l" }, _; y
    5 X! S" o. I) F) K" zCell[BoxData["21"], "Output",1 w/ s6 z) l- s
    CellChangeTimes->{- T4 o! S7 l$ R
      3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {
    - }- C1 j# ^5 C. x   3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9,
    ! H% Q$ x: G- h   3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {
    * F, w) b2 N" k6 f5 V7 l  S   3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9, : j, G: U- ]* c2 U
       3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
    ) P. s7 V, ^" W# W9 m. Z   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9, * ~  A( W5 y, J4 ^5 I- [. S, |
       3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
    & x5 q& g# x. F   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9,
    / O5 M, f  j* t) H6 H* M9 j   3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9, # J$ s$ @7 C" f. x  q4 K. o
       3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9, ; q; S% ^6 J3 ]3 \+ n- f4 Z7 [
       3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9, 2 k; Z  w; ^7 P" [5 V6 K" g3 r
       3.577960515600726*^9, 3.5780121541875*^9}]$ F2 n3 B* I3 H/ j
    }, Open  ]],
    & l# v" r$ ^% m# e7 w
    & h2 l1 |; M9 M8 _1 I& vCell[BoxData[
    6 _1 V6 I. C7 W( y0 T7 G7 M7 s2 j RowBox[{& m2 z. j' N! u. }! [$ z
      RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[", 2 a5 ~7 ~# \' i. @+ Z5 q1 _" U
       RowBox[{"1", ",", "i"}], "]"}],
    & H- n# q: K' W& I' c* p6 w  RowBox[{"\:5230CM", "[", / R, m- D/ n- E# A, a5 W( q
       RowBox[{"21", ",", "i"}], "]"}], ; a  L' h) y" K: S
      "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\
    . ]* R; W) F, `6 @\:51fd\:6570u1\:5230u21"}]], "Input",% P, a3 R* F, U6 W0 [5 \2 H
    CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {
    ' t5 O5 Y6 ~" ]  3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9,
    ; A) e1 a8 Z: ?1 N" [  3.577960526583145*^9}}],
    ; A5 E: G6 _2 Q1 W3 y  d; |' P% Z4 u! C0 t
    Cell[BoxData[; @5 ?, i$ A. i/ p# W% m5 V3 x4 y
    RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
    $ @. {; o$ L0 {4 ~! b: Y0 T CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],
    7 e5 b, T- N+ _) s5 r- R6 ~8 H; W% b$ B+ q) u% z
    Cell[CellGroupData[{
    : J( b: i9 D; u9 }" p0 t, w
      ?6 N/ s7 D; [$ i0 X3 o8 E" TCell[BoxData[, L% u2 X' `/ ^) ^; j0 N! \
    RowBox[{"Xa", "=", 6 |! `3 y2 |3 s+ f1 ]7 s$ g: v$ I0 q
      RowBox[{"{",
    ( q2 A/ Y5 F! D3 b   RowBox[{
      A. g3 u" h3 i# ]% ?   "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7",
    7 _! C/ R1 @% z0 V8 c) n; @    ",", "x8", ",", "x9"}], "}"}]}]], "Input",6 @, y) G9 n5 q& X& X8 v
    CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
    3 N7 K/ _) u$ w/ b, ~. e% j
    3 Y; w6 }9 [7 b! x$ U1 qCell[BoxData[
    + C/ h9 X, A& g# Q4 v9 p1 H RowBox[{"{",
    ( A+ ]3 @: H; v+ l+ c  RowBox[{$ v4 W4 ?* t& r6 h
      "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
    $ [, P2 G5 N  _: r    "x8", ",", "x9"}], "}"}]], "Output",: ~. i6 F8 q8 s$ f, W
    CellChangeTimes->{
    " \# s$ Y7 q2 B4 w4 _5 W  3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
    : L: w3 ]1 [5 H( C8 l6 ~   3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
    $ y( x* H' Q9 X2 B. M   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9, 1 j/ b1 m- b5 @# r9 `0 l
       3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9,   w# q* Z% R- U- e# Z# b2 V) `
       3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {
    $ H9 p* X- e+ f5 E5 ]' y   3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9,
    - ~& M2 V% W7 \$ h" J   3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9}, 8 _+ X: H" Q( c# T9 S; q
       3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
    5 t2 H( ?+ U3 a$ U, Y   3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {8 H8 A  ], Y, H. {$ l9 f9 d
       3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
    5 o, c( J& j( Q1 v& ?   3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9}, / N+ u2 Z" J9 c3 m( h
       3.57801215725*^9}]
    * r! k' F4 s3 t* C- w. l1 \) l}, Open  ]],
    6 k6 U: i5 F  o, n9 Y1 z! H% b$ F; i( f" |" ]! @0 U+ B
    Cell[CellGroupData[{  L/ \' t' b4 F* v; ^& f' o4 X" X7 f' |

    ' ]( g9 e; t+ z. ^Cell[BoxData[8 O1 V; b4 z: q6 A; ]
    RowBox[{"Ca", "=",
    2 C, c& K9 E& p. p3 ]  g! w  RowBox[{"{", ) [& j" c; B: U2 c0 g* u
       RowBox[{
    : G, M3 y0 u% s( P+ Q4 o   "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", + c4 }8 Z* y( }; v& m( ~, r
        ",", "c8", ",", "c9"}], "}"}]}]], "Input",+ b* `9 C1 B( u7 ?0 P6 W
    CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],; t. `3 \' }6 S6 b7 s6 U3 \1 H5 y
    ( O$ E/ w8 u0 _" T1 C4 s- E
    Cell[BoxData[
    , M; c, i) S( z1 d RowBox[{"{", ( A) R6 u1 T" B/ y6 \
      RowBox[{& \' A$ N* b0 F3 a
      "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",% e, t, A5 t0 E$ |" r& d! z8 i
        "c8", ",", "c9"}], "}"}]], "Output",
    ; c8 B  Y! g0 s, C' R0 l4 p CellChangeTimes->{
    - z& @# [% C6 P( U" ?. m" B2 s2 \  3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
    , @$ W8 |" z* ?4 ~   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9, # i  A& {' o2 D
       3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9,
    : \" N4 x7 Y  I# C1 D   3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {; J  Y' t, Q3 P& ^' v3 P/ ?$ H" p
       3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9, $ {2 h6 F9 d6 W+ Z5 f$ d' Z
       3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9},
    ; H! i, g8 W& z4 X! G3 h3 L$ c0 ~: Y) C   3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
    ; h  W0 D3 J3 I1 F3 Q8 d   3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9,
    7 V! V) i! e% l* q' @   3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9}, ) g1 q1 ^  ]( ?+ X) O
       3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
    5 t% [( V- B1 n1 l7 y/ v   3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
    . p3 c+ b: g+ R# `   3.577961904604212*^9}, 3.578012158671875*^9}]
    4 I/ `4 W8 r7 ?1 Y: I/ E" k}, Open  ]],  J; _1 d1 p- \! w9 {) j/ J6 X

    - y7 q/ U- e) u% [' O  p6 N' QCell[BoxData[
    9 o' ]6 N2 [$ @1 u. j RowBox[{"For", "[", * d( `" e2 O  {. C1 n
      RowBox[{( |* D! g) F1 w! w4 Z# V( c1 _6 g+ M
       RowBox[{"i", "=", "1"}], ",",
    7 F: r. p7 L, ^   RowBox[{"i", "\[LessEqual]", "9"}], ",",
    ; K) X; E% G: R7 l8 B: Y. H   RowBox[{"i", "++"}], ",",
    . [+ E  z; N3 z4 ^   RowBox[{' A; P% a' h4 P) O9 S
        RowBox[{"Ca", "[",
    + h& o1 ]& ~" a- Q7 ]9 G     RowBox[{"[", "i", "]"}], "]"}], "=", & S# ?3 v* ?0 S. D% [
        RowBox[{"CM", "[", ! o1 T; M; C8 j" q+ Q4 O! T
         RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    5 B2 `1 X; Z) U2 ]. p CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
    : t. }( F& U( Q& q5 u0 M* N   3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9, & P. @5 O2 j- x1 v; b& J9 C( L/ l9 |" L
       3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9, ) g: Y% }4 m7 w; ~
       3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9,
    8 V$ j+ G! E7 `5 [9 L$ M+ q   3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9, * Q7 ]- q, w0 K! h. l* |+ I
       3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9,
    0 W& V& S, P- j8 b, \   3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9, 9 t; {2 k# m: O* A+ }+ l: B' j7 |. w
       3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
    # v* J5 \2 N$ B   3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
      t3 u4 {7 r; X7 o. t& p  U   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9}, ) c) m# S3 \+ x' m7 i5 p- _
       3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
    3 o8 O$ d+ a1 A: E   3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9,
    * [5 J( H3 }' K; P; A( ?4 h5 G   3.577961906897415*^9}, 3.578012176296875*^9}],/ m* Q/ h' e7 _( i9 r  a8 Z

    - v% @; L% {0 d& k4 J( B( d% m( Q! n+ BCell[CellGroupData[{
    ! M! M1 n  {( A$ e' G/ a
    6 g8 }7 A6 ^1 R5 O! B: g  T8 ICell[BoxData[
    $ u$ U& d6 U2 L; ]! w3 z8 W RowBox[{
    ' x5 }. f% s  c( u  W, k  RowBox[{"(",
    2 a% b% k2 f6 o' v5 z   RowBox[{"Xa", "-", "Ca"}], ")"}], ".", + \* h" X) ~% w( X  K2 T
      RowBox[{"(", # V$ ?0 j6 A/ ]0 x/ K+ O
       RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],. s' P2 `# v4 ^
    3 ^+ ^4 D+ b' N# ?4 j( @8 D
    Cell[BoxData[
    ) x5 S  k2 U$ A7 |) y7 P RowBox[{3 @: O. P1 V! _7 o6 H7 O  k
      SuperscriptBox[& `: X' D& o8 \# H- J- z
       RowBox[{"(",
    ( T7 q5 P4 K# E  |* d% K7 S    RowBox[{
    6 T' n# ^4 Z+ c' H0 f+ i8 p( G     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+",
    " R. A) R# `0 O$ S+ u: e  SuperscriptBox[. @- {, v& D0 G$ N9 K* F( }  ^. z
       RowBox[{"(", 4 O5 w6 T) \1 J" L5 W
        RowBox[{
      w/ X% Y7 F9 M" A     RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+", $ ]. n, N3 s* V! f$ C& D% P( q
      SuperscriptBox[0 O3 E4 p9 V: t+ t
       RowBox[{"(",
    3 |0 x! w  d# A. r2 J    RowBox[{$ I+ s- j4 `, t) e
         RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+", / p" ]5 l3 v' h
      SuperscriptBox[" O, q5 X$ y8 a! U' l+ V/ ^- Z
       RowBox[{"(",
    ! y( y8 T: g7 c- U7 v* S    RowBox[{
    $ e& ~9 c( n0 X4 _3 G     RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
    5 w( H& B- N% p4 f- F  SuperscriptBox[
    0 _# g0 u, M9 O/ T4 T: V" ?9 `9 e   RowBox[{"(",
    + _$ g0 ~. J; P) [" a    RowBox[{: e- B% R2 M0 R1 h4 i) U  }
         RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+", 3 U+ t7 G0 C+ F% H$ n7 p" L
      SuperscriptBox[
    4 j! I7 T8 d  U/ C- L' b- z& I% B   RowBox[{"(",
    ( z& g8 F8 C3 W    RowBox[{, S" D7 e, Z+ j9 A, L! u2 H+ G
         RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+", & C7 g# E, I: n
      SuperscriptBox[4 F! Q' B" o; e! N4 O3 [/ z
       RowBox[{"(", 4 L: J- w# s& ?- \# G5 l
        RowBox[{( C+ {/ t- B# j% X$ Q" s0 ^& q6 |
         RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+",
    ( H  a* x. B' S7 V! H  SuperscriptBox[
    8 Z$ `7 d, |, a( t1 }8 c   RowBox[{"(", 9 z; u5 \+ H' ~6 ?# y- R
        RowBox[{
    ! F* d( y! g) q8 P0 [* M; B7 ]2 J     RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+", 7 S, e' `5 f: l* m# H. v4 m1 k7 r
      SuperscriptBox[1 T  t* H/ b: W5 E9 U& t0 J: `
       RowBox[{"(", : r; S$ \2 [8 k2 @, M# ^
        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",
    2 ], H3 R. z, S! R; k CellChangeTimes->{
    3 r. O: U; F: n& L/ Q& t4 @* Y  3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, . q, X2 E. b& m" X  c  u
       3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9,
    : F) T  D' x5 _8 F# m   3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9,
    / q# O/ E7 a9 I  k6 L9 u( h   3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9, 0 i& U8 x& Y/ w; l& Y
       3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9},
    - [3 q# ~# v- ^% k   3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9, / x) O# v- p4 H) T$ [3 b" z# a* s4 }
       3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {* Q% O& S" a1 B7 m* g. A
       3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9, 1 c! @- M/ |5 Q# N( N( T
       3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {
    ( N2 O$ Y* {, G6 M   3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {0 S. A7 k! t- r5 Z  X' U
       3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9, ; B$ E( t7 P8 P1 b* d/ o
       3.5779618537169228`*^9}, {3.5779618846049767`*^9, / |) O. \9 w- c9 _% W, j
       3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]
    : w3 O+ J/ n5 o# U$ O+ N}, Open  ]],7 I( d0 G) _7 l) s9 Z
    % y1 e( ~, o5 i% W* E
    Cell[CellGroupData[{+ I9 p' t( D7 u+ ?

    / l' p" p2 u3 w" a& N! h. eCell[BoxData[
    & f" S6 u; Z  U/ J+ N: b- q* H) t RowBox[{
    , C( p' h% R: A7 f4 D  RowBox[{"Ca", "[", # @+ H- {, d6 R; f, ?9 A
       RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",1 [/ M( a5 @7 {2 ^2 W+ q/ `
    CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9, 0 Y5 k% v; c9 F4 n  R7 N4 Q
      3.5779616465173616`*^9}],, K  d, F" b' V* I5 C* f9 w/ z# t

    ' u  ?  n7 i! j' Q! S* J  f* cCell[BoxData["0"], "Output",! X$ U* Q- ~; _$ |/ v( R6 B  Z
    CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9, : C2 k5 a: E7 ~& g, k
      3.5779616484049644`*^9}]
    9 c3 {: a! f  R! O: r! M  ?8 I* v}, Open  ]],' X( [) g! L9 s* ~, `6 ~/ l+ l
    1 B. G% _' G# }( j& g7 Y7 I% z) j: e
    Cell[CellGroupData[{. k3 m& Y7 e+ Y! q2 n7 ~
      ~! n" \' V) d! m' J' E& `
    Cell[BoxData[
    8 `, Y- |3 ^( x) e; [/ \) a/ C RowBox[{
    ; p5 ^/ |9 c, L- r  RowBox[{"Ca", "[", / f  a2 X' P3 n( v( e1 x9 U
       RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",
    , e+ I/ Q; g* B8 n% Y# Z# M# M: W5 J CellChangeTimes->{3.577957376235614*^9}],, C5 f5 v; n9 F" A! ~2 ?
    6 h9 ?6 H. K3 @/ ]
    Cell[BoxData["0"], "Output",2 J9 t# O; v# B* B( B
    CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]
    * J* T3 ~# r. @+ B3 P. k}, Open  ]],
    ! ?  D1 v/ ~) @# j
    6 V: |! e  Z" W. e8 Q. s0 jCell[CellGroupData[{$ \4 T3 R# {- l2 @8 \# L9 N
    5 G! X& y7 j# M8 U5 k* u8 D
    Cell[BoxData[1 N( K0 G. I# D1 A
    RowBox[{  {  ^$ Q, ~8 W% u
      RowBox[{"Ca", "[", + q$ i% w' g& q3 w
       RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
    , l% s% ~  O6 G CellChangeTimes->{3.5779573112927003`*^9}],
    - h; W0 z7 j* z! u4 X' m4 {6 a- f: C; r! }1 T& \
    Cell[BoxData["0"], "Output",5 U; G3 ~; X% }# I4 ]8 @
    CellChangeTimes->{) M6 q: L# Z( x# C. ~
      3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9, ; I; W7 D' E6 r6 I) t, p  B
       3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9, 5 A& Q8 g( v! p# U2 _! F2 e
       3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
    ( J$ y! T/ a, m2 M& B2 b   3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,
    " ^/ F2 h' e" f# i4 k   3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9},
    , X8 v4 k( m+ Q   3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
    + `( G: k+ N) n}, Open  ]],2 R# c  V9 w, p8 f. Q* W) B
    , H5 i5 H# [0 \7 ^8 ~( G
    Cell[CellGroupData[{
    : _+ ?+ z7 |9 ^9 q5 W! T: ~0 V4 @& M, q$ C/ h. S
    Cell[BoxData[
    4 D0 [! j- r7 o9 I6 \  M RowBox[{# k  T( m3 ^' G3 m
      RowBox[{"Ca", "[",
    4 ?+ U% w0 B, }6 ~/ e   RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
    . T( @" H1 W3 b& u4 R1 U! O CellChangeTimes->{3.577921461734375*^9}],* o, n* E! W/ |/ w% q; p: Z/ d6 i
    5 ?; T" I7 o! b: U6 s* U
    Cell[BoxData["0"], "Output",7 y. |0 d& @0 f' d0 R; ?7 x6 J
    CellChangeTimes->{7 Z- B1 `/ A2 [# Z
      3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9, 1 l/ c$ `( ^3 {* o. [
       3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
    & p& ^: [3 y! f! b   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9, 9 m* u- d% {2 i* H2 R
       3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9, - X" W# Z$ ]5 t1 A/ K
       3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]4 I- S  _; `7 A
    }, Open  ]],
    - i/ X: R6 `0 o& s1 `5 L& J0 R4 y
    ' O1 m0 \# p) t" k/ O. k8 @( a. OCell[CellGroupData[{* B6 s4 r1 N1 |( t& q0 w0 h1 c8 o( d
    $ u/ z/ M4 J) z$ U1 v! u
    Cell[BoxData[' r! W; ^) [" C) n. |5 r
    RowBox[{
      A: F: n- h1 J7 f  RowBox[{"Ca", "[",
    + V& e! ]* ^$ P. x. v   RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",1 Q* I& Z; A5 z5 ?. u7 {9 O
    CellChangeTimes->{3.577957303118286*^9}],
    / q0 c6 g/ E3 m; m1 P7 p# @7 S  @1 D) k( o, C
    Cell[BoxData["0"], "Output",6 `; M! n/ ~* a# C' _3 n5 a
    CellChangeTimes->{
    " I( Y2 F+ g3 Q2 i4 |: O$ A6 |" R+ F  3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {% Y4 R9 p+ ~  H$ U* q! g
       3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9, . E0 p/ o/ Q5 a4 I
       3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
    . a2 @" B, y" n% r" L   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9, ! G) l$ p/ \; t$ e& B3 R1 i
       3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
    " b6 @3 }. D3 Y. n9 }3 U4 [   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {9 }/ ]& S' L! u8 E6 c6 h
       3.577961889378585*^9, 3.577961912965826*^9}}]9 O. U: `8 _7 v1 S/ A$ ]
    }, Open  ]],; t7 }% W& q7 s" `2 m( P

    ' v! [0 m& A+ ]8 [/ q+ w% ZCell[CellGroupData[{
    ' o# ~' I/ ~5 a: K& f
    $ d& q: M- P: nCell[BoxData[
    # a6 v% S6 z" M RowBox[{
    ! w: N* k5 i0 ]3 d1 _" o- R" \  RowBox[{"Ca", "[",
    ) J4 A1 F! l" F8 @7 D   RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",
    & ~9 r* ~) ^- T5 k! b  a- o' F" H CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {
    " I0 X9 h( V* N  3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
    ! F' k1 y  h* M  3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {/ N0 r7 h6 F$ @1 _. D
      3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9, 7 Z. h  k! {$ K! m+ M
      3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {* O! k3 s5 h1 W2 f; p7 A2 S
      3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
    . u+ T+ I$ x5 S/ W* p: @( N  3.577921435703125*^9}}],0 T& Z/ t; ^6 {% Q. y6 A  a3 h( S  m; U% B

    % H+ i0 A/ R  [! I' M% ~! n4 ?: M4 GCell[BoxData["0"], "Output",! o2 |0 z' a, p' M' r! I2 J
    CellChangeTimes->{: s8 Z4 c1 B% m/ k$ v% \* `
      3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {, }+ @& a8 o$ H+ k% t6 `) ]
       3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9, " S; t6 @5 _3 @: U) h: T. a! T
       3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {
    ; V) Y# F9 H) M. b   3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9,
    " B% d- {' ?4 y4 ~+ L   3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {2 ]3 I0 ]% N6 e/ L: @
       3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9, " F! @, t3 f( H. X# `
       3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
    7 C; Y/ l( T, b- }4 f   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
    & r/ E, j7 m& O2 x* p   3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {2 p7 J* x" U( o( N# s
       3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
    , M' b% ^1 ?- D) O/ f6 W; l   3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {& {3 {9 w2 [: q+ T( {/ O2 N
       3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9, . n6 o- g) \) ~/ z, ~
       3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
    3 b, C6 ~" A% i( c3 X}, Open  ]],# N9 x  L; Z3 v& X/ {6 X

    - ?; T, q( E8 v; W7 RCell[CellGroupData[{: \( B; L7 {) i9 r

    0 j7 J& l5 ?6 j! R) f, u, lCell[BoxData[
    # i& p0 f/ k+ l- g" L' @: f" j RowBox[{"Delta1", "=", ! f8 e6 Y& i( A4 Z) ^0 S1 |
      RowBox[{
    . R% O8 S# ]& a( N( }( T% f+ f3 t   SubsuperscriptBox["\[Integral]",
    6 c1 k% L: m. K& x. }. H; ]5 L. Z+ L    RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 2 a$ f  t0 t9 H- ]5 j
       RowBox[{) i7 M6 @$ E8 z" J1 y' T
        SubsuperscriptBox["\[Integral]", ; O! P' U6 ~! L- @5 [
         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
      S! F6 P/ |* ^    RowBox[{
    9 |8 l5 d1 |) x+ f# F3 f9 S     SubsuperscriptBox["\[Integral]", 7 k" r: w" U* y5 v% |4 T
          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], + k$ c  R' R7 d! y* A3 w5 R( |
         RowBox[{& n- W6 R2 @5 M# s
          SubsuperscriptBox["\[Integral]",
    4 l, o. ~+ {7 l: t/ z% r       RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], # I  N0 u& i) V* f# N) e
          RowBox[{( [* F6 J& N; i# N0 {
           SubsuperscriptBox["\[Integral]",
    9 D8 U9 e  S  E+ ^' W$ i8 U3 @        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], % X3 Z, z  q/ R0 s. u1 {
           RowBox[{
    - W  L; k+ l, H4 `2 M        SubsuperscriptBox["\[Integral]", $ r1 Z* e5 }7 f
             RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], , q4 U& n1 Q8 T* W" M. L
            RowBox[{
    : a* v* H# Y' r% ~+ z0 z) [         SubsuperscriptBox["\[Integral]", " S! r. b/ }" M# e8 ~* h6 b
              RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    1 `8 h' O1 ]& N; p+ k7 h' F0 s         RowBox[{
    ! ~  @5 v/ c1 q, j1 x+ f. D! Q2 Q          SubsuperscriptBox["\[Integral]",
    0 m" X* B9 }  Q# B( N" S           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], % k. b$ l* \8 s0 Y, A
              RowBox[{3 Q- v0 P7 ~' P% e+ j0 ~
               SubsuperscriptBox["\[Integral]",
    & s, @* E! }- g! H/ M            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    3 [* u+ M, D6 j. T, [2 l           RowBox[{; `& A, |$ K# _+ J: V8 l
                RowBox[{"Exp", "[",
    1 A/ M" f/ Y2 [0 C: m  E             RowBox[{( z7 p& z4 s! g+ I0 a, j- h, _
                  RowBox[{( X0 F/ j$ H; Z' O- W+ Y- T
                   RowBox[{"-", . f3 X6 ]- Z, o+ \2 i
                    RowBox[{
    , P& M) @' t0 m; Q" m  [7 e                 RowBox[{"(",
    0 F5 t: w. r: O+ v  _! L+ g0 b+ z                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ) H( \9 L  K4 c                 RowBox[{"(",
    " D/ Z: w: e# A" l! e& V5 o8 K                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
    ! `+ ]  z2 ~7 @              "Delta"}], "]"}], : n# w& z; D0 [  n$ t0 n
                RowBox[{"\[DifferentialD]", "x1"}],
    - e- c0 M/ g- S0 P            RowBox[{"\[DifferentialD]", "x2"}],
    6 ^) |, O& U; z6 o& R* Z( ^            RowBox[{"\[DifferentialD]", "x3"}],
    9 q4 k2 _- W: x# \            RowBox[{"\[DifferentialD]", "x4"}], ! _, i% K# y3 t2 l9 H, X1 Q  h# s( f
                RowBox[{"\[DifferentialD]", "x5"}],
    - P  r7 y) U: J4 Z# o$ G# g            RowBox[{"\[DifferentialD]", "x6"}], . E; z/ n: G! u* G5 n: O) `! p! D
                RowBox[{"\[DifferentialD]", "x7"}],
      T* H6 a% z8 n& ^8 M            RowBox[{"\[DifferentialD]", "x8"}],
    9 k) m2 t6 Y, P# O            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
    4 a9 J" ^1 I4 x3 t) ?8 [8 Y CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {0 N/ N5 b& ^! U0 A, [
       3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9,
    5 I+ D0 D# Q9 y8 T% a   3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {0 v, R" H8 |9 R1 {
       3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9, 3 l5 J$ g6 u7 d
       3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {/ y; w5 [! M3 L0 [. ]
       3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9, : Q& V4 l6 O5 ?% F/ z% @: v1 y
       3.577918964453125*^9}}],
    5 _6 q+ F; W2 m- V: d
    9 W2 }. k% s: ~5 y  YCell[BoxData[# K2 A% m# {  K- m- U7 b
    RowBox[{"97.40909103400237`", " ", 9 z3 G4 V# Q: O+ V
      SuperscriptBox["Delta", "8"], " ",
    2 Q* B$ v" a* |% S  {: Y' K& v, I" \  RowBox[{"If", "[",
    5 B: }7 f9 L; a: l' c   RowBox[{% y; C% R+ f1 k+ q
        RowBox[{
    9 y+ T9 T/ H' C1 P! M, D6 y     RowBox[{"Re", "[",
    $ e! I4 L) B1 `8 I  \; C8 N- k      SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
    3 H+ `) ^$ w4 q: L6 S; j    FractionBox[
    % v5 U6 G* T7 h& w5 h     RowBox[{"1.7724538509055159`", " ",
    - `! q$ `% A( `/ p6 ~$ j  m# [8 i      SuperscriptBox["\[ExponentialE]",
    # ^0 {1 z0 J  F0 B! `; [; t. q1 X       FractionBox["1.1102230246251565`*^-16", ) X: j/ N. R1 ~$ m3 b
            SuperscriptBox["Delta", "2"]]]}],
    ; Z4 d+ h! s  Y+ c     SqrtBox[- m- j0 c, B' n- X: n8 Q/ v) i2 m
          FractionBox["1",
    & K7 L- S& I; b3 P' k% d; t       SuperscriptBox["Delta", "2"]]]], ",", & S3 {9 }( S! p: B
        RowBox[{"Integrate", "[", ; z6 z1 ]- Z; ^( z) p& h
         RowBox[{+ [) \2 b0 S8 |; d$ |
          SuperscriptBox["\[ExponentialE]", . W8 T& R# B* [: E9 R: X0 X$ F( W+ V
           FractionBox[! _% w$ J# ^& d% L0 H
            RowBox[{"1.1102230246251565`*^-16", "-",
    1 {- I6 r$ [$ d9 i: D8 X+ l" V         RowBox[{"1.`", " ",
    2 C+ `9 Y. `5 e# \3 u6 t          SuperscriptBox["x9", "2"]}]}],
    ! b4 \  W* A& U  e- k        SuperscriptBox["Delta", "2"]]], ",", $ C3 z, `& C! x1 ]6 V( U
          RowBox[{"{", 8 \2 a3 ?& O  D
           RowBox[{"x9", ",", 7 B2 }% N! M# f' O7 u% k
            RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", + C" k5 u3 |) X- t% O. u2 u' i
          RowBox[{"Assumptions", "\[Rule]", % [  J/ N" Z  Y) O5 U; _
           RowBox[{
    : Q; W, @) ^& X$ S        RowBox[{"Re", "[", * E, X6 B( K0 J# a3 }7 x
             SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
    - F. |( y7 n9 a* o+ o) z- m     "]"}]}], "]"}]}]], "Output",
    ! O3 h& c. Z& a4 L3 c CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9, ! a( i  O  M9 V1 a! g. X4 V
      3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
    # s% E) q" V$ t7 t0 |  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,
    5 f3 [! s$ q; |" j) m6 a# D  3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9,
    $ r# |& s4 a- {  h# B0 b) I! m* k  3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
      z6 I/ x/ {" ]5 }" x5 n3 Q  3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
      {; }* B5 v# b  z  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]6 ]# I& z4 K+ B2 l8 z
    }, Open  ]],
    , d0 x+ ]( D9 y  x6 f8 @. z, h
    ; x* _& l# b$ a+ Y" k1 jCell[CellGroupData[{5 f$ ]6 l9 S9 ^" y* k

    ' n  P3 w" }, o  jCell[BoxData[% Q6 }: z: Q, T% _/ J5 I
    RowBox[{"Delta1", "=",
    * g$ a4 N! h& {4 t0 Q% o- l8 L  StyleBox[
    2 w1 z1 e7 Y8 u   RowBox[{"97.40909103400237`", " ", ; [2 N0 k( y1 C; L, h  T6 I9 I
        SuperscriptBox["Delta", "8"], "  ", , y; Q- G/ Q* s! q
        FractionBox[; E1 O7 ^! p, M+ T# m5 f8 M
         RowBox[{"1.7724538509055159`", " ", $ b) H3 v( ^: ?0 d, K
          SuperscriptBox["\[ExponentialE]",
    , ?7 {+ T; a( q- t8 b- X! I) G. B       FractionBox["1.1102230246251565`*^-16",
    # C; a8 B7 Y' u$ P6 H        SuperscriptBox["Delta", "2"]]]}],
    0 ?! n2 A% V: y# Z# H& S     SqrtBox[7 p; O! v6 J4 E
          FractionBox["1",
    4 W! t/ t5 k$ z2 T% U, s' \7 B4 \: x       SuperscriptBox["Delta", "2"]]]]}],
    ! K$ k% |, e0 U  X4 f   FontWeight->"Plain"]}]], "Input",
    & @  n% {+ o% h$ s: ~* p CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {
    # ?. D" `+ C+ p& Y3 R   3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9, 0 e; ]: D5 }/ Z& ~% k' ]
       3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
    4 C5 k( F- ?6 f1 L   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9, / ]$ w; v" y$ q1 q
       3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9}, 8 r* Q- y- n4 z6 X! q9 \7 L! S7 v; G/ k
       3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],
    - ]5 B, f2 Y0 B3 b% f2 N7 n9 y
    % s/ B* {0 `/ O3 q6 i, OCell[BoxData[
    $ O6 k9 A% d2 }3 x FractionBox[
    # b! ?$ _9 m' X: U4 M4 d  RowBox[{"172.65311851642346`", " ",
    . O& z- r+ ?3 P   SuperscriptBox["Delta", "8"], " ",
    5 R( G; Y2 f* b3 _   SuperscriptBox["\[ExponentialE]", ; f3 ?& f2 X9 M& `3 k& X
        FractionBox["1.1102230246251565`*^-16", 3 P; U) S5 e) k* @6 C1 P1 h9 c! X
         SuperscriptBox["Delta", "2"]]]}], 4 Q$ q# h' c/ e7 e6 N
      SqrtBox[+ c/ V; z, B' d( |9 ]* B
       FractionBox["1",
    . x, ?$ e9 G* p% e$ R    SuperscriptBox["Delta", "2"]]]]], "Output",& h5 l9 C' X" R; P5 o
    CellChangeTimes->{
    : y, q: w( b# H/ X# Y  3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9,
    , v6 M" w% Y, B* {5 x* c( z   3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
    9 Y. ]6 @0 {4 E- B, n% g* y   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
    * v, w9 ~9 }$ r, q( V0 z0 g- \) F   3.578012166234375*^9}]. V' b8 \) W1 N3 |! d4 ]! g
    }, Open  ]],
    ! }3 t+ k1 h3 q7 q- z- x0 @3 J8 G6 f$ Z& S( a; B, ~
    Cell[CellGroupData[{2 T/ u2 |. U# {0 g2 D

    % x4 |( I5 E+ l! |( A- a* uCell[BoxData[8 K5 E# Y' E. F8 _1 O# P. m
    RowBox[{"DeltaX", "=", 4 |: B, a- x3 W  K8 W; c
      RowBox[{"FindRoot", "[",
    " a, F# p9 x. k0 D  q1 p   RowBox[{
    $ b1 o* D6 b( ^: X    RowBox[{"Delta1", "\[Equal]", "1"}], ",",
    ; Q/ \0 w. l$ b* f    RowBox[{"{",
    1 O# i5 L- Z' J# r7 ]     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",1 I. f* h+ d1 F& P# y
    CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {
    7 b1 K/ C: d) i" y1 G* r8 _) o8 m! g" s   3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9,
      V* P; r( x7 Z6 M0 P) j   3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9, ! o: \; {1 z: x' C6 V3 h5 U8 h
       3.57791921584375*^9}}],9 ^+ B: d( ]8 u- Y* ]" X2 t
    7 _1 a9 G, R3 y: F
    Cell[BoxData[
    . W. F5 F, W5 f, m$ @1 @3 w RowBox[{"{",
    ; L2 K& o/ T' R+ K- s& Z  RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",& c. J/ i3 }2 e' w) c: v) b& Q
    CellChangeTimes->{  U; X% ]. A& T( r& Q5 H! U
      3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
    9 g. a. W9 ^& U& D' z, D   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9, ) b3 X% u, a; G7 r( L; x
       3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,   s! u8 U. w! M3 m3 N) z
       3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9, + g& I$ u0 i0 J1 X9 ^
       3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
    0 ^1 {& Z% @2 s( w( s! z   3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9, 8 v" W, O7 E) W' `, |
       3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
    # }$ q! |5 P( E- ]6 Q+ m   3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
    # }  P5 k: O' r: b& a   3.57796070150625*^9, 3.578012167703125*^9}]' J% M1 j; D$ ?$ t7 o  k4 P; i, a" Z
    }, Open  ]],8 |: S8 \# r0 u% G- Z3 T
    6 l5 J% p/ @2 l, p/ `! x
    Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\. }4 L$ O8 s2 Q7 [" B
    \:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",% j# M0 A4 |* `
    CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
    9 X2 G; [; K8 ~% ]% ~4 a  3.577960705312657*^9, 3.577960707621461*^9}}],
    . s/ a- o, ?$ c7 Y8 v, U# U. k# u! T' Y9 G; [8 y( p
    Cell[CellGroupData[{
    + G+ }; B' W- B8 {
      \9 I, ~& S+ ?& x. X  Y6 C: u1 VCell[BoxData[
    3 x$ D. Z' p- B+ f RowBox[{"C1", "=", "Ca"}]], "Input",# K5 w1 O1 V) Q  J; U
    CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],# N; g5 ~  K2 A  F# L

    % o+ O3 ~! z+ v6 dCell[BoxData[: ?( K; q2 n3 O) O0 @! t$ y+ m8 {
    RowBox[{"{",
    5 L) `4 G1 L: R) P$ k6 ]6 T# S" b  RowBox[{
    ! G1 y" K( {; q$ f7 {8 N$ G  "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
    * V3 h# v, g2 m  Q8 A4 `; `   "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",", + U% J' m$ ^8 z! l
       "0.`"}], "}"}]], "Output",4 a  V1 G6 G: s; f3 I0 T! Y
    CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9, 2 c$ ^+ ^" X$ }! B
      3.577960710273465*^9, 3.5780121855*^9}]8 G& c4 s8 C2 M
    }, Open  ]],
    * p% {' Z6 W; k. ~
    - Y3 U) p3 z+ W- DCell[CellGroupData[{0 v. S, |6 H2 J3 D6 L: O2 `) G& i0 F

    $ R1 L; Q' g. }$ R+ Q% o1 h* BCell[BoxData[1 o& a: ~. i3 X
    RowBox[{"u1", "=",
    / w1 V- O& n" Y- q. q4 A  RowBox[{
    2 i2 |  \* e* ?% G2 ~   RowBox[{"Exp", "[", 7 |9 G) Y0 l7 ~5 X! u
        RowBox[{3 G( y  L& |! x# `% g' k0 Y
         RowBox[{
    ; O% m0 z& i( i; s' l! o      RowBox[{"-", , E4 v& q: i" i9 E* m; s- ~
           RowBox[{" q8 P' o, f6 \
            RowBox[{"(",
    1 m# Z$ D# V1 h* s6 \         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    2 x2 s  l- F" w, K4 s, v3 Q        RowBox[{"(", 6 \# j5 a  ?0 P, Y; i; N
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    4 T( Q1 x% H$ w     "]"}], "/.", "DeltaX"}]}]], "Input",2 ?$ k7 ]. ?$ X: F% k- t7 j8 y3 ~
    CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {# Y9 w, Z' ~8 E6 _
       3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {
    - m8 w! I/ T3 W! v   3.577919193484375*^9, 3.5779192326875*^9}}],, O7 ~( u6 z3 `9 [
    / F+ V% h2 M5 Q
    Cell[BoxData[# I' M. W1 d- a0 B
    SuperscriptBox["\[ExponentialE]",
    1 y# V1 y1 s# ?1 e* [, L  RowBox[{"3.141592653589793`", " ",
    $ g6 ~" ?1 m, N! p. `& C: I   RowBox[{"(",
    ! e7 D  \' T/ P: n) d: U    RowBox[{; M. R, ?! n) [( z) P/ y
         RowBox[{"-",
    ! x3 D# C. ~* s- R, C1 T      SuperscriptBox[
    2 x/ c8 Y% W1 X       RowBox[{"(", . H! |; Q8 k. Q4 q4 O
            RowBox[{
    0 k. ~, r* g$ c+ o' i) c         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", ' }: r# F! F4 F2 O
         SuperscriptBox[4 K' S% Y7 R$ q- R4 u+ p
          RowBox[{"(", 5 Y1 v: n( h% r& Q- B
           RowBox[{, Q3 D1 |- ]5 `* O2 k# m
            RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", ! L! w) M3 }1 h% Z8 ^& ?+ Z
         SuperscriptBox[8 J$ n2 s1 y8 z1 r0 W
          RowBox[{"(",
    + c$ g, Q  ~" C       RowBox[{
    - y: C4 A5 N# z: t! D! K        RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
    0 x) i* G, d' d$ u  P/ `* ~     SuperscriptBox[$ [: w+ N% [. o5 A+ f
          RowBox[{"(",
    8 y# R" ^* g! {" Z7 h. j       RowBox[{: V3 J* \' E/ ]. ~% O/ k
            RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
    * n" R; {9 m3 n$ @- \! k     SuperscriptBox[0 t' _+ H4 |; h
          RowBox[{"(", ! ], _, s6 {1 v1 H. X# [
           RowBox[{; O% m4 ]! [0 M' @
            RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
    0 O5 o- ~/ s* w$ f     SuperscriptBox[5 C: w2 @3 a3 Q! J# B: P0 O
          RowBox[{"(", 2 ^4 v6 N" A- l
           RowBox[{
    7 S: r. b' r+ D7 J        RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", 2 K: i3 Z( Q% {$ u$ `4 ~) Q
         SuperscriptBox[. B; N% R6 _  z7 B
          RowBox[{"(",
    - q6 l9 n& v/ H1 X* E       RowBox[{
    ) d9 J- i2 m0 q" m  d4 }        RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
    / Z1 u9 F7 z' n     SuperscriptBox[
    $ l, h0 I$ X- [2 v. A: h      RowBox[{"(",
    ; _4 ]9 c3 W; h3 O       RowBox[{3 S+ J( ~. ~+ z+ P3 b& U8 i
            RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
    * k# b; |8 Z( y# g+ V  u     SuperscriptBox[8 G! _! |- U4 S. b8 q
          RowBox[{"(", ' M6 `6 [! E+ M& j; e! f0 h5 {0 E
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], - t3 R/ E' C2 \: l! f8 X- z1 P
        ")"}]}]]], "Output",* D$ A, n- g# e9 M+ H+ w* Y
    CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
    6 J) Y& C  w6 k0 a  3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9, 3 y3 {5 L$ e" T8 z0 E
      3.578012187078125*^9}]1 T! q4 M% v% H, w
    }, Open  ]],$ T* M4 E/ y  u' M7 W$ ]
    . C: t: ?3 C% V" R
    Cell[CellGroupData[{: F( K# k) p, X0 O0 M" E0 Z

    & b2 a7 C! m- G4 H; V, NCell[BoxData[6 w& g6 j+ e2 n$ Y5 d+ f9 v
    RowBox[{"C2", "=", "Ca"}]], "Input",) j3 I" u/ y: @8 @
    CellChangeTimes->{3.57792047321875*^9}],
    - c/ X7 a9 d7 E4 t) R) z  \, N- \" P# ~6 Z
    Cell[BoxData[0 |4 a4 t" I+ Y; Q
    RowBox[{"{",
      }) B1 D( r1 p, ]2 O  RowBox[{
    , D8 _8 k" r+ B! Q9 M! S7 v5 j  "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",", 1 M6 w0 }+ F* W9 `! j
       "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}], # }2 O+ u7 ^5 I
      "}"}]], "Output",$ I7 q, n+ J1 H5 K
    CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
    2 K7 d+ T6 N5 M3 F: ^& A8 S  3.5779607401163173`*^9, 3.578012204671875*^9}]% B9 {8 G4 a# t* w3 [) D
    }, Open  ]],
    ' I2 i) f+ F3 N8 C% f5 C, W0 v
    ' W1 k1 y3 E! u: V! ]$ nCell[CellGroupData[{/ Y$ t/ k$ G9 D; q$ X" f
    ; o/ b; |' M/ g# D' L
    Cell[BoxData[
    ! A. B# {- k5 w7 r- V+ R7 a RowBox[{"u2", "=", 3 j& A  F. r- ~6 a4 X/ @: ?. @3 s6 c
      RowBox[{
    . `, h! v5 T0 Y6 Q   RowBox[{"Exp", "[", ' {& @) Z2 y6 ?! H
        RowBox[{
    ' N9 X8 \0 B# u: U$ @  a     RowBox[{
    1 g5 [5 J7 R$ O% Q& O: ~4 d9 i      RowBox[{"-", , w' U2 k. P( J0 W
           RowBox[{/ C# t+ f* ]  d2 c" f1 M, ~
            RowBox[{"(",
      A0 D$ H% p$ I$ t         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    " ~8 R7 e$ Y& |4 s        RowBox[{"(",
    2 U) g* \  q3 o. K4 l4 k- ?4 z         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],0 d" F4 K& G' [$ k: F( Z! t* ^1 F
         "]"}], "/.", "DeltaX"}]}]], "Input",/ o8 q9 R% n7 E* ~( c
    CellChangeTimes->{3.577920484109375*^9}],, N+ m( O% [6 A# m5 A* Q/ b
    & \  O1 a4 t* V
    Cell[BoxData[- V. M* ^' M  i. m
    SuperscriptBox["\[ExponentialE]", 7 i9 o' T8 p' H, t% J' ]4 j# s$ S
      RowBox[{"3.141592653589793`", " ", % I- P1 d  H* q5 l* Z
       RowBox[{"(", . d2 D* s0 ]: G' v; g- d
        RowBox[{' z1 ~; z9 c# ~) j
         RowBox[{"-", : n" X; y8 [$ [3 q; Y3 O& U% e
          SuperscriptBox[
    4 K% |! U; H2 u1 w: W5 u       RowBox[{"(", ( L2 K" M; T0 z4 f  f
            RowBox[{0 l3 }. d1 v4 h- [7 }
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
    3 `4 ]/ }, _( |4 @7 W7 W% v+ K     SuperscriptBox[: W( k5 k) D* D$ z
          RowBox[{"(",
    : M  _! H9 R# I$ f* [7 ]) o( O       RowBox[{. s# l4 P0 N1 q9 |- a
            RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-", 0 d+ |1 _& }/ i+ l! C; _! U7 f8 D
         SuperscriptBox[! ^8 i5 A9 ]; ]7 c  M7 t( Y
          RowBox[{"(", ( n8 s# X/ c4 g! j9 s" v$ d7 z
           RowBox[{
    9 G* v$ @2 K* L+ ^        RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", - X$ D" t& w( c( W
         SuperscriptBox[" d: |( W, {- Q; h' u
          RowBox[{"(", ; L, H: f8 Y9 s- a) i# {6 [7 ~) q5 x
           RowBox[{
    2 H' l( b7 q, i( c( E        RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-", - s# ?. q5 c2 X7 H7 W& u% e
         SuperscriptBox[3 R( w( b+ E8 U
          RowBox[{"(", : r; T& X: r9 y8 k5 _
           RowBox[{
    1 {( K0 B  z" W6 _8 g        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    5 w8 K! l2 M$ B0 g     SuperscriptBox[
    ! e: \4 l2 x& w9 i3 Q; b      RowBox[{"(",
    , Q8 `: S9 q: }8 c& l; P% @2 j" m       RowBox[{. {! {, V( K: ?% ^  A$ C
            RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
    ( x8 G# Q4 T& a/ t! O     SuperscriptBox[
    $ u5 T( z% W. [      RowBox[{"(",
    1 ]8 E% Q7 K3 f( ]9 p! j$ y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    # O; H3 ?: Y2 l2 Y% U0 g% q1 g     SuperscriptBox[* z7 a# r3 F! V3 R/ n
          RowBox[{"(",
    ( Z4 a# a- {& j) l6 C5 E$ O       RowBox[{
    1 P9 ?3 `, }9 M: `        RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
    % [: j& |  A# K$ a     SuperscriptBox[0 ^& A/ m; @3 h; B3 u; z+ y& y) O  P
          RowBox[{"(", ' W! |. m" I  m4 t
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
      @5 V* ?- ~- d8 K* g. E    ")"}]}]]], "Output"," t) {  j  h. W- m) w: `
    CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9, 2 ]$ H1 B& K' r$ J9 P
      3.5779607413955193`*^9, 3.578012205484375*^9}]
    2 B& p5 Q/ [: |- I* w7 ~0 K}, Open  ]],
    5 d: s# s8 Z# b7 k) D0 P  T: b1 l2 L5 m; F. f  b
    Cell[CellGroupData[{0 b% i9 d( d& X5 x$ w
    3 w4 x3 m* y  s3 K: _" q8 ]
    Cell[BoxData[4 d: r+ C( s6 u" x
    RowBox[{"C3", "=", "Ca"}]], "Input",, G8 ~" K; d9 T! q9 L
    CellChangeTimes->{3.57792064125*^9}],
    , f, S9 K. b$ s; w' r! i7 @+ |
    0 k! M( Y5 [: W0 c( R" sCell[BoxData[  i) v; _/ Y4 y0 p) F
    RowBox[{"{", 8 x* D) r% o! A$ E) g
      RowBox[{
      K# Y! Q: \$ J5 _' Y$ `  "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
    , j# j4 I" G/ ^/ X6 z$ s+ x8 _   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
    ; M, `( A4 {3 m( ~  "}"}]], "Output",2 q! v5 P/ c: F4 X9 R* f: y0 _7 b
    CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
    $ L- o6 K' S, e  3.5779607642027593`*^9, 3.5780122103125*^9}]$ g6 b& w0 r6 F8 w4 q' s4 ]9 v; p8 h) @' e
    }, Open  ]],
      H! d; {1 M* X0 Q5 y8 J; b7 z% _6 [: F
    Cell[CellGroupData[{
    6 ^0 K: E: C+ C, d) G' w& [, l, \& j
    Cell[BoxData[; H2 V# T  [- Y% j# p7 Y
    RowBox[{"u3", "=", ) V7 P$ T, @/ y# C
      RowBox[{
    . @3 l$ w" p( x1 J  A2 ?   RowBox[{"Exp", "[", 4 m# r- d# M4 ?4 b* Q  X1 K
        RowBox[{
    ( b9 b5 i9 w9 u0 W( p# d     RowBox[{( z( G. s. E# u9 u4 A
          RowBox[{"-",   F4 j9 A' D3 ]. X6 o# C4 H
           RowBox[{
    / F  |  G+ h6 M# q, s% q        RowBox[{"(",
    ) A4 ^$ P2 P8 P5 j         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ( D/ t3 a( b4 |+ Q9 s1 z        RowBox[{"(", $ Q9 g" q$ `; {' u5 i
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    - Q& o0 d( V9 E; x1 u     "]"}], "/.", "DeltaX"}]}]], "Input",
    2 V7 c: [/ f) {5 J$ v' j CellChangeTimes->{3.57792064921875*^9}],
    % V3 T7 y7 b  d7 j) M/ U
    ; w1 V7 f3 a' A- K2 UCell[BoxData[
    % W8 h4 r" U! Y2 ?  U0 k0 V SuperscriptBox["\[ExponentialE]", $ i8 d4 n% H) m, e3 W
      RowBox[{"3.141592653589793`", " ",
    0 C( L" [/ X' R- J! u   RowBox[{"(", 2 k! h" `9 a9 k: @
        RowBox[{8 P) E* M7 e8 n
         RowBox[{"-", 3 u; H2 L2 t3 R2 P0 x  ]
          SuperscriptBox[
    * o/ A# b. t% j7 C       RowBox[{"(", * ?+ ]& B5 T3 U- G( r
            RowBox[{0 C, r4 A# }! `6 S5 r
             RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", : M% L/ ^4 g! ^7 P; v: |
         SuperscriptBox[) m; _. z8 B; d6 O- l, w" E
          RowBox[{"(", 1 W6 i$ {$ q1 r- V8 Y( s8 g$ x2 m0 b
           RowBox[{
    / q# q; a, K3 o- I        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-", 4 \, z# s9 V% H6 n6 |: {+ V
         SuperscriptBox[* j% |# o2 c- d& v
          RowBox[{"(", , L; \1 M7 B& y7 o$ C0 {8 `& W; [
           RowBox[{; D5 ~, }8 X8 ?# U6 u8 _
            RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", " T) \7 [) a$ `- d1 F! i% A
         SuperscriptBox[
    6 H" M& N4 H# Q3 ?7 P- v      RowBox[{"(", " A) [/ Y' \4 N; ?9 L6 H
           RowBox[{( u; W0 F7 P1 R' \: M- f- o0 ]0 b+ P' g
            RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
    5 j* |# |4 S4 w4 }! |/ ~. h/ j     SuperscriptBox[
      R. b* \$ X* s/ ?8 r! V      RowBox[{"(",
    , l- [5 v& p+ r- D% H, i       RowBox[{
    % f0 @8 Q# O: v/ r        RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
    2 U7 G! s: n4 i4 O     SuperscriptBox[
    6 b. g, q9 r' ~5 a      RowBox[{"(",   n) ^% t- t( t. _5 K) T( c( V
           RowBox[{
    ; D' Q) J, D) J* e& H5 V        RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
    9 B+ M# d0 K9 g, `9 m6 Q! k9 P     SuperscriptBox[
    ' D" g- Q- i. S! K/ [! w! }      RowBox[{"(",
    8 A: u0 i! D1 w/ D  v       RowBox[{
    ! H2 q. w8 _. r& f        RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
    ) L; x3 Z2 r0 k8 Y) t     SuperscriptBox[
      N' j) m+ u. j2 B" [3 F% J      RowBox[{"(", 1 R. K) M, h* I- r; o
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 0 B( }( a# M0 u3 |7 K* J0 @
         SuperscriptBox[
    * P6 q& M& C' W! C% {& o      RowBox[{"(", 2 z* [+ A+ W: q
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], % u4 `( \/ A/ e/ h( p
        ")"}]}]]], "Output",$ `" @+ R( l; ?8 T- h- [
    CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9, . w4 a' V, {5 I: n8 M
      3.5779607654819613`*^9, 3.578012211515625*^9}]2 @7 M' \$ @  I( R' @2 d4 D7 t
    }, Open  ]],
    ' ^) _1 c7 f0 r( L
      O4 ]& G% s2 x7 cCell[CellGroupData[{: l4 T# }4 N# p3 L& D
    / i" \* p& b8 d" X6 c
    Cell[BoxData[+ T7 {- _" v. j  [9 @' r2 \
    RowBox[{"C4", "=", "Ca"}]], "Input",
    $ J1 c5 s5 ?' a& A  ?) k# F9 B  A CellChangeTimes->{3.5779207559375*^9}],
    ! D/ ~6 r% c- m/ @2 N/ U
    0 |9 F8 v" H$ ?$ B& P# F3 @+ d1 e+ hCell[BoxData[
    4 |0 o$ I( g9 A( z RowBox[{"{",
    8 u9 w4 o) f( u6 `4 F  RowBox[{. _" {5 e  `" \+ j. Y: J
      "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",", ; Y! [0 h) p- L3 ~, K
       "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], $ a( O. @% z; `7 p
      "}"}]], "Output",
    . o/ ?, U7 ?" n, `7 r. h0 @ CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
    3 P- Y( c5 R& }  3.5779607861363974`*^9, 3.578012216171875*^9}]
    7 b3 c7 |+ b9 ^}, Open  ]],
    ; v( G& z, v, q  Z" ]+ G0 q) H
    Cell[CellGroupData[{
    3 K' g2 p4 G( d9 d: {- M4 d$ C' A
    2 v; I3 j  l3 h/ kCell[BoxData[& U% X+ S6 \8 R/ g2 b
    RowBox[{"u4", "=", 1 v% t. j5 |4 T: h/ @: W
      RowBox[{' k, e( M  U5 y( k( D
       RowBox[{"Exp", "[", + N2 R+ q- a6 i
        RowBox[{
    - v! G6 Z& H- C" Y9 e1 t     RowBox[{
    / ]( `+ k+ {9 p4 V3 J7 a$ t; \      RowBox[{"-", 0 p& `7 E5 i" t, t. t/ O
           RowBox[{
    $ t1 i! E7 F5 @0 F" j        RowBox[{"(",
    , d# i* y5 n) m* r5 u' }         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    % a8 M5 R; H# L        RowBox[{"(", # b/ Y$ d3 j: w
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ' ?$ X8 w- a( o) k6 q- h     "]"}], "/.", "DeltaX"}]}]], "Input",
    % D0 k4 f4 b! P# d. X/ r CellChangeTimes->{3.57792076325*^9}],
    $ @6 [/ K2 _2 r' G4 |" x2 L- [* J* b. Z2 |0 C
    Cell[BoxData[
    ( ^% I5 w/ _0 L2 ^" g* Y SuperscriptBox["\[ExponentialE]", 2 }. l5 t* L! R, O, i5 q8 N
      RowBox[{"3.141592653589793`", " ",
    & a1 L/ m$ a2 G5 q% Z6 _   RowBox[{"(",   w+ n- |8 m$ t3 }) Y
        RowBox[{
    $ ]& n( L: `. Z- S' N: ]# V     RowBox[{"-", / n7 w- i& q# p- o' _# q# X
          SuperscriptBox[$ S' h0 t( H$ X8 U) b
           RowBox[{"(",
    6 f; n" K" i5 [$ v2 ]* X8 Y        RowBox[{: Y8 M( k# B1 u9 u4 Z
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 7 Y' N9 D% U- j5 _# ?
         SuperscriptBox[
    # k% e1 ~3 O0 L0 [6 ^# B      RowBox[{"(",
    7 e% r" `, V& {  r; @       RowBox[{1 Z1 w( s* I9 \, t
            RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
    $ p5 u4 X3 K2 z1 m" d# \* j     SuperscriptBox[
    : W. n% C; m8 P9 @* Q# B7 S1 R      RowBox[{"(",
    ( G: t9 v9 M9 v0 A; u: Y! z, O0 Y       RowBox[{
    5 t# ?- p$ U+ f  v7 X1 t6 m* h: ?        RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", . t* e0 I8 s0 b- i  T# c- d
         SuperscriptBox[
    " L" y0 @: `5 i( c7 s% m      RowBox[{"(",
    ) L- H! \7 @# E( K6 E       RowBox[{1 M5 x$ l2 {: Z7 `* X
            RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", % Z* j1 u- |$ t
         SuperscriptBox[
    : p0 k5 O8 E( G      RowBox[{"(", 9 X3 k) _$ o; r! [: Z
           RowBox[{( W' ?9 Y( r! Q7 W, l; |( y. i; F
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    ! M1 F# k/ W  z7 D     SuperscriptBox[
    6 ?$ P6 B* x8 _      RowBox[{"(",
    : O4 M8 V) d. s2 B       RowBox[{
    ( d1 S7 P/ |* S$ @3 q        RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
    9 _; O5 r8 k3 F1 u     SuperscriptBox[0 ?& D- J" p' p$ k: H9 B- [
          RowBox[{"(", # g8 m5 ~, x! m+ ~& f: S
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", * d( u' k& [8 {' s, D* n/ D
         SuperscriptBox[
    " k: ~$ U" r. @% @      RowBox[{"(",
    / p8 ^$ M  p: u5 x- E  v       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 8 }* i& g, R5 H0 v- A  _
         SuperscriptBox[3 E' K9 i, M- s1 m5 q4 ^5 v5 Q
          RowBox[{"(", 0 @( t4 n5 ~. x  k& c
           RowBox[{
    1 Z! k3 {# \: m: }! b  b$ U        RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], * l7 B* d) a3 R( ^- Z6 Y# ]
        ")"}]}]]], "Output",7 l8 }& ^; T$ s  g1 X* T2 r5 i
    CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9, 1 W  l. i5 H% P# i" ^! S
      3.5779607873531995`*^9, 3.5780122169375*^9}]
    ) X! T; C2 f* y}, Open  ]],
    ; W  Y$ d% \3 x+ f9 a2 `4 J
    8 {3 i' b) |. X) W2 n, C+ ?Cell[CellGroupData[{; Y$ O+ k/ q" U9 m% H; W% a
    4 S! I3 K8 R2 y, ?8 h" S2 s& I
    Cell[BoxData[" J2 P& h# e) U2 A# r
    RowBox[{"C5", "=", "Ca"}]], "Input",2 R. A: D5 x2 j$ ]/ v! ~3 _: j
    CellChangeTimes->{3.577920860671875*^9}],
    ( H' C2 L. J& i  G" S. ]: T7 C: j. ?, y8 j; _/ Y1 C0 j/ X: U7 S
    Cell[BoxData[
      {/ K* y! t) B' u# ?# K3 V0 ~ RowBox[{"{", 7 N, y* j4 N( N! i0 Z
      RowBox[{3 |+ |- ?2 \, L
      "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",", 4 D  V6 D$ Z" o* C$ ]* {
       "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],
    ( _; {0 u2 V5 @# y% W# ~1 \  "}"}]], "Output",
    + s$ S' ]4 S1 |  |* T0 n2 M CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
    & Q$ t' U' t$ {* y  3.5779608137328453`*^9, 3.5780122209375*^9}]
    ' ~9 D1 I' f7 A% T; u}, Open  ]],
    % F4 c* k# _7 E* e) n  n
    0 r' B: W9 h8 X- wCell[CellGroupData[{
    . Z3 S/ m% L& ~4 x1 Y" }5 x+ X2 ]
    9 R7 @7 q# a7 L. G1 }, q2 m1 XCell[BoxData[0 a1 O+ _* A7 a: F! o( |) h
    RowBox[{"u5", "=",
    # q1 n$ H6 L9 q. ]5 {  RowBox[{4 g& ~: x- `7 e5 o4 x- E4 W
       RowBox[{"Exp", "[", . W1 u5 ?& Y6 S( B
        RowBox[{4 q, ^9 \7 Z- M7 `' Y
         RowBox[{! t/ [6 K! ?- `
          RowBox[{"-", * X+ c5 d, V2 E0 v  c1 ~% f
           RowBox[{/ ]3 r) g# \* ?, L
            RowBox[{"(",
    & P/ `9 \/ z7 g% g/ a         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    / b% R0 o7 M# G0 n- Y( Z  F& v        RowBox[{"(",
    $ O7 i& I. W0 w  F" u7 _* Q         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    3 Q9 A* E( I: v" y* i- E     "]"}], "/.", "DeltaX"}]}]], "Input",! J5 ?$ w3 E* w* M# _; m
    CellChangeTimes->{3.577920869375*^9}],* ]- ?( L; G( g$ U0 r5 o  I

    % [6 r  M# W' ?Cell[BoxData[) o+ h, I  S0 T9 w# w1 Z
    SuperscriptBox["\[ExponentialE]",
    7 Z  x" w0 h6 n9 t  RowBox[{"3.141592653589793`", " ", ) a0 w3 F% U3 P3 S, I3 W5 n7 @
       RowBox[{"(", 3 t& t, l( @! O& @. A3 E7 g% G
        RowBox[{
    6 d; f' y) R: r/ }" z- L: \     RowBox[{"-",
    5 S7 K. a5 ?% p/ S, D2 r# p, r0 A      SuperscriptBox[
    " H0 x4 _& o4 H" h5 a       RowBox[{"(",
    5 `9 i% B0 A3 W+ Y% C: M, L        RowBox[{% z) e; l6 i' @3 P; X  k* \
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 s! D3 Z) I& f9 p) L8 o: ]
         SuperscriptBox[) R" b' j& [' z8 T" a; l1 G1 ]
          RowBox[{"(", 0 u4 [( T, M! |1 {$ A
           RowBox[{
    ) C0 j, C' v" Y/ r: u        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-", 7 g! i: E! `- c2 d
         SuperscriptBox[& [5 M4 P8 @3 N
          RowBox[{"(",
    ; F0 _0 S+ t9 ^" p       RowBox[{" ~4 ~3 ~, j3 }+ ~) r3 F& v
            RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", ( t+ a0 Q- M$ g* ?1 i
         SuperscriptBox[
    - l: z4 s, k5 e      RowBox[{"(", " v! D" }. T( E$ H! V% d
           RowBox[{( M8 D1 p: R+ n' m3 \7 ~
            RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-", # a) M4 {6 z- P5 F( b% _% s; H
         SuperscriptBox[7 X4 I' k* d) u3 p; Q" I
          RowBox[{"(",
    0 I. c" ^7 o& b/ \       RowBox[{% E% Y' V% E# {
            RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
    2 }% Y- d( i7 ~& @5 e9 ^9 X     SuperscriptBox[
    + r7 m5 j* A" q! Y, O4 N      RowBox[{"(",
    3 r1 M. }3 y; ]# H       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    9 z8 Y/ r( S# T' j$ w1 h' J6 h     SuperscriptBox[% B$ j8 l/ L# L% d- Z# o
          RowBox[{"(", 2 C2 G: w' [7 F, `$ }9 I7 ~
           RowBox[{* m. W! m( A8 w4 z. q
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    ' l* b% _' o' j- k& ]     SuperscriptBox[, {6 {" y6 o. v6 P
          RowBox[{"(",
    . J( D! ^! s4 W% O, D       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", , X- U; u( P5 A6 w3 |* n7 T, C
         SuperscriptBox[
    : }, c! J, U0 n. Q      RowBox[{"(",
    4 s( P: ]! O# K( S       RowBox[{
    : z$ W" p! u4 ^- @- N( k        RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], & ^( ]1 v3 n& M2 |/ H
        ")"}]}]]], "Output",9 s4 R4 m6 }' a6 E+ {/ C$ ]' @4 f
    CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
    3 v# Z% C0 y( l* u  3.577960815043248*^9, 3.578012221953125*^9}]
    0 h# e( o" A: ]( o}, Open  ]],
    ! y6 m; ?( n7 p; u$ J. ^8 z' N* V/ \: ?' O& l2 g
    Cell[CellGroupData[{: x$ U& V( `, K  ^. P: I
    , E5 t1 v+ C: k) U; a/ P6 `
    Cell[BoxData[
    9 @( Q) t, z/ K$ W$ Z RowBox[{"C6", "=", "Ca"}]], "Input"," E0 I# l3 G4 }9 i9 F* \- h" M5 R
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],/ g4 x/ K1 P+ |7 |$ H4 b3 l! @+ w; K

    4 t7 @& N4 _7 i9 Y3 T( ^$ QCell[BoxData[7 H" I5 y, J9 A* K" f
    RowBox[{"{",
    ( ?7 c# o* W& k- m  RowBox[{6 ?$ ~& e4 ]7 z; F; Q8 _
      "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",", . d+ z3 T  ?1 M% m
       "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
    - f2 x' K1 V: j$ j: _   "0.494866`"}], "}"}]], "Output",5 A! b' a: E& m  d0 w, ^
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,/ [( g& [3 L) m! i4 J
       3.5779608373044868`*^9, 3.578012227359375*^9}]
    1 `) J: u4 g  W! I; Y5 @}, Open  ]],
    % H, [4 e( r$ T: }/ @% F- ]/ p- ^& `7 p, _
    Cell[CellGroupData[{) B6 r' F. ?9 K

    ' g& P, y0 P1 Q' `Cell[BoxData[
    $ k7 L( U7 u& l2 D5 r" U RowBox[{"u6", "=", 1 b. R2 u' N8 C' `* D
      RowBox[{
    3 J+ e  N$ W7 L: z+ D   RowBox[{"Exp", "[",
    : w$ \0 y3 e% r/ n    RowBox[{
    2 X& u- o$ F) Q5 w. j5 a3 c0 o9 J     RowBox[{
    - m# o; b" [, s9 u  p6 C      RowBox[{"-", 9 Y( _& V4 ^' l6 W; g6 J
           RowBox[{1 q8 p5 D2 s6 Q5 D; r
            RowBox[{"(", 8 M, h2 N" ?+ F( t$ v
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", / `9 u3 O$ G7 B4 s
            RowBox[{"(",
    2 ]9 Q+ m: H: y. `" F9 g         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    / E! V7 C* g' i) ?     "]"}], "/.", "DeltaX"}]}]], "Input",
    7 j/ z$ \9 X# }9 Q. H* V/ t7 J+ R. c CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],, I  H% L3 @/ P3 [. U4 S
    7 W. U9 |+ ~4 x. x% V
    Cell[BoxData[
    " H; f8 S$ H0 @( k8 F7 X SuperscriptBox["\[ExponentialE]",
    , m* k! D  m! ?5 E0 o3 p  RowBox[{"3.141592653589793`", " ", - s  b3 D9 X5 W+ R- B2 b0 R( o
       RowBox[{"(", % x8 o6 B, D+ k7 Q8 k2 {
        RowBox[{- t' @% {. C) P5 T" q0 {+ |
         RowBox[{"-",
    - k) K6 L! Q. L' h  U      SuperscriptBox[
    * h$ ]" L2 g) A. f7 [- g0 u  G' p9 n+ i       RowBox[{"(",
    8 B6 w$ i" [7 b1 t        RowBox[{
      n9 Z, I' c% m8 @. n6 G/ E; s         RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-", / H$ x1 N- Q' C8 B# n. x0 Y7 |
         SuperscriptBox[
    8 K& }8 w$ [& P' b& Y      RowBox[{"(",
    3 ^' O. d$ e# L       RowBox[{" m3 M) @9 i# d+ n1 r8 Q. M* a
            RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
    + U$ O. T* F' S     SuperscriptBox[
    " W- s# o( c8 z- r1 o# k* K  A      RowBox[{"(",
    5 i+ P6 {; m* _9 z# T) f6 h       RowBox[{; l3 b4 l7 h, Z8 T. T9 g+ y
            RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", 2 f! h; Z5 @" g) t2 D- ^/ a/ g
         SuperscriptBox[( @4 q5 X. T2 N% Q" z
          RowBox[{"(", & z( p7 g6 i$ _; F( H3 y& y$ n
           RowBox[{, C6 x  I& p7 u' L, F9 s
            RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", 3 ^$ \1 S6 a+ k1 g( m3 ~5 d
         SuperscriptBox[" }* u7 v! p7 Z2 n
          RowBox[{"(", 7 r# l2 ^6 c6 I' I  x/ z- b- }
           RowBox[{0 Q* z4 Z2 q! }3 t2 i
            RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
    $ [# B0 i/ e- Y( u2 P     SuperscriptBox[
    / I0 A0 t* T8 B- S      RowBox[{"(", " y/ C5 c) h" ]0 b) e
           RowBox[{3 D2 ]6 X0 R; {* j9 \
            RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", 9 s& X8 }6 T' r' o7 E9 r- e1 Y! M
         SuperscriptBox[
    $ m( A8 V+ K, o) O4 J' l* ~2 O+ j      RowBox[{"(",
    # L; ^- P) V4 J' _       RowBox[{/ Y; d/ n9 m6 i, ~
            RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", 9 s- g: ?' x2 r5 T& z
         SuperscriptBox[9 ]5 S: Y) r8 o6 n& N9 `
          RowBox[{"(",
      g- V& u; k( \2 l4 U$ [5 Y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 1 `* |9 H0 ^5 w" S9 A) I
         SuperscriptBox[
    ' P- a8 j8 n3 F) `      RowBox[{"(", 2 E# C+ |6 U- ^' {
           RowBox[{
    ) `3 ]6 P$ b- ~  [$ v        RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ! H2 P- Z9 R& `/ b& x
        ")"}]}]]], "Output",
    $ P& Q8 \/ u5 O/ Z; { CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    8 I; U# r+ ]1 G" g  3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
    0 i/ p& C4 U! v}, Open  ]],
    ! G& N7 D/ K2 N  B* q# Z3 i# B% h6 W9 o% [/ H) N! D; K8 i
    Cell[CellGroupData[{
    & g/ ~7 i. j3 Q8 ?1 v! [8 P$ Y! A1 x1 M3 c3 \3 Q. e
    Cell[BoxData[2 i9 v* j( }5 k1 L
    RowBox[{"C7", "=", "Ca"}]], "Input",
    3 W5 U4 \. b. U3 Z( `9 d CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    0 @0 z) @% W5 h1 q* I  3.577921316125*^9}],
    / V0 D( s" g* T: l  p# M5 o" ?/ I3 d& N: I, w  I' ~" f
    Cell[BoxData[
    1 e+ F4 \, L9 f8 r. O: K RowBox[{"{",
    " p8 o: Q  ~; s( f4 i, [  RowBox[{* `9 C5 V! O; j) e' L% [, d
      "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",", + N  V# o/ u/ x% V- X/ M  [- X* c! L- p
       "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}], / F  ?: R5 P  C! d& s
      "}"}]], "Output"," {; u, w; z5 U6 A( z) u
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, 9 l/ H9 ]& b2 x# c8 X3 ^# g3 r
      3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
    / b! U. x0 x# b5 u* V}, Open  ]],0 L6 z/ B& B+ I8 S

    2 c1 n" e+ |! k/ A; |, dCell[CellGroupData[{  B+ ]- G1 @+ P& T/ D& g
    0 x. `8 y# U' j4 e' U; I
    Cell[BoxData[' u+ F) B" Y6 `  O9 V. |
    RowBox[{"u7", "=", 8 S  ~7 Z$ s9 d
      RowBox[{
    . ^: f0 m1 J, a9 @$ R6 r! I4 k   RowBox[{"Exp", "[", + B$ g) D% u/ v
        RowBox[{
    ; T, Y- f5 b* n( Q- Q( r. Y% f; R     RowBox[{/ X3 `7 o6 w/ t  F  x
          RowBox[{"-",
    . C$ ~/ F1 a  D) d       RowBox[{8 J+ k0 w3 E. e1 |$ y+ `0 G
            RowBox[{"(",
    6 ^( Z2 c; ^: o# K! f" d6 F* q5 h         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    9 y; ?: `  I3 T; D! E/ Z        RowBox[{"(", 3 L/ T! C9 R* _% f: ~9 E# c
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],+ k4 ?) i5 W: K# `
         "]"}], "/.", "DeltaX"}]}]], "Input",: t; A( `8 X- v
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    6 a9 ?! n  C' ?1 m' z/ j  3.57792132028125*^9}],
    # F9 \7 I9 [- I& t$ ^8 i
    & X6 E. O1 T7 d5 ~, l0 y7 J6 \Cell[BoxData[; N; v0 P0 u9 b' V  _9 J
    SuperscriptBox["\[ExponentialE]",
    ; _9 K* `, {. t& w; [' E  RowBox[{"3.141592653589793`", " ",
    # d7 V0 S8 M4 J! h) M# q3 q7 S0 \   RowBox[{"(", 3 p& d" v4 u5 Z( B. N
        RowBox[{
    3 m8 U* ]; p" G' i/ [7 ~     RowBox[{"-",
    3 b6 y& V" B8 p( d9 a* d; w" n      SuperscriptBox[( H& ~: @; U7 c  }- h+ J* d) d
           RowBox[{"(", ; b$ d& X, h# z& I6 x1 S: O) |+ d
            RowBox[{
    ! k2 T! c: t3 d         RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
    9 U- `! Y% `+ p9 \0 k: e/ P     SuperscriptBox[4 V# K% y" \6 `7 A" F
          RowBox[{"(",
    2 k/ M4 o6 D/ l' \4 I  S       RowBox[{- C/ p& [3 V" c6 |& C
            RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
    # w) d5 w3 P# S( E, L     SuperscriptBox[
    . O9 ~) c8 f4 V, u3 F/ O/ p. M      RowBox[{"(",
    + U& A2 n& v! Q8 h       RowBox[{
    . M3 i/ I9 }7 e        RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    * N( C  \( U# g) O     SuperscriptBox[3 R9 z% p0 B: c& F% E7 E
          RowBox[{"(", : w- W# X! j' F2 `( V, k9 A
           RowBox[{7 l3 W# g8 U& k1 U5 v
            RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", & t0 f. [2 C0 `6 U. g; L0 m
         SuperscriptBox[
    4 J/ {0 A* {+ s% H  y6 D) }      RowBox[{"(", 3 R2 |* Q$ j$ ?5 x7 Q
           RowBox[{- |7 T1 Z% ]+ E* y  Y/ @
            RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
    & T: w  l+ D" I: q0 W$ w     SuperscriptBox[' w% z5 C# n2 m! O& O3 W. ~- J, p
          RowBox[{"(", 0 J0 p- ^, w. H9 G2 a! m$ @8 J( k
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 3 l0 `1 m' @  h  B6 n
         SuperscriptBox[0 g* A2 d1 A5 B4 p. F
          RowBox[{"(", # K* K! q! M" \, h2 [0 H
           RowBox[{
    + L3 C; }+ ^0 S        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", $ t5 _- K0 D! v3 p; G7 w5 R: M; ]0 @8 \
         SuperscriptBox[1 S$ g7 a7 q0 q( r. ~
          RowBox[{"(",
    6 F6 R* i% X8 f, L       RowBox[{
    : I3 t$ l) j; i7 c: D; d) t3 E/ b        RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", * L1 g! @# m* k
         SuperscriptBox[
    1 Y) {) ?& F/ h/ O      RowBox[{"(",
    - L- S" \: G' n. l/ g9 x       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 6 I' H  w/ d- [8 Y1 w& I
        ")"}]}]]], "Output",
    ; K& I  @& X1 Y+ R- D1 P CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, % k& ~: D$ L  C2 ?
      3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9,
    * t" y  V& }! A5 T$ z4 z  o  3.578012251359375*^9}]
    2 t# F& {$ H; l& |, p4 W% l  `' x}, Open  ]],
    ( u+ K+ ^0 E3 z0 D5 m; g& i; i5 g
    / W- |' ]( o( W* NCell[CellGroupData[{" b+ o7 k- I4 l

    & z/ U' v5 G" bCell[BoxData[
    8 `+ }* a0 S8 _9 z1 r+ \9 | RowBox[{"C8", "=", "Ca"}]], "Input",% m7 s* R) n3 D$ ]. {3 a
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    ( A6 M- b; g: y1 T1 }  3.577921316125*^9, 3.57792141421875*^9}],5 N% c9 j# F, T" h* a; L) n+ P
    ( A/ w+ E! i: _
    Cell[BoxData[* J5 M' w2 L0 U6 z5 R% W
    RowBox[{"{", 9 b1 i/ y* ?6 d4 s9 {
      RowBox[{6 u0 O6 I9 E; h
      "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
    + y* q3 I1 F  \& t5 p; N. Z, B/ i   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}], 4 ~- \& `" p  |  S
      "}"}]], "Output",
    ' _; k& N. X4 N/ x) D" k/ n9 f CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, 4 X% ~7 p1 S  l7 }
      3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
    ( ?0 [8 [: y& i% K! j7 G5 f: O) Z  3.578012260515625*^9}]* U8 X% U! k  G
    }, Open  ]],
    , Z- d, b0 g  F7 h- P$ l3 o: U8 ?- z
    8 {# g5 ~' i0 f5 _+ GCell[CellGroupData[{
    2 N# V$ ]/ b. J7 O! T
    1 M4 M! ~. H# t1 n! mCell[BoxData[0 m$ D6 h# Z7 q; }! a$ R8 x
    RowBox[{"u8", "=",
    / f* \  C2 C# Z) m8 m( t( B6 W  RowBox[{
    9 r/ E$ p2 d/ b, m   RowBox[{"Exp", "[",
    : q! P# t% [8 d    RowBox[{
    $ ~0 o8 s+ ~& Z     RowBox[{
    . W7 P1 W3 l  e9 G; z8 ^2 i- o      RowBox[{"-", + P8 c6 I6 ?1 l9 A$ c
           RowBox[{
    - E" ^6 w+ T' N        RowBox[{"(", * A4 h9 |1 U, o# t! K
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 4 J' u7 o: a: L* g! d' H( G
            RowBox[{"(", * j( g: Z! c7 @6 e+ X7 y
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    + G9 ~: V* F- a; V     "]"}], "/.", "DeltaX"}]}]], "Input",
    : g. s/ q+ ^% T CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, # U9 l8 ^" H) |4 Q  N1 q% ?3 e
      3.57792132028125*^9, 3.577921416921875*^9}],/ Z, m/ Z9 ?2 [$ i! x6 P
    1 @- X$ x# Q# v' z; G* V- |
    Cell[BoxData[
    3 \$ p) C+ I9 k( i4 t SuperscriptBox["\[ExponentialE]",
    ! @2 [0 F1 C% Z0 e% D: v  RowBox[{"3.141592653589793`", " ",
    % g0 _; J. C# o1 Y3 B6 T( t8 s# c   RowBox[{"(",
    : D' D% D9 V8 I2 R7 [4 y+ `/ g# b    RowBox[{
    : V4 K6 N, A7 i0 \7 P     RowBox[{"-",
    0 ?" H; f& n7 r* r      SuperscriptBox[
      z! f9 a4 E' ~4 {+ L1 A: h" h6 f! E       RowBox[{"(",
    ) }! Z, e& u0 @& y3 V  R" a; j        RowBox[{
    + B# {- c+ a2 T( |  q         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", / f0 D/ J4 b" `
         SuperscriptBox[
    8 z) [9 [# A9 o. {8 q" c      RowBox[{"(", " S2 P0 A# q2 c7 e) P# m
           RowBox[{
    8 x& v: |% S2 o        RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
    $ `5 _8 K# q* E! C     SuperscriptBox[
    - J, h$ k. A- n6 G9 d7 u      RowBox[{"(",
    . A' h# V/ o5 p" E; O9 t       RowBox[{: G7 F; q$ z, I/ Z5 R
            RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
    1 g0 n9 F+ ^7 H- I     SuperscriptBox[
    " s9 |! S1 _! B, T  a- h2 }      RowBox[{"(",
    5 G% Y4 B2 S, B1 F       RowBox[{
    ! A, F- d5 p6 J        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
    3 h4 e- K0 ^( f/ G( {     SuperscriptBox[
    , d# P5 k& u( W5 N7 J7 _8 _4 \      RowBox[{"(",
    1 A& @4 H1 f# ]7 @* \       RowBox[{6 H! b- L5 y4 e
            RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", * m* d, w! C4 D3 O% C5 O) Q
         SuperscriptBox[
    & }% _( S# a9 G& _      RowBox[{"(", * w# U) |9 V: Y
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ! O2 ?% b$ _( W5 ?' G: m- F, ~
         SuperscriptBox[
    # {" }4 G6 b* \      RowBox[{"(",
    # ^0 q$ p+ K% E+ j& d       RowBox[{
    7 x5 K, ~( U" y5 X: ~        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
    ! L1 Y+ r* R( c0 @     SuperscriptBox[. w0 o* t  ~. e1 F
          RowBox[{"(",
    1 v5 I+ ]0 \$ _" _1 u3 U: W       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 9 [. l  r4 C5 F2 C6 y  q3 [
         SuperscriptBox[3 |) W  y! }8 {
          RowBox[{"(",
    : M. R' n7 M: `% q% p       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], / k/ O! B& l: P
        ")"}]}]]], "Output",
    $ R- y* g! _* z CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    : q" ?! a& e# H; D5 J2 M  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
    * w" R" G2 w  G) L/ R  3.5779608945565863`*^9, 3.57801226165625*^9}]
    7 ?8 h# V/ [. }. c# L* W}, Open  ]],( u+ W$ B- g$ Y
    ; c* V) i# F: E
    Cell[CellGroupData[{/ N8 ?$ L$ i: \" n
      @2 d2 |( V& z! Z
    Cell[BoxData[! @3 o, C8 e" r( z7 f
    RowBox[{"C9", "=", "Ca"}]], "Input",
    1 }4 n* N( H" f7 F- n. R CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    ! [/ N$ R; z$ A- c  3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],
    9 S+ N' \7 C8 g9 g1 `  L- j" s" X9 e3 @' A
    Cell[BoxData[) T" h. i0 _0 x$ A+ i
    RowBox[{"{", ' d. h' E/ Q* O
      RowBox[{
    - A/ W1 ~8 S/ k! w/ L: I3 x# M; `  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",", # f/ t; D3 R$ E; ?3 x
       "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}],
    . z( p! H' w, P. d  "}"}]], "Output",; I6 r2 {( G: p; Q
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    ! ?% e# U1 X8 }! z6 J  3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9,
    ( Y7 S0 d- V7 d- f! ?  3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9, 0 F6 Y9 |" X  m- S1 I8 ]5 x
      3.578012268234375*^9}]
    , W5 a4 H4 \0 Q! S}, Open  ]],
    2 T9 y, E6 k. t
    * l' o7 s+ Z0 P2 W- o4 F5 H4 c) l5 BCell[CellGroupData[{9 c  O# g! w1 i) \6 z  Y, c

    % ~0 l; s, X$ RCell[BoxData[4 e: y8 C7 T# A& t9 T) y6 a
    RowBox[{"u9", "=",
    / `( |  p; y( }/ V  RowBox[{/ v' C8 R: _, Q) b4 X$ U0 _5 }
       RowBox[{"Exp", "[", % a: I5 g# E2 t6 Y0 e
        RowBox[{
    ' u/ Y% C6 i0 g     RowBox[{
    0 }* q, b( w4 t6 J& Q1 ]; ]      RowBox[{"-",
    + f, @4 J; n" m" ^5 I* H       RowBox[{
    " x3 Z2 M/ \( q: o( y0 K( [. g        RowBox[{"(",
    1 z: z" |/ H  n1 P4 m         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", # ^; a0 T+ G& o# e' k9 K
            RowBox[{"(",
    ; ?& ~9 d' X' u" {9 \) N, b# N# w# L! [         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],* J+ o; H" H8 Y" l6 y6 B
         "]"}], "/.", "DeltaX"}]}]], "Input",+ C+ g( z& k4 x/ v
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, ! ?* G- s2 Q( P: P7 ]3 [9 g" X) m
      3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],& g4 |& C3 n" i5 J
    ! j5 N6 T1 Z% W. ], f
    Cell[BoxData[
    ( x4 Z1 h. W1 f) J- N) L SuperscriptBox["\[ExponentialE]", # h$ x% X# b  a& k
      RowBox[{"3.141592653589793`", " ",
    8 e4 O# U# ^3 z0 L& j- {   RowBox[{"(",
    ' L6 ^# V* y3 G+ m2 B  H% v  w    RowBox[{4 W+ A3 c, N9 d0 x
         RowBox[{"-", , C4 ^% V, ]1 E4 G9 ^, c# Y$ `
          SuperscriptBox[$ t1 B7 g' K/ j) ~' [
           RowBox[{"(",
    5 N3 |$ p" @- Z' n0 r1 y- `4 [5 x8 g' P" \        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", 1 t4 e5 ^8 W) q! K
         SuperscriptBox[3 Z! U) e' A! W1 b
          RowBox[{"(",
    ( D4 G7 \  Z  z, Y; I       RowBox[{
    4 _0 o( t, n* f6 H$ S        RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", 2 z1 y# N/ m1 b) V
         SuperscriptBox[
    # {0 |3 K9 U* f- B+ r# g7 W      RowBox[{"(", ( B, v8 t& a% _* N8 q# T/ g" m) F
           RowBox[{4 W/ i% J, X  O+ j2 T  h
            RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    $ i8 J+ E4 ^4 Y; X9 c* I7 S/ p& b; T     SuperscriptBox[
    % |* j# E: G7 O5 O      RowBox[{"(", 1 i  c- x8 k0 z1 Z* g( s. k
           RowBox[{. l. D5 }. ~8 d
            RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
    4 U& O/ Q% Z7 J3 e     SuperscriptBox[
    $ ?& }5 n4 t7 @) J7 z7 F) J2 j6 ~; a2 R+ `      RowBox[{"(", ( C$ m3 X% l# p5 m
           RowBox[{4 N2 ^3 M( `% D' O2 f. n
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",   \/ l  h* a5 {/ i( ^4 z( r
         SuperscriptBox[- h0 _3 }6 N# F. ^; J/ [3 f
          RowBox[{"(", 5 h1 N& ^% i% o: m- V- |( ]
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    0 @3 s8 ]4 d5 ^4 y" B/ q- ~+ T     SuperscriptBox[6 J& U/ e  X4 s- r2 R! R
          RowBox[{"(", + x& V  S3 u9 n/ n) x1 D# @
           RowBox[{' `$ c1 I* r% N% c. y* G( Z" i5 H
            RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", # D( z5 e* v5 v- B
         SuperscriptBox[0 U; Y- @( X1 O# v; F
          RowBox[{"(", ' G+ k' L" Z( Y  A- @0 r
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ( |- s7 ]9 h4 z6 {     SuperscriptBox[4 O: x2 b5 B  O+ u- d, h
          RowBox[{"(", ( X% T; S7 R0 l- t
           RowBox[{
    % S/ {% d6 K% w* d3 I& j        RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], - e% ]! h! K. O# T0 b9 n: N
        ")"}]}]]], "Output",
    " {. R% u4 d# [" X  v4 X& G CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    / l: `/ r( n- Q: m4 k: w- R1 ]  3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
    # G0 R7 `$ f- m3 |) ?5 D0 ^! B9 l  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9, & i/ p9 U- u# c. K  }1 L+ [$ B
      3.577961530421959*^9, 3.578012269125*^9}]$ A# ]8 X* V  }$ r
    }, Open  ]],8 M: [7 V* Z' I' O7 y2 a) H9 D6 ~

    ! E1 r* f7 m; @3 d$ z9 K- WCell[CellGroupData[{, T2 b9 X# M/ w8 M* Z; B8 Y- d
      }' R+ C$ Z2 }: g' g# a4 m. k6 T
    Cell[BoxData[{) `+ u# \) \* A0 S9 I6 a# D
    RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]", + v8 y+ T* C( k5 z% d  J
    RowBox[{"u10", "=",
    " Z* U3 Z; f: |/ \9 r  N& T; K: r  RowBox[{
    ; O# p9 W' Y; z! m0 h8 A) |   RowBox[{"Exp", "[",
    . G8 v: o7 ]  C, Y$ N    RowBox[{
    4 `0 H: B6 t' ], x- J     RowBox[{! V/ {6 E; i/ U' `! v, S! R
          RowBox[{"-",
    ) ~- A9 b$ `" ~* `) n       RowBox[{
    0 I- ~+ }; U! G& u0 d6 ^7 M1 j        RowBox[{"(",
    & Z  |7 D: q* T2 L. _1 m* i         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    8 X6 E# |0 Y' c/ O+ @        RowBox[{"(", - i8 t* a( {- ?+ D, Q$ t/ v
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    5 j. A8 _5 y/ L, G; d& Z* g& l$ l     "]"}], "/.", "DeltaX"}]}]}], "Input",
    ' N; q1 h6 t* X- B5 b2 a$ X1 ] CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],
    ; ~* ~. G6 m3 r( d+ [/ H! J3 m2 C) [/ O, B9 @9 X
    Cell[BoxData[
    . P2 `$ C4 w% l7 Z' Z; J, u RowBox[{"{", ) N% [1 T$ N9 X/ k: T
      RowBox[{
    / H5 P% F( e3 x$ E4 A4 W4 y# F  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",", ' X  j2 v" O0 H; X2 S3 c% S
       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
    2 ^- Q+ N$ b' r+ I' X CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
    ( A# {6 D1 f3 O: ~( w& X$ ]+ x
    . H' n) T) B, \: q* lCell[BoxData[8 K. `& U6 P4 r5 b. `7 c( u
    SuperscriptBox["\[ExponentialE]",
    ( e/ \7 Y) {, y$ |  RowBox[{"3.141592653589793`", " ", ! _7 r8 a  Z4 f
       RowBox[{"(",
    1 o! F3 N# n8 ?8 z0 T    RowBox[{
    * }7 w2 Y- [' O) m0 t+ a     RowBox[{"-",
    & ~/ i6 x6 l! b) F! {' v      SuperscriptBox[
    8 K( D; l$ j6 O9 r/ {       RowBox[{"(", ! D3 @: I- y1 r2 [4 G9 B/ m
            RowBox[{
    ( O5 p8 ?2 o  I7 v         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", ' A2 z5 h! ^" L* I
         SuperscriptBox[
    8 u5 Y6 ^1 G% W+ u4 a      RowBox[{"(", * n$ X! t2 {4 v+ ~3 l2 z/ M
           RowBox[{  W* m" C* x9 `* o
            RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
    3 R; _, |; ?8 [4 ~$ w4 a     SuperscriptBox[' G& E' B  y6 D0 ~; ~8 y
          RowBox[{"(", 2 h9 a, L( I& p, E  w3 r5 H- b
           RowBox[{, C. `$ a7 P' \8 u9 k# ]. l( V
            RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
    5 E9 T6 H4 m$ f7 s2 ~  E     SuperscriptBox[. E5 [# i5 y3 w- Z- L. [. e
          RowBox[{"(",
    : y% K* S2 F7 }: x% [! Y       RowBox[{% c2 ?% E4 Q) O0 B
            RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", 5 g: p( D4 W% p2 N8 W2 I9 }
         SuperscriptBox[6 j8 l0 P9 F+ l/ ]+ q
          RowBox[{"(",
    ) z$ M7 y5 C$ S9 L& R5 d7 Z. O# q0 P       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", : z- x: Q9 ]" P' u3 F( k
         SuperscriptBox[
    4 o& J7 K7 t6 k! N      RowBox[{"(",
    1 U3 ?2 V$ i1 j; n" x2 w1 n       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 2 u4 _9 s, Z3 x: j+ _9 V% @$ U
         SuperscriptBox[  }8 u, j8 k) g: V& I: l
          RowBox[{"(", 4 {3 ~8 c" s4 s  Y/ I" d- |
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
      v/ s' H' s7 P: x+ F* n2 H     SuperscriptBox[+ K* K) K# u6 O% F
          RowBox[{"(",
    $ B" i# S  A% U" e$ e, p       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ! d" |$ ~$ o* c% ?* D
         SuperscriptBox[
    & I5 b. B( W" Y      RowBox[{"(", 9 v6 X6 n! K' E6 J( G  j! p
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    & G0 N, |7 c# X: p. K& n    ")"}]}]]], "Output",
    7 m: n8 [# f+ m5 E CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}], y1 h4 Q8 F# A6 Y0 d
    }, Open  ]],
    " g0 W1 J2 T6 s$ u6 `1 k9 C; ]* w7 y% L8 o5 _8 U
    Cell[CellGroupData[{
    ( e, M* }3 X& w2 B
    " Y8 l9 u: h. T& N7 F3 XCell[BoxData[{
    0 I+ o* ^8 s( ~. r8 U! ]: F& e RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]",
    : j7 Z5 q4 e" S4 V RowBox[{"u11", "=",
    ) q5 j% @& D' u" `2 P; l  RowBox[{0 }: d3 V5 d$ j) p% Z+ N& S
       RowBox[{"Exp", "[", 3 ^% i5 ~" O; z) Y4 L
        RowBox[{/ ?) M) D# P- b  W+ C- |, Y
         RowBox[{) E2 b- v% H; I: j$ p. {) v
          RowBox[{"-",
    % F# D. X- r$ n. _       RowBox[{
    * ^$ L  j+ A5 w8 C# v" [& r; O% e        RowBox[{"(",
    0 E- m+ s) g3 i* }& t; i8 D7 f         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 5 Q9 N* G6 e3 t) w) w$ t+ ?' O
            RowBox[{"(",
    ! a8 ]5 K) ]. J7 X% \) R         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ; M) Y# O7 P$ Q- {# m( J     "]"}], "/.", "DeltaX"}]}]}], "Input",
    ! d  \# N: Q$ \2 J0 o: E4 x CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    3 X7 f7 f' f% Y& ^1 O; \6 E4 V  3.57796154237158*^9, 3.5779615434011817`*^9}}],9 a8 W" U6 j- w8 H' M

    : O+ F$ G. S) i, }; Q+ b& SCell[BoxData[; d2 ~4 H. `1 T2 f
    RowBox[{"{",
    $ A  x) L. [1 k* a0 `& L- w  RowBox[{. t  j/ H3 g: W* n
      "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
    5 N8 U* K3 B& Z7 |2 T# B   "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    ) }8 k7 R. [, ]* U$ w  "}"}]], "Output",
    : G+ Z( ?  c4 N2 @( `* q) u9 i- a CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    4 `6 s( B5 V3 F: T5 p: h1 e  3.57801228203125*^9}],
    ( q/ U/ m  q# x7 l1 f" Y9 X: r
    ' x2 q3 W. }6 F, t! ICell[BoxData[; U) p; j/ j! b  e. _& _. B+ j6 X
    SuperscriptBox["\[ExponentialE]", 7 J6 E: F  x" I; o" d9 B) s0 l
      RowBox[{"3.141592653589793`", " ",
    # X' {7 W; t1 b   RowBox[{"(", ( h8 m5 f" |  {" `6 c0 g& {2 [' g
        RowBox[{3 t: S9 H& |2 _3 Z; c6 B1 L
         RowBox[{"-",
    # B0 o  y; M9 Q8 W      SuperscriptBox[
    " |* f* F1 @* T8 _/ c( `       RowBox[{"(", / @7 Y+ n' f8 I# p/ A2 }( ~
            RowBox[{
    / L2 t9 A  R. j  c         RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", 5 l8 ?. I+ H8 X: _2 ^& p* t; G/ H/ Q
         SuperscriptBox[7 h1 l3 T( Q8 P5 C6 _5 x: ^
          RowBox[{"(", . |8 S( B0 Z: w$ W" Y; S9 g# H
           RowBox[{* O/ ^" |3 @* Y# }
            RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", ) T* L6 T" k, r
         SuperscriptBox[
    # b& J' g* p2 e1 l7 f  D7 l7 ?! |      RowBox[{"(", 0 m1 V7 J6 M4 s! a
           RowBox[{4 u, ^" `$ C7 C
            RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", 5 g, Y0 Q+ B2 R, O$ t
         SuperscriptBox[7 b! c$ k, {9 U" W
          RowBox[{"(",
    4 `1 t6 Q4 m* e' P% E" V) d" ]       RowBox[{
    , Y% e/ l- \$ A8 G; X3 f6 i        RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
    : R$ L1 l4 N/ b5 o3 Q     SuperscriptBox[
    ; P, ?% D' Q8 d5 w      RowBox[{"(",
    2 [* I$ R& W, F6 {- A2 Z. J2 `       RowBox[{
    % K3 r  o8 h3 _2 s1 O' R3 r% x& \' t        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-", 5 `3 ~3 E7 ~) x
         SuperscriptBox[7 {. J+ H3 `* c$ g" ~" ^% j
          RowBox[{"(",
    ! x' }8 M- S$ a, r) W" o3 y, }       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ; E+ H- A- @2 Y
         SuperscriptBox[
    ! Y( B1 u5 _* g      RowBox[{"(", " k9 v% d/ V5 i
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    $ {4 U+ q3 [( u9 ]( A6 @     SuperscriptBox[! r$ p/ V- O9 J9 x9 t
          RowBox[{"(",
    % v* L  Y4 A* |# }% P3 [7 O* I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 9 y1 z1 C* {9 p( l4 @; X
         SuperscriptBox[
    3 i% M9 T; w: d, ?' H0 e      RowBox[{"(",
    2 z/ Y8 U$ o8 ?1 K! G       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ' J# j% u: T0 ~, O4 k3 V& v    ")"}]}]]], "Output",; V, j5 p! q) m
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, - ^% {4 x; n3 z4 r& i
      3.57801228203125*^9}]
    + L' f7 U# ?) L  u( i3 Q: ?/ g# d( [' G}, Open  ]],% C9 V5 p0 O, p* o! u- A3 C
      D* p$ ^. h! c  P6 \
    Cell[CellGroupData[{: ^' Q# O* O7 {! y1 j* {/ l

    . v( p0 e3 H0 `6 T  d4 Y$ u4 N7 TCell[BoxData[{' q3 }& L6 e( u0 `4 [# H8 V
    RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]", 4 [0 W" @5 l2 g, \
    RowBox[{"u12", "=",
    - c0 l2 J( g) Y2 r$ O7 i7 {  RowBox[{$ D. _( p: b% t7 x% s
       RowBox[{"Exp", "[", & u1 x+ o0 P9 I. h2 d0 j% J$ E
        RowBox[{
    6 R" ]% _8 F2 e4 P/ U8 {7 h     RowBox[{' o& R- H& f' d2 a& ~  i2 X
          RowBox[{"-", ; f# ^5 b& j, H# N  z* [1 p
           RowBox[{
    * Q2 j! Q5 |: t$ b, v7 n        RowBox[{"(",
    # w8 g6 ~# O- D7 A4 {& J8 F         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", + s" s% j+ i) T7 H0 m6 O2 b
            RowBox[{"(", " F( A5 c* J5 F, l
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],% ^6 u% F3 A. w0 A1 z
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    " M0 q8 c6 w- j: Y CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {1 a5 m: m+ x$ m- z* _
      3.57796154237158*^9, 3.5779615576284065`*^9}}],
    & O) S' u5 y6 V; ]7 i3 s4 h( ]5 p' L# s4 `- o
    Cell[BoxData[
    * r# ?- w' J0 D/ r; |; }8 H RowBox[{"{",
    1 G% {' U, t3 U/ U1 p9 v5 c$ N( W9 x4 c  RowBox[{
    2 n) k- y. s7 L- X4 k+ U  s  "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
    + `& Z1 `/ M3 T, F: r1 |   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],   N/ N8 |! e3 p7 z' v
      "}"}]], "Output",4 \% n' h: |: n  @2 h2 i8 |9 y; t
    CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],& N) R! V3 L# @8 H' B8 t
    3 D: V% h9 \, {! P  ]
    Cell[BoxData[( _; h, s9 C* c0 s) q' I7 ^6 ~. d% N
    SuperscriptBox["\[ExponentialE]", 2 u4 W" u& A3 ?7 v& ^
      RowBox[{"3.141592653589793`", " ", 5 K4 j( l1 Y5 [* J: I3 |
       RowBox[{"(", 2 G8 w- {+ N9 K# w) `2 v0 x8 a
        RowBox[{
    ) N; B! f$ {0 x4 G) c  I- ?5 v% T     RowBox[{"-",
    1 @! h8 {3 y, ^( [, }3 G6 I- A      SuperscriptBox[
      W5 C0 @  e9 B* L       RowBox[{"(", / I- M, N$ J3 s/ f: U4 t
            RowBox[{/ t9 X+ G" y) Q5 |
             RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
    7 a! {1 g% Z. h% j4 c7 m2 W     SuperscriptBox[
    & z8 ]' W: q/ P; Z2 U      RowBox[{"(",
    ( z9 u$ H6 A  [  y; N; ]       RowBox[{
    1 y% @- D$ l0 v# c+ [        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", & w5 d$ j: L. e3 U$ h
         SuperscriptBox[
    6 m, P! b9 s" |1 @1 _      RowBox[{"(",
    0 k7 H9 ]% ]& e! F       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", - U7 T4 y+ S: f; l, h2 p. k% ^" }5 H
         SuperscriptBox[/ x$ @1 T( |+ I; b& y7 p& ]
          RowBox[{"(",
    6 A2 `5 G$ q2 \7 ~6 Z       RowBox[{
    & a3 ^) W- W6 x        RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
    1 C, s5 W4 M5 r( G* E, ?     SuperscriptBox[
    : ~7 P, b* _0 I5 \5 {3 y( R2 t% }; `      RowBox[{"(",
    + o& K' L* l- \2 V9 h0 Y+ t       RowBox[{, r, j) F/ d( Z/ P8 [
            RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
    1 U8 T' f) q) c8 O' j/ b7 ?5 g     SuperscriptBox[2 o( C( u3 t. a* b
          RowBox[{"(",
    7 C, a4 w0 \' I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", . H% m% B: Y$ j# `, x
         SuperscriptBox[
    1 O* U: _9 y9 w8 A3 S: j4 g      RowBox[{"(",
    - p. D+ K* v; V8 C# U# M7 c       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", / D( L$ t9 G) Y, a0 ]/ u
         SuperscriptBox[
    $ x: v0 W1 N! s3 V+ P* a      RowBox[{"(",
    " ^7 M+ @7 ?% }0 |. F       RowBox[{3 {/ `  R1 D# W& c9 k* r$ ^$ p9 `
            RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", . S) y# z: L  ~* ?, h; `; p
         SuperscriptBox[- T4 {9 i2 p, _+ Q8 |7 w! @' b
          RowBox[{"(", & C$ q2 ~9 @) U' l
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    . `" t+ r( z- |    ")"}]}]]], "Output",0 ?9 c% O: Z  f% f1 y
    CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]3 `' e; }0 N  ?( u% a
    }, Open  ]],% t3 K' w# k  ]; X, n
    * {; n% ^/ G& S1 L
    Cell[CellGroupData[{
    4 m# E' i3 j7 L8 I; [9 a# S) j# C( G* P* A! T0 B, i3 C
    Cell[BoxData[{
    ' g9 j9 p2 ?+ S! N6 T6 \ RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]", 4 [( P5 d+ m5 h7 j$ g
    RowBox[{"u13", "=",
    % h9 o4 L' s3 }; x/ Q! ?. G! a  RowBox[{; }  s& j% w% U* m+ Y- |
       RowBox[{"Exp", "[",
    9 B% i, ?$ N( P; g    RowBox[{- G7 h2 j, Q4 G9 Z% O# B3 t
         RowBox[{
    5 T1 R: v: {6 w. Z7 M  s8 L: z      RowBox[{"-", $ S+ e. t" Y! g2 M, M% V$ }3 G. u
           RowBox[{
    ! i$ `1 ~# ^% A- ]        RowBox[{"(",
    1 y8 W" p/ Z7 H1 j         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    " ^& m; }9 Q; j; b        RowBox[{"(",   i- g3 N' I/ s2 J
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],6 N: j3 N" |0 b1 S5 A& |$ v, O- H
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    2 R% y3 d- ?$ T CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    1 w0 x4 C* A$ Y  3.57796154237158*^9, 3.5779615599684105`*^9}}],
    ) Q( R/ v1 }. v' \
    5 I( w/ d) G( @  A" U/ @6 c5 @' rCell[BoxData[2 j: J& h' @( y
    RowBox[{"{", # ~% i3 i& ~# R. E+ m' y
      RowBox[{: E3 q: ^7 ^  Y. Q. {
      "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
    : o- r0 }2 `+ q1 A) m   "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
    % w0 j" `0 }  p& ]5 i  "}"}]], "Output",2 T5 g  b1 x8 J0 O% V0 r
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],
    # M; Q# G0 J! _/ s7 D
    ! A/ @% ?, U, i' |( m# tCell[BoxData[
    $ X3 ^; h1 k- i( n0 M& d SuperscriptBox["\[ExponentialE]", 4 s* `7 I& N. I! a8 Y, Q( m
      RowBox[{"3.141592653589793`", " ",
      }( u' \% u5 D" X   RowBox[{"(",   R- c1 ~" G2 R" ?
        RowBox[{. }, d7 @( d0 q# ?. G
         RowBox[{"-", 5 I2 G. J% `" o! b3 B
          SuperscriptBox[0 a% R, C: D; H- W6 D% J9 e  a
           RowBox[{"(",
    3 \  |; N9 H9 N        RowBox[{! [9 `# x" A- o" V3 _% b
             RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-", $ D, M' \3 L" i9 k
         SuperscriptBox[
    1 n; M* T! ]( Q) M% h- i' q      RowBox[{"(",
    8 _* J, h9 l  {       RowBox[{) X, J' |5 b! l+ p
            RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
    7 L2 I. H) C0 Q2 g" |* K: `/ \     SuperscriptBox[
    ; f; Y1 S" @! ]      RowBox[{"(", ! Z- B" l* q/ d+ x
           RowBox[{
    3 k5 }; \/ i/ f8 B/ F1 E4 e        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    6 k, }/ g% U9 R4 o, O     SuperscriptBox[
    $ H9 }8 [: e5 U! ]      RowBox[{"(", 1 O- D/ u* ]) T+ p5 H1 j
           RowBox[{
    0 e4 g: {6 k( y% A" k        RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
    * |& O8 G! W4 y0 h' y     SuperscriptBox[
    - s8 m; A6 V3 o      RowBox[{"(", ! y+ ^; |3 I7 T3 s) @8 s& u+ l! F
           RowBox[{
    * _) ~3 ~8 ~. S1 M        RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
    " g+ v7 A- O. U9 `2 @% n. O     SuperscriptBox[( z1 u! V3 O3 W8 n+ t/ V" J
          RowBox[{"(",
    4 C# p; H5 m. r: p6 }( D7 B       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ! v6 k3 w+ W( y
         SuperscriptBox[6 J6 R6 T8 N) {: v+ S+ ~
          RowBox[{"(", 0 b3 ?6 X* y- }4 a
           RowBox[{
    1 N, S3 S* C0 F3 d! D, F6 y, u5 o        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", / y. |8 Q5 }% P3 x4 ^' |! L) R
         SuperscriptBox[
    * c& w, u# u3 \: c* j7 j      RowBox[{"(", 1 ]! [: w8 T) G2 G7 p2 G
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    & I# D7 u$ Q  }  v- ^, {/ v  L' H% P     SuperscriptBox[
    / p4 O2 ^/ v; |2 Q7 T! M, ]* V  z      RowBox[{"(",
    3 `. D5 o% p' U! [, d       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ( E1 c# f( [( \+ y4 G
        ")"}]}]]], "Output",# W3 @3 T: c& n) N/ e6 n2 f
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]
    : N- K0 G1 W8 D9 ?1 b. K3 P}, Open  ]]," ?/ @0 K+ E4 A: b

    / p5 S! t7 J6 n4 n9 G: y% [Cell[CellGroupData[{' k; W/ o! H0 S- M3 Z

    - I  H2 C, |; UCell[BoxData[{
    " ?& H* Q( `. w2 L& i RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]", ( {* X! y8 \7 K) @# B
    RowBox[{"u14", "=",
    : b- u6 i9 |/ C8 P4 T2 C  RowBox[{
    0 m5 x; H+ @' w" l# O; l6 ]   RowBox[{"Exp", "[", - y* C- b$ a& V: G8 f
        RowBox[{
    2 ?/ i) M& m9 b7 P     RowBox[{
    + X6 ~' c* @  ~/ D* M2 S) a      RowBox[{"-",
    6 r0 H4 r0 @5 ~5 L       RowBox[{
    7 b8 d% F1 b* o        RowBox[{"(", & J& a- X- B( v' ^; H2 S
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
      K; S* k# C* n" }$ {        RowBox[{"(", : @% ^) \" |/ X
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}]," ]# f+ I& P  B6 E3 ^3 c3 n
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    % m8 W$ s$ S3 x' [0 b3 @) y: q& S4 { CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ' w) ?: }: A* i4 `$ w. w( h. E  3.57796154237158*^9, 3.5779615663176217`*^9}}],
    ! Z1 w8 B6 M% Y. b
    0 @" v6 b4 r8 Q" P8 u+ E0 n) r1 |Cell[BoxData[
    * u; g! y# A# y7 N$ e RowBox[{"{",
      e: O5 _/ b* M9 c# G4 p  RowBox[{
    $ @# i; S0 Y- E" K/ k  "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", 1 h$ e6 J( ?9 }& @$ |1 P1 D# p% _* J
       "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    2 c9 @1 h! Z0 w6 `3 b2 \  "}"}]], "Output",' Y" a! |2 N/ k& ?+ D
    CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],+ ?0 C! r( _3 l: K" P' o7 t8 |7 p

    - C* u- _9 y( r' {) p6 s' o9 d9 C, [! UCell[BoxData[- Y$ G% W. x! J; T3 Y/ H0 J) |
    SuperscriptBox["\[ExponentialE]", ; I& n# D2 e* F  ~4 b& Y
      RowBox[{"3.141592653589793`", " ",
    + C- F8 \9 G8 A0 [   RowBox[{"(",
    ) {, _7 D- n1 m) a    RowBox[{. H0 I) P3 ~) @0 D
         RowBox[{"-", $ ?: t) I) S' a
          SuperscriptBox[
    . y/ Y# i$ E7 t+ h, q. [" `& H/ ^       RowBox[{"(",
      E! [0 ?6 ~: w& ?) k4 ?/ Z        RowBox[{" |7 X; Z  o: {* o' c3 k
             RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ! j6 B5 q1 B5 ^* s7 m* z4 U  e; y     SuperscriptBox[
    " h1 C0 o( j4 W. G      RowBox[{"(",
    $ d% O. e* x- ^% b: g       RowBox[{
    1 t- z% h" N" f0 D* @        RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
    6 A  b$ ?8 P7 p( N$ M, J     SuperscriptBox[
    1 G! n* d5 g; x2 f      RowBox[{"(",
    $ S! f# o5 b% d5 H       RowBox[{
    . E: _8 \# U  z' P! T        RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", * w$ e+ ^7 J7 G5 X
         SuperscriptBox[
    $ N9 z: s6 \, M! q4 `      RowBox[{"(", ; v* `- [6 W" e! K+ L, L  @/ O
           RowBox[{
    9 O2 O+ d: L/ m# E( K        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
    ! y5 R. l. L) ~; _0 f     SuperscriptBox[
    - h' Y1 ^1 q, i4 P7 H8 j      RowBox[{"(",
    ' P) K6 H9 A' ^, S8 _       RowBox[{
    - y, k! A" Z5 M  x$ o2 S; S        RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-", 3 R9 z" Q3 o, P  Y6 e
         SuperscriptBox[
    ( f1 d0 p9 m* l' B- v0 [0 o      RowBox[{"(", & a7 [: h) a/ H/ T# v1 Q1 v
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 8 G, @! W% h& P
         SuperscriptBox[
    / p3 E$ J# {- Q, H      RowBox[{"(", # A0 T# |, ]3 @& z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", # U4 h! u, G4 I9 U6 A4 i
         SuperscriptBox[; o! O4 n/ C9 d/ j
          RowBox[{"(", - Q  |1 |, o% p# }
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    0 z9 P. i0 Q5 }3 E  K     SuperscriptBox[% r9 o6 t+ K/ V9 H, j
          RowBox[{"(",
    ! t* m1 P2 c7 n6 m3 v2 z# E       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ; h$ v5 D" \* l. N, j, Y9 }$ y4 M
        ")"}]}]]], "Output",
    ; l1 o0 K) d) p4 h3 ~4 g& z CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
    8 _0 ^/ F, z3 [9 n1 h}, Open  ]],7 @0 ?; w3 w* ]
    4 M1 \- c* E0 R8 V# q+ t  J' L! |
    Cell[CellGroupData[{
    1 b/ \3 ~. a& r; d1 y, b( u
    * k0 D* b: i. @; S# NCell[BoxData[{5 i. a2 g3 q! V, }  D1 w# l
    RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]", 0 J+ f2 g0 b  s
    RowBox[{"u15", "=",
    : [. @* M# V; v- M$ z! v: G  RowBox[{! X5 S/ {, A$ N' O2 G* b& _
       RowBox[{"Exp", "[",
    3 {& J* c3 S% v* z    RowBox[{
    " M. X& K% a1 V6 q. c. A+ b     RowBox[{
    9 j4 E3 D2 t$ C' J! r      RowBox[{"-", 6 N: K+ q) M8 I: R- x
           RowBox[{
    ' y+ y8 k9 e2 H# u( Y        RowBox[{"(",
    - `: s7 u7 b, D6 k7 |8 z8 A9 F. \         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 8 o6 @+ X1 R( R; m
            RowBox[{"(",
    # R/ m; q& `; \! g* B( }% X$ ^         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    & D3 t1 j& S* Y5 T8 \     "]"}], "/.", "DeltaX"}]}]}], "Input",( A4 y9 ~+ e3 ?! u1 k
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {$ @  s6 C( a$ b5 r1 n" c
      3.57796154237158*^9, 3.57796157098203*^9}}],; R- }0 d2 I3 |; P* k
    6 @, S1 L3 }8 h7 P
    Cell[BoxData[
    9 t' R5 ]0 \# Z) a& r/ q RowBox[{"{",
    0 S" _& \/ a7 t6 t( C, Y  RowBox[{7 u, Q0 Z  i5 v; b
      "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", ' m0 s- ~8 L# }) m/ M8 [! S
       "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
    / Y/ Y+ ^8 r6 r' Z# e  "}"}]], "Output",
    ' U6 s& y" ~; E& U: Z: q# f9 I CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
    & T5 T* ^# [" X( X+ p* X( c2 U
    " d0 R. _8 j- U8 F* N. qCell[BoxData[
    6 X3 ^$ k. {  A- L3 ~3 Y7 u! `4 c SuperscriptBox["\[ExponentialE]", + H; Q, J, a- p% W
      RowBox[{"3.141592653589793`", " ",
    ! Q+ L$ {0 m4 b   RowBox[{"(", / ^4 X4 g7 h3 p. a4 H
        RowBox[{2 n. E4 b9 O; y) u. n
         RowBox[{"-",
    - v$ a4 g; {+ F$ r      SuperscriptBox[, ?5 U) v- u6 `- m' W7 c  y! a1 Y
           RowBox[{"(",
    / F& Z) q+ v8 T5 c2 P4 t        RowBox[{
      V) o. B/ I8 l4 D3 |         RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", ! h8 ?9 R- o" Q* j
         SuperscriptBox[
    9 o9 F, ?6 m, F      RowBox[{"(",
    ) N& Y; r5 u3 c, S2 m1 M) ^, L       RowBox[{/ n- n7 j1 V/ K; z: n& y% g6 _9 n7 e
            RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
    & G( i1 u8 ^- B     SuperscriptBox[
      _5 |0 W8 Y: p5 s      RowBox[{"(",
    & u$ ]& B, f2 ~! u* ^! K0 O2 P9 A       RowBox[{
    4 Q! ^, t0 a% q        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", # i1 k! {5 {' W2 ]4 @
         SuperscriptBox[  U6 I) r0 X6 t, r: T
          RowBox[{"(",
    / K3 I6 j) G3 H6 ]! V       RowBox[{
      ~4 {& I& D/ n. o, B; n+ S. D8 y% O        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
    " K/ u* I  y% K& A& @+ O     SuperscriptBox[
    ( `" G. A5 U* g. }6 t8 _9 C      RowBox[{"(", & K) Z, K8 G) D3 U  M
           RowBox[{2 G- d! R& F- R5 L
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    3 H1 ^, V: V& c+ ]     SuperscriptBox[4 p1 J) u, E0 M& y( c; a$ V2 X- e& w  t% ~
          RowBox[{"(",
    % Q7 `% Y. V; ?( M( O7 F! j5 U0 N       RowBox[{
    " g( E( R) v  D3 X        RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",   m$ D; V& e# H' y2 X8 |* j, |
         SuperscriptBox[  ~! s$ N, U& g% K% T+ O+ n
          RowBox[{"(", 6 E4 f" e! @6 u6 F% l$ l( v# q+ j, \
           RowBox[{
    ) ?* \+ o( Q- c* S        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", ' v' M, T' x  t8 Y2 O
         SuperscriptBox[  |- }8 \  ]8 H3 v4 i/ k* ~
          RowBox[{"(", 7 h( X. P1 g( r6 j7 z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    7 n# S# a$ [$ M  r' l; ?     SuperscriptBox[7 n/ O# t0 M( j( t5 h0 h0 F. b, G
          RowBox[{"(",
    4 t9 p" G* ]0 @9 P! }' Z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],   U( Z, f# A( j; x9 P9 X
        ")"}]}]]], "Output",
    3 v0 \; |6 m; x4 l; O6 F CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]  f% N. a; \4 D# f- s
    }, Open  ]],; Z4 c8 Q+ H9 ?6 I, o4 t/ [3 X
    , \( A/ k/ |/ k& E5 s
    Cell[BoxData[
    % b5 w" [5 U4 R0 B. ?# m, n3 j$ V RowBox[{"For", "[",
    # G/ X) \" e6 J1 e  RowBox[{
    2 `7 O9 v# ], P   RowBox[{"i", "=", "1"}], ",", + {. E/ q; V* T# b; F% v  E: {
       RowBox[{"i", "\[LessEqual]", "9"}], ",", 3 r5 _" v1 Q3 d' z. ]* X  |: x
       RowBox[{"i", "++"}], ",",
    4 x7 P" g( P! r$ W$ b$ _   RowBox[{
    / V9 j$ q6 w6 ^$ q* `    RowBox[{"Ca", "[",
    & R9 H8 ^3 }! M8 x     RowBox[{"[", "i", "]"}], "]"}], "=", ( }: b1 y' [* t+ U$ d
        RowBox[{"CM", "[",
    5 J: o- P% E, n9 `# U# G) C; R     RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",5 S7 B5 B/ p+ v/ p6 Y: z
    CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
    " x) \; e" J7 q* v$ H' e
    : H+ B3 c% w2 l7 y3 q0 k" @1 g$ {Cell[CellGroupData[{
    4 S) n8 r8 }3 P! ~2 s7 L+ e$ R* T$ _1 j% A2 B3 J
    Cell[BoxData[{3 Z) G& w+ N7 N& }( u& c
    RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",
    3 P0 ~0 j; i% N2 E RowBox[{"u16", "=",
    , x1 S' x5 r( t3 M8 F" e! h) ]  RowBox[{
    5 D3 I4 J3 Q  t( }   RowBox[{"Exp", "[", . {. @: d1 Y) S& w' ^' ~
        RowBox[{
    % U0 k/ b+ r- S     RowBox[{
    $ k4 E+ R; E/ I! n      RowBox[{"-",
    ( Q9 }- T* e' X- j2 Y0 Z, l       RowBox[{
    : V: u; c) L8 i+ s3 n$ M  ^9 P; j        RowBox[{"(", ) L' r  a! Q1 k) X& m# G
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", . U7 r6 }4 A' A  J+ I
            RowBox[{"(",
    % V+ C; V6 J1 ^2 v2 {4 U! c; T         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],5 N! M; |# W' @  z, k
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    : V( W/ H# e- p, D; g* e7 ] CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {) J; P" S$ P. d/ w7 l
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9, 0 p% C6 B8 }; v4 f1 n# \$ X( z
      3.5779615751004367`*^9}}],! }+ H, g, T5 P! v. i) w8 G

    * J. b6 p+ i9 KCell[BoxData[6 [" ~1 n! C8 C0 z
    RowBox[{"{", 0 ]* X' U: B( O
      RowBox[{: P+ G' P0 `1 B& A$ {2 Z4 Z5 `
      "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",", 9 k) X" t( y: p4 V) D4 X6 I
       "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
    5 H" u+ @( W# q% h# t5 I  "}"}]], "Output",* @' D9 i/ K' c$ ^/ {
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}]," J' E+ O6 n4 b6 V8 i) n
    ) R5 M) ?4 k: l6 N$ w4 ^
    Cell[BoxData[3 v& u7 Q% [* Z/ R' d
    SuperscriptBox["\[ExponentialE]",
    / F" |4 L* z9 B- Y  RowBox[{"3.141592653589793`", " ",
    : r' m# v/ I& N. K1 T. d0 x5 {# u( s   RowBox[{"(",
    : r  y: x0 y4 Q2 g4 E& O+ J' v# `# k    RowBox[{
    5 e: v, R$ Z; _7 e; l" X     RowBox[{"-", ! O" d9 f* c) z" Y) e( k  v+ D
          SuperscriptBox[6 r1 Q0 y2 w" B0 ^  Z2 t
           RowBox[{"(", ' W. m# n7 n  Q0 ^
            RowBox[{
    5 `' q. f' r2 X2 p, R         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", & {7 @% J9 D" [) U- P6 {
         SuperscriptBox[) ^# K: J9 A! s( D' d$ q- {
          RowBox[{"(",
    0 _9 t* P/ j" N+ a+ i       RowBox[{
    + a! G! r, L( y6 C# u/ x        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", & Y1 g5 U; D, l
         SuperscriptBox[, W2 k% n8 ~/ S
          RowBox[{"(", 3 \  O4 j, P2 z1 C3 i- }
           RowBox[{
    7 l. u2 ?+ ?2 U; A: I' t9 ~        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
    2 ~9 r0 Q! w: b7 N4 z7 u6 g     SuperscriptBox[1 w: }& n: D6 r2 s4 @1 G' `( k
          RowBox[{"(", ) K! U, q: L  V# y. K) X& y' d+ V
           RowBox[{
    ) b' O& t9 P- ~7 q2 b        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
    / \) _) ]0 O3 J/ [     SuperscriptBox[
    : u" v& N/ Q; q- W9 x& I& n" V      RowBox[{"(", 5 q8 z0 Y1 W9 a' Y( }
           RowBox[{
    1 w6 H% T8 `' v6 P3 U        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
    $ u6 j/ W1 W/ O+ Q     SuperscriptBox[
    4 Z4 e$ i2 Q! |0 z, a! N5 O) ~      RowBox[{"(", - E" v- Q8 g4 L+ C+ Y# z( m1 I4 I' ^
           RowBox[{" u! j; D. d' L
            RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", ( r8 s( f% |5 R6 h& ^
         SuperscriptBox[
    ) G! {/ b! W, l+ L      RowBox[{"(",
    ( T2 B( N$ h8 U( C' X/ a8 R. Z2 Z       RowBox[{
    4 n% F3 u: E6 i6 L, b  l        RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
    4 V* V1 h& }1 j; t4 \     SuperscriptBox[" T* b7 f( s& a0 |) m. I' Y
          RowBox[{"(", ; |% R- O0 l  }1 Z% z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ' x  q0 [$ L) F/ V9 O" @& }2 h     SuperscriptBox[
    0 I# K) Q) y5 b2 P+ I( K      RowBox[{"(",
    + N' F0 k+ j2 t3 Y; E' L' V0 ]       RowBox[{: ^9 d- z" b  w4 H  b
            RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",/ D( G. z4 ^! A" \, u  ^" T" x
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
    ) R$ ]. M( b: g: t$ Q$ a}, Open  ]],# S* c+ d# B% s$ p
    5 O. O( x1 P) u
    Cell[CellGroupData[{
    3 |8 }5 u5 [7 r: @
    * z9 _/ y/ k  \Cell[BoxData[{6 l$ b. ?, D7 N% G$ t4 D# \; J1 E
    RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]",
    ' G* o( Y- ~# j2 y/ T* y# B. E RowBox[{"u17", "=",
    - n, Q3 o! a  a3 M0 y1 j  RowBox[{
    4 B' c, Y" Q" m1 c2 c* c9 H   RowBox[{"Exp", "[",
    % D9 i$ \9 `0 n' {$ w+ x    RowBox[{
    / d' ?/ J( a# M     RowBox[{
    ( a2 `& E& @8 [      RowBox[{"-", 7 s" O0 K6 Y' s, y
           RowBox[{
    $ R% f8 K- u( l9 f1 T+ d: P        RowBox[{"(", 4 i" X- z2 F4 f3 y
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ! R( f' L: Q; o; X9 x: y        RowBox[{"(",
    ' v! ?* E/ E2 s+ N5 [% w( @$ j         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    # n( R& b$ n) V     "]"}], "/.", "DeltaX"}]}]}], "Input",
    7 h4 l" e% M4 D% b! p1 a CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {" \2 q( f# \$ k
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9,
    ' V4 |0 S( b. }4 ^- i  3.577961578953644*^9}}],
    9 U) |/ Q" y0 W  L9 s" q7 f2 W! I3 U: u7 E- j( D- \" C$ H+ ]. D
    Cell[BoxData[  s  p1 ^5 w# ?. Y8 X* z, n% A: w
    RowBox[{"{",
    . k" z& T+ z) n9 b  RowBox[{
    / t7 H& L" W3 ~2 H: I  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
    0 }7 G! _# i  P2 J: P; X( X3 t( x   "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}],
    % G% F0 L4 h9 F+ _  j  {* p  "}"}]], "Output",) M: Y; J: }2 `! e: x5 g
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
    & [! d" B& x9 |, m1 r& U% |# G% o7 D$ B7 h
    Cell[BoxData[
    $ X7 O  J+ i& G- u4 _+ J) a+ v% T SuperscriptBox["\[ExponentialE]",
    7 {' V% C6 u. o. }, O' D  RowBox[{"3.141592653589793`", " ",
    & U" j. O- S& N) Z, x0 q2 W3 [7 {   RowBox[{"(", % @, J% [, J; B3 d5 r/ e
        RowBox[{
    3 T# P% n9 R- o. {1 I% F* [     RowBox[{"-", + R: Q) x6 ~$ Z7 \
          SuperscriptBox[4 W& V7 j5 E. B7 M
           RowBox[{"(", 5 J( e0 m) o# G' p5 g! u
            RowBox[{
    ' L6 ]0 o, W+ _3 V         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
    9 x$ ~7 f0 g3 d' k5 K4 R     SuperscriptBox[
    3 ^5 X, ]/ [, }* [- P) a      RowBox[{"(",
      O" H5 }+ y: y       RowBox[{# R' _5 z, _( [
            RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", & s/ i! H2 s" M/ U
         SuperscriptBox[2 U6 O  o9 u( ~
          RowBox[{"(",
    2 E& C/ G7 ~2 ^0 {7 E1 M+ a% q       RowBox[{3 X# |- l8 B- {. t
            RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", ; ?  ]+ v; H) @6 r* l+ ~: z
         SuperscriptBox[( G$ e( O% p7 m$ d, E8 K. h
          RowBox[{"(", 7 G5 F" @/ a$ C6 j$ R6 g
           RowBox[{
    & T. w6 [5 I4 n  d9 o. F        RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
    & B, Y7 i6 N: g0 c1 l     SuperscriptBox[2 C: K4 ^3 x' g2 }$ R/ o
          RowBox[{"(", 1 O; O+ n8 f$ |0 g) w
           RowBox[{
    * C$ b2 d+ f8 O; k' j# j        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", " j5 v: t# i4 y8 r; q
         SuperscriptBox[
    7 ^' n8 R" V$ M: L      RowBox[{"(",
    , H: e1 o4 _7 z* ]: f/ q0 m8 Q       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 9 D$ g2 Y4 P7 n, v' c
         SuperscriptBox[
    8 I& s, `$ K7 {. d8 x' c7 ]      RowBox[{"(",
    7 m3 q# m5 {# F  s  p6 U& r       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    * u9 Q& f# F$ T, T$ u" T, Z) ^/ {7 s     SuperscriptBox[
    & X9 S  l1 x) F2 Q4 X* n+ [0 `      RowBox[{"(", 3 b0 x+ ^1 w/ a$ z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    , v/ r9 H9 J  }6 ?     SuperscriptBox[
    8 `& Y; e) v! @& r0 G8 x      RowBox[{"(", . f% V" E( Y0 V; Q; z
           RowBox[{
    ; h: y, S( l  F1 }        RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], : g. ?) |. V# U" p) }* ^6 z6 K! D
        ")"}]}]]], "Output",' G% w' l; X$ n) O  ^) h8 O
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
      d8 h2 Y0 |8 w6 @}, Open  ]],* t( B) [6 W6 U' A; t

    # i) O0 c& W: S$ e' dCell[CellGroupData[{
    + O9 w  \8 I# J4 i# Z2 m
    5 _* W# U+ V  P. h9 f7 rCell[BoxData[{0 M% `" \2 u7 w
    RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]", 5 P& a& m5 y( r. [/ G0 F( t
    RowBox[{"u18", "=", % ^' l2 F- k+ X8 S7 Z; _: D
      RowBox[{
    8 D8 \! d) g) h* ?7 n+ m) u# s   RowBox[{"Exp", "[",
    2 p2 I6 b3 j% \; M9 X& g7 ^    RowBox[{
    " i1 ?8 |% r  l0 T     RowBox[{
    ) U+ Y# I4 o3 Y) Q6 j+ ^: E      RowBox[{"-", ; N% Q4 C" C& v9 _1 P
           RowBox[{
    ( q7 z% r# j$ g# _        RowBox[{"(", 7 K- l+ B8 J/ K" B7 H8 Z
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    / B* [! M# t, l% J5 f# o- m        RowBox[{"(",
    4 J2 o6 T, `' {( E' k$ A8 q9 A         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],( l7 i/ S- ^, O" l
         "]"}], "/.", "DeltaX"}]}]}], "Input",+ V: l1 u4 k' ^. Z( d$ ?7 t& K9 b
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {5 V# S0 C7 [) A0 r; h& a
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9, + }) T( c" P0 q$ V8 f
      3.5779615828848505`*^9}}],
    5 Q9 P9 e* F3 f" `( i4 @
    & E& R, c7 t" `" o" j" _9 f4 wCell[BoxData[
    8 A; S  A- f! m8 N RowBox[{"{",
    : ~% O9 `2 b' {2 e  RowBox[{' y2 d4 `* X; X
      "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", 7 p8 T! ~8 Y5 P1 o$ K* a) P
       "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 3 u: u$ Q6 R( ^7 J1 |- w) l: t: z
      "}"}]], "Output",
    8 J0 h5 R+ b5 s5 v6 [$ l3 L; S+ ^: ]& Q CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],1 X/ m- {, j4 u& \: h
    1 }( {" w& ~6 v0 w  h0 r
    Cell[BoxData[
    . G; {- u# `( g SuperscriptBox["\[ExponentialE]",
    / z) j" @& C1 ^- l4 n  RowBox[{"3.141592653589793`", " ",
    % j/ ?& d, ?# v, k0 D1 W, X# h   RowBox[{"(", 0 w' |) d" q9 \
        RowBox[{6 i' a: a$ D9 M9 A# E5 b
         RowBox[{"-", # y) o; j  C$ c
          SuperscriptBox[
    1 r5 y; T/ N5 Z; Y' K, K       RowBox[{"(",
    1 Q- |' m# F$ G' g) N2 }% a        RowBox[{  f) N6 K5 W4 E* t- I
             RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    # t6 M  u4 L  u# h, g# K4 l- O     SuperscriptBox[' C* q5 {. l. s% ]7 |$ @9 Z
          RowBox[{"(",
      [  r! B7 W) z       RowBox[{, K2 q5 z( n8 g3 [# T7 z& ]( Z
            RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
      ^' x: z5 k% Z* W6 Y9 Q     SuperscriptBox[
    0 P0 ?; e  T  _; z* t      RowBox[{"(",
    & U1 a* k% W" w! _, v0 M; S0 B# U       RowBox[{
    ( ]' [; x5 M7 s9 d. T2 L0 g        RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
    ) q: r( @2 O- }/ p     SuperscriptBox[
    3 I* M% h, ]! q+ p0 Y* U      RowBox[{"(", % ?, q* G/ G- y/ X- m) P3 S
           RowBox[{
    ( K  A! n3 k% a1 C7 R6 Y3 i- L& g5 y        RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
    8 v) M0 Y! }, _- d, K. T  t     SuperscriptBox[  @, Z8 v! g9 y* q0 {" B
          RowBox[{"(", 0 ~  m3 k6 c6 k1 Y$ @. ~! s) x# c
           RowBox[{
    6 j$ P4 }% ]( D* f7 o5 t- y        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", # S. O1 H6 L* z, U, S7 H% z
         SuperscriptBox[
    " G; y" S* d7 S( m* `      RowBox[{"(", 2 W! N5 c9 {2 k" ?, t3 r1 }
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ; V) Q* x; f, E" y  a) w, j7 y8 a3 Z
         SuperscriptBox[
    3 [2 y  }  Q9 O% ?. Y3 z      RowBox[{"(",
    * _$ z+ T7 A: @       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ( r6 [# l# ^1 m
         SuperscriptBox[* K) A: |7 v/ {3 i
          RowBox[{"(", * P3 W8 Y! ^8 P) E- g; \8 F9 o
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", # v; H8 w* x* B  N
         SuperscriptBox[% y9 |- T; B5 ^3 o- o  ?- N
          RowBox[{"(", " s' T. ]; Z2 k1 c" n' N( X7 h
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    $ S$ [1 _) W' C' w- z) J' P- Z    ")"}]}]]], "Output",
    * ~- ]& V# ?( u# H+ P CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]; T) |5 w2 Z6 C$ m' q3 J! I
    }, Open  ]],
    0 `% C2 M, P, }* {5 `3 X% `3 g, z) [) ]6 h' x. k9 h
    Cell[CellGroupData[{0 _0 w2 c2 m$ R) H3 p+ I
    ! Y/ _* u  D% ]$ V7 p; b
    Cell[BoxData[{* n1 e) B4 ^# s" G
    RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
    3 `' O$ k, F# F3 W$ [: G& o RowBox[{"u19", "=",
    ) O# y5 \9 J+ R# N& E  RowBox[{! O& f. }6 Q7 R! Y0 @4 V
       RowBox[{"Exp", "[",
    3 T1 e* d3 {' N+ y  k    RowBox[{
    / @2 s5 R& O5 K     RowBox[{
    6 b) g: B* E3 i      RowBox[{"-",
    # P' f$ I& Y! w; F9 {# _& H       RowBox[{$ V1 l4 \! ~3 m  b: K
            RowBox[{"(", 0 ~( |$ m3 \# f0 u* h3 @
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 ~' l+ M$ D8 ?$ j$ X( j6 h  C
            RowBox[{"(", 4 Y0 B2 ]8 d, h' b! |) Q! z$ `; s6 S
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    $ @  V8 y; \2 F& g; J9 z0 v; ^     "]"}], "/.", "DeltaX"}]}]}], "Input",
    * p" r% v& o4 @5 q3 _0 ?2 E CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {: K2 T5 q2 M' ?3 A% G2 C
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, - V5 O, u2 ~1 a
      3.577961588890861*^9}}],, `8 K3 J5 v# I. ]1 |" s$ w
    " ]. {# e* i) R, Q+ s
    Cell[BoxData[4 M) r& m5 b7 K. U  e2 }2 u( x. t
    RowBox[{"{", ! l" K% ^2 k$ H* Z) d: P
      RowBox[{
    8 A) C. {- c& m. u2 f0 l  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",", ) I7 \% {$ o4 y4 l
       "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}], , d# q( |3 J, I5 ^# }
      "}"}]], "Output",
      {/ O! ]( }- M1 ]7 W+ C CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
    / M" P1 n& a3 N. b
    . h& }  E( y1 R/ k; G8 `5 bCell[BoxData[% y  R$ [, |% H9 U' E) l) F2 f
    SuperscriptBox["\[ExponentialE]", 1 @% D0 F, I: |; \
      RowBox[{"3.141592653589793`", " ",
    ; u; L$ y5 w3 Q8 O2 B" _. {- A9 G( F   RowBox[{"(",
    2 ]( ?5 @" u7 U( U! t$ R/ p    RowBox[{3 S6 V) C8 D$ j. q" l; N
         RowBox[{"-",
    4 W, p' j9 G6 G! P  @! \5 i" A      SuperscriptBox[
    ) Z- e; \; n5 T8 D4 t5 O2 E       RowBox[{"(", ; v  _0 I2 C/ b: ]1 X3 O
            RowBox[{" V$ ~6 o9 @5 F: a' D
             RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", ; {- c% b0 F4 \0 c
         SuperscriptBox[  s2 i' k! ?  I& [* j9 o  ?/ ?& E
          RowBox[{"(",
    ( A) K7 W! L2 t1 n8 @/ E% ]1 h) S9 _       RowBox[{( h/ i0 s- h) B  J
            RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
    5 r) g- z9 G6 K, q3 k0 x     SuperscriptBox[2 f- F: c/ Z' r/ ?! Q' Q
          RowBox[{"(", ; h2 R. a+ i8 x5 a- Q( @9 D
           RowBox[{+ F- l' o' N6 y$ R% \
            RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
    7 ~; w4 ~6 a9 z  n     SuperscriptBox[6 @0 m3 @; R0 j2 S" \( ?
          RowBox[{"(", / Z  A- ^. K# n2 V4 G; r8 F
           RowBox[{4 v/ g; U9 a( F5 p5 w
            RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
    9 `  \3 `0 k7 ~     SuperscriptBox[- ^7 o" C, W7 \' e" \0 O& s. O
          RowBox[{"(",
    1 n+ Y/ c/ h, F. Y+ u& S       RowBox[{
    $ t* z; v3 w2 `        RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-", 8 W9 l; ?2 A; Z1 f& Y
         SuperscriptBox[
    ( }8 M: r' t) }  _6 m      RowBox[{"(", 9 B* R/ t+ O' u5 N2 f) ?; i
           RowBox[{
    8 m8 m& r7 M, E+ M* s3 a+ t5 m        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",   u7 e0 K& R# N
         SuperscriptBox[
    ' [. u$ A& H& |      RowBox[{"(", % b( R( Y9 G! Z/ c# Y
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    9 ?, o; r% u1 \+ [$ ?     SuperscriptBox[3 G% d1 d+ v# g2 i% s5 d
          RowBox[{"(", # p& y0 z. P7 s& x2 y- H
           RowBox[{( a/ ?2 l) B% K3 ]; D7 Q
            RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", 6 y0 {* ^9 w( g6 I3 u4 M1 m
         SuperscriptBox[
    7 t  m1 c. p( C& |! l$ T      RowBox[{"(",
      M' P7 @/ \6 g3 ~2 a3 [% l; T. @5 j       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], - e. N$ y, p7 n# ^8 E. z( C! |
        ")"}]}]]], "Output",
    0 x/ t  c8 q! p1 a( }9 K0 ? CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
    , U" t1 g- E0 p9 `* ~. k}, Open  ]],# S$ F8 L* M8 h9 {: f, P
    4 y1 t7 F# V- i4 @. F/ _$ e' Q/ a
    Cell[CellGroupData[{
    8 |/ i4 d# k  E2 ]' e! m6 L, U: B  R4 Q/ H' l/ b
    Cell[BoxData[{
    - Q# Z' f6 i. X! q- j& p. b RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]", 2 {5 T. K  f8 q1 p( S& y2 \
    RowBox[{"u20", "=",
    3 n0 C. x; U5 P2 F) _& l8 `: g3 u' g$ M  RowBox[{% N& l4 J$ n2 |2 \) a6 m
       RowBox[{"Exp", "[", ( H! v, A' K- T3 h1 g
        RowBox[{& k" Y. u, {5 X
         RowBox[{
    ) X' t! \$ ]! ~; z2 @      RowBox[{"-",
    6 _* s3 j+ m' Y! D       RowBox[{
    3 K/ {( ]$ y) n- i( ^3 R        RowBox[{"(", 4 v/ x! r: B( b$ t& J8 N9 X( G
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", . U* Q5 p; I9 D1 a; }, H( S$ i
            RowBox[{"(", 6 _( t, y! t. \* b( D0 i. `, o
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    2 j% {! W7 y# I2 E& O$ I     "]"}], "/.", "DeltaX"}]}]}], "Input",
    0 K& I* y7 j; Y CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {) u) H. |' f/ c9 o: E& X( N
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9, 6 i9 Q: D/ p$ T% O/ e6 M) m. T# U5 Q' X
      3.57796159382047*^9}}],
    . e, g/ o2 E0 a# Y* o0 r+ p" b$ U  u' R8 l% \0 B* l. [; l  O% {% y
    Cell[BoxData[# e* v2 O. U  z2 p$ S, ]2 B
    RowBox[{"{", $ z+ ~- ?* e; i' I7 Z& j
      RowBox[{% D4 r6 n4 _6 S% [
      "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",", + ~: ^- o# a0 N
       "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}], / Q& W& W1 L6 |3 v8 c1 c- S
      "}"}]], "Output",
    9 z- n( k  l3 W& F( o CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],! I3 G) k* G1 R& ?6 m1 x( s% G; ]
    8 `4 c, ~  n) V# i' J! t
    Cell[BoxData[
    / A; m/ Y7 C' Z- P* D8 ?1 g SuperscriptBox["\[ExponentialE]", ! R& S( g4 j3 K& _1 w/ N
      RowBox[{"3.141592653589793`", " ",
    % ~0 Y6 \" A" }% N. D   RowBox[{"(",
    - L1 g( W, C1 w2 R* ]# ?8 T    RowBox[{3 x7 O1 @2 w9 V4 w7 \
         RowBox[{"-",
    . n; u% l9 `; a4 D4 I      SuperscriptBox[4 J+ m% _3 n  U( V8 O/ ^
           RowBox[{"(", 0 Y& ^2 L' J( ^, ]5 e7 h
            RowBox[{
    " t  Q* C( [4 F         RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
    8 j7 [7 I! w+ I6 \     SuperscriptBox[
    1 N$ v) L: Q- X4 w$ b% Z0 a      RowBox[{"(",
    , j/ \7 T+ m$ y# e" R       RowBox[{' j- t% I7 e( c6 G( E% i
            RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
    - W+ Z3 k5 u4 x( B9 ?9 O* k  _     SuperscriptBox[3 o+ W$ |  v/ H2 |3 k4 _
          RowBox[{"(", 5 a  o6 e0 S( O2 J
           RowBox[{
    # t; _% D3 C+ z( i        RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    ! H# ^& O: g9 P- M/ i: b* W     SuperscriptBox[
    $ p2 G$ D) S6 D1 o1 ?# g0 W      RowBox[{"(",
    ! v9 Y% Z$ Y* a8 ]' U       RowBox[{# C* i6 o) l$ n1 P
            RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", ) M% D) E- T+ r4 B2 S& y, h
         SuperscriptBox[# f/ q8 k4 G& E, }! V1 h% u7 [4 s
          RowBox[{"(",
    9 n8 c; f, l" G* R4 ?8 a       RowBox[{" u% O6 {+ t! Y; O) T$ ]: b0 _* {
            RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
    % }" i0 ?6 o! ?: v8 {     SuperscriptBox[, h( G5 \+ m6 H/ L, C& ]
          RowBox[{"(", 5 h% W* Q; u. D
           RowBox[{
    ) d$ m, Z/ e$ E$ g- b+ h( G        RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
      J0 s$ a' |* f. A; z2 C. V6 i% E( n. B     SuperscriptBox[
    - G" W+ o+ O( Z& z7 v# s      RowBox[{"(", 6 s1 p' k. \* L! K
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ( z  I: x! n  I) H6 N) Q5 z
         SuperscriptBox[
    7 t0 H( a; u& }9 m7 i& K7 m      RowBox[{"(",
    ) @) @3 k- ?- T& ]7 s; {/ Z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", / c# U8 V2 k" u0 A
         SuperscriptBox[
    4 W& K! [6 d( {- p( H      RowBox[{"(",
    , N% n) [: [' t$ y5 u       RowBox[{
    : G! T: S6 G, n) z8 ^' h, s        RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], 2 U  [& N3 s( U2 n5 g( h/ `5 k; A
        ")"}]}]]], "Output",  Z1 y% h  f" M
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]
    0 V: n) m3 X& V9 o+ }) j; {5 N1 K}, Open  ]]," {$ e$ r5 c7 i8 y3 K

    / Z% s2 Z+ k$ V$ L# f6 `Cell[CellGroupData[{
    9 i) T& u' c8 r' w5 J. K4 S/ E8 v. ^# b$ u  _
    Cell[BoxData[{8 E. K1 K' ^3 W8 L- F
    RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
    7 w+ K) v% N$ |% c6 _ RowBox[{"u21", "=", 2 C) D! n& z/ P$ B. A0 N8 `) \7 r
      RowBox[{* _! P  K+ \; n: i
       RowBox[{"Exp", "[", 1 Z$ I1 _# ~% a! N
        RowBox[{. n/ j6 O8 a7 [. [; a, R" }( F
         RowBox[{; Q9 n" w/ U9 b- {! k
          RowBox[{"-",
    5 y& f: e6 K! s# K( a       RowBox[{; D. i6 _6 Q- @6 o$ j9 C/ g+ t+ ?
            RowBox[{"(", 4 K- j( k/ H2 H8 G. Z/ }
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 ]+ ~0 U  X# E$ y6 O9 @( e
            RowBox[{"(", ! B3 ]6 L& |  e$ P/ C$ `
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    " s: t. p8 ~  |7 m9 n     "]"}], "/.", "DeltaX"}]}]}], "Input",
    & q$ v% ?3 f0 m3 n, V CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {+ r) P+ O/ T0 X- `0 w2 G5 g# n7 y
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
    " u6 ~6 H4 |! ]1 K  i) |% {% W  3.5779615991556787`*^9}}],& P2 h# J7 O2 `3 }
    + z/ W0 c& U3 Z- e* _1 `- x
    Cell[BoxData[
    ) \% G+ S( [- v4 @. R5 W: I RowBox[{"{", ( L) v8 t' z4 _' U! a: b/ a: v( d
      RowBox[{; G2 |& p- t' K7 I3 Y% c
      "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
    - b, z* e9 r$ J1 u   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}], 7 x0 G2 N) a0 E
      "}"}]], "Output",
    2 f. |8 h1 T- r/ a7 s3 A CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],: q: u/ M8 T1 R7 H3 g/ }

    " T" K4 w. r2 Z  k% x6 ?, y: hCell[BoxData[
    ! H: n3 g- S+ I SuperscriptBox["\[ExponentialE]",
    # v% a& K" e: v/ l$ u6 x  RowBox[{"3.141592653589793`", " ", % ?/ _; T. J3 x* C, ]
       RowBox[{"(", , u) q1 s6 C/ u% q4 y+ T
        RowBox[{
    4 ~$ B4 T9 V: i  e$ M" \     RowBox[{"-",
    9 f+ h1 D" U6 @) F" J3 M! n      SuperscriptBox[
    4 E, `& W" p( ]0 C       RowBox[{"(",
      [) I1 n' v  ^. P' `        RowBox[{4 j; a( u' n; L; Y2 i# z! Z
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", 7 z& F: X! w- d; \4 S
         SuperscriptBox[' d6 Y+ R% L& E- [1 a
          RowBox[{"(", * A! a, r2 _. }7 T( s4 d0 i* J# H. Z
           RowBox[{
    0 e4 k1 M7 l7 g8 m4 R        RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
    ! y. \& _+ F2 K0 B* v     SuperscriptBox[
    4 t! j: e5 X( m      RowBox[{"(", " V; ~/ C& m! U
           RowBox[{& s6 d. |3 ?" Y" ^  a8 s- K$ u) V
            RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
    3 S8 Q5 ]' b5 ?; X2 d& x     SuperscriptBox[; k& {) f2 [  u( G. R& s( b5 o* x
          RowBox[{"(",
    . }6 [% a8 a  y( T) U6 S  A       RowBox[{" S3 b4 G8 {) P$ Y8 q; H+ f- Q  s
            RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", ) Y" S. C& ^1 l5 s
         SuperscriptBox[
    ! u% V/ G/ L% z' A5 T7 |      RowBox[{"(", : U' N6 L# x6 J6 E! Y3 y- P2 D
           RowBox[{
      u3 o/ m2 o3 |" e$ {4 J% G        RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
    6 @/ y3 a' {# o9 U' e: L     SuperscriptBox[$ i* e! a) r5 T9 O) G0 F. a
          RowBox[{"(", 2 G1 C& U, c& s# j$ D5 }3 x, w
           RowBox[{
    6 G9 \' @4 V8 g3 c: ]( h        RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    - C' a8 S( x" {$ C- |' p4 L     SuperscriptBox[
    # T  a* Z4 P1 x) g# M      RowBox[{"(", 4 g) G! [1 X% H- b: r- p8 y8 E  S
           RowBox[{
    $ r$ F2 R( [* L% T- w& \        RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", # P  a, x- @1 j# G2 d
         SuperscriptBox[( Y; A4 A* f5 J# c6 T; Y
          RowBox[{"(", & J4 E2 v* p, Y* v
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", / U6 M8 h7 [" w6 ^% \& T/ V8 ]
         SuperscriptBox[
    3 a8 v& _, a% i# Y+ {/ i5 Q      RowBox[{"(",
    5 V- B8 ?8 V/ q3 H4 g, d$ y! y       RowBox[{) c( S4 n0 m7 z
            RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
    $ @$ H! ]5 u/ u& A6 |1 k5 J    ")"}]}]]], "Output",# H8 G8 }. f( f4 A# n
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]% C5 D! `/ H/ e; Z
    }, Open  ]],
    7 U: \/ t' J4 [1 I$ d. R5 R2 b& G8 t9 X* l) l2 Z# J8 A6 e5 A
    Cell[BoxData["\:62df\:5408wi"], "Input",
    " O9 h8 a3 T  N/ B( P/ ` CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],# r& {1 u1 L! l$ c# h3 C  N

    & v$ u$ D5 v* B- e. ]Cell[CellGroupData[{( b6 Y$ x" I# x/ r" R. z" ^
    ! j0 |2 X& \$ j6 W: q8 V' C  Y! V+ r
    Cell[BoxData[' V1 n$ A5 u% R6 v# ?% N5 T$ q
    RowBox[{"y1a", "=", : R8 ^' ?5 B- B
      RowBox[{"Table", "[", ; p1 w8 J  j" A( Z3 B" J, Y
       RowBox[{"x", ",",
    * u* c, o7 F+ K0 B    RowBox[{"{", . z/ n4 }. |; G: X
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    . `% i% U7 q6 N9 a CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {' |' Q$ N# y, d6 g
      3.5779226649375*^9, 3.5779226810625*^9}}]," S2 L. P  i6 A4 ?9 n7 i1 I

    ( H" b2 m' G2 R4 u+ M* \( r# fCell[BoxData[+ k* N- r% L+ A! `6 D; S
    RowBox[{"{", & z/ B. K0 L, M0 S6 t/ h# ~
      RowBox[{
      t1 i; }' w3 @3 L( a7 `* ]( S  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ! C) @1 V' ~* }2 b/ {& h6 ^% ?   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",& C6 L6 m2 [3 I4 G6 d
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", - s* V! D( m+ t- y. O" j
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",   j5 f: X9 D7 w2 K1 ^; ^
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    * i4 {" w1 M' J6 H! T   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    6 |9 c  t) w( ]8 s% A   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    $ S. y7 [" B) @: r7 V8 H1 G   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    9 x+ E  }, j) B9 Y" s# {  u   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
    ; t8 ^1 _2 }2 g0 R3 s9 m  "}"}]], "Output",
    " {  O9 a1 H3 f9 E CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
    ; ~, b4 |- `$ s! |" b1 j$ t  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]
    ; G7 |1 }8 N8 L! f}, Open  ]],* J! p9 m: E$ ^# x, O0 f% _- k; U

    1 \+ H" U6 W1 m" lCell[CellGroupData[{
    , X2 L1 c9 B" w/ [3 l( d' I8 \) Y% c
    / R; S7 R9 ?1 D# E6 u+ y) _, _" l( |Cell[BoxData[
    9 i0 h6 {& c7 C1 C RowBox[{"Data", "[",
    6 a- S. q0 J2 G0 j, ?3 M  R  RowBox[{"[",
    ) h! l: R! B+ p; I% X" ]   RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",& X5 {# J- m/ a6 _. j
    CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    ! O1 B1 X$ D2 p- J   3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],; P% j+ n6 x  Z
    + @5 q; ]: K3 j; r  D" j7 Y
    Cell[BoxData["0.899882`"], "Output",2 D3 l, o/ r$ U9 y) Y* H4 g
    CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
    & X4 }& b2 n. D1 a7 M$ o' h   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
    3 }  c) m( K. ~: r6 m6 y$ |   3.577961929080654*^9, 3.5780123419375*^9}]0 I6 ]( f! e/ Q# u  J$ I
    }, Open  ]],) G3 G7 _0 u8 K6 z

      b* k5 D' j8 @, n2 eCell[BoxData[
    . O. U, Y$ [2 X  i2 L" F5 u RowBox[{"For", "[",
    ; C9 j$ Z' P! N! V5 U  RowBox[{8 v/ `# R0 \! n* @3 D+ v( i7 u
       RowBox[{"i", "=", "1"}], ",", ) B, g9 K' [  f0 [1 c
       RowBox[{"i", "\[LessEqual]", "60"}], ",",
    ! e5 r2 N! E) Y5 s/ {1 f7 X+ o   RowBox[{"i", "++"}], ",", 7 B) i# ^% l4 P
       RowBox[{
    / X+ C9 g0 B$ P7 P8 X/ @! T    RowBox[{"y1a", "[", : @8 `* I- ]" M4 M
         RowBox[{"[", "i", "]"}], "]"}], "=", 0 a6 k( B" o3 m1 g8 W: o
        RowBox[{"Data", "[", * x1 J! C, w# j5 G, c! N# U9 F
         RowBox[{"[", . U: q- g  p( Q% c! P, T. }
          RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",: r3 |: r# i5 |: w
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    6 r6 D# @  n/ L2 L   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
      k5 r0 z! E. c8 {% i; Q   3.577922923203125*^9}, 3.5779588839702806`*^9}],
    / U" L' J, d7 t8 I5 W2 U: I# C- ]0 l& W% U+ u: D, z" O
    Cell[CellGroupData[{
    # P: `% V0 l5 u  }* ~1 q! O( E3 o7 @6 A8 b
    Cell[BoxData["y1a"], "Input",7 n3 m. z0 E, t
    CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],
    0 w* [8 I2 ^( V. z, q
    / X4 k- T' b# \; T. sCell[BoxData[
    % `/ K5 D, g4 r5 d RowBox[{"{", 0 M5 J" ~- Y" a( a3 h% o# v3 Q  t7 i
      RowBox[{  v  l+ r' e. B; F4 b5 x" t# Q, n: Y
      "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",", / U- L3 S% C2 X" u$ L3 A* ~& `4 _
       "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",",
    * n9 R) A! D) p   "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",", 4 o/ Z9 o- ^" y- H$ P
       "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",",
    , e2 H$ S$ [: P2 p! m( T8 j7 U   "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",",
    / U! }% U- ?- n  @, ]   "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",", " [/ ^# a4 X; m2 q
       "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",", . x( o/ N& n% J0 h6 y
       "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",",
    & _- ?* p# e5 ~: E3 C6 D2 }$ i# |   "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",", % k7 }% y# G# A: b+ A" Y, F
       "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",
    % r5 X+ b' y+ C% q   "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",", 6 W: P/ i2 ]# O( `
       "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",",
    9 r1 v# a9 T) q% J   "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",", 3 Z6 C8 }* `0 [$ D1 E4 l, f
       "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",", / L; S9 t% X% E  u' P) b6 O
       "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}], : ^% n8 \2 {4 P& C
      "}"}]], "Output",
    4 S" j( D& @$ \1 a6 |# [ CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9, $ x4 C: y# i" Q5 r; r1 Y
      3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]! k/ c: d8 Q$ U) ~/ c
    }, Open  ]],; S2 J# h0 }# |

    0 o6 S8 p" g. P: ]Cell[CellGroupData[{
    " t0 ^# X/ v4 a1 n$ W9 w& P) p: b2 x  a& z$ y) n
    Cell[BoxData[9 W: N' A. l) q8 j5 `/ w7 N
    RowBox[{"m60n21", "=", 2 @7 F4 ~9 @5 \9 [0 k
      RowBox[{"Table", "[", / C* n! D9 k$ l* M% ?$ q4 X+ W
       RowBox[{
    . ^# a/ Z+ C" P5 |1 ^. s    RowBox[{"Table", "[",
    ) v, i; M6 V  k& K: t' S  l+ B     RowBox[{"y", ",",
    ! c; Z; F5 E9 D2 X& `4 N      RowBox[{"{", 2 u3 k5 ~" }; ?# w8 F7 m) @
           RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
    % v" k! w- O# M. s! A& f0 L7 z    RowBox[{"{",
    % J5 h* T1 s/ _- V     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",% B# Y) t2 e% \+ n
    CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {+ K1 |1 m! P1 j- H1 w
      3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9,
    6 y. Z& p8 `( [& n  3.5779619706547265`*^9}}],/ h: p( F4 R) D1 s9 h

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

    ' M  Y# s5 ?- b+ wCell[BoxData[
    ) L0 H  a) X2 P/ C RowBox[{"y1fit", "=", $ Z4 n$ C* F2 d5 @# R
      RowBox[{"{", - \4 P- I" V7 y9 T
       RowBox[{
    9 [& R$ H% ~0 R5 x   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    / H4 R4 X5 s. y    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! v7 v& H6 c- J; R7 e6 a0 `) i4 m
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", 8 S# d; `. p6 x- \2 c
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", & R* D! k6 |( ]2 X9 e8 \
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    , J" ?+ [& U2 H$ r8 m5 R    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", + Z6 S; u- _! |; Z( q! b
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    1 i' u  [3 }) w+ V! I' x2 f    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", & Y" u; n1 |' q4 L- H) M
        "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    6 `4 T4 H: o* c    "0.4319341652593058", ",", "0.4319341652593058`", ",",
    * S. G7 f/ P9 `    "0.45016348534939865`", ",", "0.3333603476852527`", ",", ; E" x  D* }8 T4 l
        "0.44186098968589294`", ",", "0.41030378932283074`", ",",
    ) ]; B  Y) J; q    "0.5168147981915754`", ",", "0.4476631213729997`", ",",
    2 r3 ^* |# q, k1 ~    "0.30165529786966755`", ",", "0.3781221674378473`", ",",
    / z" k- ~' S( a    "0.020339844919720775`", ",", "0.018745375782087393`", ",", 5 J( w' I$ o7 u: L% d
        "0.2919925992695026`", ",", "0.26490679596812655`", ",", % n* [! A' }$ W% @) I
        "0.16343444284525593`", ",", "0.4182466778551567`", ",", 1 B( q# m. o8 j9 o
        "0.27347752211364945`", ",", "0.385540573863857`", ",", , j/ z( W2 v* r& `% P
        "0.3525316045371807`", ",", "0.20547458411007796`", ",",
    6 n; R5 w3 Z) x# P    "0.4550437711271672`", ",", "0.1598805094678611`", ",", ! M  x  n% j, |& b! r. s6 @6 I1 D) L
        "0.18662509982279502`", ",", "0.10684797493248224`", ",",
    ) Q' N( N' t: T2 x( ?- [, x, C; }    "0.013349212673286806`", ",", "0.08215836003004302`", ",", : k; U0 Q/ _( d! q- q3 k
        "0.2979041599362817`", ",", "0.05995976512343637`", ",", $ k, \  j$ A% j3 S/ v
        "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]}]], "Input",
    . y9 L; F7 A: F: J0 B- C/ s CellChangeTimes->{{3.577959701349306*^9, 3.5779597161381316`*^9}, {
    # U. W, E7 |% Y! U  3.5779621548286476`*^9, 3.5779621618642597`*^9}}],
    - W) }4 z4 N( W' e
    5 Z2 s* }. k+ f* bCell[BoxData[
    : e; G4 p" ^6 k% q6 V* I- j RowBox[{"{",
    % r  q/ s+ \$ ]' ^3 p  RowBox[{4 ~4 s4 U  o; m0 f, A3 j' `
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", + l  q. j. K% f9 g. D. @  R2 T0 U
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    / T% v; @4 i7 B2 u" W7 e    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", ) S+ w0 ~! n9 z/ q: R  M7 |
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", $ T3 n1 t0 ~5 g; {$ h# ?! u( b
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    * _8 t/ D8 C( }) ?1 `8 L9 e6 I$ K1 ~% w   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    . V  P* V7 u1 j$ K+ E, g7 n   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",   I0 U' V% A5 a$ ^# k9 D" @
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    " d1 x& K7 v' M5 l& B   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    9 X8 n# q* Z! z5 I   "0.4319341652593058`", ",", "0.4319341652593058`", ",",
    ! ?4 j2 S" B( s2 b5 v   "0.45016348534939865`", ",", "0.3333603476852527`", ",",
    , R6 F; z1 M' W( a3 q$ y' s: ]   "0.44186098968589294`", ",", "0.41030378932283074`", ",", ' d  [$ q* e" l9 f
       "0.5168147981915754`", ",", "0.4476631213729997`", ",",
    ; V' f0 S' q! B' Y. }! f   "0.30165529786966755`", ",", "0.3781221674378473`", ",", + S/ ]8 _3 X5 `7 C% Q
       "0.020339844919720775`", ",", "0.018745375782087393`", ",", % c- i/ s% ~. V2 D' [! c1 l+ s
       "0.2919925992695026`", ",", "0.26490679596812655`", ",",
    4 i) x2 {9 n0 A( l6 L   "0.16343444284525593`", ",", "0.4182466778551567`", ",",
    " E0 ?( L, R, Q$ e/ \. w, z   "0.27347752211364945`", ",", "0.385540573863857`", ",", * t) o5 ]0 ~' E  r0 V1 N1 F
       "0.3525316045371807`", ",", "0.20547458411007796`", ",", 4 s; ]& ?1 _8 g/ Z# l
       "0.4550437711271672`", ",", "0.1598805094678611`", ",",
    2 q! y% U. O3 C( g. f, X4 e   "0.18662509982279502`", ",", "0.10684797493248224`", ",",
    5 \* N' G/ Q0 _   "0.013349212673286806`", ",", "0.08215836003004302`", ",",
      c- q& F: J: b( ^   "0.2979041599362817`", ",", "0.05995976512343637`", ",",
    ; ~8 W# C8 \0 Q   "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]], "Output",
    $ X& u: P1 ?/ `1 n3 [( d CellChangeTimes->{3.5779597200381384`*^9, 3.5779621650778656`*^9, ( M" q/ i9 p1 _% a* }
      3.5780123569375*^9}]$ @2 h/ N7 ^5 D& x4 E
    }, Open  ]],
    3 u  s7 [# c9 _8 }% ]
    & d! `. h0 M* t# o$ C2 w0 f# VCell[CellGroupData[{
      k* C* S  T- Q2 P! f! t2 A* x# |" Q! m! t( M' ~% m
    Cell[BoxData[
    6 d/ s$ ^) o0 F! F; @; f7 E RowBox[{"y10", "=", # f  ?% T! T# F( r% e
      RowBox[{"Table", "[",
    + w0 O  u& f+ O   RowBox[{"x", ",",
    ! X" F7 e+ b( o. O5 p4 y    RowBox[{"{",
    3 m6 `9 R( l# B" n* v3 M     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",# G3 O& p: L% g& h- O: Q8 C
    CellChangeTimes->{3.5779253628125*^9}],
    * ?# r9 P5 k# f( k+ r* z! j8 i
    % K+ u: S( m, m/ @# {& z0 d/ fCell[BoxData[
    9 H$ U, v4 A: O3 X; h RowBox[{"{", % O& e, y0 k+ [4 @0 O4 z; E
      RowBox[{
    - M( u9 I. }# K9 ^- P. h7 C/ n; R% k  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    " k6 P2 V0 ?4 d/ J/ j4 q/ e7 f   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    ) P' K$ I+ {* U9 U! y' o/ `3 t    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", % J2 Y9 e4 o, |4 |7 [+ s& q
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    - c8 l1 L1 Y: c* j3 x   ",", "29"}], "}"}]], "Output",
    / r. D. Q) [7 Q0 g: ?* h CellChangeTimes->{3.57792536553125*^9, 3.577957599565603*^9,
    - J! h- d3 S0 Z& F- Z7 F  3.577958967383626*^9, 3.5779621678858705`*^9, 3.578012358609375*^9}]
    6 n* `+ D, \$ X+ i}, Open  ]],
    % @" ?5 W5 U6 N/ Y8 G
    ) X7 \2 p6 `0 }. B  E/ RCell[BoxData[
    * e1 f  @( c0 P/ ~  O! S RowBox[{"For", "[", 9 C% g8 c6 ]# K% R& j' P8 i: W
      RowBox[{
    8 v: k2 a$ \" L3 z: I3 g2 [7 u   RowBox[{"i", "=", "61"}], ",", 2 A7 F* V( ^$ h8 G
       RowBox[{"i", "\[LessEqual]", "89"}], ",",
    ; m7 @/ j7 {8 m. |/ B- x) \   RowBox[{"i", "++"}], ",", 0 Q9 }+ q7 f6 O: k7 v- a
       RowBox[{
    7 u  ]3 k+ ]4 o0 [' X! T    RowBox[{"y10", "[",
    8 Y5 I3 I! E  A2 m5 A     RowBox[{"[", # e: t( ^: n/ ~1 m; W+ q
          RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", * E' R3 X, _& }( \; q# O# u
        RowBox[{"Data", "[",
    5 A2 k( `! ]% w0 t     RowBox[{"[",
    ! ]# }+ D- \! ]' D5 ~# ~      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
    " Q7 s9 o2 @! V. m/ L CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    ) W1 X2 V( J: g; D" v0 m   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, " S: H( l9 m/ r  m+ k5 l
       3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, * N- _: C4 ~) H, ?- a- P; L! [; `
       3.577958922549148*^9}],0 y1 S. W* z" B5 m1 n7 M1 {  o
    * J  Y5 L9 W5 m" O! o- H
    Cell[CellGroupData[{& P+ F7 |$ `; A0 ^- U
    7 T( @1 ^3 X! q" s; s: t8 U3 G
    Cell[BoxData["y10"], "Input",
    5 F& t; }# e2 }+ D CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {3 O1 K& p" x7 u. n+ C; J/ a+ H; }& k
       3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}],! Z6 B. o3 _4 Z! A0 m
    # z2 n5 ^: b' F$ u0 h' r
    Cell[BoxData[7 G  z) b) B( U; M6 X
    RowBox[{"{",
    9 J* L0 S: n( C/ i3 K  RowBox[{
    ) b+ Q. \% ]6 D1 k7 O, L' q  "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",",
    0 Z2 O- V% ?! J& \" X& `7 e6 d   "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",",
    ) ~" Y. l/ @& }" q3 _& e! c   "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
    ) R( D  K# {2 o2 n  \, [* i   "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",", 5 S. j! S* X0 S* e. C" f1 {
       "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",", - }# y: l9 I; h7 }
       "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",", ( F% \, _; p/ H( L) o4 o9 I
       "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",", ' o9 n4 H- H. y" }0 o% O
       "0.694935`"}], "}"}]], "Output",1 k* ?# |3 {# X: p& y( I$ h$ e2 v
    CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, . L$ l8 z. P: h; K' p& _
      3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9, 3 A7 i2 O/ @: `: G% \& x! {7 D
      3.5779621736734805`*^9, 3.57801236071875*^9}]
    ) n% N5 N2 Z% T4 d) d" O% v  C}, Open  ]],6 d) v# `; l# z9 t
    ! P2 l6 {' O7 M: q, M2 i, ]( s
    Cell[CellGroupData[{! v2 Z: {2 G/ J7 q7 n5 I

    4 ^. `, \  X5 e+ z% aCell[BoxData[2 A; g. n! |& Z+ c3 @
    RowBox[{"y10", "=", 2 R" M( D) S; v$ n& _7 G' H) [
      RowBox[{"{",
    9 \9 \5 V( J( L. ~   RowBox[{( y1 _& u% L9 L9 K$ |" L7 c
       "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 o* g0 o7 H' l7 p4 F8 ^( b    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 q" k2 b: r6 k: @% c( D  [
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", 4 b4 a" y  Q! ~$ a4 X
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
    5 ]! Q% M* W8 n6 u    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    ; `  C8 \% u9 G5 o    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", ( {" M4 t/ O, c: X* E( Z# P
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    ) i1 U1 u- ]! f1 f& H2 F+ q    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", - r! }+ r7 j. b
        "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", 7 T" b. a# L* a/ _/ V7 G5 F# G0 ^
        "0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",",
    8 Q7 f( F  h% g7 ~    "0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", 9 D3 t9 F2 j) h8 f# u1 v2 C% q0 u" Z( L
        "0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",",
    9 Y  k5 V0 y0 s5 q0 {! i, l  T    "0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", 2 z2 Z' v2 y7 i" S' P
        "0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",", # e2 e) ?. b& ^4 X3 e& [  W# k1 I
        "0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",",
    # v. v9 D' A5 N  _    "0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", 3 K# o) D0 Q3 T, Z9 p! F* h
        "0.390754`", ",", "0.694935`"}], "}"}]}]], "Input",: }) u, c/ p/ K9 f" }0 t
    CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],% O1 r0 u% l; ]5 O4 U: N
    ; u: `6 |  Q+ P" E) M4 p7 t# E2 U
    Cell[BoxData[
    + L' g5 u1 J3 ]: @3 O" o RowBox[{"{", $ S) A9 k: o& O% m& Z6 a& k
      RowBox[{
    * a1 i% z8 C. E. l  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", , W2 m* l; U# u, X
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",* u6 }6 \  ~1 C; ]
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    2 D3 A  s' q4 M! m5 m5 b) W   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ( |4 c- J3 L! ?+ X& f( C
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    4 E! ^7 I9 y, a$ z3 I) N   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    * f$ W2 @% V7 S) e& r1 e   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", ! H1 s+ M& V/ G- A, t; Y
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",   D/ B9 U7 r9 |0 y. f$ H) @
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`",
    0 O! J: f8 ~1 t$ j0 z6 M   ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ) ], S) f* a- T. ~: [
       ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`",
    ' X5 y1 J4 m2 X8 D8 q* r& M+ x   ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
    ) u: ^+ R# Z' Y* H1 y( _    "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",", 8 G! W, d" ?" I0 a' q9 ~
       "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",", / h2 F) t- ]$ a9 F- f
       "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
    4 A. K7 Y7 Q' ~; p3 w, u% W0 L   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",", + Y* A: n! l2 @9 I+ V; V) Y2 z
       "0.694935`"}], "}"}]], "Output",
    $ j2 j/ R! C. _$ c0 d1 \+ q CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9,
    ' i" v) V; c' v% `, u  3.578012361734375*^9}]: N! M4 `% ?* R: N9 T
    }, Open  ]],
    ' F" e3 C' Q' s- k' x7 e
    * D) I+ b. }/ H% rCell[CellGroupData[{
    # [' z% F/ g3 f9 t9 F/ C1 K, O0 Q3 A& y- k. l
    Cell[BoxData[
    , p4 n8 `( y! `- c RowBox[{"p1a", "=", : e2 H/ a! F0 ~7 }
      RowBox[{"ListPlot", "[",
    $ R- T# ]1 h/ o$ c4 d& w* n& X7 k   RowBox[{"y1fit", ",",
    : x2 Y) }3 h9 T    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    # d/ m$ v7 m7 o    RowBox[{"PlotStyle", "\[Rule]",
    7 y  i8 G; M) l1 Z& X) R0 S     RowBox[{"{",
    * e% A" ?2 C6 ]) j9 G8 D0 T5 s      RowBox[{"RGBColor", "[", / t( V% {0 C, h  D* ~- ~
           RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
      T. L  ^- }$ D: f    RowBox[{"PlotRange", "\[Rule]", ! Y/ O1 {. @2 q: D- t2 {3 a
         RowBox[{"{", ' C5 M, d, Y- A1 y
          RowBox[{
    * G& e# _/ G$ g* ^* B: g       RowBox[{"{",
    ! S( s' B+ c2 H7 q+ ]+ F% S! {        RowBox[{"61", ",", "89"}], "}"}], ",",
    + @8 @# ?6 G" r  N) A3 n/ |* z       RowBox[{"{", & F' I* @( l+ l- X$ t7 F2 S4 m" D
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    + C. Z5 P0 r: V& s! F& d    RowBox[{"AxesOrigin", "\[Rule]",
    % g& n+ ?! M! C6 r; ~     RowBox[{"{",
    5 u* m' i) n: a. y" U: c& q, ~      RowBox[{"61", ",", "0"}], "}"}]}], ",",
    7 H7 b! h, ?2 B( d, g    RowBox[{"Frame", "\[Rule]", "True"}], ",", 8 G. Y' F, w5 T
        RowBox[{"FrameLabel", "\[Rule]", & i) b0 h: k  i4 ^( Y# |
         RowBox[{"{",
    - H5 A" d! P+ d6 W5 O      RowBox[{$ ^' i( l# E( V* l0 E' v
          "\"\<\:7089\:6b21\>\"", ",",
    / F/ z+ a; }. W7 ]4 a# B# X       "\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
    % S+ k+ {3 n( j4 J  Y: X\:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",3 p) [' s, `3 U4 W0 f  _
    CellChangeTimes->{4 ]2 x3 m3 b' e- P0 i- q
      3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
    ) ~) }5 e* `) e- q  Z; d4 |% ~2 [   3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9, 9 ~. l  _/ R7 J% L- |. m
       3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {( H2 e. {: E1 i& l: E6 s' q3 \
       3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],
    7 v: D* M4 i5 W* {
    , j- U7 W% l% x# ^7 VCell[BoxData[
    % `7 A% Z% S6 @+ a" {' v+ C9 X! V2 q GraphicsBox[{{}, {}, - s8 t) j0 b7 i' S& G; h
       {RGBColor[0, 0, 0], LineBox[CompressedData["2 l; w$ z7 q. c( Y: i" u
    1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn/ e( d" B3 E! a
    8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
    # R1 R1 v6 N, ]/ q2 g1 z3 ~D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
    * ?( y) R; K  ^" J; w1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
    8 `+ @7 r! r6 q! ZC1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN; z1 x1 N1 T* {4 c$ j' g5 H: Z
    a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff  t$ j; K3 h& o* w: ], D
    yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb8 _  ^1 R% m9 k- C, b4 p) h1 X- @
    wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX598 R: l6 a4 {7 ~2 l$ j; c
    Y6nGQ3sAieueIw==" D: P2 _6 Q/ j2 p% ~3 }' O9 U  _* m
         "]]}},$ y& u) P$ o) a
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    2 ^) K0 t/ F: v& A  Axes->True,
    : [& k4 S5 h; E+ h* C: S) L6 h  AxesOrigin->{61, 0},
    % f( s7 Q) q" ^2 Z( C1 _' X3 S" Q  Frame->True,
    0 e4 t. b3 I& D! c5 H  FrameLabel->{: F( C& |2 ^, R' Y' z5 L) l2 {
        FormBox["\"\:7089\:6b21\"", TraditionalForm],
    4 a0 E* f, ~" ~* z- m3 C/ E) l) K    FormBox[; U/ {  [' A8 L5 D
        "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
    1 N7 G# G6 J; A% \) A\:ff09\"", TraditionalForm]},1 I( o) c1 v/ q$ I1 \* T7 \" d
      PlotRange->{{61, 89}, {0, 1}},1 t4 ?1 T9 b* q8 P6 E
      PlotRangeClipping->True,$ k  y0 N1 g4 W* S. ~$ p
      PlotRangePadding->{Automatic, Automatic}]], "Output",
    $ V+ @# C( D' F2 W) L CellChangeTimes->{
    & H1 [' x: M) f7 e$ S/ h2 D& Z4 ~  3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9,
    1 Y# d. O% S# A( ^! n( m* i   3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9, 0 ~$ n8 f( s$ o. ~6 o; N+ C
       3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9},
    % I# o- u1 B: Y, i. A: f) N/ r6 b   3.577962187510705*^9, 3.578012396921875*^9}]- W% }* C8 a3 r- D6 P
    }, Open  ]],
    8 T0 c* m# T9 S" a# S+ \( z% i  o& @2 @
    Cell[CellGroupData[{+ u; T' E6 o4 w* c6 H

    : C- l; ]8 G/ n" eCell[BoxData[( R3 E8 w2 y+ S9 {6 K
    RowBox[{"p1b", "=", : B% ?. R4 b- ^7 c; u
      RowBox[{"ListPlot", "[", 7 C7 ?7 @6 ?) _, D3 [5 k7 K
       RowBox[{"y10", ",",
    " U/ v) f. l6 d# P; S2 L& B, Z    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    " o/ H1 f5 x* G4 A, A    RowBox[{"PlotStyle", "\[Rule]", 7 H* P- t0 x- N3 ?' S' W& {
         RowBox[{"{", & j9 Z6 |6 z$ w* \3 s7 o
          RowBox[{
    $ H; Y5 j( }. D8 O; X3 @! K+ [* e       RowBox[{"RGBColor", "[", 9 C4 ?# f$ c% _4 d
            RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
    7 _3 S5 o& H3 B" @) F! u    ",", % J' s9 V/ x1 N$ B: F$ B8 B
        RowBox[{"PlotRange", "\[Rule]", % y* F( N3 l. ?# }- A9 A
         RowBox[{"{",
    - W1 w: T4 N1 R4 [$ L( R8 p      RowBox[{
    . e2 U: n) ?; m$ y0 f; M. W       RowBox[{"{", $ m* ~0 E/ u6 t" b7 E: r( o
            RowBox[{"61", ",", "89"}], "}"}], ",", , q- Q  a% \$ o1 n: A
           RowBox[{"{", 8 j0 J1 f3 Q1 ~, d: C* R! J; \
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", & T3 S+ C% ?0 y1 @
        RowBox[{"AxesOrigin", "\[Rule]",
    . K# _* i6 h* w     RowBox[{"{", 4 K- r  W, G+ E) A# b% X. k
          RowBox[{"61", ",", "0"}], "}"}]}], ",", 4 \& J( R' N% |
        RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
    / T* w, y/ T" M CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9, ( F, y& {) A3 `5 u1 ], t( E8 q
      3.5779597764166365`*^9, 3.578012409265625*^9}],) C$ C0 T* J+ z2 L+ V- U

    $ J# |# I- }8 T3 Z4 W0 m) E4 tCell[BoxData[% k1 G2 y, Q' \( X
    GraphicsBox[{{}, {}, : f$ ~1 A4 ?( C7 N6 t
       {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["9 j7 Z. d0 O$ |/ h; w
    1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ9 u1 s1 @- @- F' h) {
    /B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy. Q6 E& q* v6 X1 R" \
    GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy4 k' E+ W7 G0 P4 |* x, E
    GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy$ T4 h! q$ K$ g1 P+ k& D
    7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
    , k9 h" U2 o7 P& V% pQu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
    , e3 L1 i8 P' p5 o# O8 {H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
    & H- q4 a, b( x5 {3 b& l( k( |rQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
    * y  Y  R5 ~0 H1 U' X: CvA==9 Z) v8 b  l& C8 m
         "]]}},
    & n, K0 H. ]6 C9 S( S1 Y/ H  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    + t& H( ]9 k9 u1 P7 l  Axes->True,# Z/ j5 W# o8 E( a
      AxesOrigin->{61, 0},
    - J$ }6 ~" I5 m' s3 a. Q  Frame->True,7 l' ?8 l2 _3 {2 A7 S/ v
      PlotRange->{{61, 89}, {0, 1}},
    & ]9 h7 Y, Z- c3 T7 Q" v# F/ h, E  PlotRangeClipping->True,
    , d+ ?1 I( U: `1 g1 f9 ]  PlotRangePadding->{Automatic, Automatic}]], "Output",/ _' E7 t% Y& G' k( \; ~. N
    CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9, 7 T7 z9 K' D7 v. Y' J) ?" K
      3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9, 2 a" u+ B. j' D1 i  e6 u
      3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]
    4 U5 u  c6 L' X- {& P}, Open  ]]," z- D; i' |, V  U% b& o
    - j" q, w7 w0 Q# n& _/ X( D
    Cell[CellGroupData[{! |/ ~) ?7 K& i: m3 t
    5 u& Z/ i6 h* \6 v2 h: R6 |# r
    Cell[BoxData[6 S1 P. M/ T- T( d+ h( ]
    RowBox[{"Show", "[", ( C; R7 M$ \% h8 C' ^
      RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],2 M# m2 [7 b0 n- P, o

    $ p2 m& I+ i4 aCell[BoxData[0 e, R& R) m# ~
    GraphicsBox[{{{}, {}, $ O7 U! N1 H6 ^
        {RGBColor[0, 0, 0], LineBox[CompressedData["% s) |: j1 g% D% m% d
    1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn9 Z$ k: ?0 F+ \, H/ ?
    8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
    2 [3 q2 R5 c/ m6 G! @; r- ]D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B1 D0 F( a  U. ^3 B3 g" [
    1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
    : j' F( W- G" U# g, H% f8 {$ TC1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN  F  Q3 ?/ Q2 m: I- {$ D& F
    a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff4 o; E$ h% H! Z; o+ p2 s7 o- `" T
    yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb3 T& X: y7 w7 ^
    wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
    4 {7 s1 r% D: o* G0 sY6nGQ3sAieueIw==8 Z  R( b" w9 W; }% |. e1 v
          "]]}}, {{}, {},
      s" A9 a$ |8 L8 b- G7 y, Q    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["- a8 T' \  J# ]& Y. l" E, r9 H; S
    1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ. y" M3 ~5 v- y5 b2 K4 r, `* }
    /B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
    ' w; x! @$ H  pGwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
    3 g. U! b3 m0 q' M9 q8 ~2 ?GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
      }# ~) S6 g; y2 O( h/ }5 T7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/9 r4 \# ]4 L5 d1 `5 q+ C0 }1 M6 f
    Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
    $ Z) W/ \) I4 X. mH+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
    3 k2 ^1 v5 j, c, z8 ZrQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
    $ n( u! z+ Z- s/ wvA==
    0 d( R1 V6 m, l# D8 q      "]]}}},
    ( O6 P, @/ t- B1 Z. S  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],8 s0 T0 L7 i7 R9 ~: u' n
      Axes->True,
    % t/ j) Q. `  t2 O! k, O: _: q  AxesOrigin->{61, 0},
    ! S# S8 ~0 L  L  L  Frame->True,  w- O2 R0 X; Z4 d2 s( [0 `. |9 I
      FrameLabel->{% j; c0 o6 p8 Y* p
        FormBox["\"\:7089\:6b21\"", TraditionalForm], / r+ _; ^# O: P! K. p3 t: J3 t; r
        FormBox[
    1 a- K. U6 N, j: u, B$ E    "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
    , b4 u( F( k' M6 g; j\:ff09\"", TraditionalForm]},+ Y4 y9 G) T  N" Z: U$ _) Y
      PlotRange->{{61, 89}, {0, 1}},! P, ]# S8 Q: _. C4 ?' ?# {
      PlotRangeClipping->True,9 r0 k( L5 q6 X$ t5 ^
      PlotRangePadding->{Automatic, Automatic}]], "Output",
    ( A: n' _$ a4 N7 J CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]% |! h: l9 X* i) d/ m4 |- V
    }, Open  ]],- ~. d  L/ a$ L9 W, s! G
    7 H% G1 ^1 n  N
    Cell[BoxData["\:62df\:5408wi1"], "Input",
    8 K' I3 t5 P' c* i& I( Q5 I CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}, 0 v4 x+ i, t1 l# w$ t
       3.577959662349238*^9}],
    & ^. T4 @' T. j: I( T
    . O* R5 U5 e. f, ICell[CellGroupData[{
    & j; Z; z- @3 V% J2 c8 e! o9 M/ {) m2 g3 Z$ C
    Cell[BoxData[; W# L( P$ U7 o' g) \+ U
    RowBox[{"y1b", "=", $ T1 C) V! U/ D% F
      RowBox[{"Table", "[", 0 B0 H. U9 T6 t# r; B  a+ p- Y
       RowBox[{"x", ",", 0 d2 L# v# e0 Q! M: A8 q; E( _( r
        RowBox[{"{", 9 L8 {! |; w" G* I" K. W; Y! ^
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",9 [/ d0 j! w3 C3 G
    CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {& J) p' E  V3 ]2 M
       3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}],
    8 d- P5 a# J6 D
    3 l( H. P. B/ S1 C: ~6 B7 S8 t- ~- l: CCell[BoxData[- E$ k/ _# N4 p1 u6 X/ h' w1 A2 ~) t
    RowBox[{"{",
    6 J+ G+ H, J: }$ P0 M# q  RowBox[{" I' o4 H9 R9 a# z1 h* ~- [) B
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", # y+ v0 B, N! }  D  s" @$ i
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    ! T+ C- c3 e- R8 W% ~( N6 d8 C. s    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 6 o1 X! U6 X9 A8 M; j. Z( c
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    7 Z% M& @7 u( g" R   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    # ]+ C/ A0 H2 ^2 v( i- h* n+ ]/ N  P5 c   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 9 c6 ]4 A& U( f  H; V0 T
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", 8 U" L7 h; V" ]
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 3 M5 r2 S! s2 ^6 B: Y+ i3 |5 {+ S) e
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
    # O% {5 n5 S# r2 o  ^  "}"}]], "Output",$ H. j- a  {+ n& k, r! H
    CellChangeTimes->{' Z5 ]0 q/ J! ]5 h; y3 ]& O
      3.577922682296875*^9, {3.5779582291435394`*^9, 3.5779582351339493`*^9},
    $ a( ]6 ~* x. m6 s% H5 g. z1 D   3.577958478041973*^9, 3.577959010205701*^9, 3.5779622225483656`*^9, : l: q9 ?" r4 c% ^% x$ J
       3.578012438953125*^9}]2 d5 p. G( {3 _" Y! J' [
    }, Open  ]],: z  L9 E$ \: a% I" _! T
    5 d0 u4 W$ H3 D$ B, H2 a( R! Y* U& B
    Cell[CellGroupData[{' G7 V# c# Q  J& w0 }7 h
    + [4 A6 x6 v+ Y% m4 j; a# t5 y
    Cell[BoxData[6 S# o  s' j1 s1 Q, `2 ~6 m
    RowBox[{"Data", "[",
    ) ^( W/ @# `* S; B. V( H  RowBox[{"[",   U3 l! U& N  A" P& j* v+ c1 |- d
       RowBox[{"3", ",", "11"}], "]"}], "]"}]], "Input",
    , `1 B" P, t3 ~' M& ? CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {0 e  A1 a9 t$ R6 w+ h
       3.577922912015625*^9, 3.577922912171875*^9}, 3.5779582414831605`*^9, {
    " ?8 y# O' i) R2 L% M   3.577959014090108*^9, 3.577959016040111*^9}}],6 W! n% V1 v/ J' d! a% t' o

    5 }7 m( Z4 T6 A) |3 `Cell[BoxData["0.492958`"], "Output",
    , G% C1 }$ H. b* P+ f9 F CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, - E+ j& z% E! ?/ d, K5 o8 w2 X4 @7 c) _
       3.577922913203125*^9, 3.577958242809163*^9, 3.5779584790403748`*^9,
    ( a6 G" m- }* s# y) i- U   3.5779590175689135`*^9, 3.5779622239523687`*^9, 3.578012439828125*^9}]
    ' y, q, F% G0 G' Q6 M}, Open  ]],
    % k- W8 _6 W* h! h) F9 u
    + W& C. }( `/ X% [# FCell[BoxData[# D% C& B) N: A6 y4 ?' f2 g
    RowBox[{"For", "[",
    0 c6 T4 [5 i1 F  RowBox[{& Q/ H! h) e. L
       RowBox[{"i", "=", "1"}], ",",
    7 c& C+ r" ^) m4 I, C( |   RowBox[{"i", "\[LessEqual]", "60"}], ",", : f7 b3 D3 ^4 i
       RowBox[{"i", "++"}], ",", ! {1 s. s& t. j
       RowBox[{2 p& F$ o) p8 G, \. R
        RowBox[{"y1b", "[",
    5 j8 ]5 v3 h' u7 K' d9 N9 _     RowBox[{"[", "i", "]"}], "]"}], "=", & o/ a6 D7 Q, i+ u
        RowBox[{"Data", "[", ! O- p+ r4 L( ?; i9 Z
         RowBox[{"[", - Y0 {4 e* j7 n0 x
          RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
    " L* d! l. I) e& A6 k CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {, r) v5 C- J/ k- \* ?# F- b, J# b% y) B/ ?
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, - _! }3 Y0 ~0 R, u
       3.577922923203125*^9}, 3.577958246272369*^9, 3.5779584755771685`*^9, {
      ?# N/ Z. S2 n% M7 @" Q   3.57795902089172*^9, 3.5779590227793226`*^9}}],8 x6 ?4 P- m5 u

    ! V4 f+ J7 f$ nCell[CellGroupData[{; w& o* E& F9 G4 R7 U; c$ A3 G) u

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

    # O' v2 C! t) L( n, K# qCell[BoxData[
    4 d0 v: Y1 i# w' {2 | RowBox[{"{",
    , ?& d" X+ D5 }  RowBox[{( ^: q( @. {" v# L
      "0.48228184971363947`", ",", "0.16041393254115022`", ",",
    + ^1 [- P6 G3 }% m) E5 W& G   "0.3741982811661129`", ",", $ j2 l. y  [' _+ ^9 E
       RowBox[{"-", "0.12620581913715245`"}], ",", "0.28831860112966734`", ",",
    : T* S% c1 }8 V7 W   RowBox[{"-", "0.2282993884666894`"}], ",", "0.3207174990295839`", ",",
    # q6 G3 I) d( W; ^4 T: C' T   RowBox[{"-", "0.4666313851213302`"}], ",", "0.27551257162880227`", ",",
    8 y; H, f8 r' _4 c2 X1 e   RowBox[{"-", "0.025873988843993667`"}], ",",
    ( G; F1 U: N  i. b/ A+ u9 Z   RowBox[{"-", "0.1339854044819916`"}], ",", 2 S8 n* o: H0 Y9 q$ v* J# c  c$ d) A: i
       RowBox[{"-", "0.15852708848338315`"}], ",", "0.3129687276967983`", ",",
    " n" X% A- b* |+ M! ?" X   "0.45723850991134063`", ",", "0.2954923840077215`", ",", ( n, B  `& |9 I6 W) z" I) e( x/ ~' G* l
       "0.9125798890455868`", ",", "0.21159052285983104`", ",",   `3 B( l: v6 ~
       "0.5575503376854456`", ",", "0.6019775648968265`", ",", ) Z, X1 ~; L4 P
       "0.2361524780938108`", ",", "0.12782130225993923`"}], "}"}]], "Output",9 f) R# z' H, w4 B. X4 R- B5 J
    CellChangeTimes->{
    " Q  p" N* V' _; `  3.577924621953125*^9, 3.5779246688125*^9, {3.5779582894220443`*^9, ) P1 t. ?3 K$ K2 _7 D0 `
       3.5779582992968616`*^9}, 3.5779584995700107`*^9, 3.577959040157753*^9, ; a) g- F* Q* \
       3.5779622919996867`*^9, 3.578012447734375*^9}]. t$ ^2 R0 C5 r0 |# V9 V
    }, Open  ]],6 V: Z8 }: G7 D3 v% j- y; }) y
    . t& H$ n+ H# c/ D7 V) X8 j
    Cell[CellGroupData[{
    - m+ z% w% [# X! J1 m0 n7 ?+ F- {6 J+ ], v/ N* N+ X
    Cell[BoxData[
    6 R  s- y, g3 R# O) {$ B RowBox[{"y2", "=",
    3 e6 N+ N. N6 t" _  RowBox[{"w1b", ".", 8 A# y  D% L" J& L( V' g$ o
       RowBox[{"{", $ Y/ ?6 `9 w) \0 j
        RowBox[{
    : Q3 g. A9 I; Y0 \5 P    "u1", ",", "u2", ",", "u3", ",", "u4", ",", "u5", ",", "u6", ",", "u7", 7 P) e4 w# n' G
         ",", "u8", ",", "u9", ",", "u10", ",", "u11", ",", "u12", ",", "u13", 1 ^: \1 w2 H8 ~/ b
         ",", "u14", ",", "u15", ",", "u16", ",", "u17", ",", "u18", ",", "u19",
    7 `' x, S; y6 d8 r% @, N     ",", "u20", ",", "u21"}], "}"}]}]}]], "Input",6 O5 g  \( A/ R  u/ y9 r
    CellChangeTimes->{{3.57792471553125*^9, 3.577924755875*^9}, {
    * P0 W5 Q3 m/ X3 M   3.577924897078125*^9, 3.57792491596875*^9}, {3.5779583101856804`*^9, 5 H2 \& q. M  l' E; w+ W
       3.5779583178920937`*^9}, 3.5779623163513293`*^9}],' p0 t. Q( ?& {0 C

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

    ; T$ c9 r+ w! o6 s1 @# B) c; t+ r' P+ U$ nCell[CellGroupData[{% H% f( A; M- A, v$ l4 L. o

    + D" U0 B/ r2 O1 HCell[BoxData[/ o! ~6 `0 R$ J% _  R
    RowBox[{"y2fit", "=", " m' x( Q+ J3 s9 j
      RowBox[{"Table", "[", 6 G" a1 Z; y: t1 S
       RowBox[{"x", ",",
    ) j$ \" L6 M+ c# _4 }    RowBox[{"{",
    $ M" e% p( |8 q0 M6 d     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",9 R* u: s, p* _& |
    CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {, p4 t8 b* |: b. F% J
       3.5779252768125*^9, 3.577925277484375*^9}, 3.5779583246625056`*^9}],1 A; t5 N& \9 `! N) A" j

    0 i+ S: v. Q. \9 n: ECell[BoxData[
      D- L3 b% n% P9 ^7 b( j7 B' A RowBox[{"{", ) Q+ q' l9 c' F
      RowBox[{# {4 a9 T  h, u! o. v  f0 l
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ) G6 t( B# N$ `- ~   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    5 q. }5 Q/ i$ V- o% H% a    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", ; m: L( e: x2 V
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ; R8 G. S( f, D. W5 J5 n. A
       ",", "29"}], "}"}]], "Output",
    8 ^. q" [. [! e" Z; J2 u0 Q CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9,
    5 _9 O4 b, {- T$ O+ Z, h  3.5779583268153095`*^9, 3.577958508118826*^9, 3.5779590470685654`*^9, ! h  s6 S  b* k7 M1 a! J
      3.577962320173336*^9, 3.57801245028125*^9}]
    ) \3 y( P3 ]/ `! E# u" V}, Open  ]],
    ' r4 q6 H5 V9 {2 D, Q' j% `% x
    8 J- B8 K3 m' |Cell[BoxData[: h$ d) X/ Y8 W: \: d+ l- ]+ l) G
    RowBox[{"For", "[", 1 \( Q0 K0 ]$ X' @/ J; H
      RowBox[{
    ( V: j6 [/ I7 b+ c   RowBox[{"i", "=", "61"}], ",", $ S# K( V; g) e
       RowBox[{"i", "\[LessEqual]", "89"}], ",", 7 |8 h- p7 F: H$ n# }: {
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    ( O  p$ U( W$ }- |# o% b, Y   RowBox[{
    - L6 O# d& C0 j! N7 A    RowBox[{; M1 V$ v$ G9 ~! ~# W
         RowBox[{"y2fit", "[",
    3 m* a+ U$ ~1 @3 s% M) y5 l& `      RowBox[{"[",
    0 w+ X+ a' g' k, \7 K       RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
    $ S- y# Q8 F1 f' i6 r     RowBox[{"y2", "/.",
    ' E+ @' h$ C- M& q0 {      RowBox[{"{", / p  l6 v2 M  ^' _( \5 [1 B
           RowBox[{
    7 {: d( \; s( L$ v' v        RowBox[{"x1", "->", 3 Y$ `, y8 Q: A) a4 K, c
             RowBox[{"Data", "[",
    % W, A5 G; w4 U) }2 E: q, `: _. }          RowBox[{"[", 2 z/ X; A1 @+ J* Y. I+ y
               RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 7 N& ^* J6 ^" @) \" `4 R# q
            RowBox[{"x2", "->", 0 Z. |3 A/ f+ i/ K1 W* d  f
             RowBox[{"Data", "[", ) Z+ u, @( }( v: g0 `
              RowBox[{"[",
    - \+ R$ k) f1 [  o/ u7 A1 X           RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 1 v$ W' F% ~7 I* h0 q
            RowBox[{"x3", "->", ) X3 d* F6 A, T2 G+ K7 S
             RowBox[{"Data", "[",
    5 q, p' q; G) |6 B+ n6 G1 x* X$ V          RowBox[{"[", 0 I' w5 W+ w" F* {( o7 P
               RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", " N2 A  Q# P  k/ V' K- l
            RowBox[{"x4", "->",
    9 q1 S  T3 E, ]- e: `  w4 m1 o9 I         RowBox[{"Data", "[", ; H) r5 k. d+ {1 a' J
              RowBox[{"[", ) |5 S, I5 A1 H7 ^
               RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    7 A- w; m7 k  X' I: H4 Y" u& J        RowBox[{"x5", "->", 6 D5 P1 p" h$ S' Z
             RowBox[{"Data", "[", ' O8 d2 e$ X5 W: x' Y8 g
              RowBox[{"[",
    * X- `' n: p7 c" I/ C  n6 F) [           RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ) M5 Y; M1 w; J% j) }# ?, p
            RowBox[{"x6", "->", 8 m* f+ P& D# \8 O
             RowBox[{"Data", "[",
    % v! O+ f9 V- `$ b# o" }; C0 c          RowBox[{"[",
    + e, ~* p0 K, C7 ], U# Y# e9 K           RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
    6 X" k7 z0 d( v+ i        RowBox[{"x7", "->", ) z8 g# H  T+ L2 T4 R
             RowBox[{"Data", "[",
    $ A3 ]/ U9 g! f6 @6 ?/ |( r          RowBox[{"[",
    ( k1 Q6 _7 ?1 J+ w) E7 b  K           RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 2 Q/ {. {! I& ?+ Q! U. [
            RowBox[{"x8", "->", 7 z% [5 @! u. p4 E; o  N9 a( k6 \
             RowBox[{"Data", "[",
    ) ^) _3 x, v/ ~) ^) Z          RowBox[{"[",
    . m5 I7 _! ]1 U  O           RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", & A; F) ~/ |/ S; b3 q3 U. D4 V
            RowBox[{"x9", "->", 1 C8 D5 c6 \0 ^, r- x
             RowBox[{"Data", "[",
    ! R8 @6 G0 B" ?$ C          RowBox[{"[",
    $ r/ Y) m- i. C" a' Z           RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}], / [1 a- L2 ~" m
      "\[IndentingNewLine]", "]"}]], "Input"," z* b9 E+ ^0 b, f
    CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {
    ( ]4 |/ w8 t: D2 t  3.577925286140625*^9, 3.577925306765625*^9}, {3.577958329919715*^9,
    7 p6 c1 G! K7 |) y- K3 I0 t( d  3.5779583326341195`*^9}, {3.57795892351635*^9, 3.57795892354755*^9}}],
    , c4 N9 R. }# d) G4 G, y0 E. O  \- ?( d+ Q
    Cell[CellGroupData[{/ D8 x: s; x/ E2 g) T
    9 R' j: h8 f2 S4 {; V
    Cell[BoxData["y2fit"], "Input",
    $ R% I. g0 Z4 T0 e2 t8 v CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {
    " t' }$ H* r2 R1 c( ]5 O   3.577925040484375*^9, 3.5779250440625*^9}, 3.5779583419785357`*^9}],
    9 S: [5 m5 X" }
    2 J  R8 }5 U4 w5 c7 ACell[BoxData[0 B8 M* B. M+ y/ A- y6 [
    RowBox[{"{",
    8 ]6 o1 h+ d& B4 ?* t% W. H' M  RowBox[{
    ! I$ X+ E2 G1 d$ }7 j3 Y  "0.4853171132859182`", ",", "0.4508635216665074`", ",",
    , j2 a1 c. G9 x( v   "0.3642119241752518`", ",", "0.42852077425595436`", ",",
      Z' r1 h9 U4 q5 T3 O1 {/ h   "0.4712694272667798`", ",", "0.5257533056184774`", ",", / S4 V% {4 X2 U( s
       "0.48620658140716133`", ",", "0.41106838915591876`", ",",
    ) A! g: Z* j7 ]' _' t   "0.5486894206610674`", ",", "0.007731168540073459`", ",",
    3 ~  Y$ n9 [: n   "0.013872406140339109`", ",", "0.3956995051659558`", ",",
    : w+ M" x0 Y) Y1 ^   "0.3663118256142708`", ",", "0.29094217358055163`", ",", ; g3 A+ Y' ~/ {% t, u
       "0.5453093690736555`", ",", "0.44138898880777927`", ",",
    ) @* I# T( y- n' @4 }% d' ?  C4 x   "0.42944922031163496`", ",", "0.43092890556748836`", ",",
    , _' z+ n6 G) H7 V   "0.5942402821739969`", ",", "0.330046090785457`", ",",
    7 F0 V! d5 y$ e3 J   "0.18938658036630585`", ",", "0.4263720292858679`", ",", 7 W8 `" L8 P8 |% v* S3 Q9 u
       "0.23377136184738775`", ",", "0.02232858193309988`", ",",
      H" q% t7 d* ~5 K2 y   "0.244364200084268`", ",", "0.5562383565309971`", ",",
    9 D( L  x0 n) d: {   "0.13114103402954333`", ",", "0.5815052048989465`", ",", ! E/ i/ r2 A" i1 t
       "0.4253455966293501`"}], "}"}]], "Output",( B, l( |9 T) b3 k; o4 S, R/ f
    CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9,
    + C2 e( G  O& S( o  3.577925312375*^9, 3.577958343257738*^9, 3.577958511784832*^9,
    + f2 G$ k6 J# Q& ~+ w  3.5779590518421736`*^9, 3.5779623249157443`*^9, 3.578012452421875*^9}]6 x+ P: C3 }3 r' ]
    }, Open  ]],7 v: i4 i+ v% _: h* L
      d$ F# W7 z, o' E* C2 @
    Cell[CellGroupData[{
    3 q* o* _: J2 ~5 g, i6 e4 p  W2 j
    Cell[BoxData[
    6 m) x9 v$ T  s7 A; c# X: K# g( W. i RowBox[{"y2fit", "=", 4 p& D( @+ q/ v" p- d( W) f
      RowBox[{"{", 0 K( ~7 x/ p+ _
       RowBox[{7 {, D9 P2 p4 ?" F0 a
       "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 7 e" B7 I9 ^0 `9 l# `1 d
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & T' q. L7 _% [" d# u
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    3 y6 V0 B) C/ t" ~# g    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", & h/ R% ~  R. k
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", + R; x; a  `9 s$ B$ z9 d* d
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
    # g: P. A5 |0 S* h3 ]    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", $ d# S! M7 b+ C$ M
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", : E( P6 ~8 U7 R( i
        "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", : b' T* r- G, Y) r; _. Z" w/ b
        "0.48531711328591953", ",", "0.48531711328591953`", ",",
    / I: e  {' `. v% o  _& ]  y    "0.45086352166650845`", ",", "0.36421192417525217`", ",",
    7 z& h: z8 t: J7 h1 y    "0.4285207742559556`", ",", "0.4712694272667811`", ",", ! U1 ?9 t: X3 {. A* L
        "0.5257533056184786`", ",", "0.4862065814071623`", ",",   U/ F9 N8 n+ x
        "0.41106838915592014`", ",", "0.5486894206610683`", ",",
    1 q1 K. L* f' P* a/ ]    "0.007731168540073532`", ",", "0.013872406140339166`", ",", 0 \7 k8 q4 M- k( t; U! p; b
        "0.3956995051659565`", ",", "0.3663118256142717`", ",", ( \, A5 S5 Z( E5 Y2 p- r
        "0.29094217358055185`", ",", "0.5453093690736568`", ",",
    % ^# S( v$ C# H6 {7 F; C    "0.4413889888077799`", ",", "0.42944922031163585`", ",",
    & I" e6 W, S" G# Q3 j7 m    "0.4309289055674891`", ",", "0.5942402821739983`", ",",
    - [% ?+ M% U  j3 j+ W7 |5 J2 p    "0.33004609078545805`", ",", "0.18938658036630632`", ",", ! ~, K& w% f* F  R& ~+ s- |
        "0.4263720292858688`", ",", "0.23377136184738778`", ",",
    8 K  i! u% H1 W9 m% _    "0.022328581933099827`", ",", "0.24436420008426807`", ",",
    9 j4 M0 O3 M$ H# y/ A) {# [    "0.5562383565309981`", ",", "0.13114103402954314`", ",", 5 Q3 f" `7 H* B+ t- \
        "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]}]], "Input",
    " r1 ?/ p8 l) M# i: y, d CellChangeTimes->{{3.577959355746303*^9, 3.5779593854019547`*^9}, {
      D1 j; m8 `. I3 u5 d& @1 x! _  3.5779594223272195`*^9, 3.577959425104024*^9}, {3.57796233399496*^9,
    : p/ a! X6 ], o5 j- o  3.57796233957977*^9}}],
    4 F  i  x% P; F/ }. ]2 ^: U8 J1 y) E; f7 m' F5 M& w
    Cell[BoxData[, Q$ i6 y- x; T
    RowBox[{"{",
    1 v' W! A- |) U/ g  RowBox[{
    ) o* J7 A: d6 s4 b2 W4 {  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 7 L$ G6 R! Y2 Q$ g; u# o4 F/ h
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    8 S0 u! V8 F' u( j9 o    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",   K: e. [9 @# d& s2 C
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", $ D! z7 B( {* ?
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    4 V4 e, K2 @6 d% }3 x) z   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 4 O% `* [5 d9 H# P% s- r) q! `6 R
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",   w' ~  e7 b# x( W' o* d$ z
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 8 G: c9 Z  @8 R$ r: @. G) Q6 }
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", * [- Q& ~( A; C) N& o7 x2 s9 Y
       "0.48531711328591953`", ",", "0.48531711328591953`", ",", 6 t9 w+ \  d; \
       "0.45086352166650845`", ",", "0.36421192417525217`", ",", . z; J1 g, k8 G8 u+ o8 F1 U; R( p
       "0.4285207742559556`", ",", "0.4712694272667811`", ",",
    : g/ ~! T; Y; P9 T3 ~   "0.5257533056184786`", ",", "0.4862065814071623`", ",", % `9 f$ ?6 S+ ^9 H
       "0.41106838915592014`", ",", "0.5486894206610683`", ",", , g: T* g5 `5 q$ n! c
       "0.007731168540073532`", ",", "0.013872406140339166`", ",",
    1 p: [6 a* z& S% `   "0.3956995051659565`", ",", "0.3663118256142717`", ",",
    : _3 ^2 k2 z% J7 K5 X   "0.29094217358055185`", ",", "0.5453093690736568`", ",",
    . r, a- V9 Q' H& x8 r4 e! x   "0.4413889888077799`", ",", "0.42944922031163585`", ",",
    1 k0 c* X# `+ G   "0.4309289055674891`", ",", "0.5942402821739983`", ",",
    3 Q: M0 `; Y3 G2 K3 G( q9 b! x) l% v   "0.33004609078545805`", ",", "0.18938658036630632`", ",", ( P2 v: K. A$ g* H- M5 m
       "0.4263720292858688`", ",", "0.23377136184738778`", ",",
    1 o1 G+ }1 `+ m   "0.022328581933099827`", ",", "0.24436420008426807`", ",", ! \( K9 D% M2 Y/ r8 P
       "0.5562383565309981`", ",", "0.13114103402954314`", ",", : I/ C% X. \% k1 R
       "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]], "Output",/ W; w" j/ N+ v; u
    CellChangeTimes->{3.5779593961191735`*^9, 3.5779594268512273`*^9, 2 x" O; c" W: ]! x6 f
      3.577962342060174*^9, 3.57801245340625*^9}]
    $ N8 E+ H7 _8 L" Q( y* G}, Open  ]],- \+ G9 Z: o, D& V

    / \4 c& T$ R1 J! ACell[CellGroupData[{. D, i6 L2 h9 C5 G

    6 f# e% O; x# P& xCell[BoxData[- V+ T, }& [+ T! x0 i; s. m
    RowBox[{"y20", "=",
    6 B% Q3 O5 U) d  RowBox[{"Table", "[",
    ! B( G5 c5 ]9 d. o$ E$ a   RowBox[{"x", ",", % G- S. ?$ K6 `+ B( I3 ^5 k+ E
        RowBox[{"{", 2 `7 O; R- E! |3 S
         RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",! x% a2 N9 o% O3 }' ~4 Z' Z
    CellChangeTimes->{3.5779253628125*^9, 3.577958351198152*^9}],
    6 O* E& |9 e. |* r1 Y7 A, A& S6 W
    ; `/ F9 L, Z0 N. G0 CCell[BoxData[
    $ }" Q! |8 |( F" } RowBox[{"{", & T# W5 x' v4 Y) i! d2 ?7 E
      RowBox[{7 Q, u9 H' B& ?- x3 I
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 5 V+ q1 l! z  s( I+ W/ w
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",4 S1 N. G5 z7 Q) r, {1 k
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", + o! F% r! p/ S; |: G
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    ) x1 r6 `' R& P: f   ",", "29"}], "}"}]], "Output",$ X4 B. C6 b+ x" I2 h$ Q! j; \, v! i
    CellChangeTimes->{3.57792536553125*^9, 3.5779583535225563`*^9,
    8 R, w. B1 Q5 n: `# g  3.577958515653639*^9, 3.577959053714177*^9, 3.5779623443065777`*^9, # U( K  M: Q. E) ^: [- a
      3.578012454875*^9}]
    + q# q9 b+ w+ I, O% b}, Open  ]],
    $ W' y# f  ?5 [& b* a, T4 c" K
    4 A5 M6 e+ @% B4 L9 B3 H0 z1 SCell[BoxData[& |! D0 r) w- t7 b" C
    RowBox[{"For", "[", ) p  ?( K1 [& ?+ g4 E" P
      RowBox[{( Y, w$ i& T( q- Z0 \9 |& Y; v2 W
       RowBox[{"i", "=", "61"}], ",", + b( O% f: F9 U
       RowBox[{"i", "\[LessEqual]", "89"}], ",", & V' k! N! e. U! `( @  j$ H
       RowBox[{"i", "++"}], ",",
    : X8 l4 q6 F9 ^( p* l3 F1 W' i/ Z   RowBox[{9 ~3 s, e: c& e, b; s# y( z/ {/ w
        RowBox[{"y20", "[", 5 f: J* N3 M1 ~* H) W1 W
         RowBox[{"[", 3 j' h# B" q$ c& D0 ~# H8 f
          RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", ) q/ y- ]% D+ v+ K9 y+ T3 f1 `' w
        RowBox[{"Data", "[",
    9 |* `% ^+ Q6 {4 `     RowBox[{"[",
    , [0 H: |" ^4 P9 h$ `/ B      RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",& f. ^. A" M6 l/ Q  j
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {3 |7 R' J* O4 @" r6 m
      3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, 8 T" Z& o" O; V9 ]
      3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, {
    4 H- H$ z/ E4 K  H+ o. S8 O8 o  3.5779583574225626`*^9, 3.5779583606673684`*^9}, {3.577959056849782*^9,
    3 X3 N/ [/ j) e: I5 F  3.577959058690585*^9}}],! M1 [* t6 r  z/ C* {& r
    3 |. h% C  G9 ~; u
    Cell[CellGroupData[{; p8 r5 N* s: O, j$ n9 d

    $ y! K1 \  [0 H8 e; MCell[BoxData["y20"], "Input",. c5 s3 e% p* g3 l
    CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {; h' n: A+ w, Z' w" `
       3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9, ; [' @; K6 i" g" H' a# |: `
       3.5779583657841773`*^9}],
    , N+ x& ?6 |1 i2 d$ O0 ]1 _2 J- I) N9 _7 {0 \: Z
    Cell[BoxData[$ b. N$ h5 Z2 ]1 q
    RowBox[{"{",   `& ^( h- `7 H  H5 W, k
      RowBox[{
    7 D2 |, }: b6 X: V/ y  "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", ",", ' T' v& F0 k7 f0 r% ]; O
       "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",", ; z' z# n. K* K
       "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",", 4 N& I2 P* P" H9 E; @$ d. y, q
       "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",", 7 ^& B& c! o1 t/ ]5 d$ Q+ E; ?; b
       "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
    & h& k& R( Y) w; X& C9 }& t  H) ?   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",
    6 k& p: g# m" [' W7 W# P   "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
    8 S! Z, B, P- k" \& p" `   "0.323944`"}], "}"}]], "Output",
    & Y2 J2 }  N. z8 `/ ]- r5 _ CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9,
    0 c4 c; w" ]* w% L: p  3.577925393046875*^9, 3.5779583678277807`*^9, 3.577958517946843*^9,
    / k" X& c  Z4 l% b; M2 @* {  3.5779590634017935`*^9, 3.577962347629384*^9, 3.578012456484375*^9}]& G$ k. C- B) P, \+ a
    }, Open  ]],
    * O# J0 o: L5 F' c) P) c6 m& x4 Z) J
    Cell[CellGroupData[{# Z2 X" Q& r3 S. D! L
    3 b- \: H. }3 P, Y, d
    Cell[BoxData[6 a5 y' {5 s1 s1 w! o; H* ]
    RowBox[{"y20", "=",
    8 J3 m; |* X8 ~4 _  RowBox[{"{",
    " y1 i+ J' G4 M9 z   RowBox[{% h- R( j3 }% A* ]
       "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", , t& c' Z9 i1 \6 c
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 I' @4 z2 H! G  @
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    3 m0 \5 N# x/ T, q, m/ ?- }5 u; Q- O    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
    ; r# H, [7 e  K( r5 \- z$ T    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    + {3 L0 r# J2 x$ X, b    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", 6 T* o0 d* q; z/ C: S& [, H% y
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", $ I0 g$ r. F( J: [0 X' J
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", + V: O" s  Y3 o9 }
        "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    # t% ~/ r5 G& ^) Z( T    "0.507042", ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", ! u1 p2 H  ~: q3 Q4 b$ G) {
        "0.338028`", ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",",
    + O3 K& ]% [6 S9 L" ~0 e    "0.408451`", ",", "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", ( c% D6 B7 j2 u
        "0.746479`", ",", "0.887324`", ",", "0.84507`", ",", "0.704225`", ",",   H& {5 e( n  c  z
        "0.760563`", ",", "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", 2 }# t! ?- T7 r/ S" Z4 f; E% B# `
        "0.295775`", ",", "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", 3 \7 i! z1 f0 e8 i" R/ E
        "0.732394`", ",", "0.802817`", ",", "0.746479`", ",", "0.380282`", ",",
    0 w& [4 c# G$ A9 B3 F    "0.56338`", ",", "0.323944`"}], "}"}]}]], "Input",
    . W% d- M9 b$ t/ { CellChangeTimes->{{3.577959534959416*^9, 3.5779595573142548`*^9}}],' x% f' K) S3 ~# j8 L7 i. ^
    3 X0 D1 ~. _( U2 h
    Cell[BoxData[& z- L9 m' z/ M% {" ^& i' j
    RowBox[{"{",
    0 ?1 i: T5 L& J6 n- y, V+ y9 c  RowBox[{6 c" |2 P& U6 U: m& `+ C
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 9 t" g! g$ u9 H! H
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    7 E2 j8 \) w1 A    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", % h/ L2 ?/ E6 s0 M9 L1 y, `+ E0 a5 U
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 7 o+ d- D- S  H1 s% ^, G2 `
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", 7 I9 k3 ]  Q" _% E! o
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    3 b! W$ t5 {6 S+ o+ f4 s2 S( s8 b   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", : B6 i, |; S9 Z
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", " V" g8 |" u9 ~6 `9 k
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.507042`",
    5 x2 B  I8 v3 l% e; Z   ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`",
    1 W# ~& \* _! }7 @& w4 `$ S   ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",
    ! o9 w9 f5 I* n, S    "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",", " q' O; A6 J. x, M1 E3 F- d/ y' n- Y
       "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",
    . r% r6 x" i9 u$ e2 R, K   "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
    2 W' r: o9 e! t1 H/ N9 \3 m, \' H: `   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",", / Q  {6 F. `! D. \/ a4 [8 t' V
       "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",", 2 r: t9 U0 l. c! g  {6 `8 K3 Z) ^3 C. d5 M
       "0.323944`"}], "}"}]], "Output",
    - y6 b, |9 O. b) U, Q' ~6 r( _* d+ S CellChangeTimes->{3.5779595594514585`*^9, 3.577962351778991*^9, & D7 w+ k+ V* Z$ i  i# Z
      3.578012457234375*^9}], N1 S  G7 U  e- U1 N
    }, Open  ]],
    ' q& ?) }, O/ t3 ?) ?1 K* v& T! t  I# [3 x
    Cell[CellGroupData[{
    - }% C# f" ~# Q! [7 Y% v! y. @  C" l7 P2 C0 a
    Cell[BoxData[/ ~) Y$ Q; F) Z$ J$ h
    RowBox[{"p2a", "=",
    : R$ _# o7 Y" y( y6 H3 I( y  o( F  RowBox[{"ListPlot", "[",
    , W$ e0 v8 D. I6 P* l7 m% u   RowBox[{"y2fit", ",",
    8 Z3 i" f4 ~4 C! @5 h+ @  T    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", 4 B9 ]8 k7 }; g* b# _- }5 {6 W. s
        RowBox[{"PlotStyle", "\[Rule]",
    $ e9 D! t  g, c( y& h4 H' _+ K( T( y1 w     RowBox[{"{",
    / [  K7 p" P9 e" Q+ q      RowBox[{"RGBColor", "[",
    5 P  ?: N  U& X  l/ d. C- \       RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",", 7 p* Y& S: x1 D0 d0 |1 Z/ D; }
        RowBox[{"PlotRange", "\[Rule]",
    " ~' {. Q: d9 \$ H+ l     RowBox[{"{",
    . g) R+ t. Q4 c! |% ?$ u) G2 N6 I      RowBox[{
    - N" @( ~* W1 A3 ], O       RowBox[{"{",
    / N7 N% S4 Z' |9 h3 w( `! s7 l        RowBox[{"61", ",", "89"}], "}"}], ",",
    ) v1 a) \) W$ u6 w       RowBox[{"{", : Y  ^: {+ P/ l5 b
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    # K$ Y: ~' G/ S+ b' t    RowBox[{"AxesOrigin", "\[Rule]", % o4 ~) Q% E& w/ R8 Q. H% t1 O5 C
         RowBox[{"{",
    . v( o  c$ y# @0 @: I      RowBox[{"61", ",", "0"}], "}"}]}], ",", # D7 l! ?/ H! n/ Z; ~, I" G
        RowBox[{"Frame", "\[Rule]", "True"}], ",",   q9 ?. j$ E7 \4 D
        RowBox[{"FrameLabel", "\[Rule]",
    0 i6 z0 g1 t% b. P4 c! E6 O% m     RowBox[{"{", 3 Y7 ^. a% L7 E- V- I
          RowBox[{
    3 N5 F. O: u4 ^/ J0 O      "\"\<\:7089\:6b21\>\"", ",", 5 o' V7 {4 s; a4 N; d& [' r# W# r; N2 b
           "\"\<\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\. c6 p4 Q" H0 J; l# h( o0 v( n& L
    \>\""}], "}"}]}]}], "]"}]}]], "Input",0 B* }7 q% g' H" a
    CellChangeTimes->{
    ) v2 q- B/ g9 M  P7 B  3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
    * Q  p, x6 ~5 b   3.5779583712597866`*^9, 3.5779583781393986`*^9}, {3.577958536604475*^9, 4 v: m( j% u# I
       3.5779585491624975`*^9}, {3.5779592802577715`*^9, - P' i9 ^) X1 Z( k9 P
       3.5779593014270086`*^9}, {3.5779594039971876`*^9, : f2 y7 A. Q' G( R) ~* M: c0 x) l
       3.5779594059783907`*^9}, {3.57795949706695*^9, 3.5779595174717855`*^9}, {
    ) v% R8 Z8 J6 A9 L   3.5779604302529774`*^9, 3.577960442311798*^9}, 3.57801246978125*^9,
    7 a* ?- W0 a& r, L) P# l9 q1 j   3.578012920859375*^9}],
    , P* E; D! d$ ~! s2 j# T
    8 G0 S9 u3 K+ P2 J8 oCell[BoxData[+ _9 r& i+ @0 E( l' c. _6 s  A5 l
    GraphicsBox[{{}, {}, 1 [$ _2 }# G9 ?  o/ [
       {RGBColor[0, 0, 0], LineBox[CompressedData["
    8 O" F; C" @: T" V0 {1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM: F* K! k" V( G# i7 b2 O
    /g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
    : A) m4 t0 H0 u- R9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P
      |" D9 B: w$ Y7 u4 l5 @ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC
    6 w: {6 \: G6 T, Q+ eqPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK" q6 y1 U2 r3 c+ F! j
    1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
      M. u. p% C% g4 w( x8 G' u4 J0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
    7 L) F! j0 O( @2 d- w4 _sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH9 b" ]) L9 {- Y4 K+ K
    99yxuG0PAHw7nyU=
    , t8 X: M8 ~1 P& g1 ~, L     "]]}},* Y2 s! V4 }* ?. k2 |
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],) n% X8 b$ K, P3 C& U
      Axes->True,7 T! k& @7 E9 ]' L. t4 ]6 }# i
      AxesOrigin->{61, 0},3 B7 E& o5 o, K+ x4 Y6 d/ p
      Frame->True,
    $ j7 e* p! b" R) p: W+ L  FrameLabel->{* @0 i2 Z- f) \
        FormBox["\"\:7089\:6b21\"", TraditionalForm], 1 C# y0 g* A- l/ q: u
        FormBox[+ ^' y" C4 f$ {1 `
        "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"",
    2 K) `/ T, ]# q5 {4 x* N* P     TraditionalForm]},5 h# U* l3 \, Y6 _/ R/ _
      PlotRange->{{61, 89}, {0, 1}},
    0 \! z9 N( S* u. }  PlotRangeClipping->True,$ r; ]# u$ I0 r
      PlotRangePadding->{Automatic, Automatic}]], "Output",
    ( n( D6 [9 t6 r* P4 P5 c; F/ z  ^ CellChangeTimes->{& Q9 O* S7 g' k& ^( T1 R
      3.577925144625*^9, 3.577925396578125*^9, 3.5779583797150016`*^9,
    2 m" G( H6 i9 Q/ H   3.577958519990446*^9, 3.5779585510813007`*^9, 3.5779590670678*^9,
    8 h( t' X  K6 u- H! f   3.5779593035642123`*^9, {3.5779594075383935`*^9, 3.577959430158433*^9},
    " f/ J0 F/ N) _: i" g* l   3.5779595184233866`*^9, 3.5779604438874006`*^9, 3.5779623548833966`*^9,
    % c- g. F2 I3 @- @7 H0 `# ?* A   3.57801247209375*^9, 3.5780129225625*^9}]8 g7 \7 N) @7 O1 v5 t3 f- Z
    }, Open  ]],8 M' l0 E" R& p% W

    , y0 ]) H. @0 @: W) ^, h! HCell[CellGroupData[{, N/ j# O) Y8 [

    5 @- S0 Y; e1 T! DCell[BoxData[
    # P- R% s" l) o RowBox[{"p2b", "=",
    1 ^; b# \/ w& V$ @  RowBox[{"ListPlot", "[",
    1 P2 a0 M. u" D4 B4 W1 C6 o   RowBox[{"y20", ",",
    ( }! Q* p% s& o  o2 c' }    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    ' `  |% ~2 @- ?    RowBox[{"PlotStyle", "\[Rule]", ' n: u; z: |$ U0 ?, z& i
         RowBox[{"{",
    # D0 P) x9 L3 H  V      RowBox[{
    7 u7 T! c+ w. Y* }' j& |       RowBox[{"RGBColor", "[",
    " @# F$ M' ]. t  S        RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}], ( P) c" O5 p  h
        ",", $ Y; @, ]. T' r% I
        RowBox[{"PlotRange", "\[Rule]", & z/ [" c' [5 S7 z* M4 p" C$ ]
         RowBox[{"{",
    3 |+ b* T( }  \* Y% Q  d- `6 @1 X      RowBox[{/ u$ ^8 x3 f4 l$ d( V
           RowBox[{"{",
    8 N# e' q* R" d3 L( n& E        RowBox[{"61", ",", "89"}], "}"}], ",", : f+ h4 A2 B; |7 k
           RowBox[{"{", 2 }4 U- x! R2 F8 L
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    0 T. D. N6 x% M. \2 v/ o    RowBox[{"AxesOrigin", "\[Rule]",
    0 j  m' }  L, W: G5 T! K$ e7 W0 ~! V     RowBox[{"{", / U2 Z: w2 \- c. z
          RowBox[{"61", ",", "0"}], "}"}]}], ",",
    ) P! z9 u/ n3 e' t" R: Z! D  t    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
    % s% T6 z& _! ?1 z CellChangeTimes->{5 g- [: `: n! V& U
      3.5779253991875*^9, {3.577958382429406*^9, 3.5779583843326097`*^9}, / V6 o  S6 @: L' D  E
       3.57795855655691*^9, 3.5779595724462814`*^9, 3.57801248346875*^9}],
    6 E8 o' ^% @* u8 g4 W2 {& B1 k
    Cell[BoxData[' Q* l# C# g2 Q. s
    GraphicsBox[{{}, {}, 9 g2 V9 e5 [! }; X% h) D9 x* @5 u( K
       {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["' r" h$ q5 q% D& o: \
    1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn* e+ p4 s( d6 Z
    8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
    ' a1 z  ?& J0 K1 S) Kc/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc5 d% ~! V/ s5 @. x2 z
    iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk49 l: E! i4 I& V" }# ?1 P) A9 {
    TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
    , z8 y; @8 ?/ n* OfzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB9 {6 n9 n) ?# S/ s. T9 W) S; @* L% y
    TWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG' N1 Q2 Y1 |! M6 A' |% B
    p0OYg4Fg/tz63VfsAdsCnzU=
    / u5 h& ~( X8 A% _8 D     "]]}},5 H9 L# l  ?* ~$ N9 n
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    6 u$ y9 r3 m4 K: C7 s: m( |  Axes->True,$ D$ `! Y- z: q- S5 w
      AxesOrigin->{61, 0},6 O4 D- J; j! N+ Z$ ?
      Frame->True,
    0 L, b! S4 g* r3 Y. L# g$ x  PlotRange->{{61, 89}, {0, 1}},
    4 r: ?: \) N5 ?9 J5 k  PlotRangeClipping->True,
    7 C/ v3 V. n+ _  PlotRangePadding->{Automatic, Automatic}]], "Output",
    5 q6 g4 U; ~" ~3 o! q+ {+ T8 X CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
    ; m# ^' l$ H: ^% g0 h2 |  m  3.5779583861890125`*^9, 3.5779585219092493`*^9, 3.577958558132513*^9, * `" v( l- _2 m) p: D0 y
      3.5779590691114035`*^9, 3.577959577906291*^9, 3.5779623569426003`*^9,
    0 `1 X7 w2 M) ^& M  3.578012484703125*^9, 3.578012925875*^9}]
    6 v4 z% h; N% a; i) ^}, Open  ]],
    # H/ t- [" F' v# w) R  y: [
    + A/ a9 ~: x$ _- ~1 z9 d8 ]Cell[CellGroupData[{& w, Z9 b# j- d' Z+ Q) Z- z, h4 |

    * r0 Z# Q( C9 y& P4 p% E6 OCell[BoxData[" O- v. t. Y" \1 R0 h8 z
    RowBox[{"Show", "[", 8 @- {1 A. b3 n  W: F1 B% d
      RowBox[{"p2a", ",", "p2b"}], "]"}]], "Input"],
    1 _- n, s4 {$ U$ O: ^- M( p0 R$ p* B6 G3 j2 z/ y- z
    Cell[BoxData[
    1 J5 {$ p. ^! H GraphicsBox[{{{}, {}, 2 }6 p1 ~9 @- b: |+ `
        {RGBColor[0, 0, 0], LineBox[CompressedData["
    ) E" @. O4 o" p. |! b+ c6 G. T1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM; S; l8 q' c1 K
    /g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
    " K3 |# F& Q# j" @% k3 L9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P9 n3 c  X7 d6 W( w9 u4 _7 d  a. A- `- _
    ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC
    & @  Q( M1 O5 m6 D: zqPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK# f  E& N1 |2 W. m9 u, e, M) U0 B
    1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
    / k7 _* U9 U( N0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
    1 N- F$ `6 Q) K  n; H) _9 Q" fsPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
    9 [: z% u; J- ?6 q4 z1 @- k# ]99yxuG0PAHw7nyU=
    ! r0 J7 C1 {9 T" Y' i      "]]}}, {{}, {},
    : T6 F& y1 c- w. z3 t3 Z& q9 V    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["/ ~/ \2 s, r5 d: k5 K& \  G
    1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn+ U5 U" w0 }5 w0 D; y$ P& i$ ]
    8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV7 s# D5 g7 n  }5 @* `) G
    c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
    4 ^+ k2 }9 s. k, {iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
    $ R% v0 @6 A# d* m0 x( j( zTZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
    ' U+ M0 a5 E; x( i3 CfzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB9 }: Z- b9 e+ X5 j8 m, A
    TWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
    4 B( g8 n! e9 h0 G; I6 c# Up0OYg4Fg/tz63VfsAdsCnzU=- r9 U1 p2 K* a/ x
          "]]}}},* S- ]! ]7 B& x& a1 D& E; v/ ]
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],  h+ t4 a2 [+ g& X" `+ u: b
      Axes->True,( J: B% G) @7 p
      AxesOrigin->{61, 0},9 `6 B8 O# t0 }* K* s
      Frame->True,
    7 Y0 r+ l2 ]7 i- v  F  FrameLabel->{7 o/ P: Y: d- r; G' C* D5 |: T
        FormBox["\"\:7089\:6b21\"", TraditionalForm], ; B* n# F7 |' ~8 I+ I6 e
        FormBox[6 z: o6 W+ r6 ~2 c( t, M
        "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", + R/ O) N* L2 H( y- W9 G+ ~0 a) o
         TraditionalForm]},4 I5 @7 \* R/ _% l4 \) q" j; l% k& l! W
      PlotRange->{{61, 89}, {0, 1}},
    8 N) w& F! p  g8 D! n  s  PlotRangeClipping->True,. a1 i1 k/ N$ i2 j0 E' G
      PlotRangePadding->{Automatic, Automatic}]], "Output",7 a8 f' W& ~# x' t5 h
    CellChangeTimes->{3.5779623624182096`*^9, 3.5780124863125*^9,
      o2 V. T; ?1 a  3.578012927734375*^9}]
    1 h0 n4 W& B7 q7 q3 g5 f& E. z* ?}, Open  ]],
    , a' x" D2 ~; l1 H& d3 S
    ' n# d; M5 G+ }0 k5 y, }! K% bCell[BoxData[$ w6 W" t9 ^1 f
    RowBox[{"\:ff08", ) L0 c, w! z$ U; Y7 o" ?4 X
      RowBox[{
    2 a( t, V( q  a8 R% n& r  "\:5df2\:77e5\:521d\:59cb\:94c1\:6c34\:8d28\:91cf0", ".7406", % m  x6 u9 a* f4 B) c0 _
       "\:3001\:5e9f\:94a2\:8d28\:91cf0", ".4621", " G, P0 T$ q* i- n
       "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea60", ".5208", 1 i; R5 Z& t/ F6 y& T3 b
       "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:542b\:78b3\:91cf0", % u9 k( ~8 V! a8 I6 w  E  _+ C- P, Z
       ".2221", "\:ff1b\:76ee\:6807\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\
    " m( o, V. i3 i6 \; d4 g\:4e3a0", ".6224", 4 a) s: N( r1 W( G) I
       "\:3001\:76ee\:6807\:94a2\:6c34\:7684\:78b3\:542b\:91cf\:4e3a0", ".2521"}],
    ; ?% m; m4 b7 p9 Z* c0 v' V6 b1 i- O   "\:ff09"}]], "Input"],5 H$ Z. h8 v# s9 ?$ R" i

    0 P$ S- {! j2 i/ {% X0 M4 BCell[BoxData[+ i1 s9 k' |8 t7 e2 t0 @/ {- J* V
    RowBox[{"{",
    2 n# o% ?  \" a+ N, ?7 H% \1 K  RowBox[{
    . ~) D1 F- }% p- f8 \; H7 q  "\:94c1\:6c34\:8d28\:91cf", ",", "\:5e9f\:94a2\:8d28\:91cf", ",",
    / W7 C0 n! J1 Q- i4 b   "\:5439\:6c27\:91cf", ",", & g% G5 j7 Y/ P6 _" j# |
       "\:4e0b\:526f\:67aa\:65f6\:7684\:542b\:78b3\:91cf", ",",
    - ]# D' r$ Y% Y5 G! O   "\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea6", ",", : `3 Y: |1 x, k6 p3 D
       "\:5757\:72b6\:77f3\:7070", ",", "\:8f7b\:70e7\:767d\:77f3\:7070", ",", : _* ]' G( O1 ?
       "\:83f1\:9541\:7403", ",", "\:5757\:72b6\:767d\:4e91\:77f3", ",", 4 K$ ]" b0 K: U, z) J
       "\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf", ",",
    - b* O' V9 O1 Z" J   "\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6"}], "}"}]], "Input"],' H% Y* Q( f+ P/ z

    ! {" b, F' H8 Y7 q- D/ O) qCell[BoxData[" "], "Input",
    . D5 _& y' l. a( k6 I3 B- W CellChangeTimes->{3.577962834553033*^9}],( `3 ~# q- `3 g8 v2 i: N6 k' E
    $ ^' t5 ^2 ]* @, h9 V* N( J: L9 B9 b
    Cell[BoxData["\:94a2\:6c34\:7684\:78b3\:542b\:91cf"], "Input"],
    $ `& b$ j( R9 E- r3 c9 K' d4 O" l. l- B* A6 {* D* Y) k
    Cell[CellGroupData[{% ?: n9 @5 d* `) g* w

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

    ! d5 ~4 K; C% ^" b(* End of internal cache information *）7 }+ I+ G% f2 E  `$ `

    9 f$ s, d6 }/ w0 {! n- Y这个是用mathmatic做的神经网络，能导出最后的权值，就是可以写出表达式，我想用matlab做，却不知道怎么做
    回复

    使用道具 举报

    569646632        

    0

    主题

    7

    听众

    46

    积分

    升级  43.16%

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

    • 签到天数: 9 天

    [LV.3]偶尔看看II

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

    使用道具 举报

    9#
    无效楼层，该帖已经被删除
    -___        

    0

    主题

    8

    听众

    44

    积分

    升级  41.05%

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

    • 签到天数: 12 天

    [LV.3]偶尔看看II

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

    使用道具 举报

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

    qq
    收缩

    • 电话咨询

    • 04714969085

    fastpost

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

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

    蒙公网安备 15010502000194号

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

    GMT+8, 2026-7-28 19:15 , Processed in 1.422640 second(s), 106 queries .

    回顶部