快捷通道

QQ登录

只需要一步，快速开始

  注册地址  找回密码

数学建模社区-数学中国

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

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

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

1

主题

10

听众

296

积分

升级  98%

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

    • 签到天数: 75 天

    [LV.6]常住居民II

    自我介绍
    无

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

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

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

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

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

    相关帖子
    回复

    使用道具 举报

    兰秋小沫        

    0

    主题

    7

    听众

    31

    积分

    升级  27.37%

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

    • 签到天数: 7 天

    [LV.3]偶尔看看II

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

    使用道具 举报

    涳夢        

    0

    主题

    0

    听众

    1

    积分

    升级  20%

    该用户从未签到

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

    使用道具 举报

    冰E柠檬        

    10

    主题

    43

    听众

    1434

    积分

    升级  43.4%

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

    • 签到天数: 278 天

    [LV.8]以坛为家I

    自我介绍
    冰E柠檬

    社区QQ达人

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

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

    群组: 数学建摸协会

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

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

    使用道具 举报

    百年孤独 实名认证       

    3503

    主题

    538

    听众

    5990

    积分

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

    • 签到天数: 691 天

    [LV.9]以坛为家II

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

    群组: 2013年国赛赛前培训

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

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

    群组: 物联网工程师考试

    群组: 2013年美赛优秀论文解
    5#
    发表于 2013-7-30 20:56 |只看该作者 |招呼Ta 关注Ta
    问题完善一下！或者把代码贴上！& ]* r! d; E8 x' R* F7 T8 ?; q
    回复

    使用道具 举报

    琳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
    ; Y& \* ~$ j6 Q! H神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗

    - q0 v$ p" X: S(* Content-type: application/mathematica *)* t# c) x6 g) D
    1 S/ J) T% J. Z4 w
    (*** Wolfram Notebook File ***)
    + J9 g% W( u( O4 E) s- a) u  J1 z(* http://www.wolfram.com/nb *)' P  F/ `1 n( v, p

    0 h) @, r+ T% L# i8 f: h* G1 h(* CreatedBy='Mathematica 7.0' *)& @$ [% H. D( Y/ ~

    " _0 D2 s/ F" }% E(*CacheID: 234*)
    + e7 g: \* z/ `+ l) s+ b(* Internal cache information:
    , s1 O# J+ u: oNotebookFileLineBreakTest7 n* Z( O0 o; C4 ^, n! {+ y$ g, e
    NotebookFileLineBreakTest
    $ [1 q3 w* K6 I3 ^" J/ ]* N3 B4 hNotebookDataPosition[       145,          7]
    . _' X* i4 K9 I- ]4 K( X% eNotebookDataLength[    423629,      11534]
    4 }. ~/ l6 u  v8 A$ \+ L- x" PNotebookOptionsPosition[    412607,      11173]. j1 q8 Z8 M, T1 {
    NotebookOutlinePosition[    412953,      11188]9 a9 m4 o. k8 h7 @5 s- R; y$ b
    CellTagsIndexPosition[    412910,      11185]7 T* D+ E0 Y4 j0 b7 E0 D. F
    WindowFrame->Normal*)
    ; b  J( z3 z' x, d* A: X+ {7 c4 g6 R7 G  |  M/ i8 F; |
    (* Beginning of Notebook Content *)/ F% u" X5 X' U6 S8 f6 G( R
    Notebook[{, Z/ N; l" ^3 |: e/ B

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

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

    / P8 Q' t* D8 G. CCell[BoxData[, Q" u; ^6 O. B. S; c9 o
    RowBox[{"For", "[", " B4 D: e: m/ @  q+ e. S2 n: O0 f
      RowBox[{; O. n. h, [- \' x2 R) W5 }
       RowBox[{"i", "=", "1"}], ",",
    1 g1 i4 p7 {' ?7 n+ P6 a* s   RowBox[{"i", "\[LessEqual]", "9"}], ",",   a! X8 x# }: x/ y6 D- Q* O
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    7 z" z' p/ U+ J# K0 P* }" b0 s  V   RowBox[{"For", "[",
    3 @% n. \1 V6 P+ a) d7 _% K7 F' e    RowBox[{2 b6 Y, E2 B% Q$ N& d/ e
         RowBox[{"j", "=", "1"}], ",",
    7 `5 ^: o: x! O! `     RowBox[{"j", "\[LessEqual]", "80"}], ",", ( q' E2 f5 e$ k! M- v
         RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", # s' ^% z5 f8 W  w/ R& o
         RowBox[{
    0 E; g' ^5 [, t      RowBox[{
    : F0 H6 k& w1 e$ r' K9 g+ m* j       RowBox[{"CM", "[",
    1 p) @+ Y0 X. @9 L5 h; c        RowBox[{"j", ",", "i"}], "]"}], "=", "0.0"}], ";"}]}],
    4 \* F5 y( B; b    "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",
    9 q/ {: W; n. [! P0 L4 ?) s- ` CellChangeTimes->{{3.5779132504375*^9, 3.577913285203125*^9}}],, p; n. `! t; K: ~2 ]" u$ L

    5 A1 N1 O! o, Z1 yCell[BoxData[
    . {. B% [( l; J: Y4 E4 E RowBox[{"For", "[",
    5 o/ u) {' G# {$ q, t' m& v* U  RowBox[{
    # R% `) f  a2 Q6 M1 G   RowBox[{"i", "=", "1"}], ",",
    " b' R' q$ Z7 b6 }   RowBox[{"i", "\[LessEqual]", "9"}], ",", 8 D5 D, _! C0 N) ^* \
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 0 L( c) x9 A) ?  z" p  D
       RowBox[{4 `: P3 F  Q3 }7 o, ~/ ^1 m* V
        RowBox[{4 I/ a5 I( c$ }9 P
         RowBox[{"CM", "[",
    + e. s0 ?6 c2 m. Y4 ]      RowBox[{"1", ",", "i"}], "]"}], "=", % t) E( }" L8 C% I8 Q! y
         RowBox[{"Data", "[", 0 V3 ?. y+ c2 a4 l2 w; v) v
          RowBox[{"[", 3 j  j: _/ Y/ c8 n6 p" C% L
           RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}],
    % V% z) {# K" j" B7 d7 |  "\[IndentingNewLine]", "]"}]], "Input",# g% c% V6 v& I, y
    CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {  `1 U7 R! U" z2 m$ Y
       3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9,
    / t! z9 |) I6 P* S- G9 n% T" ^   3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9, 3 \6 T. s  ~7 z: U, e! S& C
       3.57791344209375*^9, 3.5779588070933466`*^9}],7 v" q# T& O9 c, h: q: H- z
    ; ~+ I+ w$ z; o6 f* }+ F1 e5 D
    Cell[CellGroupData[{# ~, y- `+ v( B6 S4 W8 i3 }- [4 m$ c
    ' X: K. Y  D' b+ g; j3 K
    Cell[BoxData[{  g$ A3 o6 G  b) n: o$ n' Z; c
    RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]", ! K  M. ]: H! M* d- c+ S* y
    RowBox[{"M1", "=", "1"}]}], "Input",$ t2 w7 t8 Y! y! J
    CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {% o6 |& M2 }7 Y5 y
       3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9,
    ; ^& |# \- V' Q   3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {6 x0 o( j7 I2 `/ U
       3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9, , V% z6 e& A  Z' f5 P
       3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {
    1 `8 r$ c, O3 t" c( u! ]4 F% C  L   3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {
    / `. n+ K9 d' e0 J. Z0 a+ Q* v   3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9, 3 ?. x; \( z; H& H
       3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {4 t% w+ _% B1 t1 x7 k
       3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {
    # _% `; Z, d! m: E6 x; r   3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9, 9 A) g' g# ^( Q# h. @
       3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],* y3 }  T4 S+ n* E$ l2 }5 s" a

    ( D" S! f8 T3 {8 `3 s# `Cell[BoxData["0.2`"], "Output",
    & k7 [) O" e3 A5 G2 T: `& I CellChangeTimes->{
    # w/ p: r0 X* ~" C  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,   ^9 `3 {1 p/ Q/ x8 [
       3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {9 I2 F8 e3 B- ]3 V
       3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, * c, L! v  k& _/ l% R" G8 k+ Q
       3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
    & M0 e5 C. k! B   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
    1 f4 [) ]( u$ f& z1 P   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {; l+ A/ I5 T2 z
       3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
    , T+ t; d7 b& |5 k   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {' t7 X- J% b: Z
       3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, - G- F+ T' r; O8 J$ H2 e
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, + T3 Z0 \$ h) N- e
       3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
    + |6 P& g7 X- A2 q" d   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
    $ ^# f! I: h) q! u4 R   3.577960510686717*^9, 3.578012149296875*^9}],
    / N5 \* I/ M  t! v3 O+ m
    ! c: D" o* v5 Y0 D3 \4 pCell[BoxData["1"], "Output",& {# k0 e! C* p% ?9 k* r
    CellChangeTimes->{
    $ V3 ~$ }9 a4 O, q  x, K- h/ Y  z  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,   J  Z8 A3 H; k+ F9 k
       3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
    - I2 H- D. {* I" V9 t& z7 ^" W   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, & t5 {& M0 Q: y7 a2 r
       3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {3 B. d* L2 B8 J) Y
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
    ) \4 {+ i; c8 B   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {& E4 A) M# E8 l- Y  W6 {" ^
       3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
    - S1 ~: O( o. \   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
    ( Y9 R7 d; {2 ^   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
    " \+ Y/ X& m7 d6 Y   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    # u! t' E. ^6 p/ t* z   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, 4 [1 ]- n- y! O$ D. U$ Y
       3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, - O1 X% U3 z* x" O5 }& D
       3.577960510686717*^9, 3.578012149296875*^9}]
    ( T) j" c+ o0 `  \5 b}, Open  ]],
    ) T. N6 Q, Y! J' s/ t! W1 |" ?) G
    + {+ z7 c" e2 {0 c' fCell[BoxData[
    $ u2 P9 t; r6 \, r4 R: u8 A RowBox[{"For", "[",
    ; f' ?* X0 u. U1 z' ]. `3 P  RowBox[{
    7 R* }( S$ |  m( b   RowBox[{"k", "=", "2"}], ",", 3 J' ?/ p. ~0 I/ i  f2 f; t5 U
       RowBox[{"k", "\[LessEqual]", "60"}], ",", 2 e* G6 @, V3 h6 s. o
       RowBox[{"k", "++"}], ",",
    - v' r8 i+ h7 Y: }   RowBox[{"{", "\[IndentingNewLine]", " J2 \+ @2 F+ f6 ~3 ^% a' s1 S
        RowBox[{
    + {3 q2 g4 H5 i8 y# ]+ p4 |: r8 e     RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]",
    5 u. j$ J: L: Q8 z, i, J+ g0 D     RowBox[{"For", "[",
    " V& y- H- Z  S: a8 b3 E' x      RowBox[{' _! H" v# @1 }- ~& m
           RowBox[{"j", "=", "1"}], ",", & I9 ], c& t) A6 c" w
           RowBox[{"j", "\[LessEqual]",
    ' q8 @, h6 `5 p9 T( k        RowBox[{"k", "-", "1"}]}], ",",
    ; n0 L4 n8 k& c, y! B( M       RowBox[{"j", "++"}], ",",
    / C, {6 p! B9 l6 m* r       RowBox[{"{", "\[IndentingNewLine]", ! f. m( ]+ A! E' z
            RowBox[{
    9 b( U( `2 j- b% }         RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]", 7 b' a$ j: m6 I
             RowBox[{"For", "[", $ n1 \0 w/ ]! Y+ q' v# K( ^
              RowBox[{
    8 S$ S; c: t0 k# h# c           RowBox[{"i", "=", "1"}], ",",
    0 X1 K+ i" I% z& S: ~% M           RowBox[{"i", "\[LessEqual]", "9"}], ",",
    , L" U1 v% U) s# k0 b0 H: e! }           RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    2 X% d0 R5 [+ \! X           RowBox[{/ {, y; @4 N, c) }
                RowBox[{"r1", "+=",
    * _( o' ~2 y) v2 V0 R4 A5 \             RowBox[{
    - }: B& h9 N3 D5 t! e              RowBox[{"(",
    + ]; `' \5 K# |5 A/ E% z2 N               RowBox[{
    1 Q) Y0 \6 U+ u; q                RowBox[{"CM", "[", % g! ]- I$ b# w! g% c
                     RowBox[{"j", ",", "i"}], "]"}], "-", # F# }: V9 U3 ^$ `
                    RowBox[{"Data", "[",
    ' Q. g9 a& ^" L& o                 RowBox[{"[", + m+ F1 I: @- i
                      RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
    2 B' |5 A6 E/ H              RowBox[{"(",
    ( @* M& x/ t/ U5 a9 {' D: v               RowBox[{) D2 w6 s" P. e, G6 I' y" ?) r, F
                    RowBox[{"CM", "[",
    # m  ~+ W% B3 {4 H; L' H' S                 RowBox[{"j", ",", "i"}], "]"}], "-",
    / g/ E7 N! C& k' Y6 m                RowBox[{"Data", "[", ) a- p0 ?! w! T8 M, ]
                     RowBox[{"[",
    * z6 ~" f* S+ `& t1 g                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],* p6 U3 F: K8 ]0 C1 ^( D) Q" T( X( X
               "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]",
    ( M! ~, W6 Y# W( @  e/ Q$ U         RowBox[{"r1", "=", ' B) Y4 c8 O8 J, z
              RowBox[{"Sqrt", "[",
    & c; @1 Y2 d+ x: ^3 ?" x' Z           RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]", - V. ?" D- N- Q4 Y; C) f9 _
             RowBox[{"If", "[", " ",
    & s3 o  v1 k/ @          RowBox[{
    2 E3 r2 ]" \& @5 i3 Z6 M           RowBox[{"j", "\[Equal]", "1"}], ",", $ F8 W& f: H8 r& E
               RowBox[{"rmin", "=", "r1"}], ",", 2 Q9 X' U# k* X
               RowBox[{"If", "[", 9 |0 W. T8 y- ], F/ E9 O
                RowBox[{
    6 k% d/ x4 ^3 P             RowBox[{"r1", "<", "rmin"}], ",",
    9 ?; Q- m* r  z' l1 W, U% e             RowBox[{"rmin", "=", "r1"}], ",",
    8 D" U% A7 `8 a' N0 P4 w. Q3 N8 Y3 Y# Q             RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}],
    # a; j( l' w9 _- S: p        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";",
    . B3 x* L8 @1 V7 d2 l0 k     "\[IndentingNewLine]", + ~% u5 L1 ~5 x! h2 c% Z
         RowBox[{"If", "[",
    3 h  e/ B3 c0 T4 B      RowBox[{. i5 B2 U( n" u! D) F6 t3 M
           RowBox[{"rmin", ">", "r0"}], ",",
    ( a# I, j# m/ ?5 j$ n. o       RowBox[{"{", "\[IndentingNewLine]",
    8 f6 V; T* m, }/ Y        RowBox[{+ q, v& r( F; g" I1 m$ ]( n# p! Q0 L
             RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]",
    ; ~: G! n! M' n- g4 \         RowBox[{"For", "[",
    # H$ |9 y1 a8 b$ c( _2 X          RowBox[{
    + V% z) y! I4 u/ b& }           RowBox[{"i1", "=", "1"}], ",",
    - B( N2 M) L) G8 h           RowBox[{"i1", "\[LessEqual]", "9"}], ",", , ^" E2 r6 [1 G& h
               RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]", 6 q/ z3 J% s; d4 {8 Y
               RowBox[{) S/ ^$ g1 H. @. Z8 g+ r, `. R2 r
                RowBox[{" E5 J/ {% E& B" ^6 q6 m& @
                 RowBox[{"CM", "[",
    % {& C4 d2 ?. I* p! v9 k% E4 |$ Y              RowBox[{"M1", ",", "i1"}], "]"}], "=",
    * \8 q0 U$ D- F6 x. H6 Y* J9 H; g             RowBox[{"Data", "[", 7 [9 [5 T( s( o: z7 u& ]
                  RowBox[{"[", ) Y1 V& E- e6 J' g$ ~
                   RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}],
    * r& P8 w$ [4 c2 }4 Z& b          "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",", ' r3 J  g, ?- J$ H
           RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}],
    / W7 x% l" ?5 d1 {0 ]    "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
      b7 |2 v7 G- {; M CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {; E! E* F7 u7 n# i7 @# V6 d
       3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9,
    3 e. |4 F' I& ?6 Q/ j: e   3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {
    & \0 c) g# S: L" ]2 v1 t   3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9, 1 H7 \: ~  Y% l) Y" n
       3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {
    , J# m5 y% I" m5 V5 v   3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9, 2 a( G: ~# z+ B, U* z' ]0 r, v
       3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {
    4 ^/ w8 K. K- O8 D( j   3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9,
    , h  z2 Z+ A% t2 E   3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {
    8 z* b  G+ ?" d6 A9 z) _   3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9, # V3 ^4 _4 P* N; b* d4 L
       3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {7 w" [  r8 u1 |8 }
       3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9, 4 T6 p! F; o/ h% P& Z
       3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {# k7 N( Y/ x! p$ z! {2 n
       3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9, 3 |% [5 l- U, k# ?
       3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {8 ?  `6 J/ ?" e7 s. h( ~9 r
       3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9,
    6 R8 C3 _; ]" {/ o& {7 Z6 \" n* o   3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9, 4 n9 W0 w- X  r  E' z$ Q+ K% a: b
       3.577958821991373*^9}}],
    - m; W5 n/ V$ X2 m  c
      X5 A9 M( e+ N1 [# ?: Z1 U6 nCell[CellGroupData[{
    % P) B; k& D# G2 o% M. B- N& {( I9 P* T' {& g
    Cell[BoxData["M1"], "Input",
    2 V" E9 x/ k" @+ n7 `2 r CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
    & h2 ?/ z$ I" H% |# X; J# s
    2 E& s- n! E1 g, x) b2 ]0 RCell[BoxData["21"], "Output",
    . c, O4 V% `0 @ CellChangeTimes->{
    8 ~9 Y( y3 M. J; l6 Y  3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {
    7 G, f" h9 i2 }$ Z1 I   3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9, + p) g7 O/ s  j
       3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {) G1 t/ M" X' G, V7 [4 X
       3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
    : T3 v& f2 J) B   3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
    5 ]' r0 z2 N$ D* A) j   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9, ) G+ [( H, p' z9 u. u- B
       3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
    * m) R$ ^# s, ?: {   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9, ; ]/ u0 d5 u* Z" S' m/ ~; O
       3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9,
    & V) Q% _% _( ~6 O   3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9, * `( P1 Y/ P# m: P5 B
       3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9,
    ( x! ~# ^: Y0 C0 C   3.577960515600726*^9, 3.5780121541875*^9}]+ U& a: f  [& A0 V: N. q
    }, Open  ]],( D1 W/ R0 y+ b  k

    2 T/ q: c$ A5 h( X/ ACell[BoxData[8 x1 a* q7 m: c2 u
    RowBox[{
    # X4 X0 o) _3 }$ b  RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[",
    5 z8 W3 g! C2 {   RowBox[{"1", ",", "i"}], "]"}], ) }+ a. [+ G4 ~
      RowBox[{"\:5230CM", "[", 2 J$ R6 S: {& ]0 c6 y
       RowBox[{"21", ",", "i"}], "]"}],
    5 G( S. L; b+ S7 o# p- s  "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\# a8 ]: [, k- E. J# v9 h
    \:51fd\:6570u1\:5230u21"}]], "Input",
    7 X! ~1 D9 Y3 e* K6 S/ W CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {
    8 z) s& Y. Y3 c; o0 i% j6 V  w  3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9,
    / ^( n, c5 g3 ^9 d) f. P  3.577960526583145*^9}}],
    3 z9 O! b& s6 }* t+ e' ^4 H; e( }7 K+ i  [1 X% @, Z9 h2 L
    Cell[BoxData[: Y: q9 @! {, X
    RowBox[{"Clear", "[", "Delta", "]"}]], "Input",! l9 V3 D) B& @8 c. z
    CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],2 ]: F1 P" w2 M3 t! o5 w
    : b- N& }  Z8 S- R. J7 k( N
    Cell[CellGroupData[{/ K7 F, z7 G* t7 ~
    4 ?0 m3 L; ~9 o' |/ \
    Cell[BoxData[
    . D& f6 H9 I# o! @  F4 ^ RowBox[{"Xa", "=",
    8 H9 c; D, j! a5 o% A- s3 e  RowBox[{"{",
    ) l4 `" A) q9 B   RowBox[{+ L* o9 Y& t  _0 Z" S
       "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", , @% V& H' Y& b2 g" w
        ",", "x8", ",", "x9"}], "}"}]}]], "Input",
    3 {2 t6 _8 @; Q$ D# H CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],) m5 v- a% y$ k
    ( d+ g- w1 `/ {4 {- U  G
    Cell[BoxData[* ]  ]  [, l. _5 M, T
    RowBox[{"{",
    % I# {$ m8 n; ?( L  RowBox[{
      }4 E" D4 x( S/ _) Y- P0 X/ ~* h  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",& y% V, P, [% d* j
        "x8", ",", "x9"}], "}"}]], "Output",& y  c/ Z& G" e* f% U( i
    CellChangeTimes->{( N& c1 }/ N  t* i2 w' v3 U
      3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
      \1 M. b) b5 L! T   3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
    " w" C% M( D' B5 d4 h   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
    . Z& `5 ^% V7 ~& A   3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9, & C& T7 h) `9 O! V) a
       3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {
    # l9 l" z( ~) P4 H   3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9, : W6 v, m/ l" ]( F/ z* m- U- G
       3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9},
    ' O- ]/ h  I/ @# Z   3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {! k4 a3 ~0 O! j; r, c7 J$ C2 l% I
       3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {1 @3 j# a% A0 y" y( a0 m
       3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
    ! _; n( Q1 c' {7 T$ h   3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9}, $ w7 |0 N8 j& \9 F- D1 h/ e
       3.57801215725*^9}]3 T& C; b0 v* V1 K7 S
    }, Open  ]],; F2 h& }: j. _3 ?) o

    ' s6 Z' z6 B' A  ^! P  vCell[CellGroupData[{# T+ k$ ^3 S! {/ }3 z9 y) }: g* y4 A
    : }1 b" E9 f+ |
    Cell[BoxData[
    1 @4 C" m! w  m& \! ?) x RowBox[{"Ca", "=", ; q+ Y9 P' u0 `1 s1 S0 T0 @7 Z
      RowBox[{"{", $ @' Y6 H" s4 k2 y& F# J
       RowBox[{4 O) R7 w0 K6 Y' d
       "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ! b$ S4 T  e6 s6 i, b/ _( {
        ",", "c8", ",", "c9"}], "}"}]}]], "Input",
    , I; |& u$ ?1 h* J1 | CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],3 P5 t. C# ]# H  M$ d; C
    & |1 P. O. _: B% d# P
    Cell[BoxData[" L7 x3 \! Q# I" u0 t9 M4 Y$ F  m( w
    RowBox[{"{",
    ' _* X5 S) \; T2 R0 `" C- {  RowBox[{
    3 [# G% w4 C6 l& _  w  "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
    1 N  A# I* ^% P; G- m  E4 U    "c8", ",", "c9"}], "}"}]], "Output",
    + N% g$ Q' Q% Z2 x CellChangeTimes->{
    ( i0 |! W6 D( d: j  3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9, - d0 b4 {4 `) V# D& \0 I- ]
       3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
      U  O5 M" S$ E0 l: k   3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9, - P; H6 c3 z0 e8 `8 C% T
       3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {
    # o' |* o- p2 P  m: {# l   3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9, ( [( u" e9 B0 U3 q# [7 }
       3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9},
    0 ]0 K- q# c4 ]" E& s' [   3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
    ! a; O! p6 r. U1 O9 F: n   3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9, 4 M, n( V1 U" x( A, E" s1 i" a: ]$ k, _
       3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
    * |2 B, m  `. f8 {   3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {- D& O6 E% B, n, e
       3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
    . ]+ o+ }- l7 E7 [& U% p   3.577961904604212*^9}, 3.578012158671875*^9}]. X; N: y% g7 ^+ A! x, d6 Z: F. }, B
    }, Open  ]],- a! N( O$ z" ?* s7 T! F/ @
    - r0 p* Z! H, X
    Cell[BoxData[
    / A+ R/ d: S' B3 W& ^. { RowBox[{"For", "[",
    ; H: o* j4 g0 V$ g' b  RowBox[{' u% a" q3 J2 L# K7 \
       RowBox[{"i", "=", "1"}], ",", . u3 {" d5 U& z: }4 `
       RowBox[{"i", "\[LessEqual]", "9"}], ",", 7 R$ a+ o$ ^( C; l
       RowBox[{"i", "++"}], ",",
    0 O- C2 L5 ^1 [   RowBox[{! d: H' ^: N  n4 p
        RowBox[{"Ca", "[",
    " i- V- I. I4 M+ J     RowBox[{"[", "i", "]"}], "]"}], "=", 6 \" q. m* ?0 \
        RowBox[{"CM", "[",
    4 D  y8 Z% V/ C$ z* X     RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    : W! j  q$ N: T+ M9 r1 T7 g' T% S CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
    ' P" S4 T8 R0 d/ y- J# M- g# e   3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
    ; J. ?) @1 ?+ S. K+ C  H   3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9,   u: I# P8 `! u# H
       3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9, 3 V9 V( E  D# u1 u0 ?- v
       3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9,
    1 C! R" b8 j& X   3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9, 9 {( O& A% u% |! ?
       3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9, 0 }8 N' h* g  c
       3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9, / Z, G' D  V" f" M) T* Q' f0 |
       3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
    ! ~/ u6 i6 l) G, D2 T  C$ q% W   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
    8 G6 O, m! w& R, U   3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
    , |; O. S( t. B; h3 N% d" P3 D7 A   3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9,
    ! i5 J/ B. o9 l0 A4 f5 R5 @   3.577961906897415*^9}, 3.578012176296875*^9}],
    0 J+ E9 T6 u* J3 M6 `
    7 o! @$ O4 D: G3 k& }; d& DCell[CellGroupData[{
    0 s7 D- U7 W2 v: `& X
    * ]' z. J1 W$ |( R- hCell[BoxData[/ X  n$ `5 w- B( Z* _; f, B
    RowBox[{9 y- q1 j' v9 g8 T. O3 ~! K
      RowBox[{"(",   @6 c+ V$ R" ?6 l
       RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 1 i+ A4 A4 w) s( `" s5 [
      RowBox[{"(",
    7 ^2 x1 K3 K& h! r, C   RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],3 P! i: I- x" F% V, j' C2 x& [" ~0 Q9 N

    6 b% U5 J) Z4 F" d+ ^Cell[BoxData[
    5 Z  q- i: L# e RowBox[{3 s; N2 c3 ^- ]" B8 t
      SuperscriptBox[% a/ [8 U+ ]7 s( V$ W
       RowBox[{"(",
    # b2 H& E6 ~2 o; P; R, s    RowBox[{
    7 |5 s# N2 c( H/ m) L     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+",
    * j  T. d# r+ k" e  SuperscriptBox[
    ) \( ?1 }9 {( X* m0 r) U/ a2 [8 [3 B   RowBox[{"(",
    : F; a/ H( O8 Z8 P' r4 c$ x    RowBox[{: s) m# ]6 \/ \
         RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+", 4 G, C: S2 N( J* W
      SuperscriptBox[
    ) i  ?  u7 `& _   RowBox[{"(", " Q5 o9 C* Y/ f0 R6 U( P% V
        RowBox[{( L3 a  j- m# A5 i  ?$ P
         RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+", " v$ n& }% Q& K; U. c3 T8 D$ @! q
      SuperscriptBox[
    6 Z4 M1 r) v1 N1 m   RowBox[{"(", 2 x; q- g1 D  j8 V
        RowBox[{$ @$ {  p% T, N' c" L0 g6 v
         RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+", 8 Z3 j# Y$ X  Z
      SuperscriptBox[
    ( w4 F! x4 a" m- n9 v   RowBox[{"(",
    8 t" ]0 C1 o  x& p. d  m    RowBox[{
    , \0 a( q$ q& {0 v$ \     RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+", & J3 ^- H  y# u$ v
      SuperscriptBox[
    + o- {/ f' r2 O' w+ @   RowBox[{"(", % A/ I, ^0 Q1 n& w
        RowBox[{
    ; X. `9 A$ N1 d6 l     RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
    / O% z( b6 _  C; Q5 T* s3 y6 W  SuperscriptBox[3 d# [/ X( p! {" l, Q
       RowBox[{"(",
    * J" j9 Q8 d0 k! q6 m& |' B9 u    RowBox[{
    . ^% }2 M% g1 N! m     RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+", 2 f; L1 L1 m" G% f! m
      SuperscriptBox[
    / E/ O7 W, W: D- n3 e   RowBox[{"(",
      U9 G7 o+ g3 H- Z8 p: e& W    RowBox[{1 }- z# J. E9 M1 u
         RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+",
    8 `+ F7 F7 ]3 N  j" |  SuperscriptBox[; d' w3 }: v5 h# }5 c7 w  \5 K
       RowBox[{"(",
    7 n4 c; S7 m, P" _    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",3 \7 D0 B0 O# _3 z/ L
    CellChangeTimes->{3 a  G- O+ w, B; ~1 X& U6 `
      3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, ! Y+ h3 O1 o! U  N0 `/ z1 {8 v
       3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9,
    1 k( r/ v# u; `/ W" r   3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9, 1 [7 d( B( Z6 [- X
       3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9,
      h7 u  r2 u& J5 j5 i* A( Z   3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9},
    . F, |- X6 `9 G6 K! n- e   3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,
    1 e& Q& x: c. f   3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
    ! p! r; E+ H( V& L   3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
      A6 g8 B. T$ ?; Z9 v   3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {
    ; }/ Y6 y! ~+ L' l3 ?   3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {* B$ N# `" Q' y0 y" [# X* I6 a0 ^
       3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9, # V6 q: r+ Z! A& J# M9 s. e
       3.5779618537169228`*^9}, {3.5779618846049767`*^9,
    7 B9 X8 f2 }" L. [   3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]
    2 C5 a, M% g0 B}, Open  ]],
    " a1 d% P+ V+ H1 _
    / _8 W& t; p. ]4 OCell[CellGroupData[{
    2 C1 A' l& ?. u7 b6 g; ?. w# c' ?9 A9 [
    Cell[BoxData[$ p$ I1 J) I: \( E! W, e0 @. \
    RowBox[{& N/ d* o+ f/ R1 u) W# C) z2 q. c
      RowBox[{"Ca", "[",
    / T5 V; h, m2 f, t9 ~   RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",
    ; d7 G1 N, p1 L- r+ x CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9, ( w% D' M1 k  Z: c+ ]
      3.5779616465173616`*^9}],9 {' u3 \  O' x4 \. K2 M$ @0 Z
    , d) I& \0 O, v& Q# i4 Z# F9 W6 C* p
    Cell[BoxData["0"], "Output",
    5 s+ l# ~4 g- J7 N0 j' o5 i0 n CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9, # p4 ~, i/ o* n" t- [
      3.5779616484049644`*^9}]
    7 V5 P1 ?( [8 |: A  I# r}, Open  ]],# q2 S: p* k( G" L* F0 S8 p$ n

    - G0 ?/ G' E! Z5 tCell[CellGroupData[{4 z. r5 o) {) l, x

    * ~; }; c4 e0 Y; O. ^Cell[BoxData[+ w$ }3 _9 n% u! w8 F; G3 z
    RowBox[{
    ) C5 W& z. C1 `/ y8 _) n8 p7 g  RowBox[{"Ca", "[", , i) ~9 t" J1 v5 H  {/ b0 q
       RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",
    % A" e8 R  }' Q  j- N5 A5 D( p" u CellChangeTimes->{3.577957376235614*^9}],
    7 N, _( f; e: p: i2 f6 P
    % `- j: r2 }8 s  [0 E& MCell[BoxData["0"], "Output",
    ! A3 |0 [$ D7 `/ d, c2 L2 c CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]
    , Q' J, D6 Z% P& n3 @}, Open  ]],
    . j6 y* f) T- w4 v2 K* y: c* n) a% N; t4 [  w) |0 X% ?. }
    Cell[CellGroupData[{
    + L# V3 Z/ u; |( G, B7 G& z" P# i7 B8 a3 X0 }3 `! q
    Cell[BoxData[
    ) G2 \/ c  r3 _0 y. g! j, _* d7 P; o RowBox[{9 z) I- j- h6 m
      RowBox[{"Ca", "[", 1 T# r: n; l  }$ q
       RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
    6 v0 B* i3 {) M. K5 ]' X! A CellChangeTimes->{3.5779573112927003`*^9}],6 _2 W' J$ x$ U0 F! v

    ! ^  ~7 z% m) w- r6 rCell[BoxData["0"], "Output",, q4 a& r, F* ]8 c
    CellChangeTimes->{
    6 [6 }% E" b0 Z, Z" ?$ q  3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9, + Y8 o+ o7 d1 i! d) \6 O
       3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
    , i! ~7 h( H6 {, k) Y. g& A   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
    , A0 S% r2 I" e" Y; y   3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,   l2 i  N8 R: W' d
       3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9},
    # e2 X( z; ]  A" ^   3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]; o* L! L' d  R/ [
    }, Open  ]],
    % Q8 c2 i! _* a# r! @% S8 {5 W7 L9 i, [' {4 C% U1 \; G
    Cell[CellGroupData[{0 _( k4 k) ?+ w% I) s; r

    1 g7 C' k! L9 ~/ nCell[BoxData[
    ! X' u. I' A5 o" ^/ ]) \3 w RowBox[{; ]) X' {5 r/ _7 ]
      RowBox[{"Ca", "[",
    / u9 _- Q% g' [/ K2 B; N   RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
    ( j8 z' }  J8 K$ z CellChangeTimes->{3.577921461734375*^9}],
    & j" V% }6 q! L  b% _4 f# g
    3 B! Y  g3 ]  G$ N" t7 bCell[BoxData["0"], "Output",
    / E( U( J# r& {- x1 j! \+ c* ?& H CellChangeTimes->{$ L- p  Z! W6 `
      3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9, 2 t4 J7 v0 ?% G3 E4 v# {0 }9 V
       3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9}, , r' U! d3 m# s) b! z: s, \: e
       3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
    2 V7 h) {( P% Y# g( Z2 e   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9, " [/ B2 g- ]1 r1 o
       3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]
    . X$ x. w7 F" `# O7 ?}, Open  ]],, @( H8 \( y% U4 J6 j( e& f3 m" S- M

    " ?) G  E  K1 j, @* [* ?" |" pCell[CellGroupData[{
    # U) e& J' W; L' j
    9 J* y+ \5 d8 _" I; {, J* G  j' N. ?Cell[BoxData[9 m, L1 {0 ~( h8 o" ?" [. b' k6 f
    RowBox[{/ \1 l: F0 F% e+ I% }
      RowBox[{"Ca", "[", ( U& Q1 c7 G2 l  z) x$ s  S# A
       RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
    7 ?! U1 j& v* @: r/ i2 A  v CellChangeTimes->{3.577957303118286*^9}],2 ^2 O& I% v" q, C4 q4 o* Y5 ~  K
    0 T( G, p0 n3 ^& }
    Cell[BoxData["0"], "Output",  N6 ^: t( M% W/ ?4 O
    CellChangeTimes->{
    " ~, C9 j, k4 c8 s7 E/ u& Y; G! g  3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {" y- t, }; @! I7 L! k( @
       3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9, , N: |: u* \1 q3 h4 V; }" m
       3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
    - e$ i$ y" N9 w3 y   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9, " U7 B& R" B  B+ H! |! }
       3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
    , |' v$ B- i0 e* c   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {3 g* t& \2 ]5 n  U& L
       3.577961889378585*^9, 3.577961912965826*^9}}]
    # J5 @1 ]- T, v- A) Q+ @( U! e}, Open  ]],8 S" r  t- \0 l1 o
    : i% ]9 S" I+ S9 T6 {
    Cell[CellGroupData[{$ d& h) M8 x& D; V

    0 g' P- W  b5 B  V) lCell[BoxData[5 ]. j4 `5 w$ K: s* l
    RowBox[{$ K: i7 K2 Q3 T) k8 u) L
      RowBox[{"Ca", "[", 1 ^7 v5 `% E; o5 u' ]
       RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",
      b% R0 A" F1 q( ?7 q: N& y, g CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {- s* {' D  y: H' t
      3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
    . ?* j$ W% z' U4 h) H6 p  3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {$ Z" p3 U8 L0 C+ U" e3 S- @8 m+ e# R8 f
      3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
      p; v* J8 G) e. Z% J  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {
    . z3 t& G  Q. O! A  g7 S( x% w  3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9, . w6 G1 U4 `9 w$ a& {# N" Q( c
      3.577921435703125*^9}}],( V  }. L$ F0 M8 N
    / _3 h( T  H# b' t$ L2 r+ g3 i
    Cell[BoxData["0"], "Output",+ f4 j0 {3 s' o4 G' r
    CellChangeTimes->{
    ) o4 F( @: c8 V8 A) K  3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {5 m" F7 s& V% p/ x$ z6 b
       3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9,
    0 Q$ }" m* \, |$ t( ~1 M# l% M   3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {
    * ?3 M2 O) V* E2 h3 d/ V( ~   3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9,
    8 ^: e) J# G8 P5 I; P& L+ G/ w% O   3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {
    7 v$ c# x: R4 |2 v3 E   3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
    * T7 t4 ]) C5 p9 R   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
    ! \) e( u' Q& f, S; q1 y4 W& o5 I   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
    0 E/ A) E" K; ]   3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
    . e1 ?5 u$ }. ?* ~   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9, ( h7 Y* O9 c4 ^0 b" ^: w3 n
       3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {
    " W& D+ h, b0 _7 g8 h   3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9, ! k" t$ k( d) R8 w3 y: Q
       3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]$ w" s4 |3 b: R0 X* i: m+ C& `
    }, Open  ]],
    - D; D) t! `: W. S/ s8 }. r& R* N, M! g6 J
    Cell[CellGroupData[{7 x2 {$ ~3 ?5 z* N
    2 l( H2 D5 f4 ?, }8 R
    Cell[BoxData[+ N/ q8 K3 T6 O- O9 m1 J
    RowBox[{"Delta1", "=",
      H) ]/ M: f. Q. S8 I; \% v( e  RowBox[{
    1 Y$ E3 n. b' o3 W5 X   SubsuperscriptBox["\[Integral]",
    - D0 X: k6 ^1 o    RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    2 `- T  s4 I. P/ E% z   RowBox[{; E7 x$ m0 f+ x. L, E$ O' @+ s) B
        SubsuperscriptBox["\[Integral]", 4 J4 x: d0 r. i
         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 0 c3 k' E4 M/ D: g8 R; d
        RowBox[{( `( e3 ^* F) P/ W0 n
         SubsuperscriptBox["\[Integral]",
    # E5 S7 x$ A+ ?1 O      RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], % s( G; p# a- M- }5 M
         RowBox[{
    " U: w; J3 H" q0 ]. h% \: j      SubsuperscriptBox["\[Integral]",
    + v! R( B5 M& K$ g; M       RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    1 D( F% }0 K  D' H! M      RowBox[{
    2 `  D5 }% V- @# y( I6 }- Y$ x       SubsuperscriptBox["\[Integral]",
    * D% g3 X1 \2 E, t8 a$ ]+ C        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    ' s5 O- [6 F: D7 r0 \       RowBox[{4 u* P# Y9 T5 b* r: J- _5 ]/ z
            SubsuperscriptBox["\[Integral]",
    3 }8 r* I, H# y* z: |: y         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ( \% a1 A) l" y# a$ g( f* E2 ^: d
            RowBox[{+ s' U( H' e; S4 D0 g6 k
             SubsuperscriptBox["\[Integral]", + m9 S4 g% P% Y) t: ~: ~2 J4 t6 Y
              RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ' ^  ?" u: _3 E1 q  t
             RowBox[{3 k9 a/ e6 h2 ~2 j* `
              SubsuperscriptBox["\[Integral]",
    6 z* o" z4 `6 R$ L           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 3 y( U/ S6 f$ }: y! a$ \0 c
              RowBox[{
    + I4 ]. j4 y# u4 T8 k% b* W           SubsuperscriptBox["\[Integral]",
    / X/ |% l" ^+ [& `3 N* P            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    5 b. `" E. c6 \* L           RowBox[{" S( ]4 ?3 ?! V$ z# ^4 k
                RowBox[{"Exp", "[", 7 W1 q; f) X. M
                 RowBox[{
    2 O& R8 M2 Z, d" T: {, t              RowBox[{
    $ P7 K3 r- D7 v; J3 s* d9 v               RowBox[{"-", ! T, p8 j, }+ X) B8 i( s5 D) s
                    RowBox[{
    0 Y$ Z. I6 z6 `( B/ e9 ~3 `0 o7 t; P                 RowBox[{"(",
    " q, u- v; @, k8 n/ z                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".", " u) D) e* ?) ^; X* _/ Q
                     RowBox[{"(",
    & G1 N5 U0 A) b8 m! u                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
    8 g2 G' ~3 W9 h, S* \$ Q# z              "Delta"}], "]"}],
    ) H+ V: N% R/ x5 I# C" L# s            RowBox[{"\[DifferentialD]", "x1"}],
    / A( o( S* ?- m, O            RowBox[{"\[DifferentialD]", "x2"}], 3 W& a" z1 B% s( J
                RowBox[{"\[DifferentialD]", "x3"}],
    ) e/ @; I  s( _% [6 v8 n' y            RowBox[{"\[DifferentialD]", "x4"}], ' c! r) D8 g& Q. M, i
                RowBox[{"\[DifferentialD]", "x5"}],
    & t* G" A( C4 u/ B            RowBox[{"\[DifferentialD]", "x6"}], 9 l' J% V6 Q5 B
                RowBox[{"\[DifferentialD]", "x7"}],
    & N0 {  O/ r7 M            RowBox[{"\[DifferentialD]", "x8"}],
    7 w: ~" X5 g$ k$ ?8 Z            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
    ) r) @4 M6 G, J: f' w! a" n CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {# a6 e: J: C: v1 d+ y8 j
       3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9,
    % @7 r2 V) t: F; w1 j6 E) ^/ O   3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {7 w. k) ]1 U$ u. b
       3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
    6 w4 s3 \) d: z% p   3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {
    - n* `4 P+ f, ~" e   3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9, * [' G1 C# {: @
       3.577918964453125*^9}}],
    ( ?# A3 Y' s$ W* [! W+ t0 T; c, y4 z" R7 W1 p
    Cell[BoxData[
    & N* z) q5 d1 R4 B& R RowBox[{"97.40909103400237`", " ",
    ; B# R3 a) Q! |: g* _7 T7 e7 t  SuperscriptBox["Delta", "8"], " ",
    , _2 \3 I( f! R6 \  V  RowBox[{"If", "[",
    8 g. a8 q6 g( p( Z/ G   RowBox[{
    $ R& R5 h" a! \    RowBox[{
    - `0 a; T& F  f4 C2 D; E     RowBox[{"Re", "[", 4 Y' s/ M* Y# p' Y/ v
          SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
    : x% X- E8 t1 L! S/ F7 n    FractionBox[% y8 }4 y$ q# c' I
         RowBox[{"1.7724538509055159`", " ", 8 }( c1 F. D6 t. A) L6 `
          SuperscriptBox["\[ExponentialE]",
    % @  F- e1 O+ O5 S: u% @, u       FractionBox["1.1102230246251565`*^-16",
    ! E6 B  m! {8 r& V+ ]6 L3 B        SuperscriptBox["Delta", "2"]]]}],
    : Z( F5 ^* P) k% }' V     SqrtBox[+ |6 e) Q+ ?& @! B
          FractionBox["1",
    , _! [* }5 q& c       SuperscriptBox["Delta", "2"]]]], ",", 5 w7 c8 m6 _! W. }0 r6 m" T9 v
        RowBox[{"Integrate", "[", - K3 `( F4 P( a+ w* {" g
         RowBox[{/ Z1 F2 J6 U. W( \( j4 Y, Y
          SuperscriptBox["\[ExponentialE]",
    0 J) n4 G& P3 V1 s1 c       FractionBox[$ p9 b4 {' d) B% w
            RowBox[{"1.1102230246251565`*^-16", "-",
    9 N; q* B% ]) b. \5 f9 d& W         RowBox[{"1.`", " ", ) r  m0 I# u+ M. ~8 @) Y3 x3 V& s
              SuperscriptBox["x9", "2"]}]}], 6 X8 [! S5 Y# a8 m' N9 p; T/ o$ ]
            SuperscriptBox["Delta", "2"]]], ",", $ D3 ]; _4 L$ Y3 r
          RowBox[{"{",
    9 o* l9 Y: j. b2 D       RowBox[{"x9", ",",
    0 N, }. s% J  y. ~, a7 J7 ]7 T* r' B        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
    - Q) h2 \# `$ g6 b; I      RowBox[{"Assumptions", "\[Rule]",
    4 T, ~/ O3 ^3 V, K0 x       RowBox[{
    % C8 e( {: r( c! M, y        RowBox[{"Re", "[", 4 q# R; M$ q: Q& i( Q# ]" R. V
             SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}], 9 ?1 c1 a( W- J
         "]"}]}], "]"}]}]], "Output",
    ) o& d5 S6 R  p! e) x CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9, 8 p/ V* s0 H( E7 Y. o/ \
      3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
    8 X) V$ Z* s/ w6 x" ^# L  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,
    + l! C1 c# X, z. D! P2 x  3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9, ; k6 o/ H. V( H0 e& t  Z/ n9 `" U5 x' q
      3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
    ' P9 x; F3 G2 K- L. `  t  3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9, $ C) M& T2 B' |& T3 d
      3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]
    , O& O! [, O/ J% {2 L4 F}, Open  ]],9 @. j. B7 z4 |4 }* k. p
    6 k6 N" n' X8 g! H
    Cell[CellGroupData[{
    ) T: ?. }: L8 m' D" X
    & |/ q/ h4 N/ S& N" l; s' aCell[BoxData[
    $ H  R% N  K# L  O$ v9 |1 l) n RowBox[{"Delta1", "=", 9 H$ `. U7 _8 N/ I
      StyleBox[6 _! {2 p8 E/ x2 a! c8 V: Z( v
       RowBox[{"97.40909103400237`", " ",
    ! d  R7 ^$ f% ]3 H    SuperscriptBox["Delta", "8"], "  ",
    6 E+ z& v; {. c' E4 _' Y/ G    FractionBox[
    & w3 x# y3 p% [1 s2 _     RowBox[{"1.7724538509055159`", " ",
    + W" X7 K! g3 ^/ |% K7 D* _      SuperscriptBox["\[ExponentialE]",
    5 z9 p3 g' z- c/ T! S       FractionBox["1.1102230246251565`*^-16", 5 m. L7 j# l" T% T
            SuperscriptBox["Delta", "2"]]]}],
    1 s! j5 {' F  _. }$ q! D     SqrtBox[
    : u+ I7 s% `( A; k- X: w      FractionBox["1",
      r3 G8 ]$ ?& m! a2 G0 S       SuperscriptBox["Delta", "2"]]]]}],
    8 g1 T, D$ R) y; V- D   FontWeight->"Plain"]}]], "Input",: o; z  t! z; s# O8 |" R
    CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {
    $ s1 p+ N1 H9 ^, U   3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9, 1 t$ P  a# {- K. P  o* ^
       3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {) ]7 y( t) H- G4 B, J* f
       3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
    ' T3 q- p) N. k, c/ L9 W' Q2 x% ~   3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9}, , l7 b% }4 A2 u  _4 m
       3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],% F) s# p9 |% i% u- s

    4 g! u- a+ ]  u/ T5 r" D3 qCell[BoxData[
    - Z. ^* I" |/ l3 J3 P FractionBox[
    1 }! C7 o- D* m+ I, P' N# P/ B9 [  RowBox[{"172.65311851642346`", " ",
    9 l; |) N/ E, }3 V5 @5 s   SuperscriptBox["Delta", "8"], " ", . B- C/ Q# F: T
       SuperscriptBox["\[ExponentialE]",
    5 {$ i8 B$ O  n+ `8 l7 t    FractionBox["1.1102230246251565`*^-16", 3 c2 @% p/ k/ |9 D2 z
         SuperscriptBox["Delta", "2"]]]}], 6 e3 C5 r" X- T
      SqrtBox[
    4 q& @$ z/ B" }+ {   FractionBox["1", 0 U9 n* r" A  z3 E: i) r
        SuperscriptBox["Delta", "2"]]]]], "Output",
    ! d# \* r' y6 H( f$ w, Q! c) p3 b  p5 w CellChangeTimes->{
    + h/ ~- o  c( ^- ]  3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9,
    + T2 h% T( F% ^0 b! {   3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
    1 W' S8 b: D! p  P6 h6 d, I2 V   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9, 4 r% ]  L/ N/ D1 j  C$ b. g$ P
       3.578012166234375*^9}]
    $ t/ B3 W0 A2 |7 D' T}, Open  ]],+ @% B+ K' [5 T9 [
    . s. m, p3 o0 [8 t! L% ?* e
    Cell[CellGroupData[{
    : o) ]/ U% U4 V% o; d( X2 Z& G9 ^6 U& ~3 b
    Cell[BoxData[
    2 ^. K4 ?; R, E5 q# x RowBox[{"DeltaX", "=",
    8 c1 F' s- ^" |' P  RowBox[{"FindRoot", "[",
    - j; F6 r9 C- e- S% J$ {  P   RowBox[{
      r2 H2 B( q+ N! W) d4 }, Y/ O0 U    RowBox[{"Delta1", "\[Equal]", "1"}], ",",
    ) \+ u& |9 x( f# H- j    RowBox[{"{",
    $ i7 E" U0 f4 L9 H+ T     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",
    % X! W) R# |) u& f9 s3 w CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {' ]* k1 `  I5 K9 u1 Q. i% ~
       3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9, " H, [9 Z9 }' _; u# P4 Q
       3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9, $ K+ E; o' @# W2 h; Z+ p
       3.57791921584375*^9}}],! v% J+ U% \- Q  d# i" e
    ! a, r$ o, Z$ _9 |9 H/ o% a; I4 [
    Cell[BoxData[
    8 p0 [* E' s( a, U4 b2 v RowBox[{"{",
    $ E/ S' [- |) `' b2 u2 d7 ^  RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
    1 q) v* g1 r/ a: c CellChangeTimes->{8 ~% J7 F# E! }5 |- i
      3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
    ' y" Z& @& w4 d6 S   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9,
    / k+ X' E8 L  `4 F" D9 v- p   3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
    / h$ P4 Q4 C* V: j   3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9, & y) ?* B, ]. v
       3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
    % p' O4 R  _+ e6 V2 [: u   3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9, . n: N4 p8 c! u! D& O
       3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9, & M  Z3 |& M; T4 b: j
       3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9, / y3 U: R4 V9 S0 R
       3.57796070150625*^9, 3.578012167703125*^9}]
      D6 G) \2 x. n' L# E+ K}, Open  ]],- g( {! m! A8 B, i7 q7 {; N
    4 @: d( W" @" g* e+ C
    Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\& ]! i3 @5 o  r6 N3 Z9 _: |  `5 @
    \:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",6 d$ t  O" V& G' h3 K
    CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {5 U% x8 s+ t1 {
      3.577960705312657*^9, 3.577960707621461*^9}}],
    - |$ z; ^+ E$ M! ?8 X' T
    % w# q& T2 U' z, M- H" M$ x  ?7 HCell[CellGroupData[{4 `: x: F8 R7 \/ Q' R

    * N8 o( U" ^! A+ _Cell[BoxData[9 i5 g* c1 V3 M0 f( E( P2 e
    RowBox[{"C1", "=", "Ca"}]], "Input",- U( D. Y$ u+ B) m4 R4 P: l
    CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],. i) S( A7 g9 U- a  G* |* R1 V
      J' q$ A( }' s  h( V+ ?
    Cell[BoxData[
    : g6 b' e+ i" G/ C RowBox[{"{",
    5 k) @* k, S" ]2 ~0 v- z( Z/ F$ l: p  RowBox[{6 X. g1 Q, J* W6 ~9 O3 x
      "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", 4 l  C2 ^: j# r9 v1 \
       "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",", + O# h% a8 x9 Z( d8 |9 l4 m
       "0.`"}], "}"}]], "Output",
    " n: z) P2 d7 R+ F* g$ C" J% Q CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9,
    / r" \. W! K; X2 w4 |% i' n+ {# |6 l  3.577960710273465*^9, 3.5780121855*^9}]  L3 B$ O9 j) i/ i3 v
    }, Open  ]],* r. l0 x2 ?5 O7 `3 S
    4 ?  G, w; T7 k3 s% |4 J
    Cell[CellGroupData[{" k; D3 Q+ E1 N2 Q5 n- t

    1 [: ]* Y9 W: f$ ^# PCell[BoxData[! v: T" N( e# B" z" r% Y0 l
    RowBox[{"u1", "=", ! J6 d1 @' k; y8 }
      RowBox[{5 D" h, {5 ?% R. m4 L8 P
       RowBox[{"Exp", "[",
    3 l( G0 \; L  j    RowBox[{
    3 N  k" z1 E3 f" v     RowBox[{
    + G  ?8 l3 g4 {      RowBox[{"-", 5 O6 S( k$ l8 m. M, B
           RowBox[{
    8 i% H* x2 e: R        RowBox[{"(", 1 K, t6 {/ ?7 p/ j
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ( m% e# I+ i+ c6 P        RowBox[{"(", ) [1 n( T$ f* Z0 @% a0 K
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}]," X2 |8 g5 N, X4 _9 O1 Y1 q3 c4 _
         "]"}], "/.", "DeltaX"}]}]], "Input",2 J+ V9 N4 o6 A! Y) }
    CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {
    ' ^3 o7 l4 r  S3 Z, R" k   3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {
    7 t. Z5 e6 H2 s   3.577919193484375*^9, 3.5779192326875*^9}}],
    + |8 ^# s9 G5 @( W! w4 ]# V
    7 N+ x, |2 Y! s4 H0 I5 kCell[BoxData[
    4 Z% v6 n  m. m" U; I# [3 i7 D) M) w SuperscriptBox["\[ExponentialE]", ! @6 K! S5 Y) i3 r: K$ W
      RowBox[{"3.141592653589793`", " ",
    4 v6 j. w  r6 \1 }   RowBox[{"(",
    , Y6 Q4 ?' E' v9 h* A    RowBox[{
    & E: m) R  P2 Y% t) v* x     RowBox[{"-", - f7 k1 F. ^( e
          SuperscriptBox[
    ; p, a- O/ c( {' l       RowBox[{"(",
    . X6 E$ f- B! w; w& ^        RowBox[{: {# H) u* X* j+ Z
             RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", . F& s2 H; ]: c% ]5 n$ Q1 I5 c( S
         SuperscriptBox[
    2 @0 y3 q- u* ^& V  Q* x      RowBox[{"(",
    ) \7 ^; n  v* E  K0 R       RowBox[{1 t1 q2 y+ V! a8 T$ c- |8 j/ p7 Y7 ^
            RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
    ' r2 Y* ]" I$ F' K% m$ `4 {; [0 e     SuperscriptBox[
    5 P) ~' \. p/ l+ m; |: a9 |      RowBox[{"(", : T0 Q1 a, d& z: j
           RowBox[{
    # C2 i+ h2 p2 ]& P3 Y, M% v        RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
      r0 `2 r& y5 h. ^$ m: H5 k     SuperscriptBox[
    2 W0 c2 W6 S: s2 o      RowBox[{"(", 4 p# R6 H- V* X7 L) T4 |( @
           RowBox[{- A: g9 @4 o  e/ }; l
            RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", 6 K5 s/ r# b* S3 @3 z9 D
         SuperscriptBox[' v7 z7 O9 I& G# x. J% r  C# d
          RowBox[{"(",
    7 A5 y# A0 i; y* W       RowBox[{
    4 l( m9 R8 g8 V. ]0 k# ]! P+ N1 N        RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",   ^8 [/ r/ d- Z. @5 v# @3 A  k
         SuperscriptBox[, }  Y! `" k! F3 F# O# c2 K* L
          RowBox[{"(",
    3 m. s% p0 v; w+ h       RowBox[{
    . \; z5 o- T7 ~# L# O9 q        RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
    - C9 I( S# ]2 r& {# d     SuperscriptBox[0 J3 M1 f- v5 {
          RowBox[{"(", - ~  Y0 f% f, a+ N* [* p
           RowBox[{
    ( L* \. L$ J' R6 W, W; c        RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
    + M) |! f% f2 I1 H     SuperscriptBox[$ s6 T) u+ |$ O' r% G
          RowBox[{"(",
    - Y( @, w6 }- A2 X" X7 H       RowBox[{. h! z' i& l$ k- M
            RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
    . c. ^- g# E! l3 |, w( _     SuperscriptBox[
    5 H% N3 O9 w, a, t7 k      RowBox[{"(",
    ( E6 Q+ g+ s4 Y1 ?  i       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    % g0 g- n2 m5 d: B    ")"}]}]]], "Output",! \+ V+ ^  r4 j& p  ]
    CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
    , Z, q: z# a% G; m" t, S  3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9, 2 B/ x: l( |; `/ I( i" i- Y
      3.578012187078125*^9}]
    * ?2 I  r5 z5 N}, Open  ]],
    / Y  L1 {* c- `* \# ]# G) c
    0 I) ^. p+ S& j+ B( L/ h4 NCell[CellGroupData[{
    ! L/ y$ x9 w! L# j, T" Y7 ?- \5 L( o. r2 [
    Cell[BoxData[0 }* n# D7 U% r: Y+ r5 b8 ^
    RowBox[{"C2", "=", "Ca"}]], "Input",- K2 K3 n# [: `6 h. ^
    CellChangeTimes->{3.57792047321875*^9}],
    7 F5 o$ [9 z! e' Q
    ' j" g3 Q4 Y3 p  ^Cell[BoxData[5 I0 M8 P! A; t+ T) _: D
    RowBox[{"{", 2 T' E" Z/ r3 f% e! d" G
      RowBox[{; U# \( E$ B$ q6 L& Z2 v
      "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",", ' x1 u1 u3 G& e6 ^5 J) n
       "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}], ) K0 d; L+ Q2 D+ @4 S2 y9 K% V
      "}"}]], "Output",; @% h3 I+ t+ _) i6 \+ L
    CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9, / S8 Q- x) j. {: ~7 p; c. e' |5 l
      3.5779607401163173`*^9, 3.578012204671875*^9}]
    ! J. r1 D# a2 W, I$ O7 {}, Open  ]],- J+ K, u' M+ G! {. m, l1 U- v

    0 F) @) W2 A# O6 S* OCell[CellGroupData[{
    % q, W% K- y2 ~9 e9 Y" j) u+ a: I6 d/ u  W; d- C: S5 d
    Cell[BoxData[
    * P4 @1 `6 F* H) C$ Z) b; W9 K RowBox[{"u2", "=",
    4 ?9 U4 j8 K- d4 d  RowBox[{
    ' K# l# u4 l' I   RowBox[{"Exp", "[", # f# [7 R. B4 g0 t: |1 Z4 k4 ^
        RowBox[{
    5 h$ n$ [# r& K2 A     RowBox[{% ~9 m6 S  ~! K+ T! J0 _2 k& f
          RowBox[{"-",
    ; [# x: W- a- S. f4 ^$ N3 @       RowBox[{
    / {# ?& d; K' ~        RowBox[{"(",
    ) Q/ ^$ g* _  Q8 M8 B, E1 v         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 4 u% C) H; G$ n7 o7 B
            RowBox[{"(", ! Q: x7 J$ s* s  G: F
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ! J( `9 ]4 \) S  i. @     "]"}], "/.", "DeltaX"}]}]], "Input",
    / M1 M# ]) _# H4 ~) B# B CellChangeTimes->{3.577920484109375*^9}],
    3 ^. k1 O/ A. L5 z( l: d3 j( M, S3 t( {/ }& I; ~/ |9 H& L
    Cell[BoxData[" Y9 o" X% ^9 @9 X2 }
    SuperscriptBox["\[ExponentialE]",
    ( O2 e6 N1 i5 \: K, }' {  RowBox[{"3.141592653589793`", " ", 2 u+ r2 G. J, l' m
       RowBox[{"(", 1 a2 ?" o: Q9 E
        RowBox[{
    9 n9 K* P1 L1 J7 {     RowBox[{"-",
    ) z, _" c0 [4 S      SuperscriptBox[! A/ M& I& G0 C+ m
           RowBox[{"(", 1 S, ?7 h8 x7 p, O. X
            RowBox[{6 S; ]4 d& J6 m& U% q: b5 y& {# ^. K! ?
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
    , Z( g$ a  z; p: h, Q     SuperscriptBox[& g% w0 g% Y; u. p% l' A; B  \
          RowBox[{"(", - X$ B+ H; g2 p
           RowBox[{
    5 Q4 s2 v) e2 H0 y        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-", 8 r; l: S1 Q- Y5 x+ s, C
         SuperscriptBox[
    # y; J  \5 l  T  R( T      RowBox[{"(", $ C! e; a# N8 v6 c. R- Q7 f% Y
           RowBox[{
    3 u$ x3 v9 X. G8 Z3 M! Q5 k        RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
    * r3 k0 s  O  Y/ N     SuperscriptBox[4 r! {% g: ?/ K/ \! T* ^8 d& k
          RowBox[{"(",
    7 k9 E- L+ A, \+ N! n+ j' C       RowBox[{7 C- Y! a: N9 J" A& i
            RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
    7 m3 ?# Y5 a  h# J4 F     SuperscriptBox[
    ; _8 F6 ^! f! ~/ r. z) ^. A      RowBox[{"(", - b7 e8 O! u: q5 z# L& u, J
           RowBox[{9 a( b0 F5 `& }( l, a7 g0 e1 y- }
            RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    ) x+ S  s  o1 f6 I& s! G: z     SuperscriptBox[
    1 _& r5 ?" t+ g7 Q# J      RowBox[{"(", / S2 s5 T, Z7 B+ K- Y
           RowBox[{7 m- z# V$ b! p
            RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", 3 b7 o5 x6 U8 b+ h
         SuperscriptBox[+ Y6 |, o2 m0 C
          RowBox[{"(",
      N0 Y! a, N& E       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", : w8 f( P1 t# w1 ]: c" o- W% B. I; U
         SuperscriptBox[% ^% a" R% v3 l2 |4 O; E
          RowBox[{"(", ) h; ~# Z6 T1 F; |8 M% \
           RowBox[{5 `0 }, l/ i' {) }
            RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", / M9 a1 `) x# \4 p1 i0 b3 K/ e
         SuperscriptBox[4 a3 n8 u. o- H
          RowBox[{"(",
    / C) V; o5 x5 O) ?; s7 S1 s) G       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 4 `) V7 x( V% m# G
        ")"}]}]]], "Output",
    5 T/ T; I, f4 C8 w% G CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9, 7 O7 ?: ^/ \) _% c: k
      3.5779607413955193`*^9, 3.578012205484375*^9}]
    , g8 r# _6 Y" g  }+ d( y/ t0 w}, Open  ]],. w: X* I7 a1 C# l

    0 f9 b$ `7 n# [$ q1 {Cell[CellGroupData[{( _/ U& e# @: c8 j% I; X) }
    $ w; {1 @; o8 k% k: ?6 A
    Cell[BoxData[
    7 K  f6 \) S( q' p8 S+ q2 r RowBox[{"C3", "=", "Ca"}]], "Input",3 P4 g) U3 c' F5 ?
    CellChangeTimes->{3.57792064125*^9}],7 ?0 H9 ^, i/ a" t. V

    3 G# K& S1 g. R+ ^1 ^Cell[BoxData[
    1 C/ O6 @/ f) a+ @0 _ RowBox[{"{", 9 j! i# J+ a7 X* n! q3 B- B
      RowBox[{4 r" Z6 |( T- Z
      "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
    ; i) C8 O' s; @0 c4 _   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
    6 q1 C. V" ], w  "}"}]], "Output",- q$ ?' Z$ w6 l) B0 X. |$ Z
    CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9, 1 l) h% y; y2 C, d  T
      3.5779607642027593`*^9, 3.5780122103125*^9}]/ Y2 i/ k1 G, n  D1 j" Y( G
    }, Open  ]],8 C0 L& P3 T& o" }5 [) B! ^
    % y. j* S2 _) w6 k$ O  y9 c, i+ r. t
    Cell[CellGroupData[{
    2 L" b, ]0 a2 n( ~. E6 F: }) L3 x9 t# y# Z
    Cell[BoxData[
    ) }7 s0 T5 \$ [! f3 H0 }: F' q RowBox[{"u3", "=",
    7 S& Y0 W3 \' H6 a( P( S, ?  RowBox[{
    - n, E: S( O! J7 Q  B   RowBox[{"Exp", "[", # ?9 ^# m! I+ ~. J( u( y* a4 z  V5 _
        RowBox[{1 J* C7 I$ h9 T8 J: |  O
         RowBox[{
    ! \( W8 m6 [' s3 H; t3 k$ K* ^      RowBox[{"-",
    3 ^& H6 E, N; d/ B& m3 w# ?       RowBox[{1 f0 c  H' }/ b2 e5 Q
            RowBox[{"(", & y# N! M- L0 k/ q+ T$ r
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 1 `9 l) z) ^" @/ {
            RowBox[{"(", % Y% I9 j6 c; Q1 J
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    7 U8 {* W/ v/ M5 B     "]"}], "/.", "DeltaX"}]}]], "Input",% N, c/ J3 S9 y, F9 Q
    CellChangeTimes->{3.57792064921875*^9}],, P. c  S" o) |$ r" g% g

    , `  C+ b+ y+ j2 D( iCell[BoxData[; q9 [! o+ }6 O+ A8 ^; ~# j
    SuperscriptBox["\[ExponentialE]",
    8 }) U3 `6 X+ M9 U4 u  RowBox[{"3.141592653589793`", " ", ' y: l) z4 t/ u, k* H; c
       RowBox[{"(",
    / v6 t5 f1 `0 n8 Q    RowBox[{3 y0 H% r1 [: u- `/ V
         RowBox[{"-", : @! Z0 D( o! ~8 f. ]4 C4 `* N( v1 y
          SuperscriptBox[
    1 P2 i8 V# y' m' D. |# M       RowBox[{"(",
    9 |4 L: c9 C1 [' M5 j% ?3 `        RowBox[{
    5 k- K; h$ C/ G* S& I0 r         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
    # ^1 u3 `6 ^2 ]! }0 D     SuperscriptBox[; \0 {  b4 S1 L1 k! f1 L3 B6 \5 P" R7 r7 Z
          RowBox[{"(", + P8 r% y1 m6 a  R
           RowBox[{
    ) w* ]9 G; j7 ]3 b9 j6 }        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
    2 `) c* i8 M  q: \     SuperscriptBox[
    : c" d9 k" O3 u9 r; x0 j# a) L      RowBox[{"(",   j/ G: a' t" z6 u2 [, h. O0 {: S
           RowBox[{
    - F; w# o! B5 S- V. k; G3 a0 d! g        RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
    6 j# q- K3 a7 S1 ]. |& o' g- {     SuperscriptBox[9 o0 d9 i* |! j; M( w
          RowBox[{"(", " O  \& p4 h7 k2 U7 x
           RowBox[{
    " O  W. a7 v% x        RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", , c5 p8 f2 R- P
         SuperscriptBox[) n( t. ^  u* l; [
          RowBox[{"(", ! H3 _2 k0 \0 p% c: P- @- e
           RowBox[{
    $ v# v+ J% h* K        RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
      }' T! e; y* p* ^     SuperscriptBox[; L1 Q2 `! d7 M
          RowBox[{"(", " B6 ^8 ~5 y1 r8 s
           RowBox[{& s7 ^3 R6 }0 ^3 T7 z7 H
            RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
    ( @' W' S2 @2 h" g     SuperscriptBox[( N& H3 ?( u5 _# p
          RowBox[{"(",
    ' i3 e- X' I6 m* c# ]4 O" P$ A0 U       RowBox[{6 K% a* ?0 X! ^
            RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
    ) i" k) @: v. f( d( ^     SuperscriptBox[0 \5 N" Z0 X; {# K8 x( }4 [
          RowBox[{"(", $ E) T" E+ r5 `" S3 c9 n
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 9 Z# u# Q% x8 Q# ]  {) y
         SuperscriptBox[
    ! X0 U6 E, D( @7 Z9 u# U" J; f      RowBox[{"(",
    5 W8 B: q7 W6 h% T       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 4 m% ]8 [: d8 X/ K( a" Q, l
        ")"}]}]]], "Output",
    - W5 c5 N7 J, ~% t CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
    2 u  K5 L9 A' }8 O1 `! _) [  3.5779607654819613`*^9, 3.578012211515625*^9}]  _5 X  j. p! V* j$ E
    }, Open  ]],
    * j4 m( e# s" p: p$ [* p  Y; {& y  p* S: F
    Cell[CellGroupData[{
    8 W; a' n6 ?- m8 f6 V' B; H4 i$ S% A' x; P- s: Y# M( Y; ?
    Cell[BoxData[
    9 P- C! Z6 N$ l  u3 ~/ L9 K1 Z7 V7 z RowBox[{"C4", "=", "Ca"}]], "Input",8 a7 S8 F! h2 C% w
    CellChangeTimes->{3.5779207559375*^9}],
    : t9 N4 s! z$ ^2 t0 u1 P
    3 T$ t5 o; Q1 K+ j5 b! }  JCell[BoxData[8 ?1 k2 }% }0 F
    RowBox[{"{", 3 L! }1 E0 H3 q. t. `( B' x
      RowBox[{
    4 k2 Y' C" H7 E" X, K  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
    1 p1 A& `( U" z, z- m   "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], 5 `/ x6 \/ y' H5 c/ r* v
      "}"}]], "Output",
    ) W  j2 n, o& \2 s( a( U# ?! Y CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9, : a( f2 Z( s& v" n0 X3 i) m$ h4 \
      3.5779607861363974`*^9, 3.578012216171875*^9}]
    8 e7 L* }* ~4 [2 T* V' c$ m  ]}, Open  ]],2 X" {6 E: u! S% d' n; Z
    " ]* s* L" A' D8 D) B5 m' P$ I
    Cell[CellGroupData[{
    , d2 z7 J" D; e, Y, M$ s) f, H" A: L$ q% ?7 s$ \8 s& P
    Cell[BoxData[
    7 H/ I+ i# }- Y6 F RowBox[{"u4", "=", 0 E4 c# ~% u" s- x0 @6 J
      RowBox[{
    1 M- b# g) e7 M$ `/ V  t/ j5 |   RowBox[{"Exp", "[", , K! i, N' \& u, W2 b% n
        RowBox[{' o" l  f% S/ s2 L6 n  t8 i8 Z
         RowBox[{+ I& p1 `. Z; K$ N
          RowBox[{"-",
    6 l% q+ y5 d; v       RowBox[{* s! O( ~$ d- V' A
            RowBox[{"(", ; D: f0 _% k3 N" Z' F. C
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    6 T  f4 k8 z6 A- W2 }9 v: H        RowBox[{"(",
    , z% A4 @; R8 J$ g- H+ o         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    7 b/ `& F1 c  |* u' i     "]"}], "/.", "DeltaX"}]}]], "Input",& \, U4 e- p' j
    CellChangeTimes->{3.57792076325*^9}],
    0 w7 P8 s. ]* _& v  C$ }
    7 l; c  s( a" J  Z' G- c* fCell[BoxData[
    5 h8 `% U9 g9 {. o" {6 b0 a5 ] SuperscriptBox["\[ExponentialE]", ) w( v# r. x, r, z2 J! S
      RowBox[{"3.141592653589793`", " ", * D; e9 w1 [. D; _/ n; d
       RowBox[{"(",
    ! r; I& i! J0 w  f. A9 L    RowBox[{8 B# l1 p, Q! C# g6 x' C
         RowBox[{"-",
    . K# x& f5 X, P      SuperscriptBox[& S& e+ h9 u( E6 u
           RowBox[{"(", 9 r, y9 S  X1 T
            RowBox[{
    + s& O! F; x8 M# J         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 7 R" H" E7 k5 J6 }8 R# }9 J
         SuperscriptBox[8 Z. t0 w! q. x9 |7 }; X9 p
          RowBox[{"(", ( g- H' B, _6 T) X; G5 O
           RowBox[{5 y9 X/ f' f3 w" Z% v0 T
            RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-", 3 W. c) L; ]% b4 g. \2 ?" ~9 s
         SuperscriptBox[
    7 Y. k4 C: x' ^      RowBox[{"(",
    ) f% U  N7 T7 k% w       RowBox[{
    5 }% i/ M) I6 W8 a' y        RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
      A6 ?. u8 v. f& s3 D     SuperscriptBox[) c+ r% k+ i; O" m, _2 Q2 }
          RowBox[{"(",
    / A" E8 l- K; r       RowBox[{2 N  ^2 ?7 B* t
            RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
    9 q7 ^2 V7 T. P# R+ b% b     SuperscriptBox[. x6 n9 |( f, M7 F3 H3 [0 @
          RowBox[{"(",
    ) D/ o* h. [0 w) @, L  l0 w       RowBox[{
    4 m/ G+ O6 n8 _( J- ^$ a" ]        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", 6 ]( {; m! d8 R, b* X; Q8 e) H* R8 @3 e5 f
         SuperscriptBox[
    + C; U- n3 b$ P) E      RowBox[{"(", ' ]) {9 S$ F% Z- ?( F3 ]9 t( B
           RowBox[{
    ! U2 O* S' I. P5 ~8 c6 G$ u        RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
    * e% c) c: h% B4 {5 c9 e9 d     SuperscriptBox[+ t. v9 ~/ U# r- U
          RowBox[{"(",
    : e8 M, m) w& \       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", / z% d. |4 T1 r8 q) u& H
         SuperscriptBox[
    * Y3 [% w8 A) w: u' y) W# l2 E4 b5 v      RowBox[{"(",
    . H  i# R9 J( s7 R. i# P       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ! B9 Y6 }; C' H9 K; G# a     SuperscriptBox[$ B, L% R$ Y, C2 C7 p# H$ v
          RowBox[{"(",
    8 h4 c3 _/ i$ S8 k! A: A$ Y! ~       RowBox[{, f8 i# v& n: w0 y! l
            RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}],
    6 g5 ~: M8 N9 U& z- y0 A    ")"}]}]]], "Output",
    : R, A: O3 X6 k: i/ ^# {( \ CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9, / |4 l& Y9 ?7 ?7 ]# O
      3.5779607873531995`*^9, 3.5780122169375*^9}]) {) J# x8 _, D) \' O. C& G$ d
    }, Open  ]],
    0 E7 [; l# q% m- D& A& c  @  x5 [5 {0 s2 G$ f
    Cell[CellGroupData[{- `# i. X& `1 G) ?; H
      M( B! _% e. T+ N8 A$ c
    Cell[BoxData[3 c% |' W- y6 k7 i7 {( Q, E3 s- P
    RowBox[{"C5", "=", "Ca"}]], "Input",
    3 ?: Z& D9 D2 ^9 n0 K6 z9 X CellChangeTimes->{3.577920860671875*^9}],
    7 H) g. _1 u3 C! b8 d3 d( z/ d$ [- S0 m' Z% W9 l
    Cell[BoxData[
    3 h5 r% J% Y* `* @; L RowBox[{"{",
    . R+ m4 B: @$ a$ |5 g  RowBox[{
    0 X& p. w0 N8 o0 s+ C  "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
    6 Y' G' J- a( x! R   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}], 8 m, K1 x2 a8 N( P% K% h( j1 G9 c- s
      "}"}]], "Output",
    $ `! O$ A7 t, B4 V1 j CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9, ( }- S( Z, g8 v3 g3 l3 t8 Z* p
      3.5779608137328453`*^9, 3.5780122209375*^9}]" f! h! H  j' [$ U8 p& t2 o2 F
    }, Open  ]],& U8 @" D, e8 R

    6 H. r) ^' a, l9 e2 [# E3 a! r+ DCell[CellGroupData[{
    # J2 B/ k, f% a! k2 M9 {( t6 j- ^& d
    & {3 Z! K: O2 u. A! ACell[BoxData[
    8 M8 h1 ~3 |* n) h3 P RowBox[{"u5", "=", " }1 t) M' X" L) ?; e8 u
      RowBox[{
    " V, [$ ^; i* L   RowBox[{"Exp", "[",
    - R, B; L! ]; {# [& l* B# n    RowBox[{4 N1 _, z; w" n/ f
         RowBox[{$ E6 v2 s5 a# Z
          RowBox[{"-",
    " H! [! q' U% M       RowBox[{
    9 t1 i  K7 D" R( L        RowBox[{"(",
    : A7 ^; k( y$ H         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    , j4 e" P9 D9 ~/ T, @( a/ _4 w        RowBox[{"(",
    ' `, H! N- X3 e  R! o* Q1 \         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ( |" ]& c! d& h3 F9 V8 A0 l     "]"}], "/.", "DeltaX"}]}]], "Input",% d0 V! h$ g, e. B1 Z5 ]) S
    CellChangeTimes->{3.577920869375*^9}],1 e1 U0 `$ F8 n& @4 V

    3 u2 y! `8 D9 b% P4 B: wCell[BoxData[) q: C7 B( a4 `9 ~6 [
    SuperscriptBox["\[ExponentialE]",
    5 a& `1 d% K4 W! ?6 x  RowBox[{"3.141592653589793`", " ",
    2 q. _* v7 n/ J( @1 C$ l& {' W   RowBox[{"(",
    ! K( F% x1 G+ i+ ^0 Z3 u/ \    RowBox[{
    ! o1 W8 t! }: N" `     RowBox[{"-", 1 m- P1 j" L8 N7 @9 b! I, ^! |* \5 W
          SuperscriptBox[7 s/ y3 g  d) A, k
           RowBox[{"(",
    7 Z. f+ |1 o; M- h        RowBox[{8 m+ n; V( B) m7 G/ M0 n3 S
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", ; q; C1 X9 A9 |3 S/ E  t
         SuperscriptBox[
    " B- o/ C2 q% \      RowBox[{"(", 2 x' U6 }' o; E# \% C' [' ~9 s( q
           RowBox[{
    & e" G; m9 ~8 C. m  P3 ?  W        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-", : ?: H) P1 h' U& V
         SuperscriptBox[
    % B$ o% ]/ u$ V      RowBox[{"(", ! ^7 A: O1 s. F+ ^4 L8 I% j
           RowBox[{5 T, p6 Y1 f  X2 n) [
            RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
    % n3 j0 H7 l4 \. U- d7 E     SuperscriptBox[
    : h7 k( D4 Q8 }9 p      RowBox[{"(", 5 b# O  `$ |. ^- k. J7 E
           RowBox[{
    * [# B% ^$ s2 w7 q# [; h5 C        RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
    + ]; L0 g/ b) s! V     SuperscriptBox[
      j7 i& l- V/ {$ [# e      RowBox[{"(",
    - u+ ]3 p# _  R' \       RowBox[{
    0 B- m0 k# k. w+ r; d  Q        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", & U; ]1 @( H3 R- w0 X
         SuperscriptBox[
    8 @: }6 }/ n- V      RowBox[{"(", 3 P/ M7 t& X% q
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ! f4 }) S2 P9 E" O! R
         SuperscriptBox[$ T4 o+ f* m, r! v) }' l
          RowBox[{"(",
    2 T9 o, {" c7 B+ X; D4 J       RowBox[{* m/ v. c! A% B
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    - E: z  a  I' _. c/ \, E     SuperscriptBox[& V# Y8 N) n5 s2 J, n% U' y/ Z  x
          RowBox[{"(",
    8 e' O5 K2 B6 P" _' I; l9 u       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", + V0 q; J' l/ |. t9 n
         SuperscriptBox[( J4 E: T0 u% \! G' y
          RowBox[{"(",
    ( ?7 ?: U( H; Q' F       RowBox[{) Y0 u: m. R! D! d0 f
            RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], 9 L. A' D& N  w; J$ u* R
        ")"}]}]]], "Output",
    " k% e. D' u" f) ?' o CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9, ; h+ c. O. A5 c/ c; J7 p
      3.577960815043248*^9, 3.578012221953125*^9}]
    ! I- Z, ~4 j7 ]3 Z9 ], r}, Open  ]],
    ) Y0 n) y3 e0 W
    1 E" i. D4 {8 x: LCell[CellGroupData[{
    $ X3 J& h7 i: Z) V& I
    $ m" J8 s; c0 R! D  R" CCell[BoxData[
    # ?) Q% ~3 I. |/ H RowBox[{"C6", "=", "Ca"}]], "Input",
    ) U( x. K$ N: R# J, w9 g6 ~9 E, \ CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],$ ~  m4 T; V8 {/ ^4 X/ p' C

    0 T0 ^) r9 O! B0 c+ I  pCell[BoxData[6 Y: N% m$ A8 @3 p: z* i( {7 J. e, F/ R
    RowBox[{"{", 5 ?/ h! Y# c# h6 o% C
      RowBox[{3 T3 [* j% W9 U: ?8 |
      "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
    2 M( z7 m3 V! g  {   "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",", 3 r* A: U' z1 O1 G( A. j, {6 ]2 {
       "0.494866`"}], "}"}]], "Output",# W) @# q$ v2 N# A2 m) J
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,( O+ w- R* k. b3 _8 ^
       3.5779608373044868`*^9, 3.578012227359375*^9}]$ S3 J9 ~# v3 G- ?4 J
    }, Open  ]],
    : a2 C) m  [0 i# g6 G- H( H
    % B1 T  }: ]1 l0 W3 x  }Cell[CellGroupData[{0 ?: F8 Y: J( _$ j
    2 M( X! g/ s. f% B$ x2 G
    Cell[BoxData[# x  f# W& S7 r
    RowBox[{"u6", "=",
    3 g! S3 n! O& a( g  RowBox[{
    ; ?9 V( I# Y! S/ u   RowBox[{"Exp", "[", - x$ T5 Q: i1 y3 {1 n
        RowBox[{5 z) J3 K7 F  @! D2 b
         RowBox[{
    4 `* _3 o! n9 I( g( m" m7 K      RowBox[{"-",
    " p& k; y- D9 `$ V  r9 G. X' [- g. C       RowBox[{
    $ c8 W8 ~% x* u* K        RowBox[{"(",
    / `* E7 }6 {. D1 N3 Y. }  L/ N  w# k3 R         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    2 c4 ?! P* H4 g4 M% r8 e5 B; G        RowBox[{"(",   c8 C4 c1 X- ]8 o$ W; e) X  _
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],# O5 G! @9 u# ?
         "]"}], "/.", "DeltaX"}]}]], "Input",
    2 [3 X" M( c( M6 }( W CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],' ~. i% ~) b; f3 ~' c
    / O# [7 E4 Q+ {6 b
    Cell[BoxData[
    3 X1 S/ J# N2 h+ P3 m( G1 w) | SuperscriptBox["\[ExponentialE]", 7 z; }+ k! L1 [4 E8 t5 F3 Y
      RowBox[{"3.141592653589793`", " ", : V/ m& I" S% v6 G" v' f3 f
       RowBox[{"(",
    4 x* S' Y! F+ }$ e+ k8 L! O    RowBox[{
    5 I" d2 ]+ }+ y* @% r     RowBox[{"-", / C- ?' h, K, ~* c
          SuperscriptBox[
    , B: U; l3 L9 Z; d+ h1 R       RowBox[{"(",
    ! ~/ Z2 m8 K4 ?2 \2 N        RowBox[{6 v. X  G2 {8 j) [
             RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-", & X3 o/ y: C$ u$ P" s& w3 s- c
         SuperscriptBox[
    / i: U7 j+ b- ~7 a9 a* o. q      RowBox[{"(", 7 A' @: M9 X# p4 L* B4 z. f
           RowBox[{; f+ F- y+ T9 e3 d) m9 Q( k; H; |
            RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", , y6 b* F9 X; C+ @( L, A) T7 D! J
         SuperscriptBox[
    $ v. ^" T0 }) h0 C& X  _. u      RowBox[{"(",
    * C, L& X$ t5 ?+ `. t5 w       RowBox[{. O  H" e& I" k/ t# M! c1 V
            RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", 9 |( `; r; i7 q$ @# m
         SuperscriptBox[. H8 S" S/ l3 l: N: c# Z
          RowBox[{"(", 3 ^* u+ x% c/ ^7 |8 E
           RowBox[{
    7 Z2 [- A# ^/ E7 w+ p2 ]6 ]/ r) b        RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
    6 K5 T( @; |" p/ k/ x* O     SuperscriptBox[
    . Y, n4 q) d+ K) `; J$ Y      RowBox[{"(",
    5 B- d' _2 R3 m5 p% {  x       RowBox[{; c" O  q$ O, o6 \6 M
            RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
    # Q  E) r8 y- u! Y( N9 K+ w% u     SuperscriptBox[
    5 F3 p" ~. O  W! t/ e      RowBox[{"(",
    0 t: k& Y: U4 ]       RowBox[{' C% @7 n8 J0 d; O8 f' c
            RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", " F. q# }( w. T6 T) U
         SuperscriptBox[8 k9 N. s4 A+ }
          RowBox[{"(",
    $ |& g$ p  S- L. Z6 U  o       RowBox[{- g1 g( A# U* b
            RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
    ) N1 @; B) b# m! U     SuperscriptBox[
    + k: X' m( @3 z/ R( k( {      RowBox[{"(", * P1 i! q; z' N. W! {# d, ]6 J9 p
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", , ~' Z. G9 O) N. ]- y, Z2 m; ]0 c  Z" j
         SuperscriptBox[, A" }% A1 _2 Q7 p
          RowBox[{"(", 2 G0 D5 o# E/ D
           RowBox[{3 F$ [: e- j# k) c
            RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}],
    3 s( U& P! H1 D- b    ")"}]}]]], "Output",
    & @# s1 ^- W0 x3 o CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, # W% }+ i) T1 U5 `7 k  t5 w& W
      3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
    0 {0 D' e$ H5 T# S; B( q  _}, Open  ]],
    * b% G9 r, S8 o- W$ k
    ) j  C) k5 x, T* v) ]Cell[CellGroupData[{. \/ m+ ~  _7 W3 U

    % Z' u3 h2 C" [7 B: K8 i5 x6 W& r% L5 l  F4 OCell[BoxData[& H! P, j2 z0 j! [" Z) U
    RowBox[{"C7", "=", "Ca"}]], "Input",
    / f" G  I/ I3 R8 I; _  n9 M CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 4 j" O3 p' @7 b6 [  x
      3.577921316125*^9}],
    9 M6 H5 ~1 x. F2 F. |
    ; ?9 r0 _4 G1 _0 ECell[BoxData[1 N! D6 Y$ M! _& o) P! v/ o
    RowBox[{"{",
    ; V" k5 g5 O+ D# A  RowBox[{* J, }3 k5 a* H5 n1 e" u
      "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
    0 C. f) F0 Y* `' o" W8 j   "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}], 4 s: j( O8 i; s: j. k
      "}"}]], "Output",) x& m6 t  D( |) M/ X- M4 Z
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    / W9 T2 }4 \4 z8 c' ^* ^  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]4 w$ p3 _! ]. M
    }, Open  ]],
    ) [1 J8 L; e/ E* q4 A3 K% }0 J* @" R$ ]- |2 g. L) d
    Cell[CellGroupData[{
    . X, x# L+ y, M. f& Z; |# X2 Y! ~. @+ N8 `0 w- x' N# m5 N, G
    Cell[BoxData[1 W) X3 v3 p9 ^; C4 I' V
    RowBox[{"u7", "=",
    , r& J4 x4 I# x/ ^: P8 e  RowBox[{
    5 Y& s: i+ l6 ~5 j( J5 e   RowBox[{"Exp", "[", % F; H$ g# Y1 P8 S' `3 f; @  P
        RowBox[{6 b9 R" j2 x* F
         RowBox[{
    # K1 M$ Q6 T% K; m; n0 a3 T5 c      RowBox[{"-",
    3 I% s$ i, J' k% N       RowBox[{
    1 D1 B: i2 ~" [        RowBox[{"(", # O% W+ h  G% x9 M
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 7 ^1 k- g6 j, h
            RowBox[{"(", # u. L; Z) f9 |" J- l9 @# K- F
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],3 y3 \3 S, j4 c8 v# `, G8 A
         "]"}], "/.", "DeltaX"}]}]], "Input",
    2 o7 d" u/ P% h% J CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    , ?. o% q! L6 t  c- ?/ g, U  3.57792132028125*^9}],
    7 x, f  h4 D7 X0 T1 n" @0 V
    ! p* g' _  T  W5 `4 XCell[BoxData[( F. v; F5 \& I0 r/ Q' B2 g* [/ W
    SuperscriptBox["\[ExponentialE]",
    ' H% y  W6 t0 _: _' r. D  RowBox[{"3.141592653589793`", " ", 6 R" I1 V6 t3 n7 z/ R- W
       RowBox[{"(",
    " I1 l6 U' Y' z+ B- g  V: l    RowBox[{
    " J+ \; \2 `- w3 [; i& N; E     RowBox[{"-",
    2 [. p7 I. ?0 q& ~. h) O      SuperscriptBox[* D  b7 D! N% T+ Z$ d7 v$ g
           RowBox[{"(", 8 `% |9 M5 y8 g9 O" l$ h  t
            RowBox[{
    * Z6 M2 T! E. z0 x. p% q         RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", , C! z2 W& n& A- Z
         SuperscriptBox[8 W) G4 U, M' E: C
          RowBox[{"(", ; b% K4 |+ J4 M% I6 F. h
           RowBox[{3 y1 G3 D1 a0 n7 S: K" M
            RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", * C" t  Q1 N; t/ V4 A5 H% ]- U
         SuperscriptBox[* k+ S1 [+ [3 \. r1 t
          RowBox[{"(", 0 i2 r" w4 d8 S' E9 o) |
           RowBox[{1 o6 v2 m1 ~  h- n* b
            RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    0 G7 W. }, A/ R$ g+ i" d     SuperscriptBox[; o: _4 W5 m$ _' T" X
          RowBox[{"(",   n" X( k) a, n3 I
           RowBox[{
    4 U; B. h; _/ `* A( n        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
    9 m0 I4 c% T& j7 J" w1 [1 h" _. b0 E     SuperscriptBox[0 P( l. ]' G! T
          RowBox[{"(", ' w6 ?& u$ w  W$ q6 i
           RowBox[{; O: i( j, r+ z
            RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
    4 j* k! j" `" C% K! f4 |     SuperscriptBox[; q2 Z: O; x8 T/ I  y
          RowBox[{"(", 3 @$ {/ v; h/ E8 Z/ s% ~6 \
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ) @- o) W+ h3 e; w* H( }
         SuperscriptBox[
    ) J. Q9 x% n# x  d$ r) J: }5 ~8 [      RowBox[{"(",
    0 a9 U0 G# }9 m( c       RowBox[{
    ; Q& l8 ?# _- V' d" K; U; z        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    % V" ]+ o. w2 |2 n     SuperscriptBox[; ~) o: l5 n! W. N6 X" z" `
          RowBox[{"(",
    $ Y( x8 r9 `6 I& Q' i+ h$ a6 L0 ?       RowBox[{
    ' p8 g& p; X( x( ^7 e7 p4 z        RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", 5 a* r+ ?4 D! }$ B; `9 {% R, \8 @
         SuperscriptBox[( P' |7 s# Y' [
          RowBox[{"(", * y) [1 E9 B$ {. I. m1 H& V6 i
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ; V' _" B2 j, m( `    ")"}]}]]], "Output",5 E+ \3 a9 M" |( ]
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, : [0 Z, Z" C: B( S( i
      3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9, * M9 t; y7 E8 d8 p2 C
      3.578012251359375*^9}]
    4 P- }, L4 w% }9 }6 r* `2 b! ~}, Open  ]],
    " Z2 H% A9 I# [6 ^# {7 k' d$ F' i0 I7 }7 V
    Cell[CellGroupData[{/ B4 a" E# z7 M9 m3 ?& v/ a
    % L$ u5 U* x* c) m' r& `5 R
    Cell[BoxData[5 H- e* r6 f! s/ d# T' r
    RowBox[{"C8", "=", "Ca"}]], "Input",
    & w6 `9 j5 p) D5 q) \ CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, % K1 m4 V: H5 r
      3.577921316125*^9, 3.57792141421875*^9}],
    2 b6 P4 |& L* f2 i" _9 x
    ) l& w8 U8 E5 `) s  g- vCell[BoxData[
    4 v. C1 v2 a' m; j RowBox[{"{",
    " s( Y, w$ O+ n1 a- Q" x" P  G: ^  RowBox[{4 M# Z8 ^( V( ?9 {2 W
      "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
    : ~/ Y0 O- d. h2 w: W   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}], / L  G$ J+ @: \) d9 z
      "}"}]], "Output",9 k7 m( m( P! z' W0 K2 m; g
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    2 L' A# |! [* i* y% V$ u( h  3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9, & T( y! A  a8 @. A) p% O  d9 C$ p
      3.578012260515625*^9}]
    ! O( d* u/ H1 x- g}, Open  ]],- s* V$ {4 m* v' c4 [/ ]& q
    4 y# [  X4 }. X. I% ^
    Cell[CellGroupData[{
    ) E  }4 P! ?; Q/ Y3 @: T6 m. u! h
    Cell[BoxData[
    6 q* m1 M# v0 O' S  @" U1 g9 p; w RowBox[{"u8", "=",
    & g9 {1 Z7 W8 a5 K9 W' y9 K  RowBox[{
    # N% L2 M/ f2 Z9 D* f/ E6 H$ [- q   RowBox[{"Exp", "[",
    2 ~/ n1 a' H8 ?    RowBox[{! l0 |7 G" J1 V/ \5 j) }( Q
         RowBox[{: o0 B$ r3 }, X$ R0 h# ^& @
          RowBox[{"-", 2 H& f$ W  H3 x4 i
           RowBox[{
    + C' |% X; b; Z5 `  n        RowBox[{"(",
    $ G* y5 q) Z0 U# k4 t         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", & _4 N7 h4 h/ t# Y
            RowBox[{"(", ! H6 r# {: {5 X3 a
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ! A5 W0 X0 ]5 w- O' s; g     "]"}], "/.", "DeltaX"}]}]], "Input",# C, d# ~' Y$ w3 o4 o; f
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    # q1 _' x8 C4 T  3.57792132028125*^9, 3.577921416921875*^9}],
    % u: D0 [$ H; M  M* A- r3 O4 y
    : Z- |1 {8 E' n+ X+ ]Cell[BoxData[
    * T+ _2 n5 n) P" N6 m SuperscriptBox["\[ExponentialE]",
    ) E9 ~( ?& Z9 \. K9 {( |8 v" S. H: F  RowBox[{"3.141592653589793`", " ",
    + Z" w; R* P( p/ Q   RowBox[{"(",
    8 \5 V$ Z3 Q7 j0 C  H    RowBox[{
    ( o% S. O  i1 [' `     RowBox[{"-", ; |( |  _% d8 }0 t( N5 W4 P9 o
          SuperscriptBox[
    # q4 a8 v* s. G3 B       RowBox[{"(", ) w' o) n2 i6 k
            RowBox[{( \/ q5 d; Q5 }5 T6 \( |6 W. S4 H
             RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", 0 s$ i- @+ M, o. Y. w
         SuperscriptBox[: q6 U2 h8 e% w, {5 z
          RowBox[{"(",
    7 A0 [% }3 b0 }7 l' A1 I# C. P       RowBox[{$ ]) T" `$ u3 _1 z
            RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
    / |0 i2 E0 w0 H/ ?     SuperscriptBox[
    5 W1 n: F" z- y8 U( P      RowBox[{"(", 8 Q/ o# d* V& X% T7 _( n
           RowBox[{( f. U% s8 Q/ M
            RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
    $ U4 [3 _+ W6 [. o     SuperscriptBox[
    / k( ]8 G' C+ @! X1 ]4 _# T& f. F      RowBox[{"(",
    0 |* F5 t$ D, _% J       RowBox[{
    9 K9 _) n7 J, t        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
    3 k* S; j8 }5 C7 N+ |& P7 n( Z4 T     SuperscriptBox[
    " ^0 F0 @/ S9 }9 a" V) i) x- f      RowBox[{"(",
    % [, x9 P2 L8 ?! Y& e' e       RowBox[{) H; F1 X/ T) f* z
            RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
    3 T% U. X+ C6 F     SuperscriptBox[
    : h4 W' G# ]! T. E      RowBox[{"(", 5 U' V. K" R6 s/ b
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    7 D. ^3 h$ C/ x- X; a     SuperscriptBox[/ A5 t9 _* H, j: D' x5 g8 u9 M
          RowBox[{"(", 7 k/ G/ R( k% E( a$ y
           RowBox[{
    4 _# l  K+ f, n8 \1 D        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", 2 `8 T: N% U* i4 |/ X& D+ B% H
         SuperscriptBox[$ ~" _; s  t) J: t- A
          RowBox[{"(", 6 m7 K# a$ i5 ^
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ) ?" F0 E# \" M; R9 a: u3 ~     SuperscriptBox[' n% C- I- v6 `% \
          RowBox[{"(", 1 D. O, H3 y! R& A/ e
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    1 ^. k" F+ V' n0 C. D# x& o    ")"}]}]]], "Output",
    ( G+ c% o6 W. f* R" Z; Q CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    # v3 x( E) z( t  g  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9, 5 D( y3 C6 L* ~* G1 N' l
      3.5779608945565863`*^9, 3.57801226165625*^9}]# E4 U5 e+ j0 Q0 D. P. q
    }, Open  ]],
    . @  o: x. `7 z9 y3 n. D! V
    + X, V; m+ N6 B% }, a/ fCell[CellGroupData[{
    2 c8 D& `' E0 S( S$ ^. j9 z! f% _3 X3 G
    Cell[BoxData[
    : m- l( [5 ?3 h% [ RowBox[{"C9", "=", "Ca"}]], "Input",
    ; H" B) l/ M1 r' y+ A# Q" Z8 J/ d- @1 O# W CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, & A/ v/ n. o% |1 O  @+ D2 a: e
      3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],6 J  s: z6 \" V. r
    - O$ L% ~9 L2 E8 j
    Cell[BoxData[
    : ?3 a; G, n+ l9 r. O# e# q RowBox[{"{", $ h% n4 A5 H% R: R6 m( V0 \
      RowBox[{% _; \0 h: V3 t4 p2 b8 l, E
      "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
      x+ M+ i9 q$ e   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}], : _( ^( f0 t5 X0 B( R7 `2 l
      "}"}]], "Output",
    , S+ X% a* {( `9 Z( b  P CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, & u$ e) B5 C* v: h' n
      3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9, 3 y( s! N$ K0 W4 d8 B
      3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9, 1 ]4 S/ Z/ p  s4 ?1 R7 O
      3.578012268234375*^9}]
    ) _/ S5 u, i& H% H5 z0 Z}, Open  ]],
    ' ~! j% d8 E' X" m3 f2 r8 S
    # H& Q; k8 R4 Q0 MCell[CellGroupData[{
      u$ e6 G% z) U. F% l
    " p; ^6 c" ~$ ]Cell[BoxData[" L8 s' D% d" G; B7 a  d: U$ t
    RowBox[{"u9", "=", ) u& c% P$ G- m+ n3 z& `# v
      RowBox[{1 l( s  F, [4 r8 `+ Y: O
       RowBox[{"Exp", "[", ' G4 x& ~2 u1 w: u
        RowBox[{5 c; |1 @) ^8 P4 \
         RowBox[{
    , r4 X3 E$ f: Z5 r# Z      RowBox[{"-",
    8 g) t1 ]- h* u$ K. f" l       RowBox[{3 V- f% M+ p3 i
            RowBox[{"(", ; g, w' `2 {/ }, k! q3 d% I1 [$ v
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    + w9 V) P4 c0 z/ V" G0 y& T* w$ X        RowBox[{"(", + W: I- l: I2 C" x* F$ x2 Z: a. r
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],+ S' b0 d1 N+ L( i
         "]"}], "/.", "DeltaX"}]}]], "Input",
    - z; A& W3 z1 l1 S5 I CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, # D/ u. W2 K- D: s3 V4 U/ R( S
      3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],
    . d* B1 w3 L) ^& i) }) ~& g; [3 W6 o! T; m  D/ r; O& e" {
    Cell[BoxData[( z: i  Q' {4 E( O2 z
    SuperscriptBox["\[ExponentialE]", ' o, L% G2 b2 o9 e" `: V% C
      RowBox[{"3.141592653589793`", " ",
    3 v) r. y; Y9 L7 H3 f  ^/ {   RowBox[{"(",
    ! W/ V( ?% K/ D. c% M    RowBox[{
    8 @3 B* z3 N/ L! l: n! K     RowBox[{"-", ; L/ q' }' E' R, B- V7 l
          SuperscriptBox[
    : z- V% p  [+ U# Z3 H( t) [       RowBox[{"(",
    : S6 y  K/ F7 p. `        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", 2 y: C, g  n0 v3 a. Y
         SuperscriptBox[" a% f2 A+ U* R4 v1 K# Z" M! L
          RowBox[{"(",   F6 q; P/ |( w+ n# T* D
           RowBox[{( `4 V) B2 @  J$ W- _
            RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
    ( p; p$ |( t7 {7 Y% @/ t     SuperscriptBox[
    . b1 r$ Q: x4 g, _! \& Z2 X      RowBox[{"(",
    6 R0 @( k* d; @8 H# T  r- }       RowBox[{6 w* C" ^. j9 y1 `! v
            RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    . t( H1 M$ t; I' s+ t& `     SuperscriptBox[
    . C6 V5 j8 |* J: y6 I      RowBox[{"(",
    5 n1 v" s% K8 T. a4 u, t# S       RowBox[{
    ) R2 \( l7 D" x, ]% e2 n  I        RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
    1 R8 x7 ~& \8 S1 D. d     SuperscriptBox[
    & {3 x& W1 q0 ]( \6 c$ W      RowBox[{"(",
    ) D" g& ?& t# T! c. C       RowBox[{% W% d2 I2 |- s7 b5 G# H/ k5 N
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    : e# R5 t# }9 T  a$ ~% j. w3 @! }     SuperscriptBox[
    # R+ W& p1 m! t% }4 B; H3 f. W; q      RowBox[{"(",
    6 F7 G6 o. @! P5 }) Z2 `' x       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    7 d* ]4 T5 n  s* O     SuperscriptBox[
      S/ o$ n2 W" V% C$ ?' l# [      RowBox[{"(",
    - i: z& x" E' A0 R, Y       RowBox[{
    % g$ H! K; W  C7 P0 x        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
    ( e5 F  Z) [; l- z. c     SuperscriptBox[( S! R% U: N* L) N
          RowBox[{"(", * O  x% G& z, i2 W0 S, G
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ( [2 O, r0 ^" U: q  U     SuperscriptBox[
    9 `/ i6 X3 L& B& T8 F2 u) p' E( s      RowBox[{"(",
    ( Z, _9 H* y- o4 e/ ^       RowBox[{5 r9 Y3 e+ h% C* A6 V( F1 L- j
            RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
    & Y0 r' v- ]1 B, w8 ?8 C  |6 m    ")"}]}]]], "Output",
    9 S4 B, D; y) r4 ^1 \6 x; f CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    ( a- Y0 U0 `! a& m; X  3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
    2 A3 }3 G) _- z" C2 g$ G- ]* T3 f  {  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9, 4 L7 U8 q, Y2 f9 |3 ?$ n
      3.577961530421959*^9, 3.578012269125*^9}]
    . ?5 i( z, \/ G9 q}, Open  ]],
    4 |1 \; x2 x7 i) E' m# P% ?& |* N/ [" x2 j' h
    Cell[CellGroupData[{
    * r8 l6 F" f/ C7 c' I) L
    6 T# x8 ~7 T5 cCell[BoxData[{
    3 Y0 g4 Z# Y+ ^7 U9 g3 n5 C RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
    " l5 o: R# M' D, H# O( K RowBox[{"u10", "=",
    4 m6 a5 G$ _7 g0 v2 T  RowBox[{
    6 Z/ E3 B" D1 v9 ]  }) W5 E$ L9 M1 x   RowBox[{"Exp", "[", ! Z: b" l' `: ~3 d) z$ I; Y3 Q
        RowBox[{
    / u- B- `, W0 K, L2 r5 R     RowBox[{
    ! l! r1 z: q) h0 i. I      RowBox[{"-",
    ! ^- |; l2 i  M. F       RowBox[{+ r( \3 k6 P5 }: R2 ]
            RowBox[{"(",
    . i1 p' b- U4 R5 L0 k' h* b         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    $ m9 }4 \+ N% f8 x$ n8 C        RowBox[{"(", ! N5 d7 O- |% g6 d: R; s
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],  R9 p' W2 \2 T8 m: m8 b9 }
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    + I( {+ W5 r; H/ l* H3 k. J8 r CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],0 w9 Q; Q1 Z5 f2 d0 w1 X- O, L

    + m& V+ v4 v# lCell[BoxData[1 _& j+ }, ^) _
    RowBox[{"{", $ R' M1 q+ t& ]1 K. _
      RowBox[{# A! }8 I) G1 H) r, w8 J. @
      "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",", 6 A$ ^, z& X& Q+ g) b$ V
       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
    0 G4 _; X0 s+ O8 w0 z( M: y8 C CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
    $ w3 W: a% p! W* U: @/ Y3 I3 O! y  \  H( ^
    Cell[BoxData[
    * [! J. a( E' z/ t SuperscriptBox["\[ExponentialE]",
    1 v6 e+ a, P" u5 X; T) d  RowBox[{"3.141592653589793`", " ", ; y* J; H: n  k5 s2 X4 {- x
       RowBox[{"(", 8 }* ^' P% z8 q0 g- ]! T2 V# Q4 d
        RowBox[{
    & W6 T! }& Z; s6 A1 A     RowBox[{"-", 8 U9 j; b( {$ u: {2 H
          SuperscriptBox[* z( X( [. f# h+ g+ E' _6 u
           RowBox[{"(", ' A* U6 M8 m+ R8 N* d
            RowBox[{7 b/ p, u, v+ m! `0 ?+ b9 c
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", . T6 ~8 W3 l9 O4 R9 }! \( D
         SuperscriptBox[, I& }5 G# M' U! L; k9 K: l6 i0 Z
          RowBox[{"(",
    ' K8 ]' L& f! [$ E       RowBox[{
      ^* P/ l& p8 S2 H# m4 f        RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-", * k$ y( R. }! _9 v5 F, s9 u
         SuperscriptBox[  U/ P+ Z! C% n/ q) R/ G
          RowBox[{"(", : l% Z' `2 N' ^  t  ]6 x
           RowBox[{$ o- g6 ?2 ?& X( F4 ]( C) g/ L
            RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
    . G. `8 n# c7 R. L     SuperscriptBox[
    2 I8 R1 a* O- r' d      RowBox[{"(", 8 ^% n& a# [/ K1 S, z$ P% A
           RowBox[{
    " E  {1 u: @- c- v' M' a        RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
    . B! k: P9 I$ j) T: ]     SuperscriptBox[
    7 a' [( p$ J4 J" J0 G3 g# |. t      RowBox[{"(",
    1 o+ s$ t8 r) S3 ?, p       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", 8 U# _) p# ^& Z* J
         SuperscriptBox[
    / I# y$ A3 @0 k, U; F      RowBox[{"(",
    * @- u6 U$ T) l8 C+ V( p0 d       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", $ H" i- W- i3 |2 B  m5 C. w
         SuperscriptBox[2 S4 t8 j' d+ M* r' X
          RowBox[{"(", , L- |2 j$ q4 M* Z9 B3 E1 s0 x
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    3 o" w1 L" c0 m' w/ L     SuperscriptBox[
    # d) L" n: Z9 M  r" E      RowBox[{"(",
    4 E# l' t9 n# Y9 U0 S( o3 d) K       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", " `& e; F% g! @! J7 Y7 E2 N& i
         SuperscriptBox[
    $ G0 r" ^1 c8 T) @+ R      RowBox[{"(",
    / ?8 m  @$ H4 n# N: T& ]       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    & a6 K! r% k( n" H$ |$ R    ")"}]}]]], "Output",
    ' ~2 o- ?/ U6 j1 w$ U$ S CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]
    ! b6 i9 b! X$ D( ]% I1 C* G9 Z% k}, Open  ]],
    / s- t. v( |" _2 _$ g
    ! @: ]8 ~* P% T4 b8 p4 c" P1 dCell[CellGroupData[{
    3 a7 h! l2 N. I$ q/ G5 `
    ' N1 A3 `2 _1 m3 V# Q- qCell[BoxData[{) N4 u% Q! z0 j( l2 @" X' Y
    RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]",
    ) k) y* g, j! Y" O7 n$ m RowBox[{"u11", "=",
    . h( J. F# l: l2 ?8 d3 k* u8 w3 l  RowBox[{+ k: _3 K5 B+ O+ v
       RowBox[{"Exp", "[", * H4 j! o2 [$ H1 x* d* ?; v
        RowBox[{# Q: z5 N% z) f0 C
         RowBox[{
    : q" e0 K7 o0 v1 h9 S      RowBox[{"-", / s( z! f) J. |% g% O
           RowBox[{; K8 b  L% `% f2 `" }! H( y4 \" G8 W
            RowBox[{"(",
    5 q4 r( x: y5 r6 u# a) Z         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", + e2 Q9 t0 u1 U9 C1 V
            RowBox[{"(", % }2 d% }8 h1 `
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    : s# d/ q# L( w1 e9 m" ]7 W( w     "]"}], "/.", "DeltaX"}]}]}], "Input",
    5 C3 z' B: ~' a4 c CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    : W8 `; K* a' ~* K5 J  3.57796154237158*^9, 3.5779615434011817`*^9}}],
    0 I/ H0 p' n. D' ^0 m
    7 B3 C/ G. m% ^; ICell[BoxData[, A7 F# z( Q* j9 }
    RowBox[{"{",
    * e6 ?( Y/ G/ w/ u  RowBox[{
    ! x& @9 w9 ^: j3 J- t& ~/ A6 V' s  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",", * L! y# D% m; _6 O! a: p
       "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    0 @" Y- Q0 ~* P) e7 S- L" n+ C  "}"}]], "Output",9 L2 V- \- j  S( b! K  ]9 N! M
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, 4 w$ r; y: `9 t# t
      3.57801228203125*^9}],5 c, Q# D) L, ]/ @5 f
    - K) e3 [' S# }: f' K/ G& _9 s
    Cell[BoxData[
    # m; o7 H2 n% `) F1 Y3 {$ ^  s SuperscriptBox["\[ExponentialE]",
    2 n# X1 m$ D* L* C4 ^  RowBox[{"3.141592653589793`", " ", 3 |) l9 R" |, [2 Q
       RowBox[{"(",
    3 a2 T0 n9 ~, g0 c8 h) u8 o    RowBox[{
    5 w* _$ w6 z: i! |9 K5 f2 u# V     RowBox[{"-", 7 E9 |- ~' F' `0 Z1 j0 N6 Q* S
          SuperscriptBox[
    / l7 n6 t0 O% c  \       RowBox[{"(",
    % i' W) r/ \3 f5 y        RowBox[{
    9 z0 e+ i7 y% N' p0 ^4 H# l         RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", $ _& N7 r( |) d/ C/ K
         SuperscriptBox[
    % b' {: C% U! f      RowBox[{"(", 3 s9 s, T* P/ T$ [; W
           RowBox[{
    $ M2 H$ c+ F, ?8 v0 \) n        RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", 8 h8 @7 t  t0 D7 N: b2 W
         SuperscriptBox[
    6 A6 X( I6 O0 }7 X      RowBox[{"(",
    " X+ ], q! I6 c5 |4 k       RowBox[{
    % X* ^; N+ s( W' M3 C  d! S: b        RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", 5 k+ y  h4 [& S7 r. U: v& I
         SuperscriptBox[4 ?8 I; f( m, x4 A" u# q
          RowBox[{"(",
    3 j( _1 y+ x3 k% T) i       RowBox[{0 q) ~6 ]/ \( k4 N
            RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", 4 T. }) X3 I; J, U% t# ~  B9 M
         SuperscriptBox[
    + @3 A+ v. c$ [* t% ~+ i      RowBox[{"(", 7 X# h' ]/ M9 o. H2 {2 Y
           RowBox[{( b# s% q8 q% J+ J
            RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
    . K" ^& ?: H0 P/ m5 K& z3 R     SuperscriptBox[
    % P! c+ ~" }" l# `4 _+ x  b- ~! Y      RowBox[{"(",
    ) n0 S# ]* y5 |       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ' v, B8 r/ ]" P5 G" P5 `7 o+ d
         SuperscriptBox[
    ) e, n+ j$ h' A3 g4 S, G6 x      RowBox[{"(",
    : w. N' x  D; d; B3 I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    4 f- \3 X3 W7 q- C* z( k1 ]     SuperscriptBox[
    1 m+ Z# |* \9 N8 g- r# d      RowBox[{"(",
    ( s4 _$ k0 U8 P2 w       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 6 _( r! |2 @+ N2 X
         SuperscriptBox[
    ) |0 j+ `- C6 m$ f      RowBox[{"(", 6 V; F. H9 W* `! L0 v. Q
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    $ H' }. B' h9 O" N" t    ")"}]}]]], "Output",
    8 h+ n( w8 H. {+ c6 F: z( Y* H* t CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, # ]1 i6 `  }1 `2 H7 G, N( {
      3.57801228203125*^9}]5 M4 Z* K1 K- y$ P; n. B5 I1 J! I# d
    }, Open  ]],
    ' ^. V7 h5 ]4 x/ U" f! Z6 G
    ' z2 }& ~" |% {, A) a; z, jCell[CellGroupData[{" j: @5 y# W4 c

    - s2 m. I. p: z6 f1 ACell[BoxData[{$ T$ p5 b& [1 s9 p
    RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
    $ l9 t, H5 _  ^% o& C  ^2 T RowBox[{"u12", "=", ! G* V, d9 _6 Y, c3 _9 z
      RowBox[{1 z( A; H# C" p8 i0 \  I  f. A# b" @
       RowBox[{"Exp", "[",
    2 l9 [* t  s( Y- A) J: [  {    RowBox[{
    - E) b/ g. {9 V2 E1 l. B- G" O6 O     RowBox[{
    - ?4 P5 y5 O- z' [% K: y      RowBox[{"-",
    % J8 y6 w/ W" c" J6 c       RowBox[{
    2 R! d5 }2 E  K0 U        RowBox[{"(",
    / B& c7 a* ]  K: }         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", - J3 D, S0 {+ Q: C+ `" F! [( K
            RowBox[{"(", 8 `2 o- f8 \  I& m
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],) Y' c3 c/ g$ b: \
         "]"}], "/.", "DeltaX"}]}]}], "Input",2 L% J8 G1 A2 B2 ^( j
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {  n: o- [+ K) K, U3 U8 g
      3.57796154237158*^9, 3.5779615576284065`*^9}}],
    , k% T1 m* Z/ p% l1 ?! n" U0 w; R7 l# t( U
    Cell[BoxData[
    * T) N9 z6 y0 A( V: B RowBox[{"{",
    ' ]9 P; r6 t! W, e0 a5 O  RowBox[{9 G; o3 O% E" K8 z
      "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
    " t( X) w( z; l7 r1 U   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}], 7 d+ Y6 Z) n$ o5 }, j7 N
      "}"}]], "Output",. e2 `- X3 F' b4 u
    CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],+ ^- r* Z. w0 d' E" ~- ^1 M- u8 v

    % B3 q* a$ S4 O: l7 V) ?Cell[BoxData[
    / O0 S- ^& Y+ L( B9 u; J' x SuperscriptBox["\[ExponentialE]", , R  d, Q/ W+ n3 J% n! B# K( x; r
      RowBox[{"3.141592653589793`", " ", * m2 r6 e* t3 a- V& T
       RowBox[{"(",
    1 A; Y9 A8 G& X9 ]    RowBox[{" J1 U+ R- e! s! U1 R/ C
         RowBox[{"-",   N" s2 U/ i# Y/ U9 ?
          SuperscriptBox[
    5 l2 ^* o) t0 B4 V( {       RowBox[{"(",
    8 ?, v/ w7 c# r8 w! Q        RowBox[{
    2 l  y- Q. q/ [2 R3 ~6 a         RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", $ |9 I# O1 s9 ]9 j
         SuperscriptBox[# h9 K" Y7 F  }  N) v, L5 x
          RowBox[{"(", 5 u  d* L& c; c
           RowBox[{( |) a) `' @4 D
            RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", 4 {0 j7 d) m$ ]6 i+ B
         SuperscriptBox[
    * Q$ d0 ^5 N; }2 T      RowBox[{"(", 2 Y* s/ p* S' Y7 T* X
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", 2 h# o0 r, F8 {. |* N* L
         SuperscriptBox[
    ( ?1 D5 W# L/ {( I      RowBox[{"(", ' n, T& m6 X1 Q3 d
           RowBox[{
    ' U! M+ }$ K+ R( \* o7 P7 ]        RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
    * H7 y& _0 P( v. R2 m( _     SuperscriptBox[# p+ U5 l. @9 |. a: ~" z7 n/ z
          RowBox[{"(",
    - [4 I+ T2 d$ s       RowBox[{
    ) s* f  t, `) g. F/ i- e6 L4 T        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", % X0 x) a- E8 k7 Q$ a7 H
         SuperscriptBox[
    6 x! Z1 N2 J7 i4 y) ?      RowBox[{"(", ; d( e, ~$ z9 o. J( A
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ! [  U2 b7 C" _7 n     SuperscriptBox[# b7 G% j0 g# H, I$ I& o( l( K
          RowBox[{"(", ) \5 _8 k+ S' e0 c; @/ S) \6 w$ \3 z7 A
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 6 P. u. n2 Q9 P+ L% |  Y: i- y& U. r
         SuperscriptBox[4 V% [" D7 ?: O/ m6 Y! U% w
          RowBox[{"(", : X' U$ R" j( F1 H/ h, Z
           RowBox[{! x/ i9 K# t. [) z
            RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
    7 Q" ?8 p3 g. h1 A  A: v     SuperscriptBox[
    + \. n6 O7 }' v9 f# V$ g/ w( @+ u  X      RowBox[{"(", + e$ M8 N2 N' D4 j2 d& X5 g
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 2 @% Y) u3 F1 y! a1 n* M
        ")"}]}]]], "Output",
    , B" T2 u3 c4 w: d CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]# W+ D: b/ Z) _) }% s' j5 F  p
    }, Open  ]],
    & j6 e5 d: \! c) n" o# i4 j7 R1 I; \, ?
    / I1 d% a; I+ I1 k; `/ l) y  R; {4 qCell[CellGroupData[{$ u: p9 G, z& r

    ( W1 V0 B/ H$ Q' L2 o/ W; _  g% jCell[BoxData[{
    # @7 T9 d, X6 W( ]9 b8 @4 F RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
    ' m4 z% |5 P8 ~2 w8 e% ]9 E: |" w RowBox[{"u13", "=", " q; I) r! J3 R, \
      RowBox[{
    ; s' Z+ {7 e4 q. Q! t1 u/ R# e   RowBox[{"Exp", "[", : _7 L  y3 [2 u) T
        RowBox[{
    , k( i7 ]: Q+ r, n2 K* T% o+ |% Y" r     RowBox[{, g- s" k: Y4 |  u/ b
          RowBox[{"-", 2 y& r, E2 ^( a6 m$ S
           RowBox[{% r* N/ e8 W9 v' {
            RowBox[{"(",
    . Q, v5 ]. w/ P; }; y" _         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ' N: z0 b* w1 r7 C        RowBox[{"(",
    8 t4 i' \( N# Q$ y8 T8 L  h0 Y         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ! A  X5 R9 r+ v! ~% z4 y3 `) S     "]"}], "/.", "DeltaX"}]}]}], "Input",
    + o% K- {+ f' [2 T3 S( e$ s7 \. z CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {7 y5 c; ?$ @+ _  C3 x
      3.57796154237158*^9, 3.5779615599684105`*^9}}],
    0 E4 Q% S4 ]/ G0 [5 ]) A. O
    * g. b/ c8 E! {; BCell[BoxData[
    / q0 `* W3 a" ^ RowBox[{"{", . \/ e6 ~% M  Y+ ]; [
      RowBox[{0 U! d1 c  p3 A+ L. a8 U
      "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",", % G! G) Y. C6 r
       "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
    . h& @" W0 M) L. ?! e9 ]+ i2 j  "}"}]], "Output",
    7 @, N& [% Q6 N8 y4 o' V CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],
    ! v6 w" {- l) Z* ]9 N( }2 x: S( o+ x( R. ~* s; I) `
    Cell[BoxData[7 o1 A" O/ v! ]. b5 }& Z
    SuperscriptBox["\[ExponentialE]",
    * q+ `" ~. _' p, C" P8 w/ y4 H: j  RowBox[{"3.141592653589793`", " ",
    3 h' {- Y+ z3 E4 F( s8 _0 v4 f   RowBox[{"(", ; c1 H* W2 l& I& b4 @5 u
        RowBox[{
    + j% f0 G8 T2 v! W! I0 Z     RowBox[{"-",
    - I+ A8 I3 `) j) r      SuperscriptBox[
    7 ^5 g4 R* r( L* m: u0 H       RowBox[{"(",
    + n% }1 }6 G; W1 j. M        RowBox[{
    9 i* j+ p5 \( b         RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-", 7 P. _" I$ W% C5 e0 |
         SuperscriptBox[
    ' q0 ^9 L. t) {+ r4 ]      RowBox[{"(",   c/ A: z6 i* ]( @3 H$ g- b
           RowBox[{, M9 @* s" D3 W8 J5 A- ~
            RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", ( t& T! N# T& w9 Z
         SuperscriptBox[7 u; r( r! K5 p) b
          RowBox[{"(",
    1 X* Q' P* F1 x. Z       RowBox[{0 C6 n1 y2 h& ]& f
            RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    1 v" e; k8 v5 W: b  e1 G( v     SuperscriptBox[
    ) p' q, U2 j( R9 T: _      RowBox[{"(",
    ' h& J$ y# F1 I( ?       RowBox[{  b/ F; u8 O1 q( M  Y
            RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
    7 l4 W: n- N/ G" J+ A8 U     SuperscriptBox[6 c' Q, p; l/ ~4 z# C% x/ V
          RowBox[{"(", 2 b9 E3 ~$ y4 ?$ k# Q. @: _
           RowBox[{* o" f2 ~4 i0 x6 f, H3 G% @7 c
            RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
    - T' W& y0 A$ x: O* Y. @/ h     SuperscriptBox[
    # }$ }' o, C7 ^, Z, Q' j6 x3 I) m9 A      RowBox[{"(", . Z0 g/ z# o7 B, l: a
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", & w! L! D" A! q! G9 K  Q
         SuperscriptBox[: J4 D/ I6 a' f- T2 N
          RowBox[{"(", ( Z) z8 R- b, ~" ^
           RowBox[{$ O& b1 }- f, p. K  I( I" M/ q. ]5 I
            RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
    7 \1 Y' k3 ~5 Z2 w$ V! j! i     SuperscriptBox[% d! s0 `+ O$ F
          RowBox[{"(",
    / v! q& \+ m( X6 A       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ' G; X- Z: `! p  J; _     SuperscriptBox[- {9 s8 p+ v1 v! I$ x) c7 b
          RowBox[{"(",
    / c% s* K( w4 ~- ]       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    1 N6 U+ z. u- b7 L! r( s    ")"}]}]]], "Output",
    " O- t3 |3 t" F0 d. b. g CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]& N. c! \- @4 m) e! Z% v1 V4 ~" }
    }, Open  ]],% k% }: h& ?4 r  ]
    0 V6 T* N" m: ~9 n! c2 s6 b! s
    Cell[CellGroupData[{
    , Q8 `! |6 {5 Y' E
    7 M; Z# V0 r7 H3 c- v6 SCell[BoxData[{9 a( Z' d% t. h
    RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]",
    ) G; J" h. y* I0 C RowBox[{"u14", "=", 8 c9 R* i( D  |; s3 K! Z
      RowBox[{
      B1 m8 V  r/ Y   RowBox[{"Exp", "[", - g- g) G4 X* Y# W
        RowBox[{
    . S! i. ~! ^$ u" C! u; Z     RowBox[{* Z( e; H* y. z% E# }
          RowBox[{"-", - }/ f6 o0 i8 B4 h$ R' F/ w" J
           RowBox[{
    7 g0 ~2 k2 n3 d, W1 I! H- y0 Q4 E6 g        RowBox[{"(", # n0 X4 r0 {0 E- l( B, I1 v2 |( }
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 7 Y% Y& L. [8 H/ U; U
            RowBox[{"(",
    $ l7 S% V4 y' [3 C+ w         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    0 Z  i  ?' }( p5 A* m( f, s& Z     "]"}], "/.", "DeltaX"}]}]}], "Input",  `( u0 c. ?* }
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    3 a! h& p/ c0 p  3.57796154237158*^9, 3.5779615663176217`*^9}}],- _  H# l) V  C

    3 g# A2 y3 V) x8 X- r9 ICell[BoxData[' F" K( H4 M% Y$ f' D9 N
    RowBox[{"{",
    + k6 H% Z* V* Y5 H1 v+ c  RowBox[{) j- Q% Y% e2 r$ J' c
      "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", 2 r# ]1 I$ V' w$ j# {, l# T
       "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 5 x3 b0 [* F6 ]% p0 |( O& u* ?
      "}"}]], "Output",4 _7 ~. P; X% _7 W* |0 I- D
    CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],* Y  K0 D; j+ u6 b9 s
    ! E2 {- \9 M' q) E+ L& T& f: b
    Cell[BoxData[
    & B1 [& I/ z* b4 w5 d. |6 p6 L SuperscriptBox["\[ExponentialE]", . [% W) i' K* k* [+ ^& [7 K
      RowBox[{"3.141592653589793`", " ",
    $ H- }5 V% q/ T( T* c4 A7 P8 i   RowBox[{"(", 8 E: O/ I6 c+ b: E
        RowBox[{1 T( g+ X. h& _2 ~
         RowBox[{"-",
    + l9 n1 o- _* ^9 I. w$ l0 V      SuperscriptBox[
    & Z! ]' K1 Z9 E- _% ^+ b- P       RowBox[{"(",
    4 m5 f! N7 T8 R; c5 B        RowBox[{
    # u9 B# _) j7 T$ [         RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ; P& }& R8 H8 |     SuperscriptBox[$ p/ u2 g  `: G- \1 h0 z7 M0 y2 R. ^
          RowBox[{"(", $ ?( m( u) k% t2 ~( [, Z
           RowBox[{
    9 a# z6 C! t  g        RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", , W/ b# R6 E8 L# k
         SuperscriptBox[
    , G* z0 V0 _3 X5 x% q      RowBox[{"(", $ T) j$ v  r& c- ^- C+ d
           RowBox[{
    8 N/ p5 V, d* g7 J( K3 S- |        RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
    ) b2 }1 G- t+ ?, y" @; l* s3 m     SuperscriptBox[3 }6 s: B* i' S* K2 n
          RowBox[{"(",
    ! p9 R7 M4 O- L4 Q( T# r       RowBox[{
    * G+ |  s8 d: O8 a        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
    7 J. x& F8 U- w) x) O! A9 @     SuperscriptBox[8 @4 [' l* z: X" h* X
          RowBox[{"(", ( K5 j& F8 \4 G7 _* T
           RowBox[{
    0 S' \3 w+ c" c; U( W4 {        RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
    5 \' U  K) r8 l8 @0 |     SuperscriptBox[
    ' J8 c# b, C, ~  a2 [      RowBox[{"(",
    % }+ @# \! D& E2 q8 S       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ; R$ y' g: p: |     SuperscriptBox[
    % a' _; i* Z4 Y% U+ T      RowBox[{"(",
    $ F! w1 ^- V; E- P( }+ o       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    3 `/ \- X6 x) Q9 G) k+ x1 W' y: B     SuperscriptBox[
    ( K. [5 z" ]( g      RowBox[{"(", " g7 I, j" B2 |0 L
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    4 m, ?" E5 h' v7 B( D* L9 o3 E! _, n     SuperscriptBox[
    1 m; p( @7 N" I8 }2 H6 n      RowBox[{"(",
    & S! F4 v: Y+ n       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    2 _3 D2 c' J% R( r  X- ?' k6 C5 T    ")"}]}]]], "Output",
    3 G$ q4 ~7 Y$ |  z# B2 t3 L) v CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
    ' ^3 l( M9 G7 S}, Open  ]],+ t7 u$ \3 C% E5 [5 K7 @+ X

    % b7 W* u1 ]1 o! `% z4 zCell[CellGroupData[{" J/ ?* g+ P( p) _& ]% x
    7 \6 h2 Z" L' X" Q: a, h6 Z7 E' G/ H
    Cell[BoxData[{
    6 r, N8 N- A3 Y+ p% b RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]",
    ; A" G7 S6 W9 x$ b RowBox[{"u15", "=", 1 p1 {/ d# w8 Q& ?, Q4 \. Q
      RowBox[{
    2 R/ f% y* I4 J7 Z  t& v% D   RowBox[{"Exp", "[", ( v. X+ `. Z! k. c" X& ~
        RowBox[{
    4 y* }3 @" [+ N& M9 [6 U5 D# P     RowBox[{
    0 ~  w& P2 Q. t& I      RowBox[{"-", # B+ Z/ Z7 a* P: j& W
           RowBox[{2 C# P! g% s2 r7 S: M4 v9 a
            RowBox[{"(", 2 V5 m: p2 q7 X- N3 s* Q
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", : A: a1 \7 q: A* y: T+ H
            RowBox[{"(", 7 [# _% ~2 a8 d
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],$ ~/ K. ~5 v6 u* i' o, D
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    + M( S. Y. T; e1 ^ CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    3 P- r$ S8 o- s7 \# \  3.57796154237158*^9, 3.57796157098203*^9}}],
    " g) ?; h4 g3 z* S: F
    % E/ t. a! k; ^1 Y7 yCell[BoxData[9 _5 f6 ^& W* U5 M1 b) H' ?4 y
    RowBox[{"{", $ S6 N: Z" ~  W, A# R) T
      RowBox[{
    2 R' d$ h5 a/ V1 O' @+ |/ o% U  "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
    ' q0 _5 t1 L! F+ Z) g5 \# d   "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}], % ~  x8 ~: P) Z" D
      "}"}]], "Output",7 U8 O! K6 M+ q* r% k, o% B
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
    ; z8 b3 @+ ~$ n& X
    & o/ T, e" l: b( P8 zCell[BoxData[
    8 m9 R% G, h. R) L0 G SuperscriptBox["\[ExponentialE]",
    9 v$ x& l1 t  o4 v  RowBox[{"3.141592653589793`", " ",
    ! Z* m  r( n8 l3 P; c7 C! D6 G   RowBox[{"(", # }  E, |* I! u2 {7 j7 Y
        RowBox[{
    ) N  H, r) P+ K4 I     RowBox[{"-",
      W5 M+ y/ k! E      SuperscriptBox[) b; }3 V* [& S; ]$ O# b) M$ c, Q8 z
           RowBox[{"(",
    * v' b# ^4 ]" l4 l& M5 m3 k$ h        RowBox[{) P4 j5 z5 j  v* P. [8 K; u! L
             RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", $ q, q5 v- I$ e9 K0 T
         SuperscriptBox[/ b' D5 d1 ]: {- }3 Q6 D% T9 I
          RowBox[{"(",
    9 @, |5 A7 t9 }: L3 J  R* j$ s       RowBox[{+ K4 Z& L% r. B- H
            RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-", ! C# y9 f) Y+ ~
         SuperscriptBox[' u7 L0 h* Z% n$ A/ _
          RowBox[{"(", / R  R1 U  e- H9 I! u/ b1 j
           RowBox[{
    ' F$ m8 @. u/ q  k        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",   Z7 ^" `3 B; q. Z( t
         SuperscriptBox[
    # \9 ^" g- W' y      RowBox[{"(",
    4 P, j  [3 C" g$ Y       RowBox[{. A# g: T% R+ L. c( \
            RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
    & ^) x0 e) H: d; P/ @% y/ J     SuperscriptBox[5 `' `$ Y! M9 P4 @% D
          RowBox[{"(",
    9 _! n$ N  {; W+ g       RowBox[{
    2 e8 w! B* e/ d1 Z8 `8 W9 p        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    , O4 m* K; H" ~( {( I0 O1 i. K% D     SuperscriptBox[
    * X9 n3 X9 O! @7 D7 F0 y      RowBox[{"(", 1 }7 d3 v/ y7 a  u
           RowBox[{1 S% Z9 T5 }+ u5 Z$ C. S- V) X9 {; \/ w
            RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", ( |! \% i" o- w0 _) s" P) o0 v$ S8 a
         SuperscriptBox[
    ) |5 x6 z- G. {- e      RowBox[{"(", / ~/ f* t4 A" A% U+ Z
           RowBox[{
    0 e+ w6 t" g2 w& V" z, R        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", ) Q. s( W3 [; U$ H8 [1 i# [
         SuperscriptBox[  Z; y1 u; [% a. j
          RowBox[{"(", # N9 p; a" Q" x: Z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", / l: r# U$ J" K; V  {
         SuperscriptBox[
    ( s; i2 x& K& ?, O      RowBox[{"(", 6 j, e) t* b" `9 [& _
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
      Y) A$ }8 f9 {0 E5 n% R/ [7 T; Y    ")"}]}]]], "Output",
    # w" u) n, J! ` CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
    2 V# k1 c$ |% o* u" S}, Open  ]],
    4 O" L5 z7 s3 X8 Z7 d9 k7 ^$ s4 I5 y4 c+ P! i3 D+ B  Z) d
    Cell[BoxData[
    8 ^; i0 L5 ?# F* g6 U7 h RowBox[{"For", "[",
    9 [4 I. @+ r) p, D7 R& M. x* _  RowBox[{0 M( N6 S( U# N0 d( q: T' C
       RowBox[{"i", "=", "1"}], ",", - C4 f! V/ c, U1 F5 ]4 [( ^( S
       RowBox[{"i", "\[LessEqual]", "9"}], ",", 9 h. v. C0 e8 p$ q; {2 Z9 `
       RowBox[{"i", "++"}], ",",
    8 |" p/ o" K$ l! ^$ {   RowBox[{; K. z0 Q" i* \# N$ r. D
        RowBox[{"Ca", "[", 2 v1 c" J( U  R: O% s2 ~
         RowBox[{"[", "i", "]"}], "]"}], "=",
    % d4 y1 {; A9 x  A: S    RowBox[{"CM", "[", / i. ~7 |5 [/ \
         RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    " F1 }% ?& M6 d0 N+ K7 Q/ s7 c1 N CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],, v8 F  J, V2 x. V( Y! j
    5 |6 H- q; N. H" @! d( s
    Cell[CellGroupData[{* ^4 _4 ~. ~* {8 O/ w8 j$ S7 R9 c
    , a- j8 F9 u% s* n
    Cell[BoxData[{7 J+ U; E& J" J2 g9 Y2 g
    RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]", - g0 ?3 z5 p$ B' G2 c8 ]
    RowBox[{"u16", "=",
      G/ Z, U2 b0 |1 E1 Q6 Q) F  RowBox[{
    ' q2 U. z5 q0 A& R0 q8 o   RowBox[{"Exp", "[", * T2 s& j- e: h6 G7 p# w% c
        RowBox[{
    9 e& @; m# t9 ^( z; \     RowBox[{% X- i$ E$ e, l7 _6 i
          RowBox[{"-",
    6 o* n, K% _: C4 E/ z# e       RowBox[{* w% [$ J9 [3 y$ L; T" U; H& n, u* ~
            RowBox[{"(",
    , e: S" ?) V" e; ~1 P- r; r' g         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", $ y- |5 ^5 E1 E+ E
            RowBox[{"(", + ~1 E; G0 z) L7 O" ?, i
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}]," @' C" w' X3 E9 v* `) Y$ _  }* w
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    2 o$ E1 H% h4 u5 `1 {+ _ CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {' {6 @1 G: K  q3 l" m" h
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
    ) a. _4 V9 Z1 [  3.5779615751004367`*^9}}],
      v2 y: D' {- m* [) S$ u) L- j& F/ j+ Z
    Cell[BoxData[
    5 a  W6 g* Y4 U' }; V# m% M5 O! r RowBox[{"{",
      n! g4 U$ |9 H0 @) P  RowBox[{
    / G5 ?1 d& y% e' ?- Q' m; K  "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",", ) W( G- I; t# u: C9 l
       "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
    ' n+ r' M/ ~& i% a  "}"}]], "Output",  S) Y5 `/ o" t* {
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],
    7 j+ @, ~  n$ M! y5 I  }- L) g' _8 X# B5 o) m
    Cell[BoxData[
      ]# p4 C% k2 T% V/ G% } SuperscriptBox["\[ExponentialE]", 5 u& @1 U6 ^9 H3 x- Y' {
      RowBox[{"3.141592653589793`", " ",
    9 R3 k) S3 c6 R- f8 L   RowBox[{"(", 5 i: A/ f7 o8 ~( ?) |% `" }3 V
        RowBox[{& D' e- O4 L& @& J3 p
         RowBox[{"-",
    ; ~, W( p  i$ `8 ?% |9 ], m1 ?% g      SuperscriptBox[5 I6 Y& ^; H4 Z/ j  r
           RowBox[{"(",
    / J9 T. w. \# K  N& j- W* j* W        RowBox[{" a0 \( a5 S6 U9 n
             RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
    3 D) X, a6 l; H7 x3 V, Y  o     SuperscriptBox[
    . M# J  V2 J' \! t      RowBox[{"(", 6 x/ P; q( l# i& S$ ]' b
           RowBox[{% J% P9 a4 r: b) h! \
            RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", ; n" F1 d9 O" l+ `4 m2 S7 L* e( x
         SuperscriptBox[
    5 x3 f  {8 }; C6 S; E      RowBox[{"(", " {: S$ m2 }6 K, ?2 X2 f
           RowBox[{
    8 k- ?) J- h0 C5 |; z. Y        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", ! I( d0 `/ m0 `8 [: v
         SuperscriptBox[  k4 T4 H8 h' R, B, l
          RowBox[{"(",
    . ~% L, {+ D: ^       RowBox[{
    + ^5 _& c. q: S        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", - b' }, P# h: n- }) O; _
         SuperscriptBox[  V! P' P) k2 y3 k- q
          RowBox[{"(", 0 g' M& ]) g: C1 o
           RowBox[{3 i7 n! {, G8 s5 ~( H
            RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
    . s4 Z4 b9 t+ i& z9 Y     SuperscriptBox[
    2 l5 \9 |) Z/ _/ d& [1 {# N8 v      RowBox[{"(",
    # x" k: U  b4 ^; b- s1 G2 _       RowBox[{1 [4 I& I6 U6 D) `
            RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
    ) S0 y, Z/ }0 L( X7 S# D     SuperscriptBox[
    $ H% v! H2 A0 j/ h2 ?      RowBox[{"(",
    7 P, ~$ l% g8 q% W3 Y       RowBox[{" u# E& h  O; T% c
            RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
    5 @8 m. W. d" P  l+ T3 r" \     SuperscriptBox[4 g8 ~7 D5 m& p! u1 O( a0 X
          RowBox[{"(",   ~& g! N+ R% ^8 u0 t6 v
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", + [% r2 ~! B+ i8 Q( ~: O$ A1 G+ K
         SuperscriptBox[
    + A! h: A, F4 S; O. E, ~. e* i! d      RowBox[{"(", 3 u, w8 r$ n3 i; @; m/ s9 H5 `
           RowBox[{
    / h: T& H) l" I1 ^5 z2 D        RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",
    9 G' B8 U* }  _# h CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]: D  L: J1 r+ P* Q
    }, Open  ]],7 h1 z% n& r6 s" M7 c5 r
    ; k. T6 L; a) ?4 ]% E! s
    Cell[CellGroupData[{; _. L' C7 P8 Y: T

    " ]) O/ Q- \; J! i. A, JCell[BoxData[{- _/ d% K- i, R
    RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]",
    % y: A6 M2 W9 \: y$ V RowBox[{"u17", "=", ! {1 R0 L, {; w) ^6 [$ `
      RowBox[{
    3 U, K5 X9 |+ k/ R   RowBox[{"Exp", "[",
    # r1 w# |  n( J7 D9 L. @    RowBox[{
    9 n0 @2 W5 c' G7 F6 M% A     RowBox[{, R" i, u$ k0 R6 w( e3 ]' y
          RowBox[{"-", ( _) E: i  `$ p# }1 z
           RowBox[{8 j' ]/ A% N, W" S6 x' r, K2 l' r& W0 s
            RowBox[{"(",
    ) _% H; n0 R) |1 E         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    0 E5 f+ s" V* ?% R# o5 t        RowBox[{"(",
    * ~- @8 ^: V2 [2 {         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],$ c" C* i  j, k! X) u
         "]"}], "/.", "DeltaX"}]}]}], "Input",+ x2 N! i- B4 J  x( P- J6 E6 G
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {5 q- r) q+ Q3 @$ [
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9,
      _! J9 K: D3 Q3 x  3.577961578953644*^9}}],
    8 g' m1 {, q7 q9 h; y
    5 _" m! U+ E& A8 }Cell[BoxData[
    1 ?% `4 D9 Z! E2 c: Q7 T) E% Y6 T RowBox[{"{", ' K, N9 R1 j" B. Y/ \! z. v
      RowBox[{
    $ Q5 @" Q( y% L9 e  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
    3 y% Z% ^) s7 d6 e3 ^, @/ y   "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}], 9 |0 T' O6 U7 o* A1 E$ I4 z
      "}"}]], "Output",
    7 H; c; i( L5 u# P8 w% @4 I CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],( I/ Y0 r. X; b  {0 C9 ^9 v
    6 A4 e) S, G. A) M
    Cell[BoxData[- Z3 G! V. t% ?6 @0 j( ^
    SuperscriptBox["\[ExponentialE]", * j  \" Z) d. t
      RowBox[{"3.141592653589793`", " ",
    7 l, V, ?+ c' {2 N' H6 o% E   RowBox[{"(",
    $ I: D1 h8 O5 K" L- x0 e' l) `) `4 @    RowBox[{
    & R' y; C1 e3 Q/ [; u: i% O6 ]     RowBox[{"-",
    5 k' u* H8 J" ?" ^      SuperscriptBox[  ]1 |1 [& }: A, j: @
           RowBox[{"(",
    ; f" ?  j* T; I, O        RowBox[{% Z4 b* z+ A7 C( W& k2 c. u
             RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
    . {0 K/ f6 J8 u) v  s8 t     SuperscriptBox[
    9 J1 j8 ^( e1 ]7 Q      RowBox[{"(", 4 B$ [! f# V4 M+ `
           RowBox[{
    ! Y) q- A6 o) C9 U/ n        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
    2 P( T! R  N% A  i2 M3 p     SuperscriptBox[
    0 Y4 ~& O$ l8 ?3 R6 D+ D" {      RowBox[{"(",
    0 C3 C6 z9 U( l/ H       RowBox[{2 w0 t) P. F: Y8 u' r% ~
            RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", " C( O0 }. G" T+ z! j( t
         SuperscriptBox[6 o) h/ h1 h* {3 M
          RowBox[{"(", 3 i3 g' n0 \& Z6 D  V% Q. t
           RowBox[{3 j( C+ ]9 j( d
            RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
    : h0 L( c9 i  k# f8 P5 l! I     SuperscriptBox[
    5 S9 W  D# r5 f# T, E      RowBox[{"(",
    ( r# t- h) C" U- K2 f$ \8 ^       RowBox[{
    ! q( ~5 r+ ?. J0 m1 q        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", . E1 \& z! M  P1 ~
         SuperscriptBox[
    2 `+ a! l! q7 a  a, L      RowBox[{"(", 7 e. ^/ b  Q+ J2 `% ]$ J
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ; {0 s' c% {8 i  h
         SuperscriptBox[
    * c  [' ^" C3 \- d      RowBox[{"(", 5 Y- \2 g( j3 D. a
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 0 `9 |! m' F# Q+ ]1 S
         SuperscriptBox[
    1 x1 F9 K' J, W! x- o      RowBox[{"(",
    ( u  j' `9 @/ M" u( t8 ]+ H5 b6 n  |       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 5 ]; e9 a# I- B8 @" P
         SuperscriptBox[( O/ z. f. m, G; Q
          RowBox[{"(",
    5 o$ o/ ?7 z* T6 L7 A) t. _# M       RowBox[{( h# b# R& a! n: \; J: T" D
            RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}],
    ; c# N3 i* c: Z9 M: _( I/ H. ~    ")"}]}]]], "Output",
    0 _5 q4 K" b& }2 ~4 f CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]  |9 S! F5 Y* |$ b8 @4 Q+ G2 M
    }, Open  ]],
    : Q" J6 E: s' G5 B  W
    & _9 n4 r+ d8 ~$ t9 i8 e5 KCell[CellGroupData[{
      ?8 U: E- y/ B4 Q- ?& K0 t( A7 K" `8 B3 r" }8 [  K, W
    Cell[BoxData[{
    # X  c/ }0 t* F: o1 l6 E RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]",
      d* |! a2 t8 q, w2 N, \ RowBox[{"u18", "=",
    4 H! m7 b/ j* [' P7 `7 e  RowBox[{
    & n: y8 O* Q# Q* B8 D) \" I& `" G   RowBox[{"Exp", "[", 5 O6 M% r9 o1 C+ }0 ?
        RowBox[{
    3 y( |# {1 Q# |' x# q7 v! S" p$ `     RowBox[{
    / X' ]$ |# I% X; J9 T5 k4 V! v; P      RowBox[{"-", & p, L7 W8 L7 U9 b8 {+ j  _
           RowBox[{
    3 d; e# L3 t5 [2 r3 N        RowBox[{"(",
    $ T: w1 S/ z/ i. T, X; x# o         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 8 `5 _3 [& @' |4 g; M' e# i
            RowBox[{"(",
    - m  H* G7 w/ w, g) s  l" \         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    * D6 [$ w: A' L8 \     "]"}], "/.", "DeltaX"}]}]}], "Input",/ R5 p) t2 {4 P" f- O& \
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    # x9 O' ^6 r) @0 r  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9, 2 _% g8 H9 U. i3 V
      3.5779615828848505`*^9}}],
    3 V" c4 p! c2 a1 \8 w0 u# \
    0 ]# `7 W: D3 j0 v" Q! DCell[BoxData[* i; h$ u8 }0 G: o! [0 f, G* E: M
    RowBox[{"{",
    . [+ g8 v) R; U  RowBox[{% O' d' K3 _% i$ x& z' Z
      "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", 6 N2 M2 z" q0 k3 I
       "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], ! x1 r  I0 {& ]) V. S
      "}"}]], "Output",* B' Z0 x6 m' V; o, b! x9 ]
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
    : T* Y8 J' C! p4 z* d: Y  b
    4 C8 C% P4 ]" i& U2 }8 Q3 cCell[BoxData[0 [+ O8 a5 `/ U" n" f3 P, _4 A% y
    SuperscriptBox["\[ExponentialE]", , _0 Q$ X. |" X" v% S$ j
      RowBox[{"3.141592653589793`", " ", 7 G, E& W. @3 W/ I- j
       RowBox[{"(",
    " Z2 ~$ [7 e; r& t/ C2 y  P9 P, c    RowBox[{: w" Q. C3 j# F; J
         RowBox[{"-", + W1 W6 {5 c7 O# U- T( Y+ g4 d2 ]! V% ^! c
          SuperscriptBox[
    4 h) d! B+ D5 M( @       RowBox[{"(", ! n. Q9 ^! U9 `3 U" E/ }6 v
            RowBox[{
    & k# b% d! X: Z. r, J+ u         RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", ) O( m3 c+ ]1 V8 k: M1 ?) K6 H$ n' ?
         SuperscriptBox[* _! T. x: t% L9 n) I* a
          RowBox[{"(",
    + S( T0 Z* _9 Y1 i4 C" z# [! Z+ z* G       RowBox[{
    9 E" k6 g! s* ?# o# N        RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
    % J) X/ K3 t0 |9 C5 L  u     SuperscriptBox[
    ; Y2 |' T" u" D6 \! g5 ]" g# A      RowBox[{"(", ' R. T6 s$ \" t. o7 |
           RowBox[{
    5 r& K: Y1 N8 q+ U5 W  d9 e  r2 t% n        RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", 8 x" l# j( F" r  |+ O, S
         SuperscriptBox[
    + v4 u0 l& w3 X+ b1 \9 L; e! i      RowBox[{"(", : I' O- M7 h/ O* L2 i6 z4 E/ A
           RowBox[{+ C  X( R: v2 P5 R+ U; \
            RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
    9 h$ D8 a* G+ W* [8 m: x     SuperscriptBox[! o* G. W: J3 ~8 |- x0 X" e
          RowBox[{"(",
    " r# x+ l. F0 C8 f       RowBox[{4 M3 Q$ l' ^) Q; E; p# X
            RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    / ~7 f$ U/ W1 V7 @  D! W3 Q5 Q2 q  C" ?     SuperscriptBox[# R$ I' x, @, _" E. f) n% `( O
          RowBox[{"(", - y6 |2 L3 J9 Z# j7 ^6 d% D
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 9 v. N# @, D( ^/ E) U  l7 D) [
         SuperscriptBox[
    : t- E* ?% |) h) `      RowBox[{"(",
    ) P3 v5 N, l  y) S       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", : h: p/ T$ P% p, t7 t, n
         SuperscriptBox[4 z/ G) K! s; D" X$ c
          RowBox[{"(",
    % o5 Z) r0 h( m' ~       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ; ^9 a2 ?$ [$ m6 |& f8 ^& W2 r
         SuperscriptBox[1 Z5 `" F, o/ t
          RowBox[{"(",
    0 {: ^7 W. ^$ ?: Z/ h8 l       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],   |, _* i) ^/ W
        ")"}]}]]], "Output",
    4 u8 \" W0 Y! Z1 o. Z% v0 v CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]* p3 r( [% P! z6 K. K) B# ?) ^
    }, Open  ]],
    6 T& p" K! n9 ~
    7 D, F6 v( ]0 [0 {3 g* zCell[CellGroupData[{: n& l/ m6 X# U9 a
    ' r: P0 g' c7 W. x4 H6 {
    Cell[BoxData[{, z1 p4 h- L* H; T- i
    RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
    0 ~9 t/ l; y0 r RowBox[{"u19", "=", % o" u: t) ]( E/ o; l' S4 o' J4 @
      RowBox[{
    3 p5 Y/ ^9 H0 y& M/ [5 D1 L   RowBox[{"Exp", "[",
      x( l$ p7 @! N0 P! g$ q    RowBox[{
    + V1 {6 e2 \+ n1 c! G+ i* |8 M" ]- ]     RowBox[{9 p, I* `% d1 @/ {
          RowBox[{"-", 7 Q* V3 l+ Q! i, h) `, {6 K* T
           RowBox[{# w; c; H+ {6 B) O0 P
            RowBox[{"(",
    : u% j  V( C8 G5 ]         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 6 E' P# l/ c% J* }+ F+ c  T
            RowBox[{"(",
    & i* N6 M6 g; M' ]: ?         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],: X) g# F8 D4 U0 p) l( q
         "]"}], "/.", "DeltaX"}]}]}], "Input",/ K2 ~0 J9 B% S  y' D
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {8 r: X- }3 S9 [" n% K1 w. C
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9,
    ! c- F$ q7 N3 ]3 l; ^; X/ M  3.577961588890861*^9}}],8 H9 T  ^& _& m- Y

    : Q: L  Z6 K/ T6 NCell[BoxData[
    ! E3 M0 S9 F4 Y. n5 h& x! N/ G RowBox[{"{",
    % M) q  o: B/ F' g  RowBox[{' A- j& Q7 h7 i0 o
      "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
    4 ]: G: U6 m+ w! v3 p8 \+ O: }- a   "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}], , o4 B5 p& P( R- j6 }( u4 U' ~
      "}"}]], "Output",% y0 O- x% {. ?8 d' [( O# N$ i
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
    ! a, x+ V/ u* R, R6 W/ b- ^1 f0 _" Z. P0 I( w8 [
    Cell[BoxData[' Z+ s$ b4 C; K. g% H8 ^; ?9 t( o# b/ D
    SuperscriptBox["\[ExponentialE]",
    7 n$ j* S( |* J8 _( y6 w; o7 ?5 o: m  RowBox[{"3.141592653589793`", " ", ( |' I1 F7 o! f' \& C
       RowBox[{"(",
    9 H% j: E; e7 ^0 K  E    RowBox[{
    : D: |0 D" ^- b     RowBox[{"-",
    6 G2 y( M' C$ h9 D      SuperscriptBox[1 t  t* T! h- T( o
           RowBox[{"(",
    7 M% c' x, ?2 H  j( h5 m3 j        RowBox[{( Z: ^8 H$ F. Q( k' [9 y3 j" c& W
             RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
    # y3 L( ~! M' Y1 V4 X1 m& ?     SuperscriptBox[
    / y0 }5 [  w. Z9 V+ S# ?      RowBox[{"(", & h2 {  s+ |/ i
           RowBox[{
    5 v4 u9 X  Q" G! j  Q5 E- }        RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
    ; n+ i: k4 P, a     SuperscriptBox[
    * ]) F  R+ Z% S! P7 ^      RowBox[{"(", 6 Z+ X# A) G0 g8 P7 h7 E
           RowBox[{2 q1 N# N' v: n" q# g+ v6 I
            RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", ( y5 |1 R: l: O
         SuperscriptBox[
    6 ^3 j! t$ P0 `/ `4 N  {! L; |      RowBox[{"(", ( ^# ^8 ~+ V! I7 C" A% B
           RowBox[{" v. o2 v' F6 V/ z. m) G
            RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
    $ Y1 B0 h; g4 M" d0 {: b; C3 Y     SuperscriptBox[
    ' @- U  _* a( ]: I' X# \      RowBox[{"(",
    0 h, ~5 l( _" q3 w! h3 ]& r! i! r; A       RowBox[{* E  ~9 [' K0 }  @' B
            RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-", " j+ L/ F) e4 N: i* v
         SuperscriptBox[
    $ w/ O4 p+ }4 g1 q/ s  x      RowBox[{"(", . E, ~% x3 G2 E3 f! g& z
           RowBox[{9 y( W' p' C: C
            RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", * O2 v; ?1 K6 q6 T: p: l
         SuperscriptBox[- d" X: f7 H* I& r# b; j  q/ R
          RowBox[{"(",
    : d6 N9 G/ R8 v$ M. |6 Y; T       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    / ?2 s7 [$ U) {. m! J$ i2 V     SuperscriptBox[% a2 O& L0 }% S3 U' d1 g& h
          RowBox[{"(", 5 \3 F0 w, R  x0 ~. G/ O2 h
           RowBox[{4 F0 E3 `# i" R; g$ S% r
            RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", - U' H9 o  w, E! J8 g1 S; `, _
         SuperscriptBox[
      r8 Z2 |7 T& e      RowBox[{"(",
    3 w  v: v6 f/ J0 ^: s       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    : h$ y+ d# U! }0 g    ")"}]}]]], "Output",
      g% I; F* m9 p CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
    + ?- o' b: Q; O  s0 C9 P8 w}, Open  ]],
    ! q+ x/ [" G" S8 R* X( W' p5 k% P! C4 S1 ~# C2 |0 h
    Cell[CellGroupData[{
    * y5 C2 t8 m% l6 L; ?9 }( w$ f1 |% z5 {, o- H& r
    Cell[BoxData[{
    & @( M( U8 }! x1 |' z RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]",
    ; w7 H8 z% D; w. i0 K, |; k! C RowBox[{"u20", "=",
    & d' U' g, [# {. c4 ]  RowBox[{1 X. m) Q0 f$ v1 w! v8 `2 W% K
       RowBox[{"Exp", "[", 8 m& ~, U$ K2 s7 {3 x- o
        RowBox[{
    5 y. p9 m. Y# v4 ~- J3 G     RowBox[{& I1 l4 D% M$ h9 V% ?
          RowBox[{"-",
    ' ^7 K; Y, Z& ]& u9 }1 V2 A       RowBox[{0 C1 \: i. X3 d* x3 o5 n' i
            RowBox[{"(",
    3 ]2 |9 G( L* h* D         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", * {: u* B$ }& p2 h5 L
            RowBox[{"(",
    * `' U* E' d# b3 T- D" ?8 \; u9 r         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    7 f4 g/ E; \! I2 ~, [     "]"}], "/.", "DeltaX"}]}]}], "Input",) c( @% H7 H* _4 p) s: b+ o  D
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    0 `/ W& W  [: r  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
    8 n+ A& C4 d% h% u2 r  3.57796159382047*^9}}],* }& F( ]# X- E. z

    6 {2 O, C: Z1 Z0 xCell[BoxData[. I; M: H9 N* X. B4 u6 K0 }, p5 o0 F
    RowBox[{"{", % b/ l+ z8 {: b* M3 y8 `( E7 V5 @9 i
      RowBox[{
    ' z7 z0 N% |+ l* U" p/ w' E  "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
    # {( T* L* c8 K7 q+ f   "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
    ) T' \: |" U8 K  "}"}]], "Output",
    4 Q2 I8 G' _" r! t+ `! G- @ CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],6 H( y) @% @2 \. ?, {( G
    6 p& w- O2 O. D
    Cell[BoxData[' c: u8 h7 q% f+ P3 L+ w* R6 z
    SuperscriptBox["\[ExponentialE]",
    4 R! j6 F7 t2 P0 N  RowBox[{"3.141592653589793`", " ",
    8 l3 ~: M# e9 I   RowBox[{"(",
    4 J6 ]5 G5 K) C8 |0 M; m6 n& Y% i    RowBox[{
    7 a8 j0 {% L& |+ Z4 t     RowBox[{"-", ! }9 O. k' G. C& s* E
          SuperscriptBox[
    8 R( P, h0 A  Y3 g       RowBox[{"(",
    ! @" K' U. H" Q. ?' n% U        RowBox[{" h* n! d8 r3 S: r6 N* v& {
             RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",   r. p* K0 ^: _8 h( h- E, x: N
         SuperscriptBox[
    9 {$ u/ J* x. s: W+ M      RowBox[{"(", : O8 E9 `2 K8 E& g! o4 U! b. g5 \
           RowBox[{
    ) Y$ X! k( ^: Y) }% T9 A+ x        RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-", 5 L1 p8 J# I0 m' Q
         SuperscriptBox[( I4 I/ h* S  |; A+ q' ]
          RowBox[{"(",
    6 z: `- g3 m  O- _6 |3 g) o8 E7 Q       RowBox[{5 H. f' O* W* t" o7 o9 o; q" K
            RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", 0 }$ ]2 p% K6 B6 S
         SuperscriptBox[: I5 c$ A( C+ I" N
          RowBox[{"(", 7 E4 d& i1 }: t7 R
           RowBox[{
    & E& w3 @: C0 v) t* U0 {( j        RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", & Q- j9 I/ _# {1 D
         SuperscriptBox[% d' S( L2 x- e$ L8 i  C1 s
          RowBox[{"(", . B+ h  _0 ]/ |2 q7 m* L, H
           RowBox[{$ e, u  F- ~" }* z6 A
            RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", % J. `0 N8 \( i
         SuperscriptBox[  O8 U& H: m" F- @% G# y* K9 g
          RowBox[{"(", . G8 z4 n3 C: F$ Z9 q  N' C( ?! [
           RowBox[{9 g2 V2 ^7 C4 ~; h+ e
            RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    , `4 T9 \2 n# \' }: m     SuperscriptBox[
    9 R8 }6 U( e# N  x      RowBox[{"(",
    " m! n8 ~5 d- M# l! C& z/ w: ~7 X       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    3 W4 Q8 x1 ?/ Z* B$ j     SuperscriptBox[) Q+ H, b% |4 M6 C0 z  j
          RowBox[{"(",
    . `& P" |& q' U2 t& Y6 s       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    5 i# g  T- S* [. c     SuperscriptBox[9 f8 j( C# V6 k- ]( B
          RowBox[{"(", . U1 F# x3 \- H0 f. l3 v
           RowBox[{
    " {3 r& h6 q/ v        RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], $ }7 _1 f. S) d: f* O
        ")"}]}]]], "Output",: G  U0 n- g9 r! Z) J0 Y4 P
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]9 |1 w5 v$ k5 ]
    }, Open  ]],/ r  B" V4 f; V% k# C. N- l
    . n! P, U, H4 s$ _7 ?. x- w
    Cell[CellGroupData[{, I* n& i, y- e" q9 |  Z
    ) G& d' P6 E9 I* N) g8 I" o- V
    Cell[BoxData[{
    0 l$ s. d( I2 \2 _" Y" T RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
    7 ]) |3 ?6 w1 V! {8 d8 T8 O4 e RowBox[{"u21", "=",
    4 G' X# q& x6 s0 C* d+ g4 N( O  RowBox[{
    7 x( h& h5 t" {% q' G  d  l* a$ P   RowBox[{"Exp", "[",
    , M4 b8 o* h& G3 G0 d% `+ u    RowBox[{
    6 Q. n. V3 e% t- n     RowBox[{. ^; I$ Q, |/ M: l2 A9 C& N
          RowBox[{"-", ; h" z# n6 W' a
           RowBox[{: {7 A5 C  Z+ v/ M" o4 n, C
            RowBox[{"(",
    $ o/ L4 u- u1 J) `) x  x         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    + b* B- {8 K; V3 k/ [5 j        RowBox[{"(", * I+ C) \0 H' H
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],: K( C, T8 z3 h, Y, L2 u
         "]"}], "/.", "DeltaX"}]}]}], "Input",% P  K0 H( k/ Z* S
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    # m4 L& G8 Z0 m/ G* @& o  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
    # ?: @( p/ L: i, J  3.5779615991556787`*^9}}],
    ( r' R. p& `% x3 K
    ' l% U% {5 E8 w' g0 x& b$ t, g9 X7 NCell[BoxData[+ ^8 ~% a, B0 M% j1 o, C* S
    RowBox[{"{",
    ; l" G* Y$ R  X8 ~. h4 U  RowBox[{
    5 h# }) z3 H* K( p  H* }  "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
    5 t) F& C7 V, p4 v   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}],
    + d1 p. ?! E( B5 M  "}"}]], "Output",# r0 b2 W: S- ^  \9 ]1 U; d
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],
    4 W7 \: _& I9 L# D# \
    & W8 _( m0 V! u& y; B0 x; ]Cell[BoxData[
    * g7 w, I/ s* A3 w' N SuperscriptBox["\[ExponentialE]", , c3 p; h6 T( F6 n; g: r0 h
      RowBox[{"3.141592653589793`", " ", - m3 P; N6 D# y" o9 Y; J0 I1 m+ E
       RowBox[{"(", 4 i  Z' G$ B$ E; W0 _
        RowBox[{
    / F$ z3 @2 n2 f! F* G, r     RowBox[{"-", $ w$ {/ o4 Y# k
          SuperscriptBox[
    5 y/ v4 V; U: h5 Z       RowBox[{"(",
    & w: e) S3 r% h) x3 R8 |1 N        RowBox[{. H% p+ z9 C! c
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", ! h! ^3 [2 _: |  h1 M3 P( y
         SuperscriptBox[. i& H& r  g1 W0 L. D$ i. G
          RowBox[{"(", + g- O3 K) J/ j# l: g, p1 \' Z- Y
           RowBox[{
      b- L: m1 B1 `- {9 R7 G& J" D        RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
    + V8 G$ e5 j2 E2 ^9 B! r9 B     SuperscriptBox[" [( \, B! c* m2 F. @* n3 x
          RowBox[{"(", , U( y+ g; |$ H; o7 l( G
           RowBox[{6 B: \: e4 {  B! ]
            RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", & ?" I6 b5 O% i- V8 l( h
         SuperscriptBox[  `3 ^- b& {8 o6 V; ?7 Q, h  G
          RowBox[{"(",
    , T8 O, z! Y" [! n+ K/ `$ K, y       RowBox[{
    9 h$ c: Q: H1 k' K- W        RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
    $ V+ |) P& F4 W6 l     SuperscriptBox[5 C6 P" I( _3 F  _/ Y: q( G& t! |
          RowBox[{"(",
      `2 S9 J/ }9 L6 O! @$ V       RowBox[{
    , o3 F) f* Y+ L; R% d6 z        RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", : z/ k8 `1 _, h& ^4 Z) J+ `
         SuperscriptBox[
    ) K' t  c4 P; \  h/ A! W1 Y+ j$ n9 @      RowBox[{"(", / G1 m% \( w7 m% E
           RowBox[{/ G; U; t) d% M* g. Z
            RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    # @0 V5 I& i' \) c) U     SuperscriptBox[
    8 t0 L! m. C, V3 R      RowBox[{"(", 0 z" z# I3 H' R( c/ E+ g. l# ]
           RowBox[{' V; b8 S' m' e/ P, v
            RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", * U7 V* s7 k7 ]3 i+ \6 _
         SuperscriptBox[$ M$ c. r" E) i* \: F* Q
          RowBox[{"(", 9 a' M- B# w( G9 [& Z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    9 |. D4 A9 s. D, `5 }+ D     SuperscriptBox[$ K( X  R4 ]3 F( V2 J7 K+ V7 o
          RowBox[{"(",
    # \9 ~1 u0 ]" N* z$ m0 M, \       RowBox[{7 d" f5 I. H$ }4 d; `- B
            RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ! o+ a+ c! Z1 z( T' z2 e& c
        ")"}]}]]], "Output",; J! c% r, o: T* C
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]
    & V* A/ [/ R# I8 c0 f4 l}, Open  ]],7 A% Q& i/ v4 k/ w5 V; D8 N# m
    4 C8 g) q6 h9 i$ X1 `
    Cell[BoxData["\:62df\:5408wi"], "Input",8 z6 U  C' d( V8 A& e5 M9 c- s
    CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],; s* k# B- E% U, W- |
      f  S6 h, o; V* O( G
    Cell[CellGroupData[{, [) ~7 @' M& U6 j% b! g# i

    # y: V0 e3 o/ M! s  B3 z% ]4 [Cell[BoxData[. T' `. u7 G6 ?, c' m4 y3 S) e, q
    RowBox[{"y1a", "=",
    . Q; a: u, K5 }$ N# \  RowBox[{"Table", "[", : V1 C) r) C+ p* I
       RowBox[{"x", ",",   J# y. J( y* }, R- V& g
        RowBox[{"{", / E$ o5 @1 c: W$ H* M
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    2 [% E! Y, j6 E7 Z0 N! I CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {- N+ d6 p. c" S! P- g. f7 X
      3.5779226649375*^9, 3.5779226810625*^9}}],
    & o' |6 d! \. p  Z7 {6 [, [9 @2 x5 A' j
    Cell[BoxData[
    $ i1 r1 X* p# g: |1 n7 C3 a7 p/ ]0 I RowBox[{"{",
      n9 p# P) i' x, d& v4 O- k  RowBox[{$ x  U4 A7 t7 T; I2 G$ X7 l/ E) t
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", & o) ^( e: a( N4 \% O# e
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    : [# ?8 C; E% L1 o, y1 e) ~% M    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    5 Y( U/ }+ n. t" S* e   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", & T3 T) L8 e, @' m# k$ }
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
      B! G- M" Y$ U+ ^' N: F) G9 p1 q   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    " v1 j3 r4 X6 w# t$ R% U/ f   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    3 J/ h2 T2 R& @: U   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    ; u/ D3 ^# \8 g   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], , O, M' o$ a$ I6 R: U, l: C% Z
      "}"}]], "Output",
    2 a5 l/ S4 M. g- {" B CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
    9 m* \  W2 Z: \* \6 Z* G' ?+ w. ]  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]2 ~0 V' U& `+ S1 I  f9 o
    }, Open  ]],
    1 }+ }+ _4 e$ p+ `, y1 j+ y1 ~
    - r  I; R) C+ I$ L) QCell[CellGroupData[{
    4 j# A4 a1 Z$ M* P" S2 K5 {, t' w9 i& w
    Cell[BoxData[
    4 V% i2 T  Y" x" a RowBox[{"Data", "[", * ?; E0 A/ Y  l2 ~) N
      RowBox[{"[",
    ; M0 D) D2 C$ U/ D$ D3 x   RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",
    ! r, A; j8 \# i8 B/ s CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    * v) {; p* m  z* |& t   3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],
    % T8 P4 x  n( @3 j0 A5 z
    5 H! x! J: R9 L& M) |Cell[BoxData["0.899882`"], "Output",/ r, \; f4 j) y6 }" B1 z/ Y. O
    CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, ! y! h, P5 T- A; T; P& B4 I
       3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9, 1 A- K; s- S# a3 \
       3.577961929080654*^9, 3.5780123419375*^9}]" x  I* p+ x5 {) x) g% f
    }, Open  ]],3 m$ e) \7 s! n) z" p0 L
    % R7 Z  v; L8 J( x! W
    Cell[BoxData[3 _$ l! _7 _5 _6 A  s: G
    RowBox[{"For", "[",
    / E# ]2 k1 {/ B1 @9 r  RowBox[{- n& ?/ r: J9 \! j4 `1 F
       RowBox[{"i", "=", "1"}], ",",   V) M4 G& n1 O# L
       RowBox[{"i", "\[LessEqual]", "60"}], ",",
    5 q" g" ]: N! b9 v7 l' b( q8 k5 B   RowBox[{"i", "++"}], ",",   v3 t- j3 F; w9 M3 W- h. f
       RowBox[{' I8 U- p2 c. L& y0 x) |- J% U
        RowBox[{"y1a", "[", " V5 ?6 n, ?7 K$ M4 [! D* {
         RowBox[{"[", "i", "]"}], "]"}], "=",
    1 {+ ?4 Q) [3 F3 T! }3 g. }) h    RowBox[{"Data", "[", , ?2 c. y- T, w6 x0 |4 @
         RowBox[{"[",
    $ ?9 @$ C# ?2 Z% l7 Y/ e      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
      j, {+ g& R: m- g3 z" F/ @ CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {0 e/ [/ Q# d1 r/ W
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,   B  D. Y9 c( ?
       3.577922923203125*^9}, 3.5779588839702806`*^9}],
    * @% _, ~4 ^8 D
    3 v6 z* d1 i4 U  hCell[CellGroupData[{
    & `4 i0 I& v! P+ U% }& l4 A, |2 z( }- t5 W/ T* i
    Cell[BoxData["y1a"], "Input",' @1 l, ^/ A% V: k
    CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],9 L  s6 g% X, N9 n% d) c

    2 k1 d1 x5 j0 |& S; f4 yCell[BoxData[
    ' w! R' H2 _, Y- t: y9 U8 l7 H: J RowBox[{"{", , r$ ~+ m1 w# C
      RowBox[{& |  X; H+ [3 {# X2 a4 ]7 i
      "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",", * V, @8 j: f: ?5 k
       "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",",
    : g4 S0 g- M6 s+ E" m% H* l, U" o7 ^: C   "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",",
    ( j" S( \# u8 o4 |+ [# A- ?  c: l   "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",",
    0 r5 }0 J5 ]6 n0 w0 ]& y) H; V$ }   "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",", 9 I" D4 ~# Q1 q8 }
       "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",",
    1 x# M) K$ o! K  Q+ C8 I' [& n   "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
    ! M. F& E8 X# P5 T   "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",", 4 n. i) p7 `- {& W2 M
       "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",", 0 Z' q- ?, ?, z7 m
       "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",", " J+ g& A5 w; O" g% |- Q
       "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",",
    * P: D4 s* f& w8 l" f- H9 I4 P+ _8 i   "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",",
    ( V4 O  o/ v" _- Z; j+ ^   "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
    * F2 |/ W. f+ `5 y( X   "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",", # }: Y- ^* M! [& _
       "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}],
    $ @! ~0 ^, }2 V& E( ?1 X, X4 A  "}"}]], "Output",
    , n$ y" h  L6 j CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9, ' j- F5 _  t8 ?; {6 I
      3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]
    7 T9 Q) P8 g4 I4 e}, Open  ]],3 x; ~0 _. D* n

    + F5 S8 Y6 C% @# mCell[CellGroupData[{
    ( ]" H/ o  R0 k& l( o3 [0 g6 R9 M) b8 M. z9 t1 h
    Cell[BoxData[
    * r. F( O' z8 f% U) A. n RowBox[{"m60n21", "=", ( Y6 g! {! B1 N8 U( Z9 `5 J
      RowBox[{"Table", "[",
    % P1 N5 F5 ~  ]   RowBox[{, M9 \  p% R, o7 I- Y
        RowBox[{"Table", "[",
    * ]" g( E( b' v5 o9 \( o. {     RowBox[{"y", ",", $ S, t" e- Y& S6 D/ m3 S) u( F" n
          RowBox[{"{",   o' R$ ~& x; g  _6 D
           RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",", # G: Q% y# t3 X
        RowBox[{"{", " H. T4 v$ M# W9 O& ?
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",2 ]. \% _9 y; E
    CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
    1 @3 r) R1 V" l0 n, b+ }  3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9,
    1 @$ _( D$ V  w, ~& O) J  3.5779619706547265`*^9}}],9 |) d0 B; ~- I. _

    ! q1 |6 B+ g+ p- dCell[BoxData[9 U* H7 e9 I% }8 l% F- A) W3 z
    RowBox[{"{", $ K* s/ }0 k9 R
      RowBox[{
    , @1 y2 Y/ v- T: t   RowBox[{"{",
    7 D; ?* |/ l' S2 x7 V    RowBox[{5 }; b/ o0 s) R, H) P& p0 o
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% ?+ E& l9 m" P
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 U/ {5 M* j  S6 h8 g
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 G+ W7 d4 n3 |
         "}"}], ",", 3 N$ `+ K% w6 a. o& ]
       RowBox[{"{", 8 B, O+ D& `3 @) V) Y; M
        RowBox[{6 Q$ X( W3 K/ B% j
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 [0 D2 v9 Q6 {. }0 T) j
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; s2 ?9 A, B# P" U; x
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    6 _% K+ L* \, `     "}"}], ",",
    : E; y4 `" X; n' h9 J; w7 a" V$ B   RowBox[{"{", 2 _' W4 `  `& b7 x2 x$ a2 Z$ a1 Q& J
        RowBox[{+ u" i& J3 d) ~. t, i6 v( \
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# e' `5 ^' Q  q( O: h
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    5 p% o$ d; a2 Y     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    0 V% l# H9 V6 W     "}"}], ",", & J, R" S4 p. e9 l3 e& N$ J
       RowBox[{"{",
    + R  R' @3 d/ z; n/ b    RowBox[{# S1 r  J5 n/ }( t3 g
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 D9 S7 p7 w: E
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ w- Z! W5 G  X+ [
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 B9 c# o+ X' r+ F8 z7 P
         "}"}], ",", " w3 U: c' `6 w0 C
       RowBox[{"{", : v; d% W  O  A. {, n+ U
        RowBox[{
    1 J6 h7 y, I! h( P+ ^! {4 d    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 P1 R' |  y3 `3 A
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 f+ P% x1 F5 n# X2 S  Q# Y
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    2 g8 ~: i: h) r     "}"}], ",", * B. C+ c2 K0 a
       RowBox[{"{",
    ) A* ^$ M+ q: u+ L4 @    RowBox[{- R2 L. i& f( \: [0 p
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& u$ z& n7 j1 l. x$ ^8 T# v5 g3 _
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    8 D6 H- T/ X& p% f& g2 _     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ X) [+ J, D# |) ~" V
         "}"}], ",",
    % N9 u5 ^  V# O9 _+ w4 E$ R   RowBox[{"{",
    5 H/ d/ E$ \8 U9 A& H    RowBox[{8 f: N# a9 r8 {% s( @
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, _9 G) s* J2 ~  e
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    : }8 T- [9 V6 j' p     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ T8 I, X8 P* n2 |( ?4 i
         "}"}], ",",
    5 u7 g" u5 W. T/ F( }0 Z   RowBox[{"{",
    - |7 L9 A0 [' D1 L  d4 z; K, ~    RowBox[{. L  t8 l9 U5 }8 F/ Z- f
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    3 K/ R' H1 J% N      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    " s+ l3 z. t" {1 E' S, s     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( d3 Z/ K: I# ?* \
         "}"}], ",",
    2 @, e' D; A4 M4 k. U" ?! U   RowBox[{"{",
    1 ^+ n: k( V* M3 F9 T; H& P    RowBox[{
      i- C3 A" F/ P2 U) n+ ?: h9 M# m/ d    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    & R8 x+ a) ~: V2 s      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 c2 U9 k" a1 c3 `  X+ q' G4 |) _
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 y# }% C6 b% C% \" w$ I0 e
         "}"}], ",", # w/ _+ A' |% Y" ~% z/ [2 e
       RowBox[{"{",
    / G. v0 Z* g% c' i    RowBox[{
    3 O) ^5 W& P( U! ~/ ]    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    . S0 W! G- v, p/ P+ w8 T      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 j5 p9 G! U& C4 d0 Z3 y1 Y
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 j$ C& W4 L/ G; ?1 L" {% M+ s' G9 ]
         "}"}], ",", + h! z' N5 v! P' ~8 Y
       RowBox[{"{",
    / C1 _) W# R. C' Z! d8 Q    RowBox[{$ F# `: i# l: @
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; N  G9 K4 v- _9 i! f1 [* l4 i1 p
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    * J2 z+ U+ c. F/ M+ k2 f     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    " ?6 r1 q7 r2 l7 n) `' i     "}"}], ",",
    : J& a& W3 M% U   RowBox[{"{",
    # C" ?3 w6 S' V' j" d5 l' y    RowBox[{' K. ^) [$ X; k) L: K9 ^) h
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 A  @  G' \3 o6 Q& b+ |
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % Y% ^# v: M" J9 c& a. _& l
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    2 j0 e4 `! k3 h: V% q4 g     "}"}], ",", 0 H/ I$ l) g- ~- o
       RowBox[{"{", 2 @0 A+ ]4 n1 `2 K4 r4 C( j
        RowBox[{' a: I; h$ \; h# {/ Q1 [
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) `; F3 ]6 w3 l- @9 O% I1 e; n. {
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 f1 ~! i9 v# q' I# i
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . R0 C- m% g1 x8 e1 G     "}"}], ",",
    5 t9 [) J! e# q$ c   RowBox[{"{",
    5 }8 G1 C( S8 m- E* H6 F    RowBox[{
    " D9 X' a" v" p' O8 |% p    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 R. v& T& D2 w( Z, s& G1 L
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( [1 M  w) Q: x( q5 d
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 N, n* b  U0 E" r, O
         "}"}], ",", ; A7 R5 E4 s6 T1 c  Z  p# N) I
       RowBox[{"{",
    3 S' T9 Q0 C( ?( X6 Q' A6 |7 s. c    RowBox[{
    # ^' E$ Y. l: S, \    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ( f: I& g. J8 _( y. C# {      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # x( P! n/ ^& q
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    9 W5 r( L8 l3 X# K- [     "}"}], ",",
    % p6 i$ F1 j% [. u) ~   RowBox[{"{",
    4 a- {" L3 T% n% v4 _" Z2 o    RowBox[{
    % d" |. H' ~7 a& P! z+ d    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ( k* k0 E! F; E( D  v) \- Z, W      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    / P) v  t; H2 V+ o. L/ |     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( Q: U2 X/ Y& ^+ v4 o
         "}"}], ",", 1 ]' O9 F: T3 J  I5 N
       RowBox[{"{", * @& Z8 u( O" B) a) d
        RowBox[{* m% R- H8 k8 R* E# N& q- T
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& X0 i4 {* P$ }4 i6 J7 a) N
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 L, b3 P2 K* E8 Z- F
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 s+ `: s  \' d* m5 w8 X4 K
         "}"}], ",", 0 p) G7 N/ v3 S  z! s9 T
       RowBox[{"{", $ u( _8 r) {4 C# J  X5 u( }
        RowBox[{
    ) X% c; e6 ~+ t, f    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 p, p3 S/ o- X, E6 y& b" U
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 X* P. z' l  G2 f; Q' Z
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 p$ t+ V+ \5 b/ S9 _/ d7 n6 W
         "}"}], ",", - }) u! n0 Y1 h5 L% _) Q
       RowBox[{"{", - R! V$ q* s( z/ F$ _+ E* T
        RowBox[{
    ; |/ [: H$ k+ B) H7 Z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ! E3 k$ ^2 v- v) z! r, T      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 K& f" [3 }9 G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ) q5 r1 ?" t" r     "}"}], ",",
      f' x9 S; N& J6 w" j- V3 f   RowBox[{"{",
    3 n1 z3 {- L7 Q) J& z    RowBox[{( H0 N  `, E7 v8 X0 q
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    4 V6 h. w, v/ }( B7 t' V* N- Z      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & B2 g) E% f; e1 M1 X+ Y3 N4 G5 B
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ Z& L* Y4 B% S; Y% O4 N1 f$ X
         "}"}], ",", " u* j  m8 L6 b3 Q; I
       RowBox[{"{",
    ; w# G: p1 A8 Z" y/ S5 ^3 A: x' G    RowBox[{# t% A9 h5 Q$ W/ @/ v" o; Y
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ w) h+ A+ F  g
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # p& J. H6 f4 k  ^
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    - ^( i: S0 f4 M) S7 X, c  D, u" N     "}"}], ",",
      `5 f; q3 C- A  v   RowBox[{"{",
    + i. W/ t, Z& m5 W6 L2 Y5 ~& z    RowBox[{9 Q2 C0 ^/ f& ~' s. A! r/ r
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) U% Y6 U/ J& E6 i8 l
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) o$ Y# r5 x$ m; t* I0 ~1 d4 n+ x
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; d+ w6 N% H$ _9 v+ C8 J- g
         "}"}], ",",   {3 n2 [4 O3 P
       RowBox[{"{",
    ! k/ q0 F! J0 `1 }* H$ h  g6 d. p* W    RowBox[{- w3 h: _+ ^' ~& b0 `
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",  k$ x: l" d. c2 o0 ~+ `( q, Y
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' j' k7 U. f* S
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% J4 i  o1 j1 v% \
         "}"}], ",", 5 h' ]" L0 W" b
       RowBox[{"{", - A$ h; \3 b9 n! I9 E  s
        RowBox[{- L4 R  Y* F" S' X0 j
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    + g2 L9 }. E' @$ ~' m" Z4 G      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    % O( o. B' b, z1 Q# U# R/ j* d     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 h4 \! }5 S3 Y% G7 `; ~
         "}"}], ",",
    ! p% X* R* P9 m; Z   RowBox[{"{", + }/ z! }& Y$ o# p8 `1 u$ h9 q& z
        RowBox[{+ d' N9 C1 `% E
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ j* q2 S7 {( I6 L5 E
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * A( V( ]3 d7 M2 J( q% _
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    , t- W) S$ i, e3 p     "}"}], ",",
    . m# {0 w& l+ G0 b/ y) ~4 h5 S8 b7 b   RowBox[{"{", : L0 `' p1 Z' Y0 t1 J3 e! ]3 g; d
        RowBox[{
    6 F0 W2 l- p6 ?# `# C) u    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    4 M: a, y0 }9 L      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    , h0 R6 e; ]$ K2 N6 z5 k6 }9 H     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& X: h  A& j3 u9 c/ D
         "}"}], ",",
    6 B$ p7 o; E+ \1 D  H* C5 X& z$ K$ b* g   RowBox[{"{", ; v2 F" b- q( M' P
        RowBox[{4 j3 t$ @- ?* z1 u+ _  |3 y
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ( ?; [( [; \3 I, `# v0 i# w      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    % ]+ f9 M' N/ w) h# w5 L6 t8 T" I5 P     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],  l$ {4 |1 m5 r- y  ]& i
         "}"}], ",", . Y7 t  o. K' S
       RowBox[{"{", ' C; Q- K. p; ~6 |) V
        RowBox[{$ w$ D% L$ |& T6 z( T
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 ~; b! `9 ^* e2 ?      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 B; G: }; B/ L& m2 ?
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- n, M8 O4 H5 \$ x8 y
         "}"}], ",",
    % c5 ?$ L( ?  b* B9 n+ L- K* T   RowBox[{"{", : X9 L" g# X% K! P
        RowBox[{
    & E4 g9 R7 F7 e* {! t8 z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 y2 ?8 B. X" l* ~4 k2 J" N0 \
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # n+ m" L8 D6 }9 Q
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ) ~  f% f6 ]6 c6 d4 y     "}"}], ",", / ]- K, s& I, b* h+ Y8 ~1 \* L  H
       RowBox[{"{", ' o0 Y  [) q: Q% w0 y
        RowBox[{
    7 f6 M) H3 g2 R    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& e( H* b* c) s! R3 f* Y
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; k/ R* Q( x* d# [- T/ ^/ E- Q     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 a/ O$ W! {9 N* A( \5 R3 k: p- F
         "}"}], ",",
    2 }: S+ }3 w& @# I' `3 A   RowBox[{"{", " m* ~. F/ v# p& e' c- Q
        RowBox[{
    ) Z, T) s: b$ k    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    4 O$ d& k( ^; Q3 q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 @- E. \4 ^, p3 S) l
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    9 I4 X4 ^0 z6 X     "}"}], ",", 6 @0 A, G  F: p( t3 f; g, F; o/ i
       RowBox[{"{", 5 @/ Q: H) k" N) R" S: |4 z# h
        RowBox[{
    2 e4 Z0 W6 D$ \* V, X" W( C. R    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 H8 z5 T4 S9 [2 p8 d  N
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
      y( s, R6 N  _     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 a* V' |+ O* C8 G. g, S) {
         "}"}], ",",
    . D( E3 i* b- i2 [; c8 H0 X   RowBox[{"{", / t& U) M! E1 _+ x
        RowBox[{& X4 N- a' B/ n0 b- i& ~( T
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      N  y* C1 L3 ?      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    / t+ n0 x; V" E! w3 g5 g     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! A) \& ~  H: I: g5 ^2 i" ~
         "}"}], ",", . X- H" F5 D5 E" P
       RowBox[{"{", 0 Q" N7 A' s  }0 Y4 E
        RowBox[{
    * c# I. w0 j, |' A6 h% u    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    3 W. Y& J1 r6 b' b' h5 e      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    4 [) S* c& s& s     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ( |; e  P2 u  u8 N     "}"}], ",",
    * N5 v8 [0 \5 N2 S   RowBox[{"{",
    - X! _, g- B4 |& X4 M2 n    RowBox[{4 u/ c9 U/ r. N0 n6 J& T3 [8 a
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% W; \; r9 Q; A$ |( X" n
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    % j: @2 I4 v$ Q1 [$ S3 X# d     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    4 e1 c5 N3 n: i/ t. }5 T( {  m     "}"}], ",", & n2 Z3 ^  Y: Y
       RowBox[{"{",
    1 }. a7 l. n% o* `; L( _3 ~! \* S    RowBox[{
    % W/ J5 o3 V9 u0 @/ Q( `, a    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 R/ f5 i- U) a: I% P' P
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - v$ l, f- o2 O+ Y/ D
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    * f% m! U+ M( ]! z     "}"}], ",",
    ( x2 r% K7 A5 Y: t   RowBox[{"{", ; z+ |" {& V4 T5 J$ N
        RowBox[{7 k% k- j: A9 l  |& N
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 T8 p7 M$ l8 n! I/ J$ k      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + g& x6 s( |3 s
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 C) F, H/ K$ ?5 }5 k
         "}"}], ",", 1 f+ O% W) m5 |9 O+ j5 f3 W
       RowBox[{"{", % r4 Z- u+ F& C) d( t: H* x3 ]" ~( L
        RowBox[{
    # u! J, U6 ^+ D' Z7 j! d9 T    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 n) E3 o3 c+ {9 X. I/ r      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    $ L; E4 W) I- p9 E4 i2 g3 d! r2 L     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    8 B0 k% e+ t8 B8 A( ]% Z4 b     "}"}], ",",
    ; J$ ~' `. g( R* m$ }* L' f2 ]3 ?% w   RowBox[{"{", " E, a" n/ c9 B
        RowBox[{7 t( T, N8 {4 ^/ \
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 i( F5 T8 @8 D  Q7 }/ q
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 o! P# W' s& {& M, r, Z8 \
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    3 U! o; Q& i. I6 u0 H, j3 U     "}"}], ",",
    6 Q) `: H: L' i  ~- ?   RowBox[{"{",
    : l9 {7 m1 B! A    RowBox[{: G5 V* M5 n, s1 y
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& @$ j! B- v/ P: ~2 U! \  H
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    " y5 Z, e4 N" e# b8 i$ j     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) t3 s( T; N  s. [# K+ h4 d! R
         "}"}], ",", 5 v$ b- k! i3 S5 @  w, a
       RowBox[{"{",
    , a0 A4 q' C6 N  U5 k; j2 h2 b    RowBox[{, L5 k, @7 C* G/ O
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; `; y! {/ ]3 ?% B      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    + p' p3 q/ b6 V2 x7 J     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% H( O! R( @, P' H
         "}"}], ",", , _  ]& Q' T5 J& ?, y7 u
       RowBox[{"{", / A+ P' K" ]+ {& x: Z5 s
        RowBox[{
    + v5 K. A2 R$ C9 ]5 _) ?7 }    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," ?% D7 m  P. X" Q( \# f
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 n) v2 e7 f$ M5 }1 T
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    + P9 d! F6 n5 }     "}"}], ",",
    - L9 _& R; z+ X   RowBox[{"{", , `; w( G) w/ U( q! o1 i! V, l
        RowBox[{5 u7 d; N- f: Y* F) q. _# t
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 K3 ~9 O# K3 H5 ^; O
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & e/ I! O: K7 _: x0 @" K
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    3 n7 e" F1 M8 _$ l: K6 `! S" j     "}"}], ",", ' p+ C" q- N6 }8 ]# w9 j6 U
       RowBox[{"{", 9 R& Z& e! E5 m. E) Q- ?
        RowBox[{
    ' S( }0 `4 w) v4 V2 X2 s0 O    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 Y3 o5 x6 E, u3 P  ~, g; q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    7 f; S/ @: ^# k+ ^* L7 A& c6 A     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% A8 p* r( h4 I* t0 X( l; D2 [
         "}"}], ",",
    : q* c1 G' l% Z   RowBox[{"{", 2 l5 H' j2 v' v- G3 F
        RowBox[{1 h8 p* g% _7 k
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ' J  B6 h1 f7 ~$ W) i      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + d& z1 ]. x6 g; R& ?
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ q/ Y# r; \  d2 T4 i, O: c( Q! R
         "}"}], ",", - O5 k1 k& ?2 |* |
       RowBox[{"{", # b  z, H' [( e8 r9 m4 }
        RowBox[{
    " ]7 `+ K1 {( c: H9 T  {: i    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; y# m9 ]2 f$ b      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    3 u- d( q) s3 @3 C( s     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    2 q9 p* t3 M  s1 S1 h     "}"}], ",",
    * ~9 L' y" m  ]* S( ~$ p   RowBox[{"{", 5 a$ z2 k% P% ]% [5 X
        RowBox[{  P1 ~8 S: b! ]7 U6 o
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      [+ m  W# D( B( J- p. K0 |$ R      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 \8 ]8 f+ t3 @1 l/ R8 X% ^) X     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 e1 w4 Q/ ?$ [- M9 b
         "}"}], ",",
    $ V$ s" T6 o0 R- U- h+ t& M   RowBox[{"{",
    & a9 x  t5 y( X: h    RowBox[{
    ! ]! c1 }  [4 M    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 u' T, k% r& u4 X2 j6 {+ _
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 H. v) \, ?( X$ k
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    7 Z' k7 H+ {7 V# _( ~     "}"}], ",",
    / ^( t- J7 ]$ [! e+ v   RowBox[{"{",
    6 G& `$ T- u9 Y  i    RowBox[{
    % t, o& b, @# V/ j: U% y: N    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",  L# `" `" v0 |7 b
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 c8 `' s( v; N. ^
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    0 [  h* c; p& M& S8 c" Z/ i     "}"}], ",",
    ) k, ~. m, K* K% r, \% v   RowBox[{"{",
    + c, G3 G$ r) \  ~% o    RowBox[{/ X8 T3 ?: U$ Z. e
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : Z# W7 ^2 y' n  {! J      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ' b$ a  D7 t- Q. e- D     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 {: v  Z& Z8 R5 x. u6 z5 P0 e
         "}"}], ",",   u) i" C9 x/ Q& d& \
       RowBox[{"{",
    * B$ ?+ \- Z% O4 g  |4 v    RowBox[{
    . E' A3 `/ P0 j    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 j- y1 h3 ^) r2 N
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! m( r$ E- F0 U3 r9 m     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ( X$ g, @9 z$ V3 i1 z1 D     "}"}], ",",
    ' `/ o% J$ `  ?   RowBox[{"{", 8 \3 O( l4 e6 ]' c/ M! b
        RowBox[{& u' i! g$ b; P9 k$ P/ d
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," ]# ]4 i2 l) Q, s. N* R
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( j0 l' \8 y- h3 V6 N+ D; ?
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- Y8 d+ J* A# k. u7 Q7 o
         "}"}], ",", 6 c4 \, {( Y" U
       RowBox[{"{",
      T, Q/ V  l/ C1 H' L. L    RowBox[{
    3 K% Y* T- Q) N5 o# q    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; z" q. V& R8 f. {1 h
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    8 h. j# Z/ d& D. w5 `( ?, D6 ]' n     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    6 R: D, Z  K1 [  \     "}"}], ",", ) b6 n/ B+ S: R6 }$ l. `
       RowBox[{"{",
    ; e' `' u# G+ ?7 h* F* R! n    RowBox[{
    9 C* u- l* @' \1 e, r, z' u    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    + n! ?. I, R& D+ |' f/ a/ e" o  C      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , i4 t( o  U; y% @# ]7 [
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    : F. l% A- A" c  [/ H1 u     "}"}], ",", & L0 U3 ]) o& `7 s* x
       RowBox[{"{",
    1 f% h; @% @. E6 O# r" a  h    RowBox[{
    7 F# F# d* V6 c9 f# A    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 a/ L7 c- A( u1 d
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 x0 t8 [" g* t8 w
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 K5 B' z. Y' V! i3 H$ B' V
         "}"}], ",", ( s0 V5 y: K4 v0 \/ }! g, g
       RowBox[{"{",
    ; i5 t' @; i1 l7 t    RowBox[{1 {4 z1 ?+ U$ R! ~( G
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 _6 b) P# U' V" k# t" O2 H: Y" W
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . C. A" P$ u# l
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ; t! ^5 i2 ]0 ~' N  S     "}"}], ",", , r" h" d7 b- s8 [3 i/ U" n6 p0 U/ O
       RowBox[{"{",
    : b* J( v5 b* A( w    RowBox[{, X. ?! V  }- ^& H, C. q8 Q& d5 X  E# s
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : m& J8 W/ K" a9 t      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # q6 ^: ^1 l  P5 m' y
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    , f* t/ z) B6 K  K! {     "}"}], ",", " _* G/ W* L2 z/ u5 \0 f4 }0 p
       RowBox[{"{", - T0 O+ w( M' k7 X$ M% ^- U8 a, A: d7 s
        RowBox[{
    % e" @; a. _* A' e' p  n6 D    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    " c( _, g/ p3 D1 Y2 z* s      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    , K! j: l8 `" R6 x. e     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    # H* T) P8 ^! h7 U& y' t- f' ]% x2 ]     "}"}], ",", $ Z, X4 D6 I: p. U' [: V3 v( F& `. [
       RowBox[{"{", ; ?: F- a% J/ [4 E6 P# `
        RowBox[{
    6 [( {% R8 ], ?    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( R. ^( x5 b% u# \/ h7 P
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( n- Q) q! Z- p# c
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ L9 p- |* T# K3 ]+ Z
         "}"}], ",",
    / h6 H* b3 g0 l, q& j   RowBox[{"{",
    , o, k9 e1 Y, V0 m    RowBox[{; g" n4 {6 h4 ~
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ) t; S+ |. v' T& X& y# Y      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ s/ r$ ]( L* L. \' {, k/ O0 o+ F5 d
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 s' U/ h; Y* V5 ?& {3 G
         "}"}]}], "}"}]], "Output",9 s/ w4 Z6 s# T
    CellChangeTimes->{
    ( a' v+ L4 B* A& f# A* O  3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
    / F: p9 p( Q2 G3 H   3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9,
    5 o0 T/ U3 @; M5 R4 N, N   3.5779619748823338`*^9}, 3.578012345453125*^9}]
    . v* S0 d# A9 c4 o}, Open  ]],. [, n) t  K! W1 B* n
    4 O; E0 P' Z8 b3 p
    Cell[BoxData[; W, g) K, N  V# F6 D8 F
    RowBox[{"For", "[", ! y4 H3 ?2 j5 y6 `& L4 _
      RowBox[{; R" ?" ?8 ]9 Z' W
       RowBox[{"i", "=", "1"}], ",",
    3 r; u) E) F5 `7 G% T: X2 D7 O   RowBox[{"i", "\[LessEqual]", "60"}], ",",
    $ r8 T  N1 \8 |. l- Q3 b! ]4 m   RowBox[{"i", "++"}], ",", . E2 e8 f' y0 i
       RowBox[{"{", "\[IndentingNewLine]",
    8 e) _3 I) d& B    RowBox[{+ ~: {" n) e2 @
         RowBox[{
    5 e6 }# q$ q. h) g9 |; _0 c      RowBox[{"m60n21", "[", 1 s! ~) `% y  h
           RowBox[{"[", / E7 k0 h, n2 W* Z6 A
            RowBox[{"i", ",", "1"}], "]"}], "]"}], "=",
    : M5 Z7 A4 [) S) E8 Q3 U# q4 W8 J      RowBox[{"u1", "/.",
    ) Y9 Y& ^; C: p" O! O, a       RowBox[{"{", ! R& \& }4 x) J* s; i; e8 j
            RowBox[{
    + \# `* s7 A' ]         RowBox[{"x1", "->",
    * G; o( u. D/ W! P) G/ D          RowBox[{"Data", "[", $ d  H5 X9 G3 o/ b6 d
               RowBox[{"[",
    0 R& _5 D8 ?' h: A# s3 O1 D            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 1 P8 J+ C5 L' H+ D3 Y
             RowBox[{"x2", "->",
    * ~& b9 D* A6 {( t1 b+ i+ e/ O( y2 Q          RowBox[{"Data", "[",
    - l8 N5 z6 F# N; A1 W( y  Q           RowBox[{"[",
    ) L6 v8 T6 b2 z* ^            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 2 S& P5 R9 O6 R* P
             RowBox[{"x3", "->", ! W$ c# w* @0 s/ @2 I' b
              RowBox[{"Data", "[",   x  G4 I7 {9 t4 ]
               RowBox[{"[", ' U% K9 L: {* t6 Q
                RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", + a4 g! e- g# m% |9 [3 t
             RowBox[{"x4", "->", 8 X9 \3 G7 w- x8 ?3 w" e/ d6 s
              RowBox[{"Data", "[",
    2 \+ l  X, b/ W" \6 X, ]           RowBox[{"[",
    : D: E: P7 Z9 B( E# ]            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 9 g4 m: R9 K: H  Y0 {9 c) J
             RowBox[{"x5", "->", # c6 ?8 e& I- y8 q5 r8 P6 B
              RowBox[{"Data", "[",
    5 D/ b2 J( ~& X9 i           RowBox[{"[", ( ?/ J1 t3 W! z+ ?8 ?8 T' K
                RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ; y3 ~8 Z' U3 p* f
             RowBox[{"x6", "->",
    + B& e1 z1 c6 R' R' [5 h          RowBox[{"Data", "[",
    ) H  g+ p6 q8 A: Q           RowBox[{"[",
    ) v  R6 G+ c4 e+ Q' ^            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", & j  Y2 a: u% K) [% z  j* v
             RowBox[{"x7", "->", 9 X6 Q) j  B  F/ n( r0 K& |7 ^) j
              RowBox[{"Data", "[", 0 l( W0 H6 A( h/ Y
               RowBox[{"[", & W/ I1 `$ e/ j! f9 S
                RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ' @( y5 \  q5 R9 r# c
             RowBox[{"x8", "->", 4 {) y% t! b" K4 M& |8 G3 ?$ a* [
              RowBox[{"Data", "[",
      y% C) _$ k. |8 D+ |           RowBox[{"[", 0 K9 t/ K% D  s4 O
                RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
    - ?( n" U6 y( k8 N         RowBox[{"x9", "->", ' M3 R! g/ }: e5 L7 q
              RowBox[{"Data", "[",   Z% W% [! ~! k* e3 v& t
               RowBox[{"[",
    . ~+ W: m# h( y- a3 J# U            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
    " E8 m" y) y! ]9 `# a1 n     "\[IndentingNewLine]",
    & m5 H7 l$ V- [8 b" E! j2 M/ Z     RowBox[{
    : K$ z( b3 H$ ^$ r      RowBox[{"m60n21", "[",
    回复

    使用道具 举报

    琳123        

    1

    主题

    10

    听众

    296

    积分

    升级  98%

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

    • 签到天数: 75 天

    [LV.6]常住居民II

    自我介绍
    无

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

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

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

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

    群组: 物联网工程师培训
    7#
    发表于 2013-8-24 13:13 |只看该作者 |招呼Ta 关注Ta
    涳夢 发表于 2013-7-30 20:31
    ; e/ S) @3 V! w& S9 H7 }7 B$ z神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗
    ) h5 y7 K# |; `$ q% P4 ~+ A
    (* Content-type: application/mathematica *)# V6 V% g- S# ]. t+ g

    : v9 d: V3 E4 F! `(*** Wolfram Notebook File ***)
    % @  l/ `1 `4 e$ K( c% U(* http://www.wolfram.com/nb *)
      j; T: ]2 S1 R9 Q( X) G* X
    3 U/ D, x6 N, i# L(* CreatedBy='Mathematica 7.0' *)0 ], h; s0 S9 l+ l- b( A

    ! {- j  J) m% R. n! t; K(*CacheID: 234*)) U7 Q3 F) }2 n# p2 \, \9 w; r
    (* Internal cache information:0 I5 q' U& z) q7 p/ T" N
    NotebookFileLineBreakTest" r1 n! e. ]) b
    NotebookFileLineBreakTest
    0 _6 A: n0 k5 T1 J6 @/ iNotebookDataPosition[       145,          7]6 @  T% n% ^) @$ ~* I, q5 Z
    NotebookDataLength[    423629,      11534]8 ?+ `: z/ D) @+ A, B( G" a
    NotebookOptionsPosition[    412607,      11173]
    6 V0 E, C0 T) w2 `NotebookOutlinePosition[    412953,      11188]9 [& s9 s" ^9 x! _0 ?3 N
    CellTagsIndexPosition[    412910,      11185]; t9 J% V( P: n/ M' ^: O8 z8 j
    WindowFrame->Normal*)% S" z$ _& q! A

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

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

    # E% ?/ P# C/ }- eCell[BoxData[
    . V* u' N) r; U( f  z) C RowBox[{"For", "[", 1 z$ y" B) ]0 K
      RowBox[{) |2 q- }% o4 R
       RowBox[{"i", "=", "1"}], ",",
    $ r5 P4 r$ c4 O  J$ c( S4 o   RowBox[{"i", "\[LessEqual]", "9"}], ",",
    / x- g8 a( {: S$ K0 }( \   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    3 p; i& Y/ `1 L& X5 w# T   RowBox[{8 d; ]* @) ^; B, k9 p) y
        RowBox[{
    & ~5 o# F; _; J     RowBox[{"CM", "[",
    " I2 Z8 I5 @. J  ]% ?. k" l* R      RowBox[{"1", ",", "i"}], "]"}], "=",
    9 ~% K" r1 t1 M     RowBox[{"Data", "[", , }0 V2 W) b8 `
          RowBox[{"[", 6 [/ m3 L, a$ g3 t5 K/ H( i9 V
           RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}],
    ( i6 r: l* Z! U" _  "\[IndentingNewLine]", "]"}]], "Input",4 T: Y; I! R" A4 _
    CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {' L: @7 `" M/ ^) q. n: z; g& b
       3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9,
    9 k4 j) b  z7 l- j1 j   3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9, + M  f' O, j* l
       3.57791344209375*^9, 3.5779588070933466`*^9}],
    0 @7 f$ q  y; v. @1 z  v
    + y4 ~" }: {, ~2 NCell[CellGroupData[{5 j2 p2 V  l* i$ H; h

    $ d, q* A( E" oCell[BoxData[{
    " p- ~  M: U0 t* Z5 x- m. J RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]", 9 G: P! q3 F! T* V
    RowBox[{"M1", "=", "1"}]}], "Input",
    / Z( J! {+ |# d$ V+ ?+ z5 ` CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {$ k5 |; ]$ A5 w; c* u
       3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9,
    ' [& J) R: H! s5 K1 S- h* i, B" D   3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {
    $ A: a5 I; r4 i  ^$ S   3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9, 9 a+ ^5 k2 o; F2 O6 x  h5 b" P
       3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {
    + q. s0 F8 b& _- h3 n   3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {! d' A! Q" g( b1 M, K5 E+ X
       3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9, 4 B* {4 A$ s/ n4 ]! P7 a9 C
       3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {
    ) m2 r/ d* k) L8 l1 u  }   3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {: L" n/ ~  K; o$ X% \' J
       3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9,
    4 T) {! F7 m2 `6 m   3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],
    ! A" X6 I. f1 ], h) R& c( O. i5 f* Z2 b( B
    Cell[BoxData["0.2`"], "Output"," `1 x- F$ K, C8 L$ k) `
    CellChangeTimes->{# ~" I& g! ^8 B  F. e  A! Q2 K
      3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, ' P& w8 [( o+ X5 y( \/ q6 p' c! u* L* T
       3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {& u% J5 u* a7 U
       3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
    ) G# _6 J( w, {  \6 D; b   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
      g; N$ N* E* L3 ]. C) B   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
    8 [( s  g1 i4 c( E* X: X1 Q1 [   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    . x# q1 `  W! H( L   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
    ' C! Y( b3 l2 C, [- Y   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
    5 z% E, d& |% Q% a. \6 D   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
    2 h/ r( s- q& C; o. `& Y   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, , L8 }% Q# D( Z# @+ l" G! j
       3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, * a% z5 n0 |1 u# i+ A3 K
       3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, , n+ H" I' a8 I, }- |
       3.577960510686717*^9, 3.578012149296875*^9}],! U- W- O2 \% t8 H& R! y, {

    6 ~; ?5 }: q9 G3 qCell[BoxData["1"], "Output",
    8 c* q* G( L" I5 ]/ Q5 c/ u CellChangeTimes->{
    $ O$ @/ X/ g5 i! E, {4 q' I3 q  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
    ; s3 g* f9 {- Q   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
    6 Z; C& E) n1 ^! D0 I   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, # o- z5 Q8 R. ~& e% E+ q( l
       3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {: Z. N; W/ A: D
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, & ?5 X6 K: F* A2 ^& h
       3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {$ L5 m0 Z6 h1 W/ t
       3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
    + R9 T! r, ]3 P! |+ B, a   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {: Z0 |* ]% P. X$ w' V
       3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
    ! E$ u' j( K3 V# \  M5 Q/ f   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    4 x. \; p3 a) r0 F, R4 [: E( a; ~   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
      \7 z& M& o9 G7 q   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
    $ `. S2 V% \' \4 j9 f   3.577960510686717*^9, 3.578012149296875*^9}]
    ; T8 Z; k1 l, Y5 j7 e# H/ z5 `  |. ?}, Open  ]],9 ~1 g* o7 {6 e2 C
    , l( ]" Q4 j% O6 i( `/ g
    Cell[BoxData[
    8 G- W+ b  p5 V$ w RowBox[{"For", "[",
    ; y& @" u$ @+ z1 \4 Y3 D  RowBox[{
    . M, t; \6 s0 P% @$ C% i   RowBox[{"k", "=", "2"}], ",", $ b. {, j" K, o% G
       RowBox[{"k", "\[LessEqual]", "60"}], ",", 1 a( D  y3 n9 z
       RowBox[{"k", "++"}], ",", 4 r" B7 K9 E: j/ d
       RowBox[{"{", "\[IndentingNewLine]",
    $ ]$ S! N2 K; @+ u/ s2 W    RowBox[{
    7 T) R0 b1 o0 Y     RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]",
    # r; T6 K# v6 Y2 e9 b# J: K     RowBox[{"For", "[",
    6 I% ]4 j* |) r0 R7 N0 T6 _, Q      RowBox[{
    : _  l$ }: r6 e( }       RowBox[{"j", "=", "1"}], ",",
    , i; `! y- I2 z. G' K       RowBox[{"j", "\[LessEqual]",
    1 Y& q" L8 Q  b, T. q+ Q5 S        RowBox[{"k", "-", "1"}]}], ",", * U8 d' C! Y# Q4 S. F! ?
           RowBox[{"j", "++"}], ",",
    - ?7 ^+ `7 @3 g, Z       RowBox[{"{", "\[IndentingNewLine]",
    9 Q' s" C/ h2 f3 j8 z        RowBox[{
    9 n. C4 |) s: W) D  y9 A' Q) }         RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]", 3 n0 A+ a% X2 x. q
             RowBox[{"For", "[",
    " X$ u* y# @  D1 Y/ \( F, W: z0 d          RowBox[{3 T1 a. |, Y. C0 Z' Z8 ^& m8 d
               RowBox[{"i", "=", "1"}], ",",
    7 K' R# M% I  I+ L9 N& x           RowBox[{"i", "\[LessEqual]", "9"}], ",", 3 h) u! G4 E' N7 M3 C) ]# }
               RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 5 A0 D, r# V  M' C2 d
               RowBox[{
    / _' a; H% R4 z3 |6 u            RowBox[{"r1", "+=",
    0 X: q3 {$ ~2 X% w+ T0 P             RowBox[{
    8 D& w( h6 ^) ~1 i4 H              RowBox[{"(", % h  R* J# @7 S& o% y% ?& ]
                   RowBox[{
    ! i3 u% L/ a  [- \2 `$ S# H                RowBox[{"CM", "[", 6 @: ]& Q) W* Y- R) U
                     RowBox[{"j", ",", "i"}], "]"}], "-",
    * ^3 m) c; P* R0 z  D1 }                RowBox[{"Data", "[",
    # Z- B# a6 m! s9 }7 ^( g3 M0 U                 RowBox[{"[", 5 u$ G% g6 A8 K, d5 [
                      RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*", $ z% |% `; Z+ D' ~9 }8 d5 b" k% Z0 N
                  RowBox[{"(",   }5 e- J* K2 r
                   RowBox[{! q6 N" b0 t; S# X6 w
                    RowBox[{"CM", "[", . x6 I% Y! D' ~  W$ `( M
                     RowBox[{"j", ",", "i"}], "]"}], "-",
    5 s% g( Y" G: E# i/ h  o                RowBox[{"Data", "[", + @$ F6 b* {" U: C! D
                     RowBox[{"[", + C' m! n) |  H% G3 P. ?
                      RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],* U' N' _5 x; C1 W: K# Z; c
               "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]",
    9 i, Q0 |% J5 p( q4 _         RowBox[{"r1", "=", 0 W: k* d/ N5 T$ ^
              RowBox[{"Sqrt", "[", ) |5 N* M# b! k( Z
               RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]",
    ' r7 O6 ]; ^$ [# k- K         RowBox[{"If", "[", " ", / v* @/ a7 f3 ?9 ]" z8 Z
              RowBox[{
    3 `: V" ]( C5 V2 \           RowBox[{"j", "\[Equal]", "1"}], ",", $ q+ `0 ^1 [/ N5 ~
               RowBox[{"rmin", "=", "r1"}], ",", % x: o! Q( c4 H. Z
               RowBox[{"If", "[", 6 W5 J. U& Y9 I! I6 W. [- i
                RowBox[{
    4 w% S2 T9 l/ w             RowBox[{"r1", "<", "rmin"}], ",",
    7 X' x0 T9 w7 Y; w, P             RowBox[{"rmin", "=", "r1"}], ",",
    * `6 U  [7 D5 w6 z7 Z7 m' ~2 ~             RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}],
    9 k  y) A7 t( d, k7 U8 p- m' O$ E        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";", , A1 g' G7 C" [0 B( K
         "\[IndentingNewLine]", " ^% U/ w1 A% G  ]  g
         RowBox[{"If", "[",
    0 \: X7 S( O2 i" A, u. f! w- }      RowBox[{
    * @7 F- x# }- Z4 n' I" {; A, U       RowBox[{"rmin", ">", "r0"}], ",", ( @: \" h& P" ^0 N7 T+ W
           RowBox[{"{", "\[IndentingNewLine]", 1 E- c8 |9 t: g  d! M( @# {
            RowBox[{
    0 D5 J1 u: D) \3 ?         RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]", * \, y) d2 Z' M- @
             RowBox[{"For", "[",
      C$ p6 j. D9 B# V+ _          RowBox[{
    % D/ E* D7 i! J           RowBox[{"i1", "=", "1"}], ",",
    + Y" u# \4 e  @           RowBox[{"i1", "\[LessEqual]", "9"}], ",",
    . s# K0 S/ l1 K% N; ^' l  ?           RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]",
    $ @5 m- {9 w& X5 L1 Y/ ?           RowBox[{
    . }1 I5 D3 e2 y- K            RowBox[{0 k$ ]+ Y3 u( X1 ~9 Q8 M$ K
                 RowBox[{"CM", "[",
    - Y% Q2 m! K$ o& M              RowBox[{"M1", ",", "i1"}], "]"}], "=",
    . p! b& T( X. V1 u$ `             RowBox[{"Data", "[", & e" Y* |' X# J% T
                  RowBox[{"[", , t5 H; i& U, ~. D) h
                   RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}],
    ! B' d& a) i$ e+ T. J' ~5 w          "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",",
      L0 w) X9 e5 U       RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}], / n- c( |9 {8 f
        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
    " s3 z4 C8 H" x* @ CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {; a; S8 o3 D8 z$ K+ |3 v) ~+ L
       3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9,
    * L5 ~  c# f8 r( I0 y2 R; A1 P   3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {
    ; I8 Y; y  k7 R6 J5 v* S* p   3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9,
    ) C+ c4 u3 ~3 ^& s0 Z4 v   3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {
    ) t3 q* P) @( V   3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9,
    0 i& }& H6 H, \   3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {$ r; _2 A" L; [
       3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9,
    / L. B+ R; o7 c6 g8 E& _5 H' |   3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {
    2 [# e* A$ j7 c& ?5 `( X   3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
    4 C8 A  T1 U. `$ d   3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {
    / ~- x0 g( l( m) h8 \% V1 ]+ B   3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9,
    $ _' x3 V& t) O  c$ D4 x) u   3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {
    2 a5 `/ z6 g! X   3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9, - f) Y" G5 q; O$ P, W
       3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {! B( e% H0 T+ ?* ^/ \8 w, b
       3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9,
    8 _% {& M& r/ G+ ~3 D- `8 k   3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9, " q4 @* ~3 w6 G$ Z
       3.577958821991373*^9}}],! _" o4 `0 [6 G% X* D

    2 _1 d$ A6 P3 g) o- p/ o- OCell[CellGroupData[{
    5 m& I5 f8 c2 t! v4 x
    3 S9 |# [( \9 ^' `Cell[BoxData["M1"], "Input",' B" K6 i/ B3 M  N$ I
    CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
    + P4 l" `( \& h$ y+ v: |9 D" r! x& E4 Q% Q- k
    Cell[BoxData["21"], "Output",7 Z0 m! E4 R4 J6 M
    CellChangeTimes->{! t% b9 g8 h) @
      3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {1 e% [( f$ E/ o8 p' O3 l) M
       3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9,
    ' }0 p3 u6 q% R. q   3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {7 K$ E) u2 n, W. p4 W
       3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9, 8 P5 m! k3 P7 r7 R: X2 }, m# _
       3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {# v  Q8 L- d! m: i
       3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9,
      |$ ]) p0 T" A* L! f   3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
    1 [* e$ S+ y; Z; e   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9,
    # @" j9 i2 m2 k2 X2 q2 y- ?; L   3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9,
    ! G4 x2 u$ i; V) Q   3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9,
    + ?( R4 p/ ^2 J% u! ^0 {   3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9,
    % j( U  X. \4 m! u! ?; [   3.577960515600726*^9, 3.5780121541875*^9}]9 O+ W' y8 t! C, j( D9 U; i- T6 r
    }, Open  ]],
    7 n+ P: U% K, O
    2 {$ }( i" W. ]3 xCell[BoxData[
    4 y1 F; s5 a& E, M5 E" |) x RowBox[{
    $ h; ?- k* y+ l* p  RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[", ' P" u. ^6 E; [+ L6 q% @
       RowBox[{"1", ",", "i"}], "]"}], : y1 ]9 h& \# F4 ^/ I+ E8 G
      RowBox[{"\:5230CM", "[", " m! B: @4 a; g1 D+ M7 m$ R
       RowBox[{"21", ",", "i"}], "]"}],
    ) Y! e6 n  D' i6 X. [5 @$ o  "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\& o; n) R# s: f' }2 O; X+ w: }/ \! ]
    \:51fd\:6570u1\:5230u21"}]], "Input",. e9 Z5 d* L" h  M
    CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {
    ; `% ?) S9 V. c  3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9,
    % k0 Y" y" B( f6 _! v: `  3.577960526583145*^9}}],2 y% E$ h9 L) h; d8 t+ \
    8 R" E/ Y6 |6 t( ~& e) [- a
    Cell[BoxData[
    5 {  Q8 k1 z" @( T+ a RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
    ) N9 r3 p* f. [# Q( I; _9 l, V CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],, i$ G. _/ L8 B5 S

    + l1 p; }( a, ?& D: w- ?1 _Cell[CellGroupData[{
      _  V  ]: I8 R" A6 d' s$ m8 D% I# c
    Cell[BoxData[- s! |+ Y4 W  S" q4 ]1 e
    RowBox[{"Xa", "=",
    0 v( F( c5 B/ m1 U) ^  RowBox[{"{", 8 E& z% o9 I% y
       RowBox[{
    9 q3 J' o8 ?+ a   "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", 6 @9 o! J" ]* Y2 W9 D9 D
        ",", "x8", ",", "x9"}], "}"}]}]], "Input",3 n/ P4 `. y, Y3 C1 r
    CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],( ~' C0 k- D. v6 C" u# n

    , k, l1 x0 X0 h2 K6 {) R* c- ~Cell[BoxData[
    + R. O" w; X7 ]4 L RowBox[{"{",
    / {6 {% E( z1 z, r5 A  RowBox[{
    " n0 V8 d$ a% L) G4 W  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",6 r2 @& ~, [. m" U  N
        "x8", ",", "x9"}], "}"}]], "Output",
    $ a" _7 w  \  T. N' G CellChangeTimes->{9 s$ }' Y, Y5 c# n- L+ V
      3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
    ' O7 ?% P* ]4 d! V2 o8 A   3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9, ; R& P8 j, U8 K( v8 Z0 I. Z
       3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9, 5 Q5 L1 H1 e3 J9 U# }
       3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9, 4 y" o/ \! W8 }8 q9 ^' M
       3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {7 g% f8 b: C& C) S" o- O
       3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9, 7 N$ u& v: e% T, X
       3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9},
    % H( t; D1 U+ l/ G8 U/ b   3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {5 \/ a2 i6 S$ C8 w" P5 a9 ]
       3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {! l/ i3 o+ f) Y" ~! y0 B! m2 S
       3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9, 5 d4 n- y# ^# S
       3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9}, * a3 r& X; k7 |6 ~) S$ h
       3.57801215725*^9}]
    ) S  A' N7 ?% [5 D) \* S& z}, Open  ]],
    9 d: B" c2 x- `8 p  c" @4 L8 Y5 ^6 s, t  B% J
    Cell[CellGroupData[{' O# A8 s. @" \2 X! K
    % l: ?& V, z; I* p  t! ?
    Cell[BoxData[" u6 k4 r4 U2 O" X" g
    RowBox[{"Ca", "=",
    # H9 Z, g! T0 R6 D* X. }* I5 S% Z! B  RowBox[{"{",
    " K6 J6 \1 E& D7 q; H) \% c! y   RowBox[{; J1 Y" X; R" y* |
       "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7",
    1 i8 Y* L& \6 O  H' n    ",", "c8", ",", "c9"}], "}"}]}]], "Input"," g- L' U7 @  e4 |) [! d4 u8 e' s
    CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],9 W( _7 ^' z0 ?9 B  g, B) x
    * n. P% }$ _. N3 r
    Cell[BoxData[
    5 ~" _  j) ?5 [& O# B8 X* G RowBox[{"{", : ]6 S# c$ p& \  u% u9 l1 G6 x
      RowBox[{
    1 w( T$ y$ N$ B  E) P  "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
    ( ?, P" o' |. {0 e    "c8", ",", "c9"}], "}"}]], "Output",
    # M& O; Q4 k' B, v. { CellChangeTimes->{1 }6 p$ Z0 r, h8 \
      3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9, 7 m1 F- j( ?0 Q- n+ \+ D8 I
       3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
    ! P) s3 ~* y4 z$ r   3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9,
    " l+ ^- g2 j- D( d1 p. H" T9 G   3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {# s6 \1 y% |* K) g
       3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9,
    ; e) V# R  v) o   3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9},
    4 L$ C) ~5 d* p, Z' v, |4 X   3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
    " @& a# G2 v: a! c* x6 |  l  [   3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9, 9 u. d0 i$ s: J. t* G2 m6 a/ }  b  o( N
       3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
    4 |" }; t2 G6 v, w   3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
    ; h- |0 p; I4 q   3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
    % }3 C' L* Z( Z1 m, l  v/ ?% Y   3.577961904604212*^9}, 3.578012158671875*^9}], m7 c4 w+ ]- H$ N
    }, Open  ]],! o: g: U8 j& P+ F

    3 P; m' y5 ~& ^- W7 mCell[BoxData[! r. f3 f# r+ P. B9 A
    RowBox[{"For", "[", 8 K2 h) E( K3 A& }  \2 ~
      RowBox[{
    : A& ?$ }( K5 [   RowBox[{"i", "=", "1"}], ",", ) ?/ t. I& v: _3 S9 r& @0 z% g
       RowBox[{"i", "\[LessEqual]", "9"}], ",",
    $ T& c- i- m% E   RowBox[{"i", "++"}], ",",
      {" A0 w1 Y# e- E$ c   RowBox[{
      b! S7 z1 k" s' ^5 P( s3 q6 L7 |    RowBox[{"Ca", "[",
      K7 C! p3 p: N) P: d     RowBox[{"[", "i", "]"}], "]"}], "=", # {2 Q5 {% x) f; m! f% O& b
        RowBox[{"CM", "[",
    4 Q* c- d1 w& y: t, v9 _     RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    ' O& l/ |' `+ f8 v0 A9 `8 k CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9}, 1 d1 S. Q+ s) [" d* v& T7 Z
       3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9, : W0 Q: `5 V% _0 H9 F% D
       3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9,
    * s5 O* d$ E( R4 P1 q! z5 C* O0 Q1 Z   3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9, # c, z5 `3 u+ x* j/ g
       3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9, / b0 v8 _  M* w" Z5 J
       3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9, : ~3 @" p* x/ f0 \
       3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
    : x1 w2 G9 m- X% t8 `9 e   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9, 9 n& t% S# E( b1 Y* H
       3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
    0 F- F4 C/ y! D  r, f. ^   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9}, 5 B5 I6 m0 H* f1 a# Z+ E
       3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {0 S# Z, [1 b2 K* }2 a4 [' p4 L
       3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9, 2 M4 w2 J/ ]# O( P9 z- v
       3.577961906897415*^9}, 3.578012176296875*^9}],
    5 Z5 t- H) v; E. H
    7 J4 i# V' f3 l4 a0 S  Q( I$ @* _Cell[CellGroupData[{1 H0 I5 \4 f; R; l; L
    - V; y( g9 Y+ c# U/ D% u9 y, Y
    Cell[BoxData[2 h  y' Q7 S, ^' _9 L% d, u
    RowBox[{
    5 }: F+ q# X* L) b# u3 F  RowBox[{"(", 9 M: A7 _# r6 Y
       RowBox[{"Xa", "-", "Ca"}], ")"}], ".", * q3 _6 q6 A# B3 k, C. ]
      RowBox[{"(", ( G& J; b" s) D3 ~+ k) s* Q
       RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],2 |! C' u/ F2 q( l( D! ~

    $ J8 ?7 E7 N# d+ J2 i# x. vCell[BoxData[: L" Q4 {) N! L* [8 D6 H0 Z
    RowBox[{' L5 z+ `$ }8 {  O3 z& R; H
      SuperscriptBox[4 g. j' t, }- p9 [, G: e
       RowBox[{"(", - i# C# }6 `8 ^- ^+ X: D! |1 S
        RowBox[{
    7 O+ r& x& l$ c) S     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+", + y8 J# @% z+ m6 \5 ^
      SuperscriptBox[
    7 E1 o- R7 O$ Q& v3 w. [( A: j   RowBox[{"(",
    " Z; ]! b. A( R/ Y( M8 _. ~    RowBox[{
      l+ ^& X3 [$ I2 K$ m- a5 o2 S5 x     RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",
    & ~* n* Y2 v, F3 ^4 R  SuperscriptBox[
    2 y2 K' M. o. ^/ I% u   RowBox[{"(",
    : P- W) q+ e! \% `; a4 ~# t. O    RowBox[{/ @' l, N4 D& Q9 H) n
         RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+", 3 ]6 v% q/ o' ~- }6 Z
      SuperscriptBox[
    # K. P/ d; w! i; ^4 q   RowBox[{"(", 9 J6 z6 F4 N; q5 d' i& \
        RowBox[{
    * F  `( j; v; u: H     RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+", ! Q# y" D8 f9 X
      SuperscriptBox[* O7 p# [9 [1 Y4 j% C( J! a
       RowBox[{"(", 9 ~1 R$ h! L% S5 |( t+ g7 b6 p
        RowBox[{. n7 C2 O! ^" b
         RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+",
    / t% I/ D) V, |- o4 ?. O! |  SuperscriptBox[
    $ U. P9 M. N& R3 K/ v3 i6 }   RowBox[{"(", ( u, V4 S% J+ }7 U. X- o
        RowBox[{& W' J4 I$ t. z2 t
         RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+", 9 E. m" }" l, N: f9 L" X
      SuperscriptBox[# ^; P1 J" r% ?& U
       RowBox[{"(", 0 O2 Y( N% t+ W% ]) z/ V. p8 ?
        RowBox[{
    , S2 K2 u0 e2 v# L. e; N$ }1 x     RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+", 4 L0 Y2 V8 @' c+ g, o
      SuperscriptBox[
    6 n0 \# V0 p; [; N8 G. m. d   RowBox[{"(", ' y$ k+ ^& f; r% N5 `6 H
        RowBox[{' N0 Y- w3 E) [4 R. Q& I
         RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+", 3 |! y- [( S& `, G) U
      SuperscriptBox[
    7 f1 M$ B0 m. @   RowBox[{"(",
    6 [+ Y9 N0 a: m7 `% k$ A    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",: I1 q/ t# O3 a4 _# }2 _3 {( _
    CellChangeTimes->{- r' t0 ?8 ^: ?$ W4 X! E6 G  s
      3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, " y; D9 S" k0 R3 R9 T
       3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9, / q9 L. l# i1 }7 ~4 K
       3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9, $ U! _' e+ {' ]$ f/ f
       3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9,
    2 r( K; a7 z4 H+ I2 p6 I   3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9},
    # [, O+ K  }/ @4 X2 m   3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9, " s% P$ m( V" \; u0 i
       3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
    . R! R0 N! E7 ?+ a, E. ^# @   3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
    8 ]0 v1 P% y  i0 H7 T6 g" Q   3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {$ X0 I4 p/ I2 V: f3 A
       3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {
    , V8 s& J6 K- W0 c6 M2 c; e   3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9,
    . c, T6 V) s" I7 M; X   3.5779618537169228`*^9}, {3.5779618846049767`*^9,
    0 D* I9 H: @- [+ T9 B+ ]6 W0 D3 {+ P   3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]
    , u- ~/ Y0 z/ n* x}, Open  ]],
    0 p7 h' W+ }/ U: C/ i0 M  V+ L% Q- N
    Cell[CellGroupData[{8 D) _, v$ E" x0 P
    ) C2 ~% J5 o8 u0 Y- Z
    Cell[BoxData[5 M. @8 [5 O1 X: ?! ^, ]- I" O: A
    RowBox[{
    4 C: V$ y' l8 m  RowBox[{"Ca", "[", $ r( d  C3 k5 H- O& d8 ^
       RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",0 _8 m. V. Z/ s0 R/ O
    CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
    * r- E3 M% A/ c  3.5779616465173616`*^9}],2 F$ ?. M* o$ B% G

    ( C5 B0 F8 S6 n) CCell[BoxData["0"], "Output",, R# P% P5 b$ E0 f
    CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9, ( S" u1 l, C' C. D4 m4 h
      3.5779616484049644`*^9}]: b5 M- x1 l9 K" @. Z
    }, Open  ]],8 \8 q9 y/ s( N+ W% `* ?, {' |7 b

    * q8 Q) e% A0 tCell[CellGroupData[{' A: W# ^& p) l

    . M$ q! W& Y+ b/ X1 HCell[BoxData[
    2 |" o9 W6 ^; f1 ] RowBox[{' K" g3 k9 y: o/ P$ @! H
      RowBox[{"Ca", "[",
    4 }7 C2 Z% H; }: v: `- [   RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",
    # B9 ^1 x4 G% o# N CellChangeTimes->{3.577957376235614*^9}],) E! A' L/ z7 P0 `

    9 ?4 d" c" J5 W# {, n' `1 VCell[BoxData["0"], "Output",- O; c9 U. W' J) E4 D+ A
    CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}], u! C/ t: k, A) l* A
    }, Open  ]],% r) M) `' s: B0 Q: ^, p7 E2 N/ [  g

    6 h9 Y* i2 `9 {$ y8 a% Q/ Q" ACell[CellGroupData[{
    0 j2 }) b; q8 A5 A/ q4 _8 ?
    " ^. G* c) \1 J, A6 b% y% {9 r4 UCell[BoxData[, r7 ?# }  J# Q, ^4 X) Z" V0 S# h
    RowBox[{
    ' L0 K- F: d2 I: A4 G  RowBox[{"Ca", "[",
    $ b) O3 ^9 w; C2 j6 s; A) P9 e' I6 K   RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input"," E* Z7 ~" g0 c0 F' Q
    CellChangeTimes->{3.5779573112927003`*^9}],( s5 g! a: p0 f7 s
    0 H7 b, c8 v5 p- C4 p1 I
    Cell[BoxData["0"], "Output"," @' G6 m/ z3 e( X
    CellChangeTimes->{. y0 a6 q, c9 `
      3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,
    * g$ e9 {0 o, r4 F( C+ d! [   3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9, 9 ~2 B# ]8 n. y% ]; @1 V
       3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
    - }  T1 g* K. j8 [   3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9, 9 b8 {& T5 B- K6 {
       3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9},
      [' Q, X/ l' {/ m, y9 I   3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
    ( ^! u# m: f  U& s- e6 {" ~7 F' Z}, Open  ]],# O- B" `7 ~! |+ Y; T; }! E

    , m# l. q5 R$ p6 h* F( F4 F: \Cell[CellGroupData[{
    # v. `. C0 |& G" X
    / {5 d2 B+ ^) d. s& mCell[BoxData[, y; I# U) `- R1 z
    RowBox[{2 D/ o8 {! ]% p; J" `
      RowBox[{"Ca", "[", , p1 K4 x) W# M9 r. v
       RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",9 F/ x- {( U1 U4 d5 Q
    CellChangeTimes->{3.577921461734375*^9}],: O$ k8 j( c/ [4 s8 V5 [7 \. ?

    # _. W$ v+ C$ Y( z0 j' h5 K4 v) M# CCell[BoxData["0"], "Output",
    * U" T! t& D% s4 q8 V. g CellChangeTimes->{6 k! V. @9 f4 ]+ o3 X7 p0 j
      3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9,
    9 L7 d1 E. R  f2 }; j   3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
    , \& b. V+ |- Q" z   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
    , W) P- Z/ c: s6 ]   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9,
    ) d3 U& ?( A) z   3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}], G: m6 u) `$ M
    }, Open  ]],, `2 }: H$ B6 y+ n
    ( b. F; X0 p) K9 K
    Cell[CellGroupData[{
    6 B( W9 f9 I! o& Y7 \2 Z2 _# \2 G
    3 u/ {2 o# a, X2 m6 y" E8 QCell[BoxData[
    ; ]$ ~: w. V! i RowBox[{
    # O7 T6 x& E7 J2 x2 t; p+ a  RowBox[{"Ca", "[", 1 }! Z1 U$ `. j/ u
       RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
    - L- A8 V- ]# d# b; V CellChangeTimes->{3.577957303118286*^9}],# ]7 \5 J: \% X8 G3 J& M; t2 L

    " ]3 i( R! E1 c% w9 {5 V0 _6 NCell[BoxData["0"], "Output",- ^7 x5 e9 R4 T) e9 Y
    CellChangeTimes->{
      s9 z: w: q, O3 z. F2 |3 J, \  3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {
    - T+ ]' K6 g# R# e( ]' r( M   3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
    - i9 `, g# J: o) f% d/ Y. @4 g   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
    * D4 E4 x2 `1 }# a   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9, 9 d1 }: E+ H! a& ]% |
       3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9, & @  w. b4 C, H$ a; r5 y; ~* ?
       3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {# }% v& w/ @- W* y5 h
       3.577961889378585*^9, 3.577961912965826*^9}}]. f; U/ c1 m+ M2 u1 _7 @
    }, Open  ]],8 `0 S. M3 v  w$ u$ V$ \$ f

    - Y6 P; `. u- ]+ G5 G8 \Cell[CellGroupData[{8 C" u8 z& [# r* Q. k" C
    " J/ t: ]  U8 W+ h0 V# g0 x
    Cell[BoxData[$ ?, A2 _( T" @! x  q4 m7 F& {
    RowBox[{' c$ {( }* v) t& ?+ z6 M5 E
      RowBox[{"Ca", "[", , `4 c0 H4 j. j# q) K
       RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",
    6 s5 ~: y+ H+ {, x9 Q CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {5 @' l  K) _# I0 T! D; ]
      3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9, 3 H# v; y: A5 s+ z1 Q* j
      3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {
    " |! v7 \( J0 w5 j" Z  3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
    : I8 D  S3 N6 m. |- w  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {3 F+ A5 z% y4 |$ I( h+ D" W
      3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
    % `6 g' a+ @! C  Q3 @  z1 i5 e  3.577921435703125*^9}}],
    " _0 N  W: @6 P
    % o& ~% @& ~9 ~Cell[BoxData["0"], "Output",5 ~( |  P3 f  `& y
    CellChangeTimes->{; z) X2 _6 P- M# O' ^, A+ ]% S
      3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {9 u6 y, g1 F2 A3 n0 e
       3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9, # P0 _- e# m7 X
       3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {
      [+ U5 g1 a* Y3 J5 G" F5 S   3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9,
    , g9 R8 Q+ ^5 a' H2 v3 F0 l   3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {
    * a. B( I: c( J+ b, Q4 R6 h9 A   3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
    6 ?% O" ]: y- |   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9, $ `2 E: d! K0 m1 ], ^8 f% j9 T
       3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
    % U. {# J4 k7 U; e, ?7 \   3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {9 P. i' H% L* U
       3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
    - _& E3 b+ r7 u$ I( L( r& @6 i# Y   3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {
    4 K9 i6 |& n0 H  M" c4 C, o) c   3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9, + [* N% S: I7 G8 o
       3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]& J, \& Q  ?( V- b) t% c% `
    }, Open  ]],2 `4 W! k7 {9 e5 T. g8 K8 B0 z

    . j& a2 I" c# U: QCell[CellGroupData[{2 N) w# b. u7 L+ O2 o

    5 \' _: h3 K) M: d3 V7 dCell[BoxData[# }* G+ g, d* j4 R$ [4 e4 F
    RowBox[{"Delta1", "=", ( p; z! i4 `, ^3 |* r8 r9 P
      RowBox[{
    2 n& s; P! r4 P   SubsuperscriptBox["\[Integral]", $ h. K. \) p/ K. C* C' f
        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ( k' D: {- f- c- t2 x  B+ N9 z9 g
       RowBox[{
    / U: z$ y' a- ?) M    SubsuperscriptBox["\[Integral]", # z. T3 ]( }3 d' W( `
         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 2 A  P3 w$ p+ k) X
        RowBox[{
    0 e6 Y7 h9 I' {: X     SubsuperscriptBox["\[Integral]", 2 [& f- F4 Q" A, h/ S6 C
          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 6 G/ o0 r+ i) S# ?* B5 s6 @
         RowBox[{
    " J/ P- Q, T3 q) P7 S6 D      SubsuperscriptBox["\[Integral]",
    , C( D; L7 C7 @       RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    5 n0 V5 q- b+ d      RowBox[{$ i, M5 h1 B- j3 A. h
           SubsuperscriptBox["\[Integral]", ! @. n2 P  j# U
            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    + o/ c. K4 h& a4 c5 ?       RowBox[{4 y  S( x) a5 U
            SubsuperscriptBox["\[Integral]", 0 d! H" x' o: F4 L2 x  p/ z
             RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    0 q; w5 x  J: U3 a! r( A        RowBox[{6 T- T' c/ e' i1 c1 r5 g9 E$ ~
             SubsuperscriptBox["\[Integral]",
    ( l2 J( Y1 N0 x! b          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    2 Z1 y0 q* l! r1 p) E" c         RowBox[{7 ^# s0 P; i" ^* T. a# ~
              SubsuperscriptBox["\[Integral]",
    # ~7 I# Z2 u1 Q$ s           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 8 E0 a2 T& `! n
              RowBox[{
    9 A2 n/ T) y  \! g6 \' W1 [           SubsuperscriptBox["\[Integral]",
      F* ?& Z( \3 `# I1 [            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    # i% |1 \% C& L0 S           RowBox[{
    & [1 r4 a. t8 n: u) U            RowBox[{"Exp", "[", : A' o5 I- F* o  `3 `. _
                 RowBox[{( b6 `9 Y3 g" s' V2 i/ U! v8 z
                  RowBox[{+ G; X8 ?, x0 r, P" y: T$ S4 Q
                   RowBox[{"-",
    ' M+ I; {; }% u% S9 u                RowBox[{
    " w8 ]# Y2 N- W# M5 Y0 E3 k                 RowBox[{"(", : m; `2 C7 ?" l* L0 G9 D* I
                      RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    5 r5 F; P- D' Y                 RowBox[{"(",
    1 [$ q5 K! Z# Y9 K2 D+ K* j# @( l                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", - V1 ?/ A) ?5 R; q7 z) P
                  "Delta"}], "]"}], + w/ [" f, T) m  g  M
                RowBox[{"\[DifferentialD]", "x1"}], ( y9 Q/ E3 m! T5 i" c* Q9 Y* r
                RowBox[{"\[DifferentialD]", "x2"}],
    # W8 q' ?( E. g3 P  d/ Y            RowBox[{"\[DifferentialD]", "x3"}], " R6 g  T4 Z6 k. ^! w
                RowBox[{"\[DifferentialD]", "x4"}], 2 N" ]( `8 v9 d
                RowBox[{"\[DifferentialD]", "x5"}], 3 b/ T/ T5 h7 x& g2 l, d4 h+ w$ p
                RowBox[{"\[DifferentialD]", "x6"}], ) D4 o9 `) A  y; q+ G
                RowBox[{"\[DifferentialD]", "x7"}],
    0 o! T( ^. t: n7 z3 u            RowBox[{"\[DifferentialD]", "x8"}], 9 c: s+ z/ d+ m% x, ]# h
                RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",4 S( |# w7 j) D- h/ e
    CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {
    7 z' l1 W7 _3 _' i  H% C   3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9, $ s) m4 E) H- c/ Q
       3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {$ T' J* E- }" i  V# r
       3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9, & H" T/ u4 ~( s8 F) \/ I4 X
       3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {: o2 V8 v; C: i  j: U/ @
       3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9,
    4 m! {) l" f7 e, p& L   3.577918964453125*^9}}],
      [) v& n/ c: w' }' K" W' X
    9 x% F9 @1 ^% xCell[BoxData[, ], J- h2 D4 ]( j
    RowBox[{"97.40909103400237`", " ",
    ( ^) L3 o; h% \% Y' N0 p6 F  SuperscriptBox["Delta", "8"], " ",
    " P7 k9 f' T  H* l7 y( {7 n7 i  RowBox[{"If", "[",
    - _  G$ ]) m5 W  ]   RowBox[{  T* q, X& S/ t2 d" C6 I" ?$ I. j
        RowBox[{
    8 R" W4 q4 C' Q& E     RowBox[{"Re", "[", , `; I$ f# u6 e/ n0 r3 U
          SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
    " v" `* y7 a+ t$ A. \& v  h4 K    FractionBox[
    2 f+ d! k. R. j2 J1 P     RowBox[{"1.7724538509055159`", " ",
    ! q- z5 V1 J7 ]      SuperscriptBox["\[ExponentialE]",
    , H( s" l: W1 S  b/ ^- t       FractionBox["1.1102230246251565`*^-16", . R0 z! w# y1 \
            SuperscriptBox["Delta", "2"]]]}], $ D: h& V- l. F1 _* e: ^6 m
         SqrtBox[
    1 n% B! z" o. i2 R, K' D1 Q      FractionBox["1", 3 E/ G; R0 D  D( m7 p" s& h
           SuperscriptBox["Delta", "2"]]]], ",",
    " q( J9 s* D5 x/ S    RowBox[{"Integrate", "[",
    9 x4 V, w/ v6 k     RowBox[{
    8 U1 {0 M4 I/ L1 a      SuperscriptBox["\[ExponentialE]", / Z5 q; x* x% i" l! z
           FractionBox[. d5 w. y; H  x6 F
            RowBox[{"1.1102230246251565`*^-16", "-", & ?" i8 Z# E1 ~) b+ A/ ^2 l  {' o
             RowBox[{"1.`", " ", ' I, w  w( w7 }+ X, ~6 n
              SuperscriptBox["x9", "2"]}]}],
    3 f( d/ B, [4 r7 f5 G        SuperscriptBox["Delta", "2"]]], ",",
    , A( g! K* f8 o8 _# _1 \      RowBox[{"{",
    + @& G; I: t4 L       RowBox[{"x9", ",", & A! ~. V+ }0 \  k* ^* l
            RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", ! H7 U4 ?2 C, i5 o
          RowBox[{"Assumptions", "\[Rule]", & c1 [5 i5 m' w; l# e- B
           RowBox[{% n7 m3 G2 [: R( q& [5 J/ W
            RowBox[{"Re", "[",
    7 p' w9 T2 e$ B# F! D' m         SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
    4 t- Q) E5 n5 v% k+ @     "]"}]}], "]"}]}]], "Output",5 D8 B. \; e% [: v7 I
    CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9, , x' ~% U8 y5 E3 M- H
      3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
    4 N- b1 \4 X' x4 n# a  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,
    $ D$ [& h; G, o2 a# D/ u  3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9, - g9 c- F: s5 p$ b+ Q9 M* H* t
      3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
    & L) B7 A' n, h. t  3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9, # n7 ~9 X) n, I$ {4 U3 n
      3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]1 P4 p; y8 l: w3 O& S0 L
    }, Open  ]],
    4 J: q3 R- A9 g* W3 u9 i
    " s0 v& ?3 ~3 S& B! ]" k- Z! r  HCell[CellGroupData[{% p1 p- h$ \' L" w; C

    . Z0 r% A- R$ t4 p( RCell[BoxData[
    : Q+ h# p+ L4 `5 N& ]# l; _+ s1 y RowBox[{"Delta1", "=",
    3 F2 [8 ]; ^$ Z; j& s  StyleBox[
    ) {* W+ G) k0 S' h9 U$ x   RowBox[{"97.40909103400237`", " ", ' X% Q, j3 _% e: f9 Y
        SuperscriptBox["Delta", "8"], "  ", # X2 `/ Z5 s& k" s* v+ J
        FractionBox[; B) j' ~% A2 S- s7 n: g
         RowBox[{"1.7724538509055159`", " ", / f6 D& f4 E- J
          SuperscriptBox["\[ExponentialE]",
    # G4 h0 S4 E! I/ t- c       FractionBox["1.1102230246251565`*^-16", ! V& @* n9 [# E! f; Y" x0 ?! L4 s
            SuperscriptBox["Delta", "2"]]]}], " K6 A. ~( n, y" ~- ]
         SqrtBox[) o  J! Q( i$ ^
          FractionBox["1",
    # K4 S4 t& n" B5 M$ l5 P2 W% `1 E       SuperscriptBox["Delta", "2"]]]]}],5 c# {( \- b0 j- @7 ]' S3 h( g8 K
       FontWeight->"Plain"]}]], "Input",, w  T) z3 t+ O+ ^' W9 R
    CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {: m, D! u- j) o
       3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9, 8 G" X% f/ n* c, H, V
       3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
    ! G" S& ?/ k, D' P   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9, 8 V( ~; w7 F" t& G$ u! \
       3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9}, , V4 |: q- K! [. v4 L  i% I6 {) P
       3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],' _4 v" b+ ]0 A! H& C3 m: a

    4 R7 S, x3 p2 ~* v5 R  |+ u4 q/ ]5 pCell[BoxData[9 g3 D! t; ]9 |* T, z: ^$ g
    FractionBox[; P; u- K% O% g  F" N
      RowBox[{"172.65311851642346`", " ",
    # d9 e# M0 M! A5 N; Y- x) ?- c! s   SuperscriptBox["Delta", "8"], " ", " e* b+ m* w) y, ^
       SuperscriptBox["\[ExponentialE]", 5 Y+ Q/ J. T5 i) c: ?2 F
        FractionBox["1.1102230246251565`*^-16",
    : [2 [, P1 d  C3 _     SuperscriptBox["Delta", "2"]]]}],
      j. \. F! ?# c! Y  SqrtBox[
    9 P; K1 ^+ t- T- w" ^   FractionBox["1", . F4 u9 e( m( `2 S
        SuperscriptBox["Delta", "2"]]]]], "Output",
    ( x+ B  n- ?7 \, I9 B$ Z6 g CellChangeTimes->{+ R/ d3 b: z/ Y: C! Z- ?
      3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9, % o. k1 \4 n5 z1 K
       3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9, $ _9 [( g: y* d( l. X  Z8 e' e: Y
       3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
    - Y5 C; o, t) A# e! o: l   3.578012166234375*^9}]1 k9 z- ~4 r5 O* V
    }, Open  ]],
    8 c" L2 _1 X4 k: p5 k5 ^: n3 r! p. d/ @9 m3 `) Q  D* M" E' ~4 R, F% ^6 r
    Cell[CellGroupData[{  T3 T& w$ b! G1 H( y5 d
    5 m& u% E) D, p5 M7 y2 g( z1 h
    Cell[BoxData[3 [, K# H: W0 I+ V
    RowBox[{"DeltaX", "=",
    # ^7 i9 X7 b; S0 V  RowBox[{"FindRoot", "[",
    $ S5 T% w9 I/ x   RowBox[{
    $ ]1 j: P2 G/ L7 a. ^    RowBox[{"Delta1", "\[Equal]", "1"}], ",", ( `0 N0 E, Q3 x  N
        RowBox[{"{",
    , R; D' T* m& C. b: }( V     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",/ i! Q- P% R$ }( f0 ?# M
    CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {1 x* ~6 B% {6 X7 m4 {
       3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9, 5 `* Y! J) n% ^
       3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9,
    & l$ X2 k& U( |# t6 W/ j' X, w* S   3.57791921584375*^9}}],% O$ ?, y# m4 _. u
    . k6 {& L  j9 M  J6 y
    Cell[BoxData[8 X- i& U. _& h. |% F7 @
    RowBox[{"{",
    : h4 e4 z7 c: A7 Q( W2 i$ W  RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
    $ T8 n; ?* A1 s1 ^, Y CellChangeTimes->{+ y" q9 Q2 q! _( P$ G
      3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
    + I$ z. B* w0 a" m% H& x   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9, # F" F2 @; J# v1 E' J; ^
       3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9, 1 x' @/ A9 V1 s5 a5 n) \2 V
       3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
    * f0 N2 K# s. v. K( j9 f4 @   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
    # F* ?' d& w/ m( g9 b; R/ v1 N& j   3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9, $ M$ k; O$ ]  v5 C
       3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9, 1 a; x5 ^: Y- t9 _  I3 W7 C
       3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9, ; h6 V8 `6 k0 k8 l1 N+ l
       3.57796070150625*^9, 3.578012167703125*^9}]
    ) L, K0 q5 a/ S+ U& m. W}, Open  ]],
    ! _4 [2 Z7 V/ J) X4 q% k+ _3 O  T6 G  r) x, m* S
    Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\$ I' \5 S1 ]) l
    \:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
    . [: p1 L) T: q% G& l! B" Z" M2 Y CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {% L/ I- [/ b; B+ D  S1 M
      3.577960705312657*^9, 3.577960707621461*^9}}],
    , I. i: c' U( g2 e7 x& O- R' |3 M& w: m8 J* _$ L
    Cell[CellGroupData[{  ~  b  H; b5 j( o

    . f2 C1 {' P4 g: J3 f2 Y& T# x- p1 MCell[BoxData[  q' O. d9 c  t- e& W
    RowBox[{"C1", "=", "Ca"}]], "Input",; b) a% c! w7 a2 L: N2 x: ^3 G6 t
    CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],  D; R7 O% ^1 A: \+ r. X% Z) y/ @

    ( Y7 K5 F  O9 w$ i- c7 [Cell[BoxData[
    ' Y, c; T' w# {; Q% Q$ r RowBox[{"{", 6 o! H3 z; F, B( B
      RowBox[{9 V5 o! g, w* K& y
      "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", " w6 r" ^$ R  c- l% H8 \0 v0 e
       "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",", : U% w9 {0 @( o* f5 e8 U
       "0.`"}], "}"}]], "Output",/ a( x0 @  ?/ E" F3 G. q
    CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9,
    4 e; j, Q( G( D4 C0 I8 g! A: q+ l  3.577960710273465*^9, 3.5780121855*^9}]) L  }/ T/ _$ f+ O6 e8 K; q9 F) S
    }, Open  ]],
    ( `) z$ r- Y7 S0 C* ]" c8 q8 v6 ?; M
    Cell[CellGroupData[{
    . R, G/ f. s7 M  `
    . [8 c8 e1 d" ~0 v# }' k/ KCell[BoxData[
    3 u: K. s2 s0 U5 ^ RowBox[{"u1", "=",
      S1 J+ D$ o: N0 a0 n7 r6 S, b  RowBox[{* _. }7 S0 f$ [. m
       RowBox[{"Exp", "[",
    ! y& h7 {! I3 }" t    RowBox[{/ G% u9 \9 D5 V3 M/ K
         RowBox[{
    - g7 [$ O) M8 G; u. I# h      RowBox[{"-", 0 l2 A  s6 G9 ~$ Z2 T
           RowBox[{& r) E# |8 N% k/ c
            RowBox[{"(", 7 G; `3 N, w  w: y3 f! k
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
      X7 V, D; v1 F( _        RowBox[{"(",
    # o% n" P, c% B/ d' K5 p5 E1 ]         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],% x' R) x: G  @/ g- ~: c7 _
         "]"}], "/.", "DeltaX"}]}]], "Input",
    % {9 ]; Y& E& w' f* s( N$ h+ X CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {/ [; K7 n' J0 S1 G# n! E8 d# @
       3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {- l" B- ?1 A& w* f8 L
       3.577919193484375*^9, 3.5779192326875*^9}}],/ ^( ~- i& {$ @9 G
    " X: `+ \1 s% U! i; |8 ~
    Cell[BoxData[4 t' o0 x  i1 ~1 |7 g' e$ V; F! C
    SuperscriptBox["\[ExponentialE]",
    : {7 W5 u0 v3 S) U6 p  RowBox[{"3.141592653589793`", " ", / ?4 V# k/ y# ]: W" Q7 y
       RowBox[{"(", - N, W5 Q% Q1 O. M" ], ?
        RowBox[{! D- k9 {: r  x. B6 `
         RowBox[{"-",
    - a# q- l$ g* I      SuperscriptBox[
    & v  b" F1 P8 v' Y- w7 ?2 E       RowBox[{"(",
    & J6 y  e: J$ L/ x  p        RowBox[{7 o3 E* O+ L4 ^1 b# m3 F; `
             RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", 9 B: W- k8 y6 k+ G- |
         SuperscriptBox[, Y' F* \" h" [: v  n* O
          RowBox[{"(", 6 O* }( ]/ a: s3 Y' d& C
           RowBox[{
    3 Z+ ?4 j5 T' U  ]3 t+ n        RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", # s& N  C5 `8 s* p$ T
         SuperscriptBox[
    7 F3 L6 G5 m) n# {      RowBox[{"(", 6 U% V6 E& W: Q! Y
           RowBox[{2 Z+ y7 u) S) q# ?6 |* N4 |, G# L  N
            RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", ! A7 f2 ^7 V8 j
         SuperscriptBox[/ W4 W# y* h$ D, E  q# v! S, X* @
          RowBox[{"(",
    $ n7 s. T$ X8 V' i1 R       RowBox[{
    1 J2 M" s- t: }2 T4 g        RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
    1 o1 y7 v" B8 H1 F3 Y/ T, b9 J4 o! L     SuperscriptBox[* d& y$ B% o9 f  B" G
          RowBox[{"(",
    0 Q; F5 c; n& Y4 i: p5 m( t+ D       RowBox[{7 `. r& W6 B$ [2 @( ?
            RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
    4 J! N! ~3 S/ M2 I6 i1 T8 s     SuperscriptBox[
    - S6 w; G. u, ^) o      RowBox[{"(",
    : J% C4 |" X3 z$ Q) a       RowBox[{/ s! S$ s6 [( |+ {
            RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", 4 P6 O3 f0 }- a9 y+ ?& e
         SuperscriptBox[0 {/ c1 I+ d& I
          RowBox[{"(",
      `9 {# r% }0 O/ P7 ^2 L2 g       RowBox[{4 i/ g, W$ r3 P% f+ h& k# z
            RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
    * D5 `9 c6 U( q     SuperscriptBox[
      `/ R; _( Q( I2 s: T: N      RowBox[{"(",
    ) r. H/ R% o1 ]! c       RowBox[{& }, G2 p) z) _( h6 Z
            RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", 8 o) e( t) S. M, Z3 \8 O
         SuperscriptBox[9 h- z0 s# b$ K0 N: i# S3 n$ i% h- c! [
          RowBox[{"(", 9 V+ m1 c! A1 d: v" [
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    6 h& ]2 Q' O# t% W5 j  K    ")"}]}]]], "Output",
    " m+ w6 P/ f. M& J- o3 q' Y CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
    ( X7 `. P) w* K( Y. l' s1 _! B2 ~  3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9,
    " ]2 B+ _5 @- H" C  3.578012187078125*^9}]
    ! G9 J5 m$ k1 K" v  E1 X}, Open  ]],
    8 y0 g9 ^( [4 u, Z1 M1 N4 s
    ' V  C) C8 ^: L% LCell[CellGroupData[{0 r# h: E1 @& Q! N' `
    % Q" Q6 l0 O$ K! {
    Cell[BoxData[" E4 {- Q4 g# r: Q& c; b
    RowBox[{"C2", "=", "Ca"}]], "Input",0 S  u( |  j7 d! b! k: j: x! |" {
    CellChangeTimes->{3.57792047321875*^9}],& ?  i# P( b1 N! ~- _- _
    9 C1 v, Y( s" X4 ]0 o+ s$ @7 [
    Cell[BoxData[4 {6 ?3 u; a; W, V4 |* y2 J5 d
    RowBox[{"{",
    3 H* _; J, L) M) K( W" ~$ j  RowBox[{
    4 L+ \6 ~: q7 \, V4 i) o8 E; R  "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",", ' G8 p0 {8 J0 o& v4 G
       "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}], 6 n+ P0 h; ~& a6 w$ f0 ^0 j8 C
      "}"}]], "Output",7 P9 |6 e7 q) m8 Q/ X4 _
    CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
      s" c" R# N; w+ t; }1 h  3.5779607401163173`*^9, 3.578012204671875*^9}]& e( n8 K  [) b! E3 d; ]" l
    }, Open  ]],
    " g( R2 ^8 Z  p' I9 T+ P- |0 f: K
    Cell[CellGroupData[{
    5 e& ]4 H8 ^* h% X" @% q& N% x3 ~" b4 K# T
    Cell[BoxData[
    ) T$ C3 H. C, Q- r& u: x4 d RowBox[{"u2", "=",
    ! r4 T, s9 s. f, _1 I6 n7 t  RowBox[{
    ) Q" M* z, y/ R: S2 t   RowBox[{"Exp", "[",
    2 i3 O2 j  `0 T0 `3 |    RowBox[{9 h* V* c7 I' ?
         RowBox[{& b) o( c5 T; q
          RowBox[{"-", ( @1 K8 c* k# U! L% q! v4 v$ E
           RowBox[{% l2 H' ~/ A' w* U1 I. Z
            RowBox[{"(", + |  p( c5 a( |! {6 r, H9 [- r
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    0 _2 i6 H/ r3 Q  o4 q, O        RowBox[{"(",
    % D' Y' F6 Z5 ~0 I' w         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ; w6 k3 m, h4 h4 J# \# _& A     "]"}], "/.", "DeltaX"}]}]], "Input",) p# ]3 z9 n% ]
    CellChangeTimes->{3.577920484109375*^9}],
    9 Q7 V6 h) U* U& e2 B) t* K1 K2 z
    Cell[BoxData[
    * P4 u; F; d0 y: K& T( n SuperscriptBox["\[ExponentialE]", 2 n$ o& n0 F' u9 J7 k
      RowBox[{"3.141592653589793`", " ",
    ' [6 f+ o* J4 a" ]) {9 E   RowBox[{"(",
    6 c1 G0 n. w% i: W    RowBox[{# U# K, b$ Z1 _: B
         RowBox[{"-", # @% c, I8 P: K8 ?! i' N& b/ \
          SuperscriptBox[
    2 S2 h# Q: O, u. H! X* t( w- I       RowBox[{"(", . _6 w- p( D7 n% E; H
            RowBox[{
    : L: Q) N4 H  F1 m. q' Y8 Z. @         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
    : D, B/ b) v5 _% M  x     SuperscriptBox[( d/ L0 k& _& y+ g  x2 j
          RowBox[{"(", 5 S# j' W/ n' w
           RowBox[{' o2 z" L( |+ C' e3 @. M, V, g
            RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-", + |4 s& r: f( v
         SuperscriptBox[
    0 c9 c: e$ H( P2 U- h% D      RowBox[{"(",
    . k8 C' |" S, h' D0 o4 P       RowBox[{2 ]+ X" x/ a4 c" D6 C! ~; \! W
            RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", & k3 z5 ]& i$ Y% N5 u8 Z; r
         SuperscriptBox[6 |! w4 I5 e; ]# V1 J
          RowBox[{"(", ) m0 o* d  t9 r, T: T2 {( p) u
           RowBox[{5 f0 M, {; t9 _" j2 J$ Y  }- }
            RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-", : F+ b2 S! E1 Q" ?# W( ?' D$ f$ D
         SuperscriptBox[3 o" L) W3 T% ?/ t& V* E  m7 c, w
          RowBox[{"(",
    6 C% M3 L- W' P: f       RowBox[{
    / H. }3 T; B5 i$ u7 N, o        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    4 ?8 {, o8 _3 C  a: \! t" a8 g& D& t     SuperscriptBox[/ s. b+ Y0 Z8 J3 V" d/ v4 g8 @
          RowBox[{"(", $ I3 i9 Z" {6 i3 I9 Z4 N  R
           RowBox[{+ l# A4 M" V" t9 C
            RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
    " _$ e4 s8 I1 L  p/ r     SuperscriptBox[
    # }/ ]8 o+ \. Y7 G( A# P0 f6 R! u      RowBox[{"(",
    , R4 V- r/ P) h* G  _9 f( ]; {       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ; y8 {$ d  h+ Z% l+ b( {5 u
         SuperscriptBox[7 C9 r' @2 S+ f6 ^
          RowBox[{"(",
    ( D- L3 l" V5 b- z7 y% j: a       RowBox[{
    2 H9 T8 F: y% Q: N5 l* Z% ]. `% ?        RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
    . {/ f  n2 S4 a; j" b/ A     SuperscriptBox[* Q/ p7 r  R: I  D/ v/ E
          RowBox[{"(",
    & Q1 @9 f9 p. t( j       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 7 x& q3 T( M. o/ X6 B
        ")"}]}]]], "Output",
    ) U/ ^1 [+ u( t- ?4 r CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9, 3 z7 L: u( E1 L! n' l
      3.5779607413955193`*^9, 3.578012205484375*^9}]$ |. v( E& b( K. }& ], Y' E- w  b
    }, Open  ]],
    0 |5 }7 `2 O4 C1 c( t5 k4 A# y: e
    Cell[CellGroupData[{
    ! g; S2 G( m& q) K% j$ c$ u' _: X
    ( N9 h5 t' P6 ECell[BoxData[7 p! r! a; ]" `. `* A' p# N
    RowBox[{"C3", "=", "Ca"}]], "Input",0 X* O( Q# L3 |% F7 V% E5 K6 s
    CellChangeTimes->{3.57792064125*^9}],9 z; z4 w: \2 V( G9 s
    + l( J- \8 J: {% i! n* U6 S
    Cell[BoxData[7 K& f  l+ P3 f( {* l7 E0 x
    RowBox[{"{",   r$ E3 U2 Y3 c
      RowBox[{
    $ W: R7 L4 _) u2 w* @  "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
    0 E/ e* X3 s9 R' P% M% W' \! ^   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}], / j! Z! p- ?1 W+ J2 W; N5 d4 q
      "}"}]], "Output",3 G9 o- W! j2 B  {/ S8 e- t  E
    CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
    0 H( F, V0 [4 C+ l  3.5779607642027593`*^9, 3.5780122103125*^9}]( u1 F8 \% _- ?5 y& \
    }, Open  ]],- c: d1 d/ c! B0 O

    : u% u9 Q2 a3 F" CCell[CellGroupData[{  n+ B9 n: d' a9 X# t! c0 T' D" T
    , A! o. Q' `8 K. u) V9 N7 @
    Cell[BoxData[/ m+ p( l0 ]  V$ W; E
    RowBox[{"u3", "=",
    0 y$ _4 [! _; x% z0 [  RowBox[{
    6 r' r, P! f) }2 Z   RowBox[{"Exp", "[",
    4 T5 B3 @9 [& d: \* q$ m    RowBox[{
    " h2 P! A$ p( I     RowBox[{
    + K3 c6 {$ v. A: K7 c+ t8 O! @      RowBox[{"-", * {, y. \6 Y+ t- @7 M
           RowBox[{2 ]5 U: A, e3 v
            RowBox[{"(",
    3 T: ?* H$ E% ]         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ; O  c  U+ }5 }* V7 W6 g: t
            RowBox[{"(",   W# l$ n8 g5 [0 D" F# w* b" T9 u
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    0 B# F; J+ E% n% f6 t( i     "]"}], "/.", "DeltaX"}]}]], "Input",  x7 Q! y+ X4 q/ D$ h  [
    CellChangeTimes->{3.57792064921875*^9}],7 O/ m' A8 n1 A) f3 z: {
      ?, \0 h( x+ G5 p! H& [9 q& A# l" V
    Cell[BoxData[
    : U& N3 |* f6 \ SuperscriptBox["\[ExponentialE]",
    0 h" j$ A0 h0 h& ?/ s  RowBox[{"3.141592653589793`", " ",
    - S! w4 m& Y: o- ~- x4 P) X   RowBox[{"(",
    % U; s: d0 g, I5 \( m1 e$ |    RowBox[{3 H5 c$ t8 W& G) H9 y% Q& h
         RowBox[{"-", + g  f+ K5 \; e8 r' Z7 f( x) c; ?/ E
          SuperscriptBox[: B# o: E) l* L# v5 [7 D
           RowBox[{"(",
    ; `0 G2 u8 n( G9 k5 e3 }        RowBox[{5 B( r, S$ x2 }/ J( Y
             RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
      S, B* ~% Y' n. @: F. y     SuperscriptBox[9 J' Q$ |* f3 z' u7 T/ s0 z$ y
          RowBox[{"(",
    1 h7 i3 z$ u; u6 a! v( q0 X' a9 C       RowBox[{
    ' g8 [4 D, F) o* }* x1 L        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
    / ]" f' D4 J  V4 N* q0 A     SuperscriptBox[! ]$ N" C  n& v- f$ s) k
          RowBox[{"(",
    4 H. Y* r! ]* L' u       RowBox[{) H7 O- ?: L& w# u5 Z% Y
            RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", 2 k, w  H7 _9 G1 k: C
         SuperscriptBox[
    2 i% z3 c- r/ k      RowBox[{"(", * P7 |) c" K" S7 f: b) {/ n8 H8 v: R
           RowBox[{4 q% c; P8 d+ t# u, I3 A. ~4 {
            RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", : O& k& ^5 D3 u; D" c' f1 x
         SuperscriptBox[! P( {% o7 D& z6 M
          RowBox[{"(", * K5 L  f7 R3 A; R2 ~4 B$ D
           RowBox[{
    : @) E# K5 ]6 O+ o, \        RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
    , S6 N, p+ q5 `4 c" }7 j% k     SuperscriptBox[
    - H0 L5 ?; _4 I0 s% X) c/ c      RowBox[{"(",   L/ l! ^8 M, K% Z3 L
           RowBox[{
    / ]* I: n( ?0 i; D- d; s! C        RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", 8 n3 d3 j$ w  _6 V+ e8 K$ G6 j
         SuperscriptBox[
    * I$ y4 ^$ J/ @, {; Q      RowBox[{"(", & a- a: E, X& J1 ~( t
           RowBox[{
    ; ^9 q- T0 c  c5 m        RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
    , G0 _; G/ D7 L5 x- |' ^     SuperscriptBox[
    & H" c8 g, ^2 _/ C      RowBox[{"(",
    6 }7 j' u" J$ o" L       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", $ k9 q: |7 ^9 ^/ t! t' i- n
         SuperscriptBox[
    % c5 R# b2 j/ F      RowBox[{"(",
    3 @7 F  k! |8 f* t: |       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    0 J, m  m8 {; X7 {7 M. r    ")"}]}]]], "Output",: b; D$ L1 x3 k$ K, U
    CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
    / N) Q' \2 R. q5 v9 |# J0 F  3.5779607654819613`*^9, 3.578012211515625*^9}]" P' t; u. j- ~
    }, Open  ]],! @6 s0 j* f1 i

    2 ]5 F" N: A8 x5 w5 f6 J* ZCell[CellGroupData[{
    . X/ B  |5 e3 Q: K+ |; g0 l
    0 \' L8 d6 m( J; jCell[BoxData[
    ( h- E( P( z( X8 C+ Q+ R RowBox[{"C4", "=", "Ca"}]], "Input",
    " I4 S. ~# I- f: u" T" x5 c CellChangeTimes->{3.5779207559375*^9}],
    , \1 j" Q  {7 M8 x, I$ n: C/ J' ?/ b1 S. V2 J3 p  ~0 G9 v& ~
    Cell[BoxData[
    # `9 m2 t' D/ Z# [ RowBox[{"{",
    ! `7 T3 Z3 K- ?- d1 T  RowBox[{9 s" A+ Y+ a1 O! x; s* I
      "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
    4 x; v! Y2 g8 N( j. q   "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], 6 s' N- `! a8 ^4 E$ J/ N, ^) `& R
      "}"}]], "Output",! p6 F$ N- s4 _- K6 g7 P
    CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
    # u2 F/ e3 l! h( D" ?  3.5779607861363974`*^9, 3.578012216171875*^9}]8 P7 |4 z9 g0 F6 A; [5 H0 }
    }, Open  ]],
      l$ c9 o- h' _% r6 a! q# z1 Q: _/ N; Z0 m' v0 V. N
    Cell[CellGroupData[{
    . N2 l: a8 o5 `$ I, K" _
    - S5 ~6 E; F5 K1 aCell[BoxData[
    5 g9 U8 f; Z  w RowBox[{"u4", "=",   M: {$ \% L3 }2 C! h9 ~- G9 Z1 m$ R
      RowBox[{
    , o9 C9 }6 ?6 k9 Q5 [   RowBox[{"Exp", "[", ! G% ~4 {+ t% v, {
        RowBox[{
    - t7 ]8 x1 _8 m  O     RowBox[{
    2 k7 H$ A, W5 R: g9 |) m      RowBox[{"-", ! n+ k5 a4 R6 z- H& n# y
           RowBox[{
    ( b( C, s$ Z" {) o; |- ~/ |) `5 v$ y        RowBox[{"(",
    ) p' Y7 q$ {' ?         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
      Y0 w3 j9 e8 `) e9 @        RowBox[{"(",
    : q% K2 |% ]- ]. j% E         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
      y4 Q2 _8 r1 e" F, n# J" V: y5 J/ W     "]"}], "/.", "DeltaX"}]}]], "Input",* W: [4 o$ W: g
    CellChangeTimes->{3.57792076325*^9}],8 D1 J9 F6 d& R" `$ N% w! e$ F
    - B5 b- J2 ~% H# j+ v* C1 U
    Cell[BoxData[: s2 `; B' B5 B, w. C' u1 D
    SuperscriptBox["\[ExponentialE]", 8 W6 i, s% v+ j# o  h
      RowBox[{"3.141592653589793`", " ",
    3 V. h( h3 u( D# o; l   RowBox[{"(",
    ' e! h  _* F: h( \6 [2 h2 k1 L    RowBox[{
    * H3 T1 W  x) C4 T* s% G     RowBox[{"-", 4 q3 k: j6 A4 i) e/ B& R  Q; k
          SuperscriptBox[
    ( b  E; P8 `' F3 @3 T0 @3 s       RowBox[{"(",
    % j8 R, w- v2 X- T( V* J        RowBox[{
    ) D" R  V# y5 b7 R- C& @         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    " {% N8 M! W* r9 i+ c; H     SuperscriptBox[+ b" t4 ~+ `) r7 J2 I! d$ L
          RowBox[{"(",   E& _# N# Q1 b1 k0 t" C0 ]
           RowBox[{
    : X1 k6 n& Z: |! b        RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
    4 i5 a9 g1 C5 I. h) g( H7 E1 ]* A     SuperscriptBox[
    4 ]  j5 U$ e+ W0 l8 x4 ]' |3 l7 t! l      RowBox[{"(", 1 O+ F; K( q4 R$ c! F% K
           RowBox[{
    , S9 K. i6 F1 [3 ?        RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
    * J8 \: b, O! A. S% h0 t8 I     SuperscriptBox[
    2 z; O; k; s$ H      RowBox[{"(",
    : e9 i, q' G- w9 i       RowBox[{
    9 R( ^! I6 J: t) I% f+ f+ F7 I, \" Q        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
    - o' I" G. S6 c, A+ m  S( B     SuperscriptBox[
    8 V4 R/ T0 b+ B      RowBox[{"(", ) I% E* n4 W) L
           RowBox[{
    ! q2 ~8 f, {6 }. `        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    * h" D" A2 }# _# E+ G8 W     SuperscriptBox[
    : x) t, q: @5 U- a      RowBox[{"(",
    & e) A( m" v. W# n       RowBox[{
    ; S) T$ Q$ ^, J2 U8 k, H        RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", 1 K! G- O7 s7 C0 M# O
         SuperscriptBox[! ~, i4 U+ l" F- q/ I( j
          RowBox[{"(",
    , N1 i- N% O: ]! ^; P       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ( y! X! D2 |! G( P) Q, R- Q6 j
         SuperscriptBox[8 E3 }# w* k4 g
          RowBox[{"(", 5 N& n, F8 q& f0 \. v* `2 _3 d
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    . ]2 R! b4 [- H4 ^5 h( i7 d( S3 y" q     SuperscriptBox[
    . m, \1 D  s2 G1 A2 S- O- _0 K      RowBox[{"(",
    ( ~1 I& s! L/ [. ?       RowBox[{  H. Y& J. M. {
            RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], 6 m+ E8 n' U& U# ]3 K  T, y* X
        ")"}]}]]], "Output",' j+ z' w- a: E0 i# Z% I# S
    CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,
    , \5 U. @/ q6 ]7 {$ Q/ x  3.5779607873531995`*^9, 3.5780122169375*^9}]0 U/ z( c/ F! f* W1 ^! C7 {# X
    }, Open  ]],
    . Y$ h) G# B# g0 R! N7 Q& Q  g+ w5 q4 O, D6 `6 s8 Y- ?* E
    Cell[CellGroupData[{* \8 @: l0 t5 I! a5 ?% ]
    3 r2 s" P( `% X% n
    Cell[BoxData[( V- R$ n* K' v( {) \( [0 q+ [2 j
    RowBox[{"C5", "=", "Ca"}]], "Input"," b& ?9 J- s) d$ N3 Y7 ~3 V
    CellChangeTimes->{3.577920860671875*^9}],
    . g$ D' U* z( w7 g6 d! r) R+ J. c' O- k& v0 ]
    Cell[BoxData[6 Z, e+ X) x5 A3 I* M4 ~
    RowBox[{"{",
    2 _/ a- X9 D  C2 p+ Q# }  RowBox[{$ _) ]( n0 R/ O& z% Z+ `5 r: j7 G
      "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
    7 X* N+ K: T/ y" w4 n1 G   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],   ^3 ]9 d( j: b! Z  }
      "}"}]], "Output",
    & N; i$ B0 V. p3 `4 d, n CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9, 8 Z3 J4 I( d& m* A' t# @
      3.5779608137328453`*^9, 3.5780122209375*^9}]
    & Y+ x- O. \/ F2 c9 `& {}, Open  ]],
    , I4 @7 ]8 Q& W7 |" q
    ( {6 j3 O3 C! Q9 q, ACell[CellGroupData[{
    0 b/ r! M+ {( ]: y; \6 a' R+ b
    Cell[BoxData[% J% T0 O! o# Z" X9 X8 d; y: C9 f' ~
    RowBox[{"u5", "=",
    0 h' ], u  b9 v  C2 I  RowBox[{
    6 g  Y) |3 t# ?5 D& \  }4 t   RowBox[{"Exp", "[",
    : ^; N, y- c$ J    RowBox[{
    7 l7 j" c4 {3 \( B     RowBox[{& P* _( y8 Y+ a! K5 K: R: d) T5 Y
          RowBox[{"-",
    : b' h7 \2 b$ ~. S  R9 \& M* v       RowBox[{& D& h1 j" c; e! F; _
            RowBox[{"(",
    - u8 s/ ?! Q' U" G& }& ~# T         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    , ]" w! i5 q" I+ x0 d  w9 ?        RowBox[{"(", 6 T, L, c6 J( ^: y; u
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],2 X0 {0 E  }" y3 q# S1 ^/ o
         "]"}], "/.", "DeltaX"}]}]], "Input",+ E" n) R: C; Z! C0 x2 n4 k' x! W
    CellChangeTimes->{3.577920869375*^9}],
    $ ]+ Z, D& A8 D
    + B9 \4 Q" k3 r7 \6 l/ A# bCell[BoxData[% J$ ^3 G  H: H. J) Q' f  ?$ ^( I! ?
    SuperscriptBox["\[ExponentialE]", $ B3 ^! t% c1 P, U
      RowBox[{"3.141592653589793`", " ", + ?. V% V  M" H; }1 S' z
       RowBox[{"(", 8 l* V4 h9 x* W
        RowBox[{
    6 Y9 [( ?; x6 A2 W: n     RowBox[{"-",
    6 n& K, R- A* E5 q      SuperscriptBox[
    3 ?, n, E$ A7 M% w       RowBox[{"(",
    + l7 {3 S1 {4 v0 v        RowBox[{
    / U  H9 [3 Y& R" V         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", # x/ s  L: ^, f& c+ m& T( S) ~( L
         SuperscriptBox[
    * b& l7 [7 a7 m      RowBox[{"(",
    ; g% u6 K; `3 ?$ ?/ n( q+ l       RowBox[{* g- T0 o- |" A/ E
            RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",   f" _+ h6 b/ F1 c
         SuperscriptBox[
    ! d7 a4 @/ y2 W2 b) A. ]' q      RowBox[{"(",
    2 Q7 q6 l0 D3 r       RowBox[{
    $ e! D. L/ h- {) q% x4 f' z        RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", 5 j- Q% d$ C+ M
         SuperscriptBox[- p3 t* E, ]4 q, a+ e
          RowBox[{"(", 3 ]1 Q/ w" a# |; B' ~) `/ R4 H: e
           RowBox[{
    ; s  X* W; x2 c2 t0 ?: j6 m) o% v# Y        RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
    " y: K. k1 V& A( }; b+ X2 P5 k9 L6 [     SuperscriptBox[
    " Y% O8 r% A  H/ ?      RowBox[{"(",   D+ `/ x/ E  V/ u$ V
           RowBox[{
    " ?0 v/ }) O! ?% P8 {2 P; R: h        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", ; ~+ i: `% X) V  j
         SuperscriptBox[
    % B" B; n9 L# B      RowBox[{"(",
    / b/ b7 O- L: F       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    & k2 ^1 _1 F8 a5 g) U) v     SuperscriptBox[
    4 _6 x! R3 h3 ^) K0 F' [  p/ j      RowBox[{"(", 3 R7 A% a" e; ~8 ^
           RowBox[{5 R6 ~9 z& }3 ?; m7 c9 U/ H, L
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    3 ~/ T) W0 V) H4 ]4 l1 y     SuperscriptBox[& Z, Q  n% i6 g6 W0 M0 f# |
          RowBox[{"(",
    : }0 k7 _3 j4 m& t6 d       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ' m$ S1 H# v8 G6 G' V3 r  |/ ?5 H     SuperscriptBox[
    # Z+ p5 W. I, l- e4 `      RowBox[{"(", - p. r7 m' h! r
           RowBox[{
    9 b: k, E" {4 I% _) `* v& i2 A3 Y1 Z        RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
    ) x! ^- W% w! e$ h1 ~2 o    ")"}]}]]], "Output",2 ~5 i% V" P9 g0 N0 \* a2 d
    CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
    ; r& }: A1 A5 F+ `: U. S& Z  3.577960815043248*^9, 3.578012221953125*^9}]: D4 r0 q6 |: ?& I% K' {4 |
    }, Open  ]],3 k7 h' k8 ]# b7 I) P% |
    * P4 J- {+ g  g+ p$ G* g
    Cell[CellGroupData[{" C, S: u5 U5 J' W

    # ?* A7 \$ T* ], s9 Y- g( CCell[BoxData[  _' s& V; m6 M. J' x) C
    RowBox[{"C6", "=", "Ca"}]], "Input",! p. ?+ ^% `! z: b2 {- a  s
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],0 o' h8 ]$ m4 J/ u0 K$ P. y! E/ |
    1 V5 b4 d! E; b0 C% c2 m
    Cell[BoxData[
    2 j9 n5 X5 i; ` RowBox[{"{", - I' a! d& v5 D( p
      RowBox[{7 t9 e2 C4 U* W9 O
      "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",", 0 I; e3 k4 P  J! t4 E$ z% O& {
       "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",", & p) E! Y' u! k* U) }# |8 j
       "0.494866`"}], "}"}]], "Output",, v- s) n( E5 B* h
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,
    * k! p6 \2 Z1 e7 d! x, Z1 @% d4 p   3.5779608373044868`*^9, 3.578012227359375*^9}]+ B/ |9 A* i0 c
    }, Open  ]],; N9 t2 o, B" x- m, j+ t
    2 B6 Z. `0 W6 c# o" `, Q" X
    Cell[CellGroupData[{
    , S, K* ]! r6 W% H. A
    : }$ k8 S" j( s- j; i1 g' i9 ~Cell[BoxData[* f7 F$ O( U( a0 N% v- d
    RowBox[{"u6", "=",
    . Q! s7 _1 I! ~8 n  m3 h  E1 N0 Q9 ?  RowBox[{
    ; Q+ O" _* x% U) V) l   RowBox[{"Exp", "[",
    3 Z1 n8 c  v2 A/ x    RowBox[{
    1 B' e9 y4 ]$ ^  M' C( D     RowBox[{* J! M, }$ y0 F3 W- `. U* j/ G
          RowBox[{"-", " p' w4 L! M- \+ L8 V( m2 @
           RowBox[{, L! ?/ i" z9 N) N, O0 z+ f+ w3 D
            RowBox[{"(", , z, [! A% v6 ]0 e% \
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    % Y( k7 E. G& S9 K2 k9 R/ D        RowBox[{"(",
    ( i- {' r3 D8 D9 P, |5 q         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],  ~6 E# ?/ N' ]' K2 U
         "]"}], "/.", "DeltaX"}]}]], "Input",  d0 d' [# f3 _+ J- t& Y* g% ]
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],
    " X, @+ r; G: |6 W
    + d8 ]( S1 I$ @) h" |3 b* |Cell[BoxData[
    : S7 b& w! J& r  W# u9 e( U SuperscriptBox["\[ExponentialE]", ' A; S5 g) b$ h8 R, o# Q& |
      RowBox[{"3.141592653589793`", " ",   @. _" m1 P0 T& w- g+ R
       RowBox[{"(",
    7 x' j+ }( n$ J8 u9 L5 a6 ^( F, C    RowBox[{
    * w( {% |6 x1 n/ x9 T" u3 d/ ?     RowBox[{"-",
    $ D' A; l: d7 x9 S      SuperscriptBox[
    ( e6 O" P* B6 v3 `; J9 `6 H       RowBox[{"(", 5 z5 `7 E3 B" l( D0 \
            RowBox[{  E; x% y% L5 R. R1 |( k1 B
             RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
    & T2 X) a; {9 i6 q# L! c) H     SuperscriptBox[
    ( B: x" p; ~8 @* g; X: `+ S      RowBox[{"(", % }5 ^# W0 B0 _* ~6 [$ v2 A/ E+ d
           RowBox[{
    ; l3 K) A' i+ c6 z# o- R+ S/ W        RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
    + x# V+ N; ^" M     SuperscriptBox[6 J$ Q7 n' n- u; c2 t
          RowBox[{"(", + b8 B$ s% O7 Q& p' R  q
           RowBox[{
    + N/ ]0 D7 F" {* U8 B        RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
    2 o% B0 _( C& H8 d: b9 L     SuperscriptBox[" ^* C% ]3 U7 v# M" T. v5 ^
          RowBox[{"(",
    9 k6 p5 J, k3 p% E5 \6 U" g* d1 o       RowBox[{
    5 s: u$ f* ~) a& {: C. n1 z        RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
    + K4 R. `, z7 m/ P     SuperscriptBox[
    # i- S7 c' b9 O$ G1 o* X/ b      RowBox[{"(", 2 u1 d% S  I* D0 m
           RowBox[{
    . m9 a' s6 N9 l# k- w) N        RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
    . Y# v0 H7 y+ i  b! r     SuperscriptBox[
    1 a( E! A3 X* u, s, b      RowBox[{"(",
    + X% u5 K) @7 L4 E/ D  C" N       RowBox[{
    - a6 ?; n5 `( i; q        RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", 8 a, C) a* D: ~
         SuperscriptBox[
    ! ~) v( A# Y+ l4 [' ]      RowBox[{"(",
    : N! `/ i6 T/ k! Z, d       RowBox[{
    7 O. `# a8 }) s+ x* e$ Y- P" i        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
    7 M9 E! h$ T6 W+ e     SuperscriptBox[
      W) Z& B- n7 V* X; Y/ d      RowBox[{"(",
    ' l$ f% T9 v7 c& Z. l       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    7 r' `/ ]. s/ D3 k* Q2 P% D     SuperscriptBox[0 X/ v; Y1 h* Z. ^. a
          RowBox[{"(",
    % q1 F6 ]/ I/ E6 C7 T       RowBox[{) {3 w' B( o; T) Q
            RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}],
    ! b1 w4 ~* ?6 Z, ^7 V' R$ @7 h    ")"}]}]]], "Output",8 B/ C/ p! g, N* J) `
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, % z5 r8 J* V% _- t2 f) C6 A4 m
      3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]1 ^' h1 X* u" N
    }, Open  ]],+ d: A6 p' m8 Z: [+ n

    & o4 x, L8 R$ eCell[CellGroupData[{; h* r1 \3 D, G( l0 V: H+ S4 f+ _( }

    / i& f: F. n1 UCell[BoxData[
    % w" E# e* z  Y5 B6 Y. r' x* z8 ] RowBox[{"C7", "=", "Ca"}]], "Input",
    $ G' ^# a9 J/ V6 V CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    ' I/ y: C" _2 u9 o  h, F1 j3 R  3.577921316125*^9}],( a% }% H; D. M/ K
    ' t# x' q& s" C5 i9 c+ l1 O
    Cell[BoxData[% x: F) d. |1 c. h0 n1 N
    RowBox[{"{",
    5 |2 X- g# y7 W9 D  RowBox[{
    ; \: P1 d1 b7 L0 e& g. {  "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",", . Z. U8 e9 v" I) I& N
       "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}], 1 [3 s4 Q/ o3 T4 u4 x8 B
      "}"}]], "Output",
    ( |3 Y$ T6 z4 ^  S2 ^4 B CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    ; X$ z# K: U4 f" P% N  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]! V1 z/ _, v5 P/ T4 v( q$ O
    }, Open  ]],
    3 E& l5 g9 H2 J& r+ _- n
    % D  Z# [4 f" H2 KCell[CellGroupData[{
    $ M, @* O' [" y) a9 J- L) h& i
    0 x0 z7 U' d/ {& R. t" l. ACell[BoxData[
    7 ]9 l1 E8 N, Z( ` RowBox[{"u7", "=",
      Q6 F$ m, j1 Z. @* i% A% F9 V  RowBox[{
    / U* `( G6 t- o9 Z* B   RowBox[{"Exp", "[",
    ! y! _; a/ g: A) d- {    RowBox[{
    # B0 D5 N2 b3 Y/ C     RowBox[{% {8 Z% ]& c" ?4 D$ T9 S7 W- x
          RowBox[{"-", 5 m, S4 L% e) N3 v6 q  r5 ?
           RowBox[{# }+ ~; m  M) I. Y  s6 r5 ?
            RowBox[{"(",
    : E" P) m! E8 ]         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    " m+ F  O( V! a- V; d1 w        RowBox[{"(",   N. j& W/ h/ \2 m+ w5 M0 `
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ! M% {2 F. m. o5 f! `     "]"}], "/.", "DeltaX"}]}]], "Input",
    ; T8 w5 V3 z2 a& t1 m3 i) f: l) B CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,   v3 _- |3 B! k0 X% D
      3.57792132028125*^9}],
      K& d( R  T' }+ W5 q+ F8 n
    & Y; g4 y$ d0 D  K# k) kCell[BoxData[6 h% b+ f$ k( l+ F2 U5 E& i
    SuperscriptBox["\[ExponentialE]",
    4 k( s1 {: @" S4 s1 o% u  RowBox[{"3.141592653589793`", " ",
    4 @' h. L9 f; G% b   RowBox[{"(",
    ( {8 D9 l4 o. C4 c) `% F' p) Y    RowBox[{
    . j5 T  [/ A0 Q     RowBox[{"-", ; P# I8 M) ^: I9 {
          SuperscriptBox[
    $ b" V1 ?; V0 z! [% J       RowBox[{"(",
    % Y# J1 z# Z7 L) z* w3 `2 r& M        RowBox[{
    . E+ d7 T3 I" q4 A) _' L9 [4 O         RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
    / d! G5 t: L! q3 t( ]2 z& z     SuperscriptBox[' a3 {1 I# p7 b: V5 n, h
          RowBox[{"(", 0 `& x0 Q0 [6 H( w% d: T* ^
           RowBox[{
    5 V+ H, ^, l" g6 J, _        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", ! J2 G1 Y( @4 _; j% V, |
         SuperscriptBox[
    $ `9 p* I) D. [* c/ ^      RowBox[{"(",
    ( W5 k5 u% m2 T0 n2 c' C       RowBox[{8 Q  ~4 p3 N. |$ Y" Q
            RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", # d+ L' Z# Z8 h4 D. y0 x0 _; T
         SuperscriptBox[( b2 Q; ]5 h. B. v
          RowBox[{"(", + q8 ?* K& F0 C. p, f8 ]8 S6 {
           RowBox[{1 C% a6 Q& f9 J. h
            RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", - }, ?" y2 B- _+ T, u* U9 J
         SuperscriptBox[8 V; V# k% t: m5 Q# X
          RowBox[{"(",
    4 {9 p: Z+ N0 ^# R       RowBox[{3 _) D# I0 s- h% {* I' y
            RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-", & o* P; r1 Y, S! M1 b3 Z
         SuperscriptBox[8 N& o( u9 c. s% v7 G9 K0 B
          RowBox[{"(",
    4 a$ E. J- F6 h       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", # o: P' n* H* W+ w1 M4 M
         SuperscriptBox[
    , u& q% P, ~: I: p! [" z' Y      RowBox[{"(", + L9 }, d2 p  B1 L  C& R% w/ a) |( C- D
           RowBox[{
    ! B+ e6 w, R: o: p        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    + X3 i& R5 ~' E& E5 C     SuperscriptBox[8 q0 F! X1 \0 K* G
          RowBox[{"(", 5 n8 Q6 n' p/ ~8 P2 ?
           RowBox[{
    % h# @) s3 @7 R0 v. v. \        RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
    6 [* C2 _& v' s' T" o4 M# `/ i' B     SuperscriptBox[) K( H+ w6 |% _3 \4 v! M7 v' u# _
          RowBox[{"(",
    5 i* r& L1 I, S3 d! a9 s       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ! O. o$ }/ |0 C& d9 M
        ")"}]}]]], "Output",
    ) h: C' F0 h- n) @% U* ^, l9 ` CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    % p5 n! I+ D7 U' W8 o  3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9,
    ( `5 z. V" q4 g( }; j1 i  3.578012251359375*^9}]" d% D. n" u0 ]
    }, Open  ]],2 Q9 A2 D9 ]5 [9 }3 u# k
    4 H! A5 n/ f, h2 f: j2 ^6 p. `- n
    Cell[CellGroupData[{
    8 Q2 a' _8 G7 \7 ^. f* j4 a
    . T9 ?) u# ]/ W2 t3 H8 T3 y9 u& i- fCell[BoxData[9 P/ A, n) h1 T( _* l
    RowBox[{"C8", "=", "Ca"}]], "Input",
    - W  a" u, q6 ^) j. J/ |1 K CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, ) J8 }- U0 q8 b, m, M4 M' a. Y- T
      3.577921316125*^9, 3.57792141421875*^9}],
    , ?9 s3 a/ K5 ^  y0 v
    4 n) ^* I" p- m) v0 uCell[BoxData[
    " ^: u% @. O$ @$ M RowBox[{"{", : [8 \3 _  t- K+ g/ Y8 y$ K, M1 V
      RowBox[{
    9 V' m( ?5 M$ ?  "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
    : L" b$ x/ o3 g; N   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}], ) I) V. I% m; k  M* a2 ]: d! J
      "}"}]], "Output",/ S8 \  P7 o6 P! [4 P$ m  m6 V
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, # v1 M& y" Z, F$ ?
      3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9, 5 f' v; i' u) X. S# K
      3.578012260515625*^9}]: O& x6 ?# k% A- C0 Z0 r4 Q% \
    }, Open  ]]," z. d  S0 b' H$ N: M1 W, M( Y

    3 G3 _6 Y# O" g4 p8 g  ICell[CellGroupData[{0 O$ h1 h7 P7 e" \

    " x  p8 o% a" i8 R1 V* OCell[BoxData[
    # N8 ^9 }; u- D RowBox[{"u8", "=",
    8 R. q) j6 g) Y) C" m$ ]! ^  RowBox[{
    8 {6 R' g' R/ X& s0 Z1 G   RowBox[{"Exp", "[",
      ?5 D9 L) j7 J4 V3 }- ]5 f3 w) t+ i    RowBox[{% ~1 _4 i" M, c. n" k9 @8 X
         RowBox[{# X# Q; H# @& b0 v) c) F: S/ H
          RowBox[{"-", * g4 C7 v/ C# e
           RowBox[{
    / p& G  J* Q  t5 Z0 S! e        RowBox[{"(",
      L& W$ j7 r% U7 _! k  u( h         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 2 V1 N+ ~: n& s: W% N
            RowBox[{"(",
    % t& Y( f* T; V' {0 ]         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],0 S- W) i4 J# P6 q! Z5 A
         "]"}], "/.", "DeltaX"}]}]], "Input",
    * s! V* M2 v7 R CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, ; B2 l; X# O( }& U( C, ~4 U: O
      3.57792132028125*^9, 3.577921416921875*^9}],6 V: b# N7 N4 a6 {' T. w5 N

    6 j. w) H# e1 ?+ M; rCell[BoxData[
    : g( I( e- X4 U# w4 M SuperscriptBox["\[ExponentialE]", , e4 n# b$ J- [+ C+ A
      RowBox[{"3.141592653589793`", " ", . I* k0 Z5 k- C+ U4 {' {3 ~% u
       RowBox[{"(",
    $ j* b6 ?. \. F    RowBox[{! q# q/ X0 j5 {- W" |9 ^
         RowBox[{"-", + l, ]* J2 j5 K0 S9 W
          SuperscriptBox[/ r) @* R. W  V6 K) x
           RowBox[{"(",
    & k+ d( f, c" w% p        RowBox[{
    , ?; U# Y% }6 g: }2 A2 H         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
    / U0 i1 \; _+ t' D: {9 C     SuperscriptBox[  k: G% U2 B& C. P' \+ }3 j9 o
          RowBox[{"(", 9 y/ R* y  d! N5 D* e8 C# y8 z1 m
           RowBox[{4 M0 v% l* h: Z- b5 p1 _
            RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
    ) c$ w6 A0 {* ]0 U$ n1 E- C     SuperscriptBox[
    3 R4 R  I% g" z5 C' k3 x8 s- M" A      RowBox[{"(",
    % X/ ]- e9 f6 z1 s% O/ b       RowBox[{. U- G6 z6 ]' |# M% v
            RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", ( @( p5 H- K- u+ D$ A
         SuperscriptBox[
    ) o2 c1 f* f- Z. u0 \* j* h3 z      RowBox[{"(",
      \/ W, v' r( O' |7 Q/ @       RowBox[{& T1 P1 v, B" ~% e4 R" G' L
            RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-", " s% y0 d; q' e! u. o
         SuperscriptBox[  S8 l, L4 S! l6 R
          RowBox[{"(", $ f" p% L3 A! u7 k% I3 e
           RowBox[{& v7 g$ ~% K4 Q
            RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
    ; n' @8 K+ H. |9 {7 x8 o     SuperscriptBox[6 x  d7 y) i9 {4 F0 Z% I
          RowBox[{"(",
    * c2 b) {- j/ v( D       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    . A: G# [8 M! \9 A' Q0 h. Y$ D& T0 }7 q2 Q     SuperscriptBox[
    , ~% t) E6 t! R+ u      RowBox[{"(", + k+ B0 T4 L5 Q
           RowBox[{
    + w* X  o9 u( s" W2 \        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
    ; ~8 R% y+ g. g5 j     SuperscriptBox[3 n: J+ m/ g9 o; a! _  p
          RowBox[{"(", , u4 ]- @- C! w( O- h& `- D- }
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ! V8 a9 y' K; C; d0 J+ @& p
         SuperscriptBox[
      e4 O2 ~4 D1 }      RowBox[{"(", % v5 A" p3 i( `" O6 Y
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    1 }  P7 ?4 Z2 `: U2 R    ")"}]}]]], "Output",
    # [8 e# h8 {8 Q' y5 | CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, + L! i% q: B: {  p: Q4 q
      3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9, 1 {& e& I9 g3 G! o
      3.5779608945565863`*^9, 3.57801226165625*^9}]
    # ~$ P) V9 d& y, }, R$ ]1 z}, Open  ]],
    . C  M. V0 _: T8 b3 P! m9 {3 @# |3 p2 M8 J
    Cell[CellGroupData[{4 ^! j8 I9 F6 q9 n! U$ D
    ) v, {- |/ G" ~2 |
    Cell[BoxData[
    * d6 W+ X" k# I. `5 m' I! n9 c RowBox[{"C9", "=", "Ca"}]], "Input",
    ( c6 [$ x4 B+ G+ u6 h CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, - m/ o$ b3 b! z) t" L
      3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],7 ^8 |+ ^8 y' H( {) y

    ) W8 G: y0 T, P! w' RCell[BoxData[
    ) n  K" V. V. O/ ^( b- k* B RowBox[{"{", 4 A7 i7 Q% A: _3 y+ G
      RowBox[{
    6 \8 f+ f2 K' r7 X: q, P/ W; u  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
    6 p# {/ `' l$ |3 L7 X0 J   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}], 0 s6 _* u& E1 ]. C9 C; h
      "}"}]], "Output",
    3 @& B- P! U% O CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, 3 f) G9 u) ]1 Y& [& X4 e. H; K% K3 b
      3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9,
    ( |+ ]9 ]8 B) q, v4 m, g* Y  3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9,
    1 n5 \5 V) e9 X- R% a( l- E  3.578012268234375*^9}]/ ^  R( u, ~; c  i$ s9 s! J( _
    }, Open  ]],
    * w5 ^- X5 n( M- {& B7 C; `. x( k5 r7 [( G* V, K4 e3 M* f& T
    Cell[CellGroupData[{; b+ r: \3 U' R% B6 `

    6 W  I: ^# j. o  X: E) {* _& h/ ]0 NCell[BoxData[
    4 G7 y$ @1 p' |8 N0 H. N RowBox[{"u9", "=", , s2 j  B& h% D0 O- ~. {0 f" \
      RowBox[{
    + g- v% c4 G; `0 M6 U0 e/ Y8 h   RowBox[{"Exp", "[",
    9 F0 O- H* ^6 j( Y" [( A: F/ p1 N! [# l    RowBox[{) d0 e% w; i- _% a
         RowBox[{
    , R4 H9 i  n! d1 e: g) `# R      RowBox[{"-", / \( E: L* e$ {" \! j
           RowBox[{: v0 J, O* T2 \
            RowBox[{"(", # O8 s" O3 @  U* p1 q/ O4 |. G
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    8 [3 O5 h, w5 X; e: D        RowBox[{"(",
    $ u, k7 z6 p  R         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],( M4 y; x& W4 M/ Q$ y  E: m
         "]"}], "/.", "DeltaX"}]}]], "Input",
    8 D+ a6 e1 X; j3 M' y4 S6 J+ M CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, , D" v0 m! k7 b1 G
      3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],$ R: A  r! _3 V

    ; I# ^8 h' `5 LCell[BoxData[# k! H8 a% C0 I$ I7 Q) [
    SuperscriptBox["\[ExponentialE]",
    : X* Y, j: B4 b. q5 x! n  RowBox[{"3.141592653589793`", " ",
    $ l9 p( g. k3 x' H   RowBox[{"(", ) r, e. j) v  J' J. I! f
        RowBox[{, Z* S( M7 |0 e# q  t# s1 V. B
         RowBox[{"-",
    9 J+ N) s  f* R: }: a+ F2 {4 `. R" F      SuperscriptBox[
    5 R: ]6 b5 o( z: V9 q2 |% H       RowBox[{"(", & U3 q1 M! r( N, i( W7 o
            RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
    ) U) A* V$ K: L! N( C2 k2 b: k7 E4 |     SuperscriptBox[: H1 U8 }) S% U/ f2 e
          RowBox[{"(",
      I* Y1 p" a0 t% ?       RowBox[{
    # Y8 \: X+ Z( J: R3 A        RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", " m2 l* V9 C: Y* {4 j: h
         SuperscriptBox[/ [  `! V% q5 u; |6 ]
          RowBox[{"(", 1 o# _% M$ |1 P: V" y
           RowBox[{; m& b+ P- g( ?. g) f
            RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    " V" k- L( h# C, ~) y. ?# F) g! C# e     SuperscriptBox[' m+ r9 y$ [, t5 e9 T/ |$ b
          RowBox[{"(", , d! v$ {4 X6 m' v$ {8 p7 v
           RowBox[{
    $ f; Q3 s) L" M7 |( s( ?5 V8 v        RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
    % W) r9 ~5 v* A8 q9 d* b8 s     SuperscriptBox[
    - D" J9 a& T/ K      RowBox[{"(", - k. J8 c3 Q+ Q: s7 k
           RowBox[{
    " Y" z( A5 X/ w7 F; K7 P        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", . C+ N& }7 p2 U! u; U1 e4 n5 D9 y3 E
         SuperscriptBox[
    0 Y  R6 }4 L" n      RowBox[{"(",
    # a0 G7 w) v4 f4 `4 ^3 A0 p       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    6 i  y8 F; y1 r$ j# v     SuperscriptBox[3 c7 s& z. P, F. |! t
          RowBox[{"(",
    ( o. s9 h5 I4 Q- Z, |0 ~( a       RowBox[{. u3 [$ p9 ]: m, p' Q& {; E
            RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", 3 d) X8 o  ]8 N, e4 S5 b* j
         SuperscriptBox[
    - g' _7 a8 k* G- [      RowBox[{"(", & l7 W3 b9 ?! Q
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ! M$ [+ n9 Y- j     SuperscriptBox[4 ]% I( S5 n5 u* x, [% [& k9 D: B
          RowBox[{"(", 7 I3 |8 b% ?, g
           RowBox[{! e2 {( P' d; K* A8 h
            RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
    6 d, q% l0 G. k6 V" i0 A, V* z5 R$ s    ")"}]}]]], "Output",) i; G! a3 M% y+ {% p) C
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, $ q" p9 V7 C3 _) Z
      3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
    5 o2 W  O6 N2 U: I! }  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9,
    / `3 X0 N4 t) _# @  v, Y! c  3.577961530421959*^9, 3.578012269125*^9}]
    2 P" R! A( r5 o2 l}, Open  ]],- n1 l; ~7 U# \/ `  u# [

    2 v2 k1 e) T! O, B: d3 d  q8 e  lCell[CellGroupData[{( S% d9 h9 `: q1 V, m8 i
    6 b0 E: j+ @% R
    Cell[BoxData[{9 u2 H- u- g- z- _; |4 a1 e0 `
    RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]", 7 C* G: G, S4 c$ c
    RowBox[{"u10", "=",
    . O8 ?7 E' B% f9 J5 \* z2 e  e; N  RowBox[{
    , M( ~+ j5 @* t$ P+ L   RowBox[{"Exp", "[", ) B" I* k! D" T/ P9 X
        RowBox[{# f) D$ N+ T6 L, ~  E
         RowBox[{8 v, o. E7 m3 x! C6 ?9 S& a
          RowBox[{"-",
    ' o* Q+ G! {) E       RowBox[{
    # P. O# Z# E- j9 m5 y0 y3 i7 `        RowBox[{"(", # b+ S; d% j( h* `) o0 m( H# M& r$ R
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ) R+ y2 N# a; n; C        RowBox[{"(", 0 m2 i" W4 k& u- j+ c
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],9 q7 `6 r. o" G" q2 S1 s' y
         "]"}], "/.", "DeltaX"}]}]}], "Input",7 `5 S4 l: t) @0 V) D
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],3 O& H9 [8 h$ {; [" N

    + U# W; L1 g! ~- ?+ A, Y- {Cell[BoxData[6 W9 E: n+ [: N, k! ~
    RowBox[{"{",
    6 \! M. g7 B7 I7 f! \  RowBox[{: M3 `# e' y: F' ?7 g7 i/ Z
      "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
    ' W( f! C) l) j! \$ J' G9 {   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",  ]! \; J$ Q# \2 M- j0 i8 X1 |
    CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],$ A- o" T7 A" q2 L

    . V' A) h1 k0 g+ D% R5 L0 R  A9 i4 nCell[BoxData[
    * d$ t2 J4 `) r SuperscriptBox["\[ExponentialE]",
    0 {1 \  ~1 X6 w/ A  RowBox[{"3.141592653589793`", " ",
    * ]: D6 ]; r. T8 d; k3 h1 E   RowBox[{"(",
    & H& a/ L) V9 _% k: V    RowBox[{
    2 o& T4 |1 H; L- V+ X) _! X     RowBox[{"-",
    : V# u0 b3 i, l" F3 C; o      SuperscriptBox[4 K# @$ w0 }: I, R7 K
           RowBox[{"(",
    - u* `$ K" K- o% t: @+ i. Q        RowBox[{! _- l* G2 j5 q8 t) q* _
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 6 t; w. ?  ~0 N3 }: P
         SuperscriptBox[
    0 `" N$ ?$ o/ j1 @4 M# T$ N/ z      RowBox[{"(", # Z6 s5 y3 @' |$ H- i
           RowBox[{
    ' W. [; I( [2 n) `        RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
    4 [" T, R) d. @     SuperscriptBox[
    : r6 k4 f: M1 M8 n/ v; ^  H7 F5 }      RowBox[{"(", , T- b2 T) l4 C7 d
           RowBox[{
    ! X% z3 e, f" M        RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
    4 t7 ^  V- g  z! X' U6 h4 L& ]     SuperscriptBox[# z$ r" g2 q+ Y2 m9 q( i8 u
          RowBox[{"(", # ^+ t; i4 F9 A# @' B
           RowBox[{7 j; T; D" J7 ]5 B# U) I* k3 _0 k
            RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
    & F: d; V3 L" R- a     SuperscriptBox[
    / n. b  f  i( V7 n' \- y9 l* N( _. c      RowBox[{"(", + t4 a. b+ y4 C3 f3 `) M8 i0 |$ O
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
    # R5 z9 l4 ~" ^" l     SuperscriptBox[! m" J7 n3 n# D' b; ?$ Z+ p
          RowBox[{"(", 9 ?% [5 y" F7 g. [  V
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ! U: m6 A  Q5 K" B     SuperscriptBox[
    ) j0 x& j2 {2 V; ?      RowBox[{"(", , o- k: _( r- L% U% O* E
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 6 m9 f6 H) {& ~, |9 x! t% \1 G1 [
         SuperscriptBox[& v4 ^% I4 U& V" ~- o; z5 n& d
          RowBox[{"(", ; W# a* w. s; \' x& ^4 I. M
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 7 s. K5 S' j3 ?" c! q: `" ^
         SuperscriptBox[
    % J' p& B  V5 k      RowBox[{"(",
    ( c. B$ P" y# o3 S       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], - W4 o: o! o; H% G
        ")"}]}]]], "Output",: P* `9 u9 b) d4 ^# b9 d4 y
    CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]  ~& {9 d: E! l/ ~
    }, Open  ]],
    ; r* m% Z& G, ~
    . d0 J6 A* B: s5 B1 U$ XCell[CellGroupData[{
    8 W  ~+ b. V6 R' L5 q7 d
      Q% }. ]$ T- }: M2 T$ dCell[BoxData[{
    % z, X; j, h8 k  V# _( E RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]", ' r8 s7 j) @# `( y
    RowBox[{"u11", "=", 9 R- O+ W* ?( j: F
      RowBox[{# f. Z! Q! n) M$ d
       RowBox[{"Exp", "[",
    ( e( D' [5 A2 ~    RowBox[{/ o# N/ @$ ^# u
         RowBox[{
    ; U) x8 P, ?2 O4 S1 ]+ c      RowBox[{"-",
    + O0 |4 Z7 u# ~& t- m9 Y! n       RowBox[{, d; U& `) J- K8 d
            RowBox[{"(", , Q! S; T2 X3 t( g: ]/ h% T; Y
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    , Z) P& G) F/ C9 D9 z  y" ?        RowBox[{"(",
    * O% A0 i" Z  L0 y, x; E4 c         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    : W% E, ^6 B+ Z: _. \! H     "]"}], "/.", "DeltaX"}]}]}], "Input",# w3 J6 R9 N7 y7 c! I
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    8 T0 d( \1 z6 N7 s9 j8 F3 `  3.57796154237158*^9, 3.5779615434011817`*^9}}],) F/ Z2 o2 g" k; C3 ?$ j

      L! F2 ]1 A$ O) }Cell[BoxData[
    ' J, }. X2 B6 D" }. [. h RowBox[{"{",
    6 [7 \# l$ y* u2 g+ Z4 _* k  RowBox[{
    5 B) J; E& [- n* o  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",", 3 |7 T* z* G% \5 U# U- S
       "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 1 x8 F  w) K6 ]0 H% \
      "}"}]], "Output",
    8 d( e' b- P9 e CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    ! {0 M; Z" _; C. p  3.57801228203125*^9}],
    5 C+ C; p4 c* Z: ^+ d8 q. E
    . D* f5 S! ~# R! v" M8 S& [+ vCell[BoxData[
    . E; v& f" \' U& a! u  ~' p SuperscriptBox["\[ExponentialE]", ! X  w" Q' m, i
      RowBox[{"3.141592653589793`", " ",
    ( n3 [0 O* j, `   RowBox[{"(",
    8 q8 Q: c: ~4 K' G" y7 [    RowBox[{
    9 M5 }' h6 A' p: k1 A' O% F% C     RowBox[{"-",
    ! e* e+ ?# f& `$ Z, h! y      SuperscriptBox[7 J; p3 ^- P/ v
           RowBox[{"(",
    . E/ e) s! G" f" R        RowBox[{7 i; F) M& r$ p" N4 C  {
             RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", 2 k# X9 ~( [  ]3 l8 g$ x9 \
         SuperscriptBox[1 M/ s- w; C  w: v6 H
          RowBox[{"(", 7 \) V9 i- o0 l/ H3 a) v
           RowBox[{, F& X8 Y3 H* c! Y3 G- }, ?
            RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", * C, ~1 v5 \" d: A9 V$ t0 c8 X
         SuperscriptBox[
    + u9 W3 _) }: b: F      RowBox[{"(",
    ; i# `( Z8 y9 A4 f3 ^! j       RowBox[{. J. O2 S5 E# F2 m: [
            RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", 2 D5 n% V9 Y9 I  H5 p8 T5 y& R/ f
         SuperscriptBox[3 g: [# [0 q* f7 x! k
          RowBox[{"(",
    & N" @3 |* r) u1 S: e0 S       RowBox[{1 k1 A: [, y1 [$ z& ]; G
            RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", $ h/ y+ E7 t: @- ~$ p8 K) v% D
         SuperscriptBox[
    " u2 x0 h1 Z8 c# ~2 {' A: \: g      RowBox[{"(", & N# I! O% k9 \/ Z1 `, M& x: v- A
           RowBox[{8 f7 F7 d& C! c' x4 o. ], Z
            RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
    , I5 a- _% }! M; f8 }8 x6 a     SuperscriptBox[
    6 w6 \+ u( e% U( M      RowBox[{"(",
    9 r9 P- z3 _% W  V/ S9 c8 o. j       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", $ I) c, y2 b  t4 _! ]% |+ J8 x
         SuperscriptBox[/ {, T9 m8 D. U. S1 M& A
          RowBox[{"(",
    : x: z; @# W7 d: N8 y8 ?       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",   m4 {( }& h% s$ F- x+ O- L
         SuperscriptBox[+ b! t# k! h1 \3 l) ^: H
          RowBox[{"(", * A. P. V3 k8 q8 g. q+ u: ^
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    0 V5 ?* }9 J7 s/ f0 s     SuperscriptBox[/ j: R  b7 u/ `2 w. K  _
          RowBox[{"(", 2 ]$ d: x7 c) y7 j8 x- ~
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ) V& Z' @8 F5 c! F' Z8 c
        ")"}]}]]], "Output",. ^" b3 _" T& g9 D2 l) {
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, 8 e& K+ e9 x7 O' L$ Y
      3.57801228203125*^9}]3 n7 L/ {0 l  _: k3 i
    }, Open  ]],
    9 u( Q2 }1 g  [9 l  v& L: ^
    ( B" t5 q! n4 ]6 _' TCell[CellGroupData[{
    6 g5 k+ a: [- `* p/ H. M; Z. l! q% ^" C% @2 c$ o+ Z% e* m
    Cell[BoxData[{
    : |; ]. Q, A( h/ B RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
    , y, q& x' C0 O1 L( Z! Y RowBox[{"u12", "=",
    1 [7 U8 B' n/ p+ E& F  RowBox[{- J! @) B8 e. W% Q7 w) F
       RowBox[{"Exp", "[",
    $ V( Z' m3 j. P# V+ b  U7 H2 v    RowBox[{
    : ^% b7 i* L* s; A     RowBox[{+ R# ~- I9 x/ F; X& v
          RowBox[{"-", / p( H9 O9 i  Q7 f# ^
           RowBox[{
    9 J  P! w$ C8 c& b: i) `6 A        RowBox[{"(", & X- ?1 l4 q* A! |. k
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 4 S9 N! u2 M: A% o
            RowBox[{"(", : t- c2 b! p: o3 e
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],9 H9 a+ {# L* }  A( G# B
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    4 G: T& ?, b( a" `* w6 O# r% N CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    3 E* C! j; J. }9 d% d  3.57796154237158*^9, 3.5779615576284065`*^9}}],
    ; {3 |6 T! |- q3 D6 q' I
    8 S, A' Q  k- s' x/ U8 ]Cell[BoxData[5 f6 A3 o7 f9 r6 u! ~& [2 r
    RowBox[{"{", ( ]9 S5 _" o7 R0 u+ V0 R3 l9 u5 J
      RowBox[{
    0 \; P: P/ W- k$ `; o  "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
    8 K2 m/ |  \! G9 N) V   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],
    " g, [  k' n/ Q' `' F( {1 n7 M  "}"}]], "Output",
    % r" O) I" e9 S CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],
    . z1 @# h+ ?# ]3 Z# Q4 r
    8 ^* z, i; `, F9 b$ ECell[BoxData[
    4 k0 C* V/ X% \# l" n# H/ C1 P SuperscriptBox["\[ExponentialE]",
    ' g' e6 b5 i- e0 }9 b  RowBox[{"3.141592653589793`", " ",
    ) V% Y" O2 \, }, t   RowBox[{"(", 9 l7 P# h1 j  c: a" @! t/ S
        RowBox[{
    $ T# O' Q7 s! r2 N     RowBox[{"-",
    7 U  }* v0 m' M2 p      SuperscriptBox[
    1 g/ a- C  L& F& I1 w+ E) b! r       RowBox[{"(",
    - }2 o* M4 ~. |2 ^9 a: \, ~& F        RowBox[{. @% r* \/ T) h% G7 D9 I: S
             RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", $ R. L/ I$ S5 o0 y% g; k) J
         SuperscriptBox[+ M* x! o0 d& d, d. n
          RowBox[{"(",
    + p' O# z/ q) d) z* ~& C- p$ N       RowBox[{3 A1 ]) B; [& B* R
            RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
    : H) r/ ]% [, q* v) l' @" {: T     SuperscriptBox[
    9 _/ O! ~: R4 g5 D. {* n      RowBox[{"(", 6 p) g, T9 n$ s- _
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", 5 g6 E9 h7 p0 \& e. A  D: l
         SuperscriptBox[
    0 C5 U5 `/ L. z& O      RowBox[{"(",
    * e3 E. k9 _3 Y6 I; W       RowBox[{
    $ M' q0 o+ _' B        RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
      C* y& g1 k0 E9 V     SuperscriptBox[
    , w' B1 z7 C* w& s      RowBox[{"(",
    ! n8 K8 `$ j& p: Z9 U       RowBox[{% p4 r! \( y' |, S
            RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", 1 T4 V9 _: ]! ]0 b
         SuperscriptBox[1 }) F5 f& q$ m/ U- q
          RowBox[{"(",
    ' b1 O+ i% o) X& w       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    . V4 Y2 f, U6 I- o5 L     SuperscriptBox[
    : K' p* M% B, g* G& Y, G! P      RowBox[{"(",
    ' |2 W. l' o6 J8 w5 S       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    - ~9 e; W+ f$ z: k6 ?     SuperscriptBox[, i6 u' y0 n" q# P/ c( E0 S
          RowBox[{"(", 2 R" g& b, Y! K+ R7 h
           RowBox[{" D' d! n$ Y% B! `
            RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", 1 {. }: b4 m' f- ^
         SuperscriptBox[
    & b2 L5 D# d8 B) F8 t" s      RowBox[{"(",
    ! ~9 ^4 Y1 n% R( v7 X/ Q! p       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ) s" U, K- D& H0 N: J/ f8 }/ }
        ")"}]}]]], "Output",
    7 x" }  v  T% Z; e- j, C CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]& T6 C* `" L2 H: w
    }, Open  ]],
    - _# k4 J9 ?% B8 n1 k5 I
    ' _3 I; w$ r4 N! I( l) kCell[CellGroupData[{7 j! V0 R2 U6 }. h$ _# _+ y

    1 n6 p; f! R/ K8 a! _! R( O, rCell[BoxData[{# N1 l( r8 O% d! W
    RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]", 8 c3 v. e* r) ^
    RowBox[{"u13", "=", $ w/ G# E9 F5 U4 }4 v
      RowBox[{
    $ A+ _( |9 P7 `   RowBox[{"Exp", "[", # l+ I, v4 Y% s+ x: D% S2 j
        RowBox[{
    8 W9 s# Y( `1 v0 u* {/ E9 E% d     RowBox[{
    - M) v$ t3 `- B      RowBox[{"-",
    , d8 j3 R( U- \1 t2 V, _       RowBox[{
    ( P1 K/ A3 ~6 F5 O        RowBox[{"(",
    . S6 k+ J$ H, M! a$ a. V         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 g' V8 h, a' ^2 s7 r: R, U, h1 D$ L
            RowBox[{"(",
    * R/ D3 U4 N# N8 R         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    6 |  j1 z  l/ V5 u9 F5 i     "]"}], "/.", "DeltaX"}]}]}], "Input",
    ( h7 n6 C6 {, v4 |6 E$ X CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {# w, H' H3 A- R% `; @
      3.57796154237158*^9, 3.5779615599684105`*^9}}],8 X2 Y9 w5 r; F: G6 Y

    8 |5 Z/ U; @' J5 i; s- [  rCell[BoxData[. V) @$ `( V6 w& S
    RowBox[{"{", % S  B& L/ x& G4 r& x
      RowBox[{
    0 B+ G8 m: U' `$ {4 C" z  F  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
    & w: I- O4 E/ J) E. F   "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
    0 ^: Y8 ~  u! Z7 w  "}"}]], "Output",8 i2 \: S1 Y" U, X4 s- A" w
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],
    9 E; C1 H. ?9 K8 r7 }6 I* [  _# s' B8 P, d  j6 @
    Cell[BoxData[+ Z; o3 V0 D* ]/ K: A
    SuperscriptBox["\[ExponentialE]", " Y0 U0 d# m8 V: e' l
      RowBox[{"3.141592653589793`", " ", 2 B, g  f6 Q) h! {$ }
       RowBox[{"(", % |* N9 w0 a. P5 ~8 |) n
        RowBox[{
    6 V. k+ u- t! @9 C     RowBox[{"-",
    + n/ v# z; J# T1 ~% ]: ~% M      SuperscriptBox[
    0 `! p- V# m; J) }7 D0 r# q       RowBox[{"(",
    6 S, ]" U  w7 a        RowBox[{3 [% e, @, F( [0 {; h1 u! P
             RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
      g8 p$ P# T* v     SuperscriptBox[/ `) s' V  [1 l
          RowBox[{"(",
    6 Z4 u& F+ X4 ]  F+ O6 n: Y. }0 i       RowBox[{% z. b* E, N' w- W! p2 u
            RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
    7 j- v7 ~3 V! w( |     SuperscriptBox[
    0 l) E. \. @' b0 k      RowBox[{"(", ) h% D& }! ~) f7 L. p' \
           RowBox[{$ D, @( T# u: j# [; `8 T7 B; j* D
            RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    # K1 [* k  X/ d4 S8 c     SuperscriptBox[2 ?+ }) O. E* O) I! Y0 P+ ]1 Z  V
          RowBox[{"(", 0 N- a1 A: W* d! F
           RowBox[{% w# J; t- `9 P
            RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
    ' M( L5 x) h0 }' Q     SuperscriptBox[
    6 a- U) z& B, }! @& m$ d$ d( h3 E      RowBox[{"(",   X# b- p) M: L% M5 k1 M$ k
           RowBox[{
      L! C7 J: c# m; n+ v        RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", 8 T* c- ?8 {$ L1 r; U% I, x
         SuperscriptBox[& a  W4 A- t+ c" i$ b
          RowBox[{"(",
    $ J6 S* F" M' \* l# D       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 2 f7 Z; Y' G5 R. M9 ^
         SuperscriptBox[
    " ?7 B  X" ~6 ?$ k$ f$ m7 t+ g4 S% C      RowBox[{"(",
    / o/ C$ Z' ?9 s; \       RowBox[{
    + G) j7 [. i" p$ C        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", % E% w& v1 C  g; E" T) u
         SuperscriptBox[
    # G/ u1 q9 N3 h8 K      RowBox[{"(",
    % P, F5 W9 D, m' Q! ^       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    + p# K5 A3 F9 V% g     SuperscriptBox[
    7 `6 d8 Q3 n9 ?* L# |. B      RowBox[{"(",
    9 @4 d3 Q1 x; [       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], & q- y- z( K2 f# G, F
        ")"}]}]]], "Output",4 L' X/ n: G- P+ C4 U, G
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]% }) J$ @1 l% ~# P  w" s! ~% n6 Z/ i
    }, Open  ]],
    + @3 _5 Y! s' `0 f) d( o) F9 P& Z
    % Y( W  r  b9 U% g1 H* I1 L+ D7 \Cell[CellGroupData[{) N. |& Q) v. Z- M$ q+ q7 h/ ?( ~4 P
    4 `) D- Z) S- M% }4 x2 y- V
    Cell[BoxData[{
    & b  Y8 ?1 \% p( {' d$ u RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]", 4 e+ a3 D1 `0 |3 c
    RowBox[{"u14", "=", 7 l2 T2 i& P4 S- q
      RowBox[{
    1 T5 }6 E) z3 a/ n. l6 v: c2 F& D. ?: ]   RowBox[{"Exp", "[", * p  E4 p- X2 @7 Z
        RowBox[{
    8 X) A: p) o8 t: [) A     RowBox[{, q0 w7 S' V8 K# r) ^7 t
          RowBox[{"-",
    7 U' O/ F5 T  \1 |, Y       RowBox[{
    9 K3 s6 i; S/ b/ T        RowBox[{"(", / y; v7 i1 \; p
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 1 |3 t7 e/ ~0 ^% y8 i6 H
            RowBox[{"(",
    8 n  N: a* F  j         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],# f' w5 a7 E/ d
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    7 k8 w1 e; c+ ]  I8 ? CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    9 L* W+ Z$ Y3 q( q* Y1 ?  3.57796154237158*^9, 3.5779615663176217`*^9}}],1 b0 A/ g+ \) S$ z9 M
      e/ _1 i4 h2 a
    Cell[BoxData[
    % L* Y* t6 T8 l" Y% o, B RowBox[{"{", 9 Z5 J; O* Y& _5 i9 Z4 ]- x
      RowBox[{1 T7 C! }6 U# G1 R" F8 \
      "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",
    ! ~* `% x* @) {4 _   "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    5 Z/ r3 ^4 R( k3 [& V& J  "}"}]], "Output",5 }6 R3 a1 b& R7 Y2 V9 V
    CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],
    1 C+ j+ y1 i3 m
    , p' x% `  G9 o  qCell[BoxData[+ B+ K0 ^4 n. D. D9 m; ?7 K
    SuperscriptBox["\[ExponentialE]", # |  h& d/ P) E* W
      RowBox[{"3.141592653589793`", " ", 5 v& f# x  ~- Z7 Q6 e- l
       RowBox[{"(",
    8 R7 f) Z! s: v# l/ Z/ P' o    RowBox[{6 l7 \' W  X! p$ x! B' v) f7 m
         RowBox[{"-",
    1 @# H$ d# U9 Z+ |, o' `; @      SuperscriptBox[
    9 Z! c7 h' J! X  c+ G       RowBox[{"(", , }7 k- K/ p% K5 F3 N' b+ G/ `
            RowBox[{; ~6 f; y% V7 p) Z- ]' p7 c
             RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-", ( c. H+ I( _7 X/ _6 p2 h  z* r+ y$ @
         SuperscriptBox[
    6 k! K+ M0 P8 ]8 _4 L( z  Q      RowBox[{"(", 9 o2 F* ]( O- r: V
           RowBox[{
    , F8 u" m+ w3 L; q7 X        RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
    " l9 S1 F$ l) [2 P     SuperscriptBox[" Y4 _0 J1 |+ z9 d
          RowBox[{"(", 8 Z4 }" j9 H3 f' b
           RowBox[{* c, A$ }# }8 l; V7 C
            RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", % A8 ~4 X+ A" d( O* V- x
         SuperscriptBox[2 r. L+ V0 ~/ l$ q& L# d$ w. R
          RowBox[{"(",
    3 r  R! C9 y1 U4 X/ v, ^       RowBox[{
    4 B8 E0 g4 P; H, S" S- x  J) o        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", & U! \) X/ v9 a- _
         SuperscriptBox[
    6 _' j3 r% X9 U! i; K# C" K$ K' G      RowBox[{"(",
    " V1 J: P1 W7 e* r/ P, t       RowBox[{+ b0 @  F- y2 j5 u9 x0 s
            RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
    : ^7 h" s( r' k+ G( {/ m7 u3 C     SuperscriptBox[
    $ \* i% C- P) S/ v+ w      RowBox[{"(",
    * G$ k7 f' Q0 P8 G& K6 N8 n       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 1 ?& |6 s% g6 |  X: I
         SuperscriptBox[. R# p9 O( F5 Z% I; t" P) r! ?
          RowBox[{"(", 7 I1 o1 r5 Q4 o# G
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    $ {+ ?& i6 J5 Y0 ]     SuperscriptBox[! ~6 E! d5 e) O% [' l/ k1 ]
          RowBox[{"(",
    3 w4 d! f2 b, y* {7 ]* ?' t       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", : B) i" Z1 P4 _3 g4 c# F3 E( m
         SuperscriptBox[  b, o0 z2 f' x: F) v
          RowBox[{"(", # H, S& a3 s7 ]  r: e( b8 J
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    " R, b* y) w- V6 H" n4 a    ")"}]}]]], "Output",9 V# e, @/ m% j9 C+ `1 I# S8 p* q
    CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]" o5 @; F( {9 ?$ ?: u
    }, Open  ]],2 H: L0 H% H- @: ~- _, ^9 D
    4 X- k& A) e+ {; C0 {7 v* e
    Cell[CellGroupData[{
    : H; \6 N" k0 l
    6 e9 v; w: A5 V1 {! G3 mCell[BoxData[{& X9 L% ^* g: ?6 Y& h
    RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]",
    . w! h$ _: ?+ A+ \ RowBox[{"u15", "=",
    % O. l3 E# j5 V% L  RowBox[{0 s/ [, G, R$ z% d9 R
       RowBox[{"Exp", "[", ) n, g- S0 f/ t- b  p/ ^" Z
        RowBox[{
    8 r( ]" f" n' R0 G' I% F5 w0 e     RowBox[{. a$ n, |/ i0 D- k, u" v
          RowBox[{"-",
    / F$ y2 m# Y$ m- g! F# U( ]" b       RowBox[{
    1 f0 _8 P2 U4 ]" F        RowBox[{"(", 0 X' h+ ?: r  W8 P$ q
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", : |3 _- E3 U/ M* T) w% G7 }
            RowBox[{"(",
    0 n2 T  i# f$ {         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],# J4 R% a8 Y* F* F
         "]"}], "/.", "DeltaX"}]}]}], "Input",1 P" A4 d1 s  h6 Q0 V) g: X
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    2 `1 Y, B' A; g" B" J  3.57796154237158*^9, 3.57796157098203*^9}}],, `( e# o( v9 D5 N6 u) ^

    ( d* }4 w+ e$ m8 R& @" CCell[BoxData[! v: v4 R" I9 D' X1 o  T) L- K% ~+ m
    RowBox[{"{",
    / P4 |) h0 R2 Y& E: h  RowBox[{
    : e( b: V- O# ^  "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", ) Q4 L) A* _$ y, Z8 J1 {4 R& L
       "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
    % m6 O- V7 h+ [- J* w, |  "}"}]], "Output",
    : u! P& Y; D% C& o8 N CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],% t9 q+ _# J0 K
    ; P, x# r% Q  [" C5 k2 W! |
    Cell[BoxData[
    : `1 a1 Q5 R( s9 G- e0 v7 N8 l& ]  R SuperscriptBox["\[ExponentialE]",
    3 w( F3 k4 c- W# {8 v* D6 D+ i  RowBox[{"3.141592653589793`", " ",
    - m9 B2 E& k7 [8 K" L   RowBox[{"(", - H! s3 x4 R% o- ^
        RowBox[{
    % p- J4 k# z, j; @1 ^/ c/ f     RowBox[{"-",
    5 q& h% S4 l  _      SuperscriptBox[( C. ?1 f" ]0 k; y8 B
           RowBox[{"(", 0 s% C, S( X, v; i8 n& o4 R
            RowBox[{
    7 y# M, R$ d9 C& V, ~4 n& `5 Z% w         RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", ( N: p! x% z! ^2 @& d
         SuperscriptBox[& s; ?+ v3 p. W  b) a# I# R9 j
          RowBox[{"(", 5 H$ a' X- ^' A" Y7 V8 m
           RowBox[{
    % m5 N+ j# d: o. o8 p* J3 L        RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-", # Q8 w* Q# Z+ ^+ b8 ?
         SuperscriptBox[( F) [  Y8 {& y8 }- S
          RowBox[{"(",
    , l. [8 v# \& J7 c3 j  P5 B8 U       RowBox[{! P1 Q4 l+ R+ u& v: a) ~: {! o3 Y
            RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", 0 ]4 {1 ?$ s; z% `- O# g' Y
         SuperscriptBox[
    ( J9 B" d0 e7 s      RowBox[{"(", / _& k/ ~% L4 z$ j0 A
           RowBox[{
    ' y- B; @) L/ j: F4 I4 I  U1 ?+ e% {        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-", 2 e4 _0 g7 y# B8 }4 C* Z- W
         SuperscriptBox[! k1 q/ A/ x8 g3 T; N3 u5 u" v
          RowBox[{"(", - `$ o# F. x* ]" F- Q- n
           RowBox[{
    4 B7 p9 D: d$ Q( `: O        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",   W" A' w2 b  M' U+ B- h! E- U
         SuperscriptBox[  s' h' d3 A, t3 h- P) Y
          RowBox[{"(", $ r0 S- s; C% S% e( T/ Q
           RowBox[{6 S+ s. F; D7 E5 {; V  h7 [
            RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", 3 P& N1 z  y* C4 v& E
         SuperscriptBox[3 u+ @& P: p: P
          RowBox[{"(", 9 G( ]" T- M4 b( T$ Y
           RowBox[{
    4 C7 Y- M- ?8 H, d        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    ! h" b* d. u9 o     SuperscriptBox[
    , W% u2 G1 Y7 y      RowBox[{"(", ; A' H8 d& ~. ^3 z7 k3 y4 G6 A
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", * n# f5 g' Y$ ~+ t3 y4 l
         SuperscriptBox[+ F  B  @; U2 K, p% m
          RowBox[{"(",
    $ {  S0 ^! v! h9 h' t       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], / v; E" W* q- W5 {& T# j
        ")"}]}]]], "Output",. v) A6 Y2 A* X0 L" X5 n3 O
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]! C/ a8 Q- [: q' L- @, _
    }, Open  ]],+ D# C5 h$ e9 T( m' p* m4 j7 G
    ) S3 f) ?4 E% m7 S0 @& R
    Cell[BoxData[( \  C  m! l. |) G# f
    RowBox[{"For", "[",
    ! }2 q$ |7 s8 `  RowBox[{
    0 F" u. u# P; q   RowBox[{"i", "=", "1"}], ",", & f( \$ |. v, m; r7 F7 |" x6 }
       RowBox[{"i", "\[LessEqual]", "9"}], ",",
      j' Z" e# ~- N6 s4 y, j   RowBox[{"i", "++"}], ",", 1 r( _' U2 \( \2 @
       RowBox[{
    ) h3 @6 I% \' D3 A* @9 Q' F. u; L    RowBox[{"Ca", "[", * A  I& e7 d2 \4 f/ B
         RowBox[{"[", "i", "]"}], "]"}], "=", , v& ^# |, z/ j- Q5 z+ o1 |7 ^
        RowBox[{"CM", "[",
    & T* s$ V* f7 k7 c, C) L: x     RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",& c$ f8 I; n, y3 [
    CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],5 f/ e' Q, `; n1 c. x

    + X! Y( v9 g2 ~' rCell[CellGroupData[{
    ) t: M% ^! D) _# Z) P" m1 [8 |! A3 |, J' o0 d3 H- }
    Cell[BoxData[{
    8 [# s" x3 I" ~7 ~6 E1 G RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",
    # k0 r/ u# ~+ ^# b RowBox[{"u16", "=",
      q7 g' T5 [6 x' j  RowBox[{
    ' J( j" b& E" Q7 }, |   RowBox[{"Exp", "[", ! U$ K  X( Z8 S8 H
        RowBox[{
    1 L3 @2 c2 Z, W2 Q: {$ s' d; Q3 x     RowBox[{
    0 {% o0 g7 {+ i" [7 V" s: R9 A      RowBox[{"-",
    8 R2 d, o" k' }7 ^" w* [       RowBox[{; m9 b7 C: k" m6 G
            RowBox[{"(", ; R- e: B3 L. u8 ?; X7 U" N$ _" }; b. r
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 1 a. F/ s- _3 C% H9 n; q
            RowBox[{"(", 9 J/ s1 ?% n" p& U
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    3 k1 m! b: T9 t/ \! `     "]"}], "/.", "DeltaX"}]}]}], "Input",
    / a. J2 k, m% b: l- s& g9 A+ x CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    7 C: E1 t6 @; W* T  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
    - \; Y/ K( L0 [9 n" A7 h4 X. A  3.5779615751004367`*^9}}],
    2 e5 t) y8 }: A5 A+ m+ y$ k' p$ A# i2 U1 ?  G0 f8 x" ^$ w. e
    Cell[BoxData[, }/ h! V2 E  k8 w
    RowBox[{"{",   w# j( K9 k# k# c* i) b7 [
      RowBox[{
    " V4 I" ~; _4 Q( {/ }) |4 X  U  "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",", 7 }  Q+ n% @5 j: u8 N3 g* Y  ]% d
       "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
    3 J2 Z* T! o2 z6 Z5 o/ ]: {8 `  "}"}]], "Output",
    " r) i" m& n# H  S CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],. d/ r% q# H4 ]1 T) Q6 J
    + T" u8 C  f7 A9 p
    Cell[BoxData[) r7 h1 f8 d' d* i- [
    SuperscriptBox["\[ExponentialE]", 2 e, S/ w* U" z
      RowBox[{"3.141592653589793`", " ", + N9 e0 t5 M1 g3 y4 A" o2 L4 b
       RowBox[{"(",
    ) j. I: {  t& K  V% T  L    RowBox[{8 a) o2 D6 i' H2 |) [  J
         RowBox[{"-",
    , J+ @7 V/ ~1 T- f0 o# h1 o1 Y      SuperscriptBox[
    - R  z" }& i& O- g; {% }8 x       RowBox[{"(",
    2 A  w2 k1 t0 r, s$ B2 h        RowBox[{* a0 f" s  |' k: p+ n# e
             RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
    / y# `% p3 o9 {8 l; V, k* K     SuperscriptBox[
    % Q) b. a9 \. l      RowBox[{"(", ( \0 ^2 B" ~" T, N
           RowBox[{
    + L% U2 U. m( m8 J  `        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", ( x1 X! ?7 F9 C- x' s
         SuperscriptBox[( q1 D# u$ c* {( ~2 }. t
          RowBox[{"(", 1 O: v5 R6 K, D
           RowBox[{
    0 R2 C! e6 e- n        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", : t& U; Z/ x7 f! r" ^# {2 {
         SuperscriptBox[
      Q- r" H0 D$ n" G! R' v  @% c. r+ A      RowBox[{"(", 8 Y* D  z9 p2 Q
           RowBox[{% ^6 g( Z: H2 z* v) Q0 x
            RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", + L4 U# q4 s7 w! r
         SuperscriptBox[" E& S% z1 l" u2 v% ^
          RowBox[{"(",
    " y, {; d6 |0 P0 I5 c; {       RowBox[{
    : ]4 H- U. S; V8 y$ h' B        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
    , k/ C, h8 o  i% z# ?0 c- x     SuperscriptBox[7 d& C' b% u: b3 ?; r( |$ z# n
          RowBox[{"(", " {9 y8 v- n" j' f9 @4 z  D% a8 O
           RowBox[{
    7 \" y& n$ n$ w5 u; S        RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", ' b, B) G& E! ?
         SuperscriptBox[
    ' D0 `# C6 ~" J2 b      RowBox[{"(",
    ) Z  m: v) K* m       RowBox[{- c7 x7 a( G, R! e- ^2 N
            RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
    1 }  n+ W+ ]1 |) }% {5 t# t3 `     SuperscriptBox[
    + |. f2 p' t1 N      RowBox[{"(", - ]2 I2 D- u$ U! ^9 z6 V
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    * ]. S: i) u" p5 V" \$ ~4 Z" t+ t     SuperscriptBox[
    6 \0 l; q' s- }7 W+ L* T      RowBox[{"(", " ]+ [8 h* p: j1 @  q% d! x
           RowBox[{
    7 [- k  x! _( P6 A        RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",4 O9 w5 j# P. u/ k: w
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]2 M7 O( ], P+ U0 p- T. k
    }, Open  ]],
    3 ]/ A( U- m  o+ G
    ( P; ^9 |2 _5 T" jCell[CellGroupData[{
    2 R1 C3 }" U5 o! ~6 A/ b# x. f# w2 f0 `- ?" f. t
    Cell[BoxData[{0 A; X, r0 A" Y+ Y
    RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]", / D0 J% m# t; P% p
    RowBox[{"u17", "=", ) e) g, {$ L9 m5 k4 e* r
      RowBox[{
    # V! @# R: g$ P3 d4 S   RowBox[{"Exp", "[",
    3 Z; g6 d4 R, r, e/ j    RowBox[{
    ! I! ^% V+ @  [5 d4 |$ {' T8 R     RowBox[{, K1 P! H- D$ O2 x
          RowBox[{"-",
    0 ~, w3 h! l2 u5 C' f6 R' O3 F       RowBox[{
    ; V# g) ?5 w3 o$ R3 f" L        RowBox[{"(", 5 `. P; r! x! E* I" l
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 t% |; D. h3 K4 t) ]* u
            RowBox[{"(",
    3 Y' B& B% u) M0 `% U, ^2 Y1 `) E         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],% H1 r6 J9 E2 E( ~! S
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    ! P/ }" n& K: M. B CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {; G- ~9 K+ u% |5 n
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9, 9 _" `) v- c/ d% x2 M
      3.577961578953644*^9}}],/ n1 a% e" D1 o* Q- M. {$ K

    3 B; o2 S9 p' ^! ^* tCell[BoxData[- L  k7 {' O: \: n% N8 r
    RowBox[{"{", - s) }6 R) \# l
      RowBox[{
    & E' s4 b! A( h2 k- {  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", 9 E. W" N7 s* H! L/ s
       "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}], # t' t+ f6 }& E# B- o
      "}"}]], "Output",
    0 `* F$ m. g5 ]+ k0 {1 j CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],3 F( a* j) C0 `) v! b  ^
    6 Q; Y: s6 r! o  ?+ q8 x
    Cell[BoxData[" ?+ n' ?4 |  E
    SuperscriptBox["\[ExponentialE]",
    - v8 [- Y/ Z; [* \6 R  RowBox[{"3.141592653589793`", " ", ! M- p7 P# Q% }: x7 Q7 a0 ?
       RowBox[{"(", : ^4 a" a5 [0 a8 g) d
        RowBox[{, F: X5 h9 v5 q$ H: c
         RowBox[{"-", # E; y. v3 G4 z8 c
          SuperscriptBox[# F+ i; l/ L' w. i# V9 |( W
           RowBox[{"(",
    5 F/ s' a/ c* f        RowBox[{) h3 z9 w9 N9 |, q) J  _
             RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ' s$ z$ [+ `: H0 q     SuperscriptBox[8 ]9 T% \% p- S8 C, e
          RowBox[{"(",
    # H$ P5 _& K( P( q' W, P" M       RowBox[{
    ; V+ d$ w* \. i0 n        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", : G5 y) B, `) t; R0 b
         SuperscriptBox[$ ^6 B7 I5 \( }
          RowBox[{"(", ) \$ N6 M0 Q8 V/ w2 B5 K. W
           RowBox[{
    2 d( q, c( y! ^        RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", # }2 P2 b2 _+ x0 c. F* g9 m
         SuperscriptBox[
    6 T/ ^! X& ~) |) O* D8 N      RowBox[{"(",
    8 D2 ]# g. F& h       RowBox[{, |" ~3 g$ q( N- ~- J
            RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", ! |& k' f0 u2 I3 I% b. Y
         SuperscriptBox[
    & _  [: M+ j/ L& G! _      RowBox[{"(",
    . |9 K; o( `' R/ S* @2 G6 f       RowBox[{
    0 k; T$ F4 q7 _  d9 S# J        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    & m: l( Z$ Q" k1 f. _     SuperscriptBox[
    & Z" |: ]2 g) {$ p# u+ N6 T      RowBox[{"(",   d( U' L, r8 ~+ z' m: X# @
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    $ g- M( g8 U  s7 k$ b4 C3 v     SuperscriptBox[$ A3 D0 D6 y: y9 B% M
          RowBox[{"(",
    " X! w4 U7 ^& s% {4 G9 a       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", / ~. O2 k' c' t/ G# K
         SuperscriptBox[2 c& q$ z% Y0 A0 ^
          RowBox[{"(", ) [  z4 `  n0 z5 v9 c1 x
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ) g* q: V( P" I* f/ a& J
         SuperscriptBox[/ q0 l9 e+ t8 S/ x
          RowBox[{"(",
    # W" R1 B& T3 a- t  D6 P       RowBox[{
    1 y# {/ q8 {  F5 h/ R7 S' Y        RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], 0 _# [2 ^9 G0 E+ d+ H6 X% B" |
        ")"}]}]]], "Output",
    ! i4 k+ X! @, z( c CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
    9 l/ E+ \+ {6 s2 B/ e  j8 k2 E* G}, Open  ]],. v6 |  c9 t& i. i( R! ?$ F8 l

    ( e8 s6 v2 A' U# z; L( OCell[CellGroupData[{; t- ]% a; L/ i3 U

    5 N6 r6 I+ Z+ K, A2 cCell[BoxData[{4 P- q) a# E( K
    RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]",
    " v, |" d7 A2 X0 s! ~8 ~ RowBox[{"u18", "=", ; M% @9 q4 k2 k) L1 @) L$ j
      RowBox[{2 p5 w3 _# b) X% F3 @* g; V
       RowBox[{"Exp", "[", $ Z! B$ ^$ L& `
        RowBox[{6 `; D# P( M3 q$ {( ?5 ~" t: R
         RowBox[{
    % V2 w& D3 f( |: H      RowBox[{"-",
    ( H! h0 W" z6 B* U* a- x  `2 T       RowBox[{
    * Q4 p1 T( q  r# j        RowBox[{"(", + w5 {/ m; x9 O) }) Z' D
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    0 P! m: X5 r( w+ H6 W5 o        RowBox[{"(",
    7 l) W) h. L0 b  n. A$ f) m         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],; T8 I. v0 |: t+ z3 b
         "]"}], "/.", "DeltaX"}]}]}], "Input",( g% }2 B4 n, `- b8 D  A& N
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ! x: T+ F% O) E6 t2 K  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9, ) `& F, G9 W, [0 ~4 Y% X
      3.5779615828848505`*^9}}],4 A0 ]7 Q, m; p1 H

    3 W/ V' B8 J! k& JCell[BoxData[
    # ~( N1 P& a7 ^" [) ] RowBox[{"{",
    & h; p0 @8 U) K  RowBox[{) E: h9 q- m& a# R9 y6 h. g
      "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", : J  r3 X7 m, o5 e
       "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 2 l. N# o3 {* p  S
      "}"}]], "Output",. N+ |! `+ ^% X9 Q7 G
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],/ u0 T( [& V2 }
    2 Q7 |! M5 i, n8 S
    Cell[BoxData[
    1 l4 b4 z3 [. g& c0 U" M SuperscriptBox["\[ExponentialE]",
    4 Z2 y9 L$ {- f! F4 z9 g4 y" U  RowBox[{"3.141592653589793`", " ", & ]% G" ]) f6 u9 K* i
       RowBox[{"(",
    1 o, r3 S* n9 f  H    RowBox[{. F1 R  ]: p+ ~0 L
         RowBox[{"-",
    8 [" U1 @( @) |7 E  ^  G      SuperscriptBox[
    + a6 D! P7 \* s4 q* ]3 s       RowBox[{"(",
    9 o( g( R* P( N) X# F2 u4 _8 i+ @  q        RowBox[{9 ?3 j$ u; B) l% G% f$ c6 u2 W
             RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", 6 N. n3 v) K; v! W7 n% E! {) X
         SuperscriptBox[1 c2 w- X- K- B
          RowBox[{"(", & [, E6 M9 A# }
           RowBox[{
    / u. T. T+ l6 @2 k( o3 f        RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",   f8 ?# ^. f( N/ N3 ]( q9 i
         SuperscriptBox[; \8 p" |0 }; O# B& p
          RowBox[{"(", & s$ g! y4 ?3 P" k4 ?# b4 v# Y
           RowBox[{
    8 N5 }) j7 E" A: S        RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
    % e3 t- F  ]1 J: G     SuperscriptBox[
    . E) Q1 v0 H/ ]6 j% w      RowBox[{"(",
    / E' i" E' q* z, v8 I/ G3 M1 N       RowBox[{
    ' e9 ?; I9 L' D! h" L        RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", - i6 L: o) N4 B. e; c+ i4 Y
         SuperscriptBox[+ d/ J- k8 g0 D' V
          RowBox[{"(", - v2 p6 g/ h$ W% Y0 l
           RowBox[{
    ' d- f; a; t  |3 I) W        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", - ^& D& v: L, X0 [5 t
         SuperscriptBox[- ?  h4 Y( x% R* y1 _
          RowBox[{"(", 6 _2 l. h* Q( [7 l: J6 o
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ; [* w+ a. L! W6 ^     SuperscriptBox[- _8 E7 }7 c/ y
          RowBox[{"(",
    & s" l' p$ U, w4 ?       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    9 I* Y8 k/ e6 d7 A( o* m     SuperscriptBox[
    1 D+ }# l5 \  q5 t, c' V      RowBox[{"(",
    1 S0 ?0 V, A) m7 i       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    2 V9 ]' u) z9 c' G0 M- I. H     SuperscriptBox[
      O) ?0 O: K4 z" n% r6 \4 O, ^      RowBox[{"(", . Z  P& s! A) T4 E
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 4 I" g4 ~: s7 \/ _. `
        ")"}]}]]], "Output",0 V( ~. G' \) a/ q& D8 Y5 g
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]
    3 G/ d/ E0 B! }- B}, Open  ]]," n0 l0 e) {2 V1 I+ F# @$ X
    ) [, @8 A* f5 d) t- ?. d
    Cell[CellGroupData[{
    2 h; h7 W% D, S: y  A) o, J
    2 U! L0 D5 u2 C- Y1 cCell[BoxData[{  T0 z8 B; L  O
    RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]", / F5 |. z. v* [$ r. h4 u
    RowBox[{"u19", "=",
    ) r+ W# j9 J3 ^8 Q  RowBox[{$ X8 b( k" \" h+ d. X6 {* C
       RowBox[{"Exp", "[",
    * E4 ]0 e- I1 s  G& {    RowBox[{
    9 F* `6 B, A/ S' w, F     RowBox[{
    $ b  Q% K" j( _) }4 i# [      RowBox[{"-",
    , |+ Q9 R4 q6 P. O- K       RowBox[{
    " j& \: e! z+ R5 ?        RowBox[{"(", ' J0 s( F; t, {: T1 @4 C" K; x
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    6 W+ u* j. u& I        RowBox[{"(",
    + H. T. J) R; o, Z/ G         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],* [- d# w) Y8 b  g- R8 i+ E* w
         "]"}], "/.", "DeltaX"}]}]}], "Input",$ q, H6 h# H1 G0 |5 N
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    2 Y9 P2 [6 u: J3 ]3 N, c  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, % k7 K# ^1 o0 c) y
      3.577961588890861*^9}}],
    : s3 E& V5 _8 P9 Q  V# z; X0 y( Z
    Cell[BoxData[; e* t& j/ T# d  K
    RowBox[{"{",
    & N2 f; \; u, e* {4 j+ W: \% h  RowBox[{0 ]( a9 c+ P" h8 d
      "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",", ; O2 E( f* X8 ~( H4 \4 ?/ g- [
       "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],
    9 ]; K( ^  {  K9 E' q5 a+ Y  "}"}]], "Output",, a- F. \+ V3 t5 y: U$ G" Q4 G
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
    0 P9 y3 U5 H# S9 |/ N1 n7 Q: t
    Cell[BoxData[7 B- F& I* H1 C  Q
    SuperscriptBox["\[ExponentialE]",
    ( m) R8 v6 ^) l' l2 J8 v* B  RowBox[{"3.141592653589793`", " ", * c* R) a9 \$ _
       RowBox[{"(", & t' t3 }1 S( l! z# y. Z, o( a) R
        RowBox[{
    ' k6 G3 }) u' s5 @8 N0 Z     RowBox[{"-", " |! W3 A, ^( Q- J0 S6 T3 ~
          SuperscriptBox[$ p, ?( l: P& [) W/ _
           RowBox[{"(",
    ( w1 n4 S, n, O# F. {, M3 C( {$ l        RowBox[{4 F; P0 m0 t* M5 S
             RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", # I9 W( \- u# m5 G0 l6 m  V
         SuperscriptBox[1 V0 \  u# Y3 {0 m# k  Z. @
          RowBox[{"(", - @& |' |5 p+ o/ a/ H! R
           RowBox[{
    1 V0 X+ X0 S6 s, w% ]- _# x, p        RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
    & c1 l# T% C( s; _! w" B  V8 [     SuperscriptBox[
    * Q, [' q( ~7 e1 |3 Z      RowBox[{"(",
    7 \" _7 @3 \1 S* ^       RowBox[{
    - \: }$ `  ?7 ~( o, Q& @. B6 x        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", 3 c2 b/ |7 c* e4 c  l
         SuperscriptBox[0 C& m& F6 }, L4 D; N- V
          RowBox[{"(", ! J4 z2 E$ ?9 a* R& x
           RowBox[{& q* R! S3 ~. W% C
            RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
    " ]5 ?6 t3 I8 R3 d  T; y, t     SuperscriptBox[
    $ t5 j+ _; q! F7 @' F5 B      RowBox[{"(",
    - P8 L* `. i# ~       RowBox[{9 g3 }( [5 {; f/ \0 K
            RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-", % t4 N2 [4 }4 i8 I9 a
         SuperscriptBox[
    ' R* ?' ?. Z) q$ A: r9 B& N$ r      RowBox[{"(",
    - Z3 i. l- G2 Q/ V+ T0 O       RowBox[{
    # V" s0 S) ~. X- b. r        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
    1 j. Z' E6 G* q# L  }     SuperscriptBox[  ^  {3 R3 Y* q, Z$ T6 E
          RowBox[{"(",
    7 X8 ^/ w9 Y+ D& t5 M% V2 t       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 7 n6 y. Y) w' D3 _+ o8 S( {, P9 i5 _
         SuperscriptBox[( q& `+ ^" `8 q7 F2 q$ O
          RowBox[{"(",
    9 H1 o: G) K* R) F1 X& w       RowBox[{
    ' c0 h4 z6 m& H9 g+ c, z        RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
    3 y* @8 g. u% {     SuperscriptBox[. \) T5 ~: o% T; e* K: t
          RowBox[{"(",
    * _$ i! ^0 ~0 s7 X% r6 s/ m7 g       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], & p, l3 {0 c  E; s. x, Z
        ")"}]}]]], "Output",
    % o: q" T9 l& l- t- G  N, k% r CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
    & u( K! s: ^0 g% V* r4 V( }}, Open  ]],$ U$ x# o1 J( p0 g' Q7 p

      _* Z2 v/ A3 J2 j$ o# q. x, zCell[CellGroupData[{+ q6 W3 Q* G% b/ m( ]! f1 I
    ( u8 e% @+ g* A; M, w1 I9 ^
    Cell[BoxData[{  c4 x1 q# I0 X  e6 z) m
    RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]",
    # F* z" y5 `, Q RowBox[{"u20", "=",
    + N- W1 Y' t, H. U. k) ~  RowBox[{
    7 S# V7 c, \8 l8 D* }3 d   RowBox[{"Exp", "[",
    5 G6 {1 D9 \% _) O+ B" K9 Y& x    RowBox[{9 V$ U2 a) R, c( K
         RowBox[{
    # K& }! W, d, B' ]      RowBox[{"-",
    / B' {' t5 P9 f3 h! Q       RowBox[{. H0 a; ~* S- g8 b4 R+ c3 c5 k
            RowBox[{"(", + G& y: \0 k6 S1 `- X! @1 B
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    # C9 \+ d- R( h) V, @' ]        RowBox[{"(", : o- }, J* w" m' d! f
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],, v* H- Q- [2 K) o
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    ' X/ \% v1 |9 ^8 p/ @" c CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    + V8 e' m, I) h  K  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
    7 G8 `  E8 X; y" M7 ~6 D  3.57796159382047*^9}}],
    - r) r; P, g4 O' K7 ]
    , U. O# P# ]5 a' X  S8 z* OCell[BoxData[
    : l* F! R$ Q3 u1 q2 H0 r, W/ I5 c RowBox[{"{", 8 G( c/ b# z  v% U# [5 d: g
      RowBox[{" X+ d$ \/ w2 x$ J5 }& I8 g! F
      "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
    : V8 m+ v/ m8 S; V+ I   "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}], # W9 [) u$ q% T5 Y
      "}"}]], "Output",6 y1 ?) O( _" R* ^
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],
    & W- ?( Z7 {8 J0 s2 V
    / ~- o! f4 R" Y2 ?/ X" \! ZCell[BoxData[
    4 X3 K* S- ]) d SuperscriptBox["\[ExponentialE]",
    + @; ~/ Q& l) S1 C  RowBox[{"3.141592653589793`", " ", * g. _  Q! P* f4 X4 _: y
       RowBox[{"(",
    # e/ I& L" M; |1 F, C4 C/ Z    RowBox[{
    2 D  d) R; U# H0 I, q     RowBox[{"-",
    $ ~* h# n+ ^( s9 \! F8 `* W      SuperscriptBox[
    * y9 y! @0 t3 ~7 T5 V       RowBox[{"(",
    ' j: x% q' G2 M- p# `1 |        RowBox[{& c% j& V" t2 R1 C
             RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 K9 z8 ~( a# P2 m1 g9 e6 i4 V
         SuperscriptBox[" y9 z) M2 e/ |- c. n- B' Z. d
          RowBox[{"(",
    % c. x( v7 g; i+ s2 k       RowBox[{
    7 m: @9 x# S+ r" e& a. x        RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-", ' Y8 y* B! `9 c: r# U
         SuperscriptBox[
    $ H  }6 N; \  G3 W      RowBox[{"(",
    % O4 r9 Q5 o3 e* `       RowBox[{3 J8 M( e4 ?  D1 n" F+ w0 v0 c
            RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    $ B! \' O1 l& i4 b" k1 m/ h8 f     SuperscriptBox[! ]8 Z7 q: B2 I0 }. ], m
          RowBox[{"(",
    - ?! a6 k: F1 s* l5 k       RowBox[{
    5 w) d( g, ?# |8 U% f# A/ e        RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
    . k7 J) y: _8 c9 @     SuperscriptBox[; K% Z  Q. {1 k7 s
          RowBox[{"(", . [+ ~  Q" S9 s" A. S  `/ w# q
           RowBox[{* S) _! ^/ k- [" E2 e3 F% w$ h
            RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", ! w1 `8 B+ `' ?7 N! A0 c& r
         SuperscriptBox[, c  R  u7 O1 c
          RowBox[{"(",
    & d% D: x6 E: d' L       RowBox[{
    1 P0 T% e" M  |9 G1 r" {        RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    ; O8 U# ]( {; k+ p9 ~     SuperscriptBox[$ a, y+ ?* Y( ^) u/ _
          RowBox[{"(", 1 E' X9 `' a. P" }( W, j
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 7 [# O$ F) F9 w/ c7 y. J
         SuperscriptBox[
    7 ~' `, c: `1 Y/ K! o) O: [3 {; c$ d      RowBox[{"(",
    6 Q9 o: z5 a; v       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ' O$ t  X2 K4 S- m! M  {( O+ _
         SuperscriptBox[' I3 f& m: l! _! ?: D5 s" I
          RowBox[{"(", 6 ~; |  w  e9 E& s2 V! F4 o
           RowBox[{0 y# c5 f- V; s" f
            RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ( ]/ @4 Y, T: B* V
        ")"}]}]]], "Output",7 C) m7 E& q3 R
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]
    4 Y% e' S6 P1 C& Q}, Open  ]],- r! _. k% e' u& o7 |9 A) S& J/ l

    . e( z( y1 a2 |0 H2 [% P' UCell[CellGroupData[{3 O# u9 M' s& H3 I
    $ e9 h% u3 a; B3 o& Y" t" `% x
    Cell[BoxData[{: K1 Z+ w1 b1 L4 n4 W' N% O" E% g
    RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]", 1 H& C' F4 S$ g% L. J) a
    RowBox[{"u21", "=",
    6 G' ^. q2 F: H+ t9 `  RowBox[{4 B3 K+ z+ L! K3 `$ V5 j& G
       RowBox[{"Exp", "[", 3 g9 h8 j2 k3 q9 j8 `
        RowBox[{$ M4 u2 F7 P: |) g
         RowBox[{
    * i3 `% g  N/ u7 j+ R2 J+ F% P8 d      RowBox[{"-",
    , u8 X2 t1 X' F# U, R       RowBox[{) B" R+ b4 e7 f# J$ L; o
            RowBox[{"(", % v* F2 F4 J+ Q- M2 ^
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    " F' `( Y8 f+ W$ C5 k* s# ]& L: K, Q        RowBox[{"(", % m3 g/ A$ U7 [' B; C$ m
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],7 e% z6 w' {; V6 x
         "]"}], "/.", "DeltaX"}]}]}], "Input",& \) G8 j& D/ ?: e0 i( w; Q0 u- ^
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ) P( O4 u- y) o2 g1 t- v+ u0 \! y3 m  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9, - ?( P. g8 \' W0 c4 [8 I
      3.5779615991556787`*^9}}],) n. W- y0 ?: M5 t: f' _
    6 S& w$ p# {% S
    Cell[BoxData[8 @& p, H9 d2 ^3 W- ~& z5 f
    RowBox[{"{",
    7 P) D$ [* e/ J! n6 x5 d  RowBox[{; {5 R* f* h+ u0 j( T8 P* G/ p
      "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
    - v: ?* {" g- }   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}], 5 p6 A- u& J7 N& B
      "}"}]], "Output",& z. ~0 a' e8 C" G& |
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],
    7 D; e0 k0 u: j% w  T
    ( B  K; R) d- Y, ?Cell[BoxData[
    " w, @+ y- [: j" ~8 C* d SuperscriptBox["\[ExponentialE]", 7 r& K3 r+ @. ?* Y
      RowBox[{"3.141592653589793`", " ", 3 O/ \9 I$ z2 F2 U) x% Y( P5 {
       RowBox[{"(",
    5 y, q+ `& k; X, f) C. A, d6 ~( r6 J    RowBox[{' T" s6 @) R/ W+ v  ~: Y: Z+ X( R; Q
         RowBox[{"-",
    4 T2 L- h) {" M8 c- g      SuperscriptBox[
    2 x6 Q) c7 j- q& s       RowBox[{"(", / C  y4 E& E2 [' p
            RowBox[{9 w7 v, @- p, F- r$ I5 [" g
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
    6 `. _" z$ s+ y( n) N     SuperscriptBox[- ?) F' ]8 n4 s6 w6 Q% J' T. j! @
          RowBox[{"(",
    6 z" X* X1 T" T2 F6 Q       RowBox[{
    6 T" S; x3 j( d2 d0 w; R3 ~3 Y        RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", ) h1 Q+ ?' n2 |/ p. E  U, `7 z
         SuperscriptBox[) D  ?, {  a7 ]
          RowBox[{"(", / l# G2 ]& Z% _  s
           RowBox[{
    ! X3 ?8 C# O/ K5 h  K* {        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", ) t: I: W8 k- X* `0 x$ x8 R
         SuperscriptBox[
    + b6 I5 V# \5 l1 o      RowBox[{"(", . W3 e4 p' v* ^+ q2 N' J9 M, s  v) Q5 H
           RowBox[{
      J4 z( A2 N# s$ M        RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", ) o2 }& X2 [  o8 _1 G. i
         SuperscriptBox[
    ) l$ N& r. F- B4 _. ?7 D% f      RowBox[{"(",   L6 o2 @9 T4 y7 }
           RowBox[{
    ) m" i. u9 A: I) [        RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", , W* @3 s8 I" D* j- t, Z
         SuperscriptBox[
    ( ~. c4 N3 ?; }8 y6 m8 V      RowBox[{"(", 8 l; X( G$ P8 h
           RowBox[{
    $ w8 y8 V9 |5 G        RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", 9 A* O" J0 V* U8 b6 o
         SuperscriptBox[9 X3 a: P; e  r0 k6 D, k
          RowBox[{"(", 9 C8 w' h& g: k! x7 o& ^1 |
           RowBox[{3 a) D5 U: B3 |: v/ J" V$ m
            RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
    9 j( a; m) N' [9 }4 z: \     SuperscriptBox[; ?, j0 O3 x2 Q' H, Q* Z& O  C
          RowBox[{"(",
    ( s7 T! g# ?: g  ^- m       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    7 g  V' K/ |# q1 C     SuperscriptBox[7 }/ ^4 i# B& e8 B
          RowBox[{"(", 4 H. _3 p1 E1 K
           RowBox[{
    & B7 m: t* B( o; A  p        RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
    % K# p! n) f& e+ {7 X* G    ")"}]}]]], "Output",, l' }$ ~0 y1 J5 C
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]
    : t7 p# M5 u9 M( n* H( }5 F4 P% \}, Open  ]],
    # d' a  _3 |) Y! L
    . T( g/ N+ T) Y# t6 P) _Cell[BoxData["\:62df\:5408wi"], "Input",
    / [3 f( h0 F0 s CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],, h, C, S( C2 Z9 K& ^8 J7 G
    + ?8 `; x( X+ Q) |: L4 i1 c
    Cell[CellGroupData[{2 T5 U, s" f2 e6 U

    8 q" F' a- r. X1 y0 N6 zCell[BoxData[( v3 {% G* Q/ s, j4 r
    RowBox[{"y1a", "=",
    ) a$ J8 w; s4 F; ^* T2 {  RowBox[{"Table", "[",
    + I9 f- @& q' W( l   RowBox[{"x", ",", - E/ N4 y" P: I. F  U; l# l
        RowBox[{"{", 0 M6 D4 H; v% F* X# |0 @7 @
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",8 `7 Q" y4 f. x4 P: N  I# g
    CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {: a$ _, Q( f% d* g3 w6 w* G1 E
      3.5779226649375*^9, 3.5779226810625*^9}}],1 w  j% l, J( g( Y3 L2 I% H2 Q$ m

    " m% i! `8 L3 E2 k- b( J) X* [Cell[BoxData[
    * }- k/ U9 G# A6 P RowBox[{"{", & \3 t. X! k+ s% y0 \7 }
      RowBox[{
    , Y1 F7 m' V2 `$ i+ M% J4 G  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 R  C2 u3 T( u& h7 ~, y   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",. z$ W- ?! f- z0 S
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    ; n) e. J$ E% s$ w$ u- G6 u& b1 u: V   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    . F* {6 l+ s: E; y6 F   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    ; r1 Q3 Y  U5 P1 v7 s   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    5 [# }$ ]+ n/ l8 v  z; r3 F   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    % S1 |/ V- v, Z3 q! R   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 1 X0 q8 M& }% b: l2 p& M
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], " a! ?9 o& q" e' J
      "}"}]], "Output",
    $ L; B" y5 }9 \  y CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9, 7 G, n. S( a# n
      3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]+ L) n2 d' r/ b# s7 Z  F7 p
    }, Open  ]],
    5 Q  q  ^9 B. k' `
    8 w- c! E! c& a' J9 q3 WCell[CellGroupData[{6 S6 D2 K, z: ?. A' e9 m

    # ~8 w+ ], @2 x* O$ l, qCell[BoxData[% ?/ q6 l& Q. F5 k
    RowBox[{"Data", "[", 3 R# E9 N1 g7 E: [- l( L4 b
      RowBox[{"[",
    $ w( t0 [3 X% A- x4 p$ a7 K   RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",
    & d4 s: m5 _1 E# v6 E CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    7 [' Y0 G% i  E! g   3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],+ E  H3 ]+ q) s

    ( e& d+ l0 `$ K8 ACell[BoxData["0.899882`"], "Output",% h) P; O1 V' `
    CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
    0 ?# q# Z# f' L4 U% f$ Q0 |   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
    ! E" P- C8 o- A$ @8 c+ a& P, N' O   3.577961929080654*^9, 3.5780123419375*^9}]
    + |& w) P  @9 t8 f" z% ?}, Open  ]],0 ^# c  u) w* L% ~. @, ~

    ( E0 B* B, i- `; e. F8 ~Cell[BoxData[
    + ~2 h0 t4 ^6 Q2 D; h4 X* n3 G RowBox[{"For", "[", & D4 K4 u: `- r" i
      RowBox[{: T3 b! t4 w5 S
       RowBox[{"i", "=", "1"}], ",", ! |% t7 M- C, q  ~/ M
       RowBox[{"i", "\[LessEqual]", "60"}], ",", $ d6 n  g7 s1 f+ V$ V  A* y
       RowBox[{"i", "++"}], ",",
    ! t7 N+ i! g' S   RowBox[{8 Z8 L& s+ W( @- ^
        RowBox[{"y1a", "[", / V4 n( L" z! m4 }4 @
         RowBox[{"[", "i", "]"}], "]"}], "=",   x4 D* s3 N: k, i9 A
        RowBox[{"Data", "[", 3 F' x% C3 M: W! Y
         RowBox[{"[", 9 g8 w/ Y, s% C0 G
          RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",; o! g/ ^' k) \' E. `
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    % ]$ H& f# M( f3 [   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, 8 T& c/ l. d) c+ p
       3.577922923203125*^9}, 3.5779588839702806`*^9}],
    3 h  {! X: M  K# E: x( i6 M; S8 N1 ]9 `. i, k0 g" V/ V) F. b
    Cell[CellGroupData[{, x! \7 ]/ Y6 |5 j/ n' i

    ! [0 ^' ]! e: [4 g5 O5 f+ BCell[BoxData["y1a"], "Input",9 b0 f7 G, l/ C3 x# ?# \5 T! ^
    CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],3 Q, ?7 n; N+ c5 \
    4 u4 X/ a, ?; |) V+ a7 p3 G+ Q
    Cell[BoxData[
    ; a6 l# ]0 H1 w, L5 e9 `9 \0 D1 `! U% O6 w, b RowBox[{"{",
    % \+ M% N( h9 n+ m2 K  RowBox[{
    + u3 \& q' \% _1 \# h  "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",", 3 e  ]4 }- g7 }+ Y: X
       "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",", ! f: v7 K. A5 q, t. ~
       "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",", 4 H+ {% {6 [6 N/ g
       "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",", ) D* s, u" G9 K% \
       "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",",
    , N" W# x/ m# U* Z   "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",",
    + v/ L7 `: d, y9 J  C% k3 @   "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
    ) Q) Z7 J, \! l( E   "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",", ; G7 G' s: Z+ t0 u0 E0 t' E4 B
       "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",", : g: K3 ?# {, h, H6 g' z
       "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",", ' }0 G$ Q1 e5 p$ R( I
       "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",", ; t( ~% \0 q% t* b; w4 ?
       "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",", 0 J' a# A; @& I
       "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
    / `1 V1 z( a! @3 a: ]8 m   "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",",
    $ d, S' Y& z, s4 J2 l   "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}],
    - ^: K/ N' G; b, ]: v, l8 p  U  "}"}]], "Output",; G, j! r2 @& y1 W' `* S/ F6 {
    CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9, + Y( C/ p) g7 ]/ F" |
      3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]' C, d+ [$ f" c
    }, Open  ]],
    4 ]2 s) k/ Q1 f& K, I
    ' E2 k. A6 e6 P& QCell[CellGroupData[{5 I; `. _  A7 G+ E# m2 q) }+ s

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

    2 S- O, Z" ]! w8 xCell[BoxData[0 V5 F  Q: k: G0 b3 \7 K' z' l$ h5 I
    RowBox[{"w1a", "=", 8 H8 g0 `! s* z6 a9 k
      RowBox[{"LeastSquares", "[",
    & G. B  g  O8 Z& R   RowBox[{"m60n21", ",", "y1a"}], "]"}]}]], "Input",7 Z+ [6 l6 w3 s7 M$ R" U
    CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {  ~& G+ t7 s5 B8 y- k) ~
      3.577924662765625*^9, 3.57792466596875*^9}, {3.577962074644508*^9, 2 I1 m$ k9 I, c% f
      3.5779620748317084`*^9}}],. c9 y( [& ?0 M* ~" H) c

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

    2 R: O9 O. Q. B, q2 m( E* sCell[BoxData[
    $ d* x5 x5 z  o! z6 z* Y RowBox[{"For", "[",
    * V' {" B% j+ T  RowBox[{
    * U, z- R8 I: e& N2 C- h1 m   RowBox[{"i", "=", "61"}], ",", 3 a7 N& @5 i: {7 `
       RowBox[{"i", "\[LessEqual]", "89"}], ",", 5 N4 {8 n# V6 P) L# v9 y2 C
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    0 k" I: z0 X0 o; M8 q' S; g, K/ c   RowBox[{
      ?6 B; J! N! a4 ?6 z, E( m3 U+ j    RowBox[{! n, g( I+ y/ m% ]1 w5 K/ G7 Z
         RowBox[{"y1fit", "[",
    + }! Q! K$ K$ T9 a2 s( c9 c/ d      RowBox[{"[", 7 E' ]' Z& `. s7 `9 l9 Q
           RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
    6 r; G4 `% p# N4 u     RowBox[{"y1", "/.", 3 ~. o! k/ C0 ]: h9 ?
          RowBox[{"{", * o, X) ^# |/ D
           RowBox[{1 N* ~- |# e2 \7 H
            RowBox[{"x1", "->", / F) W. m" {/ v9 b% G: _5 W
             RowBox[{"Data", "[",
    % a4 G3 G4 M& J          RowBox[{"[",
    # U0 r- j) C9 m8 c' G2 S           RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 2 N3 Y/ [* I0 ?- q/ r- a$ n
            RowBox[{"x2", "->",
    5 }6 s0 L, R; w1 k/ x& b* s         RowBox[{"Data", "[",
    0 j; r( F( X! l% F- L          RowBox[{"[", ' u6 U) r0 Z& Z
               RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    2 v8 f) e! z8 B4 [        RowBox[{"x3", "->", ! m# _$ [2 ?# @( [: B
             RowBox[{"Data", "[", , f7 C, e. q1 W2 |" \) g7 n! V% u
              RowBox[{"[",
    ( |) r% F. d$ W. P4 q* t           RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", $ m: }$ ?0 r4 l' U% k
            RowBox[{"x4", "->",
    # Z  p8 t% X: {$ ]% C( I' ?         RowBox[{"Data", "[",
    + O- v, X( f% ?& [1 ~* N) j          RowBox[{"[",
    . I; v. Y* g* P# B3 U1 W           RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", : i: ]+ h: l0 u; a. \
            RowBox[{"x5", "->",
    ! L' n' u( V3 \0 S0 Y# u  P         RowBox[{"Data", "[",
    ' r: _# I* N1 I# ^4 V          RowBox[{"[",
    3 K" P, Q' _6 o' Y0 T  W           RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 8 m1 M2 I- a, n
            RowBox[{"x6", "->", % R8 ]7 u8 Z6 M. }% a2 u3 g
             RowBox[{"Data", "[",
    ( V5 G# R" C" v& F          RowBox[{"[", $ M2 H  q3 E' `! R' X! ]( u
               RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
    8 b" q* m; R( E& Y2 m6 `        RowBox[{"x7", "->", 7 L. T9 W* C. i9 R
             RowBox[{"Data", "[",
    2 r. C% u* @" G; |          RowBox[{"[", + C) R& e7 `6 a# p( r
               RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
    6 u& e* w$ s8 y$ }        RowBox[{"x8", "->", 4 V  X+ y2 p  V
             RowBox[{"Data", "[",
    ) C5 n/ L6 d+ U. D) u: N. {3 n          RowBox[{"[",
    6 ?$ w3 I0 }: G+ y. J7 w, i4 O           RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ( R' a" n7 E2 x7 P
            RowBox[{"x9", "->", 6 B, b4 B9 B+ p
             RowBox[{"Data", "[", , @8 j. ^# `& N0 ^+ \9 C$ b
              RowBox[{"[",
    9 ]+ }, U7 P3 O. ~           RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}], + W% d/ I4 A7 {8 B2 l/ k+ C' _7 x
      "\[IndentingNewLine]", "]"}]], "Input",, n3 F! c3 Q- l7 M( J
    CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {  e* n" w& V8 k& ~4 U8 X6 A' R
      3.577925286140625*^9, 3.577925306765625*^9}, {3.577958922517948*^9,
    ! e) M1 O+ k" `# I3 J  3.577958922549148*^9}}],
    2 [/ e5 m& M2 u. n0 _5 Z6 ?; Z5 h2 r9 {, n5 H
    Cell[CellGroupData[{% ]( k1 y! a- ~" R8 n+ G

    % I: K, B- \4 n" mCell[BoxData["y1fit"], "Input",! r3 I9 \5 C3 `: T8 I& X
    CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {" Y6 I6 }; Q7 }- q
      3.577925040484375*^9, 3.5779250440625*^9}}],
    % Z0 K2 }& G: p4 S0 ]: N* o
    $ d* F9 \  A' l& GCell[BoxData[4 q) L* j' r# C  v
    RowBox[{"{",
    # j6 Y! q$ x0 a  O3 u' b/ E2 s1 p  RowBox[{
    2 P# b$ ?4 G' J: {7 ]- L0 |6 v  "0.43193416525930517`", ",", "0.4501634853493982`", ",",
    0 H6 l  ^* s2 ]+ U   "0.33336034768525247`", ",", "0.4418609896858925`", ",",
    - |- Y2 Y0 _2 d  z8 n6 O2 w! @   "0.41030378932283024`", ",", "0.516814798191575`", ",",
    3 I* W$ X8 b, c4 m   "0.4476631213729994`", ",", "0.3016552978696669`", ",", 9 Y$ E! F) t  }5 |* c9 W9 o, D
       "0.378122167437847`", ",", "0.020339844919720733`", ",", 1 q" M3 ]' I6 t0 y4 U3 R
       "0.018745375782087376`", ",", "0.2919925992695025`", ",",
    " H( i% `' V! ~* @3 F/ I: f   "0.2649067959681263`", ",", "0.16343444284525593`", ",",
    0 w( Q' ~7 w" Q   "0.4182466778551563`", ",", "0.27347752211364934`", ",", , F/ s+ v1 j4 H$ u% ~" ?- m! h
       "0.38554057386385654`", ",", "0.35253160453718047`", ",", 6 c/ Q  A, X7 i% c2 X# K
       "0.2054745841100774`", ",", "0.45504377112716676`", ",",
    " g+ n) G0 y# M. G! t) m   "0.1598805094678612`", ",", "0.18662509982279485`", ",", 2 G$ Y- m* c: Y/ s2 o4 Z% [; l
       "0.10684797493248213`", ",", "0.013349212673286828`", ",", : b9 r' K) {( R
       "0.08215836003004297`", ",", "0.2979041599362813`", ",",
    ( g5 ]# r" M5 a   "0.05995976512343641`", ",", "0.3884793499104568`", ",",
      Y! ?6 q( E; R+ G* X   "0.5361889337034293`"}], "}"}]], "Output",
    1 V$ z9 z3 s& C, h0 t8 \% [" n CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9, " c5 a9 ]; E/ v8 N, [
      3.577925312375*^9, 3.5779575978808002`*^9, 3.5779589654960227`*^9, - \% f/ p1 J$ M8 g% R7 h
      3.5779621416934247`*^9, 3.578012355546875*^9}]+ g- I/ `: Q1 O
    }, Open  ]],
    4 L" }7 w! e+ r7 U! |* n/ ^: c+ i7 P
    Cell[CellGroupData[{
    : L9 ]& b0 W7 L. e
    4 T2 R. c  s3 N7 E3 I" D% d) p) nCell[BoxData[
    6 F$ d: v4 S) i2 [ RowBox[{"y1fit", "=",
    2 h# n! q" L3 \  RowBox[{"{", ! o# Z# A3 {  b. m' l$ a
       RowBox[{9 ]/ G2 i. K3 p% B! R5 O
       "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    4 M+ ^' x0 p" M    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
      r) m* n( C/ ^7 J7 u    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    : H% S# S- H! n    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
    , A* D2 O( ?4 H# W/ z6 z. I    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", , C2 ~+ S- _+ N4 K4 N
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", ) {: h$ i& S/ N$ e5 p" G
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", 7 E5 w8 A* O# X/ ~, q1 q; R
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", % x+ B5 n8 W2 w6 w
        "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", : h6 Q2 ?" u, v, V. {* j% J
        "0.4319341652593058", ",", "0.4319341652593058`", ",",   i, n: e' p; K( ^
        "0.45016348534939865`", ",", "0.3333603476852527`", ",",
    % m1 F+ f4 K& j9 ]2 b/ J- `' j    "0.44186098968589294`", ",", "0.41030378932283074`", ",",
    " `3 \: e) z% v6 @+ M    "0.5168147981915754`", ",", "0.4476631213729997`", ",",
    ' r& X1 c  Y, o. u    "0.30165529786966755`", ",", "0.3781221674378473`", ",",
    + D1 e- C* R% s4 Y9 {) I2 [8 h    "0.020339844919720775`", ",", "0.018745375782087393`", ",",
    7 \7 R* j  Z9 l    "0.2919925992695026`", ",", "0.26490679596812655`", ",",
    $ m, t7 r- H) P0 c: E0 k    "0.16343444284525593`", ",", "0.4182466778551567`", ",", 9 b# ?' O1 t- L4 o6 R* v
        "0.27347752211364945`", ",", "0.385540573863857`", ",", ' s, w; x1 T- O3 V$ S8 c# g
        "0.3525316045371807`", ",", "0.20547458411007796`", ",", * i2 ?1 s( N) }, f$ E4 p$ G
        "0.4550437711271672`", ",", "0.1598805094678611`", ",", 2 t  C+ x6 v7 p' O
        "0.18662509982279502`", ",", "0.10684797493248224`", ",",
    4 J5 k1 Q" e$ S& [! V+ w    "0.013349212673286806`", ",", "0.08215836003004302`", ",",
    9 @% {+ w, F) c5 ?% H% A    "0.2979041599362817`", ",", "0.05995976512343637`", ",",
    3 g  I2 @1 w- E1 f7 A. E* K5 ?    "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]}]], "Input",
    & S6 o- V  M# F$ C CellChangeTimes->{{3.577959701349306*^9, 3.5779597161381316`*^9}, {
    0 C8 q1 b' h) v- D  3.5779621548286476`*^9, 3.5779621618642597`*^9}}],
    . K8 F9 y9 Q% [6 K. f. Z" Y. @6 T; q6 I0 N
    Cell[BoxData[
    / B/ [0 Y9 t, q5 K  `  t RowBox[{"{",
    2 t& A) I9 A. s4 R  L1 P5 L  RowBox[{
    ! Y/ W( L7 I  v$ U/ S7 n1 R  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ( w+ G6 y, B  Z, l2 ]1 C
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    + W  ?1 p  f( t( Q    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    6 k( K  G1 U$ ]   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ! h- E$ U2 w0 C8 S. p7 ?
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    ! k8 C$ |5 g8 i) A% I7 {$ F$ U   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 6 L9 Z: Q, U8 {; V
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    . l; Q! m# x+ F( _" a$ \( w$ i   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",   e1 _0 S; @& T3 }
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    5 t8 h. Q, {4 s& ^3 I; Z  L$ T   "0.4319341652593058`", ",", "0.4319341652593058`", ",",
    ' u4 P( {1 A7 F! a" A   "0.45016348534939865`", ",", "0.3333603476852527`", ",", . T( S0 V6 l' r' @- i0 |
       "0.44186098968589294`", ",", "0.41030378932283074`", ",",
    8 E1 R( D& `! E1 W- ?# Y   "0.5168147981915754`", ",", "0.4476631213729997`", ",",
    0 |5 e" ]4 H" ~% {/ [   "0.30165529786966755`", ",", "0.3781221674378473`", ",", & H* U1 n% N  M9 N/ B
       "0.020339844919720775`", ",", "0.018745375782087393`", ",", 3 ^, H* N5 ^/ W0 V; `
       "0.2919925992695026`", ",", "0.26490679596812655`", ",", / {7 n. N* |- A9 N* {# j$ U* w8 O
       "0.16343444284525593`", ",", "0.4182466778551567`", ",",
    # z* I6 X( H( w- F2 i$ K6 v7 n   "0.27347752211364945`", ",", "0.385540573863857`", ",",
    8 o) h( s, i. N4 j: o' H/ _( x# q1 v! r   "0.3525316045371807`", ",", "0.20547458411007796`", ",",
    / X" K: x  N4 e  a& B   "0.4550437711271672`", ",", "0.1598805094678611`", ",", ! B) C: \, F( D
       "0.18662509982279502`", ",", "0.10684797493248224`", ",",
    * c; i2 j8 g5 }; d& _   "0.013349212673286806`", ",", "0.08215836003004302`", ",", , O0 I9 |! R7 J7 K
       "0.2979041599362817`", ",", "0.05995976512343637`", ",", 2 G9 E$ N2 ]) L6 K
       "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]], "Output",, a2 p8 S# l9 @% G) u
    CellChangeTimes->{3.5779597200381384`*^9, 3.5779621650778656`*^9,
    ' G$ i7 P3 S. ?4 R2 H6 [5 v  3.5780123569375*^9}]
    9 H3 H0 r8 \! ?# P5 `+ o  z1 v}, Open  ]],
    ) i" {) ^( i4 {, V3 H7 R0 z
    7 n4 y" |  t* H6 H7 r5 F& _, SCell[CellGroupData[{3 ~1 T+ e! }- `8 ^  d) {

    . h# b: E2 N( x1 P+ I% nCell[BoxData[
    ' \; V* d; b; M: l- ^; q% f/ E RowBox[{"y10", "=", - j, G' t1 N& J7 n; Q! G. [
      RowBox[{"Table", "[", 2 A. W1 M+ o; V, Q$ r! N
       RowBox[{"x", ",",
    + a- ^* f/ c0 G1 z+ y    RowBox[{"{",
    9 V. `" P8 w; a; }0 I, b2 [5 u0 X     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",1 n" w3 j2 z6 B3 C
    CellChangeTimes->{3.5779253628125*^9}],
    . F8 W6 A- k2 R4 G, w! L' v! q# P( m
    Cell[BoxData[+ |8 H  }* p9 j( j3 N  y3 S
    RowBox[{"{", & R+ e; s9 Z; a+ \2 u/ h6 v5 C
      RowBox[{
    7 @- R  W. n, r6 u% M; p  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    - m2 I  o1 ^% H  i   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",  q5 F; L  W: y  X0 g5 P
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    5 z  P& ~7 E2 y; H- ^; Y4 I! _   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ' q6 L2 ^/ M! {* E( c
       ",", "29"}], "}"}]], "Output",
    6 ?, R. Y0 g1 D; Y( F$ t/ x CellChangeTimes->{3.57792536553125*^9, 3.577957599565603*^9,
    + t: T( S( h+ z9 R/ \  3.577958967383626*^9, 3.5779621678858705`*^9, 3.578012358609375*^9}]
    5 t7 i" I* @4 Y}, Open  ]],6 M! Y: X; w$ X  u3 Z& B9 I

    , z# ]4 m, G( c6 X9 A7 s( W0 ECell[BoxData[
    ) a/ R" R( E6 h1 w/ F7 e RowBox[{"For", "[", " T! D, q3 W; i1 R$ Y
      RowBox[{; `% y7 `" O2 Z+ ]* H8 A) R. J+ J
       RowBox[{"i", "=", "61"}], ",",
    , u" s, n' c! q0 _( \* O! g/ g   RowBox[{"i", "\[LessEqual]", "89"}], ",", + s" \+ G- W$ j7 Z7 y
       RowBox[{"i", "++"}], ",", ' K" z) _8 f! C( w
       RowBox[{, W* V/ r2 ]) F9 Q4 u' m6 ~! w
        RowBox[{"y10", "[", / k0 B( ~. ]9 ]
         RowBox[{"[",
    $ p$ _+ N" k5 D$ Y1 C% |& s6 K      RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
    - B# c4 a5 U( @' S    RowBox[{"Data", "[",
    # Q) a) M% T/ D; T- j     RowBox[{"[",
    + K' X# I- ]' _7 Q( Q. j      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
    " E9 U' D8 y4 Y4 A CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    " s; |" i- J, ~- [4 `  N   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    . g. H9 g: S* C   3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, - f6 E- K. t/ O6 G% z
       3.577958922549148*^9}],; C/ |! s$ z% I- `1 P0 `7 F' g; N

    * F/ [: H$ O. N$ s. g# lCell[CellGroupData[{
    + V7 r# h& A! V& [0 S
    / Y$ |2 N" v. P4 v& ]2 xCell[BoxData["y10"], "Input",! V. d/ X$ G/ ^. l, p/ u% m# Z
    CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
    & T0 A' n& J" N: h0 S   3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}],8 I1 C/ Z+ l' l; H' o
    , g5 T6 T* u/ e
    Cell[BoxData[
      S6 J8 o! H. p! c( W+ g RowBox[{"{", 4 {6 U# {9 k3 h# c" U
      RowBox[{
    $ K# X6 _5 f; ]' e0 }9 j  "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",", $ f' i3 ~7 r" v2 x' ^2 F
       "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",",
    / {2 s6 R: x% l" G/ o. V7 d   "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",", 6 P# Y4 l6 Q; r- r6 m' q+ R
       "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
    " [- {( c" M$ Y7 _% c8 v   "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
    # z* O6 K! T" r8 i) M  ^" k   "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
    7 m  ]; \: R; y) ?   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
    0 S+ m) ~  J8 ^8 X   "0.694935`"}], "}"}]], "Output",5 W0 k; l+ ~, C0 \" Z
    CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9,
    + U/ X/ @$ i/ F& m' ^# \* j  3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9,
    3 m  q* ^* e7 q* h4 H3 V$ Q  3.5779621736734805`*^9, 3.57801236071875*^9}]
    7 ~: m/ o0 r7 [$ O9 {3 G  U}, Open  ]],
    5 t% w- \( R4 n" [8 |; S
    0 @! S8 W# O, q- fCell[CellGroupData[{
    / o" p% w' r& A- d0 I7 `" ~
    : n4 E6 N( V! L% U( tCell[BoxData[
    2 j* O. x. s1 a- x8 k) h+ ` RowBox[{"y10", "=",
    2 I- D: q; q( V5 W# L  RowBox[{"{",
    6 ^8 t+ n/ S; Q" F; V/ x   RowBox[{
    # b6 `) \% L, R; S& z4 [$ g   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    $ y5 s. D' ~& {' K. G: v% y$ ^' n    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' y% l. n& [( S! ]
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", 5 {/ s' J" K$ X9 R
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", 3 W* I/ w- d$ `1 G: C  x; Z! f
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ) s% T/ k# G' L3 W6 R+ M9 d4 [' @
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
    & _* f. p* [- L" ~2 K; U    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    $ c2 A9 ~+ G, U& H% S* a    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    6 u2 \( @& I- [, }7 x    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    & M' c: x7 ~( P1 q9 }2 o9 C    "0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", / C7 ?/ n0 }6 w2 d  O, E/ w
        "0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",",
    . ]$ A  v4 X4 p    "0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",",
    : b9 ~( B" D+ A' k    "0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",",   y) c) Y. N0 e3 S: X2 o- [7 G
        "0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",",
    7 h2 t9 R2 g5 B* Y8 L    "0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",",
    & E* J* Z: r0 j' |; L    "0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",",
    ; O) L3 X& j* S2 ?6 r1 E    "0.390754`", ",", "0.694935`"}], "}"}]}]], "Input",
    5 i+ B# L4 Q% {% U7 y# E  v CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],- b% R: m; ]4 C$ A7 b2 ~  m! ?8 K
    - T" P- E( m8 k+ r% j
    Cell[BoxData[! W/ J" U1 r' I  R
    RowBox[{"{", - O; t" y* V7 D+ ^
      RowBox[{/ @7 c  I6 I" p* C& ~1 j
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 6 M& D+ l+ G! C
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    , w5 Z5 r# J( h& L    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
      M% m( r8 ]  h# [8 K- _  G: L1 t   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", % O7 R. |! q: r
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", # V0 C# k2 U! F! n: D( i8 r
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", ; x/ q; _4 ]1 m
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", 3 A- _+ n0 F* |# k
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 9 _4 f+ ?, \; h- C+ c$ J
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`", 5 G( q/ V6 w7 f) X; V8 {
       ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`",
    * X# Q8 H7 Q% \# G   ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`",
    ; o- ]. u' Q  ^/ b   ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
    & a$ e9 z7 n$ z: T( V* Y/ l! o4 I4 E    "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",", 0 w7 Q& L2 d" V' x
       "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
    9 \6 q5 m+ x3 `4 G9 i2 y   "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",", 8 M5 S6 g: c) o+ t' w5 D& A! [
       "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
    ' r: D. S7 G' y& Q   "0.694935`"}], "}"}]], "Output",, G% p+ M; r6 P# M9 h
    CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9, 6 h$ N8 H  H: D, \3 A
      3.578012361734375*^9}]
    ; L+ h0 L  \0 O: P& h6 X% E}, Open  ]],! E! e0 B( q  I2 c4 F3 m

    ! U+ G! w9 a% y/ R5 z0 {2 r% pCell[CellGroupData[{# k# V, f" k5 Q+ d4 U' r

    9 S3 C$ u* ^& V. ~! s* x8 F2 OCell[BoxData[$ l) i+ |: m5 {: o2 A! v3 o, d
    RowBox[{"p1a", "=", $ X; V/ [+ K* |# g4 }
      RowBox[{"ListPlot", "[", - Y. B+ h1 K* j/ K  o1 Q% A
       RowBox[{"y1fit", ",",
    6 z6 m% b( g' U" v7 [    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", + T1 H" A7 v1 H$ f
        RowBox[{"PlotStyle", "\[Rule]",
    + \9 J1 r: O" ?( z     RowBox[{"{", * B1 D0 x8 F( P' J
          RowBox[{"RGBColor", "[",
    6 j& X2 N1 S- ?5 y4 i       RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",", 1 z- f3 q& v4 o- D! o) f+ R' ?
        RowBox[{"PlotRange", "\[Rule]", & v. Q+ w. i2 \/ }/ N! f
         RowBox[{"{", ) h9 e" C& q- a. c1 S0 z
          RowBox[{
    3 ?% X) q: A6 g! P! u, P, a       RowBox[{"{",
    # Q# Q, u) L0 g5 }+ o        RowBox[{"61", ",", "89"}], "}"}], ",", 4 n/ G- F* k3 Y1 Q% Q
           RowBox[{"{", + N2 e% C6 U, J& i
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", : Y+ _' f) N5 \0 J
        RowBox[{"AxesOrigin", "\[Rule]", & s/ f( y+ R2 w; x9 D2 Z
         RowBox[{"{",
    ' ]9 ~! V7 b! ?0 N  R2 @      RowBox[{"61", ",", "0"}], "}"}]}], ",", ' ^* J+ a0 ]+ W& O% z, z7 G
        RowBox[{"Frame", "\[Rule]", "True"}], ",", 9 a9 B/ e6 |) L# F7 N  p9 o' m
        RowBox[{"FrameLabel", "\[Rule]",
    4 \  \" {) A% n  b1 b2 E6 Z5 q     RowBox[{"{",
    / q5 d# x$ ]) B* d* g2 u" _* n      RowBox[{
    0 M3 L+ y1 v) x, [      "\"\<\:7089\:6b21\>\"", ",", ) m; N' M5 A8 R) o! M& e0 o; P) r, O
           "\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
    6 c. k8 k. d! L& ]( j2 q& I\:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",& [9 A6 a6 @1 \
    CellChangeTimes->{( q2 C/ V$ ?: b! L9 E8 g( w. T6 e5 ]
      3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
    / J0 s$ p: g# Z/ t  v6 W2 w3 A   3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9, ! l& t+ [0 c0 P; i1 |( R
       3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {2 h8 X2 S' n8 X. o4 v3 k7 X5 h
       3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],, n/ C( C! Z" N! K2 a0 [

    ( C' C8 d' e  s% ]Cell[BoxData[
    9 @. o+ P: }6 [3 A. T GraphicsBox[{{}, {},
    7 v$ ~# _; J) n6 b+ J5 r- D" J9 @   {RGBColor[0, 0, 0], LineBox[CompressedData[". I8 |" G2 a# f" Y8 M9 d5 l
    1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
    ! g% z! x( ?! q+ d8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq+ n5 y  s. w. E; a( k
    D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
    * f& ~6 }; o* v0 o, O& F1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX5 Y. p" [+ t, T; C3 Z1 d: N: u, {
    C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN9 O3 [: ^, _/ N: {, v
    a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff- R, \( P4 j$ k/ j
    yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
    : ~  E$ [% M8 `0 k: M8 F! MwrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
    & `7 g& R- L, y& I0 ~4 eY6nGQ3sAieueIw==6 N2 }6 G! w! x
         "]]}},
    + N! k8 d3 z3 E$ T" d  W  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],) V% V/ }* P. i6 V% N/ o1 K
      Axes->True,, ~. c) N2 E+ y3 ^( l- i
      AxesOrigin->{61, 0},
    0 ?+ C: I1 q, w+ R  Frame->True,
    6 b0 l6 @1 r2 m4 s  FrameLabel->{8 G6 `* T$ N/ j! i- A( i+ O
        FormBox["\"\:7089\:6b21\"", TraditionalForm],
    3 q! Z! l3 x( `! k- S    FormBox[  p  y" D- ]9 d5 Y* g4 C7 r
        "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
      s4 ?" V4 p- n9 Y8 a4 r\:ff09\"", TraditionalForm]},
    ) c3 b7 \) M# ]: Z  PlotRange->{{61, 89}, {0, 1}},
    * _1 [4 m7 q2 j# B8 t) I) z  PlotRangeClipping->True,
    + I1 Z) T0 `. m/ N+ E  PlotRangePadding->{Automatic, Automatic}]], "Output",# K1 J! k% V: Z8 \( @
    CellChangeTimes->{
    ) e% x, \' Y( z+ p  3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9,
    " [" F) Y& Z5 T& S0 I. d   3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9,
    ( @! x7 P& l4 u) @   3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9},
    2 o; L+ j7 _8 `; |- u* i3 P   3.577962187510705*^9, 3.578012396921875*^9}]* k/ E- X6 p: [' ?5 }
    }, Open  ]],
    " W. v( f0 Y( l0 Y
    ' @0 T8 c, m$ eCell[CellGroupData[{6 ?) J& ~3 @0 C9 z* Z+ r0 I
    1 V& B$ a" }* [' C) s1 E
    Cell[BoxData[+ H- s+ Y6 }9 `5 t$ n+ \7 [7 \
    RowBox[{"p1b", "=", : A, Q# D6 `+ a5 k+ K  Q1 C
      RowBox[{"ListPlot", "[",
    5 [1 |* U6 [/ Y% C; c   RowBox[{"y10", ",", 5 o# A; V+ r: b2 b4 y# i
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    . k3 t. a; B. s3 U7 B$ m5 ^    RowBox[{"PlotStyle", "\[Rule]", " h! _# O6 J% c
         RowBox[{"{",
    ) Y" A* X% M: S) Z3 B      RowBox[{1 r3 @# |) a- v1 [( U
           RowBox[{"RGBColor", "[",
    0 P+ H& N5 f0 w) G$ @        RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}], 3 F. W! I$ t: F: E8 m! l' B
        ",",
    9 D) ~* d+ x2 ]7 h' |* V/ t    RowBox[{"PlotRange", "\[Rule]", " P3 E# B. j. ^
         RowBox[{"{", , q3 r$ ~& x+ X! k: @
          RowBox[{2 e! F+ D( [* i" c; j1 m
           RowBox[{"{",
    $ W6 }7 C3 h9 m; C        RowBox[{"61", ",", "89"}], "}"}], ",", 2 p. \* e, g3 W& S# [
           RowBox[{"{",   F7 q& }4 ]5 D+ L- V
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    9 R* [2 I! T6 Y* o    RowBox[{"AxesOrigin", "\[Rule]",
    ; c4 c3 J/ ]. ?, ], P     RowBox[{"{",
      }# ^6 r. f. t' w6 Y      RowBox[{"61", ",", "0"}], "}"}]}], ",",
    - t& B" G7 t$ ^3 X2 T' i: F; V    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",+ @  W+ h" y- n' C0 X
    CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9,
    # j5 y4 |- k. i$ K0 U; _  3.5779597764166365`*^9, 3.578012409265625*^9}],& X4 K) r1 {% C( H8 |

    " @1 H) A* T: A' |0 l) hCell[BoxData[- X# V& I$ C$ R1 Z7 v. C
    GraphicsBox[{{}, {},
    8 a7 G8 j# r8 T& m' q9 i9 D   {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    8 P7 e( h& }, E* V6 A1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ! O1 l1 W) v4 m' v# o) F
    /B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy: c. d( D/ W  x$ ^0 v# L0 V
    GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
    / ^9 h3 y+ Z8 s) H* qGFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
    9 W3 m' y+ V8 L5 h9 l) e% w! c7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/$ {5 @: ]8 \4 c- w; Q, u
    Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
    ; b: g" ~- I) bH+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
    : H; l5 F. l; |7 j- TrQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T7 q: S$ t/ K: e- \. c3 ~
    vA==+ e6 ^( D" R8 B3 c
         "]]}},
    1 @0 R& Y, ?1 ?4 A0 t8 j* h  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    ; N, c8 s8 A. ^1 Z  Axes->True,0 d8 t) p% u0 n! w3 W4 i
      AxesOrigin->{61, 0},. S' a( N0 H7 U' m) B
      Frame->True,# i4 o- f4 Y* P
      PlotRange->{{61, 89}, {0, 1}},
    1 W( _! l0 k# h/ g$ H+ [# G  PlotRangeClipping->True,
    5 c/ F1 A2 O$ U  PlotRangePadding->{Automatic, Automatic}]], "Output",
    2 q) Z7 z9 W) p CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
    % Z! V" ~; m' x1 S  3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9,
    $ Y. h" f6 N; u" V+ ~! I" A  3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]
    : O5 n3 D+ G; L0 X}, Open  ]],
    6 |/ G7 R$ M6 X3 E) }" |5 `4 t! Z7 X( C9 U3 g) E
    Cell[CellGroupData[{
    * n+ j4 A6 f: S# Y" K
      e! s# l6 F& m0 s$ g* Z" {Cell[BoxData[
    7 G# y) A. d# X( U7 W RowBox[{"Show", "[",
    9 C$ A3 K! B' C: J  RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],
    + f& f/ n9 V  @2 i% i. i) Y  m# ?1 E1 W+ g  N5 A
    Cell[BoxData[+ q# Z3 U+ b" R0 Q2 A) j- Z
    GraphicsBox[{{{}, {},
    % }9 _6 o8 l+ Z: y) G/ Y4 @% x* W    {RGBColor[0, 0, 0], LineBox[CompressedData[", \% g  N- S, R5 ]8 ]- _) X
    1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn; Z/ W8 P8 E" g
    8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
      ?' w/ c2 P3 w8 c) Z' y! ZD3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B2 `9 S! P, l+ b
    1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX1 q) `) e. v5 A. @9 @# S; \1 J
    C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN8 O$ b# v1 Q1 {. I% N
    a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
    2 R1 `- Y& i" w/ P5 ~yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
    ( p8 a% d  \7 ~7 i( o- `. ^wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
    & L# P& e. S! z# I$ V0 PY6nGQ3sAieueIw==2 F* z: p; B; d# K5 r3 E
          "]]}}, {{}, {},
    / [; h  Q* S+ R) d4 e, B3 Q$ L" X    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["' M; ~  m% I  ]- w" f* K
    1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
    ' Z2 l' F+ ]# j/ W8 n/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
    ( p1 |2 ~! _- Z/ VGwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy; c8 z4 J* K: C* _: N
    GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
    ! t6 ]8 A) \1 O1 `) G7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
    - ^& }/ v+ d* J5 u5 |Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
      h! `4 O2 t, k- P7 k" E" i1 c) TH+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV+ p; U9 ^; i$ L& Q
    rQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T; s; |5 W  c/ F3 L, j6 ]
    vA==3 M* w2 _. f/ ~0 l# C* e) O% d
          "]]}}},
    % C6 O4 n/ x; @  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],7 F. E, U- h/ y; j* R: L- p  j
      Axes->True,9 O# l) x* E$ W4 ?4 W
      AxesOrigin->{61, 0},
    + x2 f* L  k( l7 X9 U# Z1 f  Frame->True,( o1 q2 ~% O7 w
      FrameLabel->{, j' c) @; k0 w- S% A
        FormBox["\"\:7089\:6b21\"", TraditionalForm],
    ! C9 T/ E9 m! k4 m  a1 K6 \! k    FormBox[
    3 h& Y$ l) v9 j2 g1 j+ m7 E    "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\: r/ {" B( p2 }9 ~# j! s. G! F
    \:ff09\"", TraditionalForm]},/ m- @- H, h) F
      PlotRange->{{61, 89}, {0, 1}},
    8 p$ v& r% C- b0 z) D4 e% p  PlotRangeClipping->True," o/ X( t/ q, h0 G
      PlotRangePadding->{Automatic, Automatic}]], "Output",
    * j! W* {/ U/ r/ i CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]- e6 ^  P( I' n1 E. e
    }, Open  ]],
    5 {% |' ^% B2 B/ S  T! o' I# p) A1 x" G# [
    Cell[BoxData["\:62df\:5408wi1"], "Input",
    ' Y- Z0 O% P% y, Q; h CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}, + K, |. y2 V0 ^) o. V" i  m6 ?
       3.577959662349238*^9}],
      e# k/ U% I) i+ j$ B
    / T) U. J; x# f' k; K/ I9 SCell[CellGroupData[{' H- t7 x0 k/ B, N* h4 i- s

    % S! Q9 R. r3 m2 ]" M, lCell[BoxData[$ I# N% x3 \& |; E& G# i8 x
    RowBox[{"y1b", "=",
    6 k/ y0 n; o1 I  RowBox[{"Table", "[",
    ; S3 w& Y( M0 k' c" G   RowBox[{"x", ",", 5 b6 s- g  k8 F: d
        RowBox[{"{",
    + |+ K" b% T% _5 n5 v' n2 j- O$ R1 f     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",9 j( V# v$ h) r! S  d" Y& r
    CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    ' H- U! Z* ~5 U   3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}],7 q" X6 ]  {5 _

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

    - W. q( p# E  Z8 j% \Cell[BoxData[0 I9 h0 i, o5 C- [) ^) x9 o
    RowBox[{"w1b", "=", % J& m6 o$ G& k: X* H3 B- z
      RowBox[{"LeastSquares", "[",
    + ]4 J" i' A8 X  y  A0 c7 i/ X   RowBox[{"m60n21", ",", "y1b"}], "]"}]}]], "Input",
    7 b8 [: {" j: ?- C( F- ^! a CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {
    , b1 Z( A1 X: i' q7 b$ z# z  3.577924662765625*^9, 3.57792466596875*^9}, {3.5779582865360394`*^9, 0 _% }9 L6 O, n5 w
      3.5779582963172565`*^9}, {3.5779622900808835`*^9, 3.577962290377284*^9}}],
    + j" B! Z: h7 r- {0 v8 }& O- c) D( A  z8 y6 j6 v; Q9 K$ H4 Y2 F5 s; k
    Cell[BoxData[+ E+ Y- [- D1 \7 ]' q2 m4 \
    RowBox[{"{", ( h: i& Z) u7 o, u' ?9 A
      RowBox[{$ _2 N) ^6 e" ~$ r
      "0.48228184971363947`", ",", "0.16041393254115022`", ",",
    + I3 G7 s4 A( l9 d   "0.3741982811661129`", ",", 7 e, e+ |9 S) S
       RowBox[{"-", "0.12620581913715245`"}], ",", "0.28831860112966734`", ",", 2 m, s; u9 P- l
       RowBox[{"-", "0.2282993884666894`"}], ",", "0.3207174990295839`", ",", # m& S  D, K( |/ b8 A  x$ j
       RowBox[{"-", "0.4666313851213302`"}], ",", "0.27551257162880227`", ",",
    3 o9 t! e# z! ~/ v9 ~) J   RowBox[{"-", "0.025873988843993667`"}], ",",
    $ L( I8 I5 U+ }8 X' Q$ n   RowBox[{"-", "0.1339854044819916`"}], ",", ' V, f& x% l# C! u4 p
       RowBox[{"-", "0.15852708848338315`"}], ",", "0.3129687276967983`", ",", 8 E+ o; X) l1 w! w5 s. Z5 |
       "0.45723850991134063`", ",", "0.2954923840077215`", ",",
    0 o! t. [8 e6 A, o   "0.9125798890455868`", ",", "0.21159052285983104`", ",", 2 w6 p, q. q1 G2 L: w# o* m
       "0.5575503376854456`", ",", "0.6019775648968265`", ",",   P! Z& b2 `& g/ A' B! E& B  n
       "0.2361524780938108`", ",", "0.12782130225993923`"}], "}"}]], "Output",1 N3 d4 X$ x  x  {. _+ \1 W6 |/ J
    CellChangeTimes->{
    ) _7 ^; i) g% _" ^/ Y& j1 z$ h  3.577924621953125*^9, 3.5779246688125*^9, {3.5779582894220443`*^9,
    + u4 V/ H* B8 D4 h1 S+ C6 R   3.5779582992968616`*^9}, 3.5779584995700107`*^9, 3.577959040157753*^9, 5 b, Z& l+ {8 I% Q5 w
       3.5779622919996867`*^9, 3.578012447734375*^9}]( q" C  h" l* m" _: t
    }, Open  ]],: Q7 Y. _# N2 O' b2 x& e6 H

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

    & n% q! i% C6 LCell[BoxData[
    ) l; y  ]/ A& [* A: p RowBox[{"{",   I( ^8 Q3 n8 L8 T0 j  H+ F* A
      RowBox[{* g: Q! g9 X9 J! B! g; ~. X. r
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", / O* h/ B8 Z/ S# a# [
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    1 v3 c3 f8 v8 `: w& n2 v    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 8 ]  i4 N7 z! \) }; k& B3 V7 ^1 r3 r
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", / x& P6 ~' Z4 g  G
       ",", "29"}], "}"}]], "Output",# f* L2 u' X) L0 }/ \
    CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9,
    4 i& H3 J3 v4 f/ i) |  3.5779583268153095`*^9, 3.577958508118826*^9, 3.5779590470685654`*^9,
    ! i7 j2 P+ p: K7 P& V  3.577962320173336*^9, 3.57801245028125*^9}]' ^0 f: K8 K5 I" S9 }. i. B
    }, Open  ]],+ H3 ]% K/ b' v- z2 {' }3 l: D

    ' V! j8 _+ H' o# S; rCell[BoxData[# J" ]3 S1 ]' W: j) e" Q
    RowBox[{"For", "[", - Q- u6 e6 o8 R7 K- {% p
      RowBox[{
      N: A, b- r# N   RowBox[{"i", "=", "61"}], ",",
    0 s9 j5 u% x# A2 s! n' W   RowBox[{"i", "\[LessEqual]", "89"}], ",",
    + h3 Z, c: \+ n   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", & Y. h. H0 s9 |* T  }" X; [
       RowBox[{  }- W' |0 G4 I: r2 i
        RowBox[{
    # u# ^6 n5 V; o, V( j" l; E; y, b     RowBox[{"y2fit", "[", 4 q8 W* P) o) ]0 S  A" \
          RowBox[{"[",
    7 O* @4 |$ c1 c6 k2 f! b+ ]       RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", ' q! U+ R/ T, f+ h) g
         RowBox[{"y2", "/.", & l( Q$ i6 t; ]
          RowBox[{"{",   P- h; [/ }! p" y
           RowBox[{
    - L/ J2 C. p* S        RowBox[{"x1", "->", 7 m- I2 j! l7 u/ @
             RowBox[{"Data", "[", " _! v, \" O. s4 o, C- n, U
              RowBox[{"[",
    0 Q1 J# n) P. W, M. l( U           RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", $ e* d1 g8 u& y) T; b& E9 W3 R
            RowBox[{"x2", "->", " L# i9 b: p0 ]2 u- i
             RowBox[{"Data", "[",
    " k. g& Y8 W" K! I% ?$ K          RowBox[{"[",
      S2 c& ]+ t- k- T) H           RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    ) y& \* V" h+ u; Z: T" T# i        RowBox[{"x3", "->",
      r5 A3 r# a) l0 w         RowBox[{"Data", "[", ! C3 t9 U2 H+ ^& k- @) j7 b
              RowBox[{"[",
    - J6 p2 b3 H. W; x" o, D/ E           RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", : R" j8 P% ?8 ~5 Y; d0 z
            RowBox[{"x4", "->",
    . o* Q/ j, b9 k% F* u& d         RowBox[{"Data", "[", - U* l9 K+ o! C2 j5 U
              RowBox[{"[", 0 r  ?3 Q# h' p
               RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    % o: h- r# \" {  _        RowBox[{"x5", "->", 7 A- l5 P3 |. u! j
             RowBox[{"Data", "[",
    / }4 j7 s0 [2 f8 r& n. J          RowBox[{"[", - _2 Z) h6 v; w, u
               RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    # _+ ?9 O  d2 W1 F/ _' d6 H        RowBox[{"x6", "->", 8 _* p! _/ u. q( }% q7 W
             RowBox[{"Data", "[",
    ' y8 z8 Q0 c# v          RowBox[{"[",
    " {/ v/ z6 u# Z2 L5 m% {           RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
    / Z0 V9 W+ ~! R6 Q* `  S) y        RowBox[{"x7", "->", 2 N! Z: S3 @  H$ G
             RowBox[{"Data", "[",
    % u" V/ f: \; A  S! S. T# c* s          RowBox[{"[",
    9 a! h+ N* b; N( V           RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
      q, k8 [: X0 d        RowBox[{"x8", "->", $ {4 s( u9 p. v/ t
             RowBox[{"Data", "[",
    ! J; O* D) }: T          RowBox[{"[", * O# x1 z; E9 y) a" k: {1 x
               RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
    - R: L6 o0 G' i/ E0 c9 a6 I% ]        RowBox[{"x9", "->",
    $ N# D6 J7 t0 }. B& |' ]7 x         RowBox[{"Data", "[",
    - t$ P: [) R9 X' _3 A          RowBox[{"[",
    " a( L( V% Z  i4 G           RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}],   `1 ?  p" J1 f& A- t) `8 l
      "\[IndentingNewLine]", "]"}]], "Input",& j/ D, Y! `: O$ g3 E8 S
    CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {
    # j) \$ m" f/ ]  3.577925286140625*^9, 3.577925306765625*^9}, {3.577958329919715*^9,
    5 [& }6 \7 U& @# S. p  3.5779583326341195`*^9}, {3.57795892351635*^9, 3.57795892354755*^9}}],2 Q6 {4 x. M$ ]
    ; ^5 H8 j2 Z: s7 X& d5 ?! ~  c8 N
    Cell[CellGroupData[{4 r- Z$ d, v" C( u, g0 F2 F, u

    2 v' A" r3 ]: R3 [Cell[BoxData["y2fit"], "Input",
    $ z9 G" p3 `) a: Y9 |: w1 Z CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {
    + }& F$ Z) L* `, y  Z' ]4 x   3.577925040484375*^9, 3.5779250440625*^9}, 3.5779583419785357`*^9}],, p2 _% }1 |/ l: |- K8 L

    6 ~, d% \/ v7 k3 ~. X! }+ R- pCell[BoxData[
    3 x5 l3 p/ d- S" \) C RowBox[{"{",
    ' \) L9 D9 w1 M" Z  RowBox[{
    4 K: ~& W- |( j. f2 A; G  "0.4853171132859182`", ",", "0.4508635216665074`", ",",
    + W4 M$ T" l. C& z   "0.3642119241752518`", ",", "0.42852077425595436`", ",", % w4 v3 _8 E# {, K& l
       "0.4712694272667798`", ",", "0.5257533056184774`", ",",
    0 o" M% y" R# }7 m; z7 F0 h   "0.48620658140716133`", ",", "0.41106838915591876`", ",", % d. \# f- P8 h' F, |
       "0.5486894206610674`", ",", "0.007731168540073459`", ",", + M+ q7 |0 G  K* A7 Q0 k, a8 X
       "0.013872406140339109`", ",", "0.3956995051659558`", ",",
    2 O- P# M" B8 L3 v   "0.3663118256142708`", ",", "0.29094217358055163`", ",",
    9 H( u/ M- n! y/ w/ j- s. [) X2 V   "0.5453093690736555`", ",", "0.44138898880777927`", ",",
    ' J5 W2 ~8 T& I+ ^# x8 |: y- b   "0.42944922031163496`", ",", "0.43092890556748836`", ",",
    5 X: M9 M& R, K+ x' o$ |   "0.5942402821739969`", ",", "0.330046090785457`", ",", 8 t4 Y/ s' u/ k% ~, i
       "0.18938658036630585`", ",", "0.4263720292858679`", ",",
    # g/ }: U& t! \/ u/ j% [   "0.23377136184738775`", ",", "0.02232858193309988`", ",",
    / w  h, i3 U! [* @& Z' i1 e   "0.244364200084268`", ",", "0.5562383565309971`", ",",
    4 T3 ~- g. X9 K+ a3 D7 {   "0.13114103402954333`", ",", "0.5815052048989465`", ",",
    1 c) F$ |, m& Z" l5 i- |0 j2 I   "0.4253455966293501`"}], "}"}]], "Output",% p2 h2 J8 G$ {9 x
    CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9,
    ) c: J5 C4 s! Z6 m$ R2 t  3.577925312375*^9, 3.577958343257738*^9, 3.577958511784832*^9, ; A+ v7 q9 P$ |
      3.5779590518421736`*^9, 3.5779623249157443`*^9, 3.578012452421875*^9}], H" `. b( i9 ]9 P3 g5 B
    }, Open  ]],
    ; `& X  t9 P; G8 R/ ^% v! I& X) a' P8 u' r5 P) p! G
    Cell[CellGroupData[{2 s$ K- x; b; x6 C

    2 n- p1 ?& V' P. f9 NCell[BoxData[% ]$ ]7 ^! {$ g
    RowBox[{"y2fit", "=",
    ! j7 t8 q# T: j1 ?( `2 L: |  RowBox[{"{",
    ' C9 @% F6 x4 C% |6 |2 d) ?+ Z: R" R   RowBox[{
    $ \  M, K, z6 Z$ ?; D7 ^  e6 S. T   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 3 l% U4 }1 c6 D" t5 }
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 w2 K2 w# n& U9 f
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", 9 |9 W4 J7 x. K! U" G" D
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", ; J; {2 g( }2 n7 {1 M6 i
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    . \0 C  H2 L% F% z/ M    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", $ d' O8 }6 x" l
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", 2 ~9 E! Y$ i6 u4 b
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
      i; _& k  x/ q9 {% w: l    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", . |5 W0 V( u/ P. E4 }/ L2 |; J
        "0.48531711328591953", ",", "0.48531711328591953`", ",",
    $ ^( f4 h; N* A+ o' u$ f* `    "0.45086352166650845`", ",", "0.36421192417525217`", ",", * I$ J7 ~# \% z1 D. @) T( c
        "0.4285207742559556`", ",", "0.4712694272667811`", ",", : c' b- |- q" J- V: b3 B3 C
        "0.5257533056184786`", ",", "0.4862065814071623`", ",", 1 r( y$ F2 J& E, r, j) O: }! ?
        "0.41106838915592014`", ",", "0.5486894206610683`", ",", / K6 @- z/ ?! @7 O: `0 o2 ]: i
        "0.007731168540073532`", ",", "0.013872406140339166`", ",",
    4 ]5 d; H  i8 ?0 |) n    "0.3956995051659565`", ",", "0.3663118256142717`", ",",
    # l- K1 s( \& h$ `4 y0 Q    "0.29094217358055185`", ",", "0.5453093690736568`", ",",
    $ P# b% U& W3 z7 y. D4 i    "0.4413889888077799`", ",", "0.42944922031163585`", ",",
    : z: K; w* ?. m$ t! C: S0 c    "0.4309289055674891`", ",", "0.5942402821739983`", ",", & U) t: |! d) B0 w+ O1 t
        "0.33004609078545805`", ",", "0.18938658036630632`", ",",
    : M. {! |/ y% I    "0.4263720292858688`", ",", "0.23377136184738778`", ",", " }, h2 A9 Z5 N
        "0.022328581933099827`", ",", "0.24436420008426807`", ",", - E6 m# Z: y* L& q* m2 m. }& A8 [
        "0.5562383565309981`", ",", "0.13114103402954314`", ",", . O8 h1 P6 ?% ~. D- T( R4 b7 r6 j
        "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]}]], "Input",
    1 _' a2 [, q+ p, S CellChangeTimes->{{3.577959355746303*^9, 3.5779593854019547`*^9}, {3 g. T+ i- i6 `6 D0 w# ]
      3.5779594223272195`*^9, 3.577959425104024*^9}, {3.57796233399496*^9,
    7 G6 t6 A0 Y6 k- j+ L7 ~  3.57796233957977*^9}}],
    6 B6 a5 S2 J9 H+ h9 Q( I+ p* H* y8 Y6 `8 _9 k5 q
    Cell[BoxData[
    - \% k" [! C+ @) u2 u4 H RowBox[{"{", ; Z4 {+ g7 `; @3 K+ w+ u# ]) j
      RowBox[{4 n& E7 c2 [" X( [" T* p3 o$ L
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ; _- V/ `& Y* x, d! s5 _; I% E6 `) l
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    . S* y% U/ d" I    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    $ P9 `8 I7 r9 K  N* \   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    5 p! `1 o( {$ @9 D1 T7 G- G; N   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    , ]# C, l) r$ o4 g, r: ^- @   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
      q4 v$ ?5 X! P, j2 P. x" o# E- l   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", " N0 O9 N( p  F( U0 c, E. m  P" o
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    $ J! D' `+ F% d3 z' p   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", ) `; K5 O2 {4 R4 @& d  [
       "0.48531711328591953`", ",", "0.48531711328591953`", ",",
    * J9 R+ _" h7 }1 d8 K& D3 w1 z   "0.45086352166650845`", ",", "0.36421192417525217`", ",", 0 y' g  |9 {4 {: v) }' [4 w& }
       "0.4285207742559556`", ",", "0.4712694272667811`", ",", - j- k0 ~/ C2 T( M
       "0.5257533056184786`", ",", "0.4862065814071623`", ",",
    , [' H7 I2 s6 v, M) g   "0.41106838915592014`", ",", "0.5486894206610683`", ",", 6 X; i1 A! x$ p& d' C: G% m
       "0.007731168540073532`", ",", "0.013872406140339166`", ",", % |; D( {, |5 G" C2 u7 H
       "0.3956995051659565`", ",", "0.3663118256142717`", ",", ; ?) W/ c$ g- N! ]1 R
       "0.29094217358055185`", ",", "0.5453093690736568`", ",", 0 Z8 ~. A9 Q. N$ H& E2 N6 M. {, U; d
       "0.4413889888077799`", ",", "0.42944922031163585`", ",", 6 o* f7 }6 k: O3 @  i+ E9 S( v
       "0.4309289055674891`", ",", "0.5942402821739983`", ",",
    : o  F# K0 B2 Z! m9 H9 }6 q- s   "0.33004609078545805`", ",", "0.18938658036630632`", ",",
    0 D; n# u; m+ ]# E8 Q% `   "0.4263720292858688`", ",", "0.23377136184738778`", ",",
    ( l; U+ t* r- S- }   "0.022328581933099827`", ",", "0.24436420008426807`", ",", 9 F4 `. f3 j% h+ P
       "0.5562383565309981`", ",", "0.13114103402954314`", ",",
    ! y6 |$ H3 ^- Q6 h; S6 p   "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]], "Output",
    8 ?  c! U4 g3 K9 J) n# W CellChangeTimes->{3.5779593961191735`*^9, 3.5779594268512273`*^9, ! T! E% }; n: @+ Z% v5 Y# O
      3.577962342060174*^9, 3.57801245340625*^9}], W5 r; ]* }# D4 o' z) J- A
    }, Open  ]],8 \- P: K) g1 J' |1 P; U

    ; o$ [! M, V" GCell[CellGroupData[{9 ]8 ?$ d% E. U. i- u
      m. `" M) h' Q$ O# M2 k" `
    Cell[BoxData[
    ' I3 I" O0 b5 J' j' H5 r2 T RowBox[{"y20", "=",
    : S$ Y, i1 U: l& O# T& b  RowBox[{"Table", "[", ! ]' s" p6 Q6 k5 ~" y9 I/ P
       RowBox[{"x", ",",
    ( h1 ~$ `& q" h6 v6 o  p    RowBox[{"{",
    + H- H: j$ P# f8 I     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
    # n7 \/ Y. F9 I/ [ CellChangeTimes->{3.5779253628125*^9, 3.577958351198152*^9}],
    ) _9 o$ p/ R- y$ r
    9 D+ b( x& M5 u" N  N* A9 ?1 i" oCell[BoxData[
    + Q* o& }( K9 C RowBox[{"{", 2 p0 j, v+ ?8 ]: s. e2 D& V# v
      RowBox[{
    % O, `2 x# e, g0 N  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ' }6 {  b+ z1 \2 Q: U
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",* T) T9 [& K/ c* R% y: e
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    ) `# s/ G) I8 B) `* o, H   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    1 y1 R( G1 R  v# |# C( K5 |0 j   ",", "29"}], "}"}]], "Output",8 s, m+ m, w' a* }
    CellChangeTimes->{3.57792536553125*^9, 3.5779583535225563`*^9, 9 O- w5 T" H2 P$ J' a7 Z
      3.577958515653639*^9, 3.577959053714177*^9, 3.5779623443065777`*^9,
    4 m5 w. U$ |- |/ r' O; _6 ]  3.578012454875*^9}], u5 Q. Z- D! B& M0 F: s4 D5 `+ D
    }, Open  ]],4 R% m. Q2 n& M7 S8 X

    , ?" j+ `" `+ u7 n# K8 R* A- jCell[BoxData[
    $ h2 |. Z2 p2 f/ _2 x% r! [ RowBox[{"For", "[",
    ! A3 A' J- G( U% Y* {- I  A  RowBox[{, p+ ?. k( q* V( F! {3 D2 E
       RowBox[{"i", "=", "61"}], ",",
    9 U: J. x* L& z0 r  b0 r' m/ \) t   RowBox[{"i", "\[LessEqual]", "89"}], ",", & q& E* @$ G' {; m
       RowBox[{"i", "++"}], ",", , E5 h% {3 a( G9 n8 R& b
       RowBox[{; ~5 J4 l( }! X3 j$ g. f
        RowBox[{"y20", "[", . g5 ?- K/ y/ i: g# c$ k
         RowBox[{"[",
    ' P" s+ {- n. r0 J( F      RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", + D* l8 G& F# @; U6 G' }$ ]8 l
        RowBox[{"Data", "[", 7 X7 \) C. e9 h& N5 A! f$ y
         RowBox[{"[",
    # n. w) T0 d* `3 ~" g! m2 R" X      RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",; D7 m8 s0 E; Q$ o4 y& e1 C7 L9 Y
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    / R- x9 C% \; p6 ^4 w! L% I  3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, " `. a% [" x% F0 S: f
      3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, {
    : }1 [/ V$ q8 R- y/ _. r8 D! C  3.5779583574225626`*^9, 3.5779583606673684`*^9}, {3.577959056849782*^9,
    ; S" t( [& \. ?: M3 x  3.577959058690585*^9}}],( X( T/ d  M8 A
    + ~7 J) W. K- P. d+ H4 e, d
    Cell[CellGroupData[{
    ; Z" ^4 O7 p4 }  _" a6 ]$ r! F" q* F9 _: [$ o
    Cell[BoxData["y20"], "Input",
    $ v: M5 z* r, `5 o8 S+ x; j9 j3 ~) k CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {* m6 H0 X" |5 |& U$ N- C
       3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9, . S0 A9 Z1 a+ w$ |3 S  d& O5 H7 S
       3.5779583657841773`*^9}],
    5 F6 T: B" W2 Y) \
    8 \1 Q. f7 T' L( sCell[BoxData[$ M) Y6 p0 m% ?2 Z: R2 U8 q
    RowBox[{"{", 9 L; R. c" B& @( w5 ~& o
      RowBox[{
    . _  f, t3 X; o3 f  "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", ",", ! v( {+ S6 c' y3 E
       "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",", ; n! {/ ]$ @3 h. ?8 {5 V
       "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",", ( U7 X' ]5 L! R' y
       "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",", 4 b% T/ Q" D0 g% j; z
       "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",", ; q* d; x' E0 O% c: L
       "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",   W2 U3 g% h: k  H; M; `
       "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",", % d* r; L) h7 @3 [' ^. c2 I4 d
       "0.323944`"}], "}"}]], "Output",
    + Q, [0 a3 j1 }3 C CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, ( ^! N1 D) x2 Q! l% D
      3.577925393046875*^9, 3.5779583678277807`*^9, 3.577958517946843*^9,
    7 L1 k+ }" f8 J4 @2 N- k  3.5779590634017935`*^9, 3.577962347629384*^9, 3.578012456484375*^9}]
    ; Q3 `/ x2 i% ^* N}, Open  ]],( f, ~# b8 ^: X) B2 y7 v; v
    0 @! ]) C/ i7 q6 p9 Y! x" o
    Cell[CellGroupData[{) W3 x0 U( i' Y+ o3 z9 z
    9 @9 n$ K- z8 N% v1 J4 N1 B
    Cell[BoxData[
    8 f! q9 z9 E5 z& Y5 G! I/ a- Y RowBox[{"y20", "=",
      ^' g- b. V8 F! c1 W9 Q- Z! W  RowBox[{"{",
    * x) t8 V& n4 F" ^; ?' G   RowBox[{
    0 \+ X6 u- A( S, s   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ) x( |6 L) U9 u1 A0 a
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    : u* i5 ~2 }% S  \3 ?    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    . d4 i" z0 p/ @* n4 B! k4 y0 \* m    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
    $ B! g  g( C( ?0 M    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", 8 N  q  ?, z) _" H) N/ A$ j
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
    , Y- D2 I$ d9 [8 `6 V    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", 4 e$ c8 A3 i  T! R0 |! L9 x' }+ L
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    ' r0 a" m' M8 Y7 W    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", - F8 r3 Y/ @7 X( W  ^8 ]
        "0.507042", ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",",
    # t: G6 ^7 W! B. K    "0.338028`", ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", " c8 A! Q; @0 q- O- N
        "0.408451`", ",", "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", , h; C/ [6 \, [" v, `9 Y% [4 I
        "0.746479`", ",", "0.887324`", ",", "0.84507`", ",", "0.704225`", ",",
    : |$ k" ?* O1 Q( M$ X, m7 W8 \    "0.760563`", ",", "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", ; n" t4 U# I* Z5 P) y5 ]/ j
        "0.295775`", ",", "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", 2 p' x% w# Y# v( K7 m
        "0.732394`", ",", "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", " a5 f& D0 M! ?7 v% j9 j) G. K
        "0.56338`", ",", "0.323944`"}], "}"}]}]], "Input",6 N6 j) i4 E- t7 O
    CellChangeTimes->{{3.577959534959416*^9, 3.5779595573142548`*^9}}],
    0 H. P# c' Z* Y, F" n9 W  F: C; X0 w6 z: ]' O) U
    Cell[BoxData[
    % U) s) ]  U& p8 @( X9 D! ^ RowBox[{"{",
    4 a9 I& `! e+ J  RowBox[{
    ( A& R3 |3 ^; I$ W9 e) B  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", % T9 b8 c$ Z' J7 J- s' q
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    5 _4 e0 D; D, ]  i0 Z$ E- E/ a" O4 I    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", * u# r! q9 @1 y+ J& z3 e: |
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 4 o% t2 G) D3 S, l$ ]
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    7 X7 E" ?. g& u+ P( Y   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 5 L8 A- ?( k  K0 ?
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    6 W; h( X% _; S/ a; i- @   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    6 k0 G. y& z8 V8 T. ^6 z5 d( s   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.507042`",
    : ~- q7 R# r9 I2 O: h4 N   ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", * i$ @! s- z0 ^; k9 O
       ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",
    8 w' B8 ^* P! E2 W1 ]7 B    "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",", , l1 K- `; u1 b2 g( [) V4 X4 M
       "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",", . M: {4 i* i" `, E
       "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
    , x/ R$ w- r; V, a( D) i5 e0 F   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",
    : a7 ~% t# a; @   "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
    % M- a  i7 m5 S4 w& D; Z1 X) P   "0.323944`"}], "}"}]], "Output",
    0 J: P3 c3 m- b' [& b CellChangeTimes->{3.5779595594514585`*^9, 3.577962351778991*^9, / j6 C6 p" f; t( G
      3.578012457234375*^9}]/ V5 j, T; @" g( d+ f
    }, Open  ]],9 `% B, l: F; Z2 v( |! B( I

    " X  D" O  p5 e3 rCell[CellGroupData[{8 X$ j2 F, F( t$ ?8 U

    * h' m4 `$ B0 ^Cell[BoxData[, o5 v* h! n, [$ \. k! ~7 u
    RowBox[{"p2a", "=",
    / |5 G1 }$ ~+ g% R' e  RowBox[{"ListPlot", "[",
    % U8 W4 W+ J  `! U" D   RowBox[{"y2fit", ",", & y! F3 _+ W* q0 Z3 K
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", 3 A1 ~8 A& v+ r
        RowBox[{"PlotStyle", "\[Rule]",
    $ T0 ^6 G' Q7 e+ A' v; m: C     RowBox[{"{",
    ' R6 i" ~1 _& F6 ^0 y" C2 a      RowBox[{"RGBColor", "[",
    3 _( X# [& n0 v- e0 ]( a       RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
    1 l" k2 n  Z& V6 T$ d' m% u8 E, i! p    RowBox[{"PlotRange", "\[Rule]",
    8 k; M5 W( ?* C, K; X9 Q% c* b     RowBox[{"{", * X" L! N2 o6 L5 v! b5 o
          RowBox[{
    ( ?+ Z$ F: I; s: m7 k1 H       RowBox[{"{", , _% o9 P& S! B1 u3 k: q
            RowBox[{"61", ",", "89"}], "}"}], ",", $ a/ Q0 G- s0 l% k
           RowBox[{"{",
    " D, \' Q5 d9 I  V        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", : s: j' h  [$ _  m
        RowBox[{"AxesOrigin", "\[Rule]", ! X4 P7 }: N0 G6 k$ {( s
         RowBox[{"{", ) K! B; v* e9 V2 ]1 {( @$ i
          RowBox[{"61", ",", "0"}], "}"}]}], ",", # {, G; i9 {& @0 d! j! t' j9 @
        RowBox[{"Frame", "\[Rule]", "True"}], ",", 6 K, z# \4 k# Q! K8 C5 h! \
        RowBox[{"FrameLabel", "\[Rule]", ( ~0 T; e( G) c  j1 J' r
         RowBox[{"{", , P( I" N, L7 s9 K# |( S
          RowBox[{
    $ F; U! d2 A! j% M! G! T      "\"\<\:7089\:6b21\>\"", ",", * G6 s4 T" ?4 B( B( _4 t# G5 `
           "\"\<\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\$ ?1 p3 g. W' I3 d6 ?
    \>\""}], "}"}]}]}], "]"}]}]], "Input",4 a) z, {$ x4 g8 A5 ?) x
    CellChangeTimes->{7 t, j1 V5 J2 G' A" I$ S1 V
      3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {" z3 T0 p  y% `5 U3 e% ~$ x5 |
       3.5779583712597866`*^9, 3.5779583781393986`*^9}, {3.577958536604475*^9,
    6 G4 @* h2 h* |% v; S   3.5779585491624975`*^9}, {3.5779592802577715`*^9,
    2 {2 `' f' {. y' y7 F, i   3.5779593014270086`*^9}, {3.5779594039971876`*^9,
    ! I1 N. q" y8 H& ?# \# k3 S   3.5779594059783907`*^9}, {3.57795949706695*^9, 3.5779595174717855`*^9}, {
    $ T' D1 y1 p( b; l; C   3.5779604302529774`*^9, 3.577960442311798*^9}, 3.57801246978125*^9, * Z( x8 ~+ s9 j/ N" Y" O0 V
       3.578012920859375*^9}],( k' `: M& t+ T7 _0 C
    ' q# s; m$ b/ `1 k; a7 E8 f% j
    Cell[BoxData[/ R- j* v/ r4 r' p& T$ |2 \/ [
    GraphicsBox[{{}, {}, - {6 j! O+ X: W: x
       {RGBColor[0, 0, 0], LineBox[CompressedData["
    ( g5 k4 t; s( x  {& ?8 [! O1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
    9 D' j" Z( l, C( {- p/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ* S8 }* @: x: Y8 m8 o
    9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P9 O6 _8 ~/ w2 y6 ^
    ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC# B6 l& D1 m1 K  e
    qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
    0 K" x% x3 _. r4 {( q  H! T7 z1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
    7 r$ s! J- R) X; D& K% P0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
    , j: G  d4 [3 h/ b  l& KsPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
    ; ^( m7 N) R; h* \  v99yxuG0PAHw7nyU=
    0 Q% t7 |# ]7 R5 P8 j     "]]}},
    ; m3 ?4 W  Z3 [+ C+ [  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],  w8 m7 ~" B& G8 A3 \3 g/ z# @
      Axes->True,2 O! P" J  O- p2 W
      AxesOrigin->{61, 0},
    1 k, Y" ?$ N6 u- I6 m  Frame->True,
    9 y  d+ a) j0 h& W6 L# L3 }6 ~  FrameLabel->{
    9 T: a8 J* `7 S    FormBox["\"\:7089\:6b21\"", TraditionalForm],
    4 k4 G! X7 r) d, H" _    FormBox[
    ; P4 T6 ~* O( ^3 `0 i) t    "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", ' o0 B! y  T6 O2 d1 ~* W
         TraditionalForm]},. n: b' \5 J' O& i/ w9 j* k3 s
      PlotRange->{{61, 89}, {0, 1}},, @0 X( d2 d/ Z. D* H! P1 g
      PlotRangeClipping->True,
    " x9 M1 C& a1 F. c  PlotRangePadding->{Automatic, Automatic}]], "Output",+ N+ N$ @8 m/ A( A
    CellChangeTimes->{# K2 w3 F% ?: y- g* g
      3.577925144625*^9, 3.577925396578125*^9, 3.5779583797150016`*^9, 5 j& m6 H. F! ~. h
       3.577958519990446*^9, 3.5779585510813007`*^9, 3.5779590670678*^9, / M4 Y% `! e5 m" u2 Z% i" q
       3.5779593035642123`*^9, {3.5779594075383935`*^9, 3.577959430158433*^9},
    : ]- ~$ u! W. l& {# M   3.5779595184233866`*^9, 3.5779604438874006`*^9, 3.5779623548833966`*^9,
    , E. I- t& D1 ]' D' M! A   3.57801247209375*^9, 3.5780129225625*^9}]
    0 o% X  _4 c$ S, q}, Open  ]],1 q" [: f% {6 R! \% }

    2 R' U0 k( p  b. LCell[CellGroupData[{
    & T* N/ d( j1 z8 G1 Z1 O
    ) M  u, [$ i% k8 n; c  f! v; rCell[BoxData[
    " N; h! ^7 z1 W& w* f RowBox[{"p2b", "=",
    # h  x9 x/ R& k9 z! V) A" s/ l  RowBox[{"ListPlot", "[",   \1 _; W( q, p0 `
       RowBox[{"y20", ",",
    8 s8 G6 t8 P, L    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", 2 o  l7 R& X+ z( I/ @
        RowBox[{"PlotStyle", "\[Rule]",
    / ^7 O- f3 E. c. G/ d1 b3 Z  R     RowBox[{"{",
    ; X  a! _1 i% g) o* l, c3 I! e      RowBox[{( [* G' d8 j! t% L$ h7 b; m
           RowBox[{"RGBColor", "[",
    0 n: `7 J9 W; D1 i        RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
    2 G; g2 p! C" m: D& R9 f    ",",
    7 @0 O# e5 a2 @; o' [- I- `    RowBox[{"PlotRange", "\[Rule]",
      I  n9 Q2 S$ w. P$ A4 K/ V5 L     RowBox[{"{", ) e+ X! @2 \/ H  R4 F: K: o
          RowBox[{9 T4 d* Z  i: p9 _, X
           RowBox[{"{",
    2 q; z8 W. @1 P2 X( Z! Y, P. _        RowBox[{"61", ",", "89"}], "}"}], ",",
    5 ~# v0 `" I4 U* B$ a' d! C9 f6 x9 c       RowBox[{"{",
    0 ^% \9 w2 q% ?6 U/ G& j# R4 Z        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 7 J/ a2 ]  f8 l; L3 {
        RowBox[{"AxesOrigin", "\[Rule]", 2 [  V; `0 C6 X, m! V6 x
         RowBox[{"{",
    . }8 L  {4 f4 b- Z: t; G0 f; T4 v      RowBox[{"61", ",", "0"}], "}"}]}], ",",
    7 a& ]+ _, G8 u- M    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
    * Y" a8 Q: S  {% j) J! R% k CellChangeTimes->{/ b' z6 h. {& D0 }% A9 n3 x
      3.5779253991875*^9, {3.577958382429406*^9, 3.5779583843326097`*^9},
    ( B2 E) @9 s' e! k* r4 Z   3.57795855655691*^9, 3.5779595724462814`*^9, 3.57801248346875*^9}],
    2 s7 v' K5 ?, B
    7 ^# `! v' R" z) M' ZCell[BoxData[7 _1 ]/ B( `9 L4 L
    GraphicsBox[{{}, {},
    $ r8 B8 [/ l/ B   {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData[". v8 C* f9 c- j8 q  [# y$ I
    1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
    ! U$ e, k% b+ B4 L8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV; p% b- ^% x+ }5 t5 S- L
    c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
    2 e2 g3 V% n  G$ l1 ]- v7 BiX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4# E" S( L9 e6 k* O7 r1 L" E
    TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
    3 X9 C! Q! R; ?fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB* Q1 M! D0 l( y& W2 H9 ~& W
    TWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
    3 m: x% [4 G6 f( f5 ]) }p0OYg4Fg/tz63VfsAdsCnzU=" k( ?7 F& C. b4 G! {) A
         "]]}},
    , N( C4 f# a2 A$ N) {  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],3 }5 q) _0 b2 @+ w, b4 h
      Axes->True,
    ; o% ]9 {1 v( u' ?  AxesOrigin->{61, 0},1 y% L/ ?$ u2 Q# x8 s
      Frame->True,
    6 v$ ?# ]3 C! N/ o6 j  `  PlotRange->{{61, 89}, {0, 1}},4 _* c: r4 v; W6 X# \( F. `
      PlotRangeClipping->True,4 j! Z* H9 a; g5 ^2 J) c2 d
      PlotRangePadding->{Automatic, Automatic}]], "Output",
    9 s& n# P+ G+ J6 M) \1 } CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
    1 i0 ^9 g8 o, D: k8 T  3.5779583861890125`*^9, 3.5779585219092493`*^9, 3.577958558132513*^9, , p" `9 l1 m) U' ]( F0 G
      3.5779590691114035`*^9, 3.577959577906291*^9, 3.5779623569426003`*^9, , [0 H. x0 d& y1 P: G7 U8 W8 R
      3.578012484703125*^9, 3.578012925875*^9}]6 A; s. g, m5 S- c" B$ [( O. l
    }, Open  ]],8 N; U/ {: x7 p* S. _/ ~
    , Y+ G! m' j$ e7 k. K' m$ R$ Q2 `
    Cell[CellGroupData[{
    " U, ]! b/ l8 b2 Z7 T9 k+ U' h' ^" b7 I! v
    Cell[BoxData[
    * `3 d- ~8 j' Q  A8 u4 W; I5 j0 |) _ RowBox[{"Show", "[",
    9 d- A( G( `; v* E. U  RowBox[{"p2a", ",", "p2b"}], "]"}]], "Input"],) Z7 V! m8 K* C+ v* Z- W" \

    % E" ?, Z9 E% ~3 bCell[BoxData[
    5 I* T- H( K, L. A( b3 h GraphicsBox[{{{}, {},
    - D& J; [& K# A1 I* E* a    {RGBColor[0, 0, 0], LineBox[CompressedData["% Y5 v' F& ]% u2 L$ A; }* E. N# t
    1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
    ! ~6 v- a" i5 e* _+ x" G/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
    / `0 I4 @" s2 t0 I3 x9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P# L/ L6 G  h" v- w
    ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC, L/ l0 ]4 \; E+ M: h
    qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK. D, h( c' P3 G; o0 A2 M4 X/ w; A# g
    1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
    2 X5 j+ `3 v0 Y1 L. \0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
    ' D$ T9 ~( u! X0 A! F$ w4 k  a; }& ?sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH" f# ]- T; ]  p; V
    99yxuG0PAHw7nyU=
    1 X' y4 P, w  L7 ^; [$ Z# S8 t      "]]}}, {{}, {},
    7 a  |/ `+ Q" M% z$ S6 M/ q    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    0 U5 V- q& y4 I: l3 k1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
    " P4 I  n) |3 _5 k; p& \8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
    0 y; l+ I- D7 Lc/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
    % @$ q8 u. J! G  kiX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk47 m/ L& {/ a3 k; ?, o6 {* O
    TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO6 t( Q/ B& a! h6 N  Q
    fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB# v0 i) v( B, F& \0 Z9 G/ Z. H
    TWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG6 A4 }0 P- z% V8 u9 G' j
    p0OYg4Fg/tz63VfsAdsCnzU=5 ^  B$ u( p7 p, o0 s& F: }( a
          "]]}}},* X6 B+ w4 ?# e: u9 b8 V
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],. \3 A  H( q+ B" ^
      Axes->True,6 f1 `) c; \- v( X5 N
      AxesOrigin->{61, 0},6 `# Y4 Y' u; T; Z
      Frame->True,* u2 K& Z; {$ i% N& W
      FrameLabel->{* D6 K) h* a' c: J  ]
        FormBox["\"\:7089\:6b21\"", TraditionalForm],
    2 n/ q2 i* [' {/ b5 ^    FormBox[
    - }1 T3 v( \0 I8 o: ?+ S/ P. E    "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", 1 p9 A* u  q7 q' _
         TraditionalForm]},
    $ q- O" {& d) l' S6 P6 K1 W9 _  PlotRange->{{61, 89}, {0, 1}},. L; I" R' @# G+ t. D7 b
      PlotRangeClipping->True,
    1 {8 j1 t6 D- T, a9 p  PlotRangePadding->{Automatic, Automatic}]], "Output",9 @" g0 l* K. s
    CellChangeTimes->{3.5779623624182096`*^9, 3.5780124863125*^9,
    + H2 G9 ~' E" w0 i2 w  3.578012927734375*^9}]
    . n; [) S6 q6 O$ H) V6 X- W, K; }}, Open  ]],6 S" V4 z: t  N7 F0 M

    5 M" V9 S0 E5 J8 SCell[BoxData[% u0 j2 }$ ?; @$ [
    RowBox[{"\:ff08",
    . |4 ]- y" k9 Y7 i% Q/ F: B  RowBox[{1 s) I* @0 J1 {9 K0 t2 g% {% x4 m! O5 I
      "\:5df2\:77e5\:521d\:59cb\:94c1\:6c34\:8d28\:91cf0", ".7406",
    9 |+ {  `" v( X5 S, Q   "\:3001\:5e9f\:94a2\:8d28\:91cf0", ".4621",
    ! ]7 _/ x# C2 F- ~3 E* `   "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea60", ".5208", / w& S- }/ Z$ l8 B# x, z
       "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:542b\:78b3\:91cf0", 4 j$ x, n* ]. ?3 ^$ |
       ".2221", "\:ff1b\:76ee\:6807\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\
    - I* z6 e2 B$ M  l- z. @8 \\:4e3a0", ".6224",
    9 X  ^6 |7 `  z   "\:3001\:76ee\:6807\:94a2\:6c34\:7684\:78b3\:542b\:91cf\:4e3a0", ".2521"}],
    0 d( `( Y$ r5 g4 r7 S, g% i   "\:ff09"}]], "Input"],
    2 v5 s" v* z* j& P: I3 c
    : {! Q" u2 t; _4 b8 P! z: X/ LCell[BoxData[# D% z" A6 n% d8 n" A8 R7 Q( [+ r
    RowBox[{"{",   W) K; Z) F/ N/ y) n" J+ P
      RowBox[{0 r+ S! ?) x# E6 J- D1 v* y0 E9 p
      "\:94c1\:6c34\:8d28\:91cf", ",", "\:5e9f\:94a2\:8d28\:91cf", ",", 0 K. v3 Z) ]4 P% V- t; {  x' q
       "\:5439\:6c27\:91cf", ",", & g3 o5 E/ V- V+ @
       "\:4e0b\:526f\:67aa\:65f6\:7684\:542b\:78b3\:91cf", ",", 2 ]& ^  `! Z5 V  A  I
       "\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea6", ",",
    9 u# v/ H2 n4 u" d) \3 @3 l8 K   "\:5757\:72b6\:77f3\:7070", ",", "\:8f7b\:70e7\:767d\:77f3\:7070", ",", 7 x6 h3 @- E  p, e
       "\:83f1\:9541\:7403", ",", "\:5757\:72b6\:767d\:4e91\:77f3", ",", 4 _+ C/ ~( M3 o# R3 v& d. R6 j8 ?
       "\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf", ",",
    - S+ K7 J* Y; Q   "\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6"}], "}"}]], "Input"],  k; z' u6 G( B$ s- u* T3 C

    ' h7 J2 S8 [: c% ]Cell[BoxData[" "], "Input",
      t5 O' a; v# d- N/ g+ N& F CellChangeTimes->{3.577962834553033*^9}],; H: n# X& G. ?# e9 d/ [& |, r
    " h0 d' j: t1 ^' w' g
    Cell[BoxData["\:94a2\:6c34\:7684\:78b3\:542b\:91cf"], "Input"],
    # [; `1 B0 {& P* M& v
    ! L9 m7 Y- w% BCell[CellGroupData[{% W' `1 M: N$ d, S0 N, z

    3 K1 M0 R4 _' N# L" C' Z$ {Cell[BoxData[9 C6 N+ F+ k6 U" u' `
    RowBox[{"y1", "/.", ( o/ D' O9 w7 U: I, l# |: E
      RowBox[{"{",
    & b# u; X/ ]. J4 o) A+ @8 g' p8 y   RowBox[{
    4 n7 A9 ~0 e& C+ y6 d7 H/ |    RowBox[{"x1", "->", "0.7406"}], ",",
    - N8 f. p! @( X5 K; D/ p% A7 G    RowBox[{"x2", "->", "0.4621"}], ",",
    ; ]6 A( l) M2 h& s" h" x    RowBox[{"x4", "->", "0.2221"}], ",",
      w3 u9 s- B- z9 z" S7 a    RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",
    $ _1 [$ q7 x0 @; s+ N$ F# e CellChangeTimes->{{3.57796267209435*^9, 3.5779627224200373`*^9}, {- W! ]& E! d: K2 Q, X8 {/ B
      3.5779627663029137`*^9, 3.577962774820529*^9}}],$ Q  P( l8 q0 `# f1 E
    # x: E, P  b9 z' v: ^1 g$ j
    Cell[BoxData[
    8 |' a1 `5 m5 | RowBox[{
    4 s' G( t1 ^+ K* }  RowBox[{"0.2286149508637297`", " ",
    8 z0 {2 e" z' ~; q3 Q4 p   SuperscriptBox["\[ExponentialE]",
    - I; a$ c2 [4 q' e- t, S    RowBox[{"3.1415926535897936`", " ", 4 \: G1 v2 M+ n% s6 I
         RowBox[{"(",
    + j* ?- D6 f% N( n. Q      RowBox[{
    4 d2 P3 W5 C8 }3 R" F1 s       RowBox[{"-", "0.17911224641499998`"}], "-", , L: w7 R0 a: f$ m0 p
           SuperscriptBox[
    . g$ I7 j. G' X4 X5 O        RowBox[{"(",
    / p" @2 ~4 N  o% W# I         RowBox[{1 T% }7 [4 N) y- f6 v, _
              RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", ; H: Y% ]3 M/ H' J0 R
           SuperscriptBox[
    7 Q& b0 ?; @8 n5 W+ M. T' I        RowBox[{"(",
    / H4 B; [& ?  ~. O( b1 [         RowBox[{
    : {* W- u1 Y4 D  v: z- T( ^          RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",   ~# q, ], p5 F% z3 f4 d
           SuperscriptBox[! @' L5 U. R" `6 M% x1 P
            RowBox[{"(", 2 Q+ g1 A: r, E) C; Q$ o
             RowBox[{2 T3 T* P: s. q
              RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
    / h5 a. J, y3 T+ n       SuperscriptBox["x8", "2"], "-", . B+ j7 F1 v; i. I/ N5 M
           SuperscriptBox[5 R6 @( X% h+ \( |; U4 ]
            RowBox[{"(", ( \5 D  ~  g3 q0 n
             RowBox[{8 ]& v7 A- G/ f3 `( I
              RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
    3 W( f) X7 v9 ?. H5 N- |  RowBox[{"0.020180806675835994`", " ", # x" O" o) m( |9 W' l  D
       SuperscriptBox["\[ExponentialE]",
    2 k. L: L) t5 d' t2 _, A; y; u3 H    RowBox[{"3.1415926535897936`", " ",
    / E5 U0 r, t3 J2 F4 @" ~     RowBox[{"(",
    . D7 f4 g" P6 [0 H      RowBox[{9 }' S3 W5 @% w1 ~& z8 N1 Z
           RowBox[{"-", "0.105619387859`"}], "-", 3 V' T5 t! g: ^" r, ?
           SuperscriptBox[' Z4 W( V+ y8 {. F# [
            RowBox[{"(",
    1 j; `9 [) y8 _3 t- r         RowBox[{1 D( D* M6 L! h: t
              RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", $ x+ k0 {7 s6 C, g9 W3 _- P5 ]  j
           SuperscriptBox["x6", "2"], "-", 3 M5 u* `0 A0 X1 R3 A/ X3 P
           SuperscriptBox[
    ( M) ^0 b: s) x6 C6 y. k        RowBox[{"(", : k, M0 m4 g2 d* K4 b4 W
             RowBox[{
    7 M! |/ o6 P, K7 `          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 0 k6 V- O9 Y  e+ M8 \* I
           SuperscriptBox["x8", "2"], "-",
      F/ \2 t% h9 {+ c& Z' {5 d       SuperscriptBox[
    : G( c( g: H3 W: ]2 \        RowBox[{"(",
    # m2 O6 ], E# b) m/ l7 e0 ?         RowBox[{
    * G% W8 J( R* y2 E& ]$ A7 `          RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 1 g/ Z  B5 Z/ q( N. u6 s7 s. w
      "+",
    : C; g2 T2 P; W$ {2 u2 C  RowBox[{"0.13092706311748437`", " ", 3 f; s, T0 K7 Z8 h, e3 @- _# m- I
       SuperscriptBox["\[ExponentialE]", ' J- I0 o& P5 P8 ~/ @, P% D$ B
        RowBox[{"3.1415926535897936`", " ",
    7 i( O* V  o' d$ L' ~     RowBox[{"(",
    3 ~1 j0 P' m0 h, n5 m/ ~  |- O  O      RowBox[{$ u- ]/ h+ u# Y6 W
           RowBox[{"-", "0.236605670085`"}], "-", . I+ ^( ^& W  o' R
           SuperscriptBox[, a# n# f" [' e1 D+ d1 m' x; i1 h! H
            RowBox[{"(", , s0 U; g3 V/ ]% Y& l
             RowBox[{5 ]0 G5 d# j# C$ m
              RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", ! h, j) n) a/ w& {2 B
           SuperscriptBox["x6", "2"], "-", ) t6 h0 x; I9 L# e! V
           SuperscriptBox["x7", "2"], "-", 4 p, K0 R2 T3 f+ f$ {. s
           SuperscriptBox["x8", "2"], "-", : o5 c+ P' w, a8 W
           SuperscriptBox[' m5 R/ j' `- m( z% w
            RowBox[{"(", / |% R8 A1 [; @7 I* N  O( W' E% E
             RowBox[{
    8 y3 X& Q; M4 P! V          RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ' q2 h) Y/ i* }, G/ U- K4 A- t9 e( D
      "-",   a9 U4 @% r' P' }. j$ y; C
      RowBox[{"0.033459349088924784`", " ",
    ' F$ y* z+ _5 }* O   SuperscriptBox["\[ExponentialE]",
    % z! W2 d- W2 K    RowBox[{"3.1415926535897936`", " ", 1 G- c: t/ W9 [7 {1 |7 k
         RowBox[{"(",
    5 ]% |$ M9 }1 C( Z0 N0 l- g9 q      RowBox[{
    / W" ]$ t/ L. Z9 d       RowBox[{"-", "0.46221081830200006`"}], "-", 4 ]4 O: X) O* c3 d
           SuperscriptBox[
    / O6 x0 ~% N- a        RowBox[{"(", ! o" N' B) B7 W+ Y, N$ L. I( S
             RowBox[{% p$ k8 J* E$ u( t$ ~- }- L
              RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", , O: _9 }! ]5 _# k. y# `; B' J
           SuperscriptBox[
    / o; }5 ]/ m: X7 t        RowBox[{"(", % X3 d) @$ U) ]4 _: {& W; O+ y
             RowBox[{& }8 h% @/ J* G, _% F7 a
              RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", 4 K$ |' k0 W, Z: P" Z; t9 B) K3 m
           SuperscriptBox[
    / O- u+ B7 v- o/ n1 [2 x- T& x        RowBox[{"(",
    / P1 d; o7 [! d- V0 J; n& X         RowBox[{
    + v" y7 _0 E1 D7 s4 \- d7 u          RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
    0 J+ d# l) y: j0 d0 M2 X       SuperscriptBox["x8", "2"], "-", $ S* X  i6 [, W  K  b, a# h/ U
           SuperscriptBox[$ i' M+ \  `7 ^* }$ k) x
            RowBox[{"(",
    6 k" p/ C; E. Y4 w) n) b3 `# E         RowBox[{
    8 s1 s8 O/ D5 t8 r7 Y  q( h          RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    ' }# M& M& z# }& B  t  "+", " b$ _* i" Y! }7 N
      RowBox[{"0.39611806709006653`", " ", ! I% R: V( ]. N7 u
       SuperscriptBox["\[ExponentialE]", 6 k/ R) ~" b0 m% K* U4 x# p
        RowBox[{"3.1415926535897936`", " ",
    , Q* d4 L7 W/ C7 t) t# ?     RowBox[{"(",
    ! ^+ Z% _4 o4 p      RowBox[{
    % T0 N$ Q' F7 D+ i& V       RowBox[{"-", "0.5837889295140001`"}], "-",
    3 t+ g  l/ u& l+ E       SuperscriptBox[; W% F" I( q4 U' C- {
            RowBox[{"(",
    # x# K" A  E8 s$ ?) p; r         RowBox[{
    8 w" a% J, ?' ?. k  v" |6 s          RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    1 L2 z6 b$ ^& K# n7 q' D       SuperscriptBox["x6", "2"], "-", 6 U' O3 z: v9 }' R6 F
           SuperscriptBox[
    & R9 m% @* d  _/ B' W        RowBox[{"(",
    , w7 ~7 f6 g) ^% {         RowBox[{
    / s3 \8 U1 U% O# I8 E          RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
    8 |# ^- V" k' ^% Z* B: y: D* ~       SuperscriptBox["x8", "2"], "-",
    3 f/ Q6 ~& |2 D0 c) |       SuperscriptBox[' R! F7 i9 s$ ~) I% _. j
            RowBox[{"(",
    ) D) p( H7 y1 w1 n0 V* S         RowBox[{
    3 S9 |. K0 j% Y          RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], / D1 G+ _1 \* X- X
      "-", ( B$ k8 J4 z( ~1 ?
      RowBox[{"0.19996885877792045`", " ", ! G) F7 ?  P4 t# S. U
       SuperscriptBox["\[ExponentialE]",
    4 f' A, O5 X0 G6 S- O    RowBox[{"3.1415926535897936`", " ",
    & S: e' `+ R5 }7 ]+ ]     RowBox[{"(", 4 ^* s8 O6 V! @0 j: Y& }; w
          RowBox[{
    , o$ h  {6 `' n2 g+ M- |( r       RowBox[{"-", "0.19030188470200005`"}], "-",
    1 k7 [+ u; v0 O& J% ]       SuperscriptBox[' \+ J4 \. d* [+ `  o  K3 V
            RowBox[{"(",
    1 P0 n) z5 M, H/ }) k9 Q         RowBox[{
    , t- J' o8 e) h. q; G( q          RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
    / S; t+ U6 D! [# X( S/ |3 e2 n       SuperscriptBox[5 a: ?' N, b, s
            RowBox[{"(", , b1 s: x9 t  d- Y
             RowBox[{
    + W4 W% @9 S+ Z" T* q4 f" o          RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", 4 _8 @" I) N$ \) c  d  I
           SuperscriptBox["x7", "2"], "-",
    : R1 ?! b. W8 J1 O2 c       SuperscriptBox["x8", "2"], "-",
    . M. a% L; ~% i: ?: P  v$ W% C1 S: V       SuperscriptBox[- M8 E/ n2 v8 b7 c7 n$ q3 V2 c0 m" K
            RowBox[{"(",
    2 y3 R# t0 F2 q& F! O$ o8 Z' X2 E         RowBox[{9 U4 J/ M- x0 }& V$ f6 s7 `
              RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    4 R$ N; a" f& ?  "+",
    9 i& b  z  ^- a. V6 @3 p9 o9 u  RowBox[{"0.23580523388620744`", " ",
    9 Q7 ~3 A) M/ c   SuperscriptBox["\[ExponentialE]",
    + t$ y. K1 q+ I2 U$ b1 S: p" n2 x    RowBox[{"3.1415926535897936`", " ", - X+ v9 ]; h0 u
         RowBox[{"(",
    $ [% @9 d) Y( Y4 }) i2 E      RowBox[{
    ! G- Y1 ^/ A3 h* m' `2 _5 M- Y( C& U) i       RowBox[{"-", "0.28518780882`"}], "-", ' f% p+ e* \# n* b) }: `) R" s
           SuperscriptBox[2 @; ~$ [% \( b# u! ~& G
            RowBox[{"(",
    8 B/ Q3 b4 l! e" o; b( y         RowBox[{1 }9 h9 @; @3 I" c- P! c5 H- B
              RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", # F1 u$ Q/ q7 T* t) q
           SuperscriptBox[
    & i# z/ g) j: l+ i5 r        RowBox[{"(",
    $ M. b4 T% v/ m8 E         RowBox[{
    7 r7 o) I. Z& ~1 [" w          RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    ! ^- U! X0 z1 v- P% v9 @       SuperscriptBox[
    # G, u0 r( n! I* z  V; f, f9 J6 f        RowBox[{"(", 5 u1 u- R" }9 ~% a2 ?
             RowBox[{- G1 n2 M9 o* ~% V7 i
              RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", # C5 b( C5 t" G/ Q
           SuperscriptBox["x8", "2"], "-",
    # }+ @' J* G: a2 H! Y, c) s/ \       SuperscriptBox[
    ( V2 _9 [0 @$ E( q3 ^. H$ i) e0 `1 g" L        RowBox[{"(",   ]$ {; U0 \( i# H
             RowBox[{1 @& \6 o, d# ?6 I/ ~" V) U
              RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    + g0 y( V. U2 H: l5 X* k# x0 K  "+", % ~8 S! w% b! H. \) m
      RowBox[{"0.667027259367853`", " ", * D  ?  A; h1 @+ z( I
       SuperscriptBox["\[ExponentialE]", , U# H, i$ t# Z! y1 X4 d. V
        RowBox[{"3.1415926535897936`", " ",   r2 S9 C+ Y* r% n, F. W1 y  G
         RowBox[{"(", - ^* {# I7 K( Q9 K+ `
          RowBox[{4 D" F! M" }4 `; [0 N* Y) s
           RowBox[{"-", "0.11387365200400001`"}], "-", * U/ F/ z! m' z: c5 r
           SuperscriptBox[) S: ^4 Z! L- Z' n! g7 V" I$ i' }
            RowBox[{"(",
    $ ]2 C, O# ?8 M, `         RowBox[{* K- j/ @- ^: D# Q0 `
              RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    5 q5 e9 Q- `) H/ \7 \4 q; k       SuperscriptBox[* @. G+ t- I; m( M- P7 N
            RowBox[{"(", # T; \  p0 q7 i" W
             RowBox[{* s% A" o' M; k( h" n, X
              RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", , x- O; u: s6 x- \9 a
           SuperscriptBox["x7", "2"], "-",
    0 q! i7 U( s/ R) Z- L       SuperscriptBox["x8", "2"], "-", ( u2 V6 i: h+ p' Z$ v
           SuperscriptBox[' E# \' l$ f+ \; o& N( U# @$ A) W
            RowBox[{"(",
    ( a. W7 g9 G$ y! z7 H: o         RowBox[{
      U# l- D8 F; @( l" T          RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], , S; ]5 n$ F9 R) X2 {$ b" C
      "+",
    3 I: J$ v1 H, }5 O  G  RowBox[{"0.25282438852646905`", " ",
    . ?% d" \. {9 Z' c: f% }, X  }   SuperscriptBox["\[ExponentialE]",
    # W: V7 _1 |. _  P, W9 x$ ?    RowBox[{"3.1415926535897936`", " ", 2 h* z2 ]) O4 v# z& _
         RowBox[{"(",
    + s6 e$ s. S/ V7 S+ F8 Y* z: |      RowBox[{
    % P! l! B% R* \2 b  I% J       RowBox[{"-", "0.11442644782500001`"}], "-",
    3 G5 p$ W0 D- X. _" J) T: r6 D, f3 \% c       SuperscriptBox[
    6 Y8 W: _- L* z% x* `4 Y% K        RowBox[{"(", 9 e. }2 S8 N2 h- g: ?
             RowBox[{
    : B1 B1 g7 w$ i3 z& c          RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    * p& k4 v% k! X/ G# [       SuperscriptBox["x6", "2"], "-", ) Y9 m+ I% X2 I* e0 e
           SuperscriptBox[3 @, O% C( p  C" b7 D% k
            RowBox[{"(",
    3 {2 [  w5 o( E3 C' F         RowBox[{
    7 V1 A: _- `& j" g8 j; b! d/ N" Z, m          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    4 V# x- J- f/ f; ]' I. f       SuperscriptBox[+ p+ d2 Y; t/ F' M$ B
            RowBox[{"(", 7 j7 T& X  W* j! L* o
             RowBox[{
    0 P, B2 g, C2 P: x) M; |& s% }% ^9 @          RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
    % F& x  g( o5 a! R8 L       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", . }: Y8 I' M0 }6 d
      RowBox[{"0.07581214474544536`", " ",
    ) |, `( h' r& R% |   SuperscriptBox["\[ExponentialE]", - j9 H5 ?3 i3 b
        RowBox[{"3.1415926535897936`", " ",
      R: x, l2 u  o. L  @2 V/ @     RowBox[{"(",
    9 x. R! d, @/ d! S9 x      RowBox[{  Z4 t1 d: O- ~! B
           RowBox[{"-", "0.21008576609800003`"}], "-", $ }4 u) K% O! Y- F
           SuperscriptBox["x3", "2"], "-", : o, K& s) u2 m8 x$ r2 S
           SuperscriptBox["x6", "2"], "-", 6 L, B" w& O3 h6 v0 L
           SuperscriptBox["x7", "2"], "-", * E5 s8 R& F! P# C( t4 m
           SuperscriptBox[
    4 a/ q0 H$ r: @2 n; B$ N3 h        RowBox[{"(", 4 A" S) i; c2 Y2 y& V
             RowBox[{/ Y& i6 G  _, g# S" O2 G
              RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", % R1 F% G2 E6 N8 F
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", 2 ^% }6 |! P9 v
      RowBox[{"0.10599338351843121`", " ",
    * Y- {+ u& z  z7 N% |   SuperscriptBox["\[ExponentialE]", / c4 {! o0 N/ D
        RowBox[{"3.1415926535897936`", " ", 9 e2 ~2 _. U& _: i
         RowBox[{"(",
      ]* J. V. ?% c) ]  X8 U      RowBox[{
    0 r) p/ n* X& J$ W  g* y* Y       RowBox[{"-", "0.4481471925460001`"}], "-", ) p& d, H& y! t
           SuperscriptBox[& }+ Q4 s6 |" m1 m& c9 c! k
            RowBox[{"(",
    1 e; D1 N/ g$ T$ {2 \: ]* t         RowBox[{# V3 B- }  M6 ]' @( i, l
              RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", 8 s% j# V* ]1 j
           SuperscriptBox[7 d/ s/ c- B9 {7 p4 v, V
            RowBox[{"(", ' ^. M$ `1 ~4 d7 O* [! A
             RowBox[{) O3 O0 c) B: n1 {4 x$ v
              RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
    2 s- ^/ C% K, x# ]4 V* U       SuperscriptBox["x7", "2"], "-",
    * W1 Q  a  V7 z- \) l0 Y) f2 O" z" t; ~3 r       SuperscriptBox[. d- _2 D3 ~; n* W$ W  {5 n
            RowBox[{"(",
    : a) `$ `# @- n# J. [9 |         RowBox[{
    & d" e7 l& K7 `' c- ?- W) k          RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", " h# @8 _+ |' A  V4 g0 t' ?
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", 2 r" _. ~  o3 T" V- ]* t
      RowBox[{"0.5008208386064421`", " ", ! h! |+ z( s) k; a: _' X7 @0 s
       SuperscriptBox["\[ExponentialE]", * F6 ^' G# A  z1 I; ^5 d. n; W
        RowBox[{"3.1415926535897936`", " ", : J+ O, ~+ r6 V( K
         RowBox[{"(",
    4 P) n0 k2 U( @9 _      RowBox[{
    " ]5 L2 ~7 k2 H; k9 r1 `       RowBox[{"-", "0.08722659614000003`"}], "-",
    " H* v$ l& T- f0 _6 j2 n       SuperscriptBox[8 s6 e: ?* g5 J' F8 u- }7 V2 y
            RowBox[{"(",
    ) X  w- s! n$ K. S         RowBox[{
    * _/ ~! g3 u& I) O" W, E          RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
    3 m$ Z( R% U0 l8 I/ }$ s       SuperscriptBox[5 i1 n, F% ~; {0 _( Q% q
            RowBox[{"(",
    6 X! e  r* s% D+ I% Z         RowBox[{
    $ K7 y7 W: y7 A! r& u          RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", ) T3 |# u+ l: r3 v& B
           SuperscriptBox["x7", "2"], "-",
    : q4 T  J2 N8 v0 l9 D       SuperscriptBox[* U0 \1 n& @5 j  {" W/ d+ a& ?: ^
            RowBox[{"(",
    . K2 E3 B  @1 d! m9 S/ o+ n         RowBox[{
    $ c1 ~% u) d7 p8 o. ^7 n  l& `          RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", $ E+ M- m) b; F# t; V# c; I4 ~6 k. K% w
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    % q8 V% n' w: F# N% j, o+ s; c  RowBox[{"0.32564305572552343`", " ", 0 a+ q' G8 j, j) C9 @
       SuperscriptBox["\[ExponentialE]", 9 E$ M, g) {& d5 M& l. E! S$ U: h
        RowBox[{"3.1415926535897936`", " ",
    + S/ K6 b7 G$ ~. H) U     RowBox[{"(",
    : }$ P6 W& l% k- e/ g0 @      RowBox[{; X- C. `  m+ h. R6 K4 p9 K9 F, W* m
           RowBox[{"-", "0.23738217000100004`"}], "-", # P# a& {( X0 @. H. n
           SuperscriptBox[/ [7 I5 b. ?' X% D
            RowBox[{"(",
    7 h$ ^' N7 }- I5 }         RowBox[{
    ( [1 p3 u2 }! a* j" Q4 |; s          RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", % a, h. I( O8 v* B* A/ F/ r$ K7 s
           SuperscriptBox[7 Y% |% i% C1 G* m7 y
            RowBox[{"(", ( X( T/ v5 i: A: T- k$ s
             RowBox[{
    1 \2 ?* X/ c' r! d, _. g0 f          RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
      z% z; j1 ~' c       SuperscriptBox[' G: o( P' O5 q
            RowBox[{"(", 6 j2 J- P6 M2 t+ z" e* u6 O
             RowBox[{
    + }: ^, _" H5 G  N- p+ z& [3 J5 ~7 e          RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", . @' T5 N, [8 }( o
           SuperscriptBox[2 j( X/ }6 R' b% x- ?7 l/ y
            RowBox[{"(",
    ' @$ x: u+ `8 z' Q# @) E1 o         RowBox[{
    / H& J& m9 b5 `* l4 }. M+ u          RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", 6 z+ b$ T4 v( y/ g3 u
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", * u5 s+ w8 ]- O( m6 R1 o
      RowBox[{"0.6665374509702793`", " ", 4 c6 g2 v" v8 x4 E- E' d- b6 H2 r
       SuperscriptBox["\[ExponentialE]", 5 l, o; L3 r# T, x7 Z/ w
        RowBox[{"3.1415926535897936`", " ",
    5 w' ]$ y# k% |, G$ y     RowBox[{"(", 6 ~0 l; n) ~- c
          RowBox[{. P; O* |( i% ]4 Q+ G
           RowBox[{"-", "0.19162171876400003`"}], "-",
    % \7 _1 x1 g) C; l/ v1 d9 E5 {# E1 m- [       SuperscriptBox[- [- y2 @1 I* T7 y3 }$ S; q" k& f
            RowBox[{"(", 5 e# h9 {+ q+ Y6 @! T1 \/ j8 Q
             RowBox[{
    ) f1 c; ]: W7 K# N          RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", . n; C' W) p  t8 g7 f7 ?  O5 J1 k1 N
           SuperscriptBox[
    : n6 M  @+ i6 c  B1 K$ M4 v        RowBox[{"(",
    + p  o/ u, C& y8 q/ C         RowBox[{
    5 c* D7 r& v  j6 ]9 b/ Z4 f7 X          RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
    % e3 m9 p7 E, ~3 Q, U0 c       SuperscriptBox[
    1 p( y- Q+ x& u$ u5 Y. P, {! l. S        RowBox[{"(",
    & E8 i9 x, A2 x) ^         RowBox[{8 m' K+ H6 p1 L* a5 A0 W
              RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    2 R4 [# N- U0 S, {! a' ?8 f       SuperscriptBox["x8", "2"], "-",
    % X; l/ [5 |' W( J6 e% ^5 W       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    # B6 W+ n0 {7 G( Y) [  RowBox[{"0.4812237524557293`", " ",
    ' }# c# j$ ?4 Y+ w8 t( t   SuperscriptBox["\[ExponentialE]",
    ) ^+ @; B: I0 \4 h9 V    RowBox[{"3.1415926535897936`", " ",
    + b) v0 I8 D/ R/ b! L( n  L     RowBox[{"(",
    , V1 q% H2 G- u# l      RowBox[{' W+ q2 [4 t% X- ~) A  ]
           RowBox[{"-", "0.109748954594`"}], "-", # Y9 g3 S) D2 |, |: H
           SuperscriptBox[' O  `1 o# }0 R- l9 E- ^( ?
            RowBox[{"(",
    " `6 a( a! R4 f* n' n         RowBox[{! j* c* K2 g8 @# ?$ ?
              RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", - C+ Z0 J0 y' E) V
           SuperscriptBox["x6", "2"], "-", + E8 H% b' Y% r: ~. @+ h2 L
           SuperscriptBox[5 E' C/ ?; R- I
            RowBox[{"(", " k+ d+ G2 w& @7 m8 r6 e0 h2 x
             RowBox[{
    ) D, e9 V: |- @: D& Q          RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
    : a! d7 z1 t5 T' e2 y+ h       SuperscriptBox["x8", "2"], "-",
    ( {$ o# `; i: ]1 b! E) A       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", 3 G' r3 i) _, f
      RowBox[{"0.176024676254045`", " ", . z2 e2 [( w/ }7 e9 o
       SuperscriptBox["\[ExponentialE]",
    $ n3 d! T0 }, F/ J  m" X" B3 D    RowBox[{"3.1415926535897936`", " ", ' Y: E4 K  [- e4 n! ?7 o1 t5 Y% ?
         RowBox[{"(",
    9 o2 _+ y8 o7 Q      RowBox[{
    % ~$ d' i8 T4 P       RowBox[{"-", "0.14616677062500003`"}], "-", # W, _' Y* K# F. v
           SuperscriptBox[7 O, u+ W3 I& s
            RowBox[{"(", 2 ^. f9 ?, q! `& e3 u
             RowBox[{
    : Z/ g% `) h5 Y  s2 M  X5 z2 ?6 T          RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", / l4 G3 R, m6 w2 y/ {6 c1 d
           SuperscriptBox["x6", "2"], "-", + T: R- s+ K4 N# t# g, U; F# ]7 t
           SuperscriptBox[) C+ s: T! L6 e# }3 c7 v0 Q
            RowBox[{"(", 8 j' \3 Q2 B! P
             RowBox[{
    4 H5 p% `" L- X, q& _( i          RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
    & Q8 u. s# c* T: c4 R, l" i       SuperscriptBox["x8", "2"], "-", 8 [% b* M/ D* r7 U5 w6 \
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", 1 `5 Y, y9 `/ P" |9 Z
      RowBox[{"0.5945873894818965`", " ", ( f. l9 D4 H' Z: v! }) C
       SuperscriptBox["\[ExponentialE]", 6 ?3 T4 j1 X* T2 [6 K' M
        RowBox[{"3.1415926535897936`", " ",
    6 f8 ?; @0 I7 L3 h2 g( x% Y     RowBox[{"(",
    7 n) O% g' e7 r/ Y0 e      RowBox[{1 F5 B6 U: I% W& J
           RowBox[{"-", "0.10407011464100005`"}], "-", 3 ]6 o& l! o; b. i
           SuperscriptBox[
    3 m: u0 W; G7 Z7 i5 `/ l# x. k        RowBox[{"(",
    . {3 N0 o) s9 |2 Y0 b6 x2 L) m         RowBox[{6 l0 m2 G# V6 Z
              RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
    ; o7 c) U, ]5 g; ?9 b       SuperscriptBox[
    " b! @+ m% ^* A$ l* o6 v9 V        RowBox[{"(", ( J5 P: v+ _5 h0 ^+ ^& Y4 w
             RowBox[{
    + {' n1 U3 w0 c5 l5 _          RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", / Z1 O/ ^3 j' w4 c
           SuperscriptBox[% I/ L& c( j5 b
            RowBox[{"(",
    ( \: s( p4 l9 H& a8 V4 S         RowBox[{. W8 x  b4 a" ~4 f$ v/ l2 g
              RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", & ^' {0 ]5 @+ D! ?
           SuperscriptBox["x8", "2"], "-", 9 ^6 w6 k& A7 K( Q8 \
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", . l% F5 j3 M  R7 {
      RowBox[{"0.027591936509660075`", " ",
    5 E! ~" b+ y: k6 l( g& W2 c   SuperscriptBox["\[ExponentialE]",
    6 z; i+ V, g" f1 h2 s$ v0 Y    RowBox[{"3.1415926535897936`", " ",
    : `6 _& F. J: g; k" y: w1 \     RowBox[{"(",
    3 F3 q: P8 I6 s5 ~      RowBox[{
    5 U6 d& z3 B3 V% n8 t2 |       RowBox[{"-", "0.31770463544200006`"}], "-",
    , p! X" y$ W) `3 T       SuperscriptBox[
    7 S6 B( x  |& O4 B/ N0 j# ~' }        RowBox[{"(",
    ' r' b% u- [) s) w7 n7 C         RowBox[{
    $ j8 D& u$ \8 n# P          RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
    . t+ P9 w7 r) v. U: b1 x% D       SuperscriptBox["x6", "2"], "-",
    ! P2 S3 E' N9 Q& K' C       SuperscriptBox["x7", "2"], "-",
    + m6 u' ?1 i1 {1 x1 |       SuperscriptBox["x8", "2"], "-",
    0 q) W! p. a1 R  e8 h       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    $ Y8 l' d6 C9 X; z$ `  RowBox[{"0.5252475961933536`", " ",
    , ^& f/ t' T& g' Y% r( C$ t9 f   SuperscriptBox["\[ExponentialE]",
    , B" a6 g0 G. ^' V! Z- D# r    RowBox[{"3.1415926535897936`", " ", + {! n: B+ i6 C% a% l
         RowBox[{"(", * d( o( j- D1 U4 @
          RowBox[{
    7 i% }$ M7 X( O5 O       RowBox[{"-", "0.6410867660730001`"}], "-",
    2 P/ p" }: B! n6 ^) I: f       SuperscriptBox[
    ' T) m& l1 U8 `4 e/ }        RowBox[{"(", 5 t+ i) x, k9 f9 [
             RowBox[{) X% {1 j1 y7 |! x/ u( c: m
              RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
    ' G; V, H; ?& i; i9 m; D3 u       SuperscriptBox["x6", "2"], "-", 1 O- B3 T8 _  k: r' ~/ y1 u6 `
           SuperscriptBox["x7", "2"], "-",
    * {( [- e  `+ @       SuperscriptBox["x8", "2"], "-", 2 W2 N; n! d* L; L
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
    / n: a& E, ?/ d4 C  RowBox[{"0.32047284779644936`", " ", & d1 {: S/ s  Q. J2 }0 m; Z5 s
       SuperscriptBox["\[ExponentialE]", ! A: j" U) b2 @+ L; v& R# ?6 A9 L
        RowBox[{"3.1415926535897936`", " ",
    : ^& l3 y6 c$ e$ R2 [     RowBox[{"(",
    4 I2 F& P/ s* N4 u5 d% r      RowBox[{% i) S8 w: r. P" z/ U% Y4 E
           RowBox[{"-", "0.155663887074`"}], "-", + W0 j: K* u7 e  ~( D& X" o+ f
           SuperscriptBox[
    & T2 c0 k$ \. \& T: M2 W) p- M        RowBox[{"(",
    7 ^) `$ P. R% u         RowBox[{* q7 f; P7 s2 ~6 p
              RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
      p: S8 j- i  e* D1 y2 u9 I# U) k       SuperscriptBox["x6", "2"], "-",
    , j" l  _& c. J- K       SuperscriptBox["x7", "2"], "-", * V2 p2 }+ c/ j& g! C; d- [
           SuperscriptBox["x8", "2"], "-", ( K" v( I# V/ T/ N4 }
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", 5 z! ]4 S! q3 e. d/ Y' L! E# `  I
      RowBox[{"0.7528674241482847`", " ",
    9 C$ T- I2 d6 w: f   SuperscriptBox["\[ExponentialE]",
    , c5 M, {! C7 v$ F    RowBox[{"3.1415926535897936`", " ",
    1 Z5 K3 E8 X0 t- _" i     RowBox[{"(", " c& S9 O& F. K$ s9 y- k( \2 r7 _+ f
          RowBox[{
    * w$ p2 y  @" f, ^       RowBox[{"-", "0.14151232428600002`"}], "-",
    2 y7 `" ^- J$ R! |4 l; S7 `& o       SuperscriptBox[) u  v: o0 o" r
            RowBox[{"(", ) D1 O4 i) K$ v5 \8 ]/ T8 U* D# ^5 p6 e
             RowBox[{( W! d, {9 u( s! a# b8 a
              RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", ! U3 B6 f  o. R
           SuperscriptBox["x6", "2"], "-",
    ) x" Q+ Y7 p4 C3 z- j$ y& @2 u9 Q4 {       SuperscriptBox["x7", "2"], "-", * R/ q- [5 p. B! [2 C) g$ r7 U4 C7 \
           SuperscriptBox["x8", "2"], "-",
    . J( K; E2 z  P; Y" r. H6 W       SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",) F# [& v) b  O1 \3 ]
    CellChangeTimes->{3.5779628386090403`*^9}]' L! E8 d" p! l# v, D$ w
    }, Open  ]],
    ; {, L9 s/ ~% a) E" p" i5 x% J# }! f
    8 `) U; {& H1 |, ECell[BoxData[" "], "Input",
    " f0 p% s7 W: a+ Q0 X$ P; ^8 k CellChangeTimes->{3.577962835879035*^9}],
    / s% @3 M+ e, P# A7 \; k
    6 r- r5 ~9 N, r5 I- x2 Q2 lCell[BoxData["\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\:4e3a"], "Input"],1 i* Y7 \  g3 O: l

    1 ?$ E7 F) ]: G9 t: b# yCell[CellGroupData[{  {5 q* @& d' y9 l7 R

    , |) C5 z2 N- V3 J' e: kCell[BoxData[
    & E; U( O4 M9 N" {& k RowBox[{"y2", "/.",
    , Q' c  Q8 p2 P! _1 K, h  RowBox[{"{",
    * p* W7 s3 e& B' j. G   RowBox[{
    3 N5 k% y/ g( i4 N& C1 M  X    RowBox[{"x1", "->", "0.7406"}], ",",
    4 C: X" F( Z! G" k5 B8 z5 u4 l8 G) J    RowBox[{"x2", "->", "0.4621"}], ",", . v# `, L0 L; V. `% r& E
        RowBox[{"x4", "->", "0.2221"}], ",",
    " {2 h  ~( u) u8 j0 _    RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",' R! P$ f" L$ J& z. T8 M$ ~: c/ i
    CellChangeTimes->{3.577962787784151*^9}],: e9 T; M+ Q. V" w1 [$ }

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

    ) K  O- m# E$ Y5 Q& P  n+ ^这个是用mathmatic做的神经网络，能导出最后的权值，就是可以写出表达式，我想用matlab做，却不知道怎么做
    回复

    使用道具 举报

    569646632        

    0

    主题

    7

    听众

    46

    积分

    升级  43.16%

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

    • 签到天数: 9 天

    [LV.3]偶尔看看II

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

    使用道具 举报

    -___        

    0

    主题

    8

    听众

    44

    积分

    升级  41.05%

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

    • 签到天数: 12 天

    [LV.3]偶尔看看II

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

    使用道具 举报

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

    qq
    收缩

    • 电话咨询

    • 04714969085

    fastpost

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

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

    蒙公网安备 15010502000194号

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

    GMT+8, 2026-9-11 03:28 , Processed in 2.598093 second(s), 99 queries .

    回顶部