快捷通道

QQ登录

只需要一步，快速开始

  注册地址  找回密码

数学建模社区-数学中国

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

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

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

1

主题

10

听众

296

积分

升级  98%

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

    • 签到天数: 75 天

    [LV.6]常住居民II

    自我介绍
    无

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

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

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

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

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

    相关帖子
    回复

    使用道具 举报

    兰秋小沫        

    0

    主题

    7

    听众

    31

    积分

    升级  27.37%

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

    • 签到天数: 7 天

    [LV.3]偶尔看看II

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

    使用道具 举报

    涳夢        

    0

    主题

    0

    听众

    1

    积分

    升级  20%

    该用户从未签到

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

    使用道具 举报

    冰E柠檬        

    10

    主题

    43

    听众

    1434

    积分

    升级  43.4%

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

    • 签到天数: 278 天

    [LV.8]以坛为家I

    自我介绍
    冰E柠檬

    社区QQ达人

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

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

    群组: 数学建摸协会

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

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

    使用道具 举报

    百年孤独 实名认证       

    3503

    主题

    538

    听众

    5990

    积分

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

    • 签到天数: 691 天

    [LV.9]以坛为家II

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

    群组: 2013年国赛赛前培训

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

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

    群组: 物联网工程师考试

    群组: 2013年美赛优秀论文解
    5#
    发表于 2013-7-30 20:56 |只看该作者 |招呼Ta 关注Ta
    问题完善一下！或者把代码贴上！
    / l5 ?( E; t8 f$ j, O8 @
    回复

    使用道具 举报

    琳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
    & E0 ]; W6 P- @6 z5 ]# l神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗
    4 m3 b1 Q8 T5 H
    (* Content-type: application/mathematica *)$ r* E9 O4 s: W8 O) E# P% z
    , }% x6 S  C& \& i, l' k; }1 M
    (*** Wolfram Notebook File ***)
    * G# Q! o% z3 g& K% w3 e5 Q(* http://www.wolfram.com/nb *), Q1 s$ t+ {* \0 \, O
    4 v" M+ Q+ t! q" F( Q! l. u2 C/ R
    (* CreatedBy='Mathematica 7.0' *)+ w8 u; J+ ]; |* B, w+ ?, @

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

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

    , R3 A, z  s! f$ xCell[CellGroupData[{
    * d' q( D0 f: v- g* o2 j  V7 L3 g( V; ?0 K3 w$ G
    Cell[BoxData[{0 {# }1 t! g3 j4 S, d
    RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]", 0 r1 J( ]  q2 t
    RowBox[{"M1", "=", "1"}]}], "Input",
    ! r$ M1 _6 Q8 l CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {
    9 D$ i6 q' G8 M7 S   3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9, 0 k4 ^' e+ C) B7 U
       3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {
    + O2 Q4 O. S. ?3 J" O   3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9, 4 |0 O$ P+ x- |- L* c2 }/ A
       3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {7 e1 I% H0 G% ?) i  C' g& w
       3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {2 r0 S9 H( P* n1 O" ]$ A3 q
       3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9, / k) _& ?+ u; z$ ^
       3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {
    # W) C1 c$ n( z! T9 R   3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {
    8 G+ B) T/ Y6 r. E8 s/ B   3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9, $ w0 T. N+ X' B5 h0 M* o
       3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],
    " E. Y9 S, F2 B5 w- _' i- g
    1 \. R4 g' ]! \" f8 {2 g& ICell[BoxData["0.2`"], "Output",. J2 E& p" d; R, N2 v
    CellChangeTimes->{. j& y0 V* J& z" J6 m
      3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
    ; {& Y7 P7 y7 O$ t& {' O5 c   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
    ! F9 d+ @# h, {   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,   ^0 {" M- G( J; X9 [
       3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {& M2 R! @( B* u! j, k1 Q2 }
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
    & c' W/ c8 H+ m   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    9 W3 V8 R7 j9 t7 p5 q7 i* T   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
    0 C/ A- J& p) P   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {, o" D8 B; F. G
       3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, # u$ R( {' c: N- i5 [, y
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    % }9 q4 M( `: [( ~4 f   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,   A) S9 h, ^0 T! ?
       3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, ( `( f, P3 G6 f3 Y% U7 J7 A
       3.577960510686717*^9, 3.578012149296875*^9}],# v. u0 V7 \2 |8 c' _
    ; B8 M6 N/ j( P. y
    Cell[BoxData["1"], "Output",
    5 l* Y8 l% k2 E; q: c CellChangeTimes->{0 e8 i) Q2 V! K7 x) t: I0 i- {
      3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, # k1 [, M! r6 f, P, `
       3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {# L' I' R7 V; k5 I0 y; q
       3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
    $ w) C& y7 F! u7 f) ?   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
    # }3 D6 J5 G( P2 {2 S5 b$ O   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
    ! o8 @, d+ \6 _2 V3 g! u. }& F$ r! Z   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    - R& M% p' k  c# O- Z' s   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
    6 C, ], J$ v* u( s7 L   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {- J/ v6 E/ q' Y% X
       3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,   `7 b' c* Y! A& P0 E# h
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, $ \) x) |, U) ]7 Y% J" t4 y
       3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
    3 ~; H3 M9 h; }   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, " N1 q# l9 ~! r9 l6 o% |7 |
       3.577960510686717*^9, 3.578012149296875*^9}]! a2 n4 o, x' |1 S4 ?; H3 n
    }, Open  ]],  R# ?$ L) G( u6 N9 O5 j
    $ P. _' u) L$ l
    Cell[BoxData[& x, \' A' t" F; F4 A& T
    RowBox[{"For", "[", + P3 D/ M# d. N; Z- g+ s
      RowBox[{/ K6 T1 j! k6 f9 W" v7 w. g6 Z
       RowBox[{"k", "=", "2"}], ",", % `2 i9 c. l+ _* G) b
       RowBox[{"k", "\[LessEqual]", "60"}], ",",
    + @1 x, i* @3 B0 j   RowBox[{"k", "++"}], ",",
    - z3 t* m' M' `6 j   RowBox[{"{", "\[IndentingNewLine]",
    ) {/ F. {+ H* u    RowBox[{
    " ]8 |2 u' G2 ?% \     RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]", % @5 d# X6 ]9 Q$ _& |
         RowBox[{"For", "[", ) B" }, k2 S4 u4 u* s
          RowBox[{
    : p- o! `4 u. f3 ]: j7 {& N       RowBox[{"j", "=", "1"}], ",", ' B# k' D1 c# q5 E" v
           RowBox[{"j", "\[LessEqual]", ; T0 s' G4 d# G# G. o* Z; s
            RowBox[{"k", "-", "1"}]}], ",",
    ! D0 W) z- U% W" J       RowBox[{"j", "++"}], ",",
    5 a; O3 f6 `5 j/ x7 O9 I/ T7 a! T# ^1 P: k       RowBox[{"{", "\[IndentingNewLine]", ; q+ w9 D  G" X
            RowBox[{; b6 e2 ~" ]. R0 W0 Y! `
             RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]", . P! ^% X2 z3 C7 e1 E0 }. t# S
             RowBox[{"For", "[",
    5 f, e* h6 w5 x3 R% e+ i          RowBox[{
    2 c( t3 E! v8 i3 ]: Y# w1 z, D           RowBox[{"i", "=", "1"}], ",", % X) S8 E4 b: s$ I1 a1 r- r
               RowBox[{"i", "\[LessEqual]", "9"}], ",", ! m: g3 M; I; m5 ]1 x" [# S. V
               RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 0 w6 ~* v% V0 L
               RowBox[{
    3 \4 x- z, v( b: H" r            RowBox[{"r1", "+=", & w6 X# X7 {1 m4 u. {, H1 A% X+ B
                 RowBox[{& a. |& ~( }6 G3 q
                  RowBox[{"(",
    4 z1 a" q* P( k. I( s! Z) X               RowBox[{$ F, x( I4 R$ c, U
                    RowBox[{"CM", "[",
    " p% o. z, j- c, k4 r                 RowBox[{"j", ",", "i"}], "]"}], "-", " Z; `* I7 W1 \' D- `
                    RowBox[{"Data", "[", 0 S4 M+ |- u$ r
                     RowBox[{"[", ; |# F! z8 T+ r" q2 X, N: B, Y; v
                      RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*", ; e6 w7 Y2 L: K  ^; b1 \
                  RowBox[{"(",
    6 n+ @4 K  Z- F               RowBox[{% H6 i  b) M* V, \* P
                    RowBox[{"CM", "[", / W& M0 `3 G9 w6 a* r
                     RowBox[{"j", ",", "i"}], "]"}], "-", / D' [3 F+ o. U! R. C0 _3 k+ n
                    RowBox[{"Data", "[",
    4 B4 [# I  p# a: u7 S! W/ Q                 RowBox[{"[",
    9 P- a: d" A0 j' l7 K" D                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],* d, e; Z: K7 v; P
               "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", : k" J# O2 E4 T, T) a- g, O2 J2 R* `; P
             RowBox[{"r1", "=",
    & D: i6 P9 C- ]$ e, H/ V( B          RowBox[{"Sqrt", "[", " _) n( x% S& ~
               RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]",
    4 x+ S3 l# @7 S. ^( [( `$ @         RowBox[{"If", "[", " ",
    1 B+ h. y+ V5 C          RowBox[{
    9 r: l' \$ D- z) K& }) ~5 c           RowBox[{"j", "\[Equal]", "1"}], ",", 0 q1 t- b9 r) I! F
               RowBox[{"rmin", "=", "r1"}], ",", * H# r. N; I: k+ c# }
               RowBox[{"If", "[", " c9 |7 x9 a" d* ~+ t
                RowBox[{: X! h' }0 \$ a& L5 J+ S
                 RowBox[{"r1", "<", "rmin"}], ",",
    ) k( I+ v* o' i1 P% f. \" j             RowBox[{"rmin", "=", "r1"}], ",", 6 e) B9 k. @$ ]6 U9 j4 C
                 RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}],
    ' k6 _8 P" b) b        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";",
    7 k, i+ {( {4 Q/ A3 f8 c     "\[IndentingNewLine]",
    - j2 K& U* E* u. q* I/ [     RowBox[{"If", "[",
    ' d5 N: H* @( \% O( N      RowBox[{
    * |' `. L; @* j       RowBox[{"rmin", ">", "r0"}], ",", " T& o) q4 e, N5 n! k
           RowBox[{"{", "\[IndentingNewLine]",
    1 \& y& G2 |* _5 l# j        RowBox[{2 D' N; u* K6 R* p. \' P- S! A
             RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]",
      ?* q& }( }2 Q1 q3 {         RowBox[{"For", "[",
    ) S3 G7 d3 q, n) S" c* ?4 a          RowBox[{5 ~9 b# A4 {8 y4 n, k2 @# T# @
               RowBox[{"i1", "=", "1"}], ",", ; W. A& \1 p3 G* M! \5 O7 ]6 N
               RowBox[{"i1", "\[LessEqual]", "9"}], ",", ' ^# v9 e. D# g0 H& R4 E
               RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]", 7 g) h! A  k% i' C& ]) e
               RowBox[{
    , a% U' w' l( N( G            RowBox[{
    " a& g4 g* l) C3 ~" r0 b) O8 ~" q             RowBox[{"CM", "[",
    ) j9 m* E! o+ c- Z              RowBox[{"M1", ",", "i1"}], "]"}], "=",
    5 y/ p: F7 c  T             RowBox[{"Data", "[",
    4 \/ a; A# B% I  a  h$ _              RowBox[{"[",
    ( m( l, a4 ^. T: O               RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}], & x! ^3 k2 u5 D/ v
              "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",",
    * F$ E$ Q3 }( E       RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}], * X( z2 L5 [; B, T3 h$ b7 x7 P; r1 K
        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",8 w- ]. f  n5 Q# A
    CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {
    9 u6 p. [1 T0 d   3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9, # D6 F7 o+ v- `$ p- E2 e: Z
       3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {) g0 q& `' Q1 J" S7 T
       3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9, ' j9 N% _! p! G2 L9 F; V
       3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {5 \3 f; P3 s6 ~' L; o( C
       3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9, $ q8 l3 a" s9 i, H: E  d
       3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {
    1 Q% W9 x( p' L5 ]! x9 k! d   3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9,
    3 i  ^/ I: z3 W% a" [* ~  V, R   3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {
    5 H' w1 L% c- }* c   3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9, $ z" {( S) u3 P+ m/ s1 g7 l; c/ ?+ j* B
       3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {
    & E  ^: V* R0 p7 z. R3 `   3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9,
    ) |& v7 P% l+ _  V   3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {+ Y" t, |( D) q6 O
       3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9, 8 g4 B2 T: V2 e. L4 E8 ?. z: T1 p
       3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {
    % U1 t& r1 K, u+ A   3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9, : h$ L* F! e4 _; U7 Q% X
       3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9,
    4 P3 m0 u( f. S! }/ s   3.577958821991373*^9}}],3 }0 \' Q' Q! R6 n

    # B( _% X+ b! ]9 t" MCell[CellGroupData[{
    8 c* X! V- y+ W" J. M* l: ~6 H
    ! X2 M$ v0 z, `Cell[BoxData["M1"], "Input",  Y9 ]$ L+ K; n0 d$ x' }; c; E7 \
    CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
    - Z+ {1 h2 c; n) t6 k( P
    & j" }( E* w7 w! y' }, VCell[BoxData["21"], "Output"," F% \. z5 r/ A- {, o) g
    CellChangeTimes->{
    $ f7 b% \8 c8 o8 E8 C8 X2 P. M  3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {
    - _  `  Q" w% k9 v  }# t) ]* F   3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9,
    # L4 p2 I! `# x; z# r  Z5 W   3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {
    1 ~1 `$ q1 G+ P7 ~3 l   3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
    ' i2 ]/ M5 J1 w) W  p6 u   3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
    $ `6 o3 b, S5 C) h" T$ l   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9,
    * U& J( R# n  ]/ v   3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {. V. ~( o& P3 r  y+ {4 G$ Y
       3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9, ) `9 a" a( G& W
       3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9,
    3 c( _$ h: Z& }' Z9 e/ r   3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9, ; R9 e+ A: V* {% Q2 J6 `) b
       3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9,
    : L; x7 D0 s; T2 z/ r   3.577960515600726*^9, 3.5780121541875*^9}]
    ) L! t' l0 {3 y3 }2 d( k}, Open  ]],- S) u7 X) w8 ~+ V* i: [

    - b. p" I+ w0 W/ n+ qCell[BoxData[
    * w3 @6 M! u% t+ `3 N$ B8 U4 W+ f RowBox[{' h) Z3 y& Y7 k1 D  r; i* E1 j* O
      RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[",
    7 R, [' R$ v' o# I8 q, X/ \9 n   RowBox[{"1", ",", "i"}], "]"}], ! T- u4 z& a. z3 l3 d
      RowBox[{"\:5230CM", "[", & j9 E1 B! ~% e: }
       RowBox[{"21", ",", "i"}], "]"}], 4 q8 d- y$ @- y* V1 Z1 H  N
      "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\7 U5 k$ ?9 X/ D
    \:51fd\:6570u1\:5230u21"}]], "Input",  k. m) h  @( h2 J
    CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {
    1 \6 R; P" W; m6 D- z. P4 e  3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9,
    ) \; r5 Q6 x, f$ Z- b  3.577960526583145*^9}}],
    . |  a3 [, O" @3 B8 B- O' n0 n" z5 M" W
    Cell[BoxData[
    : m8 I% M7 _. F RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
    + ?8 q( x. ]& T. b& y- w6 M: o CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],
    0 S6 F. s4 y3 K) ]+ L  O6 ^+ U3 s. S, k8 p$ i9 Z1 R# J) ?+ Q
    Cell[CellGroupData[{
    # t4 d+ c( }. S% U
    / R2 v8 {1 ?7 r5 g8 M7 J% U1 JCell[BoxData[6 b* M0 t3 }. {! W
    RowBox[{"Xa", "=", 9 q8 {9 _. }. w$ ^, p$ T
      RowBox[{"{", 9 _5 \, Q1 k6 l# [- C  S( C
       RowBox[{
    * K" g% t& [4 o* z) z% a" z8 Z   "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7",
    - T: p6 g9 z+ |# j& y* v    ",", "x8", ",", "x9"}], "}"}]}]], "Input",
    6 U7 S8 L; U. g8 p# M CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],7 _- p* F7 b* c1 t

    - ?; d6 C! `$ D$ X) Q9 L6 SCell[BoxData[
    # i; Z' Y2 N" g% M0 l9 u9 @8 O7 Z RowBox[{"{", ) Y) m! c: U/ s9 J& r
      RowBox[{  B3 D( x+ h$ C$ e9 T3 H
      "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",4 O0 I% [! T2 e& R9 j: T
        "x8", ",", "x9"}], "}"}]], "Output",
    ( e' K+ G, [9 y CellChangeTimes->{/ F8 X. G8 ]4 A  q9 a( [
      3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9, ' \$ [6 O# v4 a8 q
       3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
    " N, D& k6 ]8 ^: k- B# ^   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9, 0 ]1 R/ F, J8 b0 n: t+ J$ j
       3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9, & J% e$ B4 u) D" c6 \* n$ A
       3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {
    2 Q+ |# l6 |9 k' L   3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9,
    5 V+ p5 g3 g" X: v$ A" \   3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9},
    6 H7 ?$ ^  Q8 e  F/ c0 A   3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
    & _3 K# z) |: p2 B6 k- S   3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {
    ) A3 e$ @7 v3 {3 F5 C0 t7 y8 B   3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9, / e. u8 W. K# m, E9 d  X- X
       3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
    4 ^" i' u- f( x3 R   3.57801215725*^9}]- S# V# b0 [& G- P3 V
    }, Open  ]],5 H" J4 C9 e6 o) @  b
    1 r9 H3 L( g3 Y) X# l
    Cell[CellGroupData[{
    * a4 a  M' ?, r# h6 `. D
    & O; H# m: o: c' _Cell[BoxData[
    / Y: u. B6 s: | RowBox[{"Ca", "=", 1 v0 G" W# L5 {4 w
      RowBox[{"{",
    , w7 W5 W  c% Z" S8 \   RowBox[{
    1 x4 X: A6 W2 h4 p+ T1 O- x   "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", " d' m* R4 i' a3 h7 q
        ",", "c8", ",", "c9"}], "}"}]}]], "Input",- @0 E! f* l& O% }0 T! Q/ @) W
    CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],: l2 E, i/ d4 c( v& G. Q; \
    " i* \/ E0 D; p* f4 z1 N
    Cell[BoxData[* e) j0 a! ^0 L6 }# S
    RowBox[{"{",
    - c, ]+ Z( v, v) d' m  RowBox[{
    ' M0 o% O% [( H$ z2 f$ o  "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",8 _- o* Z: a+ Y+ O7 i
        "c8", ",", "c9"}], "}"}]], "Output",* l" R9 `( p6 M, @) R
    CellChangeTimes->{, f- b* `0 `1 L' s
      3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
    " c/ ~5 w# r* ?/ R3 k4 p   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9, " b( U" U' M& j; t9 a0 h+ V
       3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9, 6 k5 J* u7 L/ ]0 v4 P4 u9 @
       3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {
    , Z4 V0 J! D+ Z% k$ }7 s& H6 D   3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9,
    2 ]" V4 ^: n" n% D   3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9}, : d3 t# I, @% y
       3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
    2 |7 i! }9 ]0 M$ |, T$ y: l   3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9,
    " Y% T& ~/ P- m3 \0 D   3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
    . z8 H5 Q& P& B" F: @   3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
    , r3 ]) p: A8 O5 q. \9 q8 q( X   3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9, ! P" T* U0 A2 b+ y9 n0 m
       3.577961904604212*^9}, 3.578012158671875*^9}]
    4 z1 w, M; b8 u! ]$ z2 _- @}, Open  ]],/ W# B) ~. U* d# O. {
    5 N5 V0 i6 z- y7 e/ J
    Cell[BoxData[% g9 D5 p3 {. J) Z6 ^0 G
    RowBox[{"For", "[", - Y% {# a$ U% {9 D5 C+ @
      RowBox[{6 }) ^' ^- x0 b& y: p
       RowBox[{"i", "=", "1"}], ",", ; f" `  h( t( \: g" L
       RowBox[{"i", "\[LessEqual]", "9"}], ",",
    . w) d$ r( c' I% i   RowBox[{"i", "++"}], ",",
    ) _; `5 F: s, {2 G# E6 o+ R6 o   RowBox[{
    : \; ~2 T$ x. Z! Q% k- J    RowBox[{"Ca", "[", 2 a$ C- Q$ |& }( R
         RowBox[{"[", "i", "]"}], "]"}], "=", , k$ G% x$ P$ R4 x5 }# U, t
        RowBox[{"CM", "[",
    / S% k( L  D9 v4 r     RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    ; H- ]1 {& ?2 B! u+ r( Z3 F( X( C CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9}, 1 C( J# K- G) _* @' y
       3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
    ( Q1 N! C. u% r   3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9, 5 m1 f. T3 }! v& @- o( O+ v2 g6 q: K
       3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9, ( \6 G6 V7 b1 |0 {
       3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9, $ u4 B; Y  I$ T9 z; i) u7 N
       3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9,
    ; Y+ I6 g+ i0 a( G   3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
    ' J# D1 d( J# b$ B5 [3 B/ j% R! U   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9, 9 ]- |. k. Y  t% b1 \  S
       3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
    & l( o% P4 `% W% ]   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9}, ( b$ w" l) z* ~4 U$ [6 e# s2 ?
       3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {3 S8 m( z" I. [$ M
       3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9,
    " d  P) [$ o+ z7 Q7 H+ m) |   3.577961906897415*^9}, 3.578012176296875*^9}],+ h( T# p# _* v
    ) u  K, p9 t/ K5 N" z
    Cell[CellGroupData[{
    6 e' l6 x. Y4 O% h1 v5 R
    ! R* j/ a$ R- p" z3 }Cell[BoxData[2 p5 V8 h2 E, {! I+ s
    RowBox[{7 G: u  \) d0 m4 ?$ ?1 v
      RowBox[{"(",
    8 A0 V3 J0 V7 @! _: s$ n* l/ y   RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ; F6 A8 T. I/ n- _/ F, u% @  RowBox[{"(", - P% _9 X' e! c' w7 q0 @
       RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],
    * Y/ H! H3 o0 D' n9 p2 A' ~% X6 M- W
    ( x# l5 p: }8 k! _" ?Cell[BoxData[# Y: I6 E: v4 ], u8 V4 |' P+ {
    RowBox[{
    ' Y; n+ O* l6 r) F  @! l7 ~/ d  SuperscriptBox[
    4 b/ L" U% A+ C0 e6 U   RowBox[{"(",
    2 K) X& n; G, Q    RowBox[{
    * a4 u/ \9 L5 o3 H/ ]! \     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+",
    1 ?) X: ~+ P) h- d- f; |  SuperscriptBox[  p" @$ H8 }# K# |
       RowBox[{"(",
    0 `4 a5 [& o  J! o6 J    RowBox[{3 f# `. T3 i; d; r
         RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",
    # v# M  P% N9 {& @  SuperscriptBox[8 M- g& C0 ]- o
       RowBox[{"(",
    + H8 O' Q4 K) m: l- s1 }    RowBox[{
    ' ~: W9 V' a+ L' c  S8 a) m; O     RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+",   j: x, }2 {: L+ C
      SuperscriptBox[
      W+ X4 h+ ^" e, ]9 G, F   RowBox[{"(", 5 Z; S1 W. m$ v5 |6 j. n. M
        RowBox[{9 b) [* N9 V, j" C0 x! w
         RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
    0 c4 @2 Q  P  ?/ _& n! i  SuperscriptBox[2 C6 V5 g& Y( R! i: i3 Z
       RowBox[{"(",
    5 x9 q# R! X+ Z% P0 H    RowBox[{
    5 j- P( o  ?+ Z6 d  \     RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+", / J  l0 [/ U$ x
      SuperscriptBox[! J# D3 {# M# y' W& A9 x% v- D8 a
       RowBox[{"(",
    + v" V" `+ P( v, a/ R, {    RowBox[{
    8 c2 B8 |/ E  T2 z     RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+", ' A, W; q, F- h/ y
      SuperscriptBox[
    & F6 B% s# Z% \* B+ w+ A* E   RowBox[{"(", ( l5 u6 x3 Z  n( {+ Q3 \! ~
        RowBox[{. V; {$ V4 E, X4 U! y, e
         RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+", & M* [0 y9 J5 k9 z
      SuperscriptBox[
    + k# I' U& H. K7 \& v) g3 a   RowBox[{"(", 1 f7 O4 \' ^5 V8 z
        RowBox[{
    ; G1 ?- b$ L- k% z) G  y; C     RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+", ' L& v1 Z6 J( F
      SuperscriptBox[) @) J+ B) g8 a3 n
       RowBox[{"(",
    $ e6 C8 w  `9 z8 X7 r' t    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",- O3 N  V, @+ }% [" Y+ _
    CellChangeTimes->{
    & X8 h3 @1 i' v  3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, $ q/ b% R6 S  M3 {' }+ R
       3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9, 2 b* l1 b9 J5 w! g: E
       3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9, 9 E# V& h6 @7 a
       3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9,
    : r7 A; w2 `) F% L7 @0 q   3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9},
    5 _; }- D8 Q# Z1 \2 {   3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9, 3 O3 N5 m, |3 C9 m
       3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {' j/ R$ S# D; d" F" r
       3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9, ( I- X- N& y6 U6 Q8 R9 u
       3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {
    + Z& G' Y+ B0 n   3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {; B& @$ Y4 n1 k( B, h5 q( k
       3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9, ) j6 e7 {% B$ W* Z3 }
       3.5779618537169228`*^9}, {3.5779618846049767`*^9,
    8 P7 l9 U2 n/ L5 n5 b6 J   3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]
    * G5 X( b: c: K* Y1 v2 w}, Open  ]],
    1 ]: W; L7 p/ b8 [3 c8 V) o3 W* S& i) ]/ C6 R5 M
    Cell[CellGroupData[{
    & ~8 `: d; u& p
    , M" S0 e& Z; ]* b6 V0 HCell[BoxData[
    1 G1 y+ i/ c6 a. a RowBox[{
    5 u, X/ r2 \5 J# M, ~  RowBox[{"Ca", "[", 7 c) T3 t1 A& v  q9 n" M2 y
       RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",
    ' E- v: _) A, _$ i CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9, " Y. ^6 u# `% N. ~, E  i1 }: v* U
      3.5779616465173616`*^9}],' A1 Z* k' K, H

    ( U. B: w4 T3 U6 \2 N" o7 zCell[BoxData["0"], "Output",
    + y% r: b" ]0 [8 e# X2 m  I CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9, : C6 P+ e! ^7 m) n3 V4 v0 X( a
      3.5779616484049644`*^9}]1 w* m' `* W5 l# [2 d- s+ o
    }, Open  ]],4 l/ A6 H. k; v. v5 B& j6 Q$ @4 v

    & w- i; B( c% J( \# D! _7 z$ HCell[CellGroupData[{
    ; T+ z" z: O+ Y: t0 v3 J& ?9 {% z* j/ e! @
    Cell[BoxData[
    : e: }" w! ]  K" N; ]' o7 { RowBox[{5 N4 U" ~; I) T1 i6 o; ^" k
      RowBox[{"Ca", "[",
    # s: W# c- Y5 s4 D1 n9 g   RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",
    9 @6 R5 @7 S9 X/ v' g7 m1 ?, w0 w$ a CellChangeTimes->{3.577957376235614*^9}],
    , @; B# Q  `! {0 C# O; h$ G' r7 |& T, `: E
    Cell[BoxData["0"], "Output",
    ; l0 {8 }+ r$ k( v& n CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]+ v" }6 d  s1 [2 Z* Y5 x3 Z% N; R
    }, Open  ]],
    / T6 n4 i. T. p- e1 P: u1 X) ]$ G8 ]" H
    Cell[CellGroupData[{" J, F! J1 Q( u7 N% i1 Q

    8 _, M  V4 g9 ^. I/ NCell[BoxData[" w" I& l0 ~7 t/ d1 _
    RowBox[{0 `) G) n9 c  r
      RowBox[{"Ca", "[", ' m; f$ R  }: G5 h
       RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input"," n3 s: R/ F- F" Q- P
    CellChangeTimes->{3.5779573112927003`*^9}],
    # p) m3 J$ ^0 @5 ^( t$ j! K
    + [/ k5 N- p( G* l  LCell[BoxData["0"], "Output",- m# }: e/ \0 y% c: B+ R* B
    CellChangeTimes->{. H9 k$ G3 D. \
      3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,
    * v: x$ |8 t1 p9 d   3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
    ) v! d8 A0 I$ n* L; n; P   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
    % W; r. J, o5 I- j1 A, m8 s7 o   3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9, ) Y. H( o" o: m. a& Z% `1 I9 \
       3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9}, " l2 x, B% G% L: s
       3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]2 l; B3 r' _! s5 A/ S; y1 K
    }, Open  ]],
    % ^9 c' j  q7 B7 D0 w( I- A' R& i5 j; t* ^
    Cell[CellGroupData[{
    ; ?3 z4 n8 X4 t& E  C) c' f) |$ P
    8 t6 v8 I9 |8 M5 X. k& ICell[BoxData[
    . o  _: q& ?' `- T8 M RowBox[{& v2 K2 g) M! B  J0 Q
      RowBox[{"Ca", "[", 4 ?1 u# {" \. ?8 ^- V/ l
       RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",) {0 e3 q8 N7 G: m0 ]
    CellChangeTimes->{3.577921461734375*^9}],
    8 u; y. t! q4 M* Z7 |+ @
    5 P& f( q" V/ z6 T, s/ d1 hCell[BoxData["0"], "Output",
    7 D7 k$ ]" L, B6 Y* b, v' W CellChangeTimes->{
    / i9 ~, P' ~% a3 g  3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9,
    ( b" V* B7 Y* L) ?   3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
    ' I7 S3 P6 ?& ?6 B! J4 t   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
    1 \0 L9 N  n) j# |   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9,
    / ~: @. d5 L2 J/ J9 v/ o! x% Q   3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]
    ( w9 X- C5 s& D& {& b9 V9 p}, Open  ]],7 X3 _) s9 Z/ E; P* f% y
    ) H/ M# ?9 J; I* Q6 h2 L
    Cell[CellGroupData[{
    5 S6 {$ ~1 b5 v% o, d1 Q( W2 G/ b) {5 ?/ h7 k- W
    Cell[BoxData[
    3 T2 ~$ h( g# @5 S RowBox[{
    + j; ~3 d4 N0 V8 l% h7 u( v( @4 ~  RowBox[{"Ca", "[", 8 J! j* e% ?2 z$ R+ |8 ^1 \
       RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",- b; w- v7 Y# _
    CellChangeTimes->{3.577957303118286*^9}],
    1 d; h+ f! h$ O# \
    4 G; \. c  _  P6 G# s. F( ~Cell[BoxData["0"], "Output",1 K) R3 O; f% E0 `
    CellChangeTimes->{, b1 ^( n# z( C0 W
      3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {
    ) h: V% r5 c" Q' B" {1 \% Y   3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9, ' a; D2 e: i; F* b7 t1 b
       3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
    1 |. J) W# D* e0 f   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,
    * q# V$ n' r5 m# r/ Q) D  @8 x   3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9, ' t9 X( }: p  ~6 e/ l  l2 \) N. A
       3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {. d+ q) k6 x4 l0 [( Y
       3.577961889378585*^9, 3.577961912965826*^9}}]
    . l1 b3 y7 _0 B: }7 b}, Open  ]],
    ) e2 M& n% [3 s; q1 ?
    5 n$ ]) [# B2 C0 }" SCell[CellGroupData[{
    - Q1 z& {% m  w' ~$ h+ v0 `  Z+ t3 t% e' m( X/ w& e
    Cell[BoxData[
    5 y# s7 I  s1 d% r) k RowBox[{: S0 T& m* P) Z% q( b% ~
      RowBox[{"Ca", "[",
    , g: _  ^  E. q( y$ J  {   RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",  m; N9 O8 ]! C7 l: s1 U0 J/ D9 h
    CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {0 s2 }4 p. g: W- ]; F6 i8 G1 L0 ~
      3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
    # E$ L2 o% g$ q! s2 i  `. s( A  3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {
    ( a0 P6 q% D  n0 B( X6 V  Y  3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9, 7 l" p. Q+ _% f  \% G5 q: f  w: ~
      3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {
      x/ l/ F1 e& r) v  3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9, 6 k* C& ^/ r, h5 ?" |& M, m
      3.577921435703125*^9}}],* u3 S4 f, S" u8 O2 d

    ; p2 v: w7 O2 V" u; o) K( h( l7 VCell[BoxData["0"], "Output",; O( R2 Q, [  z: H5 Q* ^
    CellChangeTimes->{
    & M, h( E5 j3 u' [5 u* |, ^  3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {! V! J' C7 n+ ^8 Z, C5 r
       3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9,
    7 }+ E7 D! q, N3 @- O$ F3 \  P, a! i   3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {  o4 n# R+ J7 Z# b6 c% e
       3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9,
    & S( I* V8 |6 N9 ]# v& L   3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {
    2 C( B6 n2 m, R/ Z; P   3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
    / Q; r. f' e6 c; K   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9, 0 w+ s! U0 O- C# ^  Z+ y
       3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9, ! N, s  x2 U9 Y# L
       3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
    4 u9 T* f" x' |: y   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9, # B; C3 F8 M) ~( B
       3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {
    5 s; T  M' R7 T2 _6 n8 u( B   3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9,
    - E& B- W; S# u& c" [8 \6 N0 [   3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
    # ^3 |2 m9 H3 ]0 ?" u1 e}, Open  ]],
    # o( _- g8 n& j) l4 g
    - d$ r, l  K! o# p8 f7 M" \6 bCell[CellGroupData[{! D, o! n, p* B. y. w& l$ H6 w% n. k

    2 y$ L- M* [9 a4 j% K* ^3 d- y4 ^Cell[BoxData[, g( y7 ~# i+ }+ K7 S& V2 c
    RowBox[{"Delta1", "=",
    : k9 L0 [6 }$ d0 y& X" ?: L) B+ E  RowBox[{
    3 s: s$ E; d$ Q( q0 s   SubsuperscriptBox["\[Integral]",
    * W5 s! N& r! j, C$ m    RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], * s! L  D( N1 B0 G3 C
       RowBox[{
    # r+ ]& L9 B. u( v  i    SubsuperscriptBox["\[Integral]",
    ; V9 E8 j5 y3 x4 o5 a! T7 L     RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    - N4 O* ^$ G  R    RowBox[{; t6 j/ L& Q# J7 U
         SubsuperscriptBox["\[Integral]",
    9 P1 P* b" n. _) `$ b      RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], * X3 R& L6 ]2 y1 J4 i0 s* N
         RowBox[{* N' _" s( w  I3 c
          SubsuperscriptBox["\[Integral]",
    3 Y) G- P- Z% e) L# e* X' C       RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    5 h: ^( v- f* w4 d! f. z7 c      RowBox[{
    $ S8 L4 N# h* A# y$ j: G       SubsuperscriptBox["\[Integral]",
    ' C4 {2 E  Z, l        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    0 e  i: ]# X6 W* A/ E7 d       RowBox[{
    4 `3 ]- [1 u% ?. [        SubsuperscriptBox["\[Integral]", ' R3 H' U& ]/ ]( W% X  @- A
             RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    , S2 U* s$ o! f2 p6 S        RowBox[{- C, s& P# p6 h% ?+ m
             SubsuperscriptBox["\[Integral]", * _; z  C7 Q, |: ~8 d! U, P
              RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    9 S7 J" a1 x* w9 g! ~8 N& I  y         RowBox[{
    : R3 q7 B" t1 e0 }( Q+ k; p          SubsuperscriptBox["\[Integral]",
    5 {$ {5 d& M6 b% M6 @           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    : A5 G9 Y4 p4 W6 C4 z% n          RowBox[{
    " I6 @, X9 ~! H( z" g3 r           SubsuperscriptBox["\[Integral]", ( I+ F# h, s, ^  H
                RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    2 L, Z/ e7 \0 N8 o0 w% f5 t6 R           RowBox[{
    9 g& h+ x7 q, V            RowBox[{"Exp", "[",
    ' I# I, @3 x# k7 W! k3 Y             RowBox[{  o- U& O* Y9 J/ a2 Y% c7 v4 t
                  RowBox[{  m; X& m; a1 C1 s3 Z  A5 r
                   RowBox[{"-",
    3 l* t* ~, H9 |$ R4 U8 M; @                RowBox[{
    5 I5 P( `3 a' H! E' b) d% ]1 A                 RowBox[{"(", 7 k! S! I. v) w$ i& d  E: o
                      RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 5 x/ E; ^5 p+ G* T
                     RowBox[{"(",
    # q; _  `7 c7 D7 K( e                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
    + n9 A# Z) }' b4 @2 N  F  t. ~" J              "Delta"}], "]"}],
    ' ]- g" `/ u5 ~& d+ a2 P3 l            RowBox[{"\[DifferentialD]", "x1"}],
    ( O3 S3 h5 @( E. Q  Q0 {2 H- _            RowBox[{"\[DifferentialD]", "x2"}],   f1 \1 [1 u$ t: o7 f$ c& g8 T! z
                RowBox[{"\[DifferentialD]", "x3"}], 7 L  T( `1 m; {
                RowBox[{"\[DifferentialD]", "x4"}],
      b; }9 l7 J- Z            RowBox[{"\[DifferentialD]", "x5"}],
    2 N- ~8 e# [' B6 o* N* ?            RowBox[{"\[DifferentialD]", "x6"}], . ~- Z+ h0 s* K5 X) B* K: i
                RowBox[{"\[DifferentialD]", "x7"}], 5 Q* e2 I6 w% C9 g4 I
                RowBox[{"\[DifferentialD]", "x8"}],
    ( }! s3 p+ p3 P9 `& M4 N* D  D5 w            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
    " n- R- ?0 j9 u" N1 E, s3 C CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {" S, \9 Z4 R3 E' l4 y9 h
       3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9,
    # [0 f5 ?( z3 K0 \: v! y3 [: t   3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {( w, O" m- y3 H3 q2 c, h$ {
       3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
    # @5 a* d$ {4 J8 r   3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {
    5 z7 Z' a8 E3 A% O   3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9,
    - l7 O7 f& V4 [. h- F/ r# [* l/ J5 ^   3.577918964453125*^9}}],' |# p: r9 E% N$ H: `

    , t. s! Z! f$ NCell[BoxData[: X; E3 C& h" u- p
    RowBox[{"97.40909103400237`", " ", ; V1 c$ E2 ~3 Q
      SuperscriptBox["Delta", "8"], " ",
    + D! p2 H2 J9 v' I& s. @  RowBox[{"If", "[",
      A+ m5 e9 q+ K. B% Z   RowBox[{
    " @/ q; v; R$ X: t! d3 c1 G    RowBox[{* i6 N& C( a& ?. e- ~
         RowBox[{"Re", "[",
    3 G1 p' ~9 m( c/ ?: H      SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
    1 |2 r) {/ c4 j" u  s: n2 {    FractionBox[0 t! t2 o4 k2 ^5 h3 b, G( e( C8 z
         RowBox[{"1.7724538509055159`", " ", 3 x* m( f6 y' n9 Z
          SuperscriptBox["\[ExponentialE]", 7 t7 m' E: B  d% @# O: d
           FractionBox["1.1102230246251565`*^-16", 4 Q2 Q4 |- W1 l; Q
            SuperscriptBox["Delta", "2"]]]}], 2 w/ E5 e0 E$ C0 B: G' k+ }
         SqrtBox[, J/ R1 W; L7 r/ |- p) V
          FractionBox["1", 5 A& i, r7 y" B7 U# e8 a9 N
           SuperscriptBox["Delta", "2"]]]], ",", ; T+ n7 G; x; T3 F3 T' ?  {
        RowBox[{"Integrate", "[",
    7 ~3 Z5 W! k+ q     RowBox[{, j( t5 Z4 Q# j- f8 _1 |8 |' {
          SuperscriptBox["\[ExponentialE]", : ~; M( S9 A+ r1 |, W
           FractionBox[
    & t6 C3 X; N( G: w6 g        RowBox[{"1.1102230246251565`*^-16", "-", 3 n9 r( w9 ~1 E! z8 V
             RowBox[{"1.`", " ",
    " a* L6 W  h: s. j3 e" O- C+ J2 m( L          SuperscriptBox["x9", "2"]}]}], ) ~" g" F: n) O/ @7 f% D1 Q
            SuperscriptBox["Delta", "2"]]], ",",
    # ~) O+ K5 Z+ R9 ?  t& p3 q0 _, U      RowBox[{"{",
    2 l" K# q& u* p5 H       RowBox[{"x9", ",",
    + p/ S) _; @) x0 F: M7 Y" h) o" e        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
    + a( ~9 `/ A/ q      RowBox[{"Assumptions", "\[Rule]",
    ( |  C. W& j8 F+ h6 J+ S  T       RowBox[{  h; Q. S2 A% t5 P3 @# V5 w  J7 v
            RowBox[{"Re", "[",
    # d" s. w" U2 t3 V, ^# t/ B/ x; f         SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}], 0 m: ?5 H* ^9 ^' Y3 N6 \# Z
         "]"}]}], "]"}]}]], "Output",
    " o9 p: n6 }7 ? CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9,
    9 I: C9 y) q/ B  3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
    % H+ e& X5 q9 \' M( o  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9, 3 t# }4 e. P3 k/ H2 X
      3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9,
    1 t' n* g3 y) r# W, r: L  3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9, ; X+ K9 l0 V" X" ?2 C% q# S
      3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
    + u# Q) m, E1 }  z  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]
    ! S8 }2 N( p+ a}, Open  ]],! e4 R4 Q- }' q9 ~+ H

    4 K# T  R6 p$ K- n: XCell[CellGroupData[{7 S0 D8 o' M2 G4 a) P5 ^8 q! |

    - Z6 ^$ x, P$ ECell[BoxData[
    . |, l) c. g* Y; [" c  k* { RowBox[{"Delta1", "=", 1 I( F' N) @8 B& _
      StyleBox[% q# k: b* W9 h( u
       RowBox[{"97.40909103400237`", " ", 5 n: t2 c  s/ k* f
        SuperscriptBox["Delta", "8"], "  ",
    + }: W) ]3 i7 n" f% g    FractionBox[
    ( }$ m+ `" z! E+ s9 G- h5 E     RowBox[{"1.7724538509055159`", " ",
    ) C5 H6 w' G% N& F; r      SuperscriptBox["\[ExponentialE]", 6 u4 t% f8 U% o. U; ^; ~' r# Y. `* `
           FractionBox["1.1102230246251565`*^-16", # v2 X# T! q" j
            SuperscriptBox["Delta", "2"]]]}],
    0 z/ J- f4 N# n  F     SqrtBox[
    # _$ i9 O8 w) ^, d6 Z) v* D) }      FractionBox["1",
    8 m3 R1 f6 j) D9 G. v+ k5 `* g       SuperscriptBox["Delta", "2"]]]]}],; j$ `: x1 r, z7 u5 G
       FontWeight->"Plain"]}]], "Input",! C; i/ A# P* E* l+ [4 ]' P# T
    CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {, g$ W5 `0 o4 }& v/ {4 Q6 X
       3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9, 1 F; d# u/ E3 D3 c
       3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
    ' h! U# {! M( `* t* i3 C" \4 H   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
    3 B; t2 C6 @1 k2 s   3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},
    : g) r" b. e9 D# ]7 @   3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}]," b" E3 t$ Y4 o8 c# N9 T3 y& v
    ! j* j! G9 F( w& {9 i3 T
    Cell[BoxData[
    $ S" J+ \) Y* ], S9 s& S FractionBox[
    1 p- R5 A) b' w  RowBox[{"172.65311851642346`", " ",
    ' T; O8 `# a& H1 l5 I. B5 B   SuperscriptBox["Delta", "8"], " ", 2 N1 O! U9 u, P7 K  y; E# Q
       SuperscriptBox["\[ExponentialE]", ; P1 `+ a  w6 ]! H
        FractionBox["1.1102230246251565`*^-16", # A' v9 |: g$ w$ Z) \
         SuperscriptBox["Delta", "2"]]]}],
    ( ^  D0 Y  @, J* z  SqrtBox[
    ( q# X. \8 p/ a   FractionBox["1",
    2 t( {5 k+ Q2 v* E1 W; u6 j$ u    SuperscriptBox["Delta", "2"]]]]], "Output",
    + C+ @9 u4 z- N- o CellChangeTimes->{
      \. @7 Z* r( b! g* _  3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9,
    # ^3 K) [. r7 _3 P( C) K, d   3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
    6 z+ \$ a- i4 y1 j1 M   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
    # B( b) g7 t, e6 [( O( I   3.578012166234375*^9}]' \* X+ G# {+ _, F- k; [) Q/ r
    }, Open  ]],
    - {1 Q, m' }7 I5 c# q7 |. B) I% g2 b2 W  ?1 J( G8 K
    Cell[CellGroupData[{
    $ Y6 o6 q+ Q, j9 U; c5 x
    ( G9 h4 m. t5 p1 O# X* B1 i4 uCell[BoxData[+ R1 W$ y7 D. _/ K; P
    RowBox[{"DeltaX", "=", " o8 N6 o- @9 f, n8 h- L8 D: Z" t# |
      RowBox[{"FindRoot", "[", ( c% c8 F* O* v$ v2 G1 l
       RowBox[{
    9 Z- w' _7 S  p7 v5 G$ h0 b+ S3 x    RowBox[{"Delta1", "\[Equal]", "1"}], ",", ) k- u0 C4 \4 J# C
        RowBox[{"{",
    3 [$ z3 A% |( v7 d     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",% K* b+ u( ^! r9 P) A
    CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {
    . r- B: y: X( F( r) u% Y" N9 g/ w   3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9,
    % j. K9 l7 v* q1 w2 ?" T! j1 R* F6 H   3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9,
    ( Y" B' k2 J, t   3.57791921584375*^9}}],
    ; D. y( t! T( m$ T+ M/ i- r/ U( V3 Z
    Cell[BoxData[
    2 l2 d! u7 ?4 ?; \ RowBox[{"{", / b: S; {2 ~2 o+ y! v
      RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
    9 U# |7 }1 w: |- E% S, g5 y. _ CellChangeTimes->{: Y* Y7 c, C3 Y" r5 {# x  e
      3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
    6 M& h. L+ c. b2 ]" a3 S; j0 j   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9, . w; i( ]- C$ T- S; c% l
       3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
    1 ~; K9 e1 i3 B3 s. ~# P! n& l7 I   3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
    % q6 o5 {9 ?( n4 u1 d4 M, ^   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {  B4 p# @3 k+ e- J9 W
       3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9, 0 O  `$ N: Z  X% D1 Q7 T
       3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9, ; ?% j: s  o% j2 ^
       3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9, - I# V5 o9 G4 z2 \9 _
       3.57796070150625*^9, 3.578012167703125*^9}]
    7 A$ O2 E' m  @% f}, Open  ]],
      a3 ^6 N/ [! N* ?3 n* \% T# [' T$ B0 d+ h1 L" Y) Z' |; P, Y/ `
    Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\
    ! T5 M' Y( x; z8 i7 }2 e: o\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",, K- {: H( U" o
    CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
    8 `4 @/ T/ C. u9 s) b+ b' q/ @" x  3.577960705312657*^9, 3.577960707621461*^9}}],
    & C1 a2 H# E& O$ L% |! n' ?- y" n2 Q% K# \6 u) Y" \
    Cell[CellGroupData[{5 x& g3 U$ Y* N( \. J

    8 O: F4 V7 k( \% QCell[BoxData[. M% s6 B9 C8 r) X( X) V9 I
    RowBox[{"C1", "=", "Ca"}]], "Input",
    % P) |5 }- E, C' ~ CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],
    3 ?: r9 i" ?0 l$ `7 c6 r+ t; P& @; C1 A8 b# w: L" h. E$ T
    Cell[BoxData[
    : q1 z% F! u# \6 y RowBox[{"{",
    $ W" V- X6 f9 y' K( g) m. E6 ^  RowBox[{
    & r1 `9 W) U) y  "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", ( r/ p; U# ^# K$ S! c0 U
       "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
    6 j  P+ r; m5 @$ ~2 r7 ~   "0.`"}], "}"}]], "Output",
    4 Z; O- E' V: h# p" z CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9, $ j7 O( ?# `0 z8 \0 e3 F( N" F
      3.577960710273465*^9, 3.5780121855*^9}]
    % d9 V' F6 w+ u/ e5 C/ N}, Open  ]],
    / f9 s( F4 O% O6 K" m2 O) h( A6 w" r1 r$ q) i/ q: A
    Cell[CellGroupData[{$ }7 \4 }& ~1 H- Y, V

    9 i' O% ?' K  W2 @% M( fCell[BoxData[' s) I8 `( C: L" }
    RowBox[{"u1", "=", * o2 g  ]2 W# |5 v, Q
      RowBox[{3 V+ a5 Z6 _1 \& G7 V1 E- w
       RowBox[{"Exp", "[",
    , h0 k( n' i8 M    RowBox[{
    8 `/ ^' e* P' S4 n$ a     RowBox[{% f: b0 d, v% m0 X0 O
          RowBox[{"-",
    4 |. q  n' t& V% i( v4 n4 j       RowBox[{6 o/ V2 V) T* @8 h
            RowBox[{"(", % A" {" N0 ^$ \& H& Z+ W3 f' I$ O
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ! f3 ~3 O' Z2 I        RowBox[{"(",
    9 Z9 h; b) i" S! Z# ~. ~         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    / \+ v. m" P* @7 B' d" J% n, g     "]"}], "/.", "DeltaX"}]}]], "Input",3 v& N( T- E2 S% b' h
    CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {+ b- g$ i2 W6 w% N3 [: t: {
       3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {5 c. A0 ^! U% s( E: h4 J; ?$ _) G
       3.577919193484375*^9, 3.5779192326875*^9}}],
    . {3 O* v5 Q* S/ O  D9 D; H- V2 L* C8 Y+ E, U, k
    Cell[BoxData[5 |# D& P( c4 h, k9 S4 z1 q
    SuperscriptBox["\[ExponentialE]", / U& f% [: o) a& S: f% _& _; c
      RowBox[{"3.141592653589793`", " ", $ [3 I: d+ H; X7 ^1 d9 g
       RowBox[{"(",
    0 O" R2 C) Q8 k; P" o5 V9 q    RowBox[{6 F6 q/ b. N* ]* C7 I* Z
         RowBox[{"-",
    * X' \4 P( z6 X" s+ U- p1 L& @0 Z, ~      SuperscriptBox[
    1 x  s3 @5 |5 c8 m1 S: o       RowBox[{"(",
    " z# g$ H# e; E9 C        RowBox[{; d7 d: \6 b: ?; n
             RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", 0 ?" o: f4 ]8 |: S& _* P
         SuperscriptBox[! ^/ Z" n( i6 T% O3 k5 O7 z. j
          RowBox[{"(", " O6 ]3 W6 }/ J$ l& b# }) t
           RowBox[{) X4 N. Z% e, P# x) T6 z
            RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", ! X' t& L4 l! M! g9 U% i( F
         SuperscriptBox[
    2 N' e" v4 C+ u+ e3 Q      RowBox[{"(",
    3 V! L: p( ]0 c6 R0 S7 y       RowBox[{
    3 D+ C& S8 h& p$ d8 u" w        RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", : s  r5 C6 I9 N5 n
         SuperscriptBox[
    9 W& `6 L9 c& ^, U' R      RowBox[{"(", ; V0 \2 B  I5 w
           RowBox[{+ @& [( s8 B3 \) T- k: h! _+ W
            RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
    , Z; y0 N! g0 i0 a. |     SuperscriptBox[3 r+ D# r* Z, A0 [
          RowBox[{"(",
    * n% @5 v1 J9 f       RowBox[{
    % C( w* Z$ h8 O6 L3 `        RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-", " ~$ v+ d2 ]. a4 Q; ^. k
         SuperscriptBox[
    3 v! l, O" g3 J( }# _% M5 u      RowBox[{"(", # S4 p& k0 D0 L2 _( U$ S
           RowBox[{; L3 r) N5 a, z; @, _1 C/ E
            RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
    ' S) ~3 \  T0 _; t8 l     SuperscriptBox[
    0 b$ Q4 t/ e# `' w( p      RowBox[{"(",
    ' _' E: G& i4 L- D9 S+ j       RowBox[{2 w9 u& U' c; H
            RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
    5 l) h! L. \; `1 S  W     SuperscriptBox[
    ' b4 p$ h, K: V2 D* u      RowBox[{"(", : y9 u; \  L7 x4 f! E
           RowBox[{3 E3 V5 T' e2 M# k% j+ ^
            RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", & o* ~5 h  j. v6 g
         SuperscriptBox[! O% [& h% c( U0 y. u. V
          RowBox[{"(", 6 s9 t* E2 a  I9 Q: @8 K' ]
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], / e% N8 z8 ~, [+ y
        ")"}]}]]], "Output",
    " y5 w% ]# r5 i- m CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9, ' W6 C0 i/ h5 M' |6 k8 X
      3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9, 6 j5 F- Y! y/ c$ _! Z$ w
      3.578012187078125*^9}]
    , J- W/ `$ R5 s& ~: P5 z}, Open  ]],& J( J/ V2 B! Z' G

    # w  \! e1 D1 h( _0 R" {: P" ZCell[CellGroupData[{
    ) X3 D% ]4 B5 k- l8 y1 m
    . v" }9 Y7 k' S$ i6 g; P2 }Cell[BoxData[
    & l" }/ W" P/ d! O) e RowBox[{"C2", "=", "Ca"}]], "Input",, u1 [3 z( l- B' ~, O! r
    CellChangeTimes->{3.57792047321875*^9}],6 {2 x2 F0 D; T( w& f

    " r- i9 k6 D; G; d" N7 CCell[BoxData[9 b+ A& y7 K' \0 ^8 M8 q
    RowBox[{"{",
    : |5 A" p( p- g/ V' a3 r2 H  RowBox[{
    8 `9 j* d/ t) H) O3 L6 z  "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
    2 e; s; G% Q' Q7 a: [0 n1 Z5 ]   "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}],
    2 m6 Z7 d- B+ T4 Q( e  "}"}]], "Output",; }8 T& M5 [/ ?* j% d
    CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9, $ b1 N! l7 D" d" M. [- b6 S
      3.5779607401163173`*^9, 3.578012204671875*^9}]: B7 M+ j3 Q5 s' P
    }, Open  ]],5 M8 b' N4 l7 o$ T
    , a0 A0 P- c7 S9 H  h) ?! z- u
    Cell[CellGroupData[{
    . ?+ b8 l- n9 N5 r- @
    / a7 B8 r2 d- m: R  S. x! \6 ~3 pCell[BoxData[
    " s9 a* Y7 @6 u4 a RowBox[{"u2", "=",
      q6 M+ x# i8 P$ ?  RowBox[{$ Y6 Q  Q. i) X0 Q! C3 R/ D  \3 u, W
       RowBox[{"Exp", "[", 5 ?/ f! Q1 r& C6 S. A# T6 c1 L
        RowBox[{  f/ m1 B2 J5 C9 X* ^
         RowBox[{
    . ~1 U) J9 F( a" O' t9 p      RowBox[{"-",
    ( A& [  ~) X- S; T# r* \       RowBox[{* D* ?6 o5 B2 [& e* h! g* O, j
            RowBox[{"(", & x# p9 F  o3 t4 G! r' A: R
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 ]  y, b8 e- }6 T
            RowBox[{"(",
    : q6 B$ b) i: H2 l         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],. K8 o, O# ?7 L( [; ?
         "]"}], "/.", "DeltaX"}]}]], "Input",
    # X* S( q: t0 h CellChangeTimes->{3.577920484109375*^9}],
    % u6 P& ~1 t, Q/ r6 T, D8 r1 r+ D# c( J6 k% _; ]
    Cell[BoxData[: g5 z" b/ H- W& t" R
    SuperscriptBox["\[ExponentialE]",
    7 d4 ^& T$ L, h3 s" s2 e  RowBox[{"3.141592653589793`", " ", ' ~/ I3 b; h8 m! r4 ^+ c
       RowBox[{"(", ; a7 p# ~1 z+ |
        RowBox[{& I" t: l$ O' d$ N
         RowBox[{"-", ( d4 ]" `' J& ~+ G4 D; x
          SuperscriptBox[
    % b6 N+ x3 C1 b5 y0 m5 r: n       RowBox[{"(",
    ; b# r) `, D9 Y2 v: y        RowBox[{
      W  z" ^6 V# M         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", 9 h' b* x; o, E
         SuperscriptBox[0 T% P4 l  q% t, _
          RowBox[{"(", & _' b8 w! z% g3 i% H5 k
           RowBox[{
    9 N3 A7 ^" U6 `* T        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-", " H* L. r0 K# R1 ?5 ~; o( Q
         SuperscriptBox[9 q" Z1 h0 I" F% F5 }; A
          RowBox[{"(", & d! [; W. Z' {- o2 N5 [
           RowBox[{" ^; w& O# p8 t3 s/ d' u
            RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", 0 D3 n  ]( R; J/ ]5 [
         SuperscriptBox[
    . P5 i' M2 i. N# o' D" e; k/ ]: C2 v      RowBox[{"(",
    8 i, U4 }0 ?' x4 U       RowBox[{
    ' Y2 W" w: a; z0 t- x- h        RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
    4 |  m  a9 w. Q! H3 \- y, S     SuperscriptBox[: Z. b5 q5 _" S/ n- D) r
          RowBox[{"(", ' [; S( c* y' H; l3 d
           RowBox[{: B" ^3 {6 W7 F( a! F
            RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    ; i' D+ q) _3 N" k5 w     SuperscriptBox[% b$ ]" M) s, n1 _' p
          RowBox[{"(", / w4 {5 B- x/ }% w4 y+ a0 [
           RowBox[{
    3 l; o# k4 S$ c        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
    + c* e) f& |6 W3 L0 T* B     SuperscriptBox[
    ! ?+ Y: k/ A: l5 m      RowBox[{"(", . {) c5 A+ w8 n: K! ^6 m
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    ) ~' }( E% d1 O, t) F9 q; m     SuperscriptBox[
    ' X% w% W/ g, E0 g/ T9 [      RowBox[{"(",
    2 r9 ^/ n  }6 ?% {! ?# l' D       RowBox[{* N, `: O: W& w7 r
            RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
    9 \9 U- F  M" W% A& R     SuperscriptBox[( I) k3 o& M+ G
          RowBox[{"(",
    6 `! i6 B+ p& D       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ' Q. t7 [% y: Z5 L    ")"}]}]]], "Output",
    ) i9 V) }9 P) r! d, R/ ]9 a" ]( P8 e CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9, : N0 e! S: z3 U2 V; s
      3.5779607413955193`*^9, 3.578012205484375*^9}]* D8 F* F1 T' W* d' Q
    }, Open  ]],
    6 T6 Q% @& B5 l% d& a3 t6 l) Z5 d- X) j* P
    Cell[CellGroupData[{
    ' k0 V  j) ~* w0 i$ E! v$ o7 c2 p' e. h
    Cell[BoxData[9 I- e4 R0 `1 L) ?; `) M- |
    RowBox[{"C3", "=", "Ca"}]], "Input",1 |( @, u9 X. J/ Z. w
    CellChangeTimes->{3.57792064125*^9}],5 s* s% |0 |4 E2 D; H+ r1 X

    . u! N# Q! {* G$ z- X& Q5 CCell[BoxData[
    1 j0 Q7 v3 @5 V1 u) u; l6 i. w RowBox[{"{", , Y' [8 c5 B1 {/ l2 a
      RowBox[{- V6 u; c0 L+ K% j( r
      "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",", ! B7 I* L6 a3 m; H! }
       "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}], * I2 f1 W: r$ t8 O: i1 X) T0 A
      "}"}]], "Output",
    / u( F0 V. C# C8 U! a* x9 I* l7 q CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
    9 F+ E+ E  {" s" H$ B  3.5779607642027593`*^9, 3.5780122103125*^9}]; L3 o. I* ^: ^* ~9 ?) d
    }, Open  ]],
    9 l7 U% S& o8 x) U) {5 e' P1 v8 Y- x% x+ A6 {, W% i4 w
    Cell[CellGroupData[{
    $ _& e8 E) b. a7 {5 e$ y
    # t: [$ j" \. k* p* H, l0 MCell[BoxData[
    + j* ]* {/ b/ V, m9 o RowBox[{"u3", "=", 2 o5 z6 R7 e! T% B3 Y
      RowBox[{5 b: B4 @) f' Z' d/ [3 e
       RowBox[{"Exp", "[",
    3 n7 ~& m, O+ M0 |' `6 T, K    RowBox[{8 G9 s: x' W- ]1 @+ \9 ?# ^
         RowBox[{
    * p. \+ ^& L7 b! k8 ^% k      RowBox[{"-",
    : y  I  c; G/ [9 t       RowBox[{
    * j  y( X' j! ~: M0 K        RowBox[{"(",
    # K& t4 e1 c( a+ y" I         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    2 }8 q. ?6 x! M3 y! H" F/ g        RowBox[{"(",
    5 `' }4 e/ I4 J7 e         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    - O" g9 f  u1 M7 ]% i( X- f7 S     "]"}], "/.", "DeltaX"}]}]], "Input",; b: @- o- ~9 x1 u
    CellChangeTimes->{3.57792064921875*^9}],
    # L1 q8 L# e" t: W; W9 a
    ) z" l( k2 n; A7 aCell[BoxData[  K* l) A: _9 x; ~
    SuperscriptBox["\[ExponentialE]", ( i  }. C7 w" z. u, s7 J1 C
      RowBox[{"3.141592653589793`", " ", 6 B# L+ |. B" w5 ^
       RowBox[{"(", 7 c; e+ C9 {! o+ ]9 c
        RowBox[{
    ; ?. L, M) h( u) h  f  v: A     RowBox[{"-", " a" D5 w' {; F" z! b2 {( [6 |
          SuperscriptBox[0 F& C7 J3 f" y4 W
           RowBox[{"(", + k" g5 U' Q) Y# s' P/ Y2 f  N4 T  @# J
            RowBox[{
    ( H7 b( o% V5 B         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
    $ {0 k9 ]; S' C* g4 y     SuperscriptBox[7 j0 ?" @# D3 H- g' y' C5 \
          RowBox[{"(", 0 \0 H9 C4 o8 \, I( i7 G# h
           RowBox[{
    , Z7 H% J, x% g* o! y. R/ b        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-", 6 M  r! m  R! \2 u% h3 u
         SuperscriptBox[5 c3 e. @9 u& J' T: C# H! m
          RowBox[{"(", $ A: Z  n+ ~5 c# J/ U& B
           RowBox[{3 a- j; O# l; ]) D0 D
            RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
    3 F+ A* H5 V5 z+ d# {! O4 p     SuperscriptBox[
    * X6 B$ g1 O% q& O! x+ |: p/ C      RowBox[{"(", , i- x! T( D9 G: K
           RowBox[{; E" v9 i! r! K* C
            RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", . ]* ?  @+ v" }- W  o
         SuperscriptBox[
    1 N6 K3 r* u/ G1 U. s, w4 N3 i+ ]      RowBox[{"(", , `& P( J  a; R2 G0 ^' W
           RowBox[{, ~5 }* K, H  ~  m2 l1 W
            RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-", $ F% T9 _) H! l& B) b7 `+ j2 B
         SuperscriptBox[' i$ `2 R/ Z$ H3 d: Q$ D$ t' E, j
          RowBox[{"(",
    ; J; K/ D3 ]3 N0 ]! T       RowBox[{
    , k  K/ B8 g+ B$ f2 J# C        RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", . D( E1 r& x: n+ ?! i
         SuperscriptBox[" L  Q2 C5 p  x1 S  A$ ~  b
          RowBox[{"(", # c4 P9 h. J3 n2 m  g' l
           RowBox[{; W# M2 f: V! Q7 |* K
            RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
    ; ^8 e/ U; i, z/ I     SuperscriptBox[
    0 S( P3 d% ]' g6 A( f0 V      RowBox[{"(",
    + F9 @1 F, P6 h8 L. F, B. a       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    - w9 u9 Q. D; P+ ]     SuperscriptBox[2 x# E# v8 H" g* v( b
          RowBox[{"(", $ j7 i6 @8 U: B* |
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    % k) x+ L1 r9 ?$ g    ")"}]}]]], "Output",7 V$ M4 F& ?& ]
    CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9, 9 ?7 q, b/ [' B  U" N1 v- J
      3.5779607654819613`*^9, 3.578012211515625*^9}]
    7 R9 h6 ~* D: p& e5 w9 r}, Open  ]],
    7 ^4 }: [+ O6 k, T; ]7 _2 K# M# ^' o3 S) ~$ r
    Cell[CellGroupData[{
    ) V* ^' _0 ?3 N) S: s3 M! f4 R( `) {1 I8 T& i# U( Q
    Cell[BoxData[, M8 h( |. L' Q6 G, w8 r. ~
    RowBox[{"C4", "=", "Ca"}]], "Input",) Y; e+ l4 X. R/ Y* R4 `& V6 |
    CellChangeTimes->{3.5779207559375*^9}],
    ) X+ B, F% O" w5 G5 r: x# l7 Z0 x* m% l9 y, H/ f# z# a$ x# P" V0 |
    Cell[BoxData[
    8 m2 j) W* d8 D4 i RowBox[{"{", + n0 H, t0 \# e# ~1 R) o
      RowBox[{7 D' n/ ]$ F+ z2 S6 F$ X- H2 q# T
      "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",", ' M  y$ m. p! P* Z! Z8 F2 t0 X+ k
       "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], ' L. B0 ?/ h. D5 [. k4 N; z
      "}"}]], "Output",: i5 l5 a1 u1 z7 G
    CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
    & U: e6 e5 \( d* \+ D  3.5779607861363974`*^9, 3.578012216171875*^9}]- I8 }: r' P3 y# T4 |6 @
    }, Open  ]],
    # q" N( C! o9 n' _9 B2 w2 a  s- v$ d, p8 L
    Cell[CellGroupData[{  T/ S! I. b9 y
    : i% f. I; B4 {
    Cell[BoxData[
    / Q  x$ U  W9 V# g/ n* M  m  A# U RowBox[{"u4", "=",
    4 y5 W& G: R% g) B' Z' D) @  RowBox[{  j  A4 x! q+ b3 I
       RowBox[{"Exp", "[",
    ) n  l/ y6 ^/ ^1 s: e3 H( m3 b    RowBox[{, x- \( T( Y6 K" t
         RowBox[{
    3 ^2 e& X! R0 ?1 V3 \2 V0 G. l      RowBox[{"-", 4 ~6 q  `: u2 ?& g# Q- G
           RowBox[{! w! Z2 V7 ]0 |- e5 i: Q* Q
            RowBox[{"(",
    9 y! C# o9 J' V+ [& |; f         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ( n) t) G3 [0 b& r3 F5 W
            RowBox[{"(", ( J3 t1 B/ Q: d4 L; {) K
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    . E4 Z+ _+ ^5 F7 E     "]"}], "/.", "DeltaX"}]}]], "Input",
    3 M" w) I  T9 w8 g6 S. y4 e CellChangeTimes->{3.57792076325*^9}],
    5 p& K5 B0 i$ u- w2 @  I1 t* p  v3 p. i6 f: D4 A. v
    Cell[BoxData[
    8 q. ~3 F/ n; l6 S SuperscriptBox["\[ExponentialE]", % \! ~8 }  h7 ]' G. U
      RowBox[{"3.141592653589793`", " ",
    " o" w7 _; n% }+ @; `   RowBox[{"(", / B. P* H. b; q& o  u" z
        RowBox[{; H# m0 v- O4 P$ n$ t
         RowBox[{"-",
    9 i/ }' M: N! |& o/ O+ F      SuperscriptBox[) A! C' s/ v9 n5 D
           RowBox[{"(",
    & A- j0 `/ I  {- p        RowBox[{
    - J* r2 S- t, V  }' w4 B$ ~* ]         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", & D9 T5 N( E, J  E! w9 D/ q! H' \5 c% q
         SuperscriptBox[5 Y9 x' Z0 m: l4 g# P3 _
          RowBox[{"(", 4 P# p& Z0 ^( _
           RowBox[{
    7 J7 V& N: J1 a- d        RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
    5 J/ d, L/ j9 m( b' k+ }     SuperscriptBox[
    8 Z- [4 ^4 o7 |! H      RowBox[{"(", ( K2 N! Z. W% |/ Y
           RowBox[{. V' j' x  z6 i: `2 @: H
            RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
    : m- O2 J- M9 E/ f5 a  I     SuperscriptBox[
    & P+ q4 L2 s, H8 y! D6 B$ C( C! X      RowBox[{"(",
    ! T, v3 O+ k+ `4 R, U* n       RowBox[{( j  \8 A8 M  h2 k, B& T
            RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", 3 y5 s2 z/ C7 ?
         SuperscriptBox[
    ! ]  V$ \$ Z  K5 H) r      RowBox[{"(", 9 O2 F! Q$ y) u: x
           RowBox[{
    4 W, C& Q+ t' f; D        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",   o. C$ Q5 j2 y4 B! f
         SuperscriptBox[
    , h+ x/ s- Y0 @2 T( J      RowBox[{"(", 7 d5 o: `. ^' [: [0 g$ M0 p4 x
           RowBox[{/ E( v+ ~( J5 A5 q3 h
            RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", $ ?; h, M# O7 X2 m9 H
         SuperscriptBox[
    8 Z6 b7 f" _$ m; c+ x' ^      RowBox[{"(",
    * k7 q2 U# q* W5 Q4 m       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", % I& a& C4 m) [$ i* ^. Z2 c
         SuperscriptBox[
    6 X# S/ A: g7 Q5 d9 W8 n( q" Z      RowBox[{"(",
    . v+ ]% \1 P2 k$ B       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 4 x2 Z9 L* T7 s; }* ^
         SuperscriptBox[
    + Y2 s! v( k: X1 F3 N! T0 z      RowBox[{"(", 9 E/ X# a& N9 w3 H2 ?3 Z
           RowBox[{
    4 D4 i' [" G! J' s        RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}],
    $ O. A+ Z9 b  B) `: ]1 e    ")"}]}]]], "Output",; u- A6 [6 M) E- k" C2 q' [
    CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9, 4 T# a0 ^  b; [+ u1 w
      3.5779607873531995`*^9, 3.5780122169375*^9}]- j5 M& a: S% m
    }, Open  ]],/ W4 p/ g$ n& E; g

    0 @4 K3 S: C) VCell[CellGroupData[{9 }9 D- ~$ ~& X6 T; D2 Z

    - j$ [4 q& u- n, H3 G9 R' vCell[BoxData[
    ! l/ l( a: C/ P& x: P/ V6 f RowBox[{"C5", "=", "Ca"}]], "Input",
    : b, R" w4 f1 k9 l CellChangeTimes->{3.577920860671875*^9}],
      l6 E* o& S/ B7 s5 q! F) {0 K& f) I* ^
    Cell[BoxData[
    & \. i. E0 m$ ]3 @6 f RowBox[{"{",
      }& o4 G+ o8 o$ `  RowBox[{
    + K4 }# h% h; l7 ~% M5 T  "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
    & x8 A% r, Y- B, \& c1 N5 r6 K   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}], 8 x8 f! e# g) u- X/ k; E, D8 T8 {( q
      "}"}]], "Output",- H0 |9 H# k4 ?1 W: l9 \0 t; ^
    CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
    , n  Z( D, c0 p. x  3.5779608137328453`*^9, 3.5780122209375*^9}]0 V2 Z, x  V* Z9 Z
    }, Open  ]],- s  ^( `; J, e4 a8 x

    + F& K9 r  n' q, t# NCell[CellGroupData[{( ^1 u* b  K! C# b, P
    - m# {. a* Z# X/ A7 ]- B
    Cell[BoxData[
    ! h* R; D1 b2 y0 |4 t RowBox[{"u5", "=",
    ! R) {& l2 W. D9 Q  RowBox[{* ?2 `/ W1 u' y; O
       RowBox[{"Exp", "[",
    3 Q# R& y% ]5 o/ T    RowBox[{) l% `& B( q: S+ @2 r, g  m: ]
         RowBox[{
    7 c. p, M4 \1 h" \- E% w$ f( O      RowBox[{"-",
    / [8 A) Y$ w9 ]       RowBox[{0 b7 y- A5 l# v% ^! N  X
            RowBox[{"(",
    * l# S$ Y9 O6 S4 F: j1 |! A- i4 \         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 W) Q! g* d" s9 U' ]3 ?
            RowBox[{"(",
    : P; z! X7 Y$ {1 |5 N         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],9 X0 ~* j- s( N9 [! M
         "]"}], "/.", "DeltaX"}]}]], "Input",
    9 Q  V9 a- H' p  v2 d' s6 \ CellChangeTimes->{3.577920869375*^9}],- m1 u! Q; u: @7 y) {8 m! V

    8 K: A1 Z$ H$ D6 w; WCell[BoxData[/ r: @- Z3 {. c1 q
    SuperscriptBox["\[ExponentialE]",
    : x$ U# T' A7 q7 E) f7 o  RowBox[{"3.141592653589793`", " ",
    * j1 A1 o' ^3 m9 u7 f6 _$ C' ~   RowBox[{"(", ( v  J! R$ O  g2 [5 q" F
        RowBox[{9 k' V* Z  A( J( S
         RowBox[{"-",
    ; z" @6 M0 J) N4 w      SuperscriptBox[
    2 E$ V0 ?( P8 x       RowBox[{"(", 4 o7 L& M+ O, @# b8 o/ W0 R
            RowBox[{+ l# C* p' L- `: p. O- c7 D1 f
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    % L$ y4 E+ D- w, z     SuperscriptBox[2 Y6 @  X. H! g# H  }
          RowBox[{"(", 8 G2 d2 o# e2 a
           RowBox[{
    % U5 Q4 S6 x# m        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
    $ D0 G  _/ W! y' F* F1 L     SuperscriptBox[
    $ O2 j5 i  F" r* g+ W9 n0 t      RowBox[{"(", + u  I  h( @+ D* {6 u  `' }
           RowBox[{2 D& R4 Q* k- j, z
            RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
    / S" m, W2 |$ _) R) y  L0 }     SuperscriptBox[# `! z; }; H2 j
          RowBox[{"(",
    ' x5 D0 S0 F- Z4 m       RowBox[{
    : l3 A( j# y  h) T! ]! v& G        RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
    7 b! {  ], }$ K" a! L# v     SuperscriptBox[) ]" Z/ s* c( z0 K/ _4 H* ?
          RowBox[{"(",
    6 W4 Q# i# R% v6 G1 k6 J- e' t! x       RowBox[{
    4 b6 Y' u& W8 @& L        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", + [0 L$ [- Y3 @' v. K4 t) L1 R
         SuperscriptBox[
    6 y3 P. r2 A+ A! u1 K) L* r      RowBox[{"(", 1 x* |" X3 L$ a& b; k, z& D
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    6 F+ l: \4 P/ D/ r     SuperscriptBox[/ j. m# ?" }) v) x5 N
          RowBox[{"(", 3 w$ C2 c) u4 O5 G  M: o8 e; X
           RowBox[{; u+ q% t- i; a& W' q
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    " i/ Z* X! b$ l8 L/ X: t8 F     SuperscriptBox[
    6 e: q7 w) \! \      RowBox[{"(",
    * Y3 y' x( X4 I0 n0 Q; h; ^, j       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    - `5 `& @$ u+ K* |  A     SuperscriptBox[% m1 s$ L1 W9 O, D) x: @
          RowBox[{"(",
      M" G4 @. o: ?) o       RowBox[{
    6 Y; C+ K% t# r$ Z% x        RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], / U8 [' w- `! d
        ")"}]}]]], "Output",
    0 m2 l( X/ O& r) l; T$ ?+ m CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9, , E9 U7 \# c4 ?0 l0 a- Y
      3.577960815043248*^9, 3.578012221953125*^9}]! y5 D# X' ^  g& _6 Z
    }, Open  ]],- T) D# V! v3 A8 u$ E7 Y3 V

    3 ]5 Q% d2 l8 y* e8 \1 l, {% _Cell[CellGroupData[{  {7 f  |$ b4 ~$ I  n6 ^
    - @. }, ?3 E1 J6 \1 k
    Cell[BoxData[8 Z) e( c% F+ c
    RowBox[{"C6", "=", "Ca"}]], "Input",+ t$ Q; y3 S$ Z) B
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],
    1 f) G# F4 T* E# i" ]' j" ^- b. [5 a$ A+ `2 I  m
    Cell[BoxData[
    6 d$ Y: `. n- J  q  A. o RowBox[{"{",
    9 B& D6 z  l+ h  RowBox[{
    ; O- O* I8 r( @4 [. H  "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
    - f# Z5 i7 J- ]3 S1 j   "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",", 9 f7 y( |/ I; c/ T3 `3 P% Y! g* P
       "0.494866`"}], "}"}]], "Output",
    ) W. Q; P/ m2 ` CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,1 z/ Z& I1 x4 f5 X
       3.5779608373044868`*^9, 3.578012227359375*^9}]' K3 o/ z3 R8 n8 ^2 O
    }, Open  ]],$ V% \; v8 M  P; }. l
    8 a4 f& m1 Y2 w4 A* P
    Cell[CellGroupData[{
      u( r1 `2 t3 Y0 d/ j" L$ _# @3 I7 r) B$ ?. [. p" t( O3 i. \# @/ L
    Cell[BoxData[
    : {9 r, u% F7 t2 W/ ^ RowBox[{"u6", "=", 2 l+ a5 g/ r5 H  R
      RowBox[{' Q/ z' O5 B5 h6 k7 _7 }
       RowBox[{"Exp", "[", . n( t/ `8 M/ r' i( Y  F4 y
        RowBox[{
    ) j  j, `3 K* x$ |+ `     RowBox[{; }" j9 z+ R, G7 S! e
          RowBox[{"-",
    . y1 Y0 D% d, G7 O       RowBox[{! t/ v" G0 |( w/ {  Z
            RowBox[{"(",
      x4 ?2 P9 e" G1 Y         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", % R5 j0 R  l0 P3 O8 K3 i1 _
            RowBox[{"(",   _- L. Y6 W" l1 C& p; p: p
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],! l" G* ^. R) v1 {& [9 \9 x
         "]"}], "/.", "DeltaX"}]}]], "Input",
    - E3 O2 \3 J9 K. U3 B, D CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],
    7 j, G* W$ L6 o' Z4 B& f$ {1 u" a3 J  Z, P. }1 S
    Cell[BoxData[
    # p  o" m8 g) b$ E" K% `+ U SuperscriptBox["\[ExponentialE]", 3 ]" G/ Z+ T! f3 }4 |
      RowBox[{"3.141592653589793`", " ",
    ) V; n$ ]. k. [. D* T3 D, M/ E   RowBox[{"(", ; ]) G) \% B5 M6 m
        RowBox[{
    2 o# N& x" Q* S, K& M     RowBox[{"-",
    1 J, V) j# r2 M: d      SuperscriptBox[
    * L  q. u9 h" M% ?0 x7 o. {" h       RowBox[{"(",
    ) J: i, {3 J. Z8 q3 p        RowBox[{
    * `) w/ q) k  n+ h6 s9 M5 S         RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-", : p8 d) N0 ^8 ]+ r# t
         SuperscriptBox[
    6 r9 k* m. m" i      RowBox[{"(", + C% Q5 ]) p; ^
           RowBox[{4 y% ~3 F1 m5 n  n5 p. l
            RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
    ( l8 @- [  F: N6 \( T     SuperscriptBox[
    6 `# \. C( ^( @4 Z0 n6 m0 O      RowBox[{"(", + P. l* P' u4 |+ [+ p
           RowBox[{
      d6 @8 f* _5 P3 I) b        RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
    ! g) L5 Z8 r" E. Q     SuperscriptBox[6 |% ~$ B8 ~# _/ f$ C
          RowBox[{"(",
      e* f) C9 I# r+ j3 f       RowBox[{6 t4 ~8 W$ k3 m6 z
            RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", 2 s$ t- g# L" [$ V9 V4 \
         SuperscriptBox[* s9 H3 w9 B. q; k
          RowBox[{"(",
    % i! a, Y- N- _* T       RowBox[{
    5 K6 I4 h& G1 J) k$ \8 b( g        RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
    ( e; T3 y9 t2 e     SuperscriptBox[0 @4 S1 z9 Q$ M# Q* L* `7 C$ }; H
          RowBox[{"(", % j3 h( @) ?; q. N1 c5 @. ?
           RowBox[{1 B' f/ D) J$ n, s* n
            RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", ( \+ N' n- G3 F5 R8 A
         SuperscriptBox[
    ( R# W. K6 Z. B; S7 m  O+ Z8 c4 [      RowBox[{"(",
    ! J( J( }/ c  Y" l; Q       RowBox[{
    6 Q! t" s8 [5 l8 x, o7 O        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
    2 t9 E' J* A0 v, [1 |. `+ W     SuperscriptBox[- A' P: P0 Y$ ?  _
          RowBox[{"(",
    ( `4 {; R- o4 t# u& E& v9 U       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    7 b) i2 z. R, Q' @) t/ F     SuperscriptBox[
      F1 O- t# U% I$ G& l      RowBox[{"(", & B) U; d& E. H: ~7 g, d, _  h
           RowBox[{  q6 Z; F! y0 b5 S
            RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}],
    : |' @% p4 K' U. G( G6 Z9 ?$ ^& ?    ")"}]}]]], "Output",- k1 L- k" Y1 o; X+ Y. f
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, 8 u; d' F4 x* _0 L, q
      3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
    % \- T3 p8 D9 V+ p9 a4 _# J}, Open  ]],8 Y: K; m3 T8 f6 B# L! T" Z

    / h7 m. w) ]' T( e3 K8 E5 PCell[CellGroupData[{
    8 c' F' ]6 i/ g1 s$ I; N8 G
    3 u( N, ^1 p3 N- ?& ]# L5 I2 c! [Cell[BoxData[9 A3 _% `+ _% Y
    RowBox[{"C7", "=", "Ca"}]], "Input",
    $ e$ K! z. ?7 W  e# b7 \ CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    ; ?' _' |+ e, n  3.577921316125*^9}],7 v3 V7 J, O6 q* ]

    . G1 C( T' B0 s! rCell[BoxData[
    3 s5 J$ r& J4 t" V- \ RowBox[{"{", " l' }$ X% A% {5 q  [: g- H% C
      RowBox[{
    1 C% t; Q5 B5 e% A( y0 q  "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",", 1 ], B$ Q2 {5 `) z4 s
       "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}], ; x0 ~/ v2 m- }" e, S
      "}"}]], "Output",9 }2 [2 c* J& @# ^# V- _
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, & y+ ]1 K; n, @2 u5 t
      3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]& ?+ b' s& s9 C3 P5 V/ D# ?
    }, Open  ]],. K! {/ j% o4 M2 [% h9 `
    2 Y- q7 n: J* O) k5 C# @
    Cell[CellGroupData[{
    ) f6 [; u! \# a( |+ w
    * D. \0 I6 T6 M' y9 ?Cell[BoxData[
    % _! c8 d; k. f RowBox[{"u7", "=", ! ~4 _6 J1 `, V8 O7 n
      RowBox[{$ a$ {: `# v0 ]* p! K
       RowBox[{"Exp", "[", 4 e7 B: |* q2 N% b
        RowBox[{5 f/ J* v! ?; o, x
         RowBox[{
    * Y! [' x8 l' m# ?      RowBox[{"-",
    2 X' q& V3 u9 T. g       RowBox[{
    : d$ @4 H+ s+ ~: t5 b7 [        RowBox[{"(", 2 h( P. L" d3 m- h& T3 y
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ) ~7 k8 V5 [# _# i
            RowBox[{"(", # v' Z: @% r8 n% K8 d+ N% q$ `
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],  Y/ B  p& A5 T% v* X
         "]"}], "/.", "DeltaX"}]}]], "Input",
    7 m& P9 y9 a/ j5 Z* n CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    . [( L$ I5 r1 v) n; u  3.57792132028125*^9}],' |& j; f# y" @7 q. \0 e
    $ H3 f7 B$ [; u. H) P3 }4 Q  s
    Cell[BoxData[
    , U; P* S. D- \& M SuperscriptBox["\[ExponentialE]",
    # q$ q% i7 z% r) R/ ~  RowBox[{"3.141592653589793`", " ",
    ! _1 Z: E$ Y0 V& @   RowBox[{"(", " B( I; _1 v5 ]  p4 Y9 A
        RowBox[{
    7 [' ~+ |& m( n6 \( u, J     RowBox[{"-", : r7 q/ A1 Q2 |
          SuperscriptBox[: D4 `9 g- {9 p# s8 i3 {- w, W- Q
           RowBox[{"(",
    9 S% n( b0 I8 B$ c1 U: P$ w8 d        RowBox[{' a# G% r; z( E2 k2 E+ n
             RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
      I+ D7 B, e' F7 w- g/ Q% @     SuperscriptBox[! K  ~: e8 }3 q( e- z$ t# d
          RowBox[{"(",
    ! C5 ?# f0 f6 O% Z& f* k. x$ d. C% w  X       RowBox[{: L' y5 ]/ k& u
            RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", 8 f+ p) K) x: _7 n# s- d
         SuperscriptBox[
    & `6 k6 k  E9 D* v$ ?      RowBox[{"(", ( w/ {0 M6 X2 S' P  M2 E0 C7 r
           RowBox[{, B' ^! }" N7 ], f* o4 |
            RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    2 q! L, w" E2 O; F/ x6 b. ^     SuperscriptBox[
    . C! z2 Q8 ?" F% [; x- o  n! A. ]      RowBox[{"(",
    1 I9 |, |; t1 l  `       RowBox[{; Y! k* g/ ~6 r' V
            RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
    + Q% @4 s7 e4 w, h     SuperscriptBox[
    7 @- r+ U, j5 t# w      RowBox[{"(",
    . R: b' P$ d/ y1 k  M1 V* u       RowBox[{1 v1 |$ M: c- H# G+ V# P
            RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",   [: i# y4 g4 c) [% T: E, P
         SuperscriptBox[
    8 `+ F# a; U! i) d/ I2 _* p0 m      RowBox[{"(", $ }% a/ A( M; S4 N
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 2 Y: d" `& |. D7 L! U" o, v
         SuperscriptBox[: d- T, h" V  N' D9 g; c$ A
          RowBox[{"(", $ U! c8 y/ d* w! j  D
           RowBox[{
    8 Q/ E4 @4 P( v. k9 U& m; N8 Q6 K        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", " b; ]' {' j' G5 G. Q  S, v
         SuperscriptBox[
    ( I: Z+ E+ l6 U5 n      RowBox[{"(",
    ) ]$ p& D9 K) `4 O' e+ z) P& o9 `       RowBox[{
    # h0 O9 T+ h+ b& l- D; m6 }        RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
    1 C$ D$ s% v3 A6 F     SuperscriptBox[9 z3 X1 ~6 X5 j9 R) q! i# S
          RowBox[{"(",
    8 g9 R* U. t$ Z% x0 T6 P- K9 u       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    5 u- D4 G0 y+ A8 V. n0 @    ")"}]}]]], "Output",
    ; i4 x" c4 Z! A' r8 T/ f CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    1 M1 G3 c5 x! T9 u8 X  3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9, 9 B3 Q6 _5 J" s" W: }4 D2 X- o
      3.578012251359375*^9}]" u, E; }) i  y; v7 O  d
    }, Open  ]],2 W1 d# [, q& |! t# i; R

    5 c( Y( Q% X7 F9 P! ~Cell[CellGroupData[{
    , L5 s6 O# A6 ^' z. H
    $ d) x% k( F- }Cell[BoxData[' G. I( O7 B  }1 x( y7 l, Z
    RowBox[{"C8", "=", "Ca"}]], "Input",
    ) p" u8 \+ I2 k0 G0 \: K CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    - i2 n9 \$ B# o1 ]7 e4 ~  3.577921316125*^9, 3.57792141421875*^9}],
    ; ~8 i6 T) a9 v& K2 Q
    $ Q% A7 y& ~, J. a( L- HCell[BoxData[
    ) `5 K! K5 j* c6 y+ ] RowBox[{"{",
    % p9 X: s  Q  I8 a" N  RowBox[{
    / _- X# I+ h% r6 p+ m. ~$ T  "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
    - [# m- x- f4 P: Q: B   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
    , b& C, D% h! ]; J  "}"}]], "Output",$ Z' h4 G( _9 j* S$ U. w1 c/ @
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    8 @0 Z5 R, k% D  3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9, $ {! q8 C5 ?+ ]7 d; u6 T/ s! V  V
      3.578012260515625*^9}]9 B" c# _! e) j; g7 |0 P% K
    }, Open  ]],
    * j7 v2 J& h9 e
    - s( v) K: v5 |. l) L. U1 P0 z9 QCell[CellGroupData[{
    $ G+ P% [' Z& W" @" o0 q0 {
    ' V. c' Y  C" G7 [7 v/ JCell[BoxData[. D! F2 M( G" n- g7 [- ~
    RowBox[{"u8", "=",
    / R8 ^  R6 [) ]) Y9 T% v, r  RowBox[{
    8 ^: G+ H+ m" O   RowBox[{"Exp", "[", 1 {/ z6 p4 I9 [& `" ]' q
        RowBox[{
    * U3 i. u1 X8 u. N     RowBox[{
    , r$ ?  d, |/ [% n9 K' U; |      RowBox[{"-",
    * N( z4 N2 |6 U4 F       RowBox[{9 o4 l3 |3 _- V% e, V, K
            RowBox[{"(",
    . d$ |4 F) p( S! y7 e+ N! @         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", * L1 e* h8 g9 v1 I& [
            RowBox[{"(", / b+ g# f+ }# U1 x8 H, O
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    - s% H1 B+ W4 v) ?/ p     "]"}], "/.", "DeltaX"}]}]], "Input",1 f+ M/ M" c5 M
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    " E9 T" s1 l* u  3.57792132028125*^9, 3.577921416921875*^9}],
    " L! h0 {( r% P. ?6 r
    . G9 i$ ~) d( KCell[BoxData[
    " r. \2 H, Y; E  ] SuperscriptBox["\[ExponentialE]", 0 E( L: E8 t3 e' Y5 h$ s
      RowBox[{"3.141592653589793`", " ", - N8 u. G5 \) v  |, l) _' b$ q: i9 ?
       RowBox[{"(",
    0 y' B6 t; @2 h) b0 @- {  L    RowBox[{7 E2 q9 T0 V' r8 F, j
         RowBox[{"-", 4 ~$ ^3 q& E" Q5 g4 c6 S; t% o
          SuperscriptBox[
    ( ^$ W% y( [' S! i; M- w8 r       RowBox[{"(", $ q, ]' F) {/ a6 t* ]
            RowBox[{
    # ?/ F( E. `2 [& b3 j, H! ]2 V         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", + L% V( W1 V9 m! t2 X
         SuperscriptBox[
    ! r  [4 j. I* ]' D      RowBox[{"(",
    $ I9 a7 l! [4 `6 U* V       RowBox[{
    & A1 g4 O! }) K6 |. \. Y, m        RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
    + h& K) G! V; `1 ^" [! o6 f     SuperscriptBox[. m& j* o' r. K. Y: s* J
          RowBox[{"(", % H* O& f1 e: q6 E
           RowBox[{  N& _! x- m3 O4 U0 C
            RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", 9 c" q, Q! O( ?' h" a9 Y& ]: Y
         SuperscriptBox[
    ) L8 Z- b  p* l  v1 [      RowBox[{"(",
    9 D1 E! x: F! m3 c3 ~9 O& I       RowBox[{( D) |, \, k* m! E
            RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-", 0 Z. x. O, P! Q4 ^+ u+ w2 t1 j
         SuperscriptBox[! w+ Q! q  |/ I4 k, l  }
          RowBox[{"(", ) B, s9 O& \* p& a
           RowBox[{3 \0 d. \' a, P$ ~3 N) x& b  n1 s
            RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
    . |9 A5 }( K4 f1 F     SuperscriptBox[
    , g4 ^" z$ v. |6 x- l! R( P. }- A      RowBox[{"(",
    9 H" o  }' ?; ^# R" P6 i       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ' E" s7 i1 o* _     SuperscriptBox[
    9 D9 u  [0 c8 \  `' P' @      RowBox[{"(", ( e+ Z! Q* d' u' F0 W& d5 f8 Z
           RowBox[{
    " z" R" c8 U+ j; s: u8 [        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
      K) D. z3 N* m4 H     SuperscriptBox[# a. T6 c( W$ \5 ^$ ]
          RowBox[{"(",
    0 J& t4 `& ^1 z# X8 M! O       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    3 Q5 v/ R  k" T5 A! p     SuperscriptBox[
    * R+ v1 [* r( P1 L- F) P" ?! n      RowBox[{"(",
    % Q5 J+ u9 o- q& V9 T; {       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ( t6 _3 W, g7 n    ")"}]}]]], "Output",5 n4 O9 S- y( a8 v( I- ]
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    1 J) {+ P5 R, X( I' m  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9, ; B" W+ [* `7 p3 h% M5 \
      3.5779608945565863`*^9, 3.57801226165625*^9}]
    # e6 Y' R. P, D" Z& N}, Open  ]],# Y/ [( x% v# k/ L6 h" T" ]/ m
    ; T% R& {" B1 a0 o
    Cell[CellGroupData[{
    5 {, P. V( l1 Y0 C6 ]. e) j6 H& h8 F% U
    Cell[BoxData[
    ; ~5 o+ c1 \( q& D, w0 w RowBox[{"C9", "=", "Ca"}]], "Input",! d! E6 X' M: b( ~( W
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 5 k3 b! s1 |7 j: {) i
      3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],% q9 w; j( [8 u: h
    & f5 P" C  g5 Q+ R8 y! {
    Cell[BoxData[
    * j; k9 |# A/ o RowBox[{"{", - j/ \% y4 i7 P: A8 X$ s  l0 n$ b; I$ ?
      RowBox[{
    0 D3 q$ `" X9 j! l$ n+ ^  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
    & q) O6 O' b/ Y; g2 H. H   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}], % c$ `5 d# S! {" L6 G0 K: U
      "}"}]], "Output",
    0 ^1 D! X2 V) R5 c/ y' v CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, 1 S  F0 c9 e0 E' d
      3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9,
    9 S3 T/ `1 x( u0 J/ Y  3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9, , b* J' k/ x* g' [
      3.578012268234375*^9}]: a; @9 C8 h8 S9 I* L% K; }# e
    }, Open  ]],
    1 e7 B* T3 V0 [: L5 z: T$ W% W3 m' s: _/ Y, P, I
    Cell[CellGroupData[{4 w/ I: Q' ?) s5 F5 u

    0 Y$ {% l1 ~) {! z8 _. x8 f$ zCell[BoxData[4 q& B: N! R* Z8 Q) d7 k
    RowBox[{"u9", "=", ; a+ ]3 G6 @! p$ T! c3 d1 O3 k# Z
      RowBox[{5 s# f( i" J( X( [% h
       RowBox[{"Exp", "[",
    " }4 V; ~( ~% j! w, {; `7 k# W    RowBox[{
    : b* j9 O# P- y( D8 d     RowBox[{8 c8 b; C8 l5 x. B. O
          RowBox[{"-",
    ; b* g1 t' e3 X) G" F       RowBox[{! T7 V$ D# d; S" J/ I3 ]5 f% H
            RowBox[{"(", , U$ w3 k& ?, M
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 1 S1 b3 B  c: Q7 P
            RowBox[{"(",
    * I+ `! r0 M! B         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    2 k- \1 T& V( N/ A! i: @     "]"}], "/.", "DeltaX"}]}]], "Input",
    . e- J' V- b- o7 Q: r CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    * U9 [6 f( H5 O, W, a  3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],+ R7 t8 j: ?1 \+ [9 h

    + C" `7 v, ^9 t  ^Cell[BoxData[; [) q) _' ]# o2 \3 m( `
    SuperscriptBox["\[ExponentialE]", + I% C5 ^) q: ~3 W
      RowBox[{"3.141592653589793`", " ",
    ' v8 ]7 t$ E  o; q* ^   RowBox[{"(", 7 i( n  `% G" H+ w4 A8 ?! a
        RowBox[{
    " m4 _' \' v% b: R* ^     RowBox[{"-",
    ) c5 c1 l8 D) Y4 ^1 ^      SuperscriptBox[0 u6 c; N* R6 F, @
           RowBox[{"(",
    ! ~: E  V/ B, h* [        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", 5 Y5 a" B( {) n" \! S- p* X
         SuperscriptBox[( A7 Q5 C  O* ]0 o1 G
          RowBox[{"(",
    0 E; G4 R# `/ ?6 u* K3 f       RowBox[{3 V8 k4 z9 x* I
            RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",   _) _" f) A2 h. C) D
         SuperscriptBox[
    ( h$ N5 }  N7 a      RowBox[{"(",
    " p" I2 i% a! j- p" B) K       RowBox[{; O& _$ `' o% u! W
            RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    1 J) G, [0 O) n$ V* K8 p     SuperscriptBox[7 G5 j( P- x( s0 P2 S
          RowBox[{"(",
    : \  D' M' T+ ]$ J- b  b! U       RowBox[{
    2 G5 q! v8 I. Y        RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-", ; O8 e- \& i  o# V5 I/ Y- I
         SuperscriptBox[
    ' Q1 u# e$ y, m& E2 q      RowBox[{"(", 4 ~0 W! W: s# T0 b$ l) E7 S
           RowBox[{8 g: O& L, M7 A9 @, Y- _( `
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    4 K7 p- m( ]0 F) y+ X     SuperscriptBox[# G. V4 H! t5 s+ L  X% ]0 W; y
          RowBox[{"(", ' @8 R7 r& O7 B1 p
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", # g  @* K0 p3 w' _: U9 s! k- N
         SuperscriptBox[5 q! H! I1 ?# ?. s$ q
          RowBox[{"(", ) ^" R3 Q& T3 z5 |( {0 u" q
           RowBox[{
    4 M+ b4 Q' S0 w. A. h9 w# M        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
    . M1 c" L) Y* p4 r/ g  `     SuperscriptBox[: {7 ]* U0 U* g, c; Z
          RowBox[{"(", " `5 v8 x. P9 C; D  W8 g
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", & N6 h/ J! |: t- w- d
         SuperscriptBox[
    ' k4 ^7 f$ P% s! [3 X- k      RowBox[{"(", 0 q$ B% N% m8 Z' u
           RowBox[{* P8 }0 {7 N. w7 p4 |' k" S
            RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
    6 L& ~& V& ]2 r$ b/ D7 t: H    ")"}]}]]], "Output",4 B# D, N8 n' W# C; s, k3 q
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, : O( I% t+ r8 z% D' `% N) ~6 z
      3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
    8 `9 ]+ Y' E, g+ w* l; q) m  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9, 3 T  f' f! k$ {
      3.577961530421959*^9, 3.578012269125*^9}]/ t& J7 y' }6 \/ N& ^
    }, Open  ]],$ P5 R/ b% M6 @# N- L$ F
    4 \" j) e2 i" G
    Cell[CellGroupData[{7 `# B9 G+ l5 F8 s0 C5 W4 u
    # m8 Y: H3 Q% e6 U+ R+ [
    Cell[BoxData[{" p6 i9 H9 K6 a- d
    RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]", 8 h: E2 f4 i! ]) z) a. J. g  v
    RowBox[{"u10", "=",
    ) ^' T" F$ _. e' ?4 [3 @  RowBox[{% p/ L5 b' B3 j7 ~
       RowBox[{"Exp", "[",
    5 T9 S/ y4 ]/ G, d    RowBox[{
    ! C' |+ N2 R: z# o, F     RowBox[{* A- H) L6 [, R8 V3 e; ~# _
          RowBox[{"-", # M4 x/ h+ ?; c8 M" P- P
           RowBox[{
    : f# D1 o# E) C8 J5 n        RowBox[{"(",   l4 U5 x- X2 r5 `) j
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", / ]0 U5 p6 i# \. r! h, H# I( x5 d
            RowBox[{"(",
    ; ^) W" R2 ^/ P+ K9 {0 K         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    / G/ U- y' x- b# Y9 d5 T7 r     "]"}], "/.", "DeltaX"}]}]}], "Input",
    & y* |+ A3 ^7 e  }* ]$ s$ G( s$ G CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],
    ' t, J, |4 a9 T$ f9 h7 a
    & e" |& H" [4 f, ~3 o7 r$ g( UCell[BoxData[
    9 @8 \! j3 V- R6 I  X RowBox[{"{",
    ! ]6 V0 ~, c, j: S1 |1 ~% p. N  RowBox[{/ Q3 k% H4 G) S7 N2 I+ E- a
      "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
    ; L( U8 n0 ?/ e8 J   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
    + Y% v1 S% b) V7 X- o: } CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
    . Z# R) @0 d: k% [& E5 X, L7 v. a9 Y8 L0 K: |3 z/ ?9 I+ a
    Cell[BoxData[3 p8 n7 e1 r: M& b0 g
    SuperscriptBox["\[ExponentialE]", , l) w) k. C* w1 L, f* n
      RowBox[{"3.141592653589793`", " ",
    % D+ H: _3 H3 P; j3 [/ m   RowBox[{"(",
    5 ^- b& ?% L6 z' [    RowBox[{  p+ y3 u+ |9 D! r4 Z. J! E% W
         RowBox[{"-", ! [& I5 N3 R& {1 B1 o2 J" X
          SuperscriptBox[
    7 Y7 Q- p( v4 W. k% g8 n/ [       RowBox[{"(", 1 @7 K. T6 p. ~" [7 D. l/ f
            RowBox[{* `# t; \: j; E, j2 w6 \3 z
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", , V( u- s. x" o! X- a4 _
         SuperscriptBox[
    2 p2 p( `  r2 o( F6 s      RowBox[{"(",
    ; v  @9 c) r, z9 b+ w       RowBox[{
    # H# ?+ L( x9 O' \$ d. `        RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-", - t% D5 m! T& l0 l
         SuperscriptBox[9 t7 [7 D, K/ _/ l8 }: b
          RowBox[{"(", . |! `3 c# @0 m# Q) e, z
           RowBox[{
    % d  L* T- g( v! g1 v  b$ E+ c        RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
    ! }9 \. s) c' X% l* |$ z, G     SuperscriptBox[+ W- |( M4 E$ S5 M' @  z
          RowBox[{"(",
    * H9 z0 f5 |5 m) W% M" E$ l) N       RowBox[{2 T" L, g! v, Y. ]' d
            RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
    3 `2 c2 r, v! M& _7 Q  t" \# G     SuperscriptBox[
    - B* T, h0 w# @8 U& ?8 g0 Y8 I      RowBox[{"(",
    % W9 X6 k; {7 y- b$ m! `, U       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", ' |' Q: R( {0 H, c  k0 F2 O$ \
         SuperscriptBox[0 j4 K( x0 S) `) O
          RowBox[{"(",
    ) S: y- N' M. P' {5 z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ! i8 k' h+ F6 F2 v% u" C
         SuperscriptBox[
    ) e' h; Q3 d( c  j3 ~! l. p      RowBox[{"(",
    % G/ ~+ j" l8 P       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", / O$ {2 x4 X# }: m6 W: A  w/ C
         SuperscriptBox[( ]& J2 e- G+ c& g8 s
          RowBox[{"(",
    8 o& A. T1 P7 e. m( B, \  T       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ! e. w8 m9 v  u! U/ d
         SuperscriptBox[
    4 r0 e0 q* f) S. V8 @0 `4 I/ V      RowBox[{"(",
    : Y+ u3 L& r4 w7 m       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], $ U' S7 Q, s' j) F
        ")"}]}]]], "Output",3 ^  \& l: g# p9 @0 Z' N" v
    CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]
    " r2 I' N6 J# S: H+ [( q}, Open  ]],! W$ \, w8 `; S$ a; ?6 Q) ]/ c- I5 F
    + T5 |; ~5 X& |' _. @
    Cell[CellGroupData[{
    % T5 S# ^9 D# r* M9 N7 U7 g  H9 z) `' e/ \  O# G
    Cell[BoxData[{
    2 `% a; [7 }8 p3 S* j' Y/ @" m- c RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]",
    # @- e' i3 `6 l3 o3 _  k" { RowBox[{"u11", "=", 9 J  r% d$ B4 h% t; \
      RowBox[{0 l9 t0 C6 w& u1 [* @
       RowBox[{"Exp", "[", . n# j) }2 L8 @9 J! J# D
        RowBox[{
    3 |( r& r: C9 I" g& F     RowBox[{
    / ?, {, M( }% C% \* m* N( B      RowBox[{"-", 5 C' P! t% R7 _; L1 ]' p
           RowBox[{
    2 u+ l# R! M6 l" Q$ m% o        RowBox[{"(", ) ?8 d1 p% g- ]9 u! a6 f
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 s* o+ O2 |5 [9 M' _$ }
            RowBox[{"(",
    ' M5 s8 i' J: d  l) V         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ' A: M# f3 {/ {% q2 b* ^8 L     "]"}], "/.", "DeltaX"}]}]}], "Input",0 Q- V; j( q& ]
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ) Z  m' a# z; D4 A  3.57796154237158*^9, 3.5779615434011817`*^9}}],6 w9 V) |1 r& ^
    6 o1 d, G% {: r) m! l9 Y
    Cell[BoxData[6 |. ~% `( o) j% y
    RowBox[{"{", 4 S7 ~+ X- Q" m# N) Q: ~
      RowBox[{  i% t4 d3 r) Y( T1 j
      "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",", 6 H: m' T( b/ U& {- [/ p
       "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], + L: O9 ?4 r/ u+ |- u( n& b
      "}"}]], "Output",
    0 q/ `4 {' T) O. H$ K CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    9 O/ \! G. [$ a, x  3.57801228203125*^9}],
    4 o9 T$ h) Y/ v3 j( ^* l0 w8 i+ n# M; A: ^& c" s
    Cell[BoxData[
    7 I# m$ V  }0 L SuperscriptBox["\[ExponentialE]", ! C8 E9 D. {2 Q/ O/ o  I+ ?
      RowBox[{"3.141592653589793`", " ",
    ; \3 a/ l+ _3 e+ J   RowBox[{"(",
    ' Q/ P# b& X0 e7 G% S, N& N    RowBox[{
    7 {5 q5 j) |2 G* Y$ J1 ^) h     RowBox[{"-",
    * N0 S; j0 Z1 k. d      SuperscriptBox[) C) z- K% G* y! v( G0 ^# L
           RowBox[{"(", 8 H+ t) b! h6 {+ I+ j4 G5 l
            RowBox[{
    7 }, Y: r7 |+ `( V/ ]         RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
    / U# _: l. R9 t2 H     SuperscriptBox[0 z. V! F8 W: ]' E) @. P% r- [' `
          RowBox[{"(",
    . p2 e- l1 r7 d1 D5 [; ]' H       RowBox[{
    # ^& I& T: R' e7 S9 X        RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
    # h9 z: k2 Y! f     SuperscriptBox[
    7 \! Q; }1 @& w' i! ?' T      RowBox[{"(",
    5 S: g9 a9 x* Q+ W       RowBox[{; [% g! C* W6 E+ x8 p/ F
            RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
    8 |8 V9 ^- u# ^. D4 H9 V     SuperscriptBox[$ T# a2 \/ h. c9 B1 D1 \: t3 K
          RowBox[{"(",
    + t, ~( p" v  A6 X% _5 U       RowBox[{
    ! m( Q: ~2 j/ x2 |) r        RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
    # F( U- t. j. Q* n& U+ [- F     SuperscriptBox[. X6 D3 H& x( m1 w  o
          RowBox[{"(",
    ; G  z' I% r4 h* Z  s( u       RowBox[{
    / q6 W6 J$ O2 _% t6 b. M/ l$ p; S' x0 o        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
    3 ~% c# s3 w' y" X' E: `& P     SuperscriptBox[8 P' C" L1 p& G! [
          RowBox[{"(", 2 \( b' l4 u/ I! X
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 0 a) v5 t5 N( a$ ]3 w
         SuperscriptBox[
    , N5 S6 Y' x  [5 O$ F* t# `      RowBox[{"(",
    . F* R# k  k  y! R; F* z/ T5 B       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 7 Q( W& Z6 m0 `: T- Q3 r6 P3 B) v
         SuperscriptBox[2 P3 h/ o9 u7 ^1 ^
          RowBox[{"(",
    % b4 q' g5 y  S5 _$ M: [' h       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    2 I, ?8 c; X, C3 z  ~     SuperscriptBox[$ [. p# o2 {( [, p2 v4 m! N( m+ t
          RowBox[{"(",
    ' \5 K" R" w5 c' s       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],   o: \, R* Q8 b$ @
        ")"}]}]]], "Output",0 \7 L$ }/ V% P8 y. K4 U
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    8 N  G- _* O/ V5 L% x  3.57801228203125*^9}]0 v2 ^4 W, o. v0 e4 u
    }, Open  ]],
    : E" B* K/ E$ j( W& F' j+ a
    ; t4 {% f2 A( B9 ^0 qCell[CellGroupData[{
    , D4 T. O( a6 W5 r: {1 i( p. w6 z" U  ?2 _& P9 K9 ?* k+ D2 D
    Cell[BoxData[{
    * A/ ?1 v7 @% g RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
    ; B5 T5 V8 v' h9 ?2 f$ t, L% z: v RowBox[{"u12", "=",
    + S' n8 q- E  [  RowBox[{
    3 O: Z- N/ k/ W& X- T/ q$ ~   RowBox[{"Exp", "[", $ c$ [" U; l) B
        RowBox[{
    - B; K( K- ], S9 Q* h# a4 x     RowBox[{
    & C& D* {# x1 [      RowBox[{"-", , {0 {3 [( ?. g; n9 {3 }. @
           RowBox[{% v' u: ]# p( F* I
            RowBox[{"(",
    0 N/ y8 S) v) C, g# T) ]         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    / y: K- h3 n# I        RowBox[{"(", . v7 E; _1 N) W9 `* z% M
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    / o; P# Q: g0 y: Y     "]"}], "/.", "DeltaX"}]}]}], "Input",' Y* g! Z, n2 b4 {9 u. U
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
      f* Q# Y! h7 |2 g# t: D5 ^  3.57796154237158*^9, 3.5779615576284065`*^9}}],* s  m8 R+ `2 l; ~% t/ D% Q
    8 |" i$ U, O9 k! H
    Cell[BoxData[
    . C; m. g  n. y0 [) {" T% k RowBox[{"{",
    / I/ X0 [. b# Y2 w  x  RowBox[{1 y. t( w- P+ u: k1 b
      "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
    " h, m4 g/ Z' J* W2 ^   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}], % F5 ]2 S7 c; L! L# b' Y1 C
      "}"}]], "Output",
    - |0 U( Z# n, r" N  }: G4 O/ a CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],
    , H4 A( O6 O4 r7 o0 o4 u
    - v& y1 c6 u, v- t& M' ?Cell[BoxData[7 S" l# }/ {9 ]1 M; y7 b( v
    SuperscriptBox["\[ExponentialE]", + U& Y) B/ |( ?  m1 h. ~0 ~
      RowBox[{"3.141592653589793`", " ",
      S) D6 V4 k4 P& s9 X" I& m8 Q+ j   RowBox[{"(", 4 G/ k% J% N* g* S/ P/ ~" }
        RowBox[{8 {1 v% g  E6 Q! S' `% Z; e
         RowBox[{"-", / p) ?% s! i- \* Z0 c; Z
          SuperscriptBox[
    # p% m7 ?% i- u       RowBox[{"(",
    * x6 p( @: ^9 W7 [9 b8 r        RowBox[{0 O6 |6 `8 b9 ?) B, R8 r& A
             RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", , V! j" t4 J( t8 n( s! o+ i8 t
         SuperscriptBox[
    . F9 i/ J. x( M( x5 Z: z% [% e2 i      RowBox[{"(",
    " D8 S: Y' P* y3 d; l. j8 o& f# u! b       RowBox[{4 l$ O! f% o! t$ }0 b: M$ @
            RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", $ G. m' m5 b# }3 o- y; E
         SuperscriptBox[
    % t, X; R$ z1 r. @/ I* F      RowBox[{"(",
    ; S$ H) n. q7 V6 N% {       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
    ; H& x+ F7 b/ B6 n( y  l     SuperscriptBox[7 Y# B1 |' _0 d) s
          RowBox[{"(",
    ( W9 S; l, b! @- ~9 W' l- g- u       RowBox[{% }% i. Y3 F5 s/ Q' K" k* [4 {& E) C
            RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
    6 ]/ U" |! F/ w1 _( w. g: G     SuperscriptBox[
    & u- Y9 `' c# H% f3 N) T' [/ l1 U' k5 H      RowBox[{"(", ( k2 M$ {1 f/ {  h" J1 f. k
           RowBox[{$ q; C! ?% R6 T# ]; M9 p$ J% d9 [
            RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", 3 Q6 f+ ?* f2 E7 R5 l8 G
         SuperscriptBox[
    ) f( u& D. `3 O      RowBox[{"(", % \7 z  P! V# ]# ]# Q' A- \* J; T
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    . e' U6 }+ u8 Z     SuperscriptBox[
    / @; C. U- z5 D! j, Z2 D      RowBox[{"(",
    4 c7 R$ p/ o; k" M6 m) }       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 0 H( G6 k( L; ?0 L, v# k1 w
         SuperscriptBox[
    1 g, h5 C0 Z1 c% _/ ?1 @      RowBox[{"(",
    ) g, V3 D- O& U6 \+ v! u5 y       RowBox[{6 h# J& {6 @. s( n& L3 W, b
            RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
    " {% n' Y& V; [+ Q. R     SuperscriptBox[/ n3 G3 z7 F* G3 R6 M# a; p3 m
          RowBox[{"(", % v* f: `& F9 |, X$ x, b" f- X$ H- f
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 7 U0 e  P) y  A5 }
        ")"}]}]]], "Output",
    ) Q" D5 N' `: \8 ] CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]
    & ~& [& F$ V# R3 j' U( d( C}, Open  ]],7 y8 ^7 W' q7 C. I4 A/ |' y. |

    ( l7 u$ f0 W$ j" LCell[CellGroupData[{
    * O- [- [; r& v  d  f8 E
    4 a, B; V, L7 n3 V; h% SCell[BoxData[{
    ! P1 B: N; O: C" J RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
    1 C% P9 b% J' K  u RowBox[{"u13", "=", + m3 S- v- X( M& T5 q
      RowBox[{
    5 Y. X) Z! \/ e  Z" s   RowBox[{"Exp", "[",
    " c  H; j6 k$ b- H& A) t' t9 t    RowBox[{& A. b7 Y9 W$ o! r, V9 _$ Q  x5 U
         RowBox[{
    6 C+ F4 I" a+ V' K3 \: U& [3 f      RowBox[{"-",
    : ?5 `% T" t5 f! `. }# v4 h% X       RowBox[{! B) x+ _! m( w( n
            RowBox[{"(",
    , H& W3 \% b4 `6 P. u         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", * x% v7 P1 `" n3 d* [8 Z
            RowBox[{"(", # @3 y3 e' |% P  h8 m# ?
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],8 e  X/ _* u) }/ H1 z3 Z
         "]"}], "/.", "DeltaX"}]}]}], "Input",9 `& Q& M, g. R: v* t* @$ N! ^
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    " r$ d, I- \/ x- E/ R6 ?% E  3.57796154237158*^9, 3.5779615599684105`*^9}}],
    , h% I: R/ `( o* f- p5 H4 Q4 `" s, d1 l7 g1 V4 }( H
    Cell[BoxData[+ \# n  g' {8 v  S
    RowBox[{"{", % p- V5 R% V: J0 O$ P7 ^
      RowBox[{
    6 X# p: @1 _- K: }+ ~  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
    ) i; m" H( s3 p( o" {! G   "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
    8 v8 R& C: f4 \* u& j" b  "}"}]], "Output",
    $ E$ b& v( x2 q CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],7 {* }& }' c: c5 s# l) j
    " R6 `1 g$ u2 b1 M
    Cell[BoxData[& S) K! j' [3 x0 b3 p0 |5 j
    SuperscriptBox["\[ExponentialE]",
    ( n* Z; r) Q1 Q; f  RowBox[{"3.141592653589793`", " ",
    ' {. K! _  f1 o   RowBox[{"(", 4 t' h4 f: {! H. I( }
        RowBox[{* p# W; f4 d  ~; s! d1 C6 m
         RowBox[{"-",
      y) G( D" n$ K9 u2 f, T      SuperscriptBox[9 f- _3 i# z" D  s2 q0 }) X
           RowBox[{"(", ) n, q+ Y( R$ C( y" `: p, }5 h
            RowBox[{, z$ P, L3 k4 a: B7 J( y) N5 m8 D
             RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-", % B, F8 p. S+ L# ]/ c
         SuperscriptBox[
    ' P  v( g2 B) @9 `      RowBox[{"(",   R" K! y7 G$ B4 N+ P4 F
           RowBox[{9 v3 H& s* V; A- h" m( y" a: L
            RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", # }; v5 z0 J' B; l5 u
         SuperscriptBox[9 S  x" `+ g, \' o5 I
          RowBox[{"(",
    4 c5 ~1 L# E9 |. H' N) x4 E       RowBox[{
    2 p% x) o6 E: U* J        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",   f1 t* b+ V5 h* k/ h$ |
         SuperscriptBox[* }, S- }8 }# x: d, C
          RowBox[{"(",
    / ]" M2 O, ]# M. D0 B. ?       RowBox[{) Y0 S5 @  c3 C! K2 s" W: r" \
            RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-", 3 R7 p6 h' U+ O( c2 L  V
         SuperscriptBox[
    7 }% t4 t5 c, O! U) w      RowBox[{"(",
    / d, w+ ?8 @, ~8 U4 l% S4 `       RowBox[{5 U: A' S0 g1 j$ N; K! s6 A  `
            RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
    % }$ m" y) m6 x, a$ a6 \     SuperscriptBox[& s2 V3 \$ i" W2 B7 Y8 ^, {2 e/ b# L
          RowBox[{"(", ( n: q- |" f4 x: {8 v  G" _
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", " L6 t0 \9 y: |  ]; r
         SuperscriptBox[
    2 _# A% H. V* \$ r! `  r! E      RowBox[{"(",
    : g! |2 r4 d! B$ F1 f       RowBox[{
    % N4 K) R, z) T' z* \        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
    9 A0 i3 M$ B- I4 Z4 d& t& q     SuperscriptBox[
    3 {, i% e4 K; ^( U3 Z9 \  L      RowBox[{"(", . F! Z( N! ]2 }6 l* c
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 3 C3 A% h2 t, E. t& A
         SuperscriptBox[
    & {6 @7 q7 h5 O8 q" Y      RowBox[{"(", * n: ?4 u; m" l; T
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    2 u; A. i" S) B' H    ")"}]}]]], "Output",) Y# x) @) d/ U5 Q, t
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]
    4 B" E/ {6 h2 m, |. E}, Open  ]],
    - q: ^6 I- U8 n: v% U! W* k* l' Z2 N# c. f9 T) r# B
    Cell[CellGroupData[{
    ' |9 i- n) Y- E" I7 h- P
    3 T# g8 `2 Y$ I& |- |) d* CCell[BoxData[{
    8 w7 G2 q. ^' S$ u RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]", ! R, J' h$ v; u2 t7 T, Y) b1 }
    RowBox[{"u14", "=",
    - y9 b, u0 a$ F3 s  RowBox[{$ `5 _& |" U+ b* ]
       RowBox[{"Exp", "[", $ O9 M; y/ j9 b# [
        RowBox[{
    + }) {4 N; `  c% t     RowBox[{
    4 R2 F) g/ B2 p! r- b/ G" P      RowBox[{"-",
    1 e' H3 a1 Y  U/ F/ \% A% u       RowBox[{
    # _8 r# L" n* e6 _) |! @        RowBox[{"(",
    4 {+ j8 j0 U2 U( M         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    # y' n6 [# @' A; T& D( a" }- [# \, m        RowBox[{"(",
    ' k; l+ X1 ^/ v5 p: W         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],; p. t- _8 s' z! V1 C, |5 v# G
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    7 I$ b2 D  k- F- i" Y. A CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {6 H7 X4 L# u- {* M/ }4 A
      3.57796154237158*^9, 3.5779615663176217`*^9}}],
    6 u/ T1 z. o% }
    9 M+ \6 J- {- H2 Y& V: @+ i  ]Cell[BoxData[7 U2 m) \; N( s
    RowBox[{"{", ) @: n1 y/ }0 O- v
      RowBox[{
    * g$ Y% P1 E- B' j  "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", 2 {! y, }# n' ~% V. i& C. [9 r( y( i
       "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    ; J; C* i6 @) D& `3 h3 x  "}"}]], "Output",; D( G! \# \0 M/ C, {1 n8 [
    CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],
    ! `, E, Y2 w+ S& u/ H5 A7 j3 E: Q/ q1 X
    Cell[BoxData[
    ! n5 x1 I; w8 p$ ~% g5 ^) x SuperscriptBox["\[ExponentialE]",   I1 _+ X6 s, z5 d( g
      RowBox[{"3.141592653589793`", " ",
    ; {7 j3 C) U; X- h/ y( Y. v9 x   RowBox[{"(", 1 Y1 K, h) ~8 @# n% K% I! d& J; Y
        RowBox[{" C8 C7 y8 {& R3 N# p) t3 w8 X
         RowBox[{"-",
      D0 p! x4 s3 d. {3 i      SuperscriptBox[; o2 R0 ?9 [/ y0 l9 B7 F$ l$ o
           RowBox[{"(",
    / r7 B3 Z( f" n) v        RowBox[{' k! g  D1 p3 E
             RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
    5 R; ~) j6 d# `: q     SuperscriptBox[
    ' U7 @9 e% }# d' m5 V9 d' N      RowBox[{"(",
    ) r$ W! ~+ V) r       RowBox[{" U$ C3 ^7 J) Z) B! t8 e, y- ?
            RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
    0 \3 I  Y' o# s8 [  C& x     SuperscriptBox[1 Q: C  I& H: B, n1 D9 x
          RowBox[{"(",
    7 N1 _/ O/ Q4 k$ y- ~       RowBox[{: r* R9 j/ X# E  k* L1 Q1 [
            RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
    0 c, k! \1 J2 P' B     SuperscriptBox[
    ' q' `# o0 L! Z% K3 _7 [      RowBox[{"(",
    ! {+ a9 l8 C3 N. j       RowBox[{
    - Y2 e$ t0 N' o$ v' [  K: d        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", . t7 J2 x- R  v2 |" s6 ~% Z/ A
         SuperscriptBox[
    2 s  f7 O: O9 m4 d      RowBox[{"(",
    5 t9 E* B  b6 ?- i3 A; R9 G       RowBox[{
    ) Y+ N" L) e6 E        RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
      |" R, {& d1 P  m     SuperscriptBox[3 G8 e! _! s# @) Y
          RowBox[{"(",
    2 q# |" X6 W1 f! U" C# R       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    : z6 d) V" i/ m( N" y; Q! z' C$ l% k     SuperscriptBox[, K; o) _2 j" ^; v" J* ?1 n% C' L
          RowBox[{"(", , ^& |+ Y1 V( b# E
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    ( r$ x! n" E, M+ W& X6 T3 \     SuperscriptBox[6 H: A8 r6 j" y& ^! v5 `
          RowBox[{"(",
    % N+ t- V3 i8 P       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 7 N5 J- o# f2 v( {' g
         SuperscriptBox[
    7 j/ i& V# N$ z9 D$ i6 m3 a& p      RowBox[{"(", 6 l' I' ?7 L8 ]/ P! x& v
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ( b  ~6 p0 M  n- Z3 n7 q) D8 z    ")"}]}]]], "Output",
    ' C6 A) I5 |: A' }- s CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
    0 ]9 X: t6 R6 t& u4 k5 V}, Open  ]],: f+ Y" `2 b" e( |# ^7 }
    ( }, S4 C8 \, s7 C0 j2 F
    Cell[CellGroupData[{
    # u6 S% V4 {1 [1 y2 p3 t) @& u4 w' a+ Y. x
    Cell[BoxData[{
    ; @- l5 S: ]$ n4 c/ { RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]",
    . @5 y1 }6 X# Z/ I) Q RowBox[{"u15", "=", 4 |$ P% l0 e0 a2 L' U9 ]6 j0 Z
      RowBox[{- U! R, `' b. W, O' J
       RowBox[{"Exp", "[",
    % E5 A5 S! X1 O) N# ^    RowBox[{
    - T  V1 G- N- I; P( M3 B- p5 m* b1 H7 M- `5 m     RowBox[{. l# r/ C' m' E' |: A6 M6 J
          RowBox[{"-",
    $ L: n5 V0 f, n+ x  J! [+ V       RowBox[{
    2 g, |# F7 X1 `/ {0 v# [/ L        RowBox[{"(",
    6 H5 U3 _/ _6 ?& T- {' e3 [         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    # u5 x5 }1 l  y6 s$ w: W( y2 w/ N        RowBox[{"(",
    + A( E& o* F. @         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],+ r+ z! ?- e7 ^0 K0 t" b
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    $ E& T' C5 z; @( d$ Y CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ( }5 }6 X0 v, \+ G  3.57796154237158*^9, 3.57796157098203*^9}}],8 P5 S0 B. N1 p3 I* f' e8 B7 M
    ' Y6 D; J$ `+ E% W' d  I& j
    Cell[BoxData[0 G+ x9 ~2 p; B! {* J' J' Q
    RowBox[{"{",
    3 @, B4 n" w" ]  RowBox[{: S8 |, Q# [* s
      "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
    % F4 k1 |$ n* P   "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}], " B& e# k( T. e' _; p. T4 ?
      "}"}]], "Output",4 [  m3 q! e$ F5 L: s
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],! X: n' ~2 X# E' N& Q6 J
    , u1 ?2 ]( C7 E
    Cell[BoxData[
    % C) ?3 d: g2 P. ]* {" a0 _ SuperscriptBox["\[ExponentialE]", ! a' S9 H- @. W- U" K
      RowBox[{"3.141592653589793`", " ", 5 |0 f# ]. v! b; \7 X4 m; j
       RowBox[{"(",
    : d, y5 @) n5 p. K1 k2 Q    RowBox[{
    0 \% P( b* J% x' m& }     RowBox[{"-", 5 b; ^3 t3 Y. u' \( B% J  w
          SuperscriptBox[
    8 ?0 q% W) c5 E, _       RowBox[{"(", , a  X) _2 U, I+ O0 v5 Z
            RowBox[{' t% b5 R, D, L6 A0 I' y- x! V
             RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",   T" U  b6 U' d' d
         SuperscriptBox[& J$ o# B6 e5 U3 p
          RowBox[{"(",
    ) h2 e" g! k, Y: q* T       RowBox[{( U  P$ z2 y: Z) T7 f! \: V
            RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
    9 a% D6 {8 }5 m# k- P9 `, z& F5 @# I     SuperscriptBox[
    ' @3 K3 I. e7 t# v. u) A* k1 Z* R      RowBox[{"(",
    % K' M: p' E: |7 x9 e       RowBox[{/ E0 K$ Y! q* o. d& @) j! m
            RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", 1 e3 |" S4 f% T6 _: V1 ^8 _1 f4 j
         SuperscriptBox[
    % U6 S$ ~4 v2 m8 U1 E0 Q      RowBox[{"(", : A4 Q) ?  [5 w: F4 K0 @. z
           RowBox[{
    ) P6 [& {) A6 {8 l* b" e        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
    & X: ~+ g6 A+ K0 i6 V     SuperscriptBox[2 j& w$ R, t8 t( V2 |7 v
          RowBox[{"(", $ e+ m3 X( @, |/ K- a
           RowBox[{, H+ ^7 p/ o( p* G- h2 x% O0 R
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", . \0 D  \3 M5 Y7 Z- B" N* n; ]. [
         SuperscriptBox[" Y* W; n, F1 V- t) _
          RowBox[{"(", + E* b. u" ~4 V: f8 q( ^
           RowBox[{
    / k; [, ]. U9 W" I6 E        RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
    " O" d9 Z) h0 ^3 `     SuperscriptBox[
    4 l* R2 p+ V+ e4 X' _      RowBox[{"(",
    : [9 w8 Q2 a9 L( L       RowBox[{/ u: S% t1 `/ l5 J8 G, ~$ Z3 W
            RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    0 o. N, _5 @( c     SuperscriptBox[- y9 n# H! ]" }. _5 H4 x# ~" c
          RowBox[{"(", 3 g/ j2 f4 N6 N0 l; P
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 6 p( c; K4 [9 ?  X: Y
         SuperscriptBox[1 P" a3 w4 {; d1 b# H
          RowBox[{"(",
    ; w& [! `+ R1 a+ l! K9 W: o       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    5 x: e' }8 G+ z4 l1 Q2 f- A  i; u    ")"}]}]]], "Output",) R8 R) q1 ~$ G2 f! F% {
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]; {+ w* J: \$ y) \" o% k
    }, Open  ]],
    5 w( a/ m& H/ E, J/ R4 G# j5 v1 s6 I" s! r- u/ L! K
    Cell[BoxData[
    8 h; _" T* h9 h RowBox[{"For", "[", 4 B" ^2 _9 k6 T; F( E
      RowBox[{" [% v. R8 V. k- U0 D- k, w
       RowBox[{"i", "=", "1"}], ",",
    ( A4 Z2 t3 n& {* x6 w% k   RowBox[{"i", "\[LessEqual]", "9"}], ",", " `; x. j0 [0 z( ~7 P0 a
       RowBox[{"i", "++"}], ",",
    " @/ q0 q- @, H: E   RowBox[{
    / A; p* Z+ A1 O  l8 c1 f    RowBox[{"Ca", "[", / L% q; s( w* {0 A& T) _# d- O9 G1 g
         RowBox[{"[", "i", "]"}], "]"}], "=", 4 Z' B1 A# ?% K$ ^2 |
        RowBox[{"CM", "[",
    ! X! M3 A2 T* K% ~. F* R     RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    + W6 W2 J3 K6 g2 n$ x  \1 W CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
    ( [9 r% w  {0 E, ]
    8 Y# q9 c, C7 J& `3 r; |Cell[CellGroupData[{
      d6 j! I3 ?! l" V
    $ [) I5 _, x) R# Z6 ]( B9 ACell[BoxData[{
    9 s* I  u& s7 l; c% ~( ]% t RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]", & b+ @1 `$ K7 a8 C
    RowBox[{"u16", "=", $ M& y  w+ L6 G* @; a- L" ]
      RowBox[{
    & O- I8 |  E2 M7 ^7 b# h) l) G; o; [0 J   RowBox[{"Exp", "[",
    ( Q2 v6 s* T5 B7 C9 `5 J* O. z    RowBox[{0 \" P+ Y' r: X+ d- G* y7 F+ D
         RowBox[{% m* t" \8 @9 |  d1 E+ I
          RowBox[{"-", ! e! {" j7 Z  `4 Y7 V2 n5 y% C
           RowBox[{* U* q! H1 |, U1 Q- w4 c2 `
            RowBox[{"(", + ], h& f0 X) D/ z$ r
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 5 x( m$ t1 r8 g
            RowBox[{"(",
    & m) V& t% a, [* _3 L         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],) Q9 @5 b" X( d% s  s4 z
         "]"}], "/.", "DeltaX"}]}]}], "Input",3 R5 ]2 [1 ~5 ?9 J) x5 E" u, \& Y
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {7 v+ p! u  C9 a8 I( E0 j! ^1 l8 A8 ?3 l
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9, 8 C2 ?; C2 p+ P8 T: Q
      3.5779615751004367`*^9}}],1 @# n, u) \% g% Q1 y1 g

    , b+ X; u$ X  t; m* r% m1 h: |0 ZCell[BoxData[
    ( I9 F; _7 {) s- k RowBox[{"{",
    $ r3 X/ O5 I( Y$ j8 A& F  RowBox[{  _6 N$ h9 K+ c0 m, {6 I& }
      "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
    : u9 V7 t7 G% @1 u9 h7 r+ k* u- N   "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}], ' x3 e6 |, m9 i" }7 w  R
      "}"}]], "Output",
    7 _- i( I6 x4 z4 p CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],
    ( \1 g0 |' \6 l% y: V0 ^* G# G0 O/ _. z1 d. M( U
    Cell[BoxData[
    $ Y: G: R: n8 Z9 t* D. r  B( U SuperscriptBox["\[ExponentialE]",
    0 v. o) _! }; T6 W  r- y3 @& l: L  RowBox[{"3.141592653589793`", " ", ' i2 `; X/ i* @0 T5 p* \+ ?
       RowBox[{"(", " s4 ~8 m( |5 g. }- t
        RowBox[{- n9 e( f8 {8 w( C8 O
         RowBox[{"-", 4 X/ A  U. u$ I$ K* j
          SuperscriptBox[
    . i" M/ B+ R& O  b: y' \       RowBox[{"(", ) C( Z0 \0 U* U% i, x
            RowBox[{
    9 z# ~+ y/ t. U' C         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", 6 l) F7 ]  ~- T3 X' C/ I
         SuperscriptBox[0 C0 A" D3 d1 H1 N4 \3 s  w
          RowBox[{"(", ; E; L) o& a. n0 ~& t
           RowBox[{0 u6 d2 ^5 B" r: J4 q& F
            RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", 5 D# M4 ?5 U1 g8 A( K& m7 s- Q
         SuperscriptBox[+ f$ m. E9 C, P, @1 R5 J* c  T2 j+ F
          RowBox[{"(", 5 g! Q3 X9 T1 y+ ]; R' c& I
           RowBox[{* u) s  c) g: b3 Z, f
            RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
    7 R- a& _/ f7 o$ w& B. {) p( [9 A     SuperscriptBox[
    ! l: `" a2 a, n: ?5 Z      RowBox[{"(",
    1 ^& L# k3 V# x! I       RowBox[{& h0 Y6 _7 p. v! _: h) Q# K+ Y
            RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
    * Z6 x; e: Y' q" y+ s5 Y     SuperscriptBox[
    ( G' y( q3 j2 V  a$ `% ~      RowBox[{"(",
    & x0 M% _0 {& v' G% N9 k+ z6 f/ \! x       RowBox[{
    + j/ x8 g1 O: I' Y  h, x5 r: N5 `1 Q        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", ! v" i2 m  }  f
         SuperscriptBox[: m6 r! P+ G: d$ M2 V9 C
          RowBox[{"(", 6 [$ Z) n8 D4 z5 o0 Z4 p' C6 J0 @
           RowBox[{
    : L( }* Z; j7 S  |9 S: B        RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", $ z! F7 i: m' p' R1 s  M
         SuperscriptBox[
    & m1 ]; M4 o- p# U      RowBox[{"(", ' |) ?6 @8 J+ }
           RowBox[{
    ! P, U# s  V* \1 n5 `        RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
    $ y% \- ]/ {( S$ T! ]& Z0 T7 b4 W     SuperscriptBox[
    . H. Y2 V6 S2 B* W% o7 R6 C  L" S      RowBox[{"(",
    0 v) |' N2 w! F  P: M' o; P( `       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 0 a, h' g  ^* W3 {) M
         SuperscriptBox[
    6 `: [' O9 L/ i; `7 A! d) H      RowBox[{"(", 0 ?: [7 l* D( E' V: g: z
           RowBox[{
    ; k' I/ e# r9 t' B! v) g        RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",
    - D6 I7 B% [. [1 I8 \2 |( o" D" O CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
    + L( q# g: X3 X% [: ?$ ^}, Open  ]],) F3 h* j; \9 Y4 }" b1 T, S

    # E6 Q6 M/ l+ B: j3 y1 J9 {Cell[CellGroupData[{
    8 X# N2 Q1 l) ?* {* P* F8 K2 |
    * P0 Q5 ]2 @- q" j0 n: f' aCell[BoxData[{
    5 n2 `5 T% L3 e RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]",
    # V; ]3 F% G# X+ \ RowBox[{"u17", "=",
    6 |1 d, Y2 A* \( P  RowBox[{- L3 N4 p5 V4 k# t( U
       RowBox[{"Exp", "[", 6 L' I- Z9 e# ]7 z) w$ X
        RowBox[{1 B  s2 [1 h, Q: `
         RowBox[{
    ! d; Y) }7 k1 c      RowBox[{"-",
    6 l7 t! s: H6 Q, |. ?       RowBox[{
    # d9 R% M1 P* y& L1 t9 q        RowBox[{"(", % F, e% {. \, `
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 8 ^. p% o' S9 Q9 P5 E3 W
            RowBox[{"(",
    * K# [8 z: }; e         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],/ W5 _7 Z/ K# J
         "]"}], "/.", "DeltaX"}]}]}], "Input",+ R4 R4 r( r' n5 Z
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    % U2 l' T3 p5 j' ?  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9,
    & ]4 x$ R# X8 g4 k! v  3.577961578953644*^9}}],
    / @) d$ `$ Q' Q5 i; i4 o9 |: c5 @# H2 l( m4 R. i; f
    Cell[BoxData[+ d" R' G% x8 n  |$ ~
    RowBox[{"{", ) u+ W6 H6 n' ~# j
      RowBox[{; l; Z2 m5 ^9 N$ Z" P% D
      "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
    ) y% [* P. Y2 x% B) a! M8 ^   "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}],
    1 F( v/ z* ]' y( _* D% _  "}"}]], "Output",
    - K8 h( S9 P# e6 V% |- y6 Q6 }) K CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
    " o5 H( t/ G1 B3 [) ?0 j- a% p$ E0 L! C! Z) q
    Cell[BoxData[
    7 X" o( o% `; N1 _+ l- z; }5 t SuperscriptBox["\[ExponentialE]",
      l5 Y, `7 [" D4 e  RowBox[{"3.141592653589793`", " ",
    : a" H7 j: N2 w3 h" a   RowBox[{"(",
    , z; n. u# K$ B0 o) O    RowBox[{% |- e. k+ g9 Q" J  j' \' @* I% w& h
         RowBox[{"-", 2 e8 ~+ `/ B( e3 L$ T' a: R. E. ]
          SuperscriptBox[  m( R+ C" E, D+ G
           RowBox[{"(", # e4 j" [. D1 G/ s0 V
            RowBox[{+ ?+ ~* ^6 z4 g( X* O! S/ G: w) V# Z6 ^
             RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", 7 X! G% |& ]; X# K) X
         SuperscriptBox[
    6 z, s( Q8 g( v2 ]1 C/ Y      RowBox[{"(", ! F2 {8 G3 [' ^4 ?" N
           RowBox[{; ^3 q. S# O3 M0 _0 H
            RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", 6 o/ D( s4 i( z! r% E  b8 W2 ?8 p# Z
         SuperscriptBox[
    ! q5 z* W1 y( _6 A, m) S2 h9 d      RowBox[{"(",
    * \/ a6 @1 e+ }4 l! j( t% X9 g# j       RowBox[{4 @' `& o+ V! J* `8 |) E! Y1 O
            RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", 4 E: ]  [% ~. H6 b& o0 g/ |! M7 N- d4 V; P" T
         SuperscriptBox[
    $ U2 g+ z* j8 O6 u+ V7 p0 Y' I/ j      RowBox[{"(", 5 K. f+ u% f/ y1 V; k6 x
           RowBox[{3 l7 W$ H: I  O
            RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
    2 [$ E; f1 y9 Y7 l     SuperscriptBox[
    0 A2 J& u7 k# |( U( J      RowBox[{"(", 1 R  r; z7 B$ z* j$ ]/ z
           RowBox[{+ n8 }1 @" o+ l; S' r1 y
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", 3 f. \7 |, U( J  V) Q1 Y- L+ e
         SuperscriptBox[" Q' y1 f4 ~# H6 J$ h: b7 r
          RowBox[{"(",
    , s5 y( M3 L/ A; W' K# v% c' p: t       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    - M: _  R: |5 @1 H0 q( a  u0 g     SuperscriptBox[
    % Q: d4 @1 h% \4 }, q* [9 ~( H      RowBox[{"(",
    # `. I( S% r, h       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 7 b4 P+ ^; m, B2 {+ n2 j
         SuperscriptBox[( L  f+ G4 h8 R8 ^) _2 O
          RowBox[{"(",
    + g9 g, z( W0 W; I3 X       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    / Q( K# X8 g6 z9 ]" c     SuperscriptBox[- N! P/ |1 J3 o7 `
          RowBox[{"(",
    ' _% Q+ `: `# [7 h       RowBox[{# l7 I% t. ?' j
            RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], 5 M0 M( ?0 n. H9 s. \6 n
        ")"}]}]]], "Output",
    : z' H% b+ f6 w5 U  K CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
    , }+ x( \* t- R, Z0 V8 c}, Open  ]],
    " H, c; G5 F; h9 z* m6 u  G6 M4 ]' Y# k5 H- B! ]8 Z* a
    Cell[CellGroupData[{- {# W4 H# A; T
    ; Q  ]3 Y' H4 j7 {: l- M
    Cell[BoxData[{
    9 d# k0 t/ j9 J* ^ RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]", / Q8 M  f. ]% {/ p" a
    RowBox[{"u18", "=",
    " z, `4 T; F% a. d  RowBox[{% s8 Q9 j, Y: A
       RowBox[{"Exp", "[", / C8 l" U4 v3 n
        RowBox[{
    ) t. D, Y5 X8 ]2 {, @% Z2 I$ j+ N     RowBox[{
    $ A4 H4 z- N, u  L4 H* R6 s      RowBox[{"-", " o  |# x+ V6 c9 S2 E& Y0 }
           RowBox[{# n: G* s& ~; f
            RowBox[{"(", , q% a  C( `/ a) i/ G
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    + K$ V' D( {. r  Y; k  p* K% N        RowBox[{"(", & V" ]9 }, j, r5 R1 l
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ( a3 b0 `$ S' o3 c5 ^     "]"}], "/.", "DeltaX"}]}]}], "Input",8 S7 `( c) v* T
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    * C" G% C( Q; M" H# l( I( n  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9, 6 M( J4 U/ X; F
      3.5779615828848505`*^9}}],. K0 M3 C1 H$ H6 V$ Z$ \
    ! a7 u( E- M- i1 r% H9 A1 [% @
    Cell[BoxData[( A: z, C% C4 W( U; }
    RowBox[{"{",
    7 T% B# _" y% B1 o' _  RowBox[{
    . j: p2 h/ B+ C% p2 S- Q6 `. h/ ]1 u  "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", 1 x4 C: M7 v% f+ a+ Z
       "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], & Y) a* F9 X: a" D! }2 I) m
      "}"}]], "Output",/ n0 N0 f+ {; X6 p- u$ d1 y" B( _
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
    8 l" E1 I9 n- F
    % O" q4 E6 s- n+ B/ ^Cell[BoxData[
    & H8 r8 }9 X+ K SuperscriptBox["\[ExponentialE]",   ]; k- P6 k/ h
      RowBox[{"3.141592653589793`", " ",
    ( ^) G! g* g6 e% K3 k1 \   RowBox[{"(", : L  j! X  w6 T$ T0 o6 d6 M8 n
        RowBox[{, o: q/ n- N/ J6 @& x
         RowBox[{"-",
    ( Y4 S# q) d' h/ [1 Z  X      SuperscriptBox[; p' l4 q+ F9 W% z
           RowBox[{"(", # ?: z9 L& p' l" v( |+ x
            RowBox[{
    5 X1 F5 ]8 U/ z, d: Z         RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    3 p0 x  e9 t0 s     SuperscriptBox[& j" T0 Q1 b9 i, b% |
          RowBox[{"(",
    & n! Y$ W2 Y$ t( U       RowBox[{5 s8 L1 ]( |! L: A4 B  x; j
            RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
    + z1 N+ n3 ]2 X. E' k% s0 t5 P     SuperscriptBox[
    5 X: o/ A# R6 F  l! _4 ^# v6 Z      RowBox[{"(",
    $ z" ?4 z) n  L6 q       RowBox[{0 l) T- Y9 G1 M0 w5 _" J8 ]
            RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",   a  ~/ l; t  {0 F) l1 V
         SuperscriptBox[
    % y# C; u9 H, m4 K$ a3 a3 _' u      RowBox[{"(",
    4 ]; Z3 j8 ~6 |: f* m       RowBox[{
    # H# i: V# w8 F        RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
    / K; C* a2 A# d3 i- K( @) H     SuperscriptBox[
    . ~; x) I. i: E$ F* H% P3 A) ^) X      RowBox[{"(",
    . K/ j' n% g' L3 J  A# N! H* u$ A3 T5 W       RowBox[{
    , \$ n7 F. D2 R: T        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    5 d* H# _1 z5 ^( O6 m7 e     SuperscriptBox[
    ( ^& @" f$ p; y      RowBox[{"(", - E4 t. ^& p* I: i* S+ D: v& L$ H; ^
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ' U& c3 n7 j4 O0 ?0 R     SuperscriptBox[. Q% q+ |& N6 Y; x& a+ g
          RowBox[{"(", 2 V$ x- y5 y. I8 v* [
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", $ d. M; A" F* D1 m+ _# G
         SuperscriptBox[
    + t- O! e) M# m      RowBox[{"(", 9 U+ C# S7 r7 _; h7 `
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", $ z8 w" U4 h  B5 a, N. ^' R
         SuperscriptBox[3 k4 j0 m; [5 J9 H' r# I) G
          RowBox[{"(", / l5 k/ h% K+ V; B0 T5 X7 x
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    / D- n8 |0 M+ C% H! ~' r8 m    ")"}]}]]], "Output",5 }% `4 ~; L% _9 o! T0 b
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]
    ) _3 Z3 V1 V' s0 |}, Open  ]],
    4 N! a7 A. w0 \
    4 {; q. z+ h6 D, eCell[CellGroupData[{
    6 T& I& X' f, s' d3 `. g( ]/ d; x' y1 ?. L$ u" M$ W% j
    Cell[BoxData[{4 ~+ t, K" B+ w3 k! K' T5 V
    RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]", . J+ O2 ^. |' |- V
    RowBox[{"u19", "=",
    $ Y5 s8 b% M" {) C+ u  RowBox[{
    : n( {1 H' V. S   RowBox[{"Exp", "[", 2 U6 V: y4 R- _- y& f
        RowBox[{2 x7 I% w1 `/ }# D$ _
         RowBox[{. }& W$ F/ t8 u: C3 _$ y
          RowBox[{"-",
    / @$ j7 j! C; \" ?1 J, s       RowBox[{
    0 Q2 z, `" e) k* Z. Y5 [        RowBox[{"(",
    % R9 Y+ ]! B7 U- V3 [# W         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ' }  h% `. ~, L% d, ^4 E; I        RowBox[{"(",
    : n  D& v* `' F: y$ D, @         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],1 [, v" J3 a9 g3 X: ~8 X
         "]"}], "/.", "DeltaX"}]}]}], "Input",7 d  u9 b% Q4 g  o1 t+ s- m
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {7 I( K- Z  J# Q- P5 |
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, 7 b' z, q. S7 |; ^. k) T; X7 @  B
      3.577961588890861*^9}}],
    . ?6 }% s2 P0 l; ?: \! Z) M
    2 Z9 J4 ]  q$ bCell[BoxData[) T  K) Y9 W! q& V% N
    RowBox[{"{",
    ( H0 r7 m1 }8 m7 s* T5 v- K  RowBox[{
    3 K) u" A( S2 t4 z, s7 ?4 q  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
    + K* g6 }5 R3 Y! y8 U+ K   "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],
    - V0 j9 J8 R& I! M- C% E# T3 v9 g  "}"}]], "Output",9 H6 ~  ^$ r- x
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],9 @0 W: t" S: p" v
    0 ~4 _% L% w2 e. R% ^6 C& F
    Cell[BoxData[
    # N$ D; {) ]9 [ SuperscriptBox["\[ExponentialE]",   P% \. P0 G( g0 J0 c
      RowBox[{"3.141592653589793`", " ",
    ( `7 G5 ^% z1 s2 ]' M   RowBox[{"(", 0 b6 Q5 X# ]' z% G! ^
        RowBox[{0 ?7 j  O' Z6 ~9 b- P3 W
         RowBox[{"-",
    ( p& ?# N8 ^6 G+ C: ], R: @      SuperscriptBox[
    # g3 _, G' e! F5 |+ @       RowBox[{"(", 4 r$ s5 C0 N! G+ e8 H; z6 p+ F- Y: v
            RowBox[{! S1 o# J) F) n2 B, N
             RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", : E' b" @. ], g- C6 `, q7 d2 _- q
         SuperscriptBox[# z) B2 G9 Z. N# [
          RowBox[{"(", , y" ~. z- f& X, p6 c: I
           RowBox[{
    % U% Z: z5 }) d0 p1 c" Q7 H% u        RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
    9 H% ?1 a, _5 R/ C     SuperscriptBox[
    ! Q2 {' X; V; `0 ], m$ a8 R: z      RowBox[{"(", 3 r' q1 K! P9 @  S8 {- e, [
           RowBox[{9 {6 M1 Z! D& ~. z+ g5 C; D/ P  s& u
            RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
    6 e1 u$ y' g+ H8 C& l" C0 o     SuperscriptBox[( s+ O$ Y% k% n& M) S; I( ]* Y
          RowBox[{"(", 4 x) n3 N+ @: [4 _
           RowBox[{
    0 }7 V+ `  `1 S% l        RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-", ; O* D# V+ l$ `# ^& {! y2 G
         SuperscriptBox[
    . @, M6 E$ q6 a) [8 h      RowBox[{"(",
    + o& K2 n' e, f% A! \+ v       RowBox[{& \& Z1 a. U3 F
            RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
    ) E' T2 @0 L# I) G; s& K9 A     SuperscriptBox[
    " d! b! x, L% R      RowBox[{"(", ) U0 r1 f4 l/ J* F% E6 _$ X
           RowBox[{
    0 I% Q  Z( |1 q) e1 s4 s  M' R        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", + w+ Z+ w7 d: J: B( @1 k, O$ ~, }
         SuperscriptBox[% j" x$ L, P* F; S
          RowBox[{"(",
    $ j3 B7 {* t; o% B+ r) u# z% C  M; }       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 1 V$ m% p1 a: J1 E4 l
         SuperscriptBox[
    0 G- Z; R, _  d      RowBox[{"(", 4 ^! T" @) v6 y# `; W# V. \/ x
           RowBox[{7 r! h; ]2 ]; K3 J5 T% R% R- L# }
            RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
    3 C3 m9 Z: b( Y% R* x: G4 N6 k     SuperscriptBox[) ^6 `! M2 g/ Y, _( k
          RowBox[{"(",
    ! g& l% p* |. V/ x       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    9 g: b1 e4 F6 h* ^, |$ ~1 h# @    ")"}]}]]], "Output",
    " S4 H' F% ]+ D CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]" }; d) _, u2 ?3 O6 x. {' }9 t3 L3 z
    }, Open  ]],# b$ U+ w$ l, V5 W) J

    ( ~: n3 \0 ?; N: r7 ?Cell[CellGroupData[{) |* B, [2 j9 {+ f: q8 M8 _
    ! O' R  e# B9 Q8 k: y' _$ W
    Cell[BoxData[{) ~2 S2 {+ M) G$ J+ e0 I  R6 b" _2 N( ?
    RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]", $ j4 J6 y4 H# a; F/ c1 n  ~
    RowBox[{"u20", "=", ; [3 W0 d4 x, Q' E5 D8 T
      RowBox[{2 [  a$ @4 D' n% k9 N5 T3 U# s5 X
       RowBox[{"Exp", "[",
    4 X) f' H4 b4 a, i* ?4 ~6 l6 T    RowBox[{
    1 D6 L6 R& A- ~     RowBox[{0 u% ^$ Q& b: L# o% J0 u$ n
          RowBox[{"-", + \/ U7 o& n: ]/ e- N8 ^$ n
           RowBox[{
    " ^0 i! |+ e9 ~- o" R# f" _" K! i        RowBox[{"(",
    - [* v% Z. i# i4 M4 @         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ) o* N1 h- P; U( b) M        RowBox[{"(",
    - p/ `  {  Z. Z: m8 W( [% D; ^7 r( k         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    $ A5 n% }  A7 i, [+ X2 H! [! d# K     "]"}], "/.", "DeltaX"}]}]}], "Input",1 L) V& n2 ?% C
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {& I& j0 ?- X$ t* c, r
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9, 0 x/ N# r. [/ E. D* r3 X' z/ K
      3.57796159382047*^9}}],
    # O" y3 ~: G% ^9 y2 k* s1 s1 [& Z3 p+ b' c4 m7 z
    Cell[BoxData[
      j/ D, R0 U: x. ~' f% l" Z7 q! B RowBox[{"{", ( Q  ]* r4 j) K, x4 d$ T5 U
      RowBox[{
    ; r* j/ d* U' X* R, W  "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
    / y+ |6 Y( L( x   "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}], : L2 `8 j) \/ A- [
      "}"}]], "Output",
    ; z- W. X+ E  d, O, s2 L9 e; h CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],( ?/ b; j6 Q0 \( I
    % c" a* V; Y. b$ x$ t
    Cell[BoxData[
    + C- ?# {" M& L/ w$ ?9 x9 ` SuperscriptBox["\[ExponentialE]",
    " i7 B/ t( C7 F. q. Y* h( x# {3 f  RowBox[{"3.141592653589793`", " ",
    3 ?) X/ X. F) E8 i$ \" C% S   RowBox[{"(", / [6 [* u" k1 Z, D! f
        RowBox[{
    , Q, [; ?4 f# M) O$ T( Q     RowBox[{"-", 7 F- T( W: E: d3 f. @9 q4 B# A3 B8 g
          SuperscriptBox[6 }% y) v% D' w3 e3 e' Z
           RowBox[{"(", . d$ w, M  k9 h9 g+ ]
            RowBox[{
    3 j! O+ E; M8 {) R. L6 r( X         RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
      G7 p+ K& M! J9 }! _3 A8 u     SuperscriptBox[7 q0 y8 v3 r3 I
          RowBox[{"(", 3 l+ R2 b5 B: i. I
           RowBox[{+ X1 M- m, X) D( Z% g6 `2 @2 T" R" S
            RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
    ! m" d# E& z% M5 C7 U5 N# q     SuperscriptBox[
    ; ~7 b5 ^0 P+ }7 ~' i6 ^4 G      RowBox[{"(",
      u  n  u- u5 g7 k  C       RowBox[{9 Y" S* u  k" ^2 W1 l8 o" g( b% b( ~
            RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", & B* Q9 `. q/ x! z
         SuperscriptBox[
    ) X& Y; t9 M7 k8 F% w      RowBox[{"(", # f" I) U, L7 ?/ t7 z8 t0 N. y
           RowBox[{
    ( z+ X0 _+ D$ E        RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", & @, X5 w. ^7 `9 o* q8 _! l5 V
         SuperscriptBox[
    8 ?  ~  h& r, i2 b% F( A      RowBox[{"(",
    5 }; S9 F9 {3 d/ a       RowBox[{7 q- o( x; P- R0 b: y. ^
            RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
    0 _* n. l- b% K& @     SuperscriptBox[
    " x5 v6 A: n7 }+ R      RowBox[{"(", 0 P1 E+ ^6 N5 P* t2 U& E) D
           RowBox[{1 r9 o; ^: A9 g# Y6 _& c2 R  @
            RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", # F! f7 i) m# J  M  I1 n
         SuperscriptBox[
    # i! N% a5 r: `8 o      RowBox[{"(",
    , T" y: X0 Q/ }8 R) a% f1 f* I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",   q9 ^( f7 N& V# a
         SuperscriptBox[; K3 L- `4 w7 I* @. N0 }- M
          RowBox[{"(",
    # F* D- e- N& o& Y7 h0 z' g  \$ M       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    1 r+ l. a; H& u5 N) A& ~5 P' H     SuperscriptBox[8 R7 A" J& |! B) N. X
          RowBox[{"(", , X  T: Z: _3 o# x6 ]
           RowBox[{. ?  a  @( ~* Z- ~
            RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], . @0 q3 m4 Z3 N. Y
        ")"}]}]]], "Output",* D. |7 d  y# a) [, L
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]
    $ a" [) [5 e. {}, Open  ]],/ Y% L+ i9 f1 A& s- D

    + V8 V# e# [8 l; WCell[CellGroupData[{* ?: p' v7 C6 J! p# _; ?. [" _

    + w6 x5 `- `# ], N8 F( M$ L1 T# hCell[BoxData[{  v! `4 F# b3 }6 h% T7 `8 Q
    RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
    ! _  y& w& ?0 e* k8 A: A RowBox[{"u21", "=",
    3 r: M+ i) R( \$ c  RowBox[{; t% [: Q' h3 T) }, m, U& W3 C) O  S# r
       RowBox[{"Exp", "[", 5 u4 O' E) }; z' i/ }
        RowBox[{* t7 E; r# z2 y6 t; L2 d
         RowBox[{/ @. P1 j+ ~& j/ V4 c# ?+ u
          RowBox[{"-", * [* r4 G( O6 d: B
           RowBox[{) P: H1 X/ f( B  S
            RowBox[{"(", 8 r. v" D  Q6 `! r. z  ~3 x
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", * N' r( x+ Z4 B  K5 M" h$ a( U! u
            RowBox[{"(", 2 G) l0 i  N& J5 q6 Z- G
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    9 o% Z9 B: G0 K- I$ a$ }% e     "]"}], "/.", "DeltaX"}]}]}], "Input"," d  V; G5 C% d
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ; F( P. }6 Y! p  T1 a/ q( h2 k& v  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
    ) S' D/ x% W% {. r2 C  3.5779615991556787`*^9}}],. C% c3 v0 H. e* S
    0 W: B0 n3 T  q  H8 O; v7 x5 q
    Cell[BoxData[; R' e  o! \# }! ^: u; {& a* L
    RowBox[{"{", ' N% P  D7 z' z& I5 N
      RowBox[{& b/ q/ y3 A+ ~# n
      "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",", , {+ L5 ^7 K/ Y! h
       "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}], " D. h* u/ x6 L! O, W. L! [
      "}"}]], "Output",% K% A5 \$ A4 Q4 I8 i6 u
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],
    1 f" J6 N# x$ R  ]
    ( W) i$ P& [" kCell[BoxData[* P$ n9 k3 w3 i5 ^
    SuperscriptBox["\[ExponentialE]",
    $ Q" f: l' T6 ?6 j* A  RowBox[{"3.141592653589793`", " ", : B, ?4 W4 Z" Q4 x# q; k
       RowBox[{"(",
    " N) s: e  C) i6 {    RowBox[{& r- V' b) w* v( l; ^# Z# O" U
         RowBox[{"-", 4 M8 j$ G7 Y" h; W' o
          SuperscriptBox[
    4 l. k0 Q5 r. c2 p       RowBox[{"(",
    8 j7 T7 o1 `7 }+ O1 I" M        RowBox[{% u6 J7 ?+ ^' I0 p
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
    * ?% O" {! K4 e( a; Z( U2 _     SuperscriptBox[
    7 m* {( c: G: I- L* t      RowBox[{"(", 4 T: d' p, l( v1 N
           RowBox[{/ W% g7 q- ~2 x/ x6 H' d
            RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", 2 u$ \! N: I' [8 j0 [4 }
         SuperscriptBox[
    * A2 Y% W' x  s: V* ?1 Z& o      RowBox[{"(",
    2 y7 Z" J2 f& z' a6 r( b       RowBox[{) H  v# O3 l$ c1 p5 K( s) v
            RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
    " ^4 T: _- b( f9 H/ m     SuperscriptBox[
    0 c) g$ }, [. R+ N& ]      RowBox[{"(", 2 q$ C5 {( P! z& f
           RowBox[{
    8 e7 p# v6 Y2 M1 j$ ^# \4 S8 c) i6 h        RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", + v8 k" \! w" H  ?1 _5 |
         SuperscriptBox[: P% r. W/ N4 z( a* S
          RowBox[{"(",
    " S5 q  @3 u2 ~0 _3 Q. G       RowBox[{: c- ?9 D( C1 q* V4 I% p
            RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", ( H7 {5 [7 m8 Q! o% X
         SuperscriptBox[+ J+ }4 v( b& B; ?$ r2 r1 e; v$ \- f& i
          RowBox[{"(",
    # n8 E! G0 p0 r7 m9 H) q       RowBox[{
    . X0 y8 v* K- K) R- X8 [- {        RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    * M3 r. n- P/ F9 u' Q; B     SuperscriptBox[( q/ U1 N: k; y7 E
          RowBox[{"(",
    / ]8 e, e9 a$ \7 T: w       RowBox[{
    : ?+ ]% W' b. I9 o* |0 y4 c        RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", 8 S/ i4 M# E& n5 F. Z
         SuperscriptBox[
    ! V' @$ T. c, V" A+ V3 i2 S8 S      RowBox[{"(", 2 h# q3 c( X# v0 S
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    * s' @* W5 U/ L$ g( @; P     SuperscriptBox[; T  j1 W- M4 x) ]* B- i) r
          RowBox[{"(",
    6 ]0 k, {: ]9 H/ k1 E2 v# f       RowBox[{1 `. i& i$ [2 K/ x# h; y
            RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], 6 g  E- `0 C, p
        ")"}]}]]], "Output",
    8 ]) t0 h0 P+ {  M6 ]2 ~ CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]' y8 R9 u: r3 j4 Y
    }, Open  ]],
    , k# U8 R& o: I( @, s4 \( B; h3 a* D/ b, ]! w
    Cell[BoxData["\:62df\:5408wi"], "Input",+ y& `7 u7 H) r
    CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],# U, }2 W% G" y  m

    $ |! @% R) e5 s+ H* r. ]) {Cell[CellGroupData[{$ X( \7 ?# ^0 _) e" ]0 `, U

    ) Z  W& {6 d' {  e1 b% \. sCell[BoxData[' }5 C: }  R! e' {
    RowBox[{"y1a", "=",
    0 j* _& s2 |/ A0 u  RowBox[{"Table", "[",
    1 M- F, f$ b/ ?% D' S   RowBox[{"x", ",", 4 V: v1 U2 ^7 P) d( R% }
        RowBox[{"{",   `# R# ~+ U: g' }# W; K
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    ! C& q! s' T# L# y9 ?. S/ y CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    4 M$ w- M5 i0 e+ n. e  3.5779226649375*^9, 3.5779226810625*^9}}],
    ' `, L. h! m3 f8 d# M' j9 q
    , C( W! G  L- t9 L0 NCell[BoxData[6 N7 `/ f8 k0 u
    RowBox[{"{",
    + j' j/ x% ^  }) ]% y9 x, N1 i  r  RowBox[{' @" {8 a; W  b- m2 w5 O6 ]* z
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    4 P( J* b) L0 Q2 \   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",/ D0 E. r% T$ P4 i& n1 g! k
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    - Q$ P- x7 s, E. ?% d. r   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    ' \2 z# ]4 X: f2 D   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", : @- [* y$ h3 v) v
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    + ?, _2 [' _8 a) w) @8 O   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    : g  ^) x! B9 v   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    & t" j7 J! o0 r, X+ }, G   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
    4 `: h6 ?9 U/ @5 b7 b% j! @  "}"}]], "Output",4 f' W4 C2 C; Z8 z+ ?7 H
    CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
    * d6 D' C  U3 |: u  Z- D  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]6 ~8 L. p( b- u  a, f3 ~
    }, Open  ]],' Z, B  _9 D1 k
    6 b% h8 `2 L  w
    Cell[CellGroupData[{( l5 Z# X$ }/ l0 u( a
    3 I/ g8 F) q, `
    Cell[BoxData[) ^/ T! `3 s* Z' z8 H0 \# c( |+ S
    RowBox[{"Data", "[",
    8 m3 @: Z' I! M8 r* p* i. b  RowBox[{"[", 6 q3 z4 C! F+ b
       RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",
      w0 V. Y* ?8 y8 L* r5 b& Q+ l CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {3 a2 i3 B) l/ A; H
       3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],
    2 m: f2 L" V' O/ j) R2 p$ f/ J  ]; ?$ g1 n
    Cell[BoxData["0.899882`"], "Output",
    8 _: y( @: o( P7 Q: J7 u2 Q CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, 5 J/ p4 s0 \* m# Y& l
       3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
    . z5 ?, K& V' W   3.577961929080654*^9, 3.5780123419375*^9}]
    6 n. x3 f, T. F- ?' w}, Open  ]],
    . |1 N6 T- a! {# c7 E9 k: h' \' U4 ~8 [. \8 d# n4 M
    Cell[BoxData[
    # i- N( E$ d+ `* J2 _6 w RowBox[{"For", "[",
    ; z& ^+ O: d* |7 U# U! o: ?. x$ Z  RowBox[{
    * H6 w' h, g, e& J; g   RowBox[{"i", "=", "1"}], ",", + g' }% b& y2 N$ q: a6 k5 t+ h* s0 D
       RowBox[{"i", "\[LessEqual]", "60"}], ",", ) a0 P+ ?3 T7 j& |& G
       RowBox[{"i", "++"}], ",",
    ' C& M0 X3 `; N8 T   RowBox[{
    1 z) j2 y6 W1 b8 G    RowBox[{"y1a", "[",
    ' P( C, J- @1 s+ k( z- O4 j     RowBox[{"[", "i", "]"}], "]"}], "=", 2 |) `9 ]" ~) g2 E; o8 p, i
        RowBox[{"Data", "[", 3 L" K% L0 g4 H* V0 K- t5 w- y1 u- v
         RowBox[{"[",
    ) D) x0 n% y+ d# z0 c      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
    ) @/ Z4 W5 z2 z: @ CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {9 r  s, J  Y& q: \5 }' S8 s
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    1 v  D2 g- Q2 Q   3.577922923203125*^9}, 3.5779588839702806`*^9}],
    ; b  z" r4 Q$ P& P" f; K# U7 t" o; M6 }2 u' I  F
    Cell[CellGroupData[{& i) I$ D, c0 {7 u0 \

    8 ]# f+ I, [' I8 J& E  D' BCell[BoxData["y1a"], "Input",$ i; P3 C, Z3 f( i: Q
    CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],
      Z% a+ t6 l# R- u! k; J( u3 e) Q& U( u( Y. q
    Cell[BoxData[8 J# s! |: m* r7 t+ g7 K
    RowBox[{"{", * Z% B5 V7 S7 ~! }. S0 `
      RowBox[{
    * M% v( L: K2 p  "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",",
    6 V% h. K7 c! J$ j. }   "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",",
    " X: k( ~% h: D. N' G   "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",",
    ; ?1 T1 o9 Q" \6 |8 ?   "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",", ' I/ h* [3 l; l( S
       "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",",
    * }7 D3 [& ~- O) k: E; O, I4 s# z   "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",", 2 u- o( A4 N' N3 q; Z& y
       "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
    - x" |* ]# r# O3 Q9 C   "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",", ) w+ y: \7 B9 @4 }8 w  T
       "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",", + Y. D2 u  t: F/ p& X
       "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",
    ' y0 L, l. `: y  |% N8 x: f6 _   "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",", : p" _7 V4 Y, ~/ ~8 Y- G. E7 p' ]
       "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",",
    0 \9 s+ l( I7 V1 D2 j! w7 Q   "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",", $ m7 U, ^" F6 I
       "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",", 3 s5 d+ V7 T2 Z7 F
       "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}],
    3 n+ A4 x; _+ A, I$ _+ T  X+ w  "}"}]], "Output",; U0 M; V/ g1 H  j4 O. z, G* d. D# O
    CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
    " D3 F6 |6 s8 ^! h6 f  3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]
    8 `0 A( D; J! M* \) c* e2 Z/ O( Q. S}, Open  ]],
    9 T) E  o8 x- B4 n, p3 T' ]% g. K
    5 l2 ]4 M& l# f2 D, RCell[CellGroupData[{
    ' Z1 V3 R9 s) m4 v+ J4 D% ^" n. H+ p0 z. l: n
    Cell[BoxData[8 ~! N( H/ B4 r/ X
    RowBox[{"m60n21", "=",
    + I4 {2 a3 b: h) S- ^  RowBox[{"Table", "[",
    ) g# S( u( _" J5 b1 I   RowBox[{
    $ ^( E1 b5 n0 w2 \, X4 ~    RowBox[{"Table", "[", 5 o" Y) _" k# {7 d7 N$ s$ K
         RowBox[{"y", ",",
    , X9 h+ {: h: ?. v- T. N4 V: Q4 G      RowBox[{"{", " V, u8 S, e) _  ~5 o
           RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
    , e& v& _) r9 R' O! ?! x0 k    RowBox[{"{", 7 J9 W# H: G: x: v3 ^) n0 |" ~; Y. f
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",$ R6 C$ c7 ?( d# \1 T8 T( j
    CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
    ' w" J# `) f6 e3 Y  3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9, 2 T% t& f' m, B" ?
      3.5779619706547265`*^9}}],7 ]9 D2 z4 b! f. }# t
    2 E8 G+ {( m8 [
    Cell[BoxData[
    ( I' i1 ]6 ?/ b RowBox[{"{", 3 W5 S8 k, H8 d& K
      RowBox[{
    2 p: q1 K% |; p- D$ L+ T   RowBox[{"{", ( O  D: T! s& z
        RowBox[{
    ( X" f, \! h  m$ s    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    + P; j! p* X$ g* `$ Z7 L! f. R* A      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) C5 K# T1 q: H  e8 C  P" M. H, Q
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . _. B7 _0 J- m% g4 \+ X! X5 a& }     "}"}], ",", / O1 E" N) G% J. J0 \0 x
       RowBox[{"{", 4 Z. ^6 F- _8 ~* H! B/ K6 C
        RowBox[{  v/ n. M; Z$ I- P: r( {9 x! s& U: i
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% @  g8 }, z) }$ g0 E: O/ l& w
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & x2 W  X, z1 h' i
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    2 d, I" `/ a/ m" L, S6 k     "}"}], ",",
    * p5 ]% b5 Q+ [8 C   RowBox[{"{", 0 @1 h4 y0 Z$ S- u5 A
        RowBox[{
      D5 U) ?) ^3 m: \! y2 F    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    . {' T2 J$ m6 i* a+ d      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( B/ k$ R9 k0 B) t0 H5 T
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- b5 F( M2 i8 I0 U
         "}"}], ",", : s" v4 d9 ~; X9 Y, ~
       RowBox[{"{",
    - v8 p: \) N6 L( k7 t) @2 a" J    RowBox[{
    ; |7 Q4 D" `6 F# r6 `$ b6 j8 N, F& K    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    , j8 ^4 o% J& @: j: ?      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 g  c, V3 t/ n5 L* M0 P
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    : n3 y- l0 g. y     "}"}], ",", ' }8 Q1 P' t5 C  F, c
       RowBox[{"{", 0 W  @5 l# f8 \# V' Y+ O% o
        RowBox[{5 Q. a( g0 _. W  j' f- ]0 n
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ t- ?* x' M( G# \5 r0 [
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 c8 F  n7 }- F) [3 F
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 K- }- k3 T- L
         "}"}], ",", 8 H" a8 Z2 @& R7 j! \) y! Z
       RowBox[{"{",
    , y6 ^5 ?5 Z, A$ }# k. m$ Z- F    RowBox[{  X1 I3 n2 `! W7 _8 _
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ Q5 t3 \7 J0 H7 @; X/ z: x0 }
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 _' g. |6 r: c: }& G8 C
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    3 |7 q- j, P: T! X: }8 I     "}"}], ",",
    ; E2 z1 r5 }! `0 f+ a; n   RowBox[{"{", : H# J  u& u1 ]0 k
        RowBox[{
    ! y9 F3 P1 a+ z5 i) s    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# ]& P/ n" p0 K% G  o
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 I9 q7 [8 @# W/ e
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ n! Q/ J6 c' W" P6 d1 i% i7 g5 t
         "}"}], ",", # Q& _  o  T+ o3 ^
       RowBox[{"{",
    4 H: ^2 g0 V4 S( \8 A( w. Z    RowBox[{
    $ A' M: }0 f& b! F    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 ?1 M" f5 L  w1 @1 F8 ~0 ]& f7 y
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    + V5 b9 K$ Q- a     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( S" ?1 I6 ^5 L2 A
         "}"}], ",", 2 J" t4 X# o& z/ \$ g
       RowBox[{"{", ( m: i9 n9 p9 i2 }9 H
        RowBox[{
    7 B9 G% J  g, z7 q( O    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ' N% a7 x* w% K. a! o4 W      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    3 C( K* R; R! T: K) j$ ?5 W. ?     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      V- M. o3 h. H( h8 J     "}"}], ",", " Q  }6 ~/ l) [6 X0 Y
       RowBox[{"{", 0 c$ c, P$ L4 F- V# g; C4 ~
        RowBox[{- `9 s: w4 v" u1 O7 N
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    3 ^: T1 V  i! [2 G; Y  h- Q# y      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / l1 `& B; T2 L- S% W% J* x
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    + z9 \$ p; p9 D: E6 q     "}"}], ",", $ z1 h) v% [1 v4 T# s% ]) E& Z
       RowBox[{"{", 4 T. ^$ R' n4 Y/ G  C3 S
        RowBox[{
    + m3 B+ y! Q% Y9 V/ z, C4 |    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ' N$ l: M1 F  ^. M; P      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % N( x1 K) B! Q
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ y+ Z$ X5 x: q* L) m; T0 C. c+ K
         "}"}], ",",
    , X/ ^% Y; u& X! e7 F   RowBox[{"{",
      B+ [9 b# U& E  U8 I8 t/ G    RowBox[{
    + _' S' L& d% y; h  j& R    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; {$ ^8 ~4 T4 U5 ^0 G, g: o' F
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    / c# X( Q: P6 ^8 V- [$ S! u     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 G, |& R  J6 D$ E$ u+ K
         "}"}], ",",   R8 z: T+ W  h: M" D+ I
       RowBox[{"{",
    7 }; M$ v, \2 b* v& ^% ?2 H6 [    RowBox[{
    . a% j0 D4 j% a, }2 o( b4 P  `) Y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ' T6 |( {' H+ d5 Y      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    % O1 |  i( w7 L* T( e# p     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      T' F/ m! E. V  k     "}"}], ",", . V3 @: \6 ~2 Z9 j
       RowBox[{"{",
    . b0 E9 f. v' s7 X1 s5 m: E    RowBox[{$ r5 {2 s5 |# p/ ?/ ~% w1 Q# L
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 L* B& \- g5 i; `" M/ m6 y
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / x$ p% y+ I, I; E8 V
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    : _/ |: f/ q- c$ v& X( b     "}"}], ",", $ S8 m# x( W% s. V. S
       RowBox[{"{", ; P% s: H8 m1 n- G- h% z& _
        RowBox[{8 ~6 `& h% [4 z5 L
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 Q2 e& o7 f& f* C6 o" \
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! r8 @! p: z1 o) L: Q8 {     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    # J1 G& q/ U  D) p" y; |/ \     "}"}], ",", $ ?0 c  o% ^" A- D7 ~. h3 j1 E
       RowBox[{"{", & T* g2 B' |; q3 K3 {/ F- {
        RowBox[{$ ~" a7 F, `& S8 o
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 v& x( p9 [/ {) j, X$ C3 s
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 P" u. E$ v1 w- T) V; Q& _
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 A- \) x' y0 V6 C7 r% C. O
         "}"}], ",", 8 T: m- Z2 D  @2 @" u* a
       RowBox[{"{",
    / B( q! k* L8 w" ?    RowBox[{
    6 I* C5 ~% i# T; D- r# U    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    + {* p* g# K7 p& N( P# q$ j  F& z      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * x6 v4 m8 `' {  U
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 N3 F. h% b5 y9 d5 p5 B+ q
         "}"}], ",", 7 o+ D. i/ ~, k2 G4 l
       RowBox[{"{",
    & U( l& x; p% l    RowBox[{
    7 l* A: ^; u0 N3 Q1 H9 j0 ]! n" z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    # _( f% V' e/ F7 |      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ' F( O$ L* w( K9 z* m8 W+ z     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 ~& \2 L* {' d) t; |/ W0 `  q
         "}"}], ",",
    ) E  ?! z% U, ^1 u, ?; \# R; @( Y4 L1 j   RowBox[{"{",
    6 B3 S6 p9 L) c* l- T6 R& P    RowBox[{4 }0 ]; D2 e9 F0 Y8 a
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    / U7 Z/ ?* P* f5 N' s      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    . g. y9 U: D: B4 L% M     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ( f  f* a$ W. H* P5 ?0 M     "}"}], ",",
      ^% p; K) D. ^8 v7 W   RowBox[{"{", 9 ^# k  s1 [. K; W
        RowBox[{( P: Y. R1 Z; l3 [8 N
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; `6 t9 ~: X' S  |! O7 M/ V
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - v  R6 R. k7 Q, X8 ?
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . \3 K+ K5 p* K/ C/ [; P     "}"}], ",", 4 k- I0 [6 D2 r& {5 l/ T5 P- P; O
       RowBox[{"{", 9 b, w2 O# f* D( w8 F3 N+ g1 R
        RowBox[{
    4 \, D, C$ B* m. w  L* T    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 k7 z7 g" M8 T3 P( \: t
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 [/ R9 M- g' f. a' e0 G
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 C7 u" ~8 |7 {8 w0 W+ f& n$ k
         "}"}], ",", 6 I( T3 C) A4 Z7 w+ [9 l
       RowBox[{"{",
    0 w& p& L: }, k6 z    RowBox[{2 U3 O: z7 s/ `
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    . _5 ]+ R% z2 G7 Z1 [  ?      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 O( a6 g. y: Y     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    " |! n5 U! x& s2 o$ o     "}"}], ",",
    ) r' O1 l1 q! Y   RowBox[{"{", - K, O) N4 y2 {$ P
        RowBox[{# O0 y  S. [# v( A9 k; U5 Y
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; o  v) k1 g2 t( \
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    $ O' e1 ^- E/ t& x+ S( b     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      w6 M* y( t% {5 P, e6 F6 O% L0 W. Q     "}"}], ",", + r3 L6 J8 X  ?7 ]& z1 o) Z- Z
       RowBox[{"{",
    8 q4 I6 h% c9 z7 y' ^    RowBox[{
    & g, m( s, L9 w- }    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ) L4 x3 d  M% N/ y: C) K! \      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ) z* ~. z5 |' t9 l/ c+ b     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# Z2 a! T+ f  K, {, P, O7 D8 T0 M
         "}"}], ",", 9 H7 l7 z( X+ m- F1 I( S8 Q, s
       RowBox[{"{", 0 H) i( ~. q/ a
        RowBox[{
    , t, \# n; p; j8 O4 Q6 U2 z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- o" W/ K6 w& \( m( Y6 Q- {5 ?
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    * C* [' i6 ^; z0 R& h8 y     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& x8 {* h) \8 U* ^
         "}"}], ",",
    3 r7 C* ]1 q' G$ B; E7 ~   RowBox[{"{", $ d: H5 c" y7 d  i
        RowBox[{
    4 E+ w/ Q4 n4 e& J- n$ o    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- o; n/ C- e$ K% d
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 Q/ f5 I  Z- o) O# d, U6 z     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 `: R/ o3 I! U6 Y
         "}"}], ",", ) k0 f6 Y$ l. A" a! ^
       RowBox[{"{",
    / S! B. D5 ]! y" x! w" A    RowBox[{2 @- A0 I; g; C- w% n2 k! W# O
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    " _9 k2 n/ m1 {9 H% Z$ B( J      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 a" @! z3 X: a3 N/ Y4 Z
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 }2 K! ~" J6 c9 i6 X9 d
         "}"}], ",",
    6 q3 f7 C6 V/ \' s# g0 i   RowBox[{"{", % ]! y& F+ N# q) n* `. ~* T' Q
        RowBox[{& s  }& [( y1 y9 G! ^
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    " Q- R: p, i$ M& v$ u- n8 K      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! ^5 w; _+ @* k  l$ G2 @     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    , G% @3 Z4 Y* c* {     "}"}], ",", 9 ?" U5 f. D( c6 P! G( w
       RowBox[{"{",
    ! b0 i/ }- H$ I, v+ t) |7 A$ g    RowBox[{
    0 m7 j% x+ e8 S. N8 B7 a* S    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# [8 `6 Y/ R% @) A) M
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; Y6 Z+ L* K1 [- Z, o
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    3 c* d$ j( l+ L( n$ d3 x& u& H2 n% p( i     "}"}], ",", 6 \0 |! t) f& Z4 z' `
       RowBox[{"{",
    $ r; s; D6 |4 `+ I    RowBox[{3 T+ t9 p1 y9 w2 y8 k; g  k
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    3 i; {& ]# ?( ^/ Y4 }& l- h      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    & u8 s" T' s1 e: ^2 D     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    4 k) E) v- J6 m# Y4 W* M     "}"}], ",",
    / V4 ?# ]/ B% K   RowBox[{"{", # l0 q2 q! s% m9 E. l& u: M. P% M
        RowBox[{
    0 U! M8 U; \. |    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      C' W5 l+ Q4 f      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " B) \2 A# T5 ~( g& r* p
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ; x) y& z- [7 B( }* ?     "}"}], ",", 8 K8 |; Y2 E; D; X% y
       RowBox[{"{",
    . I* [) J( E' f3 L) Q    RowBox[{
    ( R! Y  J. r1 F* u    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    % C3 }0 y$ B$ }1 Y+ H+ _      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    , z  p) H& Q: B$ O* [2 G; m     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ( K. e) q' Q- y1 `" ~7 f     "}"}], ",",
    ) {- X2 P4 |0 W) I2 E/ b4 |) p4 j0 v   RowBox[{"{", ; [! w& p! u' o7 Z( }7 ]# V1 N
        RowBox[{
    * ?6 f# f& c/ A" ]/ a    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 O. ^4 s3 ~  k      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   w8 {+ q% K4 W8 Z$ u0 D+ i2 |' K
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    0 U) J% E  F% G' e     "}"}], ",",
    ! ~, z" C& w+ _8 k   RowBox[{"{",
    4 K: }/ B. q+ T2 f. E    RowBox[{. y6 E. q) L" L4 m
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ w4 P- l0 u; J7 \) V: `* e
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    7 n0 ]0 k9 W+ t3 E* H     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . @3 l- Z2 x7 I0 x7 }) E% F9 K% |     "}"}], ",",
    3 x+ q. x+ G7 z7 ?  z   RowBox[{"{",
    + T4 }2 C; A4 h2 B( U) y    RowBox[{; {: |% B. v; h! z! }) a
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 a/ H7 k" y% M$ u, f# L  |      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # M( t1 B  i7 `3 h/ c4 B( ]% j# L
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    9 A& o& i3 o8 T     "}"}], ",",
    ) T3 U" @' c5 X  T8 {3 L; w$ u9 W   RowBox[{"{",
    ( W2 V# A! N. C9 O  w3 b# J7 z    RowBox[{
    3 f( ]8 O. |) @6 b$ Q    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 J$ j* H& n2 n" h/ F7 Z( D: N$ p' ~      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 K/ W) Y! m" F8 R7 c
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% c" Q/ \! h& D4 N
         "}"}], ",", 0 T# u- Y3 `9 D. `; i5 i, X" ]* R
       RowBox[{"{",
    , D! S" D; J6 D1 H    RowBox[{
    * G/ G7 M  T( j, S3 p3 [    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 h' j6 i, @# P' L* F. R      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 \5 S' T/ o/ B6 h* p5 r
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    5 q0 }' i5 d: t     "}"}], ",",
    6 y0 B4 V% C" \. u  S: K' _   RowBox[{"{",
    3 ]# C7 E  M, V9 \    RowBox[{
    . b* `+ B* |5 N5 i( H3 A    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      R( S3 L. O. F2 I# R      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! ~5 x7 L% W' Z4 r+ W6 K
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% D5 r7 f0 }9 O% Y, w" b) ?# @
         "}"}], ",",
    " e) ?) E1 `5 q/ t$ _( ?+ O   RowBox[{"{",
    4 f& r' Q$ z2 X$ a, Y7 I2 L0 f    RowBox[{
    . [# G0 O$ ]4 L: ?) Y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    & p: I/ g8 W  i% M8 q- p& I  @6 g      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) k, T" C5 @3 [' n" A
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, N. w+ x3 f0 {* p9 L
         "}"}], ",", + S* s% h7 ^# @: [
       RowBox[{"{", ) _- Z& r+ L1 i2 X% h' A: Y- z! t
        RowBox[{, ^$ N' C& O8 E, T0 u) ~
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : r1 u2 V+ @5 K+ U5 S7 V      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & s% ]6 H! g& W* g% X% ]
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    5 E4 Q1 r7 G% d/ I) K     "}"}], ",", + J7 Q- E" a& M2 O
       RowBox[{"{",
    ! x: z* n3 K( i2 C    RowBox[{( B- r4 I8 }! b; U' h; D' L
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; n& j- A* G7 G; _1 i1 Y0 _- `
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    % N* O: S8 T& ]2 F1 |6 L9 m     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( A+ o# H" n/ R+ U) _
         "}"}], ",", 7 W  u2 r$ ~  w# L
       RowBox[{"{",
    2 B3 o" V! V: b    RowBox[{) u: m6 E, ^( I
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- }3 e( i$ b. P. \
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    9 i& q2 ^6 h4 w; I  G. [     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- Q) G2 S8 \  k& X5 I2 E
         "}"}], ",", ; n* B) w3 I" K$ m; x$ A8 W8 |
       RowBox[{"{", 3 H$ |/ P4 l& c# ]6 `# @* v( E
        RowBox[{( U1 F! n* G% ~  J0 {3 Q
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& R9 ^2 [* `1 Q: a3 P
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - Y% G+ @+ L4 h
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 N+ ]- m4 s9 t/ K- t4 H4 M
         "}"}], ",",
    , Z% x) t6 Q: j, Y; G# I& K+ e   RowBox[{"{", ! o9 ?1 k2 y5 e7 a
        RowBox[{
    1 O( h6 b  ], T8 X    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ J% e% [7 P1 j: ~6 |
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    0 U! b  g$ v& P8 t# b! p, `2 ^     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ ~' H. w; Z$ [
         "}"}], ",",
    0 j* B- F. P& n% E( C! o   RowBox[{"{", 3 u$ y) G& R1 h- V* O
        RowBox[{
    , T- z- _: u8 t2 r$ O    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& B$ U3 R3 }0 o8 B5 F: a- A( b) F
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    / x, \# ^! D6 }2 r8 U  w3 D     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    : a) R" w- w5 y! e% y- F     "}"}], ",", 3 V  U5 c& e  l" p& r) ?
       RowBox[{"{",
      u' d- h$ c  w1 s% }( h) {    RowBox[{+ V# Z2 [1 z6 G% y* b0 i8 X
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    $ ^7 x7 `4 d: r0 |3 i( _1 n) F      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    & f) T) P* N& D* V3 s$ n$ k1 c     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 Z0 {% X6 B1 l3 a8 `. H
         "}"}], ",",
    + `& \0 y0 Q8 A; s% B7 x   RowBox[{"{", 2 E8 l* x$ T% ?  k& z! m1 e
        RowBox[{: _! X  K4 s# v8 v' s1 a
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: y# ~" {; j8 t
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 Z  `" Q! K5 p8 @* f6 o
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    1 a9 @# F& ?, G- K2 T: l     "}"}], ",", " _" e, V* ~7 h' M# U8 g
       RowBox[{"{",
    ; Q( i$ e5 C1 z- ^; @" @3 {& |. ?/ z    RowBox[{
    7 U' h, l2 f- n; d& z4 m    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 N5 h8 Y' b7 ?0 ^0 B0 c( ]
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 a( R/ {2 o8 |- b- l# f     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ( O# d* Q  u# G3 H# V4 _     "}"}], ",", 7 P5 L) p; t" t- o1 E7 q# t( L
       RowBox[{"{", ' d9 y! A, u: C  f& u
        RowBox[{
    2 ?# s" o& C$ |# r( `4 m    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 @/ r, Q+ u' {9 P  z      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 [. P2 r0 m* }+ `& d! w: n4 T
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . x5 |$ v  R! z' _: ]2 ?0 J4 E     "}"}], ",", & Q0 ~" l( E# [- B( X3 V
       RowBox[{"{", 0 C4 P' |5 u! e2 ]7 u( d+ H
        RowBox[{
    + I" G3 F) [( ~* Y: Z- W6 U    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ( y7 ?. ~9 F1 t9 A      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 {0 t( n# }) e9 }( h0 s6 T
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . f- p3 L6 ]+ i# X/ S     "}"}], ",", 1 X1 |) d& S5 D) Q3 n7 S1 M' s
       RowBox[{"{",   R- F( s1 t& z+ j
        RowBox[{
    1 u: ?3 j8 k  X: q5 t! u+ o  R    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ]- j3 |2 u# J! W      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    9 M6 Y. Z1 ~& e8 M' Q1 c     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    5 g: `$ o. X; \/ p  }& |     "}"}], ",",
    . ?3 g9 i5 J/ @# {7 S$ i9 ]   RowBox[{"{", $ _% z% q8 S+ {" u$ d
        RowBox[{6 w4 ^7 H5 Q' V$ G0 |
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    * g+ |$ |$ t7 o1 P      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / [% T, ]1 }9 c3 g6 F  Z
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, \3 T* o) l0 w' g
         "}"}], ",", 1 H1 X3 D8 y5 \. d2 g% ?
       RowBox[{"{", $ L: M" G" A: V' ]- T
        RowBox[{
    5 G: _4 h5 X% z' U! s4 g    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : Q8 N  E- p& {, L7 ]2 h# A  C# A      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % q- M3 D& B7 p
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    / _6 W8 N: |' U1 T     "}"}], ",",
    2 J+ E  a" J2 N: C. f& w* n2 A   RowBox[{"{", + r, N6 [/ l- W& e  {; k7 e
        RowBox[{
    4 T4 ~, ?/ N( u# O1 }+ Z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, v: E8 B4 q  }
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / O0 ], M/ T& o( S: x! t
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ H5 _3 J9 o1 y: J5 i( v  p/ I* K
         "}"}], ",",
    / d4 v" N$ }6 r: }; n' |* _5 x! G   RowBox[{"{", - a; u& p( v! Z. D4 K2 ~3 N9 q
        RowBox[{
    ' a: O' o8 [  ]: k0 S( Y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 \# J8 y2 {3 m% c+ ^. p
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    $ j9 J  C* h, W7 U, f7 u6 a     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    % H; f  Q: R0 N- u: P9 V     "}"}], ",",
    # v  ]7 Z" c; V& X# a$ G   RowBox[{"{",
    # X1 m/ M1 c6 V+ D" M# ~2 I    RowBox[{: x* k7 T$ U5 d
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 b" t0 f' ~' y3 D
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    / X" k, h/ J# M- M     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 e) t! H0 U: k  Q7 T& D6 e
         "}"}], ",",
    - K1 V+ y0 V9 D" [# D   RowBox[{"{",
    + _; S' n1 B0 M2 I+ k    RowBox[{
    8 n# V# }; `/ r/ ]1 ]9 x    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    $ H' ?& f) z2 a$ A+ n3 E; G' @      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    9 C' y+ F$ u9 X- e3 G$ r     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' R5 @( t) O4 }% q* t/ |- G. A: J) F
         "}"}], ",", 3 D$ m7 p0 }/ o9 [
       RowBox[{"{",
    3 w: {; Y/ K$ r$ Y2 S    RowBox[{
    2 r5 k8 `  y& j9 a2 K    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 l1 h- A) b* ^! C/ K0 s. v
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
      c, i$ B7 B- W% N     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    5 h' c! U) L5 e1 _4 K/ |     "}"}], ",",
    * n4 f0 o0 t9 _6 t! o% |$ x! x   RowBox[{"{", 3 m/ K) I$ `. x8 p# J7 n
        RowBox[{
    : U7 W8 X9 y9 k8 `4 _" `    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    + M' t! v- M: q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( ^6 S% G2 T4 @$ Q* J; F
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      o, s0 x5 N7 J# y1 u# _! L& e     "}"}], ",",
    ! n/ O' Y( [9 P: w6 r   RowBox[{"{",
    - j% B) P& @1 z, ?1 G' [- _    RowBox[{
    # w6 {; i8 u* B/ m; }    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ! a  |: ~; h$ t      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % i; F& X& a+ W: [, Z6 [
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    % ]# U7 F# W/ q     "}"}]}], "}"}]], "Output",! ~% ?2 O" w4 Z: Q
    CellChangeTimes->{+ \$ m7 N7 C6 S% W, G. D9 |
      3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9}, * E5 I  p! \% ^% m
       3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9,
    ) q# D: x; f; [" p% w* h+ {; K8 F( J9 y   3.5779619748823338`*^9}, 3.578012345453125*^9}]
    $ j* U9 G8 R3 S/ V- ^, O}, Open  ]],
    ) Z5 e: {2 @# u$ u
    9 v! `9 C0 j" n5 fCell[BoxData[
    9 ]) Q2 Q" u3 d6 V6 R2 }6 m RowBox[{"For", "[",
    0 {! Z9 I1 r$ j" h7 Y7 k  RowBox[{2 {/ v6 p# q* `- ^- i
       RowBox[{"i", "=", "1"}], ",", 2 ^. ?3 b0 `' v: \( k
       RowBox[{"i", "\[LessEqual]", "60"}], ",", ) r, i2 E9 X& h  K$ m& T* L( Q/ ^
       RowBox[{"i", "++"}], ",", ; _) j/ h% m8 }& t5 e1 w3 m+ u+ [: o, y
       RowBox[{"{", "\[IndentingNewLine]", 0 b, N) r/ }' y3 i' ~/ s8 x
        RowBox[{0 |' {/ q/ f+ Z% A" ^8 M
         RowBox[{* N5 U8 p& q( m" t
          RowBox[{"m60n21", "[",
    ' L0 e4 h" r: V7 k  t# J1 G5 e5 |       RowBox[{"[",
    1 t+ C$ v( p( V6 v7 K  N4 Z# I        RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", - E5 N+ Z1 |! o
          RowBox[{"u1", "/.",
    9 M* r  {6 {- J% B9 M  _7 r+ ^       RowBox[{"{", - O. w" y! l/ R/ S
            RowBox[{# e; x3 B& F. z/ o- s& S* z
             RowBox[{"x1", "->",
    , o, Q' C! A& i          RowBox[{"Data", "[", * ]: A: ^" W1 _$ T
               RowBox[{"[", + J' M- c6 W# A9 [6 e$ l1 u! I
                RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    : S/ A4 _. n6 g2 }; f         RowBox[{"x2", "->", ! a; P2 F/ L9 e. ^5 O4 [
              RowBox[{"Data", "[",
    " J3 m" c2 c  i# w' G1 [           RowBox[{"[",
    % [: P2 k2 v0 S. |+ U; ]            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 1 G# {0 D- Y" X; b% }4 x1 e" [' R
             RowBox[{"x3", "->", " ?, ~2 m6 f2 s# U8 N; E+ B
              RowBox[{"Data", "[", . u' R. u: B7 m9 n# Q: {: x* |
               RowBox[{"[",
    8 }0 ]4 j4 d) @4 U9 B- c. U            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", / e, k3 i1 w/ H: Z
             RowBox[{"x4", "->", 4 Q' `; J( `! y
              RowBox[{"Data", "[",
    9 I/ A* T2 |" _, G6 k% r           RowBox[{"[", 3 f. {3 e4 c4 w1 U
                RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    # f0 i! S# c4 `9 S( T         RowBox[{"x5", "->", 6 \% y, a/ W( o+ W. x
              RowBox[{"Data", "[", 0 {- A5 C6 }' r: G, p
               RowBox[{"[", % U5 W: A& h' G4 z8 N* t
                RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 7 v+ D" O0 O# h# k; P+ a4 i
             RowBox[{"x6", "->", $ |  ^* z' l9 O
              RowBox[{"Data", "[", & d, J7 l; S5 @* T# `" v  k# ?
               RowBox[{"[", 1 }, d/ M$ ^3 Y$ l
                RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 5 E0 b: F- X3 B& v
             RowBox[{"x7", "->", / G  F3 y2 Z3 n* R2 a2 p
              RowBox[{"Data", "[",
    : Z1 J  e6 d* y" h2 ]0 b           RowBox[{"[",
    ' ]- Y1 _; e7 l7 ]3 _            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
    6 N/ L$ k5 u7 c7 ^  G+ T         RowBox[{"x8", "->", 6 D! f: g5 _* Y8 K
              RowBox[{"Data", "[", ( w5 j% R# V* x7 N7 R6 N
               RowBox[{"[",
    4 R, v- w% ~* `0 N9 U0 |% I( t            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", . s4 {) _- D! Z5 C4 O
             RowBox[{"x9", "->",
    ! ?9 p: U0 o6 n' \          RowBox[{"Data", "[", 0 r. y+ J& b" m/ I& F% X$ k
               RowBox[{"[",
    : f6 B# A/ S2 _7 ]+ O            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", & n8 C- A: I2 v2 y" X
         "\[IndentingNewLine]", - P9 b. I  P0 b* n6 \5 f' `* i" J; l
         RowBox[{
    ) S" ^3 S" M7 |      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
    7 E. M0 \$ R, }7 O& a) R0 N& }神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗

    ' V" q: n- ?4 W) m3 v4 l* w& P) J(* Content-type: application/mathematica *)9 D- b5 ^: q' B) C1 Y

    ) P4 h4 h$ ]' ~. H8 C6 ^! T$ D(*** Wolfram Notebook File ***)8 _! ^8 f. B' i, K8 F( D& h* C
    (* http://www.wolfram.com/nb *)
    $ |+ M. t9 o! C/ o5 ?& U( o; V6 N0 r5 m4 [! u6 L8 w$ M
    (* CreatedBy='Mathematica 7.0' *)( l6 d9 \5 p2 ?+ L4 w  n9 ~- m
    " ^  S* p$ A! |. @) |
    (*CacheID: 234*)
    0 t) ^  X) j$ n(* Internal cache information:, [) q# h, N( S
    NotebookFileLineBreakTest
    2 w% `+ n  h1 O& }4 @; kNotebookFileLineBreakTest- J7 Y" {/ F% y* e) ~
    NotebookDataPosition[       145,          7]
    , D8 e5 M  T- e8 X6 ^NotebookDataLength[    423629,      11534]9 p% G! ]& u. j" T, {! H
    NotebookOptionsPosition[    412607,      11173]1 K3 M- V' }( ~' E; J: j0 U
    NotebookOutlinePosition[    412953,      11188]3 v; [  ]8 q+ H6 R, S, T+ @
    CellTagsIndexPosition[    412910,      11185]! A$ w: X8 j: t0 N, D" K1 M# [( c
    WindowFrame->Normal*)' s# k8 T- _  i0 I

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

    7 {( q, A( t" t  x+ w$ o! @Cell[BoxData[
    5 V0 _. G' u  ], ^; A8 {6 [ RowBox[{"For", "[",
    & S/ d* u4 V8 z/ @, p  RowBox[{
    " R- Z  T0 B; [% b8 k" d   RowBox[{"i", "=", "1"}], ",", 5 v1 O6 J& W" ~0 A, S
       RowBox[{"i", "\[LessEqual]", "9"}], ",",
    6 o8 }! I) S/ s$ g+ T9 Z. L2 K   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    ( j. O% `7 m1 F! r4 Z   RowBox[{"For", "[",
    , L# x  K3 B6 m7 w6 q8 n0 E    RowBox[{1 o6 ~6 j" u9 K8 I6 P
         RowBox[{"j", "=", "1"}], ",",
    9 R! C- N/ r/ n  \- g7 s9 c     RowBox[{"j", "\[LessEqual]", "80"}], ",", & o! E* F  n  `7 T
         RowBox[{"j", "++"}], ",", "\[IndentingNewLine]",
    5 r# s9 l7 V( X4 ~. L3 L' K( i     RowBox[{( q. n( z( h0 V1 m
          RowBox[{
    7 P! |$ F# s( r6 T9 O# X       RowBox[{"CM", "[",
    9 E6 E7 o6 d+ n; y7 M        RowBox[{"j", ",", "i"}], "]"}], "=", "0.0"}], ";"}]}], : N* K3 H/ r- _, g
        "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",
    5 \, d- v* e8 ^; B7 q+ u" K" R+ \ CellChangeTimes->{{3.5779132504375*^9, 3.577913285203125*^9}}],% |- [; l$ k& m! x9 i! `, ]
    ) m: D+ g6 R, j: |6 L
    Cell[BoxData[" [& \5 M/ |2 R8 Z+ E7 e1 e6 r( U
    RowBox[{"For", "[",
    ; v; _  x. B2 h: W' d  RowBox[{1 k2 K) c! F+ }+ C9 s
       RowBox[{"i", "=", "1"}], ",", # R3 s; R2 v9 s/ u1 N0 ]9 v
       RowBox[{"i", "\[LessEqual]", "9"}], ",",
    5 v4 B) s9 h, X+ w   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    3 W6 H  s7 H" b1 }( X   RowBox[{
    3 _, ]( s; g8 s4 @* J7 H4 @    RowBox[{
    . _$ Y3 k; U" V: e/ ?     RowBox[{"CM", "[",
    6 K& w2 M0 Y0 ~/ n# e      RowBox[{"1", ",", "i"}], "]"}], "=", / k. D# K6 v; p
         RowBox[{"Data", "[", # e4 K9 s. k+ \5 V8 w: H' ^
          RowBox[{"[", # i% e/ ~1 ^9 L/ m6 m( Y
           RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}],
    , r* E* p$ z5 Y4 M5 s  "\[IndentingNewLine]", "]"}]], "Input",5 R. y8 v3 r9 j. H5 _2 t% a
    CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {2 @0 n* F, E" T2 |& o
       3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9,
    & z' Q4 n, w+ W$ Y/ S% z   3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9,
    " J% E: d, x  y. w   3.57791344209375*^9, 3.5779588070933466`*^9}],
    1 o" V8 |  ]* }# x" y! D, z2 c) v! I+ i& D+ k5 s
    Cell[CellGroupData[{$ v( a& M" y) u, G( E" K
    4 a# k+ E# p+ I. y8 B" I, R# }
    Cell[BoxData[{# }0 h5 d! Y4 N2 a2 P' C' c" m: ~
    RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]",
    4 j8 h! J7 W+ J4 B0 X RowBox[{"M1", "=", "1"}]}], "Input",
    , l8 H. t; }9 s6 W" D8 g& g3 F. h CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {
    ; p# u' |% Z3 T4 U8 J   3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9, 3 N: `" F# B, q) V: F9 M
       3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {
    7 S5 {8 K5 h6 H; ^' {7 s/ V' N   3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9, * M. }  R! k. X6 U* @+ W: [
       3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {( ]- y5 @! _: K& m4 ~' ?+ G
       3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {
    ( U, b2 K  ^4 S/ x% [  z   3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9,
    , T1 @9 ~9 Z1 @" T8 r+ T   3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {0 B6 r0 }7 T8 r
       3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {
    , t5 i( l, P0 i* j8 ]* w   3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9, " y7 p4 M: X7 Q
       3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],, |, [( w& c6 k1 V1 h

    % L8 ^4 q; g2 I  H/ ~* HCell[BoxData["0.2`"], "Output",
    ; o  Y& p! R" P8 `7 Y, m  K- L CellChangeTimes->{2 M3 `1 U) w9 E4 o. v1 c
      3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
    5 w- j8 c" G. b" X, J& w   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
    ; i. X- S! |, t9 c% @. q# C   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, 7 ^8 M0 p+ B7 K: m/ O
       3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
    # G+ U8 L! @. Q   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, 5 @! M/ I8 ^0 m( y. H( p# g
       3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    ; U+ ?. {+ J" j2 R   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
    $ E# ~3 E6 q, O   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
    4 G  o( H8 b+ N9 D* s8 q; D1 O: T   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, $ p9 m% U" L9 g# n
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, ; \+ n& O' d0 ~8 l
       3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
    6 v! o: p" O$ y   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
    - U% s! i5 a& G. c+ v   3.577960510686717*^9, 3.578012149296875*^9}],4 G" B; `0 }  \1 d5 Y- u# t* [( b

    : B* |( }" x. P5 l4 e: }' X. O! sCell[BoxData["1"], "Output",. v. X4 R* a, J9 p2 f
    CellChangeTimes->{/ _5 @9 {4 f  {1 t" G4 I. _9 |
      3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
    # ~; f  Z  S  M6 f; e9 W; o   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
    ! t" l5 H1 Z7 q. F   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
    # o9 m5 t* |5 v: j5 d7 v   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {7 ^! F( M1 ]% m* l
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, / c( n2 a7 y  U
       3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    ) ^" S7 S# ^+ o4 P' Q5 s   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
    & o! {( R* d  l4 ~5 ]) p   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
    ; U% c2 i! X- v9 i& l. m   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
    , l& q6 ^: z( ?2 J  o  W6 ?   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, # i' |( s" S% H5 ?2 l* w/ d
       3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, 4 s% p# P$ {- n, J( q) f
       3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, : c) [/ O) E5 u: S. ]& q
       3.577960510686717*^9, 3.578012149296875*^9}]
    5 T( i3 q; P& ]' y}, Open  ]],. D# I% W8 o0 B2 k. A. ]
    # F# F! m% Y. D0 e1 t
    Cell[BoxData[7 v" r9 w6 w' Q# i
    RowBox[{"For", "[",
    ; ]8 ~5 E+ G- _  RowBox[{
    8 f: @% X; r+ T3 i1 n+ D9 d   RowBox[{"k", "=", "2"}], ",",
    / W0 `$ E8 ^: @5 I+ W  R   RowBox[{"k", "\[LessEqual]", "60"}], ",",
    + w% |% V3 K6 S9 |7 ]# a) b   RowBox[{"k", "++"}], ",",
    + h0 _! b& b7 b, K   RowBox[{"{", "\[IndentingNewLine]",
    + @3 [" a" `! w7 `5 `! J; x! ^3 i    RowBox[{
    3 o! _* C  d( e' _7 m     RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]",
    0 T9 A, w) F9 ~" ~: X     RowBox[{"For", "[", # p5 W( X% n5 b
          RowBox[{
    7 o7 b8 A" P$ n# v       RowBox[{"j", "=", "1"}], ",",
    ' u6 h3 g; w7 Q' \" `$ u& y       RowBox[{"j", "\[LessEqual]",
    ' e& n  x/ ^5 \. B3 J9 N- e% v  u        RowBox[{"k", "-", "1"}]}], ",",
    $ u9 n7 O9 {3 b; g! ?% i5 A% h& F       RowBox[{"j", "++"}], ",",
    3 m* x, A( Y& \9 P2 S7 ?; {       RowBox[{"{", "\[IndentingNewLine]", - ^/ [# r/ q3 S6 g, X
            RowBox[{
    3 F6 \  F2 `1 }         RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]",
    / B. N: E1 M6 q9 y% y  `# A         RowBox[{"For", "[", + \6 _# \; l/ M4 p4 e# F; ^
              RowBox[{
    4 Q4 M  ]- s3 s2 K. w, F           RowBox[{"i", "=", "1"}], ",",
    * f, S8 ~4 d4 |5 D- q% r, [7 j           RowBox[{"i", "\[LessEqual]", "9"}], ",", 9 Z" I) c: F" E0 w  l# F3 m
               RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    ! S% X6 R3 ~! v# K2 e8 o  z# ^           RowBox[{
    $ i1 h2 i  E7 l            RowBox[{"r1", "+=", ( J6 o+ |8 }- |$ n4 @9 j
                 RowBox[{
    + |1 O# v1 [3 z2 |8 ]              RowBox[{"(",
    # J+ g1 S" p; l7 {               RowBox[{
    3 w3 a3 |9 X1 W; G- F                RowBox[{"CM", "[", 4 ^+ h0 [; ?$ c% i' E" L
                     RowBox[{"j", ",", "i"}], "]"}], "-",
    ! ^8 m) R, l$ z- g                RowBox[{"Data", "[", : M2 @* m8 {5 @; n9 k  c
                     RowBox[{"[", 3 y" }1 J) a' w8 t" M# b  e$ j1 g, ~
                      RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
    ; M) r; i$ N# e+ C3 c& p3 A              RowBox[{"(", ) Q5 g' q7 Z5 R9 v( U
                   RowBox[{
    8 x2 a! ]: e4 S( A8 O& ~                RowBox[{"CM", "[",
    + u+ [" G& T, s( h                 RowBox[{"j", ",", "i"}], "]"}], "-",
    2 J2 N* {% F/ x" d  V+ ~                RowBox[{"Data", "[",
    : T5 ^# z9 R. a+ O/ Q: n/ O                 RowBox[{"[",
    9 [( e. x) v# X  `7 x9 }5 y( h                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],
    # |1 v# K/ f) K2 y2 H           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", + S/ U& G4 t1 \
             RowBox[{"r1", "=", & N: m8 x* Q& S, n( {+ c9 k# R. J% N9 V
              RowBox[{"Sqrt", "[", . a9 ~+ _- f" [6 t, ?* Q$ n
               RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]", 6 T( o; F# A: |1 r4 K, h% ^
             RowBox[{"If", "[", " ", 3 p* D! |; |+ U) m5 F, V) ~
              RowBox[{& M; a" r1 a4 T8 d
               RowBox[{"j", "\[Equal]", "1"}], ",", : o  a7 b$ c+ l- \1 A
               RowBox[{"rmin", "=", "r1"}], ",",
    3 j' ]5 z+ K. J           RowBox[{"If", "[",
    , b3 f0 p$ N9 Q/ X5 H4 p            RowBox[{& @6 i. C& ^, C4 ]" C" K4 d
                 RowBox[{"r1", "<", "rmin"}], ",",
    3 j; L. _% Y6 g9 f( Y             RowBox[{"rmin", "=", "r1"}], ",",
    $ {( d" N; X+ G) t; v4 D1 i             RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}],
    2 B6 ?) u) u3 U# W( p        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";", , S% `" a5 d$ y; o. L
         "\[IndentingNewLine]",
    : U7 H, T& S- W/ e     RowBox[{"If", "[",
    $ _& `, z5 @$ N- }8 [: E      RowBox[{( C; S3 @( }# O  S$ g
           RowBox[{"rmin", ">", "r0"}], ",", , {% i5 J/ b) b! S7 q) R2 e3 g
           RowBox[{"{", "\[IndentingNewLine]",
    & y/ N  _8 w! |' i3 j( B7 b        RowBox[{! W: T; d  ?8 d, `  D$ K. V
             RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]", ! v# a, L( X4 J$ v
             RowBox[{"For", "[",
    4 m3 j% p9 E3 l2 Q$ I- y          RowBox[{3 a" b  [- G5 I* i' X) P+ _4 q
               RowBox[{"i1", "=", "1"}], ",",
    3 ]+ C; L1 D$ C$ Z2 k           RowBox[{"i1", "\[LessEqual]", "9"}], ",",
    3 x& \5 N$ v+ D  N  ^" w           RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]",
    ; i  v6 h1 I+ Q  g1 I+ w6 H- g           RowBox[{0 F8 D! o$ h7 h2 c
                RowBox[{
    & C: A- x+ E. w6 Y             RowBox[{"CM", "[",
    " w( J- r+ ]6 K1 D$ p- `0 }2 Y4 I" `              RowBox[{"M1", ",", "i1"}], "]"}], "=", + O9 I3 S$ T1 ]6 T
                 RowBox[{"Data", "[", 6 W$ Y/ U* o- W
                  RowBox[{"[", 0 `+ p" x, j1 m# }% P( E
                   RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}], 7 e3 H4 k) G& B( \- j& }
              "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",", ( z1 W" e# H  v- Q* h! }, S
           RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}], ) j0 S: \. c5 r8 f% a. j! P$ N
        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",3 d6 J3 l) Y$ S" }8 i# A$ j6 ^  d
    CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {
    9 T( E" l/ _: U- i/ [/ I  \   3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9,
    & M  e. X; ~5 a   3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {
    $ ]3 Z- l+ S: {1 ^2 F$ d8 O$ _   3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9,
    % S4 t/ Z; ]% b& n0 C7 c: q   3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {- v( ?/ W6 }- D/ I5 P$ [# R# n
       3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9,
    7 q  x. Q+ y" @8 S$ a1 d* i   3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {& [+ G+ K0 w2 C: Q9 e% C4 |" h% ~4 N
       3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9, ( \8 d) `) I: _4 ]! F9 h
       3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {
    ; v) f* ?5 ?+ }" |* g3 J   3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
    " {; i  e- u: l% n: a% n   3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {: N5 @3 s. }7 j3 l  c6 Q1 O, z! x
       3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9, 2 [  f, i" `4 k7 c
       3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {
    7 |' x- a  p/ M: A* d5 T6 W   3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9, 7 m, J' @) l/ v  R
       3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {/ o. O! r9 q$ V9 _( @" z; J
       3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9,
    6 Z  r. j" y. e* H, t! m   3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9, ' z5 E/ S7 e) h
       3.577958821991373*^9}}],
    ( I# ^2 ^8 r: R  c9 }, ?' C  p0 g4 |0 i8 n4 V, ]  E! V8 e
    Cell[CellGroupData[{; [* Y% r% s5 L# i
    % }) n+ ~' W' a; \4 W
    Cell[BoxData["M1"], "Input",5 Q) @9 z! B) G
    CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],7 k5 c5 Q8 [7 k3 k

    . N; r+ W! H( ?; z( a" E& fCell[BoxData["21"], "Output",$ u$ q8 Z) [  u1 w
    CellChangeTimes->{
    ! ^+ T0 @) `* m" w0 q  3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {
    - E, s+ J  B5 p- @   3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9, ( X/ U6 O% z) R8 t  T8 z
       3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {6 X4 i! G2 g, f7 Q0 h5 s' k# j8 E
       3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9, / w8 L% ?1 f7 V% Y0 D9 h0 I
       3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
    - K. Q) n, m5 X3 Y( v' J* H   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9, 1 `! S2 Q1 Z0 }! n6 f
       3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
    - c! Q6 b, B0 ]+ `% \   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9, / q/ U0 _- X! N6 D3 I
       3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9, . l# b7 T% }' z  N1 R
       3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9, ( a) q& p/ @& h; |
       3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9, ! V% j8 A  L, t3 p
       3.577960515600726*^9, 3.5780121541875*^9}]
    % i' l8 W3 T) s. `* u6 u}, Open  ]],3 S+ i7 U3 j8 S  ]
    + K0 f8 [3 \1 y4 g0 H  N
    Cell[BoxData[
    - c* a) K; B: G& z RowBox[{
    % f3 U0 t3 y. X, p' a! ^  RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[", : O, T" E( g% L- u
       RowBox[{"1", ",", "i"}], "]"}], ' |; ]3 C0 ?* V6 I! V# ]/ \
      RowBox[{"\:5230CM", "[",
    3 f  ?8 {7 d2 p   RowBox[{"21", ",", "i"}], "]"}],
    ) n3 @2 F! K% v  "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\: ]- B% E" x& C1 W2 H! F3 g
    \:51fd\:6570u1\:5230u21"}]], "Input",& {! G6 D2 E) u' h
    CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {
    " c% T: L; d3 `, j/ P  3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9, ; K0 E6 m3 Q5 m. m/ k5 h0 V" [
      3.577960526583145*^9}}],4 ]4 I6 _2 ^% r
    + V# J/ x, @9 y, \0 @9 S& H
    Cell[BoxData[6 b2 a+ Y! B8 i
    RowBox[{"Clear", "[", "Delta", "]"}]], "Input",, r2 H5 Q% a0 }1 d6 {( M
    CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],
    0 f: F2 [* h( Z5 ^. {, e
    / W; g" ]% H) k3 h. V. I" wCell[CellGroupData[{: s% x, Y6 G5 a" C; U: i, ~

    ; H. P6 {$ R+ e7 x* i+ oCell[BoxData[5 d+ H2 k3 B7 N  Z
    RowBox[{"Xa", "=", * z. P; D+ d: F) X+ q- P
      RowBox[{"{", , q/ `, E" f3 e
       RowBox[{8 }6 V  ~" g3 v( P
       "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ; L! J; H1 T# Y6 \( `# G
        ",", "x8", ",", "x9"}], "}"}]}]], "Input",
    7 Q3 N% @' s+ {" \" T% r CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
    ' S- c0 A3 Q8 ^/ A
    + r5 j: a0 I2 O& \+ A6 w% v7 v# KCell[BoxData[
    % q9 @5 M8 q: Y" x' P3 o2 l RowBox[{"{",
    # f  \3 m. e" B2 E* U. V  RowBox[{
    4 k$ L2 j, Y/ y2 u  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",+ _' T2 `7 k. v5 h8 v1 V+ _
        "x8", ",", "x9"}], "}"}]], "Output",
    7 r) Q6 O/ n+ z CellChangeTimes->{
    9 B# m- L8 C; u  A- |4 f  3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
    + t, p2 X, Z2 k/ r4 m   3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
    % |/ w+ i" L& j4 T/ G; m6 C   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
    ; Q! L9 u. ]6 [$ b   3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9,
    " G3 n; N0 D  g1 d0 s- W* w" L3 N   3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {
    : f8 C; L' X4 r7 \" F, p   3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9,
    6 B6 J* g) z% A1 o/ |   3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9},
    2 g/ ?6 ]. @' v$ Q   3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {( {2 I7 }. ?+ x  m2 O# x
       3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {* Y5 F  z1 e( _$ m7 K
       3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
    ) \+ T: p" Z7 b  s& C, W( ?6 G2 z   3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
    7 D  v2 L/ ~/ ]. {   3.57801215725*^9}]
    & ?$ E6 ?5 M; s( ?0 t}, Open  ]],
    ! ^- y3 f$ o$ ?' Q  l1 q8 Z2 |
    . s! J* O# c6 N5 O8 c; wCell[CellGroupData[{& [$ R, b* B1 @/ i3 K+ ~

    , p- E3 f% v" _' E- cCell[BoxData[$ g0 b( L: a, v0 Q: p
    RowBox[{"Ca", "=",
    * Y$ W: `% K" K. v% r- ^; z2 h4 U  RowBox[{"{", 3 F/ I' z% u7 u' Q' @# k; v4 D! Q* n
       RowBox[{
    ) |4 j( J' k7 ~8 R+ i. x1 a3 N   "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7",
    3 Y2 S" O+ p! e! d    ",", "c8", ",", "c9"}], "}"}]}]], "Input",
    8 Y. r1 o5 z$ R) M* w1 r% E" K  X CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],. t6 S( {( w9 ~% W6 o' Y& E5 V
    4 Y) X1 Q. d/ c
    Cell[BoxData[: u/ t4 J/ S0 ?2 e
    RowBox[{"{", 7 q! s6 ]* R6 \0 M9 A
      RowBox[{8 j* [6 U/ ?( h% S. ^2 a
      "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",# E2 z& R  ^5 q
        "c8", ",", "c9"}], "}"}]], "Output",
    , T/ ^  H7 A0 Y0 e$ \& l CellChangeTimes->{
    ; m% @1 c  V$ L% j  n: U6 E3 o  3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
    ' Z  b( h3 ]1 J/ T" Z* ~1 \, s3 ]' s   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
    / ?' f- o! N$ k( b- m5 G   3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9, . d# ^9 {& ^% ?) {/ s' s0 z, w0 l
       3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {
    . Z5 a) X* r/ u& o6 V7 C4 |' O   3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9, 6 z6 D" y! i- t. }* j
       3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9},
      g, g0 O" |% ?; G   3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9, 6 V3 Y. @9 q, E% U+ v* }
       3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9, $ t, j6 R8 A! |% b* U  n+ H  }
       3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
      U9 |! L/ S0 r' F2 l9 j   3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {8 x8 o) [( q- \5 _( `: Q
       3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
    0 B5 j& b6 K0 _1 w6 O3 u% {   3.577961904604212*^9}, 3.578012158671875*^9}]2 W& |4 l, c" E, L' ?" K1 D
    }, Open  ]],- R9 \$ ~* p" r# v
    , i- B* ^2 y1 J' V2 w, j$ k
    Cell[BoxData[4 |3 V7 C' h" {+ s1 I6 G+ b, w
    RowBox[{"For", "[",
    2 r5 i" D7 Y0 v: b* m7 E" G3 h$ L  RowBox[{
    , t+ o8 @# [' h# B% S% \   RowBox[{"i", "=", "1"}], ",", & h3 u. X& G" B" o4 o7 E2 q
       RowBox[{"i", "\[LessEqual]", "9"}], ",",
    7 V. `2 v) R0 `0 f   RowBox[{"i", "++"}], ",",
    ( k7 F7 e/ i2 A. F! r   RowBox[{
    0 O8 O7 {$ K6 ^" F4 P/ G* \    RowBox[{"Ca", "[", - _  R+ G" i" R0 P# z: s. M
         RowBox[{"[", "i", "]"}], "]"}], "=",
    ( u* j. w( ^- u    RowBox[{"CM", "[", ( d! T" R& g) [
         RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",: Y6 O: I9 h. @& ]8 [. D
    CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
    4 ]  u% S6 L" ^; N8 n; L   3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9, $ h( Z6 ~0 e6 E0 _& x( j; a
       3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9, & g0 Z' M" s% C0 ^
       3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9, ' U; G) q, `' @3 D8 H% D
       3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9, / |: B/ ^6 n8 A4 m& z  x* V
       3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9, ! I' g- B  `  c) R
       3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
    $ @% i4 D9 O0 Q! `& R' d5 u   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9, ! Z2 k/ O/ w7 @, A( k
       3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
    # j7 v' S: M0 H1 j* U   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
    7 K# ^0 s8 N. c+ O  O' o   3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {+ O# E# O7 Q( F4 S  V6 M
       3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9, 2 @3 N4 d' Z1 G! c) Z2 G
       3.577961906897415*^9}, 3.578012176296875*^9}],! C& ~( z& l6 l6 P2 r( e9 X% U

    . J4 Q/ L1 w0 S, GCell[CellGroupData[{
    8 ?4 W2 q! ?. c$ E3 w( C1 z) T$ u! O/ e" T- y* ]
    Cell[BoxData[4 R7 G9 n' |+ i# |0 {5 ^( }% h- v
    RowBox[{! L: F3 l" ~% V" w, C% g: o! N8 y
      RowBox[{"(", & \9 K  }) D. v' `5 ~5 g6 ~6 O
       RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    3 S4 H7 a6 _! u0 @3 `( T6 m- \  RowBox[{"(",
    / Q2 ]% I" H- Q! Z   RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],& X/ z6 T9 i1 B" P4 g5 Z/ R( u

    - B: f7 y# ]: c  G& YCell[BoxData[
    " B9 D+ K6 [2 |) | RowBox[{
    - o) \2 p7 X: h, D& U  SuperscriptBox[( x7 l5 z! P2 h$ X
       RowBox[{"(",
    $ ~$ A( |" W7 I4 B0 f    RowBox[{. M7 ?9 D* B4 d+ y# d
         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+", $ [) R2 b7 \- F0 D) u
      SuperscriptBox[
    / a/ G( _; w0 l4 \   RowBox[{"(",
    - ?/ Q% m- I3 `4 e! C    RowBox[{
    . J6 q# }# p5 C& T2 }5 f     RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",
    ! z# L2 L3 D5 M3 ~  SuperscriptBox[
    6 i, w2 @; G/ C7 \, }% R   RowBox[{"(", 1 B' @9 g4 k$ o* M9 m' D2 e5 D+ i9 _
        RowBox[{
      Y* S& s  K  C( G1 E- @6 @     RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+", " B! Y: p1 y! U  r% u
      SuperscriptBox[
    - t+ [$ k5 l# a   RowBox[{"(",
    " z) D8 y9 l  Y+ q    RowBox[{
    * t1 |3 j+ C& Z2 g3 r     RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+", + b  E; b2 d. f, u0 q
      SuperscriptBox[2 c9 k' M" u; f! w- A7 u" F
       RowBox[{"(", - }/ L) M/ @/ V9 K
        RowBox[{
    ( o- T; g# K& [& i! N  N     RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+",
    1 A/ Z: i) L' h1 |- J, z9 Z, ]  SuperscriptBox[
    ; e3 p  z7 O- I4 o   RowBox[{"(",
    " U" |0 T9 {- H5 t    RowBox[{7 p. n- A( e9 ?$ ?, `
         RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
    : Z& w& a# o+ Z: \. k  SuperscriptBox[3 v9 |; \8 A" f2 N2 P& w+ D
       RowBox[{"(", # K  a) a6 k* y2 T0 @9 c
        RowBox[{
    ( _& ?7 J! Z, n7 [# Q     RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+",
    + {8 N+ {6 c8 y/ a- {  SuperscriptBox[
    + |7 E! @! A8 K. ^5 b   RowBox[{"(", 8 R) u# q1 q8 H5 {9 _8 u
        RowBox[{2 F, M7 w8 u) ~9 z1 K* F5 h
         RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+", ' C$ n" f# x' g# ^. p+ X  p
      SuperscriptBox[
    , N/ N0 r: m+ Q! X4 R   RowBox[{"(", " ~  w# [6 _: L9 h9 r# k% f
        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",/ O! e. [) y7 |
    CellChangeTimes->{
      l! y; y( C6 n7 t" N5 W" f+ S  3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9},
    : ^; V' _, T3 }/ ~! i( X3 w   3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9,
    ( g) l5 u1 I: x8 O! U" U; _   3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9,
    " I$ i2 U3 E$ Y& [! I% u   3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9, 8 ~9 R' U! G3 u& ?* w) L
       3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9}, . y3 l( Q+ ~* L" H
       3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,
      b" Z- l! D- p5 ]& q   3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {# M( s: k7 c8 s
       3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
    1 A) }9 M/ F/ }5 ^: J4 \   3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {
    / ~4 b. ^; Q- Z# h. O( H+ v# v5 t   3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {
    # j, O0 p( J* H: w' `/ H' H   3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9,
    , {  T; g. F$ s" R   3.5779618537169228`*^9}, {3.5779618846049767`*^9, " D1 R5 |! S8 e
       3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]# V% j/ y5 c9 s) m4 S
    }, Open  ]],+ c4 E7 C: S4 t, j& ?( }8 ~
    & w, g! t( R& f! C# k+ H
    Cell[CellGroupData[{7 ^7 g7 f; d0 ]) g# ?- }

    : I& S+ p* C+ n" W' aCell[BoxData[! @! s+ T& _# Q0 Z8 G
    RowBox[{3 ]* {, B0 ]9 B. [# T
      RowBox[{"Ca", "[",
    ' a, M! R1 u8 T1 p, h- O4 U' y8 q   RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",1 |) i+ D* b7 O' P' ]6 v8 V
    CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
      R0 P+ @9 i. I  3.5779616465173616`*^9}],
    ! s* N3 f% |" B( E- G% V- X: o& a6 Z- W  |3 D
    Cell[BoxData["0"], "Output",% @, p$ X$ B! x, c
    CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
    / O. l" N0 C2 V2 q" W+ ]  3.5779616484049644`*^9}]$ C* R: e( v1 n  ?
    }, Open  ]],
    4 F6 l: u- X# F/ _- B8 |! Z( r4 b6 C1 u% a
    Cell[CellGroupData[{
    3 d/ p! `5 I" e( i4 x( d4 a/ ^& B9 ^: ]1 z6 Y# p
    Cell[BoxData[
    9 ]& i* ]( S! r( l+ g* J% x+ ^ RowBox[{
    * M5 f1 t% {+ D7 \& C1 u% e% S6 A  RowBox[{"Ca", "[",
    8 [* C9 u. X  z9 B& y   RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",6 S) |9 ~2 S; P7 v4 M* a/ Y- O9 l
    CellChangeTimes->{3.577957376235614*^9}],
    - B7 Z. q! c9 ]+ n: L; A
    * W0 L; v, {3 T. c4 S% WCell[BoxData["0"], "Output",
    + z2 |/ @/ a+ A& h9 O, N CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]
    5 r. V2 N6 f: T: x% Q4 s}, Open  ]],
    0 W9 Y# \- u) `* l" [# K9 W: l" v. t) [3 }" f+ v
    Cell[CellGroupData[{" l8 t; G+ M6 m
    ( }+ k0 Q2 I6 Y: O. i; w% S( W8 M
    Cell[BoxData[
    * v2 ?. b( }+ d8 q4 Q RowBox[{$ k9 M/ N/ _% J; x5 k5 l
      RowBox[{"Ca", "[",
    ( B' K4 Q3 _; v* b, u   RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
    / N0 i: }. M# i: F9 y CellChangeTimes->{3.5779573112927003`*^9}],
    4 G9 L8 E4 `/ r
    3 s& g. j9 }( aCell[BoxData["0"], "Output",; \  N% y$ V9 h/ `7 b
    CellChangeTimes->{7 S- v7 B% u  A1 X
      3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9, 0 `1 Z4 e% \/ u& g! w3 n4 C- j
       3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
    / J; L5 U3 r5 I% L. D   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9}, 5 |: G# Z5 u  L
       3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9, # F9 \8 j8 a1 q! T8 m
       3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9}, ( M+ \7 M0 x# M4 l, ~1 }! U" i
       3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
    ; j8 z" [# V; a* d8 z! l' b% Q}, Open  ]],: e+ e$ P9 O/ m3 f5 v

    ! L& I4 `7 s+ ]Cell[CellGroupData[{
    % S* o( K) e  U& K8 w1 H) a' I
    7 e# M/ {/ Q8 g8 E( o6 oCell[BoxData[4 F( u$ P$ [- l1 z7 s, k& W1 L
    RowBox[{: k, }/ a9 Q2 @: h( [# R2 U
      RowBox[{"Ca", "[",
    6 K: m# u, N' H) M; f+ c5 `   RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",% B0 T: W3 o8 z% A. Z
    CellChangeTimes->{3.577921461734375*^9}],9 T% o% w! x7 }9 E

    1 A) x; z& e2 x5 J. A& ACell[BoxData["0"], "Output",
    6 e% \/ g2 |) e! D CellChangeTimes->{
    + A( K1 M4 X3 i8 R% ^  L  s  3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9, ) h8 \# J8 n4 C1 d* B+ L
       3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
    3 Q; V1 x+ g* c   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
    . l5 e& N: P1 g" V7 G7 d1 n   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9, 8 n; z- G* z( D; H5 q
       3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]
    ( i3 Q8 [( {3 `% [9 K}, Open  ]],
    7 _6 F( E: e: r8 r0 E8 I- ]! D8 n  ?$ k* V+ o$ K- w8 b& B
    Cell[CellGroupData[{  W) f; W  X! F+ w, f' u5 h

    % |  h; }) s$ ~/ T. l3 `' v( L2 PCell[BoxData[
    6 |* Z5 p, k) D) {5 k  X4 s RowBox[{& l: v; I+ f5 S$ }$ t$ P! @
      RowBox[{"Ca", "[", 9 a- ?" K- Z& v/ k6 F
       RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
    ! \8 B' }* o4 i( z8 t# ?8 }  r0 o CellChangeTimes->{3.577957303118286*^9}],
    ; Z. H) ^  f4 W) j/ \3 c0 b9 j) L) e6 ?+ D
    Cell[BoxData["0"], "Output",  D  \, m: X4 }2 n# d0 x. p
    CellChangeTimes->{. b! s$ i4 ^, `! P, _7 @1 p
      3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {+ Y7 I( E; x! H$ G
       3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
    ( f/ S9 K+ T' S  R% V6 {/ |& o   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
    & Q$ k0 P4 ^, m% E   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9, 9 F( c. M0 E: C# ~# `8 m: Q
       3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
    3 g% r* B0 F7 t$ h/ Z4 \$ [' i- C   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {0 d/ ~- C2 n( w& E2 C
       3.577961889378585*^9, 3.577961912965826*^9}}]
    ' s9 d0 h0 K& O" ?}, Open  ]],4 L& l4 R: Y( u5 s+ I

    % G8 K' L! g7 j9 f2 A2 }4 y# xCell[CellGroupData[{
    9 K6 E6 s& t6 x. r) H; _* W2 ]7 \1 U9 [7 d- B# Y" v
    Cell[BoxData[
    , e, U9 `; |% {# v( X/ f! Y RowBox[{2 L7 n# F9 y, n3 s( C
      RowBox[{"Ca", "[",
    ; {1 e! {% i9 q0 Q   RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",( K. @% X" R  Y  h/ j" [
    CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {! v9 ~* b0 K1 y7 q" b5 ^
      3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
    0 e1 j  o1 ^" x! R- E  3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {
    + `! w5 N3 h( U, V; z& B/ s) r  3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9, ! _! S" @# r9 R0 c4 z8 r
      3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {
    ) t+ x. O" @5 R3 k( ?0 @# l6 T2 h* f+ z  3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
    9 M4 B# o9 I7 w( J% i) T+ P  3.577921435703125*^9}}],, k* ?7 k# Y2 c5 y7 P! Q: E
    5 R  j- b9 [/ u0 y" s
    Cell[BoxData["0"], "Output",# `7 K# X, E; A+ w- j  R9 r& B
    CellChangeTimes->{
    7 `. ~  z/ G# W" ?9 H  3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {+ v  O3 O6 ?1 J# W8 c& d
       3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9,
    % N: }; |! I+ @- j   3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {
    & C4 T0 \! h* ]3 X8 I3 s8 i0 m% Z   3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9,
    . v2 d$ @1 W7 `! i. R, o   3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {, F6 M8 e1 c' k! M) ~5 [& U8 E* H
       3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
    , v$ ~2 ~  H' W$ d$ L   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
    ( V$ ~* S6 R9 T9 r   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9, 8 H9 H6 q) w, Y7 K
       3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
    - U" z' F) G, Q& x0 n5 J! E   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9, 8 H& U0 C" E8 P7 s
       3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {3 q3 J  X* t$ [3 S
       3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9, 8 \5 c% S7 r2 A: g4 x. h
       3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]) S+ Y, o' X1 v! i4 y8 S9 u
    }, Open  ]],
    & v& l2 r' X6 T, Y1 s6 ~
    0 v/ U+ W% F; ]Cell[CellGroupData[{
    & a3 _1 y* x! D* }6 ]9 X
    0 e" r1 X% b$ u+ R, W5 k( u* O3 uCell[BoxData[+ ~- t( w4 y# s" y+ ]& g$ S
    RowBox[{"Delta1", "=",
    1 y" S( t1 e. l1 p  RowBox[{
    $ r+ c: ~/ l# r2 u; y   SubsuperscriptBox["\[Integral]",
    2 n4 D4 y/ |/ g; u, h    RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    $ {6 `# E) w  d# C; ^5 o   RowBox[{, K1 n- w/ _( A. x7 Y* Z8 V: b
        SubsuperscriptBox["\[Integral]",
    , R' [2 W" d; R) M+ v     RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    , R% `( n/ m+ q) [3 V  j' v6 _- \# R; h    RowBox[{
    - u2 H) ~6 P) b4 d  D) A     SubsuperscriptBox["\[Integral]", ' l" \* \6 T. b* \9 i. u* [
          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], # M+ L1 L* Y3 |5 ?2 c8 W
         RowBox[{
    8 C3 {8 U0 E1 q+ @0 C6 |      SubsuperscriptBox["\[Integral]", ) E" p' B1 l! |$ N' j
           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], * f8 _7 W. f/ h- G( _4 o
          RowBox[{2 F9 {8 [3 m% j7 U+ `
           SubsuperscriptBox["\[Integral]", # ?% I4 V( p& N' S
            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ' J: ]% T0 s8 |3 N1 E9 R0 Y& L! ?
           RowBox[{/ w) p& A6 a' R2 Y" @
            SubsuperscriptBox["\[Integral]",
    7 H9 X& f5 L# u" C* ?+ Y         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    8 y. k) [7 l. j# I; v1 c        RowBox[{) m) T# G: G% F2 j! o" a
             SubsuperscriptBox["\[Integral]",
    $ E# \" S$ R; ~8 \5 j          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    7 X0 D* C& Z& u, \6 F: L         RowBox[{
      O! S. Z% Z4 {" a# S          SubsuperscriptBox["\[Integral]",
    - R3 U! l9 q5 o, Y+ g2 [           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 3 q: _3 ]0 _2 n; r% A" g
              RowBox[{+ b& [( b2 y6 C0 {8 |; _" x! C  v
               SubsuperscriptBox["\[Integral]", 8 w* M1 Z; s% Z& ~+ P5 O
                RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    9 U; r( i5 Z3 e9 S: W; ?, [           RowBox[{+ ]: B6 Z7 v4 g
                RowBox[{"Exp", "[",
    % G" W- |0 C: a* T/ z2 ]* u9 u* V             RowBox[{% S2 ~- q) P* |+ }8 ^4 N
                  RowBox[{" l- `5 {+ s0 @( Q
                   RowBox[{"-",
    7 l, _* [3 P! K$ y& g& s$ [& i                RowBox[{
    ! P" K1 Y& i5 A* M7 ?; K                 RowBox[{"(", * l0 |- T- ^( L8 S# ^! W* j
                      RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    $ E0 \! U6 U) H, h0 y  F                 RowBox[{"(",
    : f- ^2 I( m% x$ N# B' K/ o- d                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
    % d1 f) S$ T1 _. I+ ?6 d+ A  [              "Delta"}], "]"}], 5 Q% B4 {& A. u( g, j
                RowBox[{"\[DifferentialD]", "x1"}], - a6 T  |2 O- P. B% {  v6 v
                RowBox[{"\[DifferentialD]", "x2"}], 7 E, m0 r9 d5 P
                RowBox[{"\[DifferentialD]", "x3"}],
    . u8 T: K/ N' S/ @8 F; t+ V8 A& `            RowBox[{"\[DifferentialD]", "x4"}], 8 C' }  T! I( F5 b. |: ^+ {. L2 G
                RowBox[{"\[DifferentialD]", "x5"}],
    ; E$ Y/ @/ E+ w( w" [1 ?5 C* N            RowBox[{"\[DifferentialD]", "x6"}],
    " o4 G. T4 q5 T% [. y2 h            RowBox[{"\[DifferentialD]", "x7"}],
    " o: P1 u1 r+ }: f; k# P            RowBox[{"\[DifferentialD]", "x8"}], / g) `- e* ]7 F& l% v, ^' @) v# {0 B
                RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",- _3 a4 B- D: b$ R! I6 P
    CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {! t6 `+ c; K7 {+ U, w
       3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9,
    8 |# c" D3 Q3 @6 J1 t, }   3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {8 x1 Q1 s) y3 r) C1 g; g6 M& a. R
       3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
    $ T8 D* K: z! G, K: y2 N   3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {" U; v7 F! O# z6 l2 L! ~3 k
       3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9,   x" b1 U5 N! Y' y8 v
       3.577918964453125*^9}}],5 I) |% @$ k- A6 I0 `0 h4 e

    # D5 ~( J; v, }/ ?3 CCell[BoxData[
    5 ?4 z$ R1 j4 P1 D4 q3 H4 Y RowBox[{"97.40909103400237`", " ", / o% N* }6 q; e% i- {, C* e
      SuperscriptBox["Delta", "8"], " ",
    . C8 k! _2 i8 o& K1 V/ a) R  RowBox[{"If", "[", ! h" \) C( D) b' |3 T% I
       RowBox[{, z, V8 q4 [. G6 |9 }
        RowBox[{
    9 K4 f8 Z5 ?! B: t     RowBox[{"Re", "[", * o9 }) j$ `/ Z) \7 O0 L4 w- K
          SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",", 5 f- x. o2 |- E+ t! y- [$ U5 j
        FractionBox[
    $ L& V, J8 }) s. l4 C     RowBox[{"1.7724538509055159`", " ", ! j/ S5 n, a: [" u$ W0 ^' T
          SuperscriptBox["\[ExponentialE]",
    ; \& M, I* |6 b4 @* ^  @       FractionBox["1.1102230246251565`*^-16", $ k+ s: U2 q# C3 {1 X" }! {
            SuperscriptBox["Delta", "2"]]]}],
    ( ]4 j& A* `& v; y. h     SqrtBox[3 p3 {% O6 L6 h7 g
          FractionBox["1", : Z. j  J5 f; p1 T+ Z6 l
           SuperscriptBox["Delta", "2"]]]], ",",
    + v$ Z, z- S5 @- R5 g    RowBox[{"Integrate", "[",
    1 x* F3 n$ t1 A     RowBox[{
    . \, ~& Z! _% X3 i3 c$ R8 Q      SuperscriptBox["\[ExponentialE]",
    ! U1 q* X7 {' ?5 X- z- h! r& T       FractionBox[
    # {1 l9 E  B) s        RowBox[{"1.1102230246251565`*^-16", "-",   N) y/ ^) I3 X! k& v9 N) ]# Z& K
             RowBox[{"1.`", " ", , R0 a1 e% I% d
              SuperscriptBox["x9", "2"]}]}], / {: r" }+ v& w
            SuperscriptBox["Delta", "2"]]], ",", % S, e2 v( L* [6 l( X
          RowBox[{"{", 7 u) {' T9 {( r' ]9 d) h
           RowBox[{"x9", ",", ! R9 r& P* C* w9 q
            RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
    * {$ f. j8 q; j. o0 }1 `      RowBox[{"Assumptions", "\[Rule]",
    - l4 z2 g& c# g+ r       RowBox[{7 ^1 T6 S: v4 b, I3 E
            RowBox[{"Re", "[", % Y2 g# I4 j- X. `
             SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}], 2 Z) D( g' I' i4 g' m; T) N" R, w
         "]"}]}], "]"}]}]], "Output",2 @/ u% o3 @9 T/ w" y
    CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9,
    - @# ]$ O# {' A. Z  F6 V  3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9, - W" S6 Q! w$ W& C  _
      3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9, 6 |. B% N# X' s( @! e
      3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9,
    9 e9 }2 V2 n" s+ R9 G3 V4 @3 m6 Y& L  3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9, 4 h- L* g  x' K
      3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
    5 I- c- _1 w0 j6 j  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]% `" ]# O" C: N
    }, Open  ]],6 `% Q; y6 y* P

    : C( O; k% [6 K4 |: N. R- ~- o% [Cell[CellGroupData[{. e, G5 W" g- `5 m' D& Z

    ) b& I3 s. I% }2 Z, k7 OCell[BoxData[
    3 }/ v2 P) p% q% \0 ~; d: M# W+ x RowBox[{"Delta1", "=",
    : I. n# I" y0 {/ t  StyleBox[
    , h7 f; g" g; w7 d   RowBox[{"97.40909103400237`", " ", : {  ~. _% C* }* m; R* M5 D- s
        SuperscriptBox["Delta", "8"], "  ",
    * p9 c, z. a$ ~2 T    FractionBox[, f" e3 e' \; X7 A
         RowBox[{"1.7724538509055159`", " ", - {/ J$ k5 j2 i# M. z  |
          SuperscriptBox["\[ExponentialE]",
    $ X3 G/ d5 a1 x3 \: |, v/ I       FractionBox["1.1102230246251565`*^-16",
    : X, V+ k( h$ v6 [/ ?5 {) c        SuperscriptBox["Delta", "2"]]]}], * t8 F/ E* n% d. O& E5 J
         SqrtBox[
    , I' n- a3 d* ?5 |* C      FractionBox["1", + t9 l8 x( v2 W, h
           SuperscriptBox["Delta", "2"]]]]}],
    % ]0 V7 f* M; |2 F   FontWeight->"Plain"]}]], "Input",
    & M; O' L! M, V2 y* l, Z/ r CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {
    % Y+ [1 A$ ~% y* }  }, u   3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,
    ; D3 v' v+ w  k( N4 l. a6 _/ j   3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
    ' U% F9 v2 B9 s+ _   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9, 7 e1 x8 E/ r8 k! V
       3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},
    , W$ y1 u( q% J+ |' e   3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],
    1 B3 L9 u' A) W- v/ K% g  n0 s
    2 N- z$ _& `/ ?9 E2 A. Q) y3 ^Cell[BoxData[6 P0 v+ J" ]2 E) Y
    FractionBox[3 P* ~8 e( H9 V
      RowBox[{"172.65311851642346`", " ",
    ( N# _+ @* o/ b. ~& N( I; G   SuperscriptBox["Delta", "8"], " ", . U& \6 p7 d1 o* ]& r
       SuperscriptBox["\[ExponentialE]", . M: f: i( b% ^# I# p1 p' O1 k# V
        FractionBox["1.1102230246251565`*^-16",
      j9 y( S% S) B/ }6 Q& t     SuperscriptBox["Delta", "2"]]]}], 6 i/ M4 M2 P( d
      SqrtBox[$ d3 W% f* W) \* ]1 \
       FractionBox["1",
    3 P1 C3 J9 B$ k3 h8 O    SuperscriptBox["Delta", "2"]]]]], "Output",: _& f2 D+ k9 y
    CellChangeTimes->{$ A5 x8 B3 J8 t6 m
      3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9, # s) E; f) K  N9 T& G9 J4 t- f: w
       3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
    . [) ^& T- _" [! q   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
    3 E3 _' I1 ~: M9 _  V( ?   3.578012166234375*^9}]+ O2 Q7 _5 J9 u& n& a
    }, Open  ]],6 F! D) B) [3 [$ z

    , @2 @, j6 r4 O5 ~0 [% YCell[CellGroupData[{  E+ g5 a2 f8 u% v
    $ W+ |  Q  w& V* z& a. X$ S  h
    Cell[BoxData[
    5 r+ m( [9 [" a/ `% B RowBox[{"DeltaX", "=", 6 U- T/ A3 R$ }1 {1 ~
      RowBox[{"FindRoot", "[",
    " M4 R! o% `5 c   RowBox[{
    / g) L- j( s) `    RowBox[{"Delta1", "\[Equal]", "1"}], ",",
    4 F3 C& `0 M- Z0 T. a& ]* Y9 d' W    RowBox[{"{", % D1 E8 l8 Z" Z5 S: f. N
         RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",; _# o( ^- U; P
    CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {
    7 X4 e  d+ ~$ P   3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9, % D( m: y8 u( D7 e2 s( O: `
       3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9,
    ; D5 Z1 t8 Y2 D- s( I, x) E' F   3.57791921584375*^9}}],
    % H: d: J5 l% U; }+ q% B* _( ]* _4 |1 ^& d& {5 {% {
    Cell[BoxData[9 O3 h0 l5 _! I* n
    RowBox[{"{",
    4 a, `& e+ \& d! V: b* g) D  RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",1 z) M- V$ T  W! p
    CellChangeTimes->{
    " E$ a. o8 g9 O) E) W5 c% D  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
    ( Z& O/ E8 V% T   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9, 1 v* V  m! k; g) F  V" h$ Q9 P
       3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9, - G6 L* e) w; }
       3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
    4 T: `  x1 T4 n  \. {" M   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {- Z9 e, K* k# I, L4 L% E- }4 U
       3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9,
    . J8 f* z! n" Q   3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
    ! E+ [0 Y( w! [6 C( n. e   3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
    $ `3 s4 B; g. y" f. _3 t" Q$ g+ M   3.57796070150625*^9, 3.578012167703125*^9}]6 |4 Q) ~- v1 d( X) i
    }, Open  ]],& U/ m; I* ^$ h" o' R
    1 @# Z$ H* L  ]/ }* S! u
    Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\
    4 |& c8 p* ?4 p; y) d\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
    ' A8 C5 M7 \8 F CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {7 b/ s8 s/ l2 Y; ?  S
      3.577960705312657*^9, 3.577960707621461*^9}}],
      i/ h; M$ F2 S) @
    2 j" G' z% c9 W( a, |/ p+ F" bCell[CellGroupData[{' p: D6 M3 P+ b) F( Z# r0 r1 y

    # _8 `/ _- }$ `  O7 N* v( u, MCell[BoxData[
    # S4 b: a" x8 E) R2 F8 G/ o RowBox[{"C1", "=", "Ca"}]], "Input",/ t) s% q! B' n8 X$ M+ S* }" n2 J2 X
    CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],
    , |6 m/ L# G# \# r8 T3 ^
    - G  {1 c$ b. A+ ^; l% K* f- V* HCell[BoxData[% s" T5 k& h& i3 ?% B
    RowBox[{"{",
    9 b: w1 S' G+ S1 T1 V  RowBox[{/ f3 i* h  e& a1 t$ W2 @* I
      "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", 2 D" P; P; G2 [6 H/ t. g
       "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
    / F# v# j" P0 w5 q' w' A( S5 _   "0.`"}], "}"}]], "Output",# A7 p" _+ Y3 r  }5 X, W) G3 O% v
    CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9, 2 Q% }7 [# j5 m& [& @4 {7 G
      3.577960710273465*^9, 3.5780121855*^9}]( A' r6 l" m/ E: \$ q
    }, Open  ]],0 K* U; E" W4 Q$ g

    $ B; q$ ~3 _9 o6 y& W0 g0 XCell[CellGroupData[{2 C) I  M* Q% }; ~7 y" j9 y

    - d) R3 M3 ]; o, PCell[BoxData[8 z; B3 A& g, N" c$ M/ M
    RowBox[{"u1", "=", % j/ [  {9 S3 q$ Q8 W
      RowBox[{* b! \# ]5 Y+ F# r2 Z( ]
       RowBox[{"Exp", "[",
    ) ]/ w' i/ z5 i+ J$ J    RowBox[{
    0 z3 F! K1 f( L1 J0 A     RowBox[{. b" W" ]/ s: Q
          RowBox[{"-", $ a4 e& Z8 R, G" }9 s/ P# W) K
           RowBox[{
    ( G+ f. c( s( p. Q( y7 j1 ?        RowBox[{"(", 2 K% e  D0 x6 N6 v" P
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    . `- J; S; x- e4 X$ _  z+ j8 [        RowBox[{"(",
    2 z7 _5 j) s+ W         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],! ~7 J1 \$ l" I/ l
         "]"}], "/.", "DeltaX"}]}]], "Input",( F$ G( c2 j! Z
    CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {; i1 Z/ Y+ p9 q: g0 {4 \1 G
       3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {% @" M5 F3 X. d8 W4 u7 e
       3.577919193484375*^9, 3.5779192326875*^9}}],. s5 R' B: E' N
    ) A/ [3 V: [- y; m# ~
    Cell[BoxData[& x" B. X9 q& o
    SuperscriptBox["\[ExponentialE]", " I8 r( B! k4 e+ A
      RowBox[{"3.141592653589793`", " ", 8 c" g/ W9 E) ?: e3 X2 `6 h
       RowBox[{"(", - s7 B6 ~; c. V! H0 I/ I6 G$ E2 V/ l
        RowBox[{
    4 z" F8 c# _6 V5 ^: K+ N0 k8 I     RowBox[{"-",
    2 q6 u$ f+ {  N% {6 ]9 ^      SuperscriptBox[" @4 t/ v0 k. P" }+ C; P
           RowBox[{"(",
    6 Q5 d  [$ d! z4 Q& U2 L        RowBox[{8 n/ v  @5 f$ z  E* r5 g3 }' @
             RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", 9 e; n( z; i) q3 y. z1 B. \1 ?
         SuperscriptBox[. K. l. h' Y! c
          RowBox[{"(", ' d* r& {, b! t/ I+ P
           RowBox[{, j3 F7 o. s7 }$ f
            RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", 6 p% S- g4 |* c5 I
         SuperscriptBox[: ]! j* k; b7 }* N
          RowBox[{"(", ) e+ S8 _' m) q5 a$ b6 w& I4 |
           RowBox[{
    " P# ~: V3 ]1 l6 I$ q        RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
      n( C1 D7 f6 q  E4 r5 J     SuperscriptBox[* C# e$ O" H2 l3 I
          RowBox[{"(", ; D" C) h' T8 }
           RowBox[{
    ! q) }2 n+ W3 b+ q/ }        RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", 5 H4 G4 B2 B" l3 _
         SuperscriptBox[
    0 n6 a" {" }7 @5 w9 |7 {$ m      RowBox[{"(", 1 J- j) {8 k* l: k) ?3 C$ z, g
           RowBox[{
    ' Y; s! t+ x% O7 A1 ?$ H. M  H        RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-", : C" _% e2 g* F3 ^# Q
         SuperscriptBox[! w" R+ u6 Y: ^& _9 q$ K
          RowBox[{"(",
    1 d/ L9 Q* F  l& O" s. e- p       RowBox[{
    ! m2 e( u7 E& o/ L$ w        RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
    / `7 `; f% _# \1 Q. h" x; O     SuperscriptBox[  _& j* E2 C! T7 d4 R  Q
          RowBox[{"(", , R7 z0 {- _, o& s2 |
           RowBox[{9 F" |* b0 n5 s2 O
            RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", # Q( T5 N- a8 e% @- k& C4 c
         SuperscriptBox[
    % L! J# v& [) V7 z! D5 b      RowBox[{"(",   k0 o2 D: Q  `0 b5 b2 K
           RowBox[{
    " z  }, I  ^/ j: l, R        RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", 3 c0 J6 g8 {' r; J9 j( |) S7 I5 X
         SuperscriptBox[
    & O6 J* z' u: M0 p4 T7 Y  U      RowBox[{"(",
    * J2 s" W; W/ [; f- p/ n       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    0 h% |4 Y$ x# f    ")"}]}]]], "Output",1 V) L) W* y* w0 @* g: Q
    CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
    6 _0 l4 }" l8 u5 W/ Z  3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9,
    6 Q( a! F9 T: J! n. y6 w/ O& s  3.578012187078125*^9}]7 Q# b) S% j% |% k! a- E9 o9 ^9 Y
    }, Open  ]],$ p! M0 N+ u) g$ W1 O

    9 o# h3 |1 ^3 n# D9 o" GCell[CellGroupData[{8 \/ I* q: _6 w
    5 j. x! y. }7 l/ Z9 {/ @% a
    Cell[BoxData[$ B5 p4 X7 ^2 u& z
    RowBox[{"C2", "=", "Ca"}]], "Input",
    3 d' r4 \. c* v0 j CellChangeTimes->{3.57792047321875*^9}],, E$ B4 W3 Q' G- s" V

    ! y6 h+ x6 _& D0 [Cell[BoxData[+ N+ ~: y! O( d8 x  L
    RowBox[{"{", / Y' H2 e6 w6 N" e; O
      RowBox[{: C, P& M2 u4 h$ `1 Q: @8 u
      "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
    / C3 {( ?  M' D7 W+ ]  d- r& S4 U/ J   "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}], % }) M* h% `2 e$ e9 p2 B, G
      "}"}]], "Output",
    7 `  U+ Z$ I3 H3 m8 W  h CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
    7 o6 Y0 f& `7 R  3.5779607401163173`*^9, 3.578012204671875*^9}]
    2 N6 A' N: |' _}, Open  ]],
    ( R& ?! Z7 `& n7 D3 g% M2 j) {) I8 G8 t" u* l* I; k
    Cell[CellGroupData[{1 L6 S" z4 S; t
    ' [- q6 \- ?" X; V/ S
    Cell[BoxData[, [1 S' A$ Z" H, R/ Q* j
    RowBox[{"u2", "=",
    4 q/ v7 c( @6 d  L( `+ x6 y  s7 U  RowBox[{/ q8 O/ n5 H' [! Z
       RowBox[{"Exp", "[",   Z6 X2 P2 B, y! S+ R- T- _
        RowBox[{9 j) N2 N& b! M% r
         RowBox[{* q+ w: Z" z8 B/ z6 ]
          RowBox[{"-",
    . u* R1 h4 ?  a4 m* v8 c1 ^$ j6 \       RowBox[{: n9 I& X. ?. N. v$ s& V* M) j" b
            RowBox[{"(",
    2 ~( o# h- u) d7 W         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ; B5 e4 i' U7 s  w9 p
            RowBox[{"(",
    + R6 F$ @0 Z6 u$ [) n/ ]# A) N0 e         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    & [* Z$ @3 X; `2 e& N. J5 {1 i) J     "]"}], "/.", "DeltaX"}]}]], "Input",
    7 h2 w. }+ z' r% G6 \8 S6 A) v/ x CellChangeTimes->{3.577920484109375*^9}]," N) v8 h( x5 h2 q% ~6 |1 }/ u' u
    1 z. g! |# ~2 j7 ~/ i! e: P4 a# i4 Q
    Cell[BoxData[
    % @& p' V, X8 N7 F- e; O SuperscriptBox["\[ExponentialE]", 2 F- T: s% ]; j8 A
      RowBox[{"3.141592653589793`", " ", ! K3 O  F. Z. Q( Z# m! }
       RowBox[{"(",
    5 O/ z5 D9 E: k    RowBox[{
    6 F. J7 w# |) B5 I% I1 w     RowBox[{"-", # ^9 x& M& p" x
          SuperscriptBox[* [+ W: k; F; |* M5 e; T/ X, ]
           RowBox[{"(",
    * E+ U! ]$ x" K: w4 J( J        RowBox[{
    & X" @  B9 t8 ~" a: f' u0 a# ]2 v% w         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", 9 _: e  R0 h6 s& E& z
         SuperscriptBox[
    ; r3 v7 f' j3 T% Z      RowBox[{"(",
    * D# A3 g9 J7 U       RowBox[{! ~0 M7 {6 f% N! o( z! `3 p
            RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
    & n$ C) h$ D% _2 ^! \" D4 o- e     SuperscriptBox[. [- E4 n8 I7 g9 f
          RowBox[{"(",
    % v: p. T* E3 u& e3 w       RowBox[{5 d8 {  W+ l. y1 t
            RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
    8 c/ h( _' y1 c2 M; {6 N     SuperscriptBox[
    * ~' S$ b1 I+ a  E! S      RowBox[{"(",
    9 }+ ~1 z8 t2 ?       RowBox[{5 m9 l5 [. r* z$ c# t! l
            RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-", * W# t/ z* ]1 @) @% q. G
         SuperscriptBox[
      W1 R+ y0 g7 F: v8 W      RowBox[{"(",
    ( Q5 A0 p! T! P0 _! q8 h/ u       RowBox[{/ w  u! K( j9 `5 Q
            RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
      T7 B$ v9 P  U- A/ l( Y     SuperscriptBox[9 g- T5 U$ ^4 E# i  E4 {# b
          RowBox[{"(", / B+ h/ b" ?9 K: S/ \
           RowBox[{
    ) _4 I; y- q3 n) M        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", 3 p: G9 f8 F4 c: X. o7 F
         SuperscriptBox[
    # o4 n" _3 E1 H8 ~      RowBox[{"(", 8 v* s$ Q% m2 w" [& Z0 `
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", % m6 U7 }) J5 w, b! c- W6 [/ W2 Y2 F
         SuperscriptBox[
    ; ~; r; d+ `: Z( u' u6 J      RowBox[{"(",
    ( w; ~: l3 L( l7 O1 R       RowBox[{
    4 J/ S" e' @3 l2 D) h- |        RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", ; r9 X9 K2 w0 l" m8 h! R. u
         SuperscriptBox[4 T, ~( O4 w  q6 R2 w
          RowBox[{"(", - H& ?& f$ h5 O1 \- D0 A
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ! c- }4 n0 S4 y  m    ")"}]}]]], "Output",+ r$ |# O5 R. F) V" n3 L( o
    CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
    3 W5 z$ D9 c# n7 s  3.5779607413955193`*^9, 3.578012205484375*^9}]
    7 ]& O  H9 _' n}, Open  ]],- t7 B% @5 y+ p& W/ {" o

    , h$ ~+ {1 _3 T( {* X. PCell[CellGroupData[{; K. _5 W7 H. x3 i
    6 n3 h8 u' M$ X  u9 i! R
    Cell[BoxData[3 n- o% N; {9 D3 k4 F
    RowBox[{"C3", "=", "Ca"}]], "Input",
      d7 P: e7 f1 A! ?+ z CellChangeTimes->{3.57792064125*^9}],
    8 ^( U  U. ]/ `
    * z; J, D: T, g1 h1 L: iCell[BoxData[# X& x" w3 T( S  O. m
    RowBox[{"{", ( W! A5 N: z, I9 z% [" F& a% w% [
      RowBox[{
    1 H& T" R1 _6 v7 u8 A3 n! X% A6 F  "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
      `: N/ a9 X/ |! D- F8 r   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}], 6 h) _  J9 t% X+ r. }1 a
      "}"}]], "Output",9 q0 O, y( d3 b4 q; T+ C
    CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
    , h; {( B# L: z+ o/ C( q  3.5779607642027593`*^9, 3.5780122103125*^9}]( ~) U' I, @; a9 l" T
    }, Open  ]],8 z. @! ]' s# E
    # T7 h8 h, z6 v. ^* J( z! v9 I
    Cell[CellGroupData[{
    # U; O/ y& t/ m, O, z
    $ S/ G: s; F2 [/ KCell[BoxData[
    2 R0 {+ }1 R9 Q# G! W RowBox[{"u3", "=",
    6 L! q: Y0 b4 [/ Y  RowBox[{$ x- ^0 X9 J' H) W- C$ ^$ N
       RowBox[{"Exp", "[", ) w  ~* g( g3 U" z& T/ h
        RowBox[{5 s; U8 f* T) Y, [/ i
         RowBox[{- P) C- G3 N+ {6 A) ]
          RowBox[{"-",   A( r& Q/ [) z9 M
           RowBox[{
    8 u( g9 R( ^1 _/ Z- ]+ G5 ?! i        RowBox[{"(", 3 F, X5 \( Z1 J& f7 S2 t
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ! X- O3 h) m5 J8 i: x        RowBox[{"(", * M- B. P; T& |! t6 z
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    0 T% g- w2 f4 f     "]"}], "/.", "DeltaX"}]}]], "Input",
    % u! |+ ^2 J6 Q& W+ b* H CellChangeTimes->{3.57792064921875*^9}],
    ! H; b! ^7 l( x: j( o9 E" l4 j
    ( n- D9 ?/ u& p% |Cell[BoxData[: O  X+ i0 `, [2 V
    SuperscriptBox["\[ExponentialE]", 5 f! T  L% c% y6 |
      RowBox[{"3.141592653589793`", " ",
    ) q/ G, f# V' f! k$ z   RowBox[{"(", . x; i0 e/ {% {# {
        RowBox[{( E: h* X) T6 [; i- {  B" [- n
         RowBox[{"-", ; M7 a7 w/ r- U" F5 f" S
          SuperscriptBox[$ O  [0 b5 H8 U# w) @9 f$ G
           RowBox[{"(", ' Q/ H- X; c+ W2 V7 |/ }
            RowBox[{
    ) [* a6 v1 E+ W  Y3 _, H         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
    , v% U# f0 a6 f$ c1 K5 W$ ~' K     SuperscriptBox[
    1 e- ~4 E  z! T      RowBox[{"(",
    : x4 f4 H6 e2 B1 y4 ^4 E       RowBox[{8 h6 o$ {+ w3 L; _% n4 W
            RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-", " |- F. v  w/ L" g1 u' u& j/ b
         SuperscriptBox[4 B$ ~* y9 L) R
          RowBox[{"(",   r7 _- p- x. \6 v" M9 `
           RowBox[{, d; @: s2 Q) }7 o: h/ d
            RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
    2 l8 |. Y1 e5 r0 b4 H/ O     SuperscriptBox[% G" b# J3 p! l+ o
          RowBox[{"(", / Q$ g+ [0 t' \9 v
           RowBox[{$ o( o# `0 u# n% y& C" w- W
            RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", ' F3 K& `% f# Q% l$ U6 H
         SuperscriptBox[. p; f% T9 R+ l6 x
          RowBox[{"(", $ z  W3 ]. X2 T1 h, x+ F
           RowBox[{
    8 n7 _  Z( e4 R* o4 j" o% `4 [6 E        RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-", ( |+ p6 Z3 B. }; r& R
         SuperscriptBox[. _( x9 r5 y" S7 w" k  \  u! l1 j
          RowBox[{"(",
    ( B) ]0 ]9 i" `0 r3 I! U2 ~       RowBox[{
    5 `) h* b0 i( z$ c        RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",   D5 X" b0 E4 _
         SuperscriptBox[3 \+ g- H9 E3 j7 }7 ]# V. I& I
          RowBox[{"(",
    # W( L, J. @  I4 ^5 ~/ c5 V       RowBox[{& S8 n  J% Y7 Q
            RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
    6 u9 l* c2 k$ k6 f% j5 h2 T& i0 J     SuperscriptBox[
    " K8 u% p1 P4 l      RowBox[{"(", ! x0 F) W' L. @5 ?
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 4 {6 z# @% e0 l6 U  I
         SuperscriptBox[! {2 a8 g& p5 ~3 R. ^
          RowBox[{"(", : y8 I. l& H7 R+ p" @# ~2 Q
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    3 @: b8 N$ F, F    ")"}]}]]], "Output",
    ' i! D/ y* u' d* Q4 ]6 S CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9, - ]) V8 g4 F1 U: G
      3.5779607654819613`*^9, 3.578012211515625*^9}]
    5 B3 E+ l3 n0 U7 \}, Open  ]],
    & \+ u# A8 L% I4 e+ H' T6 S/ V/ \
    Cell[CellGroupData[{6 w3 S' t! |. ^* O( N9 i. s

    , b; j2 [. Y( UCell[BoxData[
    ; @: K3 ?5 _! P- t" h- ^ RowBox[{"C4", "=", "Ca"}]], "Input",& W+ |% q- b) n2 ^" c! v# T
    CellChangeTimes->{3.5779207559375*^9}],# @' g( Y1 T$ G5 ]( C$ w/ K' u
    9 {" e3 L: b0 P$ G  \) r4 `
    Cell[BoxData[$ G: y+ D( D: |
    RowBox[{"{",
    # R; l: x5 p3 \! Z& @  n  RowBox[{
    / q" T) ]( L6 ]3 S: p- ^  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",", 8 G( g, h& k, z" ~0 f( j7 \
       "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], . b( J% f3 \+ T' ~' _7 L3 g1 w3 k
      "}"}]], "Output",
    * m9 B+ Y8 X$ Z$ M( G4 H CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
    7 j8 `2 m* C$ n( `  3.5779607861363974`*^9, 3.578012216171875*^9}]
    $ m8 s2 D- I! i, J6 |9 J( L}, Open  ]],
    * I' c. }( _7 h( X% _  f& ^0 S4 L, q9 p
    Cell[CellGroupData[{
    0 C" ]' Q7 T7 f  f4 z
    / `4 X1 w# |6 L9 x; Q' M, d/ tCell[BoxData[6 E; k: L% f2 v8 M! w9 e: `
    RowBox[{"u4", "=", + n+ Q: i$ S) y  V) A+ J. t
      RowBox[{
    % T2 t/ c" S2 n1 e: F9 [   RowBox[{"Exp", "[", . R  g+ y9 m. |% c* }; ]. Q* P
        RowBox[{3 n  H3 _. q2 O. O% \* n. D
         RowBox[{
    5 [! p2 y! \# U5 _- x& J      RowBox[{"-",
    6 X9 `: q( z; T       RowBox[{
    + _! X. {' o9 M3 z% M7 Y+ C        RowBox[{"(", 1 |! e) O1 c# J$ a5 v5 F) p7 l
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    9 x9 J5 o% d7 t7 [# [        RowBox[{"(",
    * k3 y, d& z5 y! v1 M         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    9 I. f/ M0 R) ?+ y     "]"}], "/.", "DeltaX"}]}]], "Input",
    0 e: a- ?1 n) z, d3 G% a5 ? CellChangeTimes->{3.57792076325*^9}],, P, i& @" j! K$ K

    9 m1 s; z- n3 {4 f! V& [1 m; s7 `# u& |Cell[BoxData[2 h8 P; [0 {6 G* S
    SuperscriptBox["\[ExponentialE]",
    / ]# m, J- @7 o, v% Q  H1 \  RowBox[{"3.141592653589793`", " ",
    2 B: h8 u& }2 m' @   RowBox[{"(",
    # a% D+ t$ ?/ a! a% f7 ~$ v+ n    RowBox[{
    * L8 \6 Y5 p* a' e* E+ t     RowBox[{"-", ( z. i# a: m& Q/ }$ ~- Z
          SuperscriptBox[
    1 i& B- o& T8 A  x8 T3 `9 v) S. @       RowBox[{"(", ) C9 h, x4 V4 V' S
            RowBox[{
    % V7 s+ p8 R$ m, L         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ( g+ O# F6 f! D2 S2 c     SuperscriptBox[
    " ^1 I% E% w# O: q& c  g* `7 l      RowBox[{"(", $ V) _& N; O  {
           RowBox[{5 U9 c8 \* \- J! L7 N2 d
            RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-", 4 W1 @; L# s. ~' m# ~; [
         SuperscriptBox[
    , I0 \( K4 {* q" d      RowBox[{"(",
    ; e  L; e1 V: x5 {       RowBox[{" X6 ~5 J# \, R- O. Q. X+ Q8 d  s
            RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", 0 M# b1 j5 I9 l, Q+ p2 m% @! P0 G
         SuperscriptBox[! \6 S* L. K: V7 G) I4 y" n: P
          RowBox[{"(",
    9 o. W/ \6 {: s$ v. O       RowBox[{
    ; f+ l% ?6 Z0 i$ N        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", , ?" t6 U- |$ I1 N; ~; t( c
         SuperscriptBox[
    . |. H' c( z. @8 Q) h2 w# {      RowBox[{"(", ; f* n3 e- R8 p0 V
           RowBox[{/ V9 F6 S, V  p* i: M
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", ) e7 @9 W: O6 r2 G1 P% G& N  J
         SuperscriptBox[. j0 q8 s! Z4 T0 e) X6 M; ~
          RowBox[{"(", & l3 x& s: p( H2 }- V1 l& i" E
           RowBox[{+ `- w4 U' c. Z; l
            RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
    9 D8 s7 Z7 ~3 i( `4 \$ x     SuperscriptBox[" d0 J: A: W' T6 t
          RowBox[{"(", 6 w2 i/ r* ~; z7 S4 i: c% v
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", * o( J6 g' ]7 y* t  K/ ]% m
         SuperscriptBox[4 s% u3 Q' ^$ x' y3 s; v- C) m( W# c8 K
          RowBox[{"(",
    / T# a$ q1 f' \       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    2 D& m5 f% ]. k     SuperscriptBox[
    2 K9 K/ N3 |- a/ o2 q5 l3 d' c      RowBox[{"(", 9 n5 D# ]$ @( ?1 |( O" ^/ T, X1 T
           RowBox[{3 Y' u" ?& |: \
            RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}],
    # x6 S/ }% r, k2 I    ")"}]}]]], "Output",
    , b! C$ z6 r: O CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,   }9 P# o: [- c! G
      3.5779607873531995`*^9, 3.5780122169375*^9}]
    # N7 T1 D9 a* y$ ^3 C0 h}, Open  ]],& o4 b, h3 B; [- h- L6 z1 z8 K. ]9 J

    4 @8 _9 [! c( i1 ]* {0 j+ X5 I  F7 d. mCell[CellGroupData[{! L/ A$ y- I) i9 j- l6 g
    ! p9 I( j/ l5 N' ]% R" Y. n' q
    Cell[BoxData[, ?. n4 m! T, B# ]& l/ R2 |8 T
    RowBox[{"C5", "=", "Ca"}]], "Input",6 T4 `3 X/ j, _4 H8 @$ e3 b! h( r
    CellChangeTimes->{3.577920860671875*^9}],! |7 }0 S. }, s$ `) c/ e' ?

    ) N% ?; J0 C: gCell[BoxData[
    : _  R' ?& {4 @* P+ |7 j# }/ y RowBox[{"{",
    % Y/ w/ H+ G* E; h, M; f: V7 [  RowBox[{
    " V3 }; H4 Q& ]# |  "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
    - t( T; f% |% f8 q+ K7 C   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}], / y& J4 `8 z+ z* b
      "}"}]], "Output",+ i$ e5 d) e+ e8 P7 ^* A9 E
    CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
    " O* x# J6 J2 S% U- L- d: ?  3.5779608137328453`*^9, 3.5780122209375*^9}]
    0 U3 e  M. d" \- X& E}, Open  ]],% O4 v5 |0 J) c. ?' Y# H
    3 @; L' u6 A0 I
    Cell[CellGroupData[{5 h/ S. f& f& Y2 B
    8 X! H5 Y& v  _! R' \
    Cell[BoxData[
    . i) J7 W& I) e" R: v1 J RowBox[{"u5", "=",
    ! ~- Z2 H# l' [  RowBox[{" e4 E5 y/ F7 y6 o/ P! I
       RowBox[{"Exp", "[",
    ( C* ~, N, s! b$ I- X    RowBox[{
    ! P; ^* u8 O( d* {* d% F     RowBox[{
    2 r! t$ R+ b9 t8 o      RowBox[{"-",
      X4 b* s* O4 ~& a( {& A( Q       RowBox[{- p2 c2 p# L* g* j: {
            RowBox[{"(", 7 Q: E/ p8 ?% t1 ]& X% u
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", / K2 Y2 p8 C! {- m: p
            RowBox[{"(",
    % p3 ?8 D2 |, Q         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    4 \0 O- b, T0 a( N- A2 L) y, c     "]"}], "/.", "DeltaX"}]}]], "Input",
    * N. R  {0 T8 P5 o5 ?7 ^5 v' [ CellChangeTimes->{3.577920869375*^9}],* z" G; y# d, p8 x7 _

    ' H  V0 I( W) WCell[BoxData[2 |7 O2 ]$ q) X; i$ r- w! a# }+ h
    SuperscriptBox["\[ExponentialE]",
    2 C: t2 Q: i( L, H0 B+ D6 F  RowBox[{"3.141592653589793`", " ",
    : ?+ a% a( H& f$ O8 f' I   RowBox[{"(", + z, N4 P" i3 S! e/ R
        RowBox[{
    2 C7 H( M  l* Z" L% J7 t     RowBox[{"-", , H8 C1 Z6 Q7 f' W' `
          SuperscriptBox[
    % F  F5 P6 i/ y# h% V       RowBox[{"(", * b' n# o5 j& c
            RowBox[{
    , L. |8 m+ [  q9 I6 V         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",   H5 \3 N, Q+ M& Q; d+ y
         SuperscriptBox[
    8 g' d. f! D1 J: E. \+ h; ?/ z      RowBox[{"(", - t- x# e: i% R( V3 D0 S0 `
           RowBox[{
    $ B; Z) l  D1 x; e0 A) A5 l$ H" L        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-", 5 w: ^& z7 \0 U8 D/ u
         SuperscriptBox[2 u/ t% |/ _$ N: z
          RowBox[{"(", 4 B6 Y6 a# r: I. K3 \
           RowBox[{
    % L, V& {' S4 f. }$ Q: E        RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", & i- O$ z/ y! E3 t$ x* `
         SuperscriptBox[4 Z: v$ ~# u6 J. c- S
          RowBox[{"(", 4 G( H) ?7 Z3 X& F/ w8 M
           RowBox[{1 j7 I% `3 @( s$ i7 w, v
            RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-", 6 p$ [" Z. r( B! H" F
         SuperscriptBox[' Y( ?1 ~' S7 f8 v8 O* n
          RowBox[{"(", " d7 I# O7 J  T$ D" r9 x: s  D: Y
           RowBox[{- s: a) |7 t. D+ Y
            RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
    + U9 v9 d4 u6 g7 E: W4 l, z5 ^; O$ d" J     SuperscriptBox[  p  z. i( Z7 h- o& q5 n8 \
          RowBox[{"(",
    6 ^2 f. \; G+ @7 w! \; i. d       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    8 u1 S# }4 q. ?" d3 b     SuperscriptBox[3 s4 r& s7 b  \: F) t7 i
          RowBox[{"(",
    ( V4 L9 }( X1 g4 O       RowBox[{
    * L0 h: a$ \7 h        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 0 Z2 t' g3 B4 x! t& }
         SuperscriptBox[" L$ ?  F( h* x) G% y' s5 ^
          RowBox[{"(",
    * Y% K; e$ d' i& `9 E7 I* {       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    % C( F0 T7 s9 ?" C  a8 m     SuperscriptBox[
    6 r: I* \7 b+ o  `+ Y! M0 D. F      RowBox[{"(",
    + s# K; t  }5 c* k  F       RowBox[{
    4 r$ \+ B" W* f" V- V        RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ) D" p1 ^: F( f
        ")"}]}]]], "Output",) `: v6 p+ N& A2 e5 k7 H. V
    CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9, 2 K+ N) w  {, s( O- T7 n5 e+ v
      3.577960815043248*^9, 3.578012221953125*^9}]
    4 K: |2 S0 ?6 O( O3 u; i6 L}, Open  ]],
    $ ]* @8 w4 i. T3 {5 d5 x7 Q; y7 e; O; s" I6 l( E
    Cell[CellGroupData[{. u* m+ T, ^0 ?5 ]/ @; p+ q; l

    ! m  \( l% d+ t- Z( @7 K. O; RCell[BoxData[& D: W" u4 F3 H6 g
    RowBox[{"C6", "=", "Ca"}]], "Input",; S) d, k  ]/ h# c& g6 R
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],
    2 V$ u; i1 `2 _
    4 s3 K* ~# _' K* t) GCell[BoxData[* Z" G; H" t* L/ H$ B/ w
    RowBox[{"{",
      G1 C0 r( l2 M9 t( s3 R  RowBox[{) i: z% g& s# t
      "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
    / l: M. [8 r' U3 o" |0 L$ E   "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",", 5 z- Z+ [/ {6 @% a  i% B
       "0.494866`"}], "}"}]], "Output",
    4 U- F7 |! ~6 Q2 g9 T CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,) f; ^6 z7 b8 f. l& o
       3.5779608373044868`*^9, 3.578012227359375*^9}]" q1 F" b' n: e$ i0 y
    }, Open  ]],
    " S" p0 d2 m% A6 a6 I8 N9 O- g( e  c) I3 u! s3 l2 m
    Cell[CellGroupData[{! g1 a  X) t& V" C1 B9 G

    1 d% W. i. B' g3 tCell[BoxData[
    - @8 g$ `' i3 Y RowBox[{"u6", "=",
    $ b- d' P0 U$ k( M4 S; c- S  RowBox[{
    $ @' L. I9 w0 o/ B7 z   RowBox[{"Exp", "[",
    2 u& r0 ?$ e- x; j0 k0 A    RowBox[{5 M6 H6 f8 \) V& R1 R: q
         RowBox[{
    ; }* u2 ^, i5 V' o, ?. \      RowBox[{"-", ( Z3 [1 O" i, K8 I% W# C' O3 I" H- D
           RowBox[{0 m4 i% [! f* ?% V. m  V
            RowBox[{"(", - v! E6 L: `' D
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", * C2 F- M9 J6 d8 {1 w
            RowBox[{"(",
    ( c* }+ D# ~1 L* l$ n" [* |' A         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    8 `1 H% s( O% D: }5 P     "]"}], "/.", "DeltaX"}]}]], "Input",
    ! i4 G3 h0 C9 x6 P CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],. P" e/ V' H9 i, G
    , K: |. U) d6 `- _
    Cell[BoxData[
    & V( ^4 V; ^0 C( g/ M" Y SuperscriptBox["\[ExponentialE]", 7 c8 m- M7 B  ]' T, k) _& c: Q
      RowBox[{"3.141592653589793`", " ", 1 Z7 g3 f0 v2 v7 A5 t+ ~
       RowBox[{"(", 9 Y0 T1 Z# `4 z- P" {
        RowBox[{
    + ?* B  c0 u9 M+ s, a     RowBox[{"-", 8 x9 v% ^* H% z- L9 ?+ z, j0 x
          SuperscriptBox[" _+ s- B" O7 J$ d
           RowBox[{"(", + m9 z0 k+ c4 N
            RowBox[{
    % Z" Y% b' K; {* i% M. f! h" d& g         RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-", + B% j3 ]' e1 D$ A5 D& v
         SuperscriptBox[
    4 I2 k. o* H; u  P; I3 T: Y9 C      RowBox[{"(", & u4 C: Y; E( k" Z, T% [. {! H
           RowBox[{
    ' U) R5 x$ L4 `5 _; U# ~        RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
    6 S6 a+ m9 B0 G. A' J     SuperscriptBox[
    ) J; S0 U6 M: {" |      RowBox[{"(",
    ! h) }" P. @) g' B7 I5 ~# b       RowBox[{5 }* @1 ]$ F: d. M/ o. p
            RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", 0 e, o  _; B; u1 b% k7 G) E. k2 w+ E
         SuperscriptBox[; t% _) c% C2 J# p9 d# K' Q* f. S
          RowBox[{"(",
    . i) v) h& P: b. x  p7 s       RowBox[{4 P, \2 j2 S6 B4 ^4 F) _+ q" ^- e
            RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", 5 s& L6 I. [' e) k/ b+ l5 R9 _
         SuperscriptBox[
    ! S& w/ S/ }  H( j) p0 B      RowBox[{"(", 9 S% r5 w, H. u" Z0 {
           RowBox[{
    ) T5 z. B7 N+ N! q        RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
    ! C7 \# L6 e: e  i# I8 _     SuperscriptBox[
    6 g/ Z* z5 e8 P# \! K+ v" {4 D      RowBox[{"(", " M9 y1 h) e- z1 X5 R. v3 ^' d: K
           RowBox[{9 k# R, Y9 [" }7 y$ s
            RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", " R) ^3 ^3 O/ m6 v2 g
         SuperscriptBox[
    2 E7 p! J& k  o6 \% T      RowBox[{"(",
    1 a- n) V0 w( N       RowBox[{
    % S- S( z% t0 ^% S        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
    ! X+ J" B- J( U, G$ G     SuperscriptBox[0 r  V1 h- w' X
          RowBox[{"(",
    / X4 b3 {, r9 P* b       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    $ t* d6 \8 G: [     SuperscriptBox[
    9 R9 V( T5 U6 ?1 S      RowBox[{"(", % P; a; Q% ]- [) H0 @5 c
           RowBox[{6 o1 Q* `. s1 C5 K1 q; R
            RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ( v6 n+ A6 _! s3 T9 |% U0 |  m
        ")"}]}]]], "Output",
    ; g: _) o' z* B) K5 K# E, R9 N CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    8 P! H: L& ^/ E- W% W  3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
    8 z2 g- U% ]2 m8 n  Q0 g) Y}, Open  ]],
    9 E3 A7 B; A6 T: u! y
    3 F) B" y6 n( t$ ~6 PCell[CellGroupData[{
    % H  M( ^8 z# ^7 ^* g- R' [6 p& R$ }% m7 e! ~
    Cell[BoxData[$ \! r) w  O& P  G
    RowBox[{"C7", "=", "Ca"}]], "Input",& y/ s- i7 z5 y' A2 K, ?5 M. W
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, ( x) f. [/ \) {* L* q; S
      3.577921316125*^9}],6 m( w" [) K, x1 z
    3 f$ M' k2 q7 S
    Cell[BoxData[
    . j  m- ?1 Y) X4 p RowBox[{"{", 9 c3 u3 T9 S$ v  z! h3 E
      RowBox[{. f; j/ I1 C& K2 @
      "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
    ; G; G" m/ \+ v" _' O7 o   "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
    1 a% r' Z3 x1 u$ d  "}"}]], "Output",
    " g" r( ^. R2 ]+ p* Q CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    ' o$ l" h! z# M' a) I: M  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]  t" {! X  s( S! ]
    }, Open  ]],
    3 K$ q, r& p/ T" V# N4 V) f  ?  r
    / N' |" j* ]. @  w; h+ P8 qCell[CellGroupData[{( R5 o2 @( [6 {! ~+ V& i3 P
    ( H% c7 T. C9 ~- a5 b* l. p$ b
    Cell[BoxData[: x7 B2 S: K* Q. J" b: v
    RowBox[{"u7", "=", 2 n7 ?* S. g- s
      RowBox[{
    " k; n6 z( F6 s  H2 O" S   RowBox[{"Exp", "[",
    ( p  h* n- Y% W3 r: Z( o    RowBox[{
    . L' z- k& k$ B  `  s     RowBox[{2 I, q" S: }0 N) ?
          RowBox[{"-",
    # N5 ]( Q8 R% j8 q       RowBox[{& g7 M( i. |+ `/ x2 q; ?0 @" J
            RowBox[{"(",
    1 f+ W1 \  `$ Z2 N" G         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ( W( P% [% F; h5 U- D* D+ h        RowBox[{"(",
      m( X+ s. ?& Q         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    , k5 d  ]  l& B4 t; ~3 `3 m     "]"}], "/.", "DeltaX"}]}]], "Input",4 ~5 ~) s* g$ c0 o5 i
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    " C* Y0 t  f: H6 J. A4 v  3.57792132028125*^9}],3 I# t  e) E! M. f" r& p  f
    $ g4 `8 r) N  ~+ p2 I
    Cell[BoxData[: v" `! C4 f1 W- L
    SuperscriptBox["\[ExponentialE]",
    / g) D, a3 @) }4 }! y+ Z# v& R2 u  RowBox[{"3.141592653589793`", " ",
    ! a# p7 }$ j$ [% f' m' I   RowBox[{"(",
    7 m3 Q8 {! |( |    RowBox[{
    0 R. f9 D7 c; Q     RowBox[{"-", 8 H$ \( s% [% _( U
          SuperscriptBox[
    6 x. v0 ^) P- J5 k8 g2 g) h, Q4 s# z       RowBox[{"(",
    6 ]& J1 O* t3 A3 E+ ^1 l" Z& T/ A! `' S        RowBox[{
    ) D, g. A3 C, Y         RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", . c! s5 X7 s, z0 @, X5 p: D) N
         SuperscriptBox[3 a) F& B: L0 @
          RowBox[{"(",
    0 U% `# Z- P) W# ~: y! b5 o+ A7 Q       RowBox[{$ j( X1 c1 V1 Z+ [
            RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
    ' `# b! i( K! Z0 S- Z! D% x8 O: b     SuperscriptBox[
    ; Y2 j) K) R. ?4 b- ]( |* i% r      RowBox[{"(", 9 ^$ f+ A: y" r4 B) T
           RowBox[{# J' b1 b" _: T3 k/ ^% P0 E8 D2 Z3 k
            RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
      F  }/ i7 x5 q7 V8 G6 Y' }     SuperscriptBox[
    ( Z& F7 ]. ]8 Y) O8 k& D; L      RowBox[{"(",
    / E  Z; |$ H7 b" L) F0 I7 P$ A       RowBox[{
    " `/ H5 N1 l& Z+ E& H        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", 7 Y* ?3 ^" e7 Y8 H4 A* U. w. d
         SuperscriptBox[6 }; A4 G) R4 k! j, W- \* y
          RowBox[{"(", . S& N9 i3 d# [; K: k
           RowBox[{
    / w* h& x* n3 P! q8 x, M0 a        RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
    $ @3 g$ S5 x6 x2 y     SuperscriptBox[
    5 |1 C; D9 }9 {* p: t/ L      RowBox[{"(",
    ) [( S9 m1 q* F# G5 X8 Z6 d       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    0 y% X% m  b4 R& X( _     SuperscriptBox[
    % @  W5 @( J5 a2 J      RowBox[{"(",
    + o, {0 \, g8 o+ _) A: n/ F       RowBox[{6 m+ B6 H3 }  x+ G) _; n" a
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 5 h3 y! n% o, Z5 S: ~
         SuperscriptBox[; m0 M7 {6 \+ h1 q3 y% L
          RowBox[{"(", ( ]) V6 l4 f: Y9 h0 L  T4 n9 \/ K+ ?
           RowBox[{  ^6 z" W$ ^' P
            RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
      ]) R8 b/ L% q, J8 B     SuperscriptBox[4 z8 P2 t9 ]2 x& j3 ^5 J" i
          RowBox[{"(", : q/ U3 j0 M* Z# u7 Z& J  x  y
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], - k5 R% b: H; n' T
        ")"}]}]]], "Output",% b0 v- X+ _9 }6 p8 J8 ^
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, . T3 T- g! h6 z7 l/ W
      3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9,
    2 m+ V/ a. E, v1 v  G9 V$ f4 ?  3.578012251359375*^9}]* D5 T' v; ~/ W3 W* s
    }, Open  ]],
    # Z4 E* |) L- g1 |1 y; G8 {/ Z! V8 R5 S: r
    Cell[CellGroupData[{) S6 b$ ~* U- e. B1 w) Y- |

    1 o  O" Y) @5 M/ JCell[BoxData[
    * B  b8 n2 ^+ b+ N1 G+ W$ ]0 q$ f2 y RowBox[{"C8", "=", "Ca"}]], "Input",  p9 Z! o4 a  h
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 0 M$ h; t* [$ _; ^% s$ q
      3.577921316125*^9, 3.57792141421875*^9}],
    # q) C- C3 F% S& X! R. W; ~, Q7 `! `4 x9 J/ [8 O4 w% _
    Cell[BoxData[
    $ }' k' f% u3 [; G RowBox[{"{", . Z* z2 i" v2 y' |. v
      RowBox[{
    ; C. y0 o( k1 U" s  "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",", & h  Q( ^2 U3 y  L5 @
       "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
    * R- M. q& G" U9 l5 C  "}"}]], "Output",4 h, A+ R. V1 y5 d
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, ' n) R  R3 }: G* L: @7 c" l* S
      3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
    * k: f' V; u: R0 s% l, y  3.578012260515625*^9}]4 M$ g. y# ?9 ^- l' k/ j- i
    }, Open  ]],1 `! [( Y# `  p1 b1 j
      s' V  n7 E& p  X) y
    Cell[CellGroupData[{( e! ]0 }' P& W! k

    & c; i/ j+ [. H0 u0 A8 FCell[BoxData[
    4 A( G3 f) ^' \% m' t( a& o- J7 D& s RowBox[{"u8", "=",
    - p$ Z7 M3 O0 a' {  RowBox[{9 @' s, u+ G8 g
       RowBox[{"Exp", "[",
    0 p6 @$ F* s8 g- L    RowBox[{- g; s5 z" ?$ N8 p- a- r
         RowBox[{- b5 V* F: Y( G- r5 O2 r1 T
          RowBox[{"-",
    4 ^$ l' z; U3 i0 K6 M% I/ X" N       RowBox[{
    3 N9 k; s/ ]( U) I  v; r        RowBox[{"(",
    6 d- C9 c" e+ b: O         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    . Q* @1 [; z# G( g7 J& z  r# d        RowBox[{"(", 1 b! a5 [3 B  X
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],% Y# H( r$ j2 Z$ y, v3 r
         "]"}], "/.", "DeltaX"}]}]], "Input",. @  b6 ?3 D5 M+ `) r5 V0 f! b1 v
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    8 _2 L: k% X8 f; ]" X1 u5 N1 [  3.57792132028125*^9, 3.577921416921875*^9}],
    + g3 c' h! O' g7 Y% M" ]" c4 k2 x/ A9 N
    Cell[BoxData[& v1 y' K# T9 |1 O* z
    SuperscriptBox["\[ExponentialE]", 7 d% Q6 X% v' V* p% ^% B' }
      RowBox[{"3.141592653589793`", " ", 0 ~0 Y- P0 h6 C+ C: G% u& W
       RowBox[{"(", " t. J8 r- a* T' {  `" ~
        RowBox[{
    5 g/ A( e# [4 h( z1 v+ x     RowBox[{"-", # ?( G6 f# R1 n8 }
          SuperscriptBox[6 }/ c4 o8 J! Y6 g$ g
           RowBox[{"(",
    . x: N. \) V' U, w        RowBox[{* H& N& s" V, `. h6 n; W
             RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", 0 u5 a7 c, Q& t, z+ ?
         SuperscriptBox[, ^+ M; g- Q6 s! ^% J9 f: o0 u% B4 p
          RowBox[{"(",   Q  s; m4 [6 ]; P
           RowBox[{
    $ _# r7 d  \5 d& K+ J$ z3 r) W        RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", 8 K7 `; j! a& B$ Y& E
         SuperscriptBox[; P4 }: n. N2 F& |1 r
          RowBox[{"(", 9 B+ Z# c! ?$ S+ z' z- w
           RowBox[{
    8 h) @* q3 X( [, r! P        RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", 6 I" R- E8 r- j6 R) W" g
         SuperscriptBox[
    " F& m! {7 F* D* p8 s      RowBox[{"(", ( D* k% K% S) t' J3 e' U
           RowBox[{' U* E0 @3 ~! t) C% B; H
            RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-", * N, h$ J& ]3 J  }9 v1 l# d! \6 s' I
         SuperscriptBox[
    . [3 y$ O, s+ D$ U* n" {      RowBox[{"(",
    8 [: K4 U# {, B' ~$ c- _* R       RowBox[{4 a0 B" K' `% ^) ?
            RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
    8 R- T( J6 F8 Z% z' O( Q) _# _( n     SuperscriptBox[# u: g+ c) k4 ~1 z& E0 u+ t
          RowBox[{"(", " X/ ~' x+ O; [/ a1 ^4 e
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    % y/ b2 ^& d3 N8 f* y2 ~% E0 ?2 v     SuperscriptBox[
    + k. u# t; ~& D, p- O' ?' A! o! E: W      RowBox[{"(", : o5 T- T; [8 w- `' S1 _
           RowBox[{; L1 l% z( A3 j+ U4 m
            RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", : R1 A9 V. `! v9 q( L8 v* V: Y
         SuperscriptBox[
    - n7 H7 D7 `& S% Q      RowBox[{"(",
    ) V* q- m4 }6 X       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", # J$ f' P* T5 F/ r4 h7 h9 a
         SuperscriptBox[
    9 b+ F6 V0 o0 x* {% T6 u      RowBox[{"(", 7 e- \: O' Y7 K* q
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 1 ^* \: q( |! Q, y- T* X
        ")"}]}]]], "Output",
    - G/ u3 t% e6 _ CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,   |* J; Y' q9 M) D% p8 J
      3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
      Y# w/ ]5 r/ @. ^3 i% w  3.5779608945565863`*^9, 3.57801226165625*^9}]
    1 Y  }, Y$ D# T# J' r}, Open  ]],
    # U8 V: W3 f% q' t/ g8 i
    / N" v8 r+ n3 [# z- G3 s+ b( g# I2 qCell[CellGroupData[{
    * [4 W+ y$ N* S1 @
    , J+ [9 |& e; x7 UCell[BoxData[4 t/ P/ W5 n+ O' M4 `
    RowBox[{"C9", "=", "Ca"}]], "Input",1 x7 O8 v; ]  J/ `$ q$ \& f# |
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, ! v7 n) t2 e7 K  }- y6 _1 H
      3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],
    # a: _1 H: u! x* r. z5 q8 }. z# L6 `) e
    Cell[BoxData[% f# N" b- a6 _2 C, c
    RowBox[{"{",
    1 U# U' N) K3 C' b: p  RowBox[{
    ' m1 o+ x. J6 Y7 @3 n- b% f, R  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
    & B# m4 U' ]* d, P5 j, ^5 q8 T   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}], $ f8 S  A/ P8 Q
      "}"}]], "Output",
    6 q% C. d. F1 D% G- [2 l" z! D' H CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    ) W' Z2 c: s; j; F6 a9 I+ ]  3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9, ! G/ E5 z9 x# {8 {1 P
      3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9,
    % F' |; N8 ~5 d, w5 P4 K  3.578012268234375*^9}]
    + B7 x' u) y0 |. E}, Open  ]],
    3 H8 G) I0 Y( w9 ]6 L1 o- v, A8 H6 g; S6 C# {" W. |5 y7 H2 j& ]& B
    Cell[CellGroupData[{4 b0 u# f8 M7 j% j: U
    7 I! X- i( K) t0 e' d: w+ ~. i
    Cell[BoxData[, ?/ i) J' }' F* G  X0 @- E
    RowBox[{"u9", "=",
    7 Y9 I. z- A5 g) m  RowBox[{; w0 Z+ b' }8 E  I, y3 {- ?
       RowBox[{"Exp", "[",
    + ?. E2 V2 i. x# K; Q$ R    RowBox[{5 Q1 k( F* t9 k0 S. @
         RowBox[{. h* n$ M6 |( Q& o
          RowBox[{"-",
    * {" T* @' F9 j* ^( k       RowBox[{1 J3 x% G0 P( L! ?0 J
            RowBox[{"(",
    % t# q$ n( D6 [8 l         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 1 P8 m, \. Y' a6 _- @! s
            RowBox[{"(",
    9 f; S+ D# l0 E/ }* k, ^5 T         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],9 f7 A8 |3 D& R
         "]"}], "/.", "DeltaX"}]}]], "Input",5 q! ]  {; r2 T2 |7 O8 s, E
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, 0 g: E% ?7 A2 w$ O" q
      3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],- c$ Q6 ]  k' N. O; p, r
    6 J! t& C5 M% `5 O
    Cell[BoxData[
    0 X. \9 T+ d( i* |8 D. s SuperscriptBox["\[ExponentialE]",
    & V, e0 [3 ]6 c( O% V0 O  RowBox[{"3.141592653589793`", " ", 0 @$ V3 d$ z& w  e: p3 }( n& n) U4 ^
       RowBox[{"(", 6 U- e$ H; {7 \9 z0 f
        RowBox[{
    , D$ d+ t4 C  B0 ]+ C: S: H     RowBox[{"-", & s6 b) E0 V" [5 R! V3 W
          SuperscriptBox[  @# s8 o& \( m; T! E# C
           RowBox[{"(", $ \* X3 Z7 {7 b. A$ q, j/ e& t
            RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
    ( s. Z; S3 b# S7 g     SuperscriptBox[
    ) p4 Y! V; g" M      RowBox[{"(",
      T& e# g% q" `       RowBox[{
    # k6 H2 u; j1 B  |        RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", + V, z- P. J5 q' k- D5 e: w( J# Q% P
         SuperscriptBox[
    : Y5 L: a+ D7 Z3 s: {0 x      RowBox[{"(", # r! A2 O3 o6 X/ ?% ], U3 n
           RowBox[{, i8 q* M% G$ A+ I3 }4 R
            RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    . f; [( e8 o4 b: T! `; `     SuperscriptBox[
    " M) V: d) {" ?* J  N) Z7 M      RowBox[{"(", 0 a6 s. D, [+ k# V; t7 B9 R* A! \
           RowBox[{2 ]. x- t$ L. {4 R1 O* s( w4 e/ u2 T0 X
            RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
    5 d3 E7 |0 z( e     SuperscriptBox[9 l" V1 d8 U( K* c0 ?& z/ z
          RowBox[{"(",
    9 a3 Q2 I- E3 F4 |       RowBox[{
    0 G7 j5 k2 A) L: D        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", 9 v9 ~& d: w' ]4 Q2 @
         SuperscriptBox[' t$ h1 N& ?% ~# A/ ^  E: l
          RowBox[{"(",
    9 R( \% X& r! a0 Y5 _. ?8 v       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    * N, O& M. \( a& N7 t3 E8 {1 K3 U     SuperscriptBox[
    ; ]! V8 i% C  ?' ~/ ?7 ~" ?      RowBox[{"(", 4 C2 F" y% t1 \+ [6 z
           RowBox[{
    ! [2 l: F( @+ g# S' k        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", ' s2 }9 Y6 T& u) v+ V! f$ H, l
         SuperscriptBox[# ~7 d! X0 b1 J  [- j' o" Y2 {/ U( h& q
          RowBox[{"(", , u3 Q& f2 R* G+ P. w6 N& [
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", , S% ], G6 k2 d+ }7 b
         SuperscriptBox[
    / v- P5 [4 G# J1 e      RowBox[{"(", 3 p6 d3 F: O. X7 |: O- F6 d: L
           RowBox[{
    / k0 e' c. b2 _+ \& W' f9 p        RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
    ! v' \* z0 j8 K8 a9 H) E  u, W    ")"}]}]]], "Output",% e3 g% c( ~: N7 c
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
      H( B" U' J6 p% {' R! Y0 R& h6 O  3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
    . r7 T! B" V+ V  ]4 ~2 i  X0 W- w  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9,
    9 g: ~& z$ F/ @/ y/ M  3.577961530421959*^9, 3.578012269125*^9}]
    : O( Z* I( F8 I/ E8 G0 K# N}, Open  ]],
    5 I" F, s% L- m: g& E7 X- B, |& ^: ^0 {$ S* N) a
    Cell[CellGroupData[{
    . z% w1 o: R# M7 P1 r# b6 t& i8 I: a6 Z) C9 l  [6 P
    Cell[BoxData[{% _4 ~# T' d3 a  A( D
    RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]", 7 S% z) T! ~$ }
    RowBox[{"u10", "=", 4 t5 p2 n6 Z) r: e/ O' E1 C
      RowBox[{* v( p% x' x! m, W0 I4 W
       RowBox[{"Exp", "[", + O0 `6 x6 B7 G
        RowBox[{
    # b3 n4 ]9 q9 A& {     RowBox[{3 W# P+ ^% }& d8 P0 {. f
          RowBox[{"-",
    + C8 G* S. P0 G' n1 W# J. s       RowBox[{
    : ]: L  z  }1 P5 [: l# [        RowBox[{"(",
    * J  q! s' E" p- R( {: _; i         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ; i; f& ]9 w$ f0 ^& O. F
            RowBox[{"(", . D8 w! {1 j3 C# r: a4 M- N+ s
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ' g' P( S8 @+ r: ?     "]"}], "/.", "DeltaX"}]}]}], "Input",3 m- b0 @/ ~/ S& K* E* l2 c9 \
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],
    3 T% M/ W1 F" J0 u, [0 f
    * p5 K" M& L# G" ^; F" X3 c6 b' uCell[BoxData[
    # g0 y; O' Y1 Z, N: X RowBox[{"{",
    8 Q; n' i0 C) M  ~+ O  RowBox[{
    5 R6 ?: U8 X( Y: N  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
    ; X5 O, J9 Q4 v0 K) {' S4 E! d   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",# g  F; o2 Z6 w" Q
    CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
    1 i5 L& B3 A% t! T$ _
    4 \' p/ |! F* V* qCell[BoxData[
    / g4 E' i/ J& D# o2 X! e  ~ SuperscriptBox["\[ExponentialE]",
    ; F3 a( s- f1 N) ~9 {' `  RowBox[{"3.141592653589793`", " ", " I) ?( t4 c9 R0 A! N/ r  v
       RowBox[{"(",
    ; p4 m! C3 f  v' b" E9 {    RowBox[{
    $ y( ?$ V$ {6 G- L4 f     RowBox[{"-",
    4 {/ l' B  [9 J* _9 C      SuperscriptBox[1 f4 m& {" j# G' k  i
           RowBox[{"(",
    & n' U0 d1 M7 R( ?; G7 q        RowBox[{
    2 g, V3 ?. |7 F5 q2 \/ X6 q8 R" ~         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    2 q. i3 v) a7 i+ u     SuperscriptBox[. `0 O- L* B# m; w6 h
          RowBox[{"(",
    ' m1 @% l( g; p! R# I1 O3 J, z$ M       RowBox[{8 C9 T( r5 Z9 O
            RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-", 2 D/ l- x! ]% ]
         SuperscriptBox[2 L& K! @8 H0 r$ S
          RowBox[{"(", 7 ~8 P) n1 h% x# n. I; j
           RowBox[{2 S1 v- t: B+ e
            RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", ( h, w4 I' H7 \6 t9 X1 ]
         SuperscriptBox[8 v/ M0 V1 w: Q0 _' l6 ~/ A
          RowBox[{"(",
    7 o, F: ^' b7 E       RowBox[{# x4 g7 Q: {9 v7 N( m- ]8 Y
            RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", 1 A# H! l& O8 C- z% Y
         SuperscriptBox[" h0 V* j( J" Q2 e. Q5 m2 D
          RowBox[{"(", 6 S5 h3 `* k4 X8 |2 J
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", 8 U/ \+ @7 [* e8 j  t& J5 Q) ]/ H& k
         SuperscriptBox[
    9 H2 k( V, l4 C6 b& t& C3 j" Q      RowBox[{"(", ' O* O5 ]! Q4 |1 K
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ' N) C5 \% l' d. T
         SuperscriptBox[1 V3 g/ l3 J8 J$ E
          RowBox[{"(", ' Q' T! d! f$ @& a3 F' ~  ]
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    8 x) V5 y( R- r; s* R     SuperscriptBox[
    9 p9 k& T% s/ L6 j/ }+ L. w2 l+ W      RowBox[{"(", ! |) X8 v" ?8 E2 |
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    0 c# q3 b! C0 U4 \8 a3 G     SuperscriptBox[; K" v2 _0 |4 O
          RowBox[{"(",
    9 y8 _  m3 R5 q- l# ]       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], + Z) ^( w5 n* R! l% J% a
        ")"}]}]]], "Output",3 q! Z! I8 U( ?; J7 K" Y
    CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]
    & m2 F! E) U+ n2 o* o}, Open  ]],
    ! w# i" x/ n: R' [" H, I* C
    ; S2 P* G3 T% o2 L, M7 qCell[CellGroupData[{
    , z* \+ P2 ~& u: W& B
    - m: H9 {  ]/ l1 @2 F4 kCell[BoxData[{3 A) |% _1 U! p& z/ R
    RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]",
    . ^$ i5 \' ]& j3 y& F# ~ RowBox[{"u11", "=", + w" f0 i+ f. O7 ?0 w& Q) c
      RowBox[{
    2 A3 [% @) x/ h' n* }& e   RowBox[{"Exp", "[", / W* K! z$ e7 K5 l
        RowBox[{6 X- K- F* ]; l- j: G& H2 Q
         RowBox[{
    3 p  E7 S! O4 j5 ~+ j1 [6 H+ _      RowBox[{"-",   B3 q0 ^4 a7 z* B
           RowBox[{
    & G1 `8 c# m! y% f" Q        RowBox[{"(", : H# z. I( l5 `* I3 |
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 1 A  O1 R. L$ j7 L
            RowBox[{"(", * Y2 e8 i* o, B  M* R5 Z( n* {+ V4 r% n
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],. D; b$ _! K1 R- ]& b! N
         "]"}], "/.", "DeltaX"}]}]}], "Input",% t$ @1 g& N; ]- H$ y3 ?7 p
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {$ D% A' r5 ]2 n, i5 b
      3.57796154237158*^9, 3.5779615434011817`*^9}}],4 e( A4 }, ]& u; V' h  c; p

    3 m! r! U) h9 w* p4 }Cell[BoxData[
    3 x' j( g  g: N1 n' ]. L& b; L RowBox[{"{", ' G6 s2 x# Q7 f6 J( D
      RowBox[{
    . Y6 `$ W  V' [9 ^9 Y  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
    + K9 H" h7 J9 [' \2 ?" `4 t   "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], % i0 D1 n9 E/ Y" _& ?6 I
      "}"}]], "Output",
    - p/ I7 ^( |; a7 s  [' O CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    4 N% Q4 I7 l9 q2 a  i8 a  3.57801228203125*^9}],! {4 {/ M, F) v# w6 A% f& x0 P! f

    % c4 ?, \: Q1 ICell[BoxData[+ \# K( V+ |3 l* @7 z! B* x  g
    SuperscriptBox["\[ExponentialE]", * n* W6 m7 D3 _9 ^
      RowBox[{"3.141592653589793`", " ", 2 P0 U3 m+ e1 ?
       RowBox[{"(", 1 }9 B" V$ i! y7 I& X, T; |: [: B. T6 Q
        RowBox[{# q( U( |$ U$ M' m! D4 K
         RowBox[{"-", 3 @4 \, B9 Q* Q$ g! C. C
          SuperscriptBox[
    5 j3 T" G+ e* [' p9 c! k5 ^       RowBox[{"(", 4 D; Z7 H" ~2 e5 m7 ?- \! `
            RowBox[{
    7 \. a- _. k- l  E8 C         RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
    0 h+ O2 a2 S) W; Y1 s# j% l     SuperscriptBox[
    , z; x$ h; {9 O, p* V      RowBox[{"(",
    % p9 l; ?' h4 z" l  |       RowBox[{, b8 ^4 l7 K, ]1 W5 W
            RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
    0 u/ \3 J0 `, M* t; B( V" P/ D     SuperscriptBox[
    : F2 H0 N+ Q, y      RowBox[{"(", 5 c. e  D/ h5 H% b4 ~3 u" O/ C
           RowBox[{# S+ K2 u$ j+ f
            RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", 7 O2 s7 M( h* {. S' [
         SuperscriptBox[
    1 G) a8 j) f; B8 f5 C      RowBox[{"(",
    " Y) ^: e  r& d& H6 `+ H+ H8 P: X       RowBox[{
    % H" n1 b2 i: a6 `$ D' k        RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", + r3 E) ^( o- ~" `
         SuperscriptBox[1 g" C+ {/ [8 I- B7 y' s  K* b# P
          RowBox[{"(",
    9 b" @" b9 ?* N       RowBox[{
    1 f+ m6 C  W, D) m' d( [        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
    8 b% U, \' b' r% ~. j     SuperscriptBox[. G# K- n9 U  N2 \# Y. h: t7 _
          RowBox[{"(",
    & X2 ~1 @6 ~, z) u4 i" x- {: W       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ; }3 V' K! ^8 ^, y+ @     SuperscriptBox[
    6 p6 ^8 x+ y* H$ X$ z      RowBox[{"(", & C0 w3 C( Q7 |* t. O
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    ; W, K  d+ F5 g) i5 h+ P' L     SuperscriptBox[5 l  P) x. x: \$ f5 ^2 Y
          RowBox[{"(",
    ; n( d5 A& r7 S# ]       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", - [& ?: ?0 B; Y. _
         SuperscriptBox[& t4 D& }; w  k/ o/ B$ v  ]! `* }
          RowBox[{"(",
    + t+ ]+ j+ }* |: U       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], . z( A" X: ]6 i" d2 u! k
        ")"}]}]]], "Output",! q0 W5 e1 z( |4 Z& @
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    ) Q, h) J, i4 A' S' R  3.57801228203125*^9}]2 C  S8 R; s6 J: ?% w: z( m
    }, Open  ]],; q8 S; Z9 k0 _- d: Q2 a! R
    ) Z: \0 V$ O3 _* x! w  E
    Cell[CellGroupData[{3 \+ y" q+ ^- ?
    : J) Q+ y7 g0 V$ \
    Cell[BoxData[{
    / |) Y+ s  ~5 F! f1 S3 x RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
    ' D- _. H5 ~& w4 N) A, l! i  k RowBox[{"u12", "=",
    * z% ~3 ?+ I2 Z$ i& Y% m: h2 ~- A  q  RowBox[{
    8 h& ^: X8 r+ J7 ]" U   RowBox[{"Exp", "[", 4 N8 S0 l/ K* T
        RowBox[{8 Y7 x) T  p! u
         RowBox[{4 P+ z9 a0 ^. K" L: I+ f! m
          RowBox[{"-",
    : o$ d- ]) F- J* h+ E( m       RowBox[{) N6 G2 i; G, @9 J5 _7 \. i
            RowBox[{"(", - Y4 B( U% F* N4 L1 K: D
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", % d: S& M: w6 K4 o# I
            RowBox[{"(",
    - L: A+ m, j1 j& b8 r         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],( N1 ?5 s$ H: G" e$ h4 F
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    : W- C% j' R' n3 ]. [* c CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    - [0 k, r3 k% L  3.57796154237158*^9, 3.5779615576284065`*^9}}],
    & E- o1 g  R1 P! `1 O6 d0 a* ]$ o& z5 a; D
    Cell[BoxData[" G+ P% z; [! o& {
    RowBox[{"{",
    2 g# D& N/ r& k0 X  RowBox[{" M% P4 f; H( b9 P
      "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",", & C! L% b, d2 z+ b5 |3 ?
       "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}], 6 W7 s! `" ?6 d: g7 A9 `/ N
      "}"}]], "Output",2 S4 O& L1 k' H3 t3 K+ p
    CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],, @. L& K" Z0 C

    / }8 `# t! v6 ?: ]  }; MCell[BoxData[
    9 s' \* {) o1 L* ?. Z8 u SuperscriptBox["\[ExponentialE]", ( R: m, Q3 a7 I! I
      RowBox[{"3.141592653589793`", " ", 9 ]: W! P9 T  T9 C+ x
       RowBox[{"(",
    0 j8 ~; h! e7 `0 H0 b+ ^- T! S    RowBox[{7 g' i5 Z  I8 R- W) J$ T; Q- B
         RowBox[{"-", . a& d4 o. E" M( ]
          SuperscriptBox[
      B; t# S9 H$ Z! B       RowBox[{"(",
    8 T/ ^: D( g7 j8 {- O        RowBox[{
    : b, Y* g0 [& w) b( p         RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", - U  E5 w' F5 p% V
         SuperscriptBox[- C& ?2 Q. p5 w, \" v; f
          RowBox[{"(", - Y7 q, X3 E  f; ^- \% S. Y" _
           RowBox[{
      @- Q0 F: ^$ K4 Q6 z. A  C6 O$ _        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", & G; \- u# O9 }7 q' I
         SuperscriptBox[
    4 L& x1 T5 r9 z% b4 R- S      RowBox[{"(",
    2 Q8 u) r' ]* o$ b8 s1 v       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", ( P$ t& P8 }8 C: A
         SuperscriptBox[
    # N0 M1 I. ~3 L% I' O( j      RowBox[{"(",
    4 H* M* e1 i+ W       RowBox[{# a7 V2 s+ `7 i9 M/ o
            RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", 5 h. c, S6 `4 n
         SuperscriptBox[
    5 x7 z4 B9 T- q$ O8 p( ]4 h6 p6 v  {      RowBox[{"(", ( ~4 y; v1 u% E0 D: m& ]) e
           RowBox[{  f# c* W- R# p0 n9 I/ x+ Z4 p
            RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
    # t; ?0 \/ @0 j3 l0 f8 R, l     SuperscriptBox[
    8 [# X6 ~6 Q9 r      RowBox[{"(",
    $ U, T8 |( e9 \! X! `6 C7 a       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", * k3 j. r) ~# @$ G6 L* Q
         SuperscriptBox[
    $ E0 x! [0 \* z3 H, m: Q" \      RowBox[{"(", 1 @3 |  \( u. ?) F, t" k! L
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", & x% E. n& U  z) Z7 r6 k
         SuperscriptBox[; {- M  F; n# Q7 W0 K
          RowBox[{"(",
    ! l$ C$ @5 a' g* e0 r" ~; m: u; e       RowBox[{
    ! ?' r$ f( d: r" [& n9 i) u! e        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
    5 L& F3 k3 y. Z! D8 @  |     SuperscriptBox[
    ) C. g/ U6 R. Z' T! R0 E      RowBox[{"(",
    7 f+ U9 E( m4 T  K8 z$ a       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], / s1 z! Y( t# s5 H" U) \# n
        ")"}]}]]], "Output",
    * ^% ~8 O# X5 D% z CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]+ i2 O7 v. w- _* [9 z
    }, Open  ]],$ I6 J: F  D$ @5 h% M4 \
    0 [  ?6 T# c% i1 N4 Y& d) y+ R
    Cell[CellGroupData[{4 i" v& q9 y; d4 J1 K
    + J9 w" L/ G& |1 ?& A) h$ [
    Cell[BoxData[{
    1 D- Q% l0 |7 Q6 g+ X RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]", ! ]8 k& A8 n. D; i! s
    RowBox[{"u13", "=",
    0 v9 Z8 Y( i/ m) o& h  RowBox[{
    : n7 d! ?: a, W0 D, j( V3 j8 B   RowBox[{"Exp", "[", 1 @6 g. }- j. P
        RowBox[{
    / z! G( [6 a% b1 G) i# D% P     RowBox[{
    0 X. l- i# F/ I1 R7 s, D9 C9 a5 |      RowBox[{"-", # j& }0 b+ s' o% U; h. u
           RowBox[{
    7 I# W8 j6 |  C) _, Y! p/ S3 I        RowBox[{"(",   s0 z/ u# D, p1 g# o1 d
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ( X/ z3 J9 A  j% H5 f  P$ ]. O
            RowBox[{"(",
    % U: s% C" Z% t, ?# e/ g         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    2 q9 k' q1 r, A( b/ S     "]"}], "/.", "DeltaX"}]}]}], "Input",2 [- U; @9 \) p" \! [& d- S& z
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {8 [5 M- \4 O8 i9 f4 m9 Z4 S
      3.57796154237158*^9, 3.5779615599684105`*^9}}],9 o+ Z5 N( ]3 \, P

    7 c0 H' r, [/ f0 B. VCell[BoxData[& t" O0 p7 D- L. V
    RowBox[{"{", $ }$ q. C% n9 P; ~- }( @& K
      RowBox[{% E2 w  B# Q  D: l. ^* U; _  w
      "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",", ) g" ]* E- F& J3 K' D/ K" S
       "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}], - v+ ^* c; e; C; D9 K' ^% C
      "}"}]], "Output",
    $ b! x, M- G1 W* S5 N; a CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],
    ( E; g& V5 }- T' M* _' Y, V$ |  w% `
    Cell[BoxData[
    , a# A& B" x0 E SuperscriptBox["\[ExponentialE]", ' h5 D: M9 @& B0 ?3 h% w
      RowBox[{"3.141592653589793`", " ", 2 T: [! p8 b5 f
       RowBox[{"(", # f% w& j, B' q% f% V( L1 ~% V
        RowBox[{9 |& V6 ~1 n8 S* `% A7 j
         RowBox[{"-",
    2 m9 W% }0 B( ]: Y2 X; b# _      SuperscriptBox[* |5 t* j' y; r
           RowBox[{"(",
    5 [4 }6 V6 E* n4 a7 J        RowBox[{
    ! X0 |; U, h4 Q/ X( u         RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-", / v+ L4 t8 ]; r# r" ]' K
         SuperscriptBox[
    3 [0 z* H6 i/ ^7 |7 E3 y1 k      RowBox[{"(",
    2 T5 ]" g( q+ D2 t& R       RowBox[{
    & N9 z  t3 B% k0 T- T        RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
    ) \# s7 {6 X9 [8 ^. [' z     SuperscriptBox[4 ?4 T8 a; {$ y2 @; n
          RowBox[{"(", - q1 C. {% l! s
           RowBox[{
    2 b  w* q9 X+ q2 J% L/ X$ Q        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    + a1 n5 ]3 r' {" X* K     SuperscriptBox[
    . i# H* f. C& {* }$ y& D4 C) ~2 c      RowBox[{"(", 6 K$ m3 C" p" L& t5 A1 {
           RowBox[{
    6 C- p, j* m, @7 S$ R& D/ ]        RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
    , i  a, f, o& C# C) n6 g     SuperscriptBox[
    7 X6 e" v5 J% H. f      RowBox[{"(", 9 l# G. h" O9 h: Z; Y/ w& W: N
           RowBox[{3 ?; c6 Y& j1 a. ^0 Q  @! v0 S2 l. r
            RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
    ( }7 X, y& f0 ]% x# K     SuperscriptBox[
    ( G1 c3 j0 u1 r6 a5 o      RowBox[{"(",
    9 C0 q0 U; E' s% h# S) x2 ~       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", # q9 c$ ^3 n9 H% p
         SuperscriptBox[4 W  |0 w! N% B, @' b, ]
          RowBox[{"(", - e6 P. [" @( V( q
           RowBox[{: g9 z1 o, u* [5 T
            RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
    ; c6 c4 P( Q; i7 e6 X8 Q     SuperscriptBox[# m5 h4 p1 ~3 _3 r( d* |
          RowBox[{"(",
    % U$ i0 \, D$ X5 u9 r6 B2 \) X8 O       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", " ]! ~& m5 Y$ C* X% H
         SuperscriptBox[
    + M. w0 W4 s/ V2 `, W; X" z      RowBox[{"(", 6 V# D# v. y; _& Y* Z: N
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 4 N  S( Z' x+ p5 V
        ")"}]}]]], "Output",( R6 l' y% N9 x. W' p0 W9 [
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]3 j+ o) [* \+ O. C. o
    }, Open  ]],
    / o$ F) U  i) R* ]6 r8 Q0 ]5 C; Z  @+ s9 M! V' q& X! \4 L
    Cell[CellGroupData[{2 K3 M, A- c6 ^
    " X  |' @- X, L- z8 \! B
    Cell[BoxData[{' p- `8 ^, ^, F! |
    RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]", 5 f2 v3 \% U8 U# ?7 Y
    RowBox[{"u14", "=",
    - d4 a4 J" ]: ]% R  RowBox[{+ E4 s9 P8 _: u+ e5 j
       RowBox[{"Exp", "[",
    ; q) s+ r% Y9 c( i- h/ B4 j! w    RowBox[{
    . D7 e+ ^% O6 V% l* z: [! T     RowBox[{
    9 I2 }4 l8 x  s! v' d9 x0 X, C" e      RowBox[{"-",
    - m9 o" E% y( T3 B% Z- `$ P       RowBox[{6 G' f% d3 W/ K! [! i
            RowBox[{"(", . H" e4 Q  _$ d0 A% j
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", , ]+ z1 f3 W+ Z& o- P
            RowBox[{"(", ) t8 X- M3 g: e5 \: r: X
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ( g( B& {+ l' p     "]"}], "/.", "DeltaX"}]}]}], "Input",
    % r: d! b" L. X# U CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {1 x% H' Z  b! D. a! P
      3.57796154237158*^9, 3.5779615663176217`*^9}}],
    ' y- H: b+ y& y2 g/ m/ f3 \1 B  X9 \
    Cell[BoxData[
    / y( s5 I' D% L+ A RowBox[{"{",
    . q4 X* k$ m7 K$ \( l  RowBox[{
    + N- c5 a) ~% ~9 c- `8 R  "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", - r1 q$ c& ^: z: m2 n! B- b
       "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    9 z2 Y  P1 |& i, U- f' m( {  "}"}]], "Output",' L% \1 v! P5 O  n2 I
    CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],
    + V! C. r7 m4 ~( r" g4 _$ L
    7 A/ L# {! i' b  K- F; z1 }Cell[BoxData[
    5 z) o6 |- n; r* O9 |  ] SuperscriptBox["\[ExponentialE]",
    : g# x* ]' V7 K$ _( Y( y; H; P  RowBox[{"3.141592653589793`", " ", $ @0 U6 d6 _4 u# K' `' s& ]" H+ _
       RowBox[{"(",
    2 h% d6 |2 m1 @' Q6 L    RowBox[{. i8 ?/ d* u. @2 N2 K1 f
         RowBox[{"-",
    ! {; G! k6 \# T9 B- \& E      SuperscriptBox[' e9 I8 N# G' x0 C* y2 V
           RowBox[{"(",
    ! ?/ U3 K' [7 U" }8 Z        RowBox[{' ~9 t9 v7 t+ C$ w5 E) a
             RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-", 1 O# {1 ^+ Z; E
         SuperscriptBox[
    5 o  _$ g% L( w3 L( q$ d0 Q      RowBox[{"(",
    3 f8 ?. B1 W. A% ^) ]: q       RowBox[{
      f& S$ _; j, o7 g- z        RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", + d3 x- o$ Q0 O0 y
         SuperscriptBox[
    ' t0 M. z/ r6 e0 S      RowBox[{"(", + \+ g* O$ _* q5 l! w- @; U0 M
           RowBox[{
    - L# j# C1 ~# S8 a. U        RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", ' r! X6 g" @: x+ \" a0 f' |
         SuperscriptBox[
    - X& |3 W$ n2 Y: T      RowBox[{"(", ; H% A, ^9 {2 p% Y; L* n
           RowBox[{
    1 d/ i3 H& r& Y4 f% @1 ?  A2 Z        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
    3 I7 a3 a* W" ~: D' E3 E( P: }% m% O     SuperscriptBox[0 W/ k2 X8 q, D
          RowBox[{"(", ' H% `, l9 E: h4 X6 W
           RowBox[{
    , J' u8 u8 l1 a6 g9 C) m9 f& |7 V        RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-", + H3 V6 Y% ]# q# n
         SuperscriptBox[& f6 O4 E( v( Y2 k
          RowBox[{"(",
    $ G! k$ E' F- o& \       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", , q! u4 K1 e+ C0 b  r0 T
         SuperscriptBox[' `' i- a  n6 w
          RowBox[{"(",
    ( N4 h8 f4 Y4 ^% {0 v$ E, ^2 U       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ' a9 r1 ~3 Y/ x" c1 B# K
         SuperscriptBox[
    . w7 `" i- _* n- F% f' N: S      RowBox[{"(", - K! w$ T8 g  g* B% e8 x3 [
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    3 @4 N+ ~7 p' j) U0 S     SuperscriptBox[! z5 P6 H5 [: R, V
          RowBox[{"(",
    + p5 k# R& G0 k3 y: h2 [* }: E       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    : k$ P& \" G6 `6 k8 `0 }    ")"}]}]]], "Output",
    ' l# v, t: D  R# D; E- ^& m! w CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]& z+ O8 O! ~! i
    }, Open  ]],
    # n& R8 U1 Q) l8 y  D$ |( a2 a: M4 _- A& y2 `6 X. O
    Cell[CellGroupData[{! F( U$ S7 O! d6 O3 |( w: p( w
    % F& n& E: N% V' v( I
    Cell[BoxData[{2 Q5 a* S$ a: o: U" t
    RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]", , T: B; C% p# X1 c  f
    RowBox[{"u15", "=", - k' e& l; f" k, o/ r; [) x
      RowBox[{
    ( O& P0 t' Q6 X/ @& Z! |   RowBox[{"Exp", "[",
      b; Q! _" e0 F3 t$ M( n8 F3 u    RowBox[{
    3 e- I; a% z! `; X, n     RowBox[{) H, D* C5 i9 _2 K2 Z
          RowBox[{"-", + t1 Y  ~" s" T* t# j; @
           RowBox[{5 M/ @1 G2 {% T* o! c
            RowBox[{"(",
    6 [% Y* U0 h8 |1 {0 @         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    7 |; t. q0 ]4 A( x2 n/ s        RowBox[{"(", $ i" b8 @$ B- c7 u' V4 Z; v
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],5 C! v4 F5 F! v3 n- o( I) n2 S- l- t
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    9 v. j8 H- d3 V1 _% P/ d6 c6 Y CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ; b0 @1 B6 _. i  q9 L$ U  3.57796154237158*^9, 3.57796157098203*^9}}],6 K6 @. S& i1 F
    ) |' x0 Z1 g3 C( h4 C7 Q1 D
    Cell[BoxData[9 P4 Y0 B; c6 E6 Z
    RowBox[{"{",
    7 z  H8 u  I& h1 n  RowBox[{
    ) u4 ^2 B/ @4 ?( q9 N8 Q% W  "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", 5 b% O" x% _8 T+ @; G; C
       "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
    4 C+ s2 F3 m: [! O8 N  "}"}]], "Output",$ H; M, s  W/ P. i5 C; j1 u
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],- K. }6 {3 o  s' D$ Z& F1 O, ?

    ( d7 o0 m  f) t$ G1 [  ECell[BoxData[
    ! z. C6 D, u0 f' J9 D' O SuperscriptBox["\[ExponentialE]",
    ; E  e( T4 S+ q: \. S  RowBox[{"3.141592653589793`", " ", 6 f8 I& `5 I- y+ M6 M% `
       RowBox[{"(",
    & E/ S' ?4 _) e) Y1 x    RowBox[{$ t! l% V. |' j5 @
         RowBox[{"-", 4 ]' z, p' y' I1 f6 M& f
          SuperscriptBox[2 H: a  T: J( u5 _2 x; o* q5 y$ Q
           RowBox[{"(",
    8 f0 t' c5 e1 O1 B$ Q        RowBox[{5 x4 n4 z0 K$ H) w  i3 r# h
             RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
    8 O  Z8 y" l# L- y' ~     SuperscriptBox[9 n; F. v+ V5 Q9 n( i& z
          RowBox[{"(",
    ) C: u: Q. S$ v0 d& [4 s6 z       RowBox[{9 I& F+ Q& k) [6 ^- i5 \" }0 J5 |
            RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-", ! L" s+ W" D" {4 u
         SuperscriptBox[  z* Z" _6 T  b$ Q$ t: ~
          RowBox[{"(", $ }: a; J7 D, j$ ~4 C
           RowBox[{  a% x5 `# y- _+ j0 @
            RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", 1 M5 q6 p) b( m1 |7 V; P, x
         SuperscriptBox[; {) G1 H9 K6 d1 s# k2 u- }
          RowBox[{"(", & D- k" N* ^% F7 c) t  B) F+ G5 Y
           RowBox[{
    - c  m/ s- J  _0 o7 U. r/ e4 I        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
    - y+ T- }* `& G     SuperscriptBox[, \- ^5 g7 Z* P9 T3 q
          RowBox[{"(",
    / L! c* D5 S, Y- n/ Z5 p1 q       RowBox[{& Y6 P# U- ?+ j$ g# l+ D
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", - V0 d1 o/ ?2 r+ n8 Y
         SuperscriptBox[, h; M$ F1 ~- ?. R$ d: Y
          RowBox[{"(",
    6 m2 G2 b0 v6 @2 |       RowBox[{
    & W5 S- M6 Z7 e5 x, s5 `3 i        RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", 6 o6 ~* C2 o; k! j: u
         SuperscriptBox[
    : J5 y; M- A" \0 {! d& C8 q; S      RowBox[{"(",
    # C1 R* e) [; ~! r) n: A: L3 A  h" T7 j       RowBox[{
    $ _, I( g$ o0 t        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    8 c8 y& X* f) W     SuperscriptBox[
    # B# I# F! ]; y% y% y0 V7 w4 Z      RowBox[{"(", 3 V! ?" d4 P* }4 Y" N% ]
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    & d  G6 U# |- @8 x+ {+ r% f     SuperscriptBox[2 z! W/ A7 r4 {; v/ ^( y
          RowBox[{"(",
    % _7 d" l: ?8 W! c, s6 s5 R0 p) n       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 2 V5 r+ x! f8 {2 b! a' }7 @! Z
        ")"}]}]]], "Output",
    6 H! K: d8 X% Q$ _, h( c( d CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
    ) D" Y8 f. R' M1 e}, Open  ]],
    ) m' k* a8 h" |- c' i$ C3 ~& n5 S" {; |- G; w6 A" H
    Cell[BoxData[
    0 G& b/ u7 u& B& |' G2 h6 w RowBox[{"For", "[", / b$ G/ }- k& l/ z: c3 c. N5 N
      RowBox[{$ @0 K; P6 _' v; G- o. p+ ~
       RowBox[{"i", "=", "1"}], ",",
    + |; W  N0 }! Q2 r7 s3 i   RowBox[{"i", "\[LessEqual]", "9"}], ",", : l5 s/ S, P9 g
       RowBox[{"i", "++"}], ",",
    6 B- I5 w: ]- W   RowBox[{9 ]& R  h, K, }
        RowBox[{"Ca", "[",
    ) L/ J' y- `/ r     RowBox[{"[", "i", "]"}], "]"}], "=", ' S3 U$ z$ T" K: B- G0 \. x
        RowBox[{"CM", "[", ! B4 W5 h. {' G5 n9 E0 v" G
         RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    7 \: Y0 R6 o! ]7 h7 i5 u CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
    4 P3 m2 W5 h6 G" ^" f/ R7 f$ I3 g4 C+ }* q
    Cell[CellGroupData[{, y4 f. o& S* F) U" _) S, M

    9 m9 o: W4 l. R  J4 \Cell[BoxData[{  P; A: f7 d/ \& q: {8 [1 S
    RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",
    1 i# @% I6 ?' q RowBox[{"u16", "=",
    & Q1 ?  w  U2 {& P2 d& l  RowBox[{
    6 v+ U. y' L, [3 Y; x4 t7 {   RowBox[{"Exp", "[",
    ; K. U& ~9 d7 E5 c; X    RowBox[{
    & N! g' k* D; C8 m1 k0 Q     RowBox[{1 i5 t- y# z8 b
          RowBox[{"-",
    ; J+ N% m! ~' R       RowBox[{
    ' q# D: ]1 ], H3 |$ M5 K/ U        RowBox[{"(",
    ! v% v4 r  K. x+ s3 p+ [0 }         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", % c3 \! B; U' B3 U
            RowBox[{"(",
    3 h9 r; y6 j2 }  C) u         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],9 z) u6 Q; S3 l! P, A
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    5 v( I, Q$ q2 A9 W/ ?" R/ y6 L CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {# o. O& g4 _; w+ K# W
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
    # H3 u# u( f) ~+ J' a7 S  3.5779615751004367`*^9}}],+ k2 x1 X3 t: q0 G
    ! G$ S: ~" b! c* H/ _4 C1 h9 k% q
    Cell[BoxData[% D% P  H# K# r) S% w) f! C
    RowBox[{"{",
    8 M1 h6 T5 E2 [: c& T7 B) W  RowBox[{7 A* d# f" h# f4 W' c
      "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",", $ S8 `7 \$ q6 B' W. j* H
       "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}], / D  v2 P  j' d% M1 p- I" C
      "}"}]], "Output",- b8 ?. {! O( C  K, V7 }
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],8 Y% C8 T) Z" A: P4 l/ `5 u6 `
    9 j. y- k9 T! X2 j* i, Z7 g
    Cell[BoxData[8 Z- y0 d3 y$ Q- |( |# d
    SuperscriptBox["\[ExponentialE]", ; Y7 E. O0 D) Z+ \/ y0 u
      RowBox[{"3.141592653589793`", " ",
    8 ]. K- D* U8 s& `) ]. n6 Y   RowBox[{"(",
    9 t' I" B7 B- |: x+ l  I4 e( f) m    RowBox[{
      J" V  c7 ?; z) `7 R     RowBox[{"-", 1 {0 V- I2 ]4 w4 R
          SuperscriptBox[
    - c( @. ^- J  d# f/ m) f       RowBox[{"(", 4 J5 @9 h5 @- K
            RowBox[{7 q! ]  Q  L( f0 s- F
             RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ) O+ T* B/ \" Q( {5 z4 K     SuperscriptBox[
    : z8 K" I% P: m      RowBox[{"(", " X* l+ I5 A* n, t
           RowBox[{
    / {$ z2 E: L9 B( C0 J* b6 o$ E' ^        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
    , d. U1 G6 d% {4 V     SuperscriptBox[- C! K- N9 Y) A3 }
          RowBox[{"(", 1 B" n7 x+ ?5 y
           RowBox[{
    6 [" f1 w! K( k% B/ {; x. R        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
    ' q9 C% a8 E$ ~- P% v+ u     SuperscriptBox[
    8 A4 ~. I" M( l2 @      RowBox[{"(",
    " \9 X; E# [/ \! z3 }9 _0 W       RowBox[{
    4 ~5 R3 E0 w6 V! Y        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", % f' q: X9 r! B% f1 ]) r# ~
         SuperscriptBox[
    , @) N& j6 `% J+ L3 g& Q      RowBox[{"(", ! _. C; _" V3 v7 q: W
           RowBox[{
    7 P9 T, N( s* l  S- G2 h( o% ?        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", 1 Q# y+ ]: b. Y, g. f
         SuperscriptBox[
    + v+ b( B% _! D; a/ P$ t  c% Q/ R      RowBox[{"(", 0 S" N4 \. ^. q/ t& }# C
           RowBox[{( r" D5 R% i" w3 o/ n1 D8 q$ O
            RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
    . l& M2 \3 P* T: |+ H5 Y! T     SuperscriptBox[
    - ^! y4 E% y' D4 A* \8 ^      RowBox[{"(", 8 {1 H" g8 \" F: c5 ]1 s
           RowBox[{
    # y& r6 o  Y' T; U! V" l        RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
    : t& U8 r9 ^0 h" o6 R- v     SuperscriptBox[
    - t$ v# `+ ?$ y: Q/ W      RowBox[{"(",
    - n6 b* ~4 t2 h  [       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ( s* X4 \7 ]; T' M: B. f
         SuperscriptBox[9 j9 ]0 f4 [6 B. v( n
          RowBox[{"(", ) O, ^2 y2 k2 `0 P" t+ Y
           RowBox[{
    . ^3 k  I6 @" r; ^        RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",8 F; w4 ~( u% H
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
    7 k( y! P# ^3 Y$ K( n3 \+ f# [}, Open  ]],; y: l: l( n7 O1 a
    " S; i$ |& \# U, D+ \5 {
    Cell[CellGroupData[{
    0 @  o6 v+ |  Q* t) }+ g) A8 c/ W: s* G
    Cell[BoxData[{
    3 _  z3 A0 J; g RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]", ) j" H$ e# {8 d! X$ n( o
    RowBox[{"u17", "=", % t+ `( W: S) i: k9 A3 {
      RowBox[{# g: e; H; ]* o. t
       RowBox[{"Exp", "[", % [% |  ]4 U7 F5 R# {
        RowBox[{. x# p7 U9 |: K6 z, T
         RowBox[{9 d( U: p7 ~2 C
          RowBox[{"-",
    1 R: l1 V& l0 [! J+ o8 S8 V       RowBox[{6 c. `' J, q; n8 C7 `) g
            RowBox[{"(", , T* m1 A9 @$ P& _# @8 b) ^+ n
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    + ^3 X2 i5 ^) Y8 d! {  R0 T  E9 z9 `        RowBox[{"(",
    2 x5 _9 G! X, v7 _6 e; g         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],4 l9 o8 y" K8 v  y
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    9 f$ n( v5 P! Z3 L5 k9 p CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    3 T# u6 I; O9 ]9 P) o  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9,
    ; r( W: ]/ |% {& {3 Q  3.577961578953644*^9}}],+ k) W) C' J2 l5 i) O' H. q
    ' m$ c9 }1 A8 w& T
    Cell[BoxData[5 i" D+ ?7 Z  f; l- {
    RowBox[{"{", " M: v/ l4 }( l( ]' x9 B
      RowBox[{7 M$ X, g- A& t% h* N& h: H8 P! G
      "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", 7 p5 C, @  \1 R; P9 P, u  Q
       "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}],
    0 N% j" j* {/ H0 a2 M  "}"}]], "Output",
    1 b; B" M, F& x4 f: a CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],' n& [2 @9 Y. l7 M5 ^" z, D
    0 I9 D0 u, h* b3 v" s' l' H
    Cell[BoxData[
    2 X* B9 @2 Y; W# ~: y SuperscriptBox["\[ExponentialE]", 0 n. `2 c+ {5 }
      RowBox[{"3.141592653589793`", " ",
    5 N7 P  z# E1 Z7 R   RowBox[{"(", 5 B! h4 \! f! S' G2 C; G2 Q
        RowBox[{8 V: D! Z3 D) Z8 a% L0 z
         RowBox[{"-", + y+ u0 @0 e( b/ R
          SuperscriptBox[
    8 `: M$ Z/ H) U       RowBox[{"(", : ~, T0 R) [7 o
            RowBox[{
    ' g! L* a8 K  r4 i) L& v         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",   ?+ [5 E1 N/ M$ u+ @  S. ]! e
         SuperscriptBox[
    " o4 G. W7 h  I9 M- x      RowBox[{"(", & f# c" \- y+ p" N7 |4 X& I  W% ?
           RowBox[{
    4 e8 M1 B9 W& Z3 c8 X% D        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", / s: l% u+ [* ^2 ?3 r
         SuperscriptBox[
    ; F  M  q$ A* u      RowBox[{"(",
    % N: I" r7 m2 e. Q& C4 c8 i2 A       RowBox[{. r$ B9 k" z1 Y5 C5 A
            RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
    6 Z. n+ a$ l9 R  e     SuperscriptBox[
    * ]  \' v* f4 y3 K/ ^      RowBox[{"(", 4 m! n$ f/ a% F0 ~- N
           RowBox[{  O9 ?: A: U' d7 y4 Y! s/ K
            RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", 2 B- z* l4 H2 d! n) q% L
         SuperscriptBox[
    5 w: O, V% O% M& O7 A4 A7 w      RowBox[{"(", + Z5 R) ^) p  s/ Z( V
           RowBox[{& w8 v5 y, F) l  l4 t2 _) N7 d  D; Q
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    ( l0 P" }& M( z6 C, a$ B& \8 z/ `     SuperscriptBox[
    0 R# V* a' G0 a& ]3 h; G( P% X      RowBox[{"(",
    ; o7 X  s# `3 l7 X# Y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 5 _+ E( F! r- f, g2 O
         SuperscriptBox[6 ?% ?  \: p" V0 ~2 k
          RowBox[{"(", ) R% C' b& X5 `9 |  y9 @
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    7 }$ v) Y$ I0 {     SuperscriptBox[# [8 s$ h* K8 a8 |. @
          RowBox[{"(", / `( t8 ?. w9 D* j; O! A. d
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    1 c; L; V: s0 y9 h" X# h/ K     SuperscriptBox[
    * H+ b4 y; V6 o0 R8 a5 k$ q% j, L      RowBox[{"(",
    " F+ d1 `# M  X, U& H, g% u2 |, U       RowBox[{7 p$ }. J! A% b
            RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}],   e+ E( x/ G' Q' m% v+ g8 [
        ")"}]}]]], "Output",
    3 L+ [/ |: q8 y% D0 T8 F- K CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]7 Q5 w* `2 s; o3 Q: @
    }, Open  ]],
    ' A- l% h& f- P: t& r6 D; t9 _; s  X$ d! t# R9 {0 K) ~
    Cell[CellGroupData[{  Y  g+ z8 M3 d4 |0 h2 j6 R

    ) T# Q0 r1 `6 a# k3 G* ^. [Cell[BoxData[{
    & I: c& u/ t0 x* H- y RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]", 9 J% m4 ^9 I: U1 X
    RowBox[{"u18", "=", 6 S* O8 W8 n6 h% n' F4 S! n0 x
      RowBox[{
    + l8 ~  V* w) t- Z$ M! o$ l" `/ i   RowBox[{"Exp", "[",
    + \1 g" K2 m% C& w8 i, Q    RowBox[{
    % s* y' i: q* o3 Z0 i( Y     RowBox[{
    * g6 X8 ^+ z# m0 ~3 h/ H      RowBox[{"-", 2 q& i  c1 C6 v6 W/ O8 d
           RowBox[{
    5 ]& `+ j" Y9 W+ A% j; i" u        RowBox[{"(",
    + N/ ^+ j4 k! s! e! @( F! z         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", - D1 v2 C' U5 y$ C2 w
            RowBox[{"(", 7 z5 u$ G5 Z. V
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ( t) O* F7 U+ v3 t0 n: w. l     "]"}], "/.", "DeltaX"}]}]}], "Input",+ U! D) f1 i: {* C+ S
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    3 _9 W0 V+ b4 F' I  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9, + \( j, x" P2 a1 r3 T1 \- n0 q# G
      3.5779615828848505`*^9}}],
    & A0 T8 H, t1 s- K5 x9 R* o! N
    $ d+ V. {0 w; k9 MCell[BoxData[
    3 d$ n* K# a$ k2 f2 j RowBox[{"{",
    3 @' W, J/ z( _" L  RowBox[{0 w0 S' f! D% |& d
      "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
    ' r4 ?. `9 {' `" X, m   "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], - P2 o) s0 d# H1 e8 j/ M( v3 ]! I, Y
      "}"}]], "Output",
    " V: @" ]+ o4 \7 F( C  e2 n& D CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
    % X' E' z% j2 K2 a
    * P' q5 Y' Y5 g9 K+ {% H" QCell[BoxData[* F, ~3 ~( w$ H* w2 i! v9 ~' a
    SuperscriptBox["\[ExponentialE]", / K9 c, E3 E% U) J5 y  W& |
      RowBox[{"3.141592653589793`", " ", 3 {3 X9 m- D% \2 v% i$ j4 x1 k
       RowBox[{"(", . O& R% I2 x* g5 o0 J3 q4 N5 m
        RowBox[{
    + \+ @: \* Z+ i3 [, r) B4 C' I     RowBox[{"-",
    ) `0 P: B. }2 Y$ p      SuperscriptBox[
    # n/ D) n7 u9 M; d. b! r4 V       RowBox[{"(", - Q4 O8 R- M- E' n
            RowBox[{
    4 @* p' L1 D6 ~4 Z# v         RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    " a# p3 \: z" ^4 b! t0 L+ m- o+ v     SuperscriptBox[
    ( ]  x% Q) t3 b3 D      RowBox[{"(", : K$ l. y8 [, y7 K9 r3 \. M5 \
           RowBox[{
    7 O4 l- O  u$ t" D" m$ D        RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
    5 |& p5 i7 z( r; j8 A. f6 e( }     SuperscriptBox[
    ; k3 m, A& a. n/ w      RowBox[{"(", . W% U: N+ A* C) G7 Y
           RowBox[{1 z) W  A/ b5 H$ }2 f, |% A
            RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", / V. r/ ^, p$ g; [+ r: J$ _
         SuperscriptBox[" p" l1 @0 ]+ Q  O1 C
          RowBox[{"(", + L6 Y- z3 W5 L/ Y( @
           RowBox[{1 [/ m3 u, D# V% j$ B" x, ]
            RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", / |3 ~. W$ \. E9 O' |* @/ M: h' z
         SuperscriptBox[+ l0 Y+ U9 A7 V; X  Y* d8 d
          RowBox[{"(",
    / Z3 U5 l7 |* K- T- `+ [       RowBox[{
    " |/ m+ d8 {. e2 m+ l        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
      w% b* I- ?5 ?* D  j; h     SuperscriptBox[) v; c8 V1 f* x" T& W6 x  a2 Y4 m0 n
          RowBox[{"(",
    7 I: {* x" M9 W# U2 M$ P       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ; m8 ~: N# D  g6 T
         SuperscriptBox[! Y( {) L: r, F3 {
          RowBox[{"(",
      P# @/ }; o% p, Z1 n* N       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    9 o" ^0 p! \2 b3 I" N' }     SuperscriptBox[1 j5 u& g! f) C
          RowBox[{"(",
    5 k+ H  s3 _- V; f) D1 Z' C       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    0 t( B: Q: N3 a& V     SuperscriptBox[
    . e0 G2 F, p+ D4 J9 C9 h      RowBox[{"(",
    6 d' J! C/ S5 W6 y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], . U1 r. m7 N8 b( x$ t! h5 j# D
        ")"}]}]]], "Output",
    0 M' Y  v' G$ B* Z: X6 r' \$ ?% t% j CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]
    * U3 B+ j& l/ z4 S; J}, Open  ]],
    ) a1 O! c. z4 Z
      `7 a. z  a8 h, a$ q* sCell[CellGroupData[{! h( _" }% t9 y1 m& D5 S

    # w8 W' a+ i6 O2 y( P( c3 o- oCell[BoxData[{
    3 i4 ~, F. R* m! R RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]", 6 {; F3 ^9 {- j; t3 d- U9 F0 ~
    RowBox[{"u19", "=", % B( E! `7 F. O  Z7 y/ i% k. D" K
      RowBox[{& ~+ r, R2 ?9 k6 `& j$ z  g' L
       RowBox[{"Exp", "[",
    6 b9 `  p( d; y  q* ]- ]    RowBox[{3 L2 k" W  s' Y, O
         RowBox[{9 R1 u( N8 L, e5 ^
          RowBox[{"-",
    - S7 \) u$ n" u$ T       RowBox[{$ p# d' {7 E  F: M  m9 J- k& j% z
            RowBox[{"(", 4 x& I% B9 x) ?
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 9 L# A" k: n+ i. z8 }6 ?$ e
            RowBox[{"(", ( g) _: U( {: p7 Q
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    / s+ H# s/ k. J4 ^7 Z6 X' X2 q* U  {     "]"}], "/.", "DeltaX"}]}]}], "Input",; u7 W3 y$ F4 n* ~% D+ n# K
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    : T, h; @' N* D# J' b, T  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9,
    $ z8 C' J* V) D# g( p7 f  3.577961588890861*^9}}],
    2 d6 E1 {; a. ^6 P
    : D- E3 H8 O; j+ [Cell[BoxData[* |+ C& n( a- J
    RowBox[{"{", % q% ^. R; [: _; O6 U
      RowBox[{
    $ v% ~# w4 |% g# V  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",", : A5 ~. X3 O8 a% G  Q6 F4 U
       "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],
    ( u+ e  h! [1 h/ F7 l  "}"}]], "Output",
    ) y. C; I% z" Q CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],$ \9 M/ N- j* j5 s! l' ^

    $ e" a% u8 d+ m7 s1 XCell[BoxData[
    8 m# l+ H) E8 f: O SuperscriptBox["\[ExponentialE]", 3 ?4 M- i- `4 `9 j5 N
      RowBox[{"3.141592653589793`", " ", 1 {/ D& {. j7 _9 ^% q0 F! q
       RowBox[{"(", ' l7 D" ]$ I0 D! U- e+ B
        RowBox[{
    ( ?5 D/ u) t( u- \! J5 G     RowBox[{"-",
    + I; _& |  o& y/ @. p      SuperscriptBox[) d$ k/ B& p8 _$ x! c# _7 {
           RowBox[{"(", ) _) s: A. r# F% Q1 l. q3 Z% p
            RowBox[{
    2 }3 g& H( ^4 I) Z+ n) Y8 t         RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", " F! k3 g$ O  R2 Q" s4 }% s
         SuperscriptBox[. ?8 S. q, n. o
          RowBox[{"(",
    4 ^7 f4 c. b# @! W$ @' ~       RowBox[{
    1 z0 y9 [. {( F        RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
    5 Y1 z) g0 z; T8 n5 f; k: }' a0 e     SuperscriptBox[
    " i( F# z5 l1 @1 _' g      RowBox[{"(",
    4 `- p; K! u: R2 {4 L       RowBox[{5 ?  Y4 T( H' K+ p/ ?
            RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
    2 P5 f. L" h9 e! U; t# l  O     SuperscriptBox[% h5 y1 T: ~$ e- z5 g
          RowBox[{"(",
    9 L" c4 w3 g. b$ g; _6 R& h0 @       RowBox[{
    / ]5 b4 ~9 E! v3 K; Q9 ?* M        RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
    3 y- F" m' ?; y( j2 R& \0 T$ `1 n     SuperscriptBox[
    & L' P+ [; b/ {) Y      RowBox[{"(",
    ; Y. O% ]% I: F6 {3 j- T6 p       RowBox[{
    5 k! g- L- ^, _- m# V6 a        RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
    0 l, U3 N8 i# A3 ^0 A& l7 |# n- a     SuperscriptBox[1 j% G+ X) [# r1 N: M% m/ o
          RowBox[{"(", # G( b( D5 R" r6 x( r1 X
           RowBox[{
    9 l/ {3 c* {7 V% }1 O& j0 |% F        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", ; i& e5 J% D5 l$ ]3 o
         SuperscriptBox[
    + b& a1 C3 b8 y3 k: e; s      RowBox[{"(", 9 B+ B( C& O+ G, \
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 5 f- t  ~+ k- d" J  f( O4 s% W
         SuperscriptBox[
    " G$ A) V9 }9 o9 l2 J      RowBox[{"(", 8 t1 o) e3 O% K! r. c) g$ p0 j" L' c
           RowBox[{/ E& w2 i! K' L( v6 \; I
            RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
    ! M. k4 Z! T" P$ s     SuperscriptBox[
    6 L) k8 y4 q% N( b0 o& x      RowBox[{"(",
    3 F" p  o& g7 y* K9 ], ^5 R  v- d       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    7 K- N  x$ X9 V6 ?) A. w    ")"}]}]]], "Output",
    " b! E+ |& e0 d/ ^* ]  _( L! p6 J CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]  z1 B3 H8 e  a" Q2 [9 Z4 D9 A1 ~
    }, Open  ]],* W& y4 A0 D& X; x' k
    3 D) [$ u2 }$ X4 t, q; P
    Cell[CellGroupData[{7 R9 ?  s+ A4 M, @/ W
    " Y, D5 R! |+ F
    Cell[BoxData[{
    4 B, z% J: @4 @; g: R' }# f RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]", 1 S2 @; O  u  G. \9 D
    RowBox[{"u20", "=",
    ' u7 x2 M! s! u  RowBox[{
    2 _9 f8 G9 k0 Y7 @   RowBox[{"Exp", "[",
    ) [( y1 b0 w1 [( U" F0 {) d' K    RowBox[{: ^/ A) n" L; x! C2 S, U; @
         RowBox[{0 r" q! y. f' w$ M& _8 }0 p
          RowBox[{"-", . n' [/ l0 f6 c" G+ l
           RowBox[{
    " j* n# ]6 u5 l        RowBox[{"(",
    " l. P' ?0 a4 O# O         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    4 x, E3 |6 V' C5 @. u, ]! _        RowBox[{"(", " u3 O7 u8 o9 ^) H0 b% D
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    + I) E* C2 K  _3 ?% M     "]"}], "/.", "DeltaX"}]}]}], "Input",
    ! O5 h% h+ M6 w& ^) @6 {+ ]% L CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {  x4 Y5 x/ n- v
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9, ( r+ d: \& ^' c
      3.57796159382047*^9}}],* b4 H0 ?9 H6 r0 G0 l

    / y0 u, R. r' CCell[BoxData[- Z  v- g5 d9 g9 [, n
    RowBox[{"{",
    " |2 u8 j8 f) u( i# H  RowBox[{4 q6 `& q  C; Y; R4 E1 w+ a
      "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
    3 @( Z0 E, z2 Y5 r9 t   "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
    4 G7 P' n- @' M1 u/ r. Q  "}"}]], "Output",
    & C1 c0 a; z+ \$ {5 G3 G3 m CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],
    : b, L/ [; M* m" p5 u
    " V; n/ {$ u# {Cell[BoxData[6 W; {  ]6 f/ w+ \! w. Y! e
    SuperscriptBox["\[ExponentialE]",   I; L( S: G0 s2 \
      RowBox[{"3.141592653589793`", " ", + B  K( V. {! J, g: U
       RowBox[{"(", 2 k6 Q. w6 ^9 Q% E! z( f* r
        RowBox[{
    # N% J. s- m4 L. Y# p     RowBox[{"-",
    6 U! D4 p5 h4 Y3 Y8 c4 T. g      SuperscriptBox[
    7 X) p- A1 o7 s2 |. X0 R& k" S       RowBox[{"(",
    $ h! Q4 M+ H9 n: g, m: O1 }$ @, d        RowBox[{
    & N  p$ @, z6 d         RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", $ d) V# x# G: Q0 W4 n. Z  m
         SuperscriptBox[
    / D/ Z1 d5 |* E      RowBox[{"(",
    / {' ?6 I$ q. e4 K       RowBox[{' _# Y1 t6 A! |- n+ A( \
            RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
    8 E# G5 \; Y6 X1 `' F     SuperscriptBox[4 @+ c+ r% V( K# U
          RowBox[{"(",
    ( P: u# @; m4 Z$ l- S5 [7 T, d       RowBox[{
    2 R" G5 T3 w+ E  D2 ^        RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    , K- \7 m  ]: m: W: x: @- X     SuperscriptBox[, v; ]" @9 v% j! K
          RowBox[{"(",
    * L0 j7 j6 t' Z7 ~       RowBox[{
    & e0 m/ w! i0 e  w8 W$ m8 _        RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
    8 \% a; y: T" Z3 Z& ]4 Y     SuperscriptBox[
    - b. l8 D$ L; F/ w      RowBox[{"(",   \' m# K, ^- A. g" _7 b
           RowBox[{
    6 x7 Y# Z! V! G, m; L        RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", / }6 W2 P( t9 G- c4 B' x0 ~0 t
         SuperscriptBox[
    ( F- H/ w/ g4 G4 `- J' q      RowBox[{"(", ; ^& p* _) N$ q8 w- K) X4 d
           RowBox[{
    ' B$ X8 M1 r  {, |: j: g        RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", . P" A/ t6 I1 Q& M
         SuperscriptBox[/ A# L. ^. @0 h9 m. z/ T
          RowBox[{"(", . d+ w; y: o3 @
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    . T% W- ?' |5 `7 a     SuperscriptBox[, P7 R* j4 a$ ~9 t8 A6 b
          RowBox[{"(", $ q: b1 K- V$ j! m+ E! _2 C
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", / d- P) ]  t+ L- B. N6 @; p  _
         SuperscriptBox[
    # c4 q6 j6 h8 C/ b$ p      RowBox[{"(",
    3 B4 A3 Q: ^" H/ F       RowBox[{7 q$ ]1 k5 Q$ F: h
            RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], # ~. k) H* j1 d/ a- @9 y% `
        ")"}]}]]], "Output",+ }7 G! ]& q& R( g
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]8 B' c8 X1 g1 P' k9 p9 u# w0 j
    }, Open  ]],
    8 ~, n4 o; ]# s- J$ O' Q8 x/ D( y" h1 N
    Cell[CellGroupData[{; b0 W- y7 m( y
    4 g. L* B' l, k) y3 C
    Cell[BoxData[{" c3 b' ?( p- u2 K, @" [. V
    RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
    ) G/ E5 O! f( ~& D RowBox[{"u21", "=",
    ) v% e- j6 o# L  RowBox[{. f# s3 \! h" U: c1 z7 x/ y
       RowBox[{"Exp", "[", , }5 b- V% `2 @1 e
        RowBox[{; A) g% o  k% a8 O; p8 ~% q
         RowBox[{
    ; ?8 W0 i+ k" _- ^2 }- |% T      RowBox[{"-", ; J( p( l/ Z4 C2 [1 [  [
           RowBox[{
    2 ?: ^& `3 q9 h7 n% n  f        RowBox[{"(", # T0 r4 }- F8 j, D& H& {
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", / |* N' @2 s/ _9 j1 e
            RowBox[{"(",
    - t9 s. z3 n. V7 _+ Q# l         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],, b$ Q- p+ e: ]6 ]: |) s
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    - Z/ X+ v$ v& {$ g4 I$ ~8 F CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    & M9 v/ Y" A# ]  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9, ! l* M0 ]6 @$ n7 Y1 Z% N5 g
      3.5779615991556787`*^9}}],5 `  n; y/ \2 l$ T" |& S
    9 k& M3 h6 S, ?' q" L: {$ E
    Cell[BoxData[
    * G# J6 c/ w9 o2 X6 _2 V RowBox[{"{",
    ' D  ^# E( \" O, ^2 G2 x3 v6 P  RowBox[{
      T# J. C# B) y  D; B5 u  R, M2 W  "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
    % I/ ]6 N9 P+ U0 ?! d* T   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}], ! f! w* f- r! d% k7 f$ x/ ^
      "}"}]], "Output",, }% X* o, r; A
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],
    & `3 F' E9 W5 `3 Y4 q4 }
      `" {  m3 `4 u6 VCell[BoxData[/ q' B2 _1 J5 |$ I
    SuperscriptBox["\[ExponentialE]", : O+ s' {( y3 \+ ~
      RowBox[{"3.141592653589793`", " ", ( b/ E! R6 x; Q+ M% v0 z% J
       RowBox[{"(", " {) t4 k; ^2 Z. \
        RowBox[{6 ^( }! T7 B6 l7 k( a
         RowBox[{"-", * p/ m; R1 K; u( l& d
          SuperscriptBox[
    ! r9 @) ?6 x  H" e$ c, L8 i, u       RowBox[{"(",
    3 \" V4 H4 e/ @        RowBox[{
    - _2 M  w0 P. B         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", 2 H6 ]" T8 l. H- F! c
         SuperscriptBox[! W# ^8 j+ k& \
          RowBox[{"(",
    ' Q6 x# }& x( D8 B, [9 Z& n       RowBox[{
    ; l+ F9 Z3 \5 M/ f+ F        RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
    0 D; b+ k/ P2 G/ t! n7 A     SuperscriptBox[- E/ a7 U# {1 s' f( R) n% Y
          RowBox[{"(",
    # e& J3 a  P6 w, a1 Z       RowBox[{& E3 f( K: H7 l  T+ c4 ^
            RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
    6 p. e" n' E: S     SuperscriptBox[9 z+ m9 y' E1 a1 V/ M$ [, r
          RowBox[{"(", ; r: h* Z2 {0 i% ~$ j" V5 v8 e
           RowBox[{3 c! u! E, L$ l- {7 q6 j$ R
            RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
    3 H. I  ?; S3 I; S5 G  G     SuperscriptBox[
    8 s) U7 L8 S5 ?4 j" E      RowBox[{"(", - R" l4 F* V. Z
           RowBox[{
    ' V5 d# j$ a+ r9 g0 F4 {" H/ F+ U6 O7 j        RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", 7 G4 e5 B1 J0 s) b. {
         SuperscriptBox[% E; p. @7 E" d( e) x+ c
          RowBox[{"(",
    " O1 o. M* g% Q7 R' w; `# L: Y, r, h       RowBox[{8 e) {% l$ F# p! Z' b+ k# t) R1 A
            RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    : V2 I3 d. E- v7 S' ~/ V- k- z" j     SuperscriptBox[
    $ \! ]  Y) S" P/ R4 V4 |      RowBox[{"(",
    ) R4 I5 y/ Y& {: ~       RowBox[{
    3 {# ~% R9 y) R, Z7 K. P        RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", & N% ^% N0 a8 S' c; C
         SuperscriptBox[
    9 N5 D0 G  s$ n0 X% d  o      RowBox[{"(", + Z7 e: ~. F( }, O  g/ V) H
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", $ D9 @4 F! h8 q- M$ m
         SuperscriptBox[2 ?5 m+ O( w. S0 f
          RowBox[{"(", % h3 A0 Y0 v, z0 ?% L8 m
           RowBox[{
    ; i- r& M, }- u; p        RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], 2 }* _) P6 r% G0 J$ A! z  W! L
        ")"}]}]]], "Output",
    . z. O/ Q; w2 G( @ CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]1 ?7 k  i5 X$ F6 F. w
    }, Open  ]],
      ^7 A% A3 ]1 _( m4 e1 E/ r1 T. |' _7 }: b, B) S. Y9 `+ W. C$ m3 n
    Cell[BoxData["\:62df\:5408wi"], "Input",0 Z$ ~# `6 I* l7 u: b5 T, A% {
    CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],
    # ]+ E  d, x: @3 _$ K' e9 }7 i# @0 N5 }
    Cell[CellGroupData[{
    ( L* _4 I) R( P$ x! \! p" P0 j! J
    Cell[BoxData[
    2 v+ B! n. d- q* {  O  o8 S0 [% o  q5 a+ ^ RowBox[{"y1a", "=", ! m6 f; d& q4 W2 O
      RowBox[{"Table", "[", ( {# {" ], ~: _( ^$ P  ~3 y, _
       RowBox[{"x", ",",   m& H, i, x8 v
        RowBox[{"{", 3 P- i: W' M3 }8 g
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",' x! V4 P& Y2 O
    CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {* v' ~2 R' c6 t/ V3 R
      3.5779226649375*^9, 3.5779226810625*^9}}],
      H7 \5 f5 a* Q6 [3 A
      M2 K1 S8 v2 n' WCell[BoxData[7 b" n( @+ W# \
    RowBox[{"{",
    $ c3 B- t  o7 x# p8 _" f6 |( X+ m  RowBox[{
    # u9 y/ [4 c1 u  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ' E0 P8 O; V! ?
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",% J1 |( C6 E: E8 e% |# i( c
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 2 _# w8 ]1 }' X% |  \  z" @
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    ' Z3 [5 B: M  ?   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", . l+ E" I6 {! E, _! h/ E( M
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", & ^9 f7 j( d) G! y+ z
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", 1 k; @- E; B$ }0 d+ m3 e' ?* O
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", ; u9 j+ q& K( I9 Z  l
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], , ^3 _( K4 U7 Z
      "}"}]], "Output",
    - l8 c9 t# Z1 F* i1 o/ v CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9, * W+ {2 I! B+ M4 t
      3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]4 J2 i  r& n1 L2 E) g+ i
    }, Open  ]],
    & X/ |& Y- s5 }/ y* l
    3 a; ^! ?8 j- t; B1 W# ^- A8 uCell[CellGroupData[{) b  b6 B( U5 h- S1 n( m) F

    " q: n' B0 q# C0 }% [Cell[BoxData[; X2 p) q# a. u7 ]  O, p
    RowBox[{"Data", "[", ( S/ j8 u2 T  [" j! B$ U8 q
      RowBox[{"[", ) W; B& `/ W- U. ^: A
       RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",+ ^9 H: o- _) L
    CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    / x  c& |$ d3 ]" M8 M   3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],& c, `7 ?- t7 n0 d: g
    9 F% L/ g: _# d; P
    Cell[BoxData["0.899882`"], "Output",
    ( Q$ y! ]: l- s0 v" Y CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
    ! Q3 U6 I3 p1 O% }/ i9 z   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9, : j( f! T4 @5 g. ?- u
       3.577961929080654*^9, 3.5780123419375*^9}]7 S  d5 p4 o" N  U7 R
    }, Open  ]],' t# \' m# @( ]9 D( N' t

    ' b1 u. w& L) y/ cCell[BoxData[
    ' c$ N) ^! ^  Q$ q8 g RowBox[{"For", "[",
    6 j: d: F& E5 `' C# S3 O  RowBox[{" u# M- X3 p* k' ^( Y7 A
       RowBox[{"i", "=", "1"}], ",",
    ! a3 J- U3 [$ {6 f4 w2 q0 P   RowBox[{"i", "\[LessEqual]", "60"}], ",",
    ) {' F* v+ c* o  u0 N0 [   RowBox[{"i", "++"}], ",", 4 a$ h  y: I- `1 b+ v7 {
       RowBox[{
    6 C/ m1 r+ ?  b' Q, g* W: e) J/ m    RowBox[{"y1a", "[", 2 e. y/ ?6 S, R( N! O$ F
         RowBox[{"[", "i", "]"}], "]"}], "=", - m( ]2 u0 F, ]8 V: F! D
        RowBox[{"Data", "[",
    8 J8 z! L* t, i/ ^9 B: o4 A+ T     RowBox[{"[", ; u: _% i  L" k$ ?# w) Y
          RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
    ! H0 f/ V: a# V4 Q! U( s CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {! X: _3 c$ ~; K! n1 T& b
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    ) W; W$ f$ _8 W( G- E   3.577922923203125*^9}, 3.5779588839702806`*^9}],
    7 h1 g) L- J8 F. _8 k1 i1 P, J! X& s9 S; l, R/ y' G# A
    Cell[CellGroupData[{% {- h9 s) |9 X9 Z* `4 ^  n
    3 A' D; N. r, E% ^* p
    Cell[BoxData["y1a"], "Input",
    5 i% q4 Y2 x! z& m7 W5 T. L0 u CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],
    . z  }" T3 b1 ~- O" k! i( Y) q5 ?& Z1 q7 k9 |! w0 h# ~. W4 N4 H% {4 N& d6 Y
    Cell[BoxData[) K  A' h) z8 L3 C/ o) A
    RowBox[{"{",   z& O5 r% Q' F9 u# p6 `
      RowBox[{
    2 ~4 I6 K4 S2 A2 Y# H% k  "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",", 5 X# ?6 e% r( f7 [  R* q9 U, s, B
       "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",", 1 s% b' n5 @8 ^; l$ ?) M
       "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",",
    , D& C( ^7 Y7 q' P# [   "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",", * t" v& J4 p' d& g7 `6 y: n
       "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",", 7 P& F$ e) ]- B  r! M0 ^3 Y' Q# N
       "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",", : c0 ]; Q8 [& j+ N$ }% e* n6 z: ^
       "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
    " o9 [' u- \) t. v" q   "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",",
    * Y: O6 p* a1 Y# h   "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",", & {" ~# ?: z; R1 T  q
       "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",
    . E: l; D; T0 d6 \* }! x8 Y7 h   "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",", ' x1 }# h( g. K8 u3 X) Z
       "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",",
    * u# q5 u, @' M% H8 R- R* m   "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",", 5 r: b' W4 A; _6 G' }' p3 [2 H
       "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",",
    - Q8 A1 O6 g1 S2 ]   "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}],   Y  K0 J& E/ ]( c+ I" u
      "}"}]], "Output",7 F2 t( ~+ K- S  u1 m/ q
    CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
    " ~+ r5 p9 _0 }6 ~1 N  3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]
      ^2 R1 |* t& p}, Open  ]],% o! h, Q6 a( j
    1 G. T" P  {1 a3 J
    Cell[CellGroupData[{
    & `" j& I. Y2 [! n% H; R) Q% e4 C9 y2 p2 S
    Cell[BoxData[
    * D4 d, E0 N' q' j% Q; G RowBox[{"m60n21", "=", # h; x; V' U) v* m8 w3 Z
      RowBox[{"Table", "[", ) X0 O+ v+ l7 p& O& X
       RowBox[{
    : K3 F( _' O7 u' L0 C+ H2 K    RowBox[{"Table", "[", ( z2 p# R- _. @: x
         RowBox[{"y", ",",
    2 m' u2 s* j( a      RowBox[{"{",
    * B  [: A" t- F! R       RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",", 0 Z; @! H; j6 ~6 W
        RowBox[{"{", 6 ?& b# b$ A6 s/ ?# p6 p
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",- S; D' a/ N( M' v$ J# d
    CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
      _' D4 x9 W& A% V2 K- a. v  3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9, - U  w$ I/ A  y  ~
      3.5779619706547265`*^9}}],2 E- h# w4 p2 V

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

    & p( J6 q3 P8 |  KCell[BoxData[# G! C- K2 o9 U# X# y) d9 Q
    RowBox[{"w1a", "=", 4 o7 L. j# Z, A
      RowBox[{"LeastSquares", "[", & ^! K, [$ Z7 [2 H
       RowBox[{"m60n21", ",", "y1a"}], "]"}]}]], "Input",7 V9 E4 w# B. B8 k0 f5 Y  T* V
    CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {& E+ H. O" k1 J  S6 v: M
      3.577924662765625*^9, 3.57792466596875*^9}, {3.577962074644508*^9, & ~: z; Z. `1 a! h# t) z! r/ ]
      3.5779620748317084`*^9}}],9 B! g6 f( A; m3 K

    # H8 h& r* z6 v1 c( {$ }Cell[BoxData[: o+ w0 F8 L' m
    RowBox[{"{",
    3 C0 z/ r$ M/ M% C* j+ b& k4 r/ J* T  RowBox[{"0.32564305572552416`", ",", "0.500820838606441`", ",",
    5 X2 @1 d4 @7 R5 t1 T; G/ p8 @   RowBox[{"-", "0.5945873894818967`"}], ",", 5 ~* C+ c3 _8 g" W0 j
       RowBox[{"-", "0.1999688587779198`"}], ",", "0.020180806675835994`", ",", $ }3 ?" I3 [3 g# v0 j) d3 ]
       RowBox[{"-", "0.03345934908892623`"}], ",", "0.25282438852646905`", ",",
    & X& h4 S5 e5 F0 ~   RowBox[{"-", "0.17602467625404622`"}], ",", "0.3961180670900672`", ",", - T3 h1 [$ b, V( |& U( V
       "0.02759193650965952`", ",", ) a9 ?0 H  U# H% y
       RowBox[{"-", "0.320472847796449`"}], ",",
      x- p5 c: @5 l+ t5 T1 R   RowBox[{"-", "0.07581214474544527`"}], ",", "0.4812237524557292`", ",", 7 j: l* @5 y8 q3 \
       "0.7528674241482847`", ",", "0.6665374509702799`", ",",   q# `/ v9 x, g+ C. I
       "0.22861495086373018`", ",", "0.13092706311748484`", ",", 3 H2 f5 i6 Q" i7 _: y& C
       "0.5252475961933538`", ",",
    ' q5 ?8 Y5 a1 L5 ]; b   RowBox[{"-", "0.10599338351843157`"}], ",", "0.6670272593678526`", ",", / Z5 a! i6 v  y1 [2 J3 r
       "0.23580523388620733`"}], "}"}]], "Output",. k9 w9 d* L9 L9 j
    CellChangeTimes->{3.577924621953125*^9, 3.5779246688125*^9,
    8 _' z5 s, |/ G1 f) k# V( n& ]  3.5779575884583836`*^9, 3.577958952875601*^9, 3.5779620806661186`*^9, ) {' D+ y) {5 x6 q) A; M1 r
      3.578012349875*^9}]) b: T- a* \8 W# M1 ]* D
    }, Open  ]],$ j* k8 o+ _  P; `& ]

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

    : {4 ?) _; T$ U! k% e8 k* zCell[BoxData["y10"], "Input",2 D) `% \" k( ~( D' p' c
    CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
    0 R5 n8 q- o: c* h- k9 [  z   3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}],
      s5 ?, i- C3 |4 g4 M; p9 A5 u. v$ j: E' E
    Cell[BoxData[. @# u; k8 L, n5 E% A" V: a. J& J
    RowBox[{"{", 0 f; U& x% O# R
      RowBox[{
    + c: ?2 c9 H( G$ s( d3 I8 h  "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",",
    - K3 ]; q' g% e( D7 H2 z   "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",", 0 I( I- Q0 y5 l" V: A' ]8 K% O) f
       "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
    + x  a6 E% |+ z   "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",", . {  X+ f) ?) J$ G0 b3 f2 O
       "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",", % `5 J' }5 F0 |9 X: Y$ c, {! X
       "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",", 5 z. A, A0 ?' F( D/ T. }9 c" @: ^
       "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
    7 v$ a7 i. t0 X# u3 Y+ Q   "0.694935`"}], "}"}]], "Output",
    : I) [2 ?7 ~( Q2 n- j' z CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, ( Q/ \$ j: d' X, \3 u8 K3 `
      3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9, & d! {1 i* P0 m+ A
      3.5779621736734805`*^9, 3.57801236071875*^9}]
      w2 w+ v- ^* i* |5 D: F3 v1 ?}, Open  ]],
    & W2 E. d1 R# d) E- J! e+ C) s
    6 o# l% K& [4 a7 i  C- T3 LCell[CellGroupData[{+ F" Z8 F7 w7 g" E

    $ {9 q  e( Z9 gCell[BoxData[
    4 n) H1 B, ]$ L# l9 j RowBox[{"y10", "=", . e6 y) s/ h0 m- P& [! h4 m
      RowBox[{"{",
    2 n" i8 r. w: s! ~4 I; R  _/ E   RowBox[{
      n5 \% [: k( {: H   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    , c' F+ Q" \; d8 D: D* M% y7 ?    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 B- U' r" s; H$ ]/ o* R
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    2 v7 Y+ V/ n' a- n* b% R6 s4 k- N    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
    & {9 _% J+ V' B  i5 G( y    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    / F: o$ n  w1 A! K    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", # I' e+ o! N& F# o) E) h
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", " r) O# V- q0 t- T9 Y! u/ i
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    ( g) E0 s% a3 R* U3 J" t, n    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", 7 e; J, M9 X7 F. {
        "0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", , Y7 n4 F2 M3 x8 [. u5 m
        "0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",",
    9 z; k1 W9 H" Q0 w8 g8 Y    "0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", + t' n% q  g; I' Z
        "0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",",
    9 I/ P, u0 e/ T+ L    "0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",", ! i+ Y0 C. t4 c( m* y" S  j3 ^
        "0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",",
    + M7 j. V, E4 A    "0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",",
    9 i* p& c$ M+ T# i- j& @    "0.390754`", ",", "0.694935`"}], "}"}]}]], "Input"," j; w9 `+ p. e" @3 n
    CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],1 I- M) ^" l+ R7 j" u
    ( b7 V0 [5 h# e& @* r) D5 S+ T
    Cell[BoxData[0 R# _2 y0 `+ Z5 l7 U2 L$ z5 T
    RowBox[{"{",
    # t. Y% w) u7 T4 l3 e0 T" g& b  RowBox[{
    ) U# B4 {8 Q( w& P  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 6 f9 q! K1 K6 [! Y8 E% m1 g
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    2 d2 V! Q( l4 P# R    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", " e- @3 }; c7 G; S1 L
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    3 z! d, Y' [$ V% w  Y/ i   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", , `% k/ f2 H$ q- [
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 5 |8 m7 v- M$ a# m1 }& i4 v
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    ' i) B" o  ^- |' V   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
      P. y- }6 F$ o: R4 K% e. y   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`",
    7 a6 ~% M: x* Q! r/ b9 U   ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", . G9 G9 J5 w! n! }
       ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", 6 }- a5 p0 z9 ?# w( g) ?
       ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",2 \7 J6 z  [3 i- A5 a% t6 G4 q
        "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",", & R' H, S4 d  z4 L/ E0 \4 O
       "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",", 3 x, E' c9 u  [# u! {
       "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
    - W0 n0 o! K& p2 J+ B   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
    * C$ ^! M9 q( C+ N   "0.694935`"}], "}"}]], "Output",/ j  \9 p, z0 {
    CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9, : o8 H. ~+ a5 X" E/ d, r  N( s1 n& c! {
      3.578012361734375*^9}]/ z$ m, w/ W6 V9 Y: W* ~/ f
    }, Open  ]],
    , L9 `' W3 f" i3 }. |4 R8 X! B' m7 W, S" i! }6 M/ T# v1 |
    Cell[CellGroupData[{% y! m) w8 E" @/ ]. u

    7 ]! Y$ ~; `0 t8 ]. f- Q, U/ wCell[BoxData[
    0 b: y# e8 v. [ RowBox[{"p1a", "=", * M% H& \0 E% ]& z
      RowBox[{"ListPlot", "[", 4 R* g- n6 }! {8 U. G7 f. [$ d
       RowBox[{"y1fit", ",",
    ; D' p- U" _$ @$ E8 \; I9 z  Q    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", : j4 x% d1 |3 V4 `
        RowBox[{"PlotStyle", "\[Rule]", 7 A' D) I# ]' K' h+ D7 k
         RowBox[{"{",
    + e0 |8 x! [3 \1 f% W( G      RowBox[{"RGBColor", "[", - t; k% ?, ?9 A$ `
           RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
    3 m; }' d' Q( r    RowBox[{"PlotRange", "\[Rule]",
    # V( P* g/ B: y  y     RowBox[{"{", 6 E. G3 g; {. f, L" v5 J
          RowBox[{( E' Z/ e7 i2 D+ I( t
           RowBox[{"{",
    5 i1 z  W  H2 c$ c        RowBox[{"61", ",", "89"}], "}"}], ",", : x7 i+ N8 K* A. ?5 S& @  H# y5 `
           RowBox[{"{",
    * j) I7 W( \, V0 P" I, b- m# r, c        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    ! i4 f- a6 o  ]8 z, K: G    RowBox[{"AxesOrigin", "\[Rule]",   _: p" S+ p# G8 d. l$ Y4 z$ `7 w  H$ }
         RowBox[{"{", - r* e, i5 |$ S: c+ p& r/ O" i
          RowBox[{"61", ",", "0"}], "}"}]}], ",",   Q2 `# s1 _4 _# c& I2 @+ }
        RowBox[{"Frame", "\[Rule]", "True"}], ",",
    % F; h0 z& ]( n" j% y9 f: I    RowBox[{"FrameLabel", "\[Rule]",
      {- [( N* O5 G. V9 F     RowBox[{"{", % w/ t- y! }' w/ U; s9 k' @2 c
          RowBox[{
    6 |5 f! B7 h% {9 \# x) @+ K      "\"\<\:7089\:6b21\>\"", ",",
    # t! g. b% a6 f0 `       "\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\+ K5 O: T% X! ]6 u$ c8 a
    \:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",. |8 \% x1 ]5 |9 T  T
    CellChangeTimes->{7 w+ T/ p- ~( D) t/ C* `
      3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
    8 i5 s5 X& o+ z, y- D   3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9,
    . u% F5 K0 u8 m' `  ?& ^, S   3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {
    ; f  U0 u1 \9 Q& E/ z   3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],
    . A8 d1 V/ @: I+ U/ y
    * e/ @1 e" P, I; A% wCell[BoxData[3 [- Y. l! x  p/ d/ _7 y
    GraphicsBox[{{}, {},
    9 F2 l; W7 q$ z& f2 \1 ?, v   {RGBColor[0, 0, 0], LineBox[CompressedData["
    3 @+ t4 C- V% w% K1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
    8 @/ F7 b- y; D: Q8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
    % C2 f6 ]2 H" DD3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
    " P; G3 [- _0 ?4 i/ c( R2 o) y1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX0 N7 v# h" O. I* b( V
    C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN
    , x: D+ i4 {* O0 y, |/ H  z0 T6 Ka2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff$ O' U9 g' a0 U
    yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
    2 B( s" Q$ J' \( B; D; B  ]wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59+ ~$ H9 s; J! i+ R
    Y6nGQ3sAieueIw==
    0 c( X' y7 X* }, R6 {# _/ s     "]]}},
    : V5 n7 X& p) U: k$ J. I! {3 q) V  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],- d# `2 @  o8 O- A) x" j7 F8 h7 d
      Axes->True,
    2 N. d* [# [: s" k2 A. @/ x, r  AxesOrigin->{61, 0},3 P, G, [! ^3 c5 I. l
      Frame->True,
    , o0 e& I* H8 m  FrameLabel->{8 c( p1 h0 B, I
        FormBox["\"\:7089\:6b21\"", TraditionalForm],
    * `: H0 m; I( L1 S- E! ~5 h; Y    FormBox[
    / F& q0 }, q5 X6 i. p    "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\; Y# \, Y3 i% C% T
    \:ff09\"", TraditionalForm]},  X: V' y/ r6 Y: e
      PlotRange->{{61, 89}, {0, 1}},* |1 e* U+ S+ Z1 m: h* ]
      PlotRangeClipping->True,; K. g& l9 T, J4 Z
      PlotRangePadding->{Automatic, Automatic}]], "Output",# O$ _7 a; ]8 Q
    CellChangeTimes->{, J5 }2 \+ B* |  i" \( t
      3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9,
    ) q( x1 k0 Z1 O$ ]2 U' P1 v- B   3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9,
      {* o  N% `5 Q! T( k3 i* L   3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9}, , e$ H3 P9 i4 {$ p
       3.577962187510705*^9, 3.578012396921875*^9}]/ H4 h3 P& ?# S* J& H
    }, Open  ]],% O3 U8 _3 N% Q! A4 U
    . v% b. g: {1 Q
    Cell[CellGroupData[{
    9 P2 u: |: s7 v9 r
    5 r8 o6 |2 v" ]8 I3 XCell[BoxData[0 z+ J# H7 r5 Y% O2 S8 p* p% h
    RowBox[{"p1b", "=",
    5 v0 f2 I4 n/ S  RowBox[{"ListPlot", "[",
    1 |4 d3 b* O  J, g* K' K: h   RowBox[{"y10", ",", 8 r( Q3 W9 _: v' |5 R; U0 ]
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", 1 L) j+ H! }1 ]5 ^7 c/ E2 B
        RowBox[{"PlotStyle", "\[Rule]", # R  F% i% `+ {/ h7 B3 Y# B! X
         RowBox[{"{", & _0 V, h# q3 S0 U, s+ i
          RowBox[{8 I+ h. h% ^/ h/ _) e4 S1 `
           RowBox[{"RGBColor", "[", " a3 B9 I3 X: s
            RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}], , R( ?0 V0 e' m+ a" p
        ",",
    5 w6 K- F: s! D3 m4 K% W    RowBox[{"PlotRange", "\[Rule]",
    " l' T: ]" o4 L& m) c/ x- |     RowBox[{"{",
    # {4 ^' x6 w4 G+ B) b      RowBox[{+ r0 F* `0 K4 {5 j4 B! M8 s
           RowBox[{"{",
    3 ^$ ^3 H' a) d0 V3 ?        RowBox[{"61", ",", "89"}], "}"}], ",", $ d, c5 p1 [* E4 N. y
           RowBox[{"{",
    ) h( _! K8 Y, ^% L) X. F4 s        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    + q3 @2 |1 }8 l* Q    RowBox[{"AxesOrigin", "\[Rule]", # g7 x3 l7 |+ S
         RowBox[{"{",
      w3 R9 A3 H1 J3 H; q3 u! j/ ?& K$ S      RowBox[{"61", ",", "0"}], "}"}]}], ",",
    , J, n9 e3 z# b# I    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
    9 z8 N8 L' A  {6 V0 X1 n CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9, $ e" D# o. [. Y4 X
      3.5779597764166365`*^9, 3.578012409265625*^9}],5 K, w9 V/ O" T; k" a5 h8 b- G
    3 `7 L% x6 X3 h0 k" X& D
    Cell[BoxData[
    2 M5 k8 I6 j) c2 E; J0 [ GraphicsBox[{{}, {}, - Z; q, h# q+ Q# E0 ]: _" a
       {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["8 g1 z* _& c, J( `7 i0 O
    1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
    / o5 \: Y/ V2 W$ I/ n1 T  r/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
    ' V$ k. w5 }, E9 eGwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy- \6 P2 a# x) b$ T0 v: o1 A
    GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy5 f/ H1 q0 M, x7 I! X, }( {; Y
    7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
    9 C! l2 L5 _$ Q; L& fQu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri1 C3 {  ~, T; Y) Q
    H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV( d! L$ T8 ~  l7 r; F% U# F( \
    rQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T7 G1 O8 ?$ U( e- V
    vA==+ q% d2 w/ P6 Y$ Y5 X% ~9 y' n  d
         "]]}},
    / L8 H4 J$ Z0 S/ w+ R* i; S5 @7 V) r  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],0 ~' p4 F, v) e( x& O
      Axes->True,1 `  _  g4 F: B- p1 f) v/ |
      AxesOrigin->{61, 0},0 I) N5 [8 [/ ^* J6 D
      Frame->True,
    + [4 F% i: z" n0 Z  PlotRange->{{61, 89}, {0, 1}},6 T! A& i9 L' K9 H2 p$ g
      PlotRangeClipping->True,& l/ ]3 [6 F; j) u
      PlotRangePadding->{Automatic, Automatic}]], "Output",. V1 j. X5 p; }
    CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9, 4 }- {5 [+ w, \' c5 X8 _7 V( X
      3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9, 7 a5 N! t  m% Q6 B
      3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]
    : U+ z' }4 [1 D$ z}, Open  ]],
    + b$ g6 K% ]) H
    ) v) y) t4 q/ O6 h/ MCell[CellGroupData[{
    9 H3 z* E4 a$ M7 g8 C2 F; M! L- P0 Z( s( B4 s" ^7 `) @
    Cell[BoxData[2 ~6 b/ v5 @+ n! W/ ^2 P8 a
    RowBox[{"Show", "[", : |# Y# j! V5 Y, c2 C6 P
      RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],
    & ^  D0 H' |$ d4 v
    ( d9 o# i% M8 J6 [6 Y5 [6 FCell[BoxData[
    % P8 r6 l9 K: v* ^! W. S- i GraphicsBox[{{{}, {}, # ]+ H3 @% w$ B3 Z$ D0 M# Q
        {RGBColor[0, 0, 0], LineBox[CompressedData["( }5 e! U; H, ^0 f9 M$ F3 H
    1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn  v/ m! r& J9 o
    8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
    % ?1 w3 Y. Z4 W" R! L+ m) G: c/ ], qD3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B1 J8 R5 Z* C9 E
    1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX) W( f* B/ t# _3 _
    C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN
    6 h- f  L0 d- A1 P/ Q: g1 m6 ?a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
    7 _% ~% k' y/ i" L1 i8 I. nyqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb* f, }5 X5 E/ `& }3 \, Y
    wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59) w9 A" R! Q, L+ \! a( v# M
    Y6nGQ3sAieueIw==
    ! [; P3 s$ k  [' Q7 V2 N  d, B& a: Z      "]]}}, {{}, {},
    7 _* D/ b% n8 O7 `$ T+ g/ ~# Z9 ~    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    ' R/ `5 p; x7 z; W$ e# D) p1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ8 {1 E% s, t4 B9 S5 Y% }2 h
    /B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
    3 c% z; k" E% x6 D( O. W1 s! LGwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy1 N, `6 [8 H, a6 x
    GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy$ b$ J& K# u8 n+ W% Z7 v/ g
    7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
    & W, ?6 p+ F# qQu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
    / G6 [- V, ^7 r  _% yH+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
    1 u2 Q6 @# C7 [rQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T4 U: G4 a) x5 b
    vA==7 d8 G0 X) ?8 x0 ?- T$ k3 }
          "]]}}},
    + U. R, T4 u( w4 Y. n% ]$ {# T  v  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      X& p- F2 h! V$ v2 f/ T3 N  Axes->True,& `7 H- t( Q  N1 ?1 ^
      AxesOrigin->{61, 0},# I6 {  b( w( l
      Frame->True,
    ( ^2 A; Z/ T$ n  FrameLabel->{
    3 I# a! Y# U: @7 L; u    FormBox["\"\:7089\:6b21\"", TraditionalForm], . h/ h: n; J0 ]; d3 b9 o
        FormBox[
    $ s8 G; V6 I; ]7 Z1 l( |7 s    "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\0 @  ~  i/ F7 B+ j$ j
    \:ff09\"", TraditionalForm]},8 \$ y# |6 v0 P* n8 h: Z" d
      PlotRange->{{61, 89}, {0, 1}},
    " K6 e% _+ i6 V0 t0 F1 I  PlotRangeClipping->True,* X0 \/ p6 h: j5 i6 u. x/ P: t* \8 f: ~
      PlotRangePadding->{Automatic, Automatic}]], "Output",
    1 W/ H2 z# k, M$ q CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]3 r6 x: v2 O. R
    }, Open  ]],( ~7 _+ a% O) c4 ]+ `! Z* T- O# I
    , g5 N; i* \7 ?( N, `
    Cell[BoxData["\:62df\:5408wi1"], "Input",* l' Q. b. s' ]. i1 s0 |4 |
    CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}, & d. [2 ?; L3 S) M& |0 V
       3.577959662349238*^9}],8 d) R( ?2 q8 f. X1 M* o
    4 h% n8 l- @1 U- S3 x) r  p: Q
    Cell[CellGroupData[{
    ( X, E7 ^- T0 R! d. l
    - ]; x( I4 c  U* ICell[BoxData[
    - P% D) ^. b2 A9 r3 d/ b8 |8 J, o% |# R RowBox[{"y1b", "=", : G3 Y& W+ W6 _0 u6 C6 H$ m
      RowBox[{"Table", "[",
    ; Y. H  u, q2 z  C1 F   RowBox[{"x", ",",
    3 g3 u8 s& L# F  H/ J9 E6 r; }    RowBox[{"{",
    : Z3 Y4 y( F; ^( z5 C     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    ( m: H4 j" C2 @7 i CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {* i. _+ \# T2 z/ E
       3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}],: C' j# a. Y; c  l
    ) y" d8 o5 f7 g4 S1 |0 Y% N
    Cell[BoxData[$ z5 C+ w. E' S7 h, F% l* j* U
    RowBox[{"{",
    6 z) C) v& ?2 u1 ~7 h  RowBox[{
    ) p) p9 l3 `4 f" z% a  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; w  W4 e7 @# o! P4 v   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",7 z! O: {% j" Q, V! R$ O$ T
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", . C: c! x! U: z9 l8 _
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 7 J1 w% V- N+ x1 J$ J) i# t7 G
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", : h* M( D& j/ B4 U
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 5 _: A& C( X, D% B
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", % C/ Q5 J+ Z* d* T$ D. ]
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    ) d" b5 L0 G! N% V   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], " }, O6 v2 X8 a, |' ~
      "}"}]], "Output"," S( h, ~) K% ?' Z
    CellChangeTimes->{
    6 ?' z; s" @- m: j  X1 N4 x  3.577922682296875*^9, {3.5779582291435394`*^9, 3.5779582351339493`*^9}, 4 S7 `" F: w0 K! @  `& f; t5 D
       3.577958478041973*^9, 3.577959010205701*^9, 3.5779622225483656`*^9,
    ' t( J, f) P1 a& g5 V6 o, ?   3.578012438953125*^9}]- B2 X+ w- o1 Z6 }4 L0 r3 O
    }, Open  ]],# X0 I0 O* F6 t4 K8 F4 u

    3 r9 O& Z. p( f$ y5 @5 W+ H) P& aCell[CellGroupData[{8 [( u6 C. O2 C( z$ z
      Y0 ^& E) k: J. e$ K/ y' |
    Cell[BoxData[
    / U% f5 U) \3 z* y; y- f/ `9 l7 m& q RowBox[{"Data", "[", ' W# o+ ]3 Q; [* ?& y  N
      RowBox[{"[",
    + K! N% C  y  m# l8 W2 `   RowBox[{"3", ",", "11"}], "]"}], "]"}]], "Input",+ B+ _4 P5 n  l8 r; a. ^& _3 s5 t
    CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    9 j1 E5 {6 M: T2 ^6 x% v: P1 P2 f   3.577922912015625*^9, 3.577922912171875*^9}, 3.5779582414831605`*^9, {) j4 G% N1 {# z% d  B* q
       3.577959014090108*^9, 3.577959016040111*^9}}],' o. m, R& S* T+ Q4 q+ g

    - ^4 ]+ q3 e# f$ K* xCell[BoxData["0.492958`"], "Output",4 \; i3 z( p: e/ }% f
    CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
    9 X3 m$ j1 p/ W% a9 U1 o   3.577922913203125*^9, 3.577958242809163*^9, 3.5779584790403748`*^9,
    8 D# N/ w$ b# r* v# r   3.5779590175689135`*^9, 3.5779622239523687`*^9, 3.578012439828125*^9}]
    , O* s( a. ~+ X& r+ i}, Open  ]],5 u4 T7 I6 ~$ f1 n" j4 \0 N

    . T- j/ j( {2 Y5 Z% JCell[BoxData[
    0 M' e0 N. y* V0 }% D6 f RowBox[{"For", "[",
    , r; v* R/ F# ]$ m& W9 C  RowBox[{
    ! `' e1 D* c( v$ `5 s2 w   RowBox[{"i", "=", "1"}], ",", . M: r( @8 F2 q! T
       RowBox[{"i", "\[LessEqual]", "60"}], ",",
    6 L- V0 F0 m2 Q# |  a. @5 w) f) o! V# Y   RowBox[{"i", "++"}], ",", 2 U  U8 |' a$ w1 J8 [& p3 ?& I% m
       RowBox[{
    : C& d, _6 a% o" ~    RowBox[{"y1b", "[",
    $ J) K4 F# Y4 l1 B     RowBox[{"[", "i", "]"}], "]"}], "=",
    " f9 F8 C" T, |$ S7 t3 C  ~  }. l    RowBox[{"Data", "[", ! I9 T# y/ i" `. R" g
         RowBox[{"[",
    5 |& c: w9 o) p7 n2 q$ u# g      RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
    # G% O" H" }& r/ ? CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    9 e- F/ b! y( B' y$ @, G  A   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    7 D# }1 f5 I9 G$ q   3.577922923203125*^9}, 3.577958246272369*^9, 3.5779584755771685`*^9, {
    * W; Y6 P. F0 T$ m* x9 y. l* T& s   3.57795902089172*^9, 3.5779590227793226`*^9}}],
    : S# X. ], k+ x* G( g
    7 f! U  E3 f9 \7 \5 p8 ]+ oCell[CellGroupData[{- H# t4 ^  k7 m4 U4 s7 @8 [
    & [4 \0 y# ?! a3 G. U
    Cell[BoxData["y1b"], "Input",# X; {4 z$ V3 b' _, f' G5 B8 O
    CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}, 4 x7 `( ^& s1 K1 j
       3.577958484172784*^9}],
    , `1 m0 y+ {/ ]0 V* R. v3 o3 |1 L7 b. i; X5 F
    Cell[BoxData[5 j' Y7 k& c' |) S  Q
    RowBox[{"{",
    / m) ?8 S7 k: r2 G  RowBox[{, ~% U( J9 E2 ^, u, p
      "0.873239`", ",", "0.464789`", ",", "0.492958`", ",", "0.774648`", ",",
    8 M% _6 ]# q& }3 _" m& X+ M% R   "0.380282`", ",", "0.647887`", ",", "0.56338`", ",", "0.295775`", ",", 2 }" x7 D3 p3 M2 [  k
       "0.338028`", ",", "0.211268`", ",", "0.690141`", ",", "0.43662`", ",", % g2 S3 [1 k8 A' o
       "0.`", ",", "0.267606`", ",", "0.211268`", ",", "0.408451`", ",", - ?0 |' _* v$ H; V9 s
       "0.478873`", ",", "0.380282`", ",", "0.211268`", ",", "0.43662`", ",",
    8 d8 k' ^) E$ ?9 ]& ]; q# r   "0.478873`", ",", "0.295775`", ",", "0.028169`", ",", "0.43662`", ",", : \' P/ ]: h. N. @+ I' H+ h
       "0.394366`", ",", "0.295775`", ",", "0.830986`", ",", "0.169014`", ",",
    ! f0 _# @1 p  l5 `* [   "0.366197`", ",", "0.309859`", ",", "0.352113`", ",", "0.309859`", ",",
    ( X4 x5 D: l5 s   "0.774648`", ",", "0.422535`", ",", "0.887324`", ",", "0.887324`", ",", 3 [- a7 L$ |( J
       "0.859155`", ",", "0.239437`", ",", "0.295775`", ",", "0.746479`", ",",
    " j; y2 c8 y8 K4 d) g3 [   "1.`", ",", "0.549296`", ",", "0.366197`", ",", "0.549296`", ",", 8 g# {8 w8 N" F* L/ `+ |% w
       "0.577465`", ",", "0.690141`", ",", "0.71831`", ",", "0.521127`", ",", & S/ y3 S* |! P" Q  C4 a  T/ _: \) Z
       "0.929577`", ",", "0.521127`", ",", "0.338028`", ",", "0.380282`", ",", " G/ u7 `( K/ m& }5 r/ u
       "0.676056`", ",", "0.591549`", ",", "0.464789`", ",", "0.295775`", ",",
    ' Z% N1 p7 g  m3 x3 [   "0.380282`", ",", "0.211268`", ",", "0.253521`", ",", "0.28169`"}], ) n# x7 A) p4 A7 e5 h
      "}"}]], "Output",
    . p9 Z! F3 \3 c6 |( i+ { CellChangeTimes->{3.57792293246875*^9, 3.5779582549771843`*^9, * v8 w  @7 a% f8 G
      3.577958485420786*^9, 3.577959026460929*^9, 3.5779622288195767`*^9,
    + G) |* S) f2 V) ~7 l  ~+ G  3.57801244275*^9}]- a$ N9 {8 G7 L: _  Q5 c- j( p9 H! x5 x
    }, Open  ]],
    / Z& D* J% R. Z$ Y. i: y0 ?5 J5 G6 b) c% z0 [" I
    Cell[CellGroupData[{
    & U9 C) B7 H% h- ~  d5 A: o
    4 x- ^- Z9 q, r3 t+ dCell[BoxData[( \9 |2 r( F0 p- G$ T+ K# L* c
    RowBox[{"m60n21", "=", ! [$ m, `2 ?/ M4 W& I2 @" C! w
      RowBox[{"Table", "[",
    0 A1 F5 M3 E+ ~, {   RowBox[{
    ; s+ {5 j( I. G& X7 i" N, i    RowBox[{"Table", "[",
    " s0 B, W" z5 J9 S     RowBox[{"y", ",",
    - R$ J; ~. e! H( }8 K$ ]+ u      RowBox[{"{",
    . T- p6 G2 n5 p" g1 h1 l. Z       RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
    - v2 K! i9 J) L) x9 T    RowBox[{"{", 8 b1 ]# _* ~  k
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",2 f* f( T! I( s  x8 H
    CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {$ I# w- W0 q# |' F8 u" u- R
      3.577924052828125*^9, 3.577924101671875*^9}, {3.577962237961193*^9,
    ! [2 |2 K+ s) [  3.577962240082796*^9}}],
    1 P% n4 ]) b, S2 z$ |4 N2 u+ ]* Q" d* l6 F1 t
    Cell[BoxData[
    ' [+ S6 M+ r9 M* }* L5 H. J RowBox[{"{",
    ! C6 W1 D. |' d' X% Z. s6 e) |  RowBox[{( `+ x0 ]) l9 g3 w. n- s
       RowBox[{"{",
    4 X6 H1 B: X  Y0 ?2 ]2 E9 Y8 F4 S    RowBox[{
    - e  B# Z5 q; m1 y( i* X    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; g7 s/ P) z) T& a) D3 Z9 {      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ) f: ?  v- S# O6 ?! q     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    6 P( w) a4 o. b( f) ~3 p     "}"}], ",",
    & ^' d9 q! P) ~; }; C0 G   RowBox[{"{",   T* a2 G+ B  c3 ?
        RowBox[{& I8 J6 e( v  F
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ) F  J* X, Z6 V# R) a      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   B2 P8 h7 g! s2 D: E, q
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    # V5 `/ v# ^# A" b4 w( q     "}"}], ",", # o6 \, p: {- l! X+ R3 ~, ~. j( E
       RowBox[{"{",   \+ k4 o$ i* B2 i" \
        RowBox[{
    # e8 v% j9 z  _    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 g! G* ]2 `2 R$ g0 ], ~      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 H: P- e/ b8 t. L" m/ O* Y     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 `8 B  q# i( Q8 S% P
         "}"}], ",",
    7 r! z1 [+ Z, r6 C- Y2 M   RowBox[{"{", # e) r- f$ e6 t; E! t7 g5 s
        RowBox[{
    " Y6 n# M% N6 S, h) v. i, M! g    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    / ^* q, o+ t; V* q  |: ^4 S$ `3 E8 a      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! }, q8 \- h9 o. y     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; b+ n- t; h# b# M
         "}"}], ",",
    9 P0 I" Z4 }7 Z) O   RowBox[{"{", 9 j% G1 P7 L  d- a( `  I0 d7 k
        RowBox[{
    " y- a, V  r7 ?5 f; K" K# s    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& m" w4 G0 q" g6 _/ f
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   E/ C% @4 Z. q$ B; ?
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 U" \5 z; m& B. K* W5 R
         "}"}], ",", $ T/ _" f( G, m
       RowBox[{"{",
    3 i6 Y0 L1 N% J/ [9 V3 _    RowBox[{) x/ R2 z; `$ \& }
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    " k2 g7 ]! {! H7 s8 n7 I+ m- I      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 J  P8 k( h+ }$ y# J2 ?7 o
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    , \6 f# F+ ^! h3 d% j6 C     "}"}], ",", 0 p7 {7 u7 @' z  p* S9 v9 h
       RowBox[{"{",
    5 f' V% Y5 h) N) a7 X    RowBox[{
    " S8 ?# t: U. q3 H& Q    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    # w1 q$ b# o* n2 N2 V3 `$ i      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    % ]8 u4 p& k: }: \' [0 s0 K6 f  Y0 E     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    6 H* M* D& `+ f     "}"}], ",", $ M0 t4 L9 H3 s4 L* G
       RowBox[{"{", 0 ], U9 v% C/ P
        RowBox[{
    # C5 C! l% b8 b. a$ |7 G# V5 H" e    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- L8 m% g& K5 a
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    8 v3 x3 H9 ?$ L& j     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ I3 A2 c8 {: ^4 n0 J  B% W
         "}"}], ",",
    / d  j1 |" c' B. z2 W   RowBox[{"{",
    0 k6 [5 z5 ]$ K7 H6 t' Y, n    RowBox[{4 H3 D5 r% B; h: {0 I
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    5 u! n7 b$ o* q( \- V: w      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    , D1 Z" X6 @: m8 p     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ C' w! x8 e) j' ^% d/ P
         "}"}], ",", 7 E0 R* f5 O# Q7 k
       RowBox[{"{", - J) ?5 M$ E" r0 E" d; u, \
        RowBox[{) I' F( n: D. u6 e" i
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 N; L- p2 Q% b; V" g, U      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 W/ M7 M5 i- l+ x: F- H. w9 v; k     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    / S& K$ N9 n" z) U     "}"}], ",", ) e9 [- u$ n3 ?8 m: _& M$ k4 {
       RowBox[{"{",
    . V$ w* M* c1 D1 F    RowBox[{  _+ P% J2 ~, c8 t+ L( p
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 X9 T0 d3 O( D6 T      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 T& {: ]1 h; P! Y0 y
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ( O) O9 ]- Q# a3 O- x3 b  B# x     "}"}], ",", * D. s% E2 v& B
       RowBox[{"{",
    * S/ V  n$ i" N+ ~    RowBox[{( i) C: G& N) H5 W
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 Y; T, J! M3 A5 W- C, |; e
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( j; O- W. b3 X' f( T
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    % z3 B( i7 |1 d7 W% t: A2 i     "}"}], ",", 6 R2 W! Y  @' }" M5 S+ S) U7 P6 X
       RowBox[{"{",
    1 K, Z8 m. w1 v) t0 w5 m    RowBox[{: O% H, Y# O" {, M
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 u3 s$ `* D( G
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    & A$ B( p9 k' U     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 Q4 O+ I* a3 c6 _$ ^/ X6 P/ r9 u
         "}"}], ",", / M; o% K( V8 ?3 h; ^9 U' G3 J, A
       RowBox[{"{",
    / g; E: c# _5 \# t    RowBox[{
      a* M+ ~$ I2 o! h    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 K) q. L2 f& u" b
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    7 h# H2 \& R. k' [! b     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    / ^7 z7 x$ ?- Z: O& Q! ]  i     "}"}], ",",
    ) \4 R! M3 h" k9 y+ r- s& A3 p   RowBox[{"{",
    6 o; P7 l  f7 X$ _9 [    RowBox[{
    * g8 L. e+ [% L% ^# _% B8 \) y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& c' p( K8 I2 {" f$ t
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) p# Y" x  e& X& [& @7 A
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 D' Z& L- B& G3 Y4 L
         "}"}], ",", 2 M4 C+ J, p: q: V
       RowBox[{"{", 7 h' h. z' ?+ [+ Q% q& s$ n5 r
        RowBox[{
    ( h4 k/ U% N- }0 ^0 B" f) o/ j    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    , w6 z4 g* |  {" [      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    * d! k; `# n' T0 G' j& b     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' c8 m& K! o: @$ M. L; q$ m  }
         "}"}], ",", ) \- ^; H+ D9 w7 r  S- T
       RowBox[{"{", & m: L. [0 s1 E. T! E
        RowBox[{# M' q+ s2 H, g+ I
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ R( H5 |3 ^0 @
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) l/ s% n2 y# {0 x8 M7 y) o' g
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# O: u  N( f8 u1 N6 n! }1 y* h
         "}"}], ",", : P1 j+ U$ T- e$ G. T  i! D
       RowBox[{"{",
    , h9 }3 w# M  |. Y9 E+ P    RowBox[{
    , i; o+ a1 ]+ d8 ?; z4 w& d    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 l8 k3 `8 [/ u
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , E# Z; s# i/ N$ e% Z
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ C8 p, V1 J  K* y
         "}"}], ",", 9 a6 n$ K4 C8 J, Z! U: Z# Q
       RowBox[{"{",   N& L5 @" c$ Z6 F4 u
        RowBox[{
    " Q) \  y: s1 {) h4 q! F1 H    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ( T9 j  ]/ j+ W+ N      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    0 z4 L1 D3 m! G2 j* ^     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    - O) I' @1 @3 w; N6 ]" W     "}"}], ",",
    + i) A8 j' A. i# {+ _   RowBox[{"{",
    % e/ M) a7 m- @! ]6 F/ C, a    RowBox[{
    + b) Y/ b1 l8 _. T    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- {9 C# t* M2 C
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 p; e6 q" v8 r
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; e' X/ d. n( T, ^: v/ y$ b
         "}"}], ",",
    5 J1 o. k, R6 g3 ]! Y   RowBox[{"{",
    7 [3 \+ Y. I7 k4 f  W    RowBox[{
    3 V* q, y* O3 f2 R# f; i* q    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) u/ p4 U! y, F8 g- P
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 W* H  P; H5 ?% q3 g. A! L
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    $ ~+ s* v- c" x$ l: a$ \- t     "}"}], ",",
    : |* B% m* V% Q0 H* X: U   RowBox[{"{", 4 k: ?" q4 \, a+ z" h
        RowBox[{# U' P" C% L: ^2 J1 o
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    + v/ W) g5 r! A6 l      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' M" B: ?9 _, \+ H* a' O2 V
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    1 _# O) I' M& K  i6 ?% d7 e     "}"}], ",", # A9 `9 z! v7 y* Z9 I5 a8 Q1 z6 D
       RowBox[{"{", 4 t0 A% V7 Y3 B
        RowBox[{% i( _9 A; B9 j. V
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    4 y1 \0 T; I+ q1 N' x& |      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 N, j: B) m6 j0 A4 @* x$ ~& r     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    3 I+ D0 e7 {7 Z. ~$ y     "}"}], ",", 6 d* x2 p# _: V0 x2 `/ j: |) X
       RowBox[{"{",
    - |. B' d. }8 A+ [    RowBox[{: d. l" v1 u& D5 X
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! Z8 t. {: _; n
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 i! w; [5 G* o; o7 h9 y     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 V( P+ T( b9 O2 A
         "}"}], ",",
    8 B8 g; K, D3 b6 u! n0 [   RowBox[{"{",
    3 ~1 g7 ]& l8 a% W! W8 M2 W    RowBox[{
    * y$ n% I: o" q8 j+ s5 C, a    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    5 V) O, u' [5 x- G      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 h+ x: D( m; r; Q& y% b* A; v6 n! e/ i
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 C5 A, H6 X& v# K# \' P
         "}"}], ",",
    " W* _# m5 U6 `# Y   RowBox[{"{",
    * O3 q3 T; T* D/ x  r+ Q9 E    RowBox[{
    ; |  N# g  K. o7 N6 i' c* x/ U% y+ w    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) Q* e) B$ r0 R8 c: ]0 t
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + ?5 A$ L, {" Y3 W8 f7 B
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    # L+ r2 q1 ?2 ?2 l     "}"}], ",",
    7 Y! S; d; V6 U! C   RowBox[{"{",
    ) N% S# ^( t; o& B    RowBox[{
    ( j0 ~, h+ l; q1 N, n    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 Z  o8 U. E  ^+ W& X      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / `9 g1 Z2 m5 U) W1 e8 Y: ~
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    8 v, W0 L) ^1 [6 K     "}"}], ",",
    - X8 M, O6 w( c+ h* g8 {   RowBox[{"{",
    ; y' c2 f* G+ o- q    RowBox[{% M: K- L* }" ^9 h6 D
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 Y3 K2 K5 M- g+ q& x$ n7 {9 c1 B
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    8 s5 h! ?: x2 l8 I# G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ F( {* J, ?5 k0 ~. M7 Y& S9 k
         "}"}], ",", , L$ ?% G! O$ B2 t* a) G
       RowBox[{"{",
    - _. }( g1 r' I$ Y    RowBox[{
    ; \2 ]0 _% l/ S, i' f1 d    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; q1 W+ G" N" T) |
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 v: X/ X. q9 M2 a7 ^" u
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 x; L: o: l7 O& l3 ]
         "}"}], ",",
    1 A* _  H! O* @" T% G   RowBox[{"{",
    4 q. t$ q+ \8 L8 k% g! I    RowBox[{
    6 e% V3 j- q& \' y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 f: C3 m* K" ~
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * n5 s( ]' D* f- g4 m- Y" o* c
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    % n8 Y. W$ P, z' [( m9 g9 Y     "}"}], ",",
    9 f$ Z% r! z/ G. \; b+ u   RowBox[{"{",
    ( a. ^6 P, e% x! ~    RowBox[{
    $ f0 g& N; V3 ?+ C) i4 H7 g    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& C7 k4 w3 t  _4 L, r$ q
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    0 k& z( o% D1 u# N2 j+ i     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ! _+ K' j/ [2 k3 u& G& [     "}"}], ",",
    1 \8 k+ w) [1 z* u% S4 r9 U   RowBox[{"{", 2 |' n+ [6 U0 a
        RowBox[{
    ' d" }. m7 k) X% A3 X( I    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 Y" f8 i9 O0 N9 d
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( J4 C: r+ Z9 g% W5 @! h* E
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    % H- d% k8 c+ ~" y$ L  m     "}"}], ",", + J$ F8 x" p0 K4 f6 }& S
       RowBox[{"{", ) U9 B/ c* I, @: `4 d  `6 @' ]
        RowBox[{3 k3 Y1 f/ ~7 b5 Z5 |7 Q. l0 Y1 f
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' ]5 K* l& u) h8 d0 X
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : E6 l* {( |- K* a' m
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 h: m" d" q( d* ~, C) a8 G% f
         "}"}], ",",
    : K( Y; g3 q2 l% ]( f0 x0 c* E& h   RowBox[{"{", 9 @/ A: m: K. Y$ U9 A! K2 l! c
        RowBox[{8 z$ p" b% b! ]+ D$ G% F9 E
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    , O" l* ]7 q6 \$ W      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    . q3 Y! e6 ^) L: m# ?     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    + \- K1 c5 m: w2 j4 w     "}"}], ",",
    1 S% p% ^' e7 Y: Q  Y   RowBox[{"{", # b8 {& \1 f4 |% \. W' ]6 {; W- t) s
        RowBox[{
    7 d% B. H/ w2 z- L7 C    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 w/ _- U7 o8 j0 a# \7 h' u8 `: ^
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * `7 v* y; C5 j/ ~- v9 h+ Q4 _5 O
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    9 {/ e* O& k& @' \' ?. X     "}"}], ",", ( L6 h+ z: v/ f( ]+ l
       RowBox[{"{", * l& `6 p8 N) I3 x; E. B$ l
        RowBox[{
    8 Y. o, D* @0 T. T7 |    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 E* s# y1 Z5 }% ~
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    3 m6 g: ]' a9 D, x+ k+ F: ^' w* |     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    / C1 J* f4 z& \$ S  ?. W     "}"}], ",",
    1 @$ D# ^% a6 T   RowBox[{"{",
    ) x8 n  Z- l9 z( _    RowBox[{
    # K1 O- y- l1 o- a    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; q% c( ]4 x- W4 Z" x( ~) p
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; g# S: ^8 v5 q3 j9 n     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ! t/ B8 X6 @( }/ R& ^" w4 _! U     "}"}], ",",
    ; m* D: x" \8 ]   RowBox[{"{", " n+ u- A3 f# [) Z7 d
        RowBox[{: v/ n  r3 H, y$ @8 s
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    + Y. x8 A! u& e      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   Q8 g" F/ x3 _: I
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    : U' ?, \$ j1 s$ C     "}"}], ",", + _( H! C- I0 h3 w6 l' x
       RowBox[{"{", 0 p) k' z$ F5 g* w' s
        RowBox[{
    ( F, e' U$ E+ d4 c- O; ?( z/ |# x% @    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- s" {8 I1 i; N
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    & f& S7 M2 u2 N0 Y( t     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    $ \3 W. s" j& L: ~+ H' `3 I( i     "}"}], ",", - b0 E  n# Y* b# z
       RowBox[{"{", 7 K- x9 v$ q8 [- N2 L. ?
        RowBox[{
    - G$ `( p& {7 k# ?    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; B0 C+ |4 R$ z( I. U0 t, P; p2 @      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ) `  v( B# `+ F1 f# ~     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. P7 z7 Y2 e0 v( x+ g3 m, ^
         "}"}], ",",
    0 h9 N, R# i0 Y, X, k   RowBox[{"{", ; j. A, r2 B& ^) N) ^# w0 n* e0 X
        RowBox[{2 F' \# i' m2 P' G* b$ p, H# Y
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 P5 I$ s- h  l4 }% }
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 w5 D3 X0 @3 [2 S- S! T
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    : R3 T$ r% h7 r2 U! u     "}"}], ",",
    5 g4 p$ c! o  I+ J- j) D   RowBox[{"{",
    ! h7 W4 h: U9 l/ N    RowBox[{, z; Z# g  x- I2 ~0 u  w( c
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    / x* ^$ @* s' C$ {5 f4 ^8 t5 m      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ( v1 `9 W0 a! ^& t2 e. m. A8 k     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 t9 w2 Q3 T! _$ q9 y% x# D
         "}"}], ",", 8 o4 Y" w  Q8 d  u8 E
       RowBox[{"{",
    6 m% \$ K; [; p0 w8 S$ c' y    RowBox[{
    - s: @( U$ \% k8 r/ o0 y# C" H    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    / T. h  m  W6 o' S1 x+ S" j$ }      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    3 g1 ?2 K$ U  J) S8 i     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ R9 K0 A! j( d# D: j
         "}"}], ",",
    ! g. V3 n& O% o3 Y: f& P   RowBox[{"{", 2 n; L+ d( s# ?* m0 ?% `# t
        RowBox[{
    $ e: U% A  l  F6 O9 t4 O* T    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    , f9 z1 ]* N1 |      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    & i- D+ k( Q  b     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    2 j! R$ H( Y- l% O  W( ]7 H6 f2 i     "}"}], ",", % [6 e2 w' O; g. y" u2 f
       RowBox[{"{", " Y7 Z5 r  C( f4 {" T
        RowBox[{  M  C$ x& d6 r' c  M. ?  f
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; C- T8 [" d) ^% _4 N      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    , u. h9 ?& Y0 e9 ~& x! D" Q5 z     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& V* @  @: `% I% o+ X2 h0 ^9 C
         "}"}], ",", 0 C/ X; S* O: P/ ~$ L' `# o
       RowBox[{"{", 0 B( p) X3 J- T, R1 V' L+ B
        RowBox[{" l" Q1 E+ e( s% m0 P
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: G  U. h- ~2 }
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . O1 K( Z7 U& F
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 B: X$ @9 O* ^' Y
         "}"}], ",",
    9 l2 L6 W3 e: Z+ h& Y4 w# H   RowBox[{"{", ; R' K- G& ~6 O6 J: E
        RowBox[{
    9 _$ c2 d: r7 O/ X9 K* O2 \    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ! m" L, Y3 ^5 J1 o8 D: k7 z, Z# [      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ( A' o" ?( S) p7 i7 @3 o: q) q     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ) a4 B0 n) c) W     "}"}], ",", ) W+ _- Z, G# k% m0 Z
       RowBox[{"{", : P7 G# c: w4 d' `
        RowBox[{) `) c! ?4 o9 k
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; b7 `8 S8 \, V1 Q- i      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * |! \0 ?* ]! M
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      B* V: J7 y2 N, i6 b. F     "}"}], ",",
    " n% C2 W5 i( [   RowBox[{"{",
    4 ^, o( D" |9 ^( p* x    RowBox[{, x9 G. ?( ~& t3 O/ N( F
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; |6 F6 s6 G% ?( J& X9 I
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 A$ Z$ q, W  V$ F: ?: U3 T( X6 [0 H
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( O+ D' V$ d2 D. }; O$ `
         "}"}], ",",
    8 B& _2 Z  _/ I; J+ w+ H   RowBox[{"{",
    5 K9 I) K1 w% Y    RowBox[{
    2 a9 Z% r- n8 Z% V" r. \    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    % f0 r3 |. e. F) U* `( M      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 `+ ^, u" b# A9 Z( ~% g" d% Y4 _) T     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( x- y7 k8 }) V( G
         "}"}], ",", , M* {) |3 q8 G, t$ O8 u5 t
       RowBox[{"{",
    ! W0 y: J% x0 _" \/ ]  @4 ~9 A    RowBox[{
    7 \- v& V9 o* x: h- Z( M    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    + l$ \' ~2 L4 g8 {9 p      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    % Q& {, }1 h+ ?/ M% i     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 I3 l/ O% U- A4 y- V
         "}"}], ",",
    ) i6 S& y( ]7 }6 Y/ e9 d   RowBox[{"{", 9 s. m* X5 X" m0 z
        RowBox[{
    0 {  }8 u, k- D+ i4 @5 s    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& G0 J8 ^5 d! E# b: J: }
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 y8 X, R3 e! `/ M' j
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    8 f: u0 F; E  R) n8 ^8 x2 m     "}"}], ",",
    3 O" m" E5 p: C) B: T, M, @# J   RowBox[{"{", 1 R- F, D" v1 P$ {
        RowBox[{
    3 k+ B: _" ^* I9 O, d% R( i8 ^$ I    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ' u/ ~2 k  q; G2 w2 b$ b" E      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # o, k* h, N3 o" F+ A: w! s5 r
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    / P% s  A3 q% v: Y8 W2 j/ j& @     "}"}], ",", : O. O, U  F& J5 T
       RowBox[{"{",
    * ~; P" }, ]3 j    RowBox[{
    , [8 }8 v4 V# b0 |+ ?  P0 ~    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 B+ C4 I2 t4 u2 d" P8 @
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 C5 s1 z$ H! T) m2 c, t4 |
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    0 _, I; `3 E; v. e     "}"}], ",",
    # Q5 v5 h; f& {# ~   RowBox[{"{", : k, q; R. c3 ^0 c( x9 a- `
        RowBox[{
    2 b! C1 v5 Y$ ~% S, x    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    6 b/ F; v. t3 K" _! q  w9 Y% ]      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! w& W6 K0 a/ o  \+ `8 x
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 Q; @% P8 `/ \
         "}"}], ",", . Z7 K" s: `$ j1 X+ i6 ]
       RowBox[{"{", , U5 o" l% z% q! d' X" U* V* p
        RowBox[{1 C! J0 T, H0 ^* U7 U( `" I; G
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 y9 b: z8 x( I" z1 F" n
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # b. y: ?/ d- ~7 o% N/ Y- e  {
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- a8 b* o$ u* V" c' y
         "}"}], ",",
    + C- R( m3 P# S: `) w. I   RowBox[{"{",
    0 P* _3 a% r; i& V9 Z! ^    RowBox[{0 m+ E4 I) I# e0 f5 b
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    7 s0 L+ V2 d; t+ w; ~      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    0 o% w0 N  T- G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) x8 C$ e3 Q0 A/ B0 O+ e
         "}"}], ",",
    0 W- Z; g% x# T" C9 K) N, t! u   RowBox[{"{",
    7 f! F- j6 e5 W/ g) o    RowBox[{+ h. l3 A! w& @: c: P* c1 L7 _
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 M8 W4 p2 j4 w# a. }4 F
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; v8 T. M, G9 |. I) _
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' S" K- n. A- a5 j5 x
         "}"}], ",",
    ) N; S4 E& u, `. L% Z/ d! g) o8 F   RowBox[{"{", + p6 ]3 T; S% l5 c8 y# P
        RowBox[{
      B' s, f. j; H2 H+ ~: h) ]    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 c* A# S2 F) l. c* H7 @5 I4 W* j+ {
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( }1 L' E- j8 o  E
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    # b$ N# b9 V2 ~: k; D( h) H7 L* T     "}"}], ",", ) a; Z; H, z- b. f. U$ R2 w
       RowBox[{"{", : m8 E( A) u3 J
        RowBox[{
      K9 C) \* N  ?4 ^6 D    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ( I& U% e. P) l. R3 {1 e8 s$ R. A  N- X      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . {2 K6 {  S' Y2 }# C( k- ~
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    6 n! b3 P) x* W     "}"}]}], "}"}]], "Output",6 J) O8 q! v* V
    CellChangeTimes->{
    3 t! K" `. _. `3 `6 v; H2 W  3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
    9 j9 H' J8 }* ?  v' [" g   3.5779582609987946`*^9, 3.577958492393998*^9, 3.5779590297369347`*^9, . ^( N0 e: w0 h$ W
       3.5779622422980003`*^9, 3.578012443890625*^9}]; Q1 s+ w/ c- ^- i$ i/ H$ A
    }, Open  ]],' l% R% v6 d$ @4 R9 b  ^

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

      x# E, K& Z  D  V9 L( P, ?Cell[BoxData[: M1 d7 Z$ O$ J6 [
    RowBox[{"{",
    7 h' W7 T/ J3 ~) l' j  RowBox[{
    " ?: G" D/ V, ~) u: `  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    + h. ]& d* A: D2 l/ w   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    9 L3 U8 K/ d! |- P6 z    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    2 ?* o) L+ s! {3 D   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ; s6 f( i8 n) U  C- g/ Y. V
       ",", "29"}], "}"}]], "Output",. I& f2 h6 j0 h+ c
    CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9, 8 T; |4 D# f3 B, M
      3.5779583268153095`*^9, 3.577958508118826*^9, 3.5779590470685654`*^9,
    + `+ F. u8 v; c- |8 d" l) B  3.577962320173336*^9, 3.57801245028125*^9}]
    ) I1 H) V7 B7 L% P1 S5 \  V) R2 D}, Open  ]],2 b6 y* ]- x4 h  e5 [: r

    % }/ {5 Z( n$ M5 A6 W4 i5 e! S8 B$ zCell[BoxData[
    # d' E7 W5 n$ W& r' f RowBox[{"For", "[", ) {: V8 \4 p  _, c) Z
      RowBox[{& x3 A, ?4 r" `0 B7 u0 j3 M- Z5 a, M
       RowBox[{"i", "=", "61"}], ",",
    0 L8 i; ?- K8 {   RowBox[{"i", "\[LessEqual]", "89"}], ",", ' h( O3 j3 V1 s3 m& M7 T
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    8 P$ T+ H' _5 e% ~# I   RowBox[{1 U+ a9 D) k; C4 e' ~# E7 \
        RowBox[{5 p# R1 E$ e/ [& h; W6 E
         RowBox[{"y2fit", "[",
    9 G6 _0 r: Z# v! V2 d% H      RowBox[{"[", ; O2 x9 e, V* ]; h  p. i6 L
           RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
    ) a, B8 a  n% [% G     RowBox[{"y2", "/.", 1 M- i1 E' E$ {" I/ M4 J( v& r
          RowBox[{"{",
    % j9 Y8 s  s% A8 t, H% ^* S1 B       RowBox[{4 Q8 x' n$ \" J: [# R% v$ s
            RowBox[{"x1", "->", + U% @# }$ U" C& [2 V6 ^6 I4 v0 U7 ~1 Q
             RowBox[{"Data", "[",
    ( ]& B- g, T7 I. Y/ g( L          RowBox[{"[", 5 ^: h) U( }3 T4 N! M4 m
               RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    . g7 o, U; D; G) t( q: _9 E, t        RowBox[{"x2", "->",
    ) k' k$ l; T! Z' ~' L4 K: K         RowBox[{"Data", "[", ; ]# j2 v% t/ O4 h0 M
              RowBox[{"[", ) l& Q" A  }( k% n6 v8 H: o
               RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    ) F% ~+ E8 E, f. B" G' F        RowBox[{"x3", "->",
    - M# R* y: s4 i* u. r         RowBox[{"Data", "[", 2 O% C" i5 J  a8 z' d8 W! |
              RowBox[{"[", # X# Q. D9 b4 o; N# N
               RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
    " N2 s+ |1 V; l        RowBox[{"x4", "->",
    - D/ b7 x4 ]( _7 Q( v. |4 Z         RowBox[{"Data", "[",
    ( b' E) J; E6 f! z: F3 m          RowBox[{"[",
    & ^& q5 [8 i* s$ G+ }5 s0 r1 t           RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    5 O1 o9 z" _- t8 b$ o        RowBox[{"x5", "->",
    7 {" O/ w1 ?% f7 m( _; H$ x- w5 }         RowBox[{"Data", "[",
    ; t% q9 x5 O, [          RowBox[{"[", $ Y2 n* q: T8 d: Z; F
               RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    ; S+ W1 H( n. U, e6 t! ~( k5 O        RowBox[{"x6", "->",
    ) r, f' a0 T: S2 ]' y& s0 o         RowBox[{"Data", "[", : I8 x& |9 Q- D( I
              RowBox[{"[", ' R1 k5 r; {. P0 Q
               RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ; q+ a3 g- q/ j! I
            RowBox[{"x7", "->", / ~: [- z4 b! q
             RowBox[{"Data", "[", : d% x+ n  j; |3 k) u1 s
              RowBox[{"[", ! G% z: g/ u2 m6 C' Z
               RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
    0 Y: _0 _3 T9 r9 m3 P; n% L* d4 @        RowBox[{"x8", "->",
    3 D2 p8 ?% @3 E, o2 T         RowBox[{"Data", "[", 7 p8 ?6 W. ]8 i. ~4 c) h% S: |
              RowBox[{"[",
    ' `, ^- `" q9 ?. }7 K6 b$ g* T           RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", # h+ p8 o4 {$ A* ?. x' i4 e' ~
            RowBox[{"x9", "->", 9 g( n; a- L8 I
             RowBox[{"Data", "[", : [5 Y8 ]: `& P
              RowBox[{"[", * U: a* J  i/ J
               RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}], 0 X, f4 q: v( N* L
      "\[IndentingNewLine]", "]"}]], "Input",
    5 {2 @3 t" E! \3 j9 W/ C: x CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {4 A# J  Y% M: z/ Z
      3.577925286140625*^9, 3.577925306765625*^9}, {3.577958329919715*^9,
    9 D7 {; c2 O% F- H7 m; a  3.5779583326341195`*^9}, {3.57795892351635*^9, 3.57795892354755*^9}}],9 p2 x3 j% q9 P' ~. o0 ?4 H3 c5 c
    2 ?3 Y5 B) F/ g+ ?% b6 M  \
    Cell[CellGroupData[{) H# I) H& U# d" ^8 A# {, V

    % j5 o" J8 q9 i) [. iCell[BoxData["y2fit"], "Input",
    & _. W6 e  L3 C CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {3 F' b' ^  n; M) B; a& \
       3.577925040484375*^9, 3.5779250440625*^9}, 3.5779583419785357`*^9}],$ B. X( q9 R# O: G3 m% W
    ) c. [% j+ a/ e" A2 C/ s5 g
    Cell[BoxData[$ q7 Q4 W' l9 s
    RowBox[{"{",
    ) @0 s1 A& N" l& \. ]  RowBox[{, m3 `- x1 d- K, B4 H, G
      "0.4853171132859182`", ",", "0.4508635216665074`", ",", 5 \& S3 a' ]+ z$ s% f/ x/ o# S
       "0.3642119241752518`", ",", "0.42852077425595436`", ",",
    $ _+ J- `4 ^: w4 e; L   "0.4712694272667798`", ",", "0.5257533056184774`", ",", ; c( v* W& [7 o5 P
       "0.48620658140716133`", ",", "0.41106838915591876`", ",", 6 t& g! E3 m0 N/ X! M+ F: H
       "0.5486894206610674`", ",", "0.007731168540073459`", ",", 4 y- k0 G7 c& c. E# F( p
       "0.013872406140339109`", ",", "0.3956995051659558`", ",", ( s2 @. ~, K5 m1 ~/ U- b# N0 Q" H
       "0.3663118256142708`", ",", "0.29094217358055163`", ",", : p3 p  S+ t2 `6 I$ {. a+ A$ C5 K
       "0.5453093690736555`", ",", "0.44138898880777927`", ",", - H6 R: ]; s: C6 d4 w
       "0.42944922031163496`", ",", "0.43092890556748836`", ",", . F$ F8 w. i6 ^; }" l5 I
       "0.5942402821739969`", ",", "0.330046090785457`", ",",
    * q* d0 E+ g& P  C, D1 z; N! j9 p   "0.18938658036630585`", ",", "0.4263720292858679`", ",", 0 e4 x5 S& M) }
       "0.23377136184738775`", ",", "0.02232858193309988`", ",", % m* z) M. i' b/ _
       "0.244364200084268`", ",", "0.5562383565309971`", ",",   {: r1 i4 _8 Z0 K
       "0.13114103402954333`", ",", "0.5815052048989465`", ",",
    ! O, d9 n. o! `   "0.4253455966293501`"}], "}"}]], "Output",2 o$ r- T+ \& F" e' t1 x( m
    CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9, ) f1 f4 P6 w" e1 D3 N; ?
      3.577925312375*^9, 3.577958343257738*^9, 3.577958511784832*^9, & s; R0 m+ `+ ]' \. s4 y
      3.5779590518421736`*^9, 3.5779623249157443`*^9, 3.578012452421875*^9}]" ]( u7 B$ w1 S. `) S
    }, Open  ]],
    0 n8 g! W$ i; E" q$ }* `+ I
    % U. `/ S6 h" F: C2 i) z/ pCell[CellGroupData[{
    ' d0 d0 C- k1 u, k7 N$ }7 k; o( F4 ]/ \/ C1 s$ I$ m
    Cell[BoxData[5 A+ o) ?' c1 E! ~
    RowBox[{"y2fit", "=", $ _( J' \7 _7 ]+ K8 L/ _
      RowBox[{"{",
    3 s. E' L4 e$ F# a: K$ ?7 _5 E   RowBox[{* Z+ n( Y) v. N- [
       "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 E4 ^2 ~0 i; i& G9 b) s    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' I1 ]5 o. Q( _- V
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    1 K6 \  W& v& w, Z! ?8 _7 u/ A    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", 7 d9 m) s' C' X* g& r' s
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    ' u* @6 |( @( X- K    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
    2 o' @) v! A* D2 f    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", * F6 H5 E/ v: z$ b# _
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    + P$ d/ m, q5 h8 W$ t5 ?1 j+ R! @    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    % P5 W' W) s2 f5 N5 l+ L    "0.48531711328591953", ",", "0.48531711328591953`", ",", : ?8 Z) g8 `( f5 q! t% S
        "0.45086352166650845`", ",", "0.36421192417525217`", ",", 4 D2 n, W9 E, i, q6 N% t" j7 _0 N5 P& X
        "0.4285207742559556`", ",", "0.4712694272667811`", ",", & y3 T/ ?0 z; ]* Z1 Z
        "0.5257533056184786`", ",", "0.4862065814071623`", ",", 1 F; R) H1 |. P* w0 B7 g
        "0.41106838915592014`", ",", "0.5486894206610683`", ",",
    9 t7 i4 N; C, v. _( o8 L  e$ J( h    "0.007731168540073532`", ",", "0.013872406140339166`", ",",
    : ^' U( M; M0 r; t+ o1 Q    "0.3956995051659565`", ",", "0.3663118256142717`", ",",
    % D/ W8 d! F" p; a7 \; a    "0.29094217358055185`", ",", "0.5453093690736568`", ",",   g9 p( J- t8 u* J4 \* s
        "0.4413889888077799`", ",", "0.42944922031163585`", ",", # R0 \* o, w0 d' U2 t+ n, O
        "0.4309289055674891`", ",", "0.5942402821739983`", ",", ) \/ r$ {9 X$ O8 p7 I
        "0.33004609078545805`", ",", "0.18938658036630632`", ",",
    % l& w( K2 \  a$ g' s* N/ r2 P    "0.4263720292858688`", ",", "0.23377136184738778`", ",", * U, B* B1 @# L9 t
        "0.022328581933099827`", ",", "0.24436420008426807`", ",",
    5 H; F, ]# ~& ]; x3 Z9 o, Q    "0.5562383565309981`", ",", "0.13114103402954314`", ",",
    2 P2 S) |8 j% F7 s; l$ T2 X6 l    "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]}]], "Input",
    + `- l* {* K- h0 B8 n( @ CellChangeTimes->{{3.577959355746303*^9, 3.5779593854019547`*^9}, {
    : g/ `; Q# x  M& c3 f' ]3 h  3.5779594223272195`*^9, 3.577959425104024*^9}, {3.57796233399496*^9,
    6 B+ n3 k. q" k3 ?  3.57796233957977*^9}}],
    ( Z/ {6 ?$ ]* c
    . o- E/ x$ K) _; f) n8 ~Cell[BoxData[
    ; [7 B5 x8 B5 L& m6 } RowBox[{"{",
      x( y1 A0 l) {2 n% d: F& h  e  RowBox[{' n2 C' ?& H8 j+ h
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", * |+ Y' ?6 Z1 N( h
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",0 e1 Y4 W+ L/ Q7 n4 \
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", / |5 ~- M% d3 l. }6 H' ~( a" \4 i: a
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", * A% _7 g& p* f. F  `5 n+ W4 K
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    ) T4 v+ m+ s* r- T) ?7 ~   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 8 f% U, u+ t, }+ q& d9 x: ]
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", $ W) c8 ]$ c  g- S/ h7 b
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    + C& K$ V8 K8 @$ z$ N# ?   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", / r+ b" X( G% w5 j
       "0.48531711328591953`", ",", "0.48531711328591953`", ",", & t0 C- u9 w& {8 }0 U+ ?+ Q3 s
       "0.45086352166650845`", ",", "0.36421192417525217`", ",", 7 B$ m3 X* A. u* o: Q' d& a
       "0.4285207742559556`", ",", "0.4712694272667811`", ",", 3 w6 c; n& _1 w% L( v  z6 |/ K
       "0.5257533056184786`", ",", "0.4862065814071623`", ",",
      Y# ]* @" \+ [  w; b   "0.41106838915592014`", ",", "0.5486894206610683`", ",", + X/ g; D. `: H) b
       "0.007731168540073532`", ",", "0.013872406140339166`", ",",
    8 v5 b+ |  k' |; M6 V2 N0 ?$ w   "0.3956995051659565`", ",", "0.3663118256142717`", ",",
    # O" j( I5 l- ~   "0.29094217358055185`", ",", "0.5453093690736568`", ",", ) X5 d: ~4 \$ R
       "0.4413889888077799`", ",", "0.42944922031163585`", ",",
    5 d0 y) b5 G, o$ ?- P: Y$ ]8 P+ C   "0.4309289055674891`", ",", "0.5942402821739983`", ",", ; Q  X; P* u# M6 i
       "0.33004609078545805`", ",", "0.18938658036630632`", ",", / X4 ^6 l2 `3 j1 A; k
       "0.4263720292858688`", ",", "0.23377136184738778`", ",",   M8 D9 n. j. q) N
       "0.022328581933099827`", ",", "0.24436420008426807`", ",", : o4 l( [! t5 `5 [! v" X0 y
       "0.5562383565309981`", ",", "0.13114103402954314`", ",",
    6 U1 g3 j5 ]5 h' ?0 r! o2 z& M+ J   "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]], "Output",
    + r/ ~' g0 V$ o1 t% W* I' l CellChangeTimes->{3.5779593961191735`*^9, 3.5779594268512273`*^9, : f7 B% N5 a5 P% Q. N0 F
      3.577962342060174*^9, 3.57801245340625*^9}]+ _! Y( C  c# Q) c3 L! R
    }, Open  ]],# y. |. R& {6 k6 k$ W
    , L7 b% P+ @' u; C) S
    Cell[CellGroupData[{- |/ Y# [0 I4 i& J6 a( L+ n
    , A1 c7 s. [& U3 j$ V
    Cell[BoxData[9 Y, f: S0 B7 Q( e; C7 @
    RowBox[{"y20", "=", ; g. C0 n. o: A$ O% g9 y
      RowBox[{"Table", "[",
    1 S" {% G" h- [   RowBox[{"x", ",", + r8 t! \2 o. u7 G8 ^
        RowBox[{"{",
    9 {! y, t& H6 e8 L2 t4 U/ l     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",  t* ?; `: f9 j0 n/ `0 O
    CellChangeTimes->{3.5779253628125*^9, 3.577958351198152*^9}],
    # v5 m( ]% U8 B/ y  y
    6 E1 u* s0 s5 y+ z5 KCell[BoxData[
    1 |) y, c  s( Q1 {, j0 G RowBox[{"{", - n5 K2 [/ A! K" ]2 z
      RowBox[{6 N$ ^1 k9 U/ c. |
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", " p) g2 @. _* C0 w7 Y
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",+ p/ @8 d1 e  O0 G4 @& c
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", # B: ]8 f$ W9 g( D- Y# j6 E, S
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    * @! g1 G5 E, H   ",", "29"}], "}"}]], "Output",! K* w' G+ k8 D, F5 `' y+ W7 q+ M
    CellChangeTimes->{3.57792536553125*^9, 3.5779583535225563`*^9,
    6 _4 Y$ w& z# W4 C: x& j8 ?  3.577958515653639*^9, 3.577959053714177*^9, 3.5779623443065777`*^9,
    . k8 F0 _( {! [/ W" l  3.578012454875*^9}]
    3 X/ ?8 F' A  n, F' _, |; A6 x}, Open  ]],% I% a& `/ ~% F% X0 @

    ; k9 p: n0 }# d5 O) m" k' tCell[BoxData[
    7 V9 S! ]0 ~" d  C RowBox[{"For", "[",
    3 L: k  _9 {6 L! L) d  RowBox[{' s/ E2 N- {( p" M( S/ s
       RowBox[{"i", "=", "61"}], ",",
    * W! Z2 j2 b& D& {. X+ B. X   RowBox[{"i", "\[LessEqual]", "89"}], ",",
    3 o. B. t# F% i! T   RowBox[{"i", "++"}], ",", 2 ?( e' q5 m& n' x
       RowBox[{/ G1 b. R8 h, ~$ R0 R
        RowBox[{"y20", "[",
    + r8 x3 O) v3 w/ u4 k. f/ m     RowBox[{"[", 3 h6 [4 q! ]# @& G! \. w
          RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", 4 W( j2 K- a  P. Y0 X9 A5 [
        RowBox[{"Data", "[", ' ?& T! j% m9 a% H& v+ k
         RowBox[{"[",
    ' ]2 Q  [% g4 `; k% p+ Z5 x% v6 w      RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
    # Z$ J& e& W* g0 Y4 c CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {6 |' N. D& ^! T
      3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, : p6 B  H6 M2 G) f4 K0 ^: `
      3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, {2 n- C8 K; q* U
      3.5779583574225626`*^9, 3.5779583606673684`*^9}, {3.577959056849782*^9, - _* N6 V) i$ l" F' }: v. G
      3.577959058690585*^9}}],
    ' b7 m* z( l4 x9 F* J6 I: a% `1 ?+ D1 `$ s9 u& m! ~
    Cell[CellGroupData[{7 ^+ q4 A( O" C3 Q' L
    % |' `/ H& F6 `( B, [
    Cell[BoxData["y20"], "Input",; L. H& t- X9 R9 u: ~
    CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {: z, F3 V- m' o$ p' F( Q
       3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9,
    , l, V1 ]' E  g5 o; z7 o& O7 u$ }. w; J   3.5779583657841773`*^9}],* t; M/ K' o' ^& R/ K8 U
    6 u$ W# S. y1 e# f& _  S* @1 J
    Cell[BoxData[
    . ~. n# k! a' I6 ^: S$ M RowBox[{"{",
    0 w* A5 L& |4 q  {8 ?2 T  RowBox[{( T$ Y* N$ ?) o0 q1 H& k
      "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", ",",
    ; F) E/ t5 [: _/ b, s   "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",", 0 m3 j# U$ p- a# N. v& q
       "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",", : I6 e- A* N: [0 ~# P) f
       "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",", " s( d* f& m& o7 U, {3 N( R
       "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
    8 X6 W# j* W# M! q   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",", 5 F# m8 C' c( a5 M9 L9 _
       "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
    / r! Q5 M2 ~' o$ _   "0.323944`"}], "}"}]], "Output",- s5 S* l( D7 h$ ]5 b
    CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, 6 f6 K* e* d  r1 Y) R3 S
      3.577925393046875*^9, 3.5779583678277807`*^9, 3.577958517946843*^9,
    # G( e! F8 @1 v1 t/ a  3.5779590634017935`*^9, 3.577962347629384*^9, 3.578012456484375*^9}]
    , j3 U+ [3 M! u5 f: l}, Open  ]],0 H; r6 r0 y3 g( p9 N) h9 ]
    6 c* q9 y8 }* |  k3 a- W
    Cell[CellGroupData[{
    ( e. r- S6 ]5 \$ X/ i3 `" _4 a# m0 B& j: F) S4 O2 j
    Cell[BoxData[
    4 e3 \" Q( }$ f; O# f RowBox[{"y20", "=",
    / O& d% H0 M3 o" @0 w6 A- m" F( H  RowBox[{"{", 6 T1 u( Z5 D# G6 x
       RowBox[{0 B& a  ]7 Y9 Y
       "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ( x% s9 o- v5 [7 n9 o' G    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 z2 ]0 \4 b0 L0 u% x    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    ( g/ J! }' }( t& r* }4 x    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
    % Z% x7 U/ Y* _* ]1 t* @3 L( K! O/ W    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", % d8 @7 O# v0 Q" S% r7 E- Y0 Y& t
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", 4 V' n# a' v/ y+ w- G& X
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    : k; d( p# b; q    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", % U" T% y. c. u3 A, I* S. s/ J4 j' {
        "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", / C3 |6 O0 }- w& @* c- v
        "0.507042", ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", 3 Y$ f6 T8 ^/ v
        "0.338028`", ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",",
    3 v& U1 f" ]% m9 d+ r    "0.408451`", ",", "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", % H4 D, E9 ^2 j8 N/ N2 J& L9 A6 c
        "0.746479`", ",", "0.887324`", ",", "0.84507`", ",", "0.704225`", ",",
    5 E  r6 k% V# L' a    "0.760563`", ",", "0.43662`", ",", "0.633803`", ",", "0.422535`", ",",
      i* s6 ]1 ^4 G$ q    "0.295775`", ",", "0.309859`", ",", "0.408451`", ",", "0.197183`", ",",
    / v6 ?) S/ A) Y* \  d$ D  T    "0.732394`", ",", "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", : W2 S9 u  n! v
        "0.56338`", ",", "0.323944`"}], "}"}]}]], "Input",
    1 H" C# @- i9 B/ u CellChangeTimes->{{3.577959534959416*^9, 3.5779595573142548`*^9}}],
    ! {/ k3 _- w% f7 l4 Z( {+ C2 c; E- {% l0 F+ T$ J
    Cell[BoxData[
    ; F* l) o8 f# ~9 P5 M/ w% P" e RowBox[{"{", / h* T+ o; R: N4 D7 `, w% |
      RowBox[{
    1 F% v  @" R7 a( F8 Z6 l  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", : C: n$ ]) H; y$ s  B
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    5 N" s. N/ m7 i! {' P/ ?7 t3 }    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    " ?" l4 F% j. X5 V   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 1 V. D1 o) l  N; v5 w
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    3 N  a5 B- J; i: B- E   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    , \$ W; _& M& [! A& j5 R: G3 l   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", ; r* Z: O5 u" ]: {! k% h
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", - N. v- q0 z- ?# i( d4 X
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.507042`",
    7 K* p: Y) H" X  W   ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", 3 p2 n; a  s4 g) K- `
       ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",3 }, P5 w, v/ |- d; k
        "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",",
    $ m) j$ q7 z9 ]& m# q   "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",", + c! R/ }$ h& E+ Y1 c
       "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",", . l+ z2 N8 M& a/ U$ r' R
       "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",", 3 K; f+ @! B4 p5 U
       "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
    7 k! S5 Z( V; |3 o   "0.323944`"}], "}"}]], "Output",
    6 X7 i) K9 z! m( k$ y/ m CellChangeTimes->{3.5779595594514585`*^9, 3.577962351778991*^9, ) R) H7 i3 D0 T% p! Q$ `/ v
      3.578012457234375*^9}]
      [0 o* ^9 C7 T" L: b8 R}, Open  ]],  F3 K. ]+ t2 w7 W' C5 _% ~

    0 w2 n  m7 f3 N: r" c. h3 JCell[CellGroupData[{  k7 c" c# s$ O& y! `1 |

    . N# [* ]8 l1 C$ z7 zCell[BoxData[
    9 ~. t7 e; I1 u% r- `" i RowBox[{"p2a", "=",
    3 ?. r$ V; a7 ^; f1 k* Z1 K  RowBox[{"ListPlot", "[", * o3 V, T: E8 b5 @* y& `) Y
       RowBox[{"y2fit", ",",
    ) n) h. C+ ]9 K1 C& k$ h3 e    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", - v& H$ I( {+ h' w& u
        RowBox[{"PlotStyle", "\[Rule]",
    9 q5 H4 L& M+ C: s+ Y0 n! P     RowBox[{"{",
    2 P+ _8 X4 e- k0 S' f      RowBox[{"RGBColor", "[", ) Y+ M% s( _, [7 \, b& b
           RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
    3 w' E- M6 p$ |! Q; j    RowBox[{"PlotRange", "\[Rule]", 4 ]2 m9 }, `! x6 c- T
         RowBox[{"{",   y4 g) V, {' [7 d1 i, @6 n
          RowBox[{
    & W2 E/ ]6 k; b; v: p8 k       RowBox[{"{", / K6 ^7 \6 q4 l- u. E! b7 x: R
            RowBox[{"61", ",", "89"}], "}"}], ",",
    6 B) y6 h' ?" t' Y       RowBox[{"{",
    0 }6 T& Y2 a! i/ R) \  |# M        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    ; w5 F2 v& R' @0 ^% D, W/ ?    RowBox[{"AxesOrigin", "\[Rule]", * B# N& `8 y* j' ]  j0 l7 T2 O; ~2 m
         RowBox[{"{",
    2 p# F: r, Y  H$ ?2 m      RowBox[{"61", ",", "0"}], "}"}]}], ",", " w: d1 Y) W# _; c* H
        RowBox[{"Frame", "\[Rule]", "True"}], ",", 5 m, h/ g% M) J! u
        RowBox[{"FrameLabel", "\[Rule]",
    2 l! ]0 v+ k* ^: d8 A  B     RowBox[{"{", ; O8 G; d, s( W$ D* i9 |
          RowBox[{
    " Q* W9 [) Z+ Z7 _2 W      "\"\<\:7089\:6b21\>\"", ",", 4 v& e4 g& X8 y: [5 O7 d  w8 W8 |
           "\"\<\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\
    - C* ?  O8 `. b# _\>\""}], "}"}]}]}], "]"}]}]], "Input",
    ! x5 j( M: Z" [" P  L* _ CellChangeTimes->{' L+ V: Z  a+ D: Y. X& i
      3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {9 T9 Q( W! m8 F1 Q
       3.5779583712597866`*^9, 3.5779583781393986`*^9}, {3.577958536604475*^9,
    ; e6 p$ ~1 X, U# `0 ^$ @( \) l; b   3.5779585491624975`*^9}, {3.5779592802577715`*^9,
    4 y. E! l* S5 V1 N8 l   3.5779593014270086`*^9}, {3.5779594039971876`*^9,
    ; h8 y8 n# K" S, y9 {9 ]4 m   3.5779594059783907`*^9}, {3.57795949706695*^9, 3.5779595174717855`*^9}, {
      A1 D2 O: o  Q" ]   3.5779604302529774`*^9, 3.577960442311798*^9}, 3.57801246978125*^9,
    $ A. M3 R  q  c   3.578012920859375*^9}],7 C) k- q0 Y" e" M3 s7 x" r
    9 W7 X) W2 p. d1 b
    Cell[BoxData[
    / {- X% l+ J  w7 k9 b GraphicsBox[{{}, {}, . y' R$ R' D( |# c) \8 N, r( Q
       {RGBColor[0, 0, 0], LineBox[CompressedData["
    , G. v* z( h. W: @( v5 V1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
    " a" E8 ]  J1 B8 G0 j/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
    + \& ^+ y0 I) e, x4 V7 L* {9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P' w! t% w/ X- E7 W8 i
    ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC
    9 a7 \% j. O7 i" }; FqPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
    4 S1 u- q0 v1 j; q) H& R8 N1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
    " M* p5 n' X! Q9 V* ~1 \$ `0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
    5 c7 Q0 F' J3 v# W& msPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
    % {- y5 J3 x4 G6 @, u6 A99yxuG0PAHw7nyU=* ]* L# s  Q/ j' N3 R3 N
         "]]}},
    ; e# d  t* u8 T/ L  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],; v1 H+ l+ o4 l
      Axes->True,
    ) s) r* i1 p% c* F" e% Z  AxesOrigin->{61, 0},$ i, s) O9 u- J' C' {
      Frame->True,
    4 i8 k8 e: ^0 C& T+ ^9 f) g* L  FrameLabel->{
    : a* |  G1 Y7 C    FormBox["\"\:7089\:6b21\"", TraditionalForm],
    , b# D  ]* f+ Y, X- J: Z* W    FormBox[) j% l/ F4 b! L6 ^
        "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"",
    ' c% s- Q. W* t  ^     TraditionalForm]},
    9 v2 ?; D! D- x& A# e  PlotRange->{{61, 89}, {0, 1}},
    & r* S3 T( }# M, ]4 G4 \/ G  PlotRangeClipping->True,
    7 z/ n& A. B' l9 g1 G  PlotRangePadding->{Automatic, Automatic}]], "Output",: r7 X/ b8 q0 [7 b7 W& p  F
    CellChangeTimes->{4 I1 @* d! _: ~$ d% C' F- C
      3.577925144625*^9, 3.577925396578125*^9, 3.5779583797150016`*^9,
    " B: T1 h" p4 u+ y   3.577958519990446*^9, 3.5779585510813007`*^9, 3.5779590670678*^9,
    6 z& D  S/ j$ w* {# ?' T; w/ H   3.5779593035642123`*^9, {3.5779594075383935`*^9, 3.577959430158433*^9}, # _: ]' a8 A2 {8 \# W( D
       3.5779595184233866`*^9, 3.5779604438874006`*^9, 3.5779623548833966`*^9,
    / {: T% P. Y1 C& \9 o# ~   3.57801247209375*^9, 3.5780129225625*^9}]
    - m4 ]/ b. g+ B8 M+ [5 a}, Open  ]],
    # T2 a- X, d; W% I' j( `/ e$ y6 ^4 r- L. q; g
    Cell[CellGroupData[{
    . @- E2 ^0 @8 x9 l; T9 o0 l
    " ^8 v# V- b6 t+ W; @, j. ^Cell[BoxData[7 Y9 V! G( O% |& b7 d
    RowBox[{"p2b", "=",
    , P4 w$ Y0 q, d3 s7 \: w, h5 @  RowBox[{"ListPlot", "[",   u: k: g3 c4 E1 v- I' x( s
       RowBox[{"y20", ",",
    % X1 }  m6 S0 Y  `& I. ]. `3 [8 \. g    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", 3 O8 a8 h2 K1 l; D+ m5 j
        RowBox[{"PlotStyle", "\[Rule]", * C+ j$ h3 k% A/ J
         RowBox[{"{",
    3 e8 ~% R0 j* Q) o5 J% s6 x      RowBox[{; S; z0 e* d2 w- ]
           RowBox[{"RGBColor", "[", $ G2 S  E. W: r* H, q
            RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
    % U) j3 c7 u5 c9 |% l7 J4 c    ",", 9 x& ^8 o) `$ g1 E- e
        RowBox[{"PlotRange", "\[Rule]", ; o% n% y' g1 M+ ]
         RowBox[{"{",
    . \, p0 s, t3 E5 v6 c      RowBox[{
    & z  x6 }* C4 j" F; K5 @) {       RowBox[{"{",
    " c0 z. h* C, k" i" q9 b        RowBox[{"61", ",", "89"}], "}"}], ",",
    , ]- t' U! U7 \. w+ J& P5 J! p       RowBox[{"{", & O' b, {9 O! ]# G1 t: Y
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    + ~+ z# s4 P6 |4 y    RowBox[{"AxesOrigin", "\[Rule]",
    / m" H2 n( A" A) U1 L     RowBox[{"{", 7 G- }( p  S- X3 g6 \' I$ Y* r1 _
          RowBox[{"61", ",", "0"}], "}"}]}], ",", 0 }9 A; j0 e0 q: Z/ f* d0 B) N
        RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
    & \7 r2 U0 E0 W" t" ~# M; G CellChangeTimes->{0 w$ D. m& O7 V2 L* J; e1 b
      3.5779253991875*^9, {3.577958382429406*^9, 3.5779583843326097`*^9}, ( \. e' }6 ^" o; f6 X6 u" v
       3.57795855655691*^9, 3.5779595724462814`*^9, 3.57801248346875*^9}],4 q; w- k9 P+ P/ P
    9 Z3 x# L2 z& c0 I, z
    Cell[BoxData[
    + _( u8 Z& {% H* ]9 T& ~! _& [* S GraphicsBox[{{}, {},
    ( T8 B' K0 b. q1 R2 m   {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["6 d9 U$ L; R1 N
    1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn! S# O# b7 y. H0 K6 a3 c3 Y5 Y* E% }- h
    8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
    ! h7 O: J7 c$ r; C: D: xc/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc7 @4 L# K: `* T7 U3 }
    iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4: w+ w+ d) q2 H7 w* c/ }, {- O! H0 a* U
    TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO2 @" B) t5 d, p! w' c* a: [
    fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB) N  T, m$ I5 R0 n2 m
    TWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG) B8 M* I9 L% V( Q
    p0OYg4Fg/tz63VfsAdsCnzU=
    $ V/ g% B) U& |/ l( n- \% @/ M4 X     "]]}},
    & J3 W" O+ I* D) Q/ T  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],( g/ G- L8 k0 j) Z, z4 Z
      Axes->True,9 J; n" R6 @3 d7 M* \8 \6 [
      AxesOrigin->{61, 0},
    / [( Q0 w9 q% a! f2 u  Frame->True,5 }# R5 i% U+ k/ _5 `: P/ D, {
      PlotRange->{{61, 89}, {0, 1}},/ w$ a! V2 T/ x" v5 H( Q% h( Y
      PlotRangeClipping->True,
    9 `9 P2 T$ f  @  o/ i* |  PlotRangePadding->{Automatic, Automatic}]], "Output",- V( n4 }& X% g$ s. c$ I2 Q& F
    CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9, 4 w# r; j  M4 F* g
      3.5779583861890125`*^9, 3.5779585219092493`*^9, 3.577958558132513*^9,
    ' ~* U% q5 R8 G& D" U  3.5779590691114035`*^9, 3.577959577906291*^9, 3.5779623569426003`*^9, ; f  z! l$ m  v8 p  D0 Q( P" A
      3.578012484703125*^9, 3.578012925875*^9}]% I' V6 H2 p* h) s
    }, Open  ]],! v5 g& w4 R5 X: t0 i+ W
      T5 {0 e7 M% r) I$ L$ x0 c
    Cell[CellGroupData[{
    * J/ |7 n2 W4 k+ v
    ) X( m( }+ [& ?2 BCell[BoxData[
    3 z- q' y/ N; n7 C1 @2 E% g RowBox[{"Show", "[", ) Y3 M" }/ ~, t2 \/ y9 X+ m
      RowBox[{"p2a", ",", "p2b"}], "]"}]], "Input"],
    % d7 h, Q2 i& ]* Z( y! _' _0 ]6 B: O# I! v3 M3 ~/ Y
    Cell[BoxData[7 v$ \& D) g( d1 B9 A% b2 S
    GraphicsBox[{{{}, {}, ' m. }$ Y4 j8 T' b. S
        {RGBColor[0, 0, 0], LineBox[CompressedData["; r# I* h8 a  a
    1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM: c- `2 A! v$ P) Q0 p* I; t
    /g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ5 B7 O  f* }6 B. n: j* x" {5 {3 a
    9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P
    3 @) R6 ~" ~8 NofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC# k! A$ t: F5 S* A
    qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
    9 d# O! F- z, v5 G( N1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx  F/ @0 j# W; ?6 }
    0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1! s! E0 f9 ?0 s8 J; S9 L. d" \: D* t
    sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH+ P5 V5 {2 @3 l! ]
    99yxuG0PAHw7nyU=
    : @/ N7 z+ T0 \. Y6 S2 ^      "]]}}, {{}, {},
    # I5 u) k! G5 |) y    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    : _8 I  w- Z, O6 |4 A7 O  D+ _& w1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn8 n$ U8 g! t7 @( J2 x$ P
    8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV9 j3 G3 A: }1 l5 K- w( U0 s
    c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc4 _3 L& }7 S/ X" t5 ~
    iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4! `2 r8 t' }. d- A7 f
    TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
    % h# v0 k0 \4 z$ H' YfzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
    ! t# o, d& L. _' {% c5 J' kTWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG' p% G! @8 l6 G2 k
    p0OYg4Fg/tz63VfsAdsCnzU=
    $ }8 U8 e% g4 d( z# {% `      "]]}}},/ d5 w8 {( Q, `
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    ( P/ L* t, m! g5 U# |* E  Axes->True,
    ' ], P! Y  H0 s( r) m* v0 H( a9 l# j  AxesOrigin->{61, 0},' ?+ ^5 H  u6 k+ d0 g0 O; V
      Frame->True,$ ]# I5 A5 ]; D
      FrameLabel->{
    . a( n, v+ Y0 b8 f6 Z    FormBox["\"\:7089\:6b21\"", TraditionalForm],
    3 }- [3 s" {' O    FormBox[
    8 P7 J/ g) |( r  _0 I, o    "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", 2 A$ i7 ]! y. A2 [& H! \
         TraditionalForm]},
    5 D" d) C7 N# o7 U) E7 {. U# J  PlotRange->{{61, 89}, {0, 1}},8 G: A9 c8 s# }: t$ B
      PlotRangeClipping->True,9 D1 P; O% L6 G* j3 ~
      PlotRangePadding->{Automatic, Automatic}]], "Output",. ]2 @! B7 U0 l' `. K7 e1 U% V  A" Z
    CellChangeTimes->{3.5779623624182096`*^9, 3.5780124863125*^9,
    3 b% G, g; ]" |$ {( T  3.578012927734375*^9}]
    & P1 M( G6 f  f& c( [7 X. N5 y}, Open  ]],* n, Z% H& e" F( D& C

    7 P9 }7 ~; n- }Cell[BoxData[
    1 b- a: r) b6 V; A" ~" @/ c+ x4 x RowBox[{"\:ff08", ' a7 g' C) p: [' w6 j
      RowBox[{$ R7 X, g& l1 T- g4 D2 T
      "\:5df2\:77e5\:521d\:59cb\:94c1\:6c34\:8d28\:91cf0", ".7406", 6 s7 g+ c2 ^6 K" U( J
       "\:3001\:5e9f\:94a2\:8d28\:91cf0", ".4621",
    - z! A  d- c/ [   "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea60", ".5208", 0 G" q- C' o4 f% W: d" D
       "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:542b\:78b3\:91cf0",
    / W6 {/ K' b/ b1 F. C; V+ k! S   ".2221", "\:ff1b\:76ee\:6807\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\
    ) J' ?; c+ V2 N6 L/ @\:4e3a0", ".6224", * x; p- r2 r# Z- U) S# Y
       "\:3001\:76ee\:6807\:94a2\:6c34\:7684\:78b3\:542b\:91cf\:4e3a0", ".2521"}],
    % h7 B* Q( t1 ]1 w; n4 l   "\:ff09"}]], "Input"],: a" b6 g/ G$ H1 w- d( t

    ; A' Z) a* c* P! U( _2 p6 N$ RCell[BoxData[9 H2 q6 n$ i# Y' _% Z2 Z$ A9 w
    RowBox[{"{",
    & V, x2 k$ p2 W" h: a; D  RowBox[{! W2 S6 P* K! j
      "\:94c1\:6c34\:8d28\:91cf", ",", "\:5e9f\:94a2\:8d28\:91cf", ",", ; m3 v. d% i5 ~
       "\:5439\:6c27\:91cf", ",", 7 V4 w" L! p) c) q0 ?- e+ x3 l- X
       "\:4e0b\:526f\:67aa\:65f6\:7684\:542b\:78b3\:91cf", ",",
    * l$ c& [0 `& l   "\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea6", ",",
    % o3 O* }7 d% l  [7 c- E7 z* P   "\:5757\:72b6\:77f3\:7070", ",", "\:8f7b\:70e7\:767d\:77f3\:7070", ",", $ @0 ~& J  a4 ^
       "\:83f1\:9541\:7403", ",", "\:5757\:72b6\:767d\:4e91\:77f3", ",", % W: A3 H" {& @
       "\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf", ",", 0 F. L9 D/ l" q) W9 y
       "\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6"}], "}"}]], "Input"],4 M  F& b5 ~( d4 w8 S
    1 E9 F4 V) h( [) `% c
    Cell[BoxData[" "], "Input",
    1 r/ O9 T* H( c5 ]; x4 A# x CellChangeTimes->{3.577962834553033*^9}],' s( l; P  T- q) v

    0 x. ?5 F6 ]. M" nCell[BoxData["\:94a2\:6c34\:7684\:78b3\:542b\:91cf"], "Input"],
    1 e- I. C' X9 u5 L6 _: N6 o# N$ P+ R# ^# M/ f/ Q( ~5 q& Z0 Z
    Cell[CellGroupData[{
    ) ^9 f5 n+ M' q5 j
    6 G, y- h* L  u3 N8 ^9 f% H) O' A+ {Cell[BoxData[% s/ h+ J! m0 j$ a  a
    RowBox[{"y1", "/.",
    ; E3 ^1 l0 Z; R! g) K) }$ I  RowBox[{"{", 9 r/ \3 ]- y2 u8 Y& i6 `$ v
       RowBox[{
    & X  F3 m! f6 r    RowBox[{"x1", "->", "0.7406"}], ",",
    3 l- l2 H: V; A' ~8 K. x! l    RowBox[{"x2", "->", "0.4621"}], ",", - F: T; R& a# \# Y% s4 J; @1 ?
        RowBox[{"x4", "->", "0.2221"}], ",", 8 A1 h, C. Y1 r( X. w$ T
        RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",
    ( c) `$ e! j/ L CellChangeTimes->{{3.57796267209435*^9, 3.5779627224200373`*^9}, {
      v+ R$ f. |4 i2 j' d* l  3.5779627663029137`*^9, 3.577962774820529*^9}}],* [" `" ]  A' e
    1 U2 H5 u( ~& I# `9 n
    Cell[BoxData[
    1 B9 Y1 U2 {! K  @2 B RowBox[{& |$ T' ?1 ^+ k& s# b
      RowBox[{"0.2286149508637297`", " ", 6 {' Z2 K( T& q6 y; R( b
       SuperscriptBox["\[ExponentialE]", 7 d) M+ M% X7 ~) T
        RowBox[{"3.1415926535897936`", " ", / S9 y* X( g* D1 i
         RowBox[{"(", ) T' G: w% `0 Z* j. s" h
          RowBox[{
    + D8 \! p; B# @* F- |       RowBox[{"-", "0.17911224641499998`"}], "-", ; t, A/ `, K$ Z" |: h. J0 W/ ^
           SuperscriptBox[# h4 g& g% \7 E7 `
            RowBox[{"(",
    # [, L% X0 K3 f+ @         RowBox[{
    4 d3 m; J; y& X. Y8 V4 v          RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
    ; O$ a& M% q, p5 D' e       SuperscriptBox[8 j. p3 i7 G2 Z. V+ N; Z7 [
            RowBox[{"(", 2 K( X! m8 i1 f& d: `+ g
             RowBox[{
    ' F: y0 r' L* w0 M5 f7 u          RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", + f. A% x1 @0 `4 Y) @
           SuperscriptBox[2 d$ a5 g; [( q
            RowBox[{"(", 1 Z7 D: K4 L6 }: D) P" n8 [
             RowBox[{
    / Y3 s/ t1 M! q          RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
    ) ^6 Y& j! t% P. o4 P# V       SuperscriptBox["x8", "2"], "-", * s( \; ?3 _- c# m) g" V5 @
           SuperscriptBox[
    " {1 e2 F; K8 F) C7 `6 o        RowBox[{"(",
    4 k4 ~9 h1 M  p4 a. t  W4 j/ D         RowBox[{
    , ?8 g/ c6 a! e5 x* V6 S- D$ ?2 {          RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+", & T2 c1 X/ f7 V% ~
      RowBox[{"0.020180806675835994`", " ", - U# |0 F1 ]. E; d1 H. U
       SuperscriptBox["\[ExponentialE]", . C/ e6 g; B& B* a6 s
        RowBox[{"3.1415926535897936`", " ",
    7 `/ }# a, C, q3 N7 b# B     RowBox[{"(", 4 g8 P* s7 ]# u: T! C6 X$ X
          RowBox[{
    % H' f/ \' |; g       RowBox[{"-", "0.105619387859`"}], "-", " O. |- R: U+ `0 ?- D# y
           SuperscriptBox[
    7 B- i) p- D: p% J6 x& _9 L% Y7 s        RowBox[{"(",
    . t) b9 l) q* K9 L9 `+ ?9 r         RowBox[{
    6 m7 \" n& H9 y' N" q' L          RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
    ' E% A8 V; [. c+ V5 G1 q       SuperscriptBox["x6", "2"], "-", ) l+ O7 b- I: b9 r. x# ^9 F
           SuperscriptBox[( X8 y, U! A: }. m
            RowBox[{"(", 8 z7 E; ~' g* m' d. }7 f* M8 \
             RowBox[{( f, n% G7 ?* N3 `4 v' K( O4 P# i
              RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    # s' G; K- V: L, D& P: E; n6 j       SuperscriptBox["x8", "2"], "-", 1 v, q( J1 c, w, a: _% H8 o
           SuperscriptBox[( T$ z, s" ]7 }: \+ @
            RowBox[{"(", 1 b" ~& `+ l) S* D
             RowBox[{; D1 B2 n/ ?1 t0 Z- s" a3 Z+ N6 v# Q
              RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 0 }2 l$ ]# ]& J& J, v
      "+", . G0 E9 C7 n( |  T& ^% x
      RowBox[{"0.13092706311748437`", " ",
    % I/ H9 @# ?# y   SuperscriptBox["\[ExponentialE]", 0 x! i# ~5 ~" A3 T
        RowBox[{"3.1415926535897936`", " ", 8 }; M: p* p  _( {# y# M# I- E
         RowBox[{"(",
    ) U! E" e" g) P+ B      RowBox[{, F+ V% U( s- }/ s0 b+ ?( \, Z( s
           RowBox[{"-", "0.236605670085`"}], "-", 1 y8 w. V: I; d$ e( @# O
           SuperscriptBox[
    8 u& O9 N1 l, ~2 e        RowBox[{"(",
    * S& ?$ _5 ?. i$ M         RowBox[{; S1 ^7 a' U) T) c, B2 v- |# ~/ N
              RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
    4 h9 E* ~2 d! s) k       SuperscriptBox["x6", "2"], "-",
    ) P$ |# b' \" x/ d/ k. A9 A       SuperscriptBox["x7", "2"], "-",
    + R4 z" a+ |4 l% B       SuperscriptBox["x8", "2"], "-",
      r9 ^4 v, x7 W9 E6 i       SuperscriptBox[. w$ N/ L" {6 ]/ `0 P( C
            RowBox[{"(", % w2 @3 X1 I7 _5 ~7 E# E3 ~
             RowBox[{
    / u0 K& g) x$ N4 ^          RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 4 \. s8 }' u) f! K. ^# o! M
      "-",
    , S+ \5 V7 ?5 G- K, h$ p0 c  RowBox[{"0.033459349088924784`", " ",
    . S  E7 I2 j; f, `+ c3 C% s   SuperscriptBox["\[ExponentialE]",
    8 D1 B& [) ?, A9 h/ R4 O' B* I1 m    RowBox[{"3.1415926535897936`", " ",
    - {1 f( c+ z% q% ?% ^* z     RowBox[{"(", % Z6 t/ X# F$ d. O
          RowBox[{9 M9 f! g# ~  G) ?8 U7 n4 e
           RowBox[{"-", "0.46221081830200006`"}], "-",
    6 k0 V  B6 M- z# ]: E       SuperscriptBox[
    8 Y1 P# Z( Q, \  w        RowBox[{"(",
    0 o" |5 x; t1 I' z         RowBox[{
    ; e4 d' h& i4 s          RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", . c& c, E+ V/ |0 C
           SuperscriptBox[
    . z# k5 d* X( T9 [        RowBox[{"(", 5 a5 k6 z# n+ s& }* U
             RowBox[{
    % ]$ [5 f1 M# k% u! w; `          RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
    ! I1 G" h$ S: J7 r9 i. u       SuperscriptBox[. V( w6 j0 [. B
            RowBox[{"(",
    - ]0 W# |' u. |+ Y- s         RowBox[{
    5 U3 u3 D8 K  R4 B          RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
    , Y" ^2 C: p# u! h7 g- n       SuperscriptBox["x8", "2"], "-", ; P# Z# y/ Q2 F# _
           SuperscriptBox[
    # m( g1 C5 U! I7 |. y( _( c        RowBox[{"(",
    - s5 h- w6 [- {! o* `1 m. @3 Y         RowBox[{$ v8 u" P$ A9 }: q5 b) z- Q* m
              RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ( |1 ^2 E, T' A4 \) u
      "+", # \! s* ~8 h, G( {; `+ P
      RowBox[{"0.39611806709006653`", " ", * B. z& I0 Z8 n0 v
       SuperscriptBox["\[ExponentialE]",
      f7 x/ D5 p3 I5 R2 ~) j    RowBox[{"3.1415926535897936`", " ", 8 \1 @! q: \/ s. v* d
         RowBox[{"(", 6 ~) F$ Z6 \0 S  @0 C
          RowBox[{
    % }" Q, f' s  _       RowBox[{"-", "0.5837889295140001`"}], "-", 2 O  y! Z/ k* {  z" B
           SuperscriptBox[
    ) r& Z5 U! h; {/ w: n: ~        RowBox[{"(", 0 W/ P9 t( p0 M+ B. }
             RowBox[{- k9 u+ |9 k9 ]; E1 t& o/ T
              RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    ( E( I# F% C0 ]8 V8 D) C8 t3 \7 q       SuperscriptBox["x6", "2"], "-", 4 p0 P$ u  e/ y
           SuperscriptBox[# ~* {# _& j8 J, s: q
            RowBox[{"(",
    5 ~, z# ?! S8 \+ K! d0 u" p% \" {% i         RowBox[{3 G* F! b; |% s5 P5 F; U
              RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", " p) |$ a" @( T; X
           SuperscriptBox["x8", "2"], "-",
    - L5 r; Y3 v9 S       SuperscriptBox[5 B) F+ P. M6 @' _; o4 T
            RowBox[{"(", 5 D- p1 \' d; d9 d& I
             RowBox[{& b" _) X+ F/ D5 U9 b; B6 D) U( I
              RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ! x9 B' N& \. d  Z
      "-",
    * b( n8 q+ m% {, G  RowBox[{"0.19996885877792045`", " ", / ?: ]" b- z5 t! I( P8 ^
       SuperscriptBox["\[ExponentialE]",
    - D, N! z# ^% d! w/ l    RowBox[{"3.1415926535897936`", " ",
    * K* f. J: B* J& O" @3 b  a     RowBox[{"(", * F9 Q8 ?# G! E. [( W1 ?( o
          RowBox[{
    - V6 t' c4 \% ~4 L/ z: O       RowBox[{"-", "0.19030188470200005`"}], "-",   ^/ b. P7 k# \" ^/ X. E) b
           SuperscriptBox[- Q. n- L; A7 F9 Z
            RowBox[{"(",
    ) ?  l- \! D3 _- F# y: j         RowBox[{" q& p' L  v( Z; n) {8 r
              RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
    7 p2 v7 }" u7 c) K% o       SuperscriptBox[% h5 e. I8 f. e) g
            RowBox[{"(", 3 q- `* Y7 d, s! }) |
             RowBox[{
    * i8 l0 u/ y- h7 L          RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
    * f# K  Q' S, K, u4 }" [; Q. g       SuperscriptBox["x7", "2"], "-",
    / ]! x% d& _  R  O+ |" ]       SuperscriptBox["x8", "2"], "-", ; M% E0 d' B! R
           SuperscriptBox[
    ) x6 z, @8 V0 J6 J4 }        RowBox[{"(",
    ' ]3 C( |; [  S) J         RowBox[{: l( n$ w+ G# r) ~) P! R
              RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], & O/ V" p2 g2 n7 P  L( S" Y  D
      "+", - L0 Z+ T8 P7 K3 N/ o) [
      RowBox[{"0.23580523388620744`", " ",
    + c+ v3 q- [( D) p; X8 ^# N" P   SuperscriptBox["\[ExponentialE]",
    0 f" e3 ?& G3 ], `    RowBox[{"3.1415926535897936`", " ", $ T" Q5 U6 ?9 ]- F
         RowBox[{"(", 0 M- _+ t7 i7 a# ?3 C
          RowBox[{
    ! Y% m* S6 L$ E5 y: s       RowBox[{"-", "0.28518780882`"}], "-",
    $ \' S. J: z% q9 \' h5 w7 G* ^       SuperscriptBox[
    7 e& F( j9 d3 F$ R5 K; g4 O        RowBox[{"(", 9 J5 |1 K* g& F+ v: r% q) ]+ X: Q
             RowBox[{1 y8 L$ K! O9 |! M, W
              RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
    7 I/ Y7 q+ ]% D1 e# p3 l0 h       SuperscriptBox[
    ( q7 u, j8 K& V        RowBox[{"(", 3 z/ a6 I7 t& r' ?. E% m; K: A
             RowBox[{! [. ^- Y, ~: J3 T5 Z' P  D
              RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", ' W; Z) r' f* q5 @3 Y
           SuperscriptBox[9 v, l  L' Q$ x2 ~7 {; p- J
            RowBox[{"(", 3 G2 [# s5 s# n8 w3 m+ {
             RowBox[{1 _% ^( @* y' Q
              RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", 7 K, Y6 O) l! b, g( P% N
           SuperscriptBox["x8", "2"], "-",
    7 A0 U) z! t6 p& Q; k: V! m1 l& ^       SuperscriptBox[& b# Y+ @# \6 p! m! p3 J
            RowBox[{"(",
    % x- r( t" o1 c' }+ e         RowBox[{) A+ h- _4 l# }# A5 P% |1 \1 _! }; i. Q
              RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
      J$ }) ?3 C3 a  B! T6 p  "+", - o. I5 T  f) D" z' w3 d
      RowBox[{"0.667027259367853`", " ",
    8 x( ^" [7 J: b, E9 G   SuperscriptBox["\[ExponentialE]", # U5 W) L# ]8 X8 B$ T" a9 j
        RowBox[{"3.1415926535897936`", " ", 5 x6 H9 L3 C; Q
         RowBox[{"(", 9 d! v. [. ~1 K) Q
          RowBox[{
    & ]+ L/ `& v7 j8 A$ i% B; j8 b       RowBox[{"-", "0.11387365200400001`"}], "-", 8 Z+ t) u/ S) r, ]0 e# F. {& j6 v
           SuperscriptBox[
    7 ?6 Y; ]7 H, P) z0 o        RowBox[{"(",
    . p4 l/ j9 V/ h, A+ I1 @4 p" ?         RowBox[{
      {* l3 r4 w/ g8 P          RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    * |& J7 i8 R" ]5 Y) [- X       SuperscriptBox[( F* u4 U+ Q& Z1 _4 c4 _
            RowBox[{"(", - [+ ?" ?9 d5 U) b9 W+ T
             RowBox[{
    ) l3 {! ]. K) e- r* d$ v          RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    6 E  m" s* n) @9 Q4 f) R' a       SuperscriptBox["x7", "2"], "-", / g# u/ `; ^' w! {3 q6 b. @6 r' P
           SuperscriptBox["x8", "2"], "-",
    ) `' ~: x* C$ H8 W* z( h       SuperscriptBox[1 g) j5 ^6 ^9 u' J0 S( j
            RowBox[{"(",
    0 i% @& ], F' ?" [# x' _         RowBox[{
    . S8 d4 _7 P8 j( K. \( Z2 J          RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    ; g% ?; e. v- @! `8 ^& {, u  "+", 4 J% w% `* t4 x* v1 b
      RowBox[{"0.25282438852646905`", " ",
    ' P* x5 s( u3 A5 q# o9 b   SuperscriptBox["\[ExponentialE]", * T' _4 m) c+ a  g" k- _% y
        RowBox[{"3.1415926535897936`", " ", ( b- x2 ?6 E4 n- X
         RowBox[{"(",
    , {. k3 |5 }( ]8 E" R+ Y0 S      RowBox[{" U/ u. _$ l2 p+ j, {
           RowBox[{"-", "0.11442644782500001`"}], "-", % U2 P8 m9 @7 g. N" E+ Q/ g
           SuperscriptBox[4 _4 X9 ^, p, K9 e8 P0 @
            RowBox[{"(", 6 j& }1 P$ A8 K! @/ F3 A
             RowBox[{4 D% T9 ~5 T. L5 Z' f+ t2 `/ n
              RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    ) }7 t4 o/ F/ M& z% q+ u       SuperscriptBox["x6", "2"], "-",
    $ c7 I5 r3 V3 p. \7 ]       SuperscriptBox[
    ' r# W# Q4 O2 s3 x        RowBox[{"(", 0 h0 n' S9 p9 c
             RowBox[{6 ?" ?1 f* F' ~; O8 H
              RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", / D! h+ D# e, c* y% z  `
           SuperscriptBox[
    4 [$ G) X( U: `- q1 _7 {2 Z# u        RowBox[{"(", % j/ @* v7 l0 N' O9 k
             RowBox[{3 I4 R" g: W5 ?7 R3 L7 f9 H
              RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", $ p& x$ c* x- R9 k
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
    5 V$ T& g5 [  z4 J, @  RowBox[{"0.07581214474544536`", " ",
    0 t2 C& ]# p# Z2 t   SuperscriptBox["\[ExponentialE]", + \4 H1 p: P* E! p7 v* Y6 i
        RowBox[{"3.1415926535897936`", " ",
    1 `4 ?" O' g1 ~! P3 t- H     RowBox[{"(", 3 ?! E/ H+ ^, Z$ A/ p* l
          RowBox[{
    ; I/ R7 l+ d. ]& ^+ E; C6 y! b       RowBox[{"-", "0.21008576609800003`"}], "-",
    * ^5 U3 M7 R1 {9 l) _  k5 U       SuperscriptBox["x3", "2"], "-",
    # S# U9 A2 m% s5 }$ I       SuperscriptBox["x6", "2"], "-",
    0 s9 l2 K; P6 C" D, |5 i       SuperscriptBox["x7", "2"], "-", : Z% i, @5 ^) D8 r8 M# E
           SuperscriptBox[1 h) Z6 E  D! d% w* l
            RowBox[{"(", " M& G" K! z- P
             RowBox[{% g6 @% v6 V9 b3 K% v
              RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", 8 T. Z7 A3 U, v- ]# ]1 h% D
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
      S5 g0 U6 X( c5 D  RowBox[{"0.10599338351843121`", " ", ' i1 x3 ~3 ~9 q; t8 F$ ~9 @# P
       SuperscriptBox["\[ExponentialE]",
    & P& g* P9 Y3 A  A3 T) f+ n  |3 @    RowBox[{"3.1415926535897936`", " ",
    : r4 v5 n6 q- U& r     RowBox[{"(",
    / p4 ?. S0 D# l8 b& `0 z; e5 Y      RowBox[{
    $ m9 G/ \7 y8 `; l. L, y. p8 r       RowBox[{"-", "0.4481471925460001`"}], "-",
    ! t  m' X: C) h2 Q7 f# c9 p& o       SuperscriptBox[7 R6 j7 D8 e( t4 t' N+ X# L; k4 l$ e$ o
            RowBox[{"(", 7 j3 W* ?1 @/ l5 A7 i+ k) L- U
             RowBox[{; o3 o$ ^6 |( P$ M0 i8 a
              RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", + H; A7 |6 h* s, I4 o. \4 j% a
           SuperscriptBox[9 w4 t: x% t- w  u- y2 W' U
            RowBox[{"(",
    ( f7 `9 o1 X: @         RowBox[{
    ' I: z1 v/ P8 l6 ]7 V          RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
    : X# H; d7 D: w0 F% N       SuperscriptBox["x7", "2"], "-", ( `. `5 q8 p+ P
           SuperscriptBox[
    ) |. p7 r: I* \4 G6 G: u        RowBox[{"(",
    * I5 e0 B: l, n9 }5 B         RowBox[{* }9 E4 Q, y1 {
              RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
    * c' H" t* p. L  m) Y       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    % f+ n- }. v- t. c, B& f  RowBox[{"0.5008208386064421`", " ", ! c( h7 V+ }7 U, p7 F2 R
       SuperscriptBox["\[ExponentialE]",
    + g: u6 D3 \( h0 N. t( T    RowBox[{"3.1415926535897936`", " ",
      |( r8 m! |. G; s5 b& ?4 Y     RowBox[{"(", + B0 v2 V0 b, `2 t  a% U% V1 [. C/ p4 g
          RowBox[{- ?- U3 t7 v6 `* O+ L" |0 |% S/ ?
           RowBox[{"-", "0.08722659614000003`"}], "-",
    # H$ u1 K; ?. y5 z- d. C/ ~2 [! o2 C       SuperscriptBox[( u* \" @# t- j4 }
            RowBox[{"(", ) N1 R! E- h0 W1 T# m
             RowBox[{
    & U3 |5 Q+ ^1 D3 i          RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", . l" i9 B( J7 e
           SuperscriptBox[
    / X, C! }1 l+ m0 ~8 _        RowBox[{"(", . R. j3 T4 C" t+ y3 V
             RowBox[{( y8 p' W# j  @/ t, j
              RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", 8 Y  H5 l+ [, ?4 q
           SuperscriptBox["x7", "2"], "-", % R$ O+ }1 f3 f  f/ x' U& W& ^/ x
           SuperscriptBox[( ^* g: q' a5 l4 y+ x5 ]$ W
            RowBox[{"(", ) t0 ~3 K1 `- x7 B* s. V
             RowBox[{" R2 M) Y' S) T0 ?5 K
              RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
    9 U. r- ?, }6 b1 x" Z       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    ( }' f1 M! V( s. |' [: X4 {  RowBox[{"0.32564305572552343`", " ",
    ) g5 N; R* H/ M/ u, d   SuperscriptBox["\[ExponentialE]",   r( X8 T2 D' Y6 ]) x
        RowBox[{"3.1415926535897936`", " ",
    ( f' N9 |. K: {# v; }& T     RowBox[{"(", 4 p; H$ y3 u2 F& n: r1 t8 T
          RowBox[{  C4 e8 Y3 D6 G% n2 [( t6 Q
           RowBox[{"-", "0.23738217000100004`"}], "-", . r9 W" v- ~( \; m9 y0 ~$ ~
           SuperscriptBox[& P* Q( _5 c% M! {& U
            RowBox[{"(", + f6 C  h& g8 r6 S& u* I4 s* _$ ]
             RowBox[{* o: }1 C9 F( \+ m* K- U, u5 f
              RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", 5 [1 b# t2 [2 d# e! I4 F  o2 d  i
           SuperscriptBox[0 P8 o3 e3 c7 b' \* k/ f
            RowBox[{"(", $ q+ ?" a5 e$ \: ^- f
             RowBox[{
    8 r3 W  a! ~/ D: j0 G          RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", , p  V# y. s' X" i
           SuperscriptBox[: e  \8 J" @& T9 y: |0 ^
            RowBox[{"(", 7 i. y5 V  c& B9 }  E5 }2 c+ c5 K
             RowBox[{+ m/ _+ |8 N1 Y; x( m8 m. ^
              RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
    ; n2 Q9 u% s+ D& |       SuperscriptBox[
    ' C' Z4 r$ m& W% M' _1 T        RowBox[{"(", " x1 i, e8 p5 R( _" e/ o" w
             RowBox[{
    + y' N7 n9 Q2 u8 ]3 M0 }# Y& `) ]          RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
    7 `) e) m. Q$ d       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", % Z' Q. @. _2 W- I5 [( ]
      RowBox[{"0.6665374509702793`", " ",
    ; [5 @1 y9 j" F- F- _   SuperscriptBox["\[ExponentialE]", ! o: B* T7 |. ^) U7 N' e' G5 @
        RowBox[{"3.1415926535897936`", " ", 9 ]8 {) S3 s! u0 d3 Z  A9 y5 K$ P
         RowBox[{"(", + w4 P4 v$ [5 q6 z) }" k, S
          RowBox[{
    " T5 l' o& p* v0 I& @6 J. X, |2 N' {       RowBox[{"-", "0.19162171876400003`"}], "-", , x+ p4 Q. H) q. x' [! F- d
           SuperscriptBox[
    ! F8 C% a- }$ m1 u/ f        RowBox[{"(", 6 P7 W0 B& B! V. ~! ~) Q9 ~
             RowBox[{: N# I1 }6 `# e, \  N
              RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
    8 J8 }# t% M6 Z9 L: z5 Y, @+ F       SuperscriptBox[
    8 R; [! x) x4 ?8 O& K        RowBox[{"(",
    * r( H( @2 _+ M# j         RowBox[{
    ) g. i; r( i+ Y( x          RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", 1 x5 X1 s' r8 Q8 J/ b5 f
           SuperscriptBox[- D' y( G) N3 E  E+ f+ r
            RowBox[{"(", $ i9 W: S* X: r* X9 o. ?, U" J
             RowBox[{
    8 H5 k. |9 n& m          RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    0 \# h" e8 c" v5 Y; {       SuperscriptBox["x8", "2"], "-", : R# e5 O. `5 p" I) `, |3 e
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    ) F$ @3 t/ [" P  RowBox[{"0.4812237524557293`", " ", & }; A5 d$ U! {, R
       SuperscriptBox["\[ExponentialE]",
    * S" T! U% k, V% x. M    RowBox[{"3.1415926535897936`", " ",
    * Z1 @; B7 D" w7 l# P$ }     RowBox[{"(",
    ; G& a/ K' N2 X0 |      RowBox[{
      F) z+ S2 `# `, a+ S       RowBox[{"-", "0.109748954594`"}], "-", 2 Y" C0 o4 ]$ @: O) D, _
           SuperscriptBox[
    ( n+ e  ?$ A+ k5 S! l0 ?7 \        RowBox[{"(",   e" ?2 I% U0 g& b( T5 w  g- Q
             RowBox[{
    1 G9 \) r" Q0 ?2 S" J# V( c          RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    8 b" r4 y( U* V5 Y( g       SuperscriptBox["x6", "2"], "-", + ?! ~- m: L& `/ P3 q; r
           SuperscriptBox[
    ! U3 D4 n  V( \2 F! T        RowBox[{"(",
    1 n& Z/ M, H+ a( {) r) y2 K1 A         RowBox[{
    1 F6 Q8 i' n+ ~) ?  \! V          RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
    4 X8 P1 {+ L( M1 Q: p1 c! t: P3 z       SuperscriptBox["x8", "2"], "-",
    3 `! k. ]% v4 J" q       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
    0 e1 W2 e: a& l3 M# P. G/ a  RowBox[{"0.176024676254045`", " ",
    ; i- D, H& j5 F' M/ z2 ^   SuperscriptBox["\[ExponentialE]",   S& N; L, P0 y! G
        RowBox[{"3.1415926535897936`", " ", ( b. q- S  b# J! [! ~
         RowBox[{"(", 1 M& ^- ?4 V5 J9 t8 |
          RowBox[{
    * ~1 B; @" x4 K       RowBox[{"-", "0.14616677062500003`"}], "-", 2 B2 T; q/ B. B& E# l0 g" ^" U
           SuperscriptBox[( t% I- H; F( \* R' N6 u0 D/ L
            RowBox[{"(",
    # v/ C4 i3 D1 J! v% v# E7 Z( ]         RowBox[{
    : P$ L+ {& n( [/ Y          RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", - R! q/ Z5 T. b" H
           SuperscriptBox["x6", "2"], "-", % M& @, y- v# y8 o9 E3 g
           SuperscriptBox[0 D: }; l' z; E- L: j" C5 ~
            RowBox[{"(", ( q% r0 G- n( n. T
             RowBox[{9 c# R) z' g* Z) R+ B: E. R0 r4 Q! r7 i3 D
              RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
    ( R% D" i% a9 N+ J% z       SuperscriptBox["x8", "2"], "-", & U6 Z+ x7 K4 E" O, e6 [
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", ' Y% H% _5 {. T, y; G
      RowBox[{"0.5945873894818965`", " ",
    6 J$ |3 ]( ~6 Z6 @- ]2 K   SuperscriptBox["\[ExponentialE]", . k$ h6 r0 M* [
        RowBox[{"3.1415926535897936`", " ", . ^* _5 Y: A  K4 _$ I  x
         RowBox[{"(", 5 e. w( Z" _' K
          RowBox[{
    9 n) |4 F" l& |- S6 R. z2 M% j       RowBox[{"-", "0.10407011464100005`"}], "-", + a% U; R" X# ~! R7 M
           SuperscriptBox[! Q) w4 P; b, W9 c3 `: _6 {' w
            RowBox[{"(",
    ; |, F1 ]% w# a, t         RowBox[{
    9 d8 x. Q% V9 A3 v6 O8 A$ E+ E          RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", 1 g) ~2 t5 z5 Z3 O* P- ~* B! r1 `
           SuperscriptBox[% _( W  M5 F  |( z& d3 H/ q, x! |2 s! d
            RowBox[{"(",
    : g+ g2 g, F0 s         RowBox[{$ ~  q1 r5 b% L8 z7 a; m, {+ U' V
              RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
    , E6 ~8 i% J7 ]/ H0 A' r       SuperscriptBox[
    + o. t/ \9 x; r5 w' \        RowBox[{"(",
    5 P/ C7 Z" A1 U5 r+ D9 l9 ~9 Y         RowBox[{
    ! r7 P5 L! ]- O9 a; u* Y          RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", , H, ^' ?$ w1 d8 |: F6 O- F9 ]
           SuperscriptBox["x8", "2"], "-", + k  r+ }* A% h; j
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", 8 A- U5 i$ g& P0 H6 g
      RowBox[{"0.027591936509660075`", " ",
    : B% ]9 e  z: M   SuperscriptBox["\[ExponentialE]", " E& \2 b1 q# t& q% k
        RowBox[{"3.1415926535897936`", " ", 6 I5 i) V$ S4 `- |# v4 ?
         RowBox[{"(", 7 ]) F$ V2 m' r8 Z( b8 ]! B
          RowBox[{
    8 k: G+ e. z3 @2 Z, k, p/ i       RowBox[{"-", "0.31770463544200006`"}], "-",
    4 \! A' |' v" F5 G, c( `: `+ p       SuperscriptBox[- b( F1 `, u8 J, L
            RowBox[{"(",
    9 ]) I4 R9 h# u$ C  ^( h" y         RowBox[{. Y2 a8 ]8 r% v# ^
              RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
    " h/ \& n  p8 j       SuperscriptBox["x6", "2"], "-", ! _+ W8 y5 A6 u: L/ p' ~  z" u
           SuperscriptBox["x7", "2"], "-", 5 T  \0 u* m+ x# t! @+ |$ }+ w
           SuperscriptBox["x8", "2"], "-", ) [% M7 e, {9 A8 F+ d6 H+ t- V
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", & t/ B- o5 @1 j/ i! b
      RowBox[{"0.5252475961933536`", " ",
      r/ o% c9 O1 w6 V   SuperscriptBox["\[ExponentialE]",   U* j, S$ Z6 m/ R5 V
        RowBox[{"3.1415926535897936`", " ", 1 B  b8 M* D' F
         RowBox[{"(",
    - K( d% u/ S! B% _5 x( p$ I      RowBox[{
    5 G- D. S* j0 j# \# H. T8 Y% S       RowBox[{"-", "0.6410867660730001`"}], "-", * {1 G9 W2 v' f
           SuperscriptBox[2 y& s  a. s& v3 d& e% c9 {
            RowBox[{"(",
    ; h- j0 j! h' s) H2 W3 j! o         RowBox[{* ]* o; ^5 h( g% V
              RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",   w2 w# m+ T: t3 g" u  E$ {  }
           SuperscriptBox["x6", "2"], "-", ' \4 F* P# A, I2 O# u
           SuperscriptBox["x7", "2"], "-", - \8 A  g. h3 g0 b7 U, A
           SuperscriptBox["x8", "2"], "-",   O- e# }+ p' M5 q+ g. n( L- T) \9 s2 j# N
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
    6 K, ]4 x% \2 ~7 k8 U3 y  RowBox[{"0.32047284779644936`", " ", ) e+ \) i0 H  g1 {
       SuperscriptBox["\[ExponentialE]", ) t9 b9 X0 E+ O+ l4 I" {8 S3 F- H* ]- T
        RowBox[{"3.1415926535897936`", " ", ' U. M9 G, u; t1 u3 C
         RowBox[{"(", # ]8 P: T+ U  q) Q  i
          RowBox[{) S3 D2 G$ F( e8 B+ M
           RowBox[{"-", "0.155663887074`"}], "-",
    , A. A. C$ q6 ]0 S8 C: u" H       SuperscriptBox[# d& B1 f6 q% j
            RowBox[{"(", " M0 `' \1 }+ T( h+ T
             RowBox[{  u0 Z3 _) ^. J. {9 l# A- z& U/ T( K7 q
              RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", 5 }  B% p+ l# @+ j- l; I' j
           SuperscriptBox["x6", "2"], "-", ) V: G$ A% |3 V  P3 m
           SuperscriptBox["x7", "2"], "-", 3 J+ G: s! M  I3 a7 n# `
           SuperscriptBox["x8", "2"], "-", % T5 A$ U' W* t+ B9 b7 U: v
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", " f* y, ^1 M1 h4 D0 Z
      RowBox[{"0.7528674241482847`", " ",
    . i. Q9 K' q4 l7 k& u; L- O   SuperscriptBox["\[ExponentialE]", 8 K& @( j# s% O2 u
        RowBox[{"3.1415926535897936`", " ",
    & j, B& y- V- _     RowBox[{"(", * u4 s: j, N* b. U7 f$ x6 `: V
          RowBox[{( B9 E- `" ~4 d3 L; q% k8 e
           RowBox[{"-", "0.14151232428600002`"}], "-", * l+ }: o. z; s3 W1 ]
           SuperscriptBox[' c$ J. u% b1 c' z
            RowBox[{"(",
    2 w  ~6 p$ v; {  g. \         RowBox[{' Q! F0 k' y: [- z* R% ]
              RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
    3 W- G. w2 `# S7 ^       SuperscriptBox["x6", "2"], "-",
    % x5 G6 ^9 u" n7 _$ k% [* y$ r. y       SuperscriptBox["x7", "2"], "-", , |3 q8 |" |4 ~; @3 m5 L
           SuperscriptBox["x8", "2"], "-", / t% O! i! d- T
           SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",$ n0 ]: |; |, Z9 g. \* W7 t) Z8 u
    CellChangeTimes->{3.5779628386090403`*^9}]3 U) o6 ^/ {; B" V0 s, q8 L0 o) }
    }, Open  ]],
    # g. u' m+ s' Q8 i$ T
    - E) h0 ^" `  W& HCell[BoxData[" "], "Input",  D% `, w% [) o2 y) B5 k
    CellChangeTimes->{3.577962835879035*^9}],
    ( P- G5 v& {+ Y: P4 t4 a; J( ?" D2 p3 q
    Cell[BoxData["\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\:4e3a"], "Input"],
    ! S, F. d, e4 A* B( w
    ) v3 ]+ w, D; B" H& J; p8 k- W3 ~$ SCell[CellGroupData[{
    ! H: k" e- j) K% g
    8 U4 r3 A* d6 ]( q) d, CCell[BoxData[
    8 G; {4 |; `# x RowBox[{"y2", "/.", % `" `1 q; ?6 G2 d7 ^/ U
      RowBox[{"{",
    ) U8 o* ~7 e7 ^7 {* M+ D   RowBox[{
    & ?7 F; R! C1 K    RowBox[{"x1", "->", "0.7406"}], ",",
    - U& o2 f9 Z7 S( b1 F& s    RowBox[{"x2", "->", "0.4621"}], ",",
    ) ?. j- e5 a8 _: C    RowBox[{"x4", "->", "0.2221"}], ",",
    " _, w0 x2 ~( d    RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",
    , r* O" o, N$ S3 {. Z2 a1 J' ~ CellChangeTimes->{3.577962787784151*^9}],- |& u. E5 T! ?, X- I

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

    ) ?" t2 y. v; G(* End of internal cache information *）
    + y9 [7 n, T- {0 C) K7 O7 ^- Z3 M6 Z: P- C# K* X/ u
    这个是用mathmatic做的神经网络，能导出最后的权值，就是可以写出表达式，我想用matlab做，却不知道怎么做
    回复

    使用道具 举报

    569646632        

    0

    主题

    7

    听众

    46

    积分

    升级  43.16%

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

    • 签到天数: 9 天

    [LV.3]偶尔看看II

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

    使用道具 举报

    -___        

    0

    主题

    8

    听众

    44

    积分

    升级  41.05%

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

    • 签到天数: 12 天

    [LV.3]偶尔看看II

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

    使用道具 举报

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

    qq
    收缩

    • 电话咨询

    • 04714969085

    fastpost

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

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

    蒙公网安备 15010502000194号

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

    GMT+8, 2026-6-14 05:27 , Processed in 1.506290 second(s), 101 queries .

    回顶部