快捷通道

QQ登录

只需要一步，快速开始

  注册地址  找回密码

数学建模社区-数学中国

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

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

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

1

主题

10

听众

296

积分

升级  98%

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

    • 签到天数: 75 天

    [LV.6]常住居民II

    自我介绍
    无

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

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

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

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

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

    相关帖子
    回复

    使用道具 举报

    兰秋小沫        

    0

    主题

    7

    听众

    31

    积分

    升级  27.37%

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

    • 签到天数: 7 天

    [LV.3]偶尔看看II

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

    使用道具 举报

    涳夢        

    0

    主题

    0

    听众

    1

    积分

    升级  20%

    该用户从未签到

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

    使用道具 举报

    冰E柠檬        

    10

    主题

    43

    听众

    1434

    积分

    升级  43.4%

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

    • 签到天数: 278 天

    [LV.8]以坛为家I

    自我介绍
    冰E柠檬

    社区QQ达人

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

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

    群组: 数学建摸协会

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

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

    使用道具 举报

    百年孤独 实名认证       

    3503

    主题

    538

    听众

    5990

    积分

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

    • 签到天数: 691 天

    [LV.9]以坛为家II

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

    群组: 2013年国赛赛前培训

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

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

    群组: 物联网工程师考试

    群组: 2013年美赛优秀论文解
    5#
    发表于 2013-7-30 20:56 |只看该作者 |招呼Ta 关注Ta
    问题完善一下！或者把代码贴上！! ^8 @/ H4 K9 A5 Y4 Q
    回复

    使用道具 举报

    琳123        

    1

    主题

    10

    听众

    296

    积分

    升级  98%

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

    • 签到天数: 75 天

    [LV.6]常住居民II

    自我介绍
    无

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

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

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

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

    群组: 物联网工程师培训
    6#
    发表于 2013-8-24 13:13 |只看该作者 |招呼Ta 关注Ta
    涳夢 发表于 2013-7-30 20:31 ) S- D: u  s6 i  p$ w# q" ~
    神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗

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

    . t9 V5 S5 s& q) U3 \7 j! B% vCell[BoxData["M1"], "Input",
    : T8 v9 m# s7 h4 N* o9 D CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
    - ?$ Q) j' _" H4 ~- B
    & s/ p& R1 f- A. J1 X: YCell[BoxData["21"], "Output",
    1 I; x# R: v" ~/ f/ e( x2 i3 I CellChangeTimes->{
    2 w8 l: D7 |" r1 L; }" ^  3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {
    % h1 ]! \+ {4 y- J0 P, }0 o7 n- E8 w6 N+ X   3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9,
    / d, B! i) o! \   3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {
    - }5 @* {5 s) s+ O8 ^' k1 D( C   3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
    : n1 Y  _/ q  b8 U2 Z2 S' M+ B7 Q   3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {% W% ]5 ?: \" ?4 J* @" p
       3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9,
    9 U, {6 Y1 r8 [! }9 B& \. o   3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
    + i( z. |* z, u; w, O* c   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9, + c) r, H% Z. R5 U1 b: Q! C: C
       3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9,
      z% }7 n! T; b5 U4 L   3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9, * ~" z" e+ Y2 h2 b0 \& p
       3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9,
    5 H, C9 v( d. `0 A- E   3.577960515600726*^9, 3.5780121541875*^9}]
    ! x, H' _; M. C% S; w! e}, Open  ]],7 |7 f/ h' @; e2 x- X
    : ]+ E. {6 t/ G' ?# P, w
    Cell[BoxData[
    0 P0 h  M* q/ \4 o RowBox[{
    & g1 P1 v. |8 R$ O; _$ ^  RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[", * J1 r) _) L$ S  h* n
       RowBox[{"1", ",", "i"}], "]"}], 0 E- E$ c, ?& G; j1 r) p
      RowBox[{"\:5230CM", "[", ' f2 k- }$ m; S! X8 n
       RowBox[{"21", ",", "i"}], "]"}], / P- r8 o! H3 N
      "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\% |) t  i& N) ]( T- c0 S5 v
    \:51fd\:6570u1\:5230u21"}]], "Input",
    0 f# g1 [4 u" k. w& V" Z9 v CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {3 I" M' G) Y1 k+ Y& m
      3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9,
    3 k/ k: I0 X; t, y: t5 [  3.577960526583145*^9}}],
    ) z4 d6 }0 K/ G4 n, {+ ~* \3 Q. p5 Q1 n5 D5 E/ G7 G
    Cell[BoxData[
    0 O+ s! B' u- P; h. V RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
    0 W! h: l" B8 I2 q$ w CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],
    ; J( f! T5 [2 w5 h# ?7 u: g# r. c  a( l4 K
    Cell[CellGroupData[{5 ], y" u- ?9 R9 N, p8 O9 I0 z
    / e5 q; e$ C2 P( ^
    Cell[BoxData[  B1 L5 q2 A; R! h" Y: @* y
    RowBox[{"Xa", "=",
    3 O2 T: b0 v+ c  RowBox[{"{",
    ) z9 m7 t0 ?% t- O# o5 J   RowBox[{
    7 ~& h! M9 z/ |' A& O   "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", 0 D* h7 F# f. E9 z8 b0 V
        ",", "x8", ",", "x9"}], "}"}]}]], "Input",  l. x5 P" i" q9 }& U- `% |. p6 R: H, |
    CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],5 y7 o9 F/ |8 E- g* ^3 J
    * m& J% D0 h: H) X4 O/ I5 I' Y% U
    Cell[BoxData[6 K2 t. Y* a, d' ^3 g2 \6 E# L9 W
    RowBox[{"{",
    : y; V' i7 D; {; h7 d  RowBox[{: |0 Z' [" b/ R; w& s  M' `
      "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
    6 h+ n3 w! W. \# V9 X* S    "x8", ",", "x9"}], "}"}]], "Output",
    ' o" r: r7 w& B; q5 I" D CellChangeTimes->{
    % [8 Q2 h/ Z4 l! |4 _3 `+ e, z  3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9, ( z; n' x3 p2 g
       3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9, $ G$ Q5 y( K6 p( B7 b
       3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
    6 H6 E/ Q: J1 v9 T' d8 [# K+ ~   3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9, / n% |& w$ M1 t, V1 V
       3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {% v5 [1 d/ K; c/ h. V
       3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9,
    0 x, G* ^2 |" o7 Q8 [   3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9}, ' I! N) m6 u! V
       3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {; t9 Q+ U% U, q5 ~, Z
       3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {
    9 M. X" V; e$ x* }! k   3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
    8 L/ ~9 Y, r+ E1 R   3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9}, - x, R8 o+ U0 ?- G4 k% `9 n
       3.57801215725*^9}]
    ( E: B8 P" z4 [  w7 Y5 ?}, Open  ]],+ D5 E" M1 b, h
    # Y& e/ R2 j' _$ f3 c, f$ x
    Cell[CellGroupData[{4 \$ V0 E$ W1 B

    $ c  z6 t1 p' ?9 I: s2 fCell[BoxData[
    $ |6 b* V' n. M5 H, X, } RowBox[{"Ca", "=",
    / P" f. l$ P6 Q4 y  RowBox[{"{",
    & ]7 v9 M7 ]: K, C+ O  u   RowBox[{& f/ d# x# u4 u" |0 [" ]; V  ~  ^
       "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7",
    ) o4 |9 D, b' Y2 y    ",", "c8", ",", "c9"}], "}"}]}]], "Input",/ T! M$ A- ^& G: e! J# E% P
    CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],: O2 f: I% T  p2 X  s  R; [

    1 r# W5 E: L% x+ a! nCell[BoxData[4 ?9 ?8 }/ D! K9 e) o- `/ ^
    RowBox[{"{", % h, H! Z: f, b  ]% u/ X
      RowBox[{& E; m$ d) ^  O3 B" K3 m& ~
      "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
    1 y; P3 \2 {$ z1 j0 z    "c8", ",", "c9"}], "}"}]], "Output",
    5 {% n1 }( {3 i. U CellChangeTimes->{
    ) h1 h. _( e. o( D  f$ |  3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
    6 z5 P  E+ I8 R8 Y- |   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
    9 }- _' o$ S: G4 f# x8 G   3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9, " N9 {( {7 Z0 D* M$ S
       3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {
    7 Z" X& N4 B- c( Z, H   3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9, - `( j' V/ T, V- \2 Z, b  K
       3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9}, ' e1 u3 R" O, n$ `6 M" u
       3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9, ! j/ Z5 c; d6 B5 d, N
       3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9,
    ( o9 U; N9 ^- e. f# h2 _   3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9}, , [5 Z- h9 J0 p0 m6 n( T" ?
       3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
    / [! p- ]8 E  s   3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
    ! X* O# q4 d8 A) O' n   3.577961904604212*^9}, 3.578012158671875*^9}]
    ( C9 E- _  _9 k2 o* A}, Open  ]],
    " x$ p4 J- R( E( r9 j3 G1 C1 X0 a
    ! G8 s$ N! b$ aCell[BoxData[
    0 ^% I( G2 j8 V RowBox[{"For", "[", # ?$ J1 a6 F% t- b; N8 }
      RowBox[{
    * S9 U8 M9 P+ h3 a0 n7 b) |  R' C   RowBox[{"i", "=", "1"}], ",",
    ' w# p+ s! V* ]. r% h   RowBox[{"i", "\[LessEqual]", "9"}], ",", , _+ g+ v. J1 D7 @1 ]3 i( R
       RowBox[{"i", "++"}], ",", $ B: S8 c6 `. A' U7 G1 [
       RowBox[{* k0 R( ?$ S) R, _3 Q
        RowBox[{"Ca", "[", 7 Q4 B7 n. u3 p7 }" P
         RowBox[{"[", "i", "]"}], "]"}], "=", . ], y8 C8 c" w) S9 E$ h
        RowBox[{"CM", "[",
    . X& M& D& j( k' w: a# Z# J/ {     RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    & F2 S0 }0 X& ?6 B: k CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
    : l6 s8 o$ U6 m6 J7 g   3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9, ( h/ H  e  A3 M7 F7 v' @
       3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9, & D0 \1 F/ C, U) Q7 A3 v
       3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9, ( [" y, E' B$ C
       3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9,
    * U1 W: c7 X$ W+ {& J9 |   3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9, . r2 q( }+ T& i- Y; e
       3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
    0 `; f- ~) {: E4 y   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9, 8 L1 ~. |& k/ J; @
       3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
    2 F" l& I/ Z5 O" r# c   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
    4 e# \7 @  C! ?2 Y% _( n! g% \   3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
    2 \) T  _! Z+ H3 t. b) a* z1 P   3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9, 9 X/ n* m) d; y1 n' u
       3.577961906897415*^9}, 3.578012176296875*^9}],, L$ u! ~2 f9 g5 k+ g" O
    $ X6 w; s/ }% Y/ h. ^- G
    Cell[CellGroupData[{
    ; K' B1 W- G! Q; J4 [; ]! \2 H2 Y6 O; P' r2 m5 }$ H
    Cell[BoxData[& N$ d" E3 \% d5 b8 w. e
    RowBox[{: ?4 F) Z9 v& I; m* O/ e. ^
      RowBox[{"(",
    ' L- K3 _( {, K" K3 [5 u& t   RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    $ {3 z1 z4 D# K5 G  RowBox[{"(",
    0 [6 c  B" k" ?. @8 r% s; k5 e   RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],9 z6 B; y6 A+ w5 u( G( {

    . Z) g( D$ h7 G6 hCell[BoxData[
    8 z& G$ ^" O6 m8 w3 }' h RowBox[{8 j; J, _3 m4 {# ], f3 D" y0 p
      SuperscriptBox[+ y& E  Q+ d3 o# D  S
       RowBox[{"(", # i1 M- N. L% I$ }$ J5 z
        RowBox[{
    , @0 s, k4 O1 i9 ]" d* w" M, |     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+", " M5 s. H( ^8 h" J% d
      SuperscriptBox[; M- o  w0 G4 ~- B
       RowBox[{"(", . k  @( A+ I0 q! I2 [
        RowBox[{
    : j$ Y: y% U  M+ R" H     RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+", : x& ~2 a2 |$ m
      SuperscriptBox[
    : m9 N- h% T( W* K   RowBox[{"(",
    8 F' J, C9 x# g  U4 W    RowBox[{
    & |4 U& R+ `6 H; V: D7 G+ X2 {     RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+", 9 c% o( `4 A$ y  X" r
      SuperscriptBox[
    8 p) l$ D1 V8 O$ h% K% ~   RowBox[{"(",
    8 P3 A1 a( t4 P; r$ J& Y! o! Q3 p/ C    RowBox[{
      B* H. N! t1 ^3 I     RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
    + ?4 y) ^7 T1 h5 w( v  SuperscriptBox[. G: q- e3 c/ i& o7 u
       RowBox[{"(",
    1 j8 e. q3 A% c: L+ ?( y$ H1 m1 _: m    RowBox[{
    / |" X7 }3 p4 o8 _0 u8 a     RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+", ; e) f; m( h. y& g& d0 Y" r
      SuperscriptBox[
    0 M' B4 Z- G* _7 x( B+ O# h* W6 @   RowBox[{"(",
    ! r, [0 C7 C$ d" J+ \    RowBox[{* s. Q5 Z6 m5 V( f6 K$ @
         RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
    3 Z; d/ W5 c! Q  SuperscriptBox[
    4 k; g- L" v5 m& L   RowBox[{"(",
    4 \2 r" Q4 J5 Q    RowBox[{( v7 q9 S" z9 x7 o, i
         RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+", - E4 q* w+ {6 T, K9 b8 h7 ^( o
      SuperscriptBox[
    , U" r! D5 B5 Q% G0 |   RowBox[{"(",
    ) P) b9 W6 b; N    RowBox[{5 G3 Y+ x3 F) f) ?
         RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+",
    , ?, n1 f" \( F! C6 B% D$ |. X  SuperscriptBox[
    ; }# H- d! x; x$ z4 O   RowBox[{"(", / H  D$ H: J7 [4 A( a4 X' z. q
        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output"," W- G  Z* N+ T8 l6 x) I
    CellChangeTimes->{
    6 ^& B: p$ D9 x: X) A  3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, & t5 J; Z2 J% B6 B( b7 Y
       3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9, 4 K6 T. y) ^4 N. U: Q
       3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9, - w: S/ ?6 S6 ^2 X& k9 [
       3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9, & y1 f% y" U1 [
       3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9}, 7 R7 _+ q0 D2 L$ g" }
       3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9, ; E. I7 a* {, t4 X7 A1 ?
       3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {8 s0 Y) }5 ~) U  L8 c
       3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
    3 u9 T+ \# \4 D1 c   3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {
    # {( U7 c: W1 u6 F* X   3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {
    5 V' L8 D  j" \& k$ j- P/ R! o   3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9, * @, Y3 Q. _, c! z4 c. k3 _6 v% j+ [" G
       3.5779618537169228`*^9}, {3.5779618846049767`*^9,
    # E' d1 j: Z' ?9 |% e   3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]8 ~; _# m+ G! q& O* _$ y+ ]
    }, Open  ]],$ i8 O; a+ F- L# o& z

    2 h/ c. ^7 F- k& y2 Z% o/ oCell[CellGroupData[{; z, n" ?  Z% Y, L% e
    7 A3 P: E5 H4 c: r  L
    Cell[BoxData[/ I0 Q9 \' ~8 K, w% t
    RowBox[{
    . S% }: Z2 {, t; s6 u# `  RowBox[{"Ca", "[",
    3 f, S( S% `. v$ |   RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",2 l# P* p6 ?% W
    CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
    5 T* ]: S, s* E$ ]  3.5779616465173616`*^9}],
    - l3 t6 R% X2 o6 [- U; l" c4 _/ F  c# c! N; C! b5 H8 w
    Cell[BoxData["0"], "Output",9 u6 _- L/ n! B* _3 z4 Q. @7 ?7 Q( b
    CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
    / d# p, }: {1 l- X  u  3.5779616484049644`*^9}]
    $ P* Z3 Q3 Y! f# V) c}, Open  ]],$ u7 V4 i. _7 ~

    9 r1 V- j7 E. K, p% aCell[CellGroupData[{
    ; f, e4 Y6 ]+ \* F! Z3 l, y' W9 d) C: M
    Cell[BoxData[
    ! d5 v1 y8 i- i0 l1 m* X RowBox[{0 I$ j/ n- K4 }+ _0 l' d
      RowBox[{"Ca", "[", $ v  u+ u" a! j
       RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",+ D- k' J$ B4 m# z; P
    CellChangeTimes->{3.577957376235614*^9}],3 q* a# _3 U( c7 m: p

    9 ~. x7 G! n  I% f2 a3 K0 ?Cell[BoxData["0"], "Output",
    ! i! e& s  Z0 U0 a( i# `6 @ CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]
    . c$ k4 g, Q% c8 l6 a: ^9 b}, Open  ]],
    ' W, V0 R* x. L) q
    2 b$ z1 F2 S: A7 TCell[CellGroupData[{
    : ]; M% t' |. _; B3 @  r
    + ^4 t7 P. z6 O) |9 {& \Cell[BoxData[
    5 f* j  B8 j1 i  K+ g RowBox[{
    & ^9 f* X* U* m1 J  RowBox[{"Ca", "[", * z0 ~2 k+ [, L' ]# u( I- W
       RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",+ {# n2 R6 J. ]/ k+ J: w2 d, C! s
    CellChangeTimes->{3.5779573112927003`*^9}],
    2 y2 d* k7 o* R* k/ w. ^0 l  o# O6 G: f/ J
    Cell[BoxData["0"], "Output",
    3 W. _6 D2 P/ h' a, J3 a6 ]7 Y CellChangeTimes->{+ Y" b2 r9 j, L# R' L+ c
      3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9, + j: r. y5 t: f9 Y$ b+ l
       3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
    2 j0 u+ v" x  T$ [! i   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
      Y- `5 r' p) P6 m5 s   3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,
    ; ~4 b% m: h8 |* i( B% b9 u   3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9}, - M& X, `% j* G  E; A8 ]
       3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
    % D7 [1 O, v& E3 l9 y}, Open  ]],4 x' I. R* m5 d
    ) n/ g9 v# g; Q  T- I+ I
    Cell[CellGroupData[{2 n' {5 w! ?. f1 n3 a

    * U1 A5 ?4 I  ~! f  jCell[BoxData[* Q  N2 B+ @9 K. i. \2 @8 b. o
    RowBox[{
    9 _! `  o, y' A% ?/ t  RowBox[{"Ca", "[",
    , u3 _( m9 q$ |   RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
    3 C0 }+ C0 c, C CellChangeTimes->{3.577921461734375*^9}],
    2 U+ j2 R8 h  E) N9 ^: E
    . a9 h8 j8 s, ]' ~% J* u( X4 aCell[BoxData["0"], "Output",! j8 C# P. B( I1 @
    CellChangeTimes->{% _. b/ {* w2 d% O) v
      3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9, . n3 _$ N6 P: S, h( t
       3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
    4 r' L# A8 K% z% R# ~9 w  i3 C   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9, : R  ]" ^# N- f9 P) |
       3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9, $ l( M& o0 j* ~8 v: f, V& v0 M
       3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]" I7 v" v% L9 X4 v
    }, Open  ]],
    1 _6 s( U/ b& Q8 |& S/ m7 N& z" _& e: e+ U8 \+ X0 h: p( W0 E. w
    Cell[CellGroupData[{
    & w4 K, A1 n4 x: d; `* d' h- h
    & h: ^. S% U0 hCell[BoxData[. s9 J8 J7 D: J% m
    RowBox[{4 ^0 J5 _2 y/ v0 p. d8 R- V
      RowBox[{"Ca", "[",
    " m4 C: j1 J0 L; U( s5 F/ N   RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",; A# p% l* V$ P- ^1 h( V  R! b2 U
    CellChangeTimes->{3.577957303118286*^9}],
    7 ?% {' o; o2 Y3 a
    ) o) x7 \1 a; ~3 {: B2 Q6 Y1 V& JCell[BoxData["0"], "Output",
    " a: u  o) ]8 t/ _9 i2 z$ [/ ?. s, w CellChangeTimes->{
    1 t9 G$ N0 C* L! V  w3 T0 H. C8 x  3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {1 j+ O% y8 U' p; [5 E+ q
       3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
    ; b# H7 |& g4 j   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,   k: a4 y# R% ^* x0 r$ y  S- c( F
       3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9, 2 E" T, r! k% e( p" R, M
       3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
    ' I1 M8 Q" J- W7 S8 ~! v   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
    8 F% T+ _# z9 X   3.577961889378585*^9, 3.577961912965826*^9}}]. l$ X, H1 b& g" F1 y' H/ S
    }, Open  ]],
    0 c# z  W  l; S  @: v) ~4 P" g6 h
    0 X1 F+ _2 r; ?( r( M1 `4 F. zCell[CellGroupData[{
    - j* [) ~% c# V: }+ Q! |: v1 s6 V1 o8 B6 @/ B2 m/ C- |3 D; C
    Cell[BoxData[
    , j7 X8 `* \& O2 G* U- X) B RowBox[{
    $ g: Y  b# u- d5 a  RowBox[{"Ca", "[",
    / A: }7 M( P1 g6 J7 m) d  ^! j   RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",1 n; J- V$ d! b% C  Y- C
    CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {5 K0 p. \/ h5 n1 ]4 ]! [6 i
      3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9, " K! F% d2 s# d/ ]$ M) F6 T
      3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {
    2 K7 w& F$ V1 @0 g. F3 j  3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9, 4 Q5 r2 Z/ P5 L3 u" q9 ]2 U
      3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {
    ; s" |8 ^5 J" G: a+ s  E$ S  3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
    4 ?' D  l+ I1 x5 \, F+ _% T' X  3.577921435703125*^9}}],! l& n2 D- ?$ H

    3 k2 q4 G4 \3 R. N& q& |4 G/ hCell[BoxData["0"], "Output",
    : ~& W6 w+ x8 c/ R, o CellChangeTimes->{
    ' g6 m7 i" _  d5 J3 u$ `5 X% e  3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {. E' J4 v2 A+ ]4 O
       3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9,
    4 u! Y- i4 B3 G2 m   3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {: ~1 B# D* G8 Y; o& q5 e$ N
       3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9, $ ?) n: U; _4 C
       3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {) k! x3 c) f% J* t' u
       3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
    9 {; ^& z2 s; \3 |0 g) d( R- F   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
    + P; G* Y; W" _% [   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
      n- h- J" F- H: U- F   3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {9 W6 k! S( m# m& j7 j: z6 d" B
       3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9, ' Q& G$ U  K  q) u1 |; E( [
       3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {* }5 R" K1 [( a" _$ H$ a
       3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9,
    7 _8 y1 E, F% M   3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
    % ?( n, j. d- b}, Open  ]],
    + M2 @. U: k  z) w1 ^  y) x/ z: O$ k
    Cell[CellGroupData[{+ s0 @  t: [+ C4 V0 `' a6 z
    # _2 o. A+ L! e" X; G1 q
    Cell[BoxData[
    , N5 }7 h7 i" Y! a& I4 I/ }# D RowBox[{"Delta1", "=",
    " s/ ^! p& m7 `7 u( E( u  RowBox[{
    6 ~( U3 u8 {1 i7 N   SubsuperscriptBox["\[Integral]", 5 D2 C  x1 Z8 c8 A. ^7 V/ u
        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 1 d7 }$ T% l- R; X2 e& i
       RowBox[{
    - E9 Q( Z0 t0 L    SubsuperscriptBox["\[Integral]", # }$ S6 |2 Z- F7 i
         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    + ~, l  }7 W4 x4 x5 |    RowBox[{
    7 p4 c' D; `. H; J3 b, b& f; `" X     SubsuperscriptBox["\[Integral]",
    , i9 n$ i, C0 `# l6 ]$ N4 R. ^      RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], & E. ^; h: x0 ~9 D
         RowBox[{
    2 h) ]! @7 o6 n6 k  n# j      SubsuperscriptBox["\[Integral]",
    # ?1 r6 o3 w) c+ [% \1 s6 E/ z       RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 8 x8 H$ }: `6 P/ w, [6 d
          RowBox[{
    # O9 b: g  z# U" M0 j       SubsuperscriptBox["\[Integral]", : k# @4 L, l: p# R$ F
            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 0 @% @2 q5 j8 X
           RowBox[{  Q: b5 e+ c4 g% o3 _
            SubsuperscriptBox["\[Integral]",
    ( o+ w0 W/ f4 T6 r; O; U" P         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 2 s9 y# Q" s& s  c+ E
            RowBox[{
    # v) P0 g& ~/ H         SubsuperscriptBox["\[Integral]", " x$ p8 a2 Z4 X0 I" k$ B- v* \
              RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    * ?; e) ^2 b2 d# Z         RowBox[{
    1 n; J' z' d; v" K' U* k& Q8 k- i2 ]          SubsuperscriptBox["\[Integral]",
    6 l( @3 \/ j( s/ o* ]/ O           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    7 d0 f  z) L, N0 f  u, }          RowBox[{
    ' ^+ [+ n; M( G2 o. O( ^4 n           SubsuperscriptBox["\[Integral]",
    * t7 P3 T! B+ ~5 l            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], + U0 I& a" r$ T6 X* X2 L
               RowBox[{, x6 O, X1 z  I9 r* Z7 r5 g
                RowBox[{"Exp", "[", " o9 Y8 B; C  i" L% u6 r
                 RowBox[{& f5 t9 z% z- j* s: {
                  RowBox[{+ N' Y- \! ^5 c5 u) t  ^
                   RowBox[{"-",
    2 i- M6 E& N4 M$ T$ A7 ^+ B                RowBox[{
    " D+ q8 l* f) K                 RowBox[{"(",
    5 W  {2 C4 }# r. W* n                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".", / H# k  t( x8 ]6 L
                     RowBox[{"(", / d" w0 n) J+ L
                      RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
    : l$ L& M# z. l5 K, {- @2 u              "Delta"}], "]"}],
    6 e1 L; O; Z- }+ `6 W; r5 M- y            RowBox[{"\[DifferentialD]", "x1"}],
    3 @3 m/ x% D) u# f/ H' l2 ]% c            RowBox[{"\[DifferentialD]", "x2"}],
    2 _4 L% _: I, Y, K. A5 a0 h4 d6 P            RowBox[{"\[DifferentialD]", "x3"}], # z8 A! }& v# _' ~7 B# w
                RowBox[{"\[DifferentialD]", "x4"}], 9 y% e7 S! n& Q+ x! M
                RowBox[{"\[DifferentialD]", "x5"}],
    4 |7 ?. C0 i  S, o# ^. k            RowBox[{"\[DifferentialD]", "x6"}], % T) _8 f) K; Q, I" Y
                RowBox[{"\[DifferentialD]", "x7"}], . i: G! a" b- Q% t& N* M
                RowBox[{"\[DifferentialD]", "x8"}],
    / ]: E, E7 N4 b' l+ D            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
    6 X, r2 U6 C! Q6 S1 D' f# T4 G CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {
    9 ]2 P/ b! s' A4 V; S   3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9,   i0 d( y2 @7 f2 A
       3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {, O- g* P0 M1 Y0 D/ b
       3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
    ) ~! S+ q& c  E: O  U   3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {4 D! }; y2 i: r
       3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9,
    ) T  g2 T5 V# E) S   3.577918964453125*^9}}],( x8 M% S% F7 p% F

    ' l; {) I2 \1 y- B7 a- x/ B# f* WCell[BoxData[9 W5 g# @2 s( ~! F
    RowBox[{"97.40909103400237`", " ", 1 b7 ^( z# b9 u8 T9 N$ a" E5 x
      SuperscriptBox["Delta", "8"], " ", 9 G+ Z2 e& C1 B" q) ~+ N
      RowBox[{"If", "[",
    ; b% U3 Y$ x$ ]- U   RowBox[{' `8 j& s! `7 c5 m6 Z
        RowBox[{
    / [7 u& o! t0 F+ f8 E& Y- [2 i     RowBox[{"Re", "[", : q6 l, K; Y2 }* Q; f
          SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",", ! X+ p' V7 O- V
        FractionBox[
    ( r, M4 Z5 `- U" r1 z( k6 d     RowBox[{"1.7724538509055159`", " ",
    ) l8 c3 A" D) t" ~3 Q      SuperscriptBox["\[ExponentialE]", " |" U9 `( j' o( a! f' V
           FractionBox["1.1102230246251565`*^-16", * ~8 ]. r1 d* U" F6 B: y
            SuperscriptBox["Delta", "2"]]]}], 6 x# d$ m" a+ R8 }3 S0 \5 c+ b
         SqrtBox[
    / ^% J1 t; T) b% U% n* u; c      FractionBox["1", 0 ^1 t! F% U9 u9 K
           SuperscriptBox["Delta", "2"]]]], ",",
    6 \0 R- h4 S* n3 P    RowBox[{"Integrate", "[",
    ! g: Z4 F0 ?0 f8 J' X  S     RowBox[{8 p/ m2 ?- \8 v- ]% ^4 B
          SuperscriptBox["\[ExponentialE]",
    # W5 Z* k5 l9 i# C1 J$ |8 ^, o       FractionBox[/ F) E3 i: |+ U) Z9 {
            RowBox[{"1.1102230246251565`*^-16", "-", * \# B! F/ d. f+ n0 t, ~0 u9 a
             RowBox[{"1.`", " ", # t# h! V+ Y& I2 t6 ~$ H- q
              SuperscriptBox["x9", "2"]}]}], 8 N3 n4 I6 i. h$ Y& O+ d- P2 i
            SuperscriptBox["Delta", "2"]]], ",", + R* {" q! X8 ^
          RowBox[{"{",
    3 o' U1 X* A, _9 E% ~       RowBox[{"x9", ",",
    ' U% V7 A+ z! j" `7 j6 a4 [        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", ) G& s  J* h/ d3 [8 L- r' t: B% ]+ |
          RowBox[{"Assumptions", "\[Rule]", 8 ^( y$ P, W( Q
           RowBox[{
    0 R5 H- y7 O7 F- t3 u, o        RowBox[{"Re", "[", & \& E* S3 k3 H) w$ |, @3 V2 q
             SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}], " V& D" q( I( w, T5 I4 F
         "]"}]}], "]"}]}]], "Output",& \* E# l+ D% z! y/ T& _
    CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9, " V1 J: s; ~! s4 x) ~# g: g
      3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
    8 b# Q5 _( G/ r! f  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9, 0 @# o0 ?. x3 t' m" X
      3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9,
    + m! k! q. M/ s) r& x" z  3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
    2 M$ n/ W6 i& k& \4 L  3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9, ' G( t3 v0 n. e/ {
      3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]
    . f5 k( C: r7 J3 a, A}, Open  ]],
    + b- a: ^' w' Y: s3 w* x" ?  ~' P  U- Q; @! D( m! N
    Cell[CellGroupData[{, ^* r) [. S9 T+ F( m

    ; \' Y+ V& S1 y% U% X$ i. ^' CCell[BoxData[; F  k8 U; E5 H% S
    RowBox[{"Delta1", "=",
    ) _2 V' P9 ]( m4 B8 D* V2 [2 \. ]  StyleBox[
    / d$ y4 y. k- \- E/ g   RowBox[{"97.40909103400237`", " ", " t. m  }; R+ u  @. J$ Z0 ~
        SuperscriptBox["Delta", "8"], "  ",
    * x4 c. ?% [. w* {/ r    FractionBox[) {& j# C8 e9 V. }. J2 }
         RowBox[{"1.7724538509055159`", " ",
    / k- y, L; P2 a0 s      SuperscriptBox["\[ExponentialE]",
    6 K3 V9 M3 a4 O- s3 a5 E) w% w       FractionBox["1.1102230246251565`*^-16",
      i: c8 h0 `( U        SuperscriptBox["Delta", "2"]]]}],
    % L( e( k. \, f( H. ]     SqrtBox[- T$ X. k7 C  L5 D# u# G4 G% a
          FractionBox["1", - ~; Z3 E4 Y* m; B  d
           SuperscriptBox["Delta", "2"]]]]}],
    / w- A- V5 r& @- w9 w% ?, T   FontWeight->"Plain"]}]], "Input",
    ' P6 S; p. c5 w5 o CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {" g7 E& y- j( c2 o8 M0 ~& b: v
       3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9, 5 D7 ?* @9 }2 p9 h! V( J/ K
       3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {6 A! p5 I# L2 Q7 E, I+ y4 P
       3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
    9 n5 P1 b3 `( W   3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},
    , @- T+ Q$ g1 X* b% `+ q   3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],0 a) h& A5 `  M2 i' F* G" a: m' {

    6 a( [0 P2 U( p8 O0 A# }Cell[BoxData[
    # t$ o6 I3 O% J+ R FractionBox[
    8 ]. W- j2 B" f- }* V4 P  RowBox[{"172.65311851642346`", " ", 9 P: e6 Q8 R6 _- o5 I/ V
       SuperscriptBox["Delta", "8"], " ", % T, s# o6 ^3 j7 \2 [* R
       SuperscriptBox["\[ExponentialE]",
    4 y% v: n1 b' U    FractionBox["1.1102230246251565`*^-16",
    0 }  ]( Y: A- K: W% X: N5 a: ?     SuperscriptBox["Delta", "2"]]]}],
    & I$ y# ~- i% X6 {+ f# [  SqrtBox[
    0 z; e, d* G- @9 r, l   FractionBox["1",
    5 a! x: h) f" |7 p    SuperscriptBox["Delta", "2"]]]]], "Output",
    / z! Q' N, e1 u4 k CellChangeTimes->{, o* z+ @6 @* \
      3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9,
    / Z1 l' s# s0 S0 @8 j4 v5 D2 z   3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
    1 g" o  g6 R( o6 l, V: K5 A: f   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
    1 s6 i  j# C9 I1 g( X   3.578012166234375*^9}]
    8 H7 u' P$ m$ V  Q}, Open  ]],
    1 W. }' a, n, G% u
    . }' s$ P: M1 ~4 @  s+ }! {Cell[CellGroupData[{: Q) Z7 W4 I1 N; A/ w" |3 X

    / g+ h7 K& C0 ?6 t. bCell[BoxData[, X- x; c. ~6 C5 q# Q
    RowBox[{"DeltaX", "=",
    6 ?4 d0 [, i: h' Z  RowBox[{"FindRoot", "[", , ~* I8 Z) t- J4 {6 y1 |* q1 c
       RowBox[{& p7 l7 o+ j  ]9 }
        RowBox[{"Delta1", "\[Equal]", "1"}], ",", : H" Z0 ]& O5 T( r. O
        RowBox[{"{",
    " @. k: E! ]: ]8 b* @     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",7 R1 w- m2 \' m' E, A1 e; l
    CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {
    % u2 E; |  Y, X% S. `# @$ g, T8 h   3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9, 5 @' r$ v& j: i; ?5 t
       3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9, % Q7 w0 i' H2 t
       3.57791921584375*^9}}],' m# b+ c: H6 }7 g2 i  G$ D

    ' Y( ^& B: f# \- _- E* VCell[BoxData[
    $ [% u' x" s+ h% ]* g RowBox[{"{", : K/ N1 g; A4 t0 j/ Y
      RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",1 h3 ]* p6 m1 L* X9 [: x
    CellChangeTimes->{
    5 {+ u7 ^" t5 m! K3 X# g( U6 K- s  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
    ! u1 t+ r: s1 K# B   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9, & ^- }$ f8 |8 y# ~( [; [
       3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
    9 f1 Q: I9 {, ^2 n& r   3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
    , u- \- D5 C. R; c, d   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {5 _$ }; J) I4 B# F7 O! \0 Q/ l
       3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9,
    : @- [3 X( f8 N1 L  J" d$ k   3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
    ' T5 I0 s% {, k4 H1 J  s! M* T   3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
    ' h" A/ v7 }9 I2 d" ^   3.57796070150625*^9, 3.578012167703125*^9}]
    8 u; V' v: u: a* z' o8 J}, Open  ]],5 w, l& }7 z* ~' p. t

    2 g: k3 W& g$ T8 ^/ c$ v. wCell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\& U, n7 S+ c6 _/ o6 c
    \:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
    . A" c* l3 Q) B7 B) t$ f4 d1 g CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {! V. c! q4 }5 L) y0 |
      3.577960705312657*^9, 3.577960707621461*^9}}],
    5 u8 e* a5 n% c- q
    ) @* V) ^3 t, g, GCell[CellGroupData[{6 P. \& T) F; i/ j& I
    " U0 J- _* d4 M
    Cell[BoxData[; T$ G9 h# B+ ^. h! X
    RowBox[{"C1", "=", "Ca"}]], "Input"," a' [+ s$ Z$ B& m! \! Q  E% K
    CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],
    * f3 U3 x; j% o9 X% l- C  w; h" w5 e. U1 z/ ~- T
    Cell[BoxData[9 Q% U% t5 n5 o5 t7 I: h) \. f0 A& ?0 o* m
    RowBox[{"{", 3 }4 i- Q  |6 [/ r6 k
      RowBox[{; x# f( K: k1 k
      "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
    7 M( l9 c7 l3 ]3 T: x   "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
    # K5 C- A- v9 s   "0.`"}], "}"}]], "Output",8 m" Z* {6 J* w5 s5 @& o
    CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9, * `7 u0 R& j& Y! R' g1 }- a
      3.577960710273465*^9, 3.5780121855*^9}]0 J' @, D: }8 l( i( e, h
    }, Open  ]],
      A8 \* b5 l7 L$ s) o! Z7 p
    ! W) a) K! ^+ D3 [6 BCell[CellGroupData[{
    2 H' b2 c, e8 {6 a, J0 X  V
    1 ]5 m& P, |+ [& H5 m+ ^- WCell[BoxData[  }% [7 v: }  |9 k
    RowBox[{"u1", "=",   ~% E, C, D& \. S+ c0 a
      RowBox[{
    ) a& l9 w5 [; G) ^1 P# p4 x. r   RowBox[{"Exp", "[", ! ]8 b2 `  U' S: i. ?( J9 B$ V0 B
        RowBox[{( c7 C) O1 C9 Y, r/ x" q  V% I  \: r
         RowBox[{5 c  e! l# _1 C* e2 T! F8 Z
          RowBox[{"-", 2 Z9 [* D  r" b" q1 S$ R. _$ X
           RowBox[{$ x* S+ k& G/ P  ^$ P
            RowBox[{"(", $ G; x! R$ u& s+ F3 {1 V4 u
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    : P' ]# M5 F( F& j5 T        RowBox[{"(", - P# W. `& U( X
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    2 g0 e' N6 f$ f     "]"}], "/.", "DeltaX"}]}]], "Input",. x: m& b% {" }# P
    CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {
    ; G0 g) D% H- \   3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {
    & ]2 o1 \6 {! W+ n+ h   3.577919193484375*^9, 3.5779192326875*^9}}],$ P$ f! z& \2 q$ S

    1 I# |1 e: {/ t7 U* f8 A6 PCell[BoxData[
    . g7 H: A9 {5 b6 g  D7 v: \  [ SuperscriptBox["\[ExponentialE]", # H$ a! w- K) n* L2 H0 C2 {. H& r
      RowBox[{"3.141592653589793`", " ", / P$ ]7 N1 z/ v# Q
       RowBox[{"(", 5 b  d0 M9 o' N6 a: X
        RowBox[{) n! H& l( [2 A# N2 o7 x+ Z
         RowBox[{"-",
    $ t; u9 e+ ?  a* H# m, a! [' M0 J! n4 r      SuperscriptBox[
    6 I/ Q* T: |1 g: N; m% D& A7 j$ Q       RowBox[{"(",
    9 o! ]$ F1 u0 `, _0 y        RowBox[{
    ( x1 u7 ~5 G% C: \  W( q5 Q7 u; l         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", ( z& k  E9 {; n/ S1 Q
         SuperscriptBox[
    5 }; ^2 s' ]/ d      RowBox[{"(", ; J5 o/ C2 ^" u2 U
           RowBox[{
    7 W) _! S7 A6 X& p* |( X        RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
    + c/ |- a! H5 h3 l8 ]- g     SuperscriptBox[; J) o* e; a) `6 K8 y
          RowBox[{"(",
    9 Y1 \( t* ~) ]* `! {6 j6 i$ Y       RowBox[{" a& w3 [7 B: Z/ X6 p3 e& O
            RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", 0 E' L; C& Z" u9 [# @$ I1 T
         SuperscriptBox[
    5 O( [( x& b) h, E. h      RowBox[{"(",
    6 m# @! t  d" ^2 }7 L. Y       RowBox[{
    ( r  ^6 f1 T# {        RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
    6 X9 E+ p3 D6 v/ E" P, {+ I     SuperscriptBox[9 u4 T$ `3 ~- j* Q! L: e2 Z
          RowBox[{"(",
    2 i& e( m/ g# t1 `       RowBox[{
    : h$ j5 \& B0 T+ A) E. _; h        RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-", - `& M7 W. o: O4 R
         SuperscriptBox[
    / m) x1 M' \9 @: x& P      RowBox[{"(",
    # |' B  x+ I% l. j       RowBox[{# Q( {4 O6 h2 x  K3 S% a# t7 {7 ~
            RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", ! ]- T4 D# A5 f! V
         SuperscriptBox[: S$ y% G" y$ P+ P( a6 x. h
          RowBox[{"(", 2 _7 t% G, `' T  `3 x3 P
           RowBox[{
    , Y- X+ s0 w' X, Z        RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", ! P/ o+ F& l  K; x( O: t/ r8 H7 h: `; ?
         SuperscriptBox[5 C' f4 {/ l  E' C; W9 z: |! |. u
          RowBox[{"(", # M! j$ X; E# C. I! `1 _$ E2 m' T
           RowBox[{- V' z& q. e; D( E
            RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
    5 z) ]- P4 P- X. U- L     SuperscriptBox[1 r! w: H+ \3 k& L0 D4 {
          RowBox[{"(", 5 ?  i% v) F& G+ M! G4 g
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], - t" A' Z6 Q& _" R& s4 F; |
        ")"}]}]]], "Output",, H9 r1 G- c* P/ B7 K4 j! ?
    CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
    5 X( Z; C5 o+ i  a, [  3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9,
    6 o- \5 z& L6 I3 o  3.578012187078125*^9}]9 q3 e1 J) m; M) @- {) z
    }, Open  ]],% z; X+ L' m, i( m8 h8 O

    / G' h7 M. d3 j. o# i5 NCell[CellGroupData[{
    * h0 B: M4 C3 Z2 ]7 s
    0 X. e# h% h& D* s. j* [3 PCell[BoxData[# e6 k1 i% D2 q, O& M
    RowBox[{"C2", "=", "Ca"}]], "Input",
    7 {. O# x; A. l0 x  t) Q, c CellChangeTimes->{3.57792047321875*^9}],3 q3 ]( m9 N# ?% I2 D- J- h
    7 ~9 \1 i: w" H9 Z
    Cell[BoxData[
    4 l2 w$ m& x" i RowBox[{"{",
    : y) Z5 r: t" J! v3 e. H1 s  RowBox[{! O% l. J3 V' }
      "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",", 4 V* G* `" K& |4 K* Y
       "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}], ' f& [9 R' b  R: o
      "}"}]], "Output",: \- _. @  i( a# z# f) Y8 U. [6 }
    CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9, ) l8 ~: k2 S! p2 d
      3.5779607401163173`*^9, 3.578012204671875*^9}]7 M8 I4 X9 B% I% h2 ^5 S/ c7 V3 G
    }, Open  ]],
    " J+ [" ]  U& I, O
    2 E2 Z+ i6 J0 ^9 }* dCell[CellGroupData[{
    ! _4 o- w, ~1 c0 a+ ?4 O8 U: ~
    - \* I6 o9 k6 w4 j' o" R! A9 x' \7 xCell[BoxData[3 K2 ?0 j( G; Y
    RowBox[{"u2", "=",
    9 ^  b/ l0 u- e! N  RowBox[{# C' J. n7 M4 b% v! W4 u
       RowBox[{"Exp", "[",   A" P7 e' `' l7 g$ ^; L; z) H
        RowBox[{
    ) I6 y9 d. _1 _; ?) B" j6 W' l, n& p& C     RowBox[{
    0 G  i7 _( s" o3 c5 u& i. a& w      RowBox[{"-", 0 X1 |; j- G& a% ~$ U  \$ T  P
           RowBox[{
    / m% P/ r* s  v% S. c        RowBox[{"(", 5 h, Z1 P9 l4 r9 `( b) \. y* f" N3 c( R
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", * l& t5 r* ~) ?, t' ?
            RowBox[{"(", % C' \) @/ s; Z8 [9 g9 Y
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],! U) p) \1 \6 @8 J2 U7 ~* c
         "]"}], "/.", "DeltaX"}]}]], "Input",
    ( `. v/ s- }! x8 z) e7 }& m9 t CellChangeTimes->{3.577920484109375*^9}],% l1 V" _1 T* s; a2 q9 Z
    * w+ y  }7 y0 L5 z/ |
    Cell[BoxData[
    ' n  U# v9 u, E4 e. z SuperscriptBox["\[ExponentialE]",
    - |3 X" {7 }. z' {9 C9 C# M  RowBox[{"3.141592653589793`", " ", 2 [: p, i9 t. ]: H
       RowBox[{"(", : V2 c. l2 G& _% x8 I1 L3 q
        RowBox[{1 y) R7 s! ?, ]2 D; ~8 T! t2 V/ x
         RowBox[{"-", 8 U+ g+ n0 N' K5 P
          SuperscriptBox[% f& N5 B6 D; D0 S, n
           RowBox[{"(",
    - _( c3 q4 ~3 q" @        RowBox[{
    / L* b3 c- X  W) i* d) X         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", ; q8 `" U8 n' m; A, R
         SuperscriptBox[. a8 ~) V% n# ~0 L
          RowBox[{"(",
    $ b3 B' O- P( [       RowBox[{
    " ~  P, d8 E8 r, Y        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
    ! H7 ~" u9 |. c" P8 z: Z, }     SuperscriptBox[
    ) v/ g# Y2 M- I      RowBox[{"(", 5 a) Y& Q4 J  ?; g
           RowBox[{
      W; p0 A! q* z- _" e- b# j- k        RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", 2 y0 J+ K% z. r
         SuperscriptBox[7 ?  D9 \2 X1 T
          RowBox[{"(", : w( t9 y" u% M; d
           RowBox[{  _; L2 Y. {" i: b$ W% ~
            RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-", 8 Q: A& ~- Q; ]" h! |
         SuperscriptBox[( C9 I7 d5 r' p1 w* X4 u6 G
          RowBox[{"(", ! [8 V* j6 [, K8 O3 X4 V, B
           RowBox[{
    8 g" Y. r! m3 s9 Z$ R2 U* \* A2 p        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    # ^" J" c) H$ u, |% n/ a     SuperscriptBox[
    ; T7 b+ m2 R+ J      RowBox[{"(",
    4 U% |) v5 z4 b* @8 v, @6 @       RowBox[{
    ( W: C( a6 ?0 j' v! ?3 u9 y        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", 9 P7 q+ \( M7 q/ y* Z* T
         SuperscriptBox[* s& C1 i1 J2 ~$ N( ]
          RowBox[{"(",
    ! y' |. Z4 J/ L       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    ; P# P- y/ @& y" e  `# \- c     SuperscriptBox[
    5 f5 w) t+ z6 ?: l, A      RowBox[{"(",
    3 a  K/ I  E2 r       RowBox[{! y9 K, D" E/ g) x% B6 M; w
            RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
    1 t8 J% n2 o/ }: U( F     SuperscriptBox[5 W4 r% x7 F% v7 D8 ]1 U* b
          RowBox[{"(", 0 o  ]% d8 E! t8 [# x
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    3 f$ [* V! G1 h, a8 O/ P    ")"}]}]]], "Output",  _. s/ j. @+ u
    CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,   i* v) q; \2 Y* m" \, u7 ?
      3.5779607413955193`*^9, 3.578012205484375*^9}]# [: `5 `. N# g7 N
    }, Open  ]],
      N6 a  e1 h* G: |1 D5 i$ w9 i5 Q6 K  O. Z7 W
    Cell[CellGroupData[{" u5 }/ P* E, e% F. W4 D5 `

    5 _# O/ t' C+ o: a% J! ]# pCell[BoxData[
    ( _3 }8 G: {# o3 U" F RowBox[{"C3", "=", "Ca"}]], "Input",
    $ ]0 j4 e$ y& s! N( d# i3 R CellChangeTimes->{3.57792064125*^9}],
    7 x2 g0 q. E( L' x# L% c# Y
    0 b7 y% V/ B" i0 Q8 \# s& U0 oCell[BoxData[9 m4 |! Q: F2 E4 v
    RowBox[{"{", & ~  Q4 A! f: |
      RowBox[{
    # _" c9 Q6 W! U. m6 q, ?1 F0 A+ F  "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
    3 z; O$ o8 x  o2 {2 U   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}], 6 t" \6 M" `% i4 ?
      "}"}]], "Output",
    7 Y/ p4 q3 J  K4 U$ u1 K+ Z8 \ CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
    ' x; B" m5 X- d7 x% q  3.5779607642027593`*^9, 3.5780122103125*^9}]! {- i. n7 X# C2 s" L) k
    }, Open  ]],0 g9 k, U' d1 J+ A  M1 ^

    . ^2 b5 M, L" RCell[CellGroupData[{
    8 \: o' [; a  R* q, ?- ]& P0 @
    3 Z/ I" r9 B) v8 GCell[BoxData[
    2 u. C3 C- o9 |  |- e RowBox[{"u3", "=", 9 d- ]; A$ {0 r0 R1 v7 L
      RowBox[{3 r4 j* e( L" M$ U. {
       RowBox[{"Exp", "[", * ^% O4 c% n, E, U
        RowBox[{
    1 n2 S* G( P% `/ O# e; A! R% {     RowBox[{* {5 c5 @3 I' ^  |
          RowBox[{"-", ' l- R& K, i; h
           RowBox[{7 a1 }! R/ T& N+ ^# l0 ~8 |" Z
            RowBox[{"(",
    + |( b9 \$ H- J1 L  e3 U         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    , z8 Q, R- T1 h9 b# O+ R        RowBox[{"(",
    * C( ^5 {6 m0 @) }! [( d& t         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],4 j* D' i1 C; Z6 g9 s% y9 X1 P
         "]"}], "/.", "DeltaX"}]}]], "Input",
    ! b* X+ R5 T# I$ R  N5 ? CellChangeTimes->{3.57792064921875*^9}],6 p1 t$ r- I2 X2 {" l. l* J
    1 ^6 A6 K# k5 B" V2 d4 n
    Cell[BoxData[
    ( H' e4 z+ h4 D4 X) n/ c' E SuperscriptBox["\[ExponentialE]",
    8 j, w1 ^6 A) v6 Y0 f4 a8 }  RowBox[{"3.141592653589793`", " ", $ [. Q2 [  w. ?  ~7 u; `% ^9 v# G0 P3 M
       RowBox[{"(", : T- D0 f5 V% M; f; l* |
        RowBox[{
    ' ^  R! v3 ]( d1 U& \     RowBox[{"-",
    * [5 _$ Q$ M& ~: Y      SuperscriptBox[. t* o4 c9 {' }( R$ T* l$ h7 H% ^
           RowBox[{"(", 7 d! X' f$ Z& S0 h- e- f
            RowBox[{
      _6 l: r5 H  h- S. O* \0 x3 d# w) o         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ) H7 B  U/ f7 k9 t+ j- ^4 q     SuperscriptBox[( q# I: g6 U- ~$ h( u/ y
          RowBox[{"(",
    4 t4 B" X1 u+ n( O       RowBox[{
    9 U7 _7 w: r; C$ b6 n$ Q        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
    : e. Y3 t) T7 `9 g5 d$ ^4 E# J     SuperscriptBox[" P4 p  f/ ~6 @; a8 L" j
          RowBox[{"(",
    " j9 d; w$ B& J6 S. G       RowBox[{+ [6 G6 U+ N% H7 c5 A
            RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
    5 w1 e; O" |  s+ \, X2 w     SuperscriptBox[
    % D5 n# I3 A' s, j8 K7 f$ \      RowBox[{"(", # _3 o: r- o" m2 a/ u
           RowBox[{
    6 |0 Z6 h# L4 w/ y; |9 L        RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", % O+ V  y9 |" X; U1 `
         SuperscriptBox[9 D4 j3 }) ]3 ]. r9 d: P
          RowBox[{"(",
    2 ?* ]: F# v) l7 o+ }       RowBox[{
    . p. m0 g, a+ h  J( K8 C9 x5 c        RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-", 6 Y0 S2 X9 H1 b- L+ X9 @
         SuperscriptBox[& |% ~0 v" S% _) F8 Z
          RowBox[{"(",
    9 X; P0 O. ?; y2 }* e2 C9 x       RowBox[{; M2 q6 @( T8 t* g& g" u4 b
            RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", 6 s0 R, W5 O: D$ J: }) h
         SuperscriptBox[
    4 g" j( O- G$ y. J# g$ W- y- Y      RowBox[{"(",
    % _. \1 O# Z$ F7 J0 V       RowBox[{
    / U" e. M0 M( L. B& o        RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
    9 H+ n' f: |& h! y     SuperscriptBox[, `2 K! _! M0 K+ c, o
          RowBox[{"(", : E9 v" V& P$ R$ e$ v; p+ d
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    9 d* k7 D5 W" h2 `8 [0 j     SuperscriptBox[/ V6 g" j# Z8 F; n" k
          RowBox[{"(",
    8 w. c( W9 y/ D5 H' B/ T! [/ M       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    % W. V$ ^& Q) x) e4 U! x    ")"}]}]]], "Output",
    # V/ l; K( _0 B5 [; B2 @% | CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9, $ r2 z( f5 i9 L( Z& V
      3.5779607654819613`*^9, 3.578012211515625*^9}]; Q7 x/ R" I4 l  E- E6 H  N
    }, Open  ]],
    & n9 |, a& {% [6 }* P% i) R
    $ G- ?- g; L- f* u- zCell[CellGroupData[{
    3 f1 S* B$ Y9 P3 W' m8 i+ U! `
    : c- f, Q" R3 K; `# @9 y; }; mCell[BoxData[
    ! O) m: q( ^' U7 M" v RowBox[{"C4", "=", "Ca"}]], "Input",5 A8 e5 S8 E' J0 M. M: c
    CellChangeTimes->{3.5779207559375*^9}],
    . E2 l6 m3 y: ?4 x* {: c+ G9 `: z  @' f# s, ]2 \
    Cell[BoxData[
    1 L# t2 V  l# j1 o8 U RowBox[{"{", " {( `- f2 Z) o  j6 d
      RowBox[{
    # t" m2 m" I# N  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",", 6 Z) h' v8 `+ t0 Q2 e1 B
       "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], & z7 Z" X8 N6 X
      "}"}]], "Output",
    7 h0 S5 Q/ m( `& o2 i CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
    3 S8 Z7 [! A% y9 Q# @3 I  3.5779607861363974`*^9, 3.578012216171875*^9}]" U5 }/ T% i) e8 I# }6 {
    }, Open  ]],* `4 Z* A/ s3 Q  L" Q* o

    + w+ g/ A  y! o& RCell[CellGroupData[{
    : s2 X; m2 R! L& W: N( }! x2 a  i3 v$ F1 D% M: X0 P: G% Z
    Cell[BoxData[
    # I: I3 ~8 ?* J5 c9 {2 ? RowBox[{"u4", "=",
    6 p2 i- Q5 D' q2 c( u% I- d7 s  RowBox[{; n) P9 [/ C( ~' ?; I
       RowBox[{"Exp", "[", # @* I! e$ i6 c9 {0 ]0 r/ l! O
        RowBox[{. j# J6 G! v# N5 G
         RowBox[{
    * ~- P2 a9 M* ?5 w; W( ?6 i      RowBox[{"-", ( t& l0 S4 W# T9 V3 y( p
           RowBox[{4 |' {* _' V3 T
            RowBox[{"(", 5 H* O2 K9 _( u
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", $ E) o! i- O) n" E6 G- y% a" D
            RowBox[{"(",
    5 ~- S. Z& ~: u1 G         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],/ Z& g/ i" j) q) X# ^) @
         "]"}], "/.", "DeltaX"}]}]], "Input",
    4 ?$ f3 t! C- u) O5 ~# o/ { CellChangeTimes->{3.57792076325*^9}],1 W' b+ n5 l4 F1 A' e
    6 L6 `* \' B: D9 U  V% H
    Cell[BoxData[! a2 q+ w/ y( C
    SuperscriptBox["\[ExponentialE]", ( ^4 w0 `% ~4 F* x1 ~: Q! F4 b
      RowBox[{"3.141592653589793`", " ", , P% V3 K- R4 [  t. I% g
       RowBox[{"(", . {& I( L  t0 B- e+ X' t
        RowBox[{. Q2 o, ]+ q/ o
         RowBox[{"-", ' f! c! c2 R0 W6 s' g8 {. ^' G
          SuperscriptBox[
    7 n* _# j. j  C+ v1 W1 h       RowBox[{"(", - w* C. y/ {& C& F9 W) w
            RowBox[{
    ' |5 i8 T2 W4 B# k+ [6 w1 {; x( h, p/ b         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    # k. N! B$ |+ o8 C' J     SuperscriptBox[
    . ?; T% p9 M3 Y. F' e- X) I      RowBox[{"(", 5 `9 n- k. Q5 c! b1 \1 }
           RowBox[{6 L% H# Z( ^0 u2 Y
            RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-", , z' Q8 \2 ?9 K, t8 `
         SuperscriptBox[  @+ t" y2 b* M, @$ m6 e4 t" j
          RowBox[{"(", 3 e& n) g% F( j, h3 H
           RowBox[{
    6 p4 G) ^4 x+ m3 U! R/ T        RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", ; \8 i. i$ v# U8 Y, K$ e8 N) E
         SuperscriptBox[, P. B; {' L7 w. u$ K' O
          RowBox[{"(",
    ; g( f+ q1 d, P' R2 t       RowBox[{1 m) Q, g. a& w1 ]+ p! F- X- g2 W
            RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", 9 |" w4 {* A, n3 w
         SuperscriptBox[4 @/ }: F% L* y0 I- T, ^% X
          RowBox[{"(", ' U5 ~6 M+ F# l8 Q) O
           RowBox[{3 y1 K1 b' e2 q9 ^9 b4 D* u
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    , @2 K3 k! v0 u. A  M     SuperscriptBox[
    8 j1 F5 S3 W9 _- {8 D( l* e+ L      RowBox[{"(",
    1 s/ ^* c( F; }( n% ^. t; s2 j' M% _       RowBox[{
    9 w- E; L- U2 S" v        RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
    + D; C3 T0 e2 g6 i     SuperscriptBox[
    7 O- p1 [* j) i7 a5 l/ F. S# O- j      RowBox[{"(", & h$ L5 r9 ]/ t- m/ S- P# L, @
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",   T) L; y; D* h- p% X5 O
         SuperscriptBox[
    % g1 I* Z3 M) ?- h      RowBox[{"(",
    * k' C# `. G$ Y8 e       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 5 r4 ]. h: d, A* D" `
         SuperscriptBox[
    " s& A- K; W" w3 C" `( ^! \      RowBox[{"(",
    ( s$ F0 v) H1 O# U* B; I9 K8 @       RowBox[{
    " I! S4 U" r1 |9 o' p/ ^' k9 l        RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], & X! m8 Y; w$ x, H* }
        ")"}]}]]], "Output",+ H- N; S, S5 N- s& h
    CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,
    4 q5 F0 I/ C) }% @- N( t; r& K  3.5779607873531995`*^9, 3.5780122169375*^9}]
    5 _" U9 _8 J; `5 w( Y# e4 L}, Open  ]],+ i' B/ D, `3 M* {8 Y7 _
    ) x- T4 t) I9 @+ ]2 L
    Cell[CellGroupData[{
    - h# H( J, J# D* P& Z1 p! s7 ?% E+ g
    Cell[BoxData[  f+ p/ s. `8 M7 \% n/ ^4 s0 X
    RowBox[{"C5", "=", "Ca"}]], "Input",
    " o5 D1 N6 w8 R: w5 U; \3 P CellChangeTimes->{3.577920860671875*^9}],  B: g. s. G8 J: r2 ~. o6 J

    6 ~  b, R, e2 v8 x8 g4 SCell[BoxData[6 a% S1 Y' S0 S: L/ ~
    RowBox[{"{", # b( [8 J) N& q
      RowBox[{
    1 R" d! Y4 ?9 R  "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
    + G6 s) _# D7 P1 L  D9 t3 `   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}], . c  c4 _! H# S, Y$ p% E" q
      "}"}]], "Output",8 `8 O7 q0 O8 x2 u1 R& ]$ U5 ^
    CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
    - u; A2 ^% S5 D+ o8 |7 ?  3.5779608137328453`*^9, 3.5780122209375*^9}], W8 V2 A1 ?0 O- ~: ^$ W) t0 x
    }, Open  ]],
    ( j) v" C, p: J) V  _( E: B# }, C: o- L  `7 O: ?
    Cell[CellGroupData[{
    : P/ B# C' r: i4 ?
    " k: t5 i, @8 r; @/ m# D, rCell[BoxData[
    1 I5 A# j. n7 c0 F RowBox[{"u5", "=", - V4 q& \' Y4 k+ Z: T7 F
      RowBox[{
    ( G- K8 `# I4 P6 a" o$ y  n   RowBox[{"Exp", "[", - k! W3 d7 M- j5 @& `. p8 f$ S
        RowBox[{/ K3 F5 r! R. e3 Z8 Y1 w. C; U2 K
         RowBox[{3 J7 g: v) E" |# X0 l
          RowBox[{"-", ' ~" i8 ~4 z- ^
           RowBox[{
    / h2 H$ ?  d$ I+ O( s( h7 l" z, x        RowBox[{"(",
    ' b+ Q6 q9 k! P( \# J' O         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ( a+ `/ ]. |* e' n        RowBox[{"(", & S5 ~( [; X. L1 b
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    - h# `* d1 C$ z3 l     "]"}], "/.", "DeltaX"}]}]], "Input",
    / L  c% S- W: ?1 w4 z CellChangeTimes->{3.577920869375*^9}],
      ?8 m+ G: ^) K9 i
    4 i( c6 b& o/ A/ A" R* }& nCell[BoxData[/ d1 h! G2 u$ j, y. H8 x8 g
    SuperscriptBox["\[ExponentialE]",
    ) I! Y0 e# u, P0 K% E9 L2 p3 F  RowBox[{"3.141592653589793`", " ", 4 H; @* a  t( L% n: _) w- W
       RowBox[{"(", : {) j7 _- `7 \
        RowBox[{
    - J, w4 b. |7 U: }5 r  [     RowBox[{"-", 2 D8 c& Y8 x/ H5 D
          SuperscriptBox[5 F* s6 ~/ I+ i( c' F5 c3 O7 @
           RowBox[{"(",
    ' f; O0 g' |" h$ i0 T5 z        RowBox[{
    ' b9 t) H. m* I         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", - N6 D% t+ N4 `0 j0 N" K) C
         SuperscriptBox[
    " c8 }4 s, f5 V# c! e      RowBox[{"(", + F8 [* M% n, l! F" \! A, m. ]; d
           RowBox[{
    . @0 V3 t  p! ~3 j3 d; A) H        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
    # X( U$ ^) g6 L0 N' X4 T2 J     SuperscriptBox[( b, m9 \9 \) q  p8 e6 }5 c( F) ~
          RowBox[{"(",
    ) _4 P* b3 g' w$ i1 ]* F+ _$ T       RowBox[{+ `4 l% n. W. ^4 @- j. T
            RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", ) [4 E3 |+ Z* s4 v! I0 k
         SuperscriptBox[. S9 O3 K8 ~- N* R8 Y3 m
          RowBox[{"(",
    2 l! y( a3 R0 b5 @, r: d( C# G- p       RowBox[{
      u! J" Z9 T) m0 C2 c        RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
    0 Z0 `7 u) J5 G  b/ A) T     SuperscriptBox[
    & H6 M+ ]7 q) e0 v' s  j6 @2 x      RowBox[{"(", 0 N$ x+ S/ l: _/ s7 P* z* g
           RowBox[{6 L' U  K: R5 f# C& z$ _
            RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
    & V  T* m, S6 y3 c     SuperscriptBox[
    / O& R2 {; `8 b. \  s      RowBox[{"(", - R# c! q2 y- |8 W( S# c# z1 F
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 7 {, C$ M" T3 `" N% _5 O
         SuperscriptBox[
    0 n4 L8 Q( T/ z( ]: e; d% O% V, y      RowBox[{"(",
    % _+ Z5 {2 D: w9 t% k       RowBox[{
    % f% T# Y9 t1 {3 M# }        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    2 c/ A+ G& R( U& e  _; Q3 ?3 l     SuperscriptBox[; ?$ h: f6 _& \/ {2 v1 ~
          RowBox[{"(",
    7 S) A  v4 Q! G& b* V! ~6 Z4 P       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    8 I0 M3 L$ |% r; f8 W& p" y     SuperscriptBox[0 k1 x- q  m4 l# a) @+ z/ i( Z
          RowBox[{"(", 1 \: M+ h, `: ~9 \) u
           RowBox[{
    , s0 i5 h9 v2 @+ I  }% U0 K( K        RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], " I  M) C2 o3 i
        ")"}]}]]], "Output",9 P" Z$ V, U' ?4 f- F( t# `; U
    CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
    2 J; A7 s' u+ P; }* _" w  3.577960815043248*^9, 3.578012221953125*^9}]+ x0 @. m# L9 B; z4 x
    }, Open  ]],
    7 ?$ N# q$ f9 Q( m: [
    , i, s/ Q' M3 d& F+ {- Q: N: C' F1 eCell[CellGroupData[{* Q6 w9 I/ V  J$ h; J6 |
    . J% E7 O) V- E4 `+ K& d
    Cell[BoxData[% n4 I1 o$ u. M2 i' T8 i
    RowBox[{"C6", "=", "Ca"}]], "Input",  z* u" O- C) Y4 T  `# b% `/ o
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],
    ; {' Z% R: G+ M4 T  M' n) ^- O+ Z
    Cell[BoxData[% ~3 q' I8 t9 `& Y4 s4 v
    RowBox[{"{", . X# S4 X& J, ~) O  G* q* n
      RowBox[{
    # [2 I) J3 o8 X2 ^% y0 W' k  "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",", , A8 Q2 v7 {: h6 @
       "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
      ?3 ^1 g& j  z6 Y# t. G4 d* @   "0.494866`"}], "}"}]], "Output",
    3 F* M3 U2 e" j0 `6 [; b8 I/ }' c CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,
    5 f& z( M7 V! d. c( _: m/ @   3.5779608373044868`*^9, 3.578012227359375*^9}]
    $ _, O+ F+ z) [  A. Y}, Open  ]],
    * S6 |- h! ^, p  d$ t8 C
    . X1 `! N& l8 B( P5 E* y, ICell[CellGroupData[{
    + v& e; Y+ b6 H, _4 O; V$ D
    ' h4 I2 F" u6 t/ Z, aCell[BoxData[; R5 p* d6 `1 l6 c4 n* E, t
    RowBox[{"u6", "=", , K' \9 \( @3 p, N) o
      RowBox[{- P9 A3 h8 G& H5 g/ B
       RowBox[{"Exp", "[", 2 ?( R9 M' A" l, v- W
        RowBox[{3 g9 l" _( h* M) G; z* p! B, R
         RowBox[{
    * ?$ M' x4 Y: e* Q  J( {. c& F. \5 B      RowBox[{"-", ; M4 V1 _" g) a5 f( x: a* M( w3 x
           RowBox[{( l) P' e, Y# H5 Y, W
            RowBox[{"(", 9 H& k- a# g0 ~# X
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
      w" y3 F9 w+ }. v# y! }/ l% _        RowBox[{"(",
      P) e% w( e! L6 N         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],/ ?6 O& P1 `$ q3 t0 k
         "]"}], "/.", "DeltaX"}]}]], "Input",
    9 ~" O6 U% O* l, d( X; x CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],% M/ E6 D& j% ?7 G

    1 W/ z9 p5 ]+ O3 }9 l* wCell[BoxData[% i+ ], L8 C& u+ U/ K
    SuperscriptBox["\[ExponentialE]", - @+ |, [" A0 l; o3 V0 g# V
      RowBox[{"3.141592653589793`", " ",
    / V* }4 k  r& e& C( e   RowBox[{"(", # ^5 o2 Z- b, P& i: }2 o
        RowBox[{
    4 o; h, s9 \/ S6 _( h/ \- a. R     RowBox[{"-",
    - Z- V) F+ q( Z2 o# Q      SuperscriptBox[9 p. H4 \# X8 B- r* s& W5 p+ e3 z
           RowBox[{"(", ! d; \. a9 j% r  i
            RowBox[{9 Z4 d9 H" m" Z, L1 O
             RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-", ) w9 ]5 [5 ]) }. M
         SuperscriptBox[; u4 e" f  B2 J3 u- ^/ D
          RowBox[{"(",
    2 {3 m5 A# J9 |3 S, ~: y. h. J1 S& a       RowBox[{
    5 g8 n! ^( a$ e; b  U) d        RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", / v  o/ F2 U% G8 ~- n* L
         SuperscriptBox[
    5 h, l, [! p. h% i" M. Q      RowBox[{"(", 9 Y2 r, ^+ z- Z% M
           RowBox[{
    0 D  @" D, \$ G+ b* x: a. r6 k        RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", # S- e# x1 K. L7 M7 V% j
         SuperscriptBox[# d1 s1 B1 B3 T: r
          RowBox[{"(",   u4 N8 W% Z8 c5 m
           RowBox[{* v' Z; c( x+ U# y3 j) i2 b
            RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", - g; [( e7 g; C% k
         SuperscriptBox[+ ~- u: U! M$ K! k$ |! H% \
          RowBox[{"(", $ n# z1 |7 u! C8 ?
           RowBox[{
    : x9 \5 ~6 P/ g# L3 l        RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
    9 L6 C/ T  w: w: ]     SuperscriptBox[
    $ u/ O( w9 g: d      RowBox[{"(",
      r. w  L; f' W- X/ f       RowBox[{
    2 V" Y8 Y8 _! q* W3 N        RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", $ I9 T' n( \( k% r7 P
         SuperscriptBox[
    1 j. `" r  {6 t0 L; a- m2 m9 k      RowBox[{"(",
    % k/ T9 Q% u5 j( b% P" W! v; s2 f, O       RowBox[{
    6 ~' U( Z8 R. D  A( x        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", % {4 X1 H# W1 K" x" l6 o; m) T& X
         SuperscriptBox[
    1 a( D- O0 v! D; Q. p! h      RowBox[{"(", ( }0 \8 V4 P3 z, C" @. }1 u
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ! B) s1 l$ t9 ]2 {% n8 N0 A! Z
         SuperscriptBox[
    7 ?9 b4 [; u1 }- x1 M      RowBox[{"(",
    " H3 ?" {1 a/ g0 u/ \       RowBox[{+ ~* C3 B% ]7 F3 S# n* U* W
            RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}],
    ) Y$ [% K$ m& d! g4 s9 s; i    ")"}]}]]], "Output",/ D: f9 g  B& M% V
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, ' V6 H$ V# ]9 Z% Q" l
      3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
    3 x, z" e( a4 p5 _+ `+ a& W}, Open  ]],
      c7 \0 E7 U2 F1 K7 q* V; j' M4 i2 a* R0 a
    Cell[CellGroupData[{
    6 |& z3 ?6 j  l& F( L3 X- j0 N! F
    $ _7 b  q5 [" w( fCell[BoxData[
    8 a/ O( ~) U: T2 t7 N2 r# O2 T8 [ RowBox[{"C7", "=", "Ca"}]], "Input",
    7 L! i+ L. x8 T7 f' \7 y CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    ! \, d! N/ z" `7 C) q# f  3.577921316125*^9}],* T7 W* U' c% C  Y: `- d

    ' L' I  z" D4 TCell[BoxData[; n  V& C9 o6 r7 U% W: H0 p/ ]1 w
    RowBox[{"{",
      m0 ?% L* V! p: i8 d  RowBox[{' m0 y% r+ w/ z5 `
      "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",", + D; o! Y. s- ~( Y! U. t! C. t
       "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}], ) _; P$ o9 k1 [0 r2 g; N9 R+ T
      "}"}]], "Output",% A5 m" u; C$ _" h
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, $ Y* |8 g5 }: \
      3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]- x$ f! ~2 ~; B" B
    }, Open  ]],& ], }6 e, t1 v$ q

    7 X& `" a$ X: ?* w7 p, q# l/ E0 N+ B3 CCell[CellGroupData[{, a5 l7 v+ M8 q1 V0 m6 r4 p

    # o, s0 X+ Q- x( {4 ?Cell[BoxData[, G& d" h+ ^( Y- o
    RowBox[{"u7", "=",
    ; E" F! Y0 r2 J% Y& g& \4 P  RowBox[{
    , Y9 S3 s) l2 l3 T- ^/ i   RowBox[{"Exp", "[",
    " ?4 q1 u+ L9 k# D3 {- k& N    RowBox[{
    - x4 t' G0 h% x$ K: x: l     RowBox[{
    : o- |- N! ]# ]" @      RowBox[{"-", & I9 u$ Y- u3 _$ f* [
           RowBox[{6 t" h" c4 ^* r' l. p* h
            RowBox[{"(", 4 }4 u  {7 m9 W
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ( g, N" j, J- u6 v! H' g        RowBox[{"(", 4 V+ Y( j) t$ e* `& S4 d$ S4 k$ s
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ! c6 e# j& ], A6 u% h6 s     "]"}], "/.", "DeltaX"}]}]], "Input",
    0 n  J' N/ c2 K  E9 j4 W  r' ]. ` CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    $ O- t# P$ b4 s' W% Y  3.57792132028125*^9}],4 I4 e% [4 ]* C
    ' k( g! i9 ?( ]* b
    Cell[BoxData[% f4 `( p  s4 R+ a7 P) R6 ?% t3 u
    SuperscriptBox["\[ExponentialE]", ) O& ]! |( t9 [0 |6 y2 X# W
      RowBox[{"3.141592653589793`", " ",
    4 c7 m4 d- b: G- s% F   RowBox[{"(",
      Y0 t' Y3 d$ D, C    RowBox[{- i6 \( \" j8 d
         RowBox[{"-", " J* Y: _, F* B& H; I
          SuperscriptBox[
    # G$ A/ X. ~% D8 f       RowBox[{"(",
    9 ^+ M/ b( h3 U        RowBox[{2 A5 f6 M  N6 d$ G
             RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
    # o  u0 s; v; J1 f( X     SuperscriptBox[! i& Z* F7 a# E# B
          RowBox[{"(",
    4 W8 g' j5 k( q) x       RowBox[{: }; @7 Z& _& k0 ?" A% G% s2 Q
            RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
    ) I" m1 O, G! {. G: N* {/ o     SuperscriptBox[
    . [( r& g. ^3 {: X. w" b- \) y. }      RowBox[{"(",
      Y( Z, _! [6 R4 G0 T5 E& I7 m       RowBox[{
    0 d: R, O- B6 [6 a& u' Z. e+ y- r7 Z        RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    , W* ^1 N5 ]# f2 p     SuperscriptBox[
    & a5 ~1 C% J. c& ^      RowBox[{"(", % N4 w& v0 k  W4 `; `& X1 A
           RowBox[{6 D' X  p/ D! l" q; C2 O6 o; c" R
            RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
    3 q% a: Z' T& N     SuperscriptBox[2 j2 t% c7 ~5 e1 E: R
          RowBox[{"(",
    ' O. G; }4 z7 v5 X       RowBox[{
    5 L3 ^, m  A9 D  N/ W& |        RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
    * j% V4 g4 |( M. M, \4 |' [0 {     SuperscriptBox[
    , N: J& e8 o' F, l      RowBox[{"(", - h6 ^- W' I6 {) k) [# t
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    / W+ ]5 V2 o1 b7 l     SuperscriptBox[& l% R/ n$ w, X8 u, h
          RowBox[{"(", 8 M$ u; w; K2 ]- T6 r- h
           RowBox[{
    7 Z3 G& F. W( }7 x        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    0 h5 [9 ~' R' Q  ~8 L     SuperscriptBox[1 u) |* }1 a( E5 r; l
          RowBox[{"(", : ^- P3 z9 |% f+ y3 ?
           RowBox[{
    / J2 f8 C. x# [3 Q        RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
    ' Z7 U, O6 P$ ^8 i  K5 }1 `5 ^     SuperscriptBox[
    2 `5 \% ?, g5 W; O; ?      RowBox[{"(",
    - Q' U( V  u6 R+ g       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    9 d9 t3 h* i% B. y# G( l    ")"}]}]]], "Output",3 T6 o# n" p3 t
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    % G$ b' U% s! L' t. {3 o8 i  @4 F  3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9,
    + p- s0 f0 n# @: E0 B  3.578012251359375*^9}]# j7 n( N1 @6 N- W
    }, Open  ]],3 B  e4 I% u9 u
    6 k. o/ X. n: \8 P7 x2 d
    Cell[CellGroupData[{8 U$ \: K5 Z) z8 O, [

    6 K, h2 h3 h: [2 U6 }0 j3 bCell[BoxData[
    + z5 i/ \2 G& J% B( P6 D- N RowBox[{"C8", "=", "Ca"}]], "Input",
    + s% H% @4 n' t CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, : l- _- D( K7 a5 Q( y7 d" N
      3.577921316125*^9, 3.57792141421875*^9}],
    5 ~, F6 M( I, X8 z
    0 R+ r  u1 c8 f9 ?( b  M- V8 ~Cell[BoxData[
    . N3 E9 o1 J5 j) z& I6 \ RowBox[{"{",
    3 }. ~" N3 T9 ?% _  RowBox[{
    4 p; X/ }; t! B+ i( N* Q$ N, |' B: N  "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",", 8 A! j2 P* W2 G4 Q( {- i
       "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}], 5 d; i+ g$ G! n5 {+ j" q8 q: O
      "}"}]], "Output",
    5 G: ~2 \. r% Z2 Y1 U CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    + G- F$ [  B, M/ }- z* ~7 n  3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9, 2 X, G) w, B' O4 ~/ M  u1 H
      3.578012260515625*^9}]5 B$ b7 B) `/ t( k  y" }
    }, Open  ]],
    ; u" S; L- X  n: L, P+ k4 W$ A! w: a2 ^' x" E- ]3 d
    Cell[CellGroupData[{
    , F2 {5 T, b7 y& P$ U
    8 ?! x  ]" O/ G1 q' k7 X4 X" cCell[BoxData[, v# j: i2 `: h# N$ T( O5 `; \1 n
    RowBox[{"u8", "=",
    & }- g8 L1 |( O3 B' n# A. _+ B- ^- u  RowBox[{& e6 m! Z. V! [4 c9 A2 }
       RowBox[{"Exp", "[", . Q: Q% F& @7 H( f5 B; W
        RowBox[{
    1 J* `6 s" G% n& H8 G' z     RowBox[{0 e4 i2 T- v+ Z$ y9 \
          RowBox[{"-",
    , e! k) b" @6 t5 r, q5 j8 \       RowBox[{" x4 V" R$ n5 X7 g
            RowBox[{"(",
    # X6 E9 Q  Y, V: l         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ' m% l& u2 O7 {$ f) r" n
            RowBox[{"(", - ]5 p$ ?& |% X" V6 p4 p8 ~" T& _+ R
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    8 `" K$ P, b' I% E" l% A     "]"}], "/.", "DeltaX"}]}]], "Input",
    + W2 Z7 J& i8 Y8 ~% D CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, ! s( P/ x+ r$ [* K  E
      3.57792132028125*^9, 3.577921416921875*^9}],% [0 L) o+ e! N- z) J8 A: Q
    / X4 ]* ^/ ?$ _/ y( \) S
    Cell[BoxData[
    ! H! Q1 ]$ Q+ Z  m6 p1 R) q SuperscriptBox["\[ExponentialE]",
    , f5 }0 \8 \0 Z. {+ U3 K2 e2 |, B  RowBox[{"3.141592653589793`", " ", 2 f( y3 p$ C. e: ?1 P9 E
       RowBox[{"(",
    5 G) ~. Q/ P& Z/ {    RowBox[{. ?5 i1 m) w- Y, X  U6 v
         RowBox[{"-",
    ( g1 m6 }% ]! m5 n      SuperscriptBox[
    # Q  B5 A9 o2 Y0 s: o       RowBox[{"(", 6 K3 m  i, H4 K* E6 y, @
            RowBox[{
    % H& U1 }7 e. S6 s9 \8 d         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", 2 L% B7 N8 i- G7 x* V
         SuperscriptBox[' k/ o$ L7 o. z. q2 Y
          RowBox[{"(",
    0 Z- X$ [9 E6 O2 ~7 Q       RowBox[{7 t( U9 {: m9 j& ]
            RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", 6 y1 X; ^% Y% u/ _1 J
         SuperscriptBox[
    # P  N4 f. B8 M  h# D1 i( d( {3 R! u      RowBox[{"(", $ }9 i0 u& @5 h4 i
           RowBox[{
    " q3 E/ T& l. {8 @! p2 \% o# S        RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", + f6 S. T* M6 k) i  R( a  q# j5 Z) I
         SuperscriptBox[8 q: z. {7 g6 M# w/ F
          RowBox[{"(", ' S/ C( m  p1 B' `7 i, e: ?- _% W
           RowBox[{
    . }/ ]8 c- S  K: \        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-", $ z4 `' ?3 ~2 T
         SuperscriptBox[4 Y( z% {, T) v3 i
          RowBox[{"(",
      [0 \6 \( j) B8 K2 ]       RowBox[{
    8 b- y5 I% ]4 u3 w        RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", 4 P- J$ w' R' e& o6 n
         SuperscriptBox[" ~" w: Z5 ]: ]( K: ?/ n! c
          RowBox[{"(",
    . x  w  ^, r3 O3 _       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 9 x* G, p+ w+ X: s% C2 T% i- z. C
         SuperscriptBox[
    0 J3 s3 b, O0 {9 m' x" |9 U      RowBox[{"(", ( z# \5 m; M6 m* ]! ]7 X
           RowBox[{
    % _$ W  `1 _2 k& F        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
    - N+ d2 m* a! a  ?# |6 Z; E     SuperscriptBox[
    . u9 s/ D! h. v      RowBox[{"(",
    " |) @$ B6 z0 w/ f7 y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
      F( v+ {  Z. i3 j# E" P' t3 q     SuperscriptBox[
    . Z/ M8 k/ F* Q6 V& q5 f      RowBox[{"(",
      x7 W0 m& E% T0 T       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    2 [' ]! e' j: |" f$ n' P    ")"}]}]]], "Output",
    2 U/ ~# c$ ]& n' m  V CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    - c* a3 c! n: u# T  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
      S! q. |# q% y  3.5779608945565863`*^9, 3.57801226165625*^9}]6 m7 w7 T/ i2 n7 ]
    }, Open  ]],' e+ |+ d, `' f' p. {# F+ H$ W

    ; a" M' r  G- ~: ?$ O/ ]# L# p' O' UCell[CellGroupData[{
    ! v& M4 B" x. X
    . ~; P) K- J1 t. x4 S* k7 e( CCell[BoxData[' g+ v# o* }" {( l1 m& M6 Y2 ]
    RowBox[{"C9", "=", "Ca"}]], "Input",
    4 x, z$ c: r4 |6 j/ g3 S CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    / q6 w- z1 ^6 C  3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],2 k) S7 I" k) @% f) E
    ' O4 j. {9 a# w  O$ _
    Cell[BoxData[+ A5 ?2 K! S8 {* f6 e  I* N
    RowBox[{"{",
    ; W5 g, U" o7 F) F  h4 ^$ G; d  RowBox[{
    . \* Z9 v: Q1 h9 t  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
    " V- j6 A* f7 ], d& F$ @   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}],
    : {9 ?( W' H* Q' `/ R5 l  "}"}]], "Output",/ n. m5 F! K: _9 T$ G0 S8 Y7 `* i
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    ( `7 q% z& ?8 e" R5 R  3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9, . V' s9 N# R% D8 T4 N' A
      3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9, * e& x' n9 B  }
      3.578012268234375*^9}]
    , j$ x0 d. w: `3 z$ R+ ~}, Open  ]],! x- u( e! ~# k

    # v% {1 o3 \7 x- qCell[CellGroupData[{5 }: ?. E3 p! V8 W9 ~

    & U3 W, Q' u, K# YCell[BoxData[! o/ t# k4 z. m/ r: \- P2 P
    RowBox[{"u9", "=",
    - r; I4 ?3 @2 Z  RowBox[{
    % L9 y: R, Y! A7 p3 p& `8 P% k   RowBox[{"Exp", "[",
    6 `% y; E. t/ J& t/ [6 z5 G    RowBox[{
    ! q! `; b1 L9 }8 ^     RowBox[{* t" [- k& e2 D% ]4 l
          RowBox[{"-", , I7 G, T& k/ N& ?
           RowBox[{
    ' ?; m+ y2 J3 K. B  F+ Z% _( n* y        RowBox[{"(",
    7 W; d+ e, t+ _  i2 {3 |         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    4 [# F' Q& h. O& J* ]" o        RowBox[{"(",
    ' i2 s0 b$ s5 g# E9 `         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}]," l" q, N" K5 c+ U4 m
         "]"}], "/.", "DeltaX"}]}]], "Input",7 Y; O2 r* F$ _, t
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, 3 ?& W9 K) Z+ o; ?
      3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],' p( A9 z$ B% I, n' d/ q
    / _# W3 x5 J: U- M
    Cell[BoxData[
    * _% L7 E" w& b$ Z8 @! J SuperscriptBox["\[ExponentialE]",
    0 i/ Q! Z/ T  {: C2 B, t9 P4 k  RowBox[{"3.141592653589793`", " ", , Z( i7 n+ r5 H* `* x* r
       RowBox[{"(", + V6 t+ R5 A  `- p2 [9 @
        RowBox[{
    ) s( n1 T7 \, r+ I$ a( Q; o     RowBox[{"-", # T4 ^: F: {5 o, w0 I& q0 O" F
          SuperscriptBox[
    % T. a7 u0 C8 A, j" h  o( g       RowBox[{"(",
    # s- P8 o6 O0 k% Z( k9 s8 W9 t. T        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", : |; @) U" H4 h1 u) ^, n. f( U
         SuperscriptBox[6 I+ I) p5 r# O9 X2 T+ B
          RowBox[{"(", ; d3 q5 n$ u1 \1 G
           RowBox[{, I* w1 s9 g2 j% B/ D
            RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", 2 P2 ^# [# E0 [% s6 Q
         SuperscriptBox[5 l' O9 a; x& @* @, P, z- A8 G/ A3 W
          RowBox[{"(", % f: H' Q+ k3 d
           RowBox[{
    , C" f4 g8 [7 ?' A+ x        RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", # i$ D9 j; |8 @0 s4 w) a- T
         SuperscriptBox[$ j4 M3 ]% W6 n$ ?
          RowBox[{"(", 7 }3 V; B0 i: U4 K/ x: u7 B& `
           RowBox[{
    . W" J; F, k- J2 f9 e& ?0 k        RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
    " o% |! g+ \# {: W5 y9 m8 }     SuperscriptBox[1 N6 R& s7 j' m6 W3 P1 `
          RowBox[{"(",
    ! D0 n- n: k9 s* I7 u% d       RowBox[{' L* q* A  p, F, J* ?) l; w6 r
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", ! N8 a% W! W( B0 v' B5 R
         SuperscriptBox[
    1 N/ ~. P* d1 J& {      RowBox[{"(",
    , Y( ?9 F- i0 d: I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    & \% w5 t" {6 @5 Z: \' m7 d     SuperscriptBox[
    7 Z! v1 P! ^( J* e) r      RowBox[{"(", ) E; C8 }" F7 H* \  w' r6 _7 }
           RowBox[{
    1 X" G$ l- |0 y$ C. w2 \2 y6 D        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", $ [* P$ n& V5 \
         SuperscriptBox[# q4 j6 D1 C) O/ A
          RowBox[{"(", 0 _. \, e9 K' e
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", . Y2 p. o/ }, D5 F- i+ Y
         SuperscriptBox[! ~. Q/ h1 l2 ]( o9 @0 n% p7 H6 \) r, S
          RowBox[{"(", 9 C5 T, R) U4 ?% k  P7 N0 b; J
           RowBox[{7 x; C5 u+ j6 g1 i
            RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], 6 {6 @# L. A2 B
        ")"}]}]]], "Output",
    / A5 I6 e) n! Y! r7 W* E: } CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, # h$ H. \- {9 A
      3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
    . o" H0 t% i: c( L& ]* X5 v  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9,
    / g# ~, |% r* T/ c: k- v  3.577961530421959*^9, 3.578012269125*^9}]
    0 d5 {- u) I; g) L$ q+ B( \& \}, Open  ]],- v$ \/ u: X* q/ [& m: }1 M

    " W% g, y; R# Q3 b3 ]Cell[CellGroupData[{2 B8 k0 F) _5 R! M

    % y! @; M+ s$ N; xCell[BoxData[{5 v8 ?: \, R% s( q# e- b8 Q$ o
    RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
    . y4 ~7 X0 I0 c# q6 t+ C: Z9 \ RowBox[{"u10", "=", / n% N9 t, v' F
      RowBox[{$ N) S; r9 l0 l
       RowBox[{"Exp", "[",
      A0 j0 |: m) h9 O" S& l    RowBox[{
    . [* z3 }: m9 O2 }7 u8 ~' P     RowBox[{# E9 {' R- C% C
          RowBox[{"-", ( X0 ?7 K+ K0 c9 D6 s" N
           RowBox[{
    * V! h+ J( F( A: L0 Q- ~        RowBox[{"(",
    8 L5 m7 h" H. E" L         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 7 z' G6 t5 w  Q( }7 G0 H% {
            RowBox[{"(", ( _+ u, u1 p- o! f1 o5 g' p
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],* z/ `; Z* B6 }0 Y% L* R
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    + g/ S4 X; |5 i4 C3 c CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],8 u2 \, u$ d5 A& B: o& r# X1 V
    1 j6 [. K0 n. f2 V  C
    Cell[BoxData[0 c' @. g9 N$ {& ~1 T
    RowBox[{"{",
    & h4 a6 _1 e* x* f. z" [! T  RowBox[{
    : m4 E. `5 }: W- ?) A! T  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",", & u  z6 d  q" B9 d1 s
       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
    * w/ G7 F; [) V$ `5 `$ s CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
    3 S3 V. t9 N' B. J) c9 y
    5 G7 g* Y3 B( SCell[BoxData[5 x5 _+ _+ F2 X
    SuperscriptBox["\[ExponentialE]", ( a8 N+ v3 @$ @6 N
      RowBox[{"3.141592653589793`", " ",
    0 _, e8 N, p0 O6 `   RowBox[{"(", 3 C* e: X2 o. a2 ?/ z& |& s
        RowBox[{' w7 x3 V$ |' J, r( ?; ~
         RowBox[{"-",
    1 B2 }* T3 H; w2 g7 j8 T# {      SuperscriptBox[
    + d+ d& g7 ^% n( p9 f2 b9 ~. }       RowBox[{"(", ) H# J" y+ i" w8 }
            RowBox[{
    1 i# P; P/ n! b         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    " p+ }# G. j1 |     SuperscriptBox[
    6 G4 S- k+ ?0 T) [1 O      RowBox[{"(",
    . d4 {, k5 f6 l# [6 ?: g2 ?5 b       RowBox[{; E" D8 ]" C6 ]. f
            RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
    + ~7 l1 g' c' k     SuperscriptBox[8 M. [; ?+ ^6 U  n
          RowBox[{"(",
    ) ]) B2 ^4 i+ l7 U" U/ O; I       RowBox[{6 r7 j, u* z, y. q; v
            RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", 6 g! R& r7 y9 {$ ]1 |
         SuperscriptBox[8 U$ t2 h! B/ E- ]1 e1 M! u
          RowBox[{"(",
    ! ^8 v$ z4 f6 l3 ]5 T       RowBox[{+ v* O, D7 C, \0 L1 B; t
            RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
    5 }! ~6 h! O6 V2 v' r0 C; l1 u     SuperscriptBox[* j2 X4 x5 a2 d8 i$ T8 @, p
          RowBox[{"(", ( [; ]. @: g1 z& `: H9 e
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
    3 f: [. @, t% V, K. }) p     SuperscriptBox[
    ) X% F5 {/ ?3 }. I9 k      RowBox[{"(", ' A: t, {9 Y0 y+ u
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    5 Z7 ?" T/ D6 }! [2 m3 C8 h3 O     SuperscriptBox[
    + U9 X. G5 t. @6 U6 Q      RowBox[{"(", 1 F7 a4 K: @. `
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",   p2 x. T4 v$ c" G, X! w
         SuperscriptBox[
    0 |  {/ H5 h! @4 D      RowBox[{"(",
    2 {6 ^$ \: ?5 ~3 R4 P       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", , y) d4 @, o* F( a
         SuperscriptBox[
    1 \" Z/ H  n, V2 R# w      RowBox[{"(", ' u4 Y5 S! `0 O2 c6 f& X; r$ c
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    & t9 g5 S, M5 h) Z6 R    ")"}]}]]], "Output",
    / Z+ Q& U$ d# C  ~# ^ CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]4 X! m3 w" z, T" T
    }, Open  ]],6 q1 m+ O0 E! D/ ~% U5 d

    8 b& X! O- Y  Y) O' k1 q$ y# hCell[CellGroupData[{
    4 K9 j, A6 E( N0 h. i- k
    8 \5 r# A! _  t) Q; p; vCell[BoxData[{
    6 R: ~0 G9 D2 t) x. U+ [ RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]",
    5 z8 [/ f- u9 e+ \ RowBox[{"u11", "=", 8 E. n- l8 l* T) h- v# x: U+ c. k# E
      RowBox[{8 s% ?4 R- J# ]7 ~% ~% G" p
       RowBox[{"Exp", "[",
    : K% d5 W9 e( ]* D    RowBox[{( k6 D9 Q1 ?9 A
         RowBox[{
    " A! u% ~. G: J# C3 A9 s( U; V& Z8 Z      RowBox[{"-",
    9 X/ c* C* M' F/ Z9 B       RowBox[{. |+ k8 D4 C  M, Z4 x
            RowBox[{"(",
    & Q  _3 E/ b2 N1 [4 h  q         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ) k0 L% K" ]8 E0 |
            RowBox[{"(",
    ' U9 a% |. ^7 u         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    4 l" \9 P( o/ k3 n     "]"}], "/.", "DeltaX"}]}]}], "Input",# `5 J2 f) T# H3 m% A
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    9 M+ l* Y9 L( n% d% [  3.57796154237158*^9, 3.5779615434011817`*^9}}],
    1 K# D' @4 e- x; K4 {( u
    # B1 }4 c9 L8 n. |. o- p2 m& I" cCell[BoxData[
    8 f! D; S7 \* `. T4 {( h, G$ U RowBox[{"{",
    : c) m% V: p. `2 S  z  g  RowBox[{
    8 P% ~4 c( c, A9 V8 ^1 D1 I  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
    9 V; b2 P$ |. a. b  N" w& H   "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    + d9 \1 B% q4 z! d) m  "}"}]], "Output",% e. g6 E6 d* z  E! |0 t
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, $ d1 Y# b; c: k1 s8 m% @
      3.57801228203125*^9}],
    ( K* V% i) ^3 {5 }% n! e4 {# _# `  G8 \; T) Y- d* Y# G
    Cell[BoxData[- V$ m! R  n- S
    SuperscriptBox["\[ExponentialE]",
    6 L2 Q& M  N/ Y- o0 i. U8 B; c  RowBox[{"3.141592653589793`", " ", 1 v% v- i" K& K9 g$ |
       RowBox[{"(",
    ) K. W, t. |7 @: Q' G# Y& W    RowBox[{8 L' \+ o# @1 d: P% d
         RowBox[{"-",
    % {. ?  g# a5 h) e: Q: r. e$ T      SuperscriptBox[
    # W0 e! r# @: {: n/ k  |7 M       RowBox[{"(", , H5 A' l" P+ B$ S2 i
            RowBox[{
    ! {5 ]( e5 c7 R" v5 u! E. t8 F         RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", $ D+ a( }* i% f. J2 P& M& \0 g
         SuperscriptBox[! m: a" N% |+ K/ Z- Z
          RowBox[{"(", ) T6 g1 K8 F$ G; l: I
           RowBox[{
    & s5 m0 ~) r4 O9 w: G        RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
    # t4 b. v" f' C6 d     SuperscriptBox[+ ?! d: o2 f8 g4 Q- o: p# y0 y
          RowBox[{"(",
    ) g* D4 R+ \2 C       RowBox[{
    1 J, g# h3 G8 M4 c" U- P! h        RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
    % c6 {& @# s& p: u$ F0 `, v     SuperscriptBox[
    2 [- w' v  a6 L5 J      RowBox[{"(", - |) ]' S0 r, q
           RowBox[{
    / |4 n, k3 d) y- W' k$ V9 G0 d3 R        RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
    1 v# e7 \6 M7 ^# H& p     SuperscriptBox[
    - |8 \# n* J1 P$ E      RowBox[{"(", 9 f/ Y' U$ q$ R9 S
           RowBox[{
    ! g5 H. a6 @' J' D% k, A# J' T        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
    3 R! J/ y. ^7 Z4 _     SuperscriptBox[
    2 K' y9 D% z  R& D. L) v+ C      RowBox[{"(",
    5 E  ^+ |  F7 X4 n- }0 T+ ~       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 0 _3 S- s( h! S: f5 |6 {
         SuperscriptBox[
    + x/ E/ T4 P& q& N3 K' W      RowBox[{"(",
    ! X) ]+ k: k4 v; {6 I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    5 k6 Q  W9 i( c+ _* N     SuperscriptBox[1 E6 T, k% F- ~6 u! E
          RowBox[{"(", & G0 h/ e0 j8 U0 ?4 H/ U
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", / u; U  a4 v9 z$ w4 ^7 z
         SuperscriptBox[
    & k+ C; E0 |3 m      RowBox[{"(",
    ! V) S) O2 P% n. e' _       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],   F) K4 ^/ e! \$ A7 B) i; g) [
        ")"}]}]]], "Output",
    6 O& U" G) l2 o CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, ! z8 U0 }9 I$ F$ }  Y; b* _" d
      3.57801228203125*^9}]
    - |1 x  J4 ?6 {# E}, Open  ]],! ~: u) U8 M& v4 W, p
    $ t. ]' ]+ T) K
    Cell[CellGroupData[{
    : j, Z7 I$ X' ^1 X$ y, y6 j% ^3 G. Q, ^: o( }8 t  ]
    Cell[BoxData[{
    ( w6 ]4 v, f5 L4 ?6 }0 V RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
    * _+ `% a3 p6 Y) Q! D! E/ f RowBox[{"u12", "=", 3 [1 w! z3 q/ j, i, {) R7 n
      RowBox[{
    * u3 s2 P. |$ o" h   RowBox[{"Exp", "[",
    ' n' B& y3 C& X& q    RowBox[{8 I5 a. o( t7 l( q
         RowBox[{
    0 k7 J2 y5 m6 R6 h* |% P9 m      RowBox[{"-", 3 }1 f0 N: }4 R/ N5 J- b
           RowBox[{& T2 J0 d, ?8 k5 d
            RowBox[{"(",
      r- ~5 {; Y; t* a- Y         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    2 B, l+ r7 ?2 k) Q7 A' U        RowBox[{"(", 0 |1 H- A& L3 h+ X
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    1 r0 c$ D( B- ^/ C1 m+ v5 t: u0 p) |     "]"}], "/.", "DeltaX"}]}]}], "Input",1 w( E( P: s( T+ r
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    2 d- M- z: u; @- n5 [  3.57796154237158*^9, 3.5779615576284065`*^9}}],
    " Z* I8 F0 j# F- X# @: ]( Q! V' S% {6 w8 |
    Cell[BoxData[
    , h  T' v1 i/ b, w/ [; i+ f RowBox[{"{", 9 T" x- x- [7 e3 B! I* I- K- ]7 E8 t
      RowBox[{
    - g. D& {  G& ^6 H9 L0 p  "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
    5 m7 m6 p! U6 \3 N, p( R& }   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],
    8 [- D0 L# J5 C2 X0 y, ?  "}"}]], "Output",
    ; f5 n4 v' T2 m* J CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],& X0 r! M: q$ F8 r1 p5 D6 ]) x3 O

    9 Y/ ], T% N" e: yCell[BoxData[/ J& E4 J1 L3 O. B' K5 @
    SuperscriptBox["\[ExponentialE]", ! W. L& x$ z9 @3 B( p" _) K) G
      RowBox[{"3.141592653589793`", " ",
    # |+ ~, e* [9 Q4 i  r   RowBox[{"(", " X0 U* V4 [  J2 h
        RowBox[{/ D/ ?. J* v9 _" P* R
         RowBox[{"-", : k9 R( @0 I& w4 n! M) E
          SuperscriptBox[- k3 N. g; f, V5 J  {5 b! B8 a
           RowBox[{"(",
    * A7 ~3 |1 Z9 ~, _/ `' j        RowBox[{
    ' r+ n# N. i7 m$ Y         RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", 1 }# ?2 x4 L  a5 P
         SuperscriptBox[
    7 C4 N  @( L0 c+ n2 Y' A      RowBox[{"(",
    ) w3 \$ T( d8 L       RowBox[{/ s' g2 `1 K: i; a
            RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", & o! J3 N' d& C
         SuperscriptBox[. ~. ?4 \, k3 v+ m' [  O7 Z
          RowBox[{"(", , ?% s$ D4 N* w, {* ?7 o2 w1 @% }4 ]8 [6 R. m
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
    ' Y+ M) Y% _( K5 W% c     SuperscriptBox[
    / R  l' t* G: I. h      RowBox[{"(",
    0 P" d4 `$ T1 p- o( s  @2 E       RowBox[{2 s& R" }' J/ n0 W3 g' @
            RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", ) z2 f5 d1 z* }9 v4 H$ N3 ~
         SuperscriptBox[& |, U  c9 L  R7 `% {$ b
          RowBox[{"(", . z0 }1 P( R  b) c" r
           RowBox[{
    4 e8 m/ b4 }' w        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", # {( w2 T! }8 f
         SuperscriptBox[
    5 v* X( n! j% M  V! C: ?      RowBox[{"(", * C7 X5 U% F) O# |% C
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 8 O: T' m% z' p, K% E' A
         SuperscriptBox[
    7 b! b3 J" i3 M5 K      RowBox[{"(",
    : k6 O4 }, z, X7 H       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ) k5 M+ K- y3 u: ?& u
         SuperscriptBox[  p) J# b9 u  H) C# Z: D% p) ]
          RowBox[{"(",
    ) Z: N6 B" f* D& _2 {" I' K: B       RowBox[{
    - s/ b" F+ j* r: q1 s% r        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
    ! \- J: I' j  R, W  C  a% j     SuperscriptBox[
    7 W/ x8 i* v( H) c$ \! A: p6 \      RowBox[{"(", + p4 b% d3 y3 p+ }1 x
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 8 ~7 D) p3 u9 @% B6 r" y9 n
        ")"}]}]]], "Output",6 C9 H) ]! V2 s1 ]9 |9 h
    CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]
    - P3 ?  y' }$ F' e: c9 K}, Open  ]],- b% R) C5 K7 T- G1 S/ r  E
    4 `& L! Y( l$ [! E0 n, ]
    Cell[CellGroupData[{
    5 a- p8 k" w/ l! p4 o2 J1 S, I
    Cell[BoxData[{
    ) E5 c* H; l9 D2 b8 G RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
    9 k( b; \  |  m+ C RowBox[{"u13", "=",
      ?: M8 N" k, ?# x9 q  RowBox[{/ H3 O( ~& S( [. e& U8 {
       RowBox[{"Exp", "[", 0 m. m$ ~; `( c  n( K; Q" c2 p
        RowBox[{3 b3 R- M6 ?8 {0 g
         RowBox[{
    6 k5 k2 L* U4 }: i. O/ Y      RowBox[{"-",
    ' E# F' @0 V0 y( n2 R4 _9 T       RowBox[{
    4 E9 v2 |. E% T- t/ U  c* J        RowBox[{"(",
    - V: P) V3 S' v' ]         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    1 v3 u" f$ }0 I2 d        RowBox[{"(",
    ( t4 u/ V" v- _( h) j* y         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],  [7 @6 V- P9 [8 y  ]9 K
         "]"}], "/.", "DeltaX"}]}]}], "Input",4 R0 G  ~1 n$ K6 w' s( @. l/ W
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {3 C- h# d( \; H/ q9 G& f
      3.57796154237158*^9, 3.5779615599684105`*^9}}],+ `) [! F5 N/ P6 U" u

    ! s1 z6 v/ f+ A# F6 h4 jCell[BoxData[
    ! D0 J2 t3 B3 h1 b6 z1 D RowBox[{"{",
    $ T, n7 z2 K* ?  r* x3 x; Q( t  RowBox[{
    ! {' z+ C. |9 i7 z  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",", , U9 o: p* Y% V; I4 ]8 \  T
       "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
    5 T1 Q7 l$ F9 M6 R. Z  "}"}]], "Output",! E3 }' S1 U  n- l. B% o) I
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],
    7 W; y! t( \! p+ y0 O: X+ U. K  w, Z) \: {! z: e
    Cell[BoxData[
    * x$ t% h  y+ {: |3 A0 X SuperscriptBox["\[ExponentialE]", " P! y7 g+ O) M, z+ g1 u! z
      RowBox[{"3.141592653589793`", " ",
    % I8 B4 ~# |  V- f& c/ z   RowBox[{"(", ) i$ \6 L) O) p2 J2 F( p
        RowBox[{3 ?1 M# b4 `5 K& \/ _! h) B- C' ~
         RowBox[{"-",
    * T* r8 g+ F$ H) J0 {      SuperscriptBox[
    ( e4 U' E$ T- ~* F# n. D6 {" ?       RowBox[{"(",
    ( J( \" {! `/ C& S! u7 X        RowBox[{
    ; K% ~6 L2 a% Y% q: E4 q. ]8 C: i9 o         RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-", / F! ~4 `% Z' k. J8 G- }
         SuperscriptBox[! B2 |4 N4 r6 h, u5 O. v# p
          RowBox[{"(", - F6 O- |3 J, j# X: g8 E1 i- X* q6 w
           RowBox[{
    . G. ^: P0 u4 }        RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", : p% L) [, R3 ^2 [; H) Y9 J
         SuperscriptBox[) M0 P) h- ]4 d; J+ X+ X. t
          RowBox[{"(", 6 d! P, n6 U7 U+ H; U  J0 t, w4 M
           RowBox[{. ?' q! K( b+ ]
            RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", ) s' c% S- V6 l
         SuperscriptBox[
    ) J. @9 o& ~+ y/ m2 ~0 a) W      RowBox[{"(", % L. ^- c$ q& \  [; e' z
           RowBox[{+ C% l$ J8 U3 B1 Q6 A3 D: P- I
            RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
    7 N! w0 A; ^7 g5 `7 v* _8 i0 t- E     SuperscriptBox[# ^9 C) X" t& d) ]9 Q  N
          RowBox[{"(", * T# P; V+ l: n8 b9 a9 ~" c
           RowBox[{0 A0 s7 q/ ?) i
            RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
    7 S, O6 q) A% `. E     SuperscriptBox[8 d& w1 F5 Q- R
          RowBox[{"(",
    " _7 y! M* w8 ^# }3 h       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", # p, c/ M0 n) L! ?
         SuperscriptBox[! s/ r5 I! w8 A
          RowBox[{"(",
    % |: G5 z# E+ L4 ?       RowBox[{
    / p" R/ O& ]( `, o& N        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", 1 @; n" G1 X; u
         SuperscriptBox[' _1 I1 h' h. s6 n3 C3 @
          RowBox[{"(", ) O' |1 v. A$ ?7 E0 W1 u
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    # p- O% r4 y$ C6 ?     SuperscriptBox[
    % V! {* U8 V; W% e      RowBox[{"(", ) q, j8 A" p- q) ?$ p/ j7 f, }
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 1 P5 @+ ^. }3 h: ^% M* ~4 G
        ")"}]}]]], "Output",
    & M) Z8 G0 Z9 U+ [, e  [& e: { CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]3 y) _! Z4 q. G/ X' B, q
    }, Open  ]],1 o  @7 Y8 A% X" r5 ~$ B: e
    + \( ?2 `6 _0 X  [: `, `
    Cell[CellGroupData[{
      N* U, q& ?) f) Q% u
    : S$ M( I, a- t( \* gCell[BoxData[{5 n4 D( _7 A  v
    RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]", ' O! q# M3 J" E, x9 H# P
    RowBox[{"u14", "=",
    0 Q, G' O7 h6 {" m, B9 p* K  RowBox[{
    : w6 s% Z" g1 H, h   RowBox[{"Exp", "[",
      F$ {6 Y8 q0 @5 e* d& g4 \3 l    RowBox[{
    $ Z; O* s5 n. m+ m& G" X  r     RowBox[{. j# v, T' C4 z9 f( m
          RowBox[{"-", 7 h- L" H; g+ v& f' ?0 Y2 ~& `6 V3 V
           RowBox[{4 |2 G1 s  p0 ~1 f/ U( k8 N( f8 ^
            RowBox[{"(",
    6 C3 n/ Z( t* m4 }8 E/ \, `         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 3 i% [: T# A4 e3 X1 [6 S) F/ G7 {
            RowBox[{"(",   J6 e. R, ?1 ^1 n
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    . u$ M- g& N8 ]0 g3 h* v) C$ e$ u     "]"}], "/.", "DeltaX"}]}]}], "Input",' ]' }% O6 l6 f, T' }
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    # d; ?9 V# p# R9 X7 l  3.57796154237158*^9, 3.5779615663176217`*^9}}],
    & F1 B0 a9 v# A% j
    ) f/ r  A0 e: c$ J# k7 _Cell[BoxData[; _* g" u( c  |& [% W6 X
    RowBox[{"{", # b/ t( _1 a1 s- H/ `0 f; E
      RowBox[{0 p0 K3 u* V6 ~$ k# v4 r: M1 e" r
      "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", % i; b( }% a% `6 I* H; m7 ^
       "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    1 `& d; {2 C3 c! H7 H  "}"}]], "Output",
    1 t% h4 E. H5 ]- E  |; H4 C CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],% Z; c8 O: u0 i4 u

    " Q4 b" @# A3 \4 i, jCell[BoxData[
    + P: c( ^) E1 H7 @! a  r SuperscriptBox["\[ExponentialE]",
    ( I/ z, S+ K1 @8 X  RowBox[{"3.141592653589793`", " ",
    1 a5 U' \! t' ^3 Z- N1 Q9 @! `   RowBox[{"(",
    + g: Q; [, _) C! O' a5 u    RowBox[{
    + I' v, ?5 e4 K7 l4 `     RowBox[{"-", ' @  q- {6 O4 |( t/ L
          SuperscriptBox[6 I/ A  N) A" k) k- y& \0 ]8 ^
           RowBox[{"(", ! T0 F4 F9 ]% J7 v' M
            RowBox[{0 ^* I" n8 A' l* y2 n% j
             RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
    8 ^6 ]" X4 _8 L2 ?6 B! U$ p     SuperscriptBox[
    1 l' N5 q0 P2 Z/ F" R/ k% F! Z2 L      RowBox[{"(",
    * u6 e6 a- S  F6 K       RowBox[{% d& t+ S! K- l" u2 D6 {3 r
            RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", ) R5 X9 |4 g. B0 k: i" m# P
         SuperscriptBox[
    2 I3 \0 E% _* n. y9 V& u4 i      RowBox[{"(",
    ' k+ T6 M! U3 O9 u3 q8 c       RowBox[{3 }. @# a% j% m
            RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", 2 P/ ~+ I( T7 X: G# \* e' G
         SuperscriptBox[
    . j5 v$ z  M4 Q      RowBox[{"(", * Z6 @- A" Z" W
           RowBox[{
    4 |6 ~  X+ j' Q$ [6 f        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", " g0 {* t* z$ y- y
         SuperscriptBox[
      l' I. Q* I, C7 w, b+ {      RowBox[{"(",
    ! [, ]$ o8 ]$ ^2 U% M       RowBox[{: \7 S7 T" M0 p* G, _6 g9 [1 }
            RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-", & P) B" X3 ]& H7 \% i% B, c0 B8 y
         SuperscriptBox[
    4 N: m( Q& N! W/ g0 j      RowBox[{"(",
    7 s3 T! l$ `! n2 k. {6 c  i       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ) V$ ^# A$ X' n7 l7 v; K4 A! z$ P4 \     SuperscriptBox[
    0 Z+ c1 O. D% B7 t8 W) o6 z. Y- v" }" o      RowBox[{"(", $ T& A# l3 m% \8 W! y. s; C
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", , E2 R6 E5 k6 {. Q+ d
         SuperscriptBox[
    9 A' f7 Z# e- l6 Q      RowBox[{"(",
    % V) D/ {$ }, p4 B( @0 p9 h       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", - x% x  t" C7 I6 `
         SuperscriptBox[( [3 }+ }( \. L6 p# u' h
          RowBox[{"(", 6 k$ o0 _  a7 b3 k7 k3 o
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], " z  y) v9 S" N+ J1 n  Q
        ")"}]}]]], "Output",! p, h. {- @: g4 K4 H. O+ J! K
    CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]7 R& V% w- o* K2 f. I/ D# s" f, ?% l3 Z
    }, Open  ]],
    + W7 O( f% u( T; m2 C: m$ C- ]& b
    Cell[CellGroupData[{
    : u0 ]! |, r/ Y3 @2 J
    / j' K* u6 L7 R; d- x( DCell[BoxData[{
    / K3 N- j% h( w5 k. j RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]",
    : q$ [$ ?' U2 f! o9 L0 t; f RowBox[{"u15", "=",
    0 I3 u0 Z* |' p/ j) S  RowBox[{
    & j3 L  F" F, B2 T6 S0 V5 N7 T   RowBox[{"Exp", "[",
    ; a4 v8 ?' z; _7 Z4 z    RowBox[{
    ! I8 R0 b4 z# M' |' d: k     RowBox[{. g% p: y7 r# \: t: [+ Q1 @
          RowBox[{"-",
    / r6 ]! i- F) }% w+ k$ h4 b- |! s       RowBox[{
    1 H0 a5 _/ r0 j        RowBox[{"(",
    6 o6 J& l! h5 o4 E% U7 c3 e# M) ~         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    # s1 l& G& V( K' X        RowBox[{"(",
    5 ~7 e4 W( F, w. x0 O         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    / k! N; B7 A1 x8 |, X* G     "]"}], "/.", "DeltaX"}]}]}], "Input",
    : q0 u8 d- \! y) h) | CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    8 q) J) q" c6 P/ D8 U) f  3.57796154237158*^9, 3.57796157098203*^9}}],
    1 [/ a, z4 ^" {; E$ y3 Z0 z; K" e. N( F+ W( r9 h  I
    Cell[BoxData[4 G; I5 y$ `& D; [5 Q( B
    RowBox[{"{", # X# ]4 r8 m0 E+ }0 N  r
      RowBox[{
    4 N; q: [* q+ \; S) Y+ _; |6 D  "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
    ; D( R; s0 A: B1 o* S0 k   "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}], ; a1 C, f3 ^5 D
      "}"}]], "Output",) E5 ]* b" y( i1 ?! `, O) W4 ]& V8 v9 B+ b
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
    + x. p7 P+ \! v! Y6 s
    2 k, n8 a0 f, J9 j' m9 {2 oCell[BoxData[" v# a4 z3 ?/ X9 I8 g/ M! H
    SuperscriptBox["\[ExponentialE]", - R1 h# Z5 B6 z. _
      RowBox[{"3.141592653589793`", " ",
    " [. I' ]% m, b% A- \   RowBox[{"(",
    ' S, E( E! h% E) W3 J" u* p    RowBox[{
    0 F: ^7 n$ S, Z! g' L. y( W     RowBox[{"-",
    " I% U0 S+ y9 w6 T8 r4 l) L* n      SuperscriptBox[
    6 c& q) p( F4 l8 f3 @( u; v, t       RowBox[{"(",
    4 u0 P! w4 `' {6 j        RowBox[{6 }% H  x1 c) Z" J, j, _7 w
             RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ; s" `& g2 X9 N  u     SuperscriptBox[+ U4 `: d6 ]+ Z9 z& `# H/ y
          RowBox[{"(",
    5 [+ C' {% t' D3 x! l$ F! g4 q       RowBox[{
    0 o+ F; E9 d8 n. j  @7 n        RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-", " A1 D/ e5 N* z9 z
         SuperscriptBox[2 v9 g" d- k: y# N
          RowBox[{"(",
    % f% b$ s4 `7 i       RowBox[{
    6 ]4 G4 x$ V* w5 Q- I" v# P        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
    5 M% B* f0 b: j5 h2 @0 J4 a1 i" r     SuperscriptBox[6 s& |/ b2 Z- O! ]/ y
          RowBox[{"(",
    2 v) E* {6 ~; H& t- m0 q       RowBox[{
    ' L$ ~( S9 A" _1 p$ k% V( t; B        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
    8 D' j/ L3 V* w- j     SuperscriptBox[
    $ O0 A4 A" d& Q/ D. e- B! r      RowBox[{"(",
    # S, }8 X% y/ H' V8 o       RowBox[{
    8 y* u# l6 [5 A' K$ d0 _8 Z4 [        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", 2 c! o% z6 ]& E6 S. B7 y6 `9 I; |
         SuperscriptBox[- _4 H7 |7 y# Z% ]7 A. h$ c
          RowBox[{"(",
    , J9 H  J& ~6 C. |+ z1 V6 c# i       RowBox[{
    5 h3 k9 |0 O( E        RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
    1 o! ]1 w5 |( M( n" l     SuperscriptBox[
    ( @! n. E; T+ ?5 G3 r7 E/ V      RowBox[{"(",
    + C( M6 C9 i# x5 P5 W3 z       RowBox[{
    0 R3 E) ~! @) K/ W* b        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", 6 S; `& _' O7 J, M0 c* D2 q3 z/ u5 a2 k
         SuperscriptBox[- G: O: E. s- G# [; m4 }
          RowBox[{"(", 3 `+ w- m; ?2 g" ], p3 R# @1 |
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 2 t2 L- r% W2 Y- A) {6 L# F
         SuperscriptBox[. \0 B4 f7 E4 B8 G+ h* x, z3 J1 O* A
          RowBox[{"(",
    * p$ P9 q' S& b. V; L' T9 f       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ) i" y8 Q: v6 [/ b! f7 s. F# R# q$ O    ")"}]}]]], "Output",
    $ D7 @1 G: s" o& X, ~* e6 G CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]' F" v- U; L! Y. d- S1 A# y
    }, Open  ]],
    - o& n$ Y! S( ~2 u/ z1 X$ E+ T. O: n, o  U8 V
    Cell[BoxData[
    7 ^4 j( B. m( p: S$ x. N: S4 B+ S RowBox[{"For", "[",
    ) a" X3 ~3 S* i& B- ~2 i6 G  RowBox[{! m8 j% [3 C. a! N: q: b
       RowBox[{"i", "=", "1"}], ",",
    * g3 c. T0 I' x* W# R   RowBox[{"i", "\[LessEqual]", "9"}], ",", 5 h! [5 i  [: H
       RowBox[{"i", "++"}], ",", - \1 v+ @+ u! u9 F+ h+ m; B' E- e
       RowBox[{" P& O1 y' f3 y3 E8 q' w% b: n
        RowBox[{"Ca", "[", - r7 N& B# A# }8 Z) z* L- W
         RowBox[{"[", "i", "]"}], "]"}], "=", 2 e' I+ ^5 J4 A% X8 u7 p9 c
        RowBox[{"CM", "[",
    ( \, w, \% x5 h4 Q- W     RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    & ?0 B! c7 R& r% e CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
    # V" ]" r% q; Q0 _/ s
    * ]/ c) @( R; R. K& F+ VCell[CellGroupData[{
    / x' ]  F+ p" B( F* q3 G3 c8 H" L8 C) S9 w/ Y0 T8 i
    Cell[BoxData[{2 L3 {+ d, B" k: e
    RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",
    9 v$ q8 C! ]$ i; c2 O+ N RowBox[{"u16", "=", % u' Y+ m+ t. g, G* P
      RowBox[{& f0 M7 E3 ~3 o! D
       RowBox[{"Exp", "[",
    - S  k( h4 |' U/ y' {4 M1 |; M" E    RowBox[{
    * D6 i: j$ \/ d: e     RowBox[{! o( r- ]9 _( K( X
          RowBox[{"-", 6 {, ~# j5 d1 @( y- B! t
           RowBox[{1 V# i- m% F6 T1 j! M
            RowBox[{"(",
    : N5 F5 h) F; a! U. p         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", $ o0 V+ n$ U7 `. \9 Y# E
            RowBox[{"(", 2 L$ B4 ?9 ~% L
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    7 e+ `, g5 F5 O6 |; D  ~: S     "]"}], "/.", "DeltaX"}]}]}], "Input",6 A5 {9 B- {+ D% I9 k8 p, I$ {
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    , Q+ Q( i1 j. f  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9, & Q: }; j9 y0 c  }, v
      3.5779615751004367`*^9}}]," C$ V9 X% `- l! M
    7 G1 ^3 s; m3 t! c6 u3 h
    Cell[BoxData[
    * T, u4 G' c' w: q% b RowBox[{"{",   n" j$ D  J$ f& B+ d+ x+ R( w; g
      RowBox[{+ E! y) C# L2 i7 }% ^
      "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
    ! e: E8 B/ B  _' Z, x   "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
    3 J9 I# j5 y- O6 f  "}"}]], "Output",
    - I, q9 G. Q4 s" a' M% B CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],
    7 U- _4 H) |5 k# U, C8 D4 s2 y8 i* S& ^; K
    Cell[BoxData[  f/ ]4 y% ?: I0 a
    SuperscriptBox["\[ExponentialE]",   }0 t+ d9 s. q* e  x2 Z
      RowBox[{"3.141592653589793`", " ",
    ! S4 z5 F/ T* a1 C   RowBox[{"(",
    - v4 Q& F; a, x3 a9 c6 I/ \    RowBox[{
    0 d. z/ e8 L1 `1 t" i9 U5 o     RowBox[{"-",   s3 B; a0 b6 |2 u; M
          SuperscriptBox[+ f2 H  D' k. s6 \$ p+ G7 P+ M7 n
           RowBox[{"(",
    1 B8 k$ J! Q" h% Z        RowBox[{
    7 y+ u9 j, w' N+ I. q. S2 K% q         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", ( C5 a) T$ d+ R
         SuperscriptBox[
    0 \! j+ x# g2 |0 F9 ~" U* |      RowBox[{"(",
    6 O/ E4 H5 O) U9 U       RowBox[{
    " L! S: a$ T* j; L' h7 ~* M        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
      s, D3 z; y4 h6 F, O6 q+ e. I8 }     SuperscriptBox[  n, l0 Q% N5 E
          RowBox[{"(", ' e& N1 N% i( }
           RowBox[{
    - N; t0 j; \( y" U5 U" N        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", : ~4 @! Y8 W9 @6 D4 m" b
         SuperscriptBox[' t" g* m$ ^/ T- {2 I
          RowBox[{"(", 3 J2 l9 K2 z0 N0 @. P4 H8 K
           RowBox[{
    1 Z( g7 l% i. I/ @5 k: `( f8 x" y        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", " N9 O  v: ?$ _6 D5 n
         SuperscriptBox[
    # d1 A9 E. s: u! {; b      RowBox[{"(", ' B: b& U& |. e0 Y9 K
           RowBox[{, n$ z3 o, E) e7 ]  k: B
            RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",   k0 w  V* G, s. z2 f- }# ]
         SuperscriptBox[) L. W$ p- a8 C  T/ W' T4 d
          RowBox[{"(",
    " Z- R- q6 D! H4 O& S       RowBox[{
    7 T" \  O# S2 k4 _        RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", - F4 A, g1 o" c" @! n! M0 [9 w
         SuperscriptBox[
    9 V- Z. E( D! j$ {! n- x      RowBox[{"(", 7 p, J! e& ^5 _' Q  K/ ^2 B
           RowBox[{3 P5 m0 B: E$ @4 E7 M: R5 P
            RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
    4 T/ {/ ]! d" p0 a5 b- b* j     SuperscriptBox[
    ' x/ O4 J6 d  w' k( f0 }& w      RowBox[{"(", ( m; S: Z* h. i% a4 B: u$ z+ T
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    & F  L4 j  c! ?* `. S# Q     SuperscriptBox[4 v8 l. B$ t0 i& r2 W7 H( X
          RowBox[{"(", 3 _; t& U$ ~8 y) H, ^2 Q5 t
           RowBox[{' @) f+ J' C9 p; g, C7 @
            RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",
    8 W) L! G5 P4 T4 ^ CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
    $ [' h& {/ t- A}, Open  ]],4 o/ f' O. Q/ ^4 v
    . \, a! R% Y) g2 J& z6 J
    Cell[CellGroupData[{
    : x0 Q2 A( s. @0 U/ _* p# Y
    5 u6 \  t. \9 E! G, D8 K* o- H7 YCell[BoxData[{
    + H$ d. T* O! i RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]",
    ( \1 ^# y. Y0 x  Z0 N0 p- L' R RowBox[{"u17", "=",
    + ?1 r. R4 p8 c# Y$ w# d  A+ j  RowBox[{
    & D; E9 L; E) Y, ~5 P  l  _   RowBox[{"Exp", "[", 1 f* F8 v+ k; v$ i( Z4 B9 I
        RowBox[{
    7 U& h) X1 K& P     RowBox[{8 P; f/ W2 X% C' i) f1 j! B+ A
          RowBox[{"-", ' o4 n  R0 N" N/ f1 h$ e
           RowBox[{' k3 n/ _, [& F/ M  n* K1 R5 m$ A
            RowBox[{"(", 9 ?3 A1 U  v; s0 E, }; M  ]& L
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    9 O6 R7 w" m' V  K( a( ]6 `        RowBox[{"(",
    % q* p6 N" w7 ]         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ) e* ~" F& p& R( g/ v0 o1 ]0 E     "]"}], "/.", "DeltaX"}]}]}], "Input",& n3 v$ E& v& l
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {! I) ^6 q) u2 E8 ]- p* L7 X# r5 g
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9, 2 F$ V  p; k$ y, V) {, g8 E
      3.577961578953644*^9}}],% i8 F, x- \' C! r

    7 ~- l: E' @" [" b3 UCell[BoxData[+ G8 _) q6 D* {0 v# a3 V/ _
    RowBox[{"{",
    7 T6 r! b2 m* u, M5 H  RowBox[{
    6 j: U, l; h( D6 B  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", - z- g6 g1 ^" Q
       "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}],
    4 \1 a9 ~( Y6 E0 u) F  "}"}]], "Output",
    7 L% H2 U$ c/ e5 H9 O CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
    $ b: z0 c! z. Y+ S2 O# q
    - A! x9 ]0 ]/ F( p" ?& `. S7 N$ rCell[BoxData[
    5 l( q! }2 z' m: V8 Z SuperscriptBox["\[ExponentialE]", , D) B: I! D* T+ e/ L, O
      RowBox[{"3.141592653589793`", " ", 1 r6 k* M. K' n  ]8 o& L
       RowBox[{"(",
      d* U0 O2 X+ M% ~  Z0 u. X4 k    RowBox[{
    % g* O: ~8 K& q, c     RowBox[{"-",
    ) C) L: W7 T2 ~5 g5 Q$ g+ Y      SuperscriptBox[
      s* m& `5 K  \0 g. q       RowBox[{"(",
    8 a* M6 M% z& l% y; B        RowBox[{
    $ ]- r) K4 V- e4 w         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", - M% ]7 e( h  q8 i' w( U
         SuperscriptBox[
    7 ]/ T) f- D! v      RowBox[{"(",
    # p; s6 ^' V$ E  D2 m' x% s  p       RowBox[{
    6 o; X; z5 Y- M3 D! w' e4 {        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
    / I! T  T9 i% B8 u$ L     SuperscriptBox[
    8 a: [  Q3 M$ A+ K+ B      RowBox[{"(", 1 E. k  ]4 h- h
           RowBox[{) E& Q* a) s, T: |/ s
            RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", 0 W! s' T* s2 l' j7 Y, g: f
         SuperscriptBox[
    7 y: I5 d1 i! q0 O. x1 [! b/ ~3 K      RowBox[{"(", 8 I, I6 J* L% r, Y- ]% a$ D
           RowBox[{6 _. A6 v' B, i: _' z6 [
            RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
    6 K; d+ M  H; M5 t% d4 y3 W     SuperscriptBox[
    " Q9 V! M6 F" s) _% `8 H. X% u) l2 k      RowBox[{"(",
    3 G/ c. p& }/ v" ~4 z7 y       RowBox[{7 ^  W/ F8 l1 b" d
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",   V: L5 A; H+ w
         SuperscriptBox[
    ( [2 a" S( r2 ]1 m& l- S6 s      RowBox[{"(", % S: q3 l# k6 L9 c- ], z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    9 h9 Y& g. G; ^# b4 Y$ U1 }     SuperscriptBox[7 Q3 D) Q5 i' r- ?# J, A  T
          RowBox[{"(", + b  H# O4 j  o! `
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    * b8 E3 l$ X% R" N4 m. `     SuperscriptBox[
    4 J$ \, y% T4 b      RowBox[{"(",
    6 B( T. z% Z4 f% y5 W9 B& u       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    4 D5 h3 R' J: W     SuperscriptBox[, ^( v5 R" x( n( Q8 P' M
          RowBox[{"(",
    2 K& f1 S3 k! }: R. F$ ~       RowBox[{8 O' i5 I: i2 k
            RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}],
    9 M! `4 B6 x7 e  S5 K9 t. n    ")"}]}]]], "Output",7 J9 U1 C" `% h1 B* ~; K
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
    ' m& f1 S. w" N1 X& p$ m}, Open  ]],
    / Z% v$ ^4 n  V: @; O
    ; a% D" N% ?( {# b8 G1 e5 vCell[CellGroupData[{
    % W, s2 m7 W8 X; r* I
    - W, I9 {9 ?- PCell[BoxData[{; H/ ^; t7 H$ U" }2 N9 U- d
    RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]",   f- k$ N5 G7 h7 g/ Z; L' X
    RowBox[{"u18", "=", & W" W+ ^4 R; O- q" |
      RowBox[{& |6 r$ r( S: g3 p6 K7 ^0 L
       RowBox[{"Exp", "[",
    - H0 g6 U6 @1 w2 o% X% `    RowBox[{
    4 h  s) C6 G$ t6 Z' B8 j/ q' G5 J/ b9 ?     RowBox[{! s1 }. v( Q. g/ L1 B# F  b$ O
          RowBox[{"-", . g9 P$ A8 E3 u  ]
           RowBox[{
    & S, ~6 i; b2 r7 z2 J        RowBox[{"(",
    8 `+ H, }5 }  y6 m4 P; @8 N         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", . x* H7 c/ ?1 g2 ^# u+ O: g/ }( @
            RowBox[{"(", 3 T* f, ~, j& W. T: d
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    8 w/ h- r8 T2 D     "]"}], "/.", "DeltaX"}]}]}], "Input",
    ( u! s: Q% @7 t" b+ F: g& v CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    6 X. S3 N& q# w# n! [  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
    8 Q9 h3 Q- ?- a( }9 w  3.5779615828848505`*^9}}],
    . R$ {3 E3 _; w7 @, R7 c. I
    ) F9 s7 i# K* {8 O2 j) ?, @Cell[BoxData[
    % U7 t1 n& U5 u RowBox[{"{", 2 t2 e3 C$ M) Q) d9 {9 W( J
      RowBox[{$ ?  ]  Q1 ]  C# z; }2 R7 ?
      "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", + ~4 h$ S+ t1 _8 \* M
       "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    ) Z- L* m  v' z% \' E' q  "}"}]], "Output",
      M. D6 Z4 V. \6 ~5 h CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],, d+ D; A2 ~& V4 \/ F
      r4 b$ ~1 w$ l. n
    Cell[BoxData[
    6 `9 y. s% F6 A! _+ V& E* y SuperscriptBox["\[ExponentialE]",
    / Q1 P/ z% j0 y: S% h  RowBox[{"3.141592653589793`", " ",
    / N, `3 ^$ i" r! F  N/ ]" C; \- `   RowBox[{"(", " i9 F* ~5 Y7 e5 ?$ E
        RowBox[{
    7 u' `- b* y9 M0 m     RowBox[{"-", 2 b* Q' g! B: H1 s' o
          SuperscriptBox[( Z6 W2 V" t# n$ J, D3 @
           RowBox[{"(", 2 b* }, X( h/ f0 p+ \) |
            RowBox[{
    ! b, r" J9 V1 J4 E* _: O# S1 g* u         RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", 7 I, ?" P5 w2 m' T5 y
         SuperscriptBox[
    2 Y! m/ F; h; S7 p( s" j* _      RowBox[{"(", 3 E, r( q2 l2 v3 i' \) @% z8 G
           RowBox[{
    5 k: h5 S" v8 Q: j; _1 u        RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
    ( z7 U0 Z( N1 W2 @0 O     SuperscriptBox[3 _4 C! ~3 s0 d9 Z7 l& z2 x
          RowBox[{"(",
    : k+ i4 n/ D% ?, C! o       RowBox[{
    $ M) \: q. q! m        RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
    / I2 @( \. c( `% ?) x: J" a$ _     SuperscriptBox[7 ^  N8 D# T- P
          RowBox[{"(", ' z6 L  b% W  U; j2 u
           RowBox[{
    . |: a1 M' K4 i8 ]! f        RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", + K' N- K1 l! F3 Y
         SuperscriptBox[8 u1 m2 Z. |. [2 Z2 t- r3 N
          RowBox[{"(", 8 u& ?! x% N: f
           RowBox[{
    ! |( t2 a8 W3 d. D        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", 8 u( P& {. P" I' P; ?3 g
         SuperscriptBox[
    " N5 ?% k, w% r/ k9 g      RowBox[{"(",
    + R; M4 J* y8 e; P5 ?% h, q8 C       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", & K2 Z$ i( ^+ r" ~. J) u; V
         SuperscriptBox[6 `; i: v4 T0 ^: A- ?& M, Z0 D5 p
          RowBox[{"(",
    7 P4 t: s3 j/ j: U8 P" r       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    * P( `$ U5 F3 V1 S6 X; ~& F     SuperscriptBox[
    * j3 {/ w# ?) b- x3 Q      RowBox[{"(",
    / d, i* G+ d. J: Y1 r# C) }       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ! o+ C9 i( E) y2 Q8 Y
         SuperscriptBox[% g+ j6 |, o8 g/ a: P9 N
          RowBox[{"(", . L  U; V" {5 R9 ^
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 6 C! i7 ~3 q* E, _* ^
        ")"}]}]]], "Output",
    # ~0 {8 g1 |# W: V% X CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]7 Q* t1 E5 \6 [: a1 u
    }, Open  ]],
    & W" Q6 L( k) f+ F
    ! {3 o6 n6 q& X- i+ s1 u  MCell[CellGroupData[{4 r! O& Q% X; s
    5 X( B" s( n( W; `
    Cell[BoxData[{
    4 |" b3 B3 T# O3 g) z RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
    ' b; M; l2 G" I, E$ j2 F; F* l RowBox[{"u19", "=", - V: n5 T9 d3 C: D4 h6 ^
      RowBox[{
    + I  i  R( \" C+ |# n  p   RowBox[{"Exp", "[",
    0 Y; v  T/ K3 g/ {6 e% x, N3 G& N    RowBox[{
    * j4 ^4 \% E1 N) r4 d     RowBox[{' ]4 J* U' t( e
          RowBox[{"-", 8 J' C# G% o) _* X$ C' b' S
           RowBox[{
    ) v: s. [. Z, Y0 l4 D6 V( x        RowBox[{"(", / T6 Q1 }/ S- t, @- C* s
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", $ l  Y/ p' ]7 [) p
            RowBox[{"(",
    " B0 f4 O7 Y" G5 `) v9 D2 P0 L         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],- h" ~5 X; _8 ^- B& I2 ^
         "]"}], "/.", "DeltaX"}]}]}], "Input"," ^2 ?: d( Y% K
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    5 B& i7 l7 `2 w+ T& M- ?  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, 7 w7 i( y6 [* M1 \3 T
      3.577961588890861*^9}}],
    ! Q' v. {# q* }" R6 \
    1 E8 Q2 h1 x  l" E; DCell[BoxData[
    * u  H( U0 \4 a8 G RowBox[{"{",
    : ^; d5 a1 h# S, I  RowBox[{
    ) D: z. i) y7 F1 `. ~  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",", / Q8 E# u+ c( I$ M3 Y- j
       "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}], : M. @3 K- R! K9 j
      "}"}]], "Output",; _3 d7 M+ l: K( u! {
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
    # D  V% q; c6 E. W0 O+ P9 P; d3 L! M" o1 I: T' K, q
    Cell[BoxData[  u1 i& i: l/ ~' g. o- k% Y
    SuperscriptBox["\[ExponentialE]", - l, K' t# Q9 i
      RowBox[{"3.141592653589793`", " ",
    1 [2 m7 x& _( Q$ I8 m4 f! S4 R& b   RowBox[{"(", ! v3 D5 E& X2 R) ^
        RowBox[{
    " K: @" K. _  P! ~. l     RowBox[{"-",
    8 m: b1 W( |+ M; L0 W0 D      SuperscriptBox[/ ^7 e$ m" R! I$ {" Z" L
           RowBox[{"(", ! y6 w! l1 o3 N
            RowBox[{9 Z" V9 C/ ?0 A1 N6 t* ]6 L
             RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", 7 j) H, X" [1 Y* D% M
         SuperscriptBox[3 M, J) k3 S1 l. @, b1 b
          RowBox[{"(",   X2 m% {( \! ?" I$ `
           RowBox[{5 g" k) E1 y/ p* t
            RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
      |0 _/ h( o$ U. I+ o# X( U     SuperscriptBox[- D9 j3 [0 |+ `5 N+ Z+ Q
          RowBox[{"(", 2 P5 N4 H) _% ~+ C. ?0 \9 l
           RowBox[{
    ; M0 }2 }" b0 ?        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", , G3 ]& j/ C  d  B7 g: ?+ ]
         SuperscriptBox[/ d0 S! a4 p! K. v
          RowBox[{"(",
    : [4 C# }( s/ a       RowBox[{
    1 Z& Z0 N) E* l; }3 c        RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-", 0 o5 u6 o5 a& R7 B4 H! m+ e3 I
         SuperscriptBox[9 K' Y% f( p' [, h' D- Z" Z
          RowBox[{"(", 4 b0 [" O) c$ `, j" @% `( d. `
           RowBox[{% s: Q3 O, o) }4 n# ^% @2 y7 K5 y' K
            RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
    # X  B5 X6 d8 W6 Q4 s% y" M( s     SuperscriptBox[  a4 z% t3 {2 E: v6 D
          RowBox[{"(",
    ) g$ S' N/ N* Y* f       RowBox[{
    9 W; k9 v3 p' j6 ?        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
    8 D% s; G* _7 T" p     SuperscriptBox[) w" ~3 O* m( }$ `
          RowBox[{"(", 0 E3 T" \* s# J1 |) s5 r% A( r3 a
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    % M5 n0 `! S5 K     SuperscriptBox[- \2 d- j: y: L) y
          RowBox[{"(",
    & p& g% l/ _  A2 N' E       RowBox[{
    2 H) @  r- \1 e- ?        RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
    ) J( A8 P( `7 F     SuperscriptBox[
    5 n0 C8 e, s, _% @8 h$ M6 k  B      RowBox[{"(", ) P* U7 y, e4 Y+ T# ?/ S
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ) H* q7 ]# U  N% I# D, m
        ")"}]}]]], "Output",# C: p( j0 T2 k3 B) y+ H
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]2 p% K7 L. U- B: t
    }, Open  ]],
    ' _' M+ k+ e# R' S5 |- d, C, y8 \4 F  w( a* `# U$ X
    Cell[CellGroupData[{
    , U# _; ~$ k+ |
    * z! l! e: T8 gCell[BoxData[{
    : E! F& q) W& e' S. B RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]",
    3 Y* I; M7 B2 e$ Z2 p- H5 d RowBox[{"u20", "=",
    ) r" j4 ]' E6 @4 H7 y1 L' l( l. d5 }2 }  RowBox[{
    9 R0 L1 C5 ?/ P* N   RowBox[{"Exp", "[", 2 C( \+ K: h) Q3 S. W
        RowBox[{: D9 K  u2 t/ k# S
         RowBox[{, I& F) T$ u1 P, C/ m7 {
          RowBox[{"-", $ [$ P* M* Z% j# ~0 o
           RowBox[{
    5 e1 X& T4 Z& T4 u& d' }) F1 A1 I        RowBox[{"(",
    ) l+ O/ V# R/ s( O8 _2 B0 ~, `         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 6 h/ j3 Q* X0 b" j) W+ b$ d
            RowBox[{"(",
    9 Q& |: K/ A2 J' _+ H$ v1 |* i         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}]," E+ F! B( U9 Q& ?4 {
         "]"}], "/.", "DeltaX"}]}]}], "Input",( _% i$ s& w# e: Q3 E! L0 n1 h
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {. U1 V. [% j2 I! I1 I5 F( C
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9, ' [. p2 [1 O& r$ _8 M
      3.57796159382047*^9}}],
    " |1 b' }5 H" J0 @- {
    4 T4 O" s% D- K- y# M' m5 aCell[BoxData[4 w) d2 N- q" ^7 i
    RowBox[{"{", 7 @$ a5 o2 W% w/ {1 ]" j
      RowBox[{2 a' D& o* a  Z9 n* O# S$ z
      "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",", 6 X0 G, M- \) Y  ^6 ?6 K
       "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}], % F' C5 N7 K7 G2 }# {4 K* T# r3 ^
      "}"}]], "Output",
    8 C, J. E% @4 U  a, n0 N6 y* A8 o CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],
    5 R- j" [6 x% n4 \! K: x' R! W, Q" G$ D
    ( O% Z( P1 E" P. J; y: F% VCell[BoxData[/ \! y6 a7 s+ T  _4 r
    SuperscriptBox["\[ExponentialE]", + w$ S3 ]: E! C; `# o0 R
      RowBox[{"3.141592653589793`", " ",
    % c; T( a2 }+ E8 J% G   RowBox[{"(", ) Z; F8 F6 N! z8 h& W! N
        RowBox[{; n  y, s# ?( k
         RowBox[{"-", & P) t2 G  u, B6 \: e
          SuperscriptBox[5 [% e% Y( Z4 s; u
           RowBox[{"(", ! u: A1 W6 F. i2 w
            RowBox[{/ A: ?; O* ~& o. U
             RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", : w* o7 {+ j$ r% L: s* a
         SuperscriptBox[+ o9 w/ j0 t$ E4 J
          RowBox[{"(",
    " [+ ^, r) b2 |+ @+ \5 d! ^       RowBox[{
    ; Z0 k& F# l1 ?        RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",   s- K6 o% @, A4 @/ J- G
         SuperscriptBox[
    ' c7 d) A% G9 h& G$ d      RowBox[{"(",
    ; W" H: ^1 Q/ X0 m  P+ k       RowBox[{# n' p' s) V2 I4 G, Y
            RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    ( d. b/ Z  }4 n5 H. w     SuperscriptBox[7 B0 h1 G; N& A4 t2 B
          RowBox[{"(",
    $ u6 n3 D( c6 T( H       RowBox[{: m' u. W! S3 Z/ K' y3 |
            RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
    8 d9 ?; z5 a. n) E/ S; J% y  g     SuperscriptBox[# [6 k9 H  Z  h8 c
          RowBox[{"(",
    " s  n! \9 H5 I. C1 g       RowBox[{
    0 t2 f7 A& y1 n0 h. C" H5 F2 m        RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
    $ S; {. D# @) o' `( @: l     SuperscriptBox[# T9 F( j7 r2 H) O
          RowBox[{"(", # A; Q/ C3 h+ m/ R, [
           RowBox[{9 [" z/ W1 Y* ?8 v* O
            RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    / {& C* V$ B4 |) s     SuperscriptBox[
    ; Q$ S: q! k4 o3 `      RowBox[{"(",
    1 G9 [5 w) x3 `  k1 ?       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", - _0 O1 {( s! n
         SuperscriptBox[
    0 z! b( W. p/ _      RowBox[{"(",   N2 [8 |; F& w8 J5 C6 ~. s
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 7 P' Z6 ]1 D( E' W
         SuperscriptBox[$ U1 y4 C* q' b" Y& |
          RowBox[{"(", ) @9 u' C% k' O) B
           RowBox[{8 C/ Y3 a' k! \" ^  D% H
            RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}],
    # H8 O9 i" c  z$ Y/ p, R    ")"}]}]]], "Output",
    $ [5 R7 G6 T, c: a CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]
    0 ]5 @3 z$ d/ `( f6 U8 p}, Open  ]],9 Z  g  Q2 \( V

    2 @2 ?9 I0 N1 V4 d; ~" b! J6 mCell[CellGroupData[{6 ~9 m3 h$ S8 t/ z% O) l7 V4 u  n# r
    7 c# O4 d1 e+ A6 L% T$ @! i
    Cell[BoxData[{' `9 @& |4 Q! Q& o$ `7 X
    RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]", 8 Q/ i3 o4 s7 i1 P$ P
    RowBox[{"u21", "=",
    * Y+ I& C1 a  n  RowBox[{- Q* h' Q! ?: _6 N) D- E  t9 t) U
       RowBox[{"Exp", "[",
    # |6 _8 E# P6 U* V    RowBox[{: Y$ c" m" B% }" g  d
         RowBox[{
    1 y) h5 B# B9 m8 p. }) R: f      RowBox[{"-", 2 J5 Q! C7 z$ a& U) I
           RowBox[{
    8 |! C9 ?% o) h1 C, V1 y) j        RowBox[{"(",
    - F# g, p$ q0 h& o6 g2 Y) R' u, Z         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    % Q! f9 z" q, ]+ N$ U        RowBox[{"(",
    7 ?7 B" M4 |3 l' p         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    0 k6 v0 G; I( x; ^     "]"}], "/.", "DeltaX"}]}]}], "Input",
    1 V- l3 _' ]1 |- e) K CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {% D) k: U( u9 R+ Q8 W
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9, ! @4 Q* z. g% ^0 b' {6 v
      3.5779615991556787`*^9}}],( |/ N, I& t% ]( q; H( b- W2 ~( V
    % v* a8 {- o2 }
    Cell[BoxData[
    ; P& |, p  z7 ^, z+ g& R) F RowBox[{"{",
    1 n& g2 U4 }! U  |& w# Q: |  RowBox[{
    0 o- e* ~6 V3 e. Z% U+ I  "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",", ) e3 ]: H4 Z8 {3 m8 m$ V' T- Z
       "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}], / _- c; W1 H" Y
      "}"}]], "Output",
    ( s6 L! [) e7 R4 V CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],2 A4 r* q6 f: i4 @1 M( ~, J. D* Q

    ( C. l; f% p4 ?3 HCell[BoxData[
    2 J. W" p5 P& a& `" ]1 |! ^) i  k2 N SuperscriptBox["\[ExponentialE]", 9 W5 Y- t  L& X2 `( k/ n7 i
      RowBox[{"3.141592653589793`", " ",
    , P. e; D# U1 w# J% }. s   RowBox[{"(",
    7 [1 G  E. E; M4 q- P# B- h    RowBox[{0 J# H6 F$ L; _* ]) _8 c; [7 N
         RowBox[{"-", 4 v: \, a, T/ {/ _: N* O
          SuperscriptBox[9 f8 H8 X, p) q; v( |0 t1 \6 d
           RowBox[{"(", 0 _% l& G- c. L3 c' B# `- \& u" [- S
            RowBox[{
    ! f6 W1 |0 ]% F  i8 I         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
    % n8 B. C% Y* w' Q& e% U. o4 M6 n( N7 J     SuperscriptBox[
    . A' |. x% V( K0 e3 t# l      RowBox[{"(", % R* N% H+ e- r/ B% h; [9 Y6 G
           RowBox[{" ]" Y, A0 `) x+ ~
            RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", % b6 U. ?) k, y3 @+ O
         SuperscriptBox[
    3 s4 z4 f5 \1 u- C8 j) v/ a- s$ \      RowBox[{"(", / N  `: \* ?  F
           RowBox[{
    0 S9 O: l$ c: X( b7 j0 D# x        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", 6 ~5 u2 T& q' ?3 V! ~! ^1 Q% r
         SuperscriptBox[
      F' A4 g! u/ S5 u, W* d& ^      RowBox[{"(",
    0 A" F7 y$ G2 d1 p2 t% X; B: m       RowBox[{
    & A% c" r) m$ R3 q; z5 ^        RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
    . x. M0 c1 f2 M4 ~     SuperscriptBox[
    6 t0 l$ p% ], |; s  ]- U4 {  ~      RowBox[{"(",
    " X) H$ {$ p$ b# [$ ?       RowBox[{7 Q' t: P; F3 H# m/ C, ~
            RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", 9 X' c! C7 V; G3 `, h; E; D4 z& ]
         SuperscriptBox[
    6 t5 D' z. _, n7 I* G. ^2 Y$ q8 s% `      RowBox[{"(",
      P+ p& F" h% Z( P' \       RowBox[{
    0 p0 |! r5 L* X# I, D( Y        RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    7 k2 X8 b! C$ z4 v, u* J& D     SuperscriptBox[4 `/ f, q, i2 R5 n0 F8 @9 Y2 }
          RowBox[{"(", / G  A! R5 C: y( T3 G
           RowBox[{; _, f$ Z* z+ m3 D3 _
            RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
    3 g  f" b! X/ I1 l1 K" a" K- a     SuperscriptBox[
    # n' D& b0 u+ j  B5 X      RowBox[{"(", 2 l' G* R9 _% m7 A7 H
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ( m. F$ _. g2 A" b, ~$ @
         SuperscriptBox[, l( x/ ^( L* `9 J, d) _
          RowBox[{"(", # X9 l2 q7 W7 j
           RowBox[{
    9 V9 U) p7 l/ T$ u! u        RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], # _9 t, i# C% h7 C) D
        ")"}]}]]], "Output",
    : \; a& {" K! B. M CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]5 I8 W: ^8 s1 Z
    }, Open  ]],
    ! f' B' Z9 q( i; I1 ]
    7 s. s5 x8 @9 ACell[BoxData["\:62df\:5408wi"], "Input",
    ! d8 I  o" b" G: e" M; T CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],, m3 Y8 W! G" I( N1 O% Q0 n% X
    & _6 R- ?$ m7 S8 i/ E, H
    Cell[CellGroupData[{( D, T) s& w6 j, w

    9 |# x: W( w3 U0 ~, n1 {  FCell[BoxData[
    ; G; D" [9 {5 G8 I+ R, T) K. h RowBox[{"y1a", "=", 6 [$ B) d" O2 o5 P. A- w
      RowBox[{"Table", "[",
    , l: J: k( D5 M% z; W; ^   RowBox[{"x", ",",
      |( Y9 ?8 l& B' Q    RowBox[{"{",
    3 d6 P+ ?  [. A& l: G' K     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    ; ^5 B* \/ b# r0 C  U% b! H CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {& H! j' E8 G, A
      3.5779226649375*^9, 3.5779226810625*^9}}],
    : ~3 h# h& ~: m" R6 g- N6 b. ?
    ! D$ `' W0 o6 w4 k7 _8 dCell[BoxData[8 M6 N' ~# \/ l* G2 k! j" M0 d
    RowBox[{"{", 3 _1 }7 g2 B+ \2 _. R, F
      RowBox[{
    # q+ W+ x2 B6 k) \$ \( G9 [  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", $ Y1 f3 B5 e8 F6 X
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    : Z$ {+ S4 T/ T, l    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    1 X9 E6 `: U! k4 u) V   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", : O) Q; ^. C& k
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    - D3 l( z- r! E3 R: E   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", * @' G2 L0 Z+ P0 R1 F; U# \
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", 6 `/ ~+ c( U4 t4 A5 ^
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", & R( K* i# @& `9 R% C( x" R
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], & q% P) a/ G, U8 l, U" p
      "}"}]], "Output",, @3 e. W: C6 Q$ i
    CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
    % O  S0 U: o2 I) Q  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]8 {7 z; B- R' a  f$ l6 C8 c
    }, Open  ]]," H0 V. L3 @' {* A! Y$ I  p0 a) ~

    % d( F$ v0 `! f# F% j! tCell[CellGroupData[{
    3 \: L! K: _* D% h: {, x7 B! n6 {3 T, n$ F* ~* L( `
    Cell[BoxData[
    2 J$ Z) u, h# t1 u) W& z8 \0 C" @ RowBox[{"Data", "[",
    ( e# {% L& q. d( s$ p  RowBox[{"[", . P) C' ~0 [5 u) ^. F4 A& t9 F
       RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",/ d2 H* p) i) Z8 s( v2 ], ]
    CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    2 j" Q$ H# `8 y" S5 D  M   3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],
    , ?$ u3 z( m( M* I6 z; z& u9 G) m- w' X/ N, j
    Cell[BoxData["0.899882`"], "Output",
      t; [! O) `- Q0 a" K$ i; H CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
    4 ^6 V- z6 f9 H" l% Y. I; q2 q   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9, $ D! l/ i: H8 P" Y$ _2 ?9 W
       3.577961929080654*^9, 3.5780123419375*^9}]( q- I4 D9 o1 c2 k9 R& i0 _
    }, Open  ]],/ g/ V6 n6 N( @+ L% ~
    ' w0 n: L; B0 _$ `
    Cell[BoxData[  }2 g  L" I+ b/ D9 z% N5 C+ O9 w
    RowBox[{"For", "[", + A1 {, j/ R7 T8 R* n
      RowBox[{
    # i4 y* b; h/ z# G# }   RowBox[{"i", "=", "1"}], ",",
    3 G8 M3 w( i6 b: M   RowBox[{"i", "\[LessEqual]", "60"}], ",", ) B& u4 X  v6 C/ ~9 c5 b8 A. ~
       RowBox[{"i", "++"}], ",",
    : j  |7 o" \) }/ q8 p% |$ L   RowBox[{! Q1 ?" u# ?0 u; s; o& j: q. G
        RowBox[{"y1a", "[",
    ; p3 [/ f" Z9 ~     RowBox[{"[", "i", "]"}], "]"}], "=",   ]( t9 g& [' N2 n1 h' _, H
        RowBox[{"Data", "[",
    ' f( @1 j2 G5 X8 V     RowBox[{"[",
    & H0 R& W/ W+ D      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
    6 c. q9 K/ L0 y5 m CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {8 p8 S  z3 }0 d1 {  A
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, 3 j. k4 \& O, {4 z
       3.577922923203125*^9}, 3.5779588839702806`*^9}],2 s6 e6 w! e6 C7 ~+ Q& X8 Z% A
    9 [1 @; a9 |9 J& f, b9 Y: _2 }
    Cell[CellGroupData[{5 a& b9 `2 Z/ O, \: A7 k

    % R! w$ k  W( o! A; SCell[BoxData["y1a"], "Input",& R( a& b- A6 e$ Z7 ^$ Y6 o; k
    CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],
    4 c  |0 s" O* l3 w/ s, C# G0 q4 g1 e: |  q2 q
    Cell[BoxData[
    8 Z( R4 l! d% L: I* g$ S8 J( j' F) ? RowBox[{"{",
    0 Z5 x& X6 i. P; I0 |  RowBox[{2 u( F: ~3 U% V0 ?1 b; ~
      "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",",
    2 k4 \0 t: n0 O( L9 l0 z4 b/ |   "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",",
    ) F; X$ d  z# X! L   "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",", 7 E& M% V* ^$ S2 R
       "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",",
      O/ s) T* j, F   "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",",
    ) U( j/ M$ F: n* J* ]& b, p   "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",",
    # u4 ^% E# M( _   "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
    $ N& r: B; d9 q7 q8 ^   "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",",
    # O) C! ^, I" u   "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",",
    ) w& c. f, [* U) P) {   "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",
    2 d& E$ P5 G" N2 X" m   "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",",
    5 Q9 A! ]$ P% t* g   "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",",
    2 X" G& r, C3 g   "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
    . O+ X6 p3 a" ?/ b6 f$ h0 D! ^3 u   "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",",
    * J# [3 p0 M1 T! W   "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}], ; e, _; q) W4 k" T- |" M
      "}"}]], "Output",  g6 J) x# x' A
    CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9, . H6 d1 O" E% R- I) D
      3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]
    ; @/ h& X! d! s}, Open  ]],+ D, j% t7 r6 f+ ?) K: ?
    ( n, D' h4 |8 {' ^2 t
    Cell[CellGroupData[{
    , L' E8 A) H8 e5 u' S% Q
    & I1 G9 B/ \, c+ Q& _! @% N! [( U2 ZCell[BoxData[6 p9 L6 x" _' Q( q4 g8 B
    RowBox[{"m60n21", "=", * U) Z: m$ ^2 }1 `7 \7 ~/ h) a
      RowBox[{"Table", "[", / H+ c3 q- \, \1 k
       RowBox[{
    ; ?& H  R/ i' f( v6 r4 d/ C    RowBox[{"Table", "[", * M, x' u+ I# X  ^( G
         RowBox[{"y", ",",
    . z9 p- Z8 k- Z      RowBox[{"{", ) @5 {4 g0 B2 F+ B
           RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",", 8 l& R( T3 W7 l! C( m. E$ J! L2 U
        RowBox[{"{", 9 d0 d6 @; ]7 B
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",  d0 y; @1 }5 [1 n" x; n# J0 q
    CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
    * h; ]/ d2 s3 g, k+ |/ U6 S$ R  3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9, : @7 P2 i! Y9 ]+ x7 X
      3.5779619706547265`*^9}}],
    / f* K3 d7 z- v; j9 T0 b  Z- s9 V% X
    Cell[BoxData[
    2 ^' A0 ]( ?& A$ x. } RowBox[{"{",   i6 ^6 P' i- n
      RowBox[{
    3 F3 q4 H% U8 {- ~  k$ G   RowBox[{"{",
    + \* |- v# Z* t( d    RowBox[{5 g9 u, z: S( G4 \* Z8 E: }
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) w# ?! L$ ~" `- a* G0 u% ~
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 Q$ V3 D. H! C. K" k
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 x. e# P& l, t) b) g3 K) Y
         "}"}], ",", , o% B  S/ u! e' w/ x  b
       RowBox[{"{", ; ~% p" F7 {# p& I' |7 \
        RowBox[{
    ' j/ d7 q0 ?9 ?3 ^2 T    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 h+ c) O+ Y9 R: ]
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
      f# i1 M. K1 H     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    - L, ^$ Y. H; X  U7 {     "}"}], ",", 9 c4 d, [. s' j$ S! u
       RowBox[{"{",
    # \0 F1 O. |% c& k    RowBox[{
    6 k, H! K' j8 |    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 A( B1 o$ d3 C1 h2 a% f
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 e9 N0 ]1 c% ?: j; {
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 M+ e/ ~8 @6 r0 K: C
         "}"}], ",", * I; ~2 @( a) j' G
       RowBox[{"{", - D3 s- A2 ?4 N0 R1 N' R- H
        RowBox[{
    " p' B/ B. t0 R# J' h% ], g$ i. I( O    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* t8 v  q- ^6 w. |  V; A0 G3 x
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    # M/ m' g1 }7 o* H* X     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# c# Q) p  P9 F! @% f6 T
         "}"}], ",",
    ( U7 z4 l+ N, y/ h   RowBox[{"{",
    : o  ?2 H, e) W' M6 `" p    RowBox[{. L* F$ M; {+ B
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; H8 O, Q  |) J! K' _( K7 D      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 h1 t6 i% J/ a6 K$ S1 m  \, _+ z
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ) F( d0 D0 c$ h" t1 s     "}"}], ",", 3 L! C% Y3 Q2 [% c2 U3 M0 N9 \$ [9 s
       RowBox[{"{",
    ' e! C& O* C' i" D5 J    RowBox[{) V5 G9 y1 I, c; p- u
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& j) p- _. J) ^& W5 M1 `  ]0 v1 M
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   R7 V# _# D5 v
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' P! y, X# @% `
         "}"}], ",", $ ]/ l0 ^. K  X: r% y, [
       RowBox[{"{",
    $ N# D( X& ?7 O0 G8 \5 w    RowBox[{6 g+ i+ m7 ]4 g( D* T0 j3 h
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    / B& ^* s/ _  W4 \      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    6 l9 A5 N+ E# c+ p! k8 T     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    & o1 \" h1 X) Q1 l; Q' _9 e, M; t     "}"}], ",", # u& q4 b! [2 T- l* v0 @
       RowBox[{"{",
    , e* j* c# k  u' L& i+ Z$ {    RowBox[{/ D8 i8 P- D: I2 o" T' L
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 ]: O% q* T; X/ i6 {8 R- R3 n
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ' ~9 f# O+ ?8 [+ R$ j, H     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    8 }& w% X3 X1 S6 Z- l# t* q     "}"}], ",", ! `2 ^2 o9 m* {8 Z* }
       RowBox[{"{",
    ( D; L) Y3 R  A7 b/ M% Y    RowBox[{! m+ G6 b( d* \- [( I% i' v8 ?! B
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ! [4 U* B2 R' H6 P3 N( M( A" S  p      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    : E  R3 [* r! T% W: T; U/ j     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& j' b+ z0 D5 G5 X  B: B: I
         "}"}], ",", 4 w3 P9 e$ y7 L; U" D
       RowBox[{"{",
    6 I7 l9 ?8 w9 q' y% q- y) L, }    RowBox[{
    # E! U9 h3 j9 W9 i* U    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# e  l7 ~8 `) V* ^4 q
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( t1 s# K2 j+ d: M1 a2 [" |
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 Q; R/ j, c! b: {7 W$ N
         "}"}], ",", : d: E3 G& b1 Q# E
       RowBox[{"{",
    8 Z: J7 D  }5 N. ^# k- Z+ C    RowBox[{  Q" \0 k" X' C# D8 N2 U
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; T4 A2 p1 n; |      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    0 \+ G4 L! w9 v# |8 Z* ~     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," V$ Z! m* m$ Z0 i& t
         "}"}], ",", . B- F& q) l8 Q# O4 V; C( P
       RowBox[{"{", 3 g5 f- y. r" N' _
        RowBox[{
    " C2 l2 n, h- _4 E    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    # ~0 P: l3 O- x* K! q1 w( ]+ C      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    , t0 K4 C  Y' v" [% G  G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    0 @$ I  P  t8 c4 x- x7 a1 M     "}"}], ",",
    ( l% c& T1 X& q6 |9 O! p: c/ f   RowBox[{"{", 3 U: G; ]; u0 s+ [5 z
        RowBox[{
      @9 Q  g5 H  D% ?' d' I  S/ N% f$ x2 h    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! H+ p, ]( D- h0 I/ b8 r; r1 e6 @
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " k- O  Z6 I( f; _
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    + f' J, w( ?+ X2 ]3 I6 I3 K3 Q, y8 s     "}"}], ",", ; F- _2 M$ u( t( B0 @, d
       RowBox[{"{", 3 ?$ D. p/ b$ I/ n5 S: L1 Y8 P
        RowBox[{
    0 ~6 J& n% i7 N2 K) Q  B    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ! E8 w6 V$ b0 F, d1 ?      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ( N: `, b0 O: K. `! C, L% h     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 _# t/ _! q( C
         "}"}], ",",
    7 z0 u% E- \7 [! B  ~- K# z1 P   RowBox[{"{",
    5 m4 R2 ~7 u+ Z3 a+ ~; ~' I1 ]. \% H    RowBox[{" |0 F9 H- @/ P# a( q, V
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    , z7 g" b3 a, k2 \2 I( x      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 ^5 @! V5 N8 g& n
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 s  e- ]6 {, m2 t* a" [5 f3 a
         "}"}], ",",
    & V1 p9 s* Z% a9 p; V! [) T   RowBox[{"{", 0 a4 j/ R$ b" _% g4 K4 V* ]7 l8 [
        RowBox[{
    , ?9 |/ c1 g% b8 u% x1 r7 s    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; _  _: x+ O- i" a8 ?: {
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
      z+ v) M8 b+ b7 r1 l2 @     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: @/ Q  q5 w- t# q3 s$ [# @5 h
         "}"}], ",",
    8 `. s9 P9 C1 t   RowBox[{"{",
    ' [6 i6 F( _2 i& [+ w    RowBox[{2 F4 [% |1 g% u9 b. T
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    & G* o% y3 z6 [4 v2 t3 F9 X6 F      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    % w* |2 x7 e: h- T     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' F% P; m" K! N5 t( W8 i/ I2 ~
         "}"}], ",",
    3 I3 ~. J6 l1 A0 L) o$ z% y8 v   RowBox[{"{",
    4 g* x1 H' I4 v; j' Y0 y/ ^    RowBox[{$ l8 M) U# y1 r7 c: j
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 W7 |0 Q6 }+ \2 ^4 x8 L: i. b
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " t, t) Z7 B) V- h4 V
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% |5 j. W$ r  M$ y9 o. g5 Q# x
         "}"}], ",",
    8 |3 P4 ?1 ]  l5 ]- X   RowBox[{"{",
    , h  D% E0 R) @9 ]6 L% \( q    RowBox[{
    * m9 w8 I5 q9 F" z! A# }! B    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 N2 c+ E% l: |8 I4 o
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ' s& c! x8 o% d$ u& V' M, {     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 Y5 C6 \; G2 U* v9 _8 \
         "}"}], ",", 6 Y; u; M0 \: r
       RowBox[{"{",
    5 y, F; T& v8 ^2 F4 u2 _2 P/ C    RowBox[{
    ( n9 j4 ?; j" g  a# i& }, u: {: n( V5 R    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' s" _; h. i0 a* F  X7 S
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 q0 s  v' \" Y2 P
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    7 I! \- W3 |! e, {     "}"}], ",",
    9 C* |5 ~( o8 _3 B% `+ ~$ }4 a6 A   RowBox[{"{", / l2 O; {$ n0 J$ S
        RowBox[{
    7 Q0 T/ \( @: m  D    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ l* t4 J% N2 M+ m" b4 w
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    , b6 r& L! J: G$ I2 N     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 L: Q$ U4 `. B+ I0 t
         "}"}], ",",   h( A1 j5 w* g7 [
       RowBox[{"{", 7 H+ ^8 B$ f0 K3 S6 `: \- U% }9 O
        RowBox[{
    , a" W7 `% i0 R- i# q    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 O$ y0 n+ g" a- }
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # Z: x6 t1 p2 Y# G0 J# }
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," J1 r) X" f8 F, J5 e4 k) M
         "}"}], ",", " Z# V, K: o4 ?, @
       RowBox[{"{", / ~- x4 J1 Y3 h- [0 J
        RowBox[{7 W! U, |4 R+ O% l/ n
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 d7 V( U# m% K) z3 o/ h! S
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 C" U; z, ^( ?: A' _. P
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    8 E9 U4 i+ K+ Z/ v     "}"}], ",",   |) a8 B0 t, {/ q: G
       RowBox[{"{", " w& Y$ x$ {4 ?2 K" g
        RowBox[{+ e4 t2 X; E4 z
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. V3 M/ I/ m( ?7 ]8 Z# r& U& F
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    - w8 ]$ D: H4 P( x' ^' R  x# N6 B     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ; a% Q9 d- I, S: g5 i4 q4 c     "}"}], ",", 9 j& ?9 i0 k; g1 {! Y
       RowBox[{"{",
    , ?8 {- w3 a# x4 N    RowBox[{
    7 a% L; b. u# n- i    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 A& P, `: R) W
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; m# b$ U( K  k8 n( v
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    7 x1 l; R4 Z: c4 d" p3 _- @# j* Q7 t     "}"}], ",", 7 |' \& K# `  L% t: {0 _
       RowBox[{"{",
    ( i1 W% z4 c6 n) @# i1 F9 ]    RowBox[{
    / u! J, M, g* t  N2 X    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 I  O. F  [3 h3 D9 ~& e
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    4 ^% X4 J- D1 G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 i" p9 y/ [9 y. u
         "}"}], ",", * o- U% N" M7 `: g( Z; G# J8 C) b/ p6 f
       RowBox[{"{",
    ) B! t, P- ^# J    RowBox[{
    & [* `) L! M. W. j: F4 O& \    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* W* R8 u# t  ~0 x7 _; J2 y1 n- p
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % O' f0 y" R" M4 _. [+ y$ [
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . [) }; Z0 Y# T" q3 Z' \     "}"}], ",", 8 n. d% l/ [+ Q
       RowBox[{"{",
    8 z' [0 i+ j- s' K$ ?# f" d    RowBox[{
    3 j5 J1 h' e4 |" @1 }6 X+ i6 B    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% v# C3 B( d! P, I& ^
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + G$ w1 g, a0 ~* K" J
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 c" b8 ?" j) _6 `
         "}"}], ",", % w1 {+ r7 b! a8 |) s- y
       RowBox[{"{",
    * U) Q* d( h0 o    RowBox[{
    # R6 m$ X- }" t3 f; c& i    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 g. m4 H. i4 ^% [+ \3 L8 _4 {
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 J) R' c) M- f0 ^3 Z     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% Y, p# n/ }' K, Q+ T, f
         "}"}], ",", 7 O- ?- _9 g; `' i5 X- N
       RowBox[{"{", / q; S1 y, w# m! C  H/ s
        RowBox[{
    9 u& D- Y# E" A2 Y. O    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    + T+ x" N  }* x% x      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; d) y, V- s5 h' n' f; ?* J3 h     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 A$ |: z8 x1 m9 R) Q* Q
         "}"}], ",",
    & \) |7 c' ]+ O( N! {   RowBox[{"{", 7 b' T- ]/ z! |5 r5 v* ]
        RowBox[{4 I4 k5 b3 I% O8 C7 N
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    $ g: H4 e" f9 j  n1 F% L! v- T      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ' ?0 R* x( s* W     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( S, H0 z& N( R8 G
         "}"}], ",",
    0 s: y% a8 j; h! Q6 o   RowBox[{"{",
    & W+ i3 [" \, _    RowBox[{% k5 z' c5 j6 j0 G, A
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    . P+ [1 o: C$ N/ N) U      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . g9 @- |8 s! i3 s' ~1 k6 o; G
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 }* k& \6 A7 D! e3 o& `
         "}"}], ",", ( G7 S$ H! V" X* n5 W/ i  C' c! Q
       RowBox[{"{",
    ' u. u; ?% e# [- c    RowBox[{+ {2 Y( N# ^) d* F
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    5 X2 g6 _  ^" ~$ l# ~$ A. _      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; z; @, E) R; B# @( r& a
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    6 T- _" V, n- x& ^; c+ ~' K" r     "}"}], ",",
    8 }2 f. G* l6 Y! Z0 e. N   RowBox[{"{", 0 A& v$ {' ~% T, X( d$ R: y
        RowBox[{- o) Q. I* [( v" O+ }4 S; a- Z4 H& A
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 w" q! E1 }" _4 x7 Q
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / m9 O: F, u! b7 n
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 \& g& T, h2 ]. ?- d$ A
         "}"}], ",", 3 @2 q3 z8 o" U' R" u; n
       RowBox[{"{", 9 A. M% |, S! ~
        RowBox[{
    * v7 X# J! w( p7 Y, @' a: y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    + _& q8 |9 O0 I( L" K  a& D$ B      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    * O  `7 i! E8 X. ?, \, W     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! V# J7 i# v1 R) S) Q4 y
         "}"}], ",", , T/ a# a! Y2 z5 m
       RowBox[{"{", 7 Q; L/ J* q1 |6 f+ e: S( ]' v
        RowBox[{6 e& a7 w* }/ k- B" @. |) q
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 l/ L3 Y- m5 R2 C
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! C2 m- f3 D& S     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    6 X5 y; y) \' x/ Z6 K0 e* R     "}"}], ",",
    ( f7 r. C" q; c/ x( ?   RowBox[{"{", % a+ a# Y# T1 a! z. x5 M: C
        RowBox[{* A, I: x/ A  C- p# @
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 h* b  M5 M2 L4 z3 U: H      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    : Z+ L5 E8 o( @, H) E' k) @     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; Q6 m9 q2 P! p- K
         "}"}], ",", & R- r# I, \2 G0 ?2 T% e5 F
       RowBox[{"{", 5 N* U" d( N$ B( s6 C
        RowBox[{, T9 [  [) k  l& V4 H  w  h
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 |- [9 k" e2 g4 {. {) f      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    $ M' X5 B* R5 }. ^$ c     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 x: A$ z: \) v$ I, K
         "}"}], ",",
    4 h- `9 {* R4 ^5 q9 d   RowBox[{"{", . S0 x% c0 V: Q4 a7 y2 X7 W: K* q2 g
        RowBox[{
    * G5 H" f9 c/ k9 n' b    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    6 J/ ]" S$ }  D0 C" o      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & p: X3 e7 T: P. {1 J
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ! D& T+ s2 b) ~1 ?     "}"}], ",",
    # b# N. f" ?- l6 o  C8 r1 T   RowBox[{"{", 0 n/ }! n. C' I" G* x" z, r
        RowBox[{0 x6 U; r( x3 H7 X' J
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. \( d) z) u4 ~% T0 |* r+ Z
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    * r! c: m/ y7 ]* J8 P2 O     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( ]9 {1 l4 @5 S' E* @/ [
         "}"}], ",", 3 \+ H. ?$ ~1 f5 Z: s& D
       RowBox[{"{",
    6 ^8 `9 T4 L" j, |    RowBox[{
    9 z6 T2 X: S1 V4 g0 N    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 T8 n( F5 Y2 o+ j
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    7 w2 d; h* _' c4 [     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 R, b& A6 {2 v% R1 M
         "}"}], ",",
    3 k# P% @6 ?- j   RowBox[{"{",
    8 y3 G6 o2 b0 v) ]9 Y- y. t    RowBox[{
    . ^/ h+ \7 J# R& a3 A4 s% b  r    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    # G, r9 [2 _) d" g% d      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! h2 V/ `1 i3 X  c$ A+ U  y4 G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- b3 H" D7 `0 K  Q' u
         "}"}], ",", ' m3 z5 {3 M+ O# G, a0 m) X
       RowBox[{"{", ) w4 c7 G" |; S) g* H8 S  X
        RowBox[{
    $ t, e- K( D1 Q7 D! M1 b6 }    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    * Z: \) T  P* p* p0 f4 w8 l, e0 W      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   j2 c6 K/ b% m# u' n
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],  E+ K& a! v7 v% _( A  J1 e
         "}"}], ",",
    3 B  K( g6 ?; C3 e0 w* ~# g   RowBox[{"{", ) L$ ~7 ~1 M+ m
        RowBox[{
    3 t5 F: }' v; A6 {7 _$ P    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 f/ g/ @5 ^+ {4 O  w, L      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    / R1 `: h4 s; j+ G+ t4 ^( P     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ) }& y% `: A4 |     "}"}], ",",
    ) E" }& M: G5 W" E. Z# c: y; M   RowBox[{"{",
    # w! U+ l4 P" S% T    RowBox[{
    # P4 H& D) W$ F+ u    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    6 p0 t/ v0 @+ v( K2 P      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 U. X& h( |' W. d! Y, ]- g% D
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    # T1 r; O" o( q0 }" E     "}"}], ",", . Z1 J+ K! ]+ t/ N' w& M
       RowBox[{"{", 5 E$ F7 Q. ]# r! \
        RowBox[{
    5 g+ e; k$ Y; R/ u" C    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! s. }8 l& r  `- k6 c& B
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + R0 ?8 v5 _" j& V$ X
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    3 O. X: y" R* ~8 W     "}"}], ",",
    9 N- u* G/ a& d' {- O   RowBox[{"{",
    8 |3 L8 n( B0 ^: w, m    RowBox[{
    ' p" y5 U6 Y) J3 y; `! H    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    7 P$ M0 p4 C8 V. W* r% ~/ H" D      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! `. Q& v/ F" D  R, @0 v4 L     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. s' z5 g/ s$ Z. g: e2 I
         "}"}], ",", , z6 L9 K4 I* z! U; G! k- r
       RowBox[{"{",
    ' L6 n7 w' s; |: x' U3 ^    RowBox[{
    9 h% }8 F3 o2 \4 g- h4 i    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : y& h% W  f( {$ K. C$ }" j      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; ^! i" L+ W4 _) S4 o: N- M     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! _) s9 ^& \( o8 j2 ~
         "}"}], ",",
    ( c/ H! H8 @9 S) ~   RowBox[{"{",
    8 ~, @* a: H2 _: v    RowBox[{
    " M" ~9 J, Z& @! M. h0 i    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 c4 A; t# g! d' Z% v) K1 t      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    7 O3 ]! F* c/ j     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! t  U: V5 o$ F# d0 I* t; w! q) k8 H9 g
         "}"}], ",",
    0 g( L# [. d, w4 M! \. D9 i) x   RowBox[{"{",
    : h* U0 i, J' J: W  {* K    RowBox[{/ {( S. x5 }$ _6 m
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ) H4 a8 o3 w9 p8 N      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' [6 m; K7 n  s3 U; o4 u
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* G3 U9 E8 U- ?0 |. b
         "}"}], ",",
    ! {  a2 J5 t7 M2 T   RowBox[{"{",
    ; p( C6 L% l/ r$ `  X3 n9 v    RowBox[{& y( q' a3 y/ \9 d
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 U+ x- ]) {0 t/ f( P: `
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) ^, ~/ p  G( L" k
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ Z  D4 T0 h3 C6 X: R3 `
         "}"}], ",",
    - N5 Z+ q1 L. {7 H) ^* s   RowBox[{"{", , b9 }" j3 b; J# {, P
        RowBox[{
      u, H/ O0 y  A! C% h) t6 Z9 K    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    / J; ]; }6 q. L" i8 S/ Z. R      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    0 k0 k0 \- U" n     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    / m$ P; m6 \& `5 W     "}"}], ",", ' |. z5 p- e4 H0 q1 I
       RowBox[{"{", 6 H# K- w; B* g2 R8 _. z1 D
        RowBox[{
    2 X% }4 Q0 x( d& U; R    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      J, ^; y9 u% I4 N, @      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % j" c  |( A  w( f8 T0 H% {, v' Y( P
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 T, u/ N: z" C9 h
         "}"}], ",",
    % B8 I; ]/ ?. m4 @& t  b   RowBox[{"{", ' b) E( w6 C" _- S# z' Z) N
        RowBox[{$ {' x2 ]5 j* Z" ^% F
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 h" [) w  a! @0 n1 l7 f6 N! _
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # K: l1 u; D! U8 X
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 D% t1 z+ l5 c7 g2 h$ [
         "}"}], ",", 0 H/ l, N) O) A. R& H. {8 a8 g
       RowBox[{"{",
    ) m7 e7 B6 J1 \3 h    RowBox[{9 i- B! A3 E; W7 B* s% D1 g# J$ d
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- Y# ~/ c% r8 s( \5 w* T1 i
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    . U, P* p4 [& d4 x. ^. c     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," D- n# b! f9 B$ L
         "}"}], ",", 7 b+ M4 Z4 }$ M& L" J. a" @
       RowBox[{"{", ! Y/ m5 y3 G7 v' k  j  H4 f
        RowBox[{) L3 F+ ~6 f% F
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 i( a1 t. [% d      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ( ^, c$ B+ n# g% q4 X+ t     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    # F' r, _& ]( d     "}"}], ",",
      O; z+ O, N, d4 l1 U( y: H   RowBox[{"{", ; ?; d( P) W3 |* q# @3 ?( ^
        RowBox[{
    / ]. r. M6 r8 @1 S* f) t    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' a" a  \# I; A2 }
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    % h7 d: I9 y7 o+ g' R9 J$ z     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    2 F- M: i; P1 o$ d# U& K' a) m0 O     "}"}], ",",
    3 W$ J% ^: n4 L/ x) a. l+ H1 Z" k  `   RowBox[{"{", ( w1 W% L/ f) [* E4 H
        RowBox[{( D5 O% _8 a. V, A5 i
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    - b2 p, J" V5 @      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! W  g' I! V: Y9 u) ?7 W+ b8 B6 ^6 g
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ {+ s4 d/ j' x8 }6 n% Z9 e
         "}"}], ",",
    $ ?6 s* G4 r5 d. A7 ~6 E8 ~$ n( U, w   RowBox[{"{",
    6 d+ i2 C& [; F( @; e    RowBox[{
    8 S( }% l" A2 d2 N0 |* c8 {    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    4 P9 O! S! o/ e3 w$ r0 H) R& K! [      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : u% Y0 n5 C/ T- E* @5 n! c
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    % G3 b/ s# |9 g! k% m6 g     "}"}], ",",
    2 c. U; }2 r0 L3 B   RowBox[{"{", 7 m1 B0 \# n$ S( r( A. B
        RowBox[{2 K8 a4 a5 d. d- `8 j) x5 `
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    # \3 h1 p: L8 [, A) D      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    - N3 M+ B4 F- q* a5 O5 z     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* ]/ z* O( f0 W, z- R" L+ A$ y
         "}"}]}], "}"}]], "Output",: J4 F% @* \3 |- K5 h
    CellChangeTimes->{9 J: M; y/ k+ P3 d% @% g+ W4 {
      3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
    & q5 q* X8 n$ t1 Y0 Y   3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9, + i7 y. ]& W7 ~- {7 k) i; s+ g% e
       3.5779619748823338`*^9}, 3.578012345453125*^9}], t$ J. z4 s. y6 v/ ?) r
    }, Open  ]],0 R! `+ v5 h7 D' p
    # F# p9 Y2 R8 |- k
    Cell[BoxData[; ]* }* W1 P9 g# s8 W8 b
    RowBox[{"For", "[", ) a0 ?" t+ U! N/ k" R* p
      RowBox[{4 i3 R% o/ s8 f
       RowBox[{"i", "=", "1"}], ",", . h0 C- K, t( _, o
       RowBox[{"i", "\[LessEqual]", "60"}], ",", 1 ?+ I; D! C* V' b  c
       RowBox[{"i", "++"}], ",",
    0 H7 k8 K) }" d* i9 t   RowBox[{"{", "\[IndentingNewLine]",
    * Q: ^* g. E/ W8 ]3 c4 C. p    RowBox[{. ?, r$ F& Y" f7 y) H" y6 ?' f
         RowBox[{% j: I2 U& C, S/ W9 Q" j/ @
          RowBox[{"m60n21", "[", / o0 q2 g# p% p" I
           RowBox[{"[",
    ) w( }2 a' ^: s2 i) D+ b        RowBox[{"i", ",", "1"}], "]"}], "]"}], "=",
      k/ G* Z9 A2 p+ u( o      RowBox[{"u1", "/.",
    . R) X+ e8 o) Q7 ~       RowBox[{"{",
    1 m& L. I3 \5 \) z  l- @! B        RowBox[{  c3 i9 n! N5 F0 F4 L6 o/ I2 c
             RowBox[{"x1", "->", & W0 M" R+ _( t, L0 u2 E# \
              RowBox[{"Data", "[", - @5 s: ?( x0 Z* o" N: E
               RowBox[{"[", / b3 ^# m9 u8 {0 ?4 g! l! a4 U
                RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", / a9 h$ g- S: s! a, w! N" }: g% F
             RowBox[{"x2", "->",
    / t( ~4 i# F- i5 L0 J& A          RowBox[{"Data", "[",
    & Y4 e1 z0 n8 M! ~1 F1 F! I           RowBox[{"[",   `2 l1 W! F8 B& S. c$ \8 m
                RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    2 O1 L$ [( q0 \         RowBox[{"x3", "->",
    7 ~8 l2 Q! N$ Y# {- ~          RowBox[{"Data", "[", ( ]  ~7 U% o2 \0 ^. p0 c
               RowBox[{"[", , o- E* P  f( ^6 O2 ^8 i
                RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
    + q+ z+ y9 `& N; R         RowBox[{"x4", "->",
    / W. M, b  V* R1 s: K9 k) u' y) v! r          RowBox[{"Data", "[", ' ~" T1 Y8 B% a% A$ W& _/ [( J
               RowBox[{"[", 3 _. ]; a& c" `9 Q' l& S. X
                RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 7 C* O) \5 {( m: _6 l; n* P
             RowBox[{"x5", "->", , s- x3 @; [( r( a0 w' M; m
              RowBox[{"Data", "[",
    * f4 O3 o1 B# @- Y2 o/ s           RowBox[{"[", 5 a! V, H$ J  r* X& r4 n% Q
                RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", - k8 g, x* Q1 s: w5 y7 T( u* W1 d6 I6 e' m
             RowBox[{"x6", "->", 5 I( y* R* v3 s& g) M+ y
              RowBox[{"Data", "[",
    4 z/ s% h: H; D/ H! D# x) C% i           RowBox[{"[", - m0 ]2 L( o" e1 Z& W, i
                RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 4 _( [+ p( j7 e' e  [. Y
             RowBox[{"x7", "->", 4 z2 P: f$ O* u6 B
              RowBox[{"Data", "[", ' O* J- E+ \# T1 S9 J7 d
               RowBox[{"[",
      @4 ~, _1 H  g! ], w9 v# B$ A            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ; D8 U" i2 j$ Y% D& s5 j
             RowBox[{"x8", "->", % ]# D& }: |- t" s
              RowBox[{"Data", "[",
    4 ?: A: K' E4 a           RowBox[{"[", & }. w; u6 y( k& T4 h2 b
                RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
    " |: Z! f* `4 G' Z0 A         RowBox[{"x9", "->",
    & s( t# _% D) n4 i          RowBox[{"Data", "[",
    9 ]* S& ~# i5 |% [  u2 d6 f' [5 f           RowBox[{"[", * T) U2 W. w. Q! d% c
                RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
    # x. v& o0 }) z4 M( ]     "\[IndentingNewLine]",
    2 m# Y/ |5 W. x  O3 m* ?     RowBox[{
    ; E8 l, E3 w. q$ i- P/ x3 ], G5 \( f      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
    ; n5 H( \5 Z  u6 O) Y3 o神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗
    + R( ?4 |2 q& f
    (* Content-type: application/mathematica *); ~7 x6 _# Z- {  g3 Q

    ! H; m# J3 _( A2 f1 i(*** Wolfram Notebook File ***); G+ J7 G9 T( u# `9 t5 w" v; {# k
    (* http://www.wolfram.com/nb *)
    4 |3 y% E5 D( E+ s# b9 d! ]8 m. l
    (* CreatedBy='Mathematica 7.0' *)
    / p: m" A6 R0 @8 R5 X; q6 `5 O: y. y; J3 Y$ b% {6 I! ]* x
    (*CacheID: 234*). X% I# p) |* s# f. v: k: }3 P2 ~
    (* Internal cache information:( L# W- n4 F) f( @, P3 j
    NotebookFileLineBreakTest/ `- Z% q' {2 u' S3 `- q
    NotebookFileLineBreakTest
    ; |" |' |* I8 D# v  w- S/ |, E3 wNotebookDataPosition[       145,          7]
    $ i1 H' l" K4 p2 s, Q8 _NotebookDataLength[    423629,      11534]
    + ]. I" n& Y, [6 |& g9 HNotebookOptionsPosition[    412607,      11173]
    8 B& w2 f( U3 V9 u$ A2 iNotebookOutlinePosition[    412953,      11188]2 P+ h, ]! m, Q
    CellTagsIndexPosition[    412910,      11185], X, d9 E: v+ n5 M3 n
    WindowFrame->Normal*)- u: B8 y$ ?6 F4 g; `

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

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

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

    & l; w* \7 j$ C- k' kCell[BoxData[
    - W! N/ S- \$ T% u" q; m/ R0 H RowBox[{"For", "[", 6 N: Q4 Y+ R) c- M6 R
      RowBox[{
    * w7 |( k2 `9 ~; K" {9 h   RowBox[{"i", "=", "1"}], ",", 1 O) ]8 f% ]4 P, j* B" q5 ^. Y+ ]
       RowBox[{"i", "\[LessEqual]", "9"}], ",", , k  y$ L/ m. E- ~( u/ _' W
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", * R/ _  K: c$ L3 M
       RowBox[{  ^: P! {; z. M" I6 s' F) G
        RowBox[{
    & B/ ~" H! j# e2 G     RowBox[{"CM", "[",
    * b0 f* u+ O9 Y9 R2 W/ ^" |7 f      RowBox[{"1", ",", "i"}], "]"}], "=",
    ' R, T8 G: N4 k9 Q% e) }     RowBox[{"Data", "[",
    ( ]# L% o# `8 f- O      RowBox[{"[", 9 E! q1 C1 l9 Y3 w/ c
           RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}],
    : t$ ]- E1 u: }& _7 W) c  s  "\[IndentingNewLine]", "]"}]], "Input",7 P- A8 W" ~( l5 q8 j
    CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {
    . S6 t& I8 N% m) F   3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9, 7 Z1 ^, o5 p% f0 q3 _
       3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9, , X! q0 a& b6 w+ R+ A, S, q3 N
       3.57791344209375*^9, 3.5779588070933466`*^9}],7 y$ j* k% s. J4 ?0 d
    8 o" H2 w' m. O, d* z
    Cell[CellGroupData[{- Y# K$ Q: U4 A5 O

    % E6 a2 I* m% Z) ~6 KCell[BoxData[{$ ?/ v+ g) L' Q7 A: L  J
    RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]", 4 _. `9 f  x3 V4 e0 B2 t/ `' a
    RowBox[{"M1", "=", "1"}]}], "Input",1 H; q# h8 N0 ?% e
    CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {" j8 F' G* Z+ u* u( B' R; [' X
       3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9,
    - [: E4 }$ K+ `7 E6 a0 n+ }   3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {
    4 s  {6 l9 c& F& n  Q   3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9,
    8 j! ~4 K) a! }& @; W7 R$ q  y6 f   3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {8 @& a9 n6 h. z& r
       3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {+ M2 q2 M$ ]$ i5 \& a
       3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9,
    ( `* l7 }- S; Q' ?% x' _: G! Q   3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {
    - E1 e# [* p- k4 i   3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {
    * [  F9 \, c& @+ Q" f1 i8 f: _   3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9, - g. `# R* i, S4 l9 J: I% d' g
       3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],9 V9 n9 P, F& S( ~& W) [

    : T! U1 b2 ?2 R+ Z3 I2 HCell[BoxData["0.2`"], "Output",4 Z8 l9 p! t1 {7 l- B
    CellChangeTimes->{9 U$ c, G; l  ~5 {6 ~8 M) b
      3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
    ) b, j' K6 U# Q( S3 f/ Z   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
    ( s' L. |# I( b/ j2 |   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, 5 u% h5 d- v( W4 x+ ?
       3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
    8 G& a4 m% o& ^% r1 H& Q   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, 4 |9 j/ ~% I$ S. h0 M% F0 H/ c/ l. I
       3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {2 }* _; j9 y* m8 _) N; F1 c
       3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, ; ], f9 [% a8 Y! ?
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {" B7 c. o5 g" I
       3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
    5 q' e6 ~3 Q( A( Y9 e   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, # E( B& ]- _, E! u
       3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
    / W  v! ]  A$ z' A+ h4 U) y   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
    ) l! |3 ~- p' b8 M* n   3.577960510686717*^9, 3.578012149296875*^9}],# [0 ?1 s$ a$ @5 j5 t
    & e3 }5 F+ f4 Q: }3 a
    Cell[BoxData["1"], "Output",
      u5 J2 Z( z, z: V$ ~ CellChangeTimes->{
    & h8 {9 ~1 E% W! p  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, 7 k8 [+ H. y! P+ j8 q
       3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {4 H/ t) y) l1 B/ K3 i* {, U
       3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
    , O) h. |7 }7 \+ L9 h; y   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {' f2 }/ I; a6 }1 x1 a# x
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
      h. Q! ?- W% |4 j% G   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    - a3 s0 K$ j) c: q  H# l   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, 7 A9 y' }6 D, Z# G% s& k
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
    - m* z. [9 r' |/ Y3 ]! e   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, $ ~. M# G+ v8 ^" s4 x( V6 U
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    2 R! _* _+ a2 k+ h) _' _   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
    4 @* o) b- H4 T9 l   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, + S" C" k6 @0 |$ h( f7 I7 Q, C
       3.577960510686717*^9, 3.578012149296875*^9}]
    ' |' X+ Q0 ~( u! T: \. u}, Open  ]],
    ) H$ |' v3 _- i' Q1 ]- }6 g" H* @8 h& D8 y$ W: V+ k
    Cell[BoxData[
    ; |! J9 B: b+ t2 c RowBox[{"For", "[",
    " n8 |3 E  g& A$ n  RowBox[{
    " F% {3 c: }# E& v, u   RowBox[{"k", "=", "2"}], ",", 7 q' g! [7 v1 |: J& l- R. h
       RowBox[{"k", "\[LessEqual]", "60"}], ",", ( I2 a& ?& n7 H7 W: |+ `5 {! R
       RowBox[{"k", "++"}], ",", , H9 N0 W: @8 B8 J
       RowBox[{"{", "\[IndentingNewLine]", 1 V( \$ |/ h0 b" P
        RowBox[{8 n3 J( ]) f6 t0 l( J% V
         RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]", ) w5 \2 h+ c/ `8 b# w& r
         RowBox[{"For", "[",
    , k& E# {# ?) Z8 T- o      RowBox[{! C( U/ d" y3 [! n& X, w
           RowBox[{"j", "=", "1"}], ",",
    ! G: q( A; I( M2 J0 D       RowBox[{"j", "\[LessEqual]",
      t3 J4 i/ R4 Z+ A0 M. F& J* e; O        RowBox[{"k", "-", "1"}]}], ",", $ y& D# k" W8 }( h# L9 g( ~" N% r
           RowBox[{"j", "++"}], ",", 7 N! e: }- e  B
           RowBox[{"{", "\[IndentingNewLine]", 7 o7 J4 N' Q. t8 p9 M
            RowBox[{& k3 b6 i( s9 M4 a
             RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]", # F6 k2 _/ b$ e/ R$ ?' Z( k8 R
             RowBox[{"For", "[",
    3 N2 o. Q* ~5 Q  |) h" A          RowBox[{6 k6 M' E; [4 M( S8 w& C
               RowBox[{"i", "=", "1"}], ",", + w0 ~6 |0 J3 V' @2 F
               RowBox[{"i", "\[LessEqual]", "9"}], ",", % t% E) t* c: D. Y& h9 B( {
               RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", ! @- r0 p# P5 L7 m+ x- p
               RowBox[{
      C3 _( c6 ~+ g) A! `* E( R            RowBox[{"r1", "+=", - Z) L6 B; Q5 R5 B
                 RowBox[{
    2 I( `, K9 \/ b  D3 f5 [* ~2 n0 q              RowBox[{"(",
      C6 |* z" L8 J' c8 e               RowBox[{
    " n! m6 _. S  R, q! m                RowBox[{"CM", "[", 3 E) e1 u3 W4 s3 [; N/ `; V* U1 X
                     RowBox[{"j", ",", "i"}], "]"}], "-", ; N! V* W/ Q8 t* k; D. l  _
                    RowBox[{"Data", "[",
    % [+ [% A* l- }$ p6 A                 RowBox[{"[",
    $ y( a; [7 n+ g! R' Q; A: |7 M                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*", , E1 w) s9 `9 r6 }
                  RowBox[{"(", , v9 q& \  i$ J: u) ?, j
                   RowBox[{) u: w, U6 x5 d
                    RowBox[{"CM", "[",
      D5 s" j! r5 {4 Q                 RowBox[{"j", ",", "i"}], "]"}], "-", 1 c9 |4 w# z) e- \
                    RowBox[{"Data", "[",
    7 K& [0 S' @& e* n3 |                 RowBox[{"[", 9 |: X* r; b7 _# ~0 r
                      RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],
    . Q5 ?& {  Z. u! e; k: `- a6 S# Q% _           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", . ^# A/ W0 _/ ^7 o" ~' E
             RowBox[{"r1", "=",
    . j% q, z4 [( e. E          RowBox[{"Sqrt", "[",
    " q9 S+ z, z( r1 x( s2 T           RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]", . K; m. g0 V( F9 N; p
             RowBox[{"If", "[", " ",
    - p  c* L' g! K- w# j          RowBox[{
    . f, Y  S4 r& M" V, [           RowBox[{"j", "\[Equal]", "1"}], ",", 3 |- ~9 E, p) f- [! b
               RowBox[{"rmin", "=", "r1"}], ",", : Q, r4 {; i0 e% U9 d! P8 {* h
               RowBox[{"If", "[",
    % G; [/ n$ t! k8 ], V5 a" i4 R            RowBox[{
    : v, r9 Q+ o2 m% R& `             RowBox[{"r1", "<", "rmin"}], ",",
    , r3 F. \3 k3 j  q2 |5 P             RowBox[{"rmin", "=", "r1"}], ",", + ]8 S* Y2 t; [9 ~+ x0 i4 G
                 RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}], ) O: N7 S; m4 M
            "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";", 2 T1 r' h) s' e+ U, G. g& B
         "\[IndentingNewLine]", ) q6 o3 s5 a0 A/ o
         RowBox[{"If", "[",
    , h! ^0 X& @) H# A0 r  i9 [      RowBox[{5 n0 m" ^3 ^2 u. ?9 v" q, _
           RowBox[{"rmin", ">", "r0"}], ",",
    , }$ n! q3 S  z& y' R4 H: J% G       RowBox[{"{", "\[IndentingNewLine]",
    # j" P# s; W! ]) _" P6 ~        RowBox[{
    0 A5 _* u" J# K# e/ _         RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]", 0 I0 u, V% d6 F+ K" f3 _( z
             RowBox[{"For", "[",   A# a, |+ u6 F: r1 U
              RowBox[{- N" c$ ]- }# O4 W8 j
               RowBox[{"i1", "=", "1"}], ",",
    + T" I( X0 n/ v9 A; A! W           RowBox[{"i1", "\[LessEqual]", "9"}], ",",
    9 @/ R  `, ]3 J- o' b           RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]",
    2 L0 \/ h. ^  h$ K2 b           RowBox[{
    $ L. _2 ]" S8 i( P! G+ t+ B            RowBox[{
    : S0 c8 N: S$ I: N- X9 Y             RowBox[{"CM", "[",
    & H1 ?; [1 {$ A# L              RowBox[{"M1", ",", "i1"}], "]"}], "=",
    : R3 E2 m" S6 L1 y- J+ J             RowBox[{"Data", "[",
    " V* |# k( L) l+ c$ x8 B, k$ `: T              RowBox[{"[",
    ) }+ ~) T5 \  \9 L; v2 h               RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}], 0 A8 M! e0 d- d3 Q: A- N
              "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",",
    $ D. c4 f& ?, ^       RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}],
    7 K% R( B/ D8 b4 X" Q    "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
    8 f# _. Q  J: q& T, l CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {" V: a: r/ g& S! [0 p; n' v/ Y
       3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9,
    . ]% m# t: t4 O/ l   3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {- s' D/ W) R3 S/ z( e7 B
       3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9,
    ' N, t7 ~  ]' G. i1 f6 i! n/ s   3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {
    6 H8 C) h  |( T( F; P   3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9,
    " Y+ E) I9 g' z+ m* T1 E   3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {
    ! U" Q3 j5 A1 `. ^( F7 m( ]   3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9,
    5 L( z  }& Z7 D7 G1 v7 l   3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {7 K/ U6 q5 Z+ G7 \/ c: ^! ^) @
       3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
    4 U5 {$ W9 V4 X, l2 W7 A2 Z   3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {7 @& t2 _& A( h' j
       3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9, 1 y# K! N0 A0 n  E+ a8 s
       3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {
    - }: {* Z/ V8 Y3 Y& t& B/ ]   3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9, 0 L- a' }8 f0 k' q; j$ p% s
       3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {. y6 c9 A3 A! y) x
       3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9, 7 o; ?9 t9 A2 c  J
       3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9, 3 y7 }9 N+ S# V7 |' Z6 G) K
       3.577958821991373*^9}}],/ k# Q0 v4 {# H* X* N1 o
    ; ^* `$ s! Q, N# w' f" y' a
    Cell[CellGroupData[{* C6 [( c( K3 |/ T8 j' U9 t
    4 Q& V. A2 v" Q( E# Y1 E3 l  V( Y5 `
    Cell[BoxData["M1"], "Input",
    : C! x% X% _% [! k+ U* N0 w3 C! A CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],7 _8 l) q$ |9 I3 T% c
    ) |, j1 g  n6 A* h
    Cell[BoxData["21"], "Output",
    6 g8 K# Z. Z. N  S& H' y7 T; w CellChangeTimes->{
    ! J8 Q& S4 ~8 ]* y! g" M- \  3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {; G) A) M! E: A- \
       3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9, 2 u4 d7 |0 I: H4 c+ Z
       3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {
    - n. I* f6 y  Z  t   3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
    ! ~+ b8 m2 \- W7 v6 P5 O- B   3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {" I, y4 d- j: [
       3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9,
    + _4 C& v. Q  z: H   3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {# E) D6 ^7 D* [3 @9 l9 X
       3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9, , c/ ]# I* F1 u8 C! t
       3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9, , J- i) t. _- m% B9 k; v
       3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9, 8 v. B, R  m2 O; A
       3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9,
    1 u: F: h, d6 ?* G  B   3.577960515600726*^9, 3.5780121541875*^9}]4 U: w  l* @/ H) N5 u  @7 e
    }, Open  ]],
    8 i5 j# ?. U4 u2 j0 d9 q: S. `3 p" N& O8 S! u$ z2 i, h9 i
    Cell[BoxData[8 u! v# D; {! q+ g# [
    RowBox[{
    ; P" V$ ]" {" Z. a( }  RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[", 1 P$ P, S! H# i
       RowBox[{"1", ",", "i"}], "]"}], 2 `& g% X3 \5 W! U; i
      RowBox[{"\:5230CM", "[",
    % }2 l( x) I; q% k$ j7 n! B   RowBox[{"21", ",", "i"}], "]"}],
    2 v8 ?1 G: x8 S; W3 {+ `) Y  "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\2 m' F; r" P: V3 ~: I
    \:51fd\:6570u1\:5230u21"}]], "Input",* _! E0 ?6 ^. M
    CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {
    * t- H0 @+ H7 k4 j8 u. \. _5 Z  3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9, 7 S/ }- _' U2 M1 n& J
      3.577960526583145*^9}}],4 l9 h) R+ ?* c" B( {7 ^( @. U

    , W2 U2 X/ M! `' H( X  {9 Z% g# U! ICell[BoxData[; p% }! F5 g' C/ I( d# F& g
    RowBox[{"Clear", "[", "Delta", "]"}]], "Input",3 B8 U, y  n. \) a, J4 q+ @* q( ^
    CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],
    ) }( }: [( _) z- Y, V  t- O  x9 V% p& _! L
    Cell[CellGroupData[{
    * o2 \0 |9 u* `* \
    5 g2 t! r5 V  O- o% wCell[BoxData[6 v" T/ k( ~+ f) d3 l1 o6 J. O3 N8 f
    RowBox[{"Xa", "=",
    8 C$ {$ n  ^% B9 j+ H  RowBox[{"{",
    & x% j& v9 z8 |! H   RowBox[{( N9 l% U0 k" W' P* \" s. `# E
       "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7",
      _) T) w$ K7 v; a    ",", "x8", ",", "x9"}], "}"}]}]], "Input",7 [5 Z: i* m: I' J  i
    CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
    & _$ C4 F8 p! E7 C
    ( c0 h- E. q. e- uCell[BoxData[
    % d/ F" K3 G( R2 I RowBox[{"{",
    + A: q$ Q: `! S' A1 u! F  RowBox[{/ j. y( H' x* O% o- a/ A
      "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
      \; a* t4 Z  f; g4 A    "x8", ",", "x9"}], "}"}]], "Output",  k2 O1 d: c+ T8 B1 o4 W. W$ i1 j
    CellChangeTimes->{( k; [8 b" i1 w' E; X+ b. w
      3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9, 3 e8 ~6 k& M7 @5 @0 U1 ]+ S# `
       3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
    ; [& y1 p5 q7 F   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
    8 u* E5 B7 Z! c2 E! H   3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9,
    7 y5 x& w  L) Y2 F4 B7 b! A8 n   3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {
    5 b4 v6 u& Z& F% e& }   3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9, : \2 q* q  I$ D1 z( D' Q. L& D1 o
       3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9}, 0 t4 l6 o# S/ H8 H( F. |9 I7 }* e0 W
       3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
    ) x2 E* a, v) U6 x   3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {+ G0 Q' X! M: n4 k5 d# P& D
       3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
    % o3 N9 P# S0 [/ B0 s0 \3 ^. H   3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
    " p# \! g. p- q2 H- H% d   3.57801215725*^9}]4 s( G; n$ O3 }( f4 ^
    }, Open  ]],( b" [' @7 V' G" q9 m7 a
    / q# w! F0 |1 ^6 O
    Cell[CellGroupData[{6 _9 l$ h7 U4 X, E. y$ v& J
    & B# A2 ^. {, F- s
    Cell[BoxData[
    / z* _# ~2 o( D1 m5 s& N0 u RowBox[{"Ca", "=",
    ' f5 h4 r- Y- C3 s  RowBox[{"{",   a+ _+ F% Q: S7 S8 j
       RowBox[{
    ( n; N' I: b, a+ p   "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ) u" u' ]: t! j9 m) I1 ~: U% @# {
        ",", "c8", ",", "c9"}], "}"}]}]], "Input",
    $ _( ~7 I7 M. U4 `+ t CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],! C7 |/ R" C& v" d( [9 L  U
    7 {- A8 R+ K: g* T1 }8 i
    Cell[BoxData[
    ; R' T$ J5 P' V+ t RowBox[{"{", : w5 w- ~3 E0 T2 Y! Y: n
      RowBox[{
    $ u" [2 s9 e8 a+ s9 c, a$ T" K: }  "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
    9 \9 u1 k6 Z9 h% v, n) Z. c    "c8", ",", "c9"}], "}"}]], "Output",
    4 |8 g: w* e/ m$ h7 Z; a6 J CellChangeTimes->{
    - w9 }  A+ v4 e( n  3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
    6 c0 P5 z* A9 `. X  a   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9, & l1 p4 }/ S0 `9 @% h4 E7 x
       3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9, * |3 R+ V+ f' z. o- F/ z0 Q3 N
       3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {  x2 x7 y: @! S% ^( r$ T3 _1 z
       3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9, - S2 q- k2 D& f5 Y) ]) H( C4 ^
       3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9}, ; ^- P) I4 g; J/ c
       3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9, / }; G& l; v% F( P  c
       3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9, 5 e5 z6 q2 Q! y* P" J+ d/ f
       3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9}, ; T! o' g; I, Y6 f! ^
       3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
    9 w0 d# D1 r3 o9 C1 x   3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
    . e* _8 j8 F+ i. n8 ]9 J8 E   3.577961904604212*^9}, 3.578012158671875*^9}]
    8 D5 u: l" e" s" S- t* X}, Open  ]],3 o$ C! B* r; P% h) }- f

    - B% J% ~, S5 \: c, j6 w1 NCell[BoxData[
    3 m: E' d! Z' ^1 B( [( |: b6 y RowBox[{"For", "[", - O! q! D* N& L9 a1 \8 a
      RowBox[{, l, o# I; Q, u/ t
       RowBox[{"i", "=", "1"}], ",",
      M8 C2 c7 {' f/ s; m   RowBox[{"i", "\[LessEqual]", "9"}], ",",
    ; p- t1 V; c' a2 X2 q   RowBox[{"i", "++"}], ",", , \6 Y# e1 |/ m4 w3 c0 _3 g+ `9 K
       RowBox[{" T. T, q- @" u' a) q
        RowBox[{"Ca", "[",
    7 J% S# q' F: V/ N     RowBox[{"[", "i", "]"}], "]"}], "=",
    ; F1 g* p& x$ j    RowBox[{"CM", "[", % B: `* f5 [0 v) h, m) w4 o' {
         RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    7 X/ @7 G/ M+ a) f! E4 R CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
    3 h0 v9 g0 e* P& C; c% A  |$ b   3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
    2 \3 v- z" G- Z# x; h. u9 S5 N   3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9, * n1 W3 D8 C8 |( ]( ~, X3 @2 n6 Y
       3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9, + L6 \. f3 x. W" g3 k* k
       3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9, & b4 K6 A. E+ X' t+ U! l
       3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9,
    ( d1 Q# J7 ~0 E) a( ?+ W   3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9, - q# Y" p% Q- G3 w3 w
       3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
    2 s7 S. ]9 n0 T# ?  h   3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9, 0 K6 ?5 P4 F# q3 w
       3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9}, 5 Z) t  C; u9 `" Y
       3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {/ p% [/ S: O- p' Q! z% `
       3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9, 6 ^: r5 h/ ?$ h- F% ^* M
       3.577961906897415*^9}, 3.578012176296875*^9}],; Y6 j- \9 |; m2 m$ B

    0 [& P: ]' h0 VCell[CellGroupData[{. \1 m3 a$ J! \' k  d

    4 B0 x. D- p$ X/ `& \4 ]  nCell[BoxData[
    2 h8 i) Y5 z( E RowBox[{
    0 N$ b+ w: s8 U0 y  RowBox[{"(",
    % m, Z/ Q% ]( X   RowBox[{"Xa", "-", "Ca"}], ")"}], ".", & B0 F* u/ p9 `0 a: v: Q
      RowBox[{"(",
    0 q# ?% K0 @8 B, p   RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],
    " J5 f+ k, f+ ]; a" b! ?0 y
    8 q& C9 c; g6 k) z9 UCell[BoxData[
    ' Y# @* h2 r4 b3 T7 G  M RowBox[{  l- V$ y0 `5 N% U) ?
      SuperscriptBox[
    . [( I5 p9 ^& d2 h+ o   RowBox[{"(", , T/ m7 l5 \1 l: Q% M* ^
        RowBox[{$ l& c5 J: w2 B$ L; c0 r
         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+", - I3 d1 F: v( n& i. X" c- O* |
      SuperscriptBox[
    ! @8 |3 ^" c9 w. q7 j6 F- t1 P" d   RowBox[{"(",
    * ^& R9 E9 e& |( F/ a- S    RowBox[{
    ' e/ i) _% C6 b. Z! b     RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+", 2 @) P) g) q! c' g* [4 v' g
      SuperscriptBox[
    & R2 y: Z$ P1 z   RowBox[{"(",
    5 }9 C* N4 p* }' _    RowBox[{$ }% F" I) g, u5 r0 I  m. l" _2 F
         RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+", 2 f5 h2 @3 t3 J: S8 E
      SuperscriptBox[1 G; y6 l, |. x; e  F" F
       RowBox[{"(",
    5 h# T9 j! K2 x6 _) D    RowBox[{. |, `0 z# J' Q5 U3 e; S
         RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+", 9 U; Y) w  B/ `: O  U# x5 g
      SuperscriptBox[
    1 w3 i; _- ~8 v+ t   RowBox[{"(", / ^1 P% b" G+ ^9 t$ R" M- ]
        RowBox[{. R8 p7 l7 \3 Z
         RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+", . g: {, U- D# g' D! H( C2 F
      SuperscriptBox[
    $ n, u' D) [# H7 V   RowBox[{"(", # U/ L; [& p6 o0 ^' q- C
        RowBox[{1 `; s: G) ]3 U3 |( a
         RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+", - ]3 p+ N% ^! e7 o+ K
      SuperscriptBox[- r) t! o+ p- f" p7 p' g: p
       RowBox[{"(",
    : ~9 h; w- x( U) t- M. b$ v9 q8 f    RowBox[{- g$ Y) ~, [) `6 l
         RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+", + \' \* P$ a- W5 ~, G
      SuperscriptBox[
    9 [4 D9 I  \# Q5 y; a1 a   RowBox[{"(",
      n* Z! {, w: j2 }    RowBox[{
    0 N- U; h# x6 i8 ^     RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+", / E9 y' W$ _5 ^9 |  k; M2 }
      SuperscriptBox[8 Y6 ]# B  `+ E
       RowBox[{"(", / y5 J& X1 C6 \+ A! h( d
        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",
    5 P5 u- Z4 m+ j5 h7 m8 o9 t! ` CellChangeTimes->{
    % w  W& j" W: J8 `- G. o2 l4 U6 \$ N  3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, / ^9 ?- W$ n7 r" b8 l9 P8 }% }
       3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9, $ P# R: G+ ?0 P8 \) N/ x
       3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9, - I! t4 y6 v; z4 z
       3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9,
    $ W; {% m9 ^# g. R   3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9},
    ( u3 }( U& E$ m) W2 T   3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,
    ( a8 l( s2 v7 l   3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {! M3 _6 ^; S6 o# }8 Z
       3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9, ) L, M. \, h: ]6 X2 B. y; X
       3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {
    . n$ [4 c) v: M8 `) P  {( t3 K   3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {
    : T8 _/ z5 O$ b& y   3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9,
    3 h. P+ E3 q! N7 ?! J   3.5779618537169228`*^9}, {3.5779618846049767`*^9,
    $ O+ S' q1 D5 `) L  E   3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]4 _+ N) R0 Y& A; n
    }, Open  ]],
    ; A! s- K1 n$ k$ G
    4 x1 p$ x  y; I! T/ r; b/ FCell[CellGroupData[{
    3 w0 |* e5 \* }1 h
    0 x* r0 ~5 r8 o% {" L+ o9 {. {Cell[BoxData[8 e- w$ v5 L" u. q  h
    RowBox[{) d/ k, ^# _; ?2 A; c
      RowBox[{"Ca", "[",
    # K! _1 P( U2 T/ U5 S$ l! X+ J- }   RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input"," O, J$ D. J9 w
    CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9, * s" T$ C6 f- e& j; Z6 ?) M
      3.5779616465173616`*^9}],
    ' B% o7 _/ `% ?9 W. Y! B7 ]* x4 a, }' I5 R3 \# E
    Cell[BoxData["0"], "Output",  K& l) }5 {& Z9 z
    CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9, + H6 d% G4 |$ l) s
      3.5779616484049644`*^9}]" _7 t: |# l: S9 j
    }, Open  ]],
    & a- I& I$ X4 H8 M( F' I( z. ~# G- k# Q" n6 @+ C+ U* {
    Cell[CellGroupData[{, S1 }% u% v; J, {& T" a; E+ c

    ' |4 ~# |+ |! i7 x5 \1 \5 BCell[BoxData[) h' u8 F& m5 K; S
    RowBox[{
    & E) s2 _6 L* e6 D" D, ^3 W  RowBox[{"Ca", "[", 9 P% o7 V1 j6 p3 |! t/ n7 ~& f
       RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",0 x; e5 p) F- p  l+ M' k# m
    CellChangeTimes->{3.577957376235614*^9}],5 Q& X$ J, {% g9 m+ T
    / |5 ?7 A# a7 P5 R5 q2 D' X4 ?3 x
    Cell[BoxData["0"], "Output",
    # ?- G) J7 v8 p) N CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]
    # H) M3 H% P0 j4 @' d, b}, Open  ]],: U8 R! h! N: @9 h
    2 P; F* P0 ?$ w- o
    Cell[CellGroupData[{" }+ W4 X5 E: A' q' ]
    ! m9 x% E3 x: B1 X
    Cell[BoxData[. U" e# R0 G) i( T/ D/ p
    RowBox[{3 P+ t- c7 B6 P! ]6 w, R6 ^, H' M# C
      RowBox[{"Ca", "[", 6 B* o" S* x/ l4 q- c1 [
       RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",- g3 K' [' a$ U
    CellChangeTimes->{3.5779573112927003`*^9}],, h6 O& {7 q$ ]4 Y
    4 l, W! k- a- k  ], f7 R
    Cell[BoxData["0"], "Output",
    , Y; P, o4 w& i9 R CellChangeTimes->{* N* Z3 Q7 u; z$ }, `( u
      3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,
    * a$ {$ P( K8 a4 Z- L# G2 a   3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
    2 `$ K9 l  b( N. q) o% F# N+ K   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9}, / b2 [8 g, e0 d" d+ b  F% @
       3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9, " ^9 u2 [5 o) B6 b7 x" {3 W
       3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9}, 9 r, k3 D' B. G  i* ~- t
       3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
    + o7 T* I$ v5 q$ E}, Open  ]],5 D/ l$ t& ^. j* C. X( Q  N5 _
    % Z* K2 v! k7 j4 n0 O& `8 n# i* U8 f. r
    Cell[CellGroupData[{
    + U) A& f# t2 ]# G1 }6 G8 }. Z  p2 e
    Cell[BoxData[
    $ E9 ~1 L" J: ?, @5 U1 { RowBox[{
      X: n6 @+ U) r5 M; p0 }) \4 H  RowBox[{"Ca", "[", 3 \& `; A- u1 Z7 ~
       RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
    ! c' w2 X2 e- L/ B* J CellChangeTimes->{3.577921461734375*^9}]," @: f1 r8 n8 P/ V! r% {

    : j0 d6 F' N6 P( {$ ]Cell[BoxData["0"], "Output",# K- c8 b1 x4 W! g5 A, d+ `9 G
    CellChangeTimes->{! M$ d7 q; L0 |; P" K( B% `! h
      3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9,
    7 B; W- B4 R, w% O   3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
    7 S/ F8 z# m+ \' n9 O   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9, ; d9 C7 \' u0 i- m' \
       3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9,
      N1 Q0 F  C9 i& `   3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]. A0 l- e: S4 Q  A
    }, Open  ]],- a4 I/ Z- L, A% a* X* d  }
    , B) B8 ~7 z% X: Y3 u7 V5 ^5 b
    Cell[CellGroupData[{7 e4 A7 p( G5 r$ X% ~% x

    9 f& Z% a* @1 @( ~Cell[BoxData[/ t! c& M- ]# }3 c3 k! ]
    RowBox[{8 U3 G& E! Q1 m" u1 p
      RowBox[{"Ca", "[", : ~- X/ r* A3 \/ L- }% H
       RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
    4 I# T# q% f3 D( W% B* x- j CellChangeTimes->{3.577957303118286*^9}],
    6 ~7 e4 I; `& F2 a5 S, D4 P6 r
    & g5 X" b3 ]& KCell[BoxData["0"], "Output",% T1 _* t7 j- N' e* o! g' a
    CellChangeTimes->{# Z' F+ [* m+ m! i+ B
      3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {
    6 y  y3 l& F2 b6 |' p- h# W0 I5 u   3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
    . K5 h7 t8 a( W5 F% \   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9, + h8 o4 ]# }5 l' _
       3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,
    : S+ O$ h+ Z* c% W6 d   3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9, ' M  b* w! L" K- G; S# N6 e( Z
       3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {6 d6 I* K2 h$ H; T
       3.577961889378585*^9, 3.577961912965826*^9}}]% ]% S3 [3 h5 u3 B9 F, z
    }, Open  ]],1 E4 j, c. r9 G( f/ k6 b! K
    4 R5 c0 u  z) r8 s
    Cell[CellGroupData[{
    6 N% B  _9 z6 m+ c1 ^0 X: X7 P
    ' x3 V8 T) B2 k& y; V" T! mCell[BoxData[
    . B* H4 L; ~1 O" b  t0 n RowBox[{
    . L9 g2 G' s8 X; d( k% R5 z  RowBox[{"Ca", "[", " |- n7 x, a% R7 D' h
       RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",
    $ M5 m6 T/ d6 W3 d& W: S CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {
    ; P7 G; l$ X4 E  l6 {7 s  3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9, & `3 |/ m, U9 n  s6 ~
      3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {$ d/ Y; n0 V9 u- s7 B/ p7 E
      3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9, - F- O. @* H$ g$ l& z% d
      3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {
    $ c0 d' }6 R5 j* m) n) }) M  3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9, & g9 O5 F' _0 I( g- \; f! i9 H4 q9 F( x
      3.577921435703125*^9}}],$ l! ]- c6 z' S. e0 ^
    ( F4 k/ ]3 V! N2 q# [. Y
    Cell[BoxData["0"], "Output",
    / S% K0 N* R" ^/ Y CellChangeTimes->{' r0 F2 }) p% `# t# V
      3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {
    * ]$ a: |/ `# V   3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9,
    2 s3 X8 V* s9 g! g/ p/ i   3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {
    9 U1 S8 i# k/ Z6 b* G   3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9,
    4 ~- c1 |8 k* B9 Z" e& G   3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {$ h" C( G- m* ]; O# s8 S3 w& S
       3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
    ) F( v  y; G. b3 q' u7 d% {   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
    1 X# d6 u" E9 {; A0 x. F- ^   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9, 1 t8 ]" r% c7 b; o
       3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {9 p0 v& @) J0 q
       3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
      T7 m. u+ W2 b+ ?. t) w   3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {4 H9 u; }- ]4 ~
       3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9, 1 W: r9 l0 P1 S
       3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]) U& n' M9 I3 Y% b5 W. M
    }, Open  ]],
    # r" l$ y5 K  C1 X" Y/ J
    * l3 L* u6 r: W! v5 wCell[CellGroupData[{
    0 g# {- y1 A1 k1 W! r* g' H  Y0 r% G+ j4 K) g2 ~8 C4 ^
    Cell[BoxData[
    2 W: I" Y% d7 n5 F RowBox[{"Delta1", "=", / K9 Z# L7 h3 M$ S
      RowBox[{# T$ @* [/ {( k7 h$ a: H+ M
       SubsuperscriptBox["\[Integral]",
    - Y3 w( a; _2 M, }( I    RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ( Q- _* g4 G# X; q7 l% r
       RowBox[{" \! M# k8 w) o* z
        SubsuperscriptBox["\[Integral]", # U# ?2 i  `8 w2 ?" y
         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    % ]! z; d9 v% M' i& {( A8 Y3 U    RowBox[{
    / Q4 ^* V# X$ j+ y. T1 y1 C) J" ^1 d     SubsuperscriptBox["\[Integral]",
    ) a, ?. S6 ^2 b0 X& q2 J) `      RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 6 R6 p& o9 M4 T
         RowBox[{- x2 Y0 O# s) G, l# ?4 t6 T
          SubsuperscriptBox["\[Integral]", / Z2 r' ^4 k: S0 Q. A$ G
           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    5 S1 R. C1 o5 V/ \7 ^, I- M' c; w      RowBox[{% V* h/ i8 P* U  s; D3 M" A
           SubsuperscriptBox["\[Integral]",
    / |, N" q$ L' R; A# ~+ J        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
      G& B" r3 [0 `  x9 O       RowBox[{- Z* ^2 G' F* ~
            SubsuperscriptBox["\[Integral]", 9 I( J' g. [. Y1 L) K
             RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    : U/ ~' T' z- T4 F" p        RowBox[{; _7 U# ]- B3 ~% t/ a
             SubsuperscriptBox["\[Integral]",
    6 Q8 N9 z4 C# K5 E          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
      K/ S# h( v0 ]7 h* t, _. Q         RowBox[{
    2 C& V1 Q( b0 B$ H: F4 J% y          SubsuperscriptBox["\[Integral]",
    8 P% ^5 e9 x, x: W4 T( B8 M$ Z1 S           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 4 U8 ], E) N, x5 n# L
              RowBox[{  p( V( Z3 Q7 f4 B0 N
               SubsuperscriptBox["\[Integral]", ( E) w2 n' r& P) j' Q# ]
                RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    & H0 g( Q9 _7 i1 y) g4 H           RowBox[{
    7 ~( c& j: U9 Y+ N) i1 I            RowBox[{"Exp", "[", ; G$ o* ?+ F2 v  y" B$ J
                 RowBox[{* f% G6 B# E' ?# a! t8 e' c2 ~
                  RowBox[{
    1 c3 O3 w5 |( d6 X5 o2 K               RowBox[{"-", * ?( q0 y" ~' ?3 C. O: l6 Q- g9 G
                    RowBox[{
    5 Z0 r) s7 }5 q% }: _% `                 RowBox[{"(",
    : F$ m7 D: i% Q* w/ i* `                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ; D: y* p" z- b+ _+ B4 a& P1 ?
                     RowBox[{"(", % V! c& D/ I( B. a: }
                      RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
    ' a" s) R2 q% Z( E1 Y& Q" [              "Delta"}], "]"}], & T3 w5 L% R' y" g7 k
                RowBox[{"\[DifferentialD]", "x1"}], & u0 |) V8 r' b: Z* {
                RowBox[{"\[DifferentialD]", "x2"}], % m1 a! ]' v% e8 v# o  A, y- a
                RowBox[{"\[DifferentialD]", "x3"}], ; d( G( @$ x- s8 d7 a' |# ]8 w
                RowBox[{"\[DifferentialD]", "x4"}],
    2 }- }6 w8 a: z' v6 S, Q% M            RowBox[{"\[DifferentialD]", "x5"}], 3 L( ^4 U$ }1 U* V! y& F- G
                RowBox[{"\[DifferentialD]", "x6"}], : k" {7 b7 _. r  E; e
                RowBox[{"\[DifferentialD]", "x7"}],
    " Q1 T: h: [9 z& q0 x            RowBox[{"\[DifferentialD]", "x8"}],
    0 J* W1 T) d' S% t! A) f( n% ^1 d            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
    5 s9 H. G5 |' N' l. V CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {
    6 z, u) B8 \( p; t   3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9,
    : X9 G# R6 A' m9 `   3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {2 w- _  R  U$ x2 _0 G
       3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
    % |9 N) b( P0 c( x3 @8 [' Y; b' d   3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {
    : \1 ]/ B7 N$ v7 d% `. ~- Q2 S   3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9,
    8 k1 I2 g' g& u3 }) ?) `   3.577918964453125*^9}}],1 o; {0 Q! K4 e) c) ^
    # w0 b! p% Q, J3 V& a8 Q* _
    Cell[BoxData[
    8 r* k: o1 X% c, w0 G RowBox[{"97.40909103400237`", " ", 3 h5 H, x' Q  z; z
      SuperscriptBox["Delta", "8"], " ", ' i) O! [. e2 ~3 j
      RowBox[{"If", "[",
    + L( w% n: {( }; H   RowBox[{: D' e3 X* [) O% H! c) M# I# A
        RowBox[{0 ~% m( s7 ]) o
         RowBox[{"Re", "[",
    / Y( M- L& J. q( `; V1 f. K      SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
    1 v3 a+ T' V7 K: W9 ]* Z% n    FractionBox[
    ! \& Q5 `8 q0 n/ |; J! P     RowBox[{"1.7724538509055159`", " ",
    # \7 H& X9 H9 L/ Q      SuperscriptBox["\[ExponentialE]",
    % }9 [1 X3 }3 t. n# M8 `8 b       FractionBox["1.1102230246251565`*^-16",
    4 h+ O. P; l  s% H7 T6 E        SuperscriptBox["Delta", "2"]]]}],
    # a& A/ O) t8 e$ v; b8 D     SqrtBox[/ M$ m7 M4 E# F2 D# e4 v
          FractionBox["1",
    ( A8 P$ r6 W* J5 x( e       SuperscriptBox["Delta", "2"]]]], ",",
    ! M+ W9 R; \. L8 J# \, S    RowBox[{"Integrate", "[",
    , e' r' P3 P3 S     RowBox[{& D0 B8 T2 f# d: f: `4 G2 i4 P
          SuperscriptBox["\[ExponentialE]", 7 D0 F7 S1 f5 [- c
           FractionBox[
    ) [6 M' D/ X: l6 l3 @        RowBox[{"1.1102230246251565`*^-16", "-",
    # U% ~0 A9 R9 q; D4 I         RowBox[{"1.`", " ", 9 T- V! Q" A% N8 h' v$ q! K
              SuperscriptBox["x9", "2"]}]}], 3 W; q& w+ {9 v) G- _& Z0 S) l. F
            SuperscriptBox["Delta", "2"]]], ",", ) I4 z3 S- @4 ]1 ?7 r9 u! c
          RowBox[{"{",
    : G4 G5 h; S: q, X9 S       RowBox[{"x9", ",", ( [. V3 k7 q. ~: ?
            RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
    . _+ ^3 j2 g6 F4 k      RowBox[{"Assumptions", "\[Rule]", * r' r2 A! \" ~, H6 O
           RowBox[{
    ! I4 l; u+ X: n; w1 S1 r3 }        RowBox[{"Re", "[",
    7 a- B3 \0 Y' g- _. n6 h& @         SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
    " P6 f+ |7 D. [- w2 Q& e& c! v     "]"}]}], "]"}]}]], "Output",' @/ r  S* x3 R
    CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9,
    ) @, q! I! \6 W- F% W) y9 C  3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
    % Z9 o! `7 _/ F6 O  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,
    & H4 D9 W8 L" p6 N3 Q5 M  3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9,
    3 \1 W8 ?; Q; v9 Q1 ~  3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9, . c; b# ?* i$ v: A5 Y
      3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
    * \) a5 o2 W' _1 \! H1 }& t8 |  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]0 Z/ D7 n; [$ q5 D
    }, Open  ]],, X9 s2 L! }5 u# y. b' e

    / c4 X7 N& [3 I2 s5 [Cell[CellGroupData[{$ `( r/ q) Z& x7 C- C& o

    2 F+ o& N' W' C1 C9 @. i/ M' TCell[BoxData[& f: m: F+ W# ]$ B. ?. E
    RowBox[{"Delta1", "=", ) v" Z2 t5 y/ w8 R7 y, Z5 ]
      StyleBox[2 t* G! g; H4 y$ n3 C
       RowBox[{"97.40909103400237`", " ", , r! w* |  }/ C4 N' k, t
        SuperscriptBox["Delta", "8"], "  ", / u5 [: h8 Q  i2 ?, e' U
        FractionBox[: ^! E# C& K& w* X3 d
         RowBox[{"1.7724538509055159`", " ",
    ( o8 d8 q1 G* Q6 |1 p( X; l      SuperscriptBox["\[ExponentialE]",
    & w9 e; C2 f1 Z7 W4 Q) r( ^       FractionBox["1.1102230246251565`*^-16",
    ! R; D: p- \! b& }/ l4 X  \        SuperscriptBox["Delta", "2"]]]}],
    ' w% ?4 z- V; Y  t( E     SqrtBox[
    / ~# x5 |$ e" ~" _  x, I      FractionBox["1",   Z9 W* g0 v: D0 }5 F! ^
           SuperscriptBox["Delta", "2"]]]]}],
    % w; v8 A! }6 z) W   FontWeight->"Plain"]}]], "Input",
    + Z- n3 }6 h+ Q# E CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {9 L+ _" N: f2 \! s" P
       3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,
    ! U+ n, g) [, c   3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {; \* }& [' u4 S2 M. y
       3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
    . k' [. {3 t5 U) m  p4 R+ ?* ^4 H   3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9}, 1 ^3 n- N2 i3 N: K3 r7 r3 }
       3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],
    7 x- m) `$ ^' s0 L" }/ ?" Q9 t6 o' t/ r+ Y+ q  R! U
    Cell[BoxData[
    , e' X* O, y3 h& a0 t FractionBox[
    - [9 F7 h5 K3 v0 q( D  RowBox[{"172.65311851642346`", " ", # [! \9 M8 @4 C3 e
       SuperscriptBox["Delta", "8"], " ",
    + U* ^0 u: o; T   SuperscriptBox["\[ExponentialE]",
    . u4 d* ^9 K  B1 T4 V8 ~" B    FractionBox["1.1102230246251565`*^-16",   a1 ]" {* C7 D, @: u$ \: x- E
         SuperscriptBox["Delta", "2"]]]}], : W. }; \1 m, A: H0 E" ^
      SqrtBox[
    0 b; W( D: P4 x  q9 J   FractionBox["1",
    : V. M! t/ O" r6 O8 S    SuperscriptBox["Delta", "2"]]]]], "Output",% k- v! C" A* N5 u
    CellChangeTimes->{9 \: B1 M9 }- K9 ?" Y  f
      3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9, / x! O2 z( G1 h; f
       3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
    4 R9 {  R! a/ Z, R& v* F   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9, % [, S( i6 y' u! v' }$ w
       3.578012166234375*^9}]
    % L6 m* v$ r/ A3 o, B& W* l; f}, Open  ]],
    - E& c( R: p% d7 D2 f) h3 a9 Y# |5 J  a# Z% v: K" q
    Cell[CellGroupData[{( X, `! G& Q- s

    9 j. w2 @1 L3 V; }Cell[BoxData[
    . m; S1 N. a2 L, H" U RowBox[{"DeltaX", "=",
    1 n! l- E+ O; i0 }: J/ |+ `  RowBox[{"FindRoot", "[",
    8 `8 `& \8 a3 _6 F- O" X   RowBox[{
    ! s- v# ^  V7 w! p. n    RowBox[{"Delta1", "\[Equal]", "1"}], ",",
    6 r: @6 f9 }: X* j/ x2 v    RowBox[{"{",
    5 k2 I' l& l( r& ~5 V& I+ ?( P) C, r3 L     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",( [& B# ?, ~" _7 ~
    CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {
    " e" W  r, h/ y0 [   3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9,
    6 e7 H% D2 m9 v! ?   3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9, + Q5 ^! F' d2 c7 e
       3.57791921584375*^9}}],8 J  V0 `! n; v6 i

    ; V6 u- o9 t  p( Y4 BCell[BoxData[
    ; ]6 p8 b) w$ R# B RowBox[{"{", ' H4 F. E. I  C) Y- h5 @2 J
      RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",* Z1 t' ?0 }, |# L4 X! B
    CellChangeTimes->{5 ~3 v( v* U/ E! E
      3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
    " y+ j1 R  q9 S3 u   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9, 1 @7 c7 Y: l) x% C& S+ B
       3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9, * k' [* Q) C7 A& ^$ ?, e/ n
       3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
    ( x% W* ~& e4 m- z; l   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
    5 U; Y# o' L( ~! S/ M& N   3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9,
    * E* d5 q4 v0 d   3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9, * Y" s1 n1 o3 P
       3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9, 0 d. [; c/ p" v3 b' U2 l0 {
       3.57796070150625*^9, 3.578012167703125*^9}]4 W1 F- F) I9 v1 h- C
    }, Open  ]],2 n5 D) I/ ^- Z1 N
    , p" f  s/ O6 y: e) U) i' D
    Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\
    1 K; Y3 f4 ?' K( J  \\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",4 s; J2 k2 \7 n6 l% N/ m, [4 k
    CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
    . F2 ]0 D, N8 Y# X; o2 y4 U/ v  3.577960705312657*^9, 3.577960707621461*^9}}],
    ; A; }4 R. t6 g, U1 F
    - o5 l2 J# \: p) z; N3 F" ~Cell[CellGroupData[{
    : _' r  B1 ?+ B+ r# U- B6 H
    ; t/ Z8 h- h2 M: i9 lCell[BoxData[
      g: X, h" G; {! J! A( x RowBox[{"C1", "=", "Ca"}]], "Input",$ u& F" V& `& i/ E
    CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],7 z. `9 ~/ P+ G1 Q" }/ E/ r

    0 x5 _: s5 P$ S9 j' qCell[BoxData[
    : O$ w; ?; S! P* i& B) R; a# W RowBox[{"{", 7 ]" I( ^+ T; H# X- A
      RowBox[{& W' C) T! m+ |  Y8 p
      "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
    ) @2 f- H/ G6 E2 q, {9 l: a5 B6 Q   "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
    ' j3 n$ p1 z: J9 Q   "0.`"}], "}"}]], "Output"," |3 h1 e9 G3 b4 |( W; f5 J$ ]& Y
    CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9,
    4 e+ p6 X$ e- E5 }4 V5 y  I- H+ e  3.577960710273465*^9, 3.5780121855*^9}]4 U! g' K+ `: o3 V
    }, Open  ]],1 r3 t1 N3 {* B+ g8 Z4 u5 f
    2 r9 \. Z! q% N/ d5 h; _% o' Q5 A$ D
    Cell[CellGroupData[{& |# I/ r9 W: p) Y, K" O

    1 B, }5 E1 h$ @8 t, O9 s  YCell[BoxData[6 Z1 B$ s: Y" b& [
    RowBox[{"u1", "=",
    ! O6 i( y/ K! f* y  RowBox[{
    ) i; g; z* m& y9 v5 e2 q   RowBox[{"Exp", "[", 6 V4 r' u/ [* R, X9 J3 _
        RowBox[{3 D- c- c7 n: P3 y' F( |" y$ H
         RowBox[{8 A# Z6 S8 ?$ I, z1 z# f* p* x
          RowBox[{"-", ! `* z0 m, a4 b" Z+ P
           RowBox[{
    & V7 ^, G% @5 N2 X" X        RowBox[{"(",
    . G$ [! c, w7 m9 V# a9 S1 s# [         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", * h, ~# T, l: Y! d$ B6 v3 K4 h
            RowBox[{"(",
    8 ^/ {1 l6 \5 X0 G9 J  m3 g. N: q         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    3 ]" p! @6 Q  V     "]"}], "/.", "DeltaX"}]}]], "Input",3 t9 k+ N5 h* C' ?
    CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {4 [% r9 H3 a. l. X
       3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {
      \9 W% |( C4 w* g9 {7 m   3.577919193484375*^9, 3.5779192326875*^9}}],& m$ ?2 `, \! @! @) o

    % ]+ }) ~  |7 Z, v9 Q; vCell[BoxData[
    $ ]9 v% P; z8 M/ r/ }+ D SuperscriptBox["\[ExponentialE]",
    # _9 A$ p& P5 B. I  RowBox[{"3.141592653589793`", " ", 3 x4 ]: @4 n) N0 W( M( I8 A' j# A
       RowBox[{"(", 7 n1 R3 s+ V3 |) ?
        RowBox[{& ~/ s! M$ S0 _& x: F0 T
         RowBox[{"-",
    5 l& w; @, K. ^1 V9 d! T8 ^      SuperscriptBox[
    # \- {/ x3 L: n# P       RowBox[{"(",
    0 V6 J4 L* l' m! V        RowBox[{
    # v7 }& x' U/ R2 i         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
    $ q/ s. Q5 J! L     SuperscriptBox[
      l8 |$ |$ P' Y$ G8 A      RowBox[{"(",
    9 j# l$ o' S7 p8 A* B- A2 O7 b       RowBox[{
    $ p  A: r2 q) @% i        RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",   P$ z/ @' f2 F* M" F, L
         SuperscriptBox[6 f" m9 s6 V! I. ]- o
          RowBox[{"(",   d$ A% q& p+ @) V; Y! W' }
           RowBox[{8 o3 Z- O" \2 h% c) I7 y0 a
            RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
    , _; Z4 O" C/ H6 p     SuperscriptBox[0 l, S% Q6 s' k% T" ]9 H
          RowBox[{"(", 4 N7 p5 {; \  L5 U
           RowBox[{# B. x% {- T( T3 Z5 n( ]0 g
            RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
    , t5 E' I0 _' l. P4 B     SuperscriptBox[- k9 t& D8 t( _' E( D2 ^
          RowBox[{"(",
    8 l) `. ?4 v: x! y+ r, ?       RowBox[{) s2 G6 K1 f1 G  o/ V) H* M
            RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
    + r% {7 [8 m. @0 N1 X  ^, V! \, K4 f     SuperscriptBox[: x5 M0 u" Q. {$ o
          RowBox[{"(",
    7 C% u; B7 Q  s( R6 o" b2 W  O( t& p4 Q       RowBox[{
    9 ]" J$ c: W8 t5 f        RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",   a8 [( w  R7 h# y4 ^
         SuperscriptBox[9 F1 B" G2 Z& s% H4 b
          RowBox[{"(", 7 f. J! U& C8 L9 P; C( y
           RowBox[{+ ^. A9 Y: i( f* j. _  N. _
            RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
    - o% B. W& v6 t  g$ j     SuperscriptBox[
    " P9 h" v# F7 G; ?4 g      RowBox[{"(",
    ( B! ]; b3 Y- x, {; {, z! k       RowBox[{+ ]( X8 `9 S* J( `3 O; X
            RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", . `4 b: j0 j  `/ x1 V, x6 j. L
         SuperscriptBox[+ X, Q) p( Q# |5 o  L
          RowBox[{"(",
    0 @3 T; x$ L& M, K/ K7 `       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ' @& ]! y4 c( F! ]9 C& R
        ")"}]}]]], "Output",
    ; x& }/ q- U8 I) w) a0 `  a CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
    ' i; M4 e5 t+ i6 m% U5 v  3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9, 1 g  @! H6 ?6 Q- Z+ M5 K
      3.578012187078125*^9}]
    " c3 O3 S5 n& U2 H4 w: X8 }}, Open  ]],
    $ {  `+ J. G+ Z+ D/ A
    : H8 L* ]' f/ q4 b* VCell[CellGroupData[{, g$ H9 n: `4 F: X+ l
    2 c7 ^% _- V- I( h0 t
    Cell[BoxData[/ v4 J4 i9 f& {* h9 O  O0 y4 K$ s9 T
    RowBox[{"C2", "=", "Ca"}]], "Input",9 q( i2 @# w- S5 V  p5 d9 D
    CellChangeTimes->{3.57792047321875*^9}],
    8 K4 e  V! B+ w
    7 }4 l6 c4 T/ l* T0 ~' hCell[BoxData[
    6 g* V7 z  j" Y RowBox[{"{",
    / p( T; r2 V9 e- N( q  RowBox[{2 V% T1 J2 P3 F9 S& `4 d# L
      "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
    8 i8 M) G* L/ s0 w+ d5 n) z. s  a   "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}], / r2 g/ V4 ?" c/ o# k3 d1 k
      "}"}]], "Output",5 n# x8 i0 u& b* H! \1 V+ @8 M
    CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
    4 {1 f9 G' O* Z* x2 e  3.5779607401163173`*^9, 3.578012204671875*^9}]
    3 h" C# s! G: k* z}, Open  ]],
    4 o' V8 f5 o- t8 _/ X( W$ R9 Q7 F' w9 B) _
    Cell[CellGroupData[{* ~  l8 z6 i) {% X

    . p0 [4 K$ y" i5 t/ HCell[BoxData[
    2 v4 ^7 F/ @* T5 K4 ~' C9 ` RowBox[{"u2", "=",
    0 h3 @. p! k0 L" k+ V  RowBox[{# v$ d, @+ x# N% I9 u0 y
       RowBox[{"Exp", "[", 2 \5 T* ^8 p4 Q1 `% K0 I
        RowBox[{3 b- F! V- }4 ]  _! m
         RowBox[{9 z8 R; E; i( B( [: K
          RowBox[{"-",
    6 G* f& J; Z1 d- O# J3 J       RowBox[{
    4 N4 o9 o, u  [; u        RowBox[{"(",
    5 W" ~9 ?9 u" l9 z8 D4 C         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", $ R6 m% {" G' q+ z) i* a* I  {% A
            RowBox[{"(",
    9 j* }- o$ ]& ]4 H         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    7 \( B+ E# m) G  G     "]"}], "/.", "DeltaX"}]}]], "Input",0 j3 o1 s+ Y: h
    CellChangeTimes->{3.577920484109375*^9}],
    # s4 S' Y- x% R4 e
    6 U9 [% U' ~% ]- |$ |Cell[BoxData[) `- o( e0 t' f( x. [' l! Y. }! i; m/ I
    SuperscriptBox["\[ExponentialE]",
    # e5 w1 u6 d& |" Z, a! O  RowBox[{"3.141592653589793`", " ", , y% }' I- ^6 ^& W- m
       RowBox[{"(",
    1 |; t2 `7 P" M5 b) X4 y0 I6 n    RowBox[{5 ?; T, p& F3 I9 N  c4 N
         RowBox[{"-",
    3 W; e6 I. R& k/ l# p5 G. l      SuperscriptBox[
    - V1 _* m( z+ v- Z# M       RowBox[{"(",   H% r; R4 P" J6 V! n: }7 q
            RowBox[{
    ' Y" K) j! a% W- s4 I4 _; ~. v# Z         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", & `2 \6 m6 _/ s6 B6 a* w  d
         SuperscriptBox[% O4 y( N' i4 |
          RowBox[{"(", 7 q3 j/ B, i2 H2 s* `0 V
           RowBox[{
    , j/ c7 \: k( K. X4 N. g        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-", ) C# q$ S4 d8 c9 t' L( @
         SuperscriptBox[6 X8 U* {: S3 }
          RowBox[{"(", 1 S! h- ~& O$ `' Q$ v1 m& O! d* o8 ~
           RowBox[{! h, ~6 j6 \, H9 W
            RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", # t' x6 M0 f+ ]( Q4 j! z! J
         SuperscriptBox[
    8 f  b; Y( }% s6 t* i8 r* ?      RowBox[{"(",
    / t$ i( }6 R) g: i0 Y2 g0 w$ g* n) O       RowBox[{& X0 m# I% T' {
            RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
    + H7 r. Z2 y: h' B7 {' q7 }) D     SuperscriptBox[
    3 n9 {$ V* {0 y' a      RowBox[{"(", ) P" d# U( V, i* k
           RowBox[{
    4 N7 y- I  J( u2 `! m        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    & |4 w1 U: o2 w( {0 m: g! B. g1 f     SuperscriptBox[' ]7 l, @! B" @1 Z2 ]- p
          RowBox[{"(",
    . p; q! ]. M5 P       RowBox[{
    9 n3 W7 n, M+ d( s( U5 I5 r        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
    ) I  d, y  X: }) k/ ^) b     SuperscriptBox[
    - B8 V, S' x! @5 @0 ]* H      RowBox[{"(", 9 F- q$ e* g. X) S& A
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ) S' L) h9 U# k, X3 t! g' @
         SuperscriptBox[
    ) d: S' B. M3 d' j2 D      RowBox[{"(", & @2 W7 o, m* G) |( {4 x. `1 y
           RowBox[{6 p/ M! ?5 T+ P- J; b
            RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
    2 ^3 m+ b0 _! W; a' B     SuperscriptBox[
    3 l4 D* r1 b& v1 ^2 b2 a7 U+ z* i      RowBox[{"(", : J; D4 }; c' D9 v
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ; }: Y. V5 I! p6 ?! P# B' L    ")"}]}]]], "Output",2 f- t% M- M* X. `
    CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,   ~( M8 ~& |4 `) v7 Y, N, h7 C
      3.5779607413955193`*^9, 3.578012205484375*^9}]! _+ q$ [, \" C3 r
    }, Open  ]],
    5 V- ]& ?# N" _- A" N# p6 @# g
    : r8 K6 ]/ p, @* O: ?Cell[CellGroupData[{
    4 y* Y2 A7 P3 E  d* e$ c& }
    ' N! B, I# G7 z, L& NCell[BoxData[
    * I& {( a( p4 H7 t- L; U9 @# K RowBox[{"C3", "=", "Ca"}]], "Input",
    6 b( @# D* `8 x  P+ o, w CellChangeTimes->{3.57792064125*^9}],
    3 ]2 j- Q/ r' K  @- Y7 f- L, Q2 {! l1 Y  w* l
    Cell[BoxData[$ w8 f0 U$ j0 g6 \4 \8 ^1 o
    RowBox[{"{",
    / f" O' `: `* a' Z/ i: s, e  RowBox[{9 y' q2 z9 h; B: W+ D  ]' G* T4 t
      "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
    ) R. W) H) g, T( H; e   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}], $ h+ p/ @2 v/ d; X7 S# P, F8 a6 n
      "}"}]], "Output",
    / C3 O2 t0 t2 @& K* K CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9, 9 {4 j- T6 H$ x
      3.5779607642027593`*^9, 3.5780122103125*^9}]* S% _  q/ }" ~" L9 u
    }, Open  ]],' l- M6 z2 V* Q4 b
    5 C4 k4 P2 a* Q6 x: [3 e
    Cell[CellGroupData[{3 V- V7 v% x& ?( r1 s

    ; K. k' n  ^* I- d- {Cell[BoxData[8 f/ Q+ c' ~1 y9 k
    RowBox[{"u3", "=",
    % E0 z5 G$ N; S3 L6 s5 b  RowBox[{
    5 s6 h" I  r. N" |5 b( n4 w+ p   RowBox[{"Exp", "[", & m3 ]0 J! N" _" D4 C: w
        RowBox[{( w: C! E8 C4 J, Q, H. p
         RowBox[{  V" c4 K$ }' R7 y: I
          RowBox[{"-", & f8 i* Z) h( p% ]5 o( d
           RowBox[{* R% C: I* _1 l1 o4 G
            RowBox[{"(",
    % X' F9 J) o5 C% t6 \( v         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", + M' ^! |# ^) A8 |8 K8 }
            RowBox[{"(",
    ; O/ n) S( \- E3 X         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],5 F, t4 z& ^- V3 M4 a3 J
         "]"}], "/.", "DeltaX"}]}]], "Input",- b7 a. F% V5 S" t/ j+ I
    CellChangeTimes->{3.57792064921875*^9}],; d- M0 }" a0 Z9 r

    3 ]2 H9 U4 D. I4 B$ x: \8 }) F' ICell[BoxData[* r: Q- `1 A$ n
    SuperscriptBox["\[ExponentialE]", 2 U: K5 n) }( p3 c1 S8 z( m
      RowBox[{"3.141592653589793`", " ", & `% o3 @$ H, O8 }* X
       RowBox[{"(",
    , j0 }. w; W$ [0 f  L& T7 m5 ^    RowBox[{. C& e& \2 ~( k0 B6 x$ l! L; H
         RowBox[{"-", 9 l" M, U  m. M) g1 k7 _& g' N
          SuperscriptBox[# `  C( [2 D8 d* i4 b$ D8 u
           RowBox[{"(", 7 ]1 L6 ~6 e6 u  d
            RowBox[{
      _6 B3 q; Y9 a! ~. q2 |" l3 d         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", 9 N0 O& _& {+ L3 t' d
         SuperscriptBox[/ ~3 C# Z  J& Y% d( ^" [
          RowBox[{"(",
    7 b* `0 }$ v" s. r# J0 m" k0 C, |       RowBox[{
    / ~2 k; Y# r4 K5 l' s& u( g7 `        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
    ( M$ t+ D# \1 R1 k  N) }     SuperscriptBox[  e* v- h1 _& P  P/ k2 i: s! ~4 y
          RowBox[{"(", 3 H( R& }/ @# h5 A* s' e
           RowBox[{
    + ^8 w! T4 q  u6 ~. {2 M        RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
      w* M0 n' e. a  z: b- d8 _& T7 S1 i     SuperscriptBox[
    & Y; a6 l  ~, a! x* T      RowBox[{"(",
    ) U0 `& ~/ B+ V) m5 z9 t! l       RowBox[{
    . z+ E& P/ P+ @5 ^, \& K& J        RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
    0 ?/ O: j6 r1 L5 n" J6 i     SuperscriptBox[
    ; L; g. ^5 j8 _' E$ `0 `& c      RowBox[{"(", 0 M1 u+ i+ r6 ?& q: X2 _
           RowBox[{6 |1 G2 b& a% W4 C( L
            RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
    1 F5 Y9 f5 [+ E' Q7 L& A' {6 w; q     SuperscriptBox[
    5 O& g: e5 D- z# ]1 R      RowBox[{"(", & [) K. O; m# n" w, n5 J4 u0 ?8 c" M
           RowBox[{
    / m4 }3 i: }. z2 E2 _        RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
    $ z6 N; |. ?; H3 x( [: ]7 C     SuperscriptBox[
    $ k3 B: d+ H7 ~1 J- n- G3 |. C1 F      RowBox[{"(", 4 m9 r* m! P; b4 F9 R9 o, }+ T8 e
           RowBox[{
    4 C7 |7 z. s$ d+ ?        RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", $ V2 U  E) N5 r; w+ G
         SuperscriptBox[, E0 o3 T8 o% ^- y
          RowBox[{"(", 2 ^1 p( r1 o/ r/ b, X0 L7 M7 h  i
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ! E3 ^  i" m3 T+ n3 L7 g
         SuperscriptBox[
    2 o) Z" W* a& F) _: D      RowBox[{"(",
    4 D$ o* V9 w( Q* R, h4 `1 |8 h4 A/ k       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 4 V. O% ]" D. l' f' d
        ")"}]}]]], "Output",2 _; J1 @1 ]& ^) P* u, W
    CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
    + C2 v  ^& u* R1 z  l6 j9 I  3.5779607654819613`*^9, 3.578012211515625*^9}]5 J0 x: n, @" p. Y7 u- j
    }, Open  ]],
    1 u  d4 m6 e! b* z3 F# N* p% n; i* q* S! r1 ?
    Cell[CellGroupData[{
    9 U3 e1 j( b0 X( D5 S$ c3 q& r' g; }8 z
    Cell[BoxData[  |7 \+ H" ^0 Z8 P8 J+ o
    RowBox[{"C4", "=", "Ca"}]], "Input",
    0 c) E3 W; u% t5 W2 t, j+ x. l$ t CellChangeTimes->{3.5779207559375*^9}],
    ' @) S5 C6 x/ P8 f! E, K: l/ a$ w- ^6 X
    Cell[BoxData[6 U- D7 M) m! `$ @9 r! h0 b
    RowBox[{"{",
    . W/ }0 M" r% I( z  h  RowBox[{1 C1 u. g3 h; c; v
      "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
    3 }7 L6 ^- a9 H( K/ [5 J9 r) X   "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], + a' B- A7 G9 M
      "}"}]], "Output",
    7 _' w* L9 C- J0 H% a0 @ CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
    1 O; {7 j" d7 U, z8 G8 a1 `: a  3.5779607861363974`*^9, 3.578012216171875*^9}]
      I8 i" y7 S' l3 c6 H}, Open  ]],
    $ y" j8 I* W( n. P7 r3 t" x
    4 s( K9 }$ L' j3 j0 Z+ \Cell[CellGroupData[{
    % ~+ V: f5 V6 A  y: s9 n8 l5 G/ Y
    5 L; O! |- I5 Q: ~; m* e& N" @/ K- Y9 `Cell[BoxData[0 V) o6 c' H) c
    RowBox[{"u4", "=",
    ; @7 J/ m. P& x( }  V: v1 L  RowBox[{* [7 e8 \. F+ I
       RowBox[{"Exp", "[", # ]0 x5 Y9 [' l; V
        RowBox[{" I* f6 p- S' Y" P0 O
         RowBox[{& E) n1 a4 {5 Y: G0 A
          RowBox[{"-",
    ! ~/ q& t' @3 B       RowBox[{3 Z0 c- E+ r% q5 d8 H& n" p- x
            RowBox[{"(", , g+ k) c& b8 L7 Z
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    9 b) x! c$ V4 l3 E5 g9 s        RowBox[{"(",
    . {& O# X- [' ]' h! O/ H$ W9 ~         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    4 i+ d1 h" S% l     "]"}], "/.", "DeltaX"}]}]], "Input",8 Z8 R  Y9 g) ~
    CellChangeTimes->{3.57792076325*^9}],
    7 u$ _! F* A9 C3 n0 ?) }+ c! W& r% v' ^# }6 r
    Cell[BoxData[4 V+ `, m8 u, n* l
    SuperscriptBox["\[ExponentialE]", " ?$ k- K/ g/ ]8 ]+ Y4 |
      RowBox[{"3.141592653589793`", " ", ; B% Q, Y& p7 L/ {5 ]
       RowBox[{"(",
    % w6 t3 \: c3 }) ?; W$ P- K. Y    RowBox[{5 T2 T- n1 l, `" Z2 E. P0 U8 V* s
         RowBox[{"-", 9 U/ Q0 D8 l! L# t* T9 d% j% ]% l
          SuperscriptBox[
    ; u2 z# b- S+ k- J2 I7 v       RowBox[{"(",
    ! h/ B9 H2 \9 f        RowBox[{
    2 _& Q, c6 g# F# }" w% q         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ) }. J& ]6 Q8 K1 t& h, J6 H     SuperscriptBox[
    % F# J" \0 Q- S      RowBox[{"(", 5 H( \4 Z1 y' F( R5 j
           RowBox[{
    0 o9 A1 u2 x4 u# U' }        RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
    & I3 @+ w' r; M! ]1 L# p     SuperscriptBox[
    % u# K: b/ h+ p5 O) l! G$ f) b      RowBox[{"(", - n7 c, L. q; \( A0 r( S) A
           RowBox[{5 Z' T, m; Z6 T8 r# C
            RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", ) I, V) {, S8 g2 N
         SuperscriptBox[
    $ p. B* H' U$ ]7 d) D+ a      RowBox[{"(",
    ) j# N+ R7 A7 q/ k! V       RowBox[{
    7 [( z% G- V# i" g4 z4 S$ I7 b' l        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", * U0 @) I5 D2 B  x
         SuperscriptBox[1 Q" W; |* f8 z- a- R: j& v3 w9 z5 z
          RowBox[{"(",
      f7 R, d3 R# b* d       RowBox[{4 k1 t) G3 ?  R. s
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    : x$ X4 N) O6 {$ H0 X7 K     SuperscriptBox[- U& R6 X6 x! _3 z- \; Q
          RowBox[{"(", ; s4 q" s+ K) v
           RowBox[{/ K( D. |4 B" v$ v. Q5 g
            RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", . G, i9 y; Q. |8 j( i4 D6 t4 m
         SuperscriptBox[
    . E0 B  ?3 d' e+ w+ c, R: a! C      RowBox[{"(",
    2 ~1 m9 P, |1 [' E# }       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    . r0 }0 t. E; ]  j$ U& M5 w     SuperscriptBox[
    % X6 T+ ], v: Y! W9 R4 s      RowBox[{"(", 7 S2 i/ s3 U% G1 c" z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 2 a# n" |3 a8 [5 j, t7 l! p1 i% o
         SuperscriptBox[! z  X0 l/ K6 _% r! J- _7 a% m
          RowBox[{"(",
    5 t5 V$ [/ e/ {) s& W" N' y8 a- X. w       RowBox[{* q: ~4 F9 p6 Y+ p5 l$ n  j
            RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ( A, @, }7 Z- F8 O7 L0 s: S
        ")"}]}]]], "Output",; G4 g8 d" k; F. r. R; f6 E
    CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9, ( T- W: Y3 Y; A; {! |
      3.5779607873531995`*^9, 3.5780122169375*^9}]0 m; S$ C" _9 m' e
    }, Open  ]]," S/ o& i% v" t+ H
    2 s2 C& z/ K' r! k% {1 Y
    Cell[CellGroupData[{7 T6 s1 `* `+ z! M( }! T4 S% f  V
    ; L) F7 G6 h& B5 R. Q2 y
    Cell[BoxData[7 w! }3 \/ Z) S+ O8 H# a
    RowBox[{"C5", "=", "Ca"}]], "Input",
    2 }" d- {, g' T# n3 Y' X% r CellChangeTimes->{3.577920860671875*^9}],
    , ~9 w7 O4 x, r  K
      M3 M+ z4 g$ F1 j2 NCell[BoxData[
    . c( ?% z7 x6 e( U! c4 _# B7 P) \ RowBox[{"{", ' Q' P+ _& S& J6 h5 s  i, r. x
      RowBox[{
    ; |& e7 \9 u! h) ?, O  "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
    1 j7 g0 @+ L7 H7 R! v) n) [   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}], 0 T+ ~5 e2 a5 I6 V) i" @1 |
      "}"}]], "Output",
    % I$ H: g3 \& t! g, [* W* e6 L CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
    . y3 E: U9 d: J. \  3.5779608137328453`*^9, 3.5780122209375*^9}]  U" [8 a" r, _; K
    }, Open  ]],9 D0 T9 N3 c% M; o& ~" ~# G
    & c" G1 M9 F8 ?; n
    Cell[CellGroupData[{
    , T. h& Y$ Z/ t4 ?4 M
    / U7 N# f- O8 b9 E+ f2 r5 @+ H- M1 FCell[BoxData[
    0 `5 U  M8 Y" |( | RowBox[{"u5", "=", 5 E2 h/ S/ e  o" b: c- o! w
      RowBox[{4 u/ ~- L% q9 J3 r3 _9 R8 h
       RowBox[{"Exp", "[",
    ' L4 b! a& Y' U; E' ?9 X    RowBox[{
    4 {/ z3 s6 J# d     RowBox[{
    $ Y2 m0 o2 B$ R# ~' `      RowBox[{"-",
    ) a3 m+ X9 ^  N       RowBox[{
    : B! ~( o) e" K- E( O, K7 |2 y, {        RowBox[{"(",
    6 f. A" J3 _' S& l+ J% Y         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 6 y) T2 ~" N* k0 f: Q0 I- h8 B" V! a8 i
            RowBox[{"(",
    % ~2 D/ G$ D% V8 ^" Y         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    9 d0 B5 R: q/ e! a$ y     "]"}], "/.", "DeltaX"}]}]], "Input",
    9 j8 j9 ?2 u! H+ V& v0 ?) I CellChangeTimes->{3.577920869375*^9}],* p. T8 T% e% S! q

    7 u1 M6 E  H1 Y3 a  Q! G. M& m8 YCell[BoxData[2 `' {# S4 S% N
    SuperscriptBox["\[ExponentialE]",
    , B) g. N' w% |) `5 g) O6 m" X4 @  RowBox[{"3.141592653589793`", " ",
    % E7 W( Q+ a8 K7 U   RowBox[{"(", 9 ?: X0 ?! q; B8 k5 `
        RowBox[{: i2 A% I& y( w* ]5 B
         RowBox[{"-", " k! g+ G- F: p4 ]& X9 F
          SuperscriptBox[2 P6 p7 P5 g  i2 c. r
           RowBox[{"(",
    4 z* U6 e( s6 V; W% w0 o( W        RowBox[{! V) m7 U9 [9 R' t
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    + X" O. C, ~5 H. e) d     SuperscriptBox[
    ) n1 w8 Y  ]* g& M2 D! r      RowBox[{"(",
    % O# `8 x$ n' H       RowBox[{, {6 S4 r# p. O2 o0 H( v% ~
            RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-", 6 J- {5 E8 _# W! Q
         SuperscriptBox[0 k, C; V# _! ~5 O6 b' u
          RowBox[{"(",
    + r  R& O! G' c# E' [: ^       RowBox[{4 d9 o/ Y0 s6 Y% T, t% O
            RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", * m6 |* ~) a) ?
         SuperscriptBox[
    + e* G- \$ R" l6 |4 {; o% V% N      RowBox[{"(", 3 a2 i& f4 ^5 |1 S5 M* u
           RowBox[{
    7 m, g/ V, k+ _  P' n/ B( c9 X        RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-", # P# z: i! M9 Y# A3 h; B6 I
         SuperscriptBox[
    + x# p% }9 u) x      RowBox[{"(", # l2 f, U4 |6 I. v6 `9 A7 d
           RowBox[{
    8 M) \; a- d& l1 S* Y6 S$ D" M        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
    $ j9 D& ?/ I0 ^5 @' C4 j     SuperscriptBox[7 B4 Y$ z) v- w# Z7 y$ V& A
          RowBox[{"(", & O. d$ A2 H  J) U+ d
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", - L: d9 n/ ~: x) M# W/ F5 d
         SuperscriptBox[
    0 m5 u+ @) `* o; `$ U. v      RowBox[{"(",
    & k* \& x4 |% I       RowBox[{. Z" g7 @% C/ ?" w9 G- y2 ]
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", ! e1 s7 X7 |! U1 L( P2 E
         SuperscriptBox[  m* D( u8 D. b+ S) y9 D- D4 H
          RowBox[{"(", 5 S3 Y9 E3 u( p+ f
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ! q1 R6 B, ^2 L6 H( r
         SuperscriptBox[6 u2 C2 I. w3 H
          RowBox[{"(",
      V( U# K, S4 u8 g+ Z       RowBox[{: D' X6 y3 d1 e0 V$ @4 J
            RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
    " n9 U- Y- V- n/ P4 @% @    ")"}]}]]], "Output",
      \8 U) e8 A1 |! Q# b CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
    $ @4 ]+ o3 @. R) v- U2 B0 k* a  3.577960815043248*^9, 3.578012221953125*^9}]
    3 `& ~; h  v2 E% R. I0 y7 f}, Open  ]],
    ( E0 H7 _$ g9 m, M& U# C, h1 P
    : C- Y! Y/ M# h3 V4 \0 LCell[CellGroupData[{
    & U4 ^% V0 p; {3 k
    & w4 ^8 b) Q3 d' Y  b: PCell[BoxData[
    , D6 v* x. r+ h+ R' P1 b9 U5 M RowBox[{"C6", "=", "Ca"}]], "Input",
    ' X3 S! G: Z+ ~) M) C* V& q  R$ h) k CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],
    ; p. }% p- H8 S' O4 t+ Z- ~8 P2 [! t3 s
    Cell[BoxData[
    / {# B# S+ y3 l' c RowBox[{"{",
    7 d0 j) P* X5 R9 m/ X+ ]  RowBox[{
    1 ?9 p5 Q/ a% m  E+ l  "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
    4 V) A5 B& N7 S9 a! `2 h   "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
    4 `- `$ `$ y& v   "0.494866`"}], "}"}]], "Output",9 V! m4 R8 O2 }" i
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,
    ' `" X5 |! f$ r, {" {   3.5779608373044868`*^9, 3.578012227359375*^9}]& ?# m% \* [2 h, B9 [
    }, Open  ]],
    # W$ P. P- t0 B5 n$ `% _6 L" r" G: x
    Cell[CellGroupData[{
    5 C% Z3 H& I4 H% ^. p5 Z( t
    " L6 y( L; n+ l/ j2 dCell[BoxData[
    7 w. Q- _. r" h2 X2 b$ s9 }! | RowBox[{"u6", "=",
    9 `# e5 C* t; S9 I' m7 I. l% u% }  RowBox[{# l4 B' B# |% Y* S* Y
       RowBox[{"Exp", "[", 9 D3 O; C1 z& H$ k2 z" s
        RowBox[{
    3 B& W/ R6 M6 z' @     RowBox[{% F" t2 K$ y0 Q% S% F6 c
          RowBox[{"-", : x5 j- q& P0 o  q
           RowBox[{  d4 E7 {$ x- ?9 f+ v1 X2 V. o" E
            RowBox[{"(",
    9 B( u8 M9 r9 L8 @9 Q: ~! \         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    / k9 \9 |5 ?% N, D( Z/ i0 c        RowBox[{"(",
    : M8 t3 e: D9 n3 g" D7 R3 L$ F/ }         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    4 d9 h1 c2 z* |' g+ j     "]"}], "/.", "DeltaX"}]}]], "Input",
    ' I6 Q8 J/ C9 s0 U" } CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],) a: u, ^0 d, O4 b" [6 Z* |4 M: b

    6 }& [& k4 v" {' e+ B& g$ D- R+ ZCell[BoxData[
    * R% ?' F* d- ], O& I SuperscriptBox["\[ExponentialE]",
    + S& R! D% `$ F- l  RowBox[{"3.141592653589793`", " ",
      w7 L6 Y2 b0 B. m   RowBox[{"(",
    3 T9 ]0 _# P4 ]4 A! x    RowBox[{
    $ _& O+ K7 r3 O; Z     RowBox[{"-", ) B4 A' Q& a& V2 e  h7 G0 |
          SuperscriptBox[5 f4 X: e0 i) ?. o9 l) H/ [1 A
           RowBox[{"(",
    1 s8 z; G# @7 A0 X0 D! B$ F; \        RowBox[{# C2 v; q1 Q1 \* O& V" G5 \
             RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ' v5 s2 U# u/ H* ~+ d5 c& v* L     SuperscriptBox[7 a- m) D. T* f; }# y. q8 f
          RowBox[{"(",
    ( Y, u) T/ C- |1 o       RowBox[{, H% b: ]3 N7 b8 ]% o/ m
            RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
    , k% `& C6 {* E9 ~     SuperscriptBox[
    6 P! G# n8 ^5 R# @% P6 E      RowBox[{"(", ( ]) D3 q5 ^) s# x
           RowBox[{' T) r. n* i. i9 {/ ]0 A8 K
            RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", , s' b; C$ x2 L4 R6 C, J
         SuperscriptBox[
    : r6 n% T0 K6 q      RowBox[{"(", # a) r$ d" f4 W4 Z& T
           RowBox[{0 ~5 v, m% n+ q; p, B3 F
            RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
    + a* \- h: s; f; K     SuperscriptBox[
    ( L: i9 z5 n* V+ k      RowBox[{"(", . E! N* Z; u1 D! W
           RowBox[{' N8 K  y+ y  H% `" v/ K* Q
            RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
    & `/ V% _: D1 z; V     SuperscriptBox[
    # T* f# r# l2 C3 A      RowBox[{"(",
    % G6 ]$ C2 H& U       RowBox[{
    : @" M' l( \* X% u% @% V        RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", - U9 `# r: J9 l5 h1 y& S
         SuperscriptBox[( ^0 \4 q& Y0 L
          RowBox[{"(",
    ' o3 R) {" l$ |- \6 Z: l4 U; Q" {       RowBox[{6 a; N$ P* x9 m* Z# z+ n
            RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
    5 W  L/ q: B, w     SuperscriptBox[
      k) x1 H9 U' d* b: h% [      RowBox[{"(", % n& T5 @8 H- S7 E8 t1 i5 L3 c
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    . M3 S7 p( d0 d, q% Q) U6 P     SuperscriptBox[
    ; l) {( s% M, S4 j+ ^2 f1 ~      RowBox[{"(", 3 H: O; t5 t/ R+ p( _
           RowBox[{7 Z$ b. S5 r/ {, N
            RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], * O2 k, l3 }5 ?
        ")"}]}]]], "Output",$ l4 b' e' t. E4 y
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    7 J" L& f* z( T/ F% t  3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]; R! `& H) }6 F- `
    }, Open  ]],
    3 F. a1 \( m2 u8 B" i9 Y0 b0 C  _6 X. M! E3 j6 P4 f/ U+ V, n5 V
    Cell[CellGroupData[{8 `" {$ t7 Z- B7 |0 P9 X/ P- h$ ~$ ]  Q, o

    ! D1 D6 G) R$ C  t  _$ \Cell[BoxData[
    # ?; F" \  m  B" J: n( d RowBox[{"C7", "=", "Ca"}]], "Input",6 Z5 ]+ g6 K0 [: P
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, # J# i: B$ \9 Z6 _% _
      3.577921316125*^9}],, u/ z6 T, O1 L5 t% k
    7 C) \) `) U: z9 q, r) L( ]+ ?
    Cell[BoxData[! Y/ J5 q7 Y- U% A1 w, _. D
    RowBox[{"{", 2 Q  x: |8 B- X8 {% r+ H9 D5 K
      RowBox[{
    % F5 l' g$ W/ R3 o9 J: r8 `  "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",", 4 Q; Z) }! o6 C: S9 @/ a! x
       "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
    5 k& N- I/ T9 q+ G4 o  "}"}]], "Output",
    5 y4 _  V6 b; @: i) ` CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, # X- z. t$ t! E/ o; [  T, ~5 i/ U$ H
      3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]/ |! V- e  J1 B: I2 v7 p5 K
    }, Open  ]],1 }2 w# A" g, I2 W; m" l
    ( z$ A: g0 J, V/ R  s
    Cell[CellGroupData[{
    - V1 P7 h) `% M; p3 O9 }
    + p! ^1 p5 o7 b. \$ X( ?$ V; s7 O) }Cell[BoxData[7 w( _5 a! g) v: ~$ k( ~
    RowBox[{"u7", "=",
    * v' S5 z( m* z& T1 B* L3 D, k  RowBox[{
    6 i2 ^/ {4 N& Z' m& r! M+ R. c( E   RowBox[{"Exp", "[",
    # l+ ], F. D1 Q' @' h    RowBox[{
    % Q( L5 w# u4 c. E5 r+ ]     RowBox[{6 Z; Y1 a. p2 b$ J) _
          RowBox[{"-", / E/ ^' M2 {0 V* n
           RowBox[{& s# o, |, [3 O! v
            RowBox[{"(",
    4 O" o- _/ q+ H2 c9 t# n' v         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    5 ?% }3 F0 s0 m; \. M        RowBox[{"(",
    5 t; v$ _* ~! N9 z% D' V- {         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    $ ]% @: o/ L- E" t) u& y1 W3 R     "]"}], "/.", "DeltaX"}]}]], "Input",
    8 }5 O5 L. `% R, U) o CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, 2 i! O8 ^, Z* ~" o1 @
      3.57792132028125*^9}],
    % @) D; o9 ^5 T' E7 t% k5 a. I8 f
    8 L9 `0 y# O6 Q5 CCell[BoxData[
    ! @( }5 t* ^9 }  j2 I8 D( v SuperscriptBox["\[ExponentialE]", " _# a5 _" M! R, N; _0 I8 x- g
      RowBox[{"3.141592653589793`", " ",
    0 M7 ]$ H/ \# |8 d   RowBox[{"(",
    ) F+ b1 m+ S; |( I    RowBox[{
    0 m( Z! d; I! }/ a- S1 r8 ]' V     RowBox[{"-", 7 u9 q# P8 h2 `
          SuperscriptBox[) ]0 Z% ^7 ]1 W3 k
           RowBox[{"(",
    3 ~* V" S8 I2 L. ?        RowBox[{' _' ~' k& [) U( a& ^$ ]
             RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 i; ?9 g* \, P3 ~% t
         SuperscriptBox[5 T% \* |- V2 G& i, Q1 w0 e' q
          RowBox[{"(", . z2 i* P% p4 U6 D5 o
           RowBox[{+ I* P. y. P3 F" i& _
            RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", ; q8 C: V' K8 V* Q- k
         SuperscriptBox[
    , {: {% x" X: _% |$ Q      RowBox[{"(", 5 h/ T( m- A- o; @
           RowBox[{
    5 ]/ h" E8 f% r# |1 }7 ]; X9 w        RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    : [: W4 K& p" y0 ^  y( r( q     SuperscriptBox[
    ' n9 o4 |0 d0 c( N      RowBox[{"(", ! [: j' S, J) p; w: [
           RowBox[{' Y  G0 m0 b/ l2 u  n. P! k
            RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", " f& o, }$ \3 [" U: B/ K/ z' q0 j
         SuperscriptBox[% k$ L7 o* m0 z0 B, ], v
          RowBox[{"(", 8 B* ^* S5 ~- g' ~
           RowBox[{0 j( v$ ~& v4 s: x1 L& R: V
            RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
    . ^; Y! o: z" i     SuperscriptBox[# \! ~; a% N( ?' q$ c# x9 P4 o
          RowBox[{"(",
      W! T; E9 R9 @: {+ S       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    2 F2 W7 O8 E8 \' o/ H     SuperscriptBox[$ J: F/ T9 Y/ x0 g8 U1 z
          RowBox[{"(",
    ; T. ?% I+ l" K: Y; L, j       RowBox[{2 j0 y2 A  i3 W$ Z1 a
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    ' i! c7 e0 R: {' E     SuperscriptBox[, b/ M9 ^; p1 v; v
          RowBox[{"(",
    ; [7 D' P- i; U       RowBox[{
    6 F2 D0 f, [* e+ i$ L  g0 r" U        RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", + w; X- b9 n8 f
         SuperscriptBox[% ]& K: y( f6 R3 M  O5 b) U
          RowBox[{"(", - m* E1 k. l! J+ l" w
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 0 V3 R6 U2 g( |% r1 s. h
        ")"}]}]]], "Output",
    / @; g/ B: b( H# G0 W( d1 P CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    ! A$ [6 {% `8 P( H  3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9,
    % D2 T) u6 J/ |  3.578012251359375*^9}]
    6 I% @1 q& }/ N}, Open  ]],1 p# o+ }4 m+ ^: n+ w

    - w* I9 j1 v9 @# WCell[CellGroupData[{; ^' A% l: _& E" Z. B4 c" \& {$ n
    " X  B0 B0 Y3 r9 W2 `- j9 J
    Cell[BoxData[" f. P6 `( F3 L& W5 Q
    RowBox[{"C8", "=", "Ca"}]], "Input",/ n" B3 j8 C1 Y: q0 D; n7 H
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    ) r; Z$ g+ v/ [; k; f. `! s  3.577921316125*^9, 3.57792141421875*^9}],7 q% o* _, i1 |# u

    $ K  |6 Q+ a) a) H& {Cell[BoxData[' c/ H; ^! g- w5 S$ ^0 L
    RowBox[{"{", ( x3 E. |* N2 b& F) Y# i* }& }
      RowBox[{( q2 t. b" F4 {6 ]: V
      "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",", 0 S: |7 ^0 X8 F3 B
       "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}], * t5 ?, W0 c$ ~* l! z  P
      "}"}]], "Output",
    $ |. ?/ Z: t3 I0 l CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    ) v& c( a% c$ q: B2 d9 C) g  3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
    4 q; m; W9 q) n7 d, k- M1 x7 K8 d  3.578012260515625*^9}]
    3 s$ v  ]" u+ C3 W% F  Y}, Open  ]],% F9 X" W3 r$ `1 x- \8 T( s6 g

    / F. F2 C) F9 p% B/ LCell[CellGroupData[{! o; q" h. U" \' H% ], c8 q; _
    3 x1 V0 v0 t; I3 Z
    Cell[BoxData[
    + c$ ?- B5 Y+ Q RowBox[{"u8", "=", ; m5 i! i; v3 ]1 ]5 z7 ?
      RowBox[{
    # @/ ~! D' ~% N( f4 O# Q& d+ d   RowBox[{"Exp", "[", 8 \6 b) e  c: {! g) J+ e0 v# R$ _
        RowBox[{2 p! _& |8 n0 P
         RowBox[{" w. f) X. I3 P+ o
          RowBox[{"-",
    - w. |) H2 O' E; T9 c; W       RowBox[{6 T  i8 D' N/ o+ O/ y% Y
            RowBox[{"(", / F! f! Y" K6 O# y1 f& k# ?# P
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    1 Y7 D" U* Z8 N1 ?3 T! G        RowBox[{"(",
    / y. q3 W, _" x& \5 p9 g$ D! k  {/ ?         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],* n/ `+ B/ y5 ?! {3 v
         "]"}], "/.", "DeltaX"}]}]], "Input",) q  }; u) F8 O' G
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, 0 r, a  n; S  W0 M9 b
      3.57792132028125*^9, 3.577921416921875*^9}],
    2 N6 X8 ?4 j8 D8 ]) ~" U6 s
    . C( j& u2 d7 Z1 A0 K& pCell[BoxData[
    4 }0 _; e! F/ I% }" E4 c& ?) { SuperscriptBox["\[ExponentialE]", & t1 [5 C! k# f. C' R
      RowBox[{"3.141592653589793`", " ", $ {4 i& W6 {" y( A2 R$ R$ M/ w
       RowBox[{"(",
    , e8 e4 j1 i, }' L. P  r    RowBox[{
    1 j. w' j, D6 `4 v1 X+ Y. o% E     RowBox[{"-", ) [6 w3 s/ O/ a. \2 Y
          SuperscriptBox[9 z# W6 y( l% s' }( G! Q1 p" N
           RowBox[{"(", 8 T# K" Q4 B1 r: v0 w
            RowBox[{  o3 n! a9 J7 u& L# J. o, E
             RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", 5 d0 b) O% B6 q2 I
         SuperscriptBox[3 v6 A1 f( V) A) t
          RowBox[{"(",
    8 K" Q! h; W% B& ]0 a& Q       RowBox[{
    % ]$ H: N% `7 i% T8 F        RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", ) b/ v5 E1 _) I3 t1 i& X" R
         SuperscriptBox[
    2 O$ X2 O  U, P. P/ z+ M      RowBox[{"(",
    4 j8 l2 }- \- ~& w- E/ {       RowBox[{) V" Z& C9 h2 U; v4 V
            RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", 2 a/ f7 X# p) a) u
         SuperscriptBox[% N3 k$ S7 i; g+ k5 r4 W3 u9 Q
          RowBox[{"(", : h' Q1 e' {" N. ?) Y! i
           RowBox[{
    1 F& Z. R/ `4 S, x        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-", 3 O" c8 q6 V! j  b% j
         SuperscriptBox[, ~5 ~: [8 W( `9 @5 `
          RowBox[{"(", 2 h8 o/ |9 O6 v8 q' \8 U
           RowBox[{" Y) x+ z1 ]) O) @# T
            RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
    7 B9 I1 Y6 F7 Y8 P- J* _3 G0 E     SuperscriptBox[1 w1 Y% k. p- Y2 L8 G6 ?$ k
          RowBox[{"(",
    6 A9 K8 @; `* r7 i* K       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    - F6 p; w- @! I/ [* w9 o9 z) N     SuperscriptBox[) c+ x1 k# y8 N% v  d
          RowBox[{"(", ' x' U* u4 w% x* ~/ g( N
           RowBox[{( ^- ~. t# R9 A1 r2 m
            RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", 1 A& F+ u& }) |% C! C
         SuperscriptBox[
    + R( K- L, K* r. @0 U      RowBox[{"(", * d: y% O* j: L5 y" A
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    4 Y% M  L/ C& y     SuperscriptBox[5 T, T$ N! @8 g+ @5 t
          RowBox[{"(",
    6 @% P( {3 R, N4 p8 A( H$ n1 D       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 4 W7 ], ~6 X) t! _5 l1 l3 z+ v7 V  t
        ")"}]}]]], "Output",2 E" H5 P5 k1 [+ a
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    ! m' z+ ?/ T. L- ~4 c9 y9 K  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
    & k/ N( O; \0 J; h6 _  x: }2 y  3.5779608945565863`*^9, 3.57801226165625*^9}]  k# p7 K# x: a" N( g  R# ?
    }, Open  ]],
    9 K0 ?7 B; ^2 ]: {# Z# `9 x8 b! W5 p3 x! @. a3 i& R2 t
    Cell[CellGroupData[{
    1 u8 C6 r; |# ~9 J  @4 f0 g$ Q9 L1 w: o/ x; C0 o
    Cell[BoxData[
    9 O; h& @  h7 u8 A( _0 H7 Z( p* k RowBox[{"C9", "=", "Ca"}]], "Input",* j" I9 r& \# _7 e) m
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    - x3 h  K9 _0 J$ |  T3 w3 x& Y  ]  3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],
    / e4 _6 Q6 k5 {( ^7 [5 Y% ~  u% j5 E' d
    Cell[BoxData[
    ( k9 b3 z8 y8 p. v: S! ?* A RowBox[{"{",
    7 q' P; d! i- m9 P* @1 }: F5 ^  RowBox[{
    1 k3 A& F+ K! P/ u  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",", 1 @0 w9 e/ s8 S2 `; X$ I7 `2 b0 M9 M. _
       "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}], : Y2 ]' a( e# B( i
      "}"}]], "Output",/ ^0 S% D0 w' W1 |& X% F- s$ P
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, " }2 @7 X4 [/ s) E- A4 t3 S7 x3 W
      3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9,
    ! k# }" R0 y5 I6 }7 ]. K/ L  3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9,
    ( p- J! c1 A) g3 K$ M  3.578012268234375*^9}]
    ) q0 H$ t/ o: [% v3 P+ h}, Open  ]],
    4 Y: |# O( ~" g1 U& |4 t4 I; s6 c; l
    Cell[CellGroupData[{
    8 r  I' ~2 g* A* i' l- m7 c/ r& V! I' ~) y5 s9 p# h& Y' p
    Cell[BoxData[. i7 S. g8 q' c
    RowBox[{"u9", "=", " O. Y4 O% ?) y
      RowBox[{6 R4 s- d3 e# [  J6 `+ [/ A
       RowBox[{"Exp", "[",
    4 Z$ W0 ?( d) s$ o    RowBox[{0 i/ H( t. B" F/ N+ A( b5 G7 Z
         RowBox[{
    $ r' m  `' I9 H- {( P      RowBox[{"-",
    2 }+ W. l. P2 ~* N       RowBox[{
    * z: ^- v2 Q2 B( `        RowBox[{"(", % Q) ^& T8 H1 |' [3 w1 ^3 ~+ r
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    - M5 q9 w* q# q2 F& W; _4 H        RowBox[{"(", 3 |& H% g- D2 ]
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    " R; t& C% k1 ?8 _* I2 V. b     "]"}], "/.", "DeltaX"}]}]], "Input",* G- p  v- l# A- ~8 G1 T
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, % a2 n' C4 D7 k
      3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],
    0 b; R- e! Q% M  c, }8 b3 z' S! A2 p  }
    Cell[BoxData[
    : a6 w% {) D8 |& H& i& Y8 |9 c SuperscriptBox["\[ExponentialE]",
    2 N. ~2 F+ Y0 i6 N. G0 X  RowBox[{"3.141592653589793`", " ",
    4 _1 o! {$ F3 V8 F; j' ?! x   RowBox[{"(", " P: t' p. b9 s& ^0 N
        RowBox[{: q2 \. K6 [; d- w% `
         RowBox[{"-",
    $ b, Q7 R' }9 n' f' D+ w      SuperscriptBox[
    , z& d6 x  v3 E1 T+ C! e/ O/ w       RowBox[{"(", - b: Y' q/ j( U: [
            RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
    0 F! x4 G4 n' Z     SuperscriptBox[+ }! `; b* B' V, e& u
          RowBox[{"(",
    : @# F. `+ _8 M: z/ D       RowBox[{# J1 B' g9 E. x9 z9 _# _- V
            RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
    ( I# ?3 @$ @) _7 H' C3 C     SuperscriptBox[* V4 E; S1 f0 ~# ]0 H' k. V
          RowBox[{"(", / }1 O2 p1 |& a0 M6 ?
           RowBox[{
    * z1 c. @, l4 p0 D! d        RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", 0 `% J7 v! h4 G, c; C- T
         SuperscriptBox[' b* _  ]% U& S
          RowBox[{"(", 1 k5 o4 ~0 U' n8 p/ s+ a- n4 k
           RowBox[{5 f* k/ g  i8 l: z9 P% k' O5 }
            RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
    ' \( d) f& [$ W( {9 l6 \     SuperscriptBox[
    5 Q* v& n1 Z& E% |# ^1 C% I9 l      RowBox[{"(", % [5 O0 R" t- c  ^& `# C3 V
           RowBox[{/ N2 o0 ^# g4 C( [4 ]
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    2 M" [% v3 ^6 f/ V) o     SuperscriptBox[, Q0 N  s8 F% |. |
          RowBox[{"(", + g7 t* p. z( y% E5 ?' g0 ?; s
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", - B  a9 D, [" O' j! n
         SuperscriptBox[
    0 n  k$ [. }# }2 D5 p* k      RowBox[{"(",
    9 u6 s, n. a6 H/ u4 U6 ~       RowBox[{
    # L) T; s/ \4 d0 V% x/ z' S        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
    $ E  [8 r8 r& r1 r; Z( p! y3 Y     SuperscriptBox[+ u( v( j8 d, K+ o( H* E+ u" _4 R( H
          RowBox[{"(", % r; e9 Y6 g0 e5 n
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", * |8 g2 ]2 J' P6 o3 |/ A
         SuperscriptBox[7 P1 Z! a% B6 D
          RowBox[{"(", # g1 A+ p; k; t: X
           RowBox[{9 f1 b6 w6 I: Q. u4 x+ K4 \* ]
            RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
    ' c$ T8 k$ D" D6 \7 K0 t    ")"}]}]]], "Output",
    - X3 F% Y, `8 o! q2 G* V: u CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    ' J; n# {6 f5 w  3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9, 3 E. x$ ?0 N' S2 a9 H
      3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9,
    - U$ T/ L7 w$ S" N; `2 A, B  3.577961530421959*^9, 3.578012269125*^9}]
    # L+ ?3 v/ U( f) ~. F+ b# f}, Open  ]],
    , L9 O. R. J6 c( M, h/ o* [  E( e7 q- g# \9 ]0 N
    Cell[CellGroupData[{
    & T% K1 ?- C. u5 M  j( y5 k6 X+ }2 _0 M3 D& R
    Cell[BoxData[{$ k- K+ x- V. Q5 T& U) g
    RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
    ) n& C7 U" \1 X4 U/ a% l# ] RowBox[{"u10", "=",
    * L4 g7 X8 g, y, U9 F  RowBox[{
    ) i! K3 p% U  A   RowBox[{"Exp", "[",
    1 P. M/ D+ R9 W+ H+ F    RowBox[{
    5 Q+ {# q; {0 V2 B' x     RowBox[{; R: T3 s) y8 C; u' O: A7 l8 E3 ?' `6 t
          RowBox[{"-", , \, Y* d. f! i$ T& G" e
           RowBox[{. m, ?& ]8 e+ e
            RowBox[{"(", 5 e4 n: v; F% ~1 m1 ^: L
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 1 ~/ t0 q3 p! X
            RowBox[{"(", & n8 y- M- m: _$ A- d2 x/ U3 V
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    5 U4 |7 V( L$ r     "]"}], "/.", "DeltaX"}]}]}], "Input",( r9 K& ]8 d) Y
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],
    4 |2 |# ~2 E6 A4 R  V, y
    ) d4 W9 {6 M3 z7 y( W3 _% xCell[BoxData[
    ) H3 }, x* k; ~8 `2 x7 ? RowBox[{"{", 7 D- A: ^$ _* C% X3 p
      RowBox[{0 Z4 c- t7 b. ?/ Y: n
      "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",", 5 t8 n/ K" U) `3 H; p  ~( z( x
       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",9 h1 N' K' K, C8 X0 }
    CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
    9 y( D' l7 J* A- T' Q
    3 w# z0 d5 v, ?. m5 TCell[BoxData[
    2 l* P  a% h( ?+ |) C8 J% |0 F! t SuperscriptBox["\[ExponentialE]", $ a+ A- ~- E- Y
      RowBox[{"3.141592653589793`", " ",
    5 O, w9 }! N+ X! t   RowBox[{"(", , Q3 W- g) e! ?# ~
        RowBox[{7 K: P, I' t+ `* g: F
         RowBox[{"-",
    5 Y, ^1 C% H- v) G* @2 ^1 C, y8 T* D      SuperscriptBox[
    3 {( X& k3 ^; o       RowBox[{"(",
    " c& P0 T; ~( O( l# i% E& X6 M$ w        RowBox[{
    ' `7 i0 e3 J# c& n         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
      p2 Z4 A1 e, R4 g     SuperscriptBox[+ |4 W7 }9 }6 M0 [& k
          RowBox[{"(", ; B$ o: T  o& d
           RowBox[{$ r/ l9 m0 ]8 b9 y6 z- ]
            RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-", ' Q& z- B* I5 L" d# u& r/ A/ I2 k
         SuperscriptBox[
    4 o( @. Y' z0 H* v/ B      RowBox[{"(", . D0 a* q' |7 j6 }# d* E3 P
           RowBox[{) [4 v4 x2 F2 a" j" F
            RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", ' U3 S+ i2 ^9 h& Q$ S
         SuperscriptBox[
    . H) F( p6 Z" n* I- J9 a  _      RowBox[{"(", ; ~* g5 L! ~3 Y/ v
           RowBox[{, B2 C% P' n- g: V4 N2 C
            RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", / I. b* F9 r" J0 [5 @# T6 t+ u
         SuperscriptBox[# m& e6 k$ R4 t* L2 i1 ]
          RowBox[{"(",
    , u" R4 U1 y8 B( y1 p       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
    1 N- U4 Q+ o; Q) l5 a4 U     SuperscriptBox[
    " R4 a% @. n2 |' q2 @4 `3 V      RowBox[{"(",
    ( r* }1 I$ x' j9 k; z* G5 n       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    8 |2 R. i7 }" q6 V, Y% `4 L     SuperscriptBox[
    5 A" i  X( n' p( {5 h6 @3 x( J6 ]      RowBox[{"(", 1 E0 x" f4 H* B' u
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ' x4 ?' ?/ K, ]) M0 o8 E6 O+ K; F
         SuperscriptBox[4 f. y' [- E4 b$ R  a$ ]% X
          RowBox[{"(", 6 _7 Q5 \$ P' e  w
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ! z8 }; n- A, R8 G) M! S7 r) z     SuperscriptBox[" G9 D/ ?8 n/ G4 F
          RowBox[{"(",
    + y! ^9 [  l) n& m. O. a2 A       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], , |! \* Q7 n( _/ ]% e  U8 B
        ")"}]}]]], "Output",
    ; h6 |* E; s, W& Z: q% Z+ S CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]
    # E$ \$ M" [* ~) U1 R$ O}, Open  ]],6 \& M: F+ O1 \6 V5 V- g- e

    " V* y  ?3 H7 h" DCell[CellGroupData[{
    ; c' @8 @. ~* l1 z5 I+ U
    # R0 G" \$ h' R/ w. nCell[BoxData[{3 n& e- L" O) O3 B$ L3 K
    RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]",
    % a8 O% A' D. A2 |$ l, r: l RowBox[{"u11", "=",
    0 ~, |: ?- X: P) {  s  RowBox[{4 g7 _; I1 P8 J
       RowBox[{"Exp", "[", + ?  K* ?' D+ ~
        RowBox[{4 v1 a# X1 e% ], R8 `' q0 v
         RowBox[{- }1 o4 Z$ c6 ^
          RowBox[{"-", 0 v- P7 U7 C4 O
           RowBox[{  o( `) I* g  ~3 G9 [  _. L  S3 W% Z
            RowBox[{"(", 1 E* b& b  z+ Z% _6 [* T
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 1 f+ G% r! G+ u0 f
            RowBox[{"(", 5 r" y/ ?& s& R
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],) \7 `, S: E& U( U( O$ o0 K" x6 l% o
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    $ g; U7 G6 r0 X7 u CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    - K/ l- P! S0 [6 r  3.57796154237158*^9, 3.5779615434011817`*^9}}],
    5 V4 [4 U1 c* ~" V
    + e; C9 ^/ B& {, W+ YCell[BoxData[
    ( g9 m+ V  M+ j, K% Y2 J RowBox[{"{",
    3 h: J$ D: ?( B  u: @6 T; {. z  RowBox[{
    : Y. _, a! ^* _" |; l& O$ E' i  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
    " e8 _! M) Y+ a9 ~" f   "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    6 w2 w- D- }4 Z  "}"}]], "Output",) L2 x" k; G& C9 N( C7 B
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, " D* N! r2 @+ |3 I" T
      3.57801228203125*^9}],5 C* t; y" R1 ?  h+ f& w4 t+ W& f

    5 }$ R3 h6 X9 s8 h. x, vCell[BoxData[- }% y2 u$ b) c1 A! r. V: S
    SuperscriptBox["\[ExponentialE]",
    " P( n2 o; p+ E1 @/ q3 Q  RowBox[{"3.141592653589793`", " ", 9 y7 U, p1 b4 }" A. o% _: F
       RowBox[{"(",
    % l+ j, _( b; H6 I% k8 R    RowBox[{$ ]8 q8 \) x, C! P
         RowBox[{"-",   E* z7 a4 R( G2 o
          SuperscriptBox[, M8 c7 g( l% |
           RowBox[{"(",
    8 W4 ~, \5 |0 @- y% |        RowBox[{8 r: Q4 y  h; R0 A6 i  C) r6 h
             RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", 3 C+ K2 f2 q% y+ D# X; s; [
         SuperscriptBox[7 Q2 a( D* c; o
          RowBox[{"(", & ^# \, u0 Q2 @" {, u; l( |9 O1 f) ~
           RowBox[{7 b0 L; Y# n& Z7 ~" h% e, d
            RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", 0 e1 t4 E" }7 O" T- E. I9 r; \; ]
         SuperscriptBox[5 C+ ?# z) _$ `# N* D
          RowBox[{"(", 9 Q: ^* q! _  D4 @
           RowBox[{) t+ x. b) d8 |# U
            RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", $ {- m+ _+ b0 s1 }4 @
         SuperscriptBox[
      I, l4 ]1 q; _% m+ A) b9 B      RowBox[{"(",
    1 p3 _9 _1 ~, v) o* f       RowBox[{8 ~/ w7 W  w' D  M; Q
            RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
    5 A/ q5 U; W- \/ E. S2 b8 b$ K4 j     SuperscriptBox[( A6 \; H' }1 A: Q" J; f2 ]6 P/ t
          RowBox[{"(",
    4 r* ?' F; r- g1 s( M       RowBox[{+ F4 D8 U+ t3 p- t8 y
            RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
    / ?4 ]1 \/ Z! b  e5 g7 j0 B7 d     SuperscriptBox[# f8 x6 @5 m1 G' ?7 }
          RowBox[{"(", , C% \0 n# w7 }
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    : E) o# _& u( X, {     SuperscriptBox[
    8 w+ T) `  q* X4 i2 D8 A7 R' G      RowBox[{"(",
    ) V: i# \/ s, U/ u! L, H* K       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ) s7 I9 z4 V) A7 o7 ^
         SuperscriptBox[% }  c, C# n, m% D( R: r; ^7 p% e
          RowBox[{"(", ' U7 C0 u8 \# P4 V4 I( f; @9 k
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 1 J$ x* {# w; E6 h
         SuperscriptBox[
    : U6 v, e5 q& S. I; ?; r" L; N      RowBox[{"(",
    ! L8 E3 U4 G9 j( n, X% J0 q       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    & c9 z, o+ M6 C" z    ")"}]}]]], "Output",
    1 g* c. y- u2 |) X  z3 C2 F) p CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, - ?8 R. v; J/ c' X) ]4 \) K" k
      3.57801228203125*^9}]
    " G8 Y: d7 }* D( W# S  ~}, Open  ]],
    4 _6 B# x) g0 t( j3 g
    1 y+ C9 U5 a$ T1 aCell[CellGroupData[{% _: u9 h$ M* a; C  h8 E4 A

    2 k! K+ y9 t, w! x1 b" {, I. nCell[BoxData[{3 p8 y1 L! \% f
    RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]", / [1 X2 F1 ~  l5 h$ B( @
    RowBox[{"u12", "=", : v$ S' ?% @( d8 I# ^
      RowBox[{
    6 \7 `' O1 d! W% g8 n   RowBox[{"Exp", "[",
    : [" d* X7 j) o( E( j0 `; V" Q3 \    RowBox[{. H$ C% _$ o) t* b
         RowBox[{
    & l0 q/ t+ L( n1 |: C      RowBox[{"-",
    2 }: J* c$ B5 B       RowBox[{
    , ^4 h: Q; U; g6 Z* _1 B8 }        RowBox[{"(", 8 P5 M3 S) j- K& K2 [
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ( Z) G" B5 {& x9 m1 Q: s: e* k, j
            RowBox[{"(",
    ' r8 t2 [0 Y& W2 F( W         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    # r+ U! o7 r4 z2 d     "]"}], "/.", "DeltaX"}]}]}], "Input",) ?* X* O( ?( \
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {5 }5 I: l% h- Z9 M: y
      3.57796154237158*^9, 3.5779615576284065`*^9}}],1 ?# ^3 D/ \/ E4 j7 z
    9 X) A. b6 e/ \: i
    Cell[BoxData[
    9 J) h# m+ ^- _. T6 q, z5 @0 l' { RowBox[{"{", ) C' s, s3 [0 Z, p; k' O; ?, Z
      RowBox[{: d* p* K0 F  Z) V/ J/ m+ K
      "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
    1 g5 r8 `- X% I) E: U. q   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],
    + F' o! Q* G. ^9 E3 W3 ~  "}"}]], "Output",1 ^. ?1 Z: x0 K3 W$ q' P' U. y
    CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],- ?+ V- `, H+ h" Q! ^

    " b/ f' O4 l/ o2 m; nCell[BoxData[5 D8 ?; K0 A, M- T0 b! [9 i+ C
    SuperscriptBox["\[ExponentialE]",
    1 |0 F  g/ U7 d2 \; t+ W; i) g  RowBox[{"3.141592653589793`", " ",
    ' Y9 o  J, ?# ?: u   RowBox[{"(",
    ( B1 N$ L& G7 o0 R    RowBox[{
    ( X: Q* V8 r0 @# u' W     RowBox[{"-",
    % {! T' `+ r/ U" R4 q      SuperscriptBox[9 k- `& }2 D; L- S. d! p/ p
           RowBox[{"(", + X9 c9 J0 Z6 |  n* x! A3 l$ M
            RowBox[{9 H) _$ F; l8 P- ]& u) @
             RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", 2 v; `# ~8 v$ e; l$ G5 z7 p
         SuperscriptBox[! d# ?: W+ D$ _& C- {: Y' U
          RowBox[{"(",
      u  z& g& w% [       RowBox[{
    4 d# D3 r1 r. [3 R6 H, H$ |5 B  g: [        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
    2 O" S4 x- P/ c& v8 {" p3 i  m     SuperscriptBox[' n" L6 I( ?0 U2 j8 V) [$ M
          RowBox[{"(", & W% F( ]# u6 |" T& V
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
    1 ?$ f! J" W2 }; \; ^2 R& r     SuperscriptBox[$ m$ i; @/ [( N: z7 U* z9 V
          RowBox[{"(", - o" R9 @6 r2 R* I) s# L. }
           RowBox[{. }' l; U/ T  X  q* t! V8 W0 h4 u
            RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", : P, {! u: M7 k0 P) _1 _% ]
         SuperscriptBox[
    3 j. F$ B2 P. ^1 d' g/ m      RowBox[{"(",
    ( n( O, {3 ~8 g5 t8 [4 d/ {$ d       RowBox[{
    ) O  w, J4 H2 g        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
      p- P9 j5 T) W7 W' H; f, X     SuperscriptBox[+ N3 g2 I4 g/ `, t
          RowBox[{"(", * Q5 b+ g- f( M8 _
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    " q# m6 ]7 H2 S     SuperscriptBox[9 _# ]' w7 ^$ _+ L& `
          RowBox[{"(",
    7 r8 R& w7 `; |4 y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    , P; f% ]+ t  k& I$ U, d     SuperscriptBox[
    / Z! r! l6 f, c/ Y; A# y      RowBox[{"(",
    / w# u# Q1 x2 ]5 v& Q2 v       RowBox[{
    & d" S6 r* L+ u/ ?2 v$ g        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
    + n- y4 n3 v, ?/ \: v7 q     SuperscriptBox[
    5 a1 \6 _+ x1 `2 o# R      RowBox[{"(", , f* f3 ~* ^4 \
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    % w0 [$ b: x1 @; W3 @    ")"}]}]]], "Output",$ P; H; [9 W/ @% L
    CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]9 y. E; X3 H2 s3 J. U9 J" E
    }, Open  ]],
    $ G* @! @9 x$ @& B
    % {1 }, o! Q8 G  i+ PCell[CellGroupData[{9 C( O8 g4 t3 U/ G. _
    ) T$ j8 ~' i" v$ y% O
    Cell[BoxData[{( t2 e6 k8 K9 ?( \; m
    RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
    5 {. s, W- s' q: w2 Z% G# [4 \ RowBox[{"u13", "=",
      p; N6 j0 n+ i0 F& e5 r  RowBox[{4 t8 P5 H1 Q/ l/ R2 \: w
       RowBox[{"Exp", "[",
    9 c* N( ~0 A, V# ^' V3 K  d% G) M    RowBox[{# ^% {, A  K5 A" V3 a5 p& ^0 {
         RowBox[{0 Z7 S3 S5 q- S1 f  a
          RowBox[{"-",
    * W  J& b  G* [2 Z       RowBox[{
    / E* w# P- Q6 c# W% E% ?        RowBox[{"(",
    % U% R! L0 I% X% T         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    # S" M) \2 |3 o5 j  d! O! W5 f8 o        RowBox[{"(", ( n7 U% f6 j% ~8 J3 W" \2 z
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],1 E3 ~# h8 Q  Z9 d, N+ W" A
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    , r5 n$ X3 x" L# R2 e CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ! b/ R1 s1 Y( y" E3 P4 D; K  3.57796154237158*^9, 3.5779615599684105`*^9}}],. z3 z' _6 i3 ^0 t+ K/ i8 T$ Y

      F5 g& P. z- A% d/ S% ?7 yCell[BoxData[
    % _) U- a# J6 j/ j  T0 c0 k8 p RowBox[{"{",
    3 N2 f2 F9 O+ u  RowBox[{
    / B; l6 q7 W( m) _$ g  X3 ]' r  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
    - H' P4 i. K8 z6 Y; y4 \   "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
    ! y( M! }1 f+ G& I1 A1 l  "}"}]], "Output",
    ' O) g) L. ?) y7 d" q CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],
    " @0 v4 z) a2 X' @0 y  a5 t: X% b3 k5 ]7 ^& o" G
    Cell[BoxData[
    . L6 B. O, K8 S3 T; N SuperscriptBox["\[ExponentialE]", , f5 T4 d* ?% o8 _6 h
      RowBox[{"3.141592653589793`", " ", 5 Z- b. L+ v5 d
       RowBox[{"(",
    : E) T' w! {0 g% V; D6 x  t& ?( W+ s    RowBox[{- V8 [) E& V$ A, T6 F: W+ W
         RowBox[{"-",
    $ D& g* g. _; B: e4 _      SuperscriptBox[
    # W" Q: }3 J$ \8 [  W" Z       RowBox[{"(", & Y8 R( c* G. F$ f. D
            RowBox[{
    + |# i  M+ {" s% P7 \# n         RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-", ' e5 D$ o  Q8 A; @, s: D$ |3 ?4 t
         SuperscriptBox[
    # Q/ q; c7 {6 i5 w+ b% u6 \      RowBox[{"(", 1 @2 _8 b7 i- w6 p* w
           RowBox[{/ Q7 K3 }( }2 \! u' ~6 [
            RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
    - h7 Q- }# b/ z2 h     SuperscriptBox[
    + g$ B. ~' p" s% g      RowBox[{"(", 7 H  {- b, O2 y. y9 A! a$ O/ w
           RowBox[{$ O2 W' x# L/ o! Y
            RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    $ t. Q1 u& G' u9 I# R     SuperscriptBox[
    ( P4 M/ E6 e& W# i- I8 E; @: A; V: I      RowBox[{"(", 1 F; l& [* C8 M% l# k
           RowBox[{
    2 B7 ~+ S% c& P        RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-", - R- r' Y, W5 J! ^6 ~+ `" y' s
         SuperscriptBox[
    8 W3 N& L! c6 U3 Q      RowBox[{"(", 0 O4 q9 d( b8 z) h5 _
           RowBox[{
    ; i- |+ l  f! x; O2 h& }        RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", 2 r% j4 e8 p- D
         SuperscriptBox[* ]9 I7 H2 b0 B: K3 i$ f
          RowBox[{"(", . ~9 E6 M! h( R
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    - {2 {0 |7 i9 H7 {# _     SuperscriptBox[
    : k1 W; N( W+ ]4 I* d7 X4 o      RowBox[{"(",
    ' `0 v9 n! ]' V       RowBox[{2 m) K& _9 {1 i  r! C
            RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", * x+ X7 W6 D* a
         SuperscriptBox[3 E7 P4 X& G4 d6 h
          RowBox[{"(",   Z5 N8 Z( I, |) n* I- y
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", / }/ t# T1 ^/ I+ s0 T
         SuperscriptBox[
    9 L3 a* X# Z2 }4 |3 q      RowBox[{"(", * U# T6 c- `5 O) w" n
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ) h" V% T" R2 G8 }* L# P, b- A9 W% V
        ")"}]}]]], "Output",. j  b0 c# J2 j6 D! J
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]: C2 H% ]0 |5 X0 D/ n
    }, Open  ]],! J1 j" I9 z* k) W1 i8 Z
    7 C8 Z0 t) @6 q' Y5 v& t- B
    Cell[CellGroupData[{
    ! Z& F4 s( g# I  ?4 v
    0 {" P. H9 b9 Q1 V- fCell[BoxData[{
    , M5 X" E; A7 ^9 m/ Z9 `, v RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]",
    & P+ z4 U  q! U) P) g RowBox[{"u14", "=", % A8 u5 h+ S2 Z6 @) h
      RowBox[{* Q* x8 i  `) E; \8 M4 V
       RowBox[{"Exp", "[", 3 k; M1 {: d" L) E! f' k% V% V/ V
        RowBox[{
    + O  y2 \2 K/ c8 d1 J     RowBox[{5 |1 Q5 _$ N9 B
          RowBox[{"-",
    ; @: V. v5 k% @: {9 q2 s# ?       RowBox[{) |5 s  u% A0 E
            RowBox[{"(",
    7 {' J6 Z4 F+ j; o: m% M         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", " p9 ^$ [& [9 O. |" J
            RowBox[{"(", . y7 W, z! C8 s1 g1 }
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}]," V4 \; t1 j, V& A
         "]"}], "/.", "DeltaX"}]}]}], "Input",1 [4 ^! N" j7 I6 I( h+ U
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    $ e4 E% m/ e2 j9 G) I$ O  3.57796154237158*^9, 3.5779615663176217`*^9}}],
    $ w. g/ ]$ U+ ^- W6 z
    5 b6 c. e, \8 f9 z5 k$ Q- H; DCell[BoxData[8 e. c' b- h7 j; R* [* y: y8 M5 |
    RowBox[{"{",
    0 S; x: b% D5 F$ d. w- y4 t  RowBox[{
    - ?* \8 D& o: F/ {. z( @# _9 s  "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",
    6 a7 s1 `( }1 Q4 \7 ]+ ]  }% Z   "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 3 a! d( h5 W* |, K9 ^9 o4 R
      "}"}]], "Output",
    5 |6 N( j. S" Q" f9 h/ i( T CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],
    8 ], [! W# V/ ?2 T* C3 a
    # r; Y3 L% D: m4 ?% |6 jCell[BoxData[
    9 _. j) x0 t* [0 d' K0 e0 b SuperscriptBox["\[ExponentialE]", 0 s) S6 C2 B, i" Z
      RowBox[{"3.141592653589793`", " ", ! o+ r' t/ @: F# e8 W+ |
       RowBox[{"(",
    / ]1 F2 Q- Q" O* v    RowBox[{
    8 E7 }2 C3 y# D8 o' t7 F- f- s& o     RowBox[{"-", / P6 e# r( U, R" F
          SuperscriptBox[1 l! d  R: @& ?
           RowBox[{"(", % K% H! D. I, R+ F- D. D
            RowBox[{9 n- Y) S3 v4 K8 w
             RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
    " v8 H. B$ k  G$ D     SuperscriptBox[' u; p. l) S* F
          RowBox[{"(", 0 U  f" m2 G+ V( I" k8 w
           RowBox[{( v' [) Z8 a9 T( [: b2 ]3 r
            RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
    ( M8 V$ T0 |7 G) F* O; \0 z/ K     SuperscriptBox[0 Q5 w+ m* W9 s/ I
          RowBox[{"(",
    . h2 C! ]- _  J4 ]8 o. T       RowBox[{
    0 Q: B  I: d( B- r6 G* {! q        RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", / c! ~; U  c% Y) f: \7 {
         SuperscriptBox[
    . H% A7 v0 ?# |: B      RowBox[{"(", % Z9 C4 n: Q# |( o! `$ z, X
           RowBox[{+ u6 v7 s/ ~8 M6 v% A9 g# U
            RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
    1 F, m7 G( h3 O4 y) G     SuperscriptBox[. p2 X: M& I9 Z  K% E. F
          RowBox[{"(", % x( F/ F. l5 m
           RowBox[{
    & w* m3 D2 W( v        RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
    6 z! K2 U3 P4 _     SuperscriptBox[
    % u$ ]0 K  S1 d7 f) }0 G3 ^      RowBox[{"(",
    2 G3 g+ }" ?5 B       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ( a' B- m, ?/ D- P  P. v     SuperscriptBox[
    ) Y# ~7 e  Q, r3 T; m8 P  g      RowBox[{"(", 6 Q' c+ I# e/ u, R* J' T
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    2 V3 t0 M* S0 ]     SuperscriptBox[1 y5 s7 T5 v1 q
          RowBox[{"(", ) [" z  p' Q/ L7 {/ ?# `+ Z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 0 z7 S. P) I' j% o3 [
         SuperscriptBox[
    + D( B1 u, j( Y5 `      RowBox[{"(",
    - b( W/ e4 n7 [2 ]! A6 n9 ~; X# d       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ! h  z  s& K( S/ Y    ")"}]}]]], "Output",
    4 H; r' g. m5 s4 ], ~: a CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
    3 Y! W8 a7 i5 \$ I}, Open  ]],( V2 a1 k: ?: [* R9 S

    / K7 o+ v9 E5 a' lCell[CellGroupData[{$ n: I+ c+ c8 A* K, @" y
      Z* X1 H$ T0 K6 F0 d1 x# O
    Cell[BoxData[{
    0 F0 r2 Y) J# {# @/ @6 Y# c RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]", 6 n% j% _9 p0 K* G, z. @
    RowBox[{"u15", "=", : p  {: W7 U) E+ U: z3 }
      RowBox[{
    ! _  V9 L- S+ }8 I$ x4 _9 S* G5 R   RowBox[{"Exp", "[",
    " F, T$ y1 G! O  S8 x0 o    RowBox[{
    ' e, f" _6 k3 |     RowBox[{( N4 o+ C! z2 d" Z6 v- }) y: w
          RowBox[{"-",
    9 J3 n: n1 V. W       RowBox[{) G  d) [$ f: L- p# M% L
            RowBox[{"(", : l! y/ v1 e/ e! e6 o
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ) o# _$ C4 R' i9 \* i4 I
            RowBox[{"(", , n, b6 m. T4 @( @4 d) T; U
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],' X0 H1 S9 [/ Y3 S
         "]"}], "/.", "DeltaX"}]}]}], "Input",% }/ R& y5 o2 M0 v& D3 `. I! y
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    " a/ V( r; a1 m# G7 [& F& |# d/ W  3.57796154237158*^9, 3.57796157098203*^9}}],4 h4 H+ a  \" p, o$ ~
    ( |! `  |6 j& ~$ ]. e4 O; d
    Cell[BoxData[
    5 ?7 y3 T7 f: ~- n& D RowBox[{"{",
    9 p/ ^$ z6 `& h+ B& J. b6 B# l6 p  RowBox[{7 `% s+ |2 \5 [6 b. y& ^( F" z* R
      "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", / ]# o5 {% n- ~9 A9 M
       "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
    5 f5 Z5 R1 L: R1 V0 l1 N  "}"}]], "Output",
    3 L( T3 d5 ]' [  s/ q) d5 f3 V, H CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],3 B. x7 Y% y- w% a9 v0 p

    " r) w3 Q* U8 s$ @1 @4 O- DCell[BoxData[
    $ X4 X+ H' e1 u. _ SuperscriptBox["\[ExponentialE]", 2 s! w( l* ]/ ?# ~! v/ L3 B
      RowBox[{"3.141592653589793`", " ", % |/ \1 k' J' R, a' C+ x% N% Z6 a
       RowBox[{"(", 3 g; X- m( \! W# o6 {! \  Q
        RowBox[{/ e: ?+ x' q: Z
         RowBox[{"-",
    5 q& i5 _4 q0 v6 p  D0 m$ ]      SuperscriptBox[
    / b5 P% }3 K2 c       RowBox[{"(", * E+ r7 ]! ?. _0 o- W
            RowBox[{
    8 Y  f9 _% `; h# u% o" t         RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
    4 h# P# y  l* L     SuperscriptBox[
    * s% g. z. e" p0 }5 G0 }# i( ?      RowBox[{"(", 8 A+ i  i( Q2 m( |
           RowBox[{
    : z$ X8 P0 Y8 }4 L        RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
    ! g8 A, L/ [% Q     SuperscriptBox[1 X  B- {$ X; `6 p
          RowBox[{"(", 5 z: P2 B: w& i9 [1 @
           RowBox[{3 N6 z+ G1 S- z( j
            RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
    2 R! g8 h0 q. F' Q+ u     SuperscriptBox[$ t) S4 C; K0 M+ |  o- Y9 ~# y+ ~2 I
          RowBox[{"(", ' f: a. G- A. u$ ?7 A6 e; L
           RowBox[{4 F" G$ T! F% v
            RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
      I/ F7 g9 L! }* n5 S, G     SuperscriptBox[
    & D6 B' V  Z( `0 h+ ?6 Z# |) D      RowBox[{"(", " W1 P3 }' m/ x- F7 M+ p
           RowBox[{9 P( B( r- m, P7 x  S: ]. e
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    9 H4 f- a' {- m& X     SuperscriptBox[
    1 W3 X; }& v5 G: R* e& i: i      RowBox[{"(",
    7 \1 g7 D+ t: R' N0 V1 k       RowBox[{# r, E7 {9 v+ A
            RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", 6 t& C4 W* m  ~$ v
         SuperscriptBox[, N: E6 j6 v' Y1 ^* g8 {
          RowBox[{"(",
    + U% K6 }) j2 g2 a" _& V5 b       RowBox[{
    ; H' T9 B1 s- h/ V4 f% A& U        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    6 I6 S9 g; d7 ~8 x* N     SuperscriptBox[" x9 o! M* _5 W& Z2 }! Z5 ^
          RowBox[{"(",
    ! m' h# S8 Y" Z0 }) C& ]       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", + ]' t5 Q* d8 R' B5 u# g. ~
         SuperscriptBox[/ S% u/ \, ]3 E% k
          RowBox[{"(", ! k* ]) \0 w5 n" g/ V
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    4 w- `3 d+ ^& H    ")"}]}]]], "Output",
    / b+ k# {9 f6 }$ Z. w2 H/ ? CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]' V" x% e# f9 C8 n# U( q2 ^7 I
    }, Open  ]],- V1 e0 @' w) R) W

    . x) W. }9 u  w" r+ ?: P& z7 JCell[BoxData[' s5 s* g$ n& F! F4 D" x6 Q
    RowBox[{"For", "[",
    6 {9 `- u1 `- {  RowBox[{
    7 J+ Z" B1 \4 X9 o   RowBox[{"i", "=", "1"}], ",",
      |4 Y5 j" B8 S( S1 g+ X; D   RowBox[{"i", "\[LessEqual]", "9"}], ",",
    - `, G6 z! |: x4 }4 M   RowBox[{"i", "++"}], ",", 7 X; m4 h$ ]1 k2 s1 J
       RowBox[{6 B1 [% [; \( e. g$ e5 m4 H
        RowBox[{"Ca", "[",
    ; q4 i7 h/ q9 a- g, u, q3 I     RowBox[{"[", "i", "]"}], "]"}], "=", 3 _. U9 ]5 z4 `
        RowBox[{"CM", "[",
    7 ^$ G: j% J( S: w7 i     RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",2 u6 z% g% y; N7 s2 q6 d0 E8 V5 g
    CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],9 }8 }1 s8 K7 `2 H& F0 u
    6 d. c1 {/ I# |5 M' K; {% E4 h
    Cell[CellGroupData[{7 [3 \9 P" i4 T. x

    3 J# b9 q# w+ h. k: h2 SCell[BoxData[{7 o" o* {! V' a" Z$ e3 }& {
    RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]", & W6 S2 c% h; Z; q/ A7 \
    RowBox[{"u16", "=", % F5 i/ L! r6 B$ ^1 e
      RowBox[{' Y) {0 D: s2 b, b, F
       RowBox[{"Exp", "[", $ N! ]1 N3 F* r% l9 Y; k* a( i
        RowBox[{
    . |: F  S( E/ W) l/ M     RowBox[{
    ) q0 H& {; f) g7 R      RowBox[{"-", $ n( D" G1 Y5 J; z' l( r) ?( j# y( G+ \
           RowBox[{
    $ A8 D& O  i+ M% Q& U" @        RowBox[{"(", & L, Q1 B. m& `9 L5 V/ \
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    : F. s0 ?1 ?1 f! O. `, L        RowBox[{"(", " n. N. f$ z2 H+ T
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],% G1 C; O3 ~: `$ L1 x  m
         "]"}], "/.", "DeltaX"}]}]}], "Input",8 j; j7 V6 L' I
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    5 _" x- k5 p0 _  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9, * Q" }6 m3 i1 i9 B$ J
      3.5779615751004367`*^9}}],
    : O8 r" H; C# S8 H
    3 e0 e- a* a1 yCell[BoxData[5 ^3 A: T. c# F! T$ I. B
    RowBox[{"{", 8 {) u6 b2 s9 G
      RowBox[{  x2 X& o2 |5 X& B
      "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
    $ @9 h* I6 {3 R! \9 e   "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
    0 d+ ]$ w2 u% h, f6 ?  "}"}]], "Output",
    7 B0 U) }5 F1 Z( w* l3 U; Q1 M( U CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],
    ; O3 n- ~) U) E* r5 y$ @: z' [# D. I9 L, T
    Cell[BoxData[
    . j0 ]+ ~/ \1 `  o- F5 l) w8 { SuperscriptBox["\[ExponentialE]", : g8 i, X$ I  k: E' n/ M7 b3 q
      RowBox[{"3.141592653589793`", " ",
    8 z: v) h( I; R! H* A2 T3 b1 h2 |   RowBox[{"(", 7 U  I. [' r/ x  n0 l( f) Q
        RowBox[{; j0 X6 f; g* ]% I" ~" j# p
         RowBox[{"-",
    / a. ?6 b' I3 O      SuperscriptBox[0 J9 x0 h/ u& d
           RowBox[{"(", & i- E, d" Q; `4 O  Z5 M
            RowBox[{5 P# Z- b( m' f
             RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", 5 n+ o6 `" E% k; J6 S: X6 `
         SuperscriptBox[9 R' E. D2 a8 ^3 v
          RowBox[{"(",
    , Y# b! Q3 R/ X1 i( Q7 D% a9 K% P       RowBox[{2 q5 A( @( Q! \3 G
            RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
    " j3 I, O  M% o6 _0 H     SuperscriptBox[
    * G+ X5 N+ z& }# T4 `- ~! s( K      RowBox[{"(",
    : {: T/ e+ `/ Q9 @  F8 T( w       RowBox[{
    # L/ @% v: Y) z: ^        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", 0 j( j, J$ t, |7 {  u" l
         SuperscriptBox[
    , I8 d4 X: x( m+ D/ Y      RowBox[{"(", , h6 |/ l% _# Q
           RowBox[{
    , l! [7 p% o9 _6 O, q        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
    $ k, x$ g/ H9 F3 E: M- t     SuperscriptBox[5 _- e7 M3 A2 k, \  J4 p& |
          RowBox[{"(",
    ; Z- i( J' p4 T) e. p       RowBox[{* Z) b4 E( ]" w8 d9 E
            RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
    : ~+ _; |+ M1 K& P! U     SuperscriptBox[, s+ }, ~2 U8 O( l7 u, Y% W  w
          RowBox[{"(",
    & f1 O# @6 u" S; ?) k. V. _. c3 b       RowBox[{
    1 @# M2 N1 @2 h. `6 f        RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", , E1 ?8 E" Z& E* l: D* g' y' L$ o# {
         SuperscriptBox[/ e$ `) W) T: X
          RowBox[{"(",
    ) |% X, q  s8 [, B0 A       RowBox[{" J' j$ ?' I' @" \4 h1 m
            RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
    4 [9 a4 B+ f) p3 k1 e1 X6 j, e* y, F     SuperscriptBox[! l) A% ~2 E' }( N' ^5 f' y' Y6 S
          RowBox[{"(",
    6 Q! V) _9 N6 Y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    - }7 }% R) z3 R     SuperscriptBox[  O/ z) t+ X" _( Z8 u8 @
          RowBox[{"(",
    " F! |  A. l# j+ @" n6 G; A( N$ W/ C       RowBox[{0 B, `6 \% W, i  {
            RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",) _) p6 L# V( h3 }
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
    - i5 ]8 q2 L7 L' A}, Open  ]],
    6 \" N, _7 y. F& \- a1 e$ ^7 j" q
    Cell[CellGroupData[{
    9 U8 Z* u1 L7 k& J
    . D# ?1 a  F; eCell[BoxData[{8 w3 [9 Z6 [  |; g
    RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]", * E" I5 W' v: r5 z& @
    RowBox[{"u17", "=",
    1 J: @$ p/ t4 B" H: v  RowBox[{% u8 x; N$ W; ?/ Z1 N/ H0 [+ P( U
       RowBox[{"Exp", "[", / |2 Z2 G: T( D6 m" }+ E+ n
        RowBox[{
    1 G* L( Y3 l- [8 B     RowBox[{% w+ a2 P2 F7 K4 g3 y# y$ h6 [
          RowBox[{"-", 1 ^5 H% z4 Q7 G
           RowBox[{
    8 S- t) q2 A+ K% v5 E6 M        RowBox[{"(",   m) s" ^! d" ~4 r7 e
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    , F: Z  M! ~9 M% \% A        RowBox[{"(", : o  ?. n" P  b
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],) T5 ]! b9 l8 q  V
         "]"}], "/.", "DeltaX"}]}]}], "Input",/ z+ m2 L5 u- e' u0 b. y
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {- h+ S, O- p+ t4 g1 f9 w  m# i
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9,
    " P3 y- ~# b7 p# p  3.577961578953644*^9}}],
    3 d8 a- `( a4 a/ E
    - N) G: j6 e( ~3 B& P, DCell[BoxData[- T! g: K% T" a: n% U
    RowBox[{"{",
    * f& `7 x& I2 X  RowBox[{
    9 u3 R3 B2 s; C9 j, ~3 O3 M  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", - M) T( t% o/ Y! |9 s1 S
       "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}], 3 r' G& ~" ?' E
      "}"}]], "Output",
    ( U8 U, W! U! _0 Q. K CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
    7 {$ F  H* x- S( g1 c
      _4 q! \/ x5 m# n! ]% vCell[BoxData[
    : e; N; G. C% t. C: W0 b SuperscriptBox["\[ExponentialE]",
      V" [" A- P/ `( Y+ V1 X  RowBox[{"3.141592653589793`", " ", & T2 u9 A4 E0 |5 l* l3 v
       RowBox[{"(",
    ; g6 J8 {# T8 B. \' B8 X; s    RowBox[{
    " R0 M& q' P7 ~     RowBox[{"-",
    ' `& k. B2 B! i) h7 e+ c# Z      SuperscriptBox[- \2 ?" A1 \* J  O/ V$ ?
           RowBox[{"(",
    9 b0 [1 \  [: a) `        RowBox[{
    7 D5 ?2 h  ?; T' @' A$ Z         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
    . r( b2 P$ H/ D6 Y     SuperscriptBox[3 O) `8 E( N" C7 U. E0 h" n# l9 R
          RowBox[{"(", & r, s# p* [9 j# V7 a5 u* {
           RowBox[{
    0 o7 p+ M# J* D: r5 q5 l        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
    6 Y& g0 G' a% d7 |3 B     SuperscriptBox[! M& g# H' [4 h* ?- @9 j" s
          RowBox[{"(",
    2 d6 _8 S& ^* j3 Y$ W1 P       RowBox[{
    - }+ x) m# W, R# F, Y* b        RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
    & P7 q& @3 O7 N( x  J$ k1 j. k4 G     SuperscriptBox[
    , s) @) q1 j' c/ R( j      RowBox[{"(", 0 x8 k0 a7 {" c& Y: [/ v+ }! A- y
           RowBox[{
    0 o0 M9 ~: x; a! Z. \; [$ u        RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
      @* P9 }1 f. S6 h     SuperscriptBox[# o/ U) B# g( t, z# b
          RowBox[{"(",
    $ ^9 M: u+ K: g$ X1 n       RowBox[{
    - }0 d) A' v& X2 Y  O6 s: Z3 }        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    ! D% K3 ?* b) M2 i$ @, g+ _     SuperscriptBox[$ k! e: v0 A8 ^, T% A# o
          RowBox[{"(", 1 }! A. q! C+ u0 N0 k# s) N! ?
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    . n( I7 i; w9 y) i" a& R     SuperscriptBox[
    ; \) L8 m0 I0 s# S      RowBox[{"(",
    6 f8 l  J( b5 i9 C, M       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    4 c' I0 _) \) i+ V9 i     SuperscriptBox[2 }9 G& _  E- K* {3 j: b
          RowBox[{"(", 7 J- W, o# j- E5 Q* y1 P9 L5 P
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ; B, S" P4 `* t3 n+ ]     SuperscriptBox[7 n+ B; L# ?% M
          RowBox[{"(",
    ' @1 c# r# s4 K7 y( l       RowBox[{
    / \0 e+ s2 \5 ^) h+ b        RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}],
    8 }& A2 g2 _5 {    ")"}]}]]], "Output",8 ^1 }& q" e! R# X, h2 r  q
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
    " ?- _7 s* d8 G7 O! T}, Open  ]],
    2 s+ H' b' C9 |% L' M% b1 G+ d) @6 W- a2 y9 n  Q. H
    Cell[CellGroupData[{
    / W4 K# [  K) Q% G" ]3 ~. z0 w6 r. [" ?: F) `& w' k
    Cell[BoxData[{- A2 s+ v4 ]$ O8 Q  d2 w" |
    RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]", 8 _) Y# k6 G1 @: A
    RowBox[{"u18", "=",
    . ]) w' Q7 f9 P3 `4 {; Q- Z  RowBox[{* @2 g1 M% W9 s: E! ]' p. Q
       RowBox[{"Exp", "[", & U0 n4 n7 o% I) S" m
        RowBox[{( _6 f$ q5 N  X! A9 K
         RowBox[{
    . y5 i" F- h8 I      RowBox[{"-", 1 N' k) T5 [. h6 U5 f% K
           RowBox[{7 p: D2 d- W( X9 L
            RowBox[{"(",   l3 s* X$ J( _( ~7 x2 `
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", . l7 M! n( q- v. l- x8 \
            RowBox[{"(",
    / R; r- e% y: f. R8 m. ?         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    8 p5 p3 g- V- `5 s9 p. f9 j     "]"}], "/.", "DeltaX"}]}]}], "Input",
    5 o! w4 `8 W5 \' d# V4 {( S CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    2 f# b% X5 O7 B  s  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9, ; f7 `1 w8 N+ k' X, s( R* D( h
      3.5779615828848505`*^9}}],
    . H6 b( Q* m3 \& S9 X" D
      u& N9 b7 P6 Y- w, J5 M7 kCell[BoxData[( Y0 n; ]* Q9 O- D
    RowBox[{"{",
    $ @8 R/ T/ r+ T9 k0 J' F+ q  RowBox[{; n3 i9 T! V0 d: q
      "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",   u" |; s/ D& L" [& g
       "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], ; l. e% {# }9 |  O2 h( ?- Y
      "}"}]], "Output",' p" w2 ]2 i. }6 y' n: Z: r
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
    ( F8 B9 `6 q; o& E. r3 p, n
    + T: W& f  ~# nCell[BoxData[7 h" y. e! Y6 x8 ~2 d
    SuperscriptBox["\[ExponentialE]",
    * p. m0 [: C6 i; a+ S3 z8 K4 r  RowBox[{"3.141592653589793`", " ", 6 L8 u% t( I3 O# C
       RowBox[{"(", 7 X' b( [. t( c& C6 ~
        RowBox[{7 x5 I9 V# z% n
         RowBox[{"-", ; f/ A! L- T1 ?; a
          SuperscriptBox[, Q5 E2 F) o8 M4 E! \
           RowBox[{"(", ( @- h8 `0 S! V
            RowBox[{/ U8 I; H. F5 i+ s4 B1 |/ J; N
             RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    $ H* {% J3 n$ @7 |0 W0 Z     SuperscriptBox[1 j7 T8 n( E$ z. l, ?) z
          RowBox[{"(",
    & t) `, ~( Q+ a7 ]$ k: m, v% _, F       RowBox[{
    2 Z$ Z; v- Z& n( g) L) q. D        RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-", ( q/ H$ H0 O0 A/ N3 w' t# C$ S: A
         SuperscriptBox[1 S- R$ V, \" A+ ]+ @3 R# s9 h
          RowBox[{"(",
    : U5 y* N3 j* g! l4 b9 _       RowBox[{* n7 A7 a% t; {2 x1 y
            RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
    # B# L- x* ~3 m' c! k     SuperscriptBox[! r) a! N: n4 [7 n7 Q. [
          RowBox[{"(",
    3 ^7 r( S( ^3 o7 n: y       RowBox[{$ O* B. ^! N9 T; ]1 m0 W5 g5 j
            RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
      B$ }  g' r: i# X9 t" E8 s, X     SuperscriptBox[' n  q/ h& Y: T/ h# O! q5 C
          RowBox[{"(",
    ; J  B+ _* N: {! F4 t  _       RowBox[{
    " v4 V* r6 U4 q, U8 g        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    4 N6 ?  x* F2 K% [! T     SuperscriptBox[5 j( y5 R5 b* L9 O8 `6 r% U! x
          RowBox[{"(",
    $ G4 P0 i1 k& W( X$ \6 g% c& p" E       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    # j( K0 S+ L5 @: }; T2 }3 z     SuperscriptBox[8 Y7 t8 ^' x- i9 w1 z
          RowBox[{"(", & p/ Z2 v. Q% n; N
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    & `, p5 T1 _$ ]* y3 ~: l% z     SuperscriptBox[
    ( v5 U  }5 ?5 D3 X3 L4 i      RowBox[{"(",
    9 a) k; X0 ]; S  ~       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", . m/ r9 A8 N- S6 T+ k1 m
         SuperscriptBox[
    3 Z3 U9 {$ ]+ N3 I* J3 k      RowBox[{"(", 7 m9 Q! r  f! `# v
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    % P; H4 V& D: h    ")"}]}]]], "Output",. ]6 M) C0 b2 \: b
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]5 N# t- q0 l! _# [0 B/ Z, @
    }, Open  ]],' a: F0 V% Q7 K3 o7 ]
    , q+ |# e- V2 V! U  w- a& O
    Cell[CellGroupData[{
    ) u  X1 f4 _$ }  x4 I: D2 N4 p
    % ], Z6 V6 x( [+ K. kCell[BoxData[{9 J2 \% [6 F3 ^
    RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
    - D, X# E& |1 ?9 h RowBox[{"u19", "=",
    , e" H) j, S6 \  RowBox[{
    : B# V' W, _- Z0 \# f+ S& t   RowBox[{"Exp", "[", 8 ~/ A/ X) l" N
        RowBox[{
    . `) ~% O, ?& f( r     RowBox[{
      V: \5 g# @  g; b2 Q3 q      RowBox[{"-", ! E- o# k( W8 S, S  b$ J3 |
           RowBox[{1 O% V  b% b, w; Q  m2 i
            RowBox[{"(", / ?* c( N' b5 o6 ~- u' E+ p
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 8 ^- J# I( d# I, U  v0 u
            RowBox[{"(",
    , n; ?# n: {. N' Y9 m0 t! E         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    * \4 v' r" ]" V6 o! L     "]"}], "/.", "DeltaX"}]}]}], "Input",, j& M. B" ]& ?0 n* \9 T. B+ M
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    7 v, o# h& _" R8 X  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, 1 q: n! F# h" ~' g6 c
      3.577961588890861*^9}}],3 {; ~5 U" p, o5 X

    8 L/ r5 X( B( y5 f2 M7 pCell[BoxData[& E/ i) k" S4 `* f6 V# f$ t5 t* p
    RowBox[{"{", 1 x! B7 D/ m; ?) {' E: }7 T
      RowBox[{7 Z+ _3 F8 @/ G" H" [- A* q
      "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
    4 y" q! M9 L' `! T0 g7 T   "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}], $ o, o$ H5 N; K3 T  g1 u
      "}"}]], "Output",
    0 S) i( h' N3 n, B$ W# b/ J0 e) | CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
    + Q4 {: [, d. p; d8 C9 L1 F$ ~7 x) B9 @  f
    Cell[BoxData[7 _( j2 G5 q) f6 C- N
    SuperscriptBox["\[ExponentialE]", # Z0 z; S, H3 q) ^
      RowBox[{"3.141592653589793`", " ", 3 |9 Y5 F* o6 @8 n/ j
       RowBox[{"(", 3 N; x2 D' @) y" p' k
        RowBox[{
    8 K- y, k  V1 b  c     RowBox[{"-",
    5 G  O( \/ B! @' D. p9 h, H5 I      SuperscriptBox[
    : e# v5 h' ?' D* F0 X       RowBox[{"(",
      G% ~3 I0 y2 _. e/ W2 [        RowBox[{6 b" h9 |/ B# k, N8 e, B; d
             RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
    $ A7 V" M6 W, Y; m7 O3 I* [2 L     SuperscriptBox[: F& R8 ~5 q: {
          RowBox[{"(", ( Q9 O& i0 m9 d
           RowBox[{- q( q4 q- \5 Q  }: F- Z  ^# ^
            RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
    / J# \* L9 f+ `' ^3 g: R     SuperscriptBox[
    $ \8 v6 R1 |& d, u' i/ P) {% Q$ N8 U      RowBox[{"(",
    + n! ?, j; z+ C7 W$ A/ Q       RowBox[{
    / j, Y5 `/ z7 t/ Y        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", & U/ X( y; m& w$ q! ^
         SuperscriptBox[& C8 |4 i2 f' A! m- n3 z) h
          RowBox[{"(", / V. ]; v3 w, ~1 o; Z  A$ y  ~
           RowBox[{) z6 E2 m1 P5 o% Y% O0 [! v
            RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-", . [6 V4 ]9 F0 ^
         SuperscriptBox[
    ! A, Q5 H8 b. Q' E; [9 U+ L/ J      RowBox[{"(",
    # T! [2 C. H0 Z  I4 u: s9 J% D1 M( B2 n       RowBox[{
    - A! F; f  I2 I5 K6 m* K        RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
    # a4 A2 L, i; _! W$ B     SuperscriptBox[
    0 Y& D3 F8 P- @5 g# z5 A      RowBox[{"(",
    4 B/ k0 J; [2 d! |       RowBox[{: |% d8 f8 [! w2 _$ |3 c
            RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", 8 ^, s% d4 [8 I+ U: N8 D4 \
         SuperscriptBox[- C4 X3 T( I- c5 W' W" E7 Z3 X& m
          RowBox[{"(", ( Y, i. I7 T( X9 g! G
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    ; u9 H$ _. x; X, m     SuperscriptBox[
    - s* W1 |& s) Y. \+ e% U8 f      RowBox[{"(",
    - `& M& w- s" \$ [: g: Z! r0 b       RowBox[{
    " C# M$ ?' Q. g7 ~( o- w& x        RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
    0 ^/ O7 |4 U- c* n$ M     SuperscriptBox[( b& W# x$ e  t3 @1 \9 M" c& v( S& b
          RowBox[{"(", + j& Z# J) b. ~  e8 y) w' t
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    : e8 i- t8 q5 O3 m' X7 F    ")"}]}]]], "Output",' T" g- Y" P+ B+ H6 u' v& W
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
    ; ?' c* I' y8 L% P}, Open  ]],
    % S! H2 _6 a9 s. Q! G& [, A+ O* h5 m! _! r: E
    Cell[CellGroupData[{6 V" L$ g2 m6 A
    4 t8 T8 R2 v% }+ c2 g
    Cell[BoxData[{9 u. n6 Z" E4 N' |
    RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]",
    3 i- a4 M: e% M6 Z& b RowBox[{"u20", "=",
      {+ U' z/ {9 K1 s0 G  RowBox[{- G- u  r* x! o& o# B% }/ q2 |
       RowBox[{"Exp", "[", ; \8 n' W  R3 H6 K# I
        RowBox[{6 J2 t; L8 y7 e/ @$ h
         RowBox[{  [4 ]1 z  y2 Q4 T3 H1 U
          RowBox[{"-",
    1 X" r" \4 z8 t* H: o9 n       RowBox[{2 n9 m- l. u9 h& i( {, n1 n
            RowBox[{"(",
    & o! l$ o6 y& b" b. M( q         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",   c6 i  b0 H6 B# P+ X* b( i$ n( W
            RowBox[{"(", , @% t8 z8 x2 u
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    * O  {5 ?4 g- X$ j     "]"}], "/.", "DeltaX"}]}]}], "Input",
    " ]$ Z( \: ?7 g CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ( m/ L* v9 ]6 H3 u; G4 [6 P  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
    & p6 }9 g. F5 d8 a" \; k# k  3.57796159382047*^9}}],
    + f0 Z, m( x; e. P. ~5 |; e- K: [2 W( P; h0 x2 J
    Cell[BoxData[) B  G& Y  ?7 }; O+ k0 C+ k* S( e
    RowBox[{"{",
    / S# z# n3 b* d3 D/ R- |7 L5 f3 t  RowBox[{
    * f6 F( x; o' q+ ^9 i" r& N# c  "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
    + }4 R3 c9 x1 ?2 \. A; I0 E! T   "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}], " |. d2 G) [1 {1 y5 }
      "}"}]], "Output",
    7 n0 L  [  \2 A CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],! a; ^% g% i% d

    , o: e" K7 K  K5 s& YCell[BoxData[
    9 z. m5 `/ U9 a5 z) G% d. A SuperscriptBox["\[ExponentialE]", ( K7 o( j9 r; ]" M0 H5 W6 O
      RowBox[{"3.141592653589793`", " ",
    7 @- Y; F, b  l. a* X   RowBox[{"(", ! L" B$ D* B5 o+ r
        RowBox[{+ g" B& O. k* a  D" j! W4 g8 L2 k
         RowBox[{"-", ! {" E0 K. |* U3 o1 B
          SuperscriptBox[
    7 A5 G6 Q& U: |0 H9 W6 S3 \) v       RowBox[{"(",
    * c: Z* n3 o+ M$ m        RowBox[{$ w6 N* p) ]# L, ~
             RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
    & w* n( E7 q# p$ ^     SuperscriptBox[# J% D4 X0 L5 x( N3 z3 E/ A: P
          RowBox[{"(",
    6 \9 e+ g- w* U6 F" N0 K       RowBox[{
    , i( c/ I8 v2 f! `  ]2 p        RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-", 4 I: N6 |$ v' O' V6 `
         SuperscriptBox[7 H! ]. v( X1 M* q# _) k( b# g
          RowBox[{"(",
    5 z0 c( j# x, I+ R% p       RowBox[{
    $ U7 W$ ]6 o& E; l; {3 g: c        RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    7 U; w( d$ z9 R9 u. t" Z     SuperscriptBox[
    & g/ F1 t+ I% P3 O. p! P      RowBox[{"(", 6 u# y0 z- B( \! |' L
           RowBox[{
    % ?. K# u+ `1 j" G4 B) q3 f  Q5 _        RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
    4 j8 e) V7 F( K9 ~: {: i     SuperscriptBox[/ d- Z! m1 j! y( t
          RowBox[{"(", ; j5 F6 E" x) y! Q0 p7 I0 y
           RowBox[{: m2 e0 n, `9 o. v" C; b
            RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", 6 E7 J/ U7 x" R8 o2 h
         SuperscriptBox[
    + W6 W# e* h6 \      RowBox[{"(", 9 k% y# C  O2 |, j, C
           RowBox[{
    / O! e) [/ V0 H9 l        RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", & B& L) \% m$ q+ ^  p
         SuperscriptBox[- x( M- J& E' |. C% d
          RowBox[{"(",
    + G- C# ^0 C" F  j- ]       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", , \5 g' P$ w7 p) S0 t5 s
         SuperscriptBox[
    4 q1 r# V# r) j      RowBox[{"(", , M, v9 p: X3 N! K9 ?. U
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 8 W( E" j$ J+ b, n0 B; Q) ]2 i8 `
         SuperscriptBox[) l  T  Y; v  R$ `0 P
          RowBox[{"(",
    3 t$ N7 J" [6 W, \1 }% R       RowBox[{
    6 g$ u! W! o6 H/ c$ E        RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], - h6 c( D4 F- z/ H8 D* P* g
        ")"}]}]]], "Output",0 B: }# q0 }2 t6 |# e, J+ {: r2 U3 r9 E
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]+ D$ p4 ^8 I! N/ M# K' s0 d
    }, Open  ]],/ W# p% _) S& v7 |% R$ y

    ( i/ k; y/ Z- i( c% QCell[CellGroupData[{9 t1 I7 E8 }& z/ s6 F, N5 l
    7 L2 h2 E4 j1 @0 }% \) O9 E
    Cell[BoxData[{: K: W% `+ T4 ]$ A( E
    RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
    $ N' Q, k. |" K: F  ` RowBox[{"u21", "=", & q; U' D; w" v) z% b
      RowBox[{' h1 Z6 o9 H) v2 w3 `* J! H/ d
       RowBox[{"Exp", "[",
    1 p' r' u8 U. Y! [" l    RowBox[{/ K0 g8 u, ~+ A4 J( Z+ X
         RowBox[{7 `% f$ I0 d! q# G
          RowBox[{"-",
    - w" M/ L# C. n' l1 F       RowBox[{
    & u/ s7 N3 U2 d        RowBox[{"(", ! Y' j' C3 B! F  X' u6 p
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", : B+ g* n- F) X  n/ N+ g
            RowBox[{"(",
    : D; |0 z& {  a$ O         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],5 T3 ]: v( V  T( n  D
         "]"}], "/.", "DeltaX"}]}]}], "Input",0 I6 N# X# M! M5 J& G( e2 f6 x
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    % T+ c9 F' A6 g3 D3 T( \/ ?- B  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
    : ]- S2 M$ S: O" X' v  e3 d& _+ a  3.5779615991556787`*^9}}],
    8 A4 r0 c# a, w& S& T( M7 ^" b% h' V2 w5 e% y, J$ {
    Cell[BoxData[
    7 z/ _5 Z+ C6 z) O; J% } RowBox[{"{",
    . E5 v- k; \6 u+ `0 F! L  RowBox[{
    * U* `" e8 b& \% y! g  "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
    3 |- B' ?4 |" x! o   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}], . [; K3 P( u- u
      "}"}]], "Output",
    # V  L  r  I0 P6 U3 z4 |: f CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],
    " F. L& h1 m7 y% \: |; O! F
    & _4 }! h5 u5 s1 o7 r5 Z5 |Cell[BoxData[
    . K  u) p5 l  i' a. s& t2 S SuperscriptBox["\[ExponentialE]",
    ! N8 a# x' @2 d! u# a  RowBox[{"3.141592653589793`", " ",
    9 {6 i8 V$ T3 ^0 x$ t. _   RowBox[{"(", $ s  S" i/ F* b( p3 U- F: I% _
        RowBox[{% ], }8 W6 ^1 F$ H% i6 J8 A
         RowBox[{"-", + |+ t0 a9 ]3 W. v
          SuperscriptBox[
    : x5 x* {2 o5 c. m       RowBox[{"(",
    & I( o& q3 Y" J: b        RowBox[{3 d7 o! a- f& q
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
    - J, C* S& A9 E5 c% M     SuperscriptBox[5 _1 P4 n6 D/ @
          RowBox[{"(", # \9 i- W5 T5 Y8 f+ c; Y
           RowBox[{: z: C! V2 J! G8 c4 Y; j
            RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", 6 o) f/ U$ v- |0 d( E
         SuperscriptBox[' p( t" J* ?2 d  L; B6 p/ W6 F0 w
          RowBox[{"(",
    7 I, F8 u* a( {4 v       RowBox[{
    : T$ A: G, \4 O, d9 p  W        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
    + K, L. {- }, ?' \, r) W" u     SuperscriptBox[% U. X, Q1 l& d6 v
          RowBox[{"(", 8 J, N8 _2 O/ f: d  E1 f
           RowBox[{
    0 W! ^" e) _( X! M        RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", ) _5 X- ^8 u7 v4 w: }7 T
         SuperscriptBox[
    5 N: L- m% S9 H7 i0 |4 d; \2 k' f      RowBox[{"(", ! n. o4 X  Q' D3 s4 U4 ]
           RowBox[{
    ( a) ]- `+ ]3 o' z$ [+ r0 u' C* C        RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", 2 ~: d8 h, ]. k! ]2 p
         SuperscriptBox[
    9 U& ]6 w* e% J* ?& O) E      RowBox[{"(",
    / ]6 d; d9 e1 t8 [       RowBox[{* p) `/ ~2 N; W5 p, e
            RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    - q* f. ?: H) \; w% W# N     SuperscriptBox[2 [1 e+ z7 x2 u; ^% ^
          RowBox[{"(",
    / |) m- r7 T  N: y* O: B: P+ R       RowBox[{
    ) D) P6 C, D4 w6 \% h: E: [, T        RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", ! o' v9 E: `8 K
         SuperscriptBox[
    . R' V) D( Y- s: R2 k" {      RowBox[{"(", 5 i+ W: w" n5 C, G! V7 X: n8 ]* q
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    . e' P9 E, q8 G) u7 N' }! s     SuperscriptBox[
    % n, i8 d3 ^6 r1 s: F" B6 r      RowBox[{"(", 2 a9 S. v2 b: X6 k1 c
           RowBox[{
    ( y8 ^' H, z7 b4 J' a8 ^; v- k0 j: R/ s' y        RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], 5 }( d8 W! Q" @- }" C' y4 l/ T
        ")"}]}]]], "Output",
    4 ~) i3 k8 A+ M; o1 d, W1 C CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]% y8 _" I% I& T; O4 ]2 V- J8 J
    }, Open  ]],
    ; o4 t7 e2 x6 G( _. d, O7 H2 \0 F9 V9 t& m6 @
    Cell[BoxData["\:62df\:5408wi"], "Input",- u# e9 G) i# \( l  c4 V/ |
    CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],/ {* \7 ]8 x9 F) V1 {4 n6 |3 A
    5 u0 P7 B) ~) v
    Cell[CellGroupData[{! W$ X8 Y' H, P, s1 f

    0 r7 O9 d2 v8 lCell[BoxData[
    7 q, d7 K' r: B+ T" a: X( R. q RowBox[{"y1a", "=",
    6 o1 p- n4 j) T  RowBox[{"Table", "[",
    7 n+ q) h8 N4 ~) C6 q5 r8 A: N6 R   RowBox[{"x", ",", + T# |; r8 t( o  e) F- {
        RowBox[{"{", ) g$ S1 p  U; v3 Q
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",* g) |, g! _- z" u: F
    CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    $ p& `5 ^$ Y, H5 m3 Q4 r! I  3.5779226649375*^9, 3.5779226810625*^9}}],
    / s& G: V3 ~. }, ~' [9 `" H5 I( g, N" B+ E* B( D4 [" A: E' c# O$ I
    Cell[BoxData[; s7 R4 K2 F/ X+ U
    RowBox[{"{", 5 ^8 N7 N3 g/ E
      RowBox[{
    & Q) W4 T3 F' V( t& i  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 5 S6 B; J- Q; }
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",% w6 o6 f6 {/ n$ B  z& K1 O: C1 Y
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 2 V0 P3 T( v" A. K
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    8 c8 E, x  n4 m" z4 S- n   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", : o! V* b/ J1 c/ X3 l3 H% W0 r
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", / A* v; Q% j' R' j: L- s6 d5 d
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", % ?6 B. Q% Q& O5 E$ v
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    " Y, S2 }2 a) X. j8 a   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
    & Y6 p, Q, O0 G# K- R  H0 i  "}"}]], "Output",
    ! T; e/ |1 Z1 D4 E( a CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
    & w' Z3 L8 u( h' H7 S  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]+ f4 p8 {: {6 t/ q* @& _  A+ Q6 D( @
    }, Open  ]],
    7 Y9 g( V' X# r6 \! h
    + Q  r5 ?+ |% C5 {: a. }Cell[CellGroupData[{2 d, n3 r0 c) C

    ; s6 q1 ^" a* p, f1 b3 eCell[BoxData[
    ' N, p- Y8 W$ i8 Y RowBox[{"Data", "[", ! W$ U4 ~2 h: j& Z, h0 V1 G
      RowBox[{"[",
    : _: d+ ~" c$ J4 O$ C   RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",
    8 ?' Q: j8 l; i0 i& n- ^ CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {# c- v; B& K) _! C* ?9 w$ C
       3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],9 }. K. x) g! z2 u' L5 Q4 Y% s# M

    ' ^8 o' n* M2 ~$ z5 rCell[BoxData["0.899882`"], "Output",
    5 x$ _6 J# r& g) E$ B CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, " s1 J3 P! ~: t5 U+ H
       3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9, & O9 Y' w' y" z" V
       3.577961929080654*^9, 3.5780123419375*^9}]
    6 h0 A" _( @: V9 p& s9 \- l}, Open  ]]," j. t, x, z# z; e5 e
    1 j, l! k* l2 b; B$ z' o, E- R
    Cell[BoxData[
    ) y) C/ g$ }9 h# a' z, u; ], I RowBox[{"For", "[",
    % [1 m5 G# r$ g, ?, V8 w4 S  RowBox[{
    $ T; a0 U& {' r" N) }0 [   RowBox[{"i", "=", "1"}], ",",
    ( Y, w1 }0 m& ^0 `, W   RowBox[{"i", "\[LessEqual]", "60"}], ",", ( L8 G3 a4 D# d
       RowBox[{"i", "++"}], ",",
    2 r! [1 K3 _& z, {6 F- \7 i   RowBox[{2 b6 b0 a: B0 {- Y; q6 K" A* b
        RowBox[{"y1a", "[",
    2 C  z+ z) E8 I# g1 [9 M     RowBox[{"[", "i", "]"}], "]"}], "=", 0 p% E6 m% g8 N' @9 p
        RowBox[{"Data", "[",
    0 Y0 F2 i+ M, q" g8 j     RowBox[{"[",
      d  D, y+ }( n9 U1 d. R& L      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",# g, K6 a* x: }. v
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    , i* D; t4 ?* }' L; y4 ?( Q# D   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    2 [+ Y+ X6 `3 u4 s& [   3.577922923203125*^9}, 3.5779588839702806`*^9}],
    ) R" J& w; j* `
    + c( v4 B' B3 }9 Z- QCell[CellGroupData[{+ E% v+ @0 f% X7 N% @, K( s

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

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

    4 y: S! q7 ~: T5 t# B  GCell[BoxData[
    2 r2 f, \5 M* H* \! T' g- J RowBox[{"w1a", "=",
    ! B/ u# g0 h! o! l4 g$ |! d, h0 X  RowBox[{"LeastSquares", "[", 5 v9 B5 u( C0 |; S9 ~+ z- G
       RowBox[{"m60n21", ",", "y1a"}], "]"}]}]], "Input",
    ' }+ ?( y' d9 G5 r& Q CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {' ^: s2 c  |7 Z' u; X/ [6 x
      3.577924662765625*^9, 3.57792466596875*^9}, {3.577962074644508*^9, 4 B6 M# e/ w/ v+ C0 {7 V$ A, ~
      3.5779620748317084`*^9}}],, M/ C& j8 d- K3 |- J

      k5 w+ k. |8 ACell[BoxData[$ u4 ?$ I0 z( N) }- E
    RowBox[{"{", % K9 K4 N) t9 r1 l1 j' O6 F1 Y5 S
      RowBox[{"0.32564305572552416`", ",", "0.500820838606441`", ",",
    8 ~# Y' S7 X) e- n( Z8 u   RowBox[{"-", "0.5945873894818967`"}], ",", 4 g0 _" v+ L- {) J
       RowBox[{"-", "0.1999688587779198`"}], ",", "0.020180806675835994`", ",",
      j7 y" Z; @3 f; x" T) Y( V0 p, o   RowBox[{"-", "0.03345934908892623`"}], ",", "0.25282438852646905`", ",",
    6 C: W  T: G8 r. x  D   RowBox[{"-", "0.17602467625404622`"}], ",", "0.3961180670900672`", ",",
    $ D" |: L6 e2 j' ?3 N: w3 \   "0.02759193650965952`", ",", + K8 B0 H! g& B9 S; m9 U* u' {
       RowBox[{"-", "0.320472847796449`"}], ",", 9 D4 z; P* c  u
       RowBox[{"-", "0.07581214474544527`"}], ",", "0.4812237524557292`", ",",
    2 f- p5 ^) v# Z8 R5 E0 `, L# y   "0.7528674241482847`", ",", "0.6665374509702799`", ",", ! c$ q9 m: D/ ~$ I/ b! w
       "0.22861495086373018`", ",", "0.13092706311748484`", ",",
    5 f) V1 n" G* G   "0.5252475961933538`", ",",
    * h. Y1 F: v) T8 t* g   RowBox[{"-", "0.10599338351843157`"}], ",", "0.6670272593678526`", ",",
    7 Y9 J' r9 p5 V' q; J7 l7 R   "0.23580523388620733`"}], "}"}]], "Output",: [" p. u; v- k# j% M/ ?7 n+ Z0 K
    CellChangeTimes->{3.577924621953125*^9, 3.5779246688125*^9,
    $ y, o$ r4 ~& o* a  3.5779575884583836`*^9, 3.577958952875601*^9, 3.5779620806661186`*^9, 9 F7 E3 l2 f- S2 \
      3.578012349875*^9}]8 _- d$ R% v( W* c2 x
    }, Open  ]],, `% d# i9 v, R# g5 }) `
    9 c: {. G/ T; B# a- P& |
    Cell[CellGroupData[{1 ^# S" s4 [3 v0 R3 L  o

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

    ! @& ]/ Y) X$ T: k. dCell[CellGroupData[{
    9 z1 o  i5 z7 W! s& A  w$ Q- w2 B' e* |' K0 O, W" L
    Cell[BoxData[
    * {! ~, q0 N! y9 m5 |" u RowBox[{"y1fit", "=", 4 b2 C4 [2 h! y2 W  f
      RowBox[{"Table", "[", : u9 S/ a. L" b0 T/ U, S% z' y% f
       RowBox[{"x", ",", / V$ S, r4 ]/ I! Q, a
        RowBox[{"{",
    - B- b$ w6 I. E& A0 {  _, q/ v     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
    + ^8 ]& o' n2 [0 Y1 C7 c CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {
    ; G8 _, i0 b: F- I: }, ]8 }  3.5779252768125*^9, 3.577925277484375*^9}}],  B, M. B. Y& ~  M; l4 m

    " g4 @( q; K- T- k  |; U1 w* TCell[BoxData[
    % K2 F# j  l( m2 y3 T, t RowBox[{"{", 0 q) L; Q: d2 G9 \
      RowBox[{
    * U+ [3 @3 I& }# l! L! m3 s/ [; x  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 }. ?, j* \* i5 R. P   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    8 E3 Y# u' }0 K% A6 J2 @$ J3 q    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", & n; q7 y" Y# i- \
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ; o7 j1 h* x: O% S
       ",", "29"}], "}"}]], "Output",
    6 o7 x9 T* S$ q. } CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9,
    5 x* C  `- c* k6 d  3.577957594916795*^9, 3.5779589579612093`*^9, 3.5779621294942036`*^9, ! c1 P8 {* d6 t+ k; O8 a2 }. V) G
      3.57801235340625*^9}]5 n' {  K" Y* b: J
    }, Open  ]],
    0 _! ^* ?$ W9 p) ?
    & ]1 V, H0 _4 t4 A% h7 RCell[BoxData[: Q+ c+ z* i" _' |7 n: \
    RowBox[{"For", "[",
    ( Q  J8 L/ }6 N. B- B  RowBox[{3 S' r! K) P" y- I, G" A
       RowBox[{"i", "=", "61"}], ",",
    ( G0 G9 }, s" }$ ?2 z; I   RowBox[{"i", "\[LessEqual]", "89"}], ",", % E: M$ j# H) ]0 Q  P
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 0 c4 i* D- \  z& ?
       RowBox[{+ I2 p$ m' K5 m# \) q
        RowBox[{
    : b+ z6 n* X$ {     RowBox[{"y1fit", "[", ; l- f0 A9 A" s+ G7 h- i: d
          RowBox[{"[", 9 |1 A2 V" L1 T! q$ i0 ~: I# A
           RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
    1 ~  i0 {" R/ |/ b5 ^     RowBox[{"y1", "/.",
    7 t  k; S3 X; }2 e4 @      RowBox[{"{", , n) T+ Z! x4 m, m" q  {
           RowBox[{$ y0 `( K% g% J
            RowBox[{"x1", "->", 9 j0 ~( l$ y) Z: a' P* u: o4 K
             RowBox[{"Data", "[", 3 Y/ z$ _0 m' K9 t1 g! _8 z  `
              RowBox[{"[",
    ) M- C4 {. t; M8 s( \. T/ X           RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", / K  f4 C# L  z6 V  I
            RowBox[{"x2", "->", . C" M; a- R2 W
             RowBox[{"Data", "[",
    # J: k/ N% }# ^1 A- }5 j          RowBox[{"[", 8 m4 Q4 v0 v5 d
               RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    2 J2 h: A& g  @6 W5 Y        RowBox[{"x3", "->", 2 \( ?/ ^" A9 |; U0 z8 C4 k- L3 ]
             RowBox[{"Data", "[", . X+ t+ j; E5 [& a
              RowBox[{"[",
    ) H; @" j: T1 }, s( m& o3 y/ a7 d+ M           RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 3 O* ?9 y+ Y( u; X4 D) w
            RowBox[{"x4", "->",
    0 C! X. q* O7 s3 v8 \( H/ z% c         RowBox[{"Data", "[", 6 v- j2 Y3 Y5 K
              RowBox[{"[",
    # E1 c5 g6 t3 ?9 G$ u/ P' V# O) w           RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    - o9 S1 |, ~, l# u' ?! [        RowBox[{"x5", "->", 4 x5 S3 R  Y) D0 c- t, t/ n
             RowBox[{"Data", "[",
    5 t7 J& O* ~* d& H- ~          RowBox[{"[", ) ^# P8 N& f7 r5 j& z  V0 L' b
               RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    " a5 H3 }, s; _! f" _" M" r        RowBox[{"x6", "->",
    , ?$ L( S6 e+ S' \6 f         RowBox[{"Data", "[",
    : V" ^+ e% d8 i          RowBox[{"[",
    0 G3 V% Z" c% i, P9 [           RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", - p# B1 e$ o. Y( m9 T
            RowBox[{"x7", "->", ' Y4 |3 p/ k3 y
             RowBox[{"Data", "[",
    5 L0 I4 e6 v. x" h, j+ Y6 \2 f; b          RowBox[{"[",
    * x& A1 z. W* S0 C0 o           RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
    & n2 _  d; {; w1 I        RowBox[{"x8", "->",
    - d5 Y5 `  e, n$ z2 Q$ {) F2 G& H, q         RowBox[{"Data", "[", . ]' h3 s4 q: V$ L4 b+ d4 W
              RowBox[{"[",
    3 _! D) r6 \; z1 Y  i           RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", , I& A) v4 @- z- L' J1 }
            RowBox[{"x9", "->",
    & m$ M" d. r8 }0 E) j: V         RowBox[{"Data", "[",
    8 W2 I7 t7 E; Y/ j7 }7 P          RowBox[{"[", 2 X" U+ ]2 i1 ~' B, t! X% K: z
               RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}],
    : N# s- j/ d0 }" j" C1 I  "\[IndentingNewLine]", "]"}]], "Input",, L! l  T4 k8 W7 n! I
    CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {& p6 e1 s, _* G$ t: I4 ?
      3.577925286140625*^9, 3.577925306765625*^9}, {3.577958922517948*^9, ; {# t9 g  \9 T. ^% S* ?8 u" q
      3.577958922549148*^9}}],: u* Z$ _1 Y" b9 H# t6 i4 s

    4 b$ b1 \0 f+ S8 Z; x  }Cell[CellGroupData[{
      Y' ?) A: `  @' p  `  p' P
    4 A7 T/ N- Y; x' R% [4 U* ?5 {Cell[BoxData["y1fit"], "Input",* r) ]) Z& ?, q" ^1 F
    CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {
    ) M" c+ j6 C/ N8 N  3.577925040484375*^9, 3.5779250440625*^9}}],
    3 O9 |, e1 e! F+ _' t
    , t# J# i: S' Z+ f9 k  Z: |( h3 k) cCell[BoxData[: `* {7 l: ^# ^0 r3 f2 h
    RowBox[{"{",
    ( |) J; ^/ T% i' l! i; a  RowBox[{. I3 b$ I) f- J7 ~1 }7 G4 X
      "0.43193416525930517`", ",", "0.4501634853493982`", ",",
    % k8 B+ x6 r' c+ g6 G   "0.33336034768525247`", ",", "0.4418609896858925`", ",", + A' J6 x- k3 K4 m4 B) n2 A0 I% d
       "0.41030378932283024`", ",", "0.516814798191575`", ",",
    7 F, \( M( b! R$ r   "0.4476631213729994`", ",", "0.3016552978696669`", ",", 5 U8 i6 ?( [% C. E
       "0.378122167437847`", ",", "0.020339844919720733`", ",", ; X6 _8 C* ?" [) v" U5 B) e0 z
       "0.018745375782087376`", ",", "0.2919925992695025`", ",", ( C3 Y3 N' }- D6 h8 |
       "0.2649067959681263`", ",", "0.16343444284525593`", ",",
    9 v/ c/ A- f0 i  q7 v) {& r6 z- m   "0.4182466778551563`", ",", "0.27347752211364934`", ",", # x! J& G* P) Z! V) q
       "0.38554057386385654`", ",", "0.35253160453718047`", ",", % A$ P# I2 D) g7 r) r
       "0.2054745841100774`", ",", "0.45504377112716676`", ",",
      {3 w  b/ W: p! z   "0.1598805094678612`", ",", "0.18662509982279485`", ",",
    7 `/ E( O$ S1 z$ ^0 U  `" _   "0.10684797493248213`", ",", "0.013349212673286828`", ",", * p) }" S6 h  P1 p( C
       "0.08215836003004297`", ",", "0.2979041599362813`", ",", , a0 ?+ y9 a( ?+ ]  C
       "0.05995976512343641`", ",", "0.3884793499104568`", ",", $ |2 |  p6 L9 C$ m  x
       "0.5361889337034293`"}], "}"}]], "Output",
      K4 D0 z! E% h4 c* I; [  o7 Y CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9, & s4 Q8 S: U/ E& Z+ ^
      3.577925312375*^9, 3.5779575978808002`*^9, 3.5779589654960227`*^9,
    ) \* B) |- o7 X* k; [" S  3.5779621416934247`*^9, 3.578012355546875*^9}]# t3 d& X2 J; o0 R3 X
    }, Open  ]],
    # N0 I, @" G. h  l% J% q' z, `* n( f
    Cell[CellGroupData[{' ?  K; _% X$ N  `

    . F- ~& ~. G2 g& aCell[BoxData[' \  @4 ~! r: q: n& }, Y9 Z
    RowBox[{"y1fit", "=",
    ( A  S8 p6 r; J0 o" `  RowBox[{"{",
    ) J. k5 [; u, N5 a4 l  `   RowBox[{
    7 g$ i! n5 d" s) W% ~1 J" C   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ( F6 S* N) u% V    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    3 Y) c& j2 |) Y- ]1 h    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", # X7 x0 a9 A6 L
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", 7 u8 A9 A& t6 |8 N
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", : G* k4 @6 J0 l) s
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", 9 ]  i; ?3 q5 G' p; P# ^2 U
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ' Z3 G. u* R# \$ m/ u
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    1 ?( X8 k1 H' I, C; c    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
      K4 A# V+ {# c6 m, v    "0.4319341652593058", ",", "0.4319341652593058`", ",", . ]! Z( e- x2 M1 N$ q  q
        "0.45016348534939865`", ",", "0.3333603476852527`", ",",
    9 Y3 n) Y* H0 x8 ?    "0.44186098968589294`", ",", "0.41030378932283074`", ",", ( ]6 m* n' q8 P) v, a" y
        "0.5168147981915754`", ",", "0.4476631213729997`", ",", 8 t3 _$ B' i9 T1 U: C
        "0.30165529786966755`", ",", "0.3781221674378473`", ",", 6 L6 M8 j# x0 Y9 W
        "0.020339844919720775`", ",", "0.018745375782087393`", ",",
    & C* U6 u( Y+ I2 h, ]; d+ E    "0.2919925992695026`", ",", "0.26490679596812655`", ",",
    * X+ O1 h. k# ^0 S5 x7 P    "0.16343444284525593`", ",", "0.4182466778551567`", ",",
    ! L' N: y8 F# B# d    "0.27347752211364945`", ",", "0.385540573863857`", ",", - p2 G) y3 B( \
        "0.3525316045371807`", ",", "0.20547458411007796`", ",",
    ( Q$ m/ R7 d: Q" Z    "0.4550437711271672`", ",", "0.1598805094678611`", ",",
    , V* h$ i7 ]0 Z+ ?$ [* o4 O    "0.18662509982279502`", ",", "0.10684797493248224`", ",", * o( x* Y9 D3 y/ o& {% \
        "0.013349212673286806`", ",", "0.08215836003004302`", ",", , y: t& @: ^! i. M4 C, u# j
        "0.2979041599362817`", ",", "0.05995976512343637`", ",",
    8 @* g  H- x; o) ~; \& u: V2 y    "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]}]], "Input",
    + {+ H  E4 M! b& q* _ CellChangeTimes->{{3.577959701349306*^9, 3.5779597161381316`*^9}, {
    % s! q7 r( w) m; ~/ C  3.5779621548286476`*^9, 3.5779621618642597`*^9}}],
    8 \5 A- W/ r' A# |4 Z) B1 B+ ?; ?1 `
    1 f1 r" P$ W6 M# n. K2 r7 O0 NCell[BoxData[
    ( ^/ h" A: Q4 K. j7 ^7 v RowBox[{"{", # f, x0 _1 ?: W( [- |
      RowBox[{
    % ~( i% y" z" Z) B# [# W& s" ?  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 9 ]: v9 \# l: O/ t
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    # q0 V4 z6 |4 ~/ N, G( Q0 @1 r( i    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    + k4 R6 y0 \2 G   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    + e. h1 R' V' U; e7 k   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", / Z1 ~% u* z$ ]5 T
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    ; \0 @- R1 G/ _2 l& ?1 c. n* w   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", 5 Z( @. `: ^' s2 |( P" W% C) |( u
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    & G: B, b: l8 N/ `5 b9 e   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", 9 b; {8 H& [5 h7 R2 P+ L6 u0 m. j" }
       "0.4319341652593058`", ",", "0.4319341652593058`", ",",
    ; }% M# C' W8 \8 X; K   "0.45016348534939865`", ",", "0.3333603476852527`", ",", . e. o9 o7 I& L9 j% m
       "0.44186098968589294`", ",", "0.41030378932283074`", ",", # Q* |/ A9 H" N5 O- m; _7 S" V
       "0.5168147981915754`", ",", "0.4476631213729997`", ",", 2 ?2 k7 @6 B) U# x0 z; m
       "0.30165529786966755`", ",", "0.3781221674378473`", ",", 1 s5 \5 S* {3 u- I9 k- K
       "0.020339844919720775`", ",", "0.018745375782087393`", ",", . F2 w3 L9 s( d4 G5 b
       "0.2919925992695026`", ",", "0.26490679596812655`", ",", * R: q% B* |0 L
       "0.16343444284525593`", ",", "0.4182466778551567`", ",",
    $ c8 m# F$ b( U0 U   "0.27347752211364945`", ",", "0.385540573863857`", ",", , y% }; |1 i2 w# L  {. C' Z
       "0.3525316045371807`", ",", "0.20547458411007796`", ",", 9 o, r; h: k* z
       "0.4550437711271672`", ",", "0.1598805094678611`", ",",
    * Z! ~" B4 x1 k& R" z   "0.18662509982279502`", ",", "0.10684797493248224`", ",", $ h5 F  e# Q" k& j3 i: y3 y
       "0.013349212673286806`", ",", "0.08215836003004302`", ",",
    ( ^" V8 G( K0 c8 v8 j! Z6 Y2 c. ?: o   "0.2979041599362817`", ",", "0.05995976512343637`", ",", " v2 m5 g. K- ^; `5 ?+ w
       "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]], "Output",
    / p# k: M& u: _. d* T7 ` CellChangeTimes->{3.5779597200381384`*^9, 3.5779621650778656`*^9, + K8 c9 J4 ^* Y8 G
      3.5780123569375*^9}]
    7 {1 f! q2 m) D: T/ X}, Open  ]],# N& u! c( E8 e3 n
    # x, {/ ?+ P# n1 Y# }, L
    Cell[CellGroupData[{
    / Y, j1 Z& V2 p7 s+ s# @0 m' O  l5 N' f3 l
    Cell[BoxData[
    5 ?4 U2 w/ K" b7 d7 ?( c  b0 T5 _% D" ? RowBox[{"y10", "=",
    ) z, `- U4 y4 m+ e% k: b  RowBox[{"Table", "[",
    - s6 y# C. m9 I9 J7 h! {' ^   RowBox[{"x", ",", $ |, O' ]% V5 z/ X! {" M" L* o0 ~
        RowBox[{"{",
    8 A4 l$ i+ K7 f: V     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",- k, s& h  H" w3 y# }7 i5 n
    CellChangeTimes->{3.5779253628125*^9}],
    0 g4 T, s) x5 L: g  K( U4 }$ h) {0 L
    Cell[BoxData[
    8 O% n, l: z0 G7 H0 j+ Z: N6 @ RowBox[{"{", ; U& I. j" _$ n0 Q, L2 c
      RowBox[{6 X/ n# f  E0 F4 Q( g5 o4 [
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    / O0 K1 x; O9 G   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",! p3 r0 u$ H" X- E( ]* t( ]# K
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    6 e& Y; K1 Q4 l  {0 E8 ^6 _   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 9 {& q% R& [, q( d$ @2 @# t+ z9 y
       ",", "29"}], "}"}]], "Output",
    : L9 W7 H! R, R$ G CellChangeTimes->{3.57792536553125*^9, 3.577957599565603*^9, * s$ ^' u: B2 I& g+ U
      3.577958967383626*^9, 3.5779621678858705`*^9, 3.578012358609375*^9}]2 {* u; D- J: ^4 O! J, e
    }, Open  ]]," {0 B( v8 v: m& b; z) }# n
    9 ^2 u" O' `3 q) T1 U: j
    Cell[BoxData[
    . O6 q$ z' w+ f! @' n RowBox[{"For", "[", 1 Q) y+ Y" K; u
      RowBox[{. K  m) g7 u  E( q9 M" a7 ?" _$ n2 T9 y
       RowBox[{"i", "=", "61"}], ",",
    # j! |: f* h- K1 e- @# c   RowBox[{"i", "\[LessEqual]", "89"}], ",",
    5 x% s8 N* z- n8 }' v   RowBox[{"i", "++"}], ",", & S7 l0 F" `$ N7 w
       RowBox[{
    # C) {( C0 E( e: d3 e. i7 X    RowBox[{"y10", "[",
    6 R' Z1 W1 b" [5 S     RowBox[{"[",
    0 Y- b) z( s" M, P$ I# D: p. f0 M      RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
      x) g3 V( ^' k+ m$ Z$ X    RowBox[{"Data", "[", % p# x; o4 |8 b3 G8 i7 n9 d$ G8 Z
         RowBox[{"[",
    - F) A* c& c) Z( T! ^* h, j      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
    ( F  Y, n, J) N2 t& D) u CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {  q% q1 E/ Z4 u; \
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    ; h, n/ c* k" n: \1 K' {   3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9},
    , V) J# [3 A/ f6 U+ ]  w' ?   3.577958922549148*^9}],- Z5 U2 x5 o9 V- Z) S0 e
    " R% a; Q5 d9 E
    Cell[CellGroupData[{6 U+ S% d" l$ p' _# ^5 `

    - G/ y$ k- [$ i+ G8 N" vCell[BoxData["y10"], "Input",
    ( h8 x3 A# U, _9 v. M2 Y CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
      t. @6 h7 B5 V+ }3 Y. j   3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}],
    2 k- b4 \6 I+ B/ B- ^- T9 r3 Q4 ~  ]. l; a, A
    Cell[BoxData[# E, v2 G* }: w+ _8 |& }% U/ v
    RowBox[{"{",
    0 ?, y8 r- C2 I" m  RowBox[{
    : Z+ @4 `( u% r2 V' t3 e+ ]  "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",",
    8 w6 ^+ m+ u6 @   "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",", + V2 G8 O% K" A6 p. L( o
       "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
    * j) z* ]6 b/ m6 z; L% F: a   "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
    " F- }) U; Y3 ^9 ^3 @1 E   "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
    # @1 ^) d( {6 S. `! J   "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",", 6 e; Z$ K8 I$ t+ u" K4 x5 k$ C- V
       "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
    ) H0 S/ J2 Y: q! R+ ?6 _0 q9 D   "0.694935`"}], "}"}]], "Output",
    : T( O, q5 N/ T( | CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9,
    9 U2 H1 F% H6 x( Y  3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9,
    ' O7 F" q- @: O9 Z( @; Y- E$ H4 q  3.5779621736734805`*^9, 3.57801236071875*^9}]
    , I5 c& `$ @  S}, Open  ]],7 ]- @! Y6 t( d1 c! U" B
    4 X: k; j4 }& ~9 e5 {" ^
    Cell[CellGroupData[{
    ) m: L' e( G/ Z7 f# E, W8 c+ _- b" D6 d* A3 f0 I
    Cell[BoxData[% I1 x! }( `, g
    RowBox[{"y10", "=", " E* s: l9 S" J; g2 g- Q
      RowBox[{"{", ! e% x1 R# T" C, C# a
       RowBox[{
    8 X  N7 E, ?3 d% U& [   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", , K  s; K: A6 }
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # M, N" t1 o" x; L
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", # J) z* D9 u" K, n  R: c* P
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", * _/ _7 F' |( F
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", % U! u, _8 i3 f4 m. [8 {
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", 4 [! r( o! y& o& S1 [1 o
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    $ d( U9 O$ s2 |5 S) Y    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", ( H! \" z+ _9 w/ A
        "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    1 e( ^2 Z. l) t6 U, S3 h! E    "0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", 8 Y! [% I4 c$ @# c& B1 K4 F. x
        "0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", 4 g3 J0 D5 `; I0 B
        "0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", ; R2 X0 h6 ~2 A1 p
        "0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", ' K( m# N; R( q; A$ X
        "0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",",
    - G. t/ m: ~) W! _" d* o5 C0 S, o8 q    "0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",",
    4 a$ e7 K& ~* I0 c    "0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", 6 I7 Y" B, J& @- Z* c* c" e
        "0.390754`", ",", "0.694935`"}], "}"}]}]], "Input",  _7 }$ Y+ j( z2 \
    CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],
    ) M! ^( D2 P( L/ ^$ q
      a6 Q7 ~7 c( d* ACell[BoxData[
    6 L+ V# f/ a  D; Q/ n/ @2 d RowBox[{"{", 4 U1 G; p+ I1 ^/ R5 L1 g1 ]
      RowBox[{
    0 H# n5 q+ ~, e3 `+ m+ _" l" D  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    + N3 ~$ S6 x) b, B7 x   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",2 {2 c2 `+ x% u1 b* P9 k$ I
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", % i7 ?+ Q2 O* c0 W) b- p" Q* H
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    6 G* I7 g% i  N   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    9 E6 I3 }! R7 u/ V) u   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    " @6 l6 J- n- j! r4 d& C" `   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", 7 q7 }: Q  T! x( _$ Y( R
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    1 V  N; z" k# D+ U   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`", 3 {$ [5 |% H& U5 o  g% c! i
       ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`",
    0 c- J0 F/ v! n( y9 b   ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", 7 m* I2 o; a8 ]+ d6 K
       ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",+ R0 s/ ^. @/ L, ]" B- w, i
        "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
    ' U4 W" W- F% v% c) y8 b8 n0 x   "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
    ; ?4 s, e% I! n- i   "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
    , f# v3 I# u$ [   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",", $ V# J; t6 h1 L0 Q  d
       "0.694935`"}], "}"}]], "Output",
    0 T% ~9 y% c, @+ v0 _' c) t+ B CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9, * l3 p1 n  x' b5 O5 c& z0 B' w
      3.578012361734375*^9}]) C* X' |5 v5 ^$ \( f+ ~
    }, Open  ]],
    # D) E* n1 j. X* r. R$ X" I+ C$ M+ J4 n" r: X
    Cell[CellGroupData[{
    : D# B0 R6 h$ [4 k- |+ _6 K8 |9 ~+ h
    Cell[BoxData[: E) x# ^& R- i" {) i0 k8 r! k- N
    RowBox[{"p1a", "=",
    $ w& i& [8 Q$ x$ _2 Y  RowBox[{"ListPlot", "[",
    5 n/ t! F" ]' I+ g   RowBox[{"y1fit", ",", ' v+ z. `4 f, N8 `! j% x
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", 5 b% E) N' x2 N  Y
        RowBox[{"PlotStyle", "\[Rule]",
    ' x' O$ X  y6 p+ A9 [     RowBox[{"{",
    9 r( |6 z7 a( j1 I      RowBox[{"RGBColor", "[", $ ^5 @9 \& b/ Y2 O  @3 L
           RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",", 1 k. ^! D0 U+ F# ?
        RowBox[{"PlotRange", "\[Rule]",   |5 [7 X1 j& F0 v/ @' {( v5 k! I
         RowBox[{"{", 9 p: X; C- t# O" b
          RowBox[{
    ' k% b% c+ R7 Q& D5 q) s1 T# N       RowBox[{"{",
    8 n1 H& @. u! J' ~9 y- H        RowBox[{"61", ",", "89"}], "}"}], ",",
    ' Q$ Z* i/ X2 L" B' j       RowBox[{"{",
    5 Q0 ?$ n9 W$ c( B9 D7 a6 C, v1 v        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    - y$ C$ k$ F) c: v6 N3 Q4 k    RowBox[{"AxesOrigin", "\[Rule]", - U- E7 R, k7 r- v& h) F
         RowBox[{"{",
    3 Z9 O' _: J7 T' k      RowBox[{"61", ",", "0"}], "}"}]}], ",", " X2 P7 M! P; K& ?
        RowBox[{"Frame", "\[Rule]", "True"}], ",", , w9 X4 m3 O& `0 {8 i( v
        RowBox[{"FrameLabel", "\[Rule]",
    * z/ A/ w0 a. j     RowBox[{"{",
    6 h8 W2 [) A1 L% q, A      RowBox[{. r1 E1 H0 J. q) ^. R' b
          "\"\<\:7089\:6b21\>\"", ",", - r7 C8 I) ~( {  ]- p% b
           "\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\" w. c$ a- _; l" q
    \:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",! L2 `( I- J# N0 |% X& Y) ?: T
    CellChangeTimes->{- `7 g, R1 j' _3 `% O3 X3 t3 [% M
      3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {% ?; G7 z2 r, a
       3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9, , C; H- Q  q- v! U
       3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {
      m- n; k( h' H' R6 o   3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],: u. U3 G+ `. o6 c& c  z

    * g2 u) H$ g' K+ n. E9 L8 YCell[BoxData[( H3 W8 C/ u0 T
    GraphicsBox[{{}, {},
      w5 G$ R: p4 [8 g0 i   {RGBColor[0, 0, 0], LineBox[CompressedData["
    # @  b- |9 ~8 J5 ^1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn+ Q/ u/ b& G- t$ R
    8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq. w: C0 F! x. T
    D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
    & E1 Z* ]  j/ y) J( v- C8 R1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX/ t/ \1 k0 P0 d- _
    C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN6 t% D8 E% `- S+ a
    a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff/ H. f) A, b: \1 N& S$ W
    yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb! J/ j9 `& ]3 a$ Z
    wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59# Z1 _: `2 C) ?' j: j) v
    Y6nGQ3sAieueIw==
    ' A; {, I, o# x$ h  z     "]]}},
    2 ~8 D2 ?: S2 n7 n! H1 h  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],. I$ t( T6 i# I
      Axes->True,
    0 N5 n5 j$ y) \) c2 X0 W  AxesOrigin->{61, 0},* N8 E3 ?2 b- K
      Frame->True,
    9 q! m0 ?4 B# I+ C, g  FrameLabel->{. K: w3 _* Z1 Q$ S
        FormBox["\"\:7089\:6b21\"", TraditionalForm], # @5 T2 S+ ~4 P* m8 [, }
        FormBox[  q  r) w$ R4 j' F' t& q! b7 ~
        "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
    * L- M# c" B- v4 E3 K/ v( L6 t\:ff09\"", TraditionalForm]},- s  D. }1 t. U! h8 ^! Y2 e, q# d
      PlotRange->{{61, 89}, {0, 1}},; O- Y* n( [2 X% a2 ?$ v
      PlotRangeClipping->True,
    # ^  g0 K' H: Q9 C4 T& G9 Y$ a  PlotRangePadding->{Automatic, Automatic}]], "Output"," L5 L. ~. w& L( [
    CellChangeTimes->{
    " J" d6 @! r7 S& G# k+ K4 x  3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9,
    / f1 _/ l1 B, e8 D" q/ [) K9 t   3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9, ! K5 h+ I& K# D8 ?' E" y1 [% n, N
       3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9}, / ?# x0 A" i9 b& _
       3.577962187510705*^9, 3.578012396921875*^9}]. e2 U, M9 O! g
    }, Open  ]],
    3 C/ w' ?' F" U% ^& ?) u0 B* o# E+ G8 P% b
    Cell[CellGroupData[{( u! s( @+ {9 t6 w4 ^9 s2 b6 `

    & g" i. o7 l# \* c/ F# `Cell[BoxData[
    & o- p# A1 A4 x1 {3 { RowBox[{"p1b", "=", 2 Q1 I8 [& g5 `* M' C; \: A& T
      RowBox[{"ListPlot", "[",
      ^8 P! @# D* W) l8 i   RowBox[{"y10", ",", 0 A7 R+ d! M/ \5 s9 p
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", 4 N* w$ S! y: z( ~2 N& Q! C
        RowBox[{"PlotStyle", "\[Rule]", . G! r8 L0 A8 Z1 U( n3 _* O9 B5 d
         RowBox[{"{", + E1 U  Y0 y- c5 x! n& ]1 ^
          RowBox[{2 H* t4 y; q% v9 }
           RowBox[{"RGBColor", "[", ( t) M" `7 k- Z7 }
            RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
    8 ]9 [+ v( L' T7 I    ",",
    ( p' R9 D4 ~: l    RowBox[{"PlotRange", "\[Rule]",
    2 |. \! H" h' _( i6 Z     RowBox[{"{", , }1 K. b+ v- ^: p9 Y6 ?, ?( k6 V
          RowBox[{* Z5 ^! G. w7 F; v- B4 Q6 J
           RowBox[{"{",
    * u' M0 h: X* T$ `        RowBox[{"61", ",", "89"}], "}"}], ",", ) k/ y  [6 G: e, z9 _
           RowBox[{"{", ; \+ E, j. X( N* Q
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",   a* z' i* R" {# U
        RowBox[{"AxesOrigin", "\[Rule]",
    % u7 m5 r( v% [/ n2 A     RowBox[{"{",
    3 S" |! E3 U% U; w* P7 Q      RowBox[{"61", ",", "0"}], "}"}]}], ",",
    1 c) _+ @' z, M  W$ a    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",, w# x4 H/ x: Q( R
    CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9,
    5 J$ _7 z8 G* m. J  3.5779597764166365`*^9, 3.578012409265625*^9}],& t" C8 t$ u; v7 M; N$ k! E: @

    5 O& q2 w% f/ V, d: v" eCell[BoxData[
    % j+ {0 n3 m3 M GraphicsBox[{{}, {}, 8 r# |+ c7 m  K- I# I, e
       {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["; Y0 p$ N2 g  U7 B& F
    1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ1 p, {2 t  L; ]
    /B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
      y5 j1 d8 Y9 q8 F7 e* iGwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
    2 q8 {5 x8 W5 KGFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy! M# Z0 a) A# U5 ^: p% |4 }
    7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/7 n# V. X, c( y* O
    Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri7 M5 M- ^3 o' [; A/ U8 K' H
    H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
    5 U! G6 [7 {' Q+ ?2 @  CrQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T: s2 ]2 t3 t' t( S
    vA==5 Y) a7 t7 J  F  c1 K/ U( R7 A
         "]]}},1 g6 o& \1 S" z1 d7 ~% X) L
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    + p& X2 I* t0 l! t  S8 {4 _! p1 z  Axes->True,
    6 K& _9 v( |* o/ P1 w# ?, D; g  AxesOrigin->{61, 0},
    # a& N, F! G, t( ]  Frame->True,
    + I5 u2 U7 g2 Z( v3 c! n  PlotRange->{{61, 89}, {0, 1}},1 O$ C6 I# _1 d" j6 K6 l8 e
      PlotRangeClipping->True,
    - c! f3 j# r# c" h* u( O8 c  PlotRangePadding->{Automatic, Automatic}]], "Output",
    ! F7 a6 k  b$ j CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
    4 f. M! i# s9 T) I0 ]& U1 B0 V, K  3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9, 4 d- p8 Y& W% T$ Q7 |1 @
      3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]- Y" o! G8 B6 x: k: Z$ k
    }, Open  ]],8 J; Y1 k% V2 i: G4 L  {
      f' d+ g# z3 r" G& [7 V
    Cell[CellGroupData[{
    # ~2 H, l# g  C% ]5 u9 B3 s2 U7 [" |
    Cell[BoxData[
    5 ~  q, m7 e/ m  I RowBox[{"Show", "[",
    3 F& H! Q* ]* a: C! h- }7 D, C; b  RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],: ]) j+ S: b5 K" U% u  a! z
    ' F& S- N( i8 ?! u+ g
    Cell[BoxData[
    5 y0 I# I# M% x+ V GraphicsBox[{{{}, {},
    : N+ M5 o7 L" ^/ G7 }' l8 W% u  g    {RGBColor[0, 0, 0], LineBox[CompressedData["
    % m& K, m$ N8 y1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn( |! Z6 Q; T$ g& y0 s) M
    8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq4 `# K2 x# v! u9 _+ O: K- f
    D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B, I; P3 H( f: U, r
    1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
    8 J& z; [' n, O( b" x7 j: f3 H3 VC1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN. ?6 j+ F( e4 y; i$ u- g9 L0 r/ z' ^
    a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
    0 f! T- Y, U7 ~3 a: gyqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
      n% ?/ M% N9 J1 twrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
    . D7 ^! A1 [- C4 e4 LY6nGQ3sAieueIw==; q) S0 R' C) ]6 Z4 n
          "]]}}, {{}, {}, , E5 ?+ m2 X( L
        {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["  k, T9 ]2 i; x2 `# w
    1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ: \5 q  z) b- |2 Y" h6 C: Y0 w
    /B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
    % \' O& h3 t+ c4 s/ v2 Z" FGwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
    0 h2 L* q$ N( U3 E& ~' hGFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy- J, ?) V% w& o; r- b5 {
    7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
    ! K4 ^, m3 _8 {* O7 G' \2 @7 [+ jQu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
    7 _8 L$ B* c' x" f+ F5 F0 \4 lH+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV9 I) \; W) o4 r3 [$ R0 [
    rQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T' S7 X. Y  Z8 v, k- n
    vA==
    5 K8 |/ w9 v5 k  b      "]]}}},  t3 u; y- f4 E2 \% U0 M
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],3 E# ~2 Q" K7 d5 g  `
      Axes->True,
    3 q: U% S6 }" Y; h) A* l) ?  AxesOrigin->{61, 0},3 h6 p$ [7 T4 E5 q9 ^: b$ i
      Frame->True,$ s2 g: Y$ }' z& F' A' l7 r
      FrameLabel->{* x& R& }: k. c  p5 _9 f
        FormBox["\"\:7089\:6b21\"", TraditionalForm],
    1 ]: b, X2 b7 o' @2 B% r, ^    FormBox[% N" k* v/ |: T' T% q
        "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
    , q, d) z4 Q" M0 [+ S\:ff09\"", TraditionalForm]},- w7 X9 ~, X! ]! |! R8 g
      PlotRange->{{61, 89}, {0, 1}},$ s! D% ]% h- m9 j7 ]
      PlotRangeClipping->True,6 L6 S3 f8 b" P, P2 T2 G
      PlotRangePadding->{Automatic, Automatic}]], "Output",; f9 M' U, X# K" {' q5 @, K  N
    CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]9 H4 `6 |1 F: z  s! ?) C5 |! z
    }, Open  ]],
    # ]/ Y8 E9 |' _6 H* [0 s# m3 {; p
    Cell[BoxData["\:62df\:5408wi1"], "Input",
    ) l. l' o6 s5 N" a6 s CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9},
    ! Y- n$ X7 Z! R! ^$ b   3.577959662349238*^9}],
    % A$ ?, y9 Q) g: g6 |3 C$ G5 S  V6 q5 a# `  {: z
    Cell[CellGroupData[{! ]/ N& E; s; T

    " o0 ^" i# F! R: Z, N' HCell[BoxData[
    / `. i" ?$ P. b" K' Q RowBox[{"y1b", "=",
    ! @8 I" E3 f$ z  RowBox[{"Table", "[",
    ' M/ |! A  x1 b   RowBox[{"x", ",",   ^5 U" k) S! W
        RowBox[{"{",
    0 F5 U8 W' N4 u0 ~) _     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    # l! z0 F: M8 e, O1 E CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    & c) I* w% N, C' H# V: D   3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}],
    1 N1 e& i9 o( D* |4 m& q' x2 [: |4 r& n% k
    Cell[BoxData[
    3 a) q7 G  z0 s6 X RowBox[{"{", / P3 ]4 X( w0 K: ?! H" U
      RowBox[{9 V+ S; Y. c. N* x! C
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 2 w& @2 k5 K+ [! D" |& [" ~
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",/ Q3 _. a; w9 u- {+ ^" @2 ]2 V
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", : {' Y# z3 j+ s
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    + v' U. h, E' n  [  i7 F+ @   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", + S. k  C, z" `: M4 X
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", / s4 M, E" O  U, _. w' _+ `* \
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", " y6 D7 B0 C- Z9 @: S: R2 G# T* [
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    * @: t+ d( J/ B% Q  Q   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
    3 y& g, ?& G, p  w; z' G6 M  "}"}]], "Output",$ v7 M/ X/ R6 Y8 A" g7 G, z7 J
    CellChangeTimes->{3 `% n% U5 V) [7 J+ n
      3.577922682296875*^9, {3.5779582291435394`*^9, 3.5779582351339493`*^9}, ! a+ Y0 O  |& |  t
       3.577958478041973*^9, 3.577959010205701*^9, 3.5779622225483656`*^9, 9 F; y4 ~' O2 C
       3.578012438953125*^9}]
    . }- ~& l* C# x" g) i) k. x}, Open  ]],- [+ \" V$ Q- r$ }, P# R4 d
      H! A- [& d' G" C+ I3 @- v
    Cell[CellGroupData[{
    $ Y9 r! W1 l2 D; w; L" P  a* |4 u" g. n' D4 q! k
    Cell[BoxData[3 ~" y, |' O& f3 x* U
    RowBox[{"Data", "[", " B' P+ ~+ J7 i4 g, Z4 Z
      RowBox[{"[", . e+ R. ^1 m/ l+ v5 G2 u2 f$ V
       RowBox[{"3", ",", "11"}], "]"}], "]"}]], "Input",( a1 s4 E  ]2 e# ^% A
    CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    5 [& D: I, F  E, g# ^   3.577922912015625*^9, 3.577922912171875*^9}, 3.5779582414831605`*^9, {4 \$ T; y! y" H! l8 Y9 L4 x
       3.577959014090108*^9, 3.577959016040111*^9}}],
    ' D* d: ~" y9 H9 [7 B$ E* \) v( O! N  m7 u1 x
    Cell[BoxData["0.492958`"], "Output",) i. {+ N$ j  }+ ~, p8 p
    CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
    - M- x7 ]. P8 ~8 `, f& v& [1 ]" J   3.577922913203125*^9, 3.577958242809163*^9, 3.5779584790403748`*^9,
    % w# O% d1 S& o8 F   3.5779590175689135`*^9, 3.5779622239523687`*^9, 3.578012439828125*^9}]
    " ~3 P( ~' h- }. L, z2 C}, Open  ]],
    0 R7 M$ c1 ~/ ?3 D/ z0 T( W8 C$ S9 l2 j
    Cell[BoxData[1 X4 O7 x  S) G6 a* ^8 B
    RowBox[{"For", "[",   W" ^$ U* y# l
      RowBox[{, a  J% S5 e  M9 @& Z$ {$ C
       RowBox[{"i", "=", "1"}], ",",
    + v1 v. u( {5 u+ ?   RowBox[{"i", "\[LessEqual]", "60"}], ",", & V* g/ ?+ C- u7 b- \" d! @8 T
       RowBox[{"i", "++"}], ",",
    : M) p* c, B, J/ b, @+ f   RowBox[{: t# V0 z. n4 n1 i% t
        RowBox[{"y1b", "[",
    1 K4 P: @6 n& b5 i) v8 k     RowBox[{"[", "i", "]"}], "]"}], "=", , k  U2 Q" T# d/ s
        RowBox[{"Data", "[",
    4 {$ Q$ m% V5 K2 Y     RowBox[{"[", " [4 K0 S( R- ]# d& P. i
          RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",5 j% ]/ T' k( F/ K5 k! ?' @
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    ; l" k. E& X( w' E   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    ; U3 G$ \8 F( p8 s$ M7 s& B3 v   3.577922923203125*^9}, 3.577958246272369*^9, 3.5779584755771685`*^9, {& p6 ^- w! t/ C" \  s1 a' ]0 x7 M
       3.57795902089172*^9, 3.5779590227793226`*^9}}],
    ) x6 g5 Q+ X! ?, a
    " L) K5 K: A8 E) p/ eCell[CellGroupData[{
    ! ?) F! [; m1 F3 {; `4 L6 r
      Q% f- i: j8 w9 Q; WCell[BoxData["y1b"], "Input",# T9 u; a; O" Q  e& H) J/ d, R  s
    CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9},
    9 O2 X7 s3 d# O1 Z% T. Z! M  j* P   3.577958484172784*^9}],
    + H: e* W# _9 v+ k( a" l" A0 |( ^9 p% E" `, l  G
    Cell[BoxData[
    * x3 T+ V; g4 a8 p- \, F RowBox[{"{", * p5 v# q- P/ I9 _. V
      RowBox[{
    9 z7 o. c, K0 b) `) v! J$ {  "0.873239`", ",", "0.464789`", ",", "0.492958`", ",", "0.774648`", ",", 1 X! x) k3 }3 x+ U! _- {
       "0.380282`", ",", "0.647887`", ",", "0.56338`", ",", "0.295775`", ",",
    0 C" A' s1 k; Y  q9 U   "0.338028`", ",", "0.211268`", ",", "0.690141`", ",", "0.43662`", ",",
    3 k6 n  L" u- ]   "0.`", ",", "0.267606`", ",", "0.211268`", ",", "0.408451`", ",", . D% p( e7 z( C/ |+ C9 l* W0 ?
       "0.478873`", ",", "0.380282`", ",", "0.211268`", ",", "0.43662`", ",",
    & F( Z* X4 ^( N) a( n6 |   "0.478873`", ",", "0.295775`", ",", "0.028169`", ",", "0.43662`", ",",
    % r/ p' h1 S8 [& |5 E$ l1 Y3 \   "0.394366`", ",", "0.295775`", ",", "0.830986`", ",", "0.169014`", ",", ' G) ^) W9 b5 D! E4 Y3 H7 V
       "0.366197`", ",", "0.309859`", ",", "0.352113`", ",", "0.309859`", ",",
    : C0 ]. D# V3 A0 D! ]5 ?6 S   "0.774648`", ",", "0.422535`", ",", "0.887324`", ",", "0.887324`", ",",
    ( @; S4 F. ~$ k5 c" E; z   "0.859155`", ",", "0.239437`", ",", "0.295775`", ",", "0.746479`", ",", $ j9 ^$ Q6 J' y+ d- R# W
       "1.`", ",", "0.549296`", ",", "0.366197`", ",", "0.549296`", ",",
    9 s* o3 n. j7 Q. R" y$ e* ]   "0.577465`", ",", "0.690141`", ",", "0.71831`", ",", "0.521127`", ",",
    3 X& m2 _7 s% C8 e. R% L) A   "0.929577`", ",", "0.521127`", ",", "0.338028`", ",", "0.380282`", ",", # ]" y: T$ F4 a0 s
       "0.676056`", ",", "0.591549`", ",", "0.464789`", ",", "0.295775`", ",", 1 i/ n8 T( y- O5 ?1 P# K+ J
       "0.380282`", ",", "0.211268`", ",", "0.253521`", ",", "0.28169`"}],
    ) y: F% j- R( m  "}"}]], "Output",
    9 B5 }/ _/ a# a% o CellChangeTimes->{3.57792293246875*^9, 3.5779582549771843`*^9, ; E$ f( U/ J2 v% G: h. ~  M
      3.577958485420786*^9, 3.577959026460929*^9, 3.5779622288195767`*^9,
    6 ]% v8 i& ^7 f4 V  3.57801244275*^9}]
    9 K2 _) z1 D6 Z, E  Z3 u7 S7 ^2 b; r}, Open  ]],
    ; |7 i$ k4 U( j- t+ ?# P
    1 g4 f) S" ?# FCell[CellGroupData[{! {5 Y$ U. u6 p7 g7 Q5 [7 M0 Q* h

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

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

    ( p. w& E! A9 t$ I' s( y* kCell[CellGroupData[{
    2 J* p; w  ?  k9 P, P# X7 ~7 _' Y7 r  D, K4 T
    Cell[BoxData[
    5 w- f2 H2 y' I# O# m  s) E RowBox[{"y2fit", "=", ! @7 D& g; a. J# l, q7 M
      RowBox[{"Table", "[",
    * B" q* \) I  d, k   RowBox[{"x", ",", # j7 S% D  w, A$ Q
        RowBox[{"{", - i" f1 x/ S/ ~) o7 h
         RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
    " r3 h( o7 j6 B. L CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {
    : S2 j1 ]& o2 s! A& L   3.5779252768125*^9, 3.577925277484375*^9}, 3.5779583246625056`*^9}],9 f2 N4 `% K; L- i0 p5 n0 l
    ) D* E& b4 o7 O! ]
    Cell[BoxData[- d1 a7 G" ?& {2 |5 n  ~3 O
    RowBox[{"{",
    , V" D+ Q* e0 T  RowBox[{
    # Q4 K1 v+ v: F' E3 u  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    $ i* s  V  F- t7 }5 _$ x7 Y1 o* l   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",5 R" ~; E% V; p4 _- y+ i" H8 c
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", / \: k  c& U( l# g
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    . |- p2 A/ B2 X  O% b' P6 A& w1 i   ",", "29"}], "}"}]], "Output",; e5 v2 c) P) R! R: J, N
    CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9, 5 _8 E' p3 z* n4 ?+ h  w0 R
      3.5779583268153095`*^9, 3.577958508118826*^9, 3.5779590470685654`*^9,
    # M) Z0 q  q0 ^! J: e- z% |- G  3.577962320173336*^9, 3.57801245028125*^9}]& l+ I9 y4 e0 L! `& E3 F5 e9 K
    }, Open  ]],7 f" C; d- [- ^7 {  O

    % f% F) T+ q# eCell[BoxData[
    # F! P; T9 e" ?, d% e3 S( \0 i9 C RowBox[{"For", "[",
    + K- }+ g6 e- b/ E; k% L: V( W" B  RowBox[{
    $ }  B; m# p8 `3 w7 N6 W  d# l' e   RowBox[{"i", "=", "61"}], ",", ) ~/ m$ c, h& H6 a
       RowBox[{"i", "\[LessEqual]", "89"}], ",",
    5 a2 Q* |! I4 l   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", . O0 h3 U, U; _- |0 j( y
       RowBox[{
    4 k5 Q% d4 m9 k3 q  l% [8 T# h+ s+ G    RowBox[{( O! A& b" P2 @
         RowBox[{"y2fit", "[", 0 D! N! c: k: q( i$ M5 Y6 D
          RowBox[{"[", : [+ T, R# R3 [9 l$ f
           RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", , P' @" P4 w0 `0 B
         RowBox[{"y2", "/.",
    : \% c$ d4 [' z' n      RowBox[{"{",
    # M! K3 B5 }0 x: u" [. G& C       RowBox[{2 z  G5 x2 U5 g. Y
            RowBox[{"x1", "->", % m1 j! S0 t; K9 O8 t  v
             RowBox[{"Data", "[", 0 y  n* T' Y1 Y3 L- d2 j/ c
              RowBox[{"[",
    + ^4 b( h# h6 W1 C           RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    $ }+ Z. T5 B+ \$ ~: M        RowBox[{"x2", "->", 1 v/ Q: j" u0 _2 O5 c' S0 f
             RowBox[{"Data", "[", : X1 U$ Y8 l/ [/ \: ~/ z
              RowBox[{"[", 4 g+ x6 ]! N. w  L( J; x  x
               RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    / n& D2 I, K; {& Y. Z8 [) Q( {        RowBox[{"x3", "->", / u$ g. L  E0 }
             RowBox[{"Data", "[",
    , x+ z9 \$ e6 e; Y4 A8 _          RowBox[{"[", ) }  W  O; ^4 g
               RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
    % Z. X- e: K" @% O% G+ ~        RowBox[{"x4", "->",
    / h/ V% e! @3 f* m) p- K         RowBox[{"Data", "[",
    : v3 w7 G& \. R- b0 T9 J! h+ h. N          RowBox[{"[",
    # @1 {+ R9 m1 e0 d4 U$ C) E           RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    ) N) [! l6 p  L# A% s; X4 j5 [        RowBox[{"x5", "->",
    : U, _2 a# \2 y- z: n3 Z         RowBox[{"Data", "[", ; D! K1 A3 |( m/ Q9 w
              RowBox[{"[",
    , m8 o, N8 I  |$ j; S. V           RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", . }' E" Y" q4 J0 B  X0 ]! z. j% T# Y5 _
            RowBox[{"x6", "->",
    7 Y3 g5 v5 Z& }- }         RowBox[{"Data", "[",
    ( w' l9 D' L% j) _7 s4 E, q* z          RowBox[{"[",
    # o) @. l7 O$ M- q, |# J3 s; _           RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", $ f* Q3 d& ]" j7 n; o# K# q8 `7 N& Z
            RowBox[{"x7", "->", ' e# N1 A; F# A; N) G
             RowBox[{"Data", "[", * B6 G8 n$ _4 q: n0 |, @5 O$ H
              RowBox[{"[", 0 R4 p7 r& ^* X4 A( o' ^: p/ V
               RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 6 ^, P" J% P2 w" T0 f
            RowBox[{"x8", "->",
    . g- ]7 u- {* N' [) q         RowBox[{"Data", "[", ; N% N$ V+ [* ^: y/ I+ {
              RowBox[{"[", # x! T/ h8 S' }& l0 ]4 t! K
               RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", " I# G/ ]! i- f$ E2 J  K8 W
            RowBox[{"x9", "->", ' V( ~2 w6 ?% f8 o. L5 N
             RowBox[{"Data", "[",
    " t2 p1 m8 v9 b+ o, f8 R7 z; u. j/ F          RowBox[{"[", * m& Q0 G( \, q# p4 s8 ?
               RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}], 5 c1 p, L( b6 l, e7 T
      "\[IndentingNewLine]", "]"}]], "Input",
    0 n' W0 l! e$ ^9 Z/ f4 g# e CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {; F9 O% z" G! e( }. i
      3.577925286140625*^9, 3.577925306765625*^9}, {3.577958329919715*^9, 5 J8 J; e# V, G& C5 z( Q  f; m
      3.5779583326341195`*^9}, {3.57795892351635*^9, 3.57795892354755*^9}}],2 g7 n* d0 d5 i+ m8 C* N( K

    / m, r$ a/ D& h0 V- L& zCell[CellGroupData[{$ U# I; t% h; }

    : Z0 R4 Y+ v$ W0 k, v$ V& jCell[BoxData["y2fit"], "Input",  m' ]/ ^) q6 K) s& ~. L
    CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {+ M8 ?: P! S" a" G. i
       3.577925040484375*^9, 3.5779250440625*^9}, 3.5779583419785357`*^9}],# }; T/ r8 ?0 o

    ! c2 I  a, b% E: xCell[BoxData[9 H  F7 `8 |+ x
    RowBox[{"{", 4 M# C$ R2 R$ y& {7 u
      RowBox[{
    / [* m5 a; _* Q) C  "0.4853171132859182`", ",", "0.4508635216665074`", ",",
    " e) z/ T% D5 G; e: ?$ d( R   "0.3642119241752518`", ",", "0.42852077425595436`", ",",
    - j# t& Y$ d4 r- o& v6 t' y   "0.4712694272667798`", ",", "0.5257533056184774`", ",",
    ' p9 p: r' _8 y5 B+ W" H' m$ V   "0.48620658140716133`", ",", "0.41106838915591876`", ",", ' ~( |2 ]' }% }& e
       "0.5486894206610674`", ",", "0.007731168540073459`", ",", ( \' R# @0 c8 `. @
       "0.013872406140339109`", ",", "0.3956995051659558`", ",", 3 ]- _9 J2 L' m# @' u' O5 o
       "0.3663118256142708`", ",", "0.29094217358055163`", ",",
    $ }7 J0 {9 P1 H   "0.5453093690736555`", ",", "0.44138898880777927`", ",",
    $ e0 ]# J. V- g( d: o   "0.42944922031163496`", ",", "0.43092890556748836`", ",",
    6 L. o% z: X0 `3 v4 \   "0.5942402821739969`", ",", "0.330046090785457`", ",",
    # I  y( l; v* o% N( }( s   "0.18938658036630585`", ",", "0.4263720292858679`", ",",
    3 f! a% z5 W) c   "0.23377136184738775`", ",", "0.02232858193309988`", ",", 8 K3 U) `. _3 W/ k
       "0.244364200084268`", ",", "0.5562383565309971`", ",",
    . c9 z$ w0 d' o& U$ ^7 C, j/ P   "0.13114103402954333`", ",", "0.5815052048989465`", ",",
    ; }4 c8 @1 S* X" w; w( @   "0.4253455966293501`"}], "}"}]], "Output",/ I2 m( x+ [; U. @8 _
    CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9, 2 A; L% @7 u* k  Y  y4 h2 ]8 _2 o
      3.577925312375*^9, 3.577958343257738*^9, 3.577958511784832*^9,   i, E7 u8 a' `1 B. X  b0 w) [2 h
      3.5779590518421736`*^9, 3.5779623249157443`*^9, 3.578012452421875*^9}]
    $ d8 a- A; P/ l3 w3 A2 y}, Open  ]],$ I7 x( Y* s+ a

    " E4 R  g2 A* @2 tCell[CellGroupData[{! @; `6 ~, J: Z1 ?# i$ S
    ( @1 }* H9 }$ G, ]
    Cell[BoxData[( E3 H" y' a2 [9 H
    RowBox[{"y2fit", "=", 2 L8 L8 |0 U3 V$ T1 H
      RowBox[{"{",
    + _' m+ |5 L9 w7 ~   RowBox[{0 K$ I: k  e% u# c  ?" o
       "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ) t+ e7 P. D8 |8 R7 L    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! L# K& w% c$ [3 T3 c& A" }9 Z
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    6 s* T4 l* R! }    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", 6 c. Y8 ~: v/ w. u
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    + Q8 ]. F) s; |: q    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", ) ~: E& {3 j3 X. T4 j: h3 K
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", $ Z- S7 w* U1 N1 w: r7 O! [- M  L5 F# h
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    ' x; u- i5 L# [    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", 5 J0 W8 `9 b+ B/ Q- p; `
        "0.48531711328591953", ",", "0.48531711328591953`", ",",
    " e9 m1 {- r' _. G' q# S; b    "0.45086352166650845`", ",", "0.36421192417525217`", ",",
    % ?, y, F# Y" p    "0.4285207742559556`", ",", "0.4712694272667811`", ",", 8 ~9 g6 x% r4 |' c8 G7 d: C: p
        "0.5257533056184786`", ",", "0.4862065814071623`", ",",
    : v4 o2 \: s7 n2 o( b1 M; F0 R    "0.41106838915592014`", ",", "0.5486894206610683`", ",",
    , V9 ]" N; f" X    "0.007731168540073532`", ",", "0.013872406140339166`", ",", 1 }! n- u8 m7 Z
        "0.3956995051659565`", ",", "0.3663118256142717`", ",", 0 [  w" r, {' S1 }; J) V' T
        "0.29094217358055185`", ",", "0.5453093690736568`", ",",
    2 |, T( C; h+ `    "0.4413889888077799`", ",", "0.42944922031163585`", ",", 8 d# e% L9 V* L6 R  B# k. a; l7 ?9 ?
        "0.4309289055674891`", ",", "0.5942402821739983`", ",", 4 s: S' {1 P! {9 f
        "0.33004609078545805`", ",", "0.18938658036630632`", ",",
    # z! S3 E' v; l% X    "0.4263720292858688`", ",", "0.23377136184738778`", ",", - ^( m6 b! N: Y2 v! `
        "0.022328581933099827`", ",", "0.24436420008426807`", ",",
    ) q  G9 @, t4 Z( Q7 N6 z0 H    "0.5562383565309981`", ",", "0.13114103402954314`", ",", : j' u! B% k, Z* n
        "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]}]], "Input",
    & a2 z+ k  _4 w% e$ }3 S; n CellChangeTimes->{{3.577959355746303*^9, 3.5779593854019547`*^9}, {
    4 E, r$ n! Q, _. L& ]$ x8 M% u, F/ |  3.5779594223272195`*^9, 3.577959425104024*^9}, {3.57796233399496*^9,
    " `6 N0 d  b7 {  3.57796233957977*^9}}],; a) G2 ~, K6 L; s- u. E  g
    ; m' l. |$ U2 K5 j
    Cell[BoxData[/ H) ~: v- f4 }6 M( }- s; ?9 A( X
    RowBox[{"{",
    - {' k" d1 ?# S4 W, d  RowBox[{2 m" M4 ]+ `2 i
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 E" C1 v7 h. R3 C. V! X: Y   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    : \0 R' R( n8 `3 n5 L: m    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    $ o7 R. u- F3 g* X% {8 u   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    % ^) J( I8 M$ \- i  a! Y   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", + m$ C# b+ [( K1 Z: Z; E6 t6 [
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 5 ]" w% v5 `* {% V; ?
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", 2 V1 ?, \* S+ U  L  L* X
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 2 @4 r) G9 ?3 n; t! Q0 a- ~
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    4 k) I3 d& O& }7 {, i  a   "0.48531711328591953`", ",", "0.48531711328591953`", ",", 2 u* Q  X- m. W: H$ ~; |  Z
       "0.45086352166650845`", ",", "0.36421192417525217`", ",",
    , c: `& M! P' _8 L   "0.4285207742559556`", ",", "0.4712694272667811`", ",",
    ' E  ~9 \0 D/ z& {   "0.5257533056184786`", ",", "0.4862065814071623`", ",",   y" H6 N& ]  P5 V; c8 }
       "0.41106838915592014`", ",", "0.5486894206610683`", ",",
    * c# |5 a# t" |3 G   "0.007731168540073532`", ",", "0.013872406140339166`", ",",
    # }" j' k0 F" M! T5 g2 U0 D   "0.3956995051659565`", ",", "0.3663118256142717`", ",", 1 n1 ?; F6 ?) ]
       "0.29094217358055185`", ",", "0.5453093690736568`", ",",
    ) Z8 ?# Z0 p- l, i( X9 w6 T! I   "0.4413889888077799`", ",", "0.42944922031163585`", ",", 7 `0 M* d8 {  B2 J2 m" Y7 Y1 ~
       "0.4309289055674891`", ",", "0.5942402821739983`", ",",   i9 F8 X) x$ H9 l2 H0 v
       "0.33004609078545805`", ",", "0.18938658036630632`", ",", ; x# {" u( m) e( H% w% G$ h, ?
       "0.4263720292858688`", ",", "0.23377136184738778`", ",", ; l' J5 x; q8 m
       "0.022328581933099827`", ",", "0.24436420008426807`", ",", $ g+ w5 @. C& |, q( L. S  j! I
       "0.5562383565309981`", ",", "0.13114103402954314`", ",",
    : [+ f! v* X  j7 m   "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]], "Output",, z# `6 J, n7 F: V7 m' s
    CellChangeTimes->{3.5779593961191735`*^9, 3.5779594268512273`*^9, . l2 P0 {5 @1 d6 V8 M" g% {
      3.577962342060174*^9, 3.57801245340625*^9}]; F6 x. H& w/ b8 I- Q6 ^2 g! c
    }, Open  ]],( v( v4 F* g9 j+ S' i  \" E
    6 W3 @8 B2 j3 [, ~" X: N+ b" r
    Cell[CellGroupData[{, U5 L' T3 A6 v; W- T

    , q. N2 g* K& x5 @# n+ J! WCell[BoxData[1 \% w% \: {6 }5 }+ F# {; [
    RowBox[{"y20", "=", 5 ?( S: G+ A3 C) a! j: D# t3 a
      RowBox[{"Table", "[",
    1 i& I. N' j: O3 b0 [) t+ D   RowBox[{"x", ",",
    1 b( n0 N) I% x# I" l' i    RowBox[{"{", ' |% t; P/ K1 Z" W# E8 M8 I" }* d
         RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
    $ u+ Y3 C) ~, I, I( n6 { CellChangeTimes->{3.5779253628125*^9, 3.577958351198152*^9}],
    2 b* A  q2 q( N( Q+ Q) ^: M  F
    " D/ q+ n2 `0 FCell[BoxData[8 g, Y, k# P/ X" V2 t% H
    RowBox[{"{", . N- ~1 x+ W4 t3 \% w: W7 h
      RowBox[{
    5 R# L" d; }" n9 {' x- b  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    5 R# L6 M4 l( @" ^/ e; A   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    0 e# R  @/ l4 g" A1 I/ t6 ^* N& a9 y    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", ) o/ N: Y' z, b+ R. A; O
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 0 ~- x, Z) l: @$ H
       ",", "29"}], "}"}]], "Output",
    ! \3 r# C/ K& E CellChangeTimes->{3.57792536553125*^9, 3.5779583535225563`*^9,
    ! }) B: e" q1 |  3.577958515653639*^9, 3.577959053714177*^9, 3.5779623443065777`*^9, 4 i  u& I0 y, I. }5 W" k
      3.578012454875*^9}]
    * I: V. r% P: ^3 k; q8 _( |3 V}, Open  ]],
    1 k# X) g0 H7 O( R# Q, c9 R5 R; s, F% v9 \. R- j& n( G( }9 w- t
    Cell[BoxData[
    : D* ?  O7 q( D2 s RowBox[{"For", "[",
    9 e% w/ W+ f  x: p+ j  RowBox[{
    - V) C) P& i* s; w/ l* g   RowBox[{"i", "=", "61"}], ",", ; S9 m: O2 d+ [9 Q9 E
       RowBox[{"i", "\[LessEqual]", "89"}], ",", + V& o% @0 u4 d. d4 E) }3 m
       RowBox[{"i", "++"}], ",", % _1 i' K# h( p- R
       RowBox[{" Q* f/ m8 _$ ~- S6 s3 `
        RowBox[{"y20", "[",
      ^+ M/ O( r4 m4 z     RowBox[{"[",
    % ]$ e) S" Q! O7 M1 i* I! M. v      RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
    1 q# B/ ~% {* @3 H% m! ~    RowBox[{"Data", "[",
    $ R5 d5 |0 b5 t/ z/ v9 q     RowBox[{"[", : i0 F- f$ ]5 J8 K/ P' ^/ Y
          RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",! H" O, U3 i( y  w7 J2 }, k% s
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    * }" M! c6 w+ q  3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    0 y- T* @( ]& h% B0 |9 Y  3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, {+ b  I- B5 M' m3 J$ H
      3.5779583574225626`*^9, 3.5779583606673684`*^9}, {3.577959056849782*^9, & ~! n/ R2 ?) F" X$ E
      3.577959058690585*^9}}],, F+ [6 [6 T! I: w: w* [5 m

    ; W& r2 A3 Y; [Cell[CellGroupData[{8 `3 h! A4 w- k5 D

    1 a' ?) _7 y% n! E" |7 y6 p7 QCell[BoxData["y20"], "Input",
    * n9 s' b' b4 {5 e+ Y- ~" o2 W CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {* l: Y# u8 q6 U
       3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9,
    0 S9 V# G: f6 X   3.5779583657841773`*^9}],+ {4 i* }  G  b6 ]9 h; h
    . W, X9 C+ J- r7 y
    Cell[BoxData[
    - n/ w/ ?. X# u4 Z; }" U RowBox[{"{",
    4 V* Q8 f8 }8 g; a  RowBox[{7 i/ k8 }1 y* U+ P1 ~0 d6 ^" B
      "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", ",",
      C+ w0 A; f4 C% |0 ]2 Z" B  o. E   "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",
    1 L! q% c* n& a- n: V4 ]   "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",", : @# F6 a9 r* G1 ~- X: I( W# ~
       "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",", ' l$ e; z! X" A3 _9 k- W
       "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
    , _' W/ G1 N6 \; `2 J1 E7 ~/ r   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",", 7 w) h0 i0 }! }$ f6 x
       "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
    3 |4 o) d1 O/ `; x: k/ |: U  S% }   "0.323944`"}], "}"}]], "Output",/ Q. N0 a2 y. `$ A
    CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9,
    # v6 r/ y* |5 d/ g! T/ r: v  3.577925393046875*^9, 3.5779583678277807`*^9, 3.577958517946843*^9,
    , B- ?* j! i. @$ }  Q2 Q8 R; w3 ~0 K  3.5779590634017935`*^9, 3.577962347629384*^9, 3.578012456484375*^9}]
    * N4 e' R8 L3 x  O7 d) N}, Open  ]],4 }, y+ A1 P5 r, }- w

      l: r8 p5 E' a5 b! nCell[CellGroupData[{
    8 p6 l" U1 c( l1 i; R& Y5 ^6 f) t# O6 Z- C9 a/ a
    Cell[BoxData[- _, I) h3 ^# Q
    RowBox[{"y20", "=",
    # \2 q2 `2 O- I" w  RowBox[{"{", ! ~/ _+ G" O/ M% w1 K) A
       RowBox[{
    ( Y1 R3 |& N3 m5 c4 F( W   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    $ G- }% q9 ]& {. g    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 t, [) o# I6 U7 j6 g" [
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    8 U8 {7 F, z+ z) l9 {2 J+ a    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
    5 H$ k" \. H- |( c6 w5 S    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    * p  A- e' |. d* q2 o) y6 L" V$ P    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
    " Z2 h, k7 J2 J$ C" t5 c3 U8 ?    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    2 J$ f! e  h8 v    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    $ d+ i' Y( w5 e0 ~5 n( F* p( ]2 }    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    6 }3 h, ]8 E( N    "0.507042", ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", ; S% T* Z' Z* d/ G1 ^2 a: u
        "0.338028`", ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", 2 H1 T4 k" e4 q* k
        "0.408451`", ",", "0.295775`", ",", "0.661972`", ",", "0.774648`", ",",
    - W4 x$ _, K+ o) F    "0.746479`", ",", "0.887324`", ",", "0.84507`", ",", "0.704225`", ",",
    4 `4 e' G3 z+ z5 J! y! F2 ^    "0.760563`", ",", "0.43662`", ",", "0.633803`", ",", "0.422535`", ",",
    2 K$ V! O; Q: M" Q# c    "0.295775`", ",", "0.309859`", ",", "0.408451`", ",", "0.197183`", ",",
      R, b* U% s5 ?& y( @' A6 x' P4 q) ~7 g    "0.732394`", ",", "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", 4 o, @4 x* X1 A! y/ A# N$ R% N) J
        "0.56338`", ",", "0.323944`"}], "}"}]}]], "Input",
    1 \  Y& C: Q! I4 R% M CellChangeTimes->{{3.577959534959416*^9, 3.5779595573142548`*^9}}],
    , i$ r/ p) R0 `/ i; e9 F3 T! G: n6 H$ h! y
    Cell[BoxData[9 O5 N" j7 ]6 C0 c$ V% M1 q0 D
    RowBox[{"{",
    + \0 ^" q$ A2 c( ?) i: B4 G$ G  RowBox[{/ H% m6 t) _+ {! V
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", + |1 n- x9 C# z+ t; U, {
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    , u( E# S; T. f* P    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    : M+ {  Z. a2 X2 l; \6 z/ v+ Y; }   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", # U, ]- ]/ Y1 J' e' p
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    & O' M1 _& P. A: y* `, Y   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    $ a" n; z* d! W* p. S   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    $ M( M; H0 {: m. H/ H7 a   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    4 Z" `& s, O: _7 w4 ^5 T   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.507042`", 1 C, \) v% ]8 f
       ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", 9 X  R& Y+ g  F, e! P
       ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",* ?9 G$ |* f/ @% Q3 n" T" N" f
        "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",",
    ; L4 u8 W8 @) A5 A7 w$ |# ?   "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",", ' g) V  k( J3 V5 L  I/ x
       "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",", . C- _  e9 ^% S4 s9 O) O
       "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",", + u" V$ `4 q2 O( ^) B; n
       "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
      Y9 O: A- U0 Q$ P3 M   "0.323944`"}], "}"}]], "Output",
    ( z9 a! X8 ?" w7 v; g! O CellChangeTimes->{3.5779595594514585`*^9, 3.577962351778991*^9,
    ; m8 d  r8 O: Y6 }' E  3.578012457234375*^9}]: g; X6 Y* @/ W+ m5 i
    }, Open  ]],6 X' {- W. l0 w' U' R

    % s5 O1 J- [* F- n3 r: U2 T$ ZCell[CellGroupData[{) S' A9 |; U' ?8 ]4 R/ R) e5 r

    ! L- ?' ^/ S* u5 J1 o9 iCell[BoxData[
    1 ?& \/ @% m0 D; {) T( k- d RowBox[{"p2a", "=", - b$ |( W' z1 ?( N/ ~$ w
      RowBox[{"ListPlot", "[", 5 u/ o- X3 M& q2 S: f
       RowBox[{"y2fit", ",",
    4 e$ O1 ~, c/ h  r* Q    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    4 O( F! k' J* w    RowBox[{"PlotStyle", "\[Rule]",
      i( j7 g1 w$ j7 D' \( ~7 E* x     RowBox[{"{", & i+ K2 J5 F) @# [( C; V9 `: T
          RowBox[{"RGBColor", "[",
    % U8 Z/ M8 o, \9 `       RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",", ! a; H" u6 B2 P/ m
        RowBox[{"PlotRange", "\[Rule]",
      S' U" ]- g) B! X. M     RowBox[{"{",
    3 ^) [  l6 k5 G- k) j' T      RowBox[{
    6 f9 s% [% h, o' H% ]/ `       RowBox[{"{",
    2 P$ r+ J2 z* d) `        RowBox[{"61", ",", "89"}], "}"}], ",", 8 M% {) b' b% L: Z2 N# W
           RowBox[{"{", % |% j% J( j  d5 p! e
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    8 t6 ~  ^& I: [7 z$ Z    RowBox[{"AxesOrigin", "\[Rule]",
    * f3 D1 k3 N7 i+ r& m3 e% I     RowBox[{"{",
    6 y& Q! z5 S" e& n& l! P! \8 C      RowBox[{"61", ",", "0"}], "}"}]}], ",",
    - m  r* F( \' y9 x    RowBox[{"Frame", "\[Rule]", "True"}], ",", ! P( C/ b& o6 f# D0 t+ z7 o
        RowBox[{"FrameLabel", "\[Rule]",
    * t* j$ x& d. C" w     RowBox[{"{", 7 k  `) c0 x: ]4 r6 p
          RowBox[{
    % S, T0 {: U5 ~, O      "\"\<\:7089\:6b21\>\"", ",", & ~* y8 v  \" N+ @9 L
           "\"\<\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\2 z' ]2 b9 y) h
    \>\""}], "}"}]}]}], "]"}]}]], "Input",
    ( I" N, M2 R1 e2 I0 I+ d3 ~0 {) Y1 s CellChangeTimes->{) }6 ?4 z& b) ~0 E  o" h
      3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
    1 k+ f4 F: X" _, _9 q0 _7 N& B) n   3.5779583712597866`*^9, 3.5779583781393986`*^9}, {3.577958536604475*^9, 9 l/ o' a- ~% a* z+ m
       3.5779585491624975`*^9}, {3.5779592802577715`*^9,
    / D4 G. Q+ S  |   3.5779593014270086`*^9}, {3.5779594039971876`*^9,
    # g2 n3 e( v# T5 L   3.5779594059783907`*^9}, {3.57795949706695*^9, 3.5779595174717855`*^9}, {
    , ?. ?7 G1 o' ^# ]; w   3.5779604302529774`*^9, 3.577960442311798*^9}, 3.57801246978125*^9, ( i! b8 N+ c0 r/ i* o
       3.578012920859375*^9}],
    : A' m6 ?6 T2 |7 ~
    ) K/ ^5 I" G1 C: m- B2 l( lCell[BoxData[
    3 V- l1 u2 _: Q; t GraphicsBox[{{}, {},
    & F3 ?+ O) l- O" a   {RGBColor[0, 0, 0], LineBox[CompressedData["7 Q* m, }# H, E3 K2 {+ n
    1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM4 k6 h: q' e+ G% P9 f* W9 Q
    /g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
    0 u2 h  K  P" D9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P5 L- N2 O  F1 X' n  l. Q- I
    ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC. r$ p5 F0 n3 n( |$ b
    qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
    , c6 e3 s5 M" Z0 m" q# M- N9 q1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx* ?5 y9 `9 r% y. ]: i# S5 k
    0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
    9 A0 @/ S! g3 z5 dsPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH, _6 X( _8 ?8 c6 v# w
    99yxuG0PAHw7nyU=) B7 V% M6 W9 }
         "]]}},
    . h7 n7 ~4 d6 q$ T4 M( u4 p/ n1 m  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],# J3 X+ p3 i+ D) E: x1 k2 f9 D
      Axes->True,/ U$ [8 {" Y- u) [1 H
      AxesOrigin->{61, 0},
    ' V8 F  y2 j7 v" D. e  Frame->True,1 f, v) F1 i# h
      FrameLabel->{
    " }! ~' S* A" ]. Q    FormBox["\"\:7089\:6b21\"", TraditionalForm],
    . H5 u5 i  k1 O0 Z9 x    FormBox[* S6 o* W: c! h
        "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", * X; [- M7 F4 g( z, L  u
         TraditionalForm]},3 x/ v. |2 K  c: a) w7 L
      PlotRange->{{61, 89}, {0, 1}},
    " L. _! q0 z5 b; i  E" C  PlotRangeClipping->True,/ A$ d. @+ R3 J7 i  b' k$ `
      PlotRangePadding->{Automatic, Automatic}]], "Output",8 ~  s4 [5 N& ~7 k2 _0 D
    CellChangeTimes->{9 o, {, q% ^% ?$ f; c
      3.577925144625*^9, 3.577925396578125*^9, 3.5779583797150016`*^9, 8 v3 O& d5 w0 x4 B
       3.577958519990446*^9, 3.5779585510813007`*^9, 3.5779590670678*^9,
    9 r1 P5 Q* F) G* P3 f$ T9 y   3.5779593035642123`*^9, {3.5779594075383935`*^9, 3.577959430158433*^9}, 0 p* H2 r4 W1 S
       3.5779595184233866`*^9, 3.5779604438874006`*^9, 3.5779623548833966`*^9,
    / }4 z. U" S8 |+ D   3.57801247209375*^9, 3.5780129225625*^9}]# a9 ~" o& P" A; \. K3 ~2 \  q
    }, Open  ]],
    ) Q# }' ?& w! s# R3 |9 v
    # ]  e% g# O% e8 V/ p2 I( P+ MCell[CellGroupData[{
    # R# Q0 d5 d6 l. v( G; z
    $ _7 g9 P, r; r6 N$ M9 {Cell[BoxData[
    & \5 B' ?7 q3 m2 p8 ?" h7 \ RowBox[{"p2b", "=",
    - q- r2 E7 X+ o3 T  RowBox[{"ListPlot", "[", 1 {3 C8 g+ q0 f( ]0 q+ \& X. @
       RowBox[{"y20", ",",   ~$ z  S) T9 ^0 y
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    ( P; A; C/ p% I3 v% i- z    RowBox[{"PlotStyle", "\[Rule]", - L4 z, u2 f! H$ I8 n( I. b) G9 s" b
         RowBox[{"{",
    * @4 r' A' Y& b" s+ E* w6 M      RowBox[{1 D/ }8 s5 G6 o$ l$ B0 H$ S
           RowBox[{"RGBColor", "[", . H$ I1 K* T! y" d8 k# {
            RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}], ) o& ]7 ]" B& l/ k: s9 u! `  F
        ",",
    ; w0 A6 o  `* }  w    RowBox[{"PlotRange", "\[Rule]", $ O: p, m6 x: q, t$ Y, p+ s
         RowBox[{"{",
    " O3 l$ M7 O" `* A6 A, g; e      RowBox[{
    . u8 F' P6 g! N( e4 ?) {6 u       RowBox[{"{",
    ! w7 ]+ H* e- j4 O7 \% |) w        RowBox[{"61", ",", "89"}], "}"}], ",", 6 K# g, _5 p2 b, B3 v) i" g
           RowBox[{"{",
    , c1 i# x2 R! R0 D+ T& y        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    % i, i7 Z$ t0 ]- z! D    RowBox[{"AxesOrigin", "\[Rule]",
    & d5 M8 t% i! b8 J* G     RowBox[{"{",
    - ?7 ~7 ~+ s4 _      RowBox[{"61", ",", "0"}], "}"}]}], ",", 1 l6 L% p( d% Q; F, W
        RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",, q% K# l! X5 q" q3 Q, m+ ~
    CellChangeTimes->{
    , }' ~- @8 C" T4 k  H; a  3.5779253991875*^9, {3.577958382429406*^9, 3.5779583843326097`*^9},
    3 F1 j. s* K4 q( H6 u4 }' U4 ~  E   3.57795855655691*^9, 3.5779595724462814`*^9, 3.57801248346875*^9}]," `- Z" R9 S& E1 ^, d' A
    4 b% Q2 _. _6 C5 T
    Cell[BoxData[
    " k% v4 t9 E- e* ?* ?* _ GraphicsBox[{{}, {}, & Z$ \& R* Y; p
       {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["3 O- X+ f2 h. m. L  V, O
    1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
    ' ?; a; ?- g2 k' ]0 X: T: g8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV0 F; I* x+ p( x8 ]+ U9 p6 Q
    c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
    1 M7 s" i6 t8 u9 R# z; r7 BiX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4! F& {) ^- K: D4 W) D
    TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
    ' e- `. b+ [0 Z" M/ FfzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
    6 @$ O/ J( E! E6 G# b; R( GTWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG2 }$ a; l& k  S' {# L0 r9 R  O
    p0OYg4Fg/tz63VfsAdsCnzU=
    ' @- y4 F* T- w1 w3 _     "]]}},
    1 q  z, k7 A& Z  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],. C* F( o) X; T/ r
      Axes->True,
    2 ~" Y) V" [2 L0 Q) {* b  AxesOrigin->{61, 0},& p+ _1 I& S, C. y5 F7 s9 G$ Q
      Frame->True,2 }, V* Q5 Q4 P* F8 |- C
      PlotRange->{{61, 89}, {0, 1}},
    ; d- w4 _/ p$ i, ^- T1 X6 s0 X2 n8 l4 y  PlotRangeClipping->True,
    ( W1 F6 K8 a" }# X  PlotRangePadding->{Automatic, Automatic}]], "Output",
    - w: Z5 Y+ H  D" h# @ CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
      L3 M# v6 z5 k$ G( X" g; i0 Z# S  3.5779583861890125`*^9, 3.5779585219092493`*^9, 3.577958558132513*^9, 5 p& A9 u1 n, Y
      3.5779590691114035`*^9, 3.577959577906291*^9, 3.5779623569426003`*^9,
    * x9 F; j' }9 h+ q% [1 K' R$ N2 J  3.578012484703125*^9, 3.578012925875*^9}]# C* X, \3 D  D' T3 a
    }, Open  ]],
    - W7 u! c- x+ J; ?  v$ u3 s3 O+ E
    Cell[CellGroupData[{
    6 [+ |2 B  B% t" B) S4 U& k
    # A, C4 v% ]5 _% [6 |  _Cell[BoxData[; s; o. x, a& r% |  G( O
    RowBox[{"Show", "[",
    ) g; n# `$ O  w4 p# Z; Y5 a  RowBox[{"p2a", ",", "p2b"}], "]"}]], "Input"],) {; r# t" {: o
    # B/ W* {! j* c: \4 C
    Cell[BoxData[7 Y( ?  \! {% T. b6 n) m) c
    GraphicsBox[{{{}, {}, % S# p: a2 x# G, d  M) D
        {RGBColor[0, 0, 0], LineBox[CompressedData["
    8 F) @1 a5 _' n1 `( m1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
    ( n1 c5 ~9 t. S/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ  {) Q3 {, {; @
    9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P& d- w% G" `, U+ I) u2 p1 [
    ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC
    $ C2 O, w6 b% q8 P0 v, g% t4 gqPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
    . H8 m' m- X5 I% D+ d1 o- W1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
    ; t6 |4 |: j$ Y0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
    6 ^! r6 j7 B2 P; {( Y% r% e2 }" r( ]$ a8 @sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
    / ?& N' w& f9 [9 [, C2 y99yxuG0PAHw7nyU=
    8 |+ o5 y8 K/ \5 J# Y6 R      "]]}}, {{}, {},
    # x' T- j6 g7 R% r2 D/ s. P    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    2 E+ M# E' P- E1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
    . g0 T( u: g5 ~! Q+ t+ b9 _3 L: ~8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
    0 v, r3 Y2 s. G) ?; L3 tc/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc- J: w/ |5 `2 \  K2 f/ ?
    iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
    ; m; z$ ]* {: E3 ^3 dTZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
    ; i% C: z: g. K0 X% VfzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB" |, @* ?: W  }# ~' [  u6 \1 W
    TWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
    - I# P% w' ]! Q- u9 lp0OYg4Fg/tz63VfsAdsCnzU=* ^# M( w* H9 S% \, C4 c; X
          "]]}}},( J6 H& ^1 p8 ]) ~
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],2 c6 [0 f& {/ U/ _* t6 t
      Axes->True,
    9 D. s/ ^$ f9 B: R) F, Z) C  AxesOrigin->{61, 0},5 V4 z9 }9 E8 p  ]$ i1 g
      Frame->True,( W, f, _4 u' K/ e6 c2 K) d% @
      FrameLabel->{; Q1 n3 l  @+ K* y8 d7 X: I
        FormBox["\"\:7089\:6b21\"", TraditionalForm], # S9 g# \8 A2 p: X* h8 |
        FormBox[( l0 W- I$ I& n: R
        "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", 1 W$ M7 I6 ]9 R' G
         TraditionalForm]},
    ' ?$ G! M+ ^) y8 w+ {8 j" N  PlotRange->{{61, 89}, {0, 1}},
    ; s% U+ E( \2 ]" t# J  PlotRangeClipping->True,
    7 y4 W- ^; p; P  z& @  PlotRangePadding->{Automatic, Automatic}]], "Output",! @- ~( n. w% u0 [5 f1 J( d8 W
    CellChangeTimes->{3.5779623624182096`*^9, 3.5780124863125*^9, 0 k% J  i+ T7 d- p' a# b+ x! P
      3.578012927734375*^9}]
    : i2 ~0 h( B, ^% ^' U}, Open  ]],
    & }# U9 s8 j- H: P; X" |# g
    # g; g+ ^# y6 z. g1 hCell[BoxData[
    5 C2 L% l1 q; n. h8 j; W) z# | RowBox[{"\:ff08",
    7 K6 A% j5 y: f$ m! h: v  RowBox[{
    % L5 s; r; d+ P* f  "\:5df2\:77e5\:521d\:59cb\:94c1\:6c34\:8d28\:91cf0", ".7406", 9 Q/ t* J$ g0 r; @, k, F3 [
       "\:3001\:5e9f\:94a2\:8d28\:91cf0", ".4621",
    * l+ D3 g: Q$ m% @0 Z   "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea60", ".5208", # a$ s& L8 {1 v# p6 }
       "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:542b\:78b3\:91cf0",
    " Y6 z+ t4 A2 Q   ".2221", "\:ff1b\:76ee\:6807\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\
    9 h. }, o( e3 n. [9 ?6 L4 P  {\:4e3a0", ".6224",
    6 a  W+ H- a  G! K' v   "\:3001\:76ee\:6807\:94a2\:6c34\:7684\:78b3\:542b\:91cf\:4e3a0", ".2521"}],
    1 u) r+ f2 J: y2 v8 [3 Q   "\:ff09"}]], "Input"],6 f$ M/ D+ ]+ A: N- L, B

    # D( k6 p, U5 B& t* d+ ^Cell[BoxData[
    . e% g9 p, O, T6 U+ |% a RowBox[{"{",
    & f; n- i' b$ {# F! p8 i+ b8 w/ g  RowBox[{! \5 N+ y( e& M+ d
      "\:94c1\:6c34\:8d28\:91cf", ",", "\:5e9f\:94a2\:8d28\:91cf", ",", ) U0 {7 L& o3 J/ }( D% o& Y# S* F
       "\:5439\:6c27\:91cf", ",",
    5 E4 r* ^! L9 d: e   "\:4e0b\:526f\:67aa\:65f6\:7684\:542b\:78b3\:91cf", ",",
    $ D2 @" j! m4 ^   "\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea6", ",", 3 X0 |0 b* f# c% M/ e2 p! K/ O0 C3 I
       "\:5757\:72b6\:77f3\:7070", ",", "\:8f7b\:70e7\:767d\:77f3\:7070", ",", 0 }. |" b) Q5 U
       "\:83f1\:9541\:7403", ",", "\:5757\:72b6\:767d\:4e91\:77f3", ",",
    0 _& k6 Y3 K4 x6 R+ R1 i4 I   "\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf", ",", / [* u, X  L* u4 w$ ?
       "\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6"}], "}"}]], "Input"],
    $ p9 O" h' p+ A8 O4 O/ e# z+ d
    $ \" P* b# ]8 f( gCell[BoxData[" "], "Input",
    + S  N9 g+ J. B5 [2 ` CellChangeTimes->{3.577962834553033*^9}],
    / l1 T9 i' k$ S1 S% }
    / p0 g5 s; a" Q! ], KCell[BoxData["\:94a2\:6c34\:7684\:78b3\:542b\:91cf"], "Input"],# `* T+ O7 g7 f4 X+ `

    / R2 C; ?9 c6 N( m7 [3 C/ mCell[CellGroupData[{6 m9 {: B6 }) R/ _$ v
    " }' R( k( c1 `5 y
    Cell[BoxData[0 t, E! F2 x* v9 X( Y
    RowBox[{"y1", "/.", ! `# F& w6 W$ V$ R3 `: X. S
      RowBox[{"{", . N; r5 v' z* A% L
       RowBox[{
    5 T& E: w8 ?5 y; ]) U+ Q6 |% f    RowBox[{"x1", "->", "0.7406"}], ",", 1 ~3 f" }/ [# V- y; u% S
        RowBox[{"x2", "->", "0.4621"}], ",", , w( \& Q# i- E& x- z7 x
        RowBox[{"x4", "->", "0.2221"}], ",", + G8 @5 Z/ C. ?
        RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",
    3 o7 q& y" R+ Q/ L CellChangeTimes->{{3.57796267209435*^9, 3.5779627224200373`*^9}, {+ J4 Q+ ?; R0 V9 G* Z  L* i
      3.5779627663029137`*^9, 3.577962774820529*^9}}],
    + x6 ^% a& `% x6 O
    8 }  |; m" s4 R% t! M  NCell[BoxData[
    / M; D; X$ Z* R# ?" c2 b2 O RowBox[{
    - Z2 ^' g; g  J5 r  RowBox[{"0.2286149508637297`", " ", ' ?1 v* u9 ?1 F. }9 j7 H0 n
       SuperscriptBox["\[ExponentialE]",
    9 ^0 Z! `0 D" f- S0 m    RowBox[{"3.1415926535897936`", " ",
    0 C2 ~1 u, x+ v7 t) q$ i6 M" {- P, Q7 w     RowBox[{"(", * C2 r% }0 \- v' N9 R  ?8 i
          RowBox[{
    $ w% Y7 h; ]  k       RowBox[{"-", "0.17911224641499998`"}], "-", ; y" O/ t' b# H( O9 n) l
           SuperscriptBox[
    * p& I- Q6 G3 f2 i        RowBox[{"(",
    % W) o; L' a+ r; j/ i3 o$ [2 u2 @. L1 T         RowBox[{  c2 R& h0 M5 {- o
              RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", 6 ?- a2 r+ q" X- q# o+ H
           SuperscriptBox[7 @" Q8 L% `( ]5 V
            RowBox[{"(", : T* e' ~. h$ w. h& S+ i; s$ G
             RowBox[{
    ) W& Y# o$ r3 g4 P, y          RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
    * }+ {+ Q) ]7 E4 C+ E% |& T3 \       SuperscriptBox[
    ( Y% z# m7 [% ~) j( G        RowBox[{"(", . y% T1 R! X2 `: T+ O# n- d: P
             RowBox[{# n" A# s$ _( }4 _2 e
              RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",   F) x& x+ m5 K8 c3 {
           SuperscriptBox["x8", "2"], "-", 5 L+ O& t6 F6 |0 p
           SuperscriptBox[* H, k  C8 i+ m2 E- C& G
            RowBox[{"(", 4 X: o3 b8 n9 c" w, C
             RowBox[{
    6 p" C0 s( z$ r0 K          RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+", 8 L8 J7 O/ @9 z' R
      RowBox[{"0.020180806675835994`", " ", 4 X/ V9 t" c% ~2 G% ]
       SuperscriptBox["\[ExponentialE]",
    : o$ @0 j9 y- n+ u1 R( j( A    RowBox[{"3.1415926535897936`", " ", : q7 {& k0 w6 Y- ^. Y5 o
         RowBox[{"(",
    & m0 W3 [4 G. u0 ^      RowBox[{- f! I/ j3 @3 v: l( L% c! A% ?
           RowBox[{"-", "0.105619387859`"}], "-", ( n4 f* X1 y, p5 a
           SuperscriptBox[
    6 ?) v5 X/ W% A* X# {' J        RowBox[{"(",
    3 m* H6 s! i* G! Z* l& S# g1 S# D: Q: k3 i         RowBox[{
    # r, S: t: e+ J. U+ K) |          RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", 7 ?' `0 q" F# j( e, S
           SuperscriptBox["x6", "2"], "-", , d: ^2 i; j+ D" I, B
           SuperscriptBox[
    * w: K' o1 ]* \6 {  ^* Q        RowBox[{"(",
    " w3 E9 T  r2 R         RowBox[{
    ! e; m6 }2 |, J. i          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 3 D# F4 L! I# Q% V6 W0 v
           SuperscriptBox["x8", "2"], "-",
    7 Z4 `7 U8 M8 F, D$ I$ z       SuperscriptBox[
    $ v; l$ t! W+ J6 K( l        RowBox[{"(",
    + Q+ o4 S- r, O3 \4 @( ]+ r         RowBox[{% ^9 t$ Z$ t: p) S
              RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], # @, R; m: C- `" Q
      "+", # j3 W% M) [0 S3 W7 |2 c0 P3 q: R
      RowBox[{"0.13092706311748437`", " ",
    9 k% G" @) A, i' ^( t   SuperscriptBox["\[ExponentialE]", : \: k5 r/ q* [( d
        RowBox[{"3.1415926535897936`", " ",
    * V5 ]2 C0 h7 q7 }2 t     RowBox[{"(", ' ?% I* U2 C' v. a% H9 l
          RowBox[{
    2 U0 D4 T  ?0 m3 l: M0 Y2 \       RowBox[{"-", "0.236605670085`"}], "-",
    + J' i( P% @5 Z- V+ s9 O       SuperscriptBox[
    , b$ F1 w7 y% Z$ c7 u% n        RowBox[{"(", - b3 Z$ E" `  l' k0 ]- S
             RowBox[{, M# @# I; z: L
              RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",   i* Z( f" ^& K& ]3 P2 p' E  y
           SuperscriptBox["x6", "2"], "-", - K; t  R) Z9 @! g& h6 }
           SuperscriptBox["x7", "2"], "-",
    " l  {: X$ ?  g+ u+ y       SuperscriptBox["x8", "2"], "-", 1 C! _8 ~& k; E; F1 Q, c9 _0 w+ y
           SuperscriptBox[$ M/ G& ^# z  _! A% \
            RowBox[{"(",
    4 o. E' y/ c* n4 L         RowBox[{2 b1 Y8 ]% `  l8 C; F$ v" D
              RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    2 v& o- R! P# y8 `  "-",
    ! u2 E* F4 z3 y9 T- S0 g6 w  RowBox[{"0.033459349088924784`", " ",
    # a% J" B0 b# h& c, f0 C7 x6 S   SuperscriptBox["\[ExponentialE]",
    6 R# f1 k. H8 {% t    RowBox[{"3.1415926535897936`", " ",
    9 f% o' g4 R* }; q     RowBox[{"(", 0 r. L5 N* V# a. [: }9 C
          RowBox[{
    ; ~" j. r) S( ^1 @/ q4 R0 V/ X       RowBox[{"-", "0.46221081830200006`"}], "-", " `- c/ {5 d) e
           SuperscriptBox[
    3 C1 D/ U6 E3 e  u4 F        RowBox[{"(", % T6 T7 H9 a1 C
             RowBox[{6 X* h9 R9 _) K5 B3 W9 h3 N
              RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
    # r/ o) J4 Y# p       SuperscriptBox[, D  D5 w! n4 A3 T$ L
            RowBox[{"(", ) V6 m5 `5 v2 m! E0 F
             RowBox[{
    $ u4 J# K+ Y5 A- p: V: H7 g          RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
    0 o/ N) ^7 s3 E7 L3 g# `4 I" [! O       SuperscriptBox[- s1 L# o$ {. Y( C! H* z8 y2 s
            RowBox[{"(", . n' I8 z. q% e. ]! ]8 h- h
             RowBox[{
    5 ^: m; a4 ~6 w% e$ @          RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", ! s$ R$ M# k  D1 K: M
           SuperscriptBox["x8", "2"], "-", $ ^% d; A5 w4 {& R. D! p
           SuperscriptBox[
    - O$ T; c2 w8 a4 D. t) v1 u- ^1 |* R        RowBox[{"(",
    & H' J0 A  I, C& l  A! j' D; P         RowBox[{
    - Y# `0 W& F+ G$ K2 x8 g7 o4 \$ @          RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 2 Y: x' M: C/ R9 g7 ~) h! s; m
      "+",
    1 z3 r7 D- S( _# b: t! q) g  RowBox[{"0.39611806709006653`", " ",
    ' Z  Q3 }( Y# j5 e8 t* {" X0 |; E   SuperscriptBox["\[ExponentialE]",
    : f4 p% \) ^7 s    RowBox[{"3.1415926535897936`", " ", % {+ v1 \  L5 q0 v' M& b
         RowBox[{"(", % {4 \% M1 K7 J2 a7 C5 J- a' j
          RowBox[{
    1 x7 E7 A( H& V- g2 h9 f. y0 X       RowBox[{"-", "0.5837889295140001`"}], "-",
    0 J, ^2 o' k8 ]& D  g! G, ~# _       SuperscriptBox[
    $ L$ P8 f' g* D  p# J        RowBox[{"(", 4 E; ]  H: B! C; T2 L
             RowBox[{- M! i/ O8 D- {3 n* V; m
              RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", " Q! a* A7 ]+ `0 k
           SuperscriptBox["x6", "2"], "-", ! \3 }; s' H, H; b8 o
           SuperscriptBox[
    9 Z+ b! G  d! N2 E) O% s6 @        RowBox[{"(", ) j7 h( J' E# T1 D
             RowBox[{
    7 V7 @( D0 [; u: t' h          RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", , a! p7 e$ K4 }9 o( D8 }4 ^
           SuperscriptBox["x8", "2"], "-",
    $ a' J8 p1 z& w8 H* ?: y+ A       SuperscriptBox[. Y" h1 e7 U! f1 B; v
            RowBox[{"(",
    - z. U6 v  J% g! B+ h1 _; R$ E         RowBox[{
    # L5 K6 \! E: p7 f          RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],   ?0 i& p$ @  X% s. P& ]% p( _
      "-", ! O4 I% D) L% t) o, Y, X+ e4 A
      RowBox[{"0.19996885877792045`", " ",
    1 T6 I3 V8 A$ B$ |# J' v8 F1 v, z, j' w   SuperscriptBox["\[ExponentialE]", $ U4 F0 ]* y$ Y$ V! I/ p
        RowBox[{"3.1415926535897936`", " ",
    5 z/ n( m  f$ }2 `' c; S* e% }     RowBox[{"(",
    ; `6 i4 Q/ M  e3 p! t) @0 P      RowBox[{6 P3 k, U$ d  }  J8 J( w( B
           RowBox[{"-", "0.19030188470200005`"}], "-", 5 L; q/ }4 C, M& L
           SuperscriptBox[
    7 V- j. ^5 ?( S: `        RowBox[{"(",
    # I8 M! }7 d! ]  V! s         RowBox[{
    " S$ N& F% c( v2 L          RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
    ' C' T0 w: h( Q       SuperscriptBox[
    ' o, B: G; F- W2 @$ Y( r        RowBox[{"(",
    % h- Q0 m) ~3 y         RowBox[{
    # B0 k8 R" N& ~5 n1 u2 b          RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", % {4 B+ y) \, ~  ?6 d: i# q& O6 J" U
           SuperscriptBox["x7", "2"], "-", 8 ^: s! [& c) E0 B% a5 \4 h' _
           SuperscriptBox["x8", "2"], "-",
    / {  \, Y& }) h, ^       SuperscriptBox[& j" a( w1 N# e
            RowBox[{"(",
    1 k8 D, f, u9 b$ d% G         RowBox[{" b$ A( P9 b+ H& ]
              RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 4 m8 \) A6 ~! W1 B
      "+", 3 H1 |( y0 `0 l4 t6 C: B
      RowBox[{"0.23580523388620744`", " ", 1 d& O) G1 ]+ z: Y
       SuperscriptBox["\[ExponentialE]",   W1 H, v. u+ v5 U
        RowBox[{"3.1415926535897936`", " ",
    * N& F9 y5 H, B     RowBox[{"(", ) V" J5 y- s% z- H1 C
          RowBox[{
    , P" P* e* Q9 p, f$ O, N4 Z% J) j% _       RowBox[{"-", "0.28518780882`"}], "-",
    " T% ?( v( _4 Q9 j       SuperscriptBox[
    1 ]1 X7 H' i' ~# m" {* Y2 |        RowBox[{"(",
    ) Y8 o/ I9 B* ]9 }' T# V8 s         RowBox[{
    5 M1 y; }! F# l- k6 r) S! m& _          RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", ! o0 f8 w2 s: E
           SuperscriptBox[
    ' X; I8 I! d) z: B' _1 V# L9 R        RowBox[{"(", ! ^; a9 T9 Z/ _  @3 z: U
             RowBox[{1 k* r# |# @9 f- ?; I6 U
              RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    ) N6 {6 i9 B( X' r       SuperscriptBox[
    - X  T$ O! U7 F        RowBox[{"(",
    # T" `8 N3 m/ N8 y, O         RowBox[{" v8 q9 Y5 e9 t% r" F, z
              RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", 0 j6 ]  C, a) L% R
           SuperscriptBox["x8", "2"], "-",
    + |$ Y( s/ n& z8 X8 w8 c       SuperscriptBox[! ]. t' E: l) _6 _% q) X
            RowBox[{"(", ' p) V1 g$ T: w' X3 n5 O: X
             RowBox[{% M9 _; g! b) H! V5 g: A
              RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    - _; \4 V$ c: C7 a  "+",
    : ]$ Z" ^% O/ ?% Z* ?' S  RowBox[{"0.667027259367853`", " ",
    4 ^" \' f/ l6 Y% }& a   SuperscriptBox["\[ExponentialE]", ' f  w: }2 K) q* U0 S
        RowBox[{"3.1415926535897936`", " ", 8 S* v5 S+ }+ {6 H3 s' O
         RowBox[{"(",
    1 J% M& w& P* h2 m      RowBox[{
    + m, T2 H: k* g- T' Y  g# Z       RowBox[{"-", "0.11387365200400001`"}], "-", + V' v9 h! r* f+ p+ j( v5 M+ h
           SuperscriptBox[
    , }' O8 `" \. d        RowBox[{"(",
    ; y1 i% E! D' a' R. e2 `' ?3 d         RowBox[{
    # `5 ~4 E9 h' |% N; ?          RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    1 K' d7 ~6 A- m6 U( y6 T       SuperscriptBox[
    0 _/ z1 n$ d* Q( N        RowBox[{"(",
    1 s4 A% G  U. ~; J1 u1 I, a" O         RowBox[{/ R; c& [' Y3 P+ o' q
              RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",   c/ @% r6 W: U$ M
           SuperscriptBox["x7", "2"], "-", / ]& Z; F* N0 e, s$ u1 |" p9 h
           SuperscriptBox["x8", "2"], "-",
    ' O* L) N1 _: F( K$ M: O+ O       SuperscriptBox[/ }3 v4 n8 Y8 l9 G/ G( U. Z
            RowBox[{"(", , f0 H0 e. K5 K. b& w: t
             RowBox[{
    5 b% c+ A3 G1 y- U          RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    : n- q3 V( ?& O2 G  "+", 3 F( r$ `- U5 L9 Q! |' l& V
      RowBox[{"0.25282438852646905`", " ",
    0 A' [( X/ c) O6 i$ ]; h* z7 M9 _   SuperscriptBox["\[ExponentialE]", 5 w& S0 e' b* d2 P
        RowBox[{"3.1415926535897936`", " ", / o0 M- E% U& J; P, O9 X3 [
         RowBox[{"(",
    ( ?% w, W* d  V+ Y, D      RowBox[{
    6 w$ o8 t% j3 i% z       RowBox[{"-", "0.11442644782500001`"}], "-",
    : I- e. ?2 F4 ^4 U" s       SuperscriptBox[1 r& U3 Y$ ~$ \. j; |9 r
            RowBox[{"(",
    5 u- ~: ~7 y% `1 F! V' B         RowBox[{6 B( u' b8 Y4 x& O. E1 l& a! @3 v
              RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", / [9 p) j* ]# ~& [: X3 ]" a7 O* A
           SuperscriptBox["x6", "2"], "-", $ ^& j/ V. _. ~, t. l: B* q% I0 x
           SuperscriptBox[) Z; |  W3 [; L8 S4 h1 w
            RowBox[{"(", 0 z0 w7 M" J! ~: [. U% I
             RowBox[{
    9 Y: u" u+ Q# u9 f          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 2 m6 N# `* I1 K3 {
           SuperscriptBox[- A0 i% W* h( k' P
            RowBox[{"(",
    ' x2 W3 ]  C( |/ E9 F/ l1 B         RowBox[{/ |* t* j& ?1 C' L
              RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
    : i# n- Y& S' |3 f) J       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", 6 T$ T$ r8 ^. N
      RowBox[{"0.07581214474544536`", " ", 7 G1 o) `0 u0 S+ P
       SuperscriptBox["\[ExponentialE]", 7 U  R5 Q; T) S* t; }
        RowBox[{"3.1415926535897936`", " ", / ~4 O& }3 w* b# \  k( U
         RowBox[{"(",
    9 u6 J. E  R! ^      RowBox[{
    / W' _  Q# ^# h# v5 i       RowBox[{"-", "0.21008576609800003`"}], "-",
    $ t4 G  x7 A5 T8 b$ Y       SuperscriptBox["x3", "2"], "-",
    : M  S2 ^: A7 x2 n1 k5 M$ m) b       SuperscriptBox["x6", "2"], "-", ! D9 }: w5 R. G
           SuperscriptBox["x7", "2"], "-",
    $ r( ]$ O3 z0 u& A+ t       SuperscriptBox[' H# s7 X! m' f% ]: w/ Q' M; |# w, a
            RowBox[{"(", / s; w6 ]/ f, w' C7 |/ N
             RowBox[{
    . ?3 \: A2 C8 T) }1 m  [. W          RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", 1 ~. I5 }! h3 _: C$ K& X
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
    3 z8 K5 d) I) E0 t  RowBox[{"0.10599338351843121`", " ",
    1 e6 G" Y( L9 T   SuperscriptBox["\[ExponentialE]",   c9 m3 J; a" ?
        RowBox[{"3.1415926535897936`", " ",
    ' J3 F, P  D2 \! w' t1 Y. B5 g     RowBox[{"(",
    . C, i+ ]0 H5 F# h3 S9 x$ a2 @      RowBox[{9 b: q8 y7 z  T, M. W
           RowBox[{"-", "0.4481471925460001`"}], "-",
    ! b- i0 R. j9 \5 `       SuperscriptBox[: G$ j  T: j& j% O& _8 b8 M
            RowBox[{"(",
    ! j( m; K& @- v- G: x9 S         RowBox[{
    5 @5 {: |2 c' w0 T2 l0 J          RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", 5 J" o% J) D, S' b) I- w0 y
           SuperscriptBox[
    # s6 v; {# M, q3 s        RowBox[{"(", 0 `$ v. N: l8 Y" z$ v
             RowBox[{6 L0 y, O- Y% V( e1 W9 ?
              RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
    4 I" W9 ^. @0 [" w( A) Y       SuperscriptBox["x7", "2"], "-",
    0 x) _+ h: y. {$ y9 ]8 M       SuperscriptBox[# S7 P) }: G/ P* i& P
            RowBox[{"(", 1 f% q( {4 w0 A+ I
             RowBox[{
    7 _: v  R" F' M. o. O* A# \# ^          RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
    ) _0 w. \/ _0 n5 u4 W3 @6 K) s       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    & a1 D, f# N1 k1 |7 Q4 q" H  RowBox[{"0.5008208386064421`", " ",
    " |3 b; o. J( B7 E   SuperscriptBox["\[ExponentialE]", 9 T3 X$ O" h0 |$ c0 l1 B. L
        RowBox[{"3.1415926535897936`", " ",
    0 _8 D6 N2 Z6 F     RowBox[{"(", 6 C4 ^0 R$ O) U
          RowBox[{. V7 Y2 B* F# O  y1 a
           RowBox[{"-", "0.08722659614000003`"}], "-",
    , i6 ^. A6 e# u       SuperscriptBox[2 p0 X' ~( V- u' E, V
            RowBox[{"(",
    0 z9 S  }" p8 q) Z' K         RowBox[{. Z, i6 Y5 K" X# f- e% C) h
              RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
    ' |, G1 F) G) ~0 m       SuperscriptBox[8 C! G4 F2 z$ H2 I
            RowBox[{"(",
    , i/ I! L6 l8 Q  V+ H7 H         RowBox[{% u" V3 W. J( y" I
              RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
    ( ^0 q1 K) c2 i1 r       SuperscriptBox["x7", "2"], "-", " Y5 f, z. Q0 X3 h% F7 _' F
           SuperscriptBox[0 }, o7 ?: j6 J$ L
            RowBox[{"(", + e$ _7 z. J8 P
             RowBox[{' i& c% z3 f3 b, O
              RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
    " Q3 T- u' H2 R" t: Q9 e$ @' i6 s: K       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", ! ]; ]! H1 I, y/ \9 H0 a7 M  W
      RowBox[{"0.32564305572552343`", " ", 0 n0 I7 w* C' m
       SuperscriptBox["\[ExponentialE]",
    1 V3 X4 X& R8 B$ {* f    RowBox[{"3.1415926535897936`", " ", . s# R* e$ c( _. e% g" b% o
         RowBox[{"(",
    : {. j& L* B6 g( Q4 G      RowBox[{) d' ]8 n* t/ G8 n
           RowBox[{"-", "0.23738217000100004`"}], "-", - @9 s" o3 K8 \1 x
           SuperscriptBox[
    ; b  [) _$ W; x        RowBox[{"(", 1 s) M6 Y0 ]9 L: R
             RowBox[{6 J% I6 r3 k( m+ N6 Y3 P
              RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
    , A! c( l/ N" n1 I: _  L6 p       SuperscriptBox[4 {. M" G" ^. P9 M' p; D) G% W
            RowBox[{"(",
    + z  q. {7 @5 U. t1 G; H+ Q* c         RowBox[{+ G! A6 s; D) R
              RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", 1 b, O. a$ \, g3 Z% i; U
           SuperscriptBox[- Z( q3 h& B1 p4 H# G$ F
            RowBox[{"(",
    : p& X3 n2 P9 t; D         RowBox[{
    0 n: _% s$ [  E% i+ j4 V          RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", - H* N+ y% n$ K8 U
           SuperscriptBox[
    % S4 F3 y$ F, u- N3 t- w0 U        RowBox[{"(",
    2 V$ G) ]: f) }5 s& i) d' O6 k, o         RowBox[{
    - B1 S+ X4 \5 {$ R% I          RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
    $ P3 @! R$ {. T       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", & O+ B" F# v$ y: U: M3 \3 |
      RowBox[{"0.6665374509702793`", " ", * d) u. [, n/ K7 Z6 a! D
       SuperscriptBox["\[ExponentialE]", 4 D3 Q  J+ o3 U! @6 c7 U8 F$ K7 Z
        RowBox[{"3.1415926535897936`", " ",
    ' y2 Y9 c2 \+ R& S8 ^* \" d" K     RowBox[{"(", % q9 }- x% ~+ n9 E8 N/ f
          RowBox[{9 [1 j2 N- G/ U
           RowBox[{"-", "0.19162171876400003`"}], "-", + a6 q( T3 |( L4 v
           SuperscriptBox[
    ; a! \# Y$ a! ]1 G0 Y        RowBox[{"(", ( Q6 \, \( w/ d  z- p" w
             RowBox[{
    " [. P9 V$ w& O' c. G* t! s; V+ r8 i& e          RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
    9 k, @, J0 M8 X( T3 \       SuperscriptBox[2 m( O' i0 B+ ~
            RowBox[{"(",
    & C* {# n  E4 a         RowBox[{
    6 v. ~( _" R9 y' y          RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
    / d3 H: \! P0 f6 y' H" S  i" c       SuperscriptBox[% T! k. B) i# G
            RowBox[{"(", : t2 Y) ^8 z- \' W
             RowBox[{$ }4 T. q* R9 z
              RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    ( P1 C" ]) d# i% S6 L, ~" k       SuperscriptBox["x8", "2"], "-",
    . W0 f/ ]8 \6 A* C       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", 4 Z" Q; Y+ w: z3 L, K
      RowBox[{"0.4812237524557293`", " ",
    ; ?1 g% Z% `8 `# [; f   SuperscriptBox["\[ExponentialE]",
    & g* g4 h" w" @* E) R    RowBox[{"3.1415926535897936`", " ", 5 B0 [5 U( E! ~7 z3 z4 @7 R
         RowBox[{"(",
    # r$ W  D# c# B  I      RowBox[{
    2 G% `+ D6 a) o$ X       RowBox[{"-", "0.109748954594`"}], "-", 7 X( x" [- V3 {
           SuperscriptBox[
    / B' x3 w6 T( [5 c0 z        RowBox[{"(",
    6 K* V" y* k& j. I) N, m         RowBox[{* O5 y3 h- c3 V8 p
              RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    . S0 y/ |; P: K# k$ e       SuperscriptBox["x6", "2"], "-", 1 _4 o. z6 ?. L2 [$ l' e% {
           SuperscriptBox[
    8 d, Z2 _% V. X7 Q4 \        RowBox[{"(", $ b' h7 `8 J" W9 i, s: i# r  Z
             RowBox[{
    " b' G& k+ X: X& R# l          RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", ; H" ^4 g& l+ U$ P- }" i. L& N
           SuperscriptBox["x8", "2"], "-", ; c: O0 j4 }# f1 K
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",   [  U' i1 f5 x9 n
      RowBox[{"0.176024676254045`", " ",
    + x: `! f: I: o7 F; q! D   SuperscriptBox["\[ExponentialE]",
    5 e7 C, c6 A  j" C7 f5 ^    RowBox[{"3.1415926535897936`", " ", 5 X5 m+ s2 z- c+ I" ^9 a9 F. Z
         RowBox[{"(", - b6 u# P) i: |/ S( V
          RowBox[{
    . A9 E8 r! ?5 `, _- [, H       RowBox[{"-", "0.14616677062500003`"}], "-", , Q: D$ h7 h( g8 [% X
           SuperscriptBox[
    . ?  d4 [: i; ?4 g" }! O+ k        RowBox[{"(", , H: B5 `: L1 h9 n
             RowBox[{5 K# Z2 q: ]4 K' g' {1 q5 t1 c* g
              RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
      \; w6 N% \) I5 L* P# E, _+ L$ w9 F       SuperscriptBox["x6", "2"], "-",
    0 b5 Q, Z4 C' X. |' |2 S9 J% e       SuperscriptBox[# O' z$ A% ?9 s6 O9 y& ]! x+ t- m6 N
            RowBox[{"(",
    : o' H- H6 E5 Q2 P$ n         RowBox[{6 a/ b& v- ]" O6 u9 J- ~8 H
              RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", " a' ^# H" e, n( O0 K
           SuperscriptBox["x8", "2"], "-",
    ; E4 f4 s6 Q8 p' ]7 @9 o8 w5 G) H       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", 0 _* M$ Q3 E% X0 M/ {* |
      RowBox[{"0.5945873894818965`", " ",
    , e/ K  ~' \' q6 y8 G7 |, k   SuperscriptBox["\[ExponentialE]", * D/ u  l, P# T8 I9 J' N" ~) F% G% O
        RowBox[{"3.1415926535897936`", " ", # m+ s. ]8 V! g. {9 T# r2 O
         RowBox[{"(",
      w& f3 z) I2 f. C) q( M4 ~      RowBox[{
    1 c" \+ D  g2 v9 s; i# Y       RowBox[{"-", "0.10407011464100005`"}], "-",
    # y) O% b" d) r( ]       SuperscriptBox[
    $ X) }( O! j, f6 Y* w, L        RowBox[{"(",
    ) P1 A  l/ I2 j: @         RowBox[{
    , e1 M( H* U5 O: U: u4 r          RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
    ! c) i" ?" ^+ Z) N* x. v       SuperscriptBox[1 S4 K4 X, R8 x/ W
            RowBox[{"(", / V7 o4 g8 K% W
             RowBox[{
    4 m  G* f, x+ Z$ b9 n6 F          RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", - i3 _: i8 T' g: b
           SuperscriptBox[
    " z$ J- ]; m+ O0 h6 i- n7 [/ ^! D        RowBox[{"(", ) O3 i8 q1 Z+ |
             RowBox[{* K( u( S% q* o2 K1 z
              RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",   N" |# ~0 y) t# ~
           SuperscriptBox["x8", "2"], "-", 6 |: u! K4 }- _* l. c
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", / `! x. w( p4 Y" s1 e) T
      RowBox[{"0.027591936509660075`", " ",
    : N0 b4 R; k2 u+ _   SuperscriptBox["\[ExponentialE]", 8 ^- r* n6 Q; j: o
        RowBox[{"3.1415926535897936`", " ", 4 U1 L" X. j# y. t7 o
         RowBox[{"(", / s# N$ ]% o7 ~+ y  w  c
          RowBox[{3 n6 {1 G7 q# [0 e1 x
           RowBox[{"-", "0.31770463544200006`"}], "-",
    & _( j8 S: _8 f9 [/ f       SuperscriptBox[
    5 Z+ l6 E* ]. ]& O' }/ k        RowBox[{"(",
    9 T* G- G0 k- M' N' K8 |- b6 ]         RowBox[{; T# l6 h9 z$ Q; H
              RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
    8 E% i) j8 P! J$ r, _. r" ~2 \       SuperscriptBox["x6", "2"], "-", 7 \# g2 B0 A1 @& l7 v
           SuperscriptBox["x7", "2"], "-",
    7 d$ c+ B2 Q0 m* w$ I% S       SuperscriptBox["x8", "2"], "-", 8 G  x" p/ n1 \( W- [; Y) I  A
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",   M5 a1 z( e1 D0 F+ z2 j7 j
      RowBox[{"0.5252475961933536`", " ", % Y1 u- }0 i" t- i9 k1 p# }
       SuperscriptBox["\[ExponentialE]",
    , K# i" @: X. B9 g    RowBox[{"3.1415926535897936`", " ",
    / p! Y3 H% C8 \  [+ J) p! y     RowBox[{"(", 5 O* M- B3 y+ l8 T
          RowBox[{, F* A  T2 C0 z8 N# w5 K
           RowBox[{"-", "0.6410867660730001`"}], "-", . e* e( h" @; i& e, z
           SuperscriptBox[. [/ o' ~7 u& P5 t, I9 d/ U
            RowBox[{"(", , }, z9 O; J* Z  M
             RowBox[{( \( c9 X1 m/ k% d& |( ?
              RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
    ! D4 `+ }* \- Z5 |$ o# l       SuperscriptBox["x6", "2"], "-",
    " `- R0 K! ]8 V8 W6 {       SuperscriptBox["x7", "2"], "-",
    6 B" k' A7 k/ q* P3 J: p       SuperscriptBox["x8", "2"], "-", + I2 A1 w: r$ |' s( o9 k1 t
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", : n+ F1 d* Z3 ~8 w
      RowBox[{"0.32047284779644936`", " ",
    ! o$ k) h2 U, W. S, D   SuperscriptBox["\[ExponentialE]",
    # C' w7 K& f" I* w5 `    RowBox[{"3.1415926535897936`", " ", - l" X2 g/ C/ O2 `6 q$ A' J
         RowBox[{"(",
    ) o. `9 j, |6 e* n: Z2 b" Y5 B0 Q      RowBox[{
    # x& I1 T$ `  d3 e- a, c& ]& d! X& e       RowBox[{"-", "0.155663887074`"}], "-", , Z2 z) M* f8 P& K4 Z7 C
           SuperscriptBox[. P" s  q  Q8 s' Y7 d1 {
            RowBox[{"(", , R+ D# _/ q8 C7 k) _' u. g
             RowBox[{
    % E; A" u' \. h, i* b          RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", ! I5 E, \9 Y& r
           SuperscriptBox["x6", "2"], "-", ! L! z& C$ F# M
           SuperscriptBox["x7", "2"], "-",
    & r; S6 C/ P: W& t5 W" t' I       SuperscriptBox["x8", "2"], "-",
    , x  ~0 \9 X2 ^: ~4 e2 Y       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", & y, v% U$ R; V7 t
      RowBox[{"0.7528674241482847`", " ",
    4 O! L4 K) R  N   SuperscriptBox["\[ExponentialE]", . n& K* e* P% L' \
        RowBox[{"3.1415926535897936`", " ", 3 `: _% ^6 s1 L  p# b
         RowBox[{"(",
    0 p; j% b; V3 G, W4 _* a( s      RowBox[{& j$ H  m" P! }' W- p8 M/ I
           RowBox[{"-", "0.14151232428600002`"}], "-",
    5 N7 ?6 `; I+ U1 x) W  [3 }       SuperscriptBox[+ i6 y! g3 E" w( y/ ~' l
            RowBox[{"(", 9 m6 t; h$ \& p$ I
             RowBox[{% h) W6 ~" V2 a+ v- D$ B' J
              RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", 1 {  w2 J* }, h* S, p
           SuperscriptBox["x6", "2"], "-",
    ( }! p' A! D% c/ R4 w/ I# S       SuperscriptBox["x7", "2"], "-", * P  k8 G- B" f0 ~
           SuperscriptBox["x8", "2"], "-",   `2 q9 B1 B: t+ u" K3 g2 o
           SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",
    0 _5 b, y; d( K& s CellChangeTimes->{3.5779628386090403`*^9}]9 i2 z. E. n+ t6 r% B
    }, Open  ]],' `+ G4 i5 R. d* P0 P2 t* J. ?

    4 W+ c. g- j7 E+ X/ E! kCell[BoxData[" "], "Input",
    * @4 T/ {1 H, G CellChangeTimes->{3.577962835879035*^9}],( Z4 b! Y) [8 d  p4 [' z

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

    % N; J7 ^0 n( P6 j0 b1 B1 s) z) q这个是用mathmatic做的神经网络，能导出最后的权值，就是可以写出表达式，我想用matlab做，却不知道怎么做
    回复

    使用道具 举报

    569646632        

    0

    主题

    7

    听众

    46

    积分

    升级  43.16%

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

    • 签到天数: 9 天

    [LV.3]偶尔看看II

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

    使用道具 举报

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

    0

    主题

    8

    听众

    44

    积分

    升级  41.05%

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

    • 签到天数: 12 天

    [LV.3]偶尔看看II

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

    使用道具 举报

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

    qq
    收缩

    • 电话咨询

    • 04714969085

    fastpost

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

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

    蒙公网安备 15010502000194号

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

    GMT+8, 2026-6-16 06:28 , Processed in 1.591325 second(s), 105 queries .

    回顶部