快捷通道

QQ登录

只需要一步，快速开始

  注册地址  找回密码

数学建模社区-数学中国

留学>>
返回列表 发新帖
查看: 10631|回复: 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
    问题完善一下！或者把代码贴上！
    + m/ t/ X2 v7 t: R' z
    回复

    使用道具 举报

    琳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
    3 o. J9 [; R& |9 h8 F神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗
    ) @9 B+ f1 x( ^& R2 j
    (* Content-type: application/mathematica *); S4 E. M, I7 P4 `

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

    3 M- r# E( {. X% Z+ eCell[CellGroupData[{
    * l2 e! I% X. ]6 v; T
    & g6 V4 G. Q9 U& F  q: JCell[BoxData["M1"], "Input",9 \0 [9 }4 h# r1 c
    CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
    # O* q7 H( L& {, I" G8 ]- q" l4 S/ @  L  q8 S
    Cell[BoxData["21"], "Output",3 d- s: T1 \& C' d" p& ^. A3 Z6 D: i
    CellChangeTimes->{1 m. e( o/ R1 ?/ o$ q6 _2 B
      3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {
    ; `$ `5 F0 O5 q2 M- R   3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9,
    - X0 M9 s/ v' O7 T   3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {
    ) b2 g4 O/ @8 U1 P, Q9 w0 F   3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9, 2 h! [( m% ^4 L4 p
       3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
    3 l6 m7 C9 E' L6 {* `   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9,
      q- b+ \& j7 x/ {2 n. I' G   3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {, H8 A% F5 w2 C6 v4 R/ ~
       3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9,
    8 `9 D- b" |0 {3 Y   3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9,   e. j4 R' y( L5 O9 C. X- ^
       3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9,
    3 N1 }2 K) a/ Y7 b$ `' }   3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9,
    ( z  T% O  G$ F1 N! }% r   3.577960515600726*^9, 3.5780121541875*^9}]( U- E% ~8 ?0 g/ c: O
    }, Open  ]],: y  @8 n! z/ e
    ( L& f1 A# ?$ b+ H, A
    Cell[BoxData[. k; w6 ]0 g, y" ^" b0 A4 C
    RowBox[{! C# R+ B  k, W6 b% d2 h) m- q
      RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[", 0 d" R/ e/ I- x" d6 n! y
       RowBox[{"1", ",", "i"}], "]"}],
    : E8 k5 N5 J3 q1 o  p4 ~1 U  RowBox[{"\:5230CM", "[",
    6 y+ F' K2 Z7 F2 _   RowBox[{"21", ",", "i"}], "]"}], ' a; n+ U+ G! Y8 G( S& }
      "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\
    9 Q* F& v+ _, t\:51fd\:6570u1\:5230u21"}]], "Input",
    ; c/ x" {- }# x% T0 Y& w CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {
    ; C  X0 s! y) a. W  3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9,
    6 }0 \7 ~3 e/ _  3.577960526583145*^9}}],5 I, ?% W# B9 m+ n4 [( f1 f( m
    0 V7 a+ g* e' _; A1 p  W( Z* |) G
    Cell[BoxData[/ N+ @) C  t, P' ]& C/ C; H; B
    RowBox[{"Clear", "[", "Delta", "]"}]], "Input",! u( T' ~) d1 @2 _) Y6 `
    CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],) K; ^9 A- |* z% [. J, V, r5 i; W0 U

    8 g7 n- D# P+ M8 W! ACell[CellGroupData[{
    8 q4 [, [! A  u5 d9 f6 g! x
    , [& A& j. E9 r8 k) a  nCell[BoxData[
    - o) D; u' @) x2 x! l RowBox[{"Xa", "=",
    3 i/ Z" S. y" P5 G  RowBox[{"{",
    9 \  {7 U4 o+ S# X. O   RowBox[{- R2 ?. a7 l# p/ i, g' N0 R, v
       "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ) `2 Q9 f; F- K- q, U
        ",", "x8", ",", "x9"}], "}"}]}]], "Input",
    + [8 a& U- I* F6 Q CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
    ) i" v" S! L! z9 N0 X1 n' @7 i# q1 t3 I" n
    Cell[BoxData[
    ) }1 a" a, F* O1 S5 L RowBox[{"{", * N/ V) f# x% A
      RowBox[{
    9 C+ Y5 S8 l2 o% V2 b" P  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",8 P3 f7 e- u& f  r: D' a- U* C( V
        "x8", ",", "x9"}], "}"}]], "Output",( z: _+ d' b+ q/ q
    CellChangeTimes->{' n- `. T; d7 E
      3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9, 6 D( D$ O& [' X7 l+ p
       3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9, . y7 v3 L) T4 X: l8 L6 T/ X
       3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
    ! f3 {4 t! D0 s4 X, R+ N   3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9, 7 ~7 u0 }  ?  Q5 q$ f  [, q
       3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {
    # W1 n8 X0 V3 R4 w   3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9,
    1 Q( D1 l: [+ J% g. a) {* M   3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9}, & ]3 w2 [- \4 F/ v0 j& R
       3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
    & h6 W7 V" s; H* y4 G( y/ T* D   3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {: q$ P6 P, @, [. @2 H  j
       3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9, 8 z2 l; h6 k  l0 T0 R
       3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
    + N- [3 c- c5 |9 v: R   3.57801215725*^9}]
    # N% a' z- V! C9 V}, Open  ]],' B8 w( c0 R4 [7 C% Y

    + ?* t% N6 K: yCell[CellGroupData[{
    5 s6 m* v9 E$ x; k# d5 ~
    : j+ ^& j+ m4 C! G! TCell[BoxData[) {9 @- Z, m" E* y( B9 C2 h
    RowBox[{"Ca", "=",
    ' h( _7 W8 x1 K* C  RowBox[{"{",
    ; E" K9 D" J/ k/ j/ k   RowBox[{# w  N. V( p8 _! _2 D
       "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", & r$ I+ Q( P5 R1 l  x8 ^+ i
        ",", "c8", ",", "c9"}], "}"}]}]], "Input",0 [4 Y7 @4 O; S+ z' _& h) `* v
    CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],
    2 F4 ?0 A9 u1 ?0 Q& L9 Q0 E9 ?2 t4 j) u6 w1 `2 l2 F, Y5 K# p) ]2 S
    Cell[BoxData[
    3 Q1 e# Z: ^( x; U RowBox[{"{", / v$ r7 Q* V4 Q  a; @
      RowBox[{% A; B, ~4 D+ m) Q0 ?1 ]- ?
      "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
    9 {3 @8 b& I0 S1 I    "c8", ",", "c9"}], "}"}]], "Output",
    3 p& `8 v' Y7 L CellChangeTimes->{3 @( G! {! [# N7 e* W, g
      3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
    " m( [- c: z2 @( ^9 k2 K   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,   @8 k: H9 a6 Z/ W
       3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9, 1 M; b3 \% Z( E) A5 B
       3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {
    1 m6 ?. T* F1 n# S2 {& F   3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9,
    7 z- r2 L2 `. A" s/ I8 S0 d   3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9},
    . w# }! R- d& D   3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
    - p3 V1 Q% W3 k! h: ^5 ~& w   3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9, , v0 W. _8 v" Z1 F$ Y2 T/ E/ |, d
       3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9}, 8 q1 c) ?( m! m& S" t/ F+ u
       3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {( W: {6 E, p! R6 J- l
       3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9, 9 n. f3 r3 t( A8 j, a) h: u8 W
       3.577961904604212*^9}, 3.578012158671875*^9}]
    & h1 ]. w* O5 m' M2 y- [. a7 W& R}, Open  ]],/ u9 U% J# m8 h2 y& @1 w( @
    0 ?. }- W5 o9 B; D3 L- @
    Cell[BoxData[9 t: p% m, B9 W! w4 w
    RowBox[{"For", "[",
    ( H7 y, @2 e0 G7 p5 y, u  RowBox[{# }/ X) ?1 w2 r# |
       RowBox[{"i", "=", "1"}], ",",
    & j6 g, P1 p5 ]2 K+ d   RowBox[{"i", "\[LessEqual]", "9"}], ",", " C0 }) s: h1 p; N  ^( ^; p
       RowBox[{"i", "++"}], ",",
    ! N3 m; u+ Z4 m# f4 E   RowBox[{
    - v" g7 Y: L  q4 X+ p    RowBox[{"Ca", "[", ! V! Y, \, E7 P8 M/ H
         RowBox[{"[", "i", "]"}], "]"}], "=", 1 d+ K  b7 l0 R  ]2 \4 P7 W4 i+ _
        RowBox[{"CM", "[", ! B5 O1 I! U  s" q( f
         RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    5 W; b& O% i0 _ CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9}, # ~- ]- H- f: _/ u+ T. y, }
       3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9, , E- p4 r* z% ?2 e! P7 X+ P
       3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9, , m) x' @! {- k( U8 ?6 H
       3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9,
    7 J5 S# {9 W: l* t0 A   3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9, + {( _7 O8 U4 R! W8 y$ R% Y
       3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9,
    % |) a- H6 E8 t5 z; Q6 i   3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
    " m# G+ W) j3 g! [% e   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
    7 M# K* h* J8 g   3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9, % \% N6 o  J: h9 c: I! K2 p
       3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
    ! e/ G+ U7 ]3 {5 g' G$ ^   3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {% o6 p+ T+ z2 a3 r2 t  X
       3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9,
    ( W* c2 R9 v8 ^' I; p% m8 @   3.577961906897415*^9}, 3.578012176296875*^9}],- Z8 a! o7 j6 T3 c

    5 t( |- T+ B2 ^* |( ^Cell[CellGroupData[{
    ( e0 @+ [: P7 t4 f$ O  I$ X9 G
    Cell[BoxData[
    2 ^0 K8 v5 Y3 ]4 ? RowBox[{5 Y4 K2 a. K8 J8 H1 T- M3 [
      RowBox[{"(", * h3 f4 r) `# y' @
       RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    5 ~* X$ [# r- }, Q# |5 Q  RowBox[{"(", 9 ^) ?* ]! S( P7 e6 X+ \
       RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],; a$ S2 X0 O9 [  F

    2 `6 T  q% \$ z$ }; cCell[BoxData[
    5 c/ h& G. j3 b  g8 x RowBox[{
    . H* L+ q. g: L; i/ U  SuperscriptBox[- @& Q5 D) y" x; Z# Y0 d
       RowBox[{"(",
    , X4 b: w! Z8 T8 d    RowBox[{" w# F4 s. O1 P2 K
         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+", % N; Z$ u3 d4 f5 M# D: o
      SuperscriptBox[
    4 E' Q, N& V7 G- Y( P! a; q   RowBox[{"(", ( L" K# p; @" d
        RowBox[{
    + @5 T# g) H& f8 `4 b     RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",
    , q2 z0 d5 `: H  [: I  SuperscriptBox[
    % [  H# P% L  E* J8 @   RowBox[{"(", * ^5 q% H8 C( |5 z% l; ~# C6 `! x
        RowBox[{4 B  `. ^" J, K$ t& I
         RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+",
    5 J) p- |/ I/ U  SuperscriptBox[
    % z5 y/ ?* r/ |- }2 D8 c9 x   RowBox[{"(", 2 B# M. n+ ~; l
        RowBox[{: Z2 Z7 l5 a- O% D
         RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
    / |9 {- E( [. Z9 W1 Z7 f% i  SuperscriptBox[3 t  d/ C- [  X. u  j
       RowBox[{"(", " z+ o+ w7 O$ U: {" i* C2 w
        RowBox[{; D3 @) Q- E: R0 ], Z
         RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+",
    5 f  M. s/ b$ Y, {9 d- v  SuperscriptBox[
    % U- d! e% m! K/ p7 J' \- D8 K   RowBox[{"(",
    0 X. Z) Z, {- V, a    RowBox[{
    ( D+ q5 V5 G- L" F. y     RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+", . A" L, m0 j6 R, q/ Y
      SuperscriptBox[
    - x1 L% s. I2 U6 _$ ]" a) G" o. l) N   RowBox[{"(",
    : [7 a: G% E7 }( {/ Y1 ^4 l% ^    RowBox[{
    ) v3 w3 w& i$ N" ?  Z5 C     RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+",
    - m9 y8 ~/ d4 H; l9 E8 @( g  SuperscriptBox[
    8 }) I1 \$ H' I/ G% p   RowBox[{"(",
    ! U8 p$ c' o8 U; S1 Q- i4 q    RowBox[{
    9 b  z0 b2 D  w4 Y* z     RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+", # i- @# E# ]6 a. e4 B4 E
      SuperscriptBox[) z1 c. T- E4 A/ ^  W* U) j/ j6 j
       RowBox[{"(", % z: K' P. Q) S& N" p; k
        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",& G2 d6 V8 h$ ]+ T3 F
    CellChangeTimes->{
    - |9 ?0 s  Z  R$ q. |% |6 I8 K  3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9},
    " b* @3 m; b. D5 M4 _5 m, l   3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9,
    # m9 U: s8 _  Y1 W   3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9,
    ; ]: i, F; M- Q) N5 C* C5 {; h   3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9, 6 t, h" }) y' C8 L2 X+ X2 y
       3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9}, / a# d/ E3 e# J' u! K* n; J
       3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9, 9 C0 Q4 J5 G2 O, |$ k& _+ _
       3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
    ( h# N2 }+ A) g: |" r2 s5 G   3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
    ; j6 i$ l" q  p6 x$ M5 F   3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {; c- o4 l& K' l! I" j7 M+ L
       3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {
    ( f# K- x, ?9 @: N   3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9,
    0 m3 O% R, e9 |! o1 d  J7 A   3.5779618537169228`*^9}, {3.5779618846049767`*^9,
    ! I% }) g& u1 b) u; J+ |- e   3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]
    ; g* b# F9 i. [6 c}, Open  ]],+ R/ V: ^+ r0 H2 k. V
    * s- R" D" y3 f" W7 z* A
    Cell[CellGroupData[{- q- J8 s4 e- G4 x1 m5 e' L2 p

    * A  T4 Z* J5 o, Z, u. [Cell[BoxData[, C+ |: P+ {* X/ Z3 ]
    RowBox[{
    " `+ Y& F0 v% h- [  RowBox[{"Ca", "[",
    % c2 ?# g1 f, Y% O+ I   RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",% F( t( N: o8 }! N$ X
    CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9, 6 V5 c; w. T3 W% ]' }( V1 W
      3.5779616465173616`*^9}],
    0 Y0 X. D- V! w0 U2 b
    ! ]5 e; }7 t- d9 x+ }  R1 VCell[BoxData["0"], "Output",) c0 r& ]6 s! G) A
    CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
    + x# c- k5 @0 O9 z  3.5779616484049644`*^9}]- Q' O# k$ V' B" p
    }, Open  ]],+ J" w" O6 H4 v1 @& n8 h
    / _4 Y# X( _" U) v
    Cell[CellGroupData[{
    8 `4 j; P* l! f. r7 H! W' J% w& g' F0 ]* W# Q- F
    Cell[BoxData[: E2 q8 o0 r2 o' f
    RowBox[{/ }: A- @/ b$ Z$ ~" K
      RowBox[{"Ca", "[",
    & `& P2 d, W; {/ b   RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",; s2 n4 P$ t! O" a' u
    CellChangeTimes->{3.577957376235614*^9}],
    ) l: u0 Q) R0 s
    / Y* m1 a/ y& z' v' D3 D8 WCell[BoxData["0"], "Output",
    5 U' m6 o8 J, Z1 ^9 p% R6 ~ CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]' f; U4 n( I3 M, r- D. l/ S
    }, Open  ]],- q) T( F, D& S+ S$ G
    " H! Z9 E) O6 w! j7 k
    Cell[CellGroupData[{
    ' Z& N! o) ^! c$ x# s6 M2 F1 d8 m1 o/ U( q  x
    Cell[BoxData[5 g5 {' g) F0 V; R4 r% M4 o8 R
    RowBox[{
    + x8 _& _1 M; p0 t: M7 u9 R/ S  RowBox[{"Ca", "[",
    4 X& T$ n: s2 T; A# z% Z   RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
    # ~( p4 p1 f# {* x CellChangeTimes->{3.5779573112927003`*^9}],8 E: q% y: L, G  f
    0 c( |" b+ a0 m' r: m/ X
    Cell[BoxData["0"], "Output",0 Z/ y- a/ P  V6 h4 A1 o
    CellChangeTimes->{; [" q* v. N  Q( d9 d
      3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,
    ) Z$ v( K- Z5 P: t   3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9, + E* }5 J4 z" D/ S8 r: i2 {9 Q
       3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
    # Z* G9 p5 i1 p8 |3 |% G   3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9, / ^: B% h. Y6 R, u
       3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9}, 8 e* l* O) `: n* C  y, w4 ~* a
       3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]' V- |, Z+ t; Z) L
    }, Open  ]],
      q% y! n2 {' X3 R3 u% r2 y; Z) G3 D0 S8 f9 w% M: i. S% Q
    Cell[CellGroupData[{
    9 i- b8 k( T1 n) S2 y0 g% I# d% V3 N' R. ?+ |9 u/ o. e+ {9 F# q
    Cell[BoxData[
    5 n- i' u' f4 y9 D RowBox[{
    5 }5 y+ O4 E8 H) ]: J8 {& e  RowBox[{"Ca", "[",
    5 R5 `# O& ?4 z8 X5 s  D7 }   RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",$ f' h0 H2 h8 W- E* v
    CellChangeTimes->{3.577921461734375*^9}],
    4 J8 M5 A, b: b6 A7 m& m
    4 M- _$ I3 c: P7 J1 pCell[BoxData["0"], "Output",  S  m* i; j" e/ D' q( B
    CellChangeTimes->{
    & M8 w& {6 q" N+ \+ N  3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9,
    4 B  p1 H& h* ^0 _2 z4 v5 ]+ D: P   3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
    , K1 s: U6 e" \) N/ B   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
    6 N$ @9 Z+ f  q- a4 B1 O  h" r   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9,
    , I5 y/ @, J  L) R. K   3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]  n/ Y5 }# K6 i/ W1 v
    }, Open  ]],7 v2 |3 V2 K9 h4 S: S4 X

    # C! V* V3 g( T/ ]) }Cell[CellGroupData[{& R, c6 A) p, E
    4 l# j/ O, w3 O+ ?" m# ]* H) z
    Cell[BoxData[& m: r. N! C7 b- [* K9 h
    RowBox[{7 ^$ h& g- `; ^
      RowBox[{"Ca", "[",
    , p8 p& I' p- B0 T/ C   RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",, d$ Z- \' g' J7 _% V1 v4 O
    CellChangeTimes->{3.577957303118286*^9}],
    8 {* B7 J& a# d8 i8 o
      Z( x& O3 i! p, OCell[BoxData["0"], "Output",% y: W( H! w( ~
    CellChangeTimes->{) a: D+ C2 u, v: j
      3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {
    1 u% p" R5 x7 h) `1 s1 H   3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
    7 m% {& |" E1 T  Z   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
    . ~9 ~7 K( H* u6 G9 n3 O' h6 P2 X   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9, - @, }/ C. {$ }0 q
       3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9, ) V! E6 \- S$ V' ?0 [$ Q2 Q
       3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
    $ V+ A4 a5 ^: ]+ J/ k   3.577961889378585*^9, 3.577961912965826*^9}}]
      [  S) y, }4 u, R; }' K}, Open  ]],8 ]" U6 o" k$ Q8 a

    $ e/ w2 }. [$ y0 ^Cell[CellGroupData[{
    ; G2 J* i$ Y; Z1 e( N' y# Y$ ~. P+ Y+ |4 g& u; [- F; n& c
    Cell[BoxData[, C; H& U/ w+ h) {# U! }- F
    RowBox[{# O2 s/ N0 d+ a$ d. X
      RowBox[{"Ca", "[", : J! j; ]1 O0 J' U" ~  x$ b
       RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",' E  B7 q6 A$ y4 g
    CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {
    0 O+ A, _* o. O  I  3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
    " ?4 L  V, W* D+ X; s2 ?; ]  3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {  i  P2 `) O# Y! h- Q
      3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
    1 \5 X9 M4 G. m, I1 Y2 Y  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {: |  W' J& m0 j& M6 i
      3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
    : T% R% C# L4 M  3.577921435703125*^9}}],& a: h7 M3 r; z# G/ ]9 I9 w
    9 k: L, S: z7 s9 h3 l, ^0 B
    Cell[BoxData["0"], "Output",1 C3 Y  ?, T- t6 c
    CellChangeTimes->{
    6 n% _8 I9 d+ l6 v' ~7 ]  3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {  ]6 l4 V- j* Q/ S
       3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9,
    , t4 Y$ q! L$ q; o$ h9 ?   3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {7 ]. A  F  @3 o- w& p
       3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9, 5 X9 I- x, d/ o6 r8 s
       3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {4 @. K: @' T# F! r1 A' o
       3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
    2 O  z& P- y# C9 n# x   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9, 3 G& {: Z1 I, b9 T0 b
       3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
    3 C' d, U0 b5 ^7 O$ U8 m: W9 D6 y: w   3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
    ( p2 a. u  p" o8 u& T3 j0 `. f3 x8 F   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9, . M& s! _' m+ E$ ~6 J0 |+ D
       3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {" t8 q/ n: p% }. ~
       3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9,
    , X( j% n' U4 z7 u0 ]7 u   3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
    5 z; G6 f9 C' \5 P}, Open  ]],0 p$ K! ^, o( E3 D
    , }5 p/ z! s; H
    Cell[CellGroupData[{, a" e" |  R+ R8 j7 @

    , h/ k, B9 ~9 b8 U: D! e- d6 ~+ U3 UCell[BoxData[
    ; ^, R0 f: g; O! y RowBox[{"Delta1", "=",
    ! R6 n* T- }3 N  _+ v' J1 C, _" }  RowBox[{  v6 b6 n& S( C- a" z$ M/ a
       SubsuperscriptBox["\[Integral]", . X' l. X: F2 I: R( J8 o) [
        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    * H' q; x! n3 k. p   RowBox[{* p, c4 M* f$ q% i3 O" j
        SubsuperscriptBox["\[Integral]", % E2 u$ ^, x; G2 t1 Y
         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    * o% R  I. Y" ]9 n' F, g, P    RowBox[{
    - G# Z& T5 w$ c* z* W5 H5 C     SubsuperscriptBox["\[Integral]", ' j1 d% i- H: j1 x% G1 B0 N6 w3 ~; x
          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], # Y" n# _( a/ A9 E! _
         RowBox[{
    - b( f: a& G5 s, t      SubsuperscriptBox["\[Integral]", 1 w( a& g4 D* I
           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ( F' A8 {. b0 h* d3 Q/ x1 q
          RowBox[{
    ! s6 U4 f0 @1 j$ `0 A" U0 s6 N       SubsuperscriptBox["\[Integral]",
    % z+ m7 k: j8 C' q: n9 g' i/ k        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    ) z0 o" S9 j9 W) D; k       RowBox[{
    " S/ V  k$ R1 W9 H        SubsuperscriptBox["\[Integral]",
    ( s/ k# w! I/ a0 r. Z+ c% I& X$ L; n         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
      r, L' Q& u9 S) l        RowBox[{
    ' ?1 I. l  u; n" C# I         SubsuperscriptBox["\[Integral]",
    2 n7 ]/ X! F" Z9 ?7 P          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    0 c5 w/ X0 m* k# j2 Z) ~) m4 o- ?3 e         RowBox[{' {5 ~: q' z6 V% ~: L* a2 s
              SubsuperscriptBox["\[Integral]", 1 O0 Z) i8 j3 e1 ^# W) _
               RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], * z: G7 O: M  s- `5 \8 \
              RowBox[{3 l2 Y) z' Q$ ~3 Z& k. G
               SubsuperscriptBox["\[Integral]", ) F0 }9 o3 U3 p8 W& T
                RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    2 ~$ b3 P$ O) ?0 n; L+ y9 \& b           RowBox[{
    : ?) M. `+ T/ W; w) b9 \            RowBox[{"Exp", "[",
    2 e- }% x# h! Q2 q             RowBox[{6 F7 x9 d3 J% c2 L7 M# D1 |; M
                  RowBox[{; E6 S# Z' [" b  Q& _- S
                   RowBox[{"-", 8 F. M/ q- o, ?5 H0 A
                    RowBox[{  m( v3 [2 |" G* p
                     RowBox[{"(", ; I' o, R2 c3 A+ a8 O$ w- n! S
                      RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    8 U) E3 C" m/ d" E                 RowBox[{"(",
    0 ]2 }) C& L: l' O                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
    8 ?; L$ Q8 X0 l+ w* g, T( X              "Delta"}], "]"}], 7 J. d! I3 _/ `
                RowBox[{"\[DifferentialD]", "x1"}], 8 m* _0 d) B# |# Z' B# V9 @4 G
                RowBox[{"\[DifferentialD]", "x2"}],
    4 z) N0 q+ @1 U' p9 G% H# n7 y* B            RowBox[{"\[DifferentialD]", "x3"}],   I! q* E$ `( A1 a: o3 M( b
                RowBox[{"\[DifferentialD]", "x4"}],
    - u% B9 y- a) ]4 s& t. U  n" S            RowBox[{"\[DifferentialD]", "x5"}], & b( B/ ?* x) F; ^
                RowBox[{"\[DifferentialD]", "x6"}],
    % r3 I# V+ r! Z0 l# k            RowBox[{"\[DifferentialD]", "x7"}], 9 X  M- ?! A. d. N
                RowBox[{"\[DifferentialD]", "x8"}],
    ! s/ G1 c/ y+ P; k! R            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
      X$ }. b$ [9 |! i8 u( Q1 \ CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {9 [! k* c. H# h0 b. P3 ^8 S
       3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9,
    + C1 K; m- q+ {# [% s   3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {( g; |. s0 [/ F* z6 P5 r2 g, c
       3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9, ( u; y! _9 U6 h7 t/ N6 O
       3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {9 {+ U+ Q' a( d& g  T
       3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9, # M3 B$ ?2 _% X$ u+ c
       3.577918964453125*^9}}],3 L- l8 k7 Q1 o- i" T: i
    9 L; Y1 Q1 j' J0 F
    Cell[BoxData[
    $ b8 h- k2 F' M. e  U RowBox[{"97.40909103400237`", " ", " X9 q: \3 o2 J
      SuperscriptBox["Delta", "8"], " ", # }9 q( V$ P- ^' m* V! x/ ~# A
      RowBox[{"If", "[",
    - G" g- q, I, e& _   RowBox[{! x9 Z* N7 d7 X6 z) Q
        RowBox[{7 Q0 |6 L* p& a* O: y: k
         RowBox[{"Re", "[",
    ' e+ `; l. x2 |# O6 K+ k      SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",", ' J6 z  W9 T0 T/ v5 a: f- f
        FractionBox[3 O4 }; L8 d, y& Y5 E& z
         RowBox[{"1.7724538509055159`", " ", - `3 `7 u# U, t% f& ^: G3 n0 Q
          SuperscriptBox["\[ExponentialE]",
    4 N/ x% Q+ N- G       FractionBox["1.1102230246251565`*^-16", $ y% G$ B- F7 b0 v
            SuperscriptBox["Delta", "2"]]]}],
    " [. ^: v+ [8 g1 l  k+ Z& V0 Q     SqrtBox[1 |' U0 P* n5 J: i0 I
          FractionBox["1", ' w0 V; ]% n# K5 a
           SuperscriptBox["Delta", "2"]]]], ",",
    & ^+ d( l; B: C6 L/ J    RowBox[{"Integrate", "[",
    + F  c) u% G$ R     RowBox[{0 k# U/ g3 q% u7 N% i
          SuperscriptBox["\[ExponentialE]", 6 [3 B2 o* f" c  |  y1 m
           FractionBox[
    , @; H( R1 G9 ]        RowBox[{"1.1102230246251565`*^-16", "-", # A0 L6 L! ~/ k; V+ C
             RowBox[{"1.`", " ", # a9 B: ~$ a& L5 v! V
              SuperscriptBox["x9", "2"]}]}], * j, N, K2 {" o8 T
            SuperscriptBox["Delta", "2"]]], ",",
    & l/ @1 a, v& K4 m# B& H+ [      RowBox[{"{", 3 O4 s& q8 Y4 W
           RowBox[{"x9", ",", 5 T; ?( |# u5 K1 ^# }" t% }3 @9 m5 A2 ?
            RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
    : B& W% w" h8 W      RowBox[{"Assumptions", "\[Rule]", ' V( d; q6 ^' [
           RowBox[{" I, z" Y" L/ U: {& ~: m- `
            RowBox[{"Re", "[", 5 B0 {1 P# ?- a, }8 E; h
             SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}], . u6 x/ q) u! B2 G
         "]"}]}], "]"}]}]], "Output",
    " s& j- K7 f( n! X8 h* F% r CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9, , d. l' n, I( Z
      3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9, / _  l0 n1 B1 \. f; A& u# U! f
      3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9, 6 ~) Y0 N( `+ X+ l
      3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9,
    ( x# ]* P* m9 i6 v  3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9, 7 m# ^6 ^) d! t4 S( f
      3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
    1 L: f; z' v6 X6 N4 c' d, D/ j  D  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]  R3 y6 g4 D$ K7 e1 {5 @+ g% m
    }, Open  ]],
      Z' N5 w' l4 F, n# d9 a7 H9 J% }0 n* }& b
    Cell[CellGroupData[{
    9 M& R* y0 N# D5 M0 V7 {3 [# t8 K2 H( y- d7 v
    Cell[BoxData[
    : w$ ^" W3 q" z+ m  k8 E: K5 d RowBox[{"Delta1", "=", + g8 L: V" I5 d* e0 R! s
      StyleBox[4 ]5 S9 K% a, Z3 ~+ N9 m; @- |
       RowBox[{"97.40909103400237`", " ", ! _" m) ~! E$ h/ B! L. f+ n
        SuperscriptBox["Delta", "8"], "  ",
    2 \( _& N" D. q2 g. x    FractionBox[7 x& Q0 S' n, d& s8 U
         RowBox[{"1.7724538509055159`", " ", + |7 B. ?# I0 V/ ]5 a( @
          SuperscriptBox["\[ExponentialE]",
    ; Q7 A0 `9 P; u+ H; ]       FractionBox["1.1102230246251565`*^-16", 1 U& Y, A1 o' Y" ?4 s/ ?; ^
            SuperscriptBox["Delta", "2"]]]}],
      M1 T, }' e3 `3 Z! v+ U' _     SqrtBox[" u" \+ q* p- U4 A
          FractionBox["1",
    2 D4 V# S$ I% H$ U! }/ b# n- `2 b       SuperscriptBox["Delta", "2"]]]]}],
    ! Y, a) h& ?+ e( V. \+ ?   FontWeight->"Plain"]}]], "Input",% ^* L* ^) c1 ^$ @( |2 V# Z
    CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {. o, E" t' L5 H3 O7 V% F- c- m* v
       3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,
    9 ^* R" c: l9 n; E0 ^! [   3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
    " `0 ]. i# C, C1 G9 B9 c   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
    / G! G' V. |% w9 s" ?   3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9}, # v$ d- ~) ?6 L  X: c
       3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],9 y2 R& M& r* _& Y8 u

    0 V' p& o4 p! ]# ^Cell[BoxData[
    * o2 b# z8 W$ p0 I$ q! N3 b7 T8 { FractionBox[
    % ^- |  t8 n8 ^% R' V1 w( S  RowBox[{"172.65311851642346`", " ",
    9 q8 {) f0 K4 n, b' ]   SuperscriptBox["Delta", "8"], " ",
    ' n$ s7 s+ D4 z7 D8 ^' H9 ~   SuperscriptBox["\[ExponentialE]",
    0 \- s% U& J( r) a    FractionBox["1.1102230246251565`*^-16", - L+ E* P2 |9 w! A7 m4 t' A
         SuperscriptBox["Delta", "2"]]]}],
    4 \+ f* A: R" z  SqrtBox[" M7 h6 f, Q6 |$ M% O
       FractionBox["1", 4 ]0 M* v; H9 F7 R5 q3 N6 ~
        SuperscriptBox["Delta", "2"]]]]], "Output",
    / I$ U, Q% w* v4 W CellChangeTimes->{
    1 k5 {2 P# ~7 Q, g  3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9,
    7 a  o- s$ d( M& ~/ x0 J   3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
    , R, P1 u6 _. V. y' B4 c* _# f   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
    * a5 g& H8 |1 L9 `# q* Y   3.578012166234375*^9}]1 |& ~5 `1 r) S" p1 c6 j
    }, Open  ]],$ b7 m7 C4 X/ n# i, y; n# r

    - [, a/ P: G$ BCell[CellGroupData[{$ N" `! k6 H+ m/ S, C" N1 S
    5 E* P' t: ?! A$ g- h
    Cell[BoxData[# Z/ d8 q8 Z4 |7 A6 E1 B
    RowBox[{"DeltaX", "=",
    / q, D) v6 \' L  RowBox[{"FindRoot", "[", # }# \6 J" q" T& i9 {* H6 V
       RowBox[{
    , F% J0 Z  r1 G6 V2 ^9 V) s    RowBox[{"Delta1", "\[Equal]", "1"}], ",",
    1 R" P# T& g# B3 W    RowBox[{"{",
    " J3 U: k! X- k, ^) }' f2 o     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",
    ( \& M- d0 f9 W2 _( \0 l: z' F# f CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {
    % y1 B$ R1 N% n$ I+ A   3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9,
    6 @+ E& T2 }$ c8 m( y   3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9, ! d7 U7 f# m9 ]8 v1 C: s2 D# g  J& A
       3.57791921584375*^9}}],
    ; u6 ^+ T3 V7 Z$ I# C- p9 x5 g* T$ i  K7 ?5 i
    Cell[BoxData[) \( x' z% Q& H: d4 y; @2 Z
    RowBox[{"{",
    ) D& Z! q2 |! d# l  RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
    5 {$ d) g% `& M- _/ @# H CellChangeTimes->{
    ! B% N3 q" t. ?' k9 U+ L. e  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
    ) ~8 h3 v- v2 `   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9,
    , h0 T# Q* S0 f, c; s! b7 m! O7 v   3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
    % s5 |: M3 d, i- w: A. y; H. S   3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
    6 e+ J( R: [$ O   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {; q- r! f% s7 N2 k  G' H& @+ x9 w1 r
       3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9,
    " L3 l+ w. W4 a) C1 }   3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9, 5 x$ \( J; @7 C2 s
       3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
    9 M# k3 I( T" N! `2 W   3.57796070150625*^9, 3.578012167703125*^9}]0 n" F; C  p5 d% U4 l
    }, Open  ]],4 m) U/ ?/ T% v0 k8 x

    9 V5 P0 [4 K. |, W+ W+ zCell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\
    0 Q/ K8 l" S- Q; Q4 u\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
    & Y! `5 K0 R9 s, {4 u& P$ b( l& _ CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {3 ]0 B. l5 O* D% F( \3 M1 n
      3.577960705312657*^9, 3.577960707621461*^9}}],, {" a5 f3 S$ Q0 ?* W4 m

    - }3 e' F) i/ u. g* R5 O; |7 tCell[CellGroupData[{! q$ W5 }0 ?# o$ c( I

    2 G! h8 E  R0 O" `; NCell[BoxData[. w$ N. H3 U  p3 W
    RowBox[{"C1", "=", "Ca"}]], "Input",
    3 e# Z# ~) i$ g: x( F$ K4 ? CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],0 t; P" c  V! \! |

    7 Z# E1 O2 `: t  ~, y( {0 eCell[BoxData[! V7 F7 A# k1 n" L# h  l
    RowBox[{"{",
    $ @( f! v$ |5 J: D  RowBox[{7 i; f) Q; T+ c, g
      "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
    1 o, r  Z1 d8 l! G# u* j0 a; q   "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",", 5 k, K0 Z) B" k5 j. L2 T
       "0.`"}], "}"}]], "Output",6 E) B* n) f, R5 W
    CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9, 7 X/ p* d  }7 m1 @
      3.577960710273465*^9, 3.5780121855*^9}]
    5 X2 f3 ^) O' J}, Open  ]],
    0 J. J$ v! x  [" t2 Z+ b, x
    $ |7 v* Z# z4 Z, @4 eCell[CellGroupData[{
    6 F7 D3 j  V+ Y+ _  @$ M- s% |
    9 J/ K. z9 q! }( C1 w2 JCell[BoxData[5 `3 j* l4 ?  g' S
    RowBox[{"u1", "=",
    : Q" Q0 _/ L; S: _- q' ?+ y& ]+ l" k  RowBox[{) r. d+ @8 D( V8 n% K* [- j
       RowBox[{"Exp", "[", 1 a9 W* z& W; i4 k: W0 ?
        RowBox[{6 d. t2 b3 N( d
         RowBox[{
    . t. ^5 a8 h- z# A      RowBox[{"-", 8 r& ?% e& ~4 Z! X- `0 u3 F2 b
           RowBox[{
    + j7 j9 H1 ?5 E( s! G* f, {        RowBox[{"(", ) m' R$ ?$ f" i7 H: k" N1 Q- d
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    5 m5 b8 n1 \' @0 O7 ^! B        RowBox[{"(", ) _1 B# r& r$ A/ Y# n! h" L/ W7 L9 D
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    / `# k  e! A3 p/ W5 I, Z     "]"}], "/.", "DeltaX"}]}]], "Input",
      A( N0 Z0 y% o) ~ CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {
    - z+ U5 Z0 |5 g   3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {" s6 G8 v6 R% q( N$ G8 O$ B7 D
       3.577919193484375*^9, 3.5779192326875*^9}}],
    , L7 K' s$ h" T
    3 K. ?/ d  i  R8 |Cell[BoxData[
    1 [2 a4 V; N7 N" k# m+ B SuperscriptBox["\[ExponentialE]", 0 d) ^) `$ t0 P' L( i9 D
      RowBox[{"3.141592653589793`", " ",
    ! _) x. J4 _; [+ a% f9 E8 L   RowBox[{"(",
      T3 C6 w* _9 v- I' }8 {4 s9 h    RowBox[{
    9 {/ D7 m+ \; h) P( w3 k     RowBox[{"-", ( }( Q$ G( _3 W8 n
          SuperscriptBox[
    6 s" z( [+ F9 ~       RowBox[{"(",
    5 l! r" D2 T# X9 Q8 Y' g        RowBox[{+ a" K9 E: @: m6 q7 T
             RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
    $ q) r& a- O# ?" Z/ g) b4 B5 b$ t     SuperscriptBox[( X& |* u: }3 z
          RowBox[{"(", / G' `+ N# g# N2 A8 i
           RowBox[{3 t" y* U6 e7 n
            RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", 8 I# ?9 x. ~3 {1 }/ a' Y/ ~  f
         SuperscriptBox[/ f$ L4 u& U& q" P' A4 B$ ^
          RowBox[{"(",
    8 \1 ]4 u9 e9 k9 Y5 {       RowBox[{7 g  \6 l# u# J# S2 Z$ q+ ~( S% {( }
            RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
    8 A+ \1 C' @/ c. W5 Q9 U4 M; l     SuperscriptBox[3 z! g4 O) e$ H* {  b2 R
          RowBox[{"(",
    % ~2 n( e# ]6 e0 I% r( X, U       RowBox[{9 X$ q' p! w$ t  M4 L
            RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
    . G9 M: X& s. l" D6 h     SuperscriptBox[
    ; c2 d6 t: ?( @' h2 u) D; P- f      RowBox[{"(",
    6 d6 X- V% f& d       RowBox[{5 c3 h9 l/ ]+ \& c2 S+ [
            RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
    / B8 b  T2 J1 D/ z     SuperscriptBox[' A. U& L3 j: }+ f) A, D3 c5 l( U
          RowBox[{"(", , I3 ]/ B3 _# s3 ?
           RowBox[{
    ) j! B# K! x% ?  t( S8 N3 a        RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", + p8 u+ S$ f# \
         SuperscriptBox[% Q( b% [7 U( x. u
          RowBox[{"(",
    + K& f8 F* {. N) h# V       RowBox[{
    9 v7 ~2 f. J5 C7 `0 D/ f        RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
    # j  L8 t) M& o2 S7 ~1 c     SuperscriptBox[: {+ F2 M" H, S$ l, U! q
          RowBox[{"(", 0 u# _2 R" c5 C, l. S4 t2 k" q
           RowBox[{+ Z: }! ?: w( F" B
            RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
    " }" c" h4 k" B- k" t     SuperscriptBox[
    ! V1 K& x7 K& N" Q9 [6 m$ m! j7 m      RowBox[{"(",   _% c1 q+ L/ T0 U, A( c
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 8 @# Q* ^1 K8 k! y
        ")"}]}]]], "Output",
    0 i1 T5 S2 C% Y# I CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9, 3 {) O! h1 w: B0 T! q% M7 o$ X
      3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9, ' \( ~8 p* D5 u
      3.578012187078125*^9}]
    ) t8 ]  ]9 v* r: N  u* T}, Open  ]],
    1 g1 t8 J, C# J9 ]  G3 U6 a" }  O0 L
    Cell[CellGroupData[{
    0 W% f9 ~" v0 V3 J5 k
    3 c) E* u. ]0 cCell[BoxData[
    1 O+ u7 N3 C8 U) [# s! K& E* m9 k RowBox[{"C2", "=", "Ca"}]], "Input",
    ! ]6 D5 Q! n* B. b+ o% Q  D4 [ CellChangeTimes->{3.57792047321875*^9}],
    & q& v* z8 O: X, P4 d
    . v, {! ]+ _( x$ q8 P( ]4 yCell[BoxData[; V* V4 w7 t/ {% v' B& G5 f
    RowBox[{"{",
    $ r7 _1 U0 e4 a3 B6 K, s  RowBox[{
    4 y2 ~: Z; H; D5 `  g  "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
    / {: f) G7 z8 |* ^" S   "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}], 0 `4 s1 L6 y( L
      "}"}]], "Output",
    , s2 U0 v8 S) {) T" o8 _2 v" Q3 x CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
    . a2 v' R$ d  z; I% w  3.5779607401163173`*^9, 3.578012204671875*^9}]5 w( K" B  Y9 {( d, k' C( d/ m
    }, Open  ]],
    , Z+ O2 L5 d- v5 V6 s8 ?0 O/ B5 B. v" [% P4 M
    Cell[CellGroupData[{: Y0 }# a" Z/ i0 g  T5 W0 f
    1 }: f- T: ?& v8 h2 Q
    Cell[BoxData[; ~0 x8 ^* H2 U7 p. d5 y# Y
    RowBox[{"u2", "=", 9 a8 L: {& w+ F( S2 L8 W. [
      RowBox[{% \1 T6 D8 z: G1 G
       RowBox[{"Exp", "[",
    $ E" n: u3 L0 D. H    RowBox[{
    $ K3 E1 w$ M5 n' e4 V. [( l     RowBox[{
    ! n' Z% N. U4 [9 B4 j; B      RowBox[{"-",
    / F( Y" K! c. L" ]0 @       RowBox[{7 s0 `+ V7 v1 u7 ~& \
            RowBox[{"(",
    ( G' U# \. V( x         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 m! [, p. E+ r. Z
            RowBox[{"(", 1 T2 p8 R3 \# p
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
      i* R/ ]" A! n" h& }' W+ X" G     "]"}], "/.", "DeltaX"}]}]], "Input",( U8 j1 M# [, M$ m( Z8 H, h9 N6 A
    CellChangeTimes->{3.577920484109375*^9}],' Q3 P2 l0 q$ R1 p

    ) x4 F; H0 n9 mCell[BoxData[% Q1 m0 O- s) @. \* B, }( m
    SuperscriptBox["\[ExponentialE]", 1 r1 C- c1 {! V7 W. U% q
      RowBox[{"3.141592653589793`", " ",
    & ^0 J  a- R7 b" o/ \1 E8 P   RowBox[{"(",
    6 K& _4 c" O7 A- S1 @: ?    RowBox[{
    * x! @* W' e6 }8 F2 D     RowBox[{"-", # w5 [( l# T5 g0 u  K
          SuperscriptBox[
    $ |) s) L4 g$ f* I: q       RowBox[{"(",
    5 H* |/ z! k! D# q7 m, I- D& M+ A        RowBox[{7 g% t. m" |8 k, o
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
    : J! e  V7 d. x1 s  h( r# ^     SuperscriptBox[9 |1 L; y" _, s# J" J
          RowBox[{"(", , k( ~* r1 j. F' U6 y
           RowBox[{
    9 R% B9 b+ v7 K3 C9 Q        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
    ' j2 V( ]8 c% `; I0 M( k& ^/ e) g     SuperscriptBox[/ A: e+ {# [- ?( O7 g  D
          RowBox[{"(",
    9 Z7 T# R- f, l  r- o* J% ^: @       RowBox[{
    0 Q# k0 P, |% R6 K' d        RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
    / S7 g9 |, }' @     SuperscriptBox[
    # i; E* m3 k; V, x0 a: w) H# K' o- E      RowBox[{"(",
    9 U3 Q: f* M* ]. [+ b) w8 P9 u# J       RowBox[{; H. M' Q, b5 d6 u7 Q
            RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
    % H( `/ [6 D6 u     SuperscriptBox[  ~% v8 A4 P/ N( e( @; n: g
          RowBox[{"(", 0 L. b+ H4 F* d8 q) o9 |
           RowBox[{9 n* Q1 ?9 M/ ]9 S
            RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    ) M  g6 H& k8 o3 G; r, `$ @     SuperscriptBox[
    ) l/ B9 t1 T4 O0 H      RowBox[{"(",
    : E$ J+ g* D/ c( Y       RowBox[{6 G4 I& E* F' \6 r! g* |0 q
            RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", 8 |( t& L% `4 ?. R
         SuperscriptBox[
    1 {" g7 `- @; `$ w      RowBox[{"(", . A" x/ A  g$ D% Y- ?) t/ p" D
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 2 H* ^! E' Q$ W+ V2 Y7 I
         SuperscriptBox[
    % k6 U, S( h; r& R4 T* V      RowBox[{"(",
    : q1 {& y3 A' E( y/ j       RowBox[{# h0 }: L2 S8 ]9 w# H' g0 W
            RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", 9 |. H! ~. I3 `/ Z
         SuperscriptBox[" m$ R; R! A$ K( W$ G
          RowBox[{"(",
    3 J; t( S* m( n( @, u       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    # X- R) b  a2 ]" C0 Q) Q2 W3 y" w* m    ")"}]}]]], "Output",$ z- Z1 j, P! A. G4 K
    CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9, 4 k4 O. [. Q2 x% R( E
      3.5779607413955193`*^9, 3.578012205484375*^9}]4 c# W  ]% f3 y. {4 {+ v
    }, Open  ]],: o" N( @. T: l6 i+ a  k

    7 H2 {4 b- P# F+ I1 g! N( ]" hCell[CellGroupData[{
    1 X/ ^' {, Q, L. Z8 Y6 ]) V6 u4 M/ g: Q: {9 }
    Cell[BoxData[; s0 s; l9 z3 E2 [' P8 ]
    RowBox[{"C3", "=", "Ca"}]], "Input",, a5 [; h8 H, S: T
    CellChangeTimes->{3.57792064125*^9}],
    ' [( b5 d( r* }
      h1 `$ A; Y" x5 Y1 u+ w2 ]+ ICell[BoxData[3 @7 _3 J) K8 m* z9 x, M3 M) A& m
    RowBox[{"{",
    # q( t- W' s( V: u# N# E  RowBox[{
    , g: Z7 [( z+ t5 _7 ?  r  "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
    4 a7 b5 _2 N5 ]( F& Q& M/ z0 Q7 C   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}], 9 v% Z' {+ ^$ \
      "}"}]], "Output",( Q: ~& r) I8 L9 l' Q: z% g" U
    CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9, , _8 `/ A( ^3 V$ _5 K
      3.5779607642027593`*^9, 3.5780122103125*^9}]
    * P( K7 c( ]& q! C}, Open  ]],# s5 K7 X+ P. L  w4 U0 u8 `
    0 c1 R1 p7 y) L+ U
    Cell[CellGroupData[{' r; D$ e: X; P7 f- r7 m% @3 K8 b
    # z2 p4 y% [$ f' \
    Cell[BoxData[" V1 o" e" K$ b" U. q# j* B' U
    RowBox[{"u3", "=", , M- R' H& i; J% q0 d0 Y3 O# g
      RowBox[{, @) j; y* q# R& M/ o
       RowBox[{"Exp", "[", . d! {- b6 w0 R
        RowBox[{
    # X9 d6 ~5 ~# M3 Y/ P     RowBox[{
    * _  @, h( h2 ]0 l/ a      RowBox[{"-",
    # W) l$ ^9 r/ G       RowBox[{& k2 \9 @+ o5 y% {) g  F- L9 g
            RowBox[{"(",
    1 B8 D. f7 M5 z# A5 B2 o% m         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    5 f. Y, W0 a' h( o& Y$ e5 i( A        RowBox[{"(",
    8 e) q3 J4 N: N) Q         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],# Y. r* j! q- Z8 U( @
         "]"}], "/.", "DeltaX"}]}]], "Input",
    1 `# w: ^" q6 w CellChangeTimes->{3.57792064921875*^9}],
    6 g1 e$ L4 q& V: f$ D9 f1 y: P# F& _  k/ \/ Q' ]
    Cell[BoxData[
    . J/ ^# r' W+ v2 S, d1 U SuperscriptBox["\[ExponentialE]", & e. W( Y$ |9 a7 K! C6 n
      RowBox[{"3.141592653589793`", " ", ; t2 }7 z* G, H( I+ S
       RowBox[{"(",
    0 S/ a% w3 E. k) [- t    RowBox[{
    , |6 ~6 \1 t" r! M/ |- P4 _- V     RowBox[{"-",
    $ T2 z0 E: k5 ]      SuperscriptBox[& R2 t% b1 i& G  P5 I
           RowBox[{"(",
    8 ]1 O! I* ^+ f: z# O9 \        RowBox[{
    ( h$ N2 }( g' I6 ?% Z: R         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", + |" h6 g* p* J, C/ O2 U
         SuperscriptBox[
    / {  E2 C5 ]. ?, Y/ L+ ^/ W' L' [      RowBox[{"(",
    # n* S: K( ~/ K/ U+ u       RowBox[{: j& L) l6 M& C1 E  Y
            RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-", 5 V/ P# h# u1 {; y3 J- [
         SuperscriptBox[
    , k* b7 r9 r9 m: q5 E* Y      RowBox[{"(",
    9 x7 h' E  [/ _4 D, R' p! m2 Z       RowBox[{
    4 R( K/ Z( [0 D# @        RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", * ^# w# ~4 u: a, D
         SuperscriptBox[
    # {) p$ [* ^7 p( D      RowBox[{"(", & D; g4 P: _2 o8 \# g/ K
           RowBox[{' _: w8 b8 P' b* s1 L+ f
            RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", ) S6 o  q3 V' X. m" G5 j
         SuperscriptBox[
    & \! p0 d6 h+ Q8 r) ^% ^9 C, i      RowBox[{"(",
    * @* u+ r' S8 y% a       RowBox[{. K, {, B6 I2 e3 _: I2 V& a. U3 g
            RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
    1 r6 F# c) v- r- I- X( K     SuperscriptBox[& C+ s: A0 A7 e( g
          RowBox[{"(",
    4 @9 _. T6 U" w& c& Q; j/ S; Y5 |       RowBox[{
    . B+ e2 C( Z6 `0 v0 s        RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", % C3 }/ G# [! u1 C0 J
         SuperscriptBox[+ E% ?; |0 |1 @5 G" B/ I
          RowBox[{"(", " ^; G; M7 |( d
           RowBox[{
    * X1 G$ J( F9 n" r" `2 a        RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", * O& o- a* ^, L% M5 Q
         SuperscriptBox[$ s/ M$ @* q, [0 |# c
          RowBox[{"(",
    " T5 c# e6 M# S/ {, u, o       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 3 S* m  g7 q7 S0 A' `0 ~5 Z
         SuperscriptBox[! M2 `+ c; w2 V" A, ]
          RowBox[{"(", 6 e/ U8 `& t  C" {2 C5 v
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    * B& \; f: T7 D7 ?: O( D1 v3 p    ")"}]}]]], "Output",
    5 ]* o! p  U1 \5 Y7 V0 V4 H+ b3 \ CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
    6 L& z0 }4 y3 z% N. K1 f  3.5779607654819613`*^9, 3.578012211515625*^9}]
    ' d* L9 c1 |  }2 R1 `0 T}, Open  ]],6 z2 `/ N8 r7 e1 t& p
    ( f" [2 y4 s3 o7 l6 K
    Cell[CellGroupData[{
    ! O6 I4 Z5 o% Q$ v; `; `5 v+ C( C! m$ A
    Cell[BoxData[
    1 k" W( n/ ]$ ?" ?2 M! {9 K) `& M RowBox[{"C4", "=", "Ca"}]], "Input",8 `( }* [. p4 X8 D/ u/ {1 }  t
    CellChangeTimes->{3.5779207559375*^9}],
    0 W0 r  y! M  `+ F  A( z/ P
    ; {0 `( t- @6 MCell[BoxData[
    ' r) Q0 O! B; L$ m9 k/ z1 j RowBox[{"{", 5 B( s2 n6 U" w$ e' b! o
      RowBox[{
    % Q% E0 [6 M. T, t* f* P  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
    9 _# B0 @* `& F8 H. k2 Y   "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}],
    ) ?3 |3 r+ r# C1 O, v$ S. Z  "}"}]], "Output",
    9 u: C7 Y; n/ S% z) [. g CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9, ) I1 N, o2 p+ f1 @3 b; l% r
      3.5779607861363974`*^9, 3.578012216171875*^9}]
    - B7 k9 i' X* R4 V, m# G}, Open  ]],! y" K+ c1 V6 D2 M( L5 J

    & V- U8 B8 J2 g/ m* [Cell[CellGroupData[{
      t7 x6 n; b0 h! k- I2 C
    % Y7 \9 ]- T$ L6 d  F' \5 JCell[BoxData[
    ! v7 k6 I9 k& m  X RowBox[{"u4", "=", + n6 }5 I+ H) g2 ~" s. W: U( A
      RowBox[{5 `( w, q$ i+ e" x2 \9 U. k( n
       RowBox[{"Exp", "[",
    4 x, Y/ p! a( t7 }1 t    RowBox[{
    7 x: p) M( u5 l     RowBox[{
    0 Z, p1 U4 f: v; ?* z0 q4 T      RowBox[{"-", 6 C1 _* R$ a. F4 ~" |# S1 C
           RowBox[{
    + n: Z; X* I! Q4 @, A5 Q( n        RowBox[{"(",
    3 B3 {9 x* v) Z  u6 F( E( C         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    . o4 `; P' ~1 v+ ~7 ~7 \        RowBox[{"(", ) f% a0 A, i2 o* ~, \4 l
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ; k. T( Y$ P- B& M3 q- X     "]"}], "/.", "DeltaX"}]}]], "Input",
    6 e% q0 S. _8 i2 Z" l CellChangeTimes->{3.57792076325*^9}],0 {0 Y1 O' B: k7 ], F2 q
    ) g( n4 K  w5 C6 g- Z% L* L
    Cell[BoxData[
    5 p: d- T& Z& ` SuperscriptBox["\[ExponentialE]",
    & Q4 X7 L7 l8 A6 M  RowBox[{"3.141592653589793`", " ", 1 l1 ?" }6 }; \
       RowBox[{"(",
    $ m: s( f! m: q7 x5 A    RowBox[{& @2 d( ]( u" ^- D7 L3 d, y. g
         RowBox[{"-",
    * V& J7 T9 q: ?1 @6 r      SuperscriptBox[
    . j0 o% _) y: y/ e0 X0 N5 p- U/ D' A8 t       RowBox[{"(",
    6 _, C6 P+ ^7 u! K        RowBox[{
    9 g+ ]# d7 f" V) Y+ w, l9 @8 Q         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
      ~/ i; f$ ^$ }/ z     SuperscriptBox[
    - x$ ?5 r0 k+ N9 y) }. r      RowBox[{"(",
    ! o& G4 q, y9 {* b% D       RowBox[{
    7 Z# |' p. z! n% ?        RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-", 6 w: E) z% b  A% `, J/ C
         SuperscriptBox[
    * p* M. @1 c9 [5 K# x      RowBox[{"(",
    * l+ W! ]* F4 ?  L. L       RowBox[{
    , r  U  f5 _2 s3 G# o        RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", 6 P. h5 {0 @2 T8 G
         SuperscriptBox[
    / t6 a% K- y8 R& g      RowBox[{"(",
    . V1 _1 e2 D# P4 E! k. i2 U/ a       RowBox[{
    + A1 \7 H8 b" q! z6 }! M        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
    1 y+ [* k" C1 {& W' Y     SuperscriptBox[
    7 D/ M$ Z! r' b      RowBox[{"(",
    8 U* N7 E6 U' a4 ~' o: P       RowBox[{
    % _( n' T& @" b- g        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", 4 S# i$ n* q4 F! T
         SuperscriptBox[
    ' ~2 C# i  r# a# ?# e! R) V      RowBox[{"(", ( ]& J2 s" r; p! f9 [
           RowBox[{
    1 ], m! T# o4 u8 }" X* ^! h' l& w! m        RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
    * G4 H1 N$ z' g$ s, Z     SuperscriptBox[
    & h, G. r# c, ?! \      RowBox[{"(", ! y7 r* B# i/ O4 B& H; O5 x! ~
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", & J% F6 I7 N' s1 F- r" z
         SuperscriptBox[
    + a/ {; f9 W6 D. r      RowBox[{"(",
    0 [( k) @/ B9 y1 C1 h- F# [$ D       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 4 \& K/ w3 u3 a, V% f
         SuperscriptBox[6 p0 S0 }" q3 U' t
          RowBox[{"(", ! U- h0 I( U, C8 c
           RowBox[{
    ' O9 }7 C* V2 s# C( X' _        RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}],
    % @9 {2 R; c- t/ C# ?    ")"}]}]]], "Output",
    # R2 Y6 k" K# p$ o CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9, , L8 C" `0 L5 H" R; Q) l
      3.5779607873531995`*^9, 3.5780122169375*^9}]
    ! f! j0 U! g6 `3 e7 h4 E}, Open  ]],
    4 r  W5 S0 o4 k1 Q" H
    $ l# T7 g  q. E6 iCell[CellGroupData[{! \" T. Q" c' E/ B1 p

      ?4 g' {# Y# |0 i7 FCell[BoxData[" V- f+ p: W. J: Y$ H, G* q7 x
    RowBox[{"C5", "=", "Ca"}]], "Input",% T# J  e+ a0 V
    CellChangeTimes->{3.577920860671875*^9}],; M- S# [( O' b- s( O

      m$ s3 E# Q/ J/ GCell[BoxData[( Z  H; U+ N( _# g
    RowBox[{"{", " B! f' Z+ [. {7 z7 ~- D- l- v
      RowBox[{
    % K8 p% ?: H& S: G  "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",", 7 j& _- l6 R- Z: C+ a7 v. b
       "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}], 1 N) H8 o# ^# R
      "}"}]], "Output"," b2 m8 W8 i0 n# s2 l8 G
    CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
    ) [& _% j% R+ c5 x, J; z! c3 T* e  3.5779608137328453`*^9, 3.5780122209375*^9}]9 s  R! }4 z: z' m7 J2 g3 W# X. y* z
    }, Open  ]],
    6 n5 N  |/ K& ~- z: ?
    # |$ p: n9 |% d% lCell[CellGroupData[{2 z! q, q4 D; N3 m+ N
    9 W( Y4 }8 [. P! a" t# g
    Cell[BoxData[8 \1 |1 z3 j) k9 c
    RowBox[{"u5", "=", + a0 \0 U% Q* C# C* d  ~
      RowBox[{0 A) p& \& ^' Y: l
       RowBox[{"Exp", "[",
    * V% u* n6 \/ J* H) H% Q    RowBox[{
    5 D8 r8 ?1 k5 O     RowBox[{
    - G$ ?" @( o& @, v      RowBox[{"-",
    3 r( @% P% W  s! a. G8 O3 \       RowBox[{
    : S# c1 P& D( R+ r& c        RowBox[{"(", 0 x: i0 n. ]+ ^1 q( V2 E
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    5 u2 D, x; f2 i/ I        RowBox[{"(",
    0 L. i; V+ r" u) I3 W         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    : L% t! ^3 h+ G  q     "]"}], "/.", "DeltaX"}]}]], "Input",
    3 n4 X& N0 Z! d3 _/ n# ^* b- r- t CellChangeTimes->{3.577920869375*^9}],% ^0 M: I# z; y( Z0 g8 r  d8 c

    " _# U( d7 q( ?1 R0 P( UCell[BoxData[8 [7 T2 s8 @6 n& I) L; d( e/ b
    SuperscriptBox["\[ExponentialE]",
    8 G  f& f1 A! b$ \; W  RowBox[{"3.141592653589793`", " ",
    ; P8 h0 h+ V) Y  V  ?" U3 Y   RowBox[{"(",
    ; T) D1 x, K. E1 t+ @    RowBox[{( c! C$ j8 E! o2 r
         RowBox[{"-", 8 \/ s% C2 ~4 ~6 m, d
          SuperscriptBox[
    1 z) F  |1 ~! g6 Y       RowBox[{"(",
    ' h: x0 Q+ R9 b5 W        RowBox[{
    + O3 M8 M; V5 Q5 ~         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 7 k& M! a3 J; _. D% A) b+ Z
         SuperscriptBox[5 J4 k$ ^9 T7 g" n$ R- o+ ^+ J
          RowBox[{"(",
    . B3 M5 c; n2 @1 C5 _1 q# y2 B       RowBox[{
    8 O. r' E% p+ E6 s" ?. G. N        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
    5 I* ?# H: `! g: J/ a     SuperscriptBox[& `' J! P& Q; N1 Z1 y% X" B# l  |' Z
          RowBox[{"(", 3 d  Z+ Q3 V1 j( i
           RowBox[{7 k3 I. D& W+ o* }" _( O
            RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", " [# z3 [$ R( e0 b) D8 `- _) h
         SuperscriptBox[2 G' b: A# m6 j. g) }3 L# d+ B# P, ^
          RowBox[{"(",
    ' Z2 y* P. D1 f! w8 _7 s# S- c- \' ]0 t       RowBox[{9 y$ \8 d$ }( y) q0 C% ]9 l7 \
            RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
    4 N# o  Y4 t5 |5 \) E     SuperscriptBox[2 G! ~; Y1 B8 T, P: @3 r
          RowBox[{"(",
    7 `$ z4 D- u% _. z       RowBox[{
    - z# C( y' k( M9 }* {4 t2 L        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", : C3 @; J( r$ N6 }* z1 d5 I# Z! N
         SuperscriptBox[
    6 `. c0 L7 X+ q* Z9 b      RowBox[{"(",
    & }0 d" M+ A2 f$ M7 G       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", : [1 s: Q9 t2 d7 C6 V8 I3 \
         SuperscriptBox[
    4 J5 j9 N7 h1 `$ }0 z( K8 n* J      RowBox[{"(", 6 A9 \- P+ _7 z. Z* s7 |9 f
           RowBox[{
    : r3 i. V9 H& F$ T( v$ g' |        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 4 d% C: u- G; Q; r" c0 ?
         SuperscriptBox[
    5 o2 o: d/ K% E      RowBox[{"(",
    1 _# r( }- [6 A9 m% N& ^       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 5 a) m8 r; ]! H' I
         SuperscriptBox[# `; ]" y, D' ^
          RowBox[{"(",
    3 d+ Q# V! s/ U2 _0 H. q* F% X       RowBox[{. O: V: ?! [& ^
            RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ( G, g; ~6 l. r
        ")"}]}]]], "Output",& V9 V1 M1 S, ]$ J3 e
    CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
    9 [% f2 V: H% g' v" u! M1 d  3.577960815043248*^9, 3.578012221953125*^9}]( c- L8 ^3 L- f1 l3 E5 S9 c
    }, Open  ]],! Q& F8 ^( E1 m4 p  C; o
    , k9 g! t0 n) h; m
    Cell[CellGroupData[{
    . p" x7 H' C( I1 ^, u* G
    8 O  `6 C% D5 kCell[BoxData[
    % f- D! ~2 b9 F0 D6 E RowBox[{"C6", "=", "Ca"}]], "Input",2 z4 G( [% X: G+ L. V' Y- _$ y# _
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],8 |- J' ~& y" S; R: t7 R, L
    + ?; T  D$ f; N
    Cell[BoxData[1 ~8 l# B2 t& y' L- L% R2 L& J+ R
    RowBox[{"{", ; x7 E6 n- c" y8 O( I' n+ y
      RowBox[{
    3 o% X# g  b  y8 z% E. W  "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",", * G& r) O& [7 q+ H
       "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
    # N! [; }, g" u   "0.494866`"}], "}"}]], "Output",
    & V1 h7 G* D3 ? CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,
    - ^; m3 l5 q  z   3.5779608373044868`*^9, 3.578012227359375*^9}]7 `4 c& F2 t: ?& q& s
    }, Open  ]],# R, o1 r/ D3 K3 p" ?5 c
    ) h3 l$ E2 a) y, I) l
    Cell[CellGroupData[{7 a- p6 |$ @( Q1 z: S  e) a0 X6 L
    2 Y7 Y( R3 f& g  C9 L5 m
    Cell[BoxData[( A4 {2 D+ k# \7 Q
    RowBox[{"u6", "=",
      D% g" }1 F9 R  RowBox[{
    ' _, f2 h3 E% V; y; x5 R   RowBox[{"Exp", "[", ; Y6 ~# m5 z, X0 A' ?2 L
        RowBox[{
    - f( {; ?. G/ ~     RowBox[{
    ; ?/ M- y; s4 W- b      RowBox[{"-",
    , \5 C& T2 j" }       RowBox[{
    8 M0 g5 y! w; P2 Z/ K' e        RowBox[{"(",
    ! h) d. A+ y( W1 A4 |3 ?. D2 v         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ! L. W0 U/ a6 V, g- U
            RowBox[{"(", # L8 \0 x! O; V: v( [; K* C/ X8 Q( f7 U
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],1 b; |7 @0 @& X( \- O( \
         "]"}], "/.", "DeltaX"}]}]], "Input",
    $ p' N4 n: c- L" U4 a CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],6 ?% f$ O; b$ ^; K/ I) K2 B
    * l) a, a+ p" q0 C
    Cell[BoxData[3 Z9 ^5 d" r8 m# K$ f
    SuperscriptBox["\[ExponentialE]", : ?/ ?% \2 P  r* i$ x6 l! _
      RowBox[{"3.141592653589793`", " ",
    3 F$ C# L2 |" d& M# i$ o   RowBox[{"(",
    3 I: n0 p# d2 ^+ T  _    RowBox[{" E3 o6 w9 |9 ?9 k2 d
         RowBox[{"-",
    ' F; C+ o; m' z0 l" @* h3 f      SuperscriptBox[
    / Z" ]$ n9 r+ D( V" x       RowBox[{"(",
    5 b8 a) |# y3 K" d        RowBox[{, E- z' R4 x2 R& N/ X. ]
             RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
    4 v$ d/ c5 r/ J4 q& y! A) M     SuperscriptBox[, i: P2 j1 v. I0 |- m
          RowBox[{"(",
    " X6 n+ n0 r8 W$ R6 ]) _/ L       RowBox[{# t! T9 `! r2 [, i* e* b; n
            RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", $ L/ ]1 V! {) |' p5 M9 f$ f
         SuperscriptBox[2 l7 s' @* {- L0 U
          RowBox[{"(",
    4 \, D8 w8 H" N) i4 Q8 [: J       RowBox[{
    6 F" ?. w8 V2 ?7 y! u  Q8 Z" m        RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
    : n8 ]. Q8 `3 C% S     SuperscriptBox[
    $ ^: Y% r/ L2 [  g: U3 `" k      RowBox[{"(",
    ) T) z$ z3 w+ z; A8 w6 R       RowBox[{
    $ Y6 B* U) A. E        RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", : D+ B5 E+ m4 {+ b8 h
         SuperscriptBox[0 V4 O7 ?$ W9 ~' v
          RowBox[{"(",
    ) T0 `5 F0 ~# z- G5 w# R  M       RowBox[{- e7 |; J& J/ T/ E) ^
            RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
    7 e( J$ z6 S6 q4 O. _5 Z3 i     SuperscriptBox[
    & O. I. C! ]: X; W      RowBox[{"(",
    " t  k9 f6 ]' v, M! B1 N+ m       RowBox[{0 ]- a6 A0 X/ y# I6 D7 q; e
            RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", 5 V( j  p! [* M- c3 L
         SuperscriptBox[; x% }) n0 [8 ~7 y$ l( E& W
          RowBox[{"(",
    $ b& f: {$ g6 E& `/ e7 K       RowBox[{% l4 V" G6 H% _5 G/ X' _: ^* @
            RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", / q7 C; {. I2 Y( z% \: M: o
         SuperscriptBox[' \+ H- f8 i. H' T7 B+ t; `  X
          RowBox[{"(", ; O0 @% O$ q* R. ~
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ( }$ I& ]4 o! x; Z     SuperscriptBox[9 z, D0 \0 K, K
          RowBox[{"(",
    . f1 ?6 j. g! [. s" a! `       RowBox[{
      b8 d: }( Q0 ?) t        RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}],
    - K! z, W" a! S( Q0 e5 G    ")"}]}]]], "Output",0 U( Y- M: O, ?% h: L: w
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, + l0 K" D! l0 J( i( I3 y
      3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]( F# Z1 t/ O9 v3 F5 I' K9 B0 r
    }, Open  ]],
    6 t# n$ m* S$ \
    " J. h! z# {) w7 gCell[CellGroupData[{( G, _* P/ u; E
    5 b4 I, N2 J- x; u( ~9 q9 L
    Cell[BoxData[- E0 ?) U! k. v4 o
    RowBox[{"C7", "=", "Ca"}]], "Input",
    & ~0 g- \' d9 q, ^. L, O CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, + M: y/ I% v3 Q3 n' s; f
      3.577921316125*^9}],  d% q$ }6 k6 Z# T3 o4 W4 q; f

    0 X/ `% s0 Z3 K' wCell[BoxData[
    : d3 [9 b: t! r3 j2 G RowBox[{"{",
    + V3 |0 d9 t+ c. F  RowBox[{4 l! u8 S; {4 a% q
      "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",", . S" J( r, D) Y, x2 h6 ]
       "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}], # k, d& O& Q. Z6 w: W# \! a. J- [
      "}"}]], "Output",0 n7 U" h9 I4 |
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    # {% j. D6 C- o4 M& {  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
    8 g5 b' U3 y  }! O! b" d}, Open  ]]," i+ m* G0 `* A" a" ^+ u& i

    * E7 ?( A3 |  X$ M4 |Cell[CellGroupData[{
    5 p( d" Z4 d! Y( Z( C" F1 N$ R: i: }& d+ R8 R
    Cell[BoxData[' x9 U) n" R0 n+ W
    RowBox[{"u7", "=", 7 g9 Y) B& o, }% G7 m. V3 L
      RowBox[{, B+ L: A! c% `  J
       RowBox[{"Exp", "[",
    - D5 g: Y( n. C& O' n/ d    RowBox[{/ N4 |5 q& h% J  t# D
         RowBox[{! O" L0 x1 k4 E3 A. B- ]% Y
          RowBox[{"-", " N2 O! m8 E0 L) O; e9 x) M% R$ {0 B
           RowBox[{
      z$ q! d$ E4 G4 k        RowBox[{"(", & V+ u6 v* o0 [7 d4 N8 d1 D
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    1 i! f. w8 ^4 p; |$ o. g+ g        RowBox[{"(", , N- ?) M3 ?, Q% b$ @  z
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    * U5 y! G/ O2 m8 T! W# [: w     "]"}], "/.", "DeltaX"}]}]], "Input",& V- H3 B; l1 j
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, $ a. k: e5 J8 W4 P! A* ~
      3.57792132028125*^9}],
    ' @/ v* S* @7 [' e! j
    9 v  P: S/ Z3 W0 J  F- S; X# _Cell[BoxData[1 B6 h7 I  v- M9 ^  G3 f
    SuperscriptBox["\[ExponentialE]", 9 x3 K/ ^2 W5 |
      RowBox[{"3.141592653589793`", " ",
    " b3 O+ u  E5 z3 l2 ]- g# H; ^   RowBox[{"(", 3 \; `) |* \% `# z
        RowBox[{8 ^6 s4 `, Q* n& {4 C+ J% F5 c
         RowBox[{"-", 2 s5 Z. `& N8 c; L5 K; e7 |
          SuperscriptBox[
    + b6 S" M; f: o4 @2 _       RowBox[{"(", $ B: u( ^- N. S/ y
            RowBox[{
    ! _& Q- y; E( Y* ]. }         RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", 6 H8 y5 Q* j  ^+ D
         SuperscriptBox[+ _. U- o* o% I) h
          RowBox[{"(",
    ; E# x, p4 Q; v& }$ ~+ j+ W: n: S* I       RowBox[{
    % N- r) D7 K/ H* d# P6 D        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
    0 ?2 x$ V& F5 A9 f0 @     SuperscriptBox[
    2 [% ^0 u- B& }0 t! L9 Z. v      RowBox[{"(", ( [% T6 C+ q/ F- G* j* q4 ?! X
           RowBox[{
    ( D( l! O; h; S        RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    + z% M& {% c% b" K) s1 `     SuperscriptBox[) ?$ U0 C8 L! x2 h" [
          RowBox[{"(",
    5 w0 Z( v5 K2 F% _( E2 w8 W       RowBox[{, @, Q% r6 J2 U2 |5 q! I
            RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", ) ~" S8 W# R9 D% y* t5 j3 j5 i+ b# K" ?
         SuperscriptBox[
    - u+ a/ l" @3 M$ M: q# z' f      RowBox[{"(",
    ( r/ T" G- p- b" j0 H3 `6 Q  [       RowBox[{! }0 D: B  m. b; {; _, A0 ~
            RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
    . |+ j1 P' f3 G- |     SuperscriptBox[+ W& x, {% E, W4 N8 y
          RowBox[{"(", 3 K' d6 |+ ?" w, {2 F9 [
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 7 d! X6 D. v  _+ J; s$ ^% v
         SuperscriptBox[
    , n, P1 }6 N  `% b7 h; h% V      RowBox[{"(",
    : T2 b/ s; W! p& ]; v: s       RowBox[{' y4 g- I: b, J9 S  T
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 4 r* V2 I  F' i! |: e) j
         SuperscriptBox[# \+ S, _4 F9 \* }' J3 P! U
          RowBox[{"(",
    * |% u/ v3 V* R6 v* P( z       RowBox[{* F$ R6 J1 V; D# J
            RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", : O' d2 r3 ^; w  ?/ z/ @7 a8 A5 o
         SuperscriptBox[7 B* r4 M- k  _/ M- ?$ V
          RowBox[{"(",
    4 O3 c5 `. U3 H3 o! |5 T       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ' y0 `2 U3 Q, `- r3 f: @    ")"}]}]]], "Output",
    8 w. J- a/ {- Y; h CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    0 h1 N# p9 _7 k+ [, n5 I2 p  3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9,
    ( M! W- c, i" L% X1 C. e  3.578012251359375*^9}]
    ; N7 `- S- O' U( r* K/ V}, Open  ]],
    , g3 F. c6 O3 E: ^6 ~, T4 n* K/ I# {8 a0 n8 f
    Cell[CellGroupData[{
    # G. m3 M& l3 H$ B* ~( p: X& ?1 O; x3 `" @' K) M
    Cell[BoxData[
    ( a, T! @. T8 X. F2 M RowBox[{"C8", "=", "Ca"}]], "Input",
    ; ^( y0 }4 ]5 e CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    . C  k) l* b& A/ h# h: O. I- l  3.577921316125*^9, 3.57792141421875*^9}],, _0 d9 _& E# }9 S# q$ V
    1 n8 h9 {4 J; T
    Cell[BoxData[1 E. r# F5 D1 }2 M
    RowBox[{"{",   f7 B5 n. Y9 d8 V* a% l0 G
      RowBox[{
    / z' E$ S6 U5 A% n9 m8 d  "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
    # B, b; {& H: X   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
    : {3 p+ `: f. R+ {4 l  F, ~  "}"}]], "Output",
    5 j  o5 X( R& N9 Q' T CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, % S+ A# l& }: F+ _0 M+ U
      3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
    2 s* [  @6 a- V+ M& W  3.578012260515625*^9}]
    , k* {  [3 _& I* C$ r}, Open  ]],
    - \8 z5 v& t3 }1 {0 p/ Z
    2 c4 S; K* N& `. [+ W: _2 eCell[CellGroupData[{
    ' g. S, u$ H( k) r, ?1 W1 {; m, p2 l, W9 j# z& I2 ~# v8 ~" r( n
    Cell[BoxData[
    ' K- i* o/ X; u1 s% P) Q RowBox[{"u8", "=", 6 b& u& I$ s" ~0 C9 p6 y2 R, O
      RowBox[{3 G( n/ o* g0 C; ^
       RowBox[{"Exp", "[",
    ) ~% n6 c6 Z  Y0 [. W    RowBox[{
    4 q. q( W3 _. n& h- h     RowBox[{
    ; T# F$ L* C2 `$ V  Q; B' F      RowBox[{"-",
    ! I1 t& `; @) D4 W       RowBox[{  R4 J- S' f4 \" V, }) ~
            RowBox[{"(", ) P9 }+ ]& |# f# ~9 `1 o4 C% d( g
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", - J- u# g( d/ h: j8 A/ G+ [' H
            RowBox[{"(",
    . `% g: |0 g) _% G6 P  t; G         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],$ r2 y7 S+ D1 d
         "]"}], "/.", "DeltaX"}]}]], "Input",9 ^& K6 X8 X* h& J
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,   Y; v3 B  B) B. L
      3.57792132028125*^9, 3.577921416921875*^9}],$ n# K- o& r( ]! q. K
    ; v3 s% y2 S& J5 o" H, R
    Cell[BoxData[7 |4 m$ f1 b! X
    SuperscriptBox["\[ExponentialE]",
    9 _' T; M1 W2 N3 z  RowBox[{"3.141592653589793`", " ", ! x: N7 X* ~% c2 g% M; J
       RowBox[{"(",
    5 d4 H# j: `) g2 X    RowBox[{
    ' k4 i0 t5 |8 E' G8 y0 r( [  K     RowBox[{"-",
    . q. Z4 ^' H* J9 w; l. l      SuperscriptBox[( l$ X* ~6 s. ^5 A
           RowBox[{"(",
    . Y7 k+ Y! j$ x& P, f9 S        RowBox[{
    . @3 ^& A/ ~0 ?9 I/ R         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ) ]4 {9 |- X5 h     SuperscriptBox[+ B0 |( W$ a. y; T+ \
          RowBox[{"(",   U; P9 z7 c, ^( q  W
           RowBox[{
    5 G7 M5 {4 f7 E% h+ R7 c' {1 U        RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", 7 f: I8 @- y+ H2 n' {
         SuperscriptBox[
    * H% n: O8 R" P9 s$ K1 ~      RowBox[{"(",
    6 @) i4 G5 [  ~3 F/ k       RowBox[{
    6 x/ S6 }: X! q        RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", 1 R0 f5 `. R6 l3 F  _) W7 r
         SuperscriptBox[( A$ N$ c6 l( V% u# r
          RowBox[{"(",
    8 Q( v9 X$ u; J- k) K; H$ F# I       RowBox[{
    ' u, V4 I8 G# D: G        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-", & _0 @' I+ ?5 r5 c, p7 q
         SuperscriptBox[
    ; o6 w: f2 ~# c5 D, W- N      RowBox[{"(",
    $ B) R& K3 n+ E3 d       RowBox[{
    ( r6 P$ T* Z4 z; Y: m1 X/ x& k        RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", 8 a& X# B' X, x  u- ^) V) @# p; n4 F2 T
         SuperscriptBox[' U- B) t, E/ j. \, U, Z
          RowBox[{"(",
    % `( V: q+ u% h$ R       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", - r" N2 g; T5 r5 z+ t
         SuperscriptBox[
    # i- z$ a  z  \# x' l: @* A      RowBox[{"(", ) X( |2 B- H; W: U9 L6 j
           RowBox[{; v( n6 e+ e# U8 m) ^8 G
            RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", : K( }( p# |) ?
         SuperscriptBox[1 w: Z: [0 ^- P% {0 e
          RowBox[{"(",
    ; H9 e6 t8 b& b( M       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ! V. f% U! L0 o- t4 @6 B     SuperscriptBox[
    ( T! ~! o2 }1 e7 R# z4 O      RowBox[{"(", ) X/ W6 x" N$ x+ F* ]8 N/ A
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 3 Z2 y4 v1 t! X8 Q  q
        ")"}]}]]], "Output"," W5 \% P) H4 w( Q
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    ! X9 G( X  P4 g' B0 z0 h0 o  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9, & n  p' ?! p, R) z/ ~( K
      3.5779608945565863`*^9, 3.57801226165625*^9}]) N% H% {* W4 T9 B4 L3 e
    }, Open  ]],. e4 a/ l  A* t+ d# A
    , }0 Y2 w4 x0 t
    Cell[CellGroupData[{
    - P# k* P! z# v( U$ {3 ~8 [+ r2 @$ T6 i' d, ^4 w
    Cell[BoxData[
    + x2 n2 L( \3 w RowBox[{"C9", "=", "Ca"}]], "Input",
    4 s9 p" Y8 a$ J) e% Z CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 6 n4 C1 V1 t' ?/ l# m
      3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],
    + J, g; h4 {$ c8 ]" N- k% _9 ^2 d" o* [! i
    Cell[BoxData[
    * {) A0 m" T. p$ o. {2 X RowBox[{"{",
    ! u* Y0 V* F8 n4 _  RowBox[{
    ' n! F% m4 J; r  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
    ) x* H+ F' M5 K   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}],
    7 H2 H5 Z: _- Z/ g2 f% Z) h  "}"}]], "Output",4 s0 y! Z' P9 e; I' N3 s0 y" u
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    , _+ Z/ Y8 o% Z  3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9,
    " o; ~  v/ ^8 z. o& t9 l% h  3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9,
    ; k# D6 g" J2 J" k  3.578012268234375*^9}]$ E& M1 J0 ~( a% ^4 d  Z
    }, Open  ]],8 M7 S' y& l$ x+ B5 \

    3 @2 @. r+ c7 U8 l% |; S/ b, t4 A1 PCell[CellGroupData[{. }8 `/ M, N( ?! y# F1 V2 A7 J# h
    * I- H5 f6 E, c/ {2 ]
    Cell[BoxData[% N: q' U2 Z5 g( s
    RowBox[{"u9", "=",
    ! h* }! b( |& F* ~: Z  RowBox[{! ]# \7 a, y! a
       RowBox[{"Exp", "[",
    4 i  L2 Y; h$ i. h1 ]    RowBox[{
    * N% A' k9 b. X; u, x7 ^     RowBox[{
    : U' I' S! A. [      RowBox[{"-",
    3 ?! r4 I& R& S& A$ ~) u* P0 m       RowBox[{
    - ^8 t" U- }/ }' N        RowBox[{"(", : r& _+ ]+ A$ U4 P. S' g3 |; I+ j
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 8 I  w1 X" N7 I4 q
            RowBox[{"(",
    , U* W6 b: J- _         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],0 R7 r! W4 ?! m$ U/ A
         "]"}], "/.", "DeltaX"}]}]], "Input",- w  I1 Q8 S! k8 k6 y$ C1 x; K
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, 5 k/ D8 P- A! l  S5 c, x9 \% ^
      3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],+ C* M5 v" ]  I$ U7 l
    9 U' O/ j2 i5 ]6 x
    Cell[BoxData[
      D% ^. r: n- H6 O6 F  P SuperscriptBox["\[ExponentialE]", & h; E1 X! O- {) V5 U
      RowBox[{"3.141592653589793`", " ",
      c2 o, j3 K1 f   RowBox[{"(",
    ( e$ C- E; \' g/ u) l    RowBox[{  l: T/ d. h& }' y& @2 M7 N5 }5 y" z& ~
         RowBox[{"-",
    ; @9 O" X) x& d( n  r, |      SuperscriptBox[# |; B2 l# B; W5 G1 N' Y
           RowBox[{"(",
    1 i$ R1 f7 i$ }' `        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
    3 t  X! Y! Q; \) |8 ]1 n     SuperscriptBox[0 a+ A% H! G  R  z: a) A, I4 f0 k
          RowBox[{"(", 1 I; a0 a0 d# D8 u. q9 w
           RowBox[{
    1 D5 k% s, J* g  `0 W        RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", - \8 X5 |% A% J9 v
         SuperscriptBox[
    / i& g) z) P) S: J' T3 D2 x& K      RowBox[{"(", 6 `4 g$ e, f% ~8 A
           RowBox[{
    1 i) C0 k) U# F* Y& B        RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    7 O/ v) D1 @1 E5 k, e8 A; a, O1 K     SuperscriptBox[
    ' A0 S8 q/ s2 I      RowBox[{"(",
    5 v; G8 G# j2 C; {% p       RowBox[{
    ! _% D/ N2 p5 |- `/ \$ m        RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-", 9 x1 S* b: M) y+ L% A' q+ B
         SuperscriptBox[
      t  `$ x9 l3 R( E      RowBox[{"(",
    / W5 e  h% W9 |% R; B/ |; }/ [9 ?       RowBox[{
    3 M1 Z1 p1 I( i( P5 r6 a        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", 3 L' B- Q0 b: e; l" v
         SuperscriptBox[& \  {$ q7 |; v; _( L" z7 `# c
          RowBox[{"(",
    5 O! N# Q/ |2 A9 R% w% |       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 5 X4 I" ^; B# w% F: {9 R1 u5 A
         SuperscriptBox[2 c3 M5 a  }& ?  d% T
          RowBox[{"(",
    # J  Z  W* f# J& Y: Z       RowBox[{
    ! P7 `3 ~3 M! B3 g0 e        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
    1 h. o* W- G' {     SuperscriptBox[
    ; U, Y" H' b3 u; w      RowBox[{"(", 1 I4 H; o6 d/ I
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ) ^  t; X5 E4 h- k     SuperscriptBox[; ^: b+ p& A: `- ]& z
          RowBox[{"(", 1 }4 i! e* O. d3 ?, w: [
           RowBox[{
      k! k$ }& ?( v, N% U8 e* Y        RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
    9 p' _* n; @' h    ")"}]}]]], "Output",
    " t) Z. n6 m# [; _$ v, C6 R CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    4 n, E- f1 ~, ]* F5 B* j& g. B  3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
    1 V5 ^0 t. l( e3 ^- S2 B  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9,
    ' a" q+ q) Y6 G9 \  3.577961530421959*^9, 3.578012269125*^9}]# K1 v7 H, q1 z  m9 \
    }, Open  ]],
    - C, i0 \8 N7 i4 X. X. `- {, t' |  ]$ V7 `
    Cell[CellGroupData[{* u' ?' b+ b; O
    4 z" J7 z0 W0 i# F! P& N" f) A
    Cell[BoxData[{# f; M  W+ v! ]% n
    RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
    , ]8 q' I% C2 ^9 S0 z( \; v6 g5 z6 e) v RowBox[{"u10", "=",
    : D1 ?% [1 O6 V( v, G- ?/ _  RowBox[{- a" G4 W' ?' T* B
       RowBox[{"Exp", "[", % h% E2 ?: E. k" ~! ^. R( U
        RowBox[{: t/ I$ K. D; r7 k
         RowBox[{
    7 r6 [( d, C( U  z% b) ~& L      RowBox[{"-",
    / _% H+ U9 h* p+ O       RowBox[{! [9 N& D. o: R; N/ _$ Y
            RowBox[{"(",
    0 L9 \& o$ N2 K, i0 Y6 d         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ' p) J0 u+ x/ O9 X$ L        RowBox[{"(",
    + Z( `3 A/ W  X9 o2 y4 ?1 N         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],4 T# L' S8 l  r" u
         "]"}], "/.", "DeltaX"}]}]}], "Input",' p! ~6 m  }3 D) n1 i% C
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],
    + P9 H) H" K; Z# ~$ d8 t
    0 D' s/ ^% k. o2 q7 DCell[BoxData[) z# J( V3 I' `( `. H
    RowBox[{"{",
    ! k; P* p! H( A7 v  RowBox[{- s  R0 T% I. [- h; |( ^( i3 d
      "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",", # i) j0 v' j/ ~/ I6 n5 N) j
       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
    # h; x& R8 Q1 j" ` CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],- G  z. n4 e, n& K3 x1 r* D- ]  |

    ) e8 J; U/ b5 r, k- p% `Cell[BoxData[: o; u% M2 \4 e0 h# j
    SuperscriptBox["\[ExponentialE]", % u% k. {. M) q. @' P2 ^
      RowBox[{"3.141592653589793`", " ",
    ' V  u& S9 A. ]! s: {, i   RowBox[{"(",
    1 @4 A: }- f" d- j, O2 ]6 ~# `$ d1 _/ K    RowBox[{
    , A4 R+ b7 X4 b9 U- u( i  {, ]! }     RowBox[{"-", $ @9 s5 ~4 d+ w
          SuperscriptBox[
    " `) g" k: h* [, C       RowBox[{"(",
    ! p# \9 u/ O9 d5 a' N$ b. U1 b% b8 y        RowBox[{
    2 N# t3 o- V' ~         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", + @  f4 Y% D/ c. Y9 v2 U# d
         SuperscriptBox[! J! k8 n5 m$ m! z
          RowBox[{"(", : \4 G. W# J& S% P& P1 c# E' u* ^
           RowBox[{
    ( ?: Y* s0 ~4 T. n$ P; T        RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
    ( m6 c* r+ z2 p5 X) v% L" P/ V7 ^     SuperscriptBox[
    ) T. T- T( e- ~$ X: x. e      RowBox[{"(", ; m) z7 m% {& w' M& D
           RowBox[{
    & v4 m$ n5 r: ~        RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
    ) i/ f. y' @# O2 x7 }     SuperscriptBox[; \. i$ ]- S5 D+ z9 A6 B
          RowBox[{"(",
    ' c, h1 ]7 Y4 o$ [       RowBox[{
    4 x) v1 R& [/ \$ K        RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
    % |' \( u3 b7 X4 Q9 p     SuperscriptBox[3 i5 |% ]7 a. m# u) ^
          RowBox[{"(", * p, O  y& M+ E( n# J7 P
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", $ ]/ h4 [+ T! p( q$ ?9 L9 K
         SuperscriptBox[
    ; }5 V) Q! B; x; I3 I      RowBox[{"(", 8 K8 P- C" l, ~9 U9 T
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", " C5 }' \% m& a. s) i- {
         SuperscriptBox[, h% |6 N5 g5 f- e  w. C' ~3 j
          RowBox[{"(", % |- i* k/ r! i0 R6 R4 w& }' t
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ( L( O1 r1 |/ i. k# Y# \
         SuperscriptBox[5 V% N1 J  |0 r; b
          RowBox[{"(",
    ! F/ e( s% R5 w( g/ U- ]       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 3 k6 o( g, W- \3 i1 J* i
         SuperscriptBox[
    1 V/ ^  a9 X2 ]      RowBox[{"(",
    / `& v; E. x+ I' K1 X$ w2 P3 P+ K       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ; N) T7 @) \- _4 G; }5 A    ")"}]}]]], "Output",0 x/ J# l0 L- A
    CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]9 f  B9 P' K# P" |( S! O7 q8 x
    }, Open  ]],
    - b6 E" c/ `/ m. v& B# ~4 z
    9 c6 A* X& m& g. BCell[CellGroupData[{
    + ?% j7 z! f4 A+ C6 M; o% o$ Z# i0 c& U; A1 O# u
    Cell[BoxData[{
      E9 Y3 H* i. r$ G5 G9 | RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]", ! R  y5 z5 p; N# \/ z! z- B5 c( s
    RowBox[{"u11", "=", 0 p8 ~# A- Y6 O* }: j  u
      RowBox[{1 S+ `+ ~. k3 J5 t* `( F5 a
       RowBox[{"Exp", "[", 9 H0 h8 m4 c3 R6 Z  J0 A9 q. e* S
        RowBox[{" ^  ]# p+ ?6 l8 Z3 g  v
         RowBox[{9 h/ s9 m* V+ s0 J. ^- z
          RowBox[{"-",
    ( U" B% G1 u7 c  N) u       RowBox[{
    / f6 z1 j, S, C; y! L- a# p  R        RowBox[{"(",
    + D1 h& U* D. z: f9 }9 f4 E         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", , X  j( C6 r& D2 c
            RowBox[{"(",
    . y3 v9 ]/ P. m, k% ?; z         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    7 ^5 O( a9 H6 A5 q     "]"}], "/.", "DeltaX"}]}]}], "Input",
    6 b) A/ L8 J+ c2 l4 C CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {3 E) Z8 x3 U/ A, T) e
      3.57796154237158*^9, 3.5779615434011817`*^9}}],
    ! [% N' A9 ]& a3 [! V
    % l: x) x+ c) b# ^6 c4 fCell[BoxData[& x; y$ n0 e! o( m. v
    RowBox[{"{",
    / ^# y" V; T: g. l" N  RowBox[{! C* t8 x( m8 C; x' Y4 ~5 x
      "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",", ' T$ a- b) ]# u0 d
       "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 1 _) y3 F  s3 Y: ?% X; }
      "}"}]], "Output",
    3 \6 x  N7 j9 _) v. N" j CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    9 R/ G! R3 G' R% {+ ]* S  3.57801228203125*^9}],
    ( j8 y. x7 r' p% ^
    5 a+ q% f, K1 V" t0 m5 L: L! G. kCell[BoxData[* L! W% c% ^9 x% \$ [( }9 R
    SuperscriptBox["\[ExponentialE]",
      H* |/ j6 Z. n3 l) H" [  RowBox[{"3.141592653589793`", " ", 3 v" [! O3 _6 c+ [# H0 d
       RowBox[{"(", 4 n! W, P8 m& W0 T; x1 C# v* y7 O/ s
        RowBox[{6 G; ~1 \" Q2 _  c6 T
         RowBox[{"-", ; [, [: E0 r! s! [. h
          SuperscriptBox[
    0 G/ `6 f) H: s% V( H- D1 t0 [       RowBox[{"(", , _: Q$ n  P; \& {
            RowBox[{
    - c3 T; a1 c4 ^6 E         RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
    " G# e+ [# b) K: V     SuperscriptBox[
    " N: m0 D3 ~' C) p; `! b      RowBox[{"(",
    , Z# R6 r  N  Q* b- C8 M       RowBox[{
    ; c$ Q1 F/ n+ ~" U' X- {        RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
    & f8 f& S: k! w5 }" M     SuperscriptBox[
    8 i: i1 h1 b2 Z      RowBox[{"(", ) l- @' y0 n; k9 x1 w' ~
           RowBox[{
    ( w  i9 M; G# C        RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
    5 H! P1 d& I9 q: U     SuperscriptBox[0 g& E3 \3 @( A. k: D* ^
          RowBox[{"(", / T# Z  c/ ^4 v8 Q! e: H+ c1 L
           RowBox[{' \  F6 N, Q: j: _$ Y& ?
            RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
    % g- k$ B9 G7 N8 I! |/ J% E* z     SuperscriptBox[
    5 l; O; c( L- l" ?; F" _      RowBox[{"(", + B3 M  M; m; [/ R/ Q+ r7 m
           RowBox[{
    " P! ]! i( _7 V2 r8 ~9 c) s( R        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
    & x; n  K% ]* \6 f# Y$ z     SuperscriptBox[
    6 N, @: |$ s! L3 X7 M+ [      RowBox[{"(", 4 K4 m* M" G, B$ _5 S
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", & a( D- q; l3 g/ @% i
         SuperscriptBox[
      l* [- a0 n, X8 b7 j      RowBox[{"(",
    ( L5 F6 A  R: |3 t       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    5 {: S( c& ?, r- a. }; E* q, [     SuperscriptBox[
    + A0 Y; P) H( {! o% `3 E' K, g+ }      RowBox[{"(",
    ) T: k7 w* s2 g( z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",   h$ x) b" B! Z* I* K; y
         SuperscriptBox[
    ( L$ k! g+ v2 `& J1 T      RowBox[{"(", 6 Z" x% a$ O9 r0 l; \4 i) \) f# H
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], " ]2 z3 N4 F% [8 P# v
        ")"}]}]]], "Output",2 G8 M% @& A9 P, N- F
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, # R* _" U% }3 O  ~8 Q
      3.57801228203125*^9}]
      _8 X+ k! g6 q* h- O$ J6 G0 b' P; r}, Open  ]],2 q1 A6 H8 i8 F% ^% K( O# R

    " \$ ]% s+ y: `Cell[CellGroupData[{3 P8 e( S5 N& l, f# r
    0 R1 k7 J" q. C: o% l
    Cell[BoxData[{9 ~" m& h9 Y7 g
    RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]", ! u) S# E5 b# n/ Q% M
    RowBox[{"u12", "=",
    : o: s6 Q9 h) m% g  a7 i  RowBox[{
    5 Z0 D; c/ T2 v) p. X   RowBox[{"Exp", "[",
    & i& P2 B/ z0 R    RowBox[{
    3 E- S+ G# P& ?/ k4 b5 s     RowBox[{7 R& T  B. k+ }' U5 a: C. ~8 L
          RowBox[{"-", 7 v( i- A  }. d. e' V0 B
           RowBox[{
    - t- z% D! C' u$ }* a2 R' A; z9 G        RowBox[{"(",
    9 X- F9 c5 b' o  u' ~1 d+ d         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", % A9 p. D1 M' n- `
            RowBox[{"(", % a- W: a6 x5 o& B, ~; G
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}]," O- u2 `6 ?' e
         "]"}], "/.", "DeltaX"}]}]}], "Input",: F( H6 Q: x5 G+ r; _3 w
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    7 T4 F) e; r% ^/ q- p8 ?* @: C1 H  3.57796154237158*^9, 3.5779615576284065`*^9}}],
    7 i* T) N  ^7 ]2 z* ?/ f6 b/ g8 B+ k3 U- w5 V9 f% u- x0 w& z
    Cell[BoxData[- T7 t. ~9 @3 ~3 W3 @
    RowBox[{"{",
    ) P& O/ b4 l; e7 b" K  w  RowBox[{/ M% ?$ o/ ~, _2 A" G) u
      "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
    * _+ v. J+ Z/ M! T   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],
    : o5 g- Z5 `' N( p9 B  "}"}]], "Output",% R9 w1 z/ b$ B, P5 N
    CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],
    2 i5 n! H+ E  t8 l" ]
    ' k# ?0 a5 ^2 e% F& y% mCell[BoxData[! K. ?6 h7 Y9 X  c% Y9 T
    SuperscriptBox["\[ExponentialE]",
    & p2 }. b1 V1 _6 k% j. b3 r; w  RowBox[{"3.141592653589793`", " ", ( s! W6 q2 i8 [# E+ [& T
       RowBox[{"(", + o0 y" P, W/ A& V, a& T' {& A3 G$ C% s
        RowBox[{
    2 K' W% j9 Y7 i1 {; V- E. u     RowBox[{"-",
    . L3 T8 y0 `/ i1 _      SuperscriptBox[) Q" v4 m' T* B* K
           RowBox[{"(",
    ! A" r5 b# U) u0 u6 c1 H: y        RowBox[{0 W7 D% }3 P3 M/ B
             RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", 6 o% p9 j( A& i( u' |4 b% G1 _
         SuperscriptBox[8 @+ G9 I/ R) J- D7 n7 x
          RowBox[{"(", 4 x/ R( }3 [7 v$ }. u
           RowBox[{
    ; ]" y- |2 y* Z: M        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", ! L+ x( S/ w6 e& E7 _$ k6 H# [
         SuperscriptBox[1 M8 {9 C9 L" D1 V3 ], [
          RowBox[{"(", 9 X- p9 a. K: v5 S1 o
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", 4 h2 @* Q6 v( |" }# {& z
         SuperscriptBox[
    * G! L, e' v& ^: {      RowBox[{"(",
    $ s* b2 }" g' n; I       RowBox[{
    + J# N: o6 y# Q3 C) _: ~: n        RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", 1 P7 F7 X9 B( R: f
         SuperscriptBox[1 A( J1 Q3 O6 T5 Y( V3 I
          RowBox[{"(",
    8 t# R! }- ^3 e) S. ?       RowBox[{
    : N& g5 R+ S, x. l0 F        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
    ; Z# u* L, o9 j     SuperscriptBox[
    5 ^6 y! s4 \, b; a6 f2 Y      RowBox[{"(",   a1 c% T6 R/ p" z7 E- x& G" `" L
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    + @* t* }( a, ?% Q: @; l) o& z     SuperscriptBox[/ K- t6 E0 b& h5 i' ?) {
          RowBox[{"(", ' g: `/ K' l3 \: H9 Q
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    8 Q, [4 C3 I. D+ v0 j* ?/ l& S     SuperscriptBox[
      p6 q. W  P  |4 K! F, `  {! k, [      RowBox[{"(",
    ! D! R9 R; Y8 p9 W' r6 d       RowBox[{
    0 A! V% D& y2 _7 L9 C        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", 6 E, C( N0 S; ^. [+ M
         SuperscriptBox[4 b8 r+ Y4 r  A6 v0 z+ Q. d
          RowBox[{"(", + p7 O: u( J4 k4 B! {
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], $ v4 N. t$ K6 Z, z$ p( {
        ")"}]}]]], "Output",
    : P( C3 r( E' m  y CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]
    : l' ~6 O) Q4 y& T0 \. o) h3 f4 Y}, Open  ]],
    % z$ l2 Z, m; r# N
    5 l# V% ?. ^, Z$ A, }) ZCell[CellGroupData[{) B2 t' s. R9 E' ~! u
    % d/ S3 ?' I9 H' q6 ?. m+ M: k
    Cell[BoxData[{
    ! g  u) Z) X3 C  C2 H, |/ F2 H RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
    8 n+ d# Q( j  v: N RowBox[{"u13", "=",
    " q$ |+ x2 U  D% o/ N  RowBox[{
    " T  u3 P7 ?3 ]7 e# J% Z1 \& H3 q   RowBox[{"Exp", "[", & O$ [8 g6 ?. V5 b
        RowBox[{& N: t. X- ^% s6 v& r! u3 e! Y
         RowBox[{
    , u$ i1 Q4 O0 M      RowBox[{"-", $ O; T- C) G+ D  L$ ]
           RowBox[{
    " o5 L/ x9 j* p, U        RowBox[{"(",
    * `, k  G6 x% }         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    : P6 r9 }: A" ]0 g1 h        RowBox[{"(", ; q( V0 L. B) {9 A5 E
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ( h! B. K5 |- ]1 A     "]"}], "/.", "DeltaX"}]}]}], "Input",
    + f: C8 `, g5 ^( W+ c& `' G CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {2 e0 b' _7 }. _0 F3 A- v- \
      3.57796154237158*^9, 3.5779615599684105`*^9}}],
    & u1 R/ W2 ?/ x- B
    ; x# _3 t/ I( GCell[BoxData[
    6 S1 b/ ]2 w; o$ a RowBox[{"{", ; \$ z- t/ F* d1 l: `" e* E
      RowBox[{
    " @! d1 q# N9 r8 I% B  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
    / k) @% t% L! K! s$ _; ]   "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
    , A, Q/ k2 H3 q' E  Q  "}"}]], "Output",5 [& M7 y9 @/ q5 W
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],8 l5 M+ [; K! v! ~5 m

    : A! i7 B$ k4 [# _7 f1 b5 ?Cell[BoxData[* J8 p8 R& ^) J$ q* e3 s
    SuperscriptBox["\[ExponentialE]", & y7 F' o1 }3 Q8 k
      RowBox[{"3.141592653589793`", " ", ( Z& L8 }' C6 P, u; @
       RowBox[{"(", " p1 k- _0 l9 A: p$ J1 o
        RowBox[{
    5 D5 V" G! z& f- D     RowBox[{"-", 8 O: r4 [. y# l& c3 ?8 P4 _
          SuperscriptBox[& m5 [, s. i3 B' M, n
           RowBox[{"(", $ _( N' a" h% a8 {
            RowBox[{3 K' m' ^: |; K7 m1 C  Z, |1 R  V! ~
             RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    4 S# t& P+ ^) }" j' P- i     SuperscriptBox[" M" {. F) i* Z: ?. M# R  s
          RowBox[{"(", 7 }' b( M. p3 t; e: `+ g, f
           RowBox[{) }( w% a+ }/ r/ [) K' G$ k# Q+ Y1 b
            RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", 0 w5 K6 P4 \" a6 L" H0 E
         SuperscriptBox[( \. V( O1 t9 g3 ]! O( W
          RowBox[{"(", : D9 B8 U2 Q; |! |' V
           RowBox[{6 L' h5 ?: l* W7 @
            RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", + q: B1 E. |# y( }
         SuperscriptBox[
    & [; a2 x7 M( x/ I! C6 r' x0 |      RowBox[{"(",   M+ k: T' }- a7 A2 D% o" M2 e' Q
           RowBox[{
    ) A8 ]' K* \7 |% M" k! z' C0 ~        RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
    ' k. {* v9 o* S3 Q$ Y     SuperscriptBox[" ?8 f( }# M' |- Z1 E# w
          RowBox[{"(", # D6 d! K/ ]) ]2 S: ]% e. T
           RowBox[{( w3 n" z% g) v2 N+ i7 b
            RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", 6 t: ?! l" \( j2 c5 J: \- Q4 v3 R3 O
         SuperscriptBox[
    / l5 E/ Q( T8 u/ l6 I8 ~, h! Y) l      RowBox[{"(",
      X7 g' f. O4 P. D" v       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", - G& e- s' r4 l: s9 u) t
         SuperscriptBox[, Z1 |1 ^- A8 a" @) D
          RowBox[{"(", 6 Q3 i7 L; A+ g& [& ~! Q
           RowBox[{! S& `+ k1 `4 ?* Q) P
            RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", ) q1 Y) ~+ g+ C- K, a
         SuperscriptBox[/ k4 w+ k4 B/ }3 G& N( W
          RowBox[{"(", ) e& O1 \' N- j: j
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 1 \6 m$ I7 t$ X9 p! F
         SuperscriptBox[
    8 s4 f) s- P% R: t      RowBox[{"(",
    3 h5 V& l& d, W) P+ R; f2 e' B# {% I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 9 c6 |3 a4 o' L6 }* x, ~$ l
        ")"}]}]]], "Output",* }3 q- t- z2 r' s( S
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]% k7 G2 R4 C4 b. {+ o  |
    }, Open  ]],
    ' O  E! D+ h4 ]0 X" l' @  ?$ ~
    7 i3 U7 P$ z+ W& A% v' {& B) Q# ]  ^* _: eCell[CellGroupData[{
    , ]: R8 ]' Z: C/ y; j% X( w. u2 o6 v2 d7 `8 Y
    Cell[BoxData[{& x* d1 r2 ?9 h; x; o6 L
    RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]",
    2 \% E8 v0 F8 I9 i) I% z RowBox[{"u14", "=",
    9 a: V. z$ |4 T( L  RowBox[{- A) N% K3 C6 z/ y# ?! }5 @& @
       RowBox[{"Exp", "[",
    6 ?7 i, V5 N5 Y6 s: e4 u8 |    RowBox[{- J  q8 e% X5 ~1 e& n+ h
         RowBox[{
    % k: e  S# G' r1 I3 z  n      RowBox[{"-", * t8 d( M! @2 _4 N: P
           RowBox[{
    1 ~' `5 @" E8 o8 I& y0 R9 ?2 F        RowBox[{"(", ) A$ _9 n: v1 E3 v6 O1 p$ T
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ; P# x! k: B5 T* d
            RowBox[{"(",
    1 t3 K9 h5 a4 T, o9 Y: m9 I6 C, S0 u         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],' u$ G& V( G' q  X+ }2 }
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    4 {- T- a8 v" G+ z4 {7 x$ v' o& A CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ( u2 O" l% y# f# b  3.57796154237158*^9, 3.5779615663176217`*^9}}],
    . i& ?. x3 W6 J8 h( ^1 ~2 `: |3 c' x, F6 A) i. E
    Cell[BoxData[! U+ ^. T- Z- h; z( R5 P  r
    RowBox[{"{",
    % Z- e; i% B! w, d$ i  RowBox[{
    : X5 F" t& j- S; ]" Z$ l" Q  "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",
    2 \3 j" K; B2 E7 `   "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], " k. Z8 ^8 N) l- I0 x, C# d
      "}"}]], "Output",0 {$ k' ]; w) E
    CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],2 I& W- f/ G7 M* W% U+ K
    , o* h+ O3 u4 D  a$ O
    Cell[BoxData[* f9 r4 \6 k3 g1 e% M
    SuperscriptBox["\[ExponentialE]", 3 b+ F& v3 d# ~. f; j
      RowBox[{"3.141592653589793`", " ",
    $ D* R/ L, ~/ o4 M  Y   RowBox[{"(", : L# d4 G  p7 u' H  @$ K
        RowBox[{
    & l$ H9 @) C4 Z* T     RowBox[{"-",
    & {/ a+ P# Y5 E5 z      SuperscriptBox[) M. ]: `: h0 T/ N/ n" \4 o
           RowBox[{"(",
    % M9 {4 w- r8 T' j        RowBox[{
    ! g% ^; v5 q# N9 V         RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
    0 m: b; @+ {8 C) I( k8 y     SuperscriptBox[
    . g9 W  O! d" X' S7 w' J: M; K7 f      RowBox[{"(", ) K0 y. \' f' o8 X* s0 S
           RowBox[{9 s. A1 S/ _* G  E2 k  Z
            RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
      ?# C* ~7 |# ^6 R     SuperscriptBox[
    $ C& s+ {9 L5 O# w) K; x- ]      RowBox[{"(",
    * B5 S4 `2 T9 ?. h       RowBox[{& I. Q  ]4 L/ k8 b
            RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
    % Z9 x  n4 a* K! u  O$ Z/ w( c     SuperscriptBox[
    1 q& ?) t$ c5 u2 a9 Z! I6 L. I      RowBox[{"(",
    7 h# ~4 d) {- u+ h1 G  E8 `       RowBox[{' l! a3 ~0 r8 B7 i2 i0 p! @1 q0 p
            RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", 9 e; ^" [2 A7 r9 `) M9 B
         SuperscriptBox[
    2 J( z+ a- X: D# L, s" _: O. t( H      RowBox[{"(",
    # ]- O. x2 t( j& `. ^4 `       RowBox[{
    ! s4 x0 s( e; H2 w9 z9 V* H        RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
    1 X3 R, u5 O' L' }  G) R     SuperscriptBox[; T4 C8 I8 a8 R2 \2 K# U
          RowBox[{"(", 6 R0 q  K4 g! h  a+ [
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ; i2 p! w6 O: w& d( }/ ~; e     SuperscriptBox[, ]& ]" k* B& v4 l3 h# A
          RowBox[{"(", 1 _9 O3 s9 G! f/ X) G5 ^6 k: G7 C3 e
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", - e. }* K3 t' [5 V- R: b+ {
         SuperscriptBox[
    * t, t7 z4 z( H      RowBox[{"(", $ o$ U6 N6 @% K
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ! a+ m9 v/ Q) j* ]& ^
         SuperscriptBox[
    8 R. f2 U6 A% g* M4 ~      RowBox[{"(", ; n2 Z. h. r0 Y1 B/ h& I  B
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 6 _! Z% Y* {% Y5 k+ B# g/ k
        ")"}]}]]], "Output",
    $ i2 A& _: A- C# { CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
    # W; O& v: V, o" y. `}, Open  ]]," j2 h) r* g! _: Q" z: J
    + F% \% G, A3 p& W4 n" n" Z
    Cell[CellGroupData[{  _  ~& q8 g  G6 @4 X' O; h9 J
    0 p. o- c. t+ u- ^: h
    Cell[BoxData[{, i% q9 b, `3 e( {( t: Y% y
    RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]", 9 Q) s: g* D- i1 y
    RowBox[{"u15", "=", ; r7 Y: }& S' |- x$ T( K: u* Y
      RowBox[{
      V5 G5 J; H0 B5 w, \# E   RowBox[{"Exp", "[", " J6 R3 m7 ]3 T. A, n  v9 e) a" L3 v! M. E
        RowBox[{# i2 X5 y* Y9 u" D+ u) ~
         RowBox[{
    - b4 d2 K; |: R8 b- A9 w      RowBox[{"-", + H7 _9 ?7 j' X: L; N
           RowBox[{
    $ ^6 |- ^; t0 u) _' O( s9 z/ B2 [, X        RowBox[{"(", * S; I6 I# i2 f" s' I. `
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    6 ~0 X: ~0 g3 v        RowBox[{"(",
    + H9 t, H5 X& _. X% m! S% K         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],, r# W8 I" Z& G4 y, Z5 u  @! W
         "]"}], "/.", "DeltaX"}]}]}], "Input",% d4 g4 e% C# [
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ' M) W- B6 ~( f, p# `( j- n1 v  3.57796154237158*^9, 3.57796157098203*^9}}],# n( a5 U' Q7 U& J1 p( t

    4 h- g6 W7 W* x5 A& G8 [Cell[BoxData[
    * @9 E% Y. B' B; [, ~0 C: ~: h RowBox[{"{", 2 m/ `! s7 w1 W7 N9 _& y
      RowBox[{5 p- D' ]' i3 h7 c4 w' K
      "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", ; q4 m$ ^* {0 t% B4 g6 w+ B' T
       "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}], 6 s! c8 c" I4 F* L
      "}"}]], "Output",
    7 W& E: l' W" r( y. H+ j3 q CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
    ) O* n7 }( {8 B, k5 b
    7 v7 p( D* l) I/ w2 JCell[BoxData[
    ) v! J0 ~" i3 b. }. h8 z: g SuperscriptBox["\[ExponentialE]",
    ; \6 `; N$ M% o  RowBox[{"3.141592653589793`", " ", ' E3 N( K1 R1 }* l: H; a* W  v
       RowBox[{"(",
    - F& f# p7 e1 {4 L# U8 L    RowBox[{
    8 V2 W0 l. z* A6 Q% y3 o     RowBox[{"-", $ O: A2 i1 _3 @4 C- e( Y6 u
          SuperscriptBox[& @+ f6 K; B# ]2 `/ S7 X
           RowBox[{"(",
    8 Z4 `9 A* R( c0 P' E+ y        RowBox[{
      J/ `" I. y3 \) O! Y+ y9 X         RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
    2 D( U4 \. s) K3 C# H& _     SuperscriptBox[
    0 Z/ k) o) `5 v3 s1 c2 |. W      RowBox[{"(",
    / Z- C: e: H7 ~8 n       RowBox[{
    0 f, q  _7 n1 f  a0 w% F# b        RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",   c# F$ |: I8 X) a6 m
         SuperscriptBox[
    9 b* S/ ]& |6 q2 \      RowBox[{"(",
    : \  @, Z1 r2 b2 \0 x$ Z  P( R       RowBox[{3 u& V" v- T$ Q" r( U
            RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", 8 ~! p# F7 E! @
         SuperscriptBox[
    ( y0 H8 c2 E2 K! Y# n) N; E  F/ d      RowBox[{"(",
    1 y1 C- g+ z. v/ R: X- L5 d# j% J+ M6 I       RowBox[{
    4 l7 s$ d, i2 B9 J# ]: K        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
    8 I& @; L9 u$ m( Z, D4 P: r) h     SuperscriptBox[
    , K+ I  w+ _" R( E      RowBox[{"(", ' V( R! ]5 \0 ~1 ?% H. ?9 U
           RowBox[{6 `7 k0 `7 T8 y2 O; e1 l7 Z. P
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    9 Y1 a: d: w; D3 x2 c     SuperscriptBox[2 \; ]0 E. f  \# U
          RowBox[{"(",
    : m% i! @. X4 V+ _* B! {       RowBox[{
    8 i1 L3 H; d" O3 J/ N        RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
    ; U+ x# d8 ]; ~6 T, F& ~/ o" {" g     SuperscriptBox[
    - f% E1 p/ i% Y; {* @1 `) m      RowBox[{"(", 3 t4 ?* b: D" ^) D, Y
           RowBox[{
    0 ?* b* l1 P8 p% `' w        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    . G2 I+ Z9 q1 A3 v' z+ c     SuperscriptBox[
    / i$ D8 w/ P) V) z* J      RowBox[{"(", + I7 L2 A- }5 y& B
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    8 P6 w! F* j: c3 X- M' s     SuperscriptBox[( Q: l; x- H( Q' O
          RowBox[{"(", 7 L1 \- t) k5 I2 I" q0 @
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], # S) @# f0 s8 u% _6 e+ L, k4 |
        ")"}]}]]], "Output",. L2 A5 D5 S) y6 S2 b$ [4 f/ b
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
    6 L; A6 ^0 N0 k- j# R8 @}, Open  ]],
    & @- w5 b3 |& y8 K+ a- O( A3 A& {2 |8 p% o* N1 O8 l( l
    Cell[BoxData[
    . s" f1 w$ g+ _ RowBox[{"For", "[",
    4 \9 r5 r. q- f  RowBox[{1 C' F2 l, Y4 v8 _. @1 d
       RowBox[{"i", "=", "1"}], ",",
    - i( h8 x, E! Z4 R2 {) v5 }9 I2 b   RowBox[{"i", "\[LessEqual]", "9"}], ",",
    1 s  a; R/ x: g- B' r   RowBox[{"i", "++"}], ",", ! U( {% s0 N0 `$ C5 U
       RowBox[{- w$ g4 ^9 v0 s1 b; f8 F/ `* r% I3 m6 V
        RowBox[{"Ca", "[",
    3 g9 y) ], T- D     RowBox[{"[", "i", "]"}], "]"}], "=", 0 ]- T/ @9 F( w% ~
        RowBox[{"CM", "[",
    * o! \+ e& E, ~* x6 ]7 }     RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    $ M+ d& U1 ?) [8 I* c CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
    ) E9 }  n) \. H+ e' |- T8 e! |+ z
    : v  j+ \: Y3 a( W, y, wCell[CellGroupData[{* V% u4 m4 z; U% z9 S* O

    , U+ g* c  k1 B' _  pCell[BoxData[{
    ' ]0 K* K# S2 J# A8 m RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]", - Y0 M" n9 `' O* [6 x+ G4 Q9 u
    RowBox[{"u16", "=",
    8 f# M/ A7 s$ S  RowBox[{  `$ G/ _/ k0 n( A* D& z; w
       RowBox[{"Exp", "[", 4 N1 M7 t; J% r# v
        RowBox[{) }$ S/ n* ]/ T' }; U
         RowBox[{
    % C0 q" P8 U3 \0 C- N4 o2 d      RowBox[{"-", ) u+ Z' b3 A; x* T( c) @8 `! p
           RowBox[{: t$ U; ~* B1 o, Q9 I
            RowBox[{"(", 6 v- S- L9 _  M" }. j: B
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
      q+ j. d/ }6 ^8 G        RowBox[{"(", ) [8 ?* s' q6 p9 L$ @; q4 ^' ^- _
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],+ [3 c/ Y3 q$ J; T9 {4 \
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    + b6 M3 V/ I% G0 @ CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    + F6 R  D7 \: Q  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
    $ ~" f' @7 H& ?4 b& y' Z; S, Z! r8 y3 f  3.5779615751004367`*^9}}],  p8 F3 E' X- P/ s
    9 E2 p& `  }0 u6 x- E$ H' r
    Cell[BoxData[5 h8 O) n# S3 U- A' j: t! O! a6 E
    RowBox[{"{",
    / V; h1 a* L; a! S  RowBox[{
      r1 e' K& ]# @. {) N( C8 w: _  "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
    / |% Q4 _% S' W6 B; }' d   "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
    ! h& b; g9 k+ f0 q1 s  "}"}]], "Output",$ i& r. a- O& Q
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],) J2 g4 m% c: _; A5 {5 @
    $ o% f0 K9 _% d' g7 J4 [
    Cell[BoxData[* j& i0 s4 h; M4 h
    SuperscriptBox["\[ExponentialE]", 2 P( {- D6 R; f5 A1 Z, J- R: |$ Y
      RowBox[{"3.141592653589793`", " ", " y8 \  i, W' E. j' g/ p
       RowBox[{"(", % s( o9 g1 M  a* R6 ^5 g8 [) z
        RowBox[{
    . g5 @6 X( G6 A. }3 y, b4 Z1 H     RowBox[{"-",
    $ I) }5 d# n0 ?. R: O      SuperscriptBox[
    9 A3 c4 P1 ^1 T       RowBox[{"(", ( q2 ]: E# ]; M1 T& v+ a
            RowBox[{
    6 N4 a' g* R8 I, P% r) [         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", 9 l# x' O1 A1 y. H
         SuperscriptBox[
    7 L& T4 P7 F$ z4 f: _$ b9 m      RowBox[{"(", , }; S& Q0 D1 ^0 B
           RowBox[{# {! s* X0 b; S. P8 ?& k- \! w
            RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",   q$ y' t1 q+ y; ?, d' ^
         SuperscriptBox[
    # ^8 q1 {9 G. A- v8 ]      RowBox[{"(", 4 J, v5 V7 P# ~7 s' |& E6 S9 K2 G; A
           RowBox[{
    ) E: m1 R( F, c  [5 [        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", 2 r" s# p1 h- F" c
         SuperscriptBox[
    , A0 e' m7 g+ r. [      RowBox[{"(", + z* C' y- u% V+ D$ B
           RowBox[{9 g; @. s: {; w" o% v/ q
            RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
    ' d' T9 K1 j9 E' Q9 L' c, d     SuperscriptBox[+ z& w+ V+ _7 B2 p9 v4 c) y
          RowBox[{"(", * q1 N, v  K" G" q3 r' K! Y
           RowBox[{
    0 G# u; J. L0 }        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
    0 @5 w. _2 G. I9 Z' r     SuperscriptBox[- R) [5 e# \1 ^/ y$ i$ v2 ]& z
          RowBox[{"(", # E- G7 ]5 [8 W, ~7 V/ }& ^* F$ D
           RowBox[{2 h9 N$ P# E3 N1 M' v- }
            RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
    2 |2 `) m' S! ?; V     SuperscriptBox[6 _2 k( X% k/ H
          RowBox[{"(",
    & w" b2 M# M9 N: R! X2 E       RowBox[{* z0 p2 v& k' o+ @& O
            RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
    " v- j$ J6 R" @% N- G  z     SuperscriptBox[4 T- P/ _5 z  R+ R" C, V- z6 Y
          RowBox[{"(",
    % P! m2 }# E) L       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 9 D, [& ]7 p0 Q) n2 V2 j  \7 b
         SuperscriptBox[
    - I) G8 K/ E9 {+ a      RowBox[{"(",
    2 e: p$ r5 B! w- G6 X- c/ M3 ?/ T7 A       RowBox[{
    * P# X  z" ~5 s7 b+ l: L        RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",( o' s: n& P5 H
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
      p* p) g; B: R& d+ X. y}, Open  ]],
    ) N. }+ n) X1 C( F5 O, s. M/ a* j# S) r7 y
    Cell[CellGroupData[{
    / ?% T, i; A7 Z4 P  \4 T# D. b% |/ r( Q) U/ C- K1 ]! M( Q
    Cell[BoxData[{
    : j+ z1 `3 Q. c  T8 U* G RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]", % b6 k1 q; a1 j3 n8 s5 p9 c
    RowBox[{"u17", "=",
    # m, x' e' I) w, C" t- ~; _  RowBox[{
    9 a3 O% O8 E7 t3 e) h7 k. v6 u   RowBox[{"Exp", "[", 4 s9 J, Y- ]  w. N: F
        RowBox[{, h' v" }7 a1 l: A, X! |! w
         RowBox[{2 W% @* D" ~" X- w. w
          RowBox[{"-", # v- H, w  g. M+ J3 `
           RowBox[{
    ! x. d6 `7 n* F8 A        RowBox[{"(", 8 d( h, _8 k# R2 j
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ( S- n# M' C' S3 I        RowBox[{"(",
    4 g5 E6 E# o! G. M2 A+ C; b8 M         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],( p  r/ y1 _% k4 O
         "]"}], "/.", "DeltaX"}]}]}], "Input",$ k& l& J2 O" a
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {! @8 Z3 A) K2 \7 R4 `
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9,
    $ Z. Q8 W4 L& n* Y% f+ D" T  3.577961578953644*^9}}],; L2 W* {2 w1 r+ e9 l5 k! |
    5 i6 |1 F# f8 X" P8 F! ]( f4 Y
    Cell[BoxData[
    8 T  r. }5 y& Z7 M8 T RowBox[{"{",
    1 `8 w! L3 w9 n7 J  RowBox[{2 N) M$ F2 t1 }4 K$ P( G% i' d- {
      "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
    6 y( B% ?$ s/ ^& a9 m   "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}], : a- c* b$ j0 L2 c( i2 [
      "}"}]], "Output",
    ; I% J  R: \5 R$ A8 r7 H CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],4 L* m9 N5 Z0 }1 q8 F

    5 X* w& l) J1 _7 P) S: p2 B$ _Cell[BoxData[8 ~' E4 b# l, E  b( k9 W- z  w
    SuperscriptBox["\[ExponentialE]", 9 O/ `- o$ V, p2 n. J8 N
      RowBox[{"3.141592653589793`", " ", 7 }6 r3 }, J4 p9 _, x* F* W) t
       RowBox[{"(", % h7 a8 Z, ]( z8 @
        RowBox[{  k! G8 C0 L' @! z& J7 e- a6 Y
         RowBox[{"-", % s# c* q5 B) j# F$ Q7 c9 Y7 Z# C
          SuperscriptBox[
    % N( A/ _& R+ o. L4 V" U% Z       RowBox[{"(",
    / y; L) Y3 q: O) ?& Y; H        RowBox[{6 J7 t% M4 o6 J# u% P/ E, C
             RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
    % B- f. j9 d$ U1 I% n     SuperscriptBox[
    & `( u2 p3 Z, s, ^3 A6 T1 s      RowBox[{"(",
    . ^( z# i) W: f; @% q1 S       RowBox[{
      g+ F: n# B3 q! h        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
    ) L$ N; T6 E# q2 y, w% ~     SuperscriptBox[
    0 j1 d* M  I3 G' e+ s% o- c      RowBox[{"(", 5 H# X& i4 f# y* J+ C
           RowBox[{
    # A  B/ Z! ~: H0 J, u3 B1 l        RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
    7 U7 x# i' C: F( h1 @; x1 S     SuperscriptBox[
    / |/ v# a5 d( v* Y+ ~      RowBox[{"(",
    & h  i6 |1 ~, O  F; C5 D3 N3 Q       RowBox[{
    ; X" ^: `0 d9 j% i- J1 L        RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
    6 u/ L' F  T6 K- T$ n; l, y, T     SuperscriptBox[
    " w/ ]" R6 W, t: \  R- {      RowBox[{"(", 0 I8 N0 ]0 m! t% U
           RowBox[{
    / ?' f+ d: p9 \$ S" S+ v, W        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    ( V+ Z+ z$ V7 C" x* P9 u* j     SuperscriptBox[
    3 c& r" c0 \% R7 P8 J' U7 P      RowBox[{"(",
    8 S+ O; o% M" [4 l. J* g       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ) U# a) s( D1 l! n) R9 p; X, q9 A
         SuperscriptBox[
    . b9 p0 V$ F: Z& h      RowBox[{"(",
    ) M+ d3 O7 b  @       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 4 W- x. w  _) l) \) F" p
         SuperscriptBox[6 X# k3 g+ e+ D1 X2 O) j
          RowBox[{"(",
    / V2 C, X8 ]9 F9 e' I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    . r. G& N7 c; C: n) p: H+ N     SuperscriptBox[3 L  h$ E% u8 m" G% V6 X, }
          RowBox[{"(",
      r6 P& r& t# n7 H* Z6 ~       RowBox[{
    " e! Q5 ?+ ]9 b* Q' R) B        RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ! C5 L- k7 S  [3 B# R
        ")"}]}]]], "Output",
    1 e+ v" f# P# p2 S; d- L+ ]1 A CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]' Z' p5 H5 F8 x4 ^! c* ~
    }, Open  ]],: j9 D' f+ u) ~! w  ?& m( A

    , v5 U1 L$ }9 q# f$ vCell[CellGroupData[{
    ! e' B! U6 |: Z' @0 k; a7 u) O( d: T* U  ^# m3 U0 a" }; f, S
    Cell[BoxData[{
    & c6 Q$ e& y7 t- m+ m. g# X- ` RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]",
    ) n- T# d( ~+ K4 x RowBox[{"u18", "=", , C6 T8 l% {* `( t  v2 J
      RowBox[{
    0 s  W0 g! f7 D% i' y% E" z   RowBox[{"Exp", "[",
    2 }( c5 N4 R4 M" u' r. w    RowBox[{% }' T# `$ \# c
         RowBox[{, Q0 H" d1 R: y2 Q! L+ r8 q
          RowBox[{"-",
    % K4 L' o: y6 f; l+ _& [4 ~2 y0 l! F       RowBox[{
    + Y8 `& @( b* @* v        RowBox[{"(",
    2 E- v: ?1 o" h3 {# z0 l, j         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ; u) w- L- z  [9 R
            RowBox[{"(",
    ( ~  U1 O1 V, A* o         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],5 |6 C( q. A  e+ u+ z% L# C+ b
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    ' l' Y/ G6 T& |! \7 U CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {- D1 N. J/ q/ \! T0 B. @, w
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
    * R3 S) u0 W7 A) p- u  3.5779615828848505`*^9}}],
    * L; w2 y3 f! R! ~. N. r0 v& J8 |  k- y% A* T
    Cell[BoxData[9 ?" @7 z; x4 f% `  I5 V! n7 {3 O
    RowBox[{"{",
    : p7 A; I9 u& ~2 n' c  RowBox[{# y, \7 M% R" y* `
      "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
    , f5 F" N7 m- U, `   "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    ( c8 w$ y) l: m! x  "}"}]], "Output",
    7 m) e( R% l+ ~! P: I- ~) O$ P CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
    5 Q4 q: \, C8 E) T: j/ @! U0 z8 s
    Cell[BoxData[
    + k% c2 k1 m; y SuperscriptBox["\[ExponentialE]",
    4 F, w# i' L/ e$ N! a  RowBox[{"3.141592653589793`", " ", % G. x, m9 D8 \: a, Y3 }5 e
       RowBox[{"(", ( `4 u; ^% @' Y8 J+ n
        RowBox[{! N8 }# w6 y" ^+ p
         RowBox[{"-",
      |) w# X7 f3 s8 d, m      SuperscriptBox[  ^8 y* H8 G) J+ B
           RowBox[{"(", ( B# n5 y, I9 }  b; Z
            RowBox[{
    % W( D, e' M0 ?  ?" s6 @  N         RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    - U+ [+ K1 ?" T* F6 |8 K2 ]# b     SuperscriptBox[  c; j4 [' |& q8 H7 R
          RowBox[{"(",
    - _- M" u  _8 k% d1 x       RowBox[{
    . ~/ M, j! [: U1 R" ]9 S        RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-", / z; s% [! K8 q
         SuperscriptBox[
    3 G& [% x3 b  x' Y& R9 t! H      RowBox[{"(", # W0 J& Q2 g  ?- t6 u( x
           RowBox[{
    , O1 K2 c3 f* t        RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", 5 o8 B" a0 N" A9 a( H- B
         SuperscriptBox[! f4 c* J& E3 K, T
          RowBox[{"(",
    " W( H: `+ d- Z" x) A       RowBox[{
    ( c; B2 m4 A  ?5 u        RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
    : z" x  D5 o: w& t" c     SuperscriptBox[+ i. V" C, K) F' ]
          RowBox[{"(", 2 m  T7 u  |" i( {' z3 O, r# A: h
           RowBox[{
    : ]5 E! y0 b  z, D: F  U- k' G        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    6 q( v( d' V: C# X     SuperscriptBox[8 }( A# p3 o3 c, F2 h" X3 p  q
          RowBox[{"(", % ]1 m4 d7 A6 z0 x( O
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 1 U$ K! Y% r: A; F
         SuperscriptBox[& }; f7 [- t$ z! f
          RowBox[{"(", 6 C& Q$ I0 ?! {/ T8 A3 ~
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 6 X% A4 g2 S3 A9 }5 f& p
         SuperscriptBox[
    " x, @! D7 F+ [/ g( a( Z      RowBox[{"(", 1 a0 ]1 A7 d5 F) P' A
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    1 I" y+ D' h. n     SuperscriptBox[
    5 C* m+ T1 z$ k% w      RowBox[{"(",
    & Q9 T5 L+ V0 I. S7 T5 l$ X9 ]       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    $ p) `  o% I5 |7 B8 ?- x    ")"}]}]]], "Output",- ]1 `6 G% u& P9 s4 [: E
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]# l0 m) m4 D: D0 @% ^8 w
    }, Open  ]],% o, ]8 k9 `+ O9 K' o2 b5 C! ?, K
    ! @  x8 D2 O( h* a
    Cell[CellGroupData[{/ U* M  A& Y. e' B3 y' Q9 y

    " B$ A" ]9 x4 [$ b! h' kCell[BoxData[{6 }; B5 _# X( y3 Q
    RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
    7 M3 n* y4 [# {/ I+ g7 Y% X0 p; _7 | RowBox[{"u19", "=", % M" s+ `( j. g- ?1 H
      RowBox[{7 q7 s8 |3 U+ ?  ]
       RowBox[{"Exp", "[", * F, U* O0 X5 U- U
        RowBox[{) y, j" a% K. C+ z: B% s
         RowBox[{6 H9 n- G8 |+ @! c
          RowBox[{"-",
    8 G* G: w/ o3 e       RowBox[{
    , Q( h0 E! g- R/ z        RowBox[{"(",
    9 P, I8 o+ L+ N# R" `2 I' d         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ) @+ y- h! T% ~+ U+ p0 a        RowBox[{"(",
    9 I7 b% t: r% f& k: s9 F         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],) z% i3 u( D  b$ i3 t/ t
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    $ l: y7 _+ A( b2 h CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {/ e" x# B/ P; k" t, O" V
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, & F4 V# a# h; X, P$ U" U! @; x
      3.577961588890861*^9}}],
    7 S4 n1 I+ `& r0 h
    8 m, x( G, P: Y5 t! {6 N! A. [Cell[BoxData[
    # {8 b/ f7 Q9 M4 y3 g RowBox[{"{", . l5 H' }" ?( W1 `
      RowBox[{
    - X- X$ j3 ]7 ?% N8 N  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
    - ^4 N* J/ R; Z" m8 C   "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}], $ O+ K7 e% ]8 Z; y2 @) i* I( N
      "}"}]], "Output",
    * m, I, T( A5 B: \ CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],2 b  n$ H- Z. @+ r7 _: z. b9 Y2 E' w* p

    " }: z  i  X! g3 qCell[BoxData[2 f7 o6 T; E) c# k
    SuperscriptBox["\[ExponentialE]",
    3 {+ i- @( ?' e( }0 T8 y9 g4 G  f  RowBox[{"3.141592653589793`", " ", , k' N* e  L  T4 X
       RowBox[{"(", ' b% M& ]% l! J$ X# g- V% E& Y
        RowBox[{  }/ a' `. L+ e  \  m
         RowBox[{"-", 4 a% L* {$ c9 N6 q  ]
          SuperscriptBox[
    1 h: _6 p' \* j. W       RowBox[{"(", . F) j6 F* `' {
            RowBox[{
    2 c2 s/ N1 D8 Q4 v) x9 h$ y         RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ; ~  \8 \( o0 w     SuperscriptBox[- C0 k4 |% F0 {2 F. c+ W0 T
          RowBox[{"(",
    5 m; t% |* c- Z4 ^+ ^; B       RowBox[{
    $ ]% z1 u% S! _& o; `9 L' g* s        RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
    4 A, Y/ y- y4 ?4 P# M( w0 f     SuperscriptBox[# g) ^( i4 E9 q9 F$ H7 n
          RowBox[{"(", + N9 J6 y0 H( c4 b, m" }
           RowBox[{
    3 f# ^; K9 r9 I9 h6 E' W2 R5 q0 S        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", % @0 C0 A" Q" V: q* y3 x
         SuperscriptBox[& |1 z: V  z+ j0 Z+ h3 t( |, @% j
          RowBox[{"(",
    ( X) K! e* }7 I- P       RowBox[{
    ' @) `, P' e9 a9 [% z        RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
    5 Y" C/ [, L) m4 m, r     SuperscriptBox[
    ; y! l2 k$ ]: m      RowBox[{"(", # }% f& C! C; A( p( G2 ^
           RowBox[{
    ; D/ h1 v2 @. ~! M( l        RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
    1 j7 f) U# ?4 j$ i4 I* @     SuperscriptBox[
    0 X( z8 X  n/ x/ f9 M0 U      RowBox[{"(", - z2 d( U" P( ?, o% t
           RowBox[{
    - Q" h6 {* N8 I) u: Q( q+ t        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", % X" K0 d, A, |/ v/ N3 x
         SuperscriptBox[
    2 ^5 c/ D7 C% H' \6 }5 T      RowBox[{"(", / t$ O  P& z! s4 e4 Y7 e3 j7 G
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 2 h) ]3 t: q) ]2 H0 S  I
         SuperscriptBox[2 l/ _# F1 c8 I5 Z" x6 R- x
          RowBox[{"(",
    9 K. j; k8 M/ m1 Q       RowBox[{& T* O% D6 Z7 a' y: t3 `4 S
            RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", " H; ?$ Q  v9 M- C6 Z0 T7 s
         SuperscriptBox[
    / L. Z1 ^6 y' v4 c& U      RowBox[{"(",
    $ s! c4 m0 \' T& R3 R1 {- ]       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 3 n+ Q; q* n' G# t
        ")"}]}]]], "Output",
      ^- s4 F! O: y& ?; s% ^" I8 } CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]! Y# n! S) Y# K* H( i3 s2 D7 g
    }, Open  ]],
    1 m9 V2 i! F4 p5 T) H+ r7 H) D5 t
    Cell[CellGroupData[{5 K% q% q2 e& Z. i- {

    - |1 }) `1 o8 K6 A" m* v, X! ICell[BoxData[{- p* a2 w+ z/ ?$ l+ a
    RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]",
    1 g; R$ {8 f9 A RowBox[{"u20", "=", ' C, s, t  Z7 I( U
      RowBox[{
    ' h, z, @0 d8 r3 o   RowBox[{"Exp", "[",
    4 N6 l) d- [0 w, B( a: y; S: G( v    RowBox[{
    2 x  j/ a$ j, U4 e8 X8 F' b8 \     RowBox[{
    ' `  c% ]% Y- F, R/ b% q& O      RowBox[{"-", , @- e* `/ c1 d' `1 n8 q
           RowBox[{
    7 J( ]6 L* G1 [$ \  H3 W2 K2 F        RowBox[{"(",
    & |; j9 y  [! A7 S( W% {7 e         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ) w7 `+ s. L( g$ e' r1 T, q8 M3 n+ G
            RowBox[{"(",
    1 E8 K4 v$ t4 G8 q6 R7 M: w         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    , t, ~/ k" G) k" B5 ?* ^     "]"}], "/.", "DeltaX"}]}]}], "Input",( [3 W( Y) ?+ ^9 S; A
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {2 x* K+ ?4 K% O4 b
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
    ) D3 i% {7 ~* z) ?/ B  P# f( _  3.57796159382047*^9}}]," F9 z* D' o- v9 G5 |( B5 w
    / Q, k; F( S% _3 h
    Cell[BoxData[
    ( N0 M8 j( L7 E& _# x RowBox[{"{",
    , @& w. b! c7 m  RowBox[{
    / J0 Q8 J# Y" v  "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
    9 r0 r/ f7 x# W9 {$ @- `2 \2 E- }   "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}], 6 o& ^4 Y  ^) N3 s! X% g
      "}"}]], "Output",, A! q9 m3 t  u/ [9 T$ c
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],
    4 _- l6 R& G' r6 L
    0 @1 y% P: S, V, y7 lCell[BoxData[6 G0 |2 a/ ~, j
    SuperscriptBox["\[ExponentialE]",
    5 p& L' S: c3 H) i8 B  RowBox[{"3.141592653589793`", " ",
    # d6 D8 D1 _9 ^- J   RowBox[{"(", 3 w+ l) w2 ?' _3 k+ n- I# v1 E' a& o
        RowBox[{$ m( l, U+ q/ \: H/ n1 ~6 ?* p
         RowBox[{"-", 1 k5 d/ R7 S* C3 g. m( |
          SuperscriptBox[- n& b: ^1 W8 O0 c/ L$ I/ l7 }
           RowBox[{"(", ) Y) n" L+ g! S$ M- c2 O2 J6 U
            RowBox[{# v) N& h- t) t3 J
             RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
    . t+ I) J: F$ O, M9 S     SuperscriptBox[9 z2 ?- _. |/ l  s( F
          RowBox[{"(", 4 K3 t: `+ k9 X1 b
           RowBox[{
    & k* M5 J: h( P        RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
    " o* ~9 X2 D. P, t8 O- l: t4 F     SuperscriptBox[# ^, Z9 N1 M; J5 T; }- R3 N+ P
          RowBox[{"(", " V5 Y) d" e3 u# M, F( c( S
           RowBox[{- z# S- s+ D/ P2 \9 p0 v
            RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", / B" x4 p% i; y: ^
         SuperscriptBox[
    . j& ^* y$ R1 E5 R      RowBox[{"(", ! L( L, _: H& r, P% ]7 t+ a3 u. }
           RowBox[{( X: u! X4 P; K; |: r' U, T
            RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
    + m% K3 |  ?/ t/ C) q     SuperscriptBox[3 P& Q! H& O  r) `0 M# ^
          RowBox[{"(", + w3 f4 S8 y( G0 k
           RowBox[{
    5 i0 b* n" L) t2 m        RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", 5 |$ d) u: [7 R- _  y* j
         SuperscriptBox[$ f. h. a. S* Z) c
          RowBox[{"(",
    : Z9 _. Q1 i5 q. U. x       RowBox[{7 p! x6 H" @3 Y3 f; q# P( w4 S3 [
            RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    4 e! ]7 ^5 M8 C9 W: [     SuperscriptBox[1 |4 e. ^; d; ^' u1 E3 D/ H/ t
          RowBox[{"(",
    0 q0 x5 C/ `0 W+ N       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    2 j: T& D* p4 c     SuperscriptBox[
    & P4 c+ p/ d  E( G& |      RowBox[{"(", % s7 e+ f, F2 A4 t5 [4 C% g& I8 \
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    $ |$ [6 U' B: m! M2 f/ p     SuperscriptBox[6 Q5 i0 V  x! l
          RowBox[{"(", & D4 A7 h% E0 k+ P% l( X
           RowBox[{# Q" K' b( T/ z8 G5 P
            RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}],
    , u1 `# x! ?' c3 r' \    ")"}]}]]], "Output",: K6 ~& }! s8 V/ h3 e# g6 F) \
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]2 C% {4 E+ m7 r7 V8 E! B2 a1 j
    }, Open  ]],/ o; A  r- y, l! P/ \

    / ?, Q  c* v" OCell[CellGroupData[{
    1 Q) _9 d* |1 z& @  D5 W7 X) F8 }' m+ a! ?
    Cell[BoxData[{
    , `8 c: l! @* Q RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]", , f8 \' x, x0 |3 n9 ]/ j- t
    RowBox[{"u21", "=",
    " I  C! m" M. U$ _& P  RowBox[{
    9 T, y$ C* s+ W+ z! O7 V2 P   RowBox[{"Exp", "[",
    8 T5 _. h$ U/ b6 ^. c0 s+ n$ L    RowBox[{% B( b& Z$ q! K
         RowBox[{2 Q. h0 n9 T) j, D5 i) Z7 [
          RowBox[{"-",
    - b; C; r+ E) J2 V4 k% G: }2 t       RowBox[{; z# Z7 P, u" T& A: v( Z9 x3 A
            RowBox[{"(",
    . B! l& g! O) J' O. v8 t6 X         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    : B0 |, }  g- z7 |- a        RowBox[{"(", $ g& ]' O0 Y, A2 W0 ]
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],& `! b; p# z$ s* p, ]
         "]"}], "/.", "DeltaX"}]}]}], "Input",8 }& j" D/ z$ y8 _% r5 l
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    0 W% C; o: I8 j1 r+ h; v8 O* T  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9, 5 v& z. E& W7 D, g1 L: J# t
      3.5779615991556787`*^9}}],8 O5 Y% E/ g9 o( I, K5 d

    5 n3 t  {' D/ a8 v* S5 O3 hCell[BoxData[3 J6 g* W) b* d2 I: z
    RowBox[{"{",
    % \/ c8 w" b. W8 [: D4 [  RowBox[{
    0 z5 H! {# ~0 {& s$ c- @6 `+ n  "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
    $ I- x! R, x' x4 J; c$ h   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}],
    , _6 }: b4 t8 g  F& [  "}"}]], "Output",0 N& t  [% t( J6 U3 A
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],5 o$ y3 }7 X7 S8 n* ^  |0 ?% F
    4 M) N  e& X4 J7 e, M0 j
    Cell[BoxData[8 G0 ]: Y' t" b4 v
    SuperscriptBox["\[ExponentialE]",
    4 p9 N7 f) ^* r6 d/ ]+ C  RowBox[{"3.141592653589793`", " ", ; @7 o# c" v1 w
       RowBox[{"(",
    / M. M* [$ _) P) j- x1 s    RowBox[{
    1 y6 M4 G4 m) v     RowBox[{"-",
    4 p3 k% o0 n( [) `+ E      SuperscriptBox[  O7 A/ U* x- W  w$ N  R
           RowBox[{"(", & R  ~$ Q9 Y. j
            RowBox[{$ \) K; j& {! m( {3 l1 k
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", # D! \% O" m2 n# A8 Q: ]( o) y
         SuperscriptBox[
    4 Y, I1 @2 E. u7 T! `      RowBox[{"(",
    2 ]; F8 z: d. k. g1 }5 L       RowBox[{7 k8 |; C* Z/ A1 {7 ]9 x' z0 d2 I; }
            RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
    ' c& R4 p) T6 M; E5 G     SuperscriptBox[
    - X5 I6 J- k4 l; U4 R! O7 N      RowBox[{"(", / X6 R( j$ Z4 i/ P' U- x8 @2 Z# x+ Z. I
           RowBox[{
    ! m2 q$ R  Y, ?3 b        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", ) x$ }9 o. X* Q0 X
         SuperscriptBox[
    0 c0 K) x% R1 `' Y* q6 v      RowBox[{"(",
    ! s+ ^+ \/ }1 K; n       RowBox[{
    ) @5 Z1 k; V# J# y% s: {0 a        RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", + O4 V% H: _  f/ T6 x
         SuperscriptBox[
    5 |. l# d& D+ ]- O! p      RowBox[{"(",
    2 Y6 D( ?* e5 z- n% V       RowBox[{" g/ o+ H; f# X
            RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", ( L; E. |/ E  X0 e
         SuperscriptBox[# B0 f" k# U: `3 R  u
          RowBox[{"(", , V' u; X) b1 F& `* H1 u9 {( ~( H
           RowBox[{# b4 p$ H& D8 R
            RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    & @& k4 q9 L& e/ s7 d     SuperscriptBox[) p! U- h; m8 ]5 `. I/ t) D0 H
          RowBox[{"(",
    . S7 O4 n- y% U$ k' ~/ b' N5 a       RowBox[{( m9 ~+ c, C. n% y, i' V
            RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
    * j- K( z: l8 {8 l- i: S9 x, `) }     SuperscriptBox[( Z! P% \; k$ e- A% \+ g1 U3 k
          RowBox[{"(", 6 i! @/ ]/ g, i
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ! z$ h6 a0 o& k0 }4 a+ E; {
         SuperscriptBox[
    * b. y) F: G( A. m, j& I3 |      RowBox[{"(",
    ' T3 d7 L* F5 {! V       RowBox[{3 ^% b. ]0 U) @3 [8 V( r0 i, V
            RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
    9 ]3 d. y2 x# p% \% M    ")"}]}]]], "Output",' ?" k& g! J5 R" x$ o/ |
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]" d8 p7 h/ p, Z- i' X7 p( M
    }, Open  ]],9 |/ |; O/ v4 ?+ x5 D# v) B

    3 j* j1 f/ |$ |$ XCell[BoxData["\:62df\:5408wi"], "Input",
    + o2 D$ q5 v( y CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],& g4 L: @' W7 v6 O+ r; Y
    & s+ Y+ \/ N: A! I
    Cell[CellGroupData[{) J- L) R( D$ s$ z* d$ T
    3 S! g1 x- S. K" P6 V4 T7 {% e% _2 J% ]
    Cell[BoxData[' P; H$ L# y. j& Y; q: Z/ v1 L# W
    RowBox[{"y1a", "=",
    - S6 c, H& |4 Z2 p# X5 P8 ?6 q  RowBox[{"Table", "[",   j$ Q7 L& A# B- J6 }
       RowBox[{"x", ",", 7 O! G7 s8 e1 z& t. m8 C1 K
        RowBox[{"{",
    8 |2 p' Y1 ~3 F2 u+ {  d9 G     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    ; h, v) v, u6 C3 q- g9 I# w CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    0 o# t4 R  L1 Y7 R' W" J& ?  3.5779226649375*^9, 3.5779226810625*^9}}],$ X5 a  e0 ]* E: J5 t
    : W% G! G* _0 Z9 p
    Cell[BoxData[; w7 D" B: ]6 W$ i5 J
    RowBox[{"{", 5 {* q$ N+ G3 X% W* S6 Q. e6 v" x
      RowBox[{, A; I; M+ m) B2 a
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    7 `) k: [5 t; E7 F5 A% y   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",, V, s2 p9 d  m/ K
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", & `& V2 t& B6 M; M! [: L5 d9 i  a
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ; Z) ]+ c0 V$ b5 J
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", " F& ^, G; A# C3 B, ^3 K
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    4 m% y% G" W( F& q* |/ P; h   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", - W+ v4 `# j* B2 _* s
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    0 }" d+ \4 r$ ?" K& R$ J: U   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
    9 }6 a, }5 @7 o: n+ e  "}"}]], "Output",
    % [) f% \" I6 `" ~+ V CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
    8 t. k' A) k$ B3 Z5 P  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]
      D9 r, z$ X; F) c& n}, Open  ]]," Z/ ]- T% N0 c

    : f- t. _' [$ ?, n2 M2 D0 g: sCell[CellGroupData[{
    $ b, G8 e& \, L7 T, \3 W& K; R' u* |
    + [, \- \1 E9 z8 Q$ aCell[BoxData[2 @6 L6 r  Q4 B8 O! F) u/ W3 T
    RowBox[{"Data", "[", " O) k! ^9 y" k! l' q
      RowBox[{"[", 1 V1 U& U7 Z" \- m& p9 g
       RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",+ d5 O5 G6 G6 b  T
    CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {1 U& m) s# A1 n
       3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],+ \7 U) \1 T$ j' G/ L0 U" L

    2 P# X2 J( x6 _9 A9 N$ l0 }Cell[BoxData["0.899882`"], "Output",7 ]5 C4 B& Y& o2 Y) h
    CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, 4 u4 h7 N% Q: c% C
       3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
    . l) w9 W. Q+ i/ i1 H   3.577961929080654*^9, 3.5780123419375*^9}]+ c/ X" x. x% {
    }, Open  ]],
    5 n; ^: Q/ D- O, N3 Z; }0 a: {7 y: o- Q6 e, M
    Cell[BoxData[
    $ R6 u- d, s2 U7 j9 E9 j RowBox[{"For", "[",
    ) E3 ]6 ?% i' c7 _/ D- o  RowBox[{
    ; I8 q. j3 B5 s   RowBox[{"i", "=", "1"}], ",", - [* k4 X  L0 x8 h
       RowBox[{"i", "\[LessEqual]", "60"}], ",",
    ; q7 \5 Q7 ?1 v- k4 O# B   RowBox[{"i", "++"}], ",",
    : r- P) z# E& C# ^; i% I% b   RowBox[{
    % J3 ]" W, ^( E" H' o    RowBox[{"y1a", "[",
    1 D1 C; U1 A0 I* @) C1 C     RowBox[{"[", "i", "]"}], "]"}], "=",
      e5 v& x9 a2 u2 `+ w    RowBox[{"Data", "[",
    0 ]6 k5 o( \; x1 `1 b" T3 L5 R# f. d     RowBox[{"[",
    5 H; V; N8 s: f      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",% V5 }; T8 M6 W
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    $ [) ^! m9 x2 Y* O   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, : m; |( ]" J: ?' K6 N; ~$ A8 y
       3.577922923203125*^9}, 3.5779588839702806`*^9}],
    8 U* M1 K' {5 r  C5 h+ W& _3 d' r* \( ]" {* ~) p; c
    Cell[CellGroupData[{# d/ r7 W( ~# A" M  T

    ) D% h: `$ H  ACell[BoxData["y1a"], "Input",% p: q6 `, P  _' z4 u
    CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],3 r! K8 h$ I) d* W+ O: v  w5 E

    . j# W7 r( |8 v5 W4 ACell[BoxData[* ^( f" H9 g) x' K
    RowBox[{"{",
    / n5 r4 b6 Q- l3 Y  RowBox[{2 I4 @1 }& v  C9 I4 E  ?, @
      "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",",
    & v  k4 U+ c  M' ^4 a; `   "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",",
    " \$ L* ~5 s7 n0 z   "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",",
    - ^: v' b. Q4 ~   "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",", # F9 @, q% b1 e/ ^/ A/ F
       "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",", 9 y  F# ?. X, R' V$ ]% V* ?1 D
       "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",", ! p" [  n; K9 k  ~3 `$ C) l
       "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",", $ m+ }9 p) x/ \
       "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",", 7 q  M0 i1 S0 d; l5 G. x# y
       "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",", ' w2 g' t- \; h% w+ Q( u/ d
       "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",", " V6 f# l% S2 ^/ Y/ @
       "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",", : i  b0 R" \  ^# G( m
       "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",", ' W' x+ O+ P1 [3 A( a5 J6 H
       "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",", 8 i! Z" A& l# V
       "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",",
    1 K8 k$ P0 ]2 E( x, J   "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}],
    " d0 ?( A4 P, }( J7 t- H9 c; i  "}"}]], "Output",0 @3 \  l0 ], e
    CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9, % u( c6 h3 K& U7 m' p+ b
      3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]
    . N8 {. W7 E7 _  Z4 C( d}, Open  ]],
    5 p- b+ ^8 J6 W. _; N% u8 Z
    ' {7 X$ J1 W& }; E' n5 e( r- {Cell[CellGroupData[{' _( `+ {3 v3 K/ e5 ^  v0 R

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

    . z( F& u2 P5 V8 m1 y3 _$ ]Cell[BoxData[7 s& q4 k& k, [$ T( M5 S
    RowBox[{"For", "[", ) ^& t$ @# V) d9 ?5 m* i) [8 t
      RowBox[{
    , y$ a# l) S+ F: w   RowBox[{"i", "=", "1"}], ",", # ]; g$ G1 ]5 W, [
       RowBox[{"i", "\[LessEqual]", "60"}], ",", . z$ B, w( [8 b+ j! e+ |
       RowBox[{"i", "++"}], ",",
    0 k- q' N: p2 L$ M   RowBox[{"{", "\[IndentingNewLine]",
    . ]% A7 ^! N! y7 E3 _    RowBox[{- e1 A3 \) O; ], c. C( Y
         RowBox[{
    + a, K' O- J4 o0 \" x8 j: }      RowBox[{"m60n21", "[",
    " L8 F0 T& N5 i- z* K; f/ V& n2 u/ f" w       RowBox[{"[",
    * h6 U; i4 e1 L, Z        RowBox[{"i", ",", "1"}], "]"}], "]"}], "=",
    " v% G; v) {' e' |  H9 R4 U      RowBox[{"u1", "/.", . A. W) }  E8 g
           RowBox[{"{",
    + H5 z( `$ Q" B( G        RowBox[{( P( ]. N+ B# M, i1 ~% H
             RowBox[{"x1", "->",
    7 V7 u% d" ~/ k, i          RowBox[{"Data", "[", , {4 f) c0 m2 _9 a4 L4 {! Y
               RowBox[{"[",
    . Y1 U6 n$ [$ {# s+ r3 d            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    # p) M3 v/ F, i* V+ X         RowBox[{"x2", "->", 3 y5 u2 _! i4 h: w
              RowBox[{"Data", "[", ' u+ w- K$ l& ]4 n, o/ _0 Z( K' t
               RowBox[{"[",
    & f, Y& h9 ~" Z- X% u            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ' B+ p9 H: J& _' t# l3 _( d. U6 e, k
             RowBox[{"x3", "->",
    , y5 j! X. V1 D. c3 |2 E- H+ a" ?          RowBox[{"Data", "[", $ a1 k1 S+ X; L: }
               RowBox[{"[",
    : a1 \! Y5 ]3 `7 T1 G  E            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", * m, Y6 N9 b: C
             RowBox[{"x4", "->", ' |) ?3 R) C$ i$ r, I: @
              RowBox[{"Data", "[",
    . m: W' v/ J$ {3 T2 `% Q+ E           RowBox[{"[",
    ( k0 a5 d) L. ?) G' A            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    # r2 I3 Q3 |2 ]5 U1 p3 F  f3 V0 T         RowBox[{"x5", "->", 0 h; c. O6 G4 X) z; z
              RowBox[{"Data", "[", . o" e, d1 N" c- K0 X8 F
               RowBox[{"[", 2 I0 a0 d, s9 f* C& s; K
                RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    , V  _/ j4 I  Z- H         RowBox[{"x6", "->",
    " z4 I" S; z& g  l0 I          RowBox[{"Data", "[", " U- Y( p' }9 n) p+ @
               RowBox[{"[",
    4 I! M7 \  _" g  Q8 F8 ]3 @            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
    ; G4 c/ {8 q& a" v  G         RowBox[{"x7", "->",
    . G+ U2 ]( @- V: y% t: I# I& l3 I          RowBox[{"Data", "[",
    + Y) H: r5 F* `+ ^8 S  Z  r7 m) Y           RowBox[{"[",
    5 M2 A0 Y" y" H- @            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
    3 c& Z/ C7 O6 [" h' n         RowBox[{"x8", "->",
    + ^1 M, [8 P/ I8 ?6 x2 N* H1 {! q          RowBox[{"Data", "[", 1 I3 ?+ z4 S! j
               RowBox[{"[", ' ]! T. l4 A% u: d7 x. i0 u/ N
                RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
    2 j, a- j* t/ p5 C) K% {         RowBox[{"x9", "->",
    0 U2 y. e! |5 n* n' P& J          RowBox[{"Data", "[",
    : w; U1 e" t8 s- G0 H( d           RowBox[{"[", ; j, b5 P8 j9 U$ Q
                RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 5 R/ C' u; j' z
         "\[IndentingNewLine]",
    8 k4 P/ V. e; q0 M3 o9 p     RowBox[{8 H/ }3 l" D* i. B; \- H
          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
    ! V, g, Y# U& {. X5 m神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗

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

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

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

    1 R( \) g* Z! Z" w7 UCell[BoxData[- s3 F! t7 ]' d0 L
    RowBox[{"For", "[",
    6 ]/ N+ Q9 n2 t  RowBox[{
    6 T6 Z* ^" F. \4 n# t, A7 Q   RowBox[{"i", "=", "1"}], ",", # Y5 J% T! _7 d; \0 p& |- k
       RowBox[{"i", "\[LessEqual]", "9"}], ",",
    ) R% f2 _* ]: `# y1 u" {& M   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", . b& n& e8 M" m: ~; p; }
       RowBox[{"For", "[", / h' G; W$ d! V" Q) U8 h
        RowBox[{8 A$ }9 V9 I3 z( {8 i% A3 X
         RowBox[{"j", "=", "1"}], ",", 8 l7 a3 m/ U7 Y; B/ Z0 l5 k" M% k
         RowBox[{"j", "\[LessEqual]", "80"}], ",",
    * R( D" |4 Q" G" H     RowBox[{"j", "++"}], ",", "\[IndentingNewLine]",
    $ g+ j% c) J, v) u* Q/ b$ X     RowBox[{4 T+ M) A# ?$ _, K8 ~; W0 K
          RowBox[{
    7 r) m* \1 }3 H  L0 q" X       RowBox[{"CM", "[",
    2 o& [2 X# ^) Z# u  P' m4 v        RowBox[{"j", ",", "i"}], "]"}], "=", "0.0"}], ";"}]}], $ y: O* D% i: r2 p. c! F- j
        "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",
    ( j  E, q: B% O1 l CellChangeTimes->{{3.5779132504375*^9, 3.577913285203125*^9}}],
    0 L2 p" a" |1 v  }0 p4 C8 g* G
    3 b" [' k9 M6 N# I/ TCell[BoxData[0 q9 T7 J! R# U/ P$ b
    RowBox[{"For", "[", - M" R, {2 _  C7 H* m. r* J' e
      RowBox[{4 F; S8 D1 O5 r. ~3 ~
       RowBox[{"i", "=", "1"}], ",", % e# p% Q+ s4 n3 [3 E5 K" D
       RowBox[{"i", "\[LessEqual]", "9"}], ",", ( B- V, q; V$ F1 ?
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 0 z& e- [% [. x) R/ B: R5 L
       RowBox[{
      i+ |6 i/ K! C5 z. x    RowBox[{
    1 w8 w! B. o! L3 w0 ?     RowBox[{"CM", "[",
    - ]' F- U% C0 A/ x      RowBox[{"1", ",", "i"}], "]"}], "=",
    * {: ^3 M7 A( Q% R     RowBox[{"Data", "[", $ h& X1 N- N8 V$ @+ [* [
          RowBox[{"[",   C& B9 T* `$ l, u! n
           RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}], ( O' V! Z: u) n; ?
      "\[IndentingNewLine]", "]"}]], "Input",) f* }" X7 J" K& }2 K; G  P
    CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {
    0 a# b7 D4 o! D( S   3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9, & k! s- ?- _" l7 m
       3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9, 4 ?& [7 Q6 G) k& H# q
       3.57791344209375*^9, 3.5779588070933466`*^9}],8 P+ N: [5 C+ |" s( S7 z2 g

    7 x+ P  D4 y  c* BCell[CellGroupData[{- S# ?( t% I/ c& n+ `6 R
    / t, L8 R( D7 O$ ?# I8 h" b/ Z8 w  X
    Cell[BoxData[{1 B# v: p8 d- a5 \" ^  W; a. q' _
    RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]",
    ) \8 n  @# ^( h4 \5 z4 v) s  e RowBox[{"M1", "=", "1"}]}], "Input",3 c+ E- Q. u, u
    CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {/ M/ ]# q+ `$ d6 M# |% _3 Y: q
       3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9, / l! _4 v% b1 s0 v1 X( z  S5 R* g. n
       3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {
    # E3 c( @7 q5 S1 ?( A$ {   3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9,
    ( v" ^+ @- u/ c# w   3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {4 F2 z/ y  w# X
       3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {' O, X2 l+ e. w; c7 V
       3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9, - y& I) a( M' Q0 v% {! y+ m0 K$ \
       3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {
    2 Y: t' y, `/ j/ q   3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {
    0 w4 |; u+ g- W% ?! @% S   3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9,
    5 N9 n4 `  S; w% L1 T   3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],( w' u  n' D1 T  Y4 u4 u2 S
    ! U% Y9 ^1 X! c2 b# X
    Cell[BoxData["0.2`"], "Output",
    4 y" t+ v* k% h$ B9 p: H CellChangeTimes->{4 Q& z) v4 O2 @- ^- |7 C
      3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
    8 L6 N! u1 @3 K3 o   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
    , ~- y4 s* S( l) {; i3 t   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
    ) U6 k) K1 }% Q' P" T5 |   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {' K( s) D5 t6 q6 V/ o- X: I7 t
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
    2 R& C9 K- o' Z% `. d+ M   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    " s* q6 p. s7 x' ]1 k9 u   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, $ ^; ^( |) R  _, R% _+ Z' b2 J9 n
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
    ' f2 y) F+ s0 X/ z7 ^   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, * x# K. \& E$ i4 p- w) x0 i5 c; C  p
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, , L0 O& H/ p* S
       3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, 1 i* B! x2 H9 G8 B2 a3 L
       3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
    8 V+ e# Z+ ~% @   3.577960510686717*^9, 3.578012149296875*^9}],
      E: Y# n! [% Z# z% T
    4 G5 Q: [- L" P3 BCell[BoxData["1"], "Output",/ p& [& I2 q2 S. E: w  U) E
    CellChangeTimes->{" \/ ]2 o9 x( X$ ]" T* M
      3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, 1 S4 W. H) H  h1 i
       3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
    * |/ D5 H$ N5 V% u   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, 9 X1 |3 ]0 B3 B0 r  r
       3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
    ' J! X: ?' u/ z$ Z* F; J( C6 R- j   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
    1 F# A5 g9 d6 G% F1 T  M   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {; R/ f6 _! q7 C
       3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
    ' O! E4 F0 }* i) [   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {  {( C0 x) P8 q: ~3 e
       3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
    % U- o! [$ k  a4 r' v   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    * Y+ p0 O/ O, |/ p1 y6 H$ M5 g* f   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
    7 G9 }8 o2 d: U6 I+ u1 V+ ^# J# L   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, . d" z, \) ?+ c! q
       3.577960510686717*^9, 3.578012149296875*^9}]( J  [3 d. c1 O! L! P9 w
    }, Open  ]],
    ; e5 w; Y0 o& L4 C$ X. l4 I" I% X" ~7 u; W& ~
    Cell[BoxData[
    * \4 b) n# h: W( x8 M! ?1 Y  _ RowBox[{"For", "[",
    $ e0 Z/ x- C) K) ^  RowBox[{9 v4 {$ c2 b; ?6 i0 x  n5 w7 n
       RowBox[{"k", "=", "2"}], ",",
    " R/ d6 d" T* b, z- L) \   RowBox[{"k", "\[LessEqual]", "60"}], ",", 3 I' P: I7 k" G9 c: K) h
       RowBox[{"k", "++"}], ",",
    & q# s! _  P# C/ D, _, Q$ ?   RowBox[{"{", "\[IndentingNewLine]",
    & ^- G( `& b; G* E    RowBox[{
    4 g' k( U. T  q2 q% j1 ^     RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]",
    3 h8 l& @; `0 B     RowBox[{"For", "[",
    * W1 e% q$ E( e7 Y' N- u      RowBox[{
    5 i* M- F6 U# @  ^5 N3 `       RowBox[{"j", "=", "1"}], ",", $ E( |% f* Z  Q- V! P  F
           RowBox[{"j", "\[LessEqual]", 6 D) d1 G2 k) V# ]
            RowBox[{"k", "-", "1"}]}], ",",
    . `! A4 v! ?0 W  e" E, ^9 u8 g       RowBox[{"j", "++"}], ",",
    8 T9 f. A7 R8 K. ~3 \1 l       RowBox[{"{", "\[IndentingNewLine]",
    / Q- ?0 u/ G# Y, }; B  j. h3 H        RowBox[{
    * X- b8 P- }7 m+ Z3 ]         RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]",
    . b# f7 M& x  X* Z" E         RowBox[{"For", "[",
    2 v: a7 j0 H* r7 M+ ^; `          RowBox[{
    ; J# q2 [6 f1 G% z# N           RowBox[{"i", "=", "1"}], ",", ' [# d( o/ ?# h/ F; h
               RowBox[{"i", "\[LessEqual]", "9"}], ",",
    % f) g9 @( g/ A" s+ F: f* c           RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", " g3 B: q1 T4 |8 e
               RowBox[{8 C' w" q0 M$ S' h: k9 K/ K
                RowBox[{"r1", "+=",
    0 u- P" D4 n* k; _( O( _- i             RowBox[{& C: C$ g* F- |8 }7 E$ @. s
                  RowBox[{"(", ' k2 n0 e2 |6 D. V2 e8 e  K0 F
                   RowBox[{
    $ \5 @% m9 U8 L# |' \                RowBox[{"CM", "[", % q0 X: z% R! ~& m& d
                     RowBox[{"j", ",", "i"}], "]"}], "-", $ i+ Y- h& B0 i! r  h; _7 v" ^
                    RowBox[{"Data", "[", 3 ]) E/ ~: Q; I0 M4 F6 s
                     RowBox[{"[",
    ; i+ {4 y7 e4 _, W7 v7 E& J                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
    ' w  l5 V, I9 k8 t2 y8 l              RowBox[{"(", 1 Q7 o* o" \2 c; ]4 f- ^
                   RowBox[{
    % A. @1 c/ M% n                RowBox[{"CM", "[", ( Q* I. D1 ^+ N2 t( h
                     RowBox[{"j", ",", "i"}], "]"}], "-",
      s- F5 ?) A+ v3 x. p/ P1 ?/ ?' l                RowBox[{"Data", "[", 4 J7 d+ c9 f5 r% K$ @2 k* h
                     RowBox[{"[", ! K& f0 {* U/ @. R4 ^; ?$ X% V
                      RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],
    & P% B- G8 r+ Q1 i% X           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]",
    ! X9 z1 l, {7 D* S; R         RowBox[{"r1", "=",
    ) R- I) J5 ~( p: N          RowBox[{"Sqrt", "[", % o) R0 R3 V. e
               RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]", 4 b5 |+ ^6 v- s2 a
             RowBox[{"If", "[", " ",
    # l# z5 V2 C" Y  Y          RowBox[{
    + j( Z/ E! _. x3 O+ X6 r           RowBox[{"j", "\[Equal]", "1"}], ",",
    # i9 A/ i! V4 \. R7 J% N0 R1 s; }           RowBox[{"rmin", "=", "r1"}], ",",
    + x4 Q& G( H+ p8 t2 Y; v           RowBox[{"If", "[",
    $ C* m: D$ T) u2 [- c* N% b1 {            RowBox[{
    . ~' {& v  K9 O' q             RowBox[{"r1", "<", "rmin"}], ",", - F) v; x: @$ k; t
                 RowBox[{"rmin", "=", "r1"}], ",",
    . X% J6 k8 C0 ]( N$ D6 F             RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}],
    $ y: @1 M$ ~7 N* q  ~; z        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";",
    * m0 p4 p+ Z; Y8 W" |     "\[IndentingNewLine]",
    4 o5 w, [: b. _     RowBox[{"If", "[",
    & H8 ^. C# o" H; b% E0 Q      RowBox[{
    6 W: ?. Q7 @* R8 y9 W  b" N       RowBox[{"rmin", ">", "r0"}], ",",
    8 r7 B5 e& K; J( i8 f* f5 p' J* i9 k       RowBox[{"{", "\[IndentingNewLine]", , l4 x% ?0 P7 B  W9 g% r
            RowBox[{
    " p, B0 p% O. f! a6 ?4 ?         RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]", " b( a% d2 q6 I& l
             RowBox[{"For", "[", : u  W. X* b% G9 e0 X5 ]: v0 k0 M
              RowBox[{* u; {: m# s3 s9 W/ L9 y$ M
               RowBox[{"i1", "=", "1"}], ",", * R1 s' v& w- ~$ L. a; H  o% u
               RowBox[{"i1", "\[LessEqual]", "9"}], ",",
    & r& D0 C5 H; n1 X           RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]", . Q  J! B! q9 E; u+ {+ G
               RowBox[{
    3 i/ ^7 ?9 W: h2 ]) p$ q9 O            RowBox[{" |& Z9 c0 @- M9 o
                 RowBox[{"CM", "[",   d) B: S: V' V! v8 v+ ^
                  RowBox[{"M1", ",", "i1"}], "]"}], "=",
    ( Q2 c+ \! N& L" Z7 E7 I) F; \             RowBox[{"Data", "[",
    + w0 r& g2 ]. Q. O              RowBox[{"[", : `* h. {, d2 A7 U
                   RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}],
    . K& d, E& Q/ i5 _: a          "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",",
    $ ~% f( k8 Q1 K' X3 f4 ^       RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}], 6 \/ c- O9 A$ `% F# n4 [; ?
        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
    + M" e5 Z2 g$ |* L CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {8 C  g' N3 X0 D9 G% `' v* \7 K
       3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9, # e& h$ Y! w% r
       3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {8 N# t. q5 r! [8 r; e
       3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9,
      f6 P6 m" r0 S9 K. p' I, M   3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {
    # N# y  K- K& f* `   3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9,
    2 T, W8 J8 ^5 {0 M# ]0 u   3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {
    & I3 m$ a5 @4 b* P  \. d   3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9, + i9 |5 z% w; _: X8 I2 a+ c& R
       3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {
    ( P+ q% u& `: K, @6 x0 }   3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
    : y1 e& u+ ^$ s5 S. j   3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {& i% B; O' [; o+ s) ?
       3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9,
    / x3 n3 j7 Y# x4 B) R   3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {
    ! w7 M9 O) P& Z, F   3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9,
    , }! J- V8 f- ^2 c   3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {
    7 P5 w& v( g' T! I   3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9, $ J: v1 d  z; m& I( _
       3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9,
    $ {+ L9 y% O$ \5 s* v% z0 E. H   3.577958821991373*^9}}],: Y0 J5 W: Q9 c

    , p3 I! V- q0 l- i/ n8 T: dCell[CellGroupData[{
    ; ?/ s  L* F, M% W0 j
    $ W8 [0 D) {1 Y; {9 ?1 t# n! a5 UCell[BoxData["M1"], "Input",; V1 s5 u# f: S$ P
    CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],# E, U* O: u% I# B  w) I
    , N6 _6 S! _7 \' g' u# q& }
    Cell[BoxData["21"], "Output",$ Y  A  _$ |( f' u% H/ R/ h
    CellChangeTimes->{
    9 ?, c3 s8 L  O' L  3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {
    $ V' _3 d6 k+ ~: Q( `+ E" C- I   3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9, 6 G& p0 A' v0 q# X) y
       3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {: J5 `4 w% J7 ?3 h; ?) j3 [
       3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9, ' q7 L- N. X( W* C3 K
       3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
    ! o% Y  y- o; ~. J* {1 y3 z   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9, / c) u( i- D  c8 e+ m9 E
       3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
    ( b0 D* o- \9 k   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9,
    / Z# X: u; g% N; A* a' q   3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9, , P$ g6 s9 S& o: n8 ^
       3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9, ' q3 \4 t6 a, J* G
       3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9,
    $ \# i; n, r" I. e$ M   3.577960515600726*^9, 3.5780121541875*^9}]/ {2 }6 g( @# r# ?0 }- X
    }, Open  ]],
    9 i7 j* m/ C7 @# I' {# v1 y8 \0 {4 x/ ^" F( P% G/ t
    Cell[BoxData[
    - @2 C% Q+ n9 c4 j RowBox[{% c( q  ^* E0 ], Y$ b# x& Z
      RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[",
    . @. ^- j, M$ I7 L/ t$ f   RowBox[{"1", ",", "i"}], "]"}], 5 o# _# j! ~" }& v6 N$ M2 k$ `
      RowBox[{"\:5230CM", "[", + \* ~6 L0 y7 e) g2 \; U: Y9 @
       RowBox[{"21", ",", "i"}], "]"}], 4 k! g6 k* p: \" `: L
      "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\: ^( p! d" s8 ~( z
    \:51fd\:6570u1\:5230u21"}]], "Input",
    - ]2 w, U, Y8 m$ r5 V CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {, Y( @' g; l7 i, {
      3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9,
    " Q% n  B! x, S/ x7 ?0 [: D  3.577960526583145*^9}}],$ Y" R4 [  s, ~( h0 C% Q( Q

    ' B. B7 [5 G! X) u* g; }Cell[BoxData[) x* e% r: e6 y( O% F8 _
    RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
    : E' P# {, P) h CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],! l/ n3 b! s( C% a1 d& E& t
    , u8 X/ p# X6 q8 V
    Cell[CellGroupData[{9 u+ L& o$ g% {. t  k+ L
    3 \0 i, }1 P( W
    Cell[BoxData[
    + ^$ u; G( n6 s  ` RowBox[{"Xa", "=",
    3 u6 f0 T9 p/ D  m' N2 A8 p% F# o  RowBox[{"{", 2 `2 m5 s2 i2 J* t: ]
       RowBox[{
    ; ?, A4 |. \8 e   "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", 5 }1 V) X. S3 C
        ",", "x8", ",", "x9"}], "}"}]}]], "Input",
    8 ?9 P! ~+ r  {' k1 s( P CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
    7 o1 f# E0 y. r) n4 K  E" c& \0 S2 K3 }3 c
    Cell[BoxData[
    8 S4 \4 H. V: s( [ RowBox[{"{", 4 u$ L' P* B) V% k8 B) A
      RowBox[{
    : Q5 d7 @! I/ M- L  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",3 h& B* j* }& g1 ~; a
        "x8", ",", "x9"}], "}"}]], "Output",7 H- {7 M! o) ~" N
    CellChangeTimes->{
    4 [0 S" W& G8 Y1 d7 I  3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9, ; ?6 q' O' c" C0 R9 M- K7 \6 Y3 C
       3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
    0 N/ U! J3 i% g, f, ]: R   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9, + m, x3 ^+ u' r% ~
       3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9, $ o. m+ L! I4 O7 D& O
       3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {: F/ P/ A! ~) W6 P6 ]
       3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9,
    - @* d+ f, |5 x; h   3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9},
    $ {! z) \9 p- I& l* a9 d   3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {9 ~& I9 Q2 C: H) f/ D* v2 b0 z: ]
       3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {
    , C4 e. ]5 ]% C- U+ U! n+ t( m7 N   3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
    & A- W* e4 X# c7 r, c  F   3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9}, ; m4 v& Z' m8 ^1 c+ y
       3.57801215725*^9}]
    ; ]" M/ {9 U. y: f' D5 y}, Open  ]],
    ; p* t; r  V0 c& p/ ~% [
    5 L" P' I) I+ yCell[CellGroupData[{' j# j2 q! H+ Z9 i, n
      n  m6 _2 Z/ F, ~  b3 h
    Cell[BoxData[
    ; t* e  G( r& C% m( H; c& }* w/ S RowBox[{"Ca", "=",
    , E4 v# h) E; d1 h7 b  RowBox[{"{", 2 y9 }8 D0 `9 W. k% X& H, m4 y) [& d
       RowBox[{
    7 q* N- _7 g  R+ x+ ]9 i1 d8 v   "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", , L% P) M0 o  F" @
        ",", "c8", ",", "c9"}], "}"}]}]], "Input",
    " O1 S, g2 [2 S$ k& H" [$ u0 g CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],
    8 r' _. G0 q! O# c* u! d' r" \! O' m' w# f) p1 ]" a" W6 ~& J# j$ k
    Cell[BoxData[. t2 P( u* {2 g6 q
    RowBox[{"{",
    2 y0 t/ g5 O4 [  RowBox[{
    ) K* q- ~* ^- ^% G4 x3 K9 t  "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
    * F/ J( o5 D) s  Y8 [/ X9 K    "c8", ",", "c9"}], "}"}]], "Output",7 X, w3 n6 g* C4 z8 Q" \& O% n' V
    CellChangeTimes->{* W% K  ?! C3 b, F1 w9 b
      3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9, ! ^4 N3 ^+ J/ j
       3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
    : F6 ]$ q* }4 l6 i  n8 n( u   3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9,
    2 G; A! I% R8 l7 R   3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {
    / p* h. L! R5 y5 @" }   3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9,
    8 ~' s! l' D9 o# i+ `8 m  c   3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9}, % }  }' o9 |+ P+ \! K
       3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
    ' h! ^, q' k" B- {   3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9, * q" A7 X# i4 V$ i
       3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9}, 8 Q$ n4 W( i- X0 t( m
       3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {: D' g6 q' l" X" ?* ?! o# W
       3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
    # L2 W* g6 i0 V, `7 D. N% c6 ?, s, L   3.577961904604212*^9}, 3.578012158671875*^9}]
    2 ?% m. Q- _9 ~9 k}, Open  ]],0 B8 `7 i3 X. u8 b7 r
    . o: F5 y# P3 d) ]
    Cell[BoxData[4 V) V  c5 W9 F! y9 }
    RowBox[{"For", "[", 7 ?, v% V  ?! G3 \* V9 H/ E
      RowBox[{
      \' R. r& f1 H# \1 b   RowBox[{"i", "=", "1"}], ",", ( K# |+ S. h* U0 C9 Q
       RowBox[{"i", "\[LessEqual]", "9"}], ",", 4 T! \) u7 ^; S8 h% `, V
       RowBox[{"i", "++"}], ",",
    & g0 E; G, M5 y' G" H' q( `   RowBox[{% p: h- K% q* f) b  T3 T
        RowBox[{"Ca", "[", : ]2 I! Y! {; _0 ]+ ]
         RowBox[{"[", "i", "]"}], "]"}], "=",
    3 A/ j3 ~% ?: v" D0 N    RowBox[{"CM", "[",
    0 x7 H1 W* J/ l: g' u/ \- G     RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",1 D* k+ h4 m" }" C: K/ `9 q7 f! l
    CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
    " G/ W$ R0 a" x. K; n6 [6 H7 W6 Y: X   3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9, 9 Q, W5 y' ]7 m  a
       3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9,
    " {' j9 g0 g) h$ Q   3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9, 2 N( _# a( c- J5 b" E; J
       3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9,
    3 N+ z; X6 h8 g+ k   3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9, 0 i3 \, K* f+ o: Y$ G" [, E7 E7 }
       3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
    - o1 C, K- R( q   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9, " x; W) A( a2 B: k! M8 C
       3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
    1 `& x7 J: T" n   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9}, - I0 Y, n4 I# Y* y0 _  f
       3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
    " ~0 q9 Y, F7 c  n0 H, V   3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9, 7 S: a1 ]1 U& z8 S4 I
       3.577961906897415*^9}, 3.578012176296875*^9}],
    0 }5 J9 C8 p/ K* }8 \" K2 I. I7 L% j0 E5 v) r
    Cell[CellGroupData[{0 I3 x- t% e5 ]: a1 P3 K, `
    - G* D+ t$ c: P8 [. D4 r) D6 w6 j, b0 _1 J
    Cell[BoxData[1 N- Z3 e. c' A; l
    RowBox[{
    2 A% u7 N8 d$ Z& ~" N2 n* {  RowBox[{"(", + z: f0 R% n. J! s. m3 M
       RowBox[{"Xa", "-", "Ca"}], ")"}], ".", , @1 t- n6 M- L$ c
      RowBox[{"(", . k$ L7 ^- t  i/ j3 X7 i4 x
       RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],1 z/ C8 \1 P. d
    $ r; ]. N) n: ^/ k" X& e
    Cell[BoxData[+ }/ ~6 O$ t* W
    RowBox[{: i- C5 L& o) m, A+ m. u0 p2 t
      SuperscriptBox[
    & W7 ]) f7 Y6 N   RowBox[{"(",
      Z* h& A$ q6 F5 @0 U    RowBox[{
    # t7 e7 F1 Y/ d3 p     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+",
    / ~# e3 p* l* |9 s- S  SuperscriptBox[
    ; X6 E) Y* q$ ^# n4 g% A. m# D! {2 X   RowBox[{"(",
    3 b% E- z4 [" ^, G. ~' O& f! m* G    RowBox[{
    1 p/ u# ~/ U  C2 \     RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",
      R- s/ E: z$ O3 @  SuperscriptBox[
    # e1 m( h9 t8 W; U& p   RowBox[{"(", 3 T1 z0 W7 O: A% R+ }1 x
        RowBox[{
    # ?$ a3 ]8 L, l+ P/ o. j3 X9 s$ {     RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+", 6 T* m; P  W1 s+ t" q% C. `
      SuperscriptBox[
    ) d4 B; R/ Q& Q4 C7 s   RowBox[{"(",
    6 p9 f* s' ~. |, A+ m    RowBox[{% r) }' |$ T7 L- q; ~
         RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+", & |2 J0 o9 @& O8 y
      SuperscriptBox[  w3 b* v7 e( e
       RowBox[{"(", ; N5 ]4 ^* }+ s' R- \" ?* ^9 ?
        RowBox[{
    % [/ z/ `8 H; b. I; L8 B: L4 v     RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+",
    % s! i' k) Z! d$ `) r9 H  SuperscriptBox[! N; G+ W3 l( a
       RowBox[{"(", % u9 [2 `% D2 c) p6 w
        RowBox[{2 _1 b3 w& R- H- B( G: [  ^2 F
         RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+", ; N+ B5 c7 V; A0 S$ }1 f
      SuperscriptBox[8 h8 [! ]# E/ j% d5 V! ?/ e! P+ L
       RowBox[{"(", - L1 F9 r6 c4 m9 ^0 w, ^9 H6 W
        RowBox[{
    * K; Q, n$ j: {; L+ B     RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+", $ V+ p4 Z. |& I1 F' k5 w
      SuperscriptBox[- t3 _6 F& B- p- [
       RowBox[{"(", : `) A# @* w# ?- t2 r) I! V+ t$ B
        RowBox[{
    ; e& I. f6 W) F) A5 @+ _8 r     RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+",
    ( Z* `+ I& c1 F; s9 a3 A: V% C  SuperscriptBox[9 _; p. H: ]3 W: O' r: l1 W
       RowBox[{"(",
    % U5 ^  R# n! [' J    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",( n3 p1 `; ]3 s
    CellChangeTimes->{
      B1 G( [, H6 k$ k+ g8 w  3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9},
    % {4 L. q, D7 x" e: ^3 |& v   3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9,
    . @, i2 h6 ~& `4 C, m' M   3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9,
    8 K5 i. k) s  j; `5 c' i  b   3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9, " j) z) b! h5 k
       3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9},
      l$ X& C8 _. b0 E   3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9, - F( @! F. Z% h
       3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
    6 d! n5 M& ?1 b. P2 I   3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
    9 w& T2 x0 F$ G3 y/ ~   3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {
    5 H4 Q: ^; b' B3 h  b   3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {$ ?7 A; F" {% |' y' I7 |6 A, H1 v0 v
       3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9, 1 I) l* s8 p) z  {
       3.5779618537169228`*^9}, {3.5779618846049767`*^9,
    8 }( Y1 u) {5 j- Q   3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]
    $ C$ W/ n; s  f/ @}, Open  ]],
    * O1 N, o) m) w
    & j2 L+ B, u' V' Y9 J: }! ]Cell[CellGroupData[{3 c" S% K5 p4 P* y) D8 B; X

    * i/ x3 s' R* u7 c2 `* M0 V0 v* zCell[BoxData[! T$ [$ S; U( p. l- V4 W3 g- D
    RowBox[{3 S& W2 Y. w5 L# {5 O0 |0 ~; Q
      RowBox[{"Ca", "[", 0 h( B$ B+ |; i7 V& e' p- l
       RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",
    ( A+ o& g; F( E& d/ f/ g  F CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
    3 B$ }" _4 y+ J( }3 G  3.5779616465173616`*^9}],
    2 o; A6 I, W: F4 Q
    * D) \" b# I6 V4 {Cell[BoxData["0"], "Output",
    * g) t6 [, s6 H: n9 |" q. I1 N CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9, * q0 H, P+ `  q5 {# \
      3.5779616484049644`*^9}]! O! W) V7 a/ m3 L& j! ?5 U
    }, Open  ]],; Z2 b3 w. N4 F3 m% |
    : f3 ^# N( g' Q5 W
    Cell[CellGroupData[{, [  I* Z8 k, A  g
    / ^$ q$ ?9 X% u& ]
    Cell[BoxData[
    & Z6 i; G* `5 x6 } RowBox[{' z0 `9 B2 ~5 o/ y& Y" p  f3 ]3 X2 v
      RowBox[{"Ca", "[", 0 J5 N" W2 i3 l; }/ E5 c, F
       RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",+ `5 d* C/ F  m( U, V. Q" s3 q
    CellChangeTimes->{3.577957376235614*^9}],( D, P4 {; t1 p. h3 G/ c. i

    + C4 e+ M# b+ I9 E) dCell[BoxData["0"], "Output",
    . K! @6 x3 v9 z0 ` CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]# J+ ]3 V8 f. y, O. L" f
    }, Open  ]],
    ' }% ]. L& J* [, g4 u. }% X% `6 S5 u$ W0 b8 {6 p# Y" m
    Cell[CellGroupData[{& k0 g# o! ^5 ~' p
    8 ]+ h4 C- e. i" S7 q
    Cell[BoxData[, p4 E+ P: x; j0 @' \
    RowBox[{  ^6 j) g. Y1 b+ P& ~
      RowBox[{"Ca", "[", 1 I. ]8 d- D, ~$ u' `
       RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
    0 d. J% j2 p$ u CellChangeTimes->{3.5779573112927003`*^9}],
    6 W8 \. ]8 w( A  t. O" C# ?8 ~+ L
    Cell[BoxData["0"], "Output",
    1 r/ s5 a, P4 x4 y( [; m CellChangeTimes->{2 o3 z4 P3 x2 i& y: m& H2 P. B. ?
      3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,
    ! r/ g# n# @) x9 k1 s- k6 o   3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
    4 I# I1 Z! d, q3 t% X1 C% s( d; }   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9}, & i% k5 o: r" Z
       3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,
    . A* m: d, }/ [1 f   3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9},
    % n$ K& M0 g( @   3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
    ( E( w' E- g! l! t! m/ X8 ^- |0 b; L3 G}, Open  ]],/ U$ ?% l# Q0 {
    : d$ n2 c" B1 E4 l3 ^6 y. @
    Cell[CellGroupData[{
    / V  E5 h. E) \/ y! a& e, j, f
    2 ?! s' b9 Q% a; d; ^* ?Cell[BoxData[
    ( J9 x. j) \! l2 h RowBox[{
    + T2 r$ j8 X4 ]0 z  }- c3 \+ f  RowBox[{"Ca", "[",
    9 I+ T; S& M, F6 ^& z   RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
    7 y. g; G- ]1 G CellChangeTimes->{3.577921461734375*^9}],
    2 i8 b  A( j% N5 \
    * H1 y& [& I0 o4 DCell[BoxData["0"], "Output",
    ' ]/ @- Z1 X9 u3 O' ` CellChangeTimes->{
    # l) o6 }& h0 w! e$ R8 T  3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9,
    6 h9 k) {( l6 M. y$ q   3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
    : O. P( ^8 X" L& F- ^6 b+ V   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
    8 \' ?* q; M  B3 r, d5 W   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9, 1 c5 Z+ V8 f# T+ t8 l; o) a, g7 v
       3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]
    ; n! c! z& k1 h$ B}, Open  ]],
    . x6 R5 B* U( [. ]# q. P5 |7 H+ |$ @3 }9 X$ s
    Cell[CellGroupData[{* e4 d9 Y6 x  }. N1 t# v
    $ Y4 h+ E6 T. S3 \) P
    Cell[BoxData[
    " T$ }1 u6 K0 _- i! Z; ` RowBox[{8 l5 d: D" }3 I0 z: z
      RowBox[{"Ca", "[",
    1 z6 O# V! Y" X# f! C1 n6 V# S: x   RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
    ; o9 v5 ~* t$ c3 F& q CellChangeTimes->{3.577957303118286*^9}],8 c4 \# D" q' L3 y, `# j
    ; l0 _5 o9 b7 F& d3 e0 r
    Cell[BoxData["0"], "Output",
    . d) |4 l* ]/ e$ N, D CellChangeTimes->{
    5 N, G( b+ P# c: K3 m8 P  3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {- R3 f* Z  W/ e! N! B
       3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9, $ A4 }% B0 S0 S6 ]  K
       3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
    : h  a. t' B: O; c5 e6 w   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,
    # @: T1 I; x5 Q" C# B+ `  j7 Z   3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9, : V' Q# F, G2 J2 O
       3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
    3 q, ]1 [" e' J, \+ K   3.577961889378585*^9, 3.577961912965826*^9}}]% S; {0 Q7 H% X( N; l9 [
    }, Open  ]],
    8 h% L; z/ S, o+ u& B, p; q1 ?& {7 O  b! ]! @' L
    Cell[CellGroupData[{
    6 H4 H6 T+ v. c# ]" M# i0 V! `6 o; t. y6 s8 j
    Cell[BoxData[  N0 R0 x: x! R& j$ d$ K, W
    RowBox[{0 y: P+ x7 y# U  a9 D6 j
      RowBox[{"Ca", "[",
    ' }. i+ b" }' k# N+ K2 h   RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",% F0 p3 ]4 b: E) q- v0 B, q, q4 e$ E
    CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {
    5 u( O0 U4 G6 a& I6 y7 D  3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
    ) i( H5 c' W: U* Y' N% ?5 ^* D  3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {* I7 a* }7 [* w* c4 B# K) J
      3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
    # U& T+ @4 Q4 d4 d  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {( [3 C0 s1 o6 ^, M/ g% l, p
      3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
    - r0 @/ o/ z- Y9 P+ Q  3.577921435703125*^9}}],4 g2 n& Y3 m- q* f+ V; [! ?

    5 x1 l1 k1 }+ C( X& eCell[BoxData["0"], "Output",
    3 c6 ]% r+ c& w CellChangeTimes->{5 c2 t! _* X: H, x5 @! g
      3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {
    & z8 z$ ~4 q) i3 m) o   3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9, , o9 i1 ~6 I1 \; c  u" D
       3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {0 u0 ~3 r$ W$ b, r+ }
       3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9, 3 B+ H( o/ S- L' S( v- o. Q
       3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {
    8 `" L, A4 C% I1 t9 W5 M2 \   3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9, ! w5 p; w( d5 j! R8 g7 u! y
       3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
    ' x/ B% _/ z7 s* [; f- I) \6 c   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
    , Y# k5 B$ T3 }   3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
    ' d  l% y) D7 a   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
    7 v( B  t/ h! o% F/ R5 f$ w  z; \   3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {
    ; r. O: n3 P1 ]/ w   3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9,
    ! g7 h% K" }4 u; {+ K   3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
    2 W3 F+ v" I- ~6 o7 p1 f}, Open  ]],
    4 X( V4 J) w, [; D6 L& P; i! X
    $ a' y' {& B9 H8 f7 x$ O  ICell[CellGroupData[{1 ]( I1 m7 U$ n$ @

    , Q) {8 [; W, f5 U$ G/ iCell[BoxData[
    ( }, D& M& H0 A0 r) }. S RowBox[{"Delta1", "=",
    2 i9 Q6 f  R6 [# T6 ?- Q9 T  RowBox[{0 P: W+ K) u  B, E" @' L6 _# c
       SubsuperscriptBox["\[Integral]", , q9 O9 E# e4 V- l* k1 z" ~
        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    ! g% w% M2 v) f; ?7 s2 g7 H   RowBox[{0 W8 _( K7 T% N2 t
        SubsuperscriptBox["\[Integral]", * G/ d- u2 a. d$ s+ h, V  T
         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], / F/ n1 E/ m: W
        RowBox[{
      u/ I) M3 `' K     SubsuperscriptBox["\[Integral]", 1 Y# G! m) y  J1 ~
          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], , d- L7 @* q( |! o! {' d  Y
         RowBox[{. B0 J6 K  Z) U4 e8 u6 h
          SubsuperscriptBox["\[Integral]",
    7 A5 K! Y/ J3 i7 Q, F. o" o+ X       RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ' I, p4 C. H9 W( N% W8 b$ q' j; c- y
          RowBox[{* W  J6 z5 ~7 v2 O) P# O0 \5 {! [) |
           SubsuperscriptBox["\[Integral]",
    0 o, B$ `" {  Z; R3 N% G        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    2 ~% d1 ?% L1 ^# u       RowBox[{! i2 G  }3 X; j
            SubsuperscriptBox["\[Integral]", 8 Q9 r  v7 u, t0 F* r
             RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    8 ?) Y( z, i! F        RowBox[{* B. z4 T- N3 q, g4 P
             SubsuperscriptBox["\[Integral]", 6 j& B" w" B$ ^# Y# @: f# _, O7 K& @
              RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], " X7 G/ ~9 W6 r
             RowBox[{( t1 d- J1 H( n0 e
              SubsuperscriptBox["\[Integral]", 5 T0 x: u6 Y- j: x! y7 S9 h1 T
               RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], , N. a8 ?9 f( R) g1 I- J( P8 P
              RowBox[{' g- D( e3 c' J: [; ^
               SubsuperscriptBox["\[Integral]", ( j4 j" V5 K- [+ R1 S! ~2 d
                RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    % d# U, ?5 B  Y) b  w; q4 V           RowBox[{
    + h( l* Y' E5 i) u# |7 O* Y            RowBox[{"Exp", "[", 3 D7 o9 {1 w; f/ W) v
                 RowBox[{* P$ c# v( f0 f/ h
                  RowBox[{
    2 M+ _8 C: V( s+ ^4 j2 d               RowBox[{"-",
    + ~$ h# k* |" }9 |0 b                RowBox[{
    ; X5 K& C, V, L$ d0 X4 [) _                 RowBox[{"(",
    4 f9 N2 J" s* u+ F                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 1 g1 c; W; G8 P: \+ [
                     RowBox[{"(",
    ( M, ]/ `2 G! _! u# i                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
    $ p$ [( ^+ F* i0 M              "Delta"}], "]"}],
    # Z) e9 R6 P9 `. G6 z- Z            RowBox[{"\[DifferentialD]", "x1"}], $ X3 B( v: f" x# N8 ?
                RowBox[{"\[DifferentialD]", "x2"}],
    # _$ K" O& A) x/ W6 q! Q            RowBox[{"\[DifferentialD]", "x3"}],
    4 {. R. N0 O$ |0 t  h. ]( A" Z            RowBox[{"\[DifferentialD]", "x4"}],
    0 j5 y' E3 R1 n7 g# b; l            RowBox[{"\[DifferentialD]", "x5"}], ( T" ^  T4 i' W) O
                RowBox[{"\[DifferentialD]", "x6"}], " A; ?3 t$ {! w3 @
                RowBox[{"\[DifferentialD]", "x7"}], 2 W9 a! f  \+ |" p9 m$ N& S# O( e
                RowBox[{"\[DifferentialD]", "x8"}], 4 }: N8 Z$ X$ F
                RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",7 m+ }8 w0 ?1 k/ z0 B  c
    CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {
    9 X7 ?2 ^2 {8 B' k9 J$ m   3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9, . a; P" m. G' d; `7 c
       3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {
    # I; A6 f2 }& D   3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,   d6 s6 }3 J. F8 c! C
       3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {
    ' z9 G- i  x) B6 G6 g! A7 X   3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9,
    9 u: d1 h4 O- g/ [7 ]; \, s   3.577918964453125*^9}}],* T; o  ^, r  Z' Y' A( {
    $ k* @: a  c7 V: `2 x- [7 Z
    Cell[BoxData[
    ' _( `  g8 I# R; w% e* }* ]& M RowBox[{"97.40909103400237`", " ", ) }/ O. ~# l3 k  }0 K
      SuperscriptBox["Delta", "8"], " ", : T0 B4 U3 v9 r. W. A
      RowBox[{"If", "[", & Q5 ?% H0 a- k  A, A; Q3 z
       RowBox[{
    % a" N: Z' ]9 c! a9 ^" x    RowBox[{) t' M+ U: ?. w& X2 j! {+ k
         RowBox[{"Re", "[", % Z8 k4 X4 v/ Q) d& D2 c7 t
          SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
    : a5 p$ i# b4 V1 O    FractionBox[- u$ }+ o5 f; Z: [3 `$ J. q9 k
         RowBox[{"1.7724538509055159`", " ", 0 K, n0 \& J, [
          SuperscriptBox["\[ExponentialE]", 3 g* X3 |/ [3 ^" \
           FractionBox["1.1102230246251565`*^-16",
    - X+ t# h' \% ]! D$ g. a. E1 M        SuperscriptBox["Delta", "2"]]]}],
    & `& I2 j5 {' O: F% F/ U     SqrtBox[
    ! ~' U8 C) J' y/ G, o) w      FractionBox["1",
    - {2 }1 i4 A/ t6 U       SuperscriptBox["Delta", "2"]]]], ",",
    , _5 n: ~; p, R7 {0 L0 B    RowBox[{"Integrate", "[", : n3 s3 E% V9 s" x& k; O# \
         RowBox[{
    8 P1 ~* [1 F- B, O' `      SuperscriptBox["\[ExponentialE]",
    . x) ^3 S: D5 p; T9 X: D) E       FractionBox[0 v! }5 U+ ~+ @% i
            RowBox[{"1.1102230246251565`*^-16", "-", 2 F7 k# P6 w0 j7 o
             RowBox[{"1.`", " ", ! E  r7 }7 w9 x0 s/ f  e2 L
              SuperscriptBox["x9", "2"]}]}], 4 P+ b, K3 u0 _+ _3 n
            SuperscriptBox["Delta", "2"]]], ",", ) @8 h  q' W$ M1 m0 m' o
          RowBox[{"{",
    6 t4 f' \' G  E. t! |" t7 P       RowBox[{"x9", ",",
    ' y2 e! D' X5 S& s! n' D        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
    . h, I2 S  W% }+ \      RowBox[{"Assumptions", "\[Rule]", : k8 d# [' @& Q
           RowBox[{
    4 `1 o3 O2 Z0 S( m2 C5 {        RowBox[{"Re", "[",
    & T4 n/ q$ X, Q" ^9 M' A) G         SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
    , g2 e- d2 ?; c+ O- g     "]"}]}], "]"}]}]], "Output",2 ~4 w; c! s' H7 T2 f  Y" ?
    CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9,
    4 B$ Z+ K# |7 ^9 k  3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9, : o2 a! k! e7 y6 _
      3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9, " {. O& @, G+ B, t
      3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9, 8 L1 D% L% ^" ]% S6 L$ ]
      3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9, ; S6 C5 @4 M! V. P+ Z- s) v
      3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
    9 {8 T  n& K0 c  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]" I' e1 J1 [! m% D6 X, D
    }, Open  ]],
    6 H) P. V1 \* C" }0 R& k
    ( L1 H) s+ `2 o. o" |Cell[CellGroupData[{5 b. C* F7 D2 K- E% ^$ J" n0 @

    2 @% u/ L( w" _0 C8 i: {' _Cell[BoxData[0 `  Q6 W* `1 @# [0 }
    RowBox[{"Delta1", "=", 1 w! W% g+ ^& W+ j  X; O
      StyleBox[$ ?7 X6 d0 @; ]$ s2 f* ^4 R: p7 S! D3 O
       RowBox[{"97.40909103400237`", " ",
    # a2 ?% l4 L" U' j. I    SuperscriptBox["Delta", "8"], "  ", $ I" b/ E+ v6 h! V" }
        FractionBox[
    / {+ S& u" q  [% U# {     RowBox[{"1.7724538509055159`", " ", ; ?, C  ?% z; U. T
          SuperscriptBox["\[ExponentialE]",
    3 g+ Y4 `) D) m' S4 D9 _# b       FractionBox["1.1102230246251565`*^-16",
    $ ^; _1 i. N  s, l+ `) M2 A- p" c        SuperscriptBox["Delta", "2"]]]}], ; L3 Y# y+ S9 a# p4 n" P+ l
         SqrtBox[
    7 i8 I" m! ^7 k      FractionBox["1", ) i: m" E; `' b6 `- R2 F
           SuperscriptBox["Delta", "2"]]]]}],
    4 W. g$ y  q: r0 t: I   FontWeight->"Plain"]}]], "Input",9 F, w0 j& I9 P, L4 Q3 F
    CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {
      V" v0 W9 {  D1 V" K$ p   3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,
    . ?1 M2 H, L( \2 A- S" a" I   3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
    % A  n, g0 V6 A8 V& K! c   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9, 2 z+ B4 f% ]0 Q& f# A) G0 Q/ n* T
       3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},
    & ?. b, b+ p9 W$ x   3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],5 I! n; x' Y3 t2 Z# Y& `, y+ s9 b) f, l
    4 }7 ?/ H" L, c4 G
    Cell[BoxData[) X: z: X7 f! _+ ~0 a8 n
    FractionBox[
    , j% h) P& \2 |2 [1 A- v4 _9 k( G- F  RowBox[{"172.65311851642346`", " ", 3 h9 K! {9 b4 v# F3 K
       SuperscriptBox["Delta", "8"], " ",   L& c& N# q7 ^+ E  I5 G
       SuperscriptBox["\[ExponentialE]", % p& d1 E& A  [: @
        FractionBox["1.1102230246251565`*^-16",
    ) p* R& ~2 k% m     SuperscriptBox["Delta", "2"]]]}],
    + z# ?! ]. Q5 m& D  SqrtBox[
    : p& J' o9 ?: O   FractionBox["1", $ z( o& o7 ?- q. I( h: b1 p
        SuperscriptBox["Delta", "2"]]]]], "Output",
    $ A0 c5 o  }% j& ] CellChangeTimes->{& S& z# j" _$ {. `
      3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9, ! e* C- k1 K) [# p
       3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9, 3 _, m2 N- Y, b( R4 w) ^
       3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9, ! i* S9 U6 z8 t4 G7 _
       3.578012166234375*^9}]1 |# s% }; u* \0 [$ d
    }, Open  ]],
    ; V9 ?  \: Z8 z8 Q) s/ @
    6 i) R3 e' I4 U1 Q% ~; U% m. TCell[CellGroupData[{
    7 I& p8 j& v3 P( N0 {8 `+ B+ f
    - b- ?7 C% A  g/ y5 w7 o" bCell[BoxData[5 x5 B6 i0 N& C3 t% @- l
    RowBox[{"DeltaX", "=",
    : Y4 _4 s* b: k+ s  RowBox[{"FindRoot", "[",
    ) F+ x- d$ ~  m4 S$ k   RowBox[{0 D7 _" L: F- g! M6 ]' K
        RowBox[{"Delta1", "\[Equal]", "1"}], ",", 8 m6 x! U5 O8 ^5 r2 H! `
        RowBox[{"{",
    $ W: N' M$ x. D! o) R4 A" U# q     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",
    0 N+ Y# S# K% S8 P, k8 ?: Y$ z CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {
    1 S3 M+ p' ]3 G! Q6 w! _   3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9, ! I, m- y# T# E; A6 O7 y- M& d# D
       3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9,   K( ]) ~' y6 g
       3.57791921584375*^9}}],
    2 }1 }: j" j; I5 L# |6 n) I! k
    . i' u8 N$ J$ @# cCell[BoxData[
    0 _. \3 ^- I/ N3 E! P% R' `# R RowBox[{"{", ) o( [/ ]+ L" g! u! M
      RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
    & I: ]7 m, w+ I7 Z7 _& m2 b" L CellChangeTimes->{) Z$ H1 Y; U: y, e. ]% |% M, h
      3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
    3 W! O& \# S/ g" W8 G6 A/ Q4 b   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9, : q8 E+ s+ r! y% A, P' x) f
       3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
    & L# X+ ]6 C5 I6 w" M8 V   3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
    9 u# f6 D2 L9 z, R2 G9 |   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {. E$ @  x9 C& O4 v6 g
       3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9,
    # U  {+ z* r' ?1 X   3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
    # K; |4 J4 K* v1 \8 o   3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
    % x! {9 \8 x# N. ?( D   3.57796070150625*^9, 3.578012167703125*^9}]6 Q1 A( e6 O$ Z1 u* J, ?6 @1 z7 x
    }, Open  ]],. P3 h$ ^! k% T( o0 N4 @9 _0 S/ Q9 D

    6 ^1 q7 }5 U. s3 sCell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\
    ; a% T9 q6 b% Q) D\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
    . l# b; ]2 w. D8 Q7 O' |" U CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {4 B0 w2 o$ t1 f( B- ?! p
      3.577960705312657*^9, 3.577960707621461*^9}}],
    7 O' m! z6 B) H2 C& @2 }+ \+ r
    * R5 V& @+ w, a$ SCell[CellGroupData[{: A) Q% {* N4 _2 W; u2 V

    $ F% J6 x) d- n# g% LCell[BoxData[% s2 k" q% H$ Y- j2 R
    RowBox[{"C1", "=", "Ca"}]], "Input",
    # K9 m0 }+ ^7 I# g' I; Y+ ^ CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],4 m7 q9 C& `% a4 h( ]% ~  a

    5 X: k) Q' M* V7 P$ z8 B! KCell[BoxData[
    $ {$ p+ R* g8 c% U' Z& c RowBox[{"{",
    $ w" Q7 \* {7 ^+ O9 h  RowBox[{
    / o6 y  m% n' z: P9 H  Z  "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
    : M, ]/ p1 L  h4 E   "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",", ! w, Z: x! M; X: M
       "0.`"}], "}"}]], "Output"," I% l; J* ?0 Z- Y3 _3 X* J& j
    CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9, * z$ p' [) A) S4 \
      3.577960710273465*^9, 3.5780121855*^9}]
    , v* x8 b- f& }  A}, Open  ]],
    % J# y% V& K9 D4 X: ?* P# d; W. D. t6 \" @: `
    Cell[CellGroupData[{* D) c2 }* X0 n: b, R
    7 u& X. O& ~( I/ m% t! H
    Cell[BoxData[8 y! e3 i  q. C* I# X& @
    RowBox[{"u1", "=",
    ' w$ `" P) v2 T8 L6 z5 E9 g  RowBox[{
    ; ?, @: {. x5 H* r8 g   RowBox[{"Exp", "[",
    , ^$ h7 ^6 _0 a2 p+ P    RowBox[{
    6 [9 L& C% G  X+ Z- f     RowBox[{
    # ~# i% P4 |  ^      RowBox[{"-", 0 V. ]4 V4 O; X6 I
           RowBox[{  ~2 F7 }1 r0 E* R
            RowBox[{"(",
    ) V, D( _" N6 a( a         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ! W: L) c) F, e) z0 i
            RowBox[{"(",
    : D. N) y/ v0 O2 V         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    0 g8 x( f. D, {- f9 G0 x  x     "]"}], "/.", "DeltaX"}]}]], "Input",: S! M. ^4 s! i/ w9 L. [
    CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {3 ]. j( `6 B# y" r
       3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {
    6 O5 ~5 A  M. B* k9 m8 m( e   3.577919193484375*^9, 3.5779192326875*^9}}],: Q* E' U2 P4 `8 B
    : f$ k' t& x8 Q
    Cell[BoxData[
    ! S3 i- B$ M0 q0 u) y SuperscriptBox["\[ExponentialE]",
      k* p& _. N( W3 l  RowBox[{"3.141592653589793`", " ", 0 w$ P: t' K0 W2 T# f. d& z
       RowBox[{"(",   N* g  \! B$ {) k3 r
        RowBox[{2 ]  X$ Q) Q+ r3 a0 {+ f* n
         RowBox[{"-",
    - v# @) w! R$ Q% b5 w- g" ]5 t      SuperscriptBox[  C6 b: x5 L3 }7 x0 O8 ~4 D) e1 c6 @
           RowBox[{"(", 7 O+ M% Y& Z3 ^  U" D6 G
            RowBox[{
    * t5 t& Y" n* Q- ?9 J1 C& X) K  X4 d         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", 0 d) w- f, k% l* a1 h! ^5 p
         SuperscriptBox[
    1 U: i" ~5 O# a% ?      RowBox[{"(",
    3 O3 U5 u" l! J( O8 ^5 z1 j5 s       RowBox[{; `  D4 M' n' ~5 d) ?
            RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
    ! |* ]2 w4 x/ d4 ~* n! `6 ]& O; |     SuperscriptBox[/ E# b/ K& D' N
          RowBox[{"(",   a& |, I% M4 L- {2 Y+ G- G3 N. e! L
           RowBox[{
    % m4 \& h5 D9 D        RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", 3 a+ F" u9 v, q9 I- f
         SuperscriptBox[; ^$ p3 n! @# L5 P
          RowBox[{"(",
    : {$ I$ Z# |# M# s; \* c       RowBox[{
    & ]+ |9 O; X5 r$ M/ K8 o' [        RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", # g. p' J6 U- ?% h3 u
         SuperscriptBox[
    1 y2 h! z2 j5 }0 [9 J( M: b4 _8 J      RowBox[{"(", . E' }0 q9 L% w0 k( ~' l3 x) U6 u
           RowBox[{1 \$ u! U) o! J$ h3 l. C; M
            RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-", ! o6 V# R  e  u4 H% F1 c9 P4 U6 R
         SuperscriptBox[
    # K/ z' N7 Z. Z      RowBox[{"(",
    8 y# j  x1 I- ^  b       RowBox[{* u9 u: N$ w- X  }7 v
            RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
    * v: h  n7 t( F, v3 O6 x/ V     SuperscriptBox[' J( [# g: H) b; m) o! W
          RowBox[{"(", 3 A. \3 e3 R+ I+ a+ q
           RowBox[{
    8 u- a7 a8 o4 r( Z! W0 D; M  z        RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
    ' ]& n& ^, b% y  I3 O     SuperscriptBox[
    5 V: A0 v. w2 E/ z8 t6 u! Y1 j4 u9 c3 o      RowBox[{"(", ; W' R* b' m8 \
           RowBox[{: ]9 t( j0 n7 o
            RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
    ) l1 `& b& x7 e3 e2 P. R     SuperscriptBox[) \3 [5 o) j- k2 {. G; k$ |
          RowBox[{"(",
    # m* E* g" ?! U: U# I7 u6 e( Y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ( t2 J, K- i& ?' l
        ")"}]}]]], "Output",
    ! x/ b. v" w7 z4 h9 B CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
    / c( S0 W8 ~  E0 s  3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9, % z& A8 ~' C/ R6 ~; A7 s9 T7 }) {, G
      3.578012187078125*^9}]
    $ ]6 r* M7 K3 p3 A0 l7 f, E}, Open  ]],
    8 S2 t$ h# F  c4 A- l  x6 \1 {8 u
    Cell[CellGroupData[{, @' `" M1 |; T' t# r/ _) w9 M4 z
      y2 m  D/ O# A
    Cell[BoxData[
    + a. @; ]8 \6 P5 D3 X RowBox[{"C2", "=", "Ca"}]], "Input",! B. i! t/ |$ N2 R9 n  i
    CellChangeTimes->{3.57792047321875*^9}],# g3 r6 Y3 t- O0 V- r  ]

    - {- I4 ~. ~, B6 `% hCell[BoxData[4 C1 w; M( |" Z4 f4 Q- i/ b
    RowBox[{"{", 0 ^; k& T5 w! g$ K+ X' h
      RowBox[{% Y+ E( O# p+ c( o& e
      "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",", # h1 V8 Y1 N+ _2 `# Q" o+ G+ a
       "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}],
    3 A# k; {5 A& `  {, |! m* f( |  "}"}]], "Output",
    9 `: i8 j$ {3 S) Q$ C  p2 L CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
    # T$ D8 s: K! n7 e. h  3.5779607401163173`*^9, 3.578012204671875*^9}]5 n7 i+ J' h2 z% y
    }, Open  ]],  v& N" z; v1 g- s( ]& O0 ~) M
    & G" @/ e7 y! z3 F
    Cell[CellGroupData[{- n9 t4 L, c, C: L. W
    - V2 T, K, e: r; @) O7 m& k- M
    Cell[BoxData[
    $ F) l) a. a/ S RowBox[{"u2", "=",
    8 ~8 H6 b, B/ ^/ n2 q6 r! Y) g* z  RowBox[{& j4 U; ?5 _* Y
       RowBox[{"Exp", "[",
    1 Q* z( y( N2 F( V7 Y( }% U    RowBox[{9 s; @! Y* j, a$ H: @- O
         RowBox[{( v' t7 l) ~7 H
          RowBox[{"-", * a. R$ m1 M8 X8 J, m
           RowBox[{
    7 S: j' v' p9 t7 `        RowBox[{"(",
    ' x" P; _9 N: _& l8 i         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    * I5 m0 w+ M4 I; s        RowBox[{"(", , u5 @  s2 ~9 G
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    - y9 E1 B3 r" T' K- z     "]"}], "/.", "DeltaX"}]}]], "Input",
    + @/ O0 i4 Z' G5 B/ @) F* A0 s CellChangeTimes->{3.577920484109375*^9}],, ]3 T; t2 F& n% t
    2 {: `5 s. D# Q/ c3 W
    Cell[BoxData[/ U) M/ l: G9 C2 W9 D5 x, i2 Z
    SuperscriptBox["\[ExponentialE]",
    0 X6 \/ W" m; K5 e2 x+ B' S  RowBox[{"3.141592653589793`", " ", 5 \5 }- I3 w8 d. R; \$ F" m
       RowBox[{"(",
    1 G- P3 T# u5 [# b6 D    RowBox[{1 x# J1 f9 W. z- r3 q
         RowBox[{"-",
    0 _" v1 l+ f  B0 w" w0 j/ ]2 v      SuperscriptBox[! `5 X+ r& t( B! D. C+ z$ P: T
           RowBox[{"(",
    . n9 B) h0 y; B7 L/ G: e0 X        RowBox[{
    3 u/ \$ }' h7 e. u) w1 }         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ) u! O3 ^1 o/ R1 A9 i     SuperscriptBox[- {; S! u& Y1 F% |' q, F( W3 {* j4 z& Q
          RowBox[{"(",
    ! n* K1 n; S) n5 {) }& D0 z% R- Z       RowBox[{
    ' n% [/ D0 w# v1 S        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-", % L, c8 Y% K: @+ ]( h; I+ C; ~
         SuperscriptBox[
    + @" d+ W: N8 M9 B5 a& C      RowBox[{"(",
    ; I% ~; R8 o, c8 I2 D( y       RowBox[{3 h( j1 ]$ @: J  J- K
            RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", 9 ^$ h, b* V5 S' ~6 h7 u
         SuperscriptBox[- S6 D( W2 D* b
          RowBox[{"(", 9 b3 L3 e. n/ i) _' k9 v
           RowBox[{
    1 ?& Z) e" \5 ^) i; d& m' n( U2 o        RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
    ) g. t7 f$ G8 k7 J8 f     SuperscriptBox[2 ^: x2 P/ X9 y: l1 F# j# \! o0 x0 Q" ]" E
          RowBox[{"(",
    ) A" }4 ~" j9 K' M8 X% f# }0 E       RowBox[{
    ) n" P4 U/ ?- _& ?$ X5 C        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", ! s5 C6 `4 i0 S  Q8 [. Y
         SuperscriptBox[: {" p8 s% L/ b" `' W7 b5 d
          RowBox[{"(", ; m- y( K* i$ R; s  [
           RowBox[{8 e1 d+ F& \3 [  e& r5 y
            RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
    ' P! p# M! q7 H6 y; T" G: L     SuperscriptBox[
    5 t$ [% z  z$ e" ~" r0 Q/ u( s4 o+ P# {      RowBox[{"(", 1 g& I! ?) M. r! |! @, N
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    ) J1 W( j% p: L     SuperscriptBox[
    1 \! W' \# N) }4 }      RowBox[{"(",
      t( e5 C4 O0 @! q3 E; u       RowBox[{
    4 _9 t& P$ M2 Q0 D        RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", 9 A% V: P: j! {/ d$ V7 Z
         SuperscriptBox[/ K7 e6 N: ]0 g2 T* I9 E! r
          RowBox[{"(",
    0 X& q- Z; x" w$ u: u       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ! G  t* U* ^- H* x9 Q7 x
        ")"}]}]]], "Output",
    3 b& }% Q$ z  F CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9, 4 |# K7 g+ D7 K% D
      3.5779607413955193`*^9, 3.578012205484375*^9}]
    : r. J% G3 b6 m" @8 F4 q}, Open  ]],
    , R" l- |3 z5 g4 r, V9 R5 Q5 e9 p; Q0 a$ V7 z
    Cell[CellGroupData[{) W. k& R0 j  K

    0 k* J# z% I7 {' u( z9 a5 B4 hCell[BoxData[
    + B/ f' W# O8 r; V- ]5 v RowBox[{"C3", "=", "Ca"}]], "Input",! l- @7 ^- ~- P- t( u1 A0 P
    CellChangeTimes->{3.57792064125*^9}],9 l/ V! J% B' |* \% A8 t- F4 R
    ; M& l6 R5 y; V" l# b4 O. r
    Cell[BoxData[
    , B7 e; y3 I3 C RowBox[{"{",
    - z) _, l$ k: K6 W  RowBox[{
    , s+ f' k3 ]$ L4 V7 ?  "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
    . V/ O: Z0 b: r1 l/ w5 D   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
    ( n5 N' P8 H9 G1 T1 c  "}"}]], "Output",- |* {. O9 b3 G! Z  r4 s' A3 J7 z
    CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
    8 g6 r" e! C9 C4 s* h1 O  3.5779607642027593`*^9, 3.5780122103125*^9}]
      A4 M) j: s4 f* g& @0 }}, Open  ]],5 M' Z9 o# f, ^1 @1 {
    ) H8 G/ Z0 k0 r
    Cell[CellGroupData[{3 \- F* V2 Y5 u2 ?" g

    , B) c$ M4 U. Y7 C9 S: m, s9 bCell[BoxData[
    # |# h5 l1 X) o3 F% C/ E RowBox[{"u3", "=", % E, A3 M/ Y; d' k2 d7 T
      RowBox[{
    & @$ H; [, e5 T4 b& ]   RowBox[{"Exp", "[", " T" F/ J1 e1 C. G% G- @
        RowBox[{. y! _# r# a. o* g  t0 L! q6 S4 w
         RowBox[{1 c3 Y: d8 ]; o1 b9 Y& c1 z
          RowBox[{"-",
    , V/ M3 i7 f2 ~( E. Q+ C" }       RowBox[{
    + T6 a& p2 {- z+ ^5 e        RowBox[{"(", & E, v$ c0 ]& P; F; R
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ! ?% G" u0 o, e! i        RowBox[{"(", ( r9 C6 _) O6 n1 k  H! H
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    6 N  }7 i+ ~8 O% W( a( v     "]"}], "/.", "DeltaX"}]}]], "Input",0 d5 W+ ]( A  T
    CellChangeTimes->{3.57792064921875*^9}],7 e6 u8 f' A8 e) G$ C

    ! q2 `2 h2 Y* L/ `0 K: ]& VCell[BoxData[
    & a( C% I& z  z5 W5 Q4 [ SuperscriptBox["\[ExponentialE]",
    " o2 o2 z( i8 h) {  RowBox[{"3.141592653589793`", " ",
    ; _# C) ?0 ?5 _' S% S$ |/ x, h* q   RowBox[{"(",
    9 a. u' ?6 E6 \  ?* ^* G1 a    RowBox[{
    3 i* ?& V+ P9 l     RowBox[{"-",
    9 k0 t3 v& m- G' W+ e      SuperscriptBox[
    $ X# X+ a$ `7 p- D7 U- X6 u$ V! P       RowBox[{"(", & f5 F+ X. `& X3 p. y8 l8 S' N
            RowBox[{) |4 ]* Q) K! L/ c# \7 K9 d) a- a
             RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", 1 D2 T' g; A9 k+ Q/ Q
         SuperscriptBox[: v4 @; @$ X2 ^8 H0 f
          RowBox[{"(", . d( L' @- c, G2 E5 T
           RowBox[{8 \' B* W# o+ E2 V( c
            RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
    ; G- {' i6 q' F     SuperscriptBox[
    1 k9 Q: z* A8 r$ z6 g      RowBox[{"(", . Z+ [+ X8 r: Z7 I, m, b* E
           RowBox[{) y# `2 u  q9 f  }5 h/ f4 u
            RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", : `/ ^+ c1 f1 {4 {
         SuperscriptBox[
    , Z/ W8 s9 |/ ]4 Q      RowBox[{"(", ; d$ T: D% k# ]% Z5 M# @+ P
           RowBox[{9 V6 W% y) [. j9 n" y, f$ U
            RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", 7 t1 v  Z$ T* O) q% H  o+ y! T
         SuperscriptBox[7 H# H; Y# k6 e5 F# X+ j" R
          RowBox[{"(",
    # x+ \+ d9 E' D# B       RowBox[{  [" Y  P2 i! b. f5 l
            RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
    1 b1 x2 M* j3 k, J* j1 w     SuperscriptBox[/ |1 R$ f9 _+ d; W! V
          RowBox[{"(",   k8 c5 g" v  z7 t
           RowBox[{
    ; u7 t: k; O% e0 R8 }        RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", + ?0 {  B5 [1 }; s$ B: J
         SuperscriptBox[
    / O5 X+ K* {1 r7 a6 J0 h, {; O      RowBox[{"(", * H4 q: R- d4 l
           RowBox[{
    4 K0 Z9 e" l+ y, X( x* H  O" N        RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
    ; I' [8 Q9 X) K0 r" b: M     SuperscriptBox[, d, f: S' n3 F9 N  r
          RowBox[{"(", , [3 p7 o. X# @9 u3 `+ n) B5 R9 y
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    & O/ V2 F$ n6 g     SuperscriptBox[/ i$ Z! x, h: d& L
          RowBox[{"(", $ A( b" h1 ~" d, \9 B# ~, W
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ( s; `2 }& \1 G4 j2 a; `6 v- D
        ")"}]}]]], "Output",: g3 o8 X/ O: B" F4 s
    CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9, 1 E2 S4 q% u: T+ k! _% l' X
      3.5779607654819613`*^9, 3.578012211515625*^9}]
    5 m5 H- s; u) h5 m}, Open  ]],
    / v( G6 ?+ O6 W1 Q1 e
    . E: x. ?! ]! \" o% v' eCell[CellGroupData[{
    % L2 a* j; r( W
    . o0 T& D9 ]1 o$ OCell[BoxData[6 t  x% R! m  P9 o/ {5 C2 T
    RowBox[{"C4", "=", "Ca"}]], "Input",- O: G' ^! T4 k# L1 |1 r) k
    CellChangeTimes->{3.5779207559375*^9}],0 ^: z, @, t6 a) V1 ^2 {

    * p0 b7 u. I: P6 k2 ]6 ~Cell[BoxData[
    : |6 S! G1 v) K4 b. p RowBox[{"{", 4 t: g6 {: r: ]0 ~$ X. ^
      RowBox[{" X4 k8 s/ ~, ?1 W' Q
      "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",", 1 c0 _/ n: L% q$ V5 f; h$ n! k/ k
       "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], 4 \* R7 [* h: U1 ]. p% @
      "}"}]], "Output",
    : P+ t9 _! H6 G7 v2 v CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9, $ Q+ `& W5 Y# I# Y
      3.5779607861363974`*^9, 3.578012216171875*^9}]) o% T) w6 [: ~# Z1 C: y
    }, Open  ]],
    1 W/ x7 {1 Y! Z, G% H! V4 Q! \4 R8 P+ i3 {9 x
    Cell[CellGroupData[{
    $ r  z; I% U3 j$ l; h' w/ a- t5 w
    1 x! |6 _" b5 u7 ]' [9 N; nCell[BoxData[
    * ~1 K7 L* I6 }& m% J; i7 y; S) K0 b RowBox[{"u4", "=", $ N6 p; Q  d( k! B$ j8 t4 \0 G. x
      RowBox[{: W7 b2 O0 d7 }) v0 m. V
       RowBox[{"Exp", "[",
    - `/ j8 [2 s* b5 n: G4 o    RowBox[{. ^1 K0 b2 g$ }$ a- [( [
         RowBox[{6 y$ Y8 }2 n/ J, v% E
          RowBox[{"-", " _$ ]; d# g. ?5 H' V. u; k" B5 K
           RowBox[{
    1 O9 b& I# p  F* }% e( n8 F        RowBox[{"(", 2 q. \( `. p, m  A
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ! H' M, M% O' q8 w        RowBox[{"(",
    : i& R. m$ Q4 W/ X. a2 c         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],+ K6 J, @- d& m+ S0 p- d
         "]"}], "/.", "DeltaX"}]}]], "Input",% |! \8 Z, ~1 I+ S
    CellChangeTimes->{3.57792076325*^9}],+ g% |1 r' |/ Q
    + j% ~& @" Q% g) G8 P
    Cell[BoxData[
    7 W6 S; G8 \6 B. C0 @& I. {0 n  c6 t SuperscriptBox["\[ExponentialE]",
    ; T. h- Q$ l, F: T$ y  n* J7 w  RowBox[{"3.141592653589793`", " ",
    % Y4 G0 o" x5 \' {8 @' O   RowBox[{"(",
    - m" J" {( C7 I" q* {! b1 Y! ~( v    RowBox[{; D' {( R3 ^0 {, g4 |
         RowBox[{"-", 0 H) D2 j: R1 V1 D( [+ [
          SuperscriptBox[
    . c1 ?5 Q" z8 W! B       RowBox[{"(",
    ! G( U6 h* o3 v" ~        RowBox[{
    - J  M3 Y9 X+ D; W( g4 n         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 6 T% X) B9 `+ @, I$ \
         SuperscriptBox[
    7 y+ p6 w/ H  w0 [7 N0 a      RowBox[{"(",
    8 c1 f, ?3 p' _5 [       RowBox[{
    , e# P+ t0 q; g3 v        RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
      L* o' R6 t) T     SuperscriptBox[5 K/ d& C( q, I  p. Q
          RowBox[{"(",
    5 M" \6 S# j7 y0 Z2 [       RowBox[{( g6 r& E6 U7 Y" Z+ ~
            RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
    % E# @  S5 Y  S* \% o     SuperscriptBox[8 K) G' v+ W2 s8 P9 @5 C& F. ?
          RowBox[{"(", % ~" T+ S6 P7 T3 Z+ w, Q' C- A
           RowBox[{
    % }2 I- A, Z# |0 M        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", ! [; e5 }1 y, Q- A) C
         SuperscriptBox[' i* l1 ?, c5 `; }& g* R$ y
          RowBox[{"(", % ?0 p* x" y3 v
           RowBox[{
    % K8 H- V+ v# c- q" e        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    $ }! R+ V" b6 m9 ]! m     SuperscriptBox[) e8 }# U1 g* L/ B. M7 i
          RowBox[{"(", : z  o) {  {( x2 [& _2 L& P7 V9 q
           RowBox[{, H- x7 g6 D3 W* @$ H* u$ S  o
            RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", 2 ]. e4 T6 [/ ]. `* `4 b
         SuperscriptBox[' Z6 D4 z# Y3 H  k4 g" C
          RowBox[{"(",
    - n* N  i( p5 g- {7 a/ [4 S* y, K' N       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",   Y# {3 ~8 [. U9 V/ c+ P3 k6 ?; j
         SuperscriptBox[  t  x6 Y0 W! B* _
          RowBox[{"(", $ A) X& j8 o6 I6 B
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", # M$ S0 w8 `1 J3 U# U2 P# j
         SuperscriptBox[4 g+ m. ~5 \4 N& o
          RowBox[{"(", 6 T7 ~- [8 n1 Q/ M6 G7 S+ @( g  K
           RowBox[{
    ' j) n$ w) g+ m+ @6 M' Z: |. ]( ^        RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], 3 j3 \$ V/ _5 _. r$ _' _
        ")"}]}]]], "Output",
    $ [" A- f2 E' V% C9 G CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,
    1 S* l* E% ~8 ?2 n( \) d$ G6 }5 z* g  3.5779607873531995`*^9, 3.5780122169375*^9}]3 c8 G3 [- p2 a
    }, Open  ]],
    0 G: K8 r4 {6 m$ o
    $ d4 Q9 E) m( jCell[CellGroupData[{
    6 b, Q1 l$ j3 J
    ) g# }/ V: B, A4 _2 |Cell[BoxData[
    ) p7 i! Z5 Z/ K5 O$ f RowBox[{"C5", "=", "Ca"}]], "Input",' |! Z6 R0 ^! D. h3 {& @
    CellChangeTimes->{3.577920860671875*^9}],  G/ U8 z% b  `4 C0 b: ?1 g2 W

    # B, ]$ K( n1 T8 @Cell[BoxData[
    ( C1 D; H; I! W+ X" W1 G" R  c RowBox[{"{", + i+ e! |3 J7 S: q: y( W4 M
      RowBox[{+ J) c' T3 t1 [
      "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
    5 |+ J7 v9 V6 l, F9 @2 \4 C, X   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],
    % ?. [, r* u% }5 ^, t! j: _2 w6 n  "}"}]], "Output",- o) X% d; u, @. c" X
    CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,   \3 M5 J* u, ?2 Q) @
      3.5779608137328453`*^9, 3.5780122209375*^9}]  h4 H* g: h# k! \2 T7 H5 n
    }, Open  ]],
    : S- `! k& m3 f- p. K
    2 A0 T% |3 [7 \. U# A- QCell[CellGroupData[{' G+ x/ G* `0 [# j. W3 p9 a

    & z$ s/ `. Q( S& ~4 M% f- OCell[BoxData[
    / m8 U. V5 c: H+ A# j RowBox[{"u5", "=",
    7 ]# G3 O0 D& A* G3 C0 g, U$ r/ S2 B  RowBox[{
      R" k$ D2 }8 c8 {" `# H# `   RowBox[{"Exp", "[", % }. u4 ^; j7 b# V: A5 P
        RowBox[{; K5 X( L' a3 Y- X! A! [
         RowBox[{
    ! |$ a% G$ q, F/ n. a      RowBox[{"-",
    3 d  _2 T8 \4 m       RowBox[{% f: U2 L+ @  K
            RowBox[{"(",
    : `* l) k. v8 K         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    : t) x5 `1 o+ ?/ Y! _4 _        RowBox[{"(",
    9 h" Y+ H/ W! p  M         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    + W8 {( T+ c) }) p" ~     "]"}], "/.", "DeltaX"}]}]], "Input",
    ; d9 d! b7 N) H& E CellChangeTimes->{3.577920869375*^9}],
    : j3 {5 X2 |! k7 J  b( H
    0 |( ~! D, X* jCell[BoxData[$ f5 E0 m& T' n% L% F' {, B
    SuperscriptBox["\[ExponentialE]", * [! W  F# {# K1 C2 h
      RowBox[{"3.141592653589793`", " ", ) @3 r9 T$ N* G1 ~+ W
       RowBox[{"(",
    ) V& Z9 H1 U$ T3 t    RowBox[{
    $ G' L# g0 [# Y     RowBox[{"-",
      F, E: G! _* o8 V      SuperscriptBox[# U5 |  O: b' Q; v3 ~2 G
           RowBox[{"(",
    ' N& n7 Q  S. I2 C2 ]6 h        RowBox[{
    ) _# A2 X# U+ l         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", ) @* ?# r8 Z# J5 J7 l
         SuperscriptBox[
    ; \' A" H: a: [! H& g4 x/ D' G      RowBox[{"(", . U( N$ U2 V) w( a
           RowBox[{
    2 m+ G: Z5 C+ S% R. N& A# b* Z: I+ t        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-", 0 o1 [2 j' }- n3 n8 V" j
         SuperscriptBox[
    0 C; U: d: c( _  Q! u      RowBox[{"(",
    ' T! Z- ^2 m8 t  k       RowBox[{0 i% `7 D6 P: w4 b3 k$ I
            RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", - v( \! P2 y. I8 s
         SuperscriptBox[
    - ]% A# b5 M' b0 `8 T7 G      RowBox[{"(",
    4 G+ s4 J5 N& \2 s       RowBox[{. z1 j1 Q+ ~  A0 S  v- d4 |
            RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-", * Y9 L; z: j* R4 |6 x
         SuperscriptBox[  u, v5 V+ K; J  }2 o2 r" \
          RowBox[{"(",
    & b) P6 @6 X7 Z& u       RowBox[{
    % R9 A: @( f- a4 N        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", ' Z2 H. o- r4 U4 U# l7 b  v  U2 m* m- u
         SuperscriptBox[
    + I( P8 K/ r* B$ _; P8 k      RowBox[{"(",
    1 T0 B% X# y! v       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", , ~4 J: C; b- {+ q5 l' Z
         SuperscriptBox[
    : Q+ A' Y: n2 B! I3 c. ]* A6 E      RowBox[{"(",
    & D) ~6 S; Z2 \! x4 O$ [/ l# J6 X       RowBox[{1 B4 D7 ^9 J" K9 u" f5 }
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    ' j5 [$ L8 y) G0 @9 \     SuperscriptBox[3 E# M" |% K7 x
          RowBox[{"(", + _6 f. w# J' `6 d
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    4 s9 k+ @; P( Z/ l2 U! w+ {3 e- R     SuperscriptBox[% K- S  \* p0 l( Y
          RowBox[{"(", : {& }% }0 \0 N) y
           RowBox[{
    - S- j6 f# h7 j* n8 K1 F' w% z        RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
    6 R) G; u9 v, y! F( m9 g- ^    ")"}]}]]], "Output",: g3 P  h- L& f
    CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
    / Z8 t9 n* p! U  _) R) R/ C) u  3.577960815043248*^9, 3.578012221953125*^9}]
    0 F, J( j: K9 G$ }; m, S}, Open  ]],
    $ u3 p+ `6 Q5 w( {
    : O( {6 [. L+ |8 K4 X; Z- @' K- YCell[CellGroupData[{3 ~; [7 ?& R0 T  u$ I6 K

    . J) C! Q: U" A0 wCell[BoxData[
    ) p# F6 [3 y) ]! n( K RowBox[{"C6", "=", "Ca"}]], "Input",
    - n# Q/ ~' f/ l+ l) H  r* q: g CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],  {7 W, Z2 ~5 b4 _
    ; R  [# d! q+ g! h$ y7 E- [
    Cell[BoxData[
    ! d6 h) T! m  O  K) {: Y RowBox[{"{",
    0 G3 Y3 r! E! j" c4 d3 c5 f  RowBox[{
    / g$ v6 i0 R8 q& D! }* R: P: f8 |  "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",", & ?  }* g0 {( m
       "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",", , t+ s9 d8 y( P% X
       "0.494866`"}], "}"}]], "Output",
    5 g! \/ b* ~# j  Z/ | CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,$ t5 C. _$ b) I! a+ Z8 k* W, s
       3.5779608373044868`*^9, 3.578012227359375*^9}]1 W  c* e$ j% ~1 o
    }, Open  ]],$ e, l$ M! d( x3 ?( l$ F! z3 n

      D. y; T. t4 B9 jCell[CellGroupData[{" x/ E, m; ?: J6 @% B

    . p& G6 N( O+ G  N) x# lCell[BoxData[' S4 G* p8 T5 H! B* ~2 V5 Z5 g
    RowBox[{"u6", "=",
    8 X3 Q; G; D2 \% b4 ?  RowBox[{, @! j# g  d4 g0 V! i
       RowBox[{"Exp", "[", ) e. M" L0 [0 v5 F3 |. m
        RowBox[{% h- u( a0 A$ O, z$ F
         RowBox[{% w+ e0 ^$ t& B$ \  K: Y: t
          RowBox[{"-", 2 J: N" Z: x0 h, N+ Y. S. _( y+ w
           RowBox[{
    3 V' e9 ^) p( L8 U7 ^: g! L        RowBox[{"(",
    , H  R: q4 T, a1 ~         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    # v8 S( f6 n5 y4 Z$ K        RowBox[{"(", ; \: @5 z; g% h8 d" [, c' W6 ]7 G
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],) W* U6 V  E4 N& k7 c
         "]"}], "/.", "DeltaX"}]}]], "Input",
    ( {2 f3 g: t, w0 t CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],! v5 R% X* ?0 M: r5 i% g
    ( X: A) r) C! E: `$ s/ V
    Cell[BoxData[
    $ W: p, L( G  v+ t  D SuperscriptBox["\[ExponentialE]",
    ( C% u9 A  @/ `. F" L% |, u  RowBox[{"3.141592653589793`", " ", : N5 O$ B0 J, e) Y( {1 o
       RowBox[{"(", % o* Z4 ]4 x/ }5 ^  }8 C7 Q
        RowBox[{% @% O. B' d- U2 g8 i/ H
         RowBox[{"-", + x+ {: ~3 R/ b( j, V
          SuperscriptBox[4 L1 @. x# Q/ K2 m( V: F
           RowBox[{"(",
    5 M, c0 R: R+ B- d& d        RowBox[{
    3 r5 ^. t) n: \  ^# j         RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ! r7 M3 w% o% E9 p! n5 ^     SuperscriptBox[
    ( V* O% S0 @1 {9 t. _) B- h5 y% c      RowBox[{"(",
    7 y! g0 h% [8 X# l" O       RowBox[{7 k2 x. ]  X( d$ s8 ^, ^$ F/ V
            RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
    9 V' m$ F# G1 |" c3 @     SuperscriptBox[
    ! e8 I4 a3 ]; R! t* d! a      RowBox[{"(",
    " }  B" f- P+ G# H- B0 O2 g       RowBox[{
    % C9 C6 ]2 `, \! n: S        RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", ) J. {% C2 w5 R2 t6 i! A
         SuperscriptBox[$ T1 e5 ?3 W( q
          RowBox[{"(", 4 I5 S7 v/ W; V$ i
           RowBox[{
    ( c' ^' X" [6 ]" A6 A8 j        RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",   ^' f' U) U  N) d2 v- }
         SuperscriptBox[: G$ C0 ~  I4 C" J, _$ N# }
          RowBox[{"(",
    % }4 o6 e% |) t, F* T4 X) E       RowBox[{
    4 k4 H/ W% D9 L" a/ l        RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
      r/ C+ M& s! V" B' P/ e- p     SuperscriptBox[
    / ?' G- f; B* k5 p      RowBox[{"(", # k- Q  ?% K, L) t
           RowBox[{9 G8 E& W' T$ o2 K# I
            RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
    4 J* [3 J9 I7 |0 A" \" Z; o     SuperscriptBox[
    5 A& s5 Z' W1 _- v' J0 [) [( @- T      RowBox[{"(", / G& Y# W* B5 V9 L0 S! Z7 a: [
           RowBox[{
    0 m  Z% ?. K) W0 h  d3 }% u2 H- w        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", & G7 s% R; {; I7 W
         SuperscriptBox[
    9 r, f( Z" p$ Z6 p      RowBox[{"(",
    % A9 }) x$ E8 D% _8 z. d' `* ^7 D9 S- U       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ( H3 P7 h6 F% F% U& w' s/ Q     SuperscriptBox[  B  U/ s; H% ^! p& _8 l/ k( b
          RowBox[{"(", # ?0 ~/ `7 W2 `5 d
           RowBox[{
    / A2 p( H0 }/ _& ?        RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], + ?1 K4 q+ f  g, D
        ")"}]}]]], "Output",
    7 W9 {2 z. }9 ~" K CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, 1 a+ B& f3 ^3 }9 k: I9 z/ W
      3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]' S3 b( N2 M8 K8 g$ w9 S
    }, Open  ]],2 p% O9 z9 K, ^; L9 J; p( Y3 `5 M
    7 P3 H0 E, L  U/ G5 b9 c
    Cell[CellGroupData[{
    ) G4 \; d) A2 R9 A& ^# q6 U! s, w3 F& g+ U8 w6 g$ M) a
    Cell[BoxData[
      ^6 x& h3 G3 ^$ Q3 l RowBox[{"C7", "=", "Ca"}]], "Input",
    / r0 }6 u$ s: K CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, " A1 z9 Q" S3 I  k# K! a! h' n
      3.577921316125*^9}],
    , i3 O2 P5 h8 u! m3 J, `
      g! a# L5 l" z+ ~& ^9 KCell[BoxData[! K/ k! u4 g) f4 ^5 l, G
    RowBox[{"{",
    $ I. d4 |+ x  I$ O$ Z  RowBox[{
    8 g& c9 G/ @" }+ }8 L$ N! _% Q! k  "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",", $ |, B* ^+ {( M
       "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
    : b8 y% b- ^5 m. a0 J$ v4 ~3 J2 @  "}"}]], "Output",
    # u  L: G2 D7 g3 P9 n CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, 3 R0 ?) p* I/ D: o
      3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
    ' x: n' ]9 Q8 ]! P4 V" b# @}, Open  ]],- u/ T( t% u4 J$ }. ?
    3 q8 q4 u, ~; `8 r+ g
    Cell[CellGroupData[{6 j4 T- k6 H3 e# k# z/ h
    ( \- Y2 z; }! x  o4 I* ~% u
    Cell[BoxData[
    4 h6 ?5 G7 H7 q8 R RowBox[{"u7", "=", * a) X+ J4 t8 T3 S- R0 X  n' O$ w- `
      RowBox[{: i* J3 J4 B. f& ~7 r
       RowBox[{"Exp", "[",
    * \+ J9 \# o" F    RowBox[{0 E9 `8 ^4 }$ w( I$ ^1 K$ H1 |
         RowBox[{
    ) |4 z3 i0 H' N' B2 V- p      RowBox[{"-", + T$ q; [2 l6 p/ L2 \( @9 Q9 }4 g
           RowBox[{
    & S' O1 e- J0 v+ }" z        RowBox[{"(",
    : T1 r; y! [7 s* g6 P; d; J         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", : S0 W4 b: S* N0 q2 `1 t$ w
            RowBox[{"(",
    / U0 ], Z! i  H         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],2 \& O* A/ N: E4 C$ c* T
         "]"}], "/.", "DeltaX"}]}]], "Input",
    % }' ^2 D' N% v# |6 @ CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    0 j) a- h6 k  {  ~% d# _  3.57792132028125*^9}],
    9 h' B4 K8 [3 \: a+ D6 V4 |
    ( t0 `2 X: ?/ O, U+ j5 [Cell[BoxData[5 d# A/ F+ A/ J( _* B, N
    SuperscriptBox["\[ExponentialE]",
      i$ D' u- y. x  E6 k6 O  RowBox[{"3.141592653589793`", " ",
    $ P5 q% b' ]9 x$ q6 u+ ^" h   RowBox[{"(",
    6 W7 J7 ?# v7 C  O) ^0 D5 Y6 q2 H    RowBox[{' `3 Z. O0 j# ?& k2 f0 D( n
         RowBox[{"-", 2 ]& K/ t$ e- u) y0 n7 ^
          SuperscriptBox[: B0 b* h: A! K- T% k9 \7 o. ^
           RowBox[{"(", + t: g" q1 [5 }6 e+ W' T
            RowBox[{, \& d6 h0 b* f8 q# f: H2 i
             RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", & r8 A8 r7 A) K7 {7 h% M/ _% j
         SuperscriptBox[6 x$ O! L$ t- |# o) L  l9 Z
          RowBox[{"(",
    # [" E+ m0 A4 @+ ]& l       RowBox[{( `' Z( l$ r* H
            RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", 5 G* n2 N' F; j# q
         SuperscriptBox[9 _5 M; S+ R4 Z3 }! f; K
          RowBox[{"(",
    $ l# [' l7 I" R2 u3 J7 f/ T- p/ X       RowBox[{) t& G7 I- h2 d. S2 i. y+ O: z" N  V
            RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", 4 D3 N% ?/ [4 Y* x
         SuperscriptBox[
    . m7 f' [* k5 _; K      RowBox[{"(", . j% h0 F: t% _3 ^5 e1 K) J1 D
           RowBox[{6 M3 X: _6 F4 K
            RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
    ' f, }1 Y" m% O3 M3 J, {     SuperscriptBox[
    2 [' \1 p4 K  f* ?      RowBox[{"(",
    2 _& s3 T: y# [4 Q; k7 K# r% j       RowBox[{
    6 E4 m* V4 z8 b: [  N8 p        RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
    ; H8 G$ l6 d8 h6 Y% i     SuperscriptBox[
    & g  N5 y3 y2 T+ n$ h) s      RowBox[{"(", , @8 I8 ]( l0 g- P7 I
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    9 {5 [- E6 U" \1 I8 |- I     SuperscriptBox[- U6 s1 A( C* w$ C
          RowBox[{"(",
    5 R. h) g9 L$ T2 c6 B       RowBox[{
    4 Y( O1 H/ }. m4 ?9 ?5 I7 q        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    , c$ w( i+ h4 B& ]3 I- c* S     SuperscriptBox[+ p2 j. v) c- w- E! V
          RowBox[{"(",
    8 Y/ f' ?( L$ ~+ {2 S3 y+ Q# J+ C7 T       RowBox[{
    / P7 |# ^& h9 S. r        RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", - i0 b. k: ~; L7 C: X% o$ P. N
         SuperscriptBox[; u- P* o; A# F1 A  J
          RowBox[{"(", + ]& S5 S3 {+ F- z6 `: d+ P
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 5 U* ~! l. v  J8 N# U! G
        ")"}]}]]], "Output",7 N9 ^7 t% D* {- g/ [( M
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, ( C4 s3 P7 a8 i: y2 Q
      3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9, + d" [% g7 `7 w, h* Z
      3.578012251359375*^9}]3 t3 H0 ^: B( p3 F- a- B- U' {& u: o* C' Y
    }, Open  ]],* a4 p# F1 M. X
    0 `/ v. l/ ]+ h8 g' N. C
    Cell[CellGroupData[{
    % d5 h- [9 H8 `+ _  N8 q! _! a' X  m/ k2 U) ]9 c3 p
    Cell[BoxData[$ G& o& {7 a1 Z, }
    RowBox[{"C8", "=", "Ca"}]], "Input",
    7 ~0 x, p# K5 q& A6 q+ k0 T CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    + I# y% i' d- z- A" Z( A  3.577921316125*^9, 3.57792141421875*^9}],
    0 l2 ~) e. ^3 s  T- B' W
    * [3 f; p+ p- iCell[BoxData[
    7 M6 {8 K' m1 A, w# }) @) t RowBox[{"{", 8 P0 W5 W: W$ P( H2 k6 s% ?: a' E
      RowBox[{# \- [% K7 D& j1 G. ~  d7 `4 Y
      "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",", + n" l- V! d6 I3 K* c5 T
       "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
    $ y7 E& E$ i0 M  "}"}]], "Output",) K0 Q' ~0 A# D; _* R
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, ! p+ _# K% G/ y/ Y
      3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9, / I5 L  q) X% ?' Y
      3.578012260515625*^9}]
    2 F$ S  _- Y5 L0 A}, Open  ]],$ t9 R9 n0 {/ q' A! r' K
    6 v6 v: K+ H* y$ j  F
    Cell[CellGroupData[{1 i2 y- x' V& g; Y

    5 I, ?/ d5 E+ _5 H# s7 p- `Cell[BoxData[7 q5 J6 L/ `7 C
    RowBox[{"u8", "=", ' U% M0 l( b6 X- K- ^$ ?9 D2 s
      RowBox[{- r8 L6 c0 Y$ [
       RowBox[{"Exp", "[", 3 c: W  n+ F$ i3 ?! s1 ]
        RowBox[{
    , O( A: C* f; w: |* z     RowBox[{) j# h: G' U% D! j) ^) T  u* Y6 X
          RowBox[{"-",
    / d3 Z  T7 G3 Z/ h" }0 B       RowBox[{
    $ M$ q' j9 f* R" V" t        RowBox[{"(", & n0 S2 X/ r& n" D% j
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", , j+ A" g9 m0 n4 ?0 z! t- [- M
            RowBox[{"(", % J3 T3 Y0 B) o4 Y1 g1 Q( R! R# q
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],) a  y& o) q3 r8 c
         "]"}], "/.", "DeltaX"}]}]], "Input",
    ! }0 [7 V) z3 K& K/ S CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, / S: ~. ?# J* ]3 u( s0 e; c' C
      3.57792132028125*^9, 3.577921416921875*^9}]," u6 v3 o& a4 H! @8 P
    - V% u0 [0 ]( v7 T
    Cell[BoxData[& W% E; k5 ]/ w, J7 N
    SuperscriptBox["\[ExponentialE]", 2 |. t1 C$ K3 T0 T
      RowBox[{"3.141592653589793`", " ", 3 _( ~4 ?  d+ `6 _
       RowBox[{"(", 9 s. w2 ?4 d1 u! r/ z
        RowBox[{. T6 ~5 G, G) j: l) Q7 d8 `# H: r
         RowBox[{"-", 1 `1 ?2 |, w& D; X
          SuperscriptBox[* V$ E/ }  ?5 B
           RowBox[{"(", + ^9 u4 C5 A, V4 W, N
            RowBox[{
    : l' F* a: W' U& V  h! {         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
    3 f5 s5 I, ]5 }     SuperscriptBox[
    7 s2 B! ?3 J" O( [; l6 k/ P' a      RowBox[{"(",
    ) ^8 O3 j/ D! w2 m+ y       RowBox[{# m) K, F. N# D  @
            RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", % g: x+ C( I6 Y! y8 C. |
         SuperscriptBox[
    3 A) D. p& A  \9 d5 c! B) ?0 s  x9 n8 F' {5 R      RowBox[{"(",
    * E; R, Y$ z* a3 w& i5 Y5 w       RowBox[{
    ! v) ?- V6 ?" Q/ T+ w- z        RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", # y. ?9 N% G8 @: F! z( K9 ~
         SuperscriptBox[# p2 d" U- r( V" P& _) L+ n- r
          RowBox[{"(", % I, X, q, f3 _# |
           RowBox[{* ~7 j; d2 `7 A% |
            RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-", 6 Q$ ^8 L8 @+ o+ U
         SuperscriptBox[$ |+ x/ s1 E  P2 x3 ?
          RowBox[{"(",
    ' {9 h% w! I3 F" c. Z% d       RowBox[{- `( ]) m: l* r  i& K( K
            RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
    . a  u7 n4 w% _$ a, r6 Y8 K     SuperscriptBox[, T) i1 g# v1 c* K( ^
          RowBox[{"(", # ?* l! z9 R4 b+ Y& h. S6 i, u
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 4 a% G- G8 `3 M" L3 p
         SuperscriptBox[
    * T4 o' A/ i: s0 t/ G      RowBox[{"(", 0 ^) u3 S8 m( V$ P6 a6 r
           RowBox[{
      A; D+ m5 ]. V  c9 ~        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
    4 T% b1 g8 J2 }$ h+ j( A/ w     SuperscriptBox[7 _% B! V1 e, P; h: O
          RowBox[{"(",
    7 h. m' j7 w; d! l: [$ u       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ( h- ^! G* ^4 V+ i  c5 B) \: K* D6 |
         SuperscriptBox[
    2 u8 D* K' Q( k, k: s9 w) e      RowBox[{"(",
    - h0 F# W: w% C       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 6 [( f. b" p. s* e# E
        ")"}]}]]], "Output",
    4 b; p" R3 a- E+ d  L CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    : B4 G+ Y1 d. _2 K: ^4 ~  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
    . u6 U6 w( g" D" h& p  3.5779608945565863`*^9, 3.57801226165625*^9}]4 m  l$ a  l0 @: X
    }, Open  ]],4 u! A/ |1 C/ o+ ]

    * [* ?$ _1 I$ w: g) S% k! z- xCell[CellGroupData[{
    8 G$ T) x' j) s7 {
    & J% }8 {9 H3 N4 B( c( d! `Cell[BoxData[
    ; k5 [+ R+ x) u4 a7 z8 I; s RowBox[{"C9", "=", "Ca"}]], "Input",' B0 x3 J3 V' f% q0 A, ^5 Q( J8 l
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, : M0 r) }/ Y2 i7 B
      3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],
    ( n7 H& o( J0 D0 }
    , a% [2 `# Y; s0 uCell[BoxData[
    % r) ~2 u8 p4 b8 l1 e RowBox[{"{", , f4 [+ {$ n. b
      RowBox[{
    6 J3 m# N6 C( O! f4 H6 b  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
    $ {7 `3 ^. |4 I   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}], 2 m6 J) s  P2 K) ]+ X# @8 l
      "}"}]], "Output",) }" P. l. r0 ?4 F8 c, }
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    - J2 x  b2 B( \" u: M  Y+ R' }  3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9, # d1 N+ S! `# ~# H% t/ X
      3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9, 4 m6 n* R  b2 a* S. J
      3.578012268234375*^9}]) e$ q& U# j; ~9 o$ m; F6 U$ o+ I
    }, Open  ]],
    6 k: H8 `7 Q  i3 l& O2 ^
    - G8 q- u3 Q1 p8 C  l0 N: SCell[CellGroupData[{  g! A- m$ u( g) a' X! K4 k

    6 b* v5 z5 Y7 U0 {7 bCell[BoxData[
    & W" q, ~6 u+ `( T$ c- } RowBox[{"u9", "=",
    ( o; C6 u. m' |' T2 r$ z  RowBox[{
    2 i# l; g/ p% u0 r! L9 A4 `/ [   RowBox[{"Exp", "[", $ c" g9 K1 }. m7 U8 b$ [! [
        RowBox[{8 L0 \# H6 K9 L' z2 a: J6 R
         RowBox[{; C: D9 Z- ^, J0 Q
          RowBox[{"-",
    4 z2 C3 T, ]! l" u, R       RowBox[{
    5 W; r& j' J9 {$ |+ b! C7 {        RowBox[{"(",   a7 v& r2 R3 Y2 m7 ^$ D4 Z
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", / R. O9 d' W  [0 w/ Z
            RowBox[{"(",
    + Y( J; \) {; @( `         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    , c7 G4 l# m3 e. f2 u0 y6 A1 c     "]"}], "/.", "DeltaX"}]}]], "Input",
    ( }9 L( h. P; W! |7 a5 S CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, % g8 m* z3 ~/ k. ^7 g6 B/ S
      3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],
    - ~5 G# n2 c. T  s8 i
      M  f; d* L0 [8 cCell[BoxData[
    # S* X8 D. A, p- P; m  y0 [ SuperscriptBox["\[ExponentialE]", 4 s% u( Z( x" d7 v
      RowBox[{"3.141592653589793`", " ", % @6 s- Z  F9 [, T# `  V
       RowBox[{"(", 1 @$ t$ W# b1 ]' p
        RowBox[{
    : W* D4 ]) N5 a( {8 B4 Q( O; f     RowBox[{"-",
    . b# B1 e/ O) _' j7 Y      SuperscriptBox[4 |5 E0 Y: C9 F  K& F( D" D% i& l
           RowBox[{"(", ' F, i5 d- x* Y; a3 e
            RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
    # J4 i$ g4 m/ e2 }) R     SuperscriptBox[
    % f2 T! _& q$ I, i' W5 v      RowBox[{"(", % R: z! T* z9 G3 Q. V
           RowBox[{/ S! ]) p7 {$ ]* z' v$ ^/ c# [2 g
            RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", # g  o9 D  q9 A( f, N, q
         SuperscriptBox[
    9 O' ?8 @- u  P1 [: @      RowBox[{"(", - r' ^& _5 ]) X2 P1 ]/ d" a( e
           RowBox[{1 N( k9 q8 I  Y4 w7 A: |
            RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    ' t7 n& G$ v+ x: e4 v' f+ ?( K0 \     SuperscriptBox[
    " [( T$ h9 j. ~# O  M0 G9 `      RowBox[{"(",
    * F* P1 f* o9 |. W+ s7 t       RowBox[{
    + j! A) W) h: Z9 M  Y" d; D        RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
    6 l) \" k1 B6 w4 F$ k' U     SuperscriptBox[# \' \/ O& k" w# s/ I# X) P
          RowBox[{"(",
    . c' M3 ^0 B9 M& V2 V9 b) Y       RowBox[{
    * |4 o* C  `( C+ J" D        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", ; N( z) K+ Z  p
         SuperscriptBox[: m. F' m$ W# l& L
          RowBox[{"(", : B0 \" [" M0 S. J% F
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    / q  y9 ^! @; P$ g2 J. T     SuperscriptBox[
    ( U4 Z1 o9 [* I' u& j      RowBox[{"(", & r7 w' d3 s; d" r6 n
           RowBox[{
    ) w, h0 }; r# Q" D- |        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
    8 z) E) q5 w* c5 p$ z0 M     SuperscriptBox[
    5 _/ j9 O4 }& p% `      RowBox[{"(",
    1 d) D5 o! {, m( _4 I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    / `& m" f* \  {* L" b9 G' R/ {7 T; M     SuperscriptBox[0 i: P  S; X  o; t+ \0 I
          RowBox[{"(", " |7 Z$ u3 m/ q. k; Q  ~; r5 y
           RowBox[{: m- v! q8 L: G: ~
            RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],   K; E$ R7 |; n+ \; w  O7 K
        ")"}]}]]], "Output",
    4 Y; {5 k& a  B& ^. R  [ CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    + j) @3 j# s* L! ?$ d  3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
    " K- e/ @8 A, v" S( t- X  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9, 5 Y, W! i5 d( s" z# G5 x
      3.577961530421959*^9, 3.578012269125*^9}]8 G& U, Q6 {9 L6 z( l7 Q4 _  m" O
    }, Open  ]],
    9 U: f; V8 {$ V; A$ E: n
    ! k3 U0 t5 q2 l: E- M2 GCell[CellGroupData[{
    / m& x/ b& [# J7 z9 N+ C9 ]. j. X) {
    $ v) V9 C( N# T7 P4 v; tCell[BoxData[{
    5 E9 a$ o! H  q" ?7 I RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]", 1 A3 [$ Q6 H4 g; R& I1 \
    RowBox[{"u10", "=",
    ) J3 Z- k" u# G: d2 r  RowBox[{
    2 _9 p& s4 @9 R5 J, T4 P   RowBox[{"Exp", "[",
    2 o1 F% e- i! y/ {( Z  W    RowBox[{. y2 G2 n5 s6 T  U+ W* T
         RowBox[{
    7 x7 f% v2 s4 o# ^2 `& H& i      RowBox[{"-",
    : I8 ]; ~& B2 r* X4 i       RowBox[{' c2 \  S9 x$ F. Y8 N0 E
            RowBox[{"(",
    - ]8 B8 L$ v! u" C7 T9 y$ S         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", : `2 M7 i4 \" k/ \. K% S$ y8 g
            RowBox[{"(",
    ! I# y  t8 a+ Y         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],. M1 n( g6 H) B) `# e
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    , |3 |8 J6 u8 Z: K9 w0 B CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],% `  t1 s0 B/ r0 I( I0 \3 k$ Q+ r1 }

    $ l/ E0 S+ P8 N' d0 K& U* ZCell[BoxData[% ]* u) u1 x9 X' U1 f, I: s6 M$ t
    RowBox[{"{",
    * [0 y; i6 D' w0 f: J( y4 q  RowBox[{: h  `! q& @9 C2 Y% c3 P
      "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",", ; o- Z1 u5 }6 L/ k
       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
    3 v: m& b0 d- ]* S CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],+ n  L0 s* @  R  G8 U$ k6 L
    ' @9 t( U% Z8 D. a) p8 ?
    Cell[BoxData[) T2 T; U+ I  s! c9 r8 H3 H5 R
    SuperscriptBox["\[ExponentialE]",
    1 j0 }* F# B" B4 b# t+ }5 F  RowBox[{"3.141592653589793`", " ", * |7 ]3 C, Q  d
       RowBox[{"(", ) }) K: `. S3 q  i. J; C! _+ Q
        RowBox[{0 ?" M2 L4 f0 [7 F1 @0 a
         RowBox[{"-",
    $ N( |' u5 w, h: B/ \+ I      SuperscriptBox[
    : {& k1 A1 |3 [) @! v       RowBox[{"(", 3 B: Z% K% o. y5 e
            RowBox[{+ V* L& a, {( Z, m7 l' C
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    % r/ K4 x+ k- _: X- o1 W. D3 ]     SuperscriptBox[
    & j3 t4 V2 ^/ z; J      RowBox[{"(",
    3 H* q# o$ \8 v/ G* \) D* R       RowBox[{
    ( f  l+ M5 ?0 ~4 }2 f8 x  r0 Y        RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-", . A6 `% P# p: P+ @; {
         SuperscriptBox[7 X1 a. @# Z% n6 B) G: q
          RowBox[{"(",
    ! L' m0 w7 b' U7 t/ t1 }       RowBox[{- ]# x: `! G7 P+ _; ~! w. j5 A( n
            RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
    2 q  ]& E2 Y4 F9 b     SuperscriptBox[. M# S, a( K2 d2 ]/ E+ x
          RowBox[{"(", 6 k2 P: P$ L* B2 v% N5 x' S& t& |
           RowBox[{$ u4 M6 ?/ J& Y5 X
            RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", % b4 U. q9 J; K: ]
         SuperscriptBox[8 q. G4 Y( v6 g- W
          RowBox[{"(",
    " o; I8 a* w# Q$ G: J- {2 k4 w       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
    + o* x8 M: _% B     SuperscriptBox[5 X& j$ [, t/ a% |8 v/ M; V
          RowBox[{"(",   e9 V4 d  @! Y! q
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", / \3 y- L: r. `6 ^( E
         SuperscriptBox[6 ]" o7 s6 {0 f" L' J
          RowBox[{"(",
    , x7 ]' E* {! u( v' h, p       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    , R: M& n9 Z7 h" u" h     SuperscriptBox[. B' g+ p  ]! ~  V1 S
          RowBox[{"(", ( `* h1 E1 ?; r; t  Z" Z/ ]
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", , m6 B( H; L0 ?2 I7 D
         SuperscriptBox[! c5 E0 j/ t$ {1 w% i. a0 P* i
          RowBox[{"(",
    4 R$ T: y) F" x5 Q7 V       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], % I2 J9 i+ \( r5 _1 t
        ")"}]}]]], "Output",
    2 K/ m+ a5 q4 T( N CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]
    , Z! j3 @7 \) i}, Open  ]],, l( G' [9 u6 U- A! `% A5 l
    ) T/ I8 y  a* b- `2 b- _
    Cell[CellGroupData[{
    # l# x/ p$ l* A, O' M- x( O% H, H
    Cell[BoxData[{) `, h9 r  s) s& ~
    RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]",
    ; S& d2 K3 E: O9 U0 v7 w8 d RowBox[{"u11", "=", * E8 N& |1 z+ ~- X
      RowBox[{# V- @* h, l1 f! g2 c* b/ ~/ x
       RowBox[{"Exp", "[", ! a! B$ x/ w6 l1 c% J, b
        RowBox[{
    ' k8 X# P5 Z/ y  E% [. o     RowBox[{; _! v- b0 Y) Z0 u- ^# Z4 U( |; P
          RowBox[{"-", ( O0 w2 B7 a. z0 I+ N, p
           RowBox[{
    & @  G. v- T: z' h# m! l% G: G        RowBox[{"(", 8 _; x1 u; i. z2 J* d3 W$ b1 ]
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 7 ~3 ]& Y' }4 \
            RowBox[{"(",
    - X# g: U! d  E$ V# J: ], g# B         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],% ]- ?, ?- I: F, ?
         "]"}], "/.", "DeltaX"}]}]}], "Input",5 R4 D( I9 U! E- J' b1 U1 {$ c# c- b
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {2 s  c6 R/ m* z6 m
      3.57796154237158*^9, 3.5779615434011817`*^9}}],
    9 G* B0 P1 \2 M: ^! x, v9 s' l; G& ?$ G6 A7 \. S0 L$ J4 u
    Cell[BoxData[  B, r/ {- {9 \- Q$ ^
    RowBox[{"{", ' P$ w# r6 o' H( O" W# y3 @
      RowBox[{. G2 l; ]7 o5 W9 S% M& N
      "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",", 8 P4 E9 [' P8 S) E$ [
       "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], ) D$ r) h2 a' E' w# B4 h6 Y
      "}"}]], "Output",
    9 S5 Q( M: v# R$ l. u6 ]( G7 ~ CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, - \0 |5 x& x; s7 m% Y
      3.57801228203125*^9}],
      i8 t7 C7 w) p; ^9 }
    3 D! C/ q0 I: E. d  p6 vCell[BoxData[
    ) L! X1 X, [7 A SuperscriptBox["\[ExponentialE]", * b! \2 G: l. L, B( ^: D! x
      RowBox[{"3.141592653589793`", " ", 3 _5 X& ?2 r# {+ }5 H8 r* M
       RowBox[{"(",
    $ y+ g+ P% n5 C' B    RowBox[{2 S9 F0 u% l7 W0 d
         RowBox[{"-",
    # k5 a% l* e/ e, v      SuperscriptBox[
    ' ^1 r) ^" c7 b# x' J# f8 i       RowBox[{"(",
    0 s2 U" d2 @6 P3 ^8 ^* a- Q6 c        RowBox[{
    " i5 z, X6 A& M$ r2 ~         RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",   W- [5 l6 @7 O, R1 A/ V8 y! q
         SuperscriptBox[
    2 c# S( l  O& P! v8 F+ ?5 ^      RowBox[{"(",
    . _9 U9 z6 }$ `- J9 T8 J2 S       RowBox[{' u- p4 h! `& X% c
            RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
    0 {/ E8 x! @' W, y  {- h     SuperscriptBox[
    $ ~) H; k; `9 U1 w# a1 |      RowBox[{"(",
    6 n* j$ D9 c" F       RowBox[{+ p% ?* y; o& N( V" t
            RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
    $ W5 I3 g$ u/ [( ^4 x+ W     SuperscriptBox[. s% R+ W! m, D2 E
          RowBox[{"(", ; ]) T4 g. u  [2 p2 E. z! t; [
           RowBox[{3 T* J9 z8 B0 ^* `, G
            RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
    " W4 A; Y: M  S( H" y' s# a     SuperscriptBox[
    3 i( M7 }/ n% x      RowBox[{"(",
    + v; j: Y7 O3 L3 Y# j       RowBox[{
    ; e1 U6 A. I& y2 D0 v' J% |        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-", ) d- ~9 q- d& }3 \
         SuperscriptBox[8 v1 u/ R8 y$ u$ h7 P
          RowBox[{"(", 7 ]/ h# H7 o9 ?+ t$ A. b7 C. @: ~8 j
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    3 u% J) g: |' E9 n  {3 |% Z8 |     SuperscriptBox[
    # P) d! d8 S* \3 R4 t5 j1 B      RowBox[{"(", $ ^" g  z) J5 l  m
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 9 S; a6 d6 k( Q2 I+ ]
         SuperscriptBox[
    " ?0 f) R9 u: o      RowBox[{"(", 4 j2 S( u5 j; ~
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ) L- `4 e/ E6 s" E8 e$ g* Y, B" _# F3 e
         SuperscriptBox[
    : k! f0 \  u3 j7 a8 T( J) H, I      RowBox[{"(", ) E1 i; }" P, O
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], . n# n/ j0 K. p5 V
        ")"}]}]]], "Output",. K' b4 o; I1 F  ^/ `& A3 ]0 v
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    2 A  I; C0 O! W! k) _  3.57801228203125*^9}]2 ?5 l6 z+ ^4 ^9 {' u  K
    }, Open  ]],
    * q/ ]( J4 b& G0 l) r% t, t% C( S& r
    ) S8 u- y  H' f6 R, E( j7 SCell[CellGroupData[{
    " L$ ~: w" ~( V  m, b# F  c: Y5 i% v0 m' v* k5 ?. E* ?
    Cell[BoxData[{
    + o8 Q2 ^9 g2 u# m2 ]$ J/ w* S9 ^ RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
    % r: L# X+ S: E0 x6 s5 X9 M2 e RowBox[{"u12", "=", 2 y+ _- |( g4 x# h, ~$ R
      RowBox[{
    / s# T7 ^3 y, Q+ y/ [  x   RowBox[{"Exp", "[",
    - W+ T# T. s, n  I" k, h. O8 ^    RowBox[{& y: y$ J. o# E4 J5 l" O
         RowBox[{
    2 W1 A! Y' ?/ p6 u) z, a      RowBox[{"-",
    - @- X8 P7 N9 X- K$ b8 p' A& ]       RowBox[{
    / \5 k0 @* {! @0 ?5 u3 l8 c        RowBox[{"(", ' j7 W2 u: h% M: _
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ( B! W+ `" M+ N        RowBox[{"(",
    " e* E( P7 i/ b2 P' E         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],6 K* j+ g& D6 q
         "]"}], "/.", "DeltaX"}]}]}], "Input",( @8 \" z- W9 X3 m2 e1 {2 N
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    & c0 \. M( x* B  ]  3.57796154237158*^9, 3.5779615576284065`*^9}}],* Z7 B7 P4 ?4 R8 G, Q- V

    , B# Q, D" \9 c1 s2 q2 L1 ?Cell[BoxData[
    & A4 t- {$ l4 o5 X1 j9 o( `& G RowBox[{"{", ! h% \+ |8 x8 Q" b
      RowBox[{  y6 N% s* N' k2 r6 `
      "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",", . H9 P5 E3 V2 @: ~, _1 U7 z5 s
       "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],
    - m' Q! k" b8 i* i1 ~! o- f, o  "}"}]], "Output",  g" V: i& }9 U7 g9 R
    CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],$ G- ^+ T) d, n9 d) d

    0 ^1 Y* `# v) N/ tCell[BoxData[  t6 O# S) h* c% ]& j& L
    SuperscriptBox["\[ExponentialE]", ( n+ R0 _( l% t# A  v. U% t
      RowBox[{"3.141592653589793`", " ", 1 p3 }5 b. P+ M4 N" E  {5 A" b
       RowBox[{"(", ! t+ T& k) o1 _- H+ c& j, C2 i
        RowBox[{
    7 K7 B2 T7 F7 e7 d     RowBox[{"-", " ]: q; X0 Y8 _  V4 L
          SuperscriptBox[
    + Z) F" O3 H: i2 R) ?8 h# y  h       RowBox[{"(",
    0 x* k5 w* D+ {0 y0 u        RowBox[{# `' i. Z! L' i2 I3 z: Z9 |- |
             RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", : b8 s6 h: E1 a7 O# {' C
         SuperscriptBox[
    9 C2 v" A: l8 s! Z  P      RowBox[{"(", 5 A1 J6 Y* J: E: ^
           RowBox[{$ k$ f& z3 K' D# ?3 |
            RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
    - i$ y' Z/ Z0 y& ~/ h! W- K' ?: g     SuperscriptBox[7 |$ }( R( x. s* f8 K( ~
          RowBox[{"(",
    , D5 l, X+ j6 w( X+ \       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", ( [6 l: M& B; D8 U' a
         SuperscriptBox[9 c  ^" K/ Q" D& O! N% q# a
          RowBox[{"(",
    # ?7 Z" b- `* \5 C( a9 h       RowBox[{: H6 |& _% [9 u; ]; x- A
            RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
    " i( ?9 u5 q0 |- m     SuperscriptBox[+ A( x5 r/ A2 n$ p
          RowBox[{"(",
    8 H# f1 w# x8 u       RowBox[{
    - H( R6 E3 x* M8 A        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", $ ~- G) ^2 _* E. s! G/ R' F
         SuperscriptBox[
    6 V5 L$ c' T5 w' @      RowBox[{"(",
    6 @- d. K: K3 v" x4 A9 {3 t       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    , U% o+ y! n* _# G     SuperscriptBox[
    4 U4 F7 ^  ~0 S6 u8 ^5 }      RowBox[{"(",
    6 e9 W: p9 d3 O       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", . M5 Z$ C+ A0 J5 P0 t5 B
         SuperscriptBox[9 |0 b  K' t2 y) g" N" @
          RowBox[{"(",
    - s( A  f, Z9 p6 O       RowBox[{: M8 X% r. b0 \
            RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
    & M. p/ |, ^) j  v8 c     SuperscriptBox[
    + X' s5 c/ U4 [$ @/ K      RowBox[{"(", : C1 L: S0 g0 V, n
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    & j! f+ B2 V" ~$ {, r+ W    ")"}]}]]], "Output",4 G4 z- e0 ^8 s9 M! |! r9 X5 w
    CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]
    ! X4 Y: Y% K/ a4 g6 }/ ?( z; z5 ^}, Open  ]],
    7 i1 ^) u' d0 G, b: M+ q7 I. m9 G3 b8 y
    Cell[CellGroupData[{
    8 o' ?2 h4 u& {  W/ [2 ~
    # |. m! i" R  E$ K6 YCell[BoxData[{$ v& {& C  c0 S2 n
    RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
    & _& z8 {4 s+ |2 W  e RowBox[{"u13", "=",
    - z  [: @/ o; d5 t  RowBox[{
    0 {: y% ]- Q2 a, O4 Y   RowBox[{"Exp", "[",
    8 o  ?; M0 C: Z) w6 d    RowBox[{
    8 u6 P2 Q2 ]5 A     RowBox[{
    1 L$ ]# g) i- Z+ H! `6 Q      RowBox[{"-",
    ! r' m! B+ l3 m6 O( d1 x6 I+ \9 D       RowBox[{+ V4 h8 E2 I% p, t  @0 Z/ e
            RowBox[{"(",
    ) _; N; K* z; H         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    " Y- S4 L4 v. s/ `4 A- h        RowBox[{"(", " t' z; p- z* L" }8 R
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],  B* S- ~& h2 m! c
         "]"}], "/.", "DeltaX"}]}]}], "Input",( t- }$ c1 z2 m' h4 ?* A( ^
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {! ]* |( m) @5 i8 d( o1 ~3 x
      3.57796154237158*^9, 3.5779615599684105`*^9}}],
    * a6 e/ T& L& |7 A6 W9 n# c1 S
    % t, t  S& ^9 f. |" ~Cell[BoxData[+ I( {3 g6 ^0 T
    RowBox[{"{", 2 Q0 @- e' v: J7 E! j- [
      RowBox[{
    " \* z1 p+ @: M( `  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
    / z0 o/ R7 I) R   "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
    2 r: Q9 @7 o  Y  "}"}]], "Output",
    - |, Y3 z) M6 W* N CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],
    8 O) F" ]: q" @1 h. w& D: _0 J
    + `4 h* a. O+ l3 p: f' _Cell[BoxData[
    ) E+ \. e9 F6 R; o SuperscriptBox["\[ExponentialE]", * d/ {: m+ ]. l" [& m5 K
      RowBox[{"3.141592653589793`", " ", & y  {, a) W; C' D8 \
       RowBox[{"(",
    1 I; K( q" [" _" W+ u, K    RowBox[{
    6 D! m6 a+ y! a6 C3 F     RowBox[{"-", ) Q+ h7 m- u* S. e/ E" |
          SuperscriptBox[2 _8 C6 i6 _  }0 }2 f/ c# `
           RowBox[{"(",
    8 ~; F1 U- @9 F/ y6 j1 O        RowBox[{
    * B. ^3 r$ X8 u) B, F         RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-", % O/ C  l5 q0 y' [; v2 x8 @2 y9 J
         SuperscriptBox[
    & I/ x! n1 J& l/ n      RowBox[{"(",
    ( L! W5 H2 J8 x, N! w       RowBox[{
    3 @' D4 k! a( F2 _/ @4 _7 D2 R        RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
    8 Y  L3 [5 r' l# [" ]     SuperscriptBox[3 h) p3 b# [, T8 G! R9 [
          RowBox[{"(", 6 H3 b$ ]0 m7 n4 k
           RowBox[{
    ( T" k3 y0 d' h: r# Z5 P4 |        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    * Y3 Q& h0 ?* v     SuperscriptBox[( `! o3 w( E0 Z1 T
          RowBox[{"(",
    % M* A5 ?0 w, I3 n6 n  A0 a7 l6 U       RowBox[{
    3 L6 P, n: g8 p        RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-", ' `, O6 w0 T7 Z) Y
         SuperscriptBox[
    ; \" z8 |/ X& u" v8 z) y7 S      RowBox[{"(", ( l- b" j3 R6 p4 i0 e* U) Z8 u( ^1 L
           RowBox[{3 P/ \% G% f* a0 N
            RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", ! s/ P- g5 e% S- ]' E
         SuperscriptBox[5 b, c0 v0 n* x
          RowBox[{"(", / B! }* i* T5 z3 T/ V
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    0 t/ h, V$ x8 t$ ^7 X: u- d     SuperscriptBox[
    6 r" P; A2 \  L7 L8 P, b& }4 d; F      RowBox[{"(",
    4 u' M+ Q: v+ z8 n: ^9 S( o' e       RowBox[{- ^2 V* ]& e' D3 F
            RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
      w- Q0 J0 F" N  |     SuperscriptBox[
    + a% n8 p  c* u2 C& i) U      RowBox[{"(",
    2 V# I: h3 o* @+ _! X1 y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 0 F2 X3 q* d' q0 K$ Y$ X
         SuperscriptBox[( f  x  w1 `7 `/ r4 r! J
          RowBox[{"(", ( j: q& f4 f: f/ c! Z$ l4 n
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    * E; d7 ^; U3 h2 Y$ d# w    ")"}]}]]], "Output"," c9 ], J, N: Y
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]( z- Q' T- S3 J0 z
    }, Open  ]],
    / r, w+ R4 Y9 M" N! s  o
    + U# J6 A, v3 U. q# e9 WCell[CellGroupData[{
    , {" P4 H& h% q4 R' g+ D: Y
    ; y, F  h# ~7 ^  Q: kCell[BoxData[{: V* F* l% O0 ?* e* v: I! Y
    RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]", " p# `6 U+ H  G! ?# p
    RowBox[{"u14", "=", , y/ |: B) ?: X0 B( ^
      RowBox[{
    + ]# ?/ j' f( N( g  d6 }9 m   RowBox[{"Exp", "[",
    ( W. |" e- ]4 {. Y! Y- h    RowBox[{
    # v" i7 u. d" w* D5 g     RowBox[{5 _. \% \9 M" {) b3 O6 b1 t3 B7 t
          RowBox[{"-",
    / h$ P; h, p8 {& o) x       RowBox[{, ]: B  Q' R* W. `
            RowBox[{"(", ' h% r- U  L2 g9 ]' T
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    , F, L, P( q2 D/ o        RowBox[{"(", % R$ }" N- K& |1 O
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    0 a7 o, \5 f- ^- Z: W8 r     "]"}], "/.", "DeltaX"}]}]}], "Input",
    - J- m# x3 a% |9 ]$ s& k CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    , B) b" v' ]( Q" b6 |& C) c9 A  3.57796154237158*^9, 3.5779615663176217`*^9}}],- ^& P6 g4 E+ b9 r- v
    9 V3 R6 ?. N( F( X: ^  E: R2 d
    Cell[BoxData[
    # x9 @1 H, A0 \) o4 h( p! H1 @5 D RowBox[{"{",
    5 x) h+ M! I* \  i! Q( @- y* w  RowBox[{7 N) [+ k, I, f8 @& Z
      "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", 2 j5 k9 R2 {# |# G
       "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    " Y7 f9 H# ^, g/ g* \2 D0 }# p1 w  "}"}]], "Output",
    ( X9 w8 e" k$ l& w. E, h CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],/ b! {+ E. z: {* B8 m
    : [/ {+ {8 }# ?# z
    Cell[BoxData[& w/ `% [+ |) A4 V
    SuperscriptBox["\[ExponentialE]", 5 I& Q2 p* ], k  C
      RowBox[{"3.141592653589793`", " ", . e" r+ V# N  r% n0 |6 I
       RowBox[{"(",
    + R- [6 S7 C: O: W0 k    RowBox[{& }6 ?8 F1 Z& h8 X" u$ g$ }. J
         RowBox[{"-",
    7 W- [) q+ e$ @: H* @      SuperscriptBox[
    " z) s2 [$ L- O  s: m/ e9 b2 y/ o       RowBox[{"(",
    % q/ ], Q# s% V0 e- ^  [8 A+ t( F        RowBox[{
    5 l# K$ ~# ?; d$ ?5 Z/ l; f         RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ( U4 }6 x* d: l     SuperscriptBox[$ D: u1 r# Z, f4 P7 R& U# M  ]
          RowBox[{"(", ; b5 E5 ~  D& u( X
           RowBox[{
    + }4 Z' }, {7 G9 c$ X        RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", 1 w6 z$ ?* u: C+ F! m, Y  S2 E! v
         SuperscriptBox[
    6 x7 S  i2 T  j3 b, {* p. g! B; ?      RowBox[{"(",
      X$ A& u2 ~$ U; _! [$ O       RowBox[{
    ! @. g. G, S5 a! n& i' a/ B        RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", , x& Z! G8 D7 y
         SuperscriptBox[
    0 v. E" ?* @6 F) i      RowBox[{"(",
      n5 `- K. w" C5 x: q( L       RowBox[{" f9 B; H) t* q# L0 @, }
            RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", 5 @4 n9 O: I5 }
         SuperscriptBox[
    8 W2 G; _) K# z' ?! [3 O5 z      RowBox[{"(", 5 H3 n$ s6 t9 X/ u
           RowBox[{
    , n: ^: Y) R& U+ X9 p1 T        RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-", ! U7 U5 U5 V; R1 |: f
         SuperscriptBox[
    ( G/ x) J: a$ }8 s8 P      RowBox[{"(", 0 N/ a, l3 Q8 y  X0 A
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    " S. w# k! G# f" P     SuperscriptBox[
    * m+ Q0 S/ X& |+ w      RowBox[{"(",
    8 R! R7 L4 y+ L# N7 a, n       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 5 C' B) T! [3 Z# S$ U
         SuperscriptBox[
    4 T; W5 j9 L* J  K& }( g0 S      RowBox[{"(",
    ! P5 X) |5 z* A3 \, c' l+ y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 1 k$ ~6 d  ~1 U& I% c" D5 h4 p2 D* e
         SuperscriptBox[
    ( F+ `2 Z* ]' F! t7 h2 B      RowBox[{"(",
      F9 a* }5 c) [       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    2 J: B- Y1 [* ?% I* y  _2 U    ")"}]}]]], "Output",! U5 E& g6 J( Y, y- t
    CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
    , C) b: D; G1 `, y1 g}, Open  ]],
    & u" e! p/ q0 _! T2 n5 r7 ]/ I
    Cell[CellGroupData[{$ b+ z" r" X6 P8 w, M5 _  P+ F

    ; u/ ^8 g, ?& K. r: t5 YCell[BoxData[{$ J, W6 O* u: G. O' h' ]
    RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]", ) l! X( Z+ n% V: t
    RowBox[{"u15", "=",
    + p# Y% W6 c2 _7 L* f/ n  RowBox[{
    1 O$ e& |% N; q; s' M( k2 C   RowBox[{"Exp", "[", ; f5 S6 r# s, [+ t
        RowBox[{. F, i/ U  i7 D1 K) Q3 f5 B
         RowBox[{
    ) r. l7 |: z/ b2 Q8 c2 ~+ p      RowBox[{"-",
    ; r. t, J0 N/ e4 m% H9 x       RowBox[{+ \8 g/ t- V' \
            RowBox[{"(",
    - X& Z  W: h& M% z1 q         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
      ~. U* x" C7 ?, M# Q; q) B        RowBox[{"(", & `# K' X" L, {! ^4 U
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],7 h9 A) e! H% g( z" w' Y% S: B  D2 E
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    7 S: i( p8 \) h. p8 X1 y CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {' `1 o$ `. x7 T/ B) }% X' l
      3.57796154237158*^9, 3.57796157098203*^9}}],# b6 b' O7 E1 w- k6 }
    + T- b: |( c. d3 F6 e" p/ J/ x
    Cell[BoxData[
    ( h9 {! A7 o) N4 i3 T$ ]. x7 x4 J RowBox[{"{", # N7 |' O# v) ^, _6 ^+ G
      RowBox[{2 f3 x% {7 o& `: l7 k8 W
      "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", ( r# M+ G$ U4 ]" ^2 v4 s# t: l# D
       "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}], 8 z" y2 y; C# _. X3 S2 K3 A
      "}"}]], "Output",# T1 J( ^" ~# U; S2 z$ l7 t" x
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],% |- S9 V% F- F. Z% \

    6 k8 ^' ^! |! c7 L$ _Cell[BoxData[
    8 ^8 a' U8 p+ m% a+ P SuperscriptBox["\[ExponentialE]",
    , f4 F! k# ?6 @' ?' L+ E2 o* {  RowBox[{"3.141592653589793`", " ",
    / |* y# X% c, y, b8 I# c   RowBox[{"(",
    0 C2 n8 @- v: `% \5 R+ t5 {; n    RowBox[{
    ) s8 z  s( B, I% H7 m  i0 {     RowBox[{"-",
    $ j$ ^, X( c& Q/ h/ {! K      SuperscriptBox[
    , G# M: L$ w  l" f       RowBox[{"(",
    ( {& t9 F  q! a! U# ?" i        RowBox[{) o1 e+ Q) h) a, \' ?4 L
             RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", % R5 d! S! x* |3 |9 ~, v
         SuperscriptBox[: k0 A9 n) B3 i. l
          RowBox[{"(",
    3 y& M/ k. E$ b# |6 B/ m       RowBox[{
    4 Z7 w. Q0 {6 Z9 I        RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
    + [! u( e2 _  q& m4 w     SuperscriptBox[7 [& i9 c0 L2 f; Z2 B9 j1 s
          RowBox[{"(",
    ! u" z) b. m$ z' X       RowBox[{
    ' F1 E3 H% Z/ H8 `        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
    & R$ ~" R% Q$ U8 A: |$ W- v0 I1 l     SuperscriptBox[
    8 W/ b9 X! s- y& N# g6 c      RowBox[{"(",
    ) Q# ]" D/ L% F* M& _       RowBox[{; n* G: N- k8 d$ U, M5 s$ [
            RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
    7 t& _3 I4 @1 b) r     SuperscriptBox[! Y/ I: G# I; C" d7 N# E) [& X
          RowBox[{"(",
    . U# v) J. S5 }6 P' E1 ?8 t       RowBox[{$ J& p2 x5 \, `5 }  F- n4 f
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    : V1 T+ \5 q. G& k     SuperscriptBox[
    ) k1 C3 |% ^1 _* r. x      RowBox[{"(", * z) B' n6 C2 j& i/ W& L! O/ w# \
           RowBox[{
    ) G8 }: D% R4 j        RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
    6 P* Z& D& o7 I     SuperscriptBox[
    & X* F8 y9 n& m& B      RowBox[{"(",
    ; B; O$ T1 [! P# F5 B# M) Q       RowBox[{: U0 b" ]5 c$ I$ G
            RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", ! X6 l5 ]5 q, U  O8 ^
         SuperscriptBox[
    9 H, S- S# J. T      RowBox[{"(",
    # C* C! c7 s2 m  f& G+ x       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    1 A/ R+ C8 [, g- ]* Z8 e9 h- ]     SuperscriptBox[( L! E8 ~( `' b5 k8 ~8 ?2 W
          RowBox[{"(",
    & q& x5 Z& ^) Z7 l       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], % F3 \+ _8 h$ k1 C4 D
        ")"}]}]]], "Output",7 N' m" x1 h7 \7 ^& r
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
    ; G1 Q- k7 \# q2 E( z5 v; ~' J}, Open  ]],
    & M7 _7 e5 |5 i1 _3 l
    4 e8 }* X# U8 o7 ?Cell[BoxData[
    + a. _! V4 \6 B5 X" i, D RowBox[{"For", "[", ' X. v( A5 a% t. m" e
      RowBox[{
    $ c" j! R- }# O6 X   RowBox[{"i", "=", "1"}], ",",
    - k7 K: M2 g# x0 R9 w5 m1 C6 k   RowBox[{"i", "\[LessEqual]", "9"}], ",",
    ) w: z( U: _* d! G3 M. l6 k7 D   RowBox[{"i", "++"}], ",",
    $ S& L0 F  S% l1 s) K( p   RowBox[{% Z# ?& ~' e, Q/ R) I0 z$ ?3 `
        RowBox[{"Ca", "[", 8 f2 u) X  k4 @- o  B. y
         RowBox[{"[", "i", "]"}], "]"}], "=",
    - O+ ?! J5 ?8 i3 Z0 B    RowBox[{"CM", "[",
      q4 c3 s' d! @8 e     RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",( l7 ?0 i3 S% Z( S
    CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
    / \8 l( f4 ^" p! _  C
    : M* L. b' h! N3 g' Q4 Z9 vCell[CellGroupData[{
    8 N0 ]+ t; e/ g! l/ N5 r: ?' H; K* x$ v4 P6 y( J- B7 B
    Cell[BoxData[{
    + [6 _1 _7 I. [$ H- P' ^1 c RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",
    - G+ b4 @7 Q2 _7 q1 Y3 X( i6 a RowBox[{"u16", "=",
    ! B5 \# I; x3 K# e% g  RowBox[{
    7 ~6 g3 s4 ?' I5 V   RowBox[{"Exp", "[",
    * ^) A9 r# h" T. o7 }1 D    RowBox[{
    % u! b' x- q/ ?  w! X     RowBox[{0 u; z9 k& _* N) H$ t( H: y
          RowBox[{"-",
    4 n" V. o9 t+ X3 J+ i& R- Z" ~5 d       RowBox[{( C: m1 p: J$ ]' }/ [0 n9 c% h
            RowBox[{"(", * k7 u' l% l: O: f& g& g. E1 {
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    7 c! ?* x# Q% }, p* l        RowBox[{"(",
    5 R9 k  h2 P% ~9 X8 E. D/ r2 ~* a         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    0 \7 |( e+ M( Z; R     "]"}], "/.", "DeltaX"}]}]}], "Input",
    7 o; y& ^8 H% X! }( S CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {# [& m1 J6 ~( w! O* v5 |' h5 u% X' c1 z0 n
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
    ; {3 }7 w# n8 T2 D3 T  3.5779615751004367`*^9}}],2 A% ^6 ~( R* p; a2 D

    ) }. b4 P3 U1 c8 t1 t. ~Cell[BoxData[
    8 f( S* A) F. x2 y7 n RowBox[{"{", + H. H  G* A/ G7 t7 M, g& S
      RowBox[{5 Y; Q1 l$ k' U/ Q/ s0 n
      "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",", ( J* L' I+ h- @* c& N" x* D) W7 V
       "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
    ) a3 U: x% `$ {& T' Z2 i  "}"}]], "Output",
    / P/ Q& T, r% m- [  e5 R- O: E CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],
    ) b& ]4 R; b% D. c/ B
    / p5 i, W) B1 u, i8 ECell[BoxData[
    * y+ w# W8 u( U. | SuperscriptBox["\[ExponentialE]",
    / j6 Y: w$ ^7 q8 r1 ?; z  RowBox[{"3.141592653589793`", " ",
    , i) {3 O8 t. \9 E5 U/ r   RowBox[{"(",
    # _7 [$ N( D4 c, X# o    RowBox[{. U" W& x7 H  A  r
         RowBox[{"-",
    0 L8 z$ i% K3 n* a/ Y      SuperscriptBox[2 i3 b! @3 S: @% ^2 G$ f7 }
           RowBox[{"(",
    ! P) }" \0 s% A+ v  W% `, ~4 \        RowBox[{
    + z& `# }$ m; Y2 l0 Q) u; ^- t/ M         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", 0 B1 t/ e! Z5 P. K7 p1 e2 ~
         SuperscriptBox[$ _0 Y: X' F' b" E- ]8 e6 R# |2 Q
          RowBox[{"(",
    ) b! {3 Q* J7 f- {9 t3 s" G       RowBox[{
    : D# L; c/ c/ Z- P" I  K" S; O        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
    3 v( z+ K* ]6 S; c1 \4 u9 Z     SuperscriptBox[
    2 D3 ]5 I  y: Z  i, _1 k/ ~      RowBox[{"(", ' [$ n) w% B( g2 Z2 L! f% A5 A; _
           RowBox[{
    . W. d  I3 |# m4 z        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", 4 [% d8 w- Q  W- `
         SuperscriptBox[
      B, b2 {7 D2 L      RowBox[{"(",
    : X/ W' K3 f+ H       RowBox[{
    7 @& q9 F" x2 F" }        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", 4 m7 U& z. Z+ }! {: I
         SuperscriptBox[! W( A& F5 f8 _! m# b7 ?: y
          RowBox[{"(", : O. n" Q4 r2 r8 T$ `! R
           RowBox[{
    ( v/ L* d+ J# ^/ P( R        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", 5 Y( k4 k* L$ p
         SuperscriptBox[
    3 f) F$ _; G* Q- C& l      RowBox[{"(",
    1 {1 y( q  f. _       RowBox[{
    6 R! m) `* S& @% P) ~- s        RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
    4 F" f! z, |0 d# V  i6 t6 k8 _     SuperscriptBox[
    & b1 G* q6 d2 w8 S& u# u& ?2 t5 H      RowBox[{"(", 0 l( ]4 r" }1 Q& }
           RowBox[{+ _% p% d3 E3 X: w# b6 s' C5 E
            RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", , ?+ J- `' ?' \0 {+ T
         SuperscriptBox[/ W* W: B( I+ m- A
          RowBox[{"(", / E% l0 o1 ^( ~2 I! j" ^
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    - J, L; q+ K& V9 s# d* s- r     SuperscriptBox[; \) |9 ^/ ~5 G6 \
          RowBox[{"(", . T- B9 q" d1 X2 q( [9 k
           RowBox[{" }( _2 i4 C4 L; i9 G
            RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",
    5 \' W0 q, C5 [% M CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]4 \6 J+ r7 {5 i* _0 N  N% c
    }, Open  ]],& U! \0 A$ p* L# J$ v$ h. U7 S) N

    - u8 z5 @" `( n( wCell[CellGroupData[{
    ) c6 ~6 K0 v) N3 Y" D/ c. m- a: P7 b9 ], |/ P. Q3 W
    Cell[BoxData[{( P- A6 }; K' \, y
    RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]",
    $ q4 k; C9 ?; t5 g9 S  ]  {! H RowBox[{"u17", "=", 4 ~5 a7 \/ z8 j- l
      RowBox[{" G; Q+ W$ b4 |
       RowBox[{"Exp", "[",
    + w. t1 f1 W: J* `1 l5 c. {% t    RowBox[{3 ^8 l' P& [8 i* t: _
         RowBox[{
    ( o* r# X! O" q& s' ^$ }      RowBox[{"-", ( I& |% p, q& ~. U; j
           RowBox[{0 X8 J: f7 S# Y6 b4 U
            RowBox[{"(", 3 P' _( v0 `" w" V& \  @
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    4 g3 S7 x/ ?, Z) y, M        RowBox[{"(",
    % X& S% V, P; n' x& \/ Y; }         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    , v* `; p$ @$ p5 d; f     "]"}], "/.", "DeltaX"}]}]}], "Input",- W6 l* z; H$ y- W3 c  ~1 ]
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {# t' x( m5 e6 t/ P! z
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9, 8 a9 r' ?8 Z/ ^: d; M; k2 }( k
      3.577961578953644*^9}}],
    & x2 T" e6 J- M7 _8 z+ ]: B) _* ^( n, z- h+ \, f
    Cell[BoxData[" {0 X- g; E( ~6 f- R7 G
    RowBox[{"{", 3 L  y$ Z2 N, v, z8 t' m% Q
      RowBox[{* w8 x) U9 G1 ?: p. ~
      "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", . g& D/ G8 y3 i- Q' b& l
       "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}], # p  g1 b) _9 C. ?
      "}"}]], "Output",6 U0 k1 w/ ^" G6 W! A0 M8 k
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
    ; S* `, s$ `  j+ d$ W. R1 z5 q( R: t5 |+ g0 \8 ]) m# ]
    Cell[BoxData[
    0 t% F' S2 f- Q SuperscriptBox["\[ExponentialE]", 0 W' {5 o9 A3 J5 h" N
      RowBox[{"3.141592653589793`", " ", 4 z  y- h! X' z2 V
       RowBox[{"(",
    . @  o" Y  T# D& O3 A9 V+ X8 K    RowBox[{
    5 _7 i' q. \5 W$ E* x9 T     RowBox[{"-",
    4 w9 ^% L  \6 y      SuperscriptBox[
    6 e9 F+ V) y8 _; m' x% O: \       RowBox[{"(", 7 r$ H% }3 ?. Y, F% C# Z
            RowBox[{" R5 ?8 [& e9 E$ Z) J* ^
             RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ! [3 j; L8 g# p7 ]) s- Y     SuperscriptBox[0 j' n# B. U- [
          RowBox[{"(",
    3 s, l. z% f4 f) d* J" K+ z       RowBox[{5 n0 Z% B# o* |8 z1 e# P
            RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", 9 O5 P: x# S7 z* n. U
         SuperscriptBox[! \( l0 I9 {2 b! `5 k8 O
          RowBox[{"(",
    * q2 V+ R, c. W$ X, H0 Z5 F       RowBox[{
    1 O  N/ j6 `' B" e. u        RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
    0 d8 k) g0 x- U& K6 F, m7 _* i     SuperscriptBox[
    ( P6 a4 a  i  m+ @3 c" B+ C4 r      RowBox[{"(", 9 D' N" E6 l: g; H; Y0 l( s7 D/ W
           RowBox[{
    ! o5 v' Z) B. Q% J2 Z        RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
    ; G+ X9 D- T9 g" h3 f/ j( [     SuperscriptBox[% }8 M! f& D; s: D. H5 D4 ]# U
          RowBox[{"(",
    5 l( M9 W4 W0 p) y       RowBox[{
    4 U1 }; t0 C: U        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
      v0 z, D! G5 u) u: b/ U2 l% i! _     SuperscriptBox[
    2 c& \4 U( ]. i7 f# \      RowBox[{"(", % p, U7 b2 Z; G) Z4 \1 c
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    - @' O/ J+ @, U, f% F0 b" T8 @     SuperscriptBox[* h! c8 f& B8 m& y5 @# R
          RowBox[{"(", / i# K$ M9 j8 k# z" B6 L$ g
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ! M- ?0 \' R$ D, A! j9 U
         SuperscriptBox[
    9 T$ ^( V3 h9 J6 C0 Q      RowBox[{"(",
    , F/ u( \1 Y9 X# b& S       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    % E2 h- w& K+ Z6 a( A& X) W$ U     SuperscriptBox[+ _& j0 d7 x4 Q) u6 X- b# ^: |$ H
          RowBox[{"(", . G' ]0 M2 D; p; }
           RowBox[{
    ) G/ L3 h* w. k% |3 U        RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}],
    + c$ b" M4 S9 ]    ")"}]}]]], "Output",! q0 A7 F3 Z/ \/ X$ R9 ~0 D0 I
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
    ( P1 i3 ?/ N0 f) H}, Open  ]],
    : g7 o# p8 |6 Q$ v2 L* c
    2 Q8 g" s! I, T6 B2 l" v1 MCell[CellGroupData[{7 ?$ S  r9 [! J$ B% R7 O

    * o+ |) ^- v( A1 TCell[BoxData[{
    ! y4 w8 \' P+ V) Q' v: ` RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]",
    1 F1 h* o  s7 r8 I/ M3 n: Z RowBox[{"u18", "=",
    $ f+ k/ G: h) v  B9 d4 a  Q  RowBox[{+ H& L( b! o8 z  u  [( D. L7 ~' ]
       RowBox[{"Exp", "[",
    5 Q" v. v2 t- k1 y    RowBox[{. i; g& I+ c3 s
         RowBox[{$ K) m' Q2 H. ?+ C
          RowBox[{"-",
    / u7 X, D' a& D9 E       RowBox[{
      V( K* [6 }; q: m. i        RowBox[{"(", - J5 g3 U) _" k9 l
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", % h: S6 v9 H3 h$ a7 l' g1 D
            RowBox[{"(", . E0 ]8 a# N; s
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    # a( C# }# \/ R. y     "]"}], "/.", "DeltaX"}]}]}], "Input",
    , k1 R, d0 l1 O1 R0 N  ?9 f! s CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {) h6 ?$ y1 t7 H
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
    9 s3 Z4 x* r: D) Q# `# y9 Q' Y. n  3.5779615828848505`*^9}}],8 b6 }, `( V& D, Y1 H
    , @& [+ [4 r' ~/ o/ W9 @; W
    Cell[BoxData[
    2 L$ E6 ]5 V* }7 c RowBox[{"{", ( H, h* L! t& U2 |! \- y2 p; ~  K
      RowBox[{0 @! F1 B: ^& Z. @. Q; j
      "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", 6 I" ~* o* {* ^
       "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 6 i0 L$ D; B  `& B! z  I$ k+ _( S
      "}"}]], "Output",. ^6 |, l* O) m( T( r" y
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
    ( h% P  {& L3 E7 C( s2 Y: j) y5 G! M) Z' r$ n' v
    Cell[BoxData[# J" @2 n- ]5 C) Q+ T! ^7 |; u
    SuperscriptBox["\[ExponentialE]", $ v  Q) O6 H, v& M' {. P" B9 a$ e) r, y
      RowBox[{"3.141592653589793`", " ", 2 z( T+ l8 ?9 j" h5 \: U# U; C
       RowBox[{"(",
    & `. @: K' m( K( n9 B( d: i    RowBox[{
    % J5 v2 m6 N& F' _1 x     RowBox[{"-", & ^( m$ T% W3 c' a, H# m6 c" d
          SuperscriptBox[4 _2 @0 r8 J) G! G$ _1 o" n
           RowBox[{"(",
    9 @; H' v$ L; m4 b        RowBox[{
    ' I: t# H8 m# L         RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", # f* L6 d; K; Z) c2 z; x
         SuperscriptBox[
    7 d, f# n6 [0 E1 V8 ?1 j      RowBox[{"(",
    ' J* V' X( R7 |5 S3 W       RowBox[{
    % N/ H" M$ x- w6 x6 N; I( l        RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
    6 e2 O4 {9 T6 Y$ |     SuperscriptBox[+ O3 k$ O) v9 S) A
          RowBox[{"(", 9 s. E6 Y4 r  u+ \$ l7 U* o& e
           RowBox[{
    & @2 g/ {/ D1 ^, n& Q        RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", 2 ]7 P7 g  A$ d# X4 R6 C  i
         SuperscriptBox[
    2 i* A6 A1 J6 Y& V      RowBox[{"(",
    " H0 k4 B- g9 B6 t       RowBox[{
    ( L) I4 p( \$ w        RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", % \; i' A* @& E3 S
         SuperscriptBox[4 U9 `) d/ d/ ~  ?0 q4 i
          RowBox[{"(", 6 R, v& f" w2 J* l2 h
           RowBox[{7 f# i- H* i  t7 d; Z
            RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", ) x' `/ e; w$ }5 j& o" |
         SuperscriptBox[0 P% m. z! A# O5 ?7 A1 k; c
          RowBox[{"(",
    8 n2 E0 }+ J( v/ Y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ' x( r+ Y: F2 A6 }0 q  J6 {! W
         SuperscriptBox[6 Y$ n9 Q( A- z4 ~5 g8 _/ x7 A
          RowBox[{"(", & O$ s7 o3 S$ j: q! ]
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    9 v) i" M, ]8 t6 O; A4 L6 W  b. h     SuperscriptBox[* t: d" Q, r, a4 S3 x- O
          RowBox[{"(", 1 J/ r: j  o) }8 A; K2 t, S
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    . A  t6 ^5 n9 F& C6 a8 F     SuperscriptBox[' t; T- o4 O" H4 [3 T2 O& Z9 {' A. |
          RowBox[{"(",
    4 ]4 o0 a8 c' p+ I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    / G. }+ X7 a- M! n# i$ V    ")"}]}]]], "Output",+ A% A/ ~: B; ~! t! M
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]
    " q5 m5 N5 ~* B}, Open  ]],+ c$ g" L9 Z4 s3 @

    6 `' A( L' D2 c" VCell[CellGroupData[{5 t$ \' \" U5 p
      n  K& f3 F/ b* v5 x; U& `
    Cell[BoxData[{0 p2 s. j3 }+ p9 i
    RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
    ' P2 a8 M3 _( K1 f- F* @ RowBox[{"u19", "=",
    2 L# w* j" b3 S3 w) _  RowBox[{8 G+ j( W- M2 J) j5 j( i0 ~( j
       RowBox[{"Exp", "[",
    # v% ~8 q; r4 X% M    RowBox[{( B; s# y4 _2 ]2 T# B
         RowBox[{
    " }3 K1 ~# M- f4 \3 ^. G      RowBox[{"-", / e* B4 D+ `0 ]9 j" r
           RowBox[{0 p3 z) i5 C4 B
            RowBox[{"(", ) C% V! U* e9 d/ R: l8 b& e
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    , Q' `4 @* C7 `; h1 G2 {* b5 o        RowBox[{"(", ( z; ?! [3 p% ~
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],5 M) j- M6 b8 u! Q8 c' Q+ q
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    ( O: X& R  S$ y$ J. q CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    8 E8 u. V% w5 g- ~' j# v, |  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, : n0 e( F+ C8 _4 h
      3.577961588890861*^9}}],5 |0 i0 ?1 \: f+ D8 a0 b
    + X% |2 m& s0 U2 D- U
    Cell[BoxData[
    / d' q0 z* O+ [# c. n8 F0 S RowBox[{"{",
    6 j; g9 a' R5 l% _  RowBox[{
    8 b# M3 S4 d. m" m( U% o  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
    ( {8 D) z9 ?) o4 L# H   "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}], - ]+ `: c; c% F2 n  D1 u
      "}"}]], "Output",
    ) ]- u" ^) u1 p% U CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],5 }3 z0 l1 j/ r6 e6 l1 \
    - [; ~: I" B4 K. w
    Cell[BoxData[3 U" Y# ]8 r  L5 E
    SuperscriptBox["\[ExponentialE]", ' |  b' {# D* E# [# F+ Z
      RowBox[{"3.141592653589793`", " ", / L, ^( G9 j2 d& ^6 |
       RowBox[{"(", * |8 \, N  m/ }$ N
        RowBox[{
    . \% w# K; T+ S, J  Q2 n& y/ K" y     RowBox[{"-",
    . o" q5 ]% C; S% ]2 j4 p( i3 g. j6 _      SuperscriptBox[
    , V& v0 L2 O" L( i' }       RowBox[{"(", ( {0 N! \, g% J" }4 k( W
            RowBox[{
    / h! }; K. o+ z         RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", 5 X* E% {- C# ^
         SuperscriptBox[1 ]3 L6 U! G5 J( c" E
          RowBox[{"(",
    0 j$ p" L& |, R9 H2 W7 n       RowBox[{
    1 \# b8 T5 L) P# @9 }+ h% j- ]        RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", 6 B. c5 ?+ V4 g) s& D
         SuperscriptBox[
    7 r. ~+ @+ i9 s7 @' N: }      RowBox[{"(", 8 S% b- A$ W9 P# P0 m% \
           RowBox[{8 b7 `% }$ ~+ M4 C
            RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", 3 i2 ?  `: F5 @4 {- u/ N+ m
         SuperscriptBox[
    3 c7 ?# w. k3 Q" {2 D* k1 p2 G      RowBox[{"(",
    8 K" ]4 k! S' g: c8 R/ X       RowBox[{8 p) Z  {2 E) {! r* K4 d( O$ m3 C4 \
            RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
    % X! o, o6 ^# W: J     SuperscriptBox[
    ; x5 B* M5 S7 H* T2 i      RowBox[{"(",
    0 A: \, a/ v. A3 j       RowBox[{
    8 ?) O+ `  q$ s/ e6 T& D& o        RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-", * n. G0 [' p+ q6 Y% Z& M' A2 e
         SuperscriptBox[
    - K! x" N7 E4 |$ z7 u      RowBox[{"(",
    ! ]9 b5 d5 q2 _8 o" ?8 A       RowBox[{
    2 [" x' K$ |) v7 L0 s8 z. d( x5 c        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", 4 `9 c% c# X' I6 f" `/ M$ f
         SuperscriptBox[1 a/ v+ i: e* d
          RowBox[{"(",
    + A/ T1 y  w! T1 N7 R* ~7 v       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    0 \/ S% D3 c5 G9 E! Y     SuperscriptBox[1 `, F9 S* M& O
          RowBox[{"(",
    7 M& \1 \+ L( C3 }# @# b! W       RowBox[{
    ) {1 ]( Y8 ^8 Z2 E$ J( W# A0 n        RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", ; z3 a1 J5 l3 w( q/ I2 X- y
         SuperscriptBox[; @) z9 J5 E( J  V+ {, B
          RowBox[{"(",
    * ~# B# [* g1 C       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    5 K5 L9 |2 G; Z5 J$ L    ")"}]}]]], "Output",
    ) Q! S5 K! Q5 X: |. F) I" \6 } CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
    ! L4 N# ~) A. ?4 D}, Open  ]],
    3 o( d# B6 p- k" l3 @, Z) J! y7 Y
    ; J" y! w. E* r% T9 U0 `3 [' M" YCell[CellGroupData[{  W0 R+ e' p% w
    6 A4 D, p0 K* c
    Cell[BoxData[{3 w! d5 m# x- E( X
    RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]", & t% Z$ [$ E; o
    RowBox[{"u20", "=", : s' w" n# Q, B5 r. K; a7 A
      RowBox[{
    ! s1 N6 o! ^$ ]5 L   RowBox[{"Exp", "[", * ]; G' y/ {# w6 W0 @2 A0 E! `  [
        RowBox[{
    5 {( ]. P. P; c' E  [3 T) j3 j     RowBox[{
    + u) K6 I- U( ^' F) L; |      RowBox[{"-",
    7 f6 j) R; k6 x4 o4 [# l       RowBox[{
    - v& q/ B" R& z" u1 [1 \3 v" |        RowBox[{"(",
    5 E0 N: I% c( @1 G         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 8 p; I( _" U% k6 p
            RowBox[{"(", ; U0 ~9 T8 \6 l/ v' @! s9 t. G- S
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    5 M  ^* u0 o  b     "]"}], "/.", "DeltaX"}]}]}], "Input",
    ( h# V0 O. n* o+ J" R CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ( l7 s5 Z3 ]8 g/ R! p  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
    8 G* A6 Z6 A9 s) ?5 l. L  3.57796159382047*^9}}],& E8 Y( o, a' B! @% y
    * t) }+ P7 Y$ }8 n2 a2 Z" ^9 g
    Cell[BoxData[- |5 z3 L5 A- j) _
    RowBox[{"{",
    , l0 m& O* u, O& ~1 i+ `  RowBox[{) e& F+ A: ]( J' u, R% E+ s* r
      "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",", # g) N# z5 m6 }" _& R  a7 Q: B
       "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
    " c' P6 v6 E$ Z9 Z/ {  "}"}]], "Output",, ?3 `6 `" }, F. J) q
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],
    7 e) h( O- u2 C) Q: G' [8 {5 D9 C! G, q. M+ U
    Cell[BoxData[# V  H2 W/ U& d! S. d- w) S6 q
    SuperscriptBox["\[ExponentialE]", , J/ r& |8 F# J! {
      RowBox[{"3.141592653589793`", " ",
    % M0 o; B4 @* S( ?! p9 _1 K( M   RowBox[{"(",
    . Q  Y" p6 p+ [' y    RowBox[{
    ( h9 {% ^" {1 m7 Y& |, X     RowBox[{"-", / p$ n" L9 J/ _# C
          SuperscriptBox[: B* N% P3 f0 w4 ?( e$ }
           RowBox[{"(", ! M0 b5 F5 J: O* j% e1 H
            RowBox[{2 a& {7 P3 m! {, D* @" ?  o
             RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
      B$ T% u- O4 P( P     SuperscriptBox[9 r  z- ?$ a% e0 p
          RowBox[{"(",
    ) ?# c& R# ?  o  f! T: v       RowBox[{* l9 q; Z, m: l! a
            RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
    0 l% ^8 T9 M* L; Z     SuperscriptBox[
    1 J8 U# |+ F4 l4 I      RowBox[{"(", % `$ ?; a# e# I5 z+ `; U5 R
           RowBox[{0 r7 Y! c" `  `& }5 |$ s6 z
            RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", - j6 H, d" ?5 u- i) j4 D
         SuperscriptBox[
    . `0 |+ B! y- c      RowBox[{"(", ! \' q' P1 r; Y
           RowBox[{
    9 q6 m* l; U+ Q4 D8 o/ q        RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
    9 B& T0 h& o1 b1 _. R7 t/ k     SuperscriptBox[6 z. u/ w6 A3 ^5 M
          RowBox[{"(", 6 p3 O& v$ H8 [+ k) G
           RowBox[{
    1 X; `+ v2 L+ o9 m$ k2 `        RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
    % b4 L8 ^; r& Q& o     SuperscriptBox[  n$ f2 r* @  k# v  }: ~# U" e! m! S
          RowBox[{"(", : o8 W" S) t1 A0 g, D; v3 s- _6 g
           RowBox[{/ v2 x2 h( Q- f9 l
            RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    / `7 ]0 r* M) V) Q5 d     SuperscriptBox[7 P  h* E& j3 i4 F0 z6 T
          RowBox[{"(", 2 E, m6 B2 D& x7 u' z2 W
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", : T5 d  u. i8 `0 F' o/ M& a
         SuperscriptBox[/ q3 N# ^7 I3 r6 }& v4 C3 K  B
          RowBox[{"(",
    8 G' ~6 S& Q! g# j6 U' d       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", " j% f# [+ y( ^+ `
         SuperscriptBox[
    ) o' @+ m( W# x* j. j8 I      RowBox[{"(", & b  \$ N3 k  T; g; N
           RowBox[{) M! z- M% v3 }* N/ N
            RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}],
    - K9 N5 m- Z- T4 B    ")"}]}]]], "Output"," {% b9 h9 b3 Q& W; i& T/ g1 K( B' R
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]# \: ^( b6 Y" T! D: R  B6 S! `
    }, Open  ]],
    ) F5 V9 m  O9 q
    . h) B  z" I8 e2 s: \$ R( n# ]Cell[CellGroupData[{; }. |7 `+ e* i4 c2 ?) `; b4 i

    - Z; {; j" d, P2 o8 L9 `Cell[BoxData[{
    % [% z- ?. }5 A$ H RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
    3 e+ C; a& M8 V1 I" ?' V RowBox[{"u21", "=", " W) U& J" M, I
      RowBox[{
    . L% E' m8 c1 x  i  R+ @   RowBox[{"Exp", "[",
    . H# F+ r* x2 h+ }7 C$ I4 }  K    RowBox[{, q/ z& P2 ^* r7 w- X8 ^5 G
         RowBox[{6 z. D# K* l- a, D4 J
          RowBox[{"-", 2 k6 c- T/ ~# V  i' }7 Y, M
           RowBox[{2 y$ k3 n& A- x% Q- G( }# H4 X
            RowBox[{"(", 3 r. u7 k; a; ?/ j) J1 q
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    5 [8 ^( c( e+ U9 M        RowBox[{"(", # v& w9 |2 v4 s/ S0 }2 o- o$ K
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],' k9 d) D+ a  ?. X. S7 A
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    . [# G( b& P* ] CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ( S6 V/ F# U8 i, h  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
    3 E; F9 U- r" W$ D- ?) i4 `' c  3.5779615991556787`*^9}}],: }/ ^' u2 w, T* J$ J

    - C* x; r: t3 x' d4 k  ~Cell[BoxData[9 f' }/ I" l7 a
    RowBox[{"{", - J; |' _  n" t
      RowBox[{2 P; X/ v2 ?  U
      "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
    $ W0 J- L- q. a  R2 V+ T   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}],
    # d4 a' O+ r: y/ r  @- z1 ^  "}"}]], "Output",% J! N. i$ n, }9 j/ i
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],
    ) s% C- W) G0 @+ n" Q1 U! g7 U+ L" m
    " x: Y! S( s( _( zCell[BoxData[9 g# D8 v# J# l2 A4 W% M3 k
    SuperscriptBox["\[ExponentialE]",
      c) ~/ Y! y. E0 w! _3 y  RowBox[{"3.141592653589793`", " ", ' o7 t+ u7 k( e: m4 x
       RowBox[{"(", 4 V$ i2 {; j) B0 H, I# _
        RowBox[{( E0 n9 g& k% A$ q/ l
         RowBox[{"-",
    3 X/ m! q' Q+ x      SuperscriptBox[: w8 l' A2 w- c, S9 ]( B) ?: b
           RowBox[{"(", ! [3 w: L) [) }& S0 t
            RowBox[{
    ! `# N: e; c  J+ \) u. J         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", * s  L8 b! V! R$ ^, h
         SuperscriptBox[# O/ t0 Z' D4 g; M
          RowBox[{"(", 3 F2 }2 ]5 V$ C; V$ z- E% t
           RowBox[{$ z7 T) H5 C( V; T* k- L. y3 W
            RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
    0 t2 I  b& ]+ o     SuperscriptBox[
    ; t5 w8 L  t/ @! A4 [      RowBox[{"(",
    , u, G2 ?, i$ Y7 u       RowBox[{
    2 x  t! M, @; p% p& m4 l        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
    1 d& t% x, p! S* U1 z     SuperscriptBox[
    ) G# M  W' X( ?* [9 I. F. }- o      RowBox[{"(", 5 O  E- o- }5 f5 y1 Y# Q
           RowBox[{
    ; P, n: ]. V8 S9 o& V# P        RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
    5 n7 L9 N" k1 {9 ]2 D     SuperscriptBox[
    ' ?, `" e! Y& S9 d+ v' m      RowBox[{"(",
    . b/ P6 ]- A7 w3 R       RowBox[{2 H. S0 c- d# j3 {* ~
            RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", # d) k9 d1 Q  T$ U) C
         SuperscriptBox[
    7 J* o  [! t# Q+ I/ x4 I      RowBox[{"(", - S; T: O, R# N* u  H9 X0 x9 ~
           RowBox[{8 H9 k, O% h+ L. q% N) w  w
            RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    . ~( H1 t( l8 f: k/ B: G     SuperscriptBox[9 e( M1 `* w& v' p- a' g
          RowBox[{"(",
    ! z4 [" ~- m  h; _! a! s6 I; {       RowBox[{; \4 `) m. V- [: B0 ^
            RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
    9 g/ I& r; w6 Q  F- P  _  U     SuperscriptBox[
    8 d4 K: i% u( C8 p* D      RowBox[{"(",
    ; Y& Q5 r$ u; V! X/ h" q2 p/ S; m       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    2 P/ c5 v2 V) o; K/ e" k$ Y     SuperscriptBox[5 G" W+ z2 ^* t. v
          RowBox[{"(", 8 `- L2 p2 r6 k% p3 V3 Z3 C8 M
           RowBox[{$ Q& N/ Q5 Y* D8 U
            RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
    ; g2 t  d9 B% O, F( W    ")"}]}]]], "Output",  A1 y' t% c, z' n. t
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]. T: r) T) N* ?. |
    }, Open  ]],/ H  y7 @- j# C4 I8 C3 ]% n: S

    - I- X: z" G9 F0 bCell[BoxData["\:62df\:5408wi"], "Input",4 r) s+ ]+ T( U/ G4 P
    CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],) R% }- [7 z/ L0 P8 a% n
    ) d1 I% _) ?  B, U8 }
    Cell[CellGroupData[{
    ! f: {: @+ y7 e; f2 D/ j$ h9 c* t/ \
    Cell[BoxData[
    / v( O; G- W" ^0 e- k RowBox[{"y1a", "=", # `/ Z' n3 ^2 I' g5 M
      RowBox[{"Table", "[", % T- _( k! Q6 K* ]% D" S% b. s3 w
       RowBox[{"x", ",",
    ; r% z# [1 T/ @2 i$ Y" y' n8 a    RowBox[{"{", 3 m: @3 m; _. c# q8 d( ]  E
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    ' b" T# g$ S; y CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {8 f3 T% N/ X  k# u$ z4 ^
      3.5779226649375*^9, 3.5779226810625*^9}}],
    & v/ w- z9 f0 K0 r& T) J( G/ u5 A' B
    Cell[BoxData[; f% x- G3 _+ `, `4 o
    RowBox[{"{",
    ! ^6 ^4 @$ ~4 C  RowBox[{
    . Q) _) Y5 G; y( Z' V6 Q  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    # R& x1 i$ ]% ]( V8 w4 V3 {   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    ; j3 W8 W% A/ J1 T  b# \    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 5 {) }2 l+ o6 r: x
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    ) B+ R! Z. ^% O3 ]7 }! v; K   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", : j. j3 }2 U9 x7 f) R7 d
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    $ v2 u1 K- ?. p6 S6 d  X5 N& j0 \: M5 g* [+ `   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    & A$ Q2 w. g! r- S   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    / J3 Q5 v+ s; z0 K   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], 4 B  k7 ^+ u" {& B8 r
      "}"}]], "Output",
    2 g# q4 z! }- B CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9, 4 j% B+ a4 r+ M7 D; f
      3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]) R7 R3 V8 y3 @+ R& a2 V$ y
    }, Open  ]],5 _! H% r6 L2 A) F' z& }' k

    & o" H$ {4 o# dCell[CellGroupData[{4 F7 ^% j7 p# ?1 c/ w0 D4 G
    2 |% ~3 _+ H3 D# R# I
    Cell[BoxData[" P/ _4 e- o  x/ Q1 O  m7 e0 S
    RowBox[{"Data", "[",
    2 E7 i& A. |$ t  RowBox[{"[",
    ) L1 K' N! i; S8 n# K- {   RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",
    8 N/ n. V9 H( t( L& _ CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {( Y7 K1 ]2 R5 B, h2 L
       3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],! p! E+ K: f! H( C) q2 K& Y0 @

    , J) Z( E: B, o* [, _Cell[BoxData["0.899882`"], "Output",
    % z. X8 v0 u0 @: a& H! a4 ^" k CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
    : ]2 J5 O. k# J7 F" [  O$ q% x   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9, # F$ }# [; X0 c1 n: k# z
       3.577961929080654*^9, 3.5780123419375*^9}]; b. L3 g0 Y6 }6 S1 d& T( Q
    }, Open  ]],& \/ _, x8 e3 \$ U* X
    4 D" J, \" k9 J* ?+ L, W; T* C
    Cell[BoxData[5 A, \. t+ X5 ?8 t0 A- d
    RowBox[{"For", "[",
    & u/ w* ?% J& Y2 a' \  RowBox[{
    $ _( l* m; K2 t3 m" Q( @9 P   RowBox[{"i", "=", "1"}], ",",
    * R, X/ X* Y1 @0 K: }) ?. h   RowBox[{"i", "\[LessEqual]", "60"}], ",",
    ) h4 l* A! N9 g9 k" T; T- B   RowBox[{"i", "++"}], ",", ! X3 p) H! _  T( n2 S
       RowBox[{2 W* n1 w, J( c3 G" u, f5 x
        RowBox[{"y1a", "[", ! [3 v- G' @# E( u
         RowBox[{"[", "i", "]"}], "]"}], "=",
    ! X) Y3 J3 u' _" d$ I    RowBox[{"Data", "[",
    5 n# i8 b1 T4 Q: }* ~     RowBox[{"[", 6 p- {6 \. s4 b: L/ T+ o7 J
          RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
    ! I; p  W8 ~2 H% v; J. t4 W9 g CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {# T3 D( g( ~7 B9 S
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    . m" p7 u6 D& m   3.577922923203125*^9}, 3.5779588839702806`*^9}],0 v4 _5 d6 ~* G8 i5 F; i

    " ~% R4 H" t- C' d6 _" lCell[CellGroupData[{
    & i7 n& w' U$ D- K+ R( m! f8 W; ?+ I! z& {* ~& R
    Cell[BoxData["y1a"], "Input",
    5 P" Q+ Y- i1 `5 q1 |  k# E CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],; v& G8 Q  w7 P# k+ d$ }2 |9 h
    + u; t3 ~0 F4 v/ }  I2 ^( p& C
    Cell[BoxData[( V0 ]% Q4 ~, l2 W/ ?
    RowBox[{"{",
    0 D0 v$ B1 v! D" A& Y7 x3 p' [  RowBox[{0 r6 b0 g& U: U5 E
      "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",", 8 X* m: A+ Y  V* E- Y0 ~; L4 C
       "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",", 8 H& {) B0 X7 j+ _6 _
       "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",", ( U+ b% J0 ~  T# ?/ ~
       "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",", 1 a* J( k3 u% P, ~! h4 ]6 t
       "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",", $ X% Y! \  [$ ~% @, k
       "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",", ! u' P% ]& V2 y1 e0 T
       "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
    5 N0 q7 L- B3 K" r) H   "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",",
    # i. @( t3 F! N# _  F# }   "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",",
    / ?) p, _! ^8 P1 `+ t+ {   "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",
    6 }" [' R2 K$ {   "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",",
    . I8 v" v4 W+ u. Z" \   "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",", 1 O7 V8 c0 I0 W& L
       "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",", 8 t) ?* z! i, Q& o8 |0 r; _5 c0 M
       "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",",
    / h1 |. a! c* t9 j2 u   "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}], - S  O$ Y& |) V+ ?& Z
      "}"}]], "Output",
    , I2 N8 P+ k  d; e CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9, 9 F5 i' v/ @, I9 h" c
      3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]0 H( b5 k9 A+ Z6 e
    }, Open  ]],+ l0 M  W8 ?0 M0 s: V

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

    & V* w1 T( b6 M1 w. v7 e3 sCell[BoxData[
    % g# f4 N% D" l. f* W7 ?4 E! d RowBox[{"y1fit", "=", # R  S# V7 B" k! t
      RowBox[{"Table", "[", ' J( @  Z5 B, f3 m7 ?* M) W; }* s' I
       RowBox[{"x", ",", + v( {+ L( u& a0 T
        RowBox[{"{", $ g4 b; h! J3 c. ^* L
         RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
    2 ?  Q* ^0 u2 V CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {
    ; ^& A/ T7 |; N  3.5779252768125*^9, 3.577925277484375*^9}}],3 A% F1 P# {* C; X0 }4 J
    2 H, o  W- X3 y3 b1 k
    Cell[BoxData[
      N) K7 X, ~$ t$ }% d RowBox[{"{", 9 w6 w1 b( @8 A
      RowBox[{
    9 C1 S: j1 T" Y! m  ~; b) e0 c; H  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", # T4 k, O, b1 V/ d* B
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    - s. T! U) l4 X    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    % T* a; r- R9 e. x; l5 c) @   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", $ _8 h! H/ ^( k9 T& J$ b) E
       ",", "29"}], "}"}]], "Output",
    ! S5 z# }8 ~. Z" m- s7 H CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9, & m( A. g9 I( ?- {+ o
      3.577957594916795*^9, 3.5779589579612093`*^9, 3.5779621294942036`*^9,
    9 x; W6 w/ c! f8 Z% M1 K" Q) T  3.57801235340625*^9}]
    : o) w- s0 O# B7 m5 v}, Open  ]],6 M( c2 h1 P4 n

    5 @8 i6 N- C$ `8 H# |Cell[BoxData[
    + W3 G. c/ E# m1 m% K RowBox[{"For", "[",
    ( @- P" i8 g6 ]- h6 R1 V  RowBox[{
    8 J3 T- m" L8 j   RowBox[{"i", "=", "61"}], ",",
    : W  |7 k& r/ `5 a6 x   RowBox[{"i", "\[LessEqual]", "89"}], ",",
    7 G" K4 Q, _& x/ X* L0 t6 W   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", * y" r/ p% A7 w
       RowBox[{3 e4 {' |! C, j) Q+ t
        RowBox[{
    9 C" }; ^1 `1 R9 b1 q/ b     RowBox[{"y1fit", "[",
    , D  t1 M+ ?! [% B) A$ |# p      RowBox[{"[",
      e) [- @. N% S! j; a7 b7 V       RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", 4 o* P# ]" Q* k9 I5 n
         RowBox[{"y1", "/.",
    $ ~' ]% j' T; X' [* T      RowBox[{"{",
    1 J% M* c& e3 n0 x       RowBox[{
    4 W7 U" o/ }/ U" j; ]        RowBox[{"x1", "->",
    $ w- `1 f3 q6 ~1 X- V9 l3 U         RowBox[{"Data", "[", $ L+ F& `& H+ G/ d& b
              RowBox[{"[", ; V, F: |" n7 b0 k- B
               RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 9 @% ^0 |) X9 {
            RowBox[{"x2", "->", + l0 T3 T( K  u0 i( [; _8 b; q6 x
             RowBox[{"Data", "[", - e( I- ~7 h  m! z
              RowBox[{"[",
    ; \6 a% n5 _* A+ [           RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    ) H9 Q: P6 a+ S9 @  G5 `$ G        RowBox[{"x3", "->", 4 R7 W$ e, o  Q. ~0 c
             RowBox[{"Data", "[",
    ! `7 b- ?- c4 v4 O- S( c0 u$ N          RowBox[{"[", # B2 [& y% _. F  s7 ^$ F
               RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
    * h% e7 T( L5 ~        RowBox[{"x4", "->",
    & C4 s) n3 m3 n- C         RowBox[{"Data", "[", , l/ n2 o& o7 |% A) f7 A9 Y+ u; F
              RowBox[{"[", + I$ \0 }1 z6 a
               RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    8 C* k4 _0 [. M+ C        RowBox[{"x5", "->", ' X7 g3 m! \& m* m- G
             RowBox[{"Data", "[", , x2 |) V! ^+ ^
              RowBox[{"[", 6 T+ ?$ x: l; V" I0 o
               RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 0 j+ B6 D. [- a, I/ }! I% H6 `' ]
            RowBox[{"x6", "->",
    7 m! \$ e; ?& A2 Q1 M$ U         RowBox[{"Data", "[",
    $ n7 E4 g$ a. u9 u5 A! |- j+ G' g          RowBox[{"[",   Y" G- t" U4 A
               RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
    " |/ X( a' N% p6 W; d, V        RowBox[{"x7", "->",
    4 l" W5 |" A7 b5 x1 Y         RowBox[{"Data", "[", * Z2 J5 c# z4 {7 ~
              RowBox[{"[",
      @2 Y' w' E1 [. m) Q           RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
    8 [2 N% D3 }, N8 H        RowBox[{"x8", "->",
    . S: @' |+ c! h, S/ Y) m         RowBox[{"Data", "[", 0 e0 M0 l' J" o$ o, s4 H6 B  u
              RowBox[{"[", 4 w5 t- [3 d% v! i# d6 x; n
               RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", / B3 r& r- t* x" V7 ~) D: c
            RowBox[{"x9", "->",
    : j8 S* P; l- h         RowBox[{"Data", "[", : s7 k8 [7 Q: ]) r5 V
              RowBox[{"[", 7 P0 _1 G/ s0 o7 ?' Y
               RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}],
    2 P! H9 h6 h0 M! p  "\[IndentingNewLine]", "]"}]], "Input",: v. Y7 t' A$ F' e  ?0 @5 [, ]
    CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {
    * O6 V  Y5 v9 z6 V% t8 ^  3.577925286140625*^9, 3.577925306765625*^9}, {3.577958922517948*^9, 8 Z7 p& k8 k% D  r4 X
      3.577958922549148*^9}}],5 N, w# g/ K/ e; `

    8 }+ z, ~4 D8 z0 z% NCell[CellGroupData[{: H' c5 r1 i. N# K
    2 w. ]  X7 [" }+ K5 d
    Cell[BoxData["y1fit"], "Input",# x5 t" U+ e* Z$ t
    CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {
    0 X; i. X: [# v3 Q/ W0 W2 k3 W  3.577925040484375*^9, 3.5779250440625*^9}}],
    / f$ @. Q/ M9 n4 ?4 F+ q. W0 Y1 ~  u/ I6 k- u  b
    Cell[BoxData[
    & D/ N2 ]& ]3 T$ E0 l RowBox[{"{", 3 g5 |) \9 W# c" g2 C/ q; I( Q8 P
      RowBox[{2 u3 F  O5 }) C6 H5 e6 G- p3 F
      "0.43193416525930517`", ",", "0.4501634853493982`", ",",
    / z9 l4 J6 l1 m. {6 R9 d, `' N/ h4 ^   "0.33336034768525247`", ",", "0.4418609896858925`", ",",
    8 _3 N: S) X  {3 C$ f- {   "0.41030378932283024`", ",", "0.516814798191575`", ",",
    . S: x6 x4 C* R# x; s% v   "0.4476631213729994`", ",", "0.3016552978696669`", ",",
    0 B: Y  t/ D' ~9 T* s, i; _% N   "0.378122167437847`", ",", "0.020339844919720733`", ",",
    5 |  p& D* M/ S   "0.018745375782087376`", ",", "0.2919925992695025`", ",", ( U; ]( c, I- z- d) Y9 [$ F
       "0.2649067959681263`", ",", "0.16343444284525593`", ",",
    ! w: ~$ Q) K, O0 }   "0.4182466778551563`", ",", "0.27347752211364934`", ",",
    , U* X: y9 e6 p) T+ O5 h7 }   "0.38554057386385654`", ",", "0.35253160453718047`", ",", % \* S# X  j, k% e2 [
       "0.2054745841100774`", ",", "0.45504377112716676`", ",", ; w; c* I0 l" e' A- F8 _! B
       "0.1598805094678612`", ",", "0.18662509982279485`", ",", ' Q1 O4 \& O- M. g+ l( l, ]: S4 h
       "0.10684797493248213`", ",", "0.013349212673286828`", ",", $ a$ B0 u* r1 ?" v8 F* z' P
       "0.08215836003004297`", ",", "0.2979041599362813`", ",",
    0 L, ?6 m  ?# @   "0.05995976512343641`", ",", "0.3884793499104568`", ",", . ~- K9 a2 k+ I& M/ T
       "0.5361889337034293`"}], "}"}]], "Output",9 W- W: `  X4 l; P  h7 x. e6 Z
    CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9, + o, q; ?6 ?% Q
      3.577925312375*^9, 3.5779575978808002`*^9, 3.5779589654960227`*^9, $ J( N9 P* d& S/ `8 m) a
      3.5779621416934247`*^9, 3.578012355546875*^9}]5 L4 z; u$ Q/ R5 \% t; q  D, W: R
    }, Open  ]],
    - V% }) g$ D- T/ E5 k: E3 z- f, c- z- W! ^; C
    Cell[CellGroupData[{
    3 \& L/ Q- A7 V" b, E" |  Y
    $ Z  u* E8 f* B3 \8 e8 ACell[BoxData[
    , W; {8 c$ z: R RowBox[{"y1fit", "=",
    4 h3 e* Q0 T" X& X( b" d  RowBox[{"{", ( {) w) l( ~$ u
       RowBox[{
    8 c8 {1 X1 v4 |, c& \5 O   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", " d1 e7 n9 q( v* ?( ]) g8 z, }
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   o  d( o. m8 E2 I4 I
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", 8 a% N* Q! L; @
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",   Z& c# F& r) x6 v
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    # v/ S  a( [; q! G; R    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
    : I# ~8 X# U# E# \    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", % `- A2 K# A& r9 d% H
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",   a) d  f7 @+ X$ c
        "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    , J" o% R5 A1 m6 R2 i2 d$ y    "0.4319341652593058", ",", "0.4319341652593058`", ",", 9 ]1 L+ {% o- u3 c/ d* p8 N3 L
        "0.45016348534939865`", ",", "0.3333603476852527`", ",", ! k4 e9 i& b& P- y: r/ _( h4 a5 q
        "0.44186098968589294`", ",", "0.41030378932283074`", ",", . l: g5 d  P! C) R
        "0.5168147981915754`", ",", "0.4476631213729997`", ",", " p# ^6 L1 e% D1 J2 F9 t
        "0.30165529786966755`", ",", "0.3781221674378473`", ",", 1 w6 |9 {+ `0 l# l6 B  Q
        "0.020339844919720775`", ",", "0.018745375782087393`", ",", # I1 w  n( P" b( N* j
        "0.2919925992695026`", ",", "0.26490679596812655`", ",", , D; H1 g/ L8 Q7 y/ n
        "0.16343444284525593`", ",", "0.4182466778551567`", ",",
    1 p) c4 w" r6 y" }* ?6 v+ j    "0.27347752211364945`", ",", "0.385540573863857`", ",",
      E6 q9 @( Y2 L3 o    "0.3525316045371807`", ",", "0.20547458411007796`", ",", 8 H: F$ F6 M1 e3 c
        "0.4550437711271672`", ",", "0.1598805094678611`", ",", : P3 H! l& E% `$ [
        "0.18662509982279502`", ",", "0.10684797493248224`", ",", & t% O. b  r6 s- ~/ g
        "0.013349212673286806`", ",", "0.08215836003004302`", ",",
    , \9 ]. B3 S  N    "0.2979041599362817`", ",", "0.05995976512343637`", ",",
    - I- d$ p- O. K7 L7 G; n9 A    "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]}]], "Input",
    9 `$ Y/ W; \9 x" ~0 c CellChangeTimes->{{3.577959701349306*^9, 3.5779597161381316`*^9}, {
    ( ?, ?- o) K* l7 I) B  3.5779621548286476`*^9, 3.5779621618642597`*^9}}],
    / n- z8 a3 S) u4 q& d' m1 \
      `$ b' i( w6 F& j/ {! ZCell[BoxData[  Z/ X  z5 _) J) W, G  F% w
    RowBox[{"{", ! O' W1 ?6 B( {! Y8 G4 U  a8 Z
      RowBox[{" w5 C: r$ H+ S% w4 e1 r7 A! S& _
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",   _- r$ ?! k+ S! P4 V
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15"," A) |8 n9 h7 l: R) t( t, h
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", $ w/ a7 q! ~& K; O% Z2 \" }" z
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 8 k  r0 f# D! c: C7 j' p! g
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", 2 C0 k+ w2 ~) n/ j- \
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    5 D3 s$ g: c7 U7 _* k" h+ P$ c   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    2 v' f7 p; f* @5 J+ `   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 5 `! P  [3 r/ H8 R
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", ! U4 W- x% r( _- W% w
       "0.4319341652593058`", ",", "0.4319341652593058`", ",", & K" B4 E2 M0 m$ j6 H' |
       "0.45016348534939865`", ",", "0.3333603476852527`", ",", & V9 ^( ?: l6 o# \7 L
       "0.44186098968589294`", ",", "0.41030378932283074`", ",", ' `1 t7 r+ M% |5 g. \
       "0.5168147981915754`", ",", "0.4476631213729997`", ",", ( o* E5 D  A$ }9 x5 R3 o& z+ c9 l
       "0.30165529786966755`", ",", "0.3781221674378473`", ",", 2 Z: D. T2 w3 f7 Z% G( Y  B) c; a: p
       "0.020339844919720775`", ",", "0.018745375782087393`", ",",
    + P) ?/ U$ \0 |: d( Q% K: ^! r$ }* r/ M   "0.2919925992695026`", ",", "0.26490679596812655`", ",",
    " E& d5 x# Y# H' t) [0 K   "0.16343444284525593`", ",", "0.4182466778551567`", ",",
    5 w4 u% Y: P6 k9 ?   "0.27347752211364945`", ",", "0.385540573863857`", ",",
    9 A# I  e- s4 _+ f   "0.3525316045371807`", ",", "0.20547458411007796`", ",",
    / e. h: S) M) z1 H* T. B5 Y3 J   "0.4550437711271672`", ",", "0.1598805094678611`", ",", 5 Q% z3 s$ y2 _2 S: C
       "0.18662509982279502`", ",", "0.10684797493248224`", ",", , [! L) v- ~  ?4 }# N. G6 X
       "0.013349212673286806`", ",", "0.08215836003004302`", ",",
    % E* Z: d: n) l   "0.2979041599362817`", ",", "0.05995976512343637`", ",",
    0 x8 O: |5 n3 x8 h) E6 W   "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]], "Output",
    " q1 r2 \6 y9 h$ O9 Y CellChangeTimes->{3.5779597200381384`*^9, 3.5779621650778656`*^9,
    : R  W+ t  A, b9 m" f  3.5780123569375*^9}]
    + @' C' j5 v2 ^+ K- S! \}, Open  ]],) L- _: n# y! G' i
    & ?3 f. B1 o2 i6 I9 N; x
    Cell[CellGroupData[{
    3 n, [; K1 ~/ X7 `) T/ N8 o5 Y1 h3 N( R: ?: d! L
    Cell[BoxData[
    : X8 V: A5 G  F: N$ ?. w- ]7 g RowBox[{"y10", "=", ! }* I( P% M" S" c
      RowBox[{"Table", "[", , G7 y) Y( o5 z( W  J  l$ R( W
       RowBox[{"x", ",",
    9 X, b4 W' D% t! c0 Z' {    RowBox[{"{",
    & z1 E& `' l' r& c     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",: ?2 z/ a2 u/ b) e. ~5 y
    CellChangeTimes->{3.5779253628125*^9}],% u0 S1 _* p9 r  I, G. M, D. N

    / O) v7 b; u, x  hCell[BoxData[
    0 i) Z2 Q* a$ ?0 W' L RowBox[{"{", ) f7 D! {+ v2 T8 {6 v: P& F
      RowBox[{
    $ [! |; K+ i1 z# v! o  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    # p2 G; r* Q" |5 ]1 H9 ^1 Z! }   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",8 a. l, d8 g& z" V) d* P
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    & @$ R" l9 U! w2 h& J5 j   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", + d( N, z6 D8 X1 n9 L
       ",", "29"}], "}"}]], "Output",: m( q6 q* @0 A# i7 v/ e: @
    CellChangeTimes->{3.57792536553125*^9, 3.577957599565603*^9, 3 c' d7 i. p+ w8 b
      3.577958967383626*^9, 3.5779621678858705`*^9, 3.578012358609375*^9}], l9 _; {) {. ?
    }, Open  ]],; p) q( Y" w) C0 X

    6 n$ L. q. {# [; ^7 g- ]0 N  UCell[BoxData[
    ; }$ ]! O5 j0 l# `% d! O RowBox[{"For", "[", 1 a) d8 _& U3 x7 Z
      RowBox[{6 }- L2 E2 v1 N, e$ ^/ l
       RowBox[{"i", "=", "61"}], ",",
    ( ~$ T; Z; h& h% I% u  B) W% e   RowBox[{"i", "\[LessEqual]", "89"}], ",",
    - _% e4 X% F1 G   RowBox[{"i", "++"}], ",",
    7 c' }4 l8 G0 ]9 q! }+ R& v0 r   RowBox[{: ~1 |0 v* q. o1 x$ }& c* E
        RowBox[{"y10", "[",
    + w" v3 `/ _& V: n     RowBox[{"[", & f+ f% U8 L! w
          RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
    # P2 B* H8 [) K7 D    RowBox[{"Data", "[", 3 `6 q. c* X/ b9 M/ N* q7 G+ e2 }
         RowBox[{"[", ' P- Q2 N" |/ R' n/ M/ r2 U
          RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",) B$ g: ?) J% s  G$ o3 ]( z4 O
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {; C" A3 G3 K5 @. M! }3 L
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, $ f9 A  j, w. @) {8 e+ ^+ L% r
       3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, % s6 Z/ C$ h+ S3 ]) {: ~- Y
       3.577958922549148*^9}],, Y" I& p6 L9 O& @4 Q) Z
    * Y8 U& q3 D0 O; N$ k9 Q6 w" y
    Cell[CellGroupData[{
    ; @5 x, Y* ?3 w  T6 a' r' {
    2 A, w. S2 d. F4 a' BCell[BoxData["y10"], "Input",7 ]+ P6 H6 @7 v( p) e+ S4 S3 I
    CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
    2 w0 F6 y( D6 H( A! W   3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}],
    ( C4 r0 c; U% f+ Q9 p7 o7 f2 r% w: R$ ?6 C! {  W1 X
    Cell[BoxData[6 a, T! T) n+ T! t5 l4 n
    RowBox[{"{",
    7 d% s5 i/ c" q1 N  RowBox[{+ g; F" _4 H+ h7 o
      "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",", ; L/ h4 M- d. }0 h
       "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",", # Q7 `9 M, G0 `5 o4 E4 i
       "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",", 3 m8 H, C( M; C0 i- ]$ L
       "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",", 1 x; G- ]9 F& e$ Y7 L+ F0 S
       "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",", 8 L# s( A7 |) V
       "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",", + A8 y/ I) {7 Q. Q& B
       "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",", % U; d  l2 d! N1 [1 m# k# I) c
       "0.694935`"}], "}"}]], "Output",% ^8 R( P) `& Z! s. Y' X" T
    CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, 2 u) f! h- e: v' d( |. u
      3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9,
    $ w( Y! V/ A) ~0 M/ D6 p' n  3.5779621736734805`*^9, 3.57801236071875*^9}]" {* }/ s$ ]3 e! `2 {- Y
    }, Open  ]],
    ) e( ]6 m0 [4 b9 m8 z
    8 G2 U& x8 @4 Y; D! hCell[CellGroupData[{
    5 }/ B- [# Z2 \9 m! Q! P3 C+ N$ V: }- f3 @
    Cell[BoxData[( v0 D, ?0 }0 k+ ]
    RowBox[{"y10", "=",
    * t' j6 d0 Q, Q2 A5 ^0 @  RowBox[{"{",
    * k: O" a- m- L6 L   RowBox[{
    % H. |! {. J: j7 Y' `3 l   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", % i2 p  `& Z- k- e' A
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 R/ }9 C2 ~+ F: B
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    - Q8 d/ e# S" Q* n' C6 v% I    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
    ' {. c: C1 c1 f5 X+ X    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    7 a4 E  ]; d  |! q7 Q$ d6 v    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
    : h+ _6 d; y" `5 b" F( T3 \7 N- M0 z    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    6 P) w) [$ E) q$ A' u    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    : C9 g  ?9 U' G4 a! `    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    7 ]! I% _2 E# m, T    "0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", ( l! D3 a3 _. P8 E$ m
        "0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", % r! c$ @( K' B
        "0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",",
    - Q1 Y; A; p; |4 {( W/ k- u    "0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", 5 y9 t6 A; H8 h3 M
        "0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",", + M' O# Y6 H0 b/ e) E! J4 W
        "0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", + b) F, P6 _3 C
        "0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", . r; m; G& l8 _
        "0.390754`", ",", "0.694935`"}], "}"}]}]], "Input",
    7 o. s( Q/ K9 M# C* A CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],; a8 D: O* Q. a) m1 o, n7 H

    1 B9 f  k5 q$ u! Q  yCell[BoxData[
    + A  [0 s1 S( b8 Z1 v. E4 `  j- d) g RowBox[{"{",
    ! y1 ?# f% U8 I1 h  RowBox[{
    7 d/ G& @, s. N0 {4 f  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", + |4 o( }( ?  \2 G
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",& v, Z. B! _; o3 T
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", " G; h+ a: E! h6 {9 J# _
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", : g! a5 P0 ^; U
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",   K4 F" i0 W, a9 g% p% U
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    % q& O& \! \6 F% W   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", : p0 e, q4 T, E. O
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", ) a8 [  p; j' Z6 {1 b
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`", 7 U5 X- s  S+ C' F6 S+ J/ M* L
       ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`",
    - c& O1 l$ F) n) e   ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`",
    , ^% k" _- e; F$ ^( m2 I- X; Y) X   ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
    / }5 R' e, t. j( t  X  c    "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
    8 i- q  x6 n# C4 p   "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
    5 W( ^4 f  Y7 {+ i% F" @( s; ?6 z   "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",", 7 x& G4 ]) n! b8 E9 D
       "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",", 8 A# S2 t+ ^+ E7 Y. C, y- L6 ?
       "0.694935`"}], "}"}]], "Output",
    " g# g( d0 s3 Y CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9, ! P" M8 w* i5 Y9 u. X2 |# q
      3.578012361734375*^9}]
    # r5 Y& O* u+ k}, Open  ]],$ c+ A/ t! Y4 e( W

    5 f3 |0 t0 X4 v2 H* hCell[CellGroupData[{
    : A1 }& L4 [5 P/ S6 l: Q2 h4 V- M1 q+ p" I& W, x5 Q3 M
    Cell[BoxData[
    ; h; J& F; B5 T4 l9 u" K& w RowBox[{"p1a", "=", 7 v/ }+ J5 |  X: b2 g( @+ u, \' O5 X
      RowBox[{"ListPlot", "[",
    " d0 K2 `; o4 K7 U. }6 j% ^+ |   RowBox[{"y1fit", ",", ; D) l; e# k3 v4 B. U
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", 1 v1 @1 V! ]: T( Q% `  u+ ?% I
        RowBox[{"PlotStyle", "\[Rule]",
    2 a' W* ]3 [) Y' v$ X4 |( M     RowBox[{"{",
    $ ?: e  D  ]# j: {! v! Z* F2 f      RowBox[{"RGBColor", "[", 4 P: ~6 e% M' B8 q2 T
           RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",", ; _3 V$ V8 l' e- s4 ~; K, @8 a) v
        RowBox[{"PlotRange", "\[Rule]",
      e& o. E! ~0 R7 M3 D     RowBox[{"{", & i" d* J, V  z: I% @
          RowBox[{
    / T6 f5 k. ?% F' z       RowBox[{"{",
    # B$ X5 ~8 D" d7 k/ H9 O; P        RowBox[{"61", ",", "89"}], "}"}], ",",
    * s/ B4 b- M+ S& h       RowBox[{"{",
    % {% F# K& N4 [" i2 _6 g        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    2 f7 x! C2 z# E  C  w) Y  v- M    RowBox[{"AxesOrigin", "\[Rule]",
    ) H0 M% B* V0 X% Z- ]% _& p% y/ P     RowBox[{"{", 3 [' {  g- H1 ^4 q* Z
          RowBox[{"61", ",", "0"}], "}"}]}], ",", ! z8 ?/ V7 Y4 W. b; m2 |2 A, f
        RowBox[{"Frame", "\[Rule]", "True"}], ",",
    1 B3 O: O7 |3 Z3 X) j5 v- [    RowBox[{"FrameLabel", "\[Rule]", ' B  _& I- Z4 ?+ m! b+ I
         RowBox[{"{",
    . g  \6 N, j3 u0 X" w* d, ~) R0 q      RowBox[{: k, w; Y/ S4 i6 i$ L
          "\"\<\:7089\:6b21\>\"", ",",
    8 _( Y& B% }! O9 G; B       "\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
    ) ^& c# J% g$ X; ]\:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",3 C8 z8 ^+ ^* x5 G0 V  G4 h0 s5 _
    CellChangeTimes->{
    ) y* S; a, z  b6 D  d  3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
    ) J  N1 o$ w% a% [% y   3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9,
    - |  s% ?& [5 m# f   3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {
    6 i' r2 R8 o1 p7 q& h  `1 G   3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],
    % S# }$ D" a$ s; T
    + T" L$ Z  B4 L# f2 d5 zCell[BoxData[0 g. p$ z5 d# G1 d9 S5 ]' [
    GraphicsBox[{{}, {}, 9 D" T! Y6 ~. }! m; Y1 F# ~
       {RGBColor[0, 0, 0], LineBox[CompressedData["
    0 y' c0 V# L! X" ]+ m0 ]+ Z3 |) j1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
    8 O3 w+ K1 n. q' [. p4 I8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
    3 q* D9 s- w& ^6 r4 M' U3 BD3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
    9 R* `, R. a  g9 t4 }4 Z1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
    7 k& I4 w: ]4 b0 }+ zC1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN5 h& ?/ g* b4 G
    a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff, n& j* e4 y6 m5 L+ m# y* l4 o+ ?" {
    yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb' R: j) \7 s" S# D! G
    wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
    # p. w) N( ]9 v& ?: G1 L' Q1 ?Y6nGQ3sAieueIw==
    ; Y; }3 e7 R. G  ~# R/ k     "]]}},
    ! x# d4 o: j- e' b  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    ( h* w5 w2 p  J: [  Axes->True,: t% d) t1 I5 _. E1 K
      AxesOrigin->{61, 0},  C/ H4 G0 M  h* x" T
      Frame->True,
    / o0 W& L2 f$ P7 P% |% |9 [! {5 L  FrameLabel->{
    - Z) a! s$ W# V; ?% ^' E2 b0 c9 F0 k    FormBox["\"\:7089\:6b21\"", TraditionalForm],
    ) r! G9 G" K2 o! J4 o. o    FormBox[  Z: ?- |6 f6 b4 Y. G' W1 \6 z" H
        "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
    ) U& E5 j0 y8 j\:ff09\"", TraditionalForm]},7 `; C' A) \+ {  E' {5 [
      PlotRange->{{61, 89}, {0, 1}},; {6 f3 [$ U! y# H4 ?% p
      PlotRangeClipping->True,* s" s1 c( H: `% m; E$ V3 R% ~
      PlotRangePadding->{Automatic, Automatic}]], "Output",
    7 v& i; W  x# h6 P CellChangeTimes->{
    ( }7 k8 \; ?6 j* m  3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9,
    % a' O( c. O, D% z4 r   3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9, 8 d% T4 u( k2 {/ Z+ `$ P9 X
       3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9},
    7 I* y3 F( N0 x3 ~1 ^/ `   3.577962187510705*^9, 3.578012396921875*^9}]
    ( w3 ?% m2 `+ p; k2 `; }}, Open  ]],
    # S/ B9 }& S* n9 e8 a  Q: P3 K1 U& E0 c0 E2 d
    Cell[CellGroupData[{' r$ E) s3 Y! O; X) k. o
    * y8 t4 K3 @4 C/ Q# p
    Cell[BoxData[. q" }; E* k0 f7 |$ g
    RowBox[{"p1b", "=", / h3 T* b1 E* {3 w& s
      RowBox[{"ListPlot", "[", $ p/ v( F% I- H, U% Y9 r) _) W: O
       RowBox[{"y10", ",", 6 A9 G, l" \' q, {" ?1 V7 \
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", 4 c" j3 Z$ m, L4 j! z. I
        RowBox[{"PlotStyle", "\[Rule]",
    ! ~. i/ t& h# e& \2 u- v& e     RowBox[{"{",
    ; K' G; D, |/ \- f' c! |* g      RowBox[{
    8 T2 b+ x# _2 l/ {. {7 e  I* ]       RowBox[{"RGBColor", "[", , }* F! \+ t5 a+ O5 I
            RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
    5 z+ e2 K+ b* U, O    ",",
    + S& ?8 t" t% s' v    RowBox[{"PlotRange", "\[Rule]", * i$ F0 u- ~5 J  x. v
         RowBox[{"{", ; I/ d5 X6 s# \1 z
          RowBox[{+ }0 v# F5 B. }0 z" y
           RowBox[{"{",
    $ L0 G# n; x) V* s# c5 D        RowBox[{"61", ",", "89"}], "}"}], ",", ) C9 H4 d1 h) H7 {7 |
           RowBox[{"{", / u  s0 P1 P1 F. I
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 8 T) @8 L. ^* a) Q% n
        RowBox[{"AxesOrigin", "\[Rule]",
      W+ j# v+ J8 ?     RowBox[{"{",
    ) H! \, \! H  {4 m, a      RowBox[{"61", ",", "0"}], "}"}]}], ",",
    " o# M7 ^" w2 [4 ~" L    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",4 G; Z3 _7 k8 w
    CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9,   ]/ S7 l/ \" u; v" ]
      3.5779597764166365`*^9, 3.578012409265625*^9}],
    8 g+ P+ z+ D8 v' i7 K4 `1 W! k) G, N
    Cell[BoxData[9 L, w  W( a/ k4 f" r$ G
    GraphicsBox[{{}, {},
    & g6 z* y' Y: D% s" ^+ {( y   {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["& m9 j6 j. r1 |6 \/ [+ G* Y
    1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ6 C0 d" D( p% P; Z1 a- y5 r
    /B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy0 S: L0 a# g1 B2 e
    GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy! u( N" U6 T* U/ w
    GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy/ g' f, }1 w/ H" u" ^2 {- V0 @0 r
    7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
    , e4 ?. m" S- d/ j/ ]Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
    , X3 r# J3 H2 |/ f4 @* Z( GH+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
    3 \+ _8 H/ S; V5 t; A; A% f' VrQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
    6 J" p& w0 f' k1 X6 s- p: JvA==7 |9 q) [7 {4 V9 H0 J, z
         "]]}},
    * i# s* e) k4 E  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    " o$ f6 g% T9 Q1 n: A  Axes->True,; m8 s. `4 y/ G1 b- P5 e
      AxesOrigin->{61, 0},
    # ?2 }3 I, t' d  Frame->True,0 h. P! X7 {* I' u% Z- }/ u+ D! r2 A
      PlotRange->{{61, 89}, {0, 1}},
    % f. D9 g  \/ t0 p8 N. B  PlotRangeClipping->True,( Z5 y0 Y3 o' ^! c/ A! h
      PlotRangePadding->{Automatic, Automatic}]], "Output",
    ( |  R. R# Y; z. b0 @$ n! e  j CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
      D' A7 t; a' J: v2 \4 ~5 a  3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9, 0 u0 B1 h% K4 f, g
      3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]) p9 q4 W" @4 S! v1 R  U
    }, Open  ]],
    2 |$ z, \' d9 z0 _3 P
      f4 |  p% o; y7 ^4 G6 @Cell[CellGroupData[{
    " ~0 q' j6 L1 y6 u* e$ Q/ ]: E
    ( r- D4 r3 \% p4 l/ |2 i6 Y0 z5 oCell[BoxData[! d2 z, d' i% N
    RowBox[{"Show", "[",
    * b9 Y8 {) {) @! y* q  RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],% O5 y* N* V2 k; @, B4 |& w

    ' P" H+ `- T+ y7 ]$ Z- ~  c+ {Cell[BoxData[7 g/ k. _& E* N
    GraphicsBox[{{{}, {}, ( g6 I/ _, A; o& _, I
        {RGBColor[0, 0, 0], LineBox[CompressedData["4 A; S% o, z. r' n
    1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn0 A9 W& b7 D4 t
    8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq9 T3 i) ?1 X! I5 L, m3 Z! s7 L5 R" @
    D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B( E& X) Y, Q* c# T0 X& ^5 y4 g. y
    1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
    6 Z7 N- _' h+ c+ H. W0 ^C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN
    4 G* t: x7 T2 l# g4 N9 r" |7 r4 y! Ha2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
    ; r5 L" i& g! byqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb) h1 I! J- T" e# u" j4 }
    wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59: F( D% d# L. Y7 y3 |$ C. [
    Y6nGQ3sAieueIw==- a4 W( t/ B% G5 o2 p. T; Y) [, I
          "]]}}, {{}, {}, " Y4 e/ F  O6 c; e
        {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    2 k0 @; V0 P' r1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ1 P/ w4 T' A. V0 c
    /B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
    6 e, G' i+ J3 `GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
    ' `9 U* b9 p4 C1 K$ kGFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy. E# k' @7 a' f& M5 [
    7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/& {( X2 [' p: ~) }) x2 d0 j
    Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri2 u% T; b* g# N& W
    H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
    * A! h* F/ _/ `( v' JrQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T4 p1 H3 }/ Q+ @# M
    vA==- Y/ G! }1 q) T9 D3 q
          "]]}}},, x9 c+ a- e: c$ y6 V
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],# {* y- r* @" ^  R; U; J
      Axes->True,( h+ K! R  F& Q8 S# e8 {+ a
      AxesOrigin->{61, 0},; S" j5 y5 _2 A. f" R7 ?) T
      Frame->True,
    % O/ ^& w" a- L6 y9 L% k$ w  FrameLabel->{
    9 F! T2 c/ o# K( B; {8 k0 D    FormBox["\"\:7089\:6b21\"", TraditionalForm], * b: I. D% ~3 o# T  v: C: m
        FormBox[
    + p* l5 w  K' ^    "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\% p' A8 W( X* U+ ~
    \:ff09\"", TraditionalForm]},. M7 S+ K; ?* _
      PlotRange->{{61, 89}, {0, 1}},
    $ O& r9 w( P" ?, c+ I: z  PlotRangeClipping->True,2 n- e3 C7 I5 a1 O
      PlotRangePadding->{Automatic, Automatic}]], "Output",
    . [( s  t8 x+ ^" U' O CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]
    & I" r+ b) c+ {3 T4 `}, Open  ]],% C  I% L9 B' {8 o5 X4 y) R4 s* W

    5 o" Z, U9 m7 h) w, Y$ gCell[BoxData["\:62df\:5408wi1"], "Input",
      N$ ]: O% |% U3 v( v- ]- k CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9},
    ) S6 w3 x- ?4 t& Q/ q   3.577959662349238*^9}],
    : @' x7 z. C: l7 b  _/ o' v, u( Y; V( }4 c, W+ ~
    Cell[CellGroupData[{
    4 P, S, d* ]8 N+ r' r' M( L  T2 v& H3 Y( T; G5 f+ d- c
    Cell[BoxData[( a% x2 h9 w# U, l0 @
    RowBox[{"y1b", "=",
    / b  L5 o2 n/ Y$ S( o* y; D/ k  RowBox[{"Table", "[",
    , c* C4 }+ d! }7 F5 u; }   RowBox[{"x", ",", ! S3 i% P4 L- I$ p
        RowBox[{"{",
    % E+ I4 R( J) ?$ z     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    " g- M- k5 \! B; I3 j CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {# M2 U3 {5 m) P, K' C/ u$ I
       3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}],! v: R  Q6 w/ \7 R+ {" y, [# M' e
    9 C& j- g7 X4 N9 a+ g7 _' F( T
    Cell[BoxData[
    5 I% Q2 j8 {4 Z4 I0 n& F; v; _/ y* ] RowBox[{"{", ) z8 G% ]0 g3 i- L; H
      RowBox[{9 X1 S; F) _# k
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", # v, }. A1 I8 ?3 D9 r7 n9 f
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    , F( N  j( W: [- {# f3 B5 O9 Q* z: V( J    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 0 X3 o  \; t  w7 R$ z* e$ i" i( X
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ! R. Y9 [- n, m4 V
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", ! M5 A* y+ h7 g' c1 o/ C# [3 u
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 2 e* f! r3 c0 D6 Q" K
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    7 H2 W6 \/ y) g0 {4 q   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", + L# E( X7 z) T7 K/ z$ v
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], & B/ h/ Z" j6 Q& A& a- q$ ]
      "}"}]], "Output",# d% L1 s: }  ^% e
    CellChangeTimes->{
    * v2 F& [& s9 S  3.577922682296875*^9, {3.5779582291435394`*^9, 3.5779582351339493`*^9}, - z$ N' y. i5 {# V
       3.577958478041973*^9, 3.577959010205701*^9, 3.5779622225483656`*^9,
    $ q9 O( t5 Q4 ^/ {, e6 r   3.578012438953125*^9}]& o1 p1 L3 J5 S7 }- b! S/ x/ Q
    }, Open  ]],
    , i9 m- d" v6 q+ x& \9 ~8 Y3 `" f
    % @7 _; e( Y; t1 w3 A! L4 YCell[CellGroupData[{* M& ~" \+ a  O% F

    , N( X* p- }6 C) p9 ]Cell[BoxData[  w) }* Y3 ~0 |2 ~" H
    RowBox[{"Data", "[",
    2 z; B; n7 J. w  RowBox[{"[",
    3 _* {$ G! l" h- O   RowBox[{"3", ",", "11"}], "]"}], "]"}]], "Input",
    1 ?- M% `% X' d" d1 U CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    8 u/ `8 M, @3 ?( ]2 z8 t, M1 s   3.577922912015625*^9, 3.577922912171875*^9}, 3.5779582414831605`*^9, {! v! D! i2 x! E/ Y* y
       3.577959014090108*^9, 3.577959016040111*^9}}],1 n# r/ y) B  u8 u. F$ E0 ]8 |8 [' }

    * Y% S2 l: Z+ C2 H+ H+ a! wCell[BoxData["0.492958`"], "Output",4 ~5 j0 c- Q& W. x- _
    CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, 6 l2 i% A+ p  x  O% F5 `
       3.577922913203125*^9, 3.577958242809163*^9, 3.5779584790403748`*^9,
    * A% \8 `5 `5 }8 K   3.5779590175689135`*^9, 3.5779622239523687`*^9, 3.578012439828125*^9}]3 a) W$ Y* n& }+ u& j& Y9 ^
    }, Open  ]],- E6 O2 ^' q( \# {+ i
    8 ^; O% y- D1 H- v
    Cell[BoxData[
    ; t5 {- E; k  q7 c  ]; Z' r7 } RowBox[{"For", "[", 8 I# I! p) Q! m" ~( b$ |2 z
      RowBox[{9 T, j! ^9 c( j/ F; d2 y
       RowBox[{"i", "=", "1"}], ",",
    % _/ p5 b( U' |/ J! i- P+ u   RowBox[{"i", "\[LessEqual]", "60"}], ",", $ r4 ?" S, {4 H5 W5 j6 k
       RowBox[{"i", "++"}], ",",
    1 h0 @& F# p& V4 l5 Z! ]   RowBox[{
    : k/ z' p# }5 ?- A7 o* G    RowBox[{"y1b", "[",
    2 @& `: O, e% A* N5 H     RowBox[{"[", "i", "]"}], "]"}], "=", * q' ~  ^8 c9 Q0 \6 e2 @
        RowBox[{"Data", "[",
    . l/ @0 P( V( w8 ?& V. H( o     RowBox[{"[",
    5 b5 o/ `9 g$ E( Y! t  c' O/ ]# y      RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input"," N% f% Z. Q4 n3 t# ~/ H
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    6 D, C3 T, a! M* u# B1 ~3 ?3 P# {   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, 5 w, f0 f$ X4 B# K) e. Y
       3.577922923203125*^9}, 3.577958246272369*^9, 3.5779584755771685`*^9, {* [& p1 U* p9 p) `9 c5 t: e4 T  C& }. ^
       3.57795902089172*^9, 3.5779590227793226`*^9}}],
    6 A! D$ T! d! S) K7 Q; x% I* Q8 ~6 f' Z( k' T9 ~+ t
    Cell[CellGroupData[{
    " c, c$ \  w* D* I0 f$ a$ _: ~5 J" i5 w! u1 Q# {7 f" z
    Cell[BoxData["y1b"], "Input",3 [8 p1 h, K+ i9 D3 ^% A8 a
    CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}, . X. x0 W$ n3 d2 x# X9 |
       3.577958484172784*^9}],
    2 s' ^+ v' f/ P0 ?: k. Y) |3 }4 d! p2 Q+ }3 l
    Cell[BoxData[
    - {/ t! F/ Y8 U2 @6 W4 `9 p+ _ RowBox[{"{",
    ; N$ {/ Y# h" W; J; i+ c  RowBox[{
    1 u5 X1 n( M6 g  "0.873239`", ",", "0.464789`", ",", "0.492958`", ",", "0.774648`", ",",
    $ T- P" [# ]) ]3 L   "0.380282`", ",", "0.647887`", ",", "0.56338`", ",", "0.295775`", ",",
    / M6 K9 I8 o, l' R/ _   "0.338028`", ",", "0.211268`", ",", "0.690141`", ",", "0.43662`", ",", $ U1 b0 S7 J3 ]1 O0 z* `
       "0.`", ",", "0.267606`", ",", "0.211268`", ",", "0.408451`", ",",
    7 z. I; j0 i- z# Y9 W3 V, x   "0.478873`", ",", "0.380282`", ",", "0.211268`", ",", "0.43662`", ",",
    3 m6 y' Q) ^+ K+ C- M9 W% h   "0.478873`", ",", "0.295775`", ",", "0.028169`", ",", "0.43662`", ",",
    9 u; u4 Z, {& Y   "0.394366`", ",", "0.295775`", ",", "0.830986`", ",", "0.169014`", ",",
    / c8 n) Q. l( o0 q: s% T+ O6 e   "0.366197`", ",", "0.309859`", ",", "0.352113`", ",", "0.309859`", ",",
    0 W3 l4 N* ~$ W8 e5 a   "0.774648`", ",", "0.422535`", ",", "0.887324`", ",", "0.887324`", ",",
    & F1 M4 `2 B4 z   "0.859155`", ",", "0.239437`", ",", "0.295775`", ",", "0.746479`", ",", 0 c+ s- \2 I: A- P8 k8 a
       "1.`", ",", "0.549296`", ",", "0.366197`", ",", "0.549296`", ",", $ g  m3 N$ e- V) X3 d7 R& x
       "0.577465`", ",", "0.690141`", ",", "0.71831`", ",", "0.521127`", ",",
    - F4 @) q7 H8 Y   "0.929577`", ",", "0.521127`", ",", "0.338028`", ",", "0.380282`", ",", : e# x& j! l- h, R0 p. ?0 X: N! v
       "0.676056`", ",", "0.591549`", ",", "0.464789`", ",", "0.295775`", ",",
    9 F3 _/ D( q+ l9 l1 @   "0.380282`", ",", "0.211268`", ",", "0.253521`", ",", "0.28169`"}], / A& T6 L1 d" k) [3 m" N% l
      "}"}]], "Output",$ P5 j- C' `- @1 D
    CellChangeTimes->{3.57792293246875*^9, 3.5779582549771843`*^9,
    8 }" D! [3 Q* r5 f/ }  3.577958485420786*^9, 3.577959026460929*^9, 3.5779622288195767`*^9,
    + S7 f$ ~4 Z' x8 p" b. T  3.57801244275*^9}]- g0 w1 i% R) f$ ^4 V6 d: z
    }, Open  ]],
    . p5 Q. [! D0 R
    * V% z" X# a# |  {( j" lCell[CellGroupData[{* M. \+ N& C6 D6 K+ C
    0 [0 o" ?, M/ ]6 ?. y
    Cell[BoxData[0 V! ?, w2 f- [$ D) ^/ I' h6 E' @: ^
    RowBox[{"m60n21", "=", : O$ E# u& o5 b3 T, Y- ]
      RowBox[{"Table", "[",
    9 [8 }$ Y1 W+ t! H7 A   RowBox[{: y9 Y3 ~, H, X  X1 Y* |, [
        RowBox[{"Table", "[",
    5 X% z5 P5 E# I: F' W9 J! Q     RowBox[{"y", ",", ! G+ g( m! ~5 a; @
          RowBox[{"{", % u: J; k& _/ j- e$ y& L
           RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
    ; C  W9 g3 V! |; l7 J7 E    RowBox[{"{",
    7 _; G6 m3 H( n; O     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    2 z( J) u2 n  j, |  h! ~1 j. `; z CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
    ' c3 D8 l8 J+ g4 _4 T4 Y  3.577924052828125*^9, 3.577924101671875*^9}, {3.577962237961193*^9, 6 Q1 N" ]# j3 D
      3.577962240082796*^9}}],- S8 x( r0 D) Y  G9 j" `

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

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

    % l, n  j/ y$ ECell[BoxData[5 e+ v8 l5 O5 Y3 A
    RowBox[{"{", 5 B# Y: X3 ]& i
      RowBox[{
    , L! q8 t3 [4 p8 K1 ?$ D$ o  "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", ",", 7 ~; C# p1 q# X
       "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",", ; K4 `! N' @- o# @6 l& b
       "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",",
    " p  D1 ]* A( ?5 X1 L   "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",
    . V' G: j% U$ V$ ~/ T8 j   "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
    + Y0 U; E8 f# Q* |( w   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",", ; l) r( ]2 x" N  w3 s+ N9 i
       "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
    $ k! h! G* w* S# s7 O  C/ p$ l   "0.323944`"}], "}"}]], "Output",  H: y4 f* H5 x9 v6 R
    CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, " C9 t3 l$ j8 h, Y. ]' M
      3.577925393046875*^9, 3.5779583678277807`*^9, 3.577958517946843*^9, 6 n1 E; n7 l8 f: i: V- e% O
      3.5779590634017935`*^9, 3.577962347629384*^9, 3.578012456484375*^9}]
    ( K: l8 `; h8 w  `9 h}, Open  ]],1 |' q4 S' |* t: z. U
    8 t3 j3 O3 I" P0 G' k  S9 [
    Cell[CellGroupData[{# U! `8 a* `" Y* X% a  x: D& s

    7 i' u4 T1 M3 C2 ]- ^: y! c) r. MCell[BoxData[1 o+ ~- K! u  Q9 p
    RowBox[{"y20", "=",
    2 _/ ?0 [! }8 _$ g1 p  o) ^  RowBox[{"{", - l' `1 |) I3 q. @* Z
       RowBox[{
    % c. M3 w+ H* x1 m9 I   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ; v+ B; H4 @8 m6 M. J
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , O/ s8 @  g0 o5 }7 n$ v3 H' Q5 K& |
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ) @7 o" x. `, J% P  \2 y
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
    % Q6 O" _: a- P' [$ r3 s0 [    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    4 N% z# U3 o6 V7 u. v4 ]% C    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", / k/ ], N* ]; U' I: s
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    ; V; c+ o5 T7 M0 R% _. f  ]+ ]    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", 0 R. [) ^- ~2 r1 S+ Q
        "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", 8 E' t3 K' z' z  A, ]: n
        "0.507042", ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", 0 m( {+ p$ d. X7 Z: Y7 Z; o7 Z: s
        "0.338028`", ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",",
      W! x( `0 S, O% O* }# Z- P! l    "0.408451`", ",", "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", 3 u7 [3 w& ?. \7 ]
        "0.746479`", ",", "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", % C" S. W' b$ Y" P" u- O7 \
        "0.760563`", ",", "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", $ j) O. t5 S5 m6 s$ n; x" o; _
        "0.295775`", ",", "0.309859`", ",", "0.408451`", ",", "0.197183`", ",",
    4 _, {6 W" T/ P7 H4 g, d    "0.732394`", ",", "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", 1 ^$ N/ y: x- k# `
        "0.56338`", ",", "0.323944`"}], "}"}]}]], "Input",
    & @" h3 F6 B" k! s; N3 o CellChangeTimes->{{3.577959534959416*^9, 3.5779595573142548`*^9}}],
    3 s% n. T+ h' }+ I2 i
    + e4 \* Q: I1 N* u( o1 s5 RCell[BoxData[
    0 a+ h3 C6 Y5 W) g6 S1 W RowBox[{"{",
    1 J) W  i1 E+ W6 a1 s  RowBox[{, Y3 l" J; p. ?
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 7 W! l3 \7 ^5 [2 ~4 D8 }- p
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",, C7 n* }% C' V5 t- z
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    7 X" M0 K# Y! [5 f; H' |, E   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 0 z8 N8 P7 z% U  k5 v
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", : v- U; I: u4 B! m8 X& M: c
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", + ]9 s  t- V, z" G7 C
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    3 A0 C# W; l# x& Z0 K   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    ' [7 I- ]/ w  x   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.507042`", 7 h  a9 S- L$ D
       ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`",
    % S( X- X! H: B- D6 d   ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",
    7 w# R& k- k- D    "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",",
    5 i. S' Y3 D% X0 h6 v% J) M   "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",
    ; {$ i% J# X' U; S2 C# Y' }   "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",", ' ?1 d  `: _6 E3 e3 i% a
       "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",
    & \/ M6 z% g- k# E   "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",", 1 E/ u: B* k* G+ S! |3 {9 Y; W/ q
       "0.323944`"}], "}"}]], "Output",
    ' }; w% i/ J/ e5 `$ N' O CellChangeTimes->{3.5779595594514585`*^9, 3.577962351778991*^9, 5 T5 q3 ^$ a2 e$ L8 E. G0 O( H
      3.578012457234375*^9}]- R/ Y4 g' o; Y+ x" I
    }, Open  ]],/ l' Y. w' ]( z  B( ~
    . O* e" H( P0 n" H
    Cell[CellGroupData[{
    . u. T6 P: e7 U' r" I) P) R4 {4 f- l$ O# y
    Cell[BoxData[
    / m8 ]2 p) \, I5 M RowBox[{"p2a", "=",
      _# Y7 X* q+ R& Y( H: E  RowBox[{"ListPlot", "[", 8 F% M; u) u- r1 k: ~3 |
       RowBox[{"y2fit", ",",
    - r$ |2 G( n. u. I    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    . A! w; a$ W! R+ \; V    RowBox[{"PlotStyle", "\[Rule]",
    $ h; P; e9 n2 g' f9 A     RowBox[{"{",
    ; x9 g! h6 C1 @      RowBox[{"RGBColor", "[", 2 c8 ]7 Z# a5 |- \  x% `" N3 x
           RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",", 6 Y6 v+ q' w" K" M% e
        RowBox[{"PlotRange", "\[Rule]", 3 `  t, n8 G. j; O/ f7 r2 V$ j5 E
         RowBox[{"{",
    # S9 f7 N$ L3 l6 w+ D1 u      RowBox[{' L4 `7 j/ c7 D2 T
           RowBox[{"{",
    , A8 y9 O+ ~0 U        RowBox[{"61", ",", "89"}], "}"}], ",", * g) J. V% `  k- ^; P! x
           RowBox[{"{",
    5 p' B! H9 M3 q5 U; Y        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", ' A8 M  N& @9 I
        RowBox[{"AxesOrigin", "\[Rule]", 9 R+ u( @* b  t5 J9 n; w
         RowBox[{"{",
    9 d. G. G- T) c9 h      RowBox[{"61", ",", "0"}], "}"}]}], ",",
    7 \/ K; V1 q4 P6 l$ `    RowBox[{"Frame", "\[Rule]", "True"}], ",",
    4 N: v- |6 D1 H' k# @    RowBox[{"FrameLabel", "\[Rule]",
    # \( [1 z% d# r4 R# b$ P     RowBox[{"{", / ~" K$ d: p0 i8 z% n1 m$ x
          RowBox[{! {, n. z+ _& l$ h9 D
          "\"\<\:7089\:6b21\>\"", ",", ( T4 F$ f0 k' w7 R
           "\"\<\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\  l: W- a" C: I# o. r2 a2 [
    \>\""}], "}"}]}]}], "]"}]}]], "Input",
    - j9 |, A5 b- w CellChangeTimes->{
    ! P3 C3 K# V+ Q1 ~8 P( t! u- a  3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {! X# [% l8 V* h$ ?1 }2 v
       3.5779583712597866`*^9, 3.5779583781393986`*^9}, {3.577958536604475*^9, . f; u3 a3 G* h, M3 R" K
       3.5779585491624975`*^9}, {3.5779592802577715`*^9,
    7 g  `/ c# g6 f* W. Q$ W3 ?5 t: T   3.5779593014270086`*^9}, {3.5779594039971876`*^9, . b, x+ Z6 L- U& F
       3.5779594059783907`*^9}, {3.57795949706695*^9, 3.5779595174717855`*^9}, {7 V/ R( N' }$ E9 E; x7 D& Y0 D3 q
       3.5779604302529774`*^9, 3.577960442311798*^9}, 3.57801246978125*^9, * F: S2 |( [" C5 P6 W
       3.578012920859375*^9}],
    4 I9 h" m! f+ f1 Q9 N/ L; o% g0 c1 P+ F7 K
    Cell[BoxData[& [( K5 A: M; H  s( ]  O1 y9 {
    GraphicsBox[{{}, {},   j+ e! Q+ d1 M, |  x
       {RGBColor[0, 0, 0], LineBox[CompressedData["
    ! o# r+ Y) P. ~6 i. P1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM! R( i: X0 {+ @
    /g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ2 P" V2 q( U. o: B- F; J
    9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P
    7 n9 J+ {4 ?( F# A- x& PofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC
    5 V( u8 \# {& cqPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK: x' N7 S2 G$ |+ }& Y/ ^1 L  ]  ^' }* H
    1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx: j0 P% z( U* Q& B
    0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1, B. w" T# i: ?4 M! P! p
    sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH8 C: B' v8 d; c2 f/ w5 s
    99yxuG0PAHw7nyU=
    " _$ k+ |9 H* g7 K( F6 `     "]]}},( a8 {0 C3 _, V8 ^3 @
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],7 b! S, @5 Q( A- n/ J
      Axes->True,' Y3 B" X8 M) ]
      AxesOrigin->{61, 0},* Z: S6 }* F: c( B4 u' b
      Frame->True,1 @7 q! ^$ E0 n" A' }: ^
      FrameLabel->{; K& Z9 X6 i1 w- K" ^9 p% }& @% t4 x
        FormBox["\"\:7089\:6b21\"", TraditionalForm], $ M3 E& k; Y: f3 G
        FormBox[
    ; M# J5 q% g7 J& G. E' r. v0 A    "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"",
    # M' S$ n' y7 [/ @/ N( w     TraditionalForm]},
    ' h3 d0 [( B& ]. O. K. A  PlotRange->{{61, 89}, {0, 1}},! @6 r9 b8 C4 O
      PlotRangeClipping->True,
    9 R. d( t" e. ~4 {  PlotRangePadding->{Automatic, Automatic}]], "Output",$ \+ E0 M" F! o4 L
    CellChangeTimes->{- k$ s7 {/ }( S7 V$ n2 s
      3.577925144625*^9, 3.577925396578125*^9, 3.5779583797150016`*^9,
    % Q/ m. P! v/ ~; ^& [   3.577958519990446*^9, 3.5779585510813007`*^9, 3.5779590670678*^9, / O% x4 B# d  J0 u, Z
       3.5779593035642123`*^9, {3.5779594075383935`*^9, 3.577959430158433*^9}, ! t$ c" D1 A, d6 C/ C
       3.5779595184233866`*^9, 3.5779604438874006`*^9, 3.5779623548833966`*^9,
    - w- K8 v9 M" J  T0 L   3.57801247209375*^9, 3.5780129225625*^9}]! `6 `" r+ l6 e. I4 O% K
    }, Open  ]],
    : z5 Z) s0 }0 b1 Z5 W' l/ F
    7 K7 I1 m  Z$ d' ^6 i8 \  u# qCell[CellGroupData[{! x1 G$ n  b0 g" Z/ _: y
    $ i, J/ o0 Y6 M$ Z/ Z$ A
    Cell[BoxData[; M6 E: S' u' Q2 _$ o, U! S) B
    RowBox[{"p2b", "=", # ?* J) C3 l- o+ `: t% F3 r& q: I( c
      RowBox[{"ListPlot", "[",
      \7 [! m$ J: i; D. L   RowBox[{"y20", ",",
    ( j& m/ m. X2 p    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", % z2 y0 R  o5 h
        RowBox[{"PlotStyle", "\[Rule]", * M7 w! F9 ~/ b7 Q! l0 r
         RowBox[{"{",
    $ U# W6 W" R+ ?9 E      RowBox[{
    8 a8 \0 X& `3 r       RowBox[{"RGBColor", "[", $ I& a0 q4 D1 f
            RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
    6 V) G: u& {8 l0 P; E' P# ]    ",",
    . K: V, \  S! X9 p$ y3 @/ Z9 m    RowBox[{"PlotRange", "\[Rule]", / w$ S* n# N6 b# m
         RowBox[{"{", + x, I& M) v5 o  E9 `( ?, f* D
          RowBox[{
    ( ^% n& ?2 I4 r- k) x# Y8 M       RowBox[{"{",
    ! U- g4 K* g! q        RowBox[{"61", ",", "89"}], "}"}], ",",
    / W9 y2 I, `+ L' `0 \% F       RowBox[{"{", ' b9 ~2 @& e6 O9 ?; g  g6 W
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    # U& ^+ u# {. ?    RowBox[{"AxesOrigin", "\[Rule]",
    * c0 A0 O) R/ [7 r     RowBox[{"{",
    5 z, n  D, j4 ~) i' V4 A6 b      RowBox[{"61", ",", "0"}], "}"}]}], ",",
    ) q: J3 m" w' s    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
    ' `* p& Y2 s" N4 t CellChangeTimes->{
    1 n8 M" f$ H+ N, u) \1 @( U5 Q3 L5 [  3.5779253991875*^9, {3.577958382429406*^9, 3.5779583843326097`*^9}, ) F& ^/ D4 p" a6 _. C: _8 K
       3.57795855655691*^9, 3.5779595724462814`*^9, 3.57801248346875*^9}],0 o4 R, d0 |8 I

    6 [/ q3 k/ M2 `8 M+ ]( a% r, MCell[BoxData[5 z$ L; k: d3 b  V8 _; n8 }% H' U  E* K
    GraphicsBox[{{}, {}, : C0 y) Q6 ?4 l+ X1 L, ^# W
       {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    ) w+ J9 D: ^! L9 N1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
    : G# h1 [* O, K8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
    . ]/ B3 n3 ]. g) M) @6 Lc/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
    0 ^& E& W' }1 _7 x" m9 w4 liX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
      a  Q3 M/ ?1 ^5 QTZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO% u7 u8 _, x" l9 M
    fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB% S  }( H7 M$ w' O; f1 y
    TWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG! c8 i7 W6 K" n
    p0OYg4Fg/tz63VfsAdsCnzU=; s: t( o4 ?: r7 Y
         "]]}},
    # ]$ |, Q( u* o5 @- P* u$ L9 X5 W  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    & Z  I# ?, g0 }3 [# ?4 f  Axes->True,
    " w" y  d; _* R" f& }  AxesOrigin->{61, 0},5 s- t( k0 R6 }/ ~3 I0 d7 m9 U
      Frame->True,* N; X- S( Q. w* E
      PlotRange->{{61, 89}, {0, 1}},6 k( F  Y- X% z$ z7 S' q
      PlotRangeClipping->True,
    $ J( A! P6 I9 ]  PlotRangePadding->{Automatic, Automatic}]], "Output",
    ! [. Z9 b/ {" n7 v5 t% F8 K CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,   d( G6 m7 d. }+ G0 N& i+ B
      3.5779583861890125`*^9, 3.5779585219092493`*^9, 3.577958558132513*^9, 4 N% f; v7 g. ?9 @9 B" A/ d
      3.5779590691114035`*^9, 3.577959577906291*^9, 3.5779623569426003`*^9,
      U/ ~% y" `; u* |2 W  3.578012484703125*^9, 3.578012925875*^9}]( q# Q6 f' m' y& I( j5 Z* y
    }, Open  ]],% h0 T# L; V4 ]( l' i9 K' g% g

    , p% G0 z# R/ J5 S2 H4 c, }Cell[CellGroupData[{3 R9 V1 o( i, c& S0 n; S5 B1 s, w& v. ~" D
    / [" L) F; Z7 c' E: p* r" c# H* R- Y
    Cell[BoxData[6 P7 l0 u6 W6 L+ L* [  r
    RowBox[{"Show", "[", 4 v/ }5 `7 V! n7 I1 i
      RowBox[{"p2a", ",", "p2b"}], "]"}]], "Input"],5 X; Q0 l* e- }: x" F5 w& m/ N

    : \% r4 ?, I3 P0 Q3 ]; jCell[BoxData[
    4 b2 Q6 w, z& ~* U9 z( ?" V GraphicsBox[{{{}, {}, 1 x, T/ i; X0 V# _
        {RGBColor[0, 0, 0], LineBox[CompressedData[". N% u# S: p2 t" s9 D& ~
    1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
    7 b6 \* V+ t$ h( g/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ8 U& L3 r# {: S8 t9 Q- @4 Y% W3 v
    9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P- M% ?! M" M; T3 Q
    ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC, r6 |/ Q7 F9 j9 m
    qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK: m) ?' ]5 }7 \- M0 Q+ p
    1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx- E  m  F9 U  H4 c9 j5 D" S+ L3 P
    0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
    4 \. t* l% ?$ m5 ]5 U* `' o, l' |sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
    8 l; _$ @5 |& b" D3 O# c99yxuG0PAHw7nyU=
    3 K4 o+ r+ a7 @5 S      "]]}}, {{}, {},
    9 A8 j" V6 ~4 Z" S7 }0 G    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    " w1 G" D" y" c7 ~, u4 s' b# {1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn( ]& F+ p0 w& {& H0 C
    8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV6 |* ?1 M5 n: w% ]6 a
    c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc& W4 Q. ]2 C  v& r( z
    iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk48 x' t2 }5 k; C
    TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
    + T8 z' j/ t2 T* D9 A. E+ @fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
    9 _* d' W6 H  @+ P* Y$ R. |6 zTWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
    ) I7 T8 N7 m1 r% h' A6 g, |- Dp0OYg4Fg/tz63VfsAdsCnzU=8 l" N8 x; j: H0 b& W% n
          "]]}}},$ B3 h4 d) E8 s  K& z( |
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],/ s0 k2 ^$ i8 n; H- R$ a* }  E
      Axes->True,
    ( {$ V, K- O! ~$ `( V& F  AxesOrigin->{61, 0},! O8 j- q* R; B( T3 G* i& P
      Frame->True," E; x0 a. E( s9 [+ U- H, Y
      FrameLabel->{
    . F1 k5 }! Y9 b    FormBox["\"\:7089\:6b21\"", TraditionalForm],
    ) k: e" W; i+ F( r7 J1 c    FormBox[
    % A3 D9 |! x( q& b6 z    "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"",
    / |* K" ~2 j6 ~  L     TraditionalForm]},
    # d% Q5 [1 p( w3 t2 f" ^6 B5 Q# J  PlotRange->{{61, 89}, {0, 1}},) o+ q$ p0 r. t6 S6 K/ _
      PlotRangeClipping->True,
    9 ~" b5 j6 ~( U  PlotRangePadding->{Automatic, Automatic}]], "Output",+ s9 b% F8 y7 v1 X$ A- _; j& q
    CellChangeTimes->{3.5779623624182096`*^9, 3.5780124863125*^9,
    ; ^7 v/ z2 I1 ~4 a  T  3.578012927734375*^9}]
    ! i1 [' w0 e( i% J}, Open  ]],/ }( X0 `# A$ y; P

    7 g! h1 G6 v; n' Q  NCell[BoxData[
    1 r9 H- ^; ^5 v- ]: v! D" i RowBox[{"\:ff08", . w( s/ V! q+ S
      RowBox[{
    ; n. c/ d. w: m  "\:5df2\:77e5\:521d\:59cb\:94c1\:6c34\:8d28\:91cf0", ".7406", & f5 x. n6 Q) j% Q6 m  R5 F
       "\:3001\:5e9f\:94a2\:8d28\:91cf0", ".4621",
    . S1 ?" p3 k3 Y0 G  d: I4 K   "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea60", ".5208", & ^+ s2 q) I" E* Q2 L
       "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:542b\:78b3\:91cf0",
      \: h8 ]/ }8 W* }2 |( u- r: D   ".2221", "\:ff1b\:76ee\:6807\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\8 a1 n- @; ^2 c
    \:4e3a0", ".6224", 1 l, V7 E( Z$ P/ N% p
       "\:3001\:76ee\:6807\:94a2\:6c34\:7684\:78b3\:542b\:91cf\:4e3a0", ".2521"}],  j$ d8 ]7 Y  X7 _, M5 E9 e* q: a" b* @
       "\:ff09"}]], "Input"],
    / k# n2 {7 O) ^' o$ l( _5 E  |4 u* t, m$ ?0 a
    Cell[BoxData[
    6 ]( w8 I" [8 C+ S RowBox[{"{",
    3 R7 q& m  K: R0 z7 @; R  RowBox[{, S  `% C/ N: }9 x
      "\:94c1\:6c34\:8d28\:91cf", ",", "\:5e9f\:94a2\:8d28\:91cf", ",", ! T0 z: `; ^8 D2 F. e# W2 c
       "\:5439\:6c27\:91cf", ",",
    - P7 `4 `8 n% n0 {( D' P   "\:4e0b\:526f\:67aa\:65f6\:7684\:542b\:78b3\:91cf", ",",
    1 B* G& u3 j$ t  y2 |   "\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea6", ",",
    / V# U! i% _5 Y9 ?8 a3 G- g   "\:5757\:72b6\:77f3\:7070", ",", "\:8f7b\:70e7\:767d\:77f3\:7070", ",",
    , r& ?" z8 {. ^, ?$ V   "\:83f1\:9541\:7403", ",", "\:5757\:72b6\:767d\:4e91\:77f3", ",",
    $ O4 \) m; }! l. A* }   "\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf", ",", 5 I% s& l4 \4 z
       "\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6"}], "}"}]], "Input"],. p6 p: O0 M* e2 N  y- c

    / Y, o9 e/ X! ]" K: E9 e, z4 ?Cell[BoxData[" "], "Input",' U& k1 Y/ G9 Y. A
    CellChangeTimes->{3.577962834553033*^9}],
    / `( C2 \% {4 j6 G4 o# ]. F' f9 C! M2 _& _4 }+ g
    Cell[BoxData["\:94a2\:6c34\:7684\:78b3\:542b\:91cf"], "Input"],
    5 P  E8 f; ?$ }7 F6 V7 G% t) q- ^" P
    Cell[CellGroupData[{3 z# q; g0 P3 ]
    0 b( X7 i, q7 l2 G) ^% i" n4 D8 C1 v
    Cell[BoxData[- g; j# M" \6 Y" v2 z, e
    RowBox[{"y1", "/.",
    & Z% U9 T6 g) \# g; Z, y  RowBox[{"{", 4 ~, f0 F0 P; s7 v8 B! @; X: L/ M% U
       RowBox[{9 a8 P  Z7 f' J; U. N" G+ \
        RowBox[{"x1", "->", "0.7406"}], ",", 7 y: U# I; m+ J) j
        RowBox[{"x2", "->", "0.4621"}], ",", ) y7 \1 F7 L; v1 I) x; s/ a
        RowBox[{"x4", "->", "0.2221"}], ",",
    3 K5 \2 J' t/ y+ h  |    RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",7 ?$ L: \6 X5 E+ x
    CellChangeTimes->{{3.57796267209435*^9, 3.5779627224200373`*^9}, {  q* ]+ ~: z6 h. Q
      3.5779627663029137`*^9, 3.577962774820529*^9}}],
    " Q0 T; D4 `% F2 I8 l# l0 u) F
    * `5 {; r3 _$ }; u2 VCell[BoxData[
    + `: X7 _4 i7 E RowBox[{, G1 f  O1 q  E& O+ T, x) |
      RowBox[{"0.2286149508637297`", " ", 1 ^; w9 x6 c: v9 X) `$ F2 o
       SuperscriptBox["\[ExponentialE]", & b- W0 I- r1 v; S8 [% |5 ], ?
        RowBox[{"3.1415926535897936`", " ",
    # z7 h8 {, T( M2 x; D8 d     RowBox[{"(",
    2 U- m8 O) V8 y/ o3 P7 q" _, W+ N      RowBox[{
    2 z$ v% K3 E6 L/ O8 [7 [9 q       RowBox[{"-", "0.17911224641499998`"}], "-", 5 W# w& T& H, y( U$ ^+ k4 p4 ~9 l1 ?
           SuperscriptBox[! O( r2 V* z, m( @6 E: T
            RowBox[{"(",
    ( c* v- N) W8 n) T         RowBox[{! a. c# f0 z5 E* A+ Q0 {3 p
              RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
    7 ~( a7 K. I! V+ S1 t: i       SuperscriptBox[- M8 j7 j( ^7 b" I  ~7 i) u9 |
            RowBox[{"(", , N: u( m, [: f) ]; ?* y4 h$ ~
             RowBox[{
    3 o0 d- F; X& ^" i* ?          RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",   y0 e! p( [. |; O3 o, N( `$ F: k
           SuperscriptBox[
    , ~: `9 R4 M' x; J8 `$ Q( ]4 |        RowBox[{"(",
    $ I. P% \0 l  [. i4 o# A         RowBox[{) \6 e$ h2 s- I! l1 P/ ?
              RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", 2 k  c7 Q- v# m& {: }& j
           SuperscriptBox["x8", "2"], "-", & f0 t' }8 G$ C0 `7 N
           SuperscriptBox[3 e" v5 W( A. v% V  Y, E, b
            RowBox[{"(",
    + E# |7 ?% q# |; l7 H' W% R* X         RowBox[{
    - Q& v* S( r( F. J# ?          RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
    , |/ j0 {+ F+ ~- w8 b) Y  RowBox[{"0.020180806675835994`", " ", . g8 `/ b" J9 y
       SuperscriptBox["\[ExponentialE]", # L8 R& _) Q3 `6 E# V
        RowBox[{"3.1415926535897936`", " ",
    4 {1 E% O/ h0 r1 K0 F( Q     RowBox[{"(",
    & H) Q4 |1 u  N! K/ t! D1 C      RowBox[{2 |3 ]; ~( r' ]) k5 ]+ j$ W" R
           RowBox[{"-", "0.105619387859`"}], "-",
    ) |' o( L1 H7 J       SuperscriptBox[
    : F0 l3 G. F% f+ N        RowBox[{"(",
    " _2 q- t$ O+ N! U& y3 v         RowBox[{/ C6 w5 W9 }% K( f) ^4 k
              RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", % e9 B1 d( B: G* j
           SuperscriptBox["x6", "2"], "-", / ?0 K7 E- W; c0 K* C
           SuperscriptBox[# j. p# M2 u8 Q5 l% T
            RowBox[{"(", ; l/ G0 D' Q9 X; z# x
             RowBox[{# N+ F/ v3 ~* S' P  n0 a
              RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 7 D% U0 k! \( \& X* Q
           SuperscriptBox["x8", "2"], "-", ' e& [: K! m) s9 T
           SuperscriptBox[
    4 p1 M9 e4 `9 C" n* M4 c        RowBox[{"(", " X% j0 u: Z$ S; [' O0 Z7 ]
             RowBox[{  w8 l7 p9 |, t6 F/ H+ }
              RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ) V) y; _1 f  c( C
      "+",
    ( R) x' L. _) z  RowBox[{"0.13092706311748437`", " ", 1 }7 _$ ~5 @+ S3 u! Z# H" m
       SuperscriptBox["\[ExponentialE]",
    5 s# ^! n( T9 _3 m    RowBox[{"3.1415926535897936`", " ",
    4 F6 d) e5 |9 U) r     RowBox[{"(", 0 a% B/ s; t5 z! }% D' \( n1 A
          RowBox[{, z, |3 y; j& x/ i
           RowBox[{"-", "0.236605670085`"}], "-",
    # }" L: e* N. F) T' }       SuperscriptBox[
    " u! [% Z$ }+ \        RowBox[{"(", 8 K+ ^6 Z; H8 e- D! I
             RowBox[{
    3 s( G5 {; H7 R- j  r# X! w- A+ y9 ?1 p6 `          RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
    3 J. D/ d$ O3 l0 _5 i! c+ }' z       SuperscriptBox["x6", "2"], "-", # l" x  w; c& O4 B* }
           SuperscriptBox["x7", "2"], "-", 2 f1 z2 M0 H3 H$ g0 L6 Z
           SuperscriptBox["x8", "2"], "-", 5 a- B) B7 P2 C) y
           SuperscriptBox[" @3 ]1 b& V) W1 {5 V6 U6 G
            RowBox[{"(", / }8 `9 T! m! j
             RowBox[{6 s, t1 S% j" ]7 c+ `8 v1 H. \
              RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    , l* }1 e+ R7 u; u, `$ ^  "-", 7 T, K5 ]1 w7 j6 u
      RowBox[{"0.033459349088924784`", " ", + M% c/ `+ M' V+ ^. {9 Q( I
       SuperscriptBox["\[ExponentialE]", ' w! q$ `+ G' L8 d& a5 g
        RowBox[{"3.1415926535897936`", " ", 4 Z4 J' r( w3 U
         RowBox[{"(", % x5 N7 \' v  p$ _% D. J
          RowBox[{
    % l% S! ?8 ]0 X/ j' D( Z$ ~8 Y       RowBox[{"-", "0.46221081830200006`"}], "-",
    - |0 K2 V8 M, Q8 {       SuperscriptBox[
    ( `6 n% ^9 d/ s. {* h        RowBox[{"(",
    % c( C2 ?, V2 |5 N/ ?         RowBox[{
    # V9 a# O+ `9 q: j- W          RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
    % d& Q0 R' p, m! ^7 ?, P/ v! c       SuperscriptBox[
    # [8 L  H: }, b" N3 ^        RowBox[{"(", $ N4 c2 \( c) z
             RowBox[{0 a) v$ Y" A4 O
              RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
    * S" A1 z$ _, X. {       SuperscriptBox[
    1 @8 _: `5 w0 T1 h        RowBox[{"(", 0 u% b8 b5 [" ^) g4 L
             RowBox[{
    # |) o) a9 G& Y6 N' s* m          RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", 6 @" ?; b. B5 X; s9 g* `' b# P. P
           SuperscriptBox["x8", "2"], "-", ' N. G: ~0 j3 D6 U
           SuperscriptBox[
    $ r: d: ]( V: ^& F8 Q8 c1 R( l        RowBox[{"(", & h/ E, ~* p: n  V5 `
             RowBox[{
    : K1 q" x' T* \  t8 W. Q$ n1 G. S          RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    6 h, X' Y$ v' N" Q. A3 F- B  "+", 9 Z( D9 \, {7 \# Z4 S8 H
      RowBox[{"0.39611806709006653`", " ",
    + c& r7 x0 \. ^: k3 ~5 w# V   SuperscriptBox["\[ExponentialE]",
    : P  C# m5 V; J; b# d    RowBox[{"3.1415926535897936`", " ", ) E, Q* ~7 e) R
         RowBox[{"(",
    - g9 p- l+ j, z; E; ?4 O      RowBox[{
    1 X5 E  {6 U4 X8 ]       RowBox[{"-", "0.5837889295140001`"}], "-", # X* x0 L6 n$ E/ o4 ]
           SuperscriptBox[1 I; O" E2 L/ ~( F. a& i" `( g
            RowBox[{"(",
    & Z# \- f; f: s, t; R         RowBox[{
    2 I: N4 t  H; n2 P4 ^, i8 Q) l          RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    9 s6 h2 k, Y/ l9 b7 L       SuperscriptBox["x6", "2"], "-", , `! P8 P) b# ~4 _
           SuperscriptBox[
    8 F# b7 D) w: `8 a7 Z, g        RowBox[{"(",
    0 q& z: S( q  \0 g         RowBox[{1 r; v$ \& z! R
              RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", # M9 w* }- I; v" \$ d! L
           SuperscriptBox["x8", "2"], "-",
    + ?: Y( ^2 M6 i4 G       SuperscriptBox[
    4 [1 l- B# @# w2 Y# }( d        RowBox[{"(",
    7 G; @, }/ d$ q" i( g" Z# d         RowBox[{
    9 D- t1 x- a% b, R          RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],   h) r/ k. }) c, L
      "-",
    ( q3 `! U, s/ o4 h8 h  RowBox[{"0.19996885877792045`", " ",
    . P  M& L; G0 R+ G% v6 l   SuperscriptBox["\[ExponentialE]", & C8 C( Y# q# S5 E% A" o% ]
        RowBox[{"3.1415926535897936`", " ",
    3 _2 c" K' ]9 K( @     RowBox[{"(", % h4 H  S4 g& C% D5 @
          RowBox[{
    / c# w( b/ u/ n6 O9 w' c, g" {       RowBox[{"-", "0.19030188470200005`"}], "-", # h: k2 q: z: G4 q: Q
           SuperscriptBox[0 _/ w  b( t3 L3 q/ ]4 l( O' [
            RowBox[{"(", ( H1 `/ }, t: B. j3 S
             RowBox[{& k8 C4 _" S8 Y& y5 k
              RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", # D: u2 o3 E, N+ E& o
           SuperscriptBox[5 F7 }  i# g7 G3 c, _; d" G4 `
            RowBox[{"(",
    $ a+ R2 Q9 A; a. u1 ?4 N         RowBox[{
    ) J8 A& A" c, w- j/ N/ H" [4 r1 E          RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", 3 t+ I% D! ^  m" e
           SuperscriptBox["x7", "2"], "-", 2 u9 N& ~3 B/ W$ a
           SuperscriptBox["x8", "2"], "-",
    9 K! J! R6 K) D) d, |  y2 @       SuperscriptBox[3 @7 Q6 I$ m1 \: c2 I  ^1 g
            RowBox[{"(", 8 ?9 ?" W: X" H2 K0 k- v( [6 @
             RowBox[{# s: F& M6 s3 n4 a* H4 M
              RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    - y/ E  e# G6 O' ]# o5 N$ @  "+", : e5 |( b+ L) h" x0 a, m# ~! O- c
      RowBox[{"0.23580523388620744`", " ",
    7 L  |, J$ @1 M- N/ c: C  |- i5 J( n9 A   SuperscriptBox["\[ExponentialE]",
    + W3 n- e5 t/ z3 j    RowBox[{"3.1415926535897936`", " ",
    ( i1 e' y% w5 U0 T3 T8 d     RowBox[{"(",
    7 R1 b8 r, m8 C! S9 B      RowBox[{  G9 ~3 i9 t9 W% \8 r) E9 N
           RowBox[{"-", "0.28518780882`"}], "-",
    + _- P3 ?0 P1 q2 N! H( z/ F       SuperscriptBox[
    + N5 L1 K5 `, p9 l9 Y        RowBox[{"(",
    9 g3 R! X0 a+ y& v& x         RowBox[{
    . H/ J* Y, H# T6 `  x' [% ?; U          RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", 1 P' G) I9 S8 p: a- F* R
           SuperscriptBox[
    ! E( Y- `% R1 d9 w! i# d/ `9 w        RowBox[{"(",   V: x8 r/ z# y5 v) ?4 P$ V/ H: P. ]
             RowBox[{
    . Q' L$ V; n( |% e          RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", 7 @0 R$ ^; x+ ?/ _/ G
           SuperscriptBox[6 j: S* C4 b3 R0 f: ~0 W. w
            RowBox[{"(", 3 _4 j' C9 A+ @
             RowBox[{/ ?6 Q7 J) F8 {
              RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", . F# j2 F; F9 c, o
           SuperscriptBox["x8", "2"], "-", - W' Z2 p/ n) V1 A: ]' q
           SuperscriptBox[
    6 M7 K- ^+ s2 f1 F        RowBox[{"(", 8 A5 \0 h& o  m, y
             RowBox[{$ s1 e7 I5 W! O- k# `# n2 {& m0 j
              RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    $ \/ a  Q7 @+ q2 @  "+",
    : C) |, C2 e! h+ {( d  RowBox[{"0.667027259367853`", " ", ; \/ S# F$ L/ s5 Y- ]; X( C
       SuperscriptBox["\[ExponentialE]", 7 i7 y1 t" f' t& L: M( w
        RowBox[{"3.1415926535897936`", " ", ; J+ R$ n" D. `* {4 ]: T% {0 s
         RowBox[{"(", & U' A' ~9 \0 d/ K2 ^5 [
          RowBox[{
    ; U( D7 I- U5 ]       RowBox[{"-", "0.11387365200400001`"}], "-",
    + |4 D" A9 h  ?4 W# O       SuperscriptBox[
    : M: L- Y& W$ S. h        RowBox[{"(", 9 ~) Z$ H4 ~: X0 ^+ r4 i" e- r
             RowBox[{( b. u4 a9 \. b
              RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    ! B) d1 t9 _/ s) q: A) {3 _       SuperscriptBox[
    9 G: H$ M' B  I4 H' W        RowBox[{"(",
    ; D2 v) n7 ]/ t+ y5 a6 j         RowBox[{: e2 ~" ^7 r. b' d* P8 {3 o' Z/ ~
              RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", 9 J2 u$ c" I8 }; C: Y' Q4 x
           SuperscriptBox["x7", "2"], "-", ) O0 j3 E5 ]& `, w" v/ Y( P7 w
           SuperscriptBox["x8", "2"], "-",
    + q7 n  b6 f  f" H7 v8 h5 h( B       SuperscriptBox[& h% v3 r& b" ^
            RowBox[{"(",
    & }. ]) B" R; G0 R" q7 D. n9 a: C- x9 g         RowBox[{/ q6 w' u, \4 N1 |) y, L7 ?
              RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 2 m# Z) G* q( q! V8 `* t1 k
      "+",
    " W# O) u- e; ]4 z* U2 T3 M4 {0 F- o  RowBox[{"0.25282438852646905`", " ", 0 }' s  _% E5 I7 x9 j
       SuperscriptBox["\[ExponentialE]", ! a2 N# G) o& E6 t
        RowBox[{"3.1415926535897936`", " ", * d! I# v6 D; m
         RowBox[{"(",
    % `& t0 q0 J  G      RowBox[{
    / `% M3 _4 y- b) ~7 t! B* R8 y# j       RowBox[{"-", "0.11442644782500001`"}], "-",
    ; n0 b8 v) j1 n( |: e8 a) R7 e       SuperscriptBox[8 T3 b8 O1 Y1 |2 L- \6 F
            RowBox[{"(",
    $ R: m- d8 t4 r$ d: i; E& B         RowBox[{
    ( K  l6 G& C$ `% b2 M5 x          RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    2 H. I9 W$ l# C       SuperscriptBox["x6", "2"], "-",
    . F. u8 f* U' o! f6 n2 C! S       SuperscriptBox[
    ; J  R9 [6 U1 w5 \5 P        RowBox[{"(",
    2 k6 ~& f! t, M8 a3 B         RowBox[{6 D- t/ j" ^0 |! Z. m3 h
              RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", ; k0 u$ b- [6 |3 d0 W, e% f3 h
           SuperscriptBox[6 g! s" x0 l* L# s4 T% P
            RowBox[{"(", & D) B! m5 [7 e+ V9 t9 u: H: w
             RowBox[{
    - A# m2 G! D7 ~          RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
    " g1 }2 @$ q# D  h       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
    * z0 M3 K% m( W4 s% }  RowBox[{"0.07581214474544536`", " ",
    / P$ Q2 P. s, N* e% h   SuperscriptBox["\[ExponentialE]", + ~2 j; W  {( t: Q+ G. `' B5 R
        RowBox[{"3.1415926535897936`", " ",
    , t( V. Q. X- g( n: |! Z1 Q     RowBox[{"(", % J' G; I2 T% [- l/ p
          RowBox[{
    " s" s0 r4 I( ?       RowBox[{"-", "0.21008576609800003`"}], "-",
    0 S0 |0 J+ n/ T6 Q6 g       SuperscriptBox["x3", "2"], "-",
    1 H4 y: A; B3 D/ I       SuperscriptBox["x6", "2"], "-",
    " l3 J! t- X1 U. C6 @3 r$ p       SuperscriptBox["x7", "2"], "-",
    6 ~/ c# |4 L2 r6 x& ]- D- p       SuperscriptBox[
    ! z2 N# T( G' Y        RowBox[{"(",
    : t* O, q5 t; A* S7 d7 `         RowBox[{, p4 ]+ c7 D# {
              RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
    ) V0 f% ^5 ^8 g3 F) C( J& `  q5 b       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
    2 G  L0 ]; Y. a/ {+ u  RowBox[{"0.10599338351843121`", " ", 4 y6 U  l2 M$ n" @
       SuperscriptBox["\[ExponentialE]",
    " i2 ~. y+ _5 d" |) \    RowBox[{"3.1415926535897936`", " ", 0 R8 G0 V( S  C5 c
         RowBox[{"(", ! S8 ]. _/ e/ H, F, M1 {
          RowBox[{
    $ k# i; I% }$ B3 @       RowBox[{"-", "0.4481471925460001`"}], "-",
    3 j' ^- ?. G2 k' N( v4 J& k+ q       SuperscriptBox[2 V0 c) p5 [9 r+ ^* y! D8 i+ l( o
            RowBox[{"(",
    * R6 F6 `# v) U" K0 j         RowBox[{+ n& `# G# C! [3 T
              RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
      C$ M# G# {1 |/ d       SuperscriptBox[
    & Y& C6 ~+ M9 @2 ~# r4 \        RowBox[{"(", 4 L1 r+ c+ Y$ B  J3 r. a
             RowBox[{
    8 w9 q$ s  j" x  n1 r5 ?6 ^# Y          RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
    0 G& o- I& ~3 C" F       SuperscriptBox["x7", "2"], "-",
    ; |( Q9 L& K+ m$ |( X       SuperscriptBox[
    0 ~+ W  h, k7 ^, b2 C- w3 o% d+ r        RowBox[{"(", " f/ V, ?, I( L0 r
             RowBox[{
    * v! K: B0 `5 ^  u4 y          RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
    4 y* G% Y/ q/ z# I       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", ( y* ]% P1 a; s8 R; q/ Q) x
      RowBox[{"0.5008208386064421`", " ",
    : a% W& T  C& T7 \3 x% A0 _+ h   SuperscriptBox["\[ExponentialE]",
    7 r* O" H: E! J    RowBox[{"3.1415926535897936`", " ",
    3 ]  k0 d7 L6 {     RowBox[{"(", + G) H+ _* m: z6 }- J7 V' Z
          RowBox[{
    ' G# g; S6 i3 S; T       RowBox[{"-", "0.08722659614000003`"}], "-", : \, o& `& T) r$ ]( A, v' |
           SuperscriptBox[
    " y- v$ d1 g4 b! E# [0 M        RowBox[{"(",
    . b) c: e/ u" x" a         RowBox[{
    ; z9 W& `9 d# p4 _$ R" W          RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",   E: h4 ^* R' J. i( g
           SuperscriptBox[
    7 {+ N1 D. N/ M, ^        RowBox[{"(",   B( x/ I5 I3 i
             RowBox[{
      D! F9 l. c4 c          RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
    # ~3 W. m* a, L0 j9 P' `       SuperscriptBox["x7", "2"], "-", ; h- z/ G4 |# I3 ~% [! z" M
           SuperscriptBox[7 ^6 k9 F( Q' v
            RowBox[{"(",
    + ^  x* j  V  K+ n         RowBox[{* G0 T  y2 c0 [0 g& X# u/ K& @
              RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",   {1 _& F* l1 W2 U) u9 h+ _' P
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", 4 |- @; m+ I2 N' @* K
      RowBox[{"0.32564305572552343`", " ",
    ; [9 t* \+ _- j" f# N, d$ ~   SuperscriptBox["\[ExponentialE]",
    # }$ u" \  r! ]; H; D+ ]    RowBox[{"3.1415926535897936`", " ", 9 J. I) V8 K7 _
         RowBox[{"(",
    7 v' `! C) [8 N      RowBox[{. u9 `) F" V$ S& |: S$ `
           RowBox[{"-", "0.23738217000100004`"}], "-",
    , }( l. Y9 S0 d6 H       SuperscriptBox[
      l  C! w( o1 a& W7 L, Q" x2 ?( e        RowBox[{"(", 1 l3 V/ v2 ?. X) v
             RowBox[{; }6 y" }8 A5 j; m/ }
              RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", 5 X1 S3 E% V! Z8 _% |
           SuperscriptBox[
    # K8 k# w" I6 v+ D2 ?        RowBox[{"(", : K' F. H8 A& t  u- q6 A
             RowBox[{
    " Z& J' |9 p8 Y' h          RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", + L, r! h, A) Z' o
           SuperscriptBox[% s" g) ]. Y, w* h
            RowBox[{"(",
    9 _* V7 E, T1 A- q         RowBox[{$ c# X& H6 Z  l2 u
              RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", " c: c2 ?% s1 y( Y1 d8 x
           SuperscriptBox[
    + f  c3 x) ]/ _7 R( m+ c        RowBox[{"(", 5 P9 Y, I$ A1 y, I6 O2 I5 J) }! A
             RowBox[{
    : m* E2 S3 r7 ?. l          RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", / C3 L/ P9 e7 b  m
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    + r. W) W4 v2 G! c* O  RowBox[{"0.6665374509702793`", " ",
    0 H& y1 L5 u% e4 d& I   SuperscriptBox["\[ExponentialE]",
    ; ]0 C: D+ w4 X% ^8 q    RowBox[{"3.1415926535897936`", " ", " S. q5 O* Z; ^5 Q
         RowBox[{"(", # Q1 K) [# K. N* u% Y2 h
          RowBox[{5 Z) x; S0 ~) @8 O9 X, r
           RowBox[{"-", "0.19162171876400003`"}], "-",
    % E% ?5 T  v7 f, S$ g       SuperscriptBox[+ D* Z, f& ^: {# _: G( B
            RowBox[{"(",
    . s  `# g; c* L         RowBox[{
    / Y% P! B) P0 @- W" A8 \8 X( ]          RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", / ~/ V  I. M- O! ?; a3 }
           SuperscriptBox[  R6 D" \( \: x. ^8 q6 }
            RowBox[{"(", 1 G" f6 f) l; ^( B* x
             RowBox[{# t1 \- W# O+ e. v3 C- h7 S
              RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", % ]: O3 _1 C; R# t
           SuperscriptBox[, {5 U( x/ C# m+ c" W, [6 j
            RowBox[{"(", . h8 {# c: c3 S
             RowBox[{3 \* c. P+ ?3 C/ j0 c
              RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", 6 |$ Z& a$ }+ O" ~) M4 v6 P2 V) g% g
           SuperscriptBox["x8", "2"], "-",
    8 j% ~' E+ {. R' [       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", 6 p# L# }* g$ J3 y
      RowBox[{"0.4812237524557293`", " ",
    3 s3 X5 J0 k& `2 K9 b   SuperscriptBox["\[ExponentialE]",
    + C3 w0 G* R; b    RowBox[{"3.1415926535897936`", " ", ! @0 x! a% f( V5 Z# j  Q& y
         RowBox[{"(",
    3 C3 g" }5 H. ?* K! |6 D0 e, Y      RowBox[{$ z4 v9 d, C, I: }" I/ X
           RowBox[{"-", "0.109748954594`"}], "-", 5 d, w& H4 Z8 X
           SuperscriptBox[" o3 o! r5 a3 Z/ L
            RowBox[{"(", , O$ Y# z( S; ~  M5 }+ v) u/ ?0 Y) V8 l
             RowBox[{$ X0 h" q) ?: `
              RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", ( O# w/ z0 m  [/ r2 L" o5 h4 D
           SuperscriptBox["x6", "2"], "-", ) Z9 e4 V& U6 K1 Z/ L
           SuperscriptBox[2 I+ G& l! c6 z& L6 A3 i
            RowBox[{"(", * W( _% d5 V1 Y9 }  D
             RowBox[{, l! s1 U8 w0 r; |. H5 u
              RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", 1 k9 F' N4 i1 {
           SuperscriptBox["x8", "2"], "-", 3 g; B; @1 A& H7 y+ H+ P' c6 J
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", ! ?* a- h! ~5 D+ ~. M5 @
      RowBox[{"0.176024676254045`", " ",
    3 K8 k9 G8 t& N% Y$ E   SuperscriptBox["\[ExponentialE]",
    : k6 T9 i8 k: L$ m) J7 G1 j    RowBox[{"3.1415926535897936`", " ",
    3 ?; n. T# {% @3 [2 ^0 R/ ]1 k     RowBox[{"(",
    " i; l- }. [3 F+ f3 I. _) [      RowBox[{
    6 g; O* T$ h8 ~; D. |" p/ ]! j       RowBox[{"-", "0.14616677062500003`"}], "-", + F" a. _8 L$ M5 d8 }, j
           SuperscriptBox[; X, \' M) V& {0 ]. t
            RowBox[{"(", + k! [, \" \. O4 r1 b- y" R" E
             RowBox[{1 U+ u" Q: f8 H8 O5 W# x
              RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", % K5 X9 A: G* r4 }( l
           SuperscriptBox["x6", "2"], "-",
    + L6 G+ N( w  K( l( u, H5 @       SuperscriptBox[; [! D8 E. e) y* R+ _
            RowBox[{"(", % d- A( r8 v4 o/ Z& V; V4 H
             RowBox[{
    + T/ E5 m7 h" u3 ]0 |          RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", / W* d' y6 H% Y, D! ?  `( d. x
           SuperscriptBox["x8", "2"], "-", , Z5 D6 M) w5 a2 P
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
    + T. E; E6 {3 f$ n! `- w  RowBox[{"0.5945873894818965`", " ",
    2 [/ |- _4 y1 B0 x# l5 j2 V2 {   SuperscriptBox["\[ExponentialE]", 5 [7 ?6 g: \+ ]
        RowBox[{"3.1415926535897936`", " ",
    ! n6 L) _- d& [5 W3 U" }     RowBox[{"(", ! Q0 g3 C+ a- q+ b
          RowBox[{
    ' u, l- X2 I: Z; }       RowBox[{"-", "0.10407011464100005`"}], "-", ' X5 I0 k3 K5 v# L4 S
           SuperscriptBox[
    " [8 m3 j, {6 \3 X& h; b4 L! N- f% c6 x        RowBox[{"(", # d5 K, w# }' G( t: F
             RowBox[{
    8 y* ^7 w/ ?1 V  H* I; l          RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", ! E" C( U, _0 \$ R# y# h2 v
           SuperscriptBox[" `2 [6 r6 i1 @6 s5 m
            RowBox[{"(", ! Q3 Y( L0 T2 z' Z8 C" r
             RowBox[{3 K$ D" m3 T0 t. ~& R
              RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
    5 B* f; _7 Q6 _       SuperscriptBox[
    9 ?7 H" z: S* f6 t9 @9 K. Z        RowBox[{"(", & q6 k- ?3 G+ B7 g+ @, G8 Y  K
             RowBox[{" o: |& h, I7 F4 c7 x4 `
              RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", ' R6 Z+ D6 _) Q' o$ |) X& i# b
           SuperscriptBox["x8", "2"], "-",
    + c1 j7 b; H+ |       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", # o$ M5 `6 G% T2 E6 R1 ^7 |2 A6 Y
      RowBox[{"0.027591936509660075`", " ",
    ' [7 h2 q! N! K3 S7 a7 N9 n   SuperscriptBox["\[ExponentialE]",
      T: X' m) S8 x! i, E+ x# V    RowBox[{"3.1415926535897936`", " ", 2 _: P, @! Y3 ~2 Q
         RowBox[{"(",
    # o( y+ \6 K+ X; E      RowBox[{
    + E4 t2 V7 o) p0 R0 T5 Z# i       RowBox[{"-", "0.31770463544200006`"}], "-",
    4 z2 w% b+ ^! a0 }! z       SuperscriptBox[( e" s9 u5 a* z& ~2 }7 X
            RowBox[{"(",
    " |) `& W& i/ H; z4 W4 z         RowBox[{8 L6 e0 R  R3 f) m) I
              RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
    9 W. E1 b# b0 H       SuperscriptBox["x6", "2"], "-", 5 U+ z: W' k" I: Y5 h
           SuperscriptBox["x7", "2"], "-",
      j+ b% n0 o+ E9 H       SuperscriptBox["x8", "2"], "-", - N! ]) L0 O1 Z3 ]6 ~' ]
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    / ~7 \, x- N% a0 m- ~" H( X1 i3 Z+ }: U  RowBox[{"0.5252475961933536`", " ", ! g  ]" }: z# b1 D7 }
       SuperscriptBox["\[ExponentialE]", & w  j0 I- }3 f% g, A
        RowBox[{"3.1415926535897936`", " ",
    + V/ ?: a# L$ {3 |5 d% r( @     RowBox[{"(", : s2 ^0 q+ `; V2 N7 i0 [6 \
          RowBox[{1 `( x- F- w$ h' }
           RowBox[{"-", "0.6410867660730001`"}], "-",
    9 s" ?$ V8 u8 R% D3 J/ G       SuperscriptBox[/ q/ f, d+ k, v6 D) n) _
            RowBox[{"(",
    - ^9 ]2 ^0 p% e' \         RowBox[{5 ~- t2 Z* v4 j
              RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", . O) P9 c5 [2 v3 @% b/ e
           SuperscriptBox["x6", "2"], "-", % E+ F# D0 K7 {: b6 z+ [) o" i0 d
           SuperscriptBox["x7", "2"], "-", & d3 _+ Z8 |/ [$ _/ Y7 H
           SuperscriptBox["x8", "2"], "-", / g9 i) i! g4 B6 ~; x
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
    . @0 H% \/ |1 u( i: P: w0 }  RowBox[{"0.32047284779644936`", " ", % F1 c5 O- _  k  m
       SuperscriptBox["\[ExponentialE]",
    * s( X( I5 D" b' G7 f. h! e    RowBox[{"3.1415926535897936`", " ",   q8 u0 t) w. @
         RowBox[{"(", 1 f9 E5 p5 k$ t; T
          RowBox[{/ U3 F1 g. p6 Q  L2 C# N7 g
           RowBox[{"-", "0.155663887074`"}], "-",
    $ I6 y: g* ]3 G: Y" c       SuperscriptBox[
    4 j' K  \3 k" W; E2 [        RowBox[{"(",
    ; f5 b* }* Q7 }1 N9 }# u  z% T% N8 ]         RowBox[{
    $ }2 G5 e. B! t# T          RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", 5 h  j. r8 H) @9 a' S) |# X3 R
           SuperscriptBox["x6", "2"], "-",
    1 ?2 L% O/ I, ]" I% u1 P       SuperscriptBox["x7", "2"], "-", - O0 S# X; I0 Z
           SuperscriptBox["x8", "2"], "-",   H* K5 w% A" m  @3 ^& s" s# I
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", * l0 x  e1 T3 ^  W
      RowBox[{"0.7528674241482847`", " ", , q! Q( `5 G8 U! f2 [& E- x! Y
       SuperscriptBox["\[ExponentialE]", * J8 s3 g# O$ @
        RowBox[{"3.1415926535897936`", " ",
    7 t9 U' a/ l' l- G1 Z/ A     RowBox[{"(",
    - H9 H2 O2 z3 c; K; z# v9 ?. k      RowBox[{5 Q: m1 V5 b4 ^3 c/ ?0 l9 @
           RowBox[{"-", "0.14151232428600002`"}], "-",
    + ?( q$ ~: f8 q% p' G+ V2 T       SuperscriptBox[( [; L$ n  }0 W( [5 h( I) v
            RowBox[{"(", . e8 N: P8 R( K& k( ?9 r
             RowBox[{
    ( T7 s% ~% n8 u          RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", 3 C% S$ e& _2 p9 l" S; I% U
           SuperscriptBox["x6", "2"], "-", 2 z" f; [. F; M  R1 R% v
           SuperscriptBox["x7", "2"], "-", 2 n0 x( c9 H# V
           SuperscriptBox["x8", "2"], "-",
    " K' b; J8 x7 g- }       SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",
    + T2 O% p7 a; M5 i( A& O CellChangeTimes->{3.5779628386090403`*^9}]
    $ e9 Z& u( K$ o! l6 C8 f}, Open  ]],
    ) Y2 Q5 w" H6 P' n- f6 [2 Z" T6 p  j/ _
    Cell[BoxData[" "], "Input",8 u. U: J  P( H( P4 o
    CellChangeTimes->{3.577962835879035*^9}],
    3 c* M, S  V8 w4 b5 B# s& Q
    7 J8 }+ H9 c4 q6 d! i/ C* U5 sCell[BoxData["\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\:4e3a"], "Input"],1 z7 W+ b6 A2 ^, |$ k( h

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

    4 P0 c: l, @* w- k5 r(* End of internal cache information *）: k5 [& g! V2 `- u* _
    5 w9 a* v; u1 D+ ~
    这个是用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-4-15 19:14 , Processed in 1.892850 second(s), 100 queries .

    回顶部