快捷通道

QQ登录

只需要一步，快速开始

  注册地址  找回密码

数学建模社区-数学中国

留学>>
返回列表 发新帖
查看: 10756|回复: 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
    问题完善一下！或者把代码贴上！2 ^( P3 O7 ^5 X, q% D; i3 U" J
    回复

    使用道具 举报

    琳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 ( W7 T6 r4 r9 t9 @$ z/ Q
    神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗

    . G2 p& B2 G1 q( ?0 ]6 @# w/ q(* Content-type: application/mathematica *)/ K) I; F) x; b- w$ v0 p
    * }: B& M0 K; X% e% L9 z% w
    (*** Wolfram Notebook File ***)
    9 X1 z: X5 {  D+ }+ [* _(* http://www.wolfram.com/nb *)
    " y( n7 g( I1 K, R2 N0 D# H$ s+ r- ^
    (* CreatedBy='Mathematica 7.0' *)
    ! G: T% r$ A! F7 x' b8 N) _# L1 S$ A6 @
    (*CacheID: 234*)% U$ p( J8 O6 u/ t: p0 U
    (* Internal cache information:
    / K" S3 n& y5 J" ^! cNotebookFileLineBreakTest& r' k3 ?0 i) V8 r! a  u% c
    NotebookFileLineBreakTest+ ^. ~' ]" Y5 k3 e" X, x/ I
    NotebookDataPosition[       145,          7]# b/ _; k. A# \
    NotebookDataLength[    423629,      11534]
    4 v8 X" j8 z7 z3 q; Z' tNotebookOptionsPosition[    412607,      11173]! Z) A# X+ k4 o7 ]8 M( i- L
    NotebookOutlinePosition[    412953,      11188]  P+ H5 d4 S; |0 \
    CellTagsIndexPosition[    412910,      11185]; C$ L) P, N$ I
    WindowFrame->Normal*)) D; o, x. J5 {$ N: |9 W( }) Y

    , v9 d* M7 r* L) H, p$ ^' |" w(* Beginning of Notebook Content *)
    ' @$ }. i! L$ _! PNotebook[{4 O) t4 T6 B3 ?0 Q: o: G* K

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

    " N. V% s  T% j8 _: lCell[BoxData[
    ) `2 [0 e3 d8 [ RowBox[{"Array", "[",
    3 f8 X2 h6 J( N9 }) x# C  RowBox[{"CM", ",", ! k% N. ?8 @0 P: ^8 J
       RowBox[{"{", # z( a, s" q5 |! r
        RowBox[{"80", ",", "9"}], "}"}]}], "]"}]], "Input",
    5 R. o* Y! T3 a& `! Q* y$ f CellChangeTimes->{{3.577844235859375*^9, 3.577844291953125*^9}}],; B- Y8 u4 X" O% ]6 G  A! g3 f

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

    " c9 I- [) d. N3 RCell[BoxData["M1"], "Input",
    ' ^: g2 W2 U% X: ~ CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
    : S/ T- f. q9 n; |+ H  D4 c7 L9 K
    8 U! P8 ~0 ]# m# F. m6 ?Cell[BoxData["21"], "Output",4 C7 G; X* M! T" T' b; F2 a
    CellChangeTimes->{
    9 C; s4 U  G2 g4 Y7 ?$ i  3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {  D) C+ s4 `# F9 C$ g* {9 N
       3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9,
    * ~6 h1 K1 Z; [8 E  a" ^6 }& Z   3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {
    : s/ v! {6 A- f6 y! ~0 B2 h   3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
    + d3 r# P) v0 s; Y7 R& K2 u% S   3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
    # ]. N& }7 M8 C. w; N   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9,
    ( ]* w' ?: i3 b   3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {$ i/ b' v, y! g+ {7 n4 h
       3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9,
    : c, n" A8 s0 Q4 V   3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9,
    3 q  o" u7 m9 N+ e/ E/ M1 x6 W3 T   3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9, 6 Q! [  O1 D/ B. u) a+ A5 t
       3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9, : S9 y/ H  _& W
       3.577960515600726*^9, 3.5780121541875*^9}]. f' O( R; r0 H
    }, Open  ]],6 Y- i+ s% z) l  I5 H# y
    % ]1 P( r, g- P) \, K. ?6 y
    Cell[BoxData[
    1 l8 t7 \  \1 G! ] RowBox[{
    % I  t0 @! n: T6 K, I6 H  RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[", " s. C4 \  x. n8 n& F/ e' N/ l
       RowBox[{"1", ",", "i"}], "]"}], 4 O1 X+ h. w! ]: _3 ^2 _2 R. @5 e8 u
      RowBox[{"\:5230CM", "[", ; [! u# ]3 T7 ~, F& U3 ~
       RowBox[{"21", ",", "i"}], "]"}], 6 g0 F3 ]9 b. E+ R# Z
      "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\
    1 O" t+ Y, ^( S: y" w\:51fd\:6570u1\:5230u21"}]], "Input",
    * M  t% ]# w( m CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {
    ' p. i$ R. ]. z1 [$ f  3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9,
    ; }$ f0 z1 Q2 y* m* B) b# k+ D, D5 `  3.577960526583145*^9}}],
    $ L: u( W- w$ `0 \6 T2 ~) U
    $ _4 z. a8 j& t3 Z  K6 b( nCell[BoxData[' Z9 t; y) l  W0 J0 M8 T9 D% R0 T4 A9 G
    RowBox[{"Clear", "[", "Delta", "]"}]], "Input",( m- u' t+ A; I
    CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],
    , }, _: O8 C( v1 x6 y' `( F& y" e: |: |) }+ T
    Cell[CellGroupData[{6 f. g6 D5 ^2 F5 {
    2 O0 p9 f" _5 a( m! `
    Cell[BoxData[  ^% q* T+ G" {
    RowBox[{"Xa", "=", / e" {, P5 z- n. p6 ?
      RowBox[{"{",
    8 l) `7 Z  _/ ?- P0 B% U   RowBox[{9 j! F4 u( f% j- A
       "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", 0 P. V+ k) L8 ^  D5 ~" L
        ",", "x8", ",", "x9"}], "}"}]}]], "Input"," [" Q& ~) b( E9 l. o4 j8 \- E/ e
    CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],8 `/ c5 A9 B4 `6 s0 {. d- O

      r* s# u, w& D8 v0 E4 r' ECell[BoxData[* [, K3 z, d( E6 J
    RowBox[{"{",
    ) y. @4 H! X3 s5 Y% u: S+ L: P2 q  RowBox[{
    5 K2 a% O: a0 ^, C  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",4 s& `& r9 w  A& I) m
        "x8", ",", "x9"}], "}"}]], "Output",. p. W$ {. r" b+ t' y! L! ^
    CellChangeTimes->{. K! j" b1 X7 w; k  L! b. W+ w
      3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9, ; M" q  P% Z; `1 K9 M- M; D4 F
       3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9, 6 }2 n0 x  p$ [. X* F
       3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9, ' Y% @' J3 |' m  @% l
       3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9,
    . Q0 `% [+ a; k( u   3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {
    5 E* d1 y: G* G, n  k% c   3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9,
    ( X4 m& D6 Y% O( Y   3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9}, / r/ P$ u( Y. M7 A1 r  ?" Q
       3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {* E- U+ [5 V8 K* z9 c1 ]3 I
       3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {1 T- V% z: a% T+ r: K/ s( W& E) G
       3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
    3 N" C5 \! ?. N   3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
      J* [6 S, ?  \! @3 D) x   3.57801215725*^9}]: }  [) a8 ^$ M( e5 A7 i
    }, Open  ]],
    % ?, K" y5 ~! t; p; o1 b
    . v" W& P+ g! V7 U* y0 C; vCell[CellGroupData[{/ k8 p/ f! Q* J# j6 Q3 e
    6 ?: g, e3 j5 B6 }
    Cell[BoxData[
    2 L. C, s' `* Y' i8 M# F8 F RowBox[{"Ca", "=", 6 t) {* s* V4 u+ M* g
      RowBox[{"{",
    * g5 H7 c2 j) [, ^6 f  v   RowBox[{
    2 T( j7 k4 J2 O8 y5 d2 f/ j* P   "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", 3 ?/ J6 h  b7 C/ s. ^( `: _
        ",", "c8", ",", "c9"}], "}"}]}]], "Input",3 p- d% @- t' g* c- a! M
    CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],
    0 U! k4 K$ B. G# P# S7 i, q  w0 s7 h) c- n  L
    Cell[BoxData[
    4 A% C1 |* I) a6 ~ RowBox[{"{", 8 r' _7 X) J$ \$ h6 U, N
      RowBox[{
    , v. c& F. V! D  "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",. x  |8 _) @6 A! S
        "c8", ",", "c9"}], "}"}]], "Output",; Y! C5 P* [+ u- e5 u
    CellChangeTimes->{6 T( d' b! I8 p$ i; ~7 W
      3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
    + S( P1 w% o1 g6 S* O   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9, 3 ^7 L/ p$ e; c( Z
       3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9, & Z9 r% x3 r0 s; r  y' e
       3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {  X& k" T+ m* R8 p$ v
       3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9, 6 m4 W; g( o4 s4 a; r8 o- k+ x- v
       3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9}, & A( \, q1 q. }
       3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
    1 F3 Z0 K- V, \' U' W! }4 v* W   3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9, ' i" F$ b5 N, F- S, \& H
       3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9}, : r, z! g8 Z- ]9 W
       3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
    8 J# o5 J" [' Y9 Y' d   3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9, 9 n. X6 H) i/ Q5 ^% P# k$ I
       3.577961904604212*^9}, 3.578012158671875*^9}]) b9 u. f7 u2 Q1 S" l% m- T
    }, Open  ]],
    / U2 g: a) z, K) K5 _' I; ]0 @3 \. W5 h: L( r
    Cell[BoxData[
    . s. G: d$ P4 i$ M* T4 r: ] RowBox[{"For", "[", , F& h$ l1 M  [7 F5 L
      RowBox[{
    ( W6 h8 N2 M5 x! w1 |, \   RowBox[{"i", "=", "1"}], ",",
    , \( R  S0 T8 N4 _0 J7 f& k1 q/ h   RowBox[{"i", "\[LessEqual]", "9"}], ",",
    0 T+ E: n' z! Z, K   RowBox[{"i", "++"}], ",", - C# T5 H7 J5 r2 L/ |
       RowBox[{. S3 }2 ]" k- s9 u* U
        RowBox[{"Ca", "[", * c% c( S$ F5 ]3 d" T
         RowBox[{"[", "i", "]"}], "]"}], "=", 7 s: c0 q/ p6 o
        RowBox[{"CM", "[", 7 _+ a+ K8 a  Y# l; p
         RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    5 `+ H8 F8 ]* `1 Z: P( e CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9}, ! }" O# G! c# `9 q7 X* R' F
       3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9, : j* L' _+ q0 G
       3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9,
      M0 b5 N9 Z: a: X$ D: s   3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9, ; X# \- A" |, A. [: \
       3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9, ) L) l/ z( J/ B' G. q
       3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9,
    7 N& |2 O6 y5 t$ |+ b$ A   3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
    % H' U8 p9 `# m7 m" k   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
    0 E. d. m1 Q9 \/ k- p- s, {   3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
    : o& w: D2 |/ D& t6 s   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9}, ! H$ a3 J6 z( d1 e" X
       3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {9 L% a9 ^; J/ {' v
       3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9, 1 Z/ j) f$ L* t* W. V6 f
       3.577961906897415*^9}, 3.578012176296875*^9}],; N/ h; ^" X+ ?7 d8 E. x" H8 ]
    5 `9 a0 e3 k. H! y* z+ ]8 V" }# \
    Cell[CellGroupData[{1 l! z; P+ K& b' W* m* l- z" o5 C
    , }& `9 U' X* o9 k
    Cell[BoxData[4 |  b7 r) \# r' F4 k# ?! t3 L
    RowBox[{8 K& Z6 Y9 a4 k
      RowBox[{"(", 3 }/ N$ D" C! Y% ?* t& _
       RowBox[{"Xa", "-", "Ca"}], ")"}], ".", + |- Q0 J/ H1 S) Q
      RowBox[{"(",
    2 q* X9 v5 O& R4 v4 c   RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],
    ( ^% P  R7 x* M: ], k. ~# ^
    3 f8 ^/ }. N4 P: ?% _. ~Cell[BoxData[) F9 c* Q) g; q( k3 ]7 z# M5 k$ _
    RowBox[{$ z' l  o; e- i  O/ j2 ^! b3 O
      SuperscriptBox[+ T+ o5 ]; d# _" E; }, U8 y
       RowBox[{"(",
    5 V! p' G' \) @# c& b4 F    RowBox[{# K- F: [+ ~* O* C* A4 j" _3 P
         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+",
    1 Q- a& ]: [; @! a1 b  SuperscriptBox[
    $ I4 X( e: ~4 f& c7 X   RowBox[{"(", 2 ^" W( l  @& A  \( `! D
        RowBox[{
    2 b  F5 K' N1 R  A, ~: P  p     RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",
    5 {2 d, _% l8 T  SuperscriptBox[
    & g/ a  h4 k8 I/ G  w7 c   RowBox[{"(",
    % m, U) W& W" l7 I    RowBox[{
    * B4 u$ j" J8 _1 @     RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+", ! q( R" c2 ~9 A
      SuperscriptBox[
    $ ~! v5 {, Y0 O) p+ `   RowBox[{"(",
    % R( _. u( a* X. ]7 e! f    RowBox[{3 h6 l( `( J+ L( O' _; S
         RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
    # V4 K/ n& r! B" s. m3 I# o! p! Z  SuperscriptBox[3 `% S6 E# y$ v5 Z7 f
       RowBox[{"(", ' a$ E# ^2 r5 U, h* |9 T$ m/ [, P
        RowBox[{* l, N8 P6 N2 ^* n: ?
         RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+", 2 g* E- r, b1 e) F5 ^7 i2 \
      SuperscriptBox[
    * U* p0 a0 `) U2 q   RowBox[{"(", & r9 Q) P# ], x& V$ P( C
        RowBox[{- S' s9 v! R" F2 s8 b* `
         RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
    8 d3 b- U- m) R% L  C9 ~1 _  SuperscriptBox[
    ) U7 o1 ^" ]: K% y% p  S   RowBox[{"(",
    1 [7 u# S2 |- V+ {1 F3 o8 f8 _    RowBox[{! D* D2 `$ P! T. V
         RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+", 4 Q5 p8 n+ i7 n3 p4 `) j: r
      SuperscriptBox[
    1 e* w1 T+ Z3 Q7 c: ^8 I   RowBox[{"(",
    & q' r2 Z6 ^- z3 i' D7 W    RowBox[{
    " w- o! a/ R- I' t     RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+", 0 i  Z# ~0 S2 w9 t4 Y% M
      SuperscriptBox[. z# V. G! r3 z+ Y
       RowBox[{"(", 7 s# A5 P, g' {7 J, ?& g
        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",
    2 Y, `* G. t- ]9 b CellChangeTimes->{
    . m( S; N5 ]8 q1 y* i  3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9},
    # J7 v6 f2 U4 |! n. `6 i) ?   3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9, ! C% ]9 Z: _8 E' [  t' }, t* {
       3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9,
    + z1 k9 s# m, P4 ~, r! q, \   3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9, 1 {/ O" j: `; z6 q5 w3 W& ~1 n
       3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9},
    - s& j2 i) l0 J/ H0 p* P   3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,
    ' e! A- I) M/ E/ L0 D4 ?   3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {$ @6 {$ I6 g( i/ r5 o4 w- I
       3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
    & M  {/ ]$ a2 ]- c7 n. x. ^   3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {* R* E$ C8 {6 a9 D5 S4 P% P
       3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {8 |4 c3 F' C) _, i
       3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9,
    % i7 a4 ~8 u% C* ]! I; k   3.5779618537169228`*^9}, {3.5779618846049767`*^9,
    $ T2 T$ W& t* v1 I. \   3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}], K8 \) _+ v0 `4 [) N  I
    }, Open  ]],
    6 e/ W- `" g5 E# r. A/ v- G) k; J1 C1 a+ g  Y1 n  W) k* Z" v0 ?
    Cell[CellGroupData[{
    5 [8 M) s! Y$ }  L
    9 N) o- R) V7 o3 V' O( d% ECell[BoxData[
    7 k+ l' m, W# {1 H8 _- f2 A RowBox[{& m" ~7 ]8 [* Z/ j) J/ m
      RowBox[{"Ca", "[", 6 k3 N, }& O6 e( K1 v
       RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input"," l: V4 R6 O/ r. M1 ?7 R
    CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
    3 s& f- {% W7 U  3.5779616465173616`*^9}],3 m3 J, T# l% Q2 s

    8 v& }% Q! I. U3 u  u* x% C2 SCell[BoxData["0"], "Output",
    6 T) Y* l( J" ]; b% g CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
    / r. Y( ?7 y+ Y  3.5779616484049644`*^9}]
    7 B6 {2 ?1 {* k' }6 u}, Open  ]],) [& G7 e+ z( r
    / H& D6 X9 q( Y% p" K) y4 A: X5 P4 L
    Cell[CellGroupData[{5 f+ @+ L/ T7 K

    0 {) n7 X2 v; b7 e! zCell[BoxData[
    & G  q1 h" Y/ M2 O% C: e/ i RowBox[{
    0 _- i& Z; [& k  RowBox[{"Ca", "[", 8 b( V/ z3 s, s' z  e
       RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",; C! F) q; u8 |1 l8 O9 W2 V
    CellChangeTimes->{3.577957376235614*^9}],
    9 L3 e, E1 T" z* L+ Y& I% c0 x4 `8 ?/ q8 o
    Cell[BoxData["0"], "Output",
    4 Q( L' G& o+ r CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]) o; y" }  [1 l" `6 D
    }, Open  ]],/ x6 d& i; v5 a
    3 g2 s1 w/ w0 w8 t( \9 N
    Cell[CellGroupData[{( g7 _$ R6 F4 ?+ w
    8 P% y8 l6 L8 I9 y, f7 I6 C
    Cell[BoxData[
    ' Q! K: s, \% c( t0 z RowBox[{& e. b/ |9 x, J4 c* ~6 m/ Z2 U
      RowBox[{"Ca", "[",
    + V- n# W# K$ t: P; i! n   RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
    : p  L2 d4 l$ F/ t; X" E2 N CellChangeTimes->{3.5779573112927003`*^9}],$ F2 X4 e/ J2 r) A9 a$ {
    6 h1 Q8 g/ `5 [; w) R+ ]5 J0 }
    Cell[BoxData["0"], "Output",
    * H; V8 s! `% _  V8 X4 B CellChangeTimes->{% P  H* H/ ]3 q
      3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,
    # s  V& X2 D( T; @   3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9, 9 C; y2 v5 Z1 A3 x
       3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
    ' q+ f7 j: g8 @: X% N, h   3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,
    , R; D' Z/ M( u* c& l   3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9},
    . E4 A2 J3 b- L  @& a, w' j8 o   3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]+ v5 [7 z/ W) U. |' u: t
    }, Open  ]],
    & z6 [! Q) j4 @4 y: [4 s+ ~3 o2 s
    ' H  u8 V, P7 {- cCell[CellGroupData[{% U& Z. ?$ R4 f# I& U$ e/ b

    ) V) c$ \' t& f! yCell[BoxData[
    # Z, s2 I, v& v6 D  F RowBox[{
    4 W5 K  F4 p" t' O3 _# S  RowBox[{"Ca", "[", , ~* Y" k# Y# A( M
       RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
    7 g" E7 w, L) L5 p CellChangeTimes->{3.577921461734375*^9}],2 @+ s: i7 R2 n; ^

    / M  O; Z" ?' N% nCell[BoxData["0"], "Output",
    8 C' z2 B* Y2 k4 E1 E/ A, U CellChangeTimes->{! ~/ o9 M3 e7 h' s1 _" {
      3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9, ) e& |# G  r0 x
       3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9}, " O: J) p' U) P0 h9 W9 q5 z
       3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
    2 g8 z$ d/ v* o, s2 Q6 ^   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9,
    ) s; z& ~+ ]; g  X' F; }   3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]3 p$ H: [6 F1 m3 v3 ~' i. O3 V
    }, Open  ]],9 q* N4 u4 b. g  t- Y
    % _5 u- w, I: g3 G8 l9 Q. Y
    Cell[CellGroupData[{
    6 h; }5 d9 L  ^* w; s0 \$ v2 o+ c3 q. x6 ^8 I: T' c1 o
    Cell[BoxData[
    " R3 c# T' S! O( m RowBox[{
    $ {1 H+ C( H  ]7 o2 q0 X0 T  RowBox[{"Ca", "[", 3 O' L2 k" X9 @  p4 X$ S' _4 j2 D( n' k; J
       RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",9 J% b$ o5 j+ p# W8 i
    CellChangeTimes->{3.577957303118286*^9}],2 u9 r, y0 \3 z  l, n2 C# E9 n4 ~
    : {4 f* W7 l4 i6 T& e
    Cell[BoxData["0"], "Output",
    8 b" s! T: C( Z) X) e: | CellChangeTimes->{
    * q5 c1 _0 u- t( F& l  3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {; n) \8 Y4 A. W4 ]$ n1 B$ e* [
       3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
    4 H: e1 x1 }/ W   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9, , W& C0 \' ~+ a6 u
       3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9, 5 Y% @. F  f9 I8 w( Y8 M
       3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9, 9 b0 k  H3 z$ o& h
       3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
    & p" I7 o" M/ P# R2 }  }   3.577961889378585*^9, 3.577961912965826*^9}}]
    ! }! W+ ?9 ~0 r9 w2 J}, Open  ]],
    ' I: S* X* b: Q8 P- \) |
    9 ~6 W, N3 V- H8 S! q, cCell[CellGroupData[{
    & k4 Z9 f5 q! G, |2 |4 x' M+ p4 p( Z& m5 z2 X# d
    Cell[BoxData[1 G0 M( k# r9 R+ |% p8 [& Y
    RowBox[{/ V- o3 q/ v9 o- y
      RowBox[{"Ca", "[",
    ( Q5 B/ O7 a3 n6 T1 ]: g   RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",7 E7 t' j: |$ o" o% n1 `( V8 l2 k
    CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {: q$ [7 q% A3 n. Z$ Z; e" ]; n
      3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
    6 q- _* e: E  Z  3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {
    5 n/ V; G; Y( {! a. v  3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
      ^% F. V2 L. ^9 ^3 U+ }5 L  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {6 y* i% M5 E0 C4 r; ]
      3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9, 1 w6 e' z# \  g) B. ^
      3.577921435703125*^9}}],
    ( J% W$ u2 W# V4 x4 r9 G
    " P9 [* f2 `  y  VCell[BoxData["0"], "Output",
    ! y% v: {, |( N# Q3 X1 c CellChangeTimes->{- f2 u, V4 j0 c: _5 z/ d' @
      3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {. i  v1 Q' d$ q
       3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9,
    % Z  x+ K4 a' Z/ |   3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {& V: N" J4 I! G2 m. D! [
       3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9,
    . p" B) u( R0 z# ~. Y   3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {1 F' d! q% r% a
       3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
    ; S- \, R( u) l: P9 p; Q   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9, 2 A! y3 R- q4 o4 R* l1 Z5 H
       3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
    8 L& t# d( Z  e2 g   3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
    / D, d( l% K/ C. C. z7 x   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9, % @& h; g% @  X; w2 v4 z
       3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {" D8 P8 L+ g4 {% c" N
       3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9,
    2 G4 C1 C) U  N. E. m* x   3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]7 D3 G. R; a) O1 b, D" f) ?7 I
    }, Open  ]],
    * F) G8 N$ \  f
    , K& z. t% M* U6 oCell[CellGroupData[{' {6 G& G" F! l# z* i4 h
    ) n$ @- F8 O9 d" ?) l* l! X) [
    Cell[BoxData[
    ' X$ O$ Y* T# |$ N8 q RowBox[{"Delta1", "=",
    4 x- w  E) P: A1 a" q4 M1 N" M" w  RowBox[{
    * M/ Y5 ?% f& F: i& l/ O7 N   SubsuperscriptBox["\[Integral]",
    6 o) `7 t2 H% d& V8 A; N. w    RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], $ u( z, l0 M9 N& A" E# @# }! p
       RowBox[{
    6 f6 C7 W1 U  B8 Q7 [    SubsuperscriptBox["\[Integral]", + I+ \3 U3 Z" M1 C  v) }- c
         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    4 L( c' |+ l- S9 X    RowBox[{$ W" B7 Y6 A' @9 a2 v6 ?" _3 _( k
         SubsuperscriptBox["\[Integral]",
    3 N( O0 l: h4 G- }" m, j8 @      RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    , {  }0 K5 [- h! k- D: ^$ u% x" x( E     RowBox[{: {* i, x" Y- F/ I0 N  Y9 o+ U% V
          SubsuperscriptBox["\[Integral]",
    / ?% R. W) R2 f       RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ( ~+ [& ?$ |5 |+ ]" j0 n3 @4 ?
          RowBox[{7 K6 q! V" E6 m$ |% M! D9 r
           SubsuperscriptBox["\[Integral]",
    ( D* e  a/ {5 ?2 a# H7 Q1 f        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    * F8 ?# E! P: N- F$ ~9 ~0 V       RowBox[{* O8 ?8 t3 x+ i/ _: F4 m1 o9 f
            SubsuperscriptBox["\[Integral]", : L' U0 A, K, N+ \% ^
             RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    7 R* i9 t& d) W9 L( l        RowBox[{+ h. H2 X- X5 ]/ [4 [0 N& `
             SubsuperscriptBox["\[Integral]", 0 L) Z: L8 s) p5 \& u) c: A+ G
              RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    8 |' u! o0 S6 y- Z$ F         RowBox[{( p& b, a5 i2 n+ q2 S* j; d8 a
              SubsuperscriptBox["\[Integral]",
    1 a- s9 `/ ?" I# L! w' v           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    5 _2 [) K/ n( y( {. r  u; V% x; R0 M          RowBox[{
    ) t  _0 l- A5 \/ `           SubsuperscriptBox["\[Integral]", " H! g/ q  u9 T2 N. E
                RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], * @) z7 }* _2 Y" f, T1 `
               RowBox[{/ H5 A# L' k4 i  d& E& j
                RowBox[{"Exp", "[", 3 W) x. r( w& N' \: H
                 RowBox[{* p$ f- a9 ^' k) u  K6 p5 y' l
                  RowBox[{# D5 }2 j, [& \' l: M
                   RowBox[{"-",
    ' V; i. `1 t# g+ t1 g                RowBox[{
    & W. @" I2 k+ W& \1 g                 RowBox[{"(",
    " G! ~1 ]+ d" n/ u                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
      A& z- `. L( c2 p5 a                 RowBox[{"(",
    / U+ S9 H- i2 |7 q/ M: Q                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
    ; F# v7 b- ~2 m% L6 C              "Delta"}], "]"}],
    8 }6 y& M7 }# c8 Z  Q* g            RowBox[{"\[DifferentialD]", "x1"}],
    + M  W1 w8 e( e5 R* a! |6 \            RowBox[{"\[DifferentialD]", "x2"}],
    , I! s7 V0 V3 ^8 w& h( u            RowBox[{"\[DifferentialD]", "x3"}], : v, h! {' |4 \
                RowBox[{"\[DifferentialD]", "x4"}],
    - S8 I+ e1 C# ~- q" J% v            RowBox[{"\[DifferentialD]", "x5"}],
    ) m* L2 |* k- U+ Q            RowBox[{"\[DifferentialD]", "x6"}],
    ! Y/ O8 }' g0 i! b' f' y& P* c            RowBox[{"\[DifferentialD]", "x7"}], . S6 D* z* a$ S% R  S, S
                RowBox[{"\[DifferentialD]", "x8"}],
    4 i5 s( u0 W, ~5 }$ L+ p9 C3 Q0 g6 Q            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",8 C: O3 q* _$ j6 r; a3 ?
    CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {8 w: Q9 C& a! H
       3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9,
    $ _4 X% o) j5 ~- d   3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {. g4 F5 X# T0 o6 ?- N! y/ P# Y" n
       3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9, * J/ ^+ g# O, a
       3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {' ~& e8 c) ~; J- j! }
       3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9, . K7 G- {) @5 J) p" i3 O
       3.577918964453125*^9}}],3 n& Z* g5 V: l0 _4 d

    * B8 f/ b! T- b9 Z/ Q" VCell[BoxData[
    % Z# p3 E( R" C1 |, c% b- L RowBox[{"97.40909103400237`", " ", 1 K# G+ t* l9 O+ \" v. i+ Q0 W
      SuperscriptBox["Delta", "8"], " ",
    0 [0 M/ |( l6 b$ l  RowBox[{"If", "[",
    2 K7 X2 ~6 A0 a% G   RowBox[{8 n" y% Z8 Y( c. N
        RowBox[{, ~2 M6 c7 _, J. g  `9 F1 D
         RowBox[{"Re", "[", & u$ M; l% f9 w8 ^3 n
          SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
    + d# Q; K. Q& T# G    FractionBox[
    3 ?5 G) e  o# K4 _- u2 j     RowBox[{"1.7724538509055159`", " ",
    , j# p/ v; ?6 Q      SuperscriptBox["\[ExponentialE]", ) F3 r, [% [3 |* C
           FractionBox["1.1102230246251565`*^-16", # G9 C) V, q4 v- q
            SuperscriptBox["Delta", "2"]]]}], 8 h4 z5 z+ T. I% F. ?9 q# i( }2 h/ i
         SqrtBox[
    3 J+ n& r- X; `! B; P      FractionBox["1", 8 R$ [5 l& T. x; A! N
           SuperscriptBox["Delta", "2"]]]], ",",
    ) D1 X# b+ @1 P% x2 U) `* U5 C    RowBox[{"Integrate", "[",
    ' n& q8 U" M6 M; O2 R& }     RowBox[{
      o+ `4 x5 U4 h3 d* U      SuperscriptBox["\[ExponentialE]", / ]4 d$ ]! U- A; T6 u" Q
           FractionBox[$ O* K0 l# N4 f& O' T
            RowBox[{"1.1102230246251565`*^-16", "-",
      y: D& V7 r# Z  i  _: l0 V5 Q         RowBox[{"1.`", " ",
    ; ]$ N8 i: Y+ ]: R3 ^; X          SuperscriptBox["x9", "2"]}]}],
    7 T' Q$ b7 P' F" n/ `6 F1 V        SuperscriptBox["Delta", "2"]]], ",", % L1 u* p. v  o+ M3 O
          RowBox[{"{",
    / _$ f0 O" G5 a' [) v# Q# g       RowBox[{"x9", ",",
    , q, W6 m' X. |# e" g* n        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", 7 M% ]. l  r4 k/ E
          RowBox[{"Assumptions", "\[Rule]", , h% r0 V. {- n
           RowBox[{9 P/ h1 j$ o* D( }- @: v) l2 G
            RowBox[{"Re", "[", 9 h- o7 _1 R+ l$ u% m$ E$ ~6 o
             SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}], ; C! `4 C% T5 m4 z
         "]"}]}], "]"}]}]], "Output",
    " C4 c# {' e2 c; p. v  h CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9,
    : G3 @0 d( D+ [' N7 Q6 Y' d  3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9, ; g- k- J) q; g9 W+ N
      3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,   u# ?& f% R. W2 T
      3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9, 3 q) d/ d) i5 v8 h
      3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9, * {2 r. G& Q" Z/ K- A
      3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9, 9 b# J6 o) l5 \! G8 l: x  x
      3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]6 P* ]2 R& y! X
    }, Open  ]]," a" z3 _$ D: Q' ^

    : F, B& d1 I7 O; ~7 OCell[CellGroupData[{
    & f, A6 X8 \( G- D1 s' o
    4 }# K& Q) @+ {Cell[BoxData[
    & E( r/ K& j6 ?; g* b RowBox[{"Delta1", "=", 0 P. ~4 Z- D; b! `
      StyleBox[- \% J3 ]3 b4 s
       RowBox[{"97.40909103400237`", " ", 7 s) d3 R1 U/ A9 \4 Q
        SuperscriptBox["Delta", "8"], "  ",
    + t! {1 V4 Z# M! L' W    FractionBox[% C; K7 o( Y" ^  h- X3 G* D
         RowBox[{"1.7724538509055159`", " ", 6 P9 d6 N* ^7 K! U
          SuperscriptBox["\[ExponentialE]",
    " b; c* ^7 c" |6 p       FractionBox["1.1102230246251565`*^-16", 1 L$ w* I  V8 N
            SuperscriptBox["Delta", "2"]]]}],
    7 |# ^0 \- W4 k7 T: i4 H& e     SqrtBox[
    ; M8 L* u6 Q: V# Y. {/ [      FractionBox["1", # r9 t' L4 j: F: q& V: ?1 O
           SuperscriptBox["Delta", "2"]]]]}],$ A5 j4 o: f: c: j* X
       FontWeight->"Plain"]}]], "Input",
    $ ]- x, m" k  g/ | CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {  _4 X+ y! t/ P4 x; \2 y
       3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,   _5 H2 @* \. L2 x2 s* j
       3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {: L" m$ F* f$ h# f
       3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
    + d2 \  j7 k4 K0 ^: T   3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},
    ! {; q" I- T* X* {. X% @# S7 b   3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],
    $ u- v$ ~- m4 K; j+ v0 Z& Q; h7 B& M
    & U3 g- w/ |, B0 H! Y$ C$ o) mCell[BoxData[
    ! [2 u2 U5 K! f. ^ FractionBox[
    - b2 X7 W  R# S6 F+ o) P  RowBox[{"172.65311851642346`", " ", * T# e9 J$ c7 I- ]3 L
       SuperscriptBox["Delta", "8"], " ",
    8 h5 a( q+ G2 b9 C# M( P, |; B   SuperscriptBox["\[ExponentialE]", & c: R; h  @: ?1 f, p5 X
        FractionBox["1.1102230246251565`*^-16",
    & s& _, U# {# N. Z3 ~     SuperscriptBox["Delta", "2"]]]}], + [% m- V7 i1 p( p3 L& F
      SqrtBox[
    % Y/ M+ m* D; g7 {5 e   FractionBox["1",
    6 R8 M2 D- E& n    SuperscriptBox["Delta", "2"]]]]], "Output",
    * f- j$ E1 R9 g1 z% X- i1 I CellChangeTimes->{
    1 r! A' }7 J5 B0 O& D* j2 s  3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9, 7 z$ h2 S; n: ~( \3 r" a' [+ m
       3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
    4 J; E& q7 K6 ?/ d  q/ @- E   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9, - ?' b( b1 S( j4 O
       3.578012166234375*^9}]
    1 h8 L( }' X, a' X+ q* Y}, Open  ]],
    7 F/ O1 `2 @9 O8 r' M7 |2 U: r5 l9 Q1 A) Y
    Cell[CellGroupData[{, q- I4 w/ W( @% q/ b8 A7 l
    8 H7 e# e# c! Q; B" M4 E$ w  r
    Cell[BoxData[& P& v& i; |4 g* w* R' |
    RowBox[{"DeltaX", "=",
    1 i- _  j7 V! d, i2 f  RowBox[{"FindRoot", "[",
    % y3 h2 w# ^6 |4 @# A   RowBox[{
    9 _* l% h' e) b( v    RowBox[{"Delta1", "\[Equal]", "1"}], ",",
    ) Z" \) o5 N6 x1 I    RowBox[{"{",
    , j0 |  R1 I$ b3 C$ X& k$ v     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",
    - m! j3 G5 v3 o$ K7 k8 t CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {: I. p4 }% {+ _, k6 l7 P- D
       3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9, ! M8 P- }: h# q1 E6 q2 |+ q3 p
       3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9, 4 J" @. g& ~, o. {: g0 ~1 A6 {
       3.57791921584375*^9}}],
    # m; k" c$ d$ ^( v6 M' t8 c. H1 t0 J: S3 T. J" L
    Cell[BoxData[
    7 p, U7 a, a7 L" j# t( c RowBox[{"{",
    7 e- I: h1 G' H  RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
    : v2 H: |* C4 _# \! _- i% g CellChangeTimes->{
    / }5 ~" e* |/ x  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
    ) Z3 n) d, a" d0 T* b6 b   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9,
    + U( Q, S2 h& u" B   3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9, ! H2 @$ H, g. m: Q! H6 J0 Q
       3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
    ' L5 D0 C+ i9 [, i- ?  L( a1 w. ?   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
    + d0 _7 o* U- K8 c   3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9, $ c: w& [3 Z7 G; d& B# Y& P- ?
       3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
    ( m* {6 X+ H1 i! F; z3 g   3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
    # E" x( J- b4 r3 h4 L  Z+ A   3.57796070150625*^9, 3.578012167703125*^9}]
    4 c4 f; U7 {$ ]+ g}, Open  ]],* X& D; T8 s8 a* S1 ~
    6 y, E: A, Q/ r, z
    Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\
    2 J9 g) K% ]  `\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",0 _  D8 ]. v5 S- [# T
    CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
    + H. w% G0 a' n8 G2 S( M+ b" X  3.577960705312657*^9, 3.577960707621461*^9}}],1 W. J8 X9 _2 F/ d2 o! Z

    / F+ r6 k, z9 j" @" _6 @' w9 _Cell[CellGroupData[{3 l3 ]; u/ ~0 }- f3 y9 ^/ g, N0 B

    & l0 c. d: x" R6 D/ V0 \Cell[BoxData[
    6 N3 n- W1 H5 I* z3 G RowBox[{"C1", "=", "Ca"}]], "Input",
    ! H0 O0 T; S$ u# p0 k CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],/ `' \& [3 T# T" R! r- D) @, ~

    0 D2 D0 M0 z8 @2 n* C9 @8 P: K" ]Cell[BoxData[
    6 v  v5 ?8 d9 o) D1 |) T# C RowBox[{"{",
    0 \3 R9 e6 }* p6 Z' |. e  RowBox[{  i$ b7 v& q( H/ U
      "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", ; d1 Y8 l1 y. v7 |2 ^2 K2 m
       "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",", ! S3 M* O* j- \8 p7 ]/ \
       "0.`"}], "}"}]], "Output",
    " p( ~9 [& Z. X6 T! a9 \) h CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9, 4 N3 @) Z0 G4 C; S5 d; R
      3.577960710273465*^9, 3.5780121855*^9}]
    $ m# y- p9 J. E6 ^5 z0 g: F2 S, U: v}, Open  ]],
    + I6 ?$ V" B+ o: s$ n
    $ R# U* l' b' V2 NCell[CellGroupData[{
    ) r, O, G. B- X4 Z! J5 o/ k
    4 m: y) K6 Q1 ^6 X7 O, e- Y9 ?Cell[BoxData[4 J& D- T" b  D5 T' v6 p# g$ b( B
    RowBox[{"u1", "=",
    2 X4 ]/ u" R7 Y  RowBox[{
    : B$ q- f, Z, }7 ]* H! r' Q) v   RowBox[{"Exp", "[",
    7 G. _# e3 f! s$ D4 D    RowBox[{
    5 e/ W. X+ o+ w0 G# m5 L     RowBox[{
    # \# y& w0 ~- W( E) Q0 V7 G# N      RowBox[{"-", ) D# {* M( O1 U- G: O& W
           RowBox[{/ ]* D9 Q) Z5 [5 t  \
            RowBox[{"(", & o/ g- v# u! j! r
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    % s' ^0 D& \- H3 s0 E7 Z        RowBox[{"(", 9 l0 c& ]9 Q4 [, q& u( @
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    3 y& |+ J# v% X* d3 a     "]"}], "/.", "DeltaX"}]}]], "Input",9 P- o- h( }' y. f
    CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {& C+ G7 n; p5 a: P
       3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {
    . N( l" c: ^7 B  q: j   3.577919193484375*^9, 3.5779192326875*^9}}],, {! j/ e1 P. a9 R$ c( z
    / u  e: G+ N, V  v6 L) z6 f
    Cell[BoxData[
    & W4 c, N8 `  V& t1 {% W SuperscriptBox["\[ExponentialE]", 4 I+ D" T5 j6 w
      RowBox[{"3.141592653589793`", " ",
    5 ?2 |8 c! A* r/ u, ]   RowBox[{"(", ' s1 e  B# ~. a  l7 O
        RowBox[{
    . V, s- E6 r5 Q: ?  D( v     RowBox[{"-", 5 g0 G6 J" s& O' J1 F7 P2 x
          SuperscriptBox[7 r' ?& R6 w! X2 K6 K  d- g
           RowBox[{"(",
    & ]+ s1 ]: C9 X5 \" |/ |( s/ ?( a; H        RowBox[{
    % c; ~5 q8 _: k' X$ r/ I         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ! e4 Z- }. j! i9 L0 _- _     SuperscriptBox[( P; q3 j& C9 S5 Z
          RowBox[{"(",
    ( K# t" M" [0 C) p" n" b       RowBox[{
    * \. }3 ^; T+ h) y# C0 l. g8 X# h. |        RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
    6 @6 }. M* i; }/ T     SuperscriptBox[/ [0 @: a$ @/ q- n4 @1 P8 F5 m* p1 c
          RowBox[{"(",
    * X( M8 T$ t( f) v9 f# Y  {       RowBox[{
    ( w/ C6 q) w- F# D' s* K        RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
    : N. m$ B; ~+ i! m' }* D, i6 J* a1 r     SuperscriptBox[0 t  O, f9 k6 w2 M& J7 A8 [  b7 {8 C% T
          RowBox[{"(", 1 l' t. h9 [0 S$ x( Z, u9 Y7 Y
           RowBox[{, {& U" }6 \' M$ w6 _
            RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", + w/ L+ T, ^8 [: `8 z; Y! E
         SuperscriptBox[
    7 z! L3 v& i9 z/ m) [, l. z# ?) y      RowBox[{"(",
    . V9 ]+ Y* |5 ~7 a+ b       RowBox[{
    9 P9 z* O5 [. y" S        RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",   `1 Q+ L1 s0 q9 m, V4 U0 b
         SuperscriptBox[
    * f. L5 b* g- F' u+ I/ T      RowBox[{"(", 5 h3 u3 n$ x' Z- e5 K/ G3 I
           RowBox[{0 W. ~5 @6 ?  W9 l
            RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", % p3 P% A7 d+ p' E1 R
         SuperscriptBox[
    / E3 P1 s. ^6 W      RowBox[{"(", ( j. n4 o. X$ h" X1 v
           RowBox[{
    # j5 w* `1 ^; M, I        RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", 4 y9 N$ _1 B. l+ B9 X; T
         SuperscriptBox[
    % f) n) N+ _( e% A      RowBox[{"(",
    % G, d2 I. ?8 Z: }; I7 k       RowBox[{
    # h6 ]( g( O; d' k        RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", 2 d& r. d; y+ O$ }$ X, c
         SuperscriptBox[
    . V: |/ t+ d4 U% a$ ~      RowBox[{"(", + P8 c: R; v3 @4 h
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], % h% G( Y) k0 G
        ")"}]}]]], "Output",
    + i& V' P6 ^  x' W9 h' g4 n CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9, * `9 F4 c  C* B7 ~
      3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9,
    ' x$ @! d. C3 N7 q6 ]- A$ f  3.578012187078125*^9}]
    9 \, J! j. ?! J* Q4 e) t; ~}, Open  ]],
    , k5 o9 S4 v. n5 E9 g' u
    $ o# m5 a; o* R  k) A! NCell[CellGroupData[{
    ! Z: |- w# F. w. E6 P- ^
    % N  V) t! W! v/ uCell[BoxData[
    % b' `4 Y7 Z" y* B5 L1 D RowBox[{"C2", "=", "Ca"}]], "Input",
    / b/ v; K3 c2 ]5 d5 U7 e9 z CellChangeTimes->{3.57792047321875*^9}],
    * F" b/ z9 G- ~0 h$ K7 O9 Q
      ^2 }% ^; Z& I) L# l. z+ f  SCell[BoxData[
    - K$ j* j+ y" z! r RowBox[{"{", ) s9 E0 K0 i1 I% \. E
      RowBox[{) E$ }/ _1 w# s4 {$ T1 _' b
      "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
    : y' M( h  s, K7 U1 F   "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}],
    6 @* t+ {, |3 q8 x0 n- l* d  "}"}]], "Output",2 d' J* M& r# Q' [6 M
    CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
    $ O. v2 b5 ?6 ?  `. m8 R  3.5779607401163173`*^9, 3.578012204671875*^9}]4 Z# x* C; O' U* S: V3 H
    }, Open  ]],
    ; f) W# q' k- |; |
    6 k" E5 \  j+ L0 y) X( x# o# uCell[CellGroupData[{' e& j% V) |, {1 ]% |# g4 r$ l& |

    9 `) M6 p- T$ M$ ~+ @Cell[BoxData[
    $ |+ V- @# t0 B  t4 P. A RowBox[{"u2", "=",
    9 N2 Z" o9 ]( @5 _4 K) V; H! i  RowBox[{8 y0 y: V0 m) C% l7 H$ ^  n, c
       RowBox[{"Exp", "[", # V( c2 v  J: D( \& i) b) m% o
        RowBox[{" c5 q3 E7 b( a' u/ n9 ]6 L
         RowBox[{$ |: P2 e( `) t1 O; p& O5 o6 k/ `  S
          RowBox[{"-",
    2 ~, l! V' y/ }+ }1 u" a! U       RowBox[{* f# _. l3 a1 o5 Z) ?& h
            RowBox[{"(", $ J$ P$ c# b; E* n0 i; C
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", % J7 s# L% m3 ~
            RowBox[{"(",
    & \* a7 [5 q: D         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],  A5 K# U* e( M7 [$ \9 ^3 z
         "]"}], "/.", "DeltaX"}]}]], "Input",
    ( z' u# Y0 \' Y CellChangeTimes->{3.577920484109375*^9}],* |# `7 q2 e3 F4 W% W

    7 ^$ N8 a# c# q+ RCell[BoxData[6 Y' p# t& Q* d1 r* y& {/ ?
    SuperscriptBox["\[ExponentialE]",
    # \' X8 C3 Q% @. v* x! z  M5 q  C  RowBox[{"3.141592653589793`", " ",
    5 Z, _/ m1 j6 p: p   RowBox[{"(", * B4 M# r$ j7 q- Q1 A8 W, ?
        RowBox[{0 q, h1 _, V+ u- Q$ h6 `& t
         RowBox[{"-", 4 S& W: y# Q& l/ b$ r
          SuperscriptBox[% t3 h7 @0 H3 j0 O& y/ h
           RowBox[{"(",
    - V0 z7 B- C# D! w0 v        RowBox[{! L+ b! ]! H7 p
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
    + u3 @% ]. t; e2 W" n     SuperscriptBox[
    9 d: Q, l3 T% @7 m1 t; }1 t      RowBox[{"(", ; c; b1 ^6 c( s6 H# l
           RowBox[{" R- I4 u3 D' f# M8 l
            RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
    8 S, D8 w" f. G" q0 j8 s+ C+ y) P: }     SuperscriptBox[6 |) B+ e% b) @" @: f
          RowBox[{"(",
    $ z' Y) h! |9 f. o$ Z$ N! u: v, i       RowBox[{
    8 J% }9 }, K; ~5 F! n* N  l5 d$ j        RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", # b* G) r- l1 C* D3 ~
         SuperscriptBox[- l; G5 L) L# Y- n& ^7 o
          RowBox[{"(",
    5 X+ r6 h2 D1 B       RowBox[{
    7 G) W' V& V# Y  Q* V* E$ ?        RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
    - Z/ H% N9 H' }* q     SuperscriptBox[
    " P4 A& C/ I! Z1 W: S$ i7 ?      RowBox[{"(",
    * p; a( _5 U; P: Y' W       RowBox[{
    . ?. E  n, Y/ l8 d        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", $ |- k' }$ I8 a  G& v8 m
         SuperscriptBox[
    7 A/ n/ f5 i% {' g      RowBox[{"(",
    % O( A5 ]% t" a+ \, Y' Q, h" ^7 z       RowBox[{+ i, E8 O, _# p" r2 q' G2 ?
            RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", ! j4 E, q% \. ^2 r' b
         SuperscriptBox[
    , b, N0 J' S, q) u5 g2 d      RowBox[{"(",
      `& c2 w# |9 a# q1 {       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
      r5 k! ?: c2 Q5 [1 B) X# ~     SuperscriptBox[
    & l4 \( Z" L/ J2 q      RowBox[{"(",
    . i/ ]4 C/ s* D       RowBox[{: V0 W% k, i! U6 i
            RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
    * O/ n+ _; \+ x4 J# Q     SuperscriptBox[, D0 F4 H! k6 X  e% X- n  |
          RowBox[{"(",
    " d+ |8 g8 H' D0 @( C' Y0 u       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 0 z! V! k5 T- Z) f- [
        ")"}]}]]], "Output",2 T5 ]7 ^' H8 J' F: v
    CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9, & {2 Q. J: k4 m, a3 ?
      3.5779607413955193`*^9, 3.578012205484375*^9}]  \/ ]+ b1 l& e1 u; B
    }, Open  ]],
    1 t3 i/ O$ C2 q, E. `* ~4 C: Q1 U" o! a! w1 C
    Cell[CellGroupData[{
    " @) M% W% }- T9 E% Y( k+ d
    ( I9 V9 U2 V4 V0 b6 lCell[BoxData[
    , T5 \. H" o9 d" n RowBox[{"C3", "=", "Ca"}]], "Input",) q* _$ s( P+ q! i3 N+ Z& Z+ C$ A, A
    CellChangeTimes->{3.57792064125*^9}],
    : E- f4 W( f: q* J1 u$ \3 l6 n; Q: n# b5 O* J' s! m
    Cell[BoxData[
    ; F- A8 _1 w4 s- Q0 n* W RowBox[{"{",
      J% N5 ?- y( i/ _2 p3 k* L  RowBox[{
    : |/ }5 Q" k: D5 P' @  "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",", , H- F3 P% g8 d( h, |  {
       "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}], ) M% u6 u7 a( V7 T. H
      "}"}]], "Output",
    9 H+ g& C' g" H0 R* j  P3 ~ CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
    5 {- g  G; S3 l- ]  3.5779607642027593`*^9, 3.5780122103125*^9}]
    % Y. q0 M, m' d) U: x' L  P* \/ |}, Open  ]],
    - I* G, |1 x0 `, u: c
    7 J+ q* q& G, q$ |  o" E* uCell[CellGroupData[{
    - U3 i/ a" U9 @, G
    % n  ]5 j6 {2 W( B% _6 YCell[BoxData[
    $ h# h) {/ K/ H2 ^ RowBox[{"u3", "=",
    " Y& C6 x% h6 l, I4 R, r  RowBox[{
    " y% Y& T) x" L* R5 r   RowBox[{"Exp", "[",
    ! J- x. m- X% [) w    RowBox[{- o! o2 T0 e  z2 Z$ u; Q5 K" z
         RowBox[{
    / Y7 i2 L* u" C3 o7 X4 d* T0 T6 V' ~      RowBox[{"-", 0 j$ C8 M' Q2 l4 |0 {
           RowBox[{
    4 k$ S; Z- b8 V6 @* H        RowBox[{"(", / c1 n7 ]) \; j5 ~+ K3 B& C) e0 k4 X
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ' s9 u+ u8 B& |' |$ x6 @; ~7 {0 L5 w
            RowBox[{"(",
    / S7 A8 c0 O1 {         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],/ y5 Y! f) A/ |( g
         "]"}], "/.", "DeltaX"}]}]], "Input",
    * W( V& p; p/ w7 n& O/ z CellChangeTimes->{3.57792064921875*^9}]," C5 L. N8 J! {, Q3 n3 s

    ; ~( U5 P. |9 z1 V2 k+ _Cell[BoxData[0 O* W0 |$ v! X: N9 s
    SuperscriptBox["\[ExponentialE]",
    ) j( l7 T" o- W1 P6 f0 ?  ?2 ]- U% r5 X* ^2 L  RowBox[{"3.141592653589793`", " ", - @0 H- g- O% L
       RowBox[{"(", 5 n! `; ^+ ]8 i/ f; j
        RowBox[{
    - P2 z$ O/ V$ N( E- X6 g     RowBox[{"-", , z7 \7 }) d7 A! A; ]
          SuperscriptBox[
    5 [, _3 ]6 M: i% j& e3 @. ^  _       RowBox[{"(", 5 }: W' B7 |5 W- H
            RowBox[{
    8 f, y9 h& @, Y, V- e8 y/ l         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
    * }. F" S# N; U$ j& w6 G1 z- ^: s     SuperscriptBox[# k/ L  b' x* o& ]
          RowBox[{"(",
    ( c' W- ?( x/ E6 s       RowBox[{
    / Y2 G7 }9 E* `& H+ R        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
    # }9 \& A: E7 o, u$ s     SuperscriptBox[
    ) }4 _, m6 r& {1 @! c, M      RowBox[{"(",
    - {: I% U! |" P, `/ X  B; U       RowBox[{
    ' f: I5 w, c$ O) n& ]" [1 H        RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", " N3 J9 n! d, L# H0 ?0 F
         SuperscriptBox[4 p  U; Z+ C( g3 P. z, W4 A/ X
          RowBox[{"(", / G3 r4 ?2 `+ m1 v7 I% U" P; s
           RowBox[{' z9 Q6 k" [% X' s( Z) e/ C6 O
            RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
    / v/ c; z8 U% q; M/ q0 i" K: Q     SuperscriptBox[
    6 G4 h/ E, C" Q  y: H0 B0 q8 v- F      RowBox[{"(", 6 y; G5 K, k; A$ k) X0 L) ?3 z
           RowBox[{
    9 Q: k: x. S2 ?8 f# {+ O$ s        RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
    4 Z: _# Z2 g6 z) h1 z. j; B+ p/ @     SuperscriptBox[
    # I1 X- q2 c% q% X      RowBox[{"(", 8 {1 k. C5 z* \  a* p
           RowBox[{1 [. }# s$ G& W4 r: f1 w
            RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", " q  S# N4 }8 a5 \1 ?7 b
         SuperscriptBox[
      ]4 z) W7 M- Q/ Y) H      RowBox[{"(", $ R2 J7 D: }# y2 k" z& W9 K1 ~
           RowBox[{3 X7 \* J* q% d% C. Q5 P1 W
            RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", 0 V" r& v2 T1 b- \* I; M
         SuperscriptBox[& h; v9 x8 j( H
          RowBox[{"(",
    : c' s# Q( ?* F2 b$ k3 ~       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    8 r- ~; o1 [: h/ h/ D: X     SuperscriptBox[
    : `/ \' y. B. v9 Y9 ~! M      RowBox[{"(",
    , n2 b9 A1 G0 r9 {& ]6 f5 H       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 7 d! z* [# J$ `  w
        ")"}]}]]], "Output",
    3 U! V' i4 g# {9 |2 G  ]) i CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
    ) M$ {1 H( x: h; R/ \0 y, N  3.5779607654819613`*^9, 3.578012211515625*^9}]
    * n/ Z8 i8 ]) y2 _0 {}, Open  ]],0 p1 o% a7 M' E3 I' R

    8 L1 ^6 v! u0 o# PCell[CellGroupData[{) P: u/ t+ b* _) a$ G; w
    & X- v8 {9 l. }+ H" h3 g& L
    Cell[BoxData[% i$ w) _0 M9 U, ?/ O
    RowBox[{"C4", "=", "Ca"}]], "Input",# z$ f3 q! d  w2 [$ B8 Z
    CellChangeTimes->{3.5779207559375*^9}],
    ( z  R! R1 ?+ L+ ^  s6 ^; C+ s. T8 \- [# h+ l
    Cell[BoxData[  D( A# Y/ B9 B5 Z+ C) g
    RowBox[{"{", ; M3 E. w( ?+ Q3 q8 v3 i4 N+ S
      RowBox[{
    2 S. R: {/ L4 ]# k0 c( R& U) S  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
    . q9 Q) G9 h5 f( \   "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], $ [: t4 H% ^1 h6 ~0 G
      "}"}]], "Output",
    ( a0 p% G: z, g2 p CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9, " U0 v& ?: a/ j) S" Q
      3.5779607861363974`*^9, 3.578012216171875*^9}]
    ( ?* a7 m6 n( B# A5 F* w( C1 J}, Open  ]],
    # q2 [  L2 o8 l& \. S: o) [0 S% x' C* D
    Cell[CellGroupData[{$ T7 Q' X  d& W5 e# |1 `* i
    ( C2 n% E  u: P$ j4 _0 R; l
    Cell[BoxData[
    0 @4 J& ?: `* U) p: D/ V, C, Z RowBox[{"u4", "=",
    $ F' v1 X. F/ `" w6 ]* f- U7 j  RowBox[{
    1 M& u  ^3 {1 X6 F" \- ~( i: b: R   RowBox[{"Exp", "[",
    & f- V: }' S( c3 y$ Q9 Z    RowBox[{1 A+ b/ W' u% X6 P8 m
         RowBox[{
    % @# ]7 d/ _! x      RowBox[{"-",
    2 p, d; `, q7 U) f       RowBox[{
    & d) T5 B7 ?/ x* x( w        RowBox[{"(", 9 O: j6 G3 z5 j% E: H
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    / m0 `' }) D* U. [6 W8 B- n7 c" z$ g        RowBox[{"(", ) D7 L5 a# Y" b/ {8 v3 {
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],! v7 U; B! T( q5 l+ I& D, _
         "]"}], "/.", "DeltaX"}]}]], "Input"," D4 v; g' P; v5 i; }* F. J
    CellChangeTimes->{3.57792076325*^9}],
    4 E* [1 ~; N" p/ ]
      X: o$ u/ Y3 fCell[BoxData[
    9 n: [7 Y4 o; g! [) L/ B, U SuperscriptBox["\[ExponentialE]",
    $ b+ o3 M+ B6 o! U" U  RowBox[{"3.141592653589793`", " ",
    3 t7 u7 w7 R( d0 B   RowBox[{"(",
    2 t: w  x3 L+ g8 b5 y    RowBox[{
    4 X- K& b4 |5 ?4 U     RowBox[{"-",
    ; E# K! @7 G7 ^$ }      SuperscriptBox[- x2 ]4 k6 u2 L8 [8 o/ i
           RowBox[{"(", + K+ u) I0 s% F7 t, v
            RowBox[{
    . T/ Q2 e, A' ]) }+ x8 T9 i         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", ; o" x% ?7 Y/ K1 Y1 K7 c0 Q% e
         SuperscriptBox[; Z( h/ c. k- T2 |# \2 M
          RowBox[{"(",
    9 l/ N! U0 H- L0 ^3 M       RowBox[{# S4 n4 n! m1 n- U# `# ]
            RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
    - d" V% Y3 E; u4 U4 h& @( Q     SuperscriptBox[
    4 `! n* w& ~6 u3 [# b      RowBox[{"(",
    ( a7 ^: ]9 u2 O" r  ?6 G, N       RowBox[{
    0 _+ S1 s% }7 D) m        RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
    5 E( f: B+ o. _2 h# w% ]' K8 E0 \     SuperscriptBox[3 ^5 l4 u% z' Y1 @' Y+ p) n, B
          RowBox[{"(",
    $ z6 K4 Z) g8 n3 q' B       RowBox[{; A0 \+ |$ n$ H  {1 _4 m
            RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", & a" @, b. @5 X) \* f3 _! P
         SuperscriptBox[
    * G0 u" y/ b7 @0 ]- T+ B+ g      RowBox[{"(", 5 ?- {, o+ n0 I1 y) h
           RowBox[{
    9 b: ], J8 t6 _! F3 Q" t/ i        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", / e$ v7 e+ t( f4 ~7 g! l6 s
         SuperscriptBox[) ^" h& p! Q+ ^* e
          RowBox[{"(",
    9 T2 V1 l( c3 E) e/ F7 E       RowBox[{! a7 m* v, G/ I3 ~0 w9 `* ^" ^
            RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", % D8 d$ e( x3 U( r, r" B
         SuperscriptBox[
    8 X0 s! x* \9 O5 j      RowBox[{"(",
    " H: K4 K0 e4 k, y3 N       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", $ e- z$ r3 \2 R9 v
         SuperscriptBox[7 p0 ?5 t) W% O5 m2 \+ z
          RowBox[{"(",
    3 b  ~3 U. A0 q/ L       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 4 S* I7 D9 Q+ D2 Y
         SuperscriptBox[( ~: |% O4 T1 |2 h. d; I
          RowBox[{"(",
    4 ^3 l* S# f! b  T& v% t' u       RowBox[{
    5 D2 [7 t) f' |% n( Q, C        RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}],
    4 P! D! o4 I. S/ j' x( V6 ]/ g    ")"}]}]]], "Output",# o; ^0 W! _+ |  K" d
    CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,
    : \. @( A! q% B% r0 N- Q  3.5779607873531995`*^9, 3.5780122169375*^9}]
    . W$ B) Y) N; ~& t& q}, Open  ]],- Z9 F, `1 u- R+ e0 o2 ^- q" P

    6 W- F2 h8 [$ j3 L2 ACell[CellGroupData[{9 e/ _$ {9 c8 R) W4 E1 W
    3 L$ F0 w% h/ ]8 j9 r. r
    Cell[BoxData[
    $ y7 b! z! H; l# T3 ?! q RowBox[{"C5", "=", "Ca"}]], "Input"," o, N7 W; Z5 W4 b. |5 W0 S
    CellChangeTimes->{3.577920860671875*^9}],7 }: e4 {! X, h* \0 a

    : j0 z: E( b% p! DCell[BoxData[  \, L# X3 C% g! G$ h$ ]' ~
    RowBox[{"{", , ]  M* q  e/ }
      RowBox[{
    ' Y; M, e9 Y% ?0 |6 a- L0 ~. S  "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
    # x- P7 E5 M) s& U) m, x   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],
    4 }+ p% ?, j* B  "}"}]], "Output",
    3 u6 M0 Q8 C' X" U5 g8 \: ]& \ CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
    , q2 z8 Y& o! G  3.5779608137328453`*^9, 3.5780122209375*^9}]
    # E# P6 `# Y; _- z}, Open  ]],
    4 B4 L2 n7 V9 T0 v& O2 A/ u  [' a
    : y  `! O7 \9 u( P. uCell[CellGroupData[{
    % M0 y2 N( a9 \5 d7 `% C7 `$ j0 B7 g8 b
    Cell[BoxData[8 p- U' ~0 E) \4 S! k4 M
    RowBox[{"u5", "=",
    ' Z+ Y  x$ [6 k- J  RowBox[{
    4 P, W+ U9 x: a- j( N0 ?- ]   RowBox[{"Exp", "[", 7 x* [+ r3 H" x. }
        RowBox[{
    : K% R: D$ w* f5 D4 f/ Z+ a     RowBox[{
    $ J3 w3 h2 g  J      RowBox[{"-",   I6 a( r9 ~! i3 h3 t
           RowBox[{0 A9 |+ _# w( C9 z
            RowBox[{"(", % h, g1 Q; Z% n- U0 g- V, u, T
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    2 N: @( W- \* R$ k        RowBox[{"(", 7 b9 _0 I/ I3 O3 k2 \6 J6 a
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],: K! w9 J  J+ j
         "]"}], "/.", "DeltaX"}]}]], "Input",
    ! X5 M2 x* k* H2 z$ K6 f CellChangeTimes->{3.577920869375*^9}],
    : s/ n, X, B2 P# M6 Y* l* U: V' a; B+ Y; t! m/ E0 |
    Cell[BoxData[1 Y% L. o0 f( l& b& j: V' ?% b
    SuperscriptBox["\[ExponentialE]", 4 d5 e: }  S6 a. Q6 V
      RowBox[{"3.141592653589793`", " ", - G* P% b( u; v, d( h
       RowBox[{"(", - H0 h- x( d( I# R, I
        RowBox[{
    " m7 K1 z/ X* g! }     RowBox[{"-",
    : ~9 E( X" ^0 G+ O" p      SuperscriptBox[1 M4 V* i  r* x
           RowBox[{"(", $ q8 D6 E8 ~1 F1 }# q3 g
            RowBox[{
    " f& _0 t9 ]; y$ L4 N( E$ z. y         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    & H6 [; j+ t9 b1 u( r     SuperscriptBox[
    % F1 r! B1 I- E1 \9 i      RowBox[{"(",
    % ]! F% ^' O/ v6 @. v% u       RowBox[{
    % d4 Y; [: f: |        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
    6 _! n$ R! A" S9 n/ X$ R     SuperscriptBox[
    6 y) ]5 ^( ^2 G; F# b      RowBox[{"(",
    : B8 h% `/ W# Q# n& _& X       RowBox[{
    + f; o1 M$ b2 X7 {/ @        RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", + y- W1 u2 n% m$ }4 }1 u  Z- X
         SuperscriptBox[( Z) }4 s' J& L+ P  A. X& L! z
          RowBox[{"(", 8 K. V7 Q( X* }+ d% y: B. z
           RowBox[{
    ! }/ m( D0 Y; @: h* c" w; K        RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-", 7 v8 B+ \* `4 W) f. r% l
         SuperscriptBox[  x' w/ m' v9 |7 r, r
          RowBox[{"(", 0 y# i5 w$ G. @$ z/ G* n% c
           RowBox[{! ~# z+ F! z0 q% s7 `) k
            RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", 4 c  q6 v5 `& {7 ~. B
         SuperscriptBox[
    $ P. K. h' e% p. k% g$ o      RowBox[{"(", * E* \$ T" F. n
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", % _# q1 y! ]* X4 L1 ~2 F
         SuperscriptBox[
    7 S& H1 U; Z* H      RowBox[{"(",
    ' p5 b2 u! B  K& R5 \0 R  q       RowBox[{8 s8 t+ e% u: k+ z' G
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    7 C/ ~- B/ m# e1 E     SuperscriptBox[
    1 V# y: J: F" x2 R$ h      RowBox[{"(",
    + j5 m9 A1 T/ x! F9 T       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ) f3 T# e( U8 h7 [
         SuperscriptBox[/ a% w- h) q! A; x
          RowBox[{"(", + ^) h& g6 f; F7 `
           RowBox[{
    . J# i  s7 R. M) n        RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
    ! n3 h0 O" G' U1 @    ")"}]}]]], "Output",
    ( w, l) J3 i; W) H CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9, % x4 Y# w- G) p2 A
      3.577960815043248*^9, 3.578012221953125*^9}]
    * B; ~4 O  g# f9 |}, Open  ]],/ Z3 c& B- T1 v; x' \

    4 S0 _3 Z: e( Z) Z& MCell[CellGroupData[{
    5 k, E$ h5 v0 r4 ~. v8 J7 d% v
    - @8 a9 D- O2 ^$ RCell[BoxData[
    , P' c/ l8 ?3 Q' ~3 ]3 { RowBox[{"C6", "=", "Ca"}]], "Input",
    $ Z9 \2 @; `1 _$ t* M. \ CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],  o2 j* u$ H3 c8 i" g
    7 f/ t  `* c0 k
    Cell[BoxData[
    . [9 e- E7 z' E2 G( z- ^3 X5 b! L RowBox[{"{",
    ' o& j* {3 k0 \. a& @5 }  RowBox[{' F* e/ j/ |$ O" j. @
      "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
    ' v3 d/ ^! W) o5 u: k5 D   "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",", ' m2 K: ~2 a0 P7 l$ Q8 a- y
       "0.494866`"}], "}"}]], "Output",+ p$ }+ Y; t, l) V
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,
    1 ]3 ?+ B. G# U1 Q$ i8 S& D, H   3.5779608373044868`*^9, 3.578012227359375*^9}]) F, S) |% X( S5 _0 ?- d1 Z
    }, Open  ]],
    . y$ A" F; ~. G% _  y* a9 B
    $ Y) K4 r: e. F4 x( n# oCell[CellGroupData[{
    6 }- W% f+ C, T1 u# }! r" x( Y
    / W- I% Y3 C- Q5 P( w' D! T% SCell[BoxData[$ q6 y9 Z1 e8 ]) Z; D  ]
    RowBox[{"u6", "=",
      {/ U. u, p3 t; D) t! t$ w  RowBox[{  B8 L7 v$ |; J6 `7 N$ ?* Z6 N
       RowBox[{"Exp", "[",
    + h- D& h- P- P+ L0 n& M    RowBox[{2 P, L! P. c  m2 c* G# H
         RowBox[{: N* o5 O: e# R/ a
          RowBox[{"-", 5 ]' T' Q; N# t8 r- v
           RowBox[{
    8 L* i# @. V# c        RowBox[{"(",
    7 l2 O+ z# P7 m' J         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    7 R' A' [& B$ Y( @8 l9 k        RowBox[{"(", ! ^7 i: g' r( X
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],  r5 D' p; R" s2 h1 X8 e. Z+ d* ]
         "]"}], "/.", "DeltaX"}]}]], "Input",, x9 [' @, A$ ?* L
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],! k: S3 x' D% u1 o8 p- X6 T# O

    0 G/ {; h( A8 c- R) cCell[BoxData[2 E8 a% l# p; x
    SuperscriptBox["\[ExponentialE]",
    # Z2 N$ t7 [/ h  n  RowBox[{"3.141592653589793`", " ", 8 P+ u* u1 U7 \; ]* H# m
       RowBox[{"(", + j0 M6 i7 U8 ?2 P
        RowBox[{2 a4 l' m/ z, n" `. z/ O8 b% ?
         RowBox[{"-",
    - R/ r+ |- C- \      SuperscriptBox[& x3 C( i0 i" d
           RowBox[{"(",
    0 q+ |# M8 t( B6 {        RowBox[{
    % I( ~& r" T# k  b% i         RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
    # }+ J* s" G( I     SuperscriptBox[
    ' k, N, e- }. n* \& `9 X" |      RowBox[{"(", ( |/ K: }; A# _3 B: o
           RowBox[{" c, t+ H  U3 e* x+ q: ~% V
            RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", 5 A! ~8 t8 y* _2 P7 h
         SuperscriptBox[
    $ q1 g1 I6 ]0 \! E! s7 D, T      RowBox[{"(",
    " f7 W8 S3 K- x( U' l# a$ j       RowBox[{) V! @% X. J6 R4 B# T( l
            RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", * B( `7 n6 Y$ t, N
         SuperscriptBox[
    ( {2 A; n$ @5 u" y7 @5 Y      RowBox[{"(", + W* {2 A4 E8 q0 j
           RowBox[{
    / D# e1 W& d) q/ _: F        RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
    3 R9 @" B3 u/ W7 W( [     SuperscriptBox[
    ' o- m. J# N  F  u3 D8 |      RowBox[{"(",
    0 V! J! H6 e. @! {       RowBox[{. o" j- y- R& g# n+ `! E1 ]
            RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
    . V1 |0 x( m# [     SuperscriptBox[
    9 P8 H# @' ^! V7 u: d' X# m      RowBox[{"(", - a7 ~5 q' X2 S! a( k8 a, W
           RowBox[{( A( h+ G$ ?( p% w; N
            RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", 0 k; |: g, ~, V( D0 S4 ?
         SuperscriptBox[3 G( x/ I8 G! u3 |- v
          RowBox[{"(",
    ! p# \7 r% p8 p( v       RowBox[{
    & L( n% {* W9 n; A. e        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
    % S, C' ]" S6 s  L  |) e" r" l+ I$ R     SuperscriptBox[
    , j# i2 ?# f7 m) b3 C& a      RowBox[{"(", . s' n0 n2 [0 {' y
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", + I! `+ ?- Z) |! M  W$ \
         SuperscriptBox[
    4 T+ O4 v% x# a: h' s0 b' ^7 k      RowBox[{"(", + q# |) G6 S8 e
           RowBox[{) B6 C# A$ t* O5 t& A$ L& a
            RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], 5 ~$ W0 p- q$ k6 `7 \- Q$ e
        ")"}]}]]], "Output",* g" p" j+ u% m. T! h/ j
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    1 n6 F9 n- u. x, ?; @% S$ R  3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]  d; @- t' R! y7 t9 X
    }, Open  ]],
    4 v6 l4 W$ i" \  \& Q/ ^& \( g! t
    ' Q7 ^$ `9 s/ c  U: t0 UCell[CellGroupData[{
    ' G7 C4 o$ C* N7 N
    : y6 R6 I9 L* i9 R! R6 i* NCell[BoxData[
    ) q3 T* Q' y: W! h RowBox[{"C7", "=", "Ca"}]], "Input",% X# L3 n9 H8 ~: H7 @
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    7 G/ V# T, [! x3 K/ ?6 l  3.577921316125*^9}],
    * `3 H# V. P  Z9 C' r, g' E, f5 ]1 |: J$ o' N! Z+ m: k1 G1 m3 C" x5 i
    Cell[BoxData[: W3 i. e6 A; l
    RowBox[{"{",
    . q( S6 O7 A! g7 F1 M3 o  RowBox[{
    / J9 Q8 @  h$ ^2 M+ y$ ~$ \  "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",", & |5 f4 b: N7 ]4 u1 z$ r
       "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
    4 e4 L' s, |% t( N# }% J' ]& k/ L  "}"}]], "Output",
    ; F9 `# F  c" t5 X" Q' T CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    5 x+ X% T7 q3 J1 _+ ]+ i' \  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]& C% t4 {, t" B- {+ F  F
    }, Open  ]],
    ( R" w+ Y3 R0 }- f, S! Z
    8 O6 |1 B8 J7 g2 u& JCell[CellGroupData[{
    5 P+ v$ f5 l0 R+ J
    % M) {. b8 b- S: u" TCell[BoxData[
    1 d) y3 C% w) [6 U: y/ O RowBox[{"u7", "=",
    * P; r( ]1 ^# M5 Y7 k  RowBox[{
    8 o  S" v* z" @6 w$ q! Z2 U3 ?   RowBox[{"Exp", "[", 0 ~% Z- u' E( X# F/ B
        RowBox[{" R8 P1 H9 h0 J7 V4 n
         RowBox[{4 Z" `' H1 K# p: H$ ?
          RowBox[{"-", 2 s0 q5 ]2 Z2 U5 K" s& H( v
           RowBox[{
    1 r+ a/ a/ U8 L: A) L; Q; S* M5 {! S        RowBox[{"(",
    + R& Y: @% U8 q9 |: V         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ! E$ F' J5 N* Q$ R# x$ K8 U3 i
            RowBox[{"(",
    * V/ y: V, X' P5 J  e% _         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ! F( I9 w7 E# E6 T     "]"}], "/.", "DeltaX"}]}]], "Input",
    : C- o& s9 P/ c% b CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, % f# q( [4 c, A4 r: `
      3.57792132028125*^9}],9 a6 W, P) T7 H/ ?2 o
    2 Q9 }3 P, [% b" Q
    Cell[BoxData[
    * v, n2 X3 M% { SuperscriptBox["\[ExponentialE]", 2 T) z3 }! g! y# K& `1 k% W
      RowBox[{"3.141592653589793`", " ",
    , W! H% O" N# M7 `   RowBox[{"(", , Q2 `% S2 a& E( Y1 `! N, T
        RowBox[{; m* f8 P( o! o5 S8 d. W
         RowBox[{"-", 9 d2 v, s8 Z( \$ X5 s  Y
          SuperscriptBox[
    ! O+ n! {: V( H) R! ~& R1 _       RowBox[{"(",
    - Q% h9 P" N. F2 ~        RowBox[{
    ( D5 \& `+ {% \/ H: m4 B         RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
    " ]6 b  F; q% q6 y     SuperscriptBox[9 q2 f  |+ Z2 \4 D, W$ Y
          RowBox[{"(",
    2 R( C- R! D9 w3 T: ^0 d       RowBox[{
    6 N2 \0 C* A/ @. q4 y! \# r        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", 3 {$ U0 c( T6 ~/ @  I" n! L
         SuperscriptBox[8 a& }2 A# N  o1 `* m- I7 Y
          RowBox[{"(",
    1 G8 d# E* z+ @5 d7 Q* }       RowBox[{% C# `4 e  ]0 z' E' ~
            RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    1 t7 @, a5 K5 D* R  U     SuperscriptBox[7 D- p  i: ]- B
          RowBox[{"(", : ~* O0 ?; k/ }
           RowBox[{
    ( R' n3 H6 E/ p! j! N" T        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
    5 P6 q. M& E) G& E# Z& O     SuperscriptBox[7 Y" E- b6 [, y5 @9 M& A% x& ^8 ~! m
          RowBox[{"(",
    ! ?6 h5 G0 s6 y6 b& y* l       RowBox[{. P6 @( J( B8 O8 e
            RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
    # U, [3 J" [, n' |0 {5 \4 S     SuperscriptBox[
    " {4 C: o' C2 r; n1 r& J1 S! w* w      RowBox[{"(", 3 `- B- A: a: e" f: s( t
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    9 ^) p) K0 G: {5 F5 ^- _% {     SuperscriptBox[
    . u1 d1 T" N0 m; ^8 ^      RowBox[{"(",
    9 o9 J. `2 w: |) m       RowBox[{
    8 H: b2 T$ V) ]/ `+ c        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    $ P. d9 \6 U" p! w9 e# Y4 ?( c     SuperscriptBox[2 |+ ^( i' s$ B/ I
          RowBox[{"(", - Q4 K3 y  o/ f
           RowBox[{
    ) Y, M' D* _0 s/ ]        RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
    $ c" C: j7 \2 ^& |     SuperscriptBox[* E# ^) I/ O2 }( X1 X
          RowBox[{"(",
    & g( [3 V: g! l9 t       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ) z( u9 {! s0 @4 G    ")"}]}]]], "Output",! ]) ?$ F# z. }2 `
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, ; O4 ^7 h. ~( W, w) K
      3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9,
    : \* K  w7 N' k4 m# }' F2 X  3.578012251359375*^9}]$ E' }  J, c' w) Y$ V% I
    }, Open  ]],
    ) b4 R) x: Q7 N* s! W. m( F( H( `. _. u; e* h1 j5 d1 k0 E2 v) v; l: o
    Cell[CellGroupData[{! }5 _9 D+ a8 y/ |4 S9 @3 H2 K4 ]

    6 @2 p& A" z2 A% s3 D5 {* q6 bCell[BoxData[
    , p# c+ ?2 F% _( B$ W$ c. N% j RowBox[{"C8", "=", "Ca"}]], "Input",9 ?: H) {4 y- w! Y( m9 g( g! T
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    + Y- E5 `2 }" P3 j  3.577921316125*^9, 3.57792141421875*^9}],7 `: a  S+ G$ a8 O1 E' y" N+ ^
    " U5 T1 o& \! u- M6 f
    Cell[BoxData[+ X$ `% A7 P( s" L4 j0 H
    RowBox[{"{", 6 |( t! I% ~- N; q6 D
      RowBox[{* n3 g" B4 A  d7 a7 \
      "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",", / E6 ]1 H% V. ?# E0 b' O' g3 @; Z3 i- ^
       "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
    ) l' p1 o, V! a: J4 ?5 \8 W- T  "}"}]], "Output",
    ; [$ {' N" C$ O5 Y* S" t. S- E  a CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    1 Y4 o- W5 o# h  X% k  3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
    8 }3 |& M9 ?' R, E# l  3.578012260515625*^9}]( i3 @. l) G9 J
    }, Open  ]],0 W" z) h% i! i! I" J7 M

    8 h( N, ~! C1 B; C9 Y/ r% a2 v( |: z) ^Cell[CellGroupData[{
    - p/ ^, A& [/ o1 G
    8 M7 q% c+ _3 g0 A# P# S3 WCell[BoxData[
    : J* ]; k: _2 {- s- h) h RowBox[{"u8", "=", - W4 R" y4 n% ~6 U( S' s8 R0 h
      RowBox[{, j# y$ s& A- _
       RowBox[{"Exp", "[", - I! R) r6 x# Z- Z
        RowBox[{% |; n8 g7 N" K% b4 A
         RowBox[{+ `& I( J. ]. q& @! X8 t: a2 W& {
          RowBox[{"-",
    ( X8 g+ X4 h% I5 A) `6 c0 I+ ~       RowBox[{# K  `% V4 k' y" G% z  i0 g% G! W
            RowBox[{"(", 3 p# z9 f9 P3 }* W5 L) z
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ! e$ v6 X9 e- Z: f/ O4 O7 y1 F. Z
            RowBox[{"(",
      M* t; m  Z: l) \* y5 ^- u4 v, G6 ~         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    9 q4 ~# e) A! x; D+ p     "]"}], "/.", "DeltaX"}]}]], "Input",
    - H0 g5 T* i0 |. l4 F5 k3 u# @ CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    - }* }1 s6 _# y9 i  3.57792132028125*^9, 3.577921416921875*^9}],
    . H5 G, }" L. @4 T
    4 ]" g" V$ w  a7 ICell[BoxData[6 L5 y  [( L: m: I! `! \
    SuperscriptBox["\[ExponentialE]",
      p. O* g8 ], Q7 \3 r5 g$ v3 F* b  RowBox[{"3.141592653589793`", " ",
    : _% W* ?9 E0 z# U   RowBox[{"(",
    ; D- H  S) U3 e/ u# `! P6 I5 I2 D2 L    RowBox[{
    5 b: {6 k3 [$ w9 t. _* i& J/ x     RowBox[{"-", 2 i5 ~+ q5 E: H
          SuperscriptBox[* d1 K, i4 d% c8 n
           RowBox[{"(", , X5 K, @  a1 Z# T
            RowBox[{
    3 [* @9 q9 a7 k8 {: I8 U+ [         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
    8 ]2 H- j% }  G. |0 L4 N     SuperscriptBox[: G  t2 X/ v% x/ _! c) O  T( l2 m
          RowBox[{"(",
    $ R* u0 m8 w4 R, F1 S       RowBox[{: q' Z& k, o" w( X; C0 [- f
            RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
    7 y+ S. e$ n  a0 R. p( m     SuperscriptBox[* w) G5 ^0 k1 [  h8 g
          RowBox[{"(",
    ! ^+ x) q0 Y  E5 A$ _       RowBox[{( n5 G6 Q7 _+ Q/ s" n# U& |
            RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
    * B0 e) b: l  H1 e1 w, `     SuperscriptBox[
    ) {  v, d/ r" H- U1 N5 K' L( f, i5 z      RowBox[{"(", 3 s: r) `3 B& \* u. m3 g* C/ [! C
           RowBox[{
    3 l: u% q4 ?; B2 y% K        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-", 5 h' T7 N$ e( f' P; J" V
         SuperscriptBox[
    . [. g6 G( Q6 G; v5 l- L& @      RowBox[{"(",
    ! V4 j- r5 N$ W8 L  v1 o       RowBox[{
    , F( B. H% N5 Z+ w7 M( x; l  ?3 G9 {: ^. a: N        RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
    3 d( N! C5 E1 j5 i6 J     SuperscriptBox[
    " M5 a: l5 ]5 v7 d/ B* R% ~      RowBox[{"(", ) d- I* z2 u7 U1 b5 A7 t$ d
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    : t- j! L" f+ l# r! i6 R2 s6 v& d     SuperscriptBox[
    ' h- F5 N# f& h: I& C      RowBox[{"(", 8 m( D' l) d: V( X; r' g
           RowBox[{
    ) _; s5 J& t0 s" h3 _* l$ I( q% \        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", + h. a7 Q2 e9 B4 J0 p
         SuperscriptBox[
    5 @# S. H  P/ c& @9 W. [. H8 L  D      RowBox[{"(",
    , v) F3 u# d' u, R! ?       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", * `! r' J0 N) ^6 O
         SuperscriptBox[
      P8 W6 K: t, p      RowBox[{"(", 5 w: t1 D$ \, x2 d& N
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ! L3 u4 x/ j3 q3 U, ^9 I    ")"}]}]]], "Output",
    ! o/ S" a  X6 N) R CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, ' n  [" L# T8 {7 E" Q- W3 {) ^
      3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
    : o* O' S/ ~. F' @9 l/ L% C  3.5779608945565863`*^9, 3.57801226165625*^9}]: A+ H, ?& h9 w  J9 T( I
    }, Open  ]],1 s$ H1 n$ V9 _. S6 n% g6 p$ s- M

    " m6 Y2 Y! h. j1 a$ D! y6 f. c! A8 DCell[CellGroupData[{
    $ i6 P, c+ m+ ~' |9 C
    4 G4 Q9 s& r% M+ LCell[BoxData[
    ) }# U2 L1 e! r1 i: s2 G! v4 D RowBox[{"C9", "=", "Ca"}]], "Input",
    ! w1 }1 L0 O: B5 c CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    8 x) t7 P& z% P0 x7 E  3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],
    ) |. ~. t% ]* Y3 c) s8 Y2 f, N. y7 e, N- e  B3 n0 w5 u- I
    Cell[BoxData[
    4 o3 g* V; L* O- Q% w6 @ RowBox[{"{", ! I; t( L1 Y8 R( X) j8 \
      RowBox[{
    # D2 [- W3 d+ s' b7 H: |& T  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",", 1 b7 m/ A" i' T+ I; x. I  u3 S
       "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}],
    ! a# R, U5 k! w- e/ i5 g2 z: x  "}"}]], "Output",
    & Q2 f& _) r. ~0 X7 H CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, . c. _) ~; T. I
      3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9, 3 u8 k/ A+ F- v% t8 t4 m
      3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9, 5 L& g1 Y. M5 @" F/ i7 Z# T$ z+ U2 I
      3.578012268234375*^9}]
    2 f, e' t! ]- r0 t& x}, Open  ]],0 u2 p- ^* E% E: F' r

    , c! \8 H; g/ zCell[CellGroupData[{
    $ s" J6 u! S% N6 X, d. J, c6 F4 ]3 O7 T* T. {8 ?6 w
    Cell[BoxData[5 B. C) R. B+ _' R* W. m4 r
    RowBox[{"u9", "=",
    * ~# F: g. c$ B5 Z  RowBox[{
    8 e* M4 {3 {0 p   RowBox[{"Exp", "[", & j+ ^, ^* S- j2 Z# w1 f
        RowBox[{
    - [1 ?4 G% X8 P  ^& N     RowBox[{
    9 x9 b: P. i: p5 Z; l& I$ m' R      RowBox[{"-", 7 n7 H* u- _7 X: r: m
           RowBox[{0 y; l# c6 o# z  r) ~3 D1 g# c
            RowBox[{"(", ; P* I, @. E: Q. Q/ @! M
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
      J0 w" T1 r' {- L' u6 d) {& t# z        RowBox[{"(",
    2 x* Z# B, N! W1 |/ \0 v8 d5 F         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    * X- c; J/ S$ A4 Q, r, Y5 m3 P     "]"}], "/.", "DeltaX"}]}]], "Input",
    " \/ ^8 _1 K4 N9 a CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, : s, a# `6 T' b5 [9 m
      3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],
    4 ?' `: j" r3 w0 Y* F, Z5 x  M* Z  R( f; D$ x5 R
    Cell[BoxData[0 t4 Z) i- |; p& V8 O, U
    SuperscriptBox["\[ExponentialE]", ' S9 `! J0 L/ _: c
      RowBox[{"3.141592653589793`", " ",
    / Y; J! Y! ]6 P7 l5 j) l! m+ h   RowBox[{"(", 8 ^1 Q- B# X# {# d
        RowBox[{
      x% ~  p7 ], F. V0 D2 `; ]     RowBox[{"-", 1 j, K$ X  ^0 ?5 r) _. j0 V: i
          SuperscriptBox[
    2 d/ H2 W7 u4 h: |$ n* g       RowBox[{"(",
    ! U  g+ G1 g1 ]: a: l- g' k        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", " A& @) F$ z8 W: ?; Q0 C
         SuperscriptBox[. s2 s2 r; n: p2 r
          RowBox[{"(",
    - {& Z/ s) q) m9 }1 K) y       RowBox[{  |$ I2 V& D" X0 _) Z: q
            RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
    5 g& a" j3 t( m! H! C* X     SuperscriptBox[
    7 L1 d, U& p& ~/ M: i) {* X      RowBox[{"(", & Q+ x8 Y2 @2 g9 p
           RowBox[{
    " @+ \4 A2 M9 m        RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", ' o% q8 j' `9 L2 R4 O
         SuperscriptBox[
    % M. h* K% x, d9 r; O- M      RowBox[{"(", 5 a' U: N+ r% D- U" Q
           RowBox[{
    # L5 K+ m! L/ n* P9 k        RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
    + A8 ~2 e- U" D4 g- w( i     SuperscriptBox[' E) |1 X. W$ d( |  b5 H4 G% x
          RowBox[{"(",
    " c3 ~$ `) {. @& ?# @       RowBox[{+ ]6 K; V6 X" s9 X2 ~: Z$ E
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    # Y) D+ F" z$ l) l# v0 C8 H" C) q     SuperscriptBox[
    . g- H, A, h% Y& M" U2 a# |7 Q      RowBox[{"(", ! D& P, b: P' H7 L2 I7 b. `1 Q
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    9 y3 r- C8 O6 C, L# i     SuperscriptBox[* \* u6 Y# U, K" f9 S# s/ X- N
          RowBox[{"(", " }5 R6 j) m8 V" S3 I3 Z
           RowBox[{
    ) j) s) f; P) h        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", * X7 H- c5 r6 F/ }" B5 O9 t+ m
         SuperscriptBox[8 U7 l) k% ]4 `* q; v9 K2 F6 g
          RowBox[{"(",
    ! X  P4 u: I8 G( a       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ; \2 ^. x1 J, Y- U4 s- _  J
         SuperscriptBox[
    ) `) r: c% @3 N      RowBox[{"(",
    : n! M* x# ?$ A9 b3 s/ [       RowBox[{- w# L: m  s* F" c  K  `
            RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ( X. F; {  I$ e! F3 K) h7 G
        ")"}]}]]], "Output",
    , d; o' Z' k6 C& Y0 J  b CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, ; t! A/ B' z& b0 A% e
      3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
    9 k2 Z9 R2 N7 n/ v0 \$ v  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9,
    4 R3 a7 G% j: B% C% o4 ^  3.577961530421959*^9, 3.578012269125*^9}]' D, u# X. K4 u6 |0 T
    }, Open  ]],
    / U2 M. t. W$ h3 h! u2 ?/ w0 X; s6 G0 k  L' H/ T: [$ Q
    Cell[CellGroupData[{3 Y2 m6 C. E; z9 Z
    ) a% j3 z* q9 w' g
    Cell[BoxData[{: f8 C7 z7 U% h% g3 B, {
    RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
    , a/ D! |* z: w2 m( K RowBox[{"u10", "=",
    ( Z3 v+ X$ y" e+ M, m/ P2 D  F6 U$ t9 j  RowBox[{" S! a4 Q& n" t% [: t
       RowBox[{"Exp", "[", / \' i* a; W+ F4 H3 ~) n3 a
        RowBox[{
    ) |6 N6 \$ ^1 }1 F: u$ d' [     RowBox[{
    3 o" r, D4 U* l' v4 G' _8 y      RowBox[{"-",
    / K1 e) I0 Y9 q$ M! ~       RowBox[{! B4 w2 K; F6 K
            RowBox[{"(",
    : Z6 y* h3 W7 k2 ~- p1 w2 j         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", - }! H# G- M/ W
            RowBox[{"(",
    : [) p  D: Z2 L' F- ]         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ; T( f+ A6 c- U     "]"}], "/.", "DeltaX"}]}]}], "Input",
    * A3 l  {0 F/ T* Z% K CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],
    % E3 l3 K- N% |9 ]' J% {0 R' J/ w/ K7 {* ]7 x6 L+ _
    Cell[BoxData[, e3 c, d" G0 q  J4 `
    RowBox[{"{",
      }% ], E5 u( W; a- z  RowBox[{
    / V" [3 G+ `" x  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
    : S/ r4 N8 a5 D   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
    7 A* p$ N; T% u9 w2 \! e3 S CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
    1 c  |4 l8 L6 G" n1 H" I7 v# J* A4 [
    3 ]) A0 e- n  [1 Z" h$ Q1 K" CCell[BoxData[& X: j+ P- h% u9 r( c! v
    SuperscriptBox["\[ExponentialE]",
    0 i# y/ j7 p8 W  x2 B. r( H  Z' T: n  RowBox[{"3.141592653589793`", " ", 8 {8 O7 e  c" Q7 [9 H
       RowBox[{"(",
    9 p+ g( N! \9 |0 T) z    RowBox[{
    # _' p8 e5 f4 X     RowBox[{"-", 1 u, {+ ]' d- g% j  P
          SuperscriptBox[; T% _! ], Z% t+ ?: N; X8 I
           RowBox[{"(",
    ( {* R# e7 j* k7 s" P1 y, N$ l1 }        RowBox[{4 T9 F  f9 b" H* v- u' s4 L1 @; b
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    1 Q( a. G' X7 I) p/ U3 r     SuperscriptBox[
    4 U: Q/ N% D, v+ Y      RowBox[{"(", " D. b. `2 G/ k$ P/ ^
           RowBox[{
    " X3 Q* z9 s7 P0 r4 |/ j        RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
    / m& d. [4 z8 C* A" |" c& L     SuperscriptBox[# B# x# L9 I) |( D2 C
          RowBox[{"(", : i* _) ~. D' \) S
           RowBox[{. K# B0 W( S/ @& m" a
            RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
    ) M3 M' Z5 m% h  c     SuperscriptBox[& _$ `$ E# i: t
          RowBox[{"(", 4 |" V8 P7 m, A6 e
           RowBox[{
    ( c- y- o9 i8 f: w        RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", ) s2 h+ h# [0 T: q& _  ^
         SuperscriptBox[% p$ I* U# G  I3 ?$ ?+ t
          RowBox[{"(", & w  ~& M, |! C/ w
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", 3 a; W. l$ G3 F
         SuperscriptBox[
    % c3 t: J* |/ x& t      RowBox[{"(", 6 M/ {1 Q9 s7 m* z0 q- _
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ! v2 k- q. V" V8 u1 z) H' p+ k" ^% K
         SuperscriptBox[. `- `2 K7 t7 X0 |9 X5 ^
          RowBox[{"(",
    % l3 ?( S6 z: u       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    % l% x) E' y8 I# X$ K* B9 Z# b     SuperscriptBox[
    ( O" a8 |$ I, c: v3 a! n* s      RowBox[{"(", ; n( X+ U6 x# X8 m& ~! z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ( O7 j6 h( O' v& o1 V
         SuperscriptBox[4 Y" q$ D2 Z$ B. M6 ~, B! k2 C! J
          RowBox[{"(", 8 ^; |1 F2 P" A+ z6 k% @( y: `6 W
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ( U+ w+ M9 Y1 k0 \    ")"}]}]]], "Output",7 D  E# W* w/ T! `8 B! c" K5 N8 c
    CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]$ L0 n: q% s& |8 p+ @3 r  V( c
    }, Open  ]],
    0 q: e3 ?, i1 S
    2 J  \, b9 U  H1 F; u1 XCell[CellGroupData[{& b2 _7 r0 d% D: A  F8 L
    - n7 N) u5 U5 t4 S7 {( c
    Cell[BoxData[{0 v. |5 }% F8 o' }- N2 S' P
    RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]", # t1 [, n- p+ G/ q  R
    RowBox[{"u11", "=",
    . ^9 o. w. _3 \; R0 p  RowBox[{* H% B7 g+ P7 w" F  z( `
       RowBox[{"Exp", "[",
    ) y# \& ~( \: W, [; u% B  p    RowBox[{
    % Q4 `; Y9 B# V1 B) R4 D3 L     RowBox[{. s% q1 w2 m. T( q' ~$ v
          RowBox[{"-",
    9 o& w5 _9 _1 j* t6 S       RowBox[{
    $ l/ F! g3 K/ g8 I, |2 P        RowBox[{"(",
      l# y, ~3 |& K4 z' E. t9 R         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    0 W2 W! F8 F" i/ f6 T8 l        RowBox[{"(",
    + L8 z' ^  H& \/ o         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    0 j# N0 [) }* _0 Y( `( }     "]"}], "/.", "DeltaX"}]}]}], "Input",
    ) T, A: i: {7 s2 `+ U4 B CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    * G/ L0 B4 J: G- r, _8 q# l- c  3.57796154237158*^9, 3.5779615434011817`*^9}}],
    : Q- [8 H) n% {+ e% o/ }. C2 k; S, E0 q6 ?* v
    Cell[BoxData[
    7 y9 x7 ?5 F/ m8 @0 N3 \ RowBox[{"{",
    : F5 F. I$ H8 z0 W$ t; o6 }, T  RowBox[{4 c& I6 J1 S; T+ K4 x) [9 }' O
      "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",", + e* P- ?' C  ~% H
       "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], / a! p- |5 p9 R
      "}"}]], "Output",  C9 ~0 a) C5 z0 ^) R. a
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, * b; w7 g% Q9 k1 b
      3.57801228203125*^9}],/ S* w+ L( Y  Q! l' f6 `
    1 Z1 \5 D6 s: D& e! A
    Cell[BoxData[
    4 p/ k0 Q" h4 W! y! k6 y4 i SuperscriptBox["\[ExponentialE]", " O  E7 K+ S" M' \" F
      RowBox[{"3.141592653589793`", " ",
    - D6 z- G. Q) c6 p" X   RowBox[{"(",
    * c6 x: f8 _/ e* r, p    RowBox[{" p% J, R, q, Q( r* s$ x
         RowBox[{"-", ( h6 h! N+ a3 S* d
          SuperscriptBox[
    # X9 ^) x: o8 s  W: d$ }       RowBox[{"(",
    $ ]9 n; u7 G  e( q) M        RowBox[{% E$ ~2 _% K! H1 |
             RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", / A3 R/ _, [& j+ S1 V. h# w
         SuperscriptBox[4 \4 j; h& s; [2 Y- Y$ U
          RowBox[{"(", + {6 N1 R, B. x+ @! a3 {
           RowBox[{) ~* j3 d3 a+ ^) Y) s* K" F' R) y+ f
            RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", 0 ?; t5 A$ s8 G2 F  o
         SuperscriptBox[
    ; L" S( e" i2 o, P8 @      RowBox[{"(", " g0 N5 d2 V/ a5 g: j
           RowBox[{& x4 i, K5 N. [/ `' W8 Y
            RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
    4 ]% r, O3 [# E9 ?, N7 y     SuperscriptBox[
    / Q) i# q5 R5 ?& s8 ^      RowBox[{"(", " w' {# p3 h8 Q/ c. N( L& l; e
           RowBox[{
    , W: n$ J* p( \/ X        RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
    7 ^' X2 a7 t, P, ^/ F) S5 f     SuperscriptBox[
    / f& _3 g0 Q  s' O4 z8 I2 V: D      RowBox[{"(", " _; F- Y- W6 z) j
           RowBox[{$ ]/ h- H3 g' `& V& e* A% K
            RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-", ) V8 q+ |/ M2 h8 Y) _
         SuperscriptBox[
    2 @9 Q: W4 J* s9 e( a2 [      RowBox[{"(",
      G% s# r' b$ T8 s! G. K       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 6 o# P9 [; b; h" F  G2 R! B, r3 y
         SuperscriptBox[
    8 ^6 C% ~8 O. \, ]6 E1 z" P( N      RowBox[{"(", ) S3 X0 G4 z& u1 N
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ; w: r1 h. }9 f4 p( z
         SuperscriptBox[
    * T6 }+ e4 g: X8 C! ^) u      RowBox[{"(",
    9 d5 |  d4 F8 ^' x' p8 u9 V       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", : |2 ]$ K( e  `4 U
         SuperscriptBox[
    * ~: t& Z! k# G8 y/ i6 G9 X! r+ t) K: }      RowBox[{"(",
    * D- {' ^# L3 o" u+ o0 k- J2 R3 x       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 6 R* x5 x4 s! Y) f+ x
        ")"}]}]]], "Output",
    / `- [) T2 [' L# f' @4 a3 d( b  K$ G CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    9 c7 F5 X' j8 N- S2 \9 g" N* h  3.57801228203125*^9}]
    9 `$ p& h/ j  k0 D  @& C8 ]5 u}, Open  ]],0 v- M; h1 R3 t8 [/ k0 [) e$ F3 W/ v
    : |; U4 g6 M' a) z" W& p  N! _2 m
    Cell[CellGroupData[{" W  U+ E/ j$ X% |6 j# P
    / u6 M) {/ ^( v
    Cell[BoxData[{
    ! z5 |- O- |. z8 Y5 l RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]", . a5 k6 ~/ C% Q0 p# ^0 [
    RowBox[{"u12", "=", $ ?( r# C+ ?4 ]3 F& C, P
      RowBox[{
    % B3 @; f# v  L' I3 q+ K   RowBox[{"Exp", "[", ( y4 Z1 ^& c4 M0 O! m' P  Y
        RowBox[{
    2 B, X- T; l5 r0 C" y     RowBox[{; [4 }( x  O- J  N: d" ]4 b$ A* O
          RowBox[{"-", & {% @7 `; ]. G- w- ^
           RowBox[{
    8 y+ s6 ]. v& S$ \6 b        RowBox[{"(", 7 M. ^+ L% N  E
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", - Z9 c# b: Q9 t: m
            RowBox[{"(",
    7 y* Z. u, ^+ {& E" F. W( n         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],/ f2 }8 P0 `9 w1 y% q; H4 w
         "]"}], "/.", "DeltaX"}]}]}], "Input",& x0 m( V  Q: L! h
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {) x0 X) }3 s# z. i
      3.57796154237158*^9, 3.5779615576284065`*^9}}],
    ! n2 m+ ]1 M2 w% w9 X/ t: G: y2 N! Q/ @% J
    Cell[BoxData[
    7 a# K; q8 ^9 m% ~' v RowBox[{"{",
    + \4 b2 h/ G# Q4 a0 }1 a+ f  RowBox[{
    # N1 v' d+ C4 H7 F. p. w  "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
    4 u0 h7 H% E! h3 ~; n0 U   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],
    3 `2 W$ N3 u5 O, u- U  "}"}]], "Output",
    1 _' o3 E3 ]1 C! j% h, J CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],
    $ s, F/ _2 H! I' v- Z# y5 ]( i. u+ Q$ u; f' ?  q8 [
    Cell[BoxData[) M: m& ]/ y7 `9 M+ ]
    SuperscriptBox["\[ExponentialE]",
    " h; J: C. I6 }6 H  RowBox[{"3.141592653589793`", " ", 4 i' @6 R5 V; S3 r) n1 ~
       RowBox[{"(",
    : W8 @9 _5 Y1 s+ A% o1 F    RowBox[{. I) n- Y$ H7 Q  Z! {/ ~
         RowBox[{"-", " }5 L/ b8 A7 B3 W% ^3 `* ~7 R
          SuperscriptBox[7 G: W! E' D! Z0 [7 w
           RowBox[{"(", ; U5 m+ b& M. l' U& i. k: h) @
            RowBox[{
    5 c5 x9 \* ~! P) b         RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", 7 l2 O+ S3 n3 N# s$ e
         SuperscriptBox[6 I" |$ V1 m! d$ O. B, B
          RowBox[{"(",
    8 ^) [$ t2 a$ Q/ _. P1 H       RowBox[{
    1 G/ e7 w( y* d5 K        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
    # D& U2 b* w- r+ p/ S+ f$ I0 R     SuperscriptBox[4 v& C' O; g6 T: g7 t
          RowBox[{"(", / _5 s, e6 A/ ^/ ~5 F- K
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", ' |% ?! o3 Z2 c  j; a* Z. F
         SuperscriptBox[4 {; M1 D! Q0 l/ ^8 n! _2 t
          RowBox[{"(",
    ; d1 g+ j3 n6 n( _% V       RowBox[{0 y2 O. K6 Q9 T6 f3 J9 t  T- M( G
            RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
    ) c. U) D" e1 W8 C% S2 d; y+ ^     SuperscriptBox[
    3 f! i8 s2 s" g' ~8 V7 h2 \      RowBox[{"(",
      V. |% p  a) h" ~( J       RowBox[{
    0 O/ ^- e3 s: }5 f        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
    6 C& P) A2 [4 [1 G) ?. |* r     SuperscriptBox[
    ) x; W0 W# \+ h( K) [5 a      RowBox[{"(",
    * R( f+ z  [9 K: k5 f0 b       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    1 m( F+ m- B  Q1 N, j' u     SuperscriptBox[  s! m& H  u# m' Y0 ^
          RowBox[{"(",
    ' Y0 `2 _2 s" A- ?# ~. e+ O       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", + R/ v; Z! Z& d4 _2 c7 x5 K
         SuperscriptBox[6 j1 D! V0 p7 q. b
          RowBox[{"(", 5 b  Y" i0 d6 a+ M3 |8 E+ W
           RowBox[{
    % z: F- K4 i. j; s: T* d2 l        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",   y. H$ d2 @* ~
         SuperscriptBox[3 b* y0 Q* v0 C, q' t/ O2 V
          RowBox[{"(",
    ( A* N4 P2 m* |1 _. [       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ' V. ]# Z# k$ w0 v5 [: r; I* v0 E% O    ")"}]}]]], "Output",+ W! K. b' e( V
    CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]
    & n# w" Y; r/ x/ o3 K* v}, Open  ]],
    . l% M0 k( o' k! f( }+ D% \! p: a% P+ }* f
    Cell[CellGroupData[{
    & e+ m1 e- W% ^
    4 `& d% b# H& o9 x/ X* W9 I' aCell[BoxData[{* ]& q' |0 G" J0 q
    RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
    ( k1 ^. t6 C% B+ q RowBox[{"u13", "=",
    1 H3 ]4 h& j" v) p0 h2 O  RowBox[{
    / k  X8 l3 s7 W+ g. J& Y5 x   RowBox[{"Exp", "[", & M* `' {1 N. n/ {
        RowBox[{
    " E8 J# k- F. s6 W     RowBox[{
    % S# |8 U$ C% o: |/ U. @7 ?3 }& n      RowBox[{"-", 0 K2 J+ }4 A, [+ t6 H' w
           RowBox[{
    ) M9 r, I# A3 d2 }        RowBox[{"(",
    ' S. G- e5 v, k+ u# P4 A9 d         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    % ^1 q0 |* @7 b( z" o" o        RowBox[{"(",
    * u, t" b' g& o3 `3 q7 @# W         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    - v! T4 x0 y* V: E: H     "]"}], "/.", "DeltaX"}]}]}], "Input",
      q. ?' E9 ]2 Z. A CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    4 a& C( T' m8 L  3.57796154237158*^9, 3.5779615599684105`*^9}}],
    $ d7 T+ S4 |: K- T1 L* I) w% x
    Cell[BoxData[
    8 E% h4 e3 q: O: @ RowBox[{"{",
    7 M- w$ n& w2 B. |/ y3 z- {) P: g  RowBox[{. ^; s  W" Z' R9 `% h
      "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
    % N$ Z5 ^) p- w   "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
    0 y, B. k7 w7 J* Y! k1 X4 ?6 M4 O  "}"}]], "Output",
    7 S3 E5 t( a+ D' ] CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],
    ' n! X% k; ]! s) {: L* R- `# W: l' \! h7 ?$ L0 W: [3 [7 Z2 q
    Cell[BoxData[
    " p6 i3 m% a) t  j; Y SuperscriptBox["\[ExponentialE]",
    # E4 G! n1 l3 q& q- B+ l* I  RowBox[{"3.141592653589793`", " ",
    5 c/ s. A# L8 d( a   RowBox[{"(",
    * j# y: _; c' F( M2 v( ?    RowBox[{
    8 a0 N# Y7 w- f* a) _! s- a1 o  n. J- ~     RowBox[{"-",
    ! S+ {/ @) @( E, T+ ]      SuperscriptBox[# @& w4 e7 y) r  B. u
           RowBox[{"(", $ s, i5 K4 t8 E9 y! V9 T
            RowBox[{9 [2 U! @! p7 ~
             RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-", 4 f# u$ K; |! J6 x7 ^
         SuperscriptBox[3 @+ \5 q) f+ \0 i- Y
          RowBox[{"(",
    1 T) k6 A/ z" E1 D& `& [       RowBox[{
    & d3 G% s* L) L. a        RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
    8 p& `/ a3 W! X! W( Z     SuperscriptBox[
    3 N7 Z( {; @" E" _      RowBox[{"(",
    4 C! s$ [; M# E" d( O       RowBox[{
      ~5 w* C% V& W: N        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    + b6 V, Q& G, }6 f* w     SuperscriptBox[, O; m1 D9 d' J: |
          RowBox[{"(", 4 t2 N7 a5 i/ c; ~, e" i
           RowBox[{4 g. w9 W( G& o% ~1 N, }% u6 X9 a, y
            RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-", / ?  z1 P) [! g2 h4 k
         SuperscriptBox[3 Q+ _5 N3 ]8 f; z  P
          RowBox[{"(",
    8 B) o+ l1 ]) B/ z       RowBox[{( T6 Q  t* E) ~8 i! R! f
            RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
    % P0 Z5 M) E; t( v5 l. r! F, h( @     SuperscriptBox[
    * W& m  x8 Q" p% }+ i" P      RowBox[{"(",
    8 o0 T/ o2 C" ?       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 8 J% g( A7 N0 l- A% p2 l+ B5 E" _
         SuperscriptBox[
      G6 R! |0 {# m1 A( C) Z/ P) c) R      RowBox[{"(", ! @# b9 L5 r# f) ^
           RowBox[{
    # O' c' u! b1 ^4 ^9 S# c        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
    $ E% z7 U! O0 b/ n+ G     SuperscriptBox[& q7 l; o+ Y3 \- G* w. N' T3 O
          RowBox[{"(", , o" I) R& M9 H: T, s- t
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    % D1 m8 h2 J& L9 Y     SuperscriptBox[
    7 E1 Q& T1 Q3 C1 t' P! A% b      RowBox[{"(", 6 [7 l, m5 `0 ^: X4 k5 r* {
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    9 q. M: d/ Q; I6 v  m- U$ R+ h    ")"}]}]]], "Output",+ I) h; m  s! j) R( u6 L
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]
    0 M" r' W0 D* ?& ?}, Open  ]],+ h4 G+ v' Q! b2 V2 [& Z
    * ]% Z/ I8 F# @9 e' s) b: Q
    Cell[CellGroupData[{
    7 M. U" c: R1 f8 }0 ~1 V5 g! V' c; r% J% q
    Cell[BoxData[{) b) {6 p7 f4 z! t& s
    RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]", , e: d1 K& w0 W
    RowBox[{"u14", "=", 6 N% h- D: g( |5 Z( f. B8 H( z
      RowBox[{
    2 T# L9 r! P: e( a   RowBox[{"Exp", "[",
    1 b6 N3 N" W" a+ a3 Z. J    RowBox[{& z/ z# E8 B! L3 e$ w* l, P
         RowBox[{2 ?" W+ h/ z- @3 a" ?: S
          RowBox[{"-", ( A' v: e$ R* y1 \
           RowBox[{
    ' {4 R1 p) @- v+ t* Q" s        RowBox[{"(",
    2 z8 \+ m. N: H5 ^; U+ J         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", # e+ E, T; k+ e# l
            RowBox[{"(", , j7 T. {. g! X: |
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    : V, v, z5 e* _+ U; B( v$ W     "]"}], "/.", "DeltaX"}]}]}], "Input",
    ) J. l& t6 J& h/ w CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ) i9 q* n% \7 w2 [2 b" {  3.57796154237158*^9, 3.5779615663176217`*^9}}],4 p$ g9 j+ E6 }! d6 I/ ~4 q% v

    7 `: _* ]4 a0 ]8 Z" yCell[BoxData[' Y6 t6 O, T# y7 E
    RowBox[{"{",
    : b7 ~" A# W" E" n$ G- i1 m7 W+ V1 o  RowBox[{
    - J8 c* Q& Y  K% W) Z3 x  @$ }: y# k  "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",
    - e4 O/ d7 x7 Z8 o9 j- ~4 e   "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    + {+ C6 d+ {" h  "}"}]], "Output",
    " h+ M6 F+ W7 G( ]* F CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}]," J$ j& H- y7 _5 q/ p
    # l) M( v" Q2 ^- {: j; g2 p6 A2 a
    Cell[BoxData[7 K# y/ I3 H1 d. R) `$ z$ {
    SuperscriptBox["\[ExponentialE]",
    ( ]+ H, q" Y+ B% Z  l- W  RowBox[{"3.141592653589793`", " ", . D4 s' A5 b5 p; M
       RowBox[{"(", . d$ b) b! B" S7 X& S
        RowBox[{: ^0 e; {8 _6 ~. U
         RowBox[{"-", * ^) Z8 a. q: X3 z$ _0 T
          SuperscriptBox[
    1 z6 F) I. E5 K; a4 \. ?       RowBox[{"(",
    ( V# y: ~: u% z0 W$ `        RowBox[{* B* I) ?* }% u8 u
             RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
    & }6 N, k/ D$ C+ x0 c' k9 u     SuperscriptBox[& C" r" w/ z4 G/ F
          RowBox[{"(", ( ?8 u0 q2 \* O1 B
           RowBox[{8 u, y. }# z2 r4 q2 U
            RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", * [3 S1 j+ f3 a! I7 A% s
         SuperscriptBox[
    - j$ t( E* S# Y% C) A4 r" O      RowBox[{"(", ! b- \  A- f7 V) _# g/ }
           RowBox[{
    . y2 Z% P0 G' g        RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", 1 `1 F) K) [- r6 R3 {6 L
         SuperscriptBox[1 P, _$ H" c  x, y
          RowBox[{"(",
    1 o3 }5 t) C! v4 C! d3 f, [       RowBox[{/ u6 v/ z+ V; H3 I) o
            RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
    6 s& Z: D! z9 ^8 l9 ~  D. w     SuperscriptBox[
    % b, r. ]* b# r3 Y* S4 H      RowBox[{"(",
    5 d5 ]( P8 O8 @" d) Z: t       RowBox[{  S3 \& ]% d) g9 ~/ D% n
            RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
    ! j  \4 D% {/ [+ x+ ~- y     SuperscriptBox[  t! M- s$ Q9 S' t
          RowBox[{"(",
    3 D, R* @; @, p& ~8 t& ^- l       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 9 F: x0 A& ]' K& M
         SuperscriptBox[
    . O# q' M( V4 W. W4 r) B      RowBox[{"(",
    : |5 C$ a5 q$ U. S/ e0 \       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    6 _8 X6 ^/ e2 S4 R% I1 \     SuperscriptBox[
    - J2 M8 f% y* S; H2 ~& E      RowBox[{"(",
    4 b' n$ u* K+ B0 w- @& A       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", * X8 C- N. J3 ?4 x
         SuperscriptBox[: G& C6 g) g/ p6 j
          RowBox[{"(", 1 {3 Q4 {# d: @; L$ D( Q* D) Z$ Z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 8 A- c' h; m+ }: }5 T4 Z
        ")"}]}]]], "Output",# U! j( o  c. W
    CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
    ! g. L7 G6 A; @3 u9 l6 _}, Open  ]]," O  U2 ?8 E) a7 D. k" j

    7 o4 }- a9 H5 j0 q1 M1 S+ t# R' zCell[CellGroupData[{3 h, I7 r+ `, C8 _& d3 o
    : k7 e7 D. a5 _3 y' v8 ^
    Cell[BoxData[{9 X2 `0 J& l5 k( e6 |3 p- E
    RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]",
    $ c- h; N: d5 [% d RowBox[{"u15", "=", 6 j/ R2 c/ O6 _
      RowBox[{3 U! n& G" x, O: l2 t
       RowBox[{"Exp", "[", ) N& o3 y. s8 |. u3 ?: N- t& w
        RowBox[{
    * |; E( \: o7 C5 \& ]# `     RowBox[{
    ( I4 \. M7 ?7 \      RowBox[{"-",
    ' J  A# a" D% B$ V       RowBox[{
    4 }. `( `$ V2 H. K        RowBox[{"(",
    5 _8 p. L: i' w! t1 K) E         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    5 U0 P! X* D, ^& [# U        RowBox[{"(", 2 y) i1 B# |+ r# W
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],; d4 X, N1 }+ E
         "]"}], "/.", "DeltaX"}]}]}], "Input",% ^# }5 V0 t2 i  Q3 A
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    5 W! n/ f" U) e5 ]; f* G1 O  3.57796154237158*^9, 3.57796157098203*^9}}],
    ; F( i7 t3 e0 E5 c, y% |5 r
    0 b$ N" ~& B5 E" ~/ ]( ^& }Cell[BoxData[/ n' s) ~5 D  N0 D! n
    RowBox[{"{",
    6 Z9 k) @( O  N& @8 J) Q8 Q1 g  RowBox[{' V( l4 \$ _- C0 [/ l
      "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", , p! o6 R; V" _8 P# w0 o9 T
       "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}], " z0 f' Y3 ?+ l- i1 W% j+ Z
      "}"}]], "Output",
    , W. c3 @2 g/ u3 \6 k( e+ ~ CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],9 A: }1 e$ `0 L9 ~
    ; p0 ?, Z1 h; h# ^; L- O5 b
    Cell[BoxData[( F$ Z4 O: e' {9 \  q
    SuperscriptBox["\[ExponentialE]", # J- W0 b* Q( Z* q9 p
      RowBox[{"3.141592653589793`", " ",
    7 f! K; Q. d6 D/ o# ^; ~" |   RowBox[{"(", ' H- d0 i! q  o( V% k2 {6 g
        RowBox[{
    : `5 `# j2 w* k  e* I$ G     RowBox[{"-", ( @" l2 S9 L2 K" U; U
          SuperscriptBox[
    ( O$ K, Q: f! s& @+ u7 ]0 r       RowBox[{"(",
      e% R6 }3 y5 I1 v" F, L        RowBox[{
    - i  o1 z' P8 f4 J& A  k2 ?) g         RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
      Y) ]$ h7 I9 t* {     SuperscriptBox[
    * {& H  j- B' A' `( g! b      RowBox[{"(", + s/ H5 ?+ K- q
           RowBox[{
    & a) v1 k% e" ]$ @0 n8 Z        RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
    # \( N  y5 |; y" g4 M     SuperscriptBox[
    ' v* _+ G1 m3 ]. U6 R      RowBox[{"(",
    5 W9 k1 ]/ o1 s       RowBox[{
    + o2 Z* a/ p6 S/ i3 y        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", # Z% J! L1 k! Z! n1 ~3 I& [2 K+ x* b3 q
         SuperscriptBox[8 n$ w+ V/ k; H& a( q
          RowBox[{"(",
    5 P$ h7 Q! A; a       RowBox[{0 g) x+ U- C7 q. C# N( g5 }
            RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
    % I2 F2 r- K* c     SuperscriptBox[
      ~) W5 a3 A8 v% I' r      RowBox[{"(",
    7 t) d1 u% z; J1 w, `       RowBox[{( h7 ]; }5 e  j& G
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", & s, v' K6 K* ?& E% D
         SuperscriptBox[
    ! J3 }0 e, `" y+ I/ [) q9 f      RowBox[{"(",
    4 I1 N! K( ]1 j& o       RowBox[{
    ! G& ~: F" Q: p* v* _        RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", ; l+ ~! z6 n. Y0 w
         SuperscriptBox[
    # p, m8 @( M2 {      RowBox[{"(",
    * E7 f$ `; C" k: o       RowBox[{9 J4 s0 J# v3 b9 B1 @) Y
            RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", 3 H" P' E& Z& H: B6 O) D1 J+ T1 w
         SuperscriptBox[0 T- T  ]) ]( g2 B9 M  u
          RowBox[{"(",
    ) I4 F$ l! I  x& d& O+ P       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    2 E, {$ }% r) ?0 ?! x* P( A# m     SuperscriptBox[/ |/ y, c# w" Z7 P& m& W1 G
          RowBox[{"(", 1 N, K0 y  S% M+ Z; g
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    & k7 N! K( p6 p' N/ V    ")"}]}]]], "Output",
    ) c2 o: a, T" Q  z CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
    ( g( [+ r0 O8 ]1 _) O}, Open  ]],2 G6 K) ^" d  o
    ' d+ r3 X5 V- k( ]1 e. ^
    Cell[BoxData[
    4 C! E/ j; }" A( u" u. U4 S RowBox[{"For", "[", 7 `+ J$ K# S" k: Q
      RowBox[{
    ' H7 F# D4 O( g' S3 R/ A7 j   RowBox[{"i", "=", "1"}], ",",
      L( _+ X, C3 |" M   RowBox[{"i", "\[LessEqual]", "9"}], ",", ) {( A% n+ t# h5 A
       RowBox[{"i", "++"}], ",",
    * K. ^+ F' ?4 m0 k, N) E   RowBox[{
    " a) B6 t2 H0 E" Y- U7 j6 `2 C0 s    RowBox[{"Ca", "[",
    ' ~/ N2 H/ k- L: o     RowBox[{"[", "i", "]"}], "]"}], "=",
    & X, b  |# C( W% S8 G    RowBox[{"CM", "[",
    ! J: }5 C& c3 J8 J/ u7 L0 {, Z     RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    4 j+ h* _3 Z) D. o4 K. h1 v CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],9 B, i, v& H- c; Q/ t: S/ a9 z

    ' L- Y4 V* P$ c+ ?! FCell[CellGroupData[{
    ) S5 n' N" p, A" g  y1 A
    7 S1 m- x  F* b5 ?% \8 m3 \Cell[BoxData[{* g2 E- P2 h- o' ~
    RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]", & g. z/ E  l4 r) M# T' ?
    RowBox[{"u16", "=", # O* r6 r; h5 J0 r7 N' s) A* c
      RowBox[{' b( C, p: c  J4 q
       RowBox[{"Exp", "[",
    ' e* [1 r, ^) w2 h6 Y& E4 L' l    RowBox[{
    $ l% u9 p$ ~6 m+ a     RowBox[{' e$ q. w+ e& q* G; ]3 m
          RowBox[{"-",
    $ d/ H- A7 u5 M. n. Y( q, s. G       RowBox[{
    4 m  d- j, X& y1 {+ x( W6 i2 Z        RowBox[{"(", # @, R) s' f  g; U3 |6 w2 c
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ' o/ g8 m2 K* O2 e6 z
            RowBox[{"(",
    1 ~8 b( Y7 P! {( n3 G5 g# g5 G0 o         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ) x. l( _! u2 W% ^  n     "]"}], "/.", "DeltaX"}]}]}], "Input",& a2 R# T! z3 f4 O& ~1 r
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ' r& ?3 D. V  c: q  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
      L: W: t& w8 |: \  3.5779615751004367`*^9}}],. a4 I, t' O% m$ C' o1 K2 g8 L" v
    7 w$ Y" t; c  \  Z% `2 x: Z: h
    Cell[BoxData[
    . W7 H& e4 ~5 f/ b RowBox[{"{",
    0 P3 M5 I3 U8 C9 I7 h* h6 W  RowBox[{. r) R- j) Q3 y+ Z6 A; X
      "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
    9 M5 N: ]2 b0 B% z/ _5 p   "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
    ' O' S9 z0 Z3 {8 o/ w# j5 C7 R  "}"}]], "Output",; T. r+ v( P  d$ v. m2 B
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],
    2 {& g( N+ @' i" u. u: N/ O2 l6 g0 ]1 k: i& `! Y( x
    Cell[BoxData[
    ! i3 a$ B- n. {! F* O SuperscriptBox["\[ExponentialE]",
    + I" [0 @! {4 `4 L. B# Q  RowBox[{"3.141592653589793`", " ", ) W8 }! j* _3 L
       RowBox[{"(",
    ; P* _7 n8 J6 d( N2 V    RowBox[{
    / M; a3 g( h( X( R     RowBox[{"-", * E! i& A- I  C, R1 a4 o( F& ]3 q
          SuperscriptBox[5 k+ Q( I& S% g1 G: _2 t  j* \
           RowBox[{"(", ' i: X2 r6 e7 z, Z8 y
            RowBox[{% M0 v0 V7 P' {! s: f
             RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", 6 N! h  E% e3 o# `) j+ v
         SuperscriptBox[: Q' ?9 L, X1 s  E  k+ U8 Q
          RowBox[{"(", ) D' t  z, C3 {  F8 [0 n
           RowBox[{
    0 [" l+ B* G9 N* S1 V* g7 \        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", 1 d8 ]9 q& z' \- z. p  b* ?
         SuperscriptBox[
    4 f8 k! K/ G% J0 e3 q) [      RowBox[{"(",
    " k' o! P1 D4 [$ T7 P       RowBox[{6 y. D& A2 r+ J# c& N( t
            RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
      l0 m' @, u. A5 Q% L: p2 C  `     SuperscriptBox[( _4 X( @; d* u  Z4 g' n; y! y6 c
          RowBox[{"(", $ }7 o) g5 V1 g# \. T, O, T
           RowBox[{
    - H* t' |; z: J" e% S# p        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", 5 [2 u$ r: a* P5 I9 f
         SuperscriptBox[+ j% G4 n4 y% k$ r9 L
          RowBox[{"(", + u2 n: I  ~9 o, W1 {! D4 U+ M" I
           RowBox[{) @2 G2 s' \. v- S
            RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", + j( c7 {1 M  t2 L0 R) P
         SuperscriptBox[0 S% ~9 L  s7 E) _0 ], U
          RowBox[{"(", $ J# t6 C. x7 w$ V
           RowBox[{
    ' x; f% D; n# z7 n6 k        RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", 6 D, U( n* E% ^! e
         SuperscriptBox[
    7 C6 T' R9 U* v5 [! g+ q& K      RowBox[{"(", 4 u0 b+ ?7 ~0 X8 e7 n' U2 @% k
           RowBox[{- Y' Q' J6 i& U
            RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", : p. X4 k6 m/ ^" v* K  `
         SuperscriptBox[
    * P  R4 [$ S) [& \* u4 M      RowBox[{"(", 6 p% O2 |3 g1 m2 }9 A) v
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    / U3 h0 c; b; D7 e% C( w: Z( q     SuperscriptBox[& i( u6 Z! {) v% u
          RowBox[{"(", : j! |3 z: @9 A
           RowBox[{6 ~+ G$ G, N+ F
            RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",) e$ f& i: E! G& z
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
    2 R0 h* R" x: f  z}, Open  ]],
    3 k) `* o, k  y; C( V) i
    0 X! ]$ ?2 @; s* B4 ?0 j' E( I  NCell[CellGroupData[{3 C" r+ Z; q1 u0 @' g( O5 Y% b0 ?

    ; B9 q: P2 y2 d* o2 c" QCell[BoxData[{
    & K+ p1 S% t* E, G$ d RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]", - a2 A( R  A4 t4 o
    RowBox[{"u17", "=",
    ! h: N1 n' B- [! c  RowBox[{, ]4 ?9 I9 q1 d* O/ e2 P7 Y2 v  @' H
       RowBox[{"Exp", "[",
    " A2 Y, |# C9 G$ i    RowBox[{
    # J0 B# Z# d7 B* a% g8 \4 i     RowBox[{) _" M2 |( q' G* f7 a: G
          RowBox[{"-", & t  k. K  L. u6 g7 j7 ?
           RowBox[{
    + R% t& w. {) b" P        RowBox[{"(",
    % A7 Q$ O* E9 l! b* k# y: j         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    " O- _- U" B8 L( P* Q! o        RowBox[{"(",
    4 z& C0 Y2 N# A5 E4 O5 D9 M         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ( N0 O/ N7 ^7 y. N1 f9 _( D     "]"}], "/.", "DeltaX"}]}]}], "Input",
    , {; `% i/ ^8 _( r0 A CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {" t+ p4 G  f# s/ w5 ^$ N
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9,
    8 o6 S& R; X1 j6 X7 c2 k  3.577961578953644*^9}}],, ?& K! [( R  {/ K7 N1 M/ T1 C

    3 s8 D' b3 y% R' [; u2 m6 |Cell[BoxData[
    ! \8 b7 |& m9 @8 d. v& |7 o7 P RowBox[{"{",
    ( r2 n% z5 F" o. S8 M  RowBox[{2 a: a+ w" f3 F. e& E
      "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
    5 J* d' K0 G7 F; M3 I   "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}], % E% P( k' p4 \) T0 H0 \; l
      "}"}]], "Output",
    5 F& z9 N5 ?( C: U9 A' E* R CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],3 u' s, R  m$ K% U; w8 d& {

    8 Z; t% {9 \6 r8 @3 ]; O6 FCell[BoxData[; v. c  L: W8 f( s9 @
    SuperscriptBox["\[ExponentialE]", * s9 G  M* d* ~0 T/ Q$ g
      RowBox[{"3.141592653589793`", " ",
    % w+ \7 G$ q% ?1 I: e   RowBox[{"(",
    , @2 _( V+ F* n, Q    RowBox[{
    : L0 l& b; A4 l% W7 g, B# ?% G8 R     RowBox[{"-",
    ! l  Q0 w1 P* z2 x* z& A6 Z0 C" Q      SuperscriptBox[
      m" x: ^3 s7 Q6 H       RowBox[{"(",
    # S) K) k' q( |2 U" Y        RowBox[{' A$ Z/ n. O' F# E; p2 i+ S3 N
             RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ( f% z! {8 g3 z' a% ?# m+ ^     SuperscriptBox[
    8 `. U& X+ F  ~6 P# g) B/ m9 R) E      RowBox[{"(",
    % \6 |9 {$ G6 u6 [. Y# H       RowBox[{
    ; V1 V, R& J$ J7 t6 v8 ^        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
    5 _% V4 L+ P2 l9 A% S4 K; r     SuperscriptBox[
    4 g0 R! j5 K  _% V3 U! I      RowBox[{"(", # D9 p8 Q! f  f9 h
           RowBox[{2 H& h% B! s2 b* w( X9 F3 ~
            RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
      y" O* p- l5 d6 _4 n$ E$ s  ~     SuperscriptBox[# n5 O" n0 D4 J/ y9 [6 w; @' g
          RowBox[{"(",
    3 E: Y# K! k$ |3 D       RowBox[{
    $ ]. f0 I) g3 c: v& ^/ T        RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
    7 c3 V( m6 u9 H; @, @- P+ ]2 r9 d$ J     SuperscriptBox[
      i, P4 b2 K' Z" i; g3 k1 Q5 H! g      RowBox[{"(", 0 u. q  U7 P5 |
           RowBox[{( ^0 F6 w% _0 K6 |: d. }
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    ( t& v$ f: X) q7 d' A     SuperscriptBox[4 Y) E+ Q( q: f8 n7 q
          RowBox[{"(", - I- G- |4 h( K* L  ^1 C
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    5 y- t- K# n2 r5 F) J     SuperscriptBox[
    ( N5 t7 u! ?; c3 u- W      RowBox[{"(",   X: {' S7 w. F) S# O
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", $ ?1 O! W1 y/ t
         SuperscriptBox[
    ) g7 w! ]* ?! F      RowBox[{"(",
    " Z  V* n( K6 s; b       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    1 C6 ]4 a7 Y6 ?# E. E0 b, |     SuperscriptBox[0 h/ [/ G9 y% J( N5 @5 A) u
          RowBox[{"(", % Y) _, _  t: u- j. @
           RowBox[{
    3 c5 G7 V0 y- _        RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], 8 X3 V1 q  L$ B3 F% o0 p+ W
        ")"}]}]]], "Output",
    7 Z6 ^! q/ g' K& t" o5 c CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]8 K' N+ H. U% j7 ^  `
    }, Open  ]],! W5 d4 k7 P& f+ y

    & t6 R, q9 x( {9 f" y2 wCell[CellGroupData[{
    ' S$ M1 v4 W% l$ [9 m5 f: b* _- e/ z+ x$ ?7 h
    Cell[BoxData[{
    , C! j, n; S$ q& f RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]",
    ' O# d& t4 w8 L% [8 W$ w' S' q7 K+ y: \ RowBox[{"u18", "=",
    & b1 `0 Q; U+ X" j0 Y8 {  RowBox[{$ m/ g5 p# g% ^, O+ l) C; |
       RowBox[{"Exp", "[", & G, ]" Q( e: K1 Y3 D8 [
        RowBox[{- k! R' D1 {* P! x
         RowBox[{
    # y) O) W0 V% ~. [. w' e  c" j4 d5 ?      RowBox[{"-",
    ! w0 `+ Y5 t+ X       RowBox[{
    & K4 w! L% M3 G        RowBox[{"(", 2 e2 s7 Z; U: |; [' W
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 4 v' G% I6 K4 n3 f) _
            RowBox[{"(",
    0 T& S2 f* k; [8 W0 a; z' x6 d6 J         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],9 X' z& ~: L7 ^: Q
         "]"}], "/.", "DeltaX"}]}]}], "Input",9 S: v' F+ E/ f3 ^$ }
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    . i, E& m8 M3 q8 t: A6 o  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9, 8 }9 @# A" N6 D2 H# n
      3.5779615828848505`*^9}}],% Y3 m; E3 s! F# o

    - r, G* s8 k) A4 B: ICell[BoxData[( x0 L; g8 P9 o
    RowBox[{"{", ) h$ W9 m% n6 C/ m/ g* b: c
      RowBox[{
    6 x; A6 E# l! N: H- m- ~  "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", 1 L, t  z' W. l% q* R% ]' d' J/ Y
       "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], % h0 r" E9 X0 M3 r* X' g! `
      "}"}]], "Output",4 x3 l1 |) I6 S2 T, V7 ]
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
    + X6 ]( z1 X! O, m
    0 f- l! L3 z$ K9 J4 G0 aCell[BoxData[% L  ]+ C  k! e% C/ r7 a
    SuperscriptBox["\[ExponentialE]",
    . t  f  t' V3 Y: H  RowBox[{"3.141592653589793`", " ", : q$ z! v+ Z$ S0 c$ I
       RowBox[{"(",
    2 p% R% U" A4 j  R, w! P    RowBox[{
    ! l8 `: n# Z* f( x, s+ a+ S+ `3 ?     RowBox[{"-", * C; D9 Q$ o1 a; Y, U
          SuperscriptBox[% M: {' d$ J& N% H9 A7 K
           RowBox[{"(",
    ' n. Y+ i6 {: |% g6 T        RowBox[{
    - p; H4 n- ], @( }* O9 c         RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", 3 j9 b* v7 ^1 h1 C3 k  G
         SuperscriptBox[
    1 F# C4 s$ V, H# l5 _; {5 v      RowBox[{"(",
    2 E: f& E; h1 `' z# j       RowBox[{
    1 r  D; J: g' x* S1 O        RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
    ( t% }8 r5 o: Y: u3 m9 Z     SuperscriptBox[
    - w2 X% D1 `9 ?% O+ [      RowBox[{"(", 8 {' `) |* D/ S5 y' |
           RowBox[{8 N: E: g9 V% y5 d
            RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
    6 N8 {( r5 _, }! G     SuperscriptBox[
    , i3 Z* V1 @' v$ o; N; g      RowBox[{"(", 0 M' U: u1 |5 A9 O* E
           RowBox[{; _# s. L% ]9 i" E& c. e" o
            RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", & a: D3 G# F6 A; `' B' f% H& r
         SuperscriptBox[
    ; ]8 E, w* k" S8 ]* z( V      RowBox[{"(",
    7 g% ]+ d9 @+ s! |) a5 B) M  `       RowBox[{
      E( Z, |2 _- D& |        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", 1 u* c- O- u* M1 Y
         SuperscriptBox[
    ) x* |; i, E. j4 q) ~% E$ R" S8 [      RowBox[{"(",
      ?# ?& ^5 |9 a1 f       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",   ]  W' s/ U% `8 G& m
         SuperscriptBox[- ~# x/ P7 }  B3 w* [
          RowBox[{"(", + x# v8 [# ^2 @5 a
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    6 t) _1 l* g  v     SuperscriptBox[) o% a, @: Q# u* d% W2 u
          RowBox[{"(", & _  t: O7 b8 v* x/ Y
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    / W1 X! B3 |+ \( C2 }     SuperscriptBox[( I) Y, \& E; d* p* G( t$ X
          RowBox[{"(",
    ( w; W+ G+ b% r% P* S3 K. s       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    6 o0 S- @' j/ Q5 {* Q9 s    ")"}]}]]], "Output",
    + S9 T9 b) [% V& x9 N CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]& y+ |+ K/ E4 U
    }, Open  ]],
    $ }; O* ]6 y6 A0 ?8 {* u" y1 Q' T9 O. r0 S6 x0 d. ~
    Cell[CellGroupData[{
    " ]7 \0 J8 G( ?# R1 q% u- I, S1 r7 d. J6 `
    Cell[BoxData[{
    - _9 E: _* u8 g+ P7 a RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
      Q7 @: J& L: y# K6 e* e RowBox[{"u19", "=",
    # O% f# p1 _) {- n) `" h  RowBox[{
    & L* V" y" J( b) A4 p  N   RowBox[{"Exp", "[", : N8 U0 {/ [1 D$ F1 n2 e# a/ \
        RowBox[{
    % e- V4 a- t' j+ b8 C% \$ a) Y     RowBox[{
    8 n1 @8 ^  G" F5 q. \( {      RowBox[{"-", * J( R- Z& s! n7 V# u
           RowBox[{8 I  A- m, B8 v1 B9 `1 H: M$ `
            RowBox[{"(", 9 F2 r/ ^8 f% M; S1 C; R+ L" r
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    # J  G) P' r  Q( B        RowBox[{"(", . t6 ?* f( \  J- C
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ; H! M5 ?/ I% S0 ]! v: W     "]"}], "/.", "DeltaX"}]}]}], "Input",0 X+ r4 N/ _0 B7 f& S1 j4 V1 O# Y
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {6 O: G* U  f3 u' Q7 g  v
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, * E- K9 {) w: Y- d/ K$ I# _- r
      3.577961588890861*^9}}],5 K: H, R8 r. T! o
    ( V: \' R" i$ Q; X9 Q0 x
    Cell[BoxData[: K. \; |( |# u
    RowBox[{"{", 6 Z& [4 ~( D6 c
      RowBox[{
    ' r4 [  o3 c, N' L# |& Q  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",", : X; C( x" u- F5 I1 W9 o
       "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}], $ w8 I. f, i* J+ p" M
      "}"}]], "Output",
    * ^% B% p* w8 O( Q6 L9 `* w% o CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
    # Q: l) [0 ?% K
    * g! X% N) L& `Cell[BoxData[% H! \; ^, ]5 m  I; t, d
    SuperscriptBox["\[ExponentialE]", ' X, S* U& p$ c8 Y6 q1 U
      RowBox[{"3.141592653589793`", " ", 3 G) n! k% P2 v/ t% d7 Y$ I+ ]
       RowBox[{"(", 5 S  W/ i" L9 A% I+ Q
        RowBox[{/ C  j, ^6 f3 z8 e; X! A3 C8 H
         RowBox[{"-", ! J' I& S% K$ _; g! s
          SuperscriptBox[
    ( Y# l; G! P3 h       RowBox[{"(", " p! _: R+ P( ~6 U/ f# f
            RowBox[{
    * y7 K) G' ~' `0 Z; ^; }4 i         RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
    7 A8 [6 \* z: }! V/ }+ Y6 w" U5 f     SuperscriptBox[
    2 M& N/ i6 v* D5 H. }5 [- F      RowBox[{"(",
      c& q$ D% C/ C' e& z3 K9 L       RowBox[{
    - V5 y. g$ q2 L7 F        RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
    ; g3 U( y9 d. U; B/ v: p( S     SuperscriptBox[
    . N0 h7 C' s: ^% M8 f+ H" Q      RowBox[{"(",
    8 P( O* K6 R& J2 I5 W       RowBox[{
    / ?+ {4 X  n; U        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
    5 A8 [: K- j' m1 J& x8 @; X: _$ ^     SuperscriptBox[
    8 r7 O- Q' m6 \1 h2 D      RowBox[{"(",
    ; T4 ^+ h1 Z% u; S( i+ H       RowBox[{0 g. U/ I0 F) V
            RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-", & U; P. f! Q- d
         SuperscriptBox[4 A  o3 K' m) p4 |5 y; p
          RowBox[{"(",
    , G0 Y5 p. }) W, o; ^/ u       RowBox[{
    ; X! F1 k, Q3 I% L  D7 u* j3 @        RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-", 0 z$ {) v# Y) G$ I3 ^6 d' ^" `
         SuperscriptBox[, B& ^6 I; E( W% K
          RowBox[{"(",
    / V' i& v9 Q" l       RowBox[{
    : X8 N- c3 q( z# ?9 z6 F5 K        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
    9 H. O2 x4 S+ A6 W+ `! O     SuperscriptBox[
    3 b! F4 K7 m+ E; ~; c5 W: E7 c      RowBox[{"(",
    4 H) N% C% \, n8 Q7 T       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", % `( D9 l, z& ]$ _1 x
         SuperscriptBox[
    - S! {7 b/ h2 H) n/ z% n4 \, ]" @      RowBox[{"(",
    9 Z! Y, v2 L: l% u       RowBox[{
    # P3 y6 _& k% ~8 \* v        RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
    7 A5 F$ |5 I/ s- e( c0 f2 Z     SuperscriptBox[8 Z' @! M: B! o
          RowBox[{"(", $ i5 Q- x3 y- x$ c5 |6 l$ c6 l. E
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    + f: j( q3 F  ^7 ?; Q: o    ")"}]}]]], "Output",/ _1 {  v) {7 R9 A! N
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]" f0 k  G& z) b6 K3 l& ?
    }, Open  ]],
    : s* x' T- g( p& N! Z: S+ I; T  q* q2 m: a. t* w. A8 }4 f
    Cell[CellGroupData[{% l( y, R7 @  g  g3 y. N& U5 b
    " E1 i4 _8 h: v0 b5 t
    Cell[BoxData[{% r9 h" r9 ?! E# h+ G
    RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]",
    ( s/ W' u$ f/ j3 m9 p9 T3 G* G" | RowBox[{"u20", "=",   ^% f* ~7 W% U4 o
      RowBox[{
    5 [& k& |+ \1 Y; J   RowBox[{"Exp", "[", ' |3 d5 U( S! a" S1 Z
        RowBox[{9 S2 g' L0 O( K0 o5 {
         RowBox[{" }0 e% X' h: O! ~6 Y
          RowBox[{"-",
    5 I' ~) w* I& s       RowBox[{
    ' }+ ?. B2 T! C' R! @        RowBox[{"(", 2 Y3 b+ \" W1 i1 W& ?0 Y( b
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", / a7 R; T2 q0 Q- x6 Q: H$ G
            RowBox[{"(", 7 v5 x, ~3 k( n, }1 S" M" V
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    * L* J8 e6 v, h     "]"}], "/.", "DeltaX"}]}]}], "Input",
      `8 G+ ~* B+ n7 L CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    - u# z& y, H/ q  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9, 8 o8 N/ U) ]$ [, [6 V% n  `) \
      3.57796159382047*^9}}],
    $ k7 y- K% [. Y
    " S" Q5 Y& Z: K  a. DCell[BoxData[
    7 w: R! H- o( n# ` RowBox[{"{",
    2 T6 |6 g0 d  P; q  RowBox[{' H- m: f3 ~) H- ?7 D3 q2 M
      "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",", ' y& q2 H4 J% y0 n
       "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
    - _7 B- ~1 W: c  M( W+ H0 @  "}"}]], "Output",
    ( k) Q; E9 x: E7 B0 Z! J CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],
    7 U# R  E! J$ H' W: V" t
    $ s5 c1 `7 M6 s) S: {" P& g( Y" X/ W9 WCell[BoxData[9 w5 @4 N$ F9 P4 J6 R/ ]
    SuperscriptBox["\[ExponentialE]",
      h; d9 o1 P' A  RowBox[{"3.141592653589793`", " ",
    , ?$ I! ]# y' J! \   RowBox[{"(",
    ! r) D8 \* K3 s0 H/ b    RowBox[{- m) C; U- q! l3 j' z8 z
         RowBox[{"-",
    & x, Z, O# T" Q  o$ P      SuperscriptBox[0 S  P; Q( R/ f; K; T
           RowBox[{"(",
    ) A  x% K2 ^- `  v        RowBox[{% i/ C/ ~2 S  K. M4 ?  u6 A: N
             RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", $ D/ T( m5 Y/ H; d3 S
         SuperscriptBox[) e( [3 l/ J7 W  q2 h
          RowBox[{"(",
    ; N( j9 c9 X2 e- ]       RowBox[{
    ( `  l' f5 b* {9 f9 h7 N0 `% t        RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-", # {6 w2 z& |1 E3 y
         SuperscriptBox[1 o( c" F+ x6 S; ]4 p; H
          RowBox[{"(", ! I6 ~" e+ t) g- o
           RowBox[{& x8 E+ t9 P5 Y) x* e
            RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", 1 w! U+ S, ?8 W* q
         SuperscriptBox[+ n8 Y5 n* [4 F8 ?: u
          RowBox[{"(", 9 D- F; w9 l& G9 Y0 }& F! ]# S
           RowBox[{
    - G, f/ a) _, z; a* U9 t9 f( L        RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
    : x) v8 {  a, X# s# S9 p. H     SuperscriptBox[
      J4 j8 `1 k; [      RowBox[{"(", + X, k/ O6 r$ F, i# s4 t0 z$ n
           RowBox[{( |  M7 Z+ }: N! y5 ?
            RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
    : P( I& N3 F( D- [     SuperscriptBox[) D% D1 ?6 p9 n6 w" _' l% k+ t
          RowBox[{"(",
    7 G' M* d! n/ N6 [0 P; K       RowBox[{
    * `* p0 H: [: C" y# V        RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", : @5 [$ m# j7 J& E
         SuperscriptBox[1 c1 p$ n% G8 n6 u2 v! X" _: m: Z
          RowBox[{"(",
    6 m* B9 O0 [  ]+ r$ V       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    - K8 `& u1 K, o  `1 C* s- G9 t7 s, {6 B     SuperscriptBox[$ Y6 s9 U/ V) ~
          RowBox[{"(", 5 q% M% F& ^' d- A6 d
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    6 z" z9 W! m0 F, a$ M6 M! X5 J4 j+ h     SuperscriptBox[
    ; r- `; G- E2 B  |      RowBox[{"(", & x$ Q( E7 F, G' o; }
           RowBox[{
    0 |" m  L$ f4 n  i% o' Y0 \+ Q        RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], : u1 Y& T9 b3 |" l' O( k+ Z
        ")"}]}]]], "Output",
    5 c% Q  w; X9 V6 }  K4 n CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]( x7 D; K" W$ u1 p
    }, Open  ]],
    0 b4 ?% T$ Y, f8 |. G( }3 R1 d6 w3 ^+ ^) `% H
    Cell[CellGroupData[{
    - R% j; N* |( ~% J* k% i# |/ `6 P+ d& `8 H- |0 k4 Y
    Cell[BoxData[{
    * |- _4 S3 I: O9 Z" d. F: f RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]", 1 i) w" }$ C1 J, g
    RowBox[{"u21", "=", , c  i4 O2 ]3 |) I  W4 _
      RowBox[{8 D# T7 u( ?. Z1 o
       RowBox[{"Exp", "[",
    " O2 F, U. o9 E, ~8 h' K' A    RowBox[{
    " q6 U, l" n9 Z     RowBox[{
    0 j. {8 Y7 Q! p/ I& |' y      RowBox[{"-",
    2 U$ N8 e. }) U3 }9 R- h       RowBox[{
    2 V+ @. U& r' q8 [        RowBox[{"(",
    3 m: M; ^+ g& {; E( B         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", & r& p3 K; k# w' v4 e; A
            RowBox[{"(",
    & L8 d- Q) s: ~8 C! S         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],6 e8 s% R% A/ q0 {0 h* M6 }
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    8 [+ S( N7 X' `/ p4 a+ T" g) m CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    1 a' U( b5 P. @! e# D/ w% ~  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9, 6 s( H2 J7 y+ r# i" S
      3.5779615991556787`*^9}}],
    3 y& B. d& Z  D( v! }1 j' X
    , `0 A+ z+ d# y8 z2 bCell[BoxData[) B4 `/ r! }, e- r/ E2 l  h
    RowBox[{"{",
    9 T  S4 Z- @) P! ]- @' b  RowBox[{
    4 L. b+ L3 s* e4 Q! i6 [4 E: r, v  "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
    7 e7 C3 R+ y2 O* Y/ c; ]   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}], # r, E% m0 o, e9 r5 Q
      "}"}]], "Output",+ `5 M- Q, d% \) E
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],
    / S- K0 {, j3 Q/ c. i
    2 |2 G' P+ d. B/ ]Cell[BoxData[
    2 ?7 u: W# f) x* {) \( c SuperscriptBox["\[ExponentialE]",
    ' h6 F- r' U  @+ j  RowBox[{"3.141592653589793`", " ", 6 P1 P' M' u5 A6 j+ |
       RowBox[{"(", ! t/ k: Z, o) C% A+ B
        RowBox[{
    4 o) p- j0 z6 K9 a     RowBox[{"-",
    & ~9 d# g+ m* E- W2 ~5 ^      SuperscriptBox[' [( U7 U: E9 }8 R" W7 h
           RowBox[{"(", 7 P1 M# O* [2 g/ G/ d" F
            RowBox[{
    ! Y+ k* w- w/ x! H7 z+ u. Y" \5 Q         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
    $ c' o! A" j! U4 g- c     SuperscriptBox[' _: `  C* m, `' j9 \' a
          RowBox[{"(", . Z% n% b9 n- m' k
           RowBox[{$ q% G; l; D1 d" C
            RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", - E3 l1 R% ]6 }7 n7 l
         SuperscriptBox[
    & \2 c; M/ g& @3 B4 k      RowBox[{"(", % p& F7 _) S$ V# j3 R6 W; n9 T: s0 ]
           RowBox[{
    6 v/ ?3 S( U' U+ J* G        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", # v5 c8 F$ @: u9 K0 T* |) Z
         SuperscriptBox[1 @: Y- b1 z& O4 A9 U% e, ?
          RowBox[{"(", 5 J2 d' L& r- d5 A, D
           RowBox[{
    0 U' |7 U8 {6 T; b0 L) A1 V        RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
    0 W! \. D( v' T  C% @     SuperscriptBox[
    . O, e* k2 v" ^$ f, W  d      RowBox[{"(",   v/ T! ~" h3 U+ D4 a
           RowBox[{
    6 J) j9 m' @0 E        RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", ' L' k$ ]) L. u
         SuperscriptBox[# g/ |& \; B: e5 K5 W) o
          RowBox[{"(",
    ( O, _1 D3 {/ V2 B) _4 Z" J       RowBox[{8 Q( @( |0 ~. I7 g0 j) D
            RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    ( S# P. F- [2 ~, L% f. ^' `7 w. L* U     SuperscriptBox[
    3 ]7 f/ b8 X& z  X9 c      RowBox[{"(",
    % V4 K: G" y( g  \       RowBox[{2 q6 b4 C  K+ X4 R2 v
            RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
    5 K  u% T& o& a# V     SuperscriptBox[( E8 |8 \5 u2 E2 k
          RowBox[{"(",
      n9 _! E2 e/ o1 D  f! r% R1 a       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    8 y/ Y' S  y4 r) D- I$ F     SuperscriptBox[
    * j2 J. y7 b9 F* b& r      RowBox[{"(",
    . O1 m9 U+ n  @+ s; ]8 k       RowBox[{% z: ^3 D' n4 m. J; U" |
            RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
    * K$ a$ r4 s. s    ")"}]}]]], "Output",, U. c* R% G0 A# V9 D+ _1 _
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]+ \5 T% {0 j6 ~0 {8 ]* U7 d  r+ D. S
    }, Open  ]],6 e/ o3 K$ S' _) d& B

    , v) ^: _# \1 ^% dCell[BoxData["\:62df\:5408wi"], "Input",2 O, ]6 _9 F3 j: N" k4 f0 `1 \1 b
    CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],
    ' C' V: E1 y2 k3 o7 I* @2 H! [# [
    * C, ]5 d% w4 P& ECell[CellGroupData[{
    " h9 F6 E" U5 O5 \* j; d3 G' Z4 G
    7 }. Y$ |" V: v3 L* e$ I- y% V9 \Cell[BoxData[9 P. q% S% ?7 K2 K/ [8 E
    RowBox[{"y1a", "=",
    0 r+ t0 u0 C+ R8 {# {5 E9 }  RowBox[{"Table", "[",
    1 `1 U, h; [0 v; k! N   RowBox[{"x", ",", 2 h; ?9 r$ y5 O, l4 w0 e
        RowBox[{"{",
    0 `9 s" r9 E8 ~% b     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",+ K6 J* C" ?0 M/ F
    CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {" S  w# H& i) |, g# w- W
      3.5779226649375*^9, 3.5779226810625*^9}}],3 c$ s# C3 E: S, }% T
    3 f3 O" [. q  }& \- h7 k
    Cell[BoxData[
    $ c+ I/ }- w6 V$ ]& [ RowBox[{"{",   b, n" P4 x2 p2 ^6 p- a
      RowBox[{0 H2 ?- R, m8 Y2 @3 i5 B+ S
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ' R/ s# T+ {5 ?. ?
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    1 k8 N- x2 m) _, g7 f6 @6 s    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", / v. V& H; P. R& x
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",   ~" L" G" S$ p, j) O
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    . t  o$ f% ]* W   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", " P" m/ c+ O* J( g( d
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", % J; j* {2 s5 z/ }
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 5 v% P: u+ N7 ]% ~
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], 6 c0 M. K3 J# \
      "}"}]], "Output",: t# b$ [8 s1 g" I
    CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
    " I8 [- b2 I& D  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]
    . h6 h/ n: C4 h}, Open  ]],- g% I5 o/ `5 P, f' N% S+ s) ~
    ; w& m6 M6 C; d3 \6 G
    Cell[CellGroupData[{1 B4 S6 s5 P% L) i+ t4 Y7 W9 {1 x

    6 |! f. k2 ?, F  M* gCell[BoxData[
    : X# g! i, R& E( m$ P; t$ ~ RowBox[{"Data", "[", - v% V2 r- O  O& \/ d$ E, p1 s
      RowBox[{"[", * ^+ c' W5 @. Y5 C' H$ t
       RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",  r) \/ n% l% P8 m0 V
    CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {! k$ V  X5 c4 z. ?1 o
       3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],
    9 x5 y9 R# q/ l
    - J& S& e! f4 ]% g4 b9 {3 ICell[BoxData["0.899882`"], "Output",; r  I7 f2 H( Q
    CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, - C/ C1 |' V9 }+ I1 I
       3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
      N# ~3 l. V: z8 Q   3.577961929080654*^9, 3.5780123419375*^9}]
    ' a1 ~9 D* z8 W}, Open  ]],
    # f' Q3 E; p' `* O- G& E1 u$ ]# r2 \0 a
    Cell[BoxData[
    ; \  `2 Z: ]1 z9 h4 h2 H' p& _$ ? RowBox[{"For", "[", 5 `1 D, Y$ T3 ?; Z8 {* z0 V
      RowBox[{
    ) V- C5 _& I0 P+ R" q* v% R   RowBox[{"i", "=", "1"}], ",", $ E8 x+ \; B7 e6 a, `( I
       RowBox[{"i", "\[LessEqual]", "60"}], ",",
    . W" @, f- a% o   RowBox[{"i", "++"}], ",",
    $ F- M4 d0 u7 X2 Z3 i   RowBox[{
    9 \( |5 \  k  f% F1 a  A    RowBox[{"y1a", "[",
    ( ]7 C$ i& i) a  z" \9 o" C4 e6 y     RowBox[{"[", "i", "]"}], "]"}], "=",
    7 _. l. S: s* E8 Y+ e0 X. w! P    RowBox[{"Data", "[", , b% S& z9 ?: V. y: _: s7 [
         RowBox[{"[",
    / A4 ^' N% \: N% x( ^/ o( l3 q! D      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",! }& R8 s9 W* ?* |7 p
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {" S7 Z+ E+ Z' }( s
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, $ ?8 N' l8 ^0 k! V$ w
       3.577922923203125*^9}, 3.5779588839702806`*^9}],- {6 |+ }" u. |6 \1 y, |5 n8 O; X# [) m

    0 ]; d- |1 b! p; z8 A1 vCell[CellGroupData[{' |4 T9 d, c; }

    2 i6 J8 x" B1 A2 R# KCell[BoxData["y1a"], "Input",
    0 |7 `% ~/ W" X7 _ CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],$ \& [7 k; ]+ b% [3 Y6 l

    0 e* k- v5 M. L; ?$ {) ^  U3 ZCell[BoxData[
    & `3 z) A  s5 n3 N( L# V RowBox[{"{",
    ' h, ~! e0 B8 H5 B% R* V- q. l  RowBox[{! P( b/ S" t2 [- f/ _2 V
      "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",",
    , J6 Q; x4 W" J  m( F1 M   "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",",
    + i1 e% Q  `( `! e   "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",",
    9 Q1 ~7 Q" q1 Q2 q- m% k   "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",", 8 v3 `% v# l0 q+ M! G
       "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",",
    8 F7 I3 K7 [/ K& V   "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",",
    * W9 j5 T7 r* g   "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",", / m5 |+ m8 d# w2 o; D
       "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",",
    0 Z' F# f. C1 K2 R- s: K9 v) i8 a   "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",",
      h6 ?1 Z5 }. o4 |9 f+ E   "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",
    % u, ^3 @; H' f- V# J; ~" `$ r   "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",",
    ( a; x7 `  z, K  M% N: c) u   "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",",
    " X4 \2 Z- d" w   "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
    3 u% W& q) U4 n6 |. Z   "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",", $ B  C0 Z* o( [! e
       "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}], ; `$ j) p8 I9 n/ b! k5 J7 z
      "}"}]], "Output",
    ' C1 @' u5 E: p. k) Z CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9, & M+ w: G; J+ I  R5 o) ?6 F3 v5 S
      3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]; L' g' s. [; V8 q: M
    }, Open  ]],  |# Q0 Q0 k9 W1 [, r
    ; q+ t1 x2 k/ {
    Cell[CellGroupData[{
    % h1 ?- U+ T, e; _, J
    7 u; `2 }0 i$ K& }7 P- g* @Cell[BoxData[; ?7 k7 o" l+ u4 ~" @
    RowBox[{"m60n21", "=",
    ( ~* {% Q) ^6 W7 j  RowBox[{"Table", "[", . {$ x2 g: {  t2 g  @0 k- g4 c
       RowBox[{
    ' \$ s9 t! i4 f4 |6 x    RowBox[{"Table", "[",
    , r* g- ?! L9 ^2 h% c) j. u     RowBox[{"y", ",", 6 Q4 m8 c5 f9 H/ `4 C5 P
          RowBox[{"{", # K. l6 l6 y' x6 s' {
           RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
    ) H2 N9 D. S' O    RowBox[{"{",
    2 N- d3 k# O% P) y     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",2 f1 z8 s% ^* [- j, u# P1 C" _" a* V
    CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {6 [( r0 u4 s  b; o
      3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9,
    1 W+ Y, ^2 e& r/ M: D4 O  3.5779619706547265`*^9}}],
    7 _! d8 h- H# F! ~, K% ^$ a0 h. m' J2 `8 O: ?; t% \0 k6 ^6 b' _
    Cell[BoxData[  e" j$ I2 v5 H
    RowBox[{"{",
    * h6 U8 }, W% v2 c  K& n  RowBox[{
    9 b& [. @+ F/ m+ q1 r  A   RowBox[{"{", ' R  n/ c2 z+ r
        RowBox[{' {/ A, N% K' w0 h$ U: s0 M
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 G2 F6 r- a& w
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 [8 c6 |/ S: Z/ d) t* Y9 e
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 @9 y& O1 ]8 o4 Q! p% N( {
         "}"}], ",", 6 Y/ m  @' ~1 x4 k
       RowBox[{"{",
    : R5 P$ V0 `2 t! N  I0 b    RowBox[{
    9 [3 e1 J: e" Z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 G' N) L4 K' B
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 h( S' E+ m: A7 i     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ! v2 g, E" E: \! b" u: _) ?     "}"}], ",",
    / }& s1 n- r1 R6 ~: u   RowBox[{"{",
    / R' i  R6 A$ {+ Q    RowBox[{! d# X. n( a5 Z" m% m' ?9 x
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; S# q' t% F8 k3 q' M0 s      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 i9 q) |, v3 Z0 i
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 C$ l( g0 ]$ g# N
         "}"}], ",", ) a& P( B7 Q; G% S5 r/ A* a1 g8 C
       RowBox[{"{",
    ; H8 a" h' n- o, q    RowBox[{# Y) B7 m$ @8 X) _1 J' E( |' @
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    7 z' P; t2 U  u- }/ b: z9 p6 r& G      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 r, n/ z/ q1 @: O# Z
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ k9 X2 J) ]1 q) y) P  d( s
         "}"}], ",", " W4 L+ v. D! G8 y5 o1 R$ Q
       RowBox[{"{", 5 l+ I9 O" _/ J% t9 f
        RowBox[{3 ?/ F- b0 X. H# G: `
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ r$ I  m# k/ }0 Q
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    # H: n6 D) W. \     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( I. ]- \! @" A( y# b9 P$ n. x$ V
         "}"}], ",", / f+ O% r( [$ F* Y! t
       RowBox[{"{", ; Y3 Z8 ^7 I: \2 l- i, i
        RowBox[{; W: Q( v0 r8 z7 _! t$ j
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) |/ c$ d: A7 j1 G2 j1 H& b
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) N6 }& \' P/ ~( _; [8 x; Q
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    2 E1 F: g1 P% v$ X# K, n     "}"}], ",",
    " m! ~$ L& z7 l& E: Y   RowBox[{"{",
    # n+ a) f. @7 z! Q  A1 n    RowBox[{
    & O/ X# e# F7 o$ W4 f    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ ^! i& H* U9 S: Y
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 k9 {2 R+ C: O- T: G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    2 ~2 O4 I3 R# F: N% [# @& B. @( |     "}"}], ",",
    9 t! P  X1 ?' K   RowBox[{"{",
    + ]& Y8 ~+ ?$ v& x6 b    RowBox[{
    ( Y( {8 z$ m* a$ `    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 v, Q  C; b4 I6 H% l1 X
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 m* t' o9 E4 z1 H, n& S7 p2 T0 l
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ D, d* p/ _7 c' F' Z7 e
         "}"}], ",",
    8 C/ W1 N0 C- u  G3 V& i   RowBox[{"{",
    : U. M& U# b$ C( h- \9 Z$ `  v    RowBox[{  K  @# w/ E5 l  e  _- a
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; l/ P" Q5 j, Y" p) p# P      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * F/ y' P& ~! U4 `6 C. A, k4 r
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 ]* w6 S" m! Z& R% ~6 u3 T3 W
         "}"}], ",", 1 y( g$ E" n' M
       RowBox[{"{", ) r( a' b4 q7 \( i( O
        RowBox[{# c7 ]+ x1 B  z' ~+ N9 w% z
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    " n+ }' ]& h. ~; m2 z      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! f' P. h7 l. m7 j7 U     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    $ J3 t2 }2 Y& I% Y     "}"}], ",",   Q+ U  c- g) j7 P9 E0 S
       RowBox[{"{", : L4 ]7 @) w6 L0 P
        RowBox[{! {' {* G) `% F, m% ^
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    + C& h5 \/ q# O      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! q( {- \/ @: ?+ n
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    $ _* q4 [. g4 J; j: g     "}"}], ",", 8 C+ v5 ^! Q: ~( u7 c$ M, G
       RowBox[{"{",
    2 N( l* x8 l" y+ w( ~8 `; [    RowBox[{
    4 U0 b, |4 w, g6 y" b    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, E7 O  V, s8 n# s
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 u3 A& W3 I' v* B( x
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    6 M. N( T- w5 |. z: l+ D( u* p     "}"}], ",",
    ' v1 j0 Q! n, E* K# y- J   RowBox[{"{",
    " D2 P+ d7 n9 F! ?5 b. {% c    RowBox[{% R6 t: j' F- U& O: B
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 }2 l3 d7 ?  x, ?* W9 Y/ x$ j      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 }5 T! X* K4 f+ X+ k     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    # T5 C% G6 u# U1 u1 y     "}"}], ",", - F! v& k& K% ~2 t0 {
       RowBox[{"{", ; f% O" W. {! t/ M, R5 I
        RowBox[{2 C3 }2 T% D1 B8 N: V
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* T  @" X; z3 q7 O* {/ N( R
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : l! X# \* X+ H+ p- w7 F/ |
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ' D4 ~0 [. }4 v4 V1 \0 K     "}"}], ",",
    - O" p1 ]- U( W, K- d* ]- e   RowBox[{"{",
    - P$ c7 c/ Y4 I0 S0 ?4 a, d    RowBox[{
    8 n# O, M( T/ ?+ m. L" t    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 }+ b5 T. }, E
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    * e3 `+ R6 T, e5 R0 D* B/ }9 q     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    8 [7 c. ~5 w5 [6 a     "}"}], ",",
    9 F7 I4 V" Y) l8 R5 f' i  Y: Y5 B   RowBox[{"{", , X. @$ o+ ]  M- ]  p/ }  Y$ j
        RowBox[{
      s( C6 ~- }) ~- s7 l9 J2 b# d    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," {6 P# T' {! }$ t- j
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * S) Z1 q  B' E2 J" K0 ~1 i5 \
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 o/ e* ?  t: W! Z3 t
         "}"}], ",", 9 v- \/ A9 r6 [
       RowBox[{"{",
    ( z3 ~& Y0 x- @* h3 F    RowBox[{4 c0 B' Z- r% R1 Y, a4 \
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 O, A( v  l  V" \. F& q; _! v) d
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    % Z! E6 t% N" u+ p     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      v# Z. F" Z: L. s     "}"}], ",", 5 K. _3 J) I% K  S$ Z6 s
       RowBox[{"{", 2 W* X& a; {: O% p' J2 `
        RowBox[{
    % v* I5 E9 `$ v" U    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    * [5 R& b! t+ \' ?      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! j& s; v. q1 ^7 w# [  L# Y4 U6 W     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. _6 [& R, U; x2 A, A
         "}"}], ",", : y# b8 a& e8 G7 H8 p  K# ]
       RowBox[{"{",
    . x. j) I+ S! l$ t; v    RowBox[{( I$ X, M* o# e& q8 w
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    $ `/ C! Z# z7 k* |- F: g* C) T      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    & K$ O! e! V# M5 `# p8 {0 F     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    2 H" u9 y# ~+ x* f  B! U" q' a3 a     "}"}], ",",
    6 L& b2 T8 f& g* B5 t   RowBox[{"{",
    " _: @& _! N: C! T1 a% H1 ~    RowBox[{7 _: c- f& s( z. I' h+ C( f, w
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    3 p1 s# g6 P: D) k. h1 m- Z0 f      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 Y! f2 ?; B9 y" Y     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 g8 Q% t4 P, M9 w$ g+ r  p
         "}"}], ",", 8 X) ^: G7 K/ ^* A; I) w7 [
       RowBox[{"{",
    + y* }" H* s' F3 i5 z! |    RowBox[{
    9 }4 |% N$ s. N( C" e0 K! m    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 V: C4 r+ W, I4 }( K/ l      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 Z! {; |( ^9 v3 m& N
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    4 [7 k0 A' U/ k: l- V+ J     "}"}], ",",
    - Q( N9 n) |% C2 `; G  ?$ e   RowBox[{"{",
      p* d8 q7 _2 r, R3 F: a: z& N    RowBox[{
    & b* e4 i  W( ~. W    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    4 o3 N( z% u$ y      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) F* f" C  [) a# Q8 n, f: N1 v
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    & _- m! @! R5 q' J+ r2 {9 [     "}"}], ",",
    + K% g" }. C; b% r   RowBox[{"{",
      \5 s# v/ y: l% s    RowBox[{
      j0 a/ Q* g; Q8 t/ }6 ]    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ' L! {4 |4 _. ~! ~3 ?+ \, c* ?9 F- i; ^      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    , j! u" B! W" C' N     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],  \' r" |6 p" V  i$ t
         "}"}], ",", & b. C0 l' h4 b" ]; v
       RowBox[{"{",   Z$ C& f1 v. i- x$ x3 k
        RowBox[{% I+ Q) g4 _% E7 G( j8 q
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 \* _+ _3 E" v/ }5 X      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , A' g, v9 l% o- P
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      O" ^( l6 d' o9 c; \! I; W     "}"}], ",",   c2 h2 \3 T  l# Z
       RowBox[{"{",
    - Q9 P5 L2 H' J: q# D  J    RowBox[{
    / U" T. U1 w# k$ w$ P    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ) y$ h0 w1 A5 W% O      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ( F- c" ]- P  I& a     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 z- a# B$ X2 O' b0 ^$ F/ ~1 Y
         "}"}], ",",
    + O, v  S: R9 r9 K) [0 q3 S; j   RowBox[{"{", ' v0 B# W5 l# [! T9 M
        RowBox[{$ U9 w* u5 ?; X% A  U# V
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ V, u9 k6 u8 j) M1 p. T
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    . I% F& r" T/ B4 X% A/ B     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],  g+ N4 ]$ {: c8 W9 |7 F" ~. B
         "}"}], ",", - Y% |, ]/ `+ j* s- A
       RowBox[{"{", , x2 k3 A" o  P2 z
        RowBox[{
    7 q7 v2 S* N% M5 q7 e  e) F9 S& k7 H    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    % X) z& K  h$ T. z+ I5 S% o6 n, d) p      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % k8 q3 C/ M" B. z4 c, d. t
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 {) b9 V0 F, t  Y# p, q5 D
         "}"}], ",",
    9 c, P9 |& u9 M4 l0 T   RowBox[{"{",   t; |8 ]1 ]" W) [3 V, N3 b
        RowBox[{% x3 J# {8 F3 j5 D& ~' h* v
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# r) H1 I+ R7 F( h8 x+ e2 p
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , m7 G/ r1 ]- y- A1 b
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    + |% z' |; \# ^# d; q     "}"}], ",", 3 s6 p/ |  M/ z6 [) {- l: A) N
       RowBox[{"{",
    - R, b, h1 H& L4 \4 p    RowBox[{
    5 g- h" o. g: k( L    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      a  O2 m3 s/ Y      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    , W) {- b4 Q6 T8 V' c     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    7 `& b" N% V+ b/ k. c     "}"}], ",", ( V& T5 [: h1 l
       RowBox[{"{",
    $ ?- |8 R. c5 S; o    RowBox[{" v8 ]7 r; m" ~6 a
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      h8 t$ r; D: |4 b6 F8 T$ M      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 l3 E$ y. m* e2 z
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . b: x; n* h3 X1 c( f8 S     "}"}], ",",
    ' U5 A4 K; ?9 @7 X& \0 h7 d   RowBox[{"{", 7 K1 Z+ Y" d( [5 S8 j' O
        RowBox[{% v2 |2 `$ y3 z0 {0 E$ z; Y
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    % W5 o  ?3 J+ X2 x      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    / O- ^0 _+ }2 ]! r9 W2 \, N     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! v" {: K7 b7 W7 T  Z/ g
         "}"}], ",", / }  B' j( K, }5 ~* ]
       RowBox[{"{", 6 |% A+ a4 s) ^: G0 V! @
        RowBox[{
    , n0 }$ z' M! ~: ^4 T    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    + ]. r+ f* t# Y; K4 P      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
      ^' u) D+ S" _: |     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    * @, [$ V- Q' V* X, r7 }     "}"}], ",",   H" m! b9 [) l4 R, j
       RowBox[{"{", ) p5 n: m' H5 ~& U4 B0 U
        RowBox[{
    9 @2 j+ V( Y9 C. x    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- S! ]3 d  M7 X1 t; `9 z$ a8 C
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & f, Q. R" f6 l  M5 Q
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ Q' P" A$ R1 p0 \
         "}"}], ",", . Q( S/ G. b! x$ W# Z' S8 u
       RowBox[{"{",
    3 e* }5 A6 I9 P5 x    RowBox[{
    5 n, \0 ?4 v: S2 K  G    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 S) V6 Z3 t. r4 w8 p      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    9 d. D& k# ]+ c2 ?     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    # S* z2 g& c  @! s6 T     "}"}], ",",
    8 ~# C" S; p7 Q( n5 V; e   RowBox[{"{", # \$ U& e! g, B3 g
        RowBox[{
    ' G4 u' F, _4 U    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    6 O3 s3 u1 Y8 m* s2 [! m& ?      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    5 t" I$ \, h' e" v% F0 i4 J# j# _     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 q0 F! p& b0 S5 f
         "}"}], ",", : _4 A, t5 a, H% g
       RowBox[{"{", : a$ P) |. n6 {7 D9 m! D# Y
        RowBox[{$ K1 Y; L) ]( A
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 M  I6 ]5 l/ z( x0 O& r
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 x5 P* P( h) {/ U
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 y  \! Z' v6 Y( P+ f6 L5 U/ k3 e
         "}"}], ",", 0 Q2 u$ p  M( z- I2 l# w
       RowBox[{"{",
    % @  V. V! S, R% y- Y  l    RowBox[{6 B7 N7 L. @  A
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    / M4 ~: t" u4 o( a      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 P4 L3 E2 J- H+ A6 V
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    : t$ ]9 i7 _$ a6 C5 h     "}"}], ",",
    0 b$ [: d6 G5 u" n   RowBox[{"{", 4 P0 B& h: q$ O( e. |% Y* S
        RowBox[{
    # P3 b# G- S/ b: C3 d( D    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& ~- |5 d8 T' @* k4 A: T  E
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    4 |) E3 _6 |8 x. D4 n3 m     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ q& V; n: Z" f
         "}"}], ",",
    6 K* S- E# b9 m4 b  A) ?   RowBox[{"{", 3 {" V" S; M1 {2 I- H, s
        RowBox[{, O! M2 S  Z! C9 H" d9 @
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 V3 B" f3 J9 }+ V* p. ^. ^. k, W2 C
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    0 F+ p( d6 i! ~3 h3 x* c     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    & p2 \% e" u, u  Y. J     "}"}], ",",
    ; V2 f; S3 A5 m& @& b   RowBox[{"{", 7 b! `: h7 L" w/ c- L9 W/ n
        RowBox[{
    * o# T" a9 o1 I0 ^- f) I- O% [! A    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 B/ h: y6 Y7 a+ {( ~! G+ _/ `      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % s7 X1 H$ u4 }! c3 F9 E3 l- G( f" j
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    + ~; @' ?' E# m2 a& `2 S% B     "}"}], ",",
    + c+ u4 f: A7 I1 S5 I: x   RowBox[{"{",
    & w( ?, d2 L/ o5 o. y$ z    RowBox[{
    $ V4 d; u( B& E  y5 n8 q# Y8 l4 m    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : U, X* B2 p( K/ {1 K      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 ~( s. d( ?4 |
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) v, [/ s2 y; ^* |5 `9 v
         "}"}], ",",
    , t+ Y2 |6 L1 E3 {) l8 v   RowBox[{"{",
    2 l9 l  O( i$ B- o+ P# _    RowBox[{2 b9 |+ C8 @& }- Q1 t
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 \( B8 W& T! Y3 _
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' y  R4 l: s6 {5 A: q" E! E
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 D' X+ H# t! W- I3 K# p! l( ?
         "}"}], ",",
    & H1 {6 r* `' b& {0 s* T% B6 {% _5 y! x  S   RowBox[{"{", * B9 Y+ z9 I$ j3 w$ d; U
        RowBox[{
    ! G1 {" `# S$ s* S* n2 |/ c    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; z, a6 @; D7 l( Y5 X, [: s  w
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 H( ~  j: W! |     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],  P4 D0 d+ u+ _) B. v
         "}"}], ",", 0 B' |( D8 O! w# V1 [  L
       RowBox[{"{", . O$ ?4 O, {1 R$ }) _1 ^1 Q, c
        RowBox[{
    ' d9 [9 y0 [# x/ |3 Q/ Q3 ]7 o& Z: C/ v    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 ~" w5 C8 n$ e* }1 q1 b, @2 Z
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 b6 U1 q: w2 t% i
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' b* A2 a( N* c& [2 b+ o
         "}"}], ",",
    ' }- \- e) M9 K% l   RowBox[{"{",
    $ f) m+ `3 G+ h; K1 T" ^    RowBox[{
    5 X# o; M; d2 a! Z) o2 b    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) T3 N  l+ A. |
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 G% w& [+ U; f; J" P$ l9 a9 u
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) A5 M9 L  w7 t$ Y' c6 P+ ~2 C$ K
         "}"}], ",",
    ' W7 M7 c. Y; [( M   RowBox[{"{",
    8 m/ G: S. Z" E$ ?; k, C    RowBox[{
    4 s# b$ N# d, K$ M. y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 R3 V2 y2 \9 w' f3 E
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    5 D1 [( ~/ M! Z. k7 T     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    1 [% j' l+ L: T" N     "}"}], ",",
    - G- \& X/ W3 {; r4 O   RowBox[{"{",
    / B9 v& k5 v, A7 V8 B    RowBox[{0 t8 |& h$ {% c
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; z8 u* W( x, y: ^! f      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    $ B# K6 B% Z; g5 B! b( Y: h     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ s9 \7 \5 o/ ^# m
         "}"}], ",",   g0 u1 G& Z, L" X) [; a6 ^3 H
       RowBox[{"{", 0 U" g6 m" c8 c
        RowBox[{% {/ K% n: `+ z5 w
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    % P- K& w! H/ l5 Y6 K      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 D' X( H8 {  p0 M- Q, j
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    * p! z% q% V9 Z+ O' K, n     "}"}], ",", : Q/ t& D% t( v4 o" m9 c' N! m+ ?
       RowBox[{"{", : c  ~% P, \0 W1 A, ?$ U  ~( A
        RowBox[{
    # ?" ~* a7 t0 ~4 }+ N    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : e: U9 k- q, h' I      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # O8 Y5 }/ Q0 b6 Z+ W
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ! u- q2 m' {; A' ^- v  @$ B& T     "}"}], ",",
    6 Y+ g( m! K3 C7 }, T/ I, l   RowBox[{"{",
    3 l, ^9 o, V/ ~; b' N+ t) T# g- e7 p    RowBox[{
    : m+ ?% t$ F& G7 ^( I( ~' ?    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 I" H. _' A/ j
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 f+ b) ]  A3 A( i: Q( P     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    % r) {  d6 s7 O' [. ?     "}"}], ",",
    / [. _" M: ]/ H7 x4 v$ w* @   RowBox[{"{",
    6 q% P/ z7 A4 o  m$ ]% ?: X6 a    RowBox[{
    + j$ f( f: A' L' t  n# l' \  H" b    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& \" g4 w; A0 ]/ e0 K! S+ ?7 Q3 F
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    " O1 c- |0 q/ `* k" z, L1 S     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    7 x/ y/ X, |: _0 P, @- x2 g4 I     "}"}], ",", # s+ p5 z! o. }( u( L: g6 k% q
       RowBox[{"{",
      S5 n1 Z" v4 O  F9 @" w8 D    RowBox[{
    ) @7 K& P: h# A' `+ B1 O# P* h    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 E9 g3 z% e/ d; L
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 E, L8 U2 U0 f3 T4 a
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    8 ]9 G, B, c* ^  j. G- c! q     "}"}], ",",
    3 E7 ^' m7 j' }/ {   RowBox[{"{",
    ( e  @+ G/ v. O, R1 n: n% c    RowBox[{
    9 J! j9 u3 F0 w1 `# Y7 p! Q5 _8 a    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    " j1 h; g6 Y1 A- c5 u+ C      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 T$ f. F, Y( h6 \     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; j0 a, E' w& x3 q# H( G* Y7 K" h
         "}"}], ",",
    5 R: U7 q" {# u$ L3 s   RowBox[{"{",
    ! i- z2 a$ s; ~    RowBox[{
    ; \6 O! p0 T2 _1 f3 w    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; a( }% e, j; n1 K      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 m9 T5 e9 \: v$ y
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    $ Y/ I0 h* ?4 w% p     "}"}], ",",
    % Y9 C4 @2 ]6 i% y5 s   RowBox[{"{", ! i8 i5 k: q- Z- Q
        RowBox[{
    6 H8 \8 F- ?) e. p6 e7 S; \    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ?7 x. ?! |( V2 b5 K1 k# p      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + v! f" b% W' g7 h
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 }; C& N: q$ E; n
         "}"}], ",", 6 [6 R0 k+ d% E) D/ C0 y
       RowBox[{"{", 6 a& j' k$ o' u; m: j
        RowBox[{
    5 G+ u. w& b7 [4 y( P  K    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    / A9 Y5 O- u! o$ g, Q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) r: h1 O8 j% ^+ h5 K/ |
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 j. B+ I' o) ^) w9 E: D8 q2 D
         "}"}], ",",
    * T, r" s3 `/ ^8 ~+ _   RowBox[{"{",   b" H( d0 v) t
        RowBox[{
    8 z1 T0 M9 v5 S. i6 J    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 K0 _& h% X3 r      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! }& i9 _2 [% b7 S2 K
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 Q9 Q, d! H: E7 K0 u
         "}"}], ",", ( c, ]6 w5 J# Z8 l) G" w
       RowBox[{"{", / j! a: y( a9 N7 P
        RowBox[{
    " Z  h* I" E) H2 u% i    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 I. C+ B$ l6 S& X      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    7 R. b1 g5 u; n& x  i: \     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ S+ E$ g  W: T, u3 n
         "}"}], ",",
    / \' F% Y* t& U/ p$ {   RowBox[{"{", ( K1 y* ~& \* c( o& w
        RowBox[{
    8 c4 E# N$ r9 U7 c( S    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 @- ?; e& r  c
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 h2 `$ b: m8 V; W" _; S' }
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," t' S4 V/ i8 p) ?. U: D% i
         "}"}], ",", 6 t( T, d) j# G% r/ M# ]
       RowBox[{"{", 6 ^) m5 B  S2 D
        RowBox[{. R) `' G- W6 q2 b4 U
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& j4 v8 F4 Q$ _. s2 m$ x0 Y
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
      k4 K) Q8 G$ p% n9 P3 l" G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! T+ N( T7 X' _2 c$ Z- C
         "}"}]}], "}"}]], "Output",6 X* [- j" r* d: @5 B
    CellChangeTimes->{
    ! K% ^* A* t1 o5 p* W; H  3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9}, + V5 F) c7 W$ [4 b
       3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9,
    ( J0 Q" _' `1 a2 E   3.5779619748823338`*^9}, 3.578012345453125*^9}]
    5 ^7 k; {2 ~' t8 [4 Q! ^4 S5 I2 F}, Open  ]],& _# _7 e/ I6 e' T( P1 z( ]/ ?6 I

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

    / d1 T- x: }7 G8 J! o  l5 I, HCell[BoxData[1 ~8 l) F8 I9 b4 S1 `9 {
    RowBox[{"For", "[", + o0 U0 x* f* ~0 `2 f
      RowBox[{
    - q( G; i; _1 F" n6 g# s( n) E' Q   RowBox[{"i", "=", "1"}], ",", ' g" p: }& n* Y, V
       RowBox[{"i", "\[LessEqual]", "9"}], ",",
    5 [. M1 R0 Z. t   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 1 ~5 F2 m# ]$ K0 W! x% q
       RowBox[{"For", "[", 3 x0 c5 Y7 ^1 b( v% g$ L
        RowBox[{
    9 t" \: K3 U1 [6 [. w     RowBox[{"j", "=", "1"}], ",",
    8 T/ T, b) I* C& {* ^, X  b     RowBox[{"j", "\[LessEqual]", "80"}], ",",
    # h1 Q9 m5 ~$ j) K; X1 z     RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", # h4 Z: ]7 {5 V( q" Y
         RowBox[{
    9 F: _" R8 `- h% N2 S! Y      RowBox[{
    6 r0 h, b) S7 `       RowBox[{"CM", "[", 3 @% k! q# O: q# _
            RowBox[{"j", ",", "i"}], "]"}], "=", "0.0"}], ";"}]}],
    4 v6 a1 M( H. L    "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",0 q, j6 m) b, C
    CellChangeTimes->{{3.5779132504375*^9, 3.577913285203125*^9}}],1 o, I+ z0 i( N; J9 U) g

    + A2 \6 D" D! @. m" t; N" _0 DCell[BoxData[4 k1 w* I) H  l! _! h3 ?, x) l) H; T
    RowBox[{"For", "[",
      q9 j( D+ h* U7 `$ u0 R# I9 |  RowBox[{
    2 a+ B) [6 W) T3 Q' o: `5 I   RowBox[{"i", "=", "1"}], ",", 0 W2 _3 U- P0 |. X) I
       RowBox[{"i", "\[LessEqual]", "9"}], ",", ' M& Y8 K' Z- l5 i4 O" l
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", ! M( b7 e  ~7 H2 G; ?* D
       RowBox[{
    : D2 {8 I! y* _0 I    RowBox[{
    ' l5 f0 b/ S; l: X3 V     RowBox[{"CM", "[", ; b) I; P3 U; t% u7 w
          RowBox[{"1", ",", "i"}], "]"}], "=",
    ! G/ h5 U$ q7 X, e# d7 F2 y     RowBox[{"Data", "[", ! N, O, f. r: q7 H8 ]
          RowBox[{"[", 2 S0 [. a5 W% \$ h
           RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}], ! Z0 M  b5 B+ I; b7 H
      "\[IndentingNewLine]", "]"}]], "Input",. u  g. C) r$ s+ @4 d
    CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {. C$ F- _) D) V! P. |. R7 ~
       3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9, 8 Y% q) E$ K# b. N* i8 u" w
       3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9,
    ; j* L( l+ n( ~) X9 n4 a2 x8 b   3.57791344209375*^9, 3.5779588070933466`*^9}],
    / h& A0 G, H# i  n( m
    6 c8 y: |1 A" m7 H- p9 U* s  I2 kCell[CellGroupData[{, N" T/ W3 t# H. s1 V; b
    2 r$ [8 {1 C# b  X# q/ ]
    Cell[BoxData[{
    # K0 M( t( K" l; X. F2 U1 [ RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]",
    $ K7 M- Q1 D- m) [6 K  [- X$ v RowBox[{"M1", "=", "1"}]}], "Input",
    . q* C' {  |0 P. o CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {  S9 |& e% p; j6 L/ |( s8 L
       3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9, * t' Q1 N4 x" Q! d  v" F* F
       3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {7 `/ u2 z0 _5 \# ]
       3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9, $ N, U% ^: H( i
       3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {
    : z3 }0 i. ^' N   3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {
    6 G0 Q6 l0 }0 B; g4 G$ h   3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9, 2 n5 i8 e, Z/ p* y6 T5 m
       3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {
    8 V: U3 N* m& u3 B& p   3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {$ e6 T% x+ v. l6 `( a' E
       3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9, 8 P: [3 p: ~% H& o3 d$ g5 s
       3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],
    4 y) p# x5 z% q+ T+ `/ K1 J) L/ S5 L! k2 p  H
    Cell[BoxData["0.2`"], "Output",/ V  Q6 A1 Y2 B& u& I
    CellChangeTimes->{4 _& F, }: u0 a1 M" h7 S
      3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
    / T$ u$ Y: v7 S6 X! G   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {! k0 b: p4 G2 {% m8 `5 y
       3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
    & }) I8 c1 c- B& f. g) s   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {! z. g7 ~/ f% U/ R  ^# I' l
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, % ^3 N% k) Q' _
       3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {4 ~/ L+ K% r6 [1 J2 r" J
       3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, 8 ?# A# c! ]. x$ r4 S; a8 [
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {7 C0 {' n7 a/ N4 \5 d
       3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, 4 I( v0 K* Z2 q
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, 6 |9 ]5 X; G4 Q# H& F
       3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, - x7 j2 Y" F! h4 T
       3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, + Q! M8 n7 h4 e8 t1 g% X
       3.577960510686717*^9, 3.578012149296875*^9}],
    * P6 t& r/ E. a* F4 `' F5 I% y$ ?) _. Y! k1 E/ N* q9 M4 R. F
    Cell[BoxData["1"], "Output",3 ?& e/ Y9 Z4 i1 a: Z
    CellChangeTimes->{
    7 u+ Q% @% F, u3 ?! G! P2 I" \7 J" L  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
    1 e( `- S( \  i6 w: q/ c$ Z   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
    7 l" Q+ r/ r5 _   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, % W! n1 _6 c5 w5 `1 x
       3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {/ q: M& x: J4 D! o: C/ V% i- I( E
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, ( `2 |  D9 T  p# A
       3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    / w/ R3 L! i3 X) k# ^   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
    $ f, `. R( D* i4 r$ ~& t. z   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {3 v, Q# ?9 P4 ^1 T1 j
       3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, : J0 H4 e4 }! P) f
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,   I2 r' ^7 h5 l
       3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, % C0 w1 r2 n0 u/ R
       3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, ' V" b. k- b8 k* _! E, B. J0 Q
       3.577960510686717*^9, 3.578012149296875*^9}]
    + f  D6 U/ o$ q2 {! X% g1 j! R( |}, Open  ]],; B1 s7 d/ S7 t/ ?( A+ Q

    $ b( B0 Q0 X6 k/ [& j5 O* D9 R2 T0 [4 yCell[BoxData[
    & u8 W( O$ f& b* \# K' k$ S6 ~5 f RowBox[{"For", "[",
    & k5 `3 _/ l, [" p/ U% Z  RowBox[{; s7 r6 M0 [- z! i" ?/ E
       RowBox[{"k", "=", "2"}], ",",
    , h' \. q. H9 l( @: \& M  p  s4 U   RowBox[{"k", "\[LessEqual]", "60"}], ",",
    2 C9 a1 k( I3 B: V' L( j+ V   RowBox[{"k", "++"}], ",", , F8 W1 x; m% d
       RowBox[{"{", "\[IndentingNewLine]", ) u: l) y" i, ]# _
        RowBox[{9 |# ^0 }; G1 z1 X) h, ]
         RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]",
    ' o  C" _; |6 M     RowBox[{"For", "[",
    6 e, V" ?  L7 b: d, h( k      RowBox[{- D8 R' L3 g/ D
           RowBox[{"j", "=", "1"}], ",",
    - N& j' l0 l; H/ J       RowBox[{"j", "\[LessEqual]",
    $ V' s/ W: E& s  `) v. ~        RowBox[{"k", "-", "1"}]}], ",",
      ~4 P* a8 |4 T! P; |$ X! A       RowBox[{"j", "++"}], ",",
    1 C1 t+ F+ F7 \       RowBox[{"{", "\[IndentingNewLine]", # C% \2 m& k9 p# G# x1 l
            RowBox[{5 r( H1 [4 @5 ?% m
             RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]", & L" T% W( R* x6 E  ?0 a4 a9 |
             RowBox[{"For", "[",
      m" R( h: c9 s          RowBox[{$ x$ G" R, J3 B. Y
               RowBox[{"i", "=", "1"}], ",", . z' |2 J5 B2 {$ D7 H, R
               RowBox[{"i", "\[LessEqual]", "9"}], ",", 5 Y7 ~. e% E2 m$ u5 a, {5 i$ U
               RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", " Y. y) F6 i! r
               RowBox[{
    & g2 z# M" E; J& l            RowBox[{"r1", "+=", $ p1 }! y( \/ U- E
                 RowBox[{# k5 U  p6 S3 ~. o) M- V" J" z
                  RowBox[{"(", $ t& X, d+ @7 B7 n, D8 L; w2 m
                   RowBox[{
    7 `3 g2 Z9 m8 u8 I                RowBox[{"CM", "[",
    . M( C: R/ e, ]; k# z                 RowBox[{"j", ",", "i"}], "]"}], "-", 4 O$ _% y4 s+ [/ E- T9 D# }
                    RowBox[{"Data", "[",
    5 y, P  u8 z. \( c3 u0 o. l1 j                 RowBox[{"[", 8 G$ C: p& R: ~/ v& P
                      RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
    % i2 h6 r) K2 u. `5 i              RowBox[{"(",
    / F& G4 e& ^+ {( N* v# V               RowBox[{( O2 S# e7 P( |
                    RowBox[{"CM", "[",   B  X0 z( V" q
                     RowBox[{"j", ",", "i"}], "]"}], "-", ) F  r1 Q$ R5 F( E$ s9 r
                    RowBox[{"Data", "[", 9 T. ]; ]* j+ |( _
                     RowBox[{"[",
    $ p& i' O6 ]& H# C2 p( Y                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],* [, R' q+ @' f6 ~8 O* C7 C6 j
               "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]",
    & I$ Z3 ?5 f2 e% @  u( w9 ]         RowBox[{"r1", "=", / ?. C2 [' ], \4 I8 H
              RowBox[{"Sqrt", "[", & o, N+ e3 R5 I
               RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]",
    0 P, b/ u0 i2 O         RowBox[{"If", "[", " ",   w( B- }0 p& @2 H
              RowBox[{
    1 E( ~2 s' g; g% L           RowBox[{"j", "\[Equal]", "1"}], ",",
    & s0 A# t, d8 q( D4 m$ e           RowBox[{"rmin", "=", "r1"}], ",",
    ; I2 u# O1 G' t" M           RowBox[{"If", "[", 6 F& @. D; a7 E, g* p- q6 C
                RowBox[{$ F# ]8 \0 q7 t$ s  P5 ~. W2 `0 J
                 RowBox[{"r1", "<", "rmin"}], ",", # {8 @& e  V2 L2 \" ^' U0 t0 N
                 RowBox[{"rmin", "=", "r1"}], ",",
    # A. I" H6 V5 K/ d: W             RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}],
    " b& R* U7 F6 Z        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";",
    & z. D6 s% ~% Y3 N! @     "\[IndentingNewLine]",
    5 l% }* J1 x  \& C4 T* j8 h     RowBox[{"If", "[",
    ( V) @0 m% v& {, B) T      RowBox[{
    - V+ ]6 N- N* O+ ^3 p! Q- z7 T% z* j       RowBox[{"rmin", ">", "r0"}], ",",
    9 E% z' t. S( D( T       RowBox[{"{", "\[IndentingNewLine]",
    : H$ x- }! p# U" v6 X9 P/ z$ o/ l        RowBox[{
    , s; r+ i9 \- ]' ?3 n, x         RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]",
    * w* O: R. U9 y4 e9 }, s! y         RowBox[{"For", "[", % F! i5 }1 U4 @; r6 K0 [' L$ F: h) B( A
              RowBox[{
    $ D2 P! Z  Y6 ~5 E, B+ J- @           RowBox[{"i1", "=", "1"}], ",",
    ! g8 \  q. e4 W1 e8 s- ?           RowBox[{"i1", "\[LessEqual]", "9"}], ",",
    5 x5 G- v! U! e4 t! ^" G           RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]",
    2 z3 H( u* w# c9 ~" @           RowBox[{
    ( F) Q( C1 l( ]: B1 K8 m# X            RowBox[{
    7 d" ~/ y* `% g7 T0 y3 N$ {             RowBox[{"CM", "[",
    ' B% b# H0 z5 Y8 n0 D9 N              RowBox[{"M1", ",", "i1"}], "]"}], "=",
      h3 Y7 I1 G$ s' w; v) M1 E8 h& b             RowBox[{"Data", "[", 5 S2 G7 ~8 J1 @- y
                  RowBox[{"[", % H8 ~8 ~% N! E; h( f) Q
                   RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}],
    # ]- X: J, u5 _  G! \) f2 U          "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",",
    6 W4 {$ ?+ L5 K5 Q3 J. \# H       RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}],
    ' z$ r, K  c1 D0 X    "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",5 M( b/ \- F0 a. V3 X# H4 V# |
    CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {. I5 J5 M6 B" \1 R2 c; v
       3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9,
    4 z6 N  z, F1 o/ E   3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {# Y* B2 H$ K% g- p
       3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9, 0 [1 T' ^+ X, K- ~
       3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {
    . e2 w+ ]; l2 [" \* i   3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9, " n: U  _- l, y$ p% v
       3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {
    5 F, [  Z$ e' O  B0 V# A/ p   3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9, . w1 j# x0 k+ [' w
       3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {' U$ Y! O4 ^3 j0 S0 y5 F& g# u* H" L' ]
       3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
    5 C1 Q" O7 O4 b& S# _* r4 L   3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {
    5 x* ?5 e5 ], D+ E4 w   3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9,
    & g" }0 i3 |  r' m6 G$ k* S   3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {  M/ f. m# X) H, L
       3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9,
    / O3 k: Z, D0 O$ A8 r; G- g0 J   3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {# R# e7 L; }( x& ~' @( k0 {
       3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9, + Z" w7 C9 f3 D4 J' i4 ^8 r! T
       3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9, / D* t+ f& U- A
       3.577958821991373*^9}}],
    $ K  u, B! {7 R$ B; ^7 F4 U5 Y: k! Z8 p2 A5 g( L
    Cell[CellGroupData[{4 u9 ?& u1 s1 V) [, I) f2 n1 L5 i
    3 _3 m8 A; S, B5 _: R
    Cell[BoxData["M1"], "Input",
    - X3 h3 p+ j8 k& \. v; d6 v5 a CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
    , E, p% E! n/ w+ r9 `
    6 N, C0 T1 Z; X; j9 C5 `# vCell[BoxData["21"], "Output",
    0 L7 R3 C* |6 \# k CellChangeTimes->{8 z) i7 V+ j# @) G
      3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {
    8 o; g. x2 b3 K   3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9, + B1 e' R" k, u
       3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {
    6 ?- U9 p7 @' o4 \- g0 O7 |( k5 x1 \" `- E   3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
    8 p  n* y; Q; i+ ]' y# a   3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
    % Q3 |+ A& y; N( g   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9, & S" ^2 P& t; p- R2 i7 y  ]* r6 ~2 t
       3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {7 V; y( |% O$ J( Q, t) t
       3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9,
    - o' b4 |- X, `: b   3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9, # X8 E0 O" V% M( Z9 f( k
       3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9, ' K( r+ M( S7 J( Q( G+ C
       3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9, " O% k8 F2 E4 g+ j. h# J
       3.577960515600726*^9, 3.5780121541875*^9}]
    % \% b$ i' E- m+ Q2 Y# R, \}, Open  ]],
    . [/ @6 i# j% V; e1 @9 T3 o  n/ q( @. q6 E) H0 C0 ]" N
    Cell[BoxData[
    3 h# |  L+ g8 `  K5 Z* [# C RowBox[{5 Q* ]! L: D3 z+ M
      RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[", % |2 _+ ~: I- @! X# M
       RowBox[{"1", ",", "i"}], "]"}],
    8 _0 S+ [/ m0 c% q" l6 O  RowBox[{"\:5230CM", "[", ( b9 z! `4 c' v$ e& P# n. R
       RowBox[{"21", ",", "i"}], "]"}],
    0 _+ p5 ^- `( n  "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\
    % \% `" i! O* T1 p. z* ~$ R\:51fd\:6570u1\:5230u21"}]], "Input",
    2 k3 n. w! t" E CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {
    4 v7 m" D) L0 \  3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9,
    7 F1 `, _, Y, V& X6 }  3.577960526583145*^9}}],
    # X. g8 V( a( Z( B2 I9 \
    1 s7 B, h% ~, g; `: {" OCell[BoxData[
    , D$ k( F; v% G! `! ^! | RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
    - j- @( F6 }( ^& `' Z4 u, r CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],* R7 G. V! n8 D0 U
    7 B) J, g+ J5 Y+ S0 y
    Cell[CellGroupData[{2 C# f) c, I4 e9 X( d( T0 Z

    ; [6 h5 O2 V* S% F! Y. p  U7 S4 S  fCell[BoxData[
    6 w) q1 x# a. h RowBox[{"Xa", "=",
    & k$ m* F$ g! [  c, [. }  RowBox[{"{",
    * O. L& k$ X4 K$ F! |   RowBox[{
    3 h( o2 I0 A1 X( Q/ }" r3 a0 `6 T8 o3 t   "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", 6 |9 \/ ], d7 B; `, Q7 K- V
        ",", "x8", ",", "x9"}], "}"}]}]], "Input",
    3 D7 b1 ^* Q) |4 U CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
    7 i2 r2 x; G9 Z% L) |& x
    3 @6 V; `' f% j2 @' n/ `. M- J( MCell[BoxData[
    9 J9 p) A" q( E$ P0 R! N RowBox[{"{", % L; \1 f. w( y' I& Q5 h3 _
      RowBox[{
    + `" K/ [3 F5 a1 c0 |; ~7 d' M  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
    ; b; H# F4 J4 w( q( @* S    "x8", ",", "x9"}], "}"}]], "Output",
    0 i: [& t! j4 g8 B( P1 n$ y CellChangeTimes->{
    % U# |/ K4 Y3 L; t  3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
    / W4 N0 a% ?$ Q& _- k   3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
    5 H2 J6 e, A! L! D   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9, , K1 {( U1 C: H/ P$ N% T; N! b
       3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9,
    . d8 c  k2 U6 f1 A  T   3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {$ h0 a, y7 |! b  @8 l
       3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9,
    ; y; B( B% D8 W' D$ ?   3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9}, & n3 N5 K- E% L
       3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
    0 a2 V  Y" d3 G  Q   3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {
    $ Q) u; r% Z8 S/ t* R" t0 y   3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9, " T& Q3 `+ J4 F" A7 J& `8 Z3 I
       3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
    ; X9 o6 K7 M: Q! M/ z   3.57801215725*^9}]
    + \5 V. b  t0 p# {- ]; d}, Open  ]],; k( Z& Y$ Q+ s0 r1 o" V* Q

    " o2 J) u9 ]' G7 e- t+ {; h  K& JCell[CellGroupData[{
    , Q2 d( ?% A6 |+ n3 S( ~0 e  P/ D7 o1 M" M4 \, s
    Cell[BoxData[
    # g1 k& w% C/ v: ?! q RowBox[{"Ca", "=",
    * P* f5 z! s6 `# J; T( K* d4 F  RowBox[{"{",
    9 A6 A7 f; y7 g6 c+ Z3 U. K   RowBox[{2 K3 j  c1 l+ ^# o8 i8 |
       "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7",
    * M5 j  m1 S, T* C5 N) ^    ",", "c8", ",", "c9"}], "}"}]}]], "Input",! @- V' Y; O1 A# m; \
    CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],
      q% b4 p3 t- H% U5 }4 |. A, X. F. B6 s$ x3 t
    Cell[BoxData[
    ! K- e3 n' U; M4 o+ v" ~ RowBox[{"{", ; g* [& }( X* I1 _# B. E8 l4 H2 L
      RowBox[{2 I! X% l7 _6 k" T: S: x4 D
      "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",/ d$ j! g7 q3 t) ^1 ^2 I* S2 Z
        "c8", ",", "c9"}], "}"}]], "Output",
    - T- ]+ d& S: i0 l CellChangeTimes->{
    8 q/ r7 w: R0 E) S: P  3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9, ' q! Y# E4 D# v' b! ~
       3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
    . [4 S' k! j$ c   3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9, : L( g4 U5 [' d1 n- X; u( n
       3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {
    ! {+ j/ d7 j- K   3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9,
    2 p! Y1 x% {! ~$ h$ \   3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9}, % n+ a8 h( J: C$ P+ m0 J8 R
       3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9, 2 s1 L# f3 ~( V* r0 z, z
       3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9,
    0 h; X2 n; k( A* [' s7 c/ l1 \, S   3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9}, 4 f( q& m. |$ I! f
       3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
    ) {- `$ P9 k! n# b* d1 H' d   3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
    ; e, ?6 r0 x+ p3 N# K5 U+ s& D2 Z   3.577961904604212*^9}, 3.578012158671875*^9}]
    * I0 y7 G5 n* d6 k( ?: k6 r+ M}, Open  ]],
    ; H; E; w) D' B
    6 l/ E1 d0 z6 x1 o6 i* C$ wCell[BoxData[9 ]! M) j0 K) W# o
    RowBox[{"For", "[", " T& z5 e4 ?. j1 Y: V
      RowBox[{
    $ m) B0 E" i3 i8 y' W# m, R. L   RowBox[{"i", "=", "1"}], ",",
    : `+ m+ o' G' b# L0 r- W9 i   RowBox[{"i", "\[LessEqual]", "9"}], ",",
    * d, M, f" m% t0 w   RowBox[{"i", "++"}], ",",
    4 `- \# @! R) H* I9 W; B. M   RowBox[{
    , C$ Z9 ^$ D9 Z" s( A    RowBox[{"Ca", "[", ! O$ s2 U. K2 c$ q
         RowBox[{"[", "i", "]"}], "]"}], "=",
    3 M  {( A9 i9 f& g* E% R    RowBox[{"CM", "[", - e  P8 g5 P" U, M
         RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    4 @9 r& o2 K5 i( Q( j3 S4 \ CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9}, . x  ]9 y" z6 V, v$ ~7 Z4 C, h$ H) B
       3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
    ; x' M. J' `7 i' {1 G. u   3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9,
    1 {6 R. R/ |: `$ f! a: H9 _' D   3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9, ' A1 Z" H7 P0 Y! w$ Z8 C
       3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9,
    . I) X! ^1 M: B+ N3 g: E5 R   3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9,
    : @! R6 j2 l& t* ^6 n8 U' m. T   3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9, ; ^: C, O& y: M# C: e: `% V
       3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
    9 Q7 O  Q3 }$ o7 L6 o   3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
    - b2 k9 @$ C& ~! ^# z( B   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
    / ]! g% O  {  V! \$ U/ X   3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
    % ~" |/ P# D9 ^: Z* D7 K   3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9, 2 `6 I4 y9 ~+ u, u6 t
       3.577961906897415*^9}, 3.578012176296875*^9}],7 V9 a( S# F# _
    7 P1 T2 A0 `2 ]9 o
    Cell[CellGroupData[{1 O, ^# ^$ L1 k0 ^

    0 y$ n" D# D! p3 I& BCell[BoxData[
    6 A- L9 Z9 r* N/ [6 P, K' n RowBox[{
    7 I& i% V  `6 G0 R  RowBox[{"(",
    ) `4 _' q$ v; d9 F, C   RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    6 v; z* T8 ?/ J  RowBox[{"(",
    - D0 E  F5 V' X0 p   RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],
    $ T$ p9 D6 C7 `6 j& p3 B' ?
    ; e' b, T" Q+ T, O" r8 bCell[BoxData[4 j* a# d6 u2 I
    RowBox[{! a( u  f3 T0 Y+ w8 S  Z
      SuperscriptBox[" \2 v2 [# n' I$ X( b% N: |- |
       RowBox[{"(",
    6 Q: }( P+ C  y    RowBox[{
    ( A! `( c& G9 u; R     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+",
    ( o% c5 V- d/ X+ W8 b  Q5 X0 N9 @/ ^  SuperscriptBox[
    0 A5 \! S$ i4 ^+ }  y   RowBox[{"(",
    & Q& ?. V. ~" u+ ^    RowBox[{
    2 w( L! d8 E8 V     RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",
    - K# w7 v% @( g4 _  SuperscriptBox[
    & P8 O8 A7 w5 O, ?/ ~   RowBox[{"(",
    5 o& ?) S1 O0 g$ T3 D+ m# T    RowBox[{9 Z1 v* U6 c7 v
         RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+", % ~% t! V# k% E, Y# `2 ]1 w
      SuperscriptBox[8 H& M, M/ o9 h( P7 G
       RowBox[{"(", : [! N. a* w0 ^) x; c5 X
        RowBox[{
    $ T5 y6 [! I* z1 C2 N4 S& b$ [. `     RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
    & Q+ G, l" z. U  SuperscriptBox[# c; }8 \- N! j: t; t# U4 q
       RowBox[{"(", . X, w* l- @" Z& D3 g! a
        RowBox[{' q' j4 |9 ?5 K7 B
         RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+", 8 t5 f1 i$ q. X7 H; p
      SuperscriptBox[# m# k$ Q$ v, y- P
       RowBox[{"(",
    9 o+ Z1 P' _* U/ I% v) a  N    RowBox[{
    7 E& n, d( X% ~  k6 a) u) c6 d( ~* h     RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
    , o; i  |. n# x: F6 i  SuperscriptBox[
    8 _2 e; |+ T: Z. z   RowBox[{"(", * b! i" p  f/ r3 }2 n. P+ U: n
        RowBox[{
    , Q- f% @8 |) N3 t: N     RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+", * V/ i/ b( i) E. M0 N
      SuperscriptBox[
    2 w& ]- H7 A/ ?' |6 B( Z/ p   RowBox[{"(",
    8 _" I8 }& e! l# y! U! u3 R; R. X    RowBox[{" w8 `) _) y* m
         RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+", 8 X  l/ \! r: b; H' t
      SuperscriptBox[
    8 n. B: y% v) H% K4 x, [/ I   RowBox[{"(", * _0 q" j- {) ?6 J4 T
        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",
    * I1 ^4 p+ M1 }/ L0 i. d CellChangeTimes->{
    / g' i( {0 o& b: \* Y! ?  3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, : m8 b& p% u" j2 a
       3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9,
    . E# p/ h0 @$ P, r' |" w) f' t   3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9, $ c$ c  z4 Q) }! @2 H7 h$ \; t" W
       3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9, ; d: ^  D- O, ]4 ^
       3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9},
    ' P( w* n! V9 F6 T   3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9, . t+ \) A' o2 Y+ p
       3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
    0 B* }% W  Y2 q4 G2 }8 s   3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
    3 E& S" ~2 A* _   3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {
    9 B2 X" w; e( a   3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {
    + t' y/ \7 Z6 [& M. G  G* Y   3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9,
    & Z; j3 \5 |7 Y# K' p3 @   3.5779618537169228`*^9}, {3.5779618846049767`*^9, # Q8 S3 S4 `$ Y6 t* y* D$ g
       3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]; _7 b! `8 q- u
    }, Open  ]],% n9 A) A; x7 \. _% C4 x
    4 }. n. V% ^3 ~  L
    Cell[CellGroupData[{
    & d+ M2 T9 y& o3 O& ~3 J7 |7 c  k0 ]* o( D! H% Q; E$ ?( w9 b/ P
    Cell[BoxData[
      J+ H5 P3 F# u- }3 ^. B RowBox[{
    7 j7 L1 l8 g7 s; S  RowBox[{"Ca", "[", $ ?/ Y: I) Q0 f* I7 f
       RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",9 K6 x8 I! i4 ?) t; Z! f$ Z- o
    CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
      ?8 Z+ P& z3 @7 z! U6 E+ C8 |7 `9 I  3.5779616465173616`*^9}],1 j' ~. t1 G( ~8 ]8 |% ]5 b

    + q5 n- }) D* g: j- E7 GCell[BoxData["0"], "Output",
    - @; z. i2 |2 k( X CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
    8 w8 V  p& L! F* q9 m1 [6 e  3.5779616484049644`*^9}]: @  M0 @% F- {8 K- J
    }, Open  ]],
    . J( @# c( J/ J3 R, B: D0 J
    # o  D/ _6 s6 \) ?Cell[CellGroupData[{
    ) D( U0 z* k4 x, i
    2 n4 Y: N& S( T8 j  X- v4 b; |Cell[BoxData[
    # ^/ G" ?. i* o8 _! b, S RowBox[{) m( g" j% b2 R9 @( ^! h6 X
      RowBox[{"Ca", "[",
    / n/ K3 [) b/ O   RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",* `8 A6 H8 y3 F6 f
    CellChangeTimes->{3.577957376235614*^9}],
    / A& _& u/ A7 O7 X  S2 l5 |" {; O- b0 c) V4 z) F9 l
    Cell[BoxData["0"], "Output",
    ) u" @3 N( C8 ? CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]
    " q6 G7 x& [" Y1 n$ G4 P/ @}, Open  ]],
    1 c4 ~/ }0 i$ X0 i0 ^/ g" n1 ?& H: @9 s; C  |8 B9 u
    Cell[CellGroupData[{3 x, v/ l6 t. ~6 e: [/ s

    . O6 C& Y: o& H  c2 dCell[BoxData[
    # o2 P& j/ a0 Y, x& R8 `6 X5 k RowBox[{
      c4 X  l5 j6 m$ G" B9 t/ ^  RowBox[{"Ca", "[",
    6 W" P2 M! }" x   RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
    " \; s  u. s7 n CellChangeTimes->{3.5779573112927003`*^9}],
    8 p' g, C# ~  h, K9 {, x) r6 @" ~! A, F" Z5 F! m4 F
    Cell[BoxData["0"], "Output",8 R  G- y8 ^1 w- o/ w' }1 i
    CellChangeTimes->{
    ) [% U+ f) Q4 \  3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9, / a) J* i, N. \) g6 g. f* E5 T  k! p
       3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9, . ?1 g) F$ k& H& _9 {
       3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
    9 K( _8 J0 S: N5 P' l   3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,
    9 _5 P' K8 s$ j. Y0 W   3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9}, % ^5 T6 P( M8 G5 w
       3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]/ _0 A0 v- H+ I6 o; T' n
    }, Open  ]],
    2 X# Z% a. G$ ~% m) ^; r6 |' ~
    Cell[CellGroupData[{$ M/ @4 A+ O3 S
    / }0 u" N4 ~' l1 |- z6 i
    Cell[BoxData[
    ) z4 w7 {' A1 W/ A! @: I RowBox[{8 G7 Z* }% w* Z# i
      RowBox[{"Ca", "[",
    6 z% r6 A9 ~+ X: X   RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",  B* K0 [+ O( i& U4 l1 j& E
    CellChangeTimes->{3.577921461734375*^9}],
    & L& O$ K0 G4 i  W' p) ]( E0 s3 ?5 O: }" I. i/ B( I
    Cell[BoxData["0"], "Output",
    : y: R5 f' B5 | CellChangeTimes->{/ m# b5 T) N8 K5 C/ ~4 l  z0 j
      3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9,
    1 z+ c) w" x& F' J- V: s$ N& ?0 i   3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
    9 L% J2 F9 @: D4 |7 T- D$ j   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
    ( l& y) ]6 s+ ?- m' |! s/ G/ E0 B   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9,
    3 ^5 b  D- _' P7 d- m   3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]9 k( _$ f; {$ V/ I' ~
    }, Open  ]],
    & A; B9 }# V3 }1 `  f0 M& k& f3 w6 H' l( [
    Cell[CellGroupData[{
    4 \6 v* R" H2 m% d# ~* Z! J; B: Y0 W0 a. q& N
    Cell[BoxData[' m8 g  Y' C# E+ d% X
    RowBox[{
    ( i% m  P9 \: x0 E: U. F$ n5 R  RowBox[{"Ca", "[", 4 K' R5 S7 p' I9 r1 Z: L
       RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
    ( b+ ^8 U$ E% C( o; d' y7 O! I: Z CellChangeTimes->{3.577957303118286*^9}],* N2 @$ v7 T) V5 n2 X' W

    ' d/ g5 j& p1 M! N: O0 t6 U0 E+ HCell[BoxData["0"], "Output",/ V. e$ e+ v, l6 k$ z
    CellChangeTimes->{/ H6 u- _. E6 C
      3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {
    1 ?$ p3 y1 R' T8 q$ `: p   3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
    * L1 y: Z! g6 Y& X+ w( J. T   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
    " D( T0 N8 K7 e, o   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9, ! F3 w. i- {9 t$ q) R. J4 G  ^
       3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9, 2 M* D* k. i2 t/ k" U
       3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {' T: e% _% y; L# W% H
       3.577961889378585*^9, 3.577961912965826*^9}}]5 B/ J5 W# M1 U) `6 a
    }, Open  ]],
    + L/ [7 ?* p: J. P1 r1 b6 z4 f9 ?; t6 O) o
    Cell[CellGroupData[{# A' p% U5 |+ g% i9 r" i- m, s
    5 o. @6 l3 s# z3 E* o/ A% Y
    Cell[BoxData[4 G8 O% E3 d7 M  J4 q
    RowBox[{8 @4 M+ k$ x* @5 R- m, Y: a& Z. W
      RowBox[{"Ca", "[",
    ( ~$ p4 P! x) W% ^6 d' g   RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",6 \: C/ L/ q( g
    CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {' @1 e8 t$ ]7 {2 Q0 }' k
      3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
    9 v! Q5 B8 f1 |) b% {6 m# b. D+ R  U. H  3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {
    ! L! y& S1 a8 E  H! X  b7 w  3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
    + }4 @. y+ l% A" l. e  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {
    8 f/ ?- s/ T# C, m/ C+ e; a: {  3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
    8 s8 F* Q- ?/ p) @$ f5 R  3.577921435703125*^9}}],4 `+ F* L. a+ P" C3 ]: B* n) m! z
    7 a# r( B; e+ K. v- B" x
    Cell[BoxData["0"], "Output",
    , V# z2 T; F' ~" g. D6 R8 m CellChangeTimes->{# ~' w: f- C* F3 ]! ^3 o
      3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {; X. I8 U/ f/ L
       3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9, 9 p0 o. `: w; G! m- S
       3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {( _& c- O0 g+ _1 T+ i+ r
       3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9, & _! M& V2 O: G) f) X7 I& {: \
       3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {/ ]# W+ Q; b; ^) W
       3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9, 6 p8 [- r3 {) i0 R" M7 m9 s7 h
       3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9, + K* x% O  D3 l
       3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9, 4 p% U% J, b( |4 j+ @- S' @. b, N
       3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {% F( M) m- N% E' J1 g+ E
       3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
    & F  T, y3 A! Q( Q0 K   3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {6 I( d. A4 N1 i: z( J
       3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9, 3 @3 P3 J1 q  u( A7 _; u& p
       3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
    ( H" |9 g' |# o. E% I- n$ h}, Open  ]],# \4 q/ @1 a5 L% d/ ?8 w- J, o

    % ^0 P1 W7 \# i4 d  lCell[CellGroupData[{' F# a6 ?4 z2 P( N5 Z
    / f: A) y+ G5 F/ q4 Y( {/ i# _+ s
    Cell[BoxData[: q( g& _8 @) U- R
    RowBox[{"Delta1", "=",
    5 @; J* W( u8 w0 p) {$ h  RowBox[{
    / v% l! q3 ~' Y: K: q; A; t   SubsuperscriptBox["\[Integral]",
    7 s8 Q2 w& h) |# ^    RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    - P7 |3 y$ j3 Y- f8 W; \   RowBox[{
    2 y4 O8 b: g4 \% o" d6 |1 _    SubsuperscriptBox["\[Integral]",
    % h. F) F0 X; ?7 W6 w! ?     RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    $ c  O  V3 t0 o+ b2 w6 [    RowBox[{
    ; R$ P" v1 ~2 w& d# K0 l* O: T1 I     SubsuperscriptBox["\[Integral]", 2 w" Y- t% x& J1 i0 z* ^
          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    9 X" k5 q8 g0 D( n6 V7 _9 z1 ?     RowBox[{8 ^* Q4 k# ~8 V9 T, x8 w
          SubsuperscriptBox["\[Integral]", $ k/ ~: T* E  G
           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    3 l* j/ ?* a3 u& o3 K2 h& y      RowBox[{' U) e6 ~8 J9 ~7 ^9 r# A: ~
           SubsuperscriptBox["\[Integral]",
    # _; [+ c, J+ w8 u$ Z( p8 D        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], , I) r0 G1 a- c' W5 D3 R+ O
           RowBox[{
    . k. m7 A; y  R  L3 B- Y5 i        SubsuperscriptBox["\[Integral]",
    " W& b1 b% o2 ]5 Z' [% U+ Y         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    $ X; v1 C5 u4 @) W1 d4 B; N3 Y        RowBox[{- M5 w) `2 \4 M4 Y7 W& u
             SubsuperscriptBox["\[Integral]",
    ( t3 p8 Q+ @- A2 t          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    1 ]3 v' ]! Z4 W- [! Z         RowBox[{
    7 L% N/ v, T$ W& B) ?9 d          SubsuperscriptBox["\[Integral]",
    4 t4 L7 |4 B, L+ l" W7 |8 {& A1 O, a           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], . b) H- C  Q6 W$ z4 }
              RowBox[{
    * f+ M2 z+ o5 W! i           SubsuperscriptBox["\[Integral]",
    7 z( F4 R( O3 R2 J. W& l            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 3 n- @8 u4 k9 s0 |5 {- r7 n! u
               RowBox[{9 Q, Q: N4 K( w/ `: _4 g
                RowBox[{"Exp", "[",
    6 v1 y4 H( @; K8 N) G             RowBox[{/ E" R6 m! n7 Y7 X. }0 S: K9 D
                  RowBox[{
    - I7 ?+ b4 ?  E" c, i) o) E               RowBox[{"-",
    - v. l4 `  {: |                RowBox[{" W2 m) k3 N9 J# A  r
                     RowBox[{"(", ' z3 C4 o+ w# R& w
                      RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    6 Q- p/ x  V3 w/ ~% d4 G% C& [% m                 RowBox[{"(", 2 ]& i$ ]& U7 K  A" }
                      RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", # L8 b  }$ n$ W. K7 D1 @- x
                  "Delta"}], "]"}],
    4 _! {  c0 t) v& K. c0 e            RowBox[{"\[DifferentialD]", "x1"}], * n4 y# h7 T: F3 ^# S. `- A6 B
                RowBox[{"\[DifferentialD]", "x2"}], & [. |# @5 `( Q* P
                RowBox[{"\[DifferentialD]", "x3"}],
    8 D: O% M9 S) X% k, g, d            RowBox[{"\[DifferentialD]", "x4"}], ' ^+ X. z; |% }" c; J6 z
                RowBox[{"\[DifferentialD]", "x5"}], $ M4 K: `7 a' X' ]" l
                RowBox[{"\[DifferentialD]", "x6"}],
    ; c! j6 D: ~1 Q9 |9 r( E; ?            RowBox[{"\[DifferentialD]", "x7"}],
    , \( h9 k( Q5 \2 s  _  y3 Y, v. ~            RowBox[{"\[DifferentialD]", "x8"}], 7 ]' t5 F. X7 y* S
                RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
    ! n- t' j; U0 T- E# e) n CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {" U% S8 ?& }& E' p
       3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9, : B' \6 j" o  ?7 R. w
       3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {
    8 {! J. p2 E6 g   3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
    . x* P9 g" R! X, i2 {8 i   3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {
    ! {( |/ X: G' y; V% S: y0 y   3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9, 2 M6 v' Y( [3 b! R7 w" x- o
       3.577918964453125*^9}}],
    2 M7 D0 A" ^% n# {; l/ Z8 L& _' K' w7 l6 X
    Cell[BoxData[
    ; t8 |. u0 i8 t5 l$ x RowBox[{"97.40909103400237`", " ",
    " Y) o' c- K7 i+ E5 \  SuperscriptBox["Delta", "8"], " ",
    ! m# ]/ s( G8 K' [5 _  RowBox[{"If", "[", : _8 x) {5 {( \
       RowBox[{
    % K$ S' V9 t( v: T1 j    RowBox[{6 h+ @( n; r" Z& `" p/ F; y9 Q
         RowBox[{"Re", "[",
    ; Y: D0 L* N. {      SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
    3 H; p; x5 [& n( q7 U    FractionBox[. \% r0 e1 p/ |* {
         RowBox[{"1.7724538509055159`", " ",
    8 h- c9 y9 D( Y6 T) j2 N) B* ^      SuperscriptBox["\[ExponentialE]",
    8 M, d7 n3 B0 W0 i  F4 S       FractionBox["1.1102230246251565`*^-16", 0 B" k* R' Q" r4 Z6 O4 a1 _/ A2 b6 W
            SuperscriptBox["Delta", "2"]]]}], ' E4 d" Z* |) i$ C- i1 R7 h
         SqrtBox[
    6 p& o8 m8 a$ A1 x6 L      FractionBox["1", 1 `9 j8 \) @9 `, F: Y) v2 R4 Q( F
           SuperscriptBox["Delta", "2"]]]], ",",
    7 U" u, p( I3 _* a7 c% `4 F; x( ?( l5 g    RowBox[{"Integrate", "[",
    $ \: F# }6 W, m7 j; b% T3 `     RowBox[{
    ' @& |1 l3 T5 `$ ~/ D7 Z) e* q, l5 j      SuperscriptBox["\[ExponentialE]", 6 f4 d" i0 }: y) O0 M& a0 q7 O) [
           FractionBox[- @( R1 H6 a% M( t
            RowBox[{"1.1102230246251565`*^-16", "-", 0 H; ^7 d9 K  Y7 O# W2 |- n
             RowBox[{"1.`", " ", 9 I: d6 ~0 {! W, v4 ?- M
              SuperscriptBox["x9", "2"]}]}],
    # Q2 U  i" A# ^        SuperscriptBox["Delta", "2"]]], ",",
    8 K' R2 i# z. B) V      RowBox[{"{",
    + O$ Q" x( G3 v; m. Q+ [, f       RowBox[{"x9", ",",
    ( N: U3 Z3 t* s- ]# S" \( S  w        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", 1 w9 W  k( k9 z3 _% u3 I0 g
          RowBox[{"Assumptions", "\[Rule]",
    * [2 R: W6 G  q. N# _       RowBox[{- i3 S$ ]# z  N5 y7 c; ^
            RowBox[{"Re", "[",
    : u' x: F5 T9 [+ H- j5 t! Z         SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}], 7 ?) ~8 Z5 r. b8 }/ y
         "]"}]}], "]"}]}]], "Output",
    ( r  t6 ]+ r  b8 t/ ~, ?( ?, N CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9,
      S/ C7 H% Y0 J: P  3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
    - G* ~+ D5 R7 m: c  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,
    9 \+ r* i6 I6 U' @/ I% n  3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9, ; |( B" h! \" H" S  A
      3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9, ; Z; h3 c" Y# W
      3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9, 8 K% W- ~' `" e# l( K  s
      3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]) [2 ^6 W6 f  O/ K8 f$ C& [. Y
    }, Open  ]],
    $ y. [; N" V5 g. s/ l8 M0 N/ _  ]- k
    Cell[CellGroupData[{
    ; W. i; I3 [! N5 k+ ]
    $ ?7 M& c. r: W+ @, B0 oCell[BoxData[
    $ w3 o8 w# w' k RowBox[{"Delta1", "=",
    . O' {7 y8 H0 K' E# Z6 _  StyleBox[* g4 U# n9 S9 S; _1 ^
       RowBox[{"97.40909103400237`", " ", 1 u/ M" L: d) L( N1 ~! O
        SuperscriptBox["Delta", "8"], "  ",
    ) _  u4 O, u! i1 f    FractionBox[2 E; q7 o) O9 m* h5 V, Y0 U
         RowBox[{"1.7724538509055159`", " ", 6 u) N" X% ~" j" A7 s  C
          SuperscriptBox["\[ExponentialE]", 4 Y! [* E( ?+ ~1 t- H
           FractionBox["1.1102230246251565`*^-16", 4 F* @* u8 L/ P. d. r
            SuperscriptBox["Delta", "2"]]]}],
    : p9 C+ Y8 R) |. x     SqrtBox[7 k. {: }" k* P5 W: L* h+ W% P
          FractionBox["1", $ z+ y( V2 t" A6 ]7 L# i
           SuperscriptBox["Delta", "2"]]]]}],1 s% p) F0 x" S7 y0 G
       FontWeight->"Plain"]}]], "Input",
    8 c9 X0 K' g0 b4 Y2 a CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {+ v' O1 y# K) s6 l4 \
       3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,
    & F* k6 ]* U  M   3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {0 s/ d: h* \  ?- s
       3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
    8 y" V$ ^' {- y; L+ L   3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},
    1 r7 o6 ~  |- ^   3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],' q$ b" p1 @  ^& e

    7 P7 x9 [8 f! t- k1 r( n& v7 vCell[BoxData[
    ) t( r+ k7 i( q* P# O- a FractionBox[
    6 z7 b' q, z7 f8 j" I) |  {% G& ]  RowBox[{"172.65311851642346`", " ",
    " K; z- w& e: C; h   SuperscriptBox["Delta", "8"], " ",
    5 j/ U& b8 Y/ H6 c& d   SuperscriptBox["\[ExponentialE]",
    ) @+ r& e8 `0 K5 [: p    FractionBox["1.1102230246251565`*^-16",
    4 I, {3 j' U' |. g  x  D" i     SuperscriptBox["Delta", "2"]]]}], 4 v2 ~+ E+ A+ _2 i+ B
      SqrtBox[
    + b% t5 J4 A5 G) Z- m8 B   FractionBox["1",
    9 n" C/ k: O" \0 T) o    SuperscriptBox["Delta", "2"]]]]], "Output"," ~8 y& c) X% m. m0 D2 D
    CellChangeTimes->{0 {% u% ~2 s7 V3 ]8 S. n/ r, L( h4 I
      3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9,
    " j0 s; e; F& ~5 s0 a   3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
    ' s/ R5 A5 Z% L) _   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
    6 D. D1 N6 d& q$ F" s: I! W   3.578012166234375*^9}]6 B# K) S0 L1 P, s8 R" v
    }, Open  ]],
    & m& R, K! i. A4 M
    0 Y, L# s/ k6 Z* _* b7 dCell[CellGroupData[{- ?+ ?' B$ E, h) A& a4 d+ q
    & w7 F: a9 R7 X# `5 S
    Cell[BoxData[
    7 G, u: O8 N0 T* j RowBox[{"DeltaX", "=", & v5 R7 Y3 z/ y) b$ I# a
      RowBox[{"FindRoot", "[", 3 H" t8 d$ Q, u# {3 `0 x# U
       RowBox[{5 |' j8 a- g; I6 i
        RowBox[{"Delta1", "\[Equal]", "1"}], ",", ) H( T9 k' Y7 x2 M
        RowBox[{"{",
    ; K9 |: |3 ]& C: d" E, R     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",8 [2 ~/ T) N/ c
    CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {
    : q. g2 Q0 {) d- W. o   3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9, & R& {! m9 s! \$ {9 w
       3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9, 5 o/ ~9 i9 N: |9 {. U& c
       3.57791921584375*^9}}],
    1 g8 K* n7 g* c: U+ o
    0 n* K7 e/ y7 x& A0 e3 u; FCell[BoxData[- V9 @$ C: d+ M  `# h( N; f
    RowBox[{"{", & O3 ~# @0 Q1 w$ o
      RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
      O/ N6 x9 P( R5 O- d5 e CellChangeTimes->{# ~6 R; X  U  N
      3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
    / [$ {4 U. k% N6 E9 g   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9, 8 r, u1 c+ H+ q$ `7 l# U9 X9 H
       3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
    - ], S- ^3 b& w   3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
    ) G! H" q, J) v6 y( }- o   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
    . T' ~2 L9 ?! }- u7 n5 Q$ G   3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9, & ^2 R$ u/ V& B  Q: Z" I2 W
       3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
    6 V# Y/ J5 E  _   3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9, 7 p9 C: X/ D$ y1 A. e* T3 F
       3.57796070150625*^9, 3.578012167703125*^9}]9 U# f1 y' v  V( W# G. i
    }, Open  ]],
    $ k$ [! C' U/ v$ @1 q2 X. k1 T) h
    Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\
    5 Y- m- V( o  g, l\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
    - I4 J8 f# M* A5 ]  q CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
    ! ^7 k4 x' t4 z# I: S% Y  3.577960705312657*^9, 3.577960707621461*^9}}],
    - h' z. S: [7 h8 O- Q2 i4 e1 r2 v& e
    Cell[CellGroupData[{& {1 A$ l& L6 ^5 z7 i' k0 u# U

    / f6 I3 F8 h5 }" A' e) [1 ~; gCell[BoxData[5 M, \4 ^5 Y7 d" F/ I$ G
    RowBox[{"C1", "=", "Ca"}]], "Input",# ~% s7 S6 g+ `
    CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],+ x- B4 F; U: x4 l

    " M+ w: I7 n0 iCell[BoxData[# {9 Z7 _* `% z  D* `
    RowBox[{"{", 2 k( z# o9 n6 m9 W4 O
      RowBox[{" B3 t/ {; Q' b
      "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", . X2 |1 g/ h! k7 i; B3 }4 ^
       "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",", ; E8 O9 a" e7 z8 g
       "0.`"}], "}"}]], "Output",+ p' X* q! K  Q- I1 U' E$ V, [$ ~
    CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9,
    . E9 j1 r# E6 K" N* m4 q: w9 m  3.577960710273465*^9, 3.5780121855*^9}]2 n3 Z# P* O9 F% `+ ~5 e  O
    }, Open  ]],
      p. V4 B! e  X: g  [  Q5 Q4 `: _$ U( c& i# f
    Cell[CellGroupData[{
    . k" f3 i) i( }1 _) c, t/ f, @/ O
    Cell[BoxData[
    3 R4 a& N" i1 g0 ]) e4 `" w( W RowBox[{"u1", "=", : _3 K. M8 \9 x4 i0 r" s& O" ?- a
      RowBox[{
    7 l6 K' X, N$ O4 ?7 F5 `   RowBox[{"Exp", "[",
    . c4 Z& C- d5 \, B# {/ F4 L# k    RowBox[{
    8 f1 `# E* S  |0 p7 o     RowBox[{& v& G* Z! u. C
          RowBox[{"-",
    2 T/ G0 K* {% V4 ?: g. L. t0 g& w       RowBox[{
    6 c1 Z, A& d# ]        RowBox[{"(",
    , v8 O: }6 a! n, F         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    . ~) H/ p! G! W: x; T$ Z        RowBox[{"(", ' f8 e# C' w3 \( t: E4 q
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],9 y& l  D/ K6 T# W
         "]"}], "/.", "DeltaX"}]}]], "Input",1 l8 x/ A- ?& J  O& D
    CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {
    7 X) h% d4 Z. Z8 c$ L9 F' G   3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {8 I0 j" w" ~- j0 Z+ O) B$ t
       3.577919193484375*^9, 3.5779192326875*^9}}],
    ) U( h2 I2 c+ G1 y0 O/ V! g: B9 b/ s+ i! Q& p' b
    Cell[BoxData[4 i2 }/ l: ^* {3 Q, f' O5 N" ~# v0 s7 [
    SuperscriptBox["\[ExponentialE]", 4 \7 q: I+ t! r  `/ d  Z, f. |
      RowBox[{"3.141592653589793`", " ", * w* n/ `! J7 \. r2 ?: i6 E
       RowBox[{"(",
    ; z; Z0 {4 m- ~- I) w# Y# N    RowBox[{
    ) Y9 b* c9 x2 K% n% s- ~     RowBox[{"-", " m3 j  \# u' U
          SuperscriptBox[8 g0 s# D, j1 S
           RowBox[{"(",
    . K# U5 J; Z$ n$ P' w( o, C" G( h0 ]        RowBox[{
    ; Y+ ?( t, |1 q6 a/ T2 x2 r3 H& I5 R% P" g         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", # `4 u( C6 I: b: i5 g, Q0 B
         SuperscriptBox[
    , A3 l- w- K8 r) h# f$ F      RowBox[{"(", : D0 K0 ~4 Q0 \' c8 b  O
           RowBox[{! ~1 |- C" w4 j  |/ c! O8 L
            RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
    : }- x- K/ }3 X& R# [( P& \" t     SuperscriptBox[4 S! B3 f7 [. U
          RowBox[{"(",
    : G* @. E, a4 @4 @       RowBox[{4 T) U- h7 Q; [0 L1 ^$ @
            RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
    7 d" ~! e. m% A     SuperscriptBox[, {& C* Q; j3 |% R
          RowBox[{"(", 9 x8 c- G4 ~9 L) u% u2 m, f
           RowBox[{
    - S! D% m' D" E1 J/ x        RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
    % z0 L6 l5 k( T1 G% i  d     SuperscriptBox[. o. w/ V* L# ?. w! S7 V$ I$ I5 A( {: q
          RowBox[{"(",
    4 k2 ?/ K1 y& B7 S  W, B- B       RowBox[{
    " K) |, X4 M& a        RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-", . U! `# S: Q$ G9 y# m: o
         SuperscriptBox[
    4 I, w7 {1 A# n3 `* o; Z      RowBox[{"(",
    " m, r2 s/ o3 f( k       RowBox[{2 Z0 @' z  \* s
            RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", % m: i  h1 M4 w' A
         SuperscriptBox[" z; g9 D* Y; g# J
          RowBox[{"(",
    ! b: Q0 b( p; \5 s9 w       RowBox[{) ^- f( N1 t' N& K
            RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", ; m6 d- ], k/ R: _
         SuperscriptBox[/ y  y# s  b0 j3 M
          RowBox[{"(",
    + T1 ]) d$ L/ u1 ~7 ]4 d2 d       RowBox[{
    1 V  Q9 f* X# ~0 z$ N! ^        RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
    3 d) v- f6 m7 J/ V/ x9 C     SuperscriptBox[. ?; b, M: |* g3 U- Z4 u# J( G" \
          RowBox[{"(", 8 o/ H! ?1 n0 P# R: x/ q2 B0 T
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ' h$ M8 [' [( }3 {, n; U
        ")"}]}]]], "Output",
    5 Z. v6 d* l  h& s CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9, 6 w; }0 \  v5 C9 ]
      3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9,
      A& B5 q) Z5 E5 `  j3 p- `: N  3.578012187078125*^9}]
    5 X" I; U1 Q+ s/ |$ ]}, Open  ]],. M2 ~0 s) F* C1 ?/ X
    4 b0 ~( I+ ]7 @4 l9 P9 h( |
    Cell[CellGroupData[{$ Z" H% {/ D9 ^' {! X
    # [" t2 x2 a+ I# |- q. f* g$ W) u
    Cell[BoxData[
    6 }9 i# h8 I7 u* F6 k% v RowBox[{"C2", "=", "Ca"}]], "Input",3 S5 B1 g0 g) Y3 [
    CellChangeTimes->{3.57792047321875*^9}],
    % ^& K1 K; l2 b  [' Q+ J; [& s& q$ v# k, a3 w8 c9 n. B# d9 E5 u+ ?. P
    Cell[BoxData[
    - C# i" a; U; G: u" i2 \& w RowBox[{"{",
    * b# P! d) n1 [& _& s5 c9 S  RowBox[{# P( b/ g, |5 ^
      "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
    6 V* i$ q) x' H( z* K   "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}], 4 ^6 m  _# ?6 d
      "}"}]], "Output",
    * c" G# c$ U, V( y CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9, . P. g9 m! h1 I: o! D* k' B: \3 n
      3.5779607401163173`*^9, 3.578012204671875*^9}]" n; H8 q4 K1 X. r8 M
    }, Open  ]],
    ! q# ?  T6 i( B: J5 \; \% k+ R# [, d: F0 @. q3 r0 N
    Cell[CellGroupData[{
    # U) `1 O1 u8 B- D  C) G# `5 G- N% ~, ]: x/ y- X7 f
    Cell[BoxData[
    , a+ v7 w( G6 e* c8 p' j RowBox[{"u2", "=", 7 W( [8 O# k0 Q0 t, i# R- c
      RowBox[{; p  m9 }' _0 Z# y8 L- E$ M
       RowBox[{"Exp", "[",
    3 d# h6 P& b0 p    RowBox[{
    * Q# }8 F4 v2 D% s5 \     RowBox[{
    8 r5 b5 @3 C6 n% X$ ]7 ?( c! Y      RowBox[{"-", % U! I) U* p" J0 u+ C+ q6 I% T
           RowBox[{
    4 p9 v- _0 H% G0 J+ ~8 _0 t0 Q        RowBox[{"(",
    ' O& [1 |4 C- w: i         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", / l7 }- {9 a& ^  z
            RowBox[{"(",
    ) W# W' Q1 [9 L- ]: \$ p         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    3 q7 m) k4 q0 s9 H5 q: \$ O     "]"}], "/.", "DeltaX"}]}]], "Input",0 X4 U. K) W5 d/ o1 m$ _, C
    CellChangeTimes->{3.577920484109375*^9}]," V) Q$ r0 ^- _) l
    ; Y5 r& ~. M' \  Q' l
    Cell[BoxData[0 t( P6 r  K% V
    SuperscriptBox["\[ExponentialE]", - j3 i6 ^7 [8 ^+ Q1 H2 a. v
      RowBox[{"3.141592653589793`", " ",
    5 j; f$ z8 z; N* [' y# Q+ G   RowBox[{"(", 6 l, d; r1 u$ Y3 E
        RowBox[{2 g3 ~0 P: d) R! X
         RowBox[{"-",
    : `) K2 L  z3 J, i0 }3 l+ ^0 I      SuperscriptBox[
    . K. L4 Y' o/ n7 v, P; P       RowBox[{"(",
    + }8 ?& U3 E  ]9 I& k+ [+ \        RowBox[{
    + Q* \) u( B1 l& ]+ D         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",   v2 f1 r1 E- j
         SuperscriptBox[
      z% e) i* ?/ z1 ?      RowBox[{"(",
    8 ~$ T6 D, ]! R4 \0 g/ j4 `4 u       RowBox[{  r8 \+ |5 {$ N, |
            RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
    " m9 J8 x2 k% q3 H% r     SuperscriptBox[% l- a: f0 F1 K4 A
          RowBox[{"(", + y, a1 R8 a! H& |9 I) G1 K5 `
           RowBox[{3 v8 ?5 M' \5 n, p
            RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", 7 |! d( G& J9 }7 Z. h/ P1 U
         SuperscriptBox[
    ' d2 _+ e. K' Q& G      RowBox[{"(", - b# |' I+ ]' x2 g! z2 y! v
           RowBox[{
    3 a* X" [2 f4 O( v2 d/ ~        RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
    " S$ {" \8 U( I, d6 K     SuperscriptBox[
    & J- P7 R& G, X+ |1 M      RowBox[{"(", 1 ?1 s/ }' {$ f$ W( ^
           RowBox[{
    9 j+ d) Q/ a5 U        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    9 p# o& I/ `! }6 k     SuperscriptBox[; h  ]  w* T: @$ k5 ^
          RowBox[{"(", : `8 }; r* m! I" z3 ~4 N/ C! f! x
           RowBox[{
    1 o- T6 X- a5 }' f        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
    2 \! j1 u1 i$ M3 Q' W     SuperscriptBox[
    : A5 P$ |2 c+ Q8 c1 k" m+ m1 a      RowBox[{"(", # v. p* V- X9 N" C: q
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    . H5 }: d/ r2 }* g' O: F1 w     SuperscriptBox[
    2 s: s/ I( n7 e6 `0 W% f; e      RowBox[{"(",
    ! u5 m5 R- y: h( r( \! E# F       RowBox[{$ V2 J5 \( X6 d/ y# X( C
            RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
    , U  H, V2 j8 b4 w% c: n     SuperscriptBox[1 W1 ^4 _3 q5 o! ]9 m+ J
          RowBox[{"(",
    ( [. S# s& j+ R) \% P7 ?  ?, W: B       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], / F5 M' w( P& V4 x4 t
        ")"}]}]]], "Output",7 w, _7 s, P, C( v
    CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
    % Y1 [2 f2 B. j2 e+ y  3.5779607413955193`*^9, 3.578012205484375*^9}]8 H( H% k5 y- S; R
    }, Open  ]],
    ; l. e% d6 O2 }; r6 J) G4 Q& r
    Cell[CellGroupData[{. E  ?# ?) K; Q5 o" s

    ) |, L) ]2 v" G5 h. M9 hCell[BoxData[5 K+ J6 E  D) V3 {/ S* H
    RowBox[{"C3", "=", "Ca"}]], "Input",- N' Z* M3 `6 V6 h% @
    CellChangeTimes->{3.57792064125*^9}],3 q2 m1 h6 ?# p$ t
    - y1 q! J' w5 w4 s) z
    Cell[BoxData[, [# u( M1 ^  v9 e
    RowBox[{"{",
    ' y8 M0 i. ]4 s. g& [( e7 i6 i: f0 k5 T  RowBox[{  l* W" A) f* z
      "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
    $ @* j# Y5 J3 L( n$ s- ?   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}], 2 ^& Y1 H$ i9 u, S2 z
      "}"}]], "Output",( ^, G/ [0 v1 V9 M
    CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9, , |; ^4 T9 J  @" `3 P- a& z
      3.5779607642027593`*^9, 3.5780122103125*^9}]8 ^6 S, `. S: M
    }, Open  ]],
    $ v! x8 U# N( @$ Y
    ; d% F3 g' A+ E' y& u- q8 C$ RCell[CellGroupData[{
    ; k, q# l2 _& P3 q; H$ j  p) [, o( a( K- y4 Z# x3 k# S. U
    Cell[BoxData[
    6 W  K4 E7 |2 l  N RowBox[{"u3", "=", ! j* j' f) {  F. T- m7 U0 ~6 @0 Y
      RowBox[{
    # M  y9 |1 M% h7 z1 a; z   RowBox[{"Exp", "[",
    + v0 t& k0 K* j; O- `    RowBox[{
    % u5 n3 g4 C5 ]$ @$ C     RowBox[{
    & \7 A- c: b' r      RowBox[{"-",
    # S& d/ q, s7 z$ [; ^# e       RowBox[{9 M8 p9 j, X) K; o0 {
            RowBox[{"(", 1 ?" C6 w2 d) f1 f6 X
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 1 [0 j+ x+ {. @' K* J( N2 ?
            RowBox[{"(", ( F1 `2 Q" |* C) b
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    # Q1 F! m3 Q1 z* s     "]"}], "/.", "DeltaX"}]}]], "Input",( }% ?9 D( ?3 f5 g" Z2 H
    CellChangeTimes->{3.57792064921875*^9}],
    & S2 L% Z1 ?# E! B' y0 d% ~" i" J( C) v( G; y) H& z" |" t# `7 o  A
    Cell[BoxData[3 R& j0 X' L+ T- e3 x
    SuperscriptBox["\[ExponentialE]", 6 `2 I, u9 y! y& Y5 G7 }1 K2 @2 h
      RowBox[{"3.141592653589793`", " ", 3 g4 P2 I. c5 d( P2 L" d3 g0 P( F" P: k
       RowBox[{"(", 6 U+ L+ U* _- v+ i0 L
        RowBox[{
    6 E- o$ y% [4 S4 `% A. m" v* ]     RowBox[{"-", . [& E4 Q% B  P: j/ S, x7 `
          SuperscriptBox[. O8 C) y- V/ }* n6 i9 K; Y: ~
           RowBox[{"(",
    & ~$ j5 q: o. X9 n! W7 C        RowBox[{
    ) K8 M) W- x$ C2 o* Z         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
    / m  t# Q; c9 D, G( o, `9 k; t- T     SuperscriptBox[
    4 G3 L# [! Y; j  c* y" s      RowBox[{"(", " o3 F" I4 A: F9 `9 g
           RowBox[{+ D1 B- w, t2 D
            RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-", . p1 i) b' \" Z  T
         SuperscriptBox[3 w( S1 T4 C$ z
          RowBox[{"(",
    & Z  C+ i, `% X$ B       RowBox[{9 e0 N% M) J5 x/ ]
            RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", ( Y0 ]' Y' n* r: p' c3 C) B
         SuperscriptBox[
    5 f# y- |8 [8 G, N      RowBox[{"(", " _: t% K4 g2 _5 i. S% X" M- x  u; u
           RowBox[{
    ( ~5 W7 c) j* s2 n' T1 i5 Y        RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", # y& C! u0 o& Q7 }, ~
         SuperscriptBox[3 x+ H' x2 u! }9 f$ I% c" J% b
          RowBox[{"(",
    , _5 m1 N% v, c) W) m       RowBox[{1 ^4 t9 i, f' g0 B
            RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
    ; Y) a2 C, J" Q# ?5 J# h6 B" U) \     SuperscriptBox[
    ; _7 Z# c+ |. ]: e1 X8 G+ o      RowBox[{"(", - V8 p; O/ h- j8 X% L' b+ _
           RowBox[{
    ! o- _- E8 R) A8 S! Z! j- {3 W/ x        RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", ! ~, {  \; E% x- ?& z9 d' Y
         SuperscriptBox[
    0 H2 {2 Z+ x0 Y* V      RowBox[{"(",   ^! Q" s  G+ R* Z7 f( H0 @
           RowBox[{
    % ~! }% C! L* f7 h6 q        RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
    + P! W: X, s5 d& i0 p" Z0 o: L     SuperscriptBox[" C) S9 m7 D8 T9 n" {) N
          RowBox[{"(", 9 T! Q! X0 N7 J4 U. X
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    - B5 u0 n. ?7 D% M% f7 y( m! U     SuperscriptBox[3 z6 `7 w5 x  r& e, U2 }
          RowBox[{"(", & `/ O7 H9 p2 y2 x! W( D
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ! q, U; e, f4 R" M( @7 y9 ?  g
        ")"}]}]]], "Output",
    5 }- `; E6 F4 p; c' g CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
    $ A9 B, z0 A& T1 E/ L" I  3.5779607654819613`*^9, 3.578012211515625*^9}]. @+ f. v  a+ j( T) h4 C
    }, Open  ]],
    . m! ?: ]/ g& M* |, X* B* O
    - ?$ r  X* f) a9 d1 QCell[CellGroupData[{
    ' k1 |$ a4 ~* z+ u. ^
    8 }; k6 E1 x4 x" P- w$ `Cell[BoxData[
    2 C% K0 j4 H6 p2 h; W RowBox[{"C4", "=", "Ca"}]], "Input",4 F5 K* O* H5 l) G* @! h
    CellChangeTimes->{3.5779207559375*^9}],
    ( S. d6 J) W# {, ?& [" w  |% T# k
    0 y. k$ r7 O% v0 q+ r' w9 QCell[BoxData[2 ^+ m# M$ }/ t- U& t. S
    RowBox[{"{", ; O3 F! S6 p! {0 g  D# e( R4 }; k( K/ O
      RowBox[{+ r4 q: u9 k( L3 k
      "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",", - `3 {4 x7 r  C' ^  E# Y
       "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}],
    / |, V7 i4 J* |/ Y8 R+ s  "}"}]], "Output",
    . O/ }, r- T, h CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
      F6 G8 ~- P: o7 \! l' f$ k  3.5779607861363974`*^9, 3.578012216171875*^9}]* U' P( C- w  e; D! Z% U
    }, Open  ]],0 V. g3 @, Z9 ~( R! ~
    7 ]! u' H& R" V( |5 k( b& s
    Cell[CellGroupData[{
    , Q5 @" u3 n, f2 Z6 S; b5 u2 U3 ]
    8 w; ]9 R3 ^) Q4 |Cell[BoxData[7 V" J9 O- o2 g' E6 G8 K
    RowBox[{"u4", "=",
    ( J# Z2 H7 P% w, A( M) D9 g' r  RowBox[{
    * o5 x5 u3 _; H. B   RowBox[{"Exp", "[", : V- G0 w. M- I" a# U
        RowBox[{' [. f, O9 s, b! \' Q5 A
         RowBox[{
    0 P6 C; e" Z1 f9 k/ c      RowBox[{"-", 7 P( ?& n# G' l# g
           RowBox[{
    3 W$ A6 @4 C! I/ _, p8 V9 d) X$ G        RowBox[{"(", % b- @- u5 `+ J, R0 t9 B
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    4 e; @( _) W% R' q        RowBox[{"(",
    $ p# ]2 l" s' v- I' j  @2 R0 s         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],7 @9 }( [2 x+ \2 u6 }  W
         "]"}], "/.", "DeltaX"}]}]], "Input",
    ' L. Z. ~5 d- W4 o4 U  ~% M CellChangeTimes->{3.57792076325*^9}],
    7 n: f6 x: ^: s$ w. y! j
    3 ?) P# F) O( O4 X( G) Q, zCell[BoxData[
    5 [* k6 j. V. D" W( m3 B! y SuperscriptBox["\[ExponentialE]", 3 i4 m4 W+ f( h9 x
      RowBox[{"3.141592653589793`", " ",
    2 o9 |$ e  {& O: `: l   RowBox[{"(",
    4 f  ~5 ?5 T2 v( q! F$ X    RowBox[{
    # I) \# p% A' a8 _5 a     RowBox[{"-", ) p" e% h0 w& C* K5 y2 h
          SuperscriptBox[
    & R2 Q- E# H- i& C       RowBox[{"(", $ q) C3 f4 ]4 T% N+ g; q. O1 E1 ^% p
            RowBox[{
    : x9 D. Q  l0 `, N- O8 _# A+ |9 c         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", # l5 J3 Q9 e) S8 `+ m" ~2 J
         SuperscriptBox[, t+ m& d4 {5 Y9 E2 y
          RowBox[{"(", / s, B3 g" l: D$ N9 j8 r
           RowBox[{$ O* G7 R% d+ y; Q) [! m
            RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-", , t. ?* w2 m+ V' W4 g& u, U2 f
         SuperscriptBox[: A9 r4 o0 m: I0 }! x) u5 }  s$ L+ @
          RowBox[{"(",
    2 D; k+ i# S; j) R) N       RowBox[{) n% u% m+ G5 Q+ H7 [5 U
            RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
    ( v1 A" M7 L# `, B( N6 ?     SuperscriptBox[( i& T3 Y4 s4 b5 j2 P" X
          RowBox[{"(", - n) [. Y$ C; g5 }( b* `9 G% p
           RowBox[{
    % c5 H, k' P( [" ?        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", * L9 z: T( D% u- r6 ^# w
         SuperscriptBox[
    " S" c1 Q4 S. [$ R$ m4 ?5 ^      RowBox[{"(",
    1 P- _+ p* y3 L/ g0 k       RowBox[{+ V6 C; D  k3 N+ y( Z
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", 2 Q6 w% Y2 E1 B3 l0 [
         SuperscriptBox[
    6 q  H: \& i; [      RowBox[{"(",
    4 ^5 n+ S) b2 W: q& y. J       RowBox[{
    3 n% D2 g1 c4 a1 x        RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",   |9 ~7 U* v8 @" O
         SuperscriptBox[% T! _8 S) p: C# m
          RowBox[{"(", " [8 i; k! T( L4 m% q( Z$ s) a
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", " J- w' W6 n, j# U0 V4 Y$ S
         SuperscriptBox[( M+ C, ^5 f7 I" s4 Y1 C
          RowBox[{"(",
    . S; M) D) Y6 O       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ) A" [" a/ |. H9 B- g3 _. G
         SuperscriptBox[
    6 M. e. c4 R" b# z. l      RowBox[{"(", 0 A' N" U* g, F  M0 @' |
           RowBox[{& O9 r+ W! J; y6 f  D/ X
            RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], 4 e! F% |0 V; V$ T& b
        ")"}]}]]], "Output",* Z9 S  c* S9 z4 k
    CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,   G2 ]8 Q0 ~# s8 X; f; a
      3.5779607873531995`*^9, 3.5780122169375*^9}]
    ! X5 j. i5 V3 y- E1 O5 A5 ~4 g7 A9 o}, Open  ]],0 _/ v: u0 _% I5 d8 j& ]8 G
    4 Q; z4 @3 J1 R5 r3 A+ p- T5 M
    Cell[CellGroupData[{4 c* w+ J% _, I: U! N

    * m4 f- r% x, @2 w' n/ kCell[BoxData[' W7 [4 I; E, d* b6 {% L
    RowBox[{"C5", "=", "Ca"}]], "Input",
    % Y' Z- P3 a% k5 k; x2 } CellChangeTimes->{3.577920860671875*^9}],
    " S3 T2 h# g! C8 d, K3 Y
    ! L% Y) d( A" O+ D- pCell[BoxData[
    9 r2 n- q; _& k+ q5 E, z RowBox[{"{", , v+ b( Q: P4 j* _! z6 s" Y
      RowBox[{+ D, S6 z5 o% {& p3 F
      "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",", 2 `7 p+ |# G4 f1 m( O- W
       "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}], 5 ]: z/ t; q# u8 a3 c
      "}"}]], "Output",2 L8 U! I. d& l4 f' v3 a  g5 y8 v6 x
    CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9, ( f9 [5 L: B& x
      3.5779608137328453`*^9, 3.5780122209375*^9}]* v3 M2 E4 y! l  e0 _7 H0 c6 O, M  E
    }, Open  ]]," |. ]5 D: {, @  p
    ! i  `5 g9 X4 Y
    Cell[CellGroupData[{
    ! M$ P) f5 n( o- g
    + S5 C" t- r( dCell[BoxData[, F5 E" S$ M0 ?
    RowBox[{"u5", "=", 6 D3 P5 w& G; q! O2 X, u
      RowBox[{
    # Q2 v% H/ c2 u+ @. ]7 z0 ?3 M   RowBox[{"Exp", "[", / m+ G. D6 I5 X3 ?3 U
        RowBox[{
    7 `1 k' E/ l( ?+ h9 j     RowBox[{
    ; ?  u: j# i3 H/ a      RowBox[{"-",
    / t4 Y' o5 B3 M1 S- c& w2 F  \       RowBox[{. I& F4 y2 z: V
            RowBox[{"(", . Q! o& K1 L- G2 }- D
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ' p' _, C+ k7 _        RowBox[{"(", . \$ f+ l! a$ [& e( y
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],$ E- J; |8 n( H4 }1 O% v4 Y1 {
         "]"}], "/.", "DeltaX"}]}]], "Input",. u7 X9 i" }* {1 V
    CellChangeTimes->{3.577920869375*^9}],2 v: `- U" P- k1 h+ V7 a5 G& B3 k& W

    6 g* }0 M' _- m$ o: O& F2 WCell[BoxData[
    , |3 Y; p4 w9 @% N1 B" g, R! W% b SuperscriptBox["\[ExponentialE]",   B) r. P: A$ o2 k1 |+ [
      RowBox[{"3.141592653589793`", " ",
    9 L$ N, `! l0 u8 k+ g/ G   RowBox[{"(", 9 I% c5 H0 s, V2 R, U8 l3 {
        RowBox[{
    4 w. _; B/ J4 @. W7 j0 E' M" e     RowBox[{"-", ! _$ J: Q! j. q# ]) b' Q
          SuperscriptBox[
    # Q* u7 D' z/ y. H( ]- N8 `/ E       RowBox[{"(", 9 Y4 w+ m) i* e, T: _  @5 v
            RowBox[{
    $ v8 S7 i* X" l- l( y& C         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", ' g  w! X8 H9 `/ l  I3 E
         SuperscriptBox[
    ' q; T; h& r7 |6 e% y      RowBox[{"(", + I# E0 \1 w$ `
           RowBox[{
    4 A2 T, }! a' z6 {) q. G/ |        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
    1 t3 E+ N3 B$ g     SuperscriptBox[6 O0 }; n8 o9 r6 w, P% V+ d- F  R1 G
          RowBox[{"(",
    ( ~8 y0 H& x( j1 a       RowBox[{- l) _- e! P2 `0 ~: v
            RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", 1 D2 |* S4 }: ?3 g) J
         SuperscriptBox[3 E: Z0 e$ k1 X( F) ]
          RowBox[{"(",
    ; S3 P- N! h/ o. Z9 _! U8 Y2 w       RowBox[{
    % N) s+ A+ H$ d& \. ~2 Z! O  i# A        RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
    % K' Z: k8 W. N3 e( p9 u# a     SuperscriptBox[( z5 N: c$ _7 L& R. n7 x6 V
          RowBox[{"(",
    ( Q5 h: w/ v! h) f/ r, F8 E# m       RowBox[{
    # n3 L6 w! {/ [# ?        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", 9 y: L7 V+ \* L+ r
         SuperscriptBox[# w2 G9 `. T: C0 ^0 i. a
          RowBox[{"(",
      ~; P9 B, o# q9 \       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ! z( ]5 I; N) N     SuperscriptBox[
    4 P' R4 a. b. m3 u9 O" ^% u      RowBox[{"(", ; O$ a, X& p! O; N3 j
           RowBox[{
    0 B/ Y* R0 S- S+ y5 \3 n4 |$ _        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    - U+ B8 ~1 Q1 g- {; y     SuperscriptBox[
    ' Q+ v, C- R9 z      RowBox[{"(",
    * e+ o/ q) Y8 d- t9 O. V0 C' ~       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", : K  H. U0 U! f2 G9 j& h/ x
         SuperscriptBox[$ I2 J. y: U- f; {# A( {2 f; H% G" R
          RowBox[{"(",
    ) {- n& w0 b% L0 K       RowBox[{
    5 t- ]9 B0 L' _8 I9 C0 O; J        RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], : ^' P7 S% p5 w: {( c* R
        ")"}]}]]], "Output",6 N0 `8 d, a, J  T0 f- {
    CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9, 5 q, w+ |- i1 M8 G
      3.577960815043248*^9, 3.578012221953125*^9}]
    & l! Z' x5 U1 Z$ F8 [}, Open  ]],7 R; W- p2 E2 l- ^3 w. p

    1 F+ d  u% o3 m, u9 A$ u/ jCell[CellGroupData[{. P7 N0 B% z& |9 F2 T/ \
    ! |0 ?& X8 ^0 m, F+ ]0 W
    Cell[BoxData[8 z& F6 j& Q4 Z2 d
    RowBox[{"C6", "=", "Ca"}]], "Input",
    0 j7 J8 J! d/ J9 z CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],
    ' N- J0 ^/ o3 g, A$ [% G5 r" Y; h5 B& J* p9 I; k! @9 H4 O2 ^
    Cell[BoxData[
    * K. N9 I. y2 d1 N5 U: J& h* X RowBox[{"{", 5 a* Y$ J9 `) n& E7 O0 M2 t
      RowBox[{) V; z( B4 ]; z/ h% e# W, \
      "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",", ! o2 a' N. D/ ]; R
       "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",", * o/ a1 M5 a5 v! |# Z) b; ^0 |
       "0.494866`"}], "}"}]], "Output",9 |6 g& \! T$ F. v" k* ~2 _
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,7 E7 [' @1 I! U' X
       3.5779608373044868`*^9, 3.578012227359375*^9}]
    7 h' B6 x' Q% t# l. h" t# r2 \}, Open  ]],; j* R9 o1 @4 b8 W; u& T

    ( t$ d/ ~! d8 S& u- ~Cell[CellGroupData[{. |# a! F4 Z8 k' w% n5 n$ Q4 c% K

    % I4 R& i. D/ U3 K( B2 ]. ACell[BoxData[
    ; f; s" ~1 {+ o6 I# ~, a- o RowBox[{"u6", "=",
    7 D1 u) i- Q" d8 n  RowBox[{
    * P+ [8 ?7 G' c% F   RowBox[{"Exp", "[",
    2 S+ S* {$ H0 n' _% N0 n0 h. _" d    RowBox[{
    . n) a: M; u: ^7 z4 u; d     RowBox[{" H: I# h) ~$ v& n
          RowBox[{"-", $ {% T% t! o& r. D
           RowBox[{; C  Q7 Q4 L. C
            RowBox[{"(",
    ! E" C' P4 z$ p7 q7 t' Q( Q         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", & p; k5 P! v" }+ K0 t& N
            RowBox[{"(",
    * j( \5 Y  |' _& _         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],9 Z8 F' I$ L, C, K' j
         "]"}], "/.", "DeltaX"}]}]], "Input",2 X3 |( k. o# a/ \; r5 Q
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],9 t& o- B' ^0 U( @% P2 K

    " `1 x; W8 a0 ]$ F1 v! OCell[BoxData[
    , R1 B" Z# z! G5 z6 c2 D3 ~# H SuperscriptBox["\[ExponentialE]", 2 R1 \" ~) r  z3 I
      RowBox[{"3.141592653589793`", " ", 6 ~5 `: C6 D+ H$ c
       RowBox[{"(",
    # D7 E1 _" u6 Y$ o$ R6 V% G- M    RowBox[{
    ; ~$ z  w* n& V# Z6 M* M; A. ^) I     RowBox[{"-",
    5 I# K9 C, @5 S1 A* e      SuperscriptBox[4 D& s0 i& j7 u# H* W, C2 U
           RowBox[{"(",
    # b% Z6 W# i1 {, I' W% A, e        RowBox[{  }  G$ {: @7 ^4 w$ K
             RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-", $ P! Z: `5 E  q8 s# \; O! ^
         SuperscriptBox[
    : q. }* X0 {  V) {# ?/ }' G      RowBox[{"(",
    / [6 t4 E% y0 R) O$ j" h       RowBox[{5 e, q9 `' b7 j+ @+ B) z9 b& F% C
            RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", ' G( i0 l6 t" P4 \3 q6 S
         SuperscriptBox[2 g: x% O- @) L4 Y3 Y2 a6 v- r
          RowBox[{"(", 2 R8 w6 T7 o' b) |) o' ~; g
           RowBox[{2 U6 v0 k5 I( V* P6 P2 M6 c
            RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
    , d8 u3 _8 X$ a4 t* @# W  }     SuperscriptBox[
    4 L8 [8 q# L" @. o% P  Q      RowBox[{"(",
    , |( @: s; p' q8 Y& q       RowBox[{
    ' V5 Q8 J( c0 S4 ~        RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", : q+ h3 w# @$ @
         SuperscriptBox[
    ; G9 n/ `% {" D& G% A5 W# _. g      RowBox[{"(",
    " B6 w7 ^. ~+ ^. P/ q. t       RowBox[{7 j1 I0 i) o# m0 ?9 s; y6 [
            RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
      S3 P8 X! H$ `/ @- W6 c( \     SuperscriptBox[3 o! ~+ U2 i: b1 W: `
          RowBox[{"(", $ H- i$ a% V7 z& q
           RowBox[{
    & B$ v0 \$ [) E2 }+ Y+ A        RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", ( ~) X; `/ ?9 [& E- G! E
         SuperscriptBox[+ R& `5 e1 b6 c
          RowBox[{"(", % G; D' h0 }# c. J) m% z9 ?
           RowBox[{
    + j7 i% K/ ]0 E$ G        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", ; u. H6 P; q$ Y# \5 t% y
         SuperscriptBox[
    & [: C" a. I! B# |+ e; ]- f, y! y      RowBox[{"(",
    3 t" x$ s5 l, X       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    # {3 T3 B+ w9 M7 i& E     SuperscriptBox[. Y; g/ o9 v7 V, U) ]' M/ v8 J
          RowBox[{"(",
    2 v; }' s) y+ w: a- ~6 ?# @       RowBox[{% B! F3 j/ t% K- i" U
            RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}],
    6 A% n+ f; a' S4 I2 o    ")"}]}]]], "Output",
    % [7 h. H5 ?; i% ~) M CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    # K0 U% B/ I( [  3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}], I! Q, q  g: i; n3 I
    }, Open  ]],7 b! ^0 t) v3 `2 i: K5 u3 _2 _0 O
    ( i8 T! N% B4 E; @1 K' g! a
    Cell[CellGroupData[{% y2 R2 n1 k- F9 ]" M

    3 m& o8 x" d5 ?5 x, c& _  |- iCell[BoxData[7 `: @; L' ^5 J: i1 N* E' J! b
    RowBox[{"C7", "=", "Ca"}]], "Input",; n& B& m' Q7 ?; C$ P; \
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    + C$ d& n3 K- _* i! p, g  3.577921316125*^9}],
    - B$ R8 Z" v) `% x. O; A" W7 l: r7 d2 D: h; Z
    Cell[BoxData[5 C4 I' Q2 }$ E  v+ _$ R
    RowBox[{"{", 6 x2 _- c# x' D, r. D" ~
      RowBox[{2 p/ w+ o: ^& f5 o
      "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",", 7 U) V% T) G  x. ]
       "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}], 2 J% G0 m" |: A9 V
      "}"}]], "Output",
    . F! z4 j: B/ R# s! u CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, 1 @# f, Z! F2 C' A5 J7 g8 L
      3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]/ y. T" Z7 t% q$ G$ H, G* K
    }, Open  ]],
    6 ]$ s3 S0 [7 d
    8 e6 h& o# @* U( R, J+ E2 y2 yCell[CellGroupData[{$ Z  S% K$ c4 I7 G& K, @

    - m0 l; ~" D( \3 X6 MCell[BoxData[& Q% N( L1 L( L
    RowBox[{"u7", "=",
    $ n- n' C' v7 w& j9 n+ l; l- A  RowBox[{! X* u4 ~7 m' t. l
       RowBox[{"Exp", "[",
    2 l! j- Q2 M- H/ k' r/ u    RowBox[{
    & \+ m4 ~8 A1 D, W& f6 H     RowBox[{
    " Y0 ?7 h* s& i  s: k; H      RowBox[{"-", 1 v' p/ P6 Q- M/ J; ]- V1 W# k/ f
           RowBox[{% f, F, B# n! L# w8 P
            RowBox[{"(", / B" H9 ~; V" z. q5 S* s7 s" L
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ; N( u$ s1 ?2 t, s# E        RowBox[{"(",
    & D- P# }9 k: T+ h$ n& U2 m1 d         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],% x2 ?1 B! _: X6 p3 o
         "]"}], "/.", "DeltaX"}]}]], "Input",/ w6 C! b: t" x
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    ! L6 R7 _2 |7 X6 @9 Y  3.57792132028125*^9}],
    6 ~. J2 O9 l7 y) N: m# x# H* Y+ I5 V+ p; G5 B  x  [
    Cell[BoxData[
    4 L, Q& u- N3 Y* x2 n0 r( p SuperscriptBox["\[ExponentialE]", : ^( s- C1 {$ q( I0 M, G3 `( k
      RowBox[{"3.141592653589793`", " ", # |0 |, {) `) u) E- Q
       RowBox[{"(",
    3 v( }6 [9 f0 X$ H. V( ]    RowBox[{; J( l2 [/ K4 D/ a) q
         RowBox[{"-", 4 o/ F, V& M- f
          SuperscriptBox[
    " i5 y3 @1 }# b* m% a  I7 V; @       RowBox[{"(",
    3 s( m9 o, ]; Z7 j8 l. {5 o        RowBox[{. D- |7 X: |; R! O) c( @1 i
             RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
    + R- r) X+ P( {$ b. P     SuperscriptBox[
    : x2 U; P6 y0 w      RowBox[{"(", 9 {& x* P  V1 K* ]6 r9 k
           RowBox[{
    # w7 r8 `7 N. k$ Z; y        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", % r' G$ x1 }' V+ Z$ A9 u. G
         SuperscriptBox[
    " _5 V, `3 h0 o" ~" A2 s& J% ^' ~      RowBox[{"(",
    ; m4 T- k1 Q1 {3 |* ~( F6 t       RowBox[{
    2 j: A4 B  n# x$ L) o        RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    & s6 t6 q" m: F7 ^( a, u     SuperscriptBox[
    , d; [0 M, U: A; K      RowBox[{"(",
    0 W& w1 o1 q: V5 i+ N0 s0 R# u2 A       RowBox[{
    % @: }% C/ S- l* o. Z" ]" m        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
    1 l, m' r  a3 H$ Z3 Y. X     SuperscriptBox[3 r' F& [% q4 j+ J8 V
          RowBox[{"(", 0 Q4 A4 w/ ~/ w# X/ z5 c
           RowBox[{: Y1 y) ?1 Z3 y  d/ Z# r8 h0 N- T
            RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
    6 G4 ~1 s% P, e% s     SuperscriptBox[
    3 C) Y+ R% i* M      RowBox[{"(",
    6 @6 n7 P% I2 |* Y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    + Z; t8 v, m9 S9 B! p5 q     SuperscriptBox[, X  S9 p% z" a+ I  S. H
          RowBox[{"(",
    + k. f5 M) V. S7 z; z       RowBox[{
    5 p7 y& g/ e8 {+ S# g/ f        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    & U' {0 O) s5 m     SuperscriptBox[
    : d) I  E) d$ N7 |3 `      RowBox[{"(", ; M8 G" p! R# s( D
           RowBox[{6 n4 W9 v2 d" M
            RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", 7 Y8 r, }$ ~1 \: W1 a/ I1 Y
         SuperscriptBox[# _1 X& @* l! I' s% y  X( ~/ }: [
          RowBox[{"(", 4 N; w! v& ~& k4 }
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], + q3 H% r. \3 X, k$ R+ E9 I
        ")"}]}]]], "Output",
    1 K/ Y- q6 a1 C% O7 X1 L CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    9 X- z" B- d  n7 s* F  3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9,
    . J& L: y# l, ^1 s, s0 U5 v  3.578012251359375*^9}]9 B/ v3 d% x! {: C* O8 v
    }, Open  ]],
    % A# n1 ^* S  m9 t/ M+ M, {7 \
    # e, i! [' N$ |8 b  g; H' NCell[CellGroupData[{
    % Y% ~, g+ [" ?( u
    ) n" N% ?5 H/ u/ rCell[BoxData[6 X# s: n) }. N3 R6 `# e
    RowBox[{"C8", "=", "Ca"}]], "Input",
    % _- n9 o# A" u6 n- B% N CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    8 ^' m1 `) S$ I3 e/ @: a  3.577921316125*^9, 3.57792141421875*^9}],6 x* D# x2 |8 o6 Q' z  \/ C

    + d5 t# {7 A3 s, h; M6 ]Cell[BoxData[) [  ?: T+ Q+ G2 ?1 h! D
    RowBox[{"{",
    ! @( b! f9 A$ o  RowBox[{6 d6 c( k7 N; E- k8 j
      "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
    : P" l  U( U. Q! j   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
    : ^$ a3 s0 e! ]* l# d/ o8 G  u  "}"}]], "Output",) R2 k: |! i; o' S& X2 _
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, 4 S+ I7 t4 l  f  r, N7 [# P+ o
      3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9, : f" H! v& W& B0 W
      3.578012260515625*^9}]% o: p+ T" k( {  s1 r6 i; b' ~3 h
    }, Open  ]],
    4 i: L- ~4 A, r( g: q1 M/ A: E; h% W$ M( _1 ^
    Cell[CellGroupData[{: E6 ?1 J; C1 _& a  g; |$ I$ X, j
    ) D" l' h! U. U/ g- b
    Cell[BoxData[. G  h# z3 Z6 r) G3 {- L7 \
    RowBox[{"u8", "=",
    9 I' N+ [  C7 Z) p, _, n' a  RowBox[{  w3 x. G" k! Z4 F
       RowBox[{"Exp", "[",
    6 ^, w8 k- H1 _1 b; z  r    RowBox[{! a; \. {' A: |+ ]3 k+ w2 a
         RowBox[{
    6 d; g+ p4 M! }4 |5 W$ R4 O      RowBox[{"-",
    + D: C) z3 Q+ h# O9 `       RowBox[{
    4 J; V/ I9 ]8 R; T6 d        RowBox[{"(", % ~5 m  _- b7 P1 X- u) n
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    % R! m& E" u. x1 _4 L        RowBox[{"(", 8 n2 l! T, o+ r' r# W$ }( `
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    . j6 G; v6 \) D     "]"}], "/.", "DeltaX"}]}]], "Input",. z- X- Q. D! ]2 P! @
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    % f6 p/ \. X% @6 {  3.57792132028125*^9, 3.577921416921875*^9}],( l, I) ~' f, |( z+ c. |: v# m
    * r) {8 ^0 T7 s9 A/ I
    Cell[BoxData[8 U2 u2 z8 T$ C5 ?/ ?# d) O
    SuperscriptBox["\[ExponentialE]",
    3 y- o( R8 Z: W$ @. h4 v  RowBox[{"3.141592653589793`", " ", . C- Q7 S+ K2 d5 s: j
       RowBox[{"(",
    ; z3 D7 K: g1 P( W2 b- o" R! _    RowBox[{) G( Q' B( y9 `3 U
         RowBox[{"-",
    # _0 b; V% x' m" k& c      SuperscriptBox[
    4 y3 @& d2 s; O       RowBox[{"(", ; h+ @+ m; M+ {  `
            RowBox[{
    $ d4 a3 u  I" o1 o         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", 0 J0 }2 Y) h# X% e
         SuperscriptBox[
    " Q" k' }- v. e4 O1 _" s+ x      RowBox[{"(", ! c+ P7 d+ r. U0 p
           RowBox[{1 |2 _/ Q! z& X! i5 p6 B
            RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", ( Z3 n1 r, d) n
         SuperscriptBox[
    , ?& M$ \4 o+ B2 t1 Y; y" D9 @" L      RowBox[{"(", # D% y. U# e0 f( w) a$ ^' S  O
           RowBox[{. c2 z. q$ x, z# c3 o5 F
            RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", 8 v  n+ G, J2 P4 m+ |9 d
         SuperscriptBox[
    4 Q: U3 G- E! o+ N9 a' q# q      RowBox[{"(",
    ! s: y/ X7 J& B, W) \2 Y       RowBox[{" W: O% U8 S! u) K: \
            RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-", 9 ]/ ?' R- o$ U9 X
         SuperscriptBox[
    / O8 T! D( G, \3 ^9 `! J: `      RowBox[{"(",
    4 |/ d  Y$ d1 d       RowBox[{& V! M3 ]5 e9 P$ k8 [) n$ M  ^
            RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", ' r4 {- j9 ^6 o+ @: z7 e
         SuperscriptBox[
    5 A- Q7 m+ `$ w# U0 y/ b      RowBox[{"(", ( |5 ?! k- A6 y2 B3 l6 A
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ! w( d8 w8 |8 G! l( z
         SuperscriptBox[+ E* M/ n: j" Z3 E
          RowBox[{"(", 8 I7 B* p" ~- r1 ]6 b4 `' O  l
           RowBox[{
    6 Y1 t4 q2 _- v# N        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", 4 R8 |7 e+ m" N
         SuperscriptBox[2 C; a! l( y: F" m
          RowBox[{"(",
      c6 q  d4 ]3 g9 u1 ]       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    # Z0 \1 Z' K6 _3 g* }) Q     SuperscriptBox[. P! g! Z' A! D4 d
          RowBox[{"(", 1 `3 b5 I$ D' u5 i
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    9 y1 d5 V* ]9 {( R8 C2 v) @    ")"}]}]]], "Output",
    $ \$ }& M% _. W- ~ CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    1 A7 m# d5 m9 M  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
    : N( [' F; s& }- f/ z" F" B4 A  3.5779608945565863`*^9, 3.57801226165625*^9}]
    . b$ }& r2 H  g6 E2 z, t- ^5 ~}, Open  ]],
    - G) t' T' W7 ^6 Z
    & v' B2 g" g8 M" sCell[CellGroupData[{  m/ ]) N3 w: ~. l/ u

    - U8 S$ V+ n7 U; SCell[BoxData[, ^3 ]- b1 u, D$ {1 V3 b8 {& u
    RowBox[{"C9", "=", "Ca"}]], "Input",* [4 y3 I7 |2 D6 f/ |- L: J- c/ t# t
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    8 L# W2 u0 }- G/ c( C  3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],4 d, z+ u  c) ?2 P+ g# g

    $ |* \, C+ e! W+ }Cell[BoxData[1 V* Z- q' a6 w' R8 C
    RowBox[{"{",
    ! Q; U' N, H$ N, t/ j# v  RowBox[{" D9 C7 u+ ~: b9 ]! j
      "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
    6 R0 ?1 D) d* P! @7 @   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}], - L! q7 \( o8 ?( {5 j0 e
      "}"}]], "Output",: J4 Y+ N6 \1 y) R
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, ; Q. w! m2 e, \' x
      3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9,
    , _" ]5 g1 h( z, K  3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9, & y; z6 m9 ~# u/ A9 ^  s
      3.578012268234375*^9}]
    6 t, X' \, A* q/ U; M* O}, Open  ]],8 h( E9 Q: T) [4 B6 N  Y- J

    0 K$ _, y- ~  H' G" V9 V! o5 _Cell[CellGroupData[{
    ( d! R& D6 s8 c* @) B" _4 v. H$ C! z% Q7 Q! F
    Cell[BoxData[
    5 D* c% E7 V9 j5 i( Z) \+ Z  x RowBox[{"u9", "=", + P$ H1 p; I5 ], b# L& X* e
      RowBox[{
    " y+ d. ~; y7 E8 A$ {' s2 ]: t   RowBox[{"Exp", "[", 4 V9 f: ]5 F( K1 N6 O, O  T; ]8 `
        RowBox[{2 @# s) T/ B) N8 b% A
         RowBox[{
    " z4 o! w% T, F4 V  ?      RowBox[{"-", % v3 G' L: F! a/ e5 s. I2 z
           RowBox[{7 P% q" Z  O& z1 H- ~
            RowBox[{"(", ; x. C- H' V7 T
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    3 s2 L4 C6 f7 |( L9 r$ ?        RowBox[{"(",
    . [+ V" }9 o( E& c- Z( p" F         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    & g) j  G' T2 {( k) g; }# m     "]"}], "/.", "DeltaX"}]}]], "Input",8 ]0 H6 s1 _; h, f% e1 o9 ?  p1 }
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, 9 c9 Z2 r9 |9 W- |9 s
      3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],
    4 k; a( C) F' ~( m$ s- P1 V7 U8 I* m0 A
    Cell[BoxData[
    5 p7 g. R1 e. h" k% T SuperscriptBox["\[ExponentialE]",
    5 r3 Q( a5 x( x- }. v- Z& u- D8 {  RowBox[{"3.141592653589793`", " ", 2 s) M) q1 o& G. O
       RowBox[{"(", / o) t0 Q* {) {* S4 D9 H' d
        RowBox[{0 S0 A% s* Y: l6 Z
         RowBox[{"-",
    3 j0 D5 O+ [6 B( G      SuperscriptBox[9 m$ n$ O/ j) W) C1 K
           RowBox[{"(",
    % }3 u) r/ l8 I7 T7 @* u        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
    9 N. e0 H" K- D/ {5 w     SuperscriptBox[% }' h5 C, A- n) q6 ~/ h" Q. S, ^- I; `+ M
          RowBox[{"(",
    & M2 C% N& o4 X$ i9 Z! O       RowBox[{5 E% |6 }! d% A7 `8 |+ c
            RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", # L  H- t! h- h
         SuperscriptBox[
    6 Z+ c$ C0 w- p3 i0 V5 q5 p/ e      RowBox[{"(",
    " ]; V3 M0 G$ f: E       RowBox[{
    $ f) e. H$ D/ C/ C        RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    - J  N, S. y8 o     SuperscriptBox[0 m% H# r$ E/ s$ N/ q9 M3 d' D
          RowBox[{"(", 3 o1 ]% G- t, u- E. m2 e5 \2 v8 k
           RowBox[{  n0 `" @( V3 n% k1 H; a5 `
            RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
    - H0 H6 W  Q6 F; @& a1 q1 i0 m     SuperscriptBox[
    8 k) t8 V, t' n$ f0 W! c      RowBox[{"(",
    - H5 i6 Y2 N, E  T' E9 l! |& f7 D       RowBox[{
    , S4 G# G1 S' P% R' c0 U* U; Y; ?9 |        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", 7 r# f- o& u8 T* ~
         SuperscriptBox[
    0 U/ A' x/ t4 v, z      RowBox[{"(", ( A1 \& d" ?: h6 j
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", $ ^% T3 J. F6 M& r
         SuperscriptBox[: S. E$ h/ O* c# H6 F; l
          RowBox[{"(", # N) Y, a, Y/ _5 g7 F$ w
           RowBox[{
    . S: M0 M' K1 e$ r: H8 |- {) Q$ t6 t        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
    & B$ v1 O8 f* M- U     SuperscriptBox[
    3 U/ w& T; h6 k1 L      RowBox[{"(",
    # E2 B9 E& O  i       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", $ K. E3 W5 t1 P- x3 @5 M
         SuperscriptBox[' v% m) M1 {8 h- [) q( M
          RowBox[{"(", 8 s6 k& X7 ?6 o* Q' Y; T
           RowBox[{
    + \8 x% }  k9 W7 Y: ]8 n        RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], / t) X, m3 u/ Z( R
        ")"}]}]]], "Output",0 F" Y8 S4 _0 k# V, m$ c
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, ( H& N- K& r; w9 ]
      3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
      n5 y5 Z4 R# m, f, R5 P! h  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9, % s  d( Z9 ~: q" |1 l
      3.577961530421959*^9, 3.578012269125*^9}], v. \: o: O+ w
    }, Open  ]],( [- i& Z% ?  v, u! G

    7 v+ F. I4 B6 o- r+ G" V2 rCell[CellGroupData[{
    " Y% K# j+ f1 A- ]" M6 V+ S, }. @. I+ [: v
    Cell[BoxData[{
    ' m$ \0 U) j9 ]( b+ K) j& v RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
      _/ f" @* |( D3 a RowBox[{"u10", "=",
    / a; _$ l: _( K+ K: T6 @2 S! U1 U  RowBox[{
    ' D0 P# j' ]4 Z4 n' y   RowBox[{"Exp", "[", 6 a7 \* p8 P; e9 `
        RowBox[{
    # c( X( u1 x' F$ R, \     RowBox[{
    / u0 D3 _, {5 G* l      RowBox[{"-", 8 a4 M8 @  G# _& X2 e
           RowBox[{
    ' A8 ^; U$ d; a; _4 V& f        RowBox[{"(",
    4 G7 H/ W' U+ S1 B         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", & i" b) t8 s+ i# d$ s0 h
            RowBox[{"(",
    7 P# |3 c& U6 ?+ `% _' y% n, c8 M         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ; j' A: @& O4 L& |. |4 Q; \8 T4 ]     "]"}], "/.", "DeltaX"}]}]}], "Input",
    5 f# h- ^: w' q9 P- q2 z CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],
    % G  J2 w% `4 b( O8 D; l$ ]
    3 M5 q( r3 p' }4 vCell[BoxData[
    - n8 Q+ r0 j: |' B3 j6 w% a RowBox[{"{", 3 z+ H7 z+ P3 p0 |% ]2 e3 `
      RowBox[{
    6 `0 F. C, K6 s! z  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
    . X) T" ~% g; _$ e8 P7 P   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",+ R: n8 n( f# q" z1 o
    CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],! a) A/ m) h2 X3 z
    4 I+ k+ x$ n! o( m: B2 F: z
    Cell[BoxData[$ y; C( k  r- M3 m1 w) g. N
    SuperscriptBox["\[ExponentialE]",
    ; C9 k, Y, M+ |" v9 e% d  RowBox[{"3.141592653589793`", " ", ( l5 q% S5 ]- |. O
       RowBox[{"(",
    / l- x2 }  |# q% S, B    RowBox[{# F9 k# Q' O+ s. B- b
         RowBox[{"-",
    0 E% c6 H! d$ B0 z% F# M5 ]$ e1 s      SuperscriptBox[
    0 W& g( s. w6 ~! u' V       RowBox[{"(",
    ! X5 j; e/ r, \, t4 }$ V. j        RowBox[{% ?' g5 \& ^& T$ r" F3 l* \- O( i
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", : V+ H6 r7 p+ N; h
         SuperscriptBox[+ s  K9 ?7 Y) M8 Z- a! w
          RowBox[{"(",
    & B6 u% U0 U9 O       RowBox[{/ M5 ]2 c7 D/ R; w6 d+ o
            RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
    ' E: K5 U: O  ~' j" `     SuperscriptBox[0 J8 E- u/ k; w/ B) t! l, k0 s
          RowBox[{"(",
    8 ~4 P6 _5 o; [" d       RowBox[{, {$ f$ u2 p6 ~, M
            RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
    0 j5 q  x  o$ h" v! I     SuperscriptBox[5 l7 y, ]9 }2 u' q7 ]) V5 E5 W
          RowBox[{"(", " E' @, k/ [8 X2 J9 z
           RowBox[{* d' Q2 a% E* I' L* }3 {" X
            RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
    % f3 y! |. F; d, V: `% ]) n: K     SuperscriptBox[
    6 E' m5 o* o, _      RowBox[{"(",
    8 v; k9 Y' J" o8 R& v% B, n       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
    7 d6 O0 Z) a  c# \5 n1 Q     SuperscriptBox[5 s# [. E/ s+ ]0 x* Z, V
          RowBox[{"(",   v: q/ i& ?3 V, v/ T" I, ~. K& l" X* z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", " Y3 @' |2 @4 J4 s5 ~0 X
         SuperscriptBox[8 G; o" b9 L' [" {" X( F2 C
          RowBox[{"(", ; j/ s; _5 n; e: f) @
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    1 u" k! t  b9 \& I8 X     SuperscriptBox[- p; Y2 v, r6 c- q' I# ]
          RowBox[{"(", - K) }% E8 f6 G4 ?& M# z  V
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    " x) ~+ n( _! q     SuperscriptBox[/ |2 C7 T: F5 I* W6 b2 j1 B
          RowBox[{"(",
    & A+ ^( v( J! H3 R- h2 @: `/ \       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], : E$ U! y0 O  }$ \2 g. v  O" f
        ")"}]}]]], "Output",
    5 `7 P" N$ M3 n/ {; v) Z5 }- B CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]% }) ^. m1 ]/ v" o5 \
    }, Open  ]],! Q2 |# a( I1 s3 q/ {
    : `# p9 E' ~$ d8 |
    Cell[CellGroupData[{
    / V) H9 U. u5 o3 @% q+ a( M/ ^7 a
    Cell[BoxData[{
    1 D$ S. O5 b! ?) L RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]",
    5 n. J% d) ^: ^! N RowBox[{"u11", "=",
    ' s. M2 A% P9 t* `9 L3 k$ C  RowBox[{
    7 N& g6 t, G9 O7 t. U! u   RowBox[{"Exp", "[", : g6 ^8 P/ }) y  M! L
        RowBox[{& R, C  Q( I' y3 P& R( J6 ~) f
         RowBox[{
    - K& T% \8 J0 `1 W      RowBox[{"-", " z4 D9 Z) H# k( c
           RowBox[{
    % h/ H- u& z/ f; {        RowBox[{"(",
    " K) S. Q5 J( O2 @/ ~         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 7 s0 A/ i2 i$ R( F' e5 R
            RowBox[{"(",
      h  x4 N+ J6 H: `/ k  `         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],: B2 M) ?- h: }9 j
         "]"}], "/.", "DeltaX"}]}]}], "Input",. N, l: T1 x% `3 T* R
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    # Z& S) R2 X5 k  3.57796154237158*^9, 3.5779615434011817`*^9}}],9 C& ]& w3 X* C9 Y7 |& p/ ^

    - M( G. j6 f* @$ g9 B" kCell[BoxData[1 a# x/ b% s( E
    RowBox[{"{", 8 ?* a$ a8 |0 B, A) {% C. _
      RowBox[{9 B& w% W; j5 v5 X
      "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",", 4 P) T& `& W- k
       "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
      y( ~. P, f- F$ c( v  "}"}]], "Output",
    % w; l% V- [: N  U* G: n  m( M/ M, J CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, 6 U' a6 b) {& o  g9 V
      3.57801228203125*^9}],: H3 I+ b2 \) w0 ^- X

    ; ^6 h- {7 ?1 X$ I5 B" k7 J! v' }Cell[BoxData[. L4 V- @  l4 i  d2 }
    SuperscriptBox["\[ExponentialE]", , x1 v9 P$ J- W3 b. x* E2 Z# x
      RowBox[{"3.141592653589793`", " ",
    ) q/ _% W" B; b# e   RowBox[{"(", % M' S3 @2 @. o& I+ U/ ~6 z& o% S
        RowBox[{2 N7 u2 p# J) S. y, `4 Z) o; H
         RowBox[{"-", . ^3 J4 H7 z6 |. i1 x
          SuperscriptBox[
    , ^+ N0 V$ z. }9 o1 G2 [: N+ F       RowBox[{"(",
    4 r1 p2 r) R6 W' T. B/ u5 T& n8 \( y        RowBox[{; \, n: W# E$ M7 H7 B  s3 C
             RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
    7 B! r, p. l( h     SuperscriptBox[1 m, j+ Q1 D; }3 b3 Z1 ~# _
          RowBox[{"(",
    $ `; i0 S) E( O7 c5 t4 J: W       RowBox[{+ ^( U$ ]# D* g* s
            RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
    + c- s- T& C$ C& X) {, Y- G     SuperscriptBox[7 N% ?3 j) o+ }& d  c$ ~6 q0 G% X
          RowBox[{"(",
    2 r1 C7 z% M& h$ l       RowBox[{
    8 t1 _) a; J: h& ~4 q        RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
    1 n3 t) N* `- G/ i; _# l     SuperscriptBox[
    6 m$ I7 W8 r0 o      RowBox[{"(", 0 U+ R; b) X8 N1 k' J7 a' t) V
           RowBox[{2 k% [: U% G0 Y2 @' Z
            RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
    * s1 Q# \* l1 ?, \$ _9 Z     SuperscriptBox[
    2 p* M( i- m) e      RowBox[{"(",
    ! Z7 n+ Z1 @* z; x9 m       RowBox[{
    5 C' G5 V4 I$ l, r# A% \% S% B2 p, k% p        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
    1 i4 ~- C4 b/ r6 V2 G# o. N     SuperscriptBox[
    ! u$ A) F2 R* X+ b8 C      RowBox[{"(",
    5 x- n% @. p# w2 I: K+ r       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    / Q8 ]" o$ ^7 B     SuperscriptBox[8 I+ v! N3 C& S  E
          RowBox[{"(",
    ( R  S/ z/ y' _& Z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    ! a$ }' T8 b# O, k     SuperscriptBox[
    " u7 ~, l: M  ^, {9 l/ ~; c" D3 H      RowBox[{"(",
    : g* I5 ?; u! v       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 9 d7 a6 c+ T. |. H0 D
         SuperscriptBox[* ?5 T' r# ]' h% z* q9 L/ t6 c7 i
          RowBox[{"(",
    # O- {; Y& V7 ?; u8 Q       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ( N& P+ A9 y" c( }6 ~
        ")"}]}]]], "Output",% L: l2 h" u5 p/ ~  R3 z* I
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, : r5 f+ X( R) }6 v1 Z( O
      3.57801228203125*^9}]
    / M  B6 l, C9 Z5 b% a6 r- i0 K" N}, Open  ]],
    0 I+ K! [& ^. R& K: ~( O& }1 x, N  L
    Cell[CellGroupData[{0 g9 \) D) c6 ]

    % ^9 @  Q1 G' ^2 BCell[BoxData[{# M! E8 p7 P- j- Z
    RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]", 5 a9 k  u; t) H% x* Y
    RowBox[{"u12", "=",
    7 {& F% z" l5 i& K. m# [3 ~  RowBox[{
      `# |) o! ?/ e2 J   RowBox[{"Exp", "[", / @7 j- h7 h9 o) [" Q8 _' \* h
        RowBox[{
    7 d/ o; V1 x& C# I4 V% ~; Z     RowBox[{4 K/ Q! h6 x- |- o6 W0 \
          RowBox[{"-",
    ' S+ P7 G3 T1 @       RowBox[{: b9 N3 u" V2 Q# Q. ?
            RowBox[{"(", ' I! Q8 z  `+ H; h9 K- K" O
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    4 Y& M. \; L1 q' U0 r        RowBox[{"(", / F$ S! y5 l1 z, n  `4 [
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    : p$ A# ?7 ^- d1 W4 T/ [( L' r# ^     "]"}], "/.", "DeltaX"}]}]}], "Input",
    * F  P% X8 n0 b( z" {9 h CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    . G8 F0 L& @9 Z& U' s+ m6 p8 F4 ?& r  3.57796154237158*^9, 3.5779615576284065`*^9}}],5 y1 U! V. q9 T5 @' a! ^& v& n

    7 H0 [8 F  d$ q* g/ F$ s' c; DCell[BoxData[) w7 h, Y" X$ Y
    RowBox[{"{", ' G$ u+ `0 S+ e+ w6 ~
      RowBox[{
    ) F9 L; Z* q# H8 R$ n# ]# d+ a  "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",", + D3 a3 h8 N0 ?, Z* u1 H
       "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}], 9 z, O# Y( p$ T4 P7 v3 Q: m% j
      "}"}]], "Output",5 @. p; m/ j/ W/ |) O
    CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],0 k4 X+ |. R8 L* u

      J4 T  w  d! ]8 N5 d- [# eCell[BoxData[( Z/ S& x& K2 f
    SuperscriptBox["\[ExponentialE]", 3 Z2 @2 a" |: A( L5 |4 J- v
      RowBox[{"3.141592653589793`", " ", % b  j+ i7 p. O8 Q. F
       RowBox[{"(", : `" H* g1 h2 U3 [8 f
        RowBox[{
    % [" v. J" w$ R! _1 {6 V$ ?     RowBox[{"-", - S/ b0 b' Y% M" w4 d
          SuperscriptBox[6 ?5 p7 h6 ^$ _. l* \5 T
           RowBox[{"(",
    : n6 ~- R( G7 V/ ]" r6 c7 `& \        RowBox[{
    + K/ t) k1 M' j' {; P         RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",   E2 E% v) J% I5 w
         SuperscriptBox[; |: o" b* B2 x/ g5 J
          RowBox[{"(",
    # [) ]6 I4 V) I       RowBox[{& H0 h6 \2 ^# X/ F% S  z' q
            RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", ( y5 n0 R6 P2 A8 v2 _
         SuperscriptBox[
    4 z, c) b& n1 }, E& D/ j" H      RowBox[{"(",
    ! a% t: x1 D  L7 n/ R       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", 1 }0 H; j2 F1 \+ A) Y- n
         SuperscriptBox[+ o! S+ d9 Y" Z1 C1 Y
          RowBox[{"(",
    3 W, \4 D, D$ \4 x! A! y/ J1 o+ r       RowBox[{, p1 {; u- P- a
            RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
    2 G: o  \/ j2 \, k     SuperscriptBox[
    * ?' r+ u% T" ^! K! _" {0 `- k      RowBox[{"(",
      n0 ~7 A3 S( C       RowBox[{/ F: r& s! u4 O+ W
            RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", ! }3 b2 Q# }: z/ k( m
         SuperscriptBox[
    " V$ g8 {- h9 z) ?; c      RowBox[{"(", & [5 _  _( x' A$ g. Q
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    + C, Y+ J% H  }5 o9 w8 N! y+ ~/ I3 `     SuperscriptBox[
    - q( `  y# }) f8 `      RowBox[{"(", % }0 q7 l( J# D# v
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    $ Z7 q" x! r9 M) b6 e. N; R& a     SuperscriptBox[3 ]1 A  u) ?# A9 ]$ ]
          RowBox[{"(",
    $ l6 e0 X. O& g. l% t" i; w; u       RowBox[{, C6 ~! q# K8 B& |% F. O' ]* e+ b
            RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
    # |% N; |3 C, G  n% {6 |3 l+ D     SuperscriptBox[! m5 E! A+ A5 y7 s( P
          RowBox[{"(",
    ; {9 V! f4 l( g       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], / ?( j( H0 v. o" x
        ")"}]}]]], "Output",
    ' H$ `" z% o: I) U$ ~; S, K: I CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]
    7 O, r/ n% ?- l' z1 A}, Open  ]],* m2 |" R1 p& h1 ?+ M2 B0 P

    - y$ O; T2 n" n. @8 JCell[CellGroupData[{3 c" \# N. t% O

    5 v+ ~9 Z$ T9 k* _Cell[BoxData[{+ R& w) Q4 a2 L& J7 ~
    RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
    ; x) P* w, M* j" H* ]9 y RowBox[{"u13", "=", 3 R  ?+ `# _0 h2 Q  T5 G0 v& r
      RowBox[{8 }  ~% H% E( D, W' Z% g1 k, V
       RowBox[{"Exp", "[",
    . r5 n. G! _  c: ~% Z' I    RowBox[{
    ) @- t0 |& k/ _     RowBox[{
    4 C* C6 `' q/ T- \; g+ w      RowBox[{"-", 3 R; ?# n( R" G, U- l! {2 S! y+ w9 r3 f
           RowBox[{
    + K" t) e6 C& r. \        RowBox[{"(",
    4 r$ D4 G. T* q, V0 P/ q         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 Y  ^! x1 q# |! d
            RowBox[{"(",
    9 e8 a+ w: y% Y) t         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],) i2 Y/ G  r& M
         "]"}], "/.", "DeltaX"}]}]}], "Input",$ s2 h! N% m8 ~% ~* Z
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {, P; z# d7 _: e! |# z6 j4 F, H
      3.57796154237158*^9, 3.5779615599684105`*^9}}],
    , h! Z" z6 B! I$ n. i  y, v
    0 g6 O! _- C5 e$ t, VCell[BoxData[* \! w5 I6 ]9 _  f/ n9 D; i
    RowBox[{"{", + @/ s( m% w- q* @9 v* Q  s! i4 }
      RowBox[{
    7 X6 H6 G( n' |# I* h2 O' Z) T, |  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
    1 Y" p+ ]) l1 B# u# P1 [& i   "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
    1 e5 _0 |; I/ o. d5 r+ p" q& I  "}"}]], "Output",
    ) H, X& }; s- m$ n CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],0 H* |* d9 j: h# Q
    : e, v& `8 N, A
    Cell[BoxData[
    ! a+ Z# ]: _, [4 ` SuperscriptBox["\[ExponentialE]", / c8 F' K6 z$ i  I$ d$ ~: r0 f
      RowBox[{"3.141592653589793`", " ",
    ' Z+ Q& X: ^( G! H   RowBox[{"(", 2 f' R) V- w3 b3 f
        RowBox[{
    0 _9 \# a+ o- r* K4 l, B3 b1 I     RowBox[{"-",
    * I$ @5 m2 z7 H1 o  V      SuperscriptBox[
    + r4 N- W7 ]7 `, _. C0 D+ I       RowBox[{"(", ) s: z; _# g/ c5 E& l" ^
            RowBox[{
    5 n# e* H# ^& x; e         RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    " y0 H, H4 ?2 ]+ @$ Y     SuperscriptBox[4 U0 D( m* b6 J7 H4 F, N. A( ~# C* d
          RowBox[{"(", : F( E# d! |3 \" f. m7 |" D# m
           RowBox[{
    , [# x+ ~! U2 E) z. [# t# ]: ^        RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", 9 m& P8 K1 \5 |5 _* q
         SuperscriptBox[) |) g* z6 _# U# z7 ]0 q
          RowBox[{"(",
    6 i; w5 T/ b6 `6 \       RowBox[{
    & U/ F9 q. W# G, v8 }" a/ A% B( S        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", + `. Q6 E9 R% J" P  `# G( b
         SuperscriptBox[
    7 i9 `2 q* g3 d9 C7 e' S5 L      RowBox[{"(",
    & V( h4 H5 n1 S" M- r  O       RowBox[{
    9 {! v2 Y( i+ _1 t- e) W4 I. A) }        RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
    / v8 e6 R9 l0 i; w! y     SuperscriptBox[$ n+ G, Q9 T/ U! W0 b
          RowBox[{"(",   V0 n. l0 R4 ]- ^
           RowBox[{
    1 T" E  T! z, n% s% G$ A6 ^- j        RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
    9 `+ L1 Q: ]. M8 D) P& ]     SuperscriptBox[
    3 A0 v: B% b/ f% K9 z" i8 h      RowBox[{"(", & ?$ m$ R0 e5 l5 q8 z: P
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ; g5 o) i% ]2 f7 [
         SuperscriptBox[! f% P' `$ \2 m5 K& ]7 q% E
          RowBox[{"(",
    * \" @( P. T. \" ^* |       RowBox[{
    9 R: J6 T, U  g2 ?% V8 O        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", 6 q4 ~' W* L* j7 f+ f
         SuperscriptBox[
    + }, @, w4 `0 X% c9 p6 j  F* b      RowBox[{"(",
    ' d! ~0 ~2 c! A" `  U9 h       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    $ j% j5 s/ k; {1 u6 l  }& U     SuperscriptBox[
    ' R" W9 S6 [+ s! n1 Q0 W) T      RowBox[{"(", 7 c% ^* h2 Z$ L! y
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], " [) g! s0 C% x+ ^" y" {
        ")"}]}]]], "Output",6 v6 Z% W( [/ m# H: v- Y0 q0 c
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]
    ; q8 [& g) ~9 C. |5 h$ q, R) H}, Open  ]],  K: G: q- D' i; l, g+ r) y: f! n
    1 U. ^* l) ~/ K7 s" T
    Cell[CellGroupData[{) H8 i+ a% f* h2 h' G/ K

    : n: p& q! U. e' {5 TCell[BoxData[{
    ! E  d# Z  N. }/ _' f RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]", 4 C% d, z, [! C/ O. S- U
    RowBox[{"u14", "=", 2 b6 p4 B2 [( Y% @6 h
      RowBox[{4 {5 F/ _" V& r1 v* r, b
       RowBox[{"Exp", "[",
      P  T( }" Y1 b    RowBox[{. U1 @9 W, i# \: q9 p
         RowBox[{% }! ?, @5 u% K. o& r9 }
          RowBox[{"-", " m5 v/ I# t' K( {4 K1 K
           RowBox[{2 A" U. e! m  i; u1 ^1 o# a- A
            RowBox[{"(",
    " o/ z- F5 c4 o4 b' m& u6 ^         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    # J$ Y  t0 E1 D+ O" O& g7 \- N        RowBox[{"(",
    8 ]* b# `9 [' T1 @         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    3 Q" `2 K# x3 Y3 Z7 a% `/ ?! T1 g     "]"}], "/.", "DeltaX"}]}]}], "Input",( b1 H. B) \* b
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {* e5 m' t$ I( j$ O  ~  O. j9 l2 u
      3.57796154237158*^9, 3.5779615663176217`*^9}}],
    4 O. j% H4 S( t5 H" m
    6 B: Q' _, N& vCell[BoxData[& ~+ O' X6 L- W3 d; V
    RowBox[{"{",
    - m( }( u( [5 d0 y* q7 y  RowBox[{
    4 j* f7 U8 Q9 g/ F. m  "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", ( w, S0 B% D8 K. Y+ K
       "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    # c; A# \/ l2 f  "}"}]], "Output",. ^1 Z$ n& N3 Z
    CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],, R( t2 M! l0 H1 T
    1 i" a8 A6 t$ l4 J* P# j- V+ c
    Cell[BoxData[7 s$ i  n7 }7 Y: d1 k$ y/ X( u
    SuperscriptBox["\[ExponentialE]", - `" X/ i; P2 m" M9 I: }
      RowBox[{"3.141592653589793`", " ",
    ! ^9 L, h/ |6 E1 N9 `' h   RowBox[{"(", ; m" J4 l, ^% }$ M. N
        RowBox[{& r9 b9 l5 }9 V; S
         RowBox[{"-",
      b& m8 _6 R4 b6 ^! N      SuperscriptBox[4 v  j/ b4 a* ~: y1 r
           RowBox[{"(", ; N* o' r( s) N& {/ R- B
            RowBox[{
    2 o9 X) Z6 B) Q         RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ' T' Q0 j3 }- ~1 Q/ k2 ]     SuperscriptBox[
    * ?8 u% W  \  ~# K' {7 P      RowBox[{"(", % G! _) Q/ ~! T
           RowBox[{% A1 b7 H$ v- d
            RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
    % D. X4 x. }; N% @1 m, U/ L     SuperscriptBox[
      ]; u: ?, @6 m9 b4 |# G      RowBox[{"(",
    ; t8 x+ I: b7 A( h2 K8 U  Y       RowBox[{
    5 d( ^+ V: z: S        RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", 4 ^8 {7 I/ J1 v8 S: _3 Z- {
         SuperscriptBox[
    * w6 ~, u' k# Y+ f$ x      RowBox[{"(", % H. X0 B% k* B! j1 c- K" R
           RowBox[{
    , f4 n0 u) G9 Y7 G" m/ J6 ?& w+ i& g        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
    1 b6 s* m5 ^* G) M% q5 A% F     SuperscriptBox[. W' m; L* u2 w" W% k, q) L$ T4 }, ^1 p
          RowBox[{"(", $ l& x4 _' z4 Z
           RowBox[{
    / W& }5 T' I' X' q* h1 w# b        RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
    8 j$ y4 m' u( g% R     SuperscriptBox[
    * q! L0 G: T1 Z& b8 J      RowBox[{"(", # o& [& M+ \" n# X' |% O; O
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    6 f; S, ^1 m% i( {& Y     SuperscriptBox[" L4 E7 z! P8 x" e
          RowBox[{"(", & K& Z" Q6 o+ }0 Y" ]
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",   `/ A6 e  X2 Y- }/ J6 `$ L
         SuperscriptBox[4 s! R$ b" r7 V7 ?$ Z
          RowBox[{"(", ! F1 ?7 o& T- `6 E1 G4 I4 m  \& g
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    3 C0 u% r2 _$ c% E     SuperscriptBox[) L, Y3 l7 M& u- q
          RowBox[{"(",
    9 ?$ ~! a7 S2 o; O1 `3 k       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    $ o  a; M: }. e3 W' G$ V    ")"}]}]]], "Output",# }2 B7 ]! b" y( l4 V  n
    CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
    , n2 `6 R- R6 M2 f}, Open  ]],
    ' ~2 ]% |& ]) I8 ?2 H
    # }& E2 V9 t& Y( C+ LCell[CellGroupData[{5 ^0 [5 W) h; L8 Q5 h4 T6 @

    6 U2 _4 L6 _  YCell[BoxData[{7 S% l4 T" l/ S
    RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]",
    1 i! h1 F8 Y- E, { RowBox[{"u15", "=", 5 r1 U3 c0 v, q. L
      RowBox[{7 k. Q; {* [) t7 `. Z
       RowBox[{"Exp", "[",
    * s  y; Z. @; d/ N, H8 g/ m    RowBox[{
    $ a, Z! q3 j* n* r     RowBox[{
    2 X4 C# X: h4 S: e      RowBox[{"-",
    , X2 a! K' T: E       RowBox[{
    ' D. ?# ^, g6 e        RowBox[{"(",
    " j" ~# t5 s/ D& q0 J- s         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    0 S" d$ N+ L- ^, C; w0 b9 B        RowBox[{"(", 5 a$ O7 H" X/ J8 b2 h0 W
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    , C6 J  X6 B! a6 _  Y5 t2 f: u& y* @     "]"}], "/.", "DeltaX"}]}]}], "Input",
    2 q! y# [5 T) p' Q% o CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    6 G7 l9 s! u- O" t2 E6 k6 c2 J5 l" I  3.57796154237158*^9, 3.57796157098203*^9}}],. ?. T% H+ q% q5 j4 ?' H

    ' m* {- q$ z7 D7 XCell[BoxData[4 Z, y" G5 n$ {/ ]7 W( X& ?
    RowBox[{"{",
    / o' b$ x3 [/ b7 w" b3 H  RowBox[{! e& k7 K4 R1 k! k
      "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
    0 y) U. o% |4 [# G   "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
    # I2 y% [( ~& V9 g4 x( M$ p, C  "}"}]], "Output",
    / _& X8 e: L  E0 P  F5 h# m! M CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],/ Y; [7 K7 ?9 F3 m# ?7 o' D5 ^( o
    % }+ ^. K6 J7 s" N; V8 N
    Cell[BoxData[* G* _' V; X% b* H
    SuperscriptBox["\[ExponentialE]",
    ! ^4 H* A) v1 I2 P  RowBox[{"3.141592653589793`", " ",
    0 C5 ^5 q, g$ O   RowBox[{"(", / @3 S: j) b6 s6 f" T1 \
        RowBox[{
    2 I0 W# k1 L& R. s! x     RowBox[{"-", 1 S- E# f9 Y& p) n
          SuperscriptBox[: Y+ l6 I- U& ]& |1 T
           RowBox[{"(", 3 ~" s3 z  |& y3 T( [
            RowBox[{
    7 y" h3 X) r) ?" g         RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
    + c# ]& [" `" \7 Y7 ~9 C9 C     SuperscriptBox[/ D" r- ~" x& F/ X
          RowBox[{"(", 9 h, E4 k- f+ t4 ^, L* ~6 `
           RowBox[{/ d1 {# y$ X6 v
            RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
    ! O, H2 k: N; l' V     SuperscriptBox[  d0 |  C( }& h5 \" Y5 b
          RowBox[{"(",
    " K( e9 M/ r* B4 y! o6 `       RowBox[{
    & M, e/ ^4 q. Y, T2 S5 v5 W. c4 v4 l2 \9 W        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", 2 K9 X. `7 }4 v$ T, v
         SuperscriptBox[# s) V2 [! R& I4 Y# D% a: @0 u  j; y
          RowBox[{"(", % T8 B0 P. `2 p) ^  I2 p8 V
           RowBox[{
      @$ b  l, c- l& z        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-", 6 C: C6 Q. h  s. x% }0 h
         SuperscriptBox[
    $ j8 [, E( G! j' X6 J4 D      RowBox[{"(", 1 S7 G! a' n8 Z* ~/ q7 o
           RowBox[{% d! P8 X1 r! g: F! d" \8 @% I8 [
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    : v% g8 I* M8 [) {- s& M  G5 T     SuperscriptBox[
    ) t% G9 h- G$ U! h& X3 H      RowBox[{"(",
    + t! v. N; S! M4 X       RowBox[{8 S- y: D- W! j
            RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", ! `* ^4 G( Z$ v/ i" y% L: X: Y. [
         SuperscriptBox[4 Q& J: W' E4 A. {
          RowBox[{"(",
    6 V. I( B4 w0 c9 M$ a; u6 A" y! S       RowBox[{
    ( a7 \- G1 m: ]; l% u        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    % W: F5 `4 p  K& {2 b% R! U     SuperscriptBox[
    5 U9 J, w  `1 v6 ?6 ^      RowBox[{"(", , s- [# |% _9 z; e: o( k
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    % P* q9 [9 f' g6 Z+ d2 h     SuperscriptBox[# h, d0 L0 I# a. k0 X7 I
          RowBox[{"(", 3 V8 g  N1 r0 j7 G% L# B
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], $ Z) f0 J- \- ?
        ")"}]}]]], "Output",9 E( v2 N8 @; ^) |1 ?
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
    / W# b+ p( e1 i: Y/ e$ y}, Open  ]],
    % |( o, J# ?8 J4 c; X$ z# q+ j7 j$ l- ~7 }1 P! i! m. X) y
    Cell[BoxData[
    * T1 N  @' Y0 @1 M% ]! | RowBox[{"For", "[",
    * C1 T( w0 r- C7 I' a  RowBox[{  F  a6 j2 }& g4 n# F5 G
       RowBox[{"i", "=", "1"}], ",", ' P5 q4 {2 i9 _1 _. p
       RowBox[{"i", "\[LessEqual]", "9"}], ",",
    ( H" z, R! B& m   RowBox[{"i", "++"}], ",", . @8 \0 l4 [  |! _( A/ M" J
       RowBox[{
    / Z0 k( A: t" I    RowBox[{"Ca", "[", 5 ^0 b" y) ?; ]# M! _. E4 G
         RowBox[{"[", "i", "]"}], "]"}], "=", 2 L) \* F# f5 L
        RowBox[{"CM", "[", ; ~( `2 B3 l6 G4 n6 b. K1 O
         RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",* y0 x5 F  D, o5 k. w$ p* t
    CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
    0 P. n' `9 ~0 q% X% C
    . L/ L; H/ G& A7 J+ K' h  xCell[CellGroupData[{- s3 T0 q8 H( w- |" ~
    / X) g: I' H5 P" V
    Cell[BoxData[{
    8 z3 W' P/ s5 E" ?4 x8 P2 U RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",
    4 V) f" L1 b1 y. R RowBox[{"u16", "=",
    / X% H5 H  f& b  RowBox[{2 s  f4 ^; O+ O. R
       RowBox[{"Exp", "[",
    $ v' \' K7 @+ B1 @    RowBox[{/ e" V/ f2 _; u
         RowBox[{
    # e$ u- y8 }4 T9 m! {) L3 [      RowBox[{"-", ( ^% b9 v; |* t: q. N% N/ B
           RowBox[{' {% ^8 k/ }9 P7 N; n/ j
            RowBox[{"(", # R- k: B: X8 p# y- Q# Z4 Y& k
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ; u5 E1 M6 D7 w2 }  Y1 J) ^; }        RowBox[{"(",
    1 L& j3 T. W1 ^" k& n& p1 x         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],; l' V: [$ |8 j
         "]"}], "/.", "DeltaX"}]}]}], "Input",: A) T9 @* k7 |+ T8 u: h+ ^
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    0 V4 d6 F: |. y- l+ w' u) V8 q  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9, - z8 r$ U7 Z+ f4 j
      3.5779615751004367`*^9}}],
    3 h, _* n% U$ Z+ z# o$ Q
    * m) l$ t* W- k2 w% p: Y2 h$ sCell[BoxData[4 s1 x+ C. G7 d/ `/ R, t8 a2 q
    RowBox[{"{",   ?% w1 [+ ?  g
      RowBox[{$ t5 \' o& M; I
      "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",", , t% D& V) C, U8 N' t2 I1 {- T
       "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}], 9 p& {5 z: c, r: x
      "}"}]], "Output",
    , m) f0 [0 K, } CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],3 z7 e# L9 n' n% \8 h) W5 W
    9 M; X) V$ _: t0 H
    Cell[BoxData[9 X, k( q' _" `( K7 M
    SuperscriptBox["\[ExponentialE]",
    # K$ Z) @7 x5 p* ^, z* X% r. r  RowBox[{"3.141592653589793`", " ",
    3 L) V8 i" t! c0 [- A# V5 M. }   RowBox[{"(", + Y9 m! {# H4 J0 A& B
        RowBox[{9 w1 ?: w9 Z# l3 E8 m
         RowBox[{"-", - O, z4 m6 L8 c+ ^
          SuperscriptBox[
    7 i4 S  U/ x6 J# p! C       RowBox[{"(", 2 [! C6 u  A8 l$ k
            RowBox[{- r5 a9 B( s; c- L) q5 _+ _
             RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
    2 [. Z# y+ @% O' C     SuperscriptBox[( Q' e; r0 r( j8 N1 A1 ^
          RowBox[{"(", ' ]7 c, ~1 j' x4 c
           RowBox[{2 b/ ]. {8 c0 d- V8 N4 y1 |0 r
            RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
    : d* f3 T: x8 b! [! E. J5 p' z; ~     SuperscriptBox[
    7 f1 g6 C% }! r# L$ ^3 s      RowBox[{"(",
    9 ]4 ^4 u5 b$ S' K2 v$ ^$ Q       RowBox[{
    4 b/ r' t: i" Q        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", " w* J8 Q. H, v, Z/ `9 d9 T  A
         SuperscriptBox[( h2 {  _1 q, v3 g5 K
          RowBox[{"(", 3 H) S  W8 R5 U/ v) P
           RowBox[{7 X3 d) o# X# G$ W$ x$ Z' C
            RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", 3 C( d% E( X. ^  y% {0 f
         SuperscriptBox[  }. m1 V( W- W6 x
          RowBox[{"(", 8 L  w: O) D/ [) S' t
           RowBox[{
    6 D( {& w7 }6 R2 k6 U: {        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", " ~! C: x' o/ m/ V
         SuperscriptBox[
    : |8 V) K' s. p. d) x1 Y5 H      RowBox[{"(",
    ! }$ y" R4 M- C! |' a9 V/ G! [- U       RowBox[{
    , u. `5 e# P5 J, X  i) p        RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", " m& w1 x  F1 Q; b3 x  f. M- f
         SuperscriptBox[
    : w- N7 F5 x! _; Q0 W1 o      RowBox[{"(", 6 n) o2 @: N$ @# X# ^4 }
           RowBox[{$ k$ ?% Q& s7 ?) e' ?1 V$ Y
            RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
    & B3 r) M$ J7 K  ^     SuperscriptBox[
    4 y$ z, e4 F. F$ o/ s' p( }      RowBox[{"(", 3 [5 ~7 V+ J( Q9 O
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 5 i; E! S! L' Z2 l  w7 y/ D
         SuperscriptBox[# ?( h+ F4 Z; c4 o: V7 I& v
          RowBox[{"(",
    2 S! l8 b7 s, Q  ]! U% z& W3 \       RowBox[{- @2 ?, @4 t4 W+ i0 A8 g
            RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",
    3 V9 f1 C; X$ j- z/ \4 M& j CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]" v. b- |- I# N$ U7 ?. [( ]
    }, Open  ]],
    ! T6 G! \0 I* n6 a4 K  n' }) o' }7 d( n* }: O; y
    Cell[CellGroupData[{% Y) ]) A. Y+ \9 s  M
    / S, j* ?- z$ H8 j- J4 y
    Cell[BoxData[{0 @7 H# }4 v8 F) k
    RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]",
    8 T" q& N! t, j( I6 }8 [7 {. X RowBox[{"u17", "=", 8 C. i1 M8 v) y/ H; `) ?
      RowBox[{
    7 u: E+ N" C) Y2 }7 E   RowBox[{"Exp", "[",
    & z% ~) U" s% z/ R$ L, W    RowBox[{
    ! g6 Q3 s: R& ?. V0 K     RowBox[{! f3 `, b, i8 o* a; R
          RowBox[{"-",
    8 I$ n5 t1 V8 y% I3 {       RowBox[{
    - ?# T, K; ]% _, m8 J7 }' J        RowBox[{"(", 0 C+ ~' u0 X; |. }; y
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    6 Y2 I! b7 g! z1 e; u2 z        RowBox[{"(",
    6 l7 Q$ s; k9 Q. }         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],- i' J/ O! x7 N3 `# J2 O
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    0 C0 c9 |6 @/ r8 Y CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {+ |$ \  S3 [- C% B6 r& ~* M' \+ ]7 H
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9, / l7 p0 t$ D$ ~& K! D2 n+ h& \
      3.577961578953644*^9}}],
    + Y+ k% i( ~: {& O# W, I
    2 e7 T$ x. K6 M6 F- s+ u" zCell[BoxData[2 e' M# M0 O' w( Q0 ^: q! J+ e
    RowBox[{"{", & _/ `/ I3 l5 W. x6 T
      RowBox[{5 M5 q7 b( F2 e, `# D
      "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", ; X# ^# k2 D9 g2 J
       "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}], . g: f4 v0 C# T4 [
      "}"}]], "Output",( v$ @: c! @* S( {0 j1 l
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],( Q# C0 h" R; l) @2 g7 Z0 w& |

    * P5 B- N0 C" m- }1 N4 UCell[BoxData[3 |  A0 e) k" r; D( R# Z
    SuperscriptBox["\[ExponentialE]", + R  ^' S+ S5 D3 p5 M$ v/ Z
      RowBox[{"3.141592653589793`", " ", % x! y5 M1 R: r: {+ s
       RowBox[{"(", ) T. ?. q$ y' |
        RowBox[{
    ( E6 \+ A  O; w3 ~) `' v- ]     RowBox[{"-", 8 m% r, `  S2 W8 b
          SuperscriptBox[  Q  B1 H; K- |
           RowBox[{"(",
    ( K' p. S  V$ |        RowBox[{
    4 r- V9 p/ N! H  E         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", + ~1 a) g5 g4 v8 I
         SuperscriptBox[
    , w! K2 p; E$ r. c. C5 I      RowBox[{"(",
    - z" O+ c. c, H9 ^5 g1 a       RowBox[{& |- R! m8 o! U+ u( g  _, n
            RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", ' ~& H% f  l, [( k6 K) l& W4 e  v+ `
         SuperscriptBox[7 O: t2 @+ a9 D8 u$ V# G: W. u
          RowBox[{"(", 2 z  v1 e: D8 L
           RowBox[{
    ! n* o  c, ?& h3 T8 p, H. h        RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", , r( ?/ {6 L" |) D; U# L: _' G
         SuperscriptBox[' B7 n7 I, z9 d/ T
          RowBox[{"(",
    % X0 [9 T9 _: j' L8 C, @; z       RowBox[{$ F; d5 Y" F, \
            RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
      _* [5 g  h7 H" V# G, t% ?; e     SuperscriptBox[' F* E( B$ `. c& L4 v
          RowBox[{"(", - q& u/ M$ Z3 A# p4 c7 q
           RowBox[{
    * F" T- C# |; m" |0 e        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    ( t2 \" L; L* \     SuperscriptBox[, T0 ~8 L& R$ H7 u  U! o. M2 `
          RowBox[{"(", # Q: \* U- K+ q% J
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ( |+ S; a* ^! J7 ?2 G* \. e
         SuperscriptBox[
    / H5 q- S* {  c( v      RowBox[{"(", / }: X4 r; m- Y: [* s' p
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 0 U: H+ z0 \% G2 r0 e7 C8 J
         SuperscriptBox[
    0 f6 }) o/ u3 f      RowBox[{"(",
    ( J* ^9 s  @  a       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    1 k1 U0 N' ]$ J4 ~     SuperscriptBox[
    ) i$ [8 V5 N5 K. G* H      RowBox[{"(", 5 z4 J% O9 s; W. _+ c8 P
           RowBox[{
    ( X* z# O8 e5 y4 [' s$ `! E, z0 C        RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}],
    , N: B% k: G: ~6 F2 F- r4 V9 I    ")"}]}]]], "Output",
    , ~5 d' w$ [% ?* Q* u: k" T. V CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]+ Q4 D5 _  A+ Q3 ?6 L+ t/ E
    }, Open  ]],) L/ E1 ?" e/ L! Z  e

    $ r$ ~# I" D! x4 UCell[CellGroupData[{
    ! w3 G4 u. x: _4 u) f1 u& [$ e/ ~! i) Q* {( F' c# x
    Cell[BoxData[{
    3 B6 q5 y' [  u/ ]) e7 a RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]",
      G) n, q  ?3 k% ^  I RowBox[{"u18", "=",
    4 ^3 C1 [8 q6 z  RowBox[{
    0 ?9 x, h% H1 `8 q7 N, r# n   RowBox[{"Exp", "[", . Y7 m' B' h1 v5 X+ x
        RowBox[{
    2 X( }: ]9 C$ @     RowBox[{
    " F0 W& S* ]3 l: R! _      RowBox[{"-",
    , G$ e3 T; `6 ]       RowBox[{
    ; ?  Q4 y9 H$ Z) ~        RowBox[{"(",
    8 Z/ l3 T" t6 l2 ^         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", - n4 T) [* g; k$ @6 M
            RowBox[{"(",
    $ u, H3 }2 u$ b/ Q7 d" ^6 W9 X         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    2 e3 H. C+ k; p& ?     "]"}], "/.", "DeltaX"}]}]}], "Input"," r0 t4 l/ V+ K( G
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ; q( |3 @8 E/ @7 A  {  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
    " B- K5 S, t% z1 y( K+ s+ Z  3.5779615828848505`*^9}}],
    ( A$ q5 d  ~0 `9 c) o8 c# t$ ^7 v0 p7 l4 H# f
    Cell[BoxData[
    " w: A) p, ]3 B, g RowBox[{"{", $ b$ I$ h5 j& L. {
      RowBox[{  ?! k5 V3 w9 X6 m( X
      "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
    4 u/ _5 ~- }; G! U# W  C: k9 M' W! D   "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], , W4 U, V9 C# P5 f. a6 `+ @
      "}"}]], "Output",7 P* G3 t4 l4 e% H* z" O5 A
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
    : x$ b$ v7 u' E3 q* z
    8 z: ?0 g% L" mCell[BoxData[( S1 f! C9 \) P7 Z$ j9 [+ H
    SuperscriptBox["\[ExponentialE]", # U9 G9 ^1 u: _& X
      RowBox[{"3.141592653589793`", " ",
    6 y" Y$ v( d+ M' i$ E   RowBox[{"(", # W) m0 R% {+ t9 }5 E+ K, {) X
        RowBox[{
    7 i  P, A' q1 m' c7 H# j0 k. T" z     RowBox[{"-",
    & w8 z9 X' `% C* N      SuperscriptBox[6 p- X2 e; k3 ^
           RowBox[{"(",
    6 x; C8 M: n* Y6 P' p9 }9 w        RowBox[{
    1 N7 k, h. A9 t! L4 w/ W4 \& U" p         RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    3 s% P8 ~+ V: ^: J+ q' w     SuperscriptBox[
    $ c. S# f1 l* }5 W8 q, K" y+ ^      RowBox[{"(", 4 r& P. b. Z' m+ X5 B; V4 N8 t" X7 |
           RowBox[{% |: P8 \, P" A
            RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
    # |& X* h  O5 r     SuperscriptBox[
    & A, `1 i" C6 K) I) |      RowBox[{"(",
    . m9 Z# w$ y0 A8 g" }0 ^       RowBox[{, s  c8 [5 Z& V& e. r# A' I  x
            RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
    3 M, A& @/ i8 M, f8 H! S     SuperscriptBox[0 F8 Y1 f! ^3 J5 Y& Q; F6 o) k
          RowBox[{"(",
    $ u# J6 A4 u0 u4 }# v9 H/ h+ X. q       RowBox[{
    5 a# _! u7 [7 w+ S' H        RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
    , |/ R, k$ S* ^+ b     SuperscriptBox[
    3 n/ X4 S* Z0 R4 B      RowBox[{"(",
    & N( s$ i8 v, p: l+ Y7 ~       RowBox[{
    5 z4 k4 i  r; _0 R4 \( F        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    5 ?- E( r' ?% x1 p     SuperscriptBox[
    0 T9 `$ k6 c, K      RowBox[{"(",
    3 K0 ]5 ~6 g2 |" @9 V& ?       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", + n+ d0 k# j1 i  j
         SuperscriptBox[
    6 J7 O( x7 h1 b3 z$ e" x# M      RowBox[{"(",
    8 f; y) \. n) _9 u& S       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", # [8 O$ f8 P- ^
         SuperscriptBox[) h; f& T) S8 F. Z3 P& R9 E1 O
          RowBox[{"(",
    & ~( D$ y0 K" v1 d% _       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    * h. J; l* [/ a: _+ J, S     SuperscriptBox[
    - h- E, |" ~" T: \0 G" B: `      RowBox[{"(", & {4 Y; n+ B- W3 U. O
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 4 m3 o5 p: a5 M( h* H/ f4 D
        ")"}]}]]], "Output",  i: {; m* ~! N; @5 P( m' ^8 x
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]! I9 ~+ \' ?8 D; g- n0 m) ~
    }, Open  ]],2 G- F! M  R; R0 r

    & d" [  ^1 M  PCell[CellGroupData[{
    : e$ i- Y9 @9 D7 Y: r" V2 e% m% e) q3 p- {6 E
    Cell[BoxData[{
    $ e( S, G' `+ y4 }6 y3 o4 j% Z RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]", 3 I+ I  p4 k7 C' z. r! @
    RowBox[{"u19", "=", / ]: q3 I+ b/ _+ \: e  r
      RowBox[{+ h8 [# U# T9 r  R( m7 _9 R
       RowBox[{"Exp", "[",
    ; w% c% P8 o, e! M' l6 |, y    RowBox[{, N  p- |) v3 g
         RowBox[{
    3 x- A6 g  ~9 c$ ?7 ?0 c& V6 Z      RowBox[{"-", ) ^  n2 a: V3 Z& i+ ?2 s
           RowBox[{
    ( c+ k- p9 [7 H9 L, X/ j        RowBox[{"(",
    , c7 V4 m5 S4 ~$ O0 X8 R         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    / w# P" q& X" {. _! j        RowBox[{"(",
    $ C0 L% l# o0 B" ?         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    . Z+ K- D/ b9 x0 w4 S     "]"}], "/.", "DeltaX"}]}]}], "Input",5 {4 z$ V) v) H% U3 c1 S" I, {) A; e5 R
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {. |! ~/ M( n5 W) `& o- J1 p
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, + ^( r8 l6 S: y# B+ v; W0 `
      3.577961588890861*^9}}],
    , [; s+ c6 |$ R' d  {5 u7 N- c- M/ i5 C1 h- F- n" h) s2 \
    Cell[BoxData[  \/ @4 f8 C- I* k
    RowBox[{"{",
    ; I9 H: N5 L& P$ O, D9 r9 C  RowBox[{
      Z/ c4 |7 t" W: i) B  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
    2 L1 r* d- c% l   "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],
    # L+ i2 L3 @  r! D+ [* J  "}"}]], "Output",% b0 h' |" }- B( w* S9 w! ?
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
    . l( p# c) J  m" b
    % @) `* Q% }: R. |Cell[BoxData[0 f8 J; o& i* y  R) h1 s
    SuperscriptBox["\[ExponentialE]", 9 Z4 e9 X: T) Q/ K/ }" A
      RowBox[{"3.141592653589793`", " ", ( z. @+ q  |7 H
       RowBox[{"(",
    7 ]. d) Z" b2 g+ f  N' E  C% i    RowBox[{
    ' |4 J9 |5 h/ n4 o) A4 D5 Y- H2 K     RowBox[{"-", . f$ z! G2 }8 o" U9 E0 B
          SuperscriptBox[
    & d* k+ L2 n. J, Q; s) `" h       RowBox[{"(", ' J, u' x' i: b) H
            RowBox[{
    4 L6 y1 H$ u# C" }( l" [         RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", ; |& a7 v! R! q" G
         SuperscriptBox[4 _3 X0 L: ^6 V3 T2 C  Z% ]
          RowBox[{"(",
    * z' [; x" l' m$ z8 b3 r' C' p       RowBox[{
    3 C1 ?$ ~& w& S: X! x, \/ Z9 v        RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", $ o& {; d+ Z$ l& `5 e
         SuperscriptBox[
      T( m$ c3 L7 [      RowBox[{"(",
    ) q; J( ?; k% d( ?1 W  ^; ?( X       RowBox[{
    - v' z9 y+ ?- }+ ]0 I$ @! u        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", ! ]4 E9 b! X# s  I! c2 p$ Y) R
         SuperscriptBox[9 m2 s0 m4 L$ ?% `* P  y
          RowBox[{"(",
    1 @4 `* ^% J/ D3 W: n2 |       RowBox[{
    ) ~% c7 g- o# b: F. X+ _; Z* y' D$ l        RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-", " I+ C) c! R1 F, j7 g
         SuperscriptBox[
    ' H6 c6 e  f# n2 ^- y) E$ z      RowBox[{"(",   W' h. D6 n4 K$ h
           RowBox[{8 u* y( w. ?5 U2 u8 M! H1 x
            RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-", 3 r, o/ s. x: Q
         SuperscriptBox[! ^2 p2 g3 I6 T( ~% r- \
          RowBox[{"(", ) R7 C, e" S) [
           RowBox[{
    1 j: a2 k' e1 F7 J( W# x4 ~4 {% h        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
    $ }# {  n" r- W8 V& W% }9 k& q     SuperscriptBox[
    9 t4 y! z" w# R      RowBox[{"(", ! N5 `8 o0 ~1 i- g3 @6 M
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    4 t2 S2 U5 A: W" f; i. y4 M     SuperscriptBox[
    ; w7 f- H. V1 E      RowBox[{"(", " w3 k# L1 h& O. _: [6 I
           RowBox[{' {3 A3 P7 Z4 i9 C+ f
            RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
    . b* s( i" V2 z3 @) D     SuperscriptBox[
    ( t, \7 N6 i8 [, Q8 U      RowBox[{"(", - r- V+ T. p) P5 G4 T; |3 [$ I
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    * W9 Z" ?+ V! c7 U8 z1 }5 Y! n/ k    ")"}]}]]], "Output",
    5 O$ {% F" S, n$ @/ p" a6 g CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
      h8 ?# N; i; P; X) @, i}, Open  ]],
    - A1 A& S& k- g! S3 k& e" V: a! H: N# v, u
    Cell[CellGroupData[{
    ) Q6 Z/ ?7 e4 j! }# `. C. B6 Z! g8 c- ^. b7 Q. V  y0 T
    Cell[BoxData[{
    2 x3 b& O4 f+ A. b: `! \ RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]",
      G& f) d! y* U! n" g8 I RowBox[{"u20", "=",
    $ y) J. T9 k8 u* x  RowBox[{
    2 I+ f- s; p: x( r0 y/ y4 m' g   RowBox[{"Exp", "[", 7 K* t/ w9 ^, e+ l. Z# P, ]
        RowBox[{# w9 N1 R9 W1 F* O$ g
         RowBox[{
    . l# W1 }5 N, ^      RowBox[{"-", 5 {" b6 H7 k* q# O5 Y' R) u
           RowBox[{
    : O; K. n- }0 Z( v# E3 N9 e% h        RowBox[{"(", 0 ~1 |' }* p: m
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", " a! y4 {' Y$ F- H- ]
            RowBox[{"(", : F& l. ~% M9 H$ \& C/ _
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],) l- I6 O& ~; Y$ K& I. ?( ^7 i- M1 l
         "]"}], "/.", "DeltaX"}]}]}], "Input",8 T% D7 q" H/ O8 l+ m- Z
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {& D- r) K0 W3 Q& C  s
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9, + w3 |& `4 O  N+ e3 M9 M
      3.57796159382047*^9}}],% u7 ~* g' Z3 P; \' Y

    , W+ c* Z7 q1 S: k7 rCell[BoxData[" Q6 Z. i; M6 m
    RowBox[{"{",
    + A  c9 q* e$ }& \. J  RowBox[{
    8 R" P: }5 L; l2 s2 t0 i  "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",", ' \8 n( H% C( N0 A+ w/ s; F9 w
       "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}], 5 O  F) C2 R% r/ C9 z6 A
      "}"}]], "Output",2 o2 W7 O7 A( ^' Y, J- E
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],; S7 q( n$ N. S8 A. @% J
    / p- n/ [' d/ \$ w2 P% p
    Cell[BoxData[
    ! o5 [5 Y  j0 ? SuperscriptBox["\[ExponentialE]", 3 Y7 U% o* Y. K; `
      RowBox[{"3.141592653589793`", " ", 4 E" [: V  s5 D$ v
       RowBox[{"(", , U  e( J5 d7 @1 d# C1 g' G
        RowBox[{5 P: ^1 v+ F: c* v$ q0 y% i$ A
         RowBox[{"-",
    * f$ F5 t4 e& n- {6 F8 Q- R0 M      SuperscriptBox[: Q/ d* F$ F6 m
           RowBox[{"(", " U! R  `) a( I# S- A
            RowBox[{
    8 {$ x. U8 N# z* B0 w         RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", 4 n  k. T/ F3 c/ o$ C& {/ D
         SuperscriptBox[
    . L+ A9 I6 T) C5 m  p( Y+ ]! }* X      RowBox[{"(",
    3 R; N3 J0 V* Z       RowBox[{
    1 s2 q/ d; }" d: H  y        RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-", ; l) H, ^# C: Q' G# E! U2 u
         SuperscriptBox[
    ' [6 P9 e  `" R; H2 |" X, [      RowBox[{"(", $ }! S8 x2 M  U: ?- I
           RowBox[{& c/ m* I# q5 F5 ~6 w3 Y) x
            RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", / T6 S7 c: I1 w2 e1 j0 K+ ~5 x
         SuperscriptBox[
    , k) v' x' }& F( h1 y3 M      RowBox[{"(", : h# ^0 O) q8 {9 k
           RowBox[{2 J6 d& g2 d  ?. G
            RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", 6 }) V3 b+ N" W( @; z, V  m0 L
         SuperscriptBox[
    ( N/ _3 P% n2 \      RowBox[{"(", 5 S; U0 d. s8 O
           RowBox[{
    7 m# ^$ U& g2 N& [+ V+ y        RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", 5 y) J0 `& y! J3 ^- o9 U
         SuperscriptBox[
    & `$ }3 |; x! U      RowBox[{"(", 0 }/ V; I; k1 T8 C$ e
           RowBox[{
    5 U3 o' |) v- F, c( F6 z0 \, u        RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", " f& N3 w/ r2 T4 M
         SuperscriptBox[- H* x+ B+ J( C) M
          RowBox[{"(", 1 G& V7 Q- C* I& v% k) @1 d
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    8 |" p* f# H9 ^3 I$ Z4 p     SuperscriptBox[
    1 b' d& v3 |5 H4 T) }* m      RowBox[{"(",
    & ^( R" G9 o, l) h" `       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    2 k0 g( a# h( g% A; f     SuperscriptBox[$ Y8 H; z$ l) M6 Q) s% Y
          RowBox[{"(",
    ) Y- W: t# `$ N5 K. D: o       RowBox[{. ^2 ?/ K# n  U
            RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], 9 e) C, K2 x! g0 T5 T8 |
        ")"}]}]]], "Output",! A6 }0 ?! `" n8 \5 ~
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]
    1 e2 `3 B8 e4 ^' w. ^& m}, Open  ]],
    2 c! x) x3 |* B- ?6 h4 _. f2 y, r
    Cell[CellGroupData[{
    : L0 X0 Y) Y! M2 W  ^0 b! W; i. j# A8 f
    Cell[BoxData[{9 u2 ?6 t5 V9 b5 j  G5 i" O
    RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]", % o! U. E0 R8 n2 p1 ?: U4 ?4 Z
    RowBox[{"u21", "=", ' F' g, ?% [7 s( ^( _7 J
      RowBox[{) ~. L) {: M; m1 O% T- F) ^& j
       RowBox[{"Exp", "[",
    9 q& T* B  v% e# r; Z9 _" V1 w/ `    RowBox[{+ Z% @  A/ w  r6 z2 ~: U
         RowBox[{7 q; A& e1 w8 r! l
          RowBox[{"-", ( j; x( P" t# d/ _: r+ H
           RowBox[{' |+ z) v6 r" Z! k
            RowBox[{"(", , j6 X) s' U  d, [4 V7 i3 o  U# t7 n
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    * d# R# \# |; P        RowBox[{"(", ) d  u- y# h: k* u5 K* f: L
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],( y7 @, l" \0 {; y* C% Y. ]
         "]"}], "/.", "DeltaX"}]}]}], "Input",# u8 K, `2 i* Y. ]  K
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ' H) u; k$ _& Z; Z$ C" ~( G  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9, ( N! P4 N; c0 N  @' h
      3.5779615991556787`*^9}}],& U  E" R- V0 A) |! h, h9 F$ B6 X
    4 K7 y7 n+ d# ^( i0 A1 N" l0 X
    Cell[BoxData[
    $ o  A& P5 Y6 I RowBox[{"{",
    6 Q) v/ X7 y6 W3 N4 j3 v  RowBox[{$ Y! ?, Z% o/ S  B' j! h
      "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",", ! |  R' u% {0 O  X6 d! T
       "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}], " M2 {/ D7 `( l8 z0 i( Y
      "}"}]], "Output",. V; G5 s* u9 R0 Y
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],
    1 W; ~+ o5 b. ]: L* ~; X. E; y( x% |+ Y: @; w5 ^
    Cell[BoxData[
    7 a4 s& S0 R& z/ S, m' ] SuperscriptBox["\[ExponentialE]",
    $ @) ]% T4 _/ c7 ~  RowBox[{"3.141592653589793`", " ", 9 S: ~% h: v% {( g; i& R, L
       RowBox[{"(", 8 p+ A8 }3 y  ?2 ]
        RowBox[{
    5 v4 e0 B7 C$ y/ t# j# i9 ~& Q     RowBox[{"-",
    , w& q$ d+ `% @! U6 [      SuperscriptBox[+ L" @4 J4 u$ _- P. X1 D0 M
           RowBox[{"(",
    2 k9 ^. y  ?$ ~; u% W        RowBox[{
    ; f4 z  A  L- s* l         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
    + K4 `  L- F& P7 m) Z3 [4 H: z     SuperscriptBox[9 J, R+ R! r8 P; J) e6 v( ^# X! e
          RowBox[{"(",
    2 C' d9 n' G0 G7 m( \       RowBox[{
    9 k- O% P; \$ W        RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", ( t- Y% X; y" ]0 s) d
         SuperscriptBox[
    ! ~$ J; m+ V! g! a0 h( `      RowBox[{"(",
      P% ^; \% D  r' S. m2 t       RowBox[{
    3 i" v( u1 R; G0 D/ _( r! \& _        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
    # _6 k/ ~1 {: u6 j0 t1 J' Y' B     SuperscriptBox[- }6 \% o" j5 j! j) j1 M2 \3 `
          RowBox[{"(",
    & I/ r; O( B8 N" H1 N! B1 L  K3 I( B       RowBox[{
    & P$ o& E% h% t$ f% H2 M        RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", 3 h) L+ @- f8 H3 L
         SuperscriptBox[
    ! i$ A0 _/ q4 w; A  s, N# l      RowBox[{"(", ( ~+ Z) a4 A  |6 i
           RowBox[{
    3 m' p, c% o! `3 H- `        RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", $ m8 P0 g; v+ a" K+ _
         SuperscriptBox[
    6 ^3 b6 F3 e) a  @      RowBox[{"(",   J- q+ E" s. ~
           RowBox[{
    8 a/ S+ E2 a, P! W/ f4 l, B5 c/ k        RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    2 m# K4 f/ @5 i( O7 H8 J     SuperscriptBox[6 m. @( ~, ]+ [7 o- f
          RowBox[{"(",   ~) r, u; W+ W" D  \
           RowBox[{
    / s9 N* }0 y. T2 B        RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
    8 |0 r, I, b0 [! Q& t     SuperscriptBox[
    + t( W; \; S5 C3 [8 c      RowBox[{"(",
    7 }+ ]; q( i6 b" E7 l: z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ; w+ c3 l  m! d- ^
         SuperscriptBox[- E, l7 Q  S% z+ y
          RowBox[{"(",
    & Q$ F# b$ r' O; T: G% K/ x! R0 a" P5 w       RowBox[{
    0 \- h" O2 f- g  ^; K4 f        RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], 7 {- K& \8 ]5 O9 I* @
        ")"}]}]]], "Output",
    . U9 Y5 A; N7 C) D* F3 R. A CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]2 k/ f/ R5 m. k" k6 k, L
    }, Open  ]],
    * G8 K4 X* o5 v* a7 U& D7 ]  J  @8 W9 Q, U  m
    Cell[BoxData["\:62df\:5408wi"], "Input",
    $ L, }* T7 p/ ]4 u" { CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],& Q% _, c0 ~$ d6 ^

    9 q9 a. f* @4 l1 u% Y( x% MCell[CellGroupData[{
    1 A- T, {* e$ W& }4 J6 n
    ! [* ]  s. J5 B$ {6 w3 B& YCell[BoxData[, v  ?7 B/ q/ ~
    RowBox[{"y1a", "=",
    0 e4 `2 H& S1 z) a  RowBox[{"Table", "[", 9 o4 P7 k, o" `" T  @, J* |2 e9 e- w/ d
       RowBox[{"x", ",",
    9 Y4 C- B. c: Y. R    RowBox[{"{", ' z% e4 M; b/ h8 C% D: k
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",  Q- X9 c* {9 A' M% g# k2 K
    CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {( f+ m8 u% d9 U# Y, R
      3.5779226649375*^9, 3.5779226810625*^9}}],
    3 m. ~, ]% p: M+ [
    . i9 B' K4 K( cCell[BoxData[
      I2 G3 F4 |# G" ?* X$ t RowBox[{"{", & z% c& ^2 W8 b  U4 u  i
      RowBox[{) r5 a9 Z$ F6 Y! |& _1 ~0 e3 v
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 b0 |% a6 ]( r% d   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
      N+ w( ]# R% G    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 9 R1 Q9 Z/ H4 F2 P% g  b
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    9 G0 ?- c; l: t   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",   E1 X5 \2 B( P1 Q+ i
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    7 l& J$ L, o* P8 T" G2 }   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", 1 ?5 R: z8 \* y4 w$ h& M2 m
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 2 a& ]$ j: c5 [( \9 W* O$ {/ W
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], . C/ w6 n9 `# \* P! X
      "}"}]], "Output",
    $ q1 ~0 s3 m" b4 S' r. b5 N7 p' Z3 E CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9, : D# y; Z: T) D. Y
      3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]
    / p7 y5 b2 n, f9 v$ e' n$ X" U}, Open  ]],  N6 Y2 a7 d$ ~- c3 O

    ' C; }$ A4 O( S" _3 BCell[CellGroupData[{
    + G5 M; F" B  k" R( N: M
      g0 j0 Q* n; _8 s% ~$ |1 ]Cell[BoxData[3 B3 q( o/ K3 X& _0 c
    RowBox[{"Data", "[",
    ( t* U. Y. ^0 \1 ?( p7 u  RowBox[{"[",
    ' y9 ^7 X1 Q5 Z; X/ a; [* K+ m5 M   RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",
    . ?$ S9 `: X! f3 t CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    ! |( q& Q- S# V2 w   3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],
    1 q& t( S2 z+ i5 S! F" h5 j; m8 R; n8 s9 ^; u
    Cell[BoxData["0.899882`"], "Output",
    ( P) ?! H3 ^* S6 u, S* Z2 I CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
    # E# k$ ^* i9 m8 a$ l6 K   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9, , b8 {6 V4 @4 a2 I' d+ W' f4 o
       3.577961929080654*^9, 3.5780123419375*^9}]8 b9 W# J  Y0 P& w' ~: A; w; L; i
    }, Open  ]],
    & L- f: b2 A) x6 ~$ h
    ( }  k1 i9 x: \$ \Cell[BoxData[
    % a7 g0 B7 T) R* m  B RowBox[{"For", "[", 6 f" b" i$ ~6 o" F! A
      RowBox[{& ^0 y6 R$ P8 `/ B
       RowBox[{"i", "=", "1"}], ",", $ V$ U! j! z2 U2 a: F
       RowBox[{"i", "\[LessEqual]", "60"}], ",",
    : s9 g6 g3 L& t) q& n   RowBox[{"i", "++"}], ",", / q8 P. E8 ^. [  U/ [) s
       RowBox[{  ~) J* ?+ S4 M9 g) T# r8 k, s0 c
        RowBox[{"y1a", "[", & l6 m* U& H& Q; O, w
         RowBox[{"[", "i", "]"}], "]"}], "=", 2 _, a, @; `0 k; {
        RowBox[{"Data", "[", ! s9 o0 @5 a1 F, X
         RowBox[{"[",
    8 d  L( @* t( @- b- p      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input"," C$ E$ @1 p+ t7 W  X9 ~8 o$ _
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {, J7 B' |) O  E
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    - l5 `2 H; \* i- Q8 y' a   3.577922923203125*^9}, 3.5779588839702806`*^9}],+ `- N1 C4 R8 M: E3 z9 m1 w' R

      h. V& l" S0 D2 w$ T( ?Cell[CellGroupData[{/ ~6 U: J" K4 N

    + i. T8 g( f/ u& J: w$ s+ C# d& GCell[BoxData["y1a"], "Input",
    + n5 z  w# z( K. v- \+ k3 Y CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],& d( s5 o2 s9 U. V% ]0 I- k: z' N0 A8 ^
    " ~9 S$ \! F$ W1 O6 r; F5 H
    Cell[BoxData[
    ) L) p8 F* L2 n8 x  u' G, p* | RowBox[{"{", 3 X7 P' w& m. f2 v5 V2 A
      RowBox[{
    9 F  h/ e* d  f+ `  "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",",
    1 X" U* @1 ^* C8 c) P   "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",", 6 X% W, b8 _# J/ b2 N
       "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",", ! _5 m4 R- B8 B
       "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",",
    ) q' d  h# W$ v   "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",",
    ' c# F! }' ~8 i. J1 K   "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",",
    $ j4 |7 s3 D& x" t' H8 D: w4 s   "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
    3 ]; s. N( k6 `+ l' m9 _+ {+ g   "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",", ) K, A+ C% U  X! R0 t8 b( {8 v
       "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",", 2 X; o) U1 d: L) s" n5 ^
       "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",
    1 y7 A- u9 u& Y4 W   "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",",
    2 `# ]' u- x4 u3 h1 i   "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",",
    : d$ ^# ^+ J/ M% e   "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
    : I: R: @0 L( p, _  ^: P- e8 s' F3 z. R   "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",",
    ; K' n0 \$ i+ U+ T' f+ s' L# o   "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}], # T* }  g+ A2 |! `* s7 |  A* v2 x
      "}"}]], "Output",
    . ]  l( d. W2 f* |4 K CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
    % a1 m8 O4 k8 M0 k) ]! K  3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]
    ) ]  R0 ?  e1 Q( H( N$ t}, Open  ]],$ j2 X  x+ Z2 d; F7 s4 `* I. v2 g
    ! r% ?' X( Z0 r1 J" A4 i
    Cell[CellGroupData[{( t- R6 s" {' T, h1 V! }

    3 X/ V- X6 ?, `) RCell[BoxData[$ D+ C7 f( N) e+ S9 W  J
    RowBox[{"m60n21", "=",
    : n$ w$ ~! k7 [, G  x5 h  RowBox[{"Table", "[", , s3 Y! Q1 A( i) U7 o1 N/ \
       RowBox[{
    , [' @6 _# y8 L, q    RowBox[{"Table", "[",
    2 B. ]8 U$ ^9 R" F     RowBox[{"y", ",", ; i. m; e+ w) \2 ]8 a) j# `
          RowBox[{"{",
    2 O# N6 D5 M! B( D/ ~! X       RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
    7 Y: W6 F9 S) w# {; w" k  J    RowBox[{"{",
    + }9 U; {. R6 _8 w, ^% H     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",  r3 |, |4 ?" h; x2 t6 w
    CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {  Z  {9 b5 Q6 S
      3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9, ! ^; w! f) R% }1 l- `
      3.5779619706547265`*^9}}],; E7 J' |1 U7 f3 h' U8 ^

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

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

    6 }4 O+ a& n" w' X9 @  I5 m- F  PCell[BoxData[
    $ i8 H; h  T, i& o1 p RowBox[{"For", "[", 5 ~/ ]1 B! q" J; `, V2 U
      RowBox[{8 r, Y$ T! r1 V( {3 B$ ^/ ~; |- U
       RowBox[{"i", "=", "61"}], ",", 3 v) P8 e! W# m- j
       RowBox[{"i", "\[LessEqual]", "89"}], ",",
    ' b1 R+ {+ K! z1 k$ l- Z   RowBox[{"i", "++"}], ",", . j' E3 [% ~5 c; ]+ S/ [
       RowBox[{
    9 ~0 t* Q2 f  |1 G) t    RowBox[{"y10", "[", - h0 X$ _% a: R3 f4 H2 t! `3 o  s
         RowBox[{"[",
    ) O9 h; g4 F6 J9 N" ]2 T      RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", + |' k: }: v6 N. z5 H# t
        RowBox[{"Data", "[",
    ! H3 W- |2 R3 i     RowBox[{"[", ( X. ]( b. k6 X8 S( s
          RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",( {9 C& u3 m% o1 ~7 V! v
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    6 W' D5 F5 H' b2 k1 }* x5 S   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    6 u& R' E/ I/ L0 I( e   3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9},
    ; [0 \+ b5 w- P# c" W   3.577958922549148*^9}],3 [7 s8 S8 P. `6 Y8 }- N* Z
    3 r8 L1 k0 ]7 F
    Cell[CellGroupData[{
    : e2 s' w, n6 t3 [/ _9 Y% q) d+ O8 i% r. c
    Cell[BoxData["y10"], "Input",
    8 A& ]! H3 e/ m* S CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
    , A% j/ j" Q7 R   3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}]," p! ]% U5 ~9 S- |

    - t9 h/ W6 Q/ N5 V* W$ W% jCell[BoxData[- u$ l/ S) o5 J& |) D/ l6 O1 r
    RowBox[{"{",
    / X: V& @7 [7 ^) L6 Q1 d" }; \2 E  RowBox[{4 b9 ]$ X1 F! [1 Q- r9 I, E6 x
      "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",", ) a, ]- H/ u# U! A, ]1 ^
       "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",",
    . X5 \# e3 g" `% }5 |; N   "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
    0 N+ P8 O6 G4 R5 v& V8 ~, M   "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",", 8 z: h) m  z1 d
       "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
    3 @4 {. k* `6 r- ]  B- b+ O) w   "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
    + R- I) p# }4 Q3 y1 {" e( x   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",", $ A6 X+ ?) L+ Q
       "0.694935`"}], "}"}]], "Output",+ L; C% @% ?0 k3 B
    CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9,
    & U8 l; B& ?7 S. U9 Z6 g  3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9, / X: M, |4 v3 H
      3.5779621736734805`*^9, 3.57801236071875*^9}]( Z2 W) U5 c; C0 b& \
    }, Open  ]],
    9 N2 U% y# H; z! P0 s
    8 ?  c% D" @. B8 y$ G/ iCell[CellGroupData[{
    5 N6 c! k" q/ Z
    2 n3 L% H& I+ ?2 hCell[BoxData[
    % Y8 O2 S8 ?. h; S* h RowBox[{"y10", "=",
    8 R$ W8 Y9 M' q5 a* e! p) t  RowBox[{"{",
    ! f0 L) k! T+ a   RowBox[{
    6 a9 A) X8 N: w$ N+ i' ]   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 7 O7 J' X6 ?$ A5 F6 y$ M
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' C8 y" o2 @- m0 }1 r
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ! k' q0 y! |8 q
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
    . h, T9 h4 p, x- H; m: F    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
      R) J2 Q# E% Y/ S5 W7 T. c3 W    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
    1 R7 Y) i) ?0 x8 I; \0 r5 O; }/ m8 T    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    5 V' b; T) _$ {- M' `* n    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    % ^! g- h* I$ p    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", * _3 F% r% K, V, K6 R0 L
        "0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",",
    3 \2 _" ?+ O3 G7 {3 `9 d    "0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", : ]  A( E" N1 T
        "0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",",
    $ d4 F  g+ a* u8 W& x    "0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",",
    & ]8 M+ V' n- ~2 ]- L    "0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",", 8 F, z; Q; K$ ], j! Q9 Y7 K
        "0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",",
    - P6 b% {; m* i- O/ M  X( M, w, Z  W    "0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", ; h& w6 n: X6 E! V, X3 r
        "0.390754`", ",", "0.694935`"}], "}"}]}]], "Input",
    & F0 z+ ~* N: g/ A2 x7 Y CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],8 W# U% Y7 L5 q

    9 r* p9 B  x7 {: H8 |. \Cell[BoxData[
    0 G! G3 ~& R4 [- {0 w RowBox[{"{",
    1 u) p/ M- k& d) w) @$ g& B  RowBox[{
    * n* u( j7 _, S% V  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ! a5 ?: x) j& x: }- g
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",! n3 q) ~1 ~5 E- s2 ?
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", ) k! e9 [, l. V
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    & R+ s; y& J( r) T   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    ( y6 x5 f* r( j& F   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    - |# n$ g' \0 y   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", 4 k& N6 F) M' v8 o, J
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 7 _2 `5 ]1 U4 h1 s
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`", $ P- D7 p1 E, z+ e) ?( h9 R
       ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", 3 L- V1 m% h/ z. Q+ s; r) T
       ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", : l- D. w5 w8 _# R
       ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
    8 r' k2 f; D  f' F. S% c8 L* Y    "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
    ; w& S+ X% a& y+ k0 V   "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",", + D; [1 V+ a6 }
       "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
    5 [' j3 R6 `; a2 E  S   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
    " P$ S3 b: u! u# Y" H   "0.694935`"}], "}"}]], "Output",% ]' s, }$ }  ~& C
    CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9, 7 o, Q4 C* n! y
      3.578012361734375*^9}]) l! u, D3 L* K
    }, Open  ]],
    ' y+ ?! ]3 H  D
    / A9 W4 _9 |: D6 N8 r( H- fCell[CellGroupData[{
    : \: o. q# N  n) t+ o, \( l7 e: @8 }4 K9 E9 H8 \
    Cell[BoxData[
    . x5 i2 K# b! q6 o  A$ `2 e8 F; k RowBox[{"p1a", "=",
    ' R3 l5 Y; h6 c7 O$ u  f8 o, a  RowBox[{"ListPlot", "[",
    . w/ e6 H0 f. y   RowBox[{"y1fit", ",", 4 f3 L& C% v' Z* [7 a
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    ) N( l8 u" \8 j! N    RowBox[{"PlotStyle", "\[Rule]",
    0 D" O4 |% P% f; D6 ?9 H     RowBox[{"{", 1 {: ^  C4 e! }
          RowBox[{"RGBColor", "[", ' ~* L+ i, ^0 d. i1 \
           RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
    3 U4 _9 x8 ?6 z1 Z! \    RowBox[{"PlotRange", "\[Rule]",
    ) n! _0 e% |3 b0 L/ M  e     RowBox[{"{",
    " T5 i+ Y. O4 N0 W' E  }* ]/ m      RowBox[{& c0 N1 ?% N; i, j
           RowBox[{"{",
    $ K" e5 J9 a, x        RowBox[{"61", ",", "89"}], "}"}], ",",
    4 V+ h! B8 I( m+ h1 w       RowBox[{"{",
    0 Q7 Y3 F5 {" V# ~( ?        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    - ^) d9 u1 z, T+ P    RowBox[{"AxesOrigin", "\[Rule]", & B3 L* H9 b- \! p
         RowBox[{"{", * `8 Z, S3 J+ B! ^1 W2 R8 o1 v3 \
          RowBox[{"61", ",", "0"}], "}"}]}], ",",
    / c2 {2 f, z0 ~* Y; {* P! s/ e    RowBox[{"Frame", "\[Rule]", "True"}], ",",
    1 n, z2 q' u7 x/ X% n: r2 B3 ^0 Y! i    RowBox[{"FrameLabel", "\[Rule]", / V$ g; ?0 ~, `
         RowBox[{"{",
    ; C  T8 O( x* H9 s2 P9 p1 Y      RowBox[{
    0 P/ p0 z3 f2 V2 [0 D8 \2 E      "\"\<\:7089\:6b21\>\"", ",", # r8 M  k( `7 w7 p( ^8 c8 R
           "\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\  j* c2 O0 q% W5 J
    \:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",; ~2 `( v; t$ T! x4 s3 h
    CellChangeTimes->{
    2 r1 M0 K  @1 a& p( D# S: D; d  3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {; i6 a$ c, P: i0 b! v3 p" ^
       3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9, 3 e: T0 R& k. X* V9 Q: G! F
       3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {6 s, h& a: C+ F; n
       3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],
      U# z3 @2 d4 d3 p: e$ h6 @" w2 z# d& f
    Cell[BoxData[
    ) o& Z/ H  c1 r GraphicsBox[{{}, {},
    . ]# ~5 O0 Q. W: m7 x* I4 C+ U   {RGBColor[0, 0, 0], LineBox[CompressedData["
    & a8 r" W! b; N% H( d1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn" c4 ]1 ~, S& s+ h
    8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq) i2 x. L2 h2 U" W1 M7 W$ N4 Q8 m
    D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B7 k7 }! J$ W6 P+ h* o2 n
    1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
    5 F( n0 V8 w; u  lC1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN
    $ ]8 E2 ?0 [- D4 H6 Y" [8 c% ha2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff  X0 K) g! W- `7 u4 U
    yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb/ F2 e" w4 |# Q9 c* j( X! p
    wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59  d- K: @: y( i# c, |: D' q
    Y6nGQ3sAieueIw==
    ' \* ]0 u  h% y# M' c! a     "]]}}," ?/ @6 p" H% f0 I
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    # u$ _, F2 x0 ]7 l& c. n: L  Axes->True,5 u) ?2 r7 ^& o- D8 ^* B
      AxesOrigin->{61, 0},
    9 E' ~. {9 s' }7 H' C) L4 T9 p  Frame->True,8 ^5 s! L- g; A6 T, l6 p
      FrameLabel->{1 B% O& b+ p8 O" M, V5 F
        FormBox["\"\:7089\:6b21\"", TraditionalForm], " L& Q+ w. ?: b% H
        FormBox[+ C0 d+ b5 m4 D) h7 ], c! d& L  y
        "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\: e" D$ l. _  y$ a0 I
    \:ff09\"", TraditionalForm]},
    2 ?0 z- k0 `' |+ |) K0 z  PlotRange->{{61, 89}, {0, 1}},4 j3 Z: H3 |* t' Q
      PlotRangeClipping->True,  C$ ~0 H3 D& @  @9 H! f
      PlotRangePadding->{Automatic, Automatic}]], "Output",
    / Q1 \( r- J9 D. `! l$ L) ^ CellChangeTimes->{* d+ @" t  |$ l8 W6 |' o
      3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9, 4 {! v9 p6 [- \8 F8 K1 e5 f
       3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9,
    + ^7 Y% B% S7 n7 a9 ~  t! I- S   3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9},
    9 {7 A/ B1 \+ O# [7 r: b2 j8 c   3.577962187510705*^9, 3.578012396921875*^9}]
    3 S- U/ T6 p5 `1 ^5 i" K}, Open  ]],0 ]2 I; }) U' [( q

    9 X/ U- [4 X; b$ Z$ t$ B' g& [8 ]Cell[CellGroupData[{
    ' Q9 q  e' ^9 `: l$ z/ R5 N" C+ l1 b% n5 ~# [' s! p
    Cell[BoxData[+ ]% v7 m( K5 m# P7 q
    RowBox[{"p1b", "=", " _) T$ Q: M6 b; z8 r5 l  i
      RowBox[{"ListPlot", "[", & l( G+ M2 y/ f: A8 ?
       RowBox[{"y10", ",",   T. O# L& U5 |+ E- B) l8 J& t
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    ' O. l6 l* D- |    RowBox[{"PlotStyle", "\[Rule]",
    ( j4 X+ n0 [8 W. ~     RowBox[{"{", 1 K- e6 I5 e( R; d
          RowBox[{0 k8 ~& f" }: r& l# S
           RowBox[{"RGBColor", "[", 4 }! R" f; s; C* [/ c" ^
            RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}], ; Q2 v4 C0 H8 M- M* }9 e" @
        ",", 1 Z4 E( f* X8 F  i
        RowBox[{"PlotRange", "\[Rule]",
    . F. A* a' ]' C: a     RowBox[{"{", # P; Y# k# I6 l4 b- C
          RowBox[{
    ! S6 J9 W( e: v9 f       RowBox[{"{", 8 v7 [* _2 k7 ^5 h4 S4 D
            RowBox[{"61", ",", "89"}], "}"}], ",", . P/ q" p' K2 g9 S  z
           RowBox[{"{", 1 h2 L- |4 c) j. C% x
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    # z4 n, a4 K8 o; D0 V3 z" ?    RowBox[{"AxesOrigin", "\[Rule]",
    1 B& A- @% g* e( x9 R8 H     RowBox[{"{",
    & L2 E$ a* n; {      RowBox[{"61", ",", "0"}], "}"}]}], ",",
    0 x2 {( c5 g8 g; Z* g    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
    - j1 E( ]' o7 L7 l, c' q CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9,
    0 M$ o& ^6 h6 M6 G" ]6 l  3.5779597764166365`*^9, 3.578012409265625*^9}],
    + R6 k0 ~: {0 |) C' U/ \/ i9 \9 \. @  K
    Cell[BoxData[5 F/ W; ]9 z( j8 R" s4 x
    GraphicsBox[{{}, {},
    : ^- V- S3 T! Z  e( U& i5 F   {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    - Z0 C: H6 W/ T: W% v2 ]1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ9 F% g* w. h0 T6 H/ v2 A# j
    /B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
    6 t6 i9 q) w0 I6 P# AGwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
    1 s  w" h' L* M0 J% R$ L' uGFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
    1 |, Z2 A0 \' M  h$ W4 t4 I7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
    $ h6 m; w2 B; u- }Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
    4 x' a9 E6 Z. d( lH+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV" l& J7 u/ d$ y: Y
    rQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
      l, J4 M# M7 ?4 s" F1 t# HvA==
    # {) D, N2 w# K1 q) n9 i% _  u     "]]}},
    / y9 o3 Q; T1 h$ n  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],/ l: g! f) q/ R* Z
      Axes->True,
    4 V% {3 m, [  i  AxesOrigin->{61, 0},% q* P7 p6 U% \$ G$ I
      Frame->True,
    % w5 R$ @3 A# Y$ `& v2 Y$ |  PlotRange->{{61, 89}, {0, 1}},
    6 T5 z$ b8 H$ \$ x3 B0 o5 \  PlotRangeClipping->True,
    4 v2 z$ Z1 ?5 Q+ r- R  PlotRangePadding->{Automatic, Automatic}]], "Output",
    % _! d; Z- p; m! r9 t' i8 B9 g CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
    % B7 h7 \" J1 f$ R  e' Q! c( L  3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9,
    ' e& [, t" \* l+ v  3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]
    5 Z9 H6 G2 Z4 ]2 ^& x}, Open  ]],# x5 o0 t% ^. X
    ! [2 K! D9 V" {2 E; |3 b
    Cell[CellGroupData[{
    , A! Z3 P* v  G8 P. ^
    3 N/ P$ M, c5 |# T+ cCell[BoxData[! A( N; I9 R! \4 L( [# S2 u* v: W
    RowBox[{"Show", "[",
    8 _2 W+ Z' F) O& w5 n  RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],! T: y1 k# w. e( Q0 |/ `$ i0 A
    - F/ m4 k# b$ x& k2 H& W  f
    Cell[BoxData[, T; X% a2 X* }. S3 y
    GraphicsBox[{{{}, {}, 3 p& {0 c- m. _0 G
        {RGBColor[0, 0, 0], LineBox[CompressedData["
    " z/ f+ B5 E" v) ^; w7 k4 g4 R1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
    ' k$ m" s6 r* q# ?8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq8 H4 g4 W: P: D! ^4 X
    D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
    ; e" r4 o6 P7 v1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX+ F. x$ [: Q: X: d2 ~1 O
    C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN
    4 z$ X. Z% S* I! na2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff1 Q8 Q% i, H& K: u4 @3 x3 h/ H7 _
    yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb& Y" @) t4 b/ h6 D2 r% L* Y
    wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59# k9 }5 Q. y' g8 |; o$ E
    Y6nGQ3sAieueIw==
    , p9 t! |) f$ A' o! H# f; A      "]]}}, {{}, {},
    , l# c! f3 q0 Z7 }* ~7 i: N    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["- D: A7 z8 Q5 k! G8 E: V# w
    1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
    8 N: k* I, P3 d1 ]3 T8 H1 c) O$ a/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy) G4 E; A6 N3 t- A
    GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
    , n! s2 U4 \9 K) }+ }' [7 RGFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
    9 W/ J% \& D" \7 b/ u6 f7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
    / x: F4 T: ~1 \. A3 IQu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri6 Y% w4 V7 p; B- c+ b
    H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
    7 g+ ?, @  N; lrQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
    " Y! r7 v1 N2 r: }+ HvA==, X; Q0 @4 L' H& u8 [
          "]]}}},. i* [) X: V' {6 q$ T7 j0 h
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    ) ^1 D7 y, ^4 ?/ c$ K3 t7 W  Axes->True,1 S: t  c+ K) Q
      AxesOrigin->{61, 0},+ [) V$ ^3 F7 f
      Frame->True,
    . N, X  M" [, f  FrameLabel->{
    - q2 n2 E/ P7 O! @0 E7 `, `    FormBox["\"\:7089\:6b21\"", TraditionalForm], + d5 j& L  c* T' U% K: m
        FormBox[
    3 g# f- P: c" Y* v    "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
    : S8 t; [( P6 k4 Q8 V0 }6 v" V$ y\:ff09\"", TraditionalForm]},
    ) O9 D8 r! V& S6 j9 R  PlotRange->{{61, 89}, {0, 1}},
    7 [( D- j: o7 h2 F4 `! X0 C8 v! _4 Q  PlotRangeClipping->True,
    4 @) x$ T' `# {8 B  PlotRangePadding->{Automatic, Automatic}]], "Output",
    + M# c$ N% O& w( { CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]
    - m# ?2 d; Z% w, a4 K}, Open  ]],
    * n1 |8 X- E" k- [% Q, x
    : P* G/ J$ I8 X; WCell[BoxData["\:62df\:5408wi1"], "Input",
    ' J' n' L2 G1 J0 L+ K CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9},
    - z% e$ v1 s) \! y   3.577959662349238*^9}],
    * p2 Y* C9 d; i' l, [
    $ o' K7 G5 ]2 o4 U/ G  k$ MCell[CellGroupData[{3 x/ {3 W0 W  S0 g% u( K
    7 |% G% `  u+ h( Z- v/ B# F
    Cell[BoxData[3 |% Y3 ]: B* f/ p
    RowBox[{"y1b", "=",
    ' ?) d2 J* S& c3 Q  RowBox[{"Table", "[",
    ! s. V+ u, s3 r" m   RowBox[{"x", ",", ; M( o# ]2 C5 w+ G9 @
        RowBox[{"{",
    , ]  J) U0 N8 S3 ?& u     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    6 t9 H& M' w% C( s CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    $ Z9 E! ~1 a# Q6 J, M+ a   3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}],
    , a' l6 L6 x, `
    0 r% f2 @& H" I, Q4 fCell[BoxData[! z( Q/ b+ F; ?  Q9 T/ D0 c4 |
    RowBox[{"{", 4 _) w- G1 e0 ?, m% r) T4 c- P
      RowBox[{+ t- m" U6 ^- r( v; T  f" J
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", $ H" Z: w  O' L. K7 r+ [
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",2 l( Q: S# H+ [5 D2 s/ u
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 8 x2 C7 t1 Q1 @7 j
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    9 B" ?* u( p6 t  t. Y   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    / A0 Y& b, ^5 Z6 n   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    * X4 ^  \$ g$ w3 B- ^) I   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    : a: @) A1 b: x, j' M   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    # F6 }- o& k9 @. H   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
    : v! Z. D3 [' F5 Y* B* Q" ~  "}"}]], "Output",5 d  f5 Q0 @  F/ x
    CellChangeTimes->{
    % |- n( e0 K, v9 K3 t# N0 ]  3.577922682296875*^9, {3.5779582291435394`*^9, 3.5779582351339493`*^9}, & {9 L4 B- T' D! @) ~1 N
       3.577958478041973*^9, 3.577959010205701*^9, 3.5779622225483656`*^9,
    - G! `9 A4 B! \) t; E, D" c3 h/ @   3.578012438953125*^9}]; ?1 Q& W; L1 j6 |& T# |
    }, Open  ]],( o& t2 E0 a0 M; ?
    2 H, ]) B( Q; M- c7 i' p8 P
    Cell[CellGroupData[{+ z* T* O6 m$ h9 }$ X# @% t

    , g( W9 z8 u: p  R8 F3 fCell[BoxData[
    0 S. Y( G+ c5 h* I  Z6 @ RowBox[{"Data", "[",
    3 d: }0 h3 s7 L  RowBox[{"[",
    - ]& [9 P2 U4 v5 G; B8 `6 v   RowBox[{"3", ",", "11"}], "]"}], "]"}]], "Input",3 K6 [/ F  K3 l5 l. ~
    CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    9 T4 J) b' ^4 m! t   3.577922912015625*^9, 3.577922912171875*^9}, 3.5779582414831605`*^9, {* {' ]* o! s* C  h
       3.577959014090108*^9, 3.577959016040111*^9}}],: M3 p) T/ x' V( ?4 R7 O! E! y

    2 ~6 ^% v0 l. A% R7 m) l2 o. J2 WCell[BoxData["0.492958`"], "Output",0 r1 n3 U/ a# G  d
    CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
    ' }: g0 {- m' M+ f! ?! I   3.577922913203125*^9, 3.577958242809163*^9, 3.5779584790403748`*^9,
    " m/ y* x- Y4 S5 C7 J   3.5779590175689135`*^9, 3.5779622239523687`*^9, 3.578012439828125*^9}]0 Y+ F0 w1 b8 Q1 K& ~
    }, Open  ]],4 D% U) X5 L1 C" e
    % F  j. e- p3 l/ K! B
    Cell[BoxData[4 B! {$ M1 I* q$ e
    RowBox[{"For", "[",
    $ b! V! S& n- M  RowBox[{
    4 y8 B% r* E. E: r, D, G   RowBox[{"i", "=", "1"}], ",",
    2 g# T1 G. a2 D8 ~. f. u0 s9 w   RowBox[{"i", "\[LessEqual]", "60"}], ",", . l7 o3 ~# F; J. p7 U
       RowBox[{"i", "++"}], ",", 3 i+ q# _" L) A) S
       RowBox[{4 H; c, ?! o2 R% F% ]
        RowBox[{"y1b", "[", & w( U2 J  T* r
         RowBox[{"[", "i", "]"}], "]"}], "=", 5 ~) M/ P8 v# C& |
        RowBox[{"Data", "[", & c9 c- [7 s% L, S5 l1 X0 @
         RowBox[{"[", 2 z& {5 ~6 a& `( i# A5 b1 ]( W
          RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",8 U# H7 V! J# A5 P8 R( V5 P
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {* `: H2 q4 E+ d7 B; b$ @
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, , O6 F7 x( l/ O- t% @" `, j$ p& p7 _) u
       3.577922923203125*^9}, 3.577958246272369*^9, 3.5779584755771685`*^9, {
    ) n% {! E/ n" _   3.57795902089172*^9, 3.5779590227793226`*^9}}],
    % R1 M% ^2 g0 m0 G8 U- @' ?0 j" y; N1 Z7 i# d! _/ q) V3 C
    Cell[CellGroupData[{
    3 |, N8 R/ P2 E9 ~9 g2 g+ W1 v# S$ Z0 E3 B* D
    Cell[BoxData["y1b"], "Input",
    : i; t' o2 Z+ B0 ]7 i5 g5 v CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9},
    , j3 \7 m% \  p/ {5 V   3.577958484172784*^9}],+ R3 v% g4 V& R1 ~. l
    ) A3 Y# X5 N* j. d. z6 l; x
    Cell[BoxData[
    ! A; _7 C! n- a4 Q! s" z RowBox[{"{",
    9 m7 R+ Q/ U4 |7 l9 Q/ E  RowBox[{  w7 A0 n" [; i! j7 }# g  q" P
      "0.873239`", ",", "0.464789`", ",", "0.492958`", ",", "0.774648`", ",", & ~1 V6 f9 ^' F8 y  [* U/ @/ c
       "0.380282`", ",", "0.647887`", ",", "0.56338`", ",", "0.295775`", ",",
    7 y! Y, H/ N  N2 q$ x) A& r4 X1 O; O   "0.338028`", ",", "0.211268`", ",", "0.690141`", ",", "0.43662`", ",",
      f2 t) N2 b) u5 A6 ]) q" @; V   "0.`", ",", "0.267606`", ",", "0.211268`", ",", "0.408451`", ",",
    . Q" m5 K7 G4 J, z+ l( p$ t1 o9 ~1 q   "0.478873`", ",", "0.380282`", ",", "0.211268`", ",", "0.43662`", ",",
    0 Z# t' t- R# Z" m! G; N3 J   "0.478873`", ",", "0.295775`", ",", "0.028169`", ",", "0.43662`", ",",
    7 W3 |' x/ z1 h9 r   "0.394366`", ",", "0.295775`", ",", "0.830986`", ",", "0.169014`", ",",   F. ?) y2 p) U
       "0.366197`", ",", "0.309859`", ",", "0.352113`", ",", "0.309859`", ",",
    - Q4 E" z5 x7 I- D* ]1 B   "0.774648`", ",", "0.422535`", ",", "0.887324`", ",", "0.887324`", ",", 0 r& }' m( Q$ q
       "0.859155`", ",", "0.239437`", ",", "0.295775`", ",", "0.746479`", ",", , f2 G+ e) o3 ^4 v+ A! V
       "1.`", ",", "0.549296`", ",", "0.366197`", ",", "0.549296`", ",",
    9 w; f6 x/ i  @4 U2 u# |+ L   "0.577465`", ",", "0.690141`", ",", "0.71831`", ",", "0.521127`", ",", , ?- N* \! W$ A; p7 x& k5 w
       "0.929577`", ",", "0.521127`", ",", "0.338028`", ",", "0.380282`", ",", / W. G* [  s3 e9 ~6 P; @. m* t
       "0.676056`", ",", "0.591549`", ",", "0.464789`", ",", "0.295775`", ",", 0 u  y( _. z. C9 g; a9 f; E
       "0.380282`", ",", "0.211268`", ",", "0.253521`", ",", "0.28169`"}], + _( I- }* @6 c+ S3 v  b% {5 |; h  u
      "}"}]], "Output",0 X6 t& }" z; `( g
    CellChangeTimes->{3.57792293246875*^9, 3.5779582549771843`*^9, ! d& G7 I* [3 _2 W
      3.577958485420786*^9, 3.577959026460929*^9, 3.5779622288195767`*^9, ' Y& t6 a: d1 p+ @
      3.57801244275*^9}]
    5 [, Z& r! }% @; Z}, Open  ]],8 P# Z* H# u3 A9 p) e0 E3 v7 i2 \

    2 [+ T, \$ I6 W) y/ @Cell[CellGroupData[{3 J2 r, p  q8 \( ?( ?7 \

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

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

    % \; Q# L1 k$ p% T3 T  vCell[CellGroupData[{# u: \# M1 M5 K; }: u. }2 y+ F
      e! O, j9 `5 T, C) W" J
    Cell[BoxData["y2fit"], "Input",* L) @: B, T5 d, y  n7 b$ i
    CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {0 J" L9 E: C$ M4 S5 s9 \7 y% o+ n
       3.577925040484375*^9, 3.5779250440625*^9}, 3.5779583419785357`*^9}],
    : C' _% T& |; ]9 }3 g0 @, [2 R
    ! E; E, W  b% q" U( Q9 t, RCell[BoxData[: t+ h2 p: u! O( |! Z+ H
    RowBox[{"{",
    % e; M4 |& W% U9 V  RowBox[{$ i. Q1 U1 x9 k# Z* \8 Q0 l5 W2 u
      "0.4853171132859182`", ",", "0.4508635216665074`", ",",
    1 `9 v* G  W: o" s   "0.3642119241752518`", ",", "0.42852077425595436`", ",",
    3 G. x3 h( e5 q. J   "0.4712694272667798`", ",", "0.5257533056184774`", ",",
    6 F  y+ V& ^/ w) j1 U# _   "0.48620658140716133`", ",", "0.41106838915591876`", ",",
    4 o& N8 ~5 Y& E- U7 e8 f" a   "0.5486894206610674`", ",", "0.007731168540073459`", ",", 7 l$ o" ^) k: c9 r. ]5 A
       "0.013872406140339109`", ",", "0.3956995051659558`", ",",
    * e0 w! e, R7 D: K0 j0 T   "0.3663118256142708`", ",", "0.29094217358055163`", ",", # g5 ]/ D2 n4 |' |( [# H1 X) a) p
       "0.5453093690736555`", ",", "0.44138898880777927`", ",",
    * h/ s+ o$ S  p/ ?' }/ @$ ]   "0.42944922031163496`", ",", "0.43092890556748836`", ",",
    5 q& F, P  O# z   "0.5942402821739969`", ",", "0.330046090785457`", ",", ) }* j, R2 `2 {7 ~& z
       "0.18938658036630585`", ",", "0.4263720292858679`", ",", % L4 d" ^! R7 l
       "0.23377136184738775`", ",", "0.02232858193309988`", ",", ) o5 y6 A# i8 \1 f2 J
       "0.244364200084268`", ",", "0.5562383565309971`", ",",
    2 Q9 R. y$ q( J. g" F- t   "0.13114103402954333`", ",", "0.5815052048989465`", ",",
    7 m$ V4 \% x6 p! o& O, B- l   "0.4253455966293501`"}], "}"}]], "Output",
    + s8 |# I' q* \& j  M CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9, + ^$ N2 O' Z; |  j' i6 K: Y
      3.577925312375*^9, 3.577958343257738*^9, 3.577958511784832*^9, - e! Y9 J( Y! y$ a6 D5 V
      3.5779590518421736`*^9, 3.5779623249157443`*^9, 3.578012452421875*^9}], q% D: X' @4 j$ w, S! ~* j
    }, Open  ]],
    * n3 A) i: _' @  V! R; S) f' N% @1 u  P
    Cell[CellGroupData[{
    3 U7 H" [+ C! {% W
    7 N. O6 J( C% T9 ^Cell[BoxData[
    % W# i4 E; h1 L: D$ b RowBox[{"y2fit", "=", * @2 i; L+ r$ {/ f( w
      RowBox[{"{",
    - Z7 R. I" h! Z5 l   RowBox[{
    5 P* A! {0 ]7 ^   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    & q, e( O! l3 G6 A    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , O: D% g' K% I5 T8 u4 m
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    , q2 _3 n5 {' s, c" }4 Q1 F# o    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", 2 s6 i# W3 ^5 i
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", + Q0 S% Y2 ?) z3 E$ |
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", 8 l, |, y, Q3 I: j9 O! Z
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", % n" ?( V1 m) D; j+ w* b* I
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", : x  R) i8 v5 u, V8 H! d7 g+ I' \" v
        "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    * `* G4 X/ z, y. H    "0.48531711328591953", ",", "0.48531711328591953`", ",", + m. Y( f# h) ]4 m0 i
        "0.45086352166650845`", ",", "0.36421192417525217`", ",",
    8 K! [/ T( O" r! j    "0.4285207742559556`", ",", "0.4712694272667811`", ",",
      [' R( K7 w+ U4 T8 g6 N    "0.5257533056184786`", ",", "0.4862065814071623`", ",", & N: ~& ?9 I+ q2 E8 Y% \, q1 z3 R
        "0.41106838915592014`", ",", "0.5486894206610683`", ",",
    1 e) z$ t  R# |. G: w    "0.007731168540073532`", ",", "0.013872406140339166`", ",", 2 y5 x; M, p0 `& s; {# z4 h2 v
        "0.3956995051659565`", ",", "0.3663118256142717`", ",", * S* g% t8 k% Z: u6 r
        "0.29094217358055185`", ",", "0.5453093690736568`", ",", / p9 D) `, w3 g8 `2 g4 {! m1 M9 e; ^
        "0.4413889888077799`", ",", "0.42944922031163585`", ",", 1 c0 g' @0 t' C) D) V; b
        "0.4309289055674891`", ",", "0.5942402821739983`", ",", + `% w; ~2 ]/ M1 ^" b$ V: M( \- B
        "0.33004609078545805`", ",", "0.18938658036630632`", ",",
    8 T/ @- J' P+ u& S2 a; q/ f: m    "0.4263720292858688`", ",", "0.23377136184738778`", ",", + {) F+ J  w; g- d9 p
        "0.022328581933099827`", ",", "0.24436420008426807`", ",",
    ' u( k# |1 w7 \! ?( B6 ]    "0.5562383565309981`", ",", "0.13114103402954314`", ",", ; W4 B6 V2 v6 b% Q
        "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]}]], "Input",; z. x& a5 T( O# r% r
    CellChangeTimes->{{3.577959355746303*^9, 3.5779593854019547`*^9}, {# K$ `0 C. n( n6 g9 g$ y4 }6 e
      3.5779594223272195`*^9, 3.577959425104024*^9}, {3.57796233399496*^9, 6 N* }* @: [! v
      3.57796233957977*^9}}],' g. u& f2 ~- [+ H
    : P/ ]* {4 g2 {+ Z, |' w
    Cell[BoxData[
    - _* R6 n& f7 }" Y9 O! v) J RowBox[{"{",
    3 z- U2 p6 \1 o+ \; Y7 L( ~8 y, Q  RowBox[{+ T- \# b8 Z+ ]  ?
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", # e- V' f, n' t3 A- K: M
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",# g7 q) l* V' Q; k8 f( b
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    8 k! B/ s1 e# p7 Q2 }   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",   y* M: B& S# N9 C
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", ' _1 e7 b  l. t+ [# b
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    % B: h" `+ |' W   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    . K; Y5 ]7 d& f% m9 q0 \   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", * _* L9 d7 F: ]; G7 Z2 j) Y
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    4 J0 K9 J& N% Y2 a3 u: M3 A   "0.48531711328591953`", ",", "0.48531711328591953`", ",", ; |7 y" W  u; @  f
       "0.45086352166650845`", ",", "0.36421192417525217`", ",",
    : y. f4 b# V6 Z* t1 ~& t   "0.4285207742559556`", ",", "0.4712694272667811`", ",",
    ) T! S9 o1 I+ m: ?' o: i   "0.5257533056184786`", ",", "0.4862065814071623`", ",",
    9 d  s; s. ^0 `0 ?/ `7 W   "0.41106838915592014`", ",", "0.5486894206610683`", ",", - x! @+ B1 m4 e+ E8 N: C
       "0.007731168540073532`", ",", "0.013872406140339166`", ",",
    8 ?" c  K+ @& `8 y! h) O   "0.3956995051659565`", ",", "0.3663118256142717`", ",",
    ' n. P+ D% c" `: p8 [   "0.29094217358055185`", ",", "0.5453093690736568`", ",",
    # U* q* f# O. N, ?' `% Y' s   "0.4413889888077799`", ",", "0.42944922031163585`", ",",   H" w, k) i% P% [! V
       "0.4309289055674891`", ",", "0.5942402821739983`", ",",
    2 r6 {# M% j/ k& {8 _7 b   "0.33004609078545805`", ",", "0.18938658036630632`", ",",
    & u6 T9 c" ?/ o, v5 `  w# Y& O   "0.4263720292858688`", ",", "0.23377136184738778`", ",",
    & d: V1 R7 W5 w1 z   "0.022328581933099827`", ",", "0.24436420008426807`", ",", 9 [+ B/ a% J7 m6 r" G
       "0.5562383565309981`", ",", "0.13114103402954314`", ",", ( `  f5 L0 [6 Z/ @7 x
       "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]], "Output",$ ?& h* t+ u  i# b+ N# k9 j
    CellChangeTimes->{3.5779593961191735`*^9, 3.5779594268512273`*^9,
      K( F; J6 C( D7 u  3.577962342060174*^9, 3.57801245340625*^9}]4 G1 F- N' Q7 Y  F
    }, Open  ]],
    9 q7 n5 f8 k4 a) s3 V0 `% z% T$ ?/ P9 Q/ X
    Cell[CellGroupData[{
    1 l) W* \) C3 }; N& [+ p, u/ f! ^- B$ q- ]
    Cell[BoxData[
    7 ?: }2 z/ I: t, a1 ~- l RowBox[{"y20", "=",
    + e  i. P8 H. ^3 R! o! W/ p! z  RowBox[{"Table", "[", * Z8 d4 b" |. L- ~  ^4 {$ }4 h
       RowBox[{"x", ",",
      U/ g' z; C" A% S" f8 z    RowBox[{"{",
    ( U+ P. U! b  U* ]% N     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",; V. K. {0 X: d) o
    CellChangeTimes->{3.5779253628125*^9, 3.577958351198152*^9}],
    5 ]% r+ x. i/ \& d
    3 e8 Y- g  w0 ?& ?Cell[BoxData[: c! ]  Z" m, x* a7 v+ M; M5 J* |
    RowBox[{"{", ; a# w5 v+ a0 \
      RowBox[{: P# V9 s, }. K$ c) G, J
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ! ~( `; g" d+ ^# W& I
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",' V5 v* S8 {* B6 `$ y  {# |
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", % ~5 [% F" a1 L7 D- @2 U
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    7 E. l' g4 a2 R   ",", "29"}], "}"}]], "Output",& y: ~, S$ I- z! e3 L% D8 E
    CellChangeTimes->{3.57792536553125*^9, 3.5779583535225563`*^9, : \9 \- a/ [: V# O9 d
      3.577958515653639*^9, 3.577959053714177*^9, 3.5779623443065777`*^9,
    . ]4 n$ m. p% q( b/ [5 y  3.578012454875*^9}]
    0 U. a1 o( {1 d- k' {1 k9 N8 r}, Open  ]],5 @; s$ |$ H, ]# |1 u1 f) W" D
    ' ^. J+ s9 c( I: z/ A, S0 w
    Cell[BoxData[
    6 @. {9 [6 a9 R( F8 U& q/ } RowBox[{"For", "[", 6 f/ Q. N$ y; G3 S8 I8 Y0 s$ y
      RowBox[{! _& d, e$ f, l; a4 m6 _+ ~- ?! Y3 A
       RowBox[{"i", "=", "61"}], ",",   U" v  E' }1 c8 r: ]6 Z
       RowBox[{"i", "\[LessEqual]", "89"}], ",",
    " h9 I6 j/ l) [, B- H   RowBox[{"i", "++"}], ",",
    : w" x1 {) J/ [6 `7 y   RowBox[{
    - S3 A% O! m( ~$ ?1 t3 D    RowBox[{"y20", "[",
    4 c# P$ t+ Z( |! \     RowBox[{"[",
    ) v  g( S% Z) ]0 c3 i; i6 R      RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", 5 y) S& E6 D+ A  e  f2 m3 f
        RowBox[{"Data", "[", / p6 l! W- w' f7 S
         RowBox[{"[",
    7 _; ?4 p  A8 Q: ~. s* ^      RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
    % k3 Q/ a5 Q+ N; U+ P3 G CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {& V: h1 |% r8 O5 n+ Z4 z/ f
      3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, - V5 a* j8 ^5 ?+ @* Y$ A& `/ z
      3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, {) _$ }& [: b& I5 J1 t' L- U
      3.5779583574225626`*^9, 3.5779583606673684`*^9}, {3.577959056849782*^9, 0 ~3 d2 `; i) U3 s
      3.577959058690585*^9}}],
    % Y, V: ?* e9 j
      a8 ?3 d8 P3 {: ^' E# KCell[CellGroupData[{! r, N1 c6 K1 i) }2 U

      m% S+ @, z0 w+ m1 d% UCell[BoxData["y20"], "Input",
    & W% ?+ u% V! a- |- u8 o9 t+ |0 b CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
    + F( i* s& I5 i. Y; G   3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9,
    : k* \: ^, c( y7 u0 L: p' T8 [   3.5779583657841773`*^9}]," s/ S4 @" B( l1 j( i1 U- k$ K
    : T0 t  ]3 ^1 q! R) z2 t
    Cell[BoxData[
    ; W. i3 C# x4 s  @( T0 n RowBox[{"{", * V0 b, T5 Z$ R' \: ^# O% p
      RowBox[{
    % j* b6 L6 m/ t1 }: L# [  "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", ",",
    * Y4 O) a' F( X  e3 B, U, j  G   "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",
    ) ^- q) X& A- m3 w   "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",",
    . a3 M0 F2 f9 }. ]; |   "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",
    7 h* F" o; X0 h; E) T   "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",", , H" V+ T' E4 I6 H; h
       "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",
    - i0 {* @4 \2 R5 P/ z& ~5 W   "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
    5 I0 Z' c0 c4 s! d8 P   "0.323944`"}], "}"}]], "Output",
    " {" f" ?* K7 c. g& D" G CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9,
    , m  \) V- w8 H$ C  n* z  3.577925393046875*^9, 3.5779583678277807`*^9, 3.577958517946843*^9,
    7 K1 b$ |+ u% z" Y# p! L, o  3.5779590634017935`*^9, 3.577962347629384*^9, 3.578012456484375*^9}]
    1 z# G6 P! F2 F  e; S}, Open  ]],0 B( D$ ?6 j4 B- x, D9 M
    + f! \: @8 n: Y2 O- j( R/ q# r
    Cell[CellGroupData[{5 c8 J" C. k# I3 p3 L7 u
    3 `) F. l2 ?: f5 X
    Cell[BoxData[
    $ T7 C" M* ~; y; C RowBox[{"y20", "=", & {/ d/ M! [$ Y: A0 @) V4 ~
      RowBox[{"{",
    4 }/ b$ t# e& K   RowBox[{
    5 L0 L/ X/ d, t5 x   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", % W, W! Y+ b8 Y
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % e: K+ U0 Z  ?' i; z
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
      b" s5 x( t0 G. Q) a    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
    5 K- |) N% [2 ^' A) ^0 T, z    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    / f- M, r# o1 y: }2 Y: R8 k, K: m    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", 3 ^% ]$ d. h. p& `' N# I, x
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    ) i" p. \8 j' j4 g7 A    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", ! [: G( l9 e1 u! U& q
        "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", ) s# M% _; e: f
        "0.507042", ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",",
    9 W* h  t, P' E% s    "0.338028`", ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",",
    - q& {8 \# k2 M# a1 v8 `    "0.408451`", ",", "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", " B4 k  L; H( R. x8 n
        "0.746479`", ",", "0.887324`", ",", "0.84507`", ",", "0.704225`", ",",
    ; {$ t6 E8 Q9 A. \3 j; `    "0.760563`", ",", "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", 9 m- P) {! e: @+ \0 Q0 K( V/ P
        "0.295775`", ",", "0.309859`", ",", "0.408451`", ",", "0.197183`", ",",
    ) w3 }; z; T% W1 x) W0 d$ }! z    "0.732394`", ",", "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", 8 s& P. R2 t9 B& d- w
        "0.56338`", ",", "0.323944`"}], "}"}]}]], "Input",
    2 d' Q5 k7 y) I4 O! R" m4 h CellChangeTimes->{{3.577959534959416*^9, 3.5779595573142548`*^9}}],! h' F: h" p# t* o' r

    : a& z- Z1 G* ]- l8 jCell[BoxData[
    % u8 ~, y7 o3 w8 H8 {/ n RowBox[{"{",
    . k2 F# c- W$ G  RowBox[{5 S3 u5 f) v0 \0 R+ L9 Q4 \
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 1 C: q. A* g! W  b' F6 g
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    ! o5 I6 b( M4 T" ]! b    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    % p: `$ ~0 J) j' D( a$ N; r5 F* ]) g   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", - p( Q7 r. z* O% ?# h+ h
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", ) p. Z; ^; p4 \# z+ u2 U
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    5 X: B3 u/ Q3 t% e8 |/ _2 v/ m   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    * \7 I8 y8 y( x' f1 b   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 7 h2 }/ R$ S5 h/ I  r
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.507042`", 0 z6 l! L; y9 z
       ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", $ j+ o" M7 ]- f  z9 D1 ^
       ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",3 _6 j- @8 M* Q- l% Q0 W
        "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",",
    & l, l- P" d  `: Z9 L1 |# ?   "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",
    . |/ I$ M2 Q- J9 T   "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",", - o( k; u6 S4 b
       "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",", 8 s7 Q( Z8 }9 A' a: v' G) G
       "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
      x; Z/ U1 ~0 c/ w* W) `   "0.323944`"}], "}"}]], "Output",
    1 A) H) A' }! o2 w6 u9 E1 ] CellChangeTimes->{3.5779595594514585`*^9, 3.577962351778991*^9,
      T8 a* n- `# O6 F4 ?  3.578012457234375*^9}]# l# v" I3 w# ^% @6 i8 t
    }, Open  ]],8 ?0 U* w) Q/ _1 h- S

    , ]5 R( p- h. N$ C* g+ \Cell[CellGroupData[{
    2 I, L& i! j3 L0 f" S' O- l, K/ V( S/ J1 ]7 A- J
    Cell[BoxData[. E2 q* f9 b$ [1 t( Z3 l
    RowBox[{"p2a", "=", 4 `% @2 V- {& L0 b. ~, x, m
      RowBox[{"ListPlot", "[",
    # y5 w$ a$ j, s   RowBox[{"y2fit", ",", : B2 H7 q2 p6 [! R
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    # |9 _5 R4 d7 x) j, x& B% q    RowBox[{"PlotStyle", "\[Rule]",
    % e" r3 U0 K" e5 P: }! Y     RowBox[{"{",
    % x6 ~! A# l9 }* j+ Q. ]: M6 A/ }      RowBox[{"RGBColor", "[", $ r% S! e9 e* G# U' ]$ n
           RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
      L. v( S1 R4 R1 Q    RowBox[{"PlotRange", "\[Rule]", 9 ^! d5 ?8 @7 n3 U$ Y0 G
         RowBox[{"{", ' N+ K1 U/ L/ T: f/ G4 N+ ~
          RowBox[{! w$ Z  a/ Q4 Z1 P7 P4 @
           RowBox[{"{", ' p' m9 ^8 `; ~; V) X, K; u& B6 e
            RowBox[{"61", ",", "89"}], "}"}], ",",
    8 p2 v- }% M) S2 e+ b       RowBox[{"{", ( T6 P7 e6 G% u, W5 N
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    5 X. r; P0 r+ Q# I( ^$ m2 E    RowBox[{"AxesOrigin", "\[Rule]",
      f! i$ u' j& Y' H8 S- G1 O     RowBox[{"{",
    $ E2 P- g' ~1 ~% j' C      RowBox[{"61", ",", "0"}], "}"}]}], ",", 0 q# E( e+ n1 K7 v9 r
        RowBox[{"Frame", "\[Rule]", "True"}], ",", , G# l* P/ S1 n  Q7 a
        RowBox[{"FrameLabel", "\[Rule]", 8 E# |* _9 E) M8 A, D4 n- q
         RowBox[{"{",
    4 K% t) C4 m9 I9 Z. Q      RowBox[{5 E% e8 |6 S9 i! S4 k# ^
          "\"\<\:7089\:6b21\>\"", ",", . ]- m4 _/ b! n! }' U: H
           "\"\<\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\
    . T4 [( ?  Y2 Q/ x7 B) i' ?\>\""}], "}"}]}]}], "]"}]}]], "Input",
    ! }) I' ~( h- A1 L) f$ n CellChangeTimes->{6 a9 P" b. d6 c9 r1 h
      3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {1 T- c) X3 q4 ~% L. I
       3.5779583712597866`*^9, 3.5779583781393986`*^9}, {3.577958536604475*^9,
    , A0 B" H% b. I' E7 T   3.5779585491624975`*^9}, {3.5779592802577715`*^9, 7 H4 n; Y# a8 N! L9 }6 s
       3.5779593014270086`*^9}, {3.5779594039971876`*^9, ' F& R; [; p: I4 J0 ]
       3.5779594059783907`*^9}, {3.57795949706695*^9, 3.5779595174717855`*^9}, {
    . K1 G2 k5 g( d$ W+ g   3.5779604302529774`*^9, 3.577960442311798*^9}, 3.57801246978125*^9,
    2 l" A5 {1 {( ?2 F: Z, R& V   3.578012920859375*^9}],
    / ^, q: p$ M! u, V; p1 w- Z7 z8 A+ K) r  ~0 _
    Cell[BoxData[
    / Y' Y4 [5 Q9 H2 ]4 y* h! V( h& C GraphicsBox[{{}, {},
    1 l* q6 t' ^) N* q) B   {RGBColor[0, 0, 0], LineBox[CompressedData["
      Y2 n* ]( ]% Z$ S! @7 o2 L1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM  g0 r; o% o3 \' w& L" ^
    /g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ; j& x5 M6 @$ m6 Y+ A( J- m
    9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P& Y/ H3 f4 O% `$ ~/ U
    ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC+ w2 R2 k2 O0 T# i# H
    qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK! P; {0 g, K) g: s
    1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx* p$ @) _. N# ?: G8 \
    0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p12 y: h8 ?2 v1 m1 E) F% D+ Y9 @
    sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH% N9 t: x! c6 f+ C
    99yxuG0PAHw7nyU=% b! n& @' N6 J
         "]]}},- ~/ A, F$ }. K* Q' L. J4 q, e
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],& w' @# R) d# f8 P
      Axes->True,
    2 P  d2 c# l: r/ ~! t" O" x0 q6 w  AxesOrigin->{61, 0},
    2 S. z" a5 j3 @. z: F  Frame->True,0 e- h' W- ~  V; ^8 |  @
      FrameLabel->{
    ( _" H. E. R$ X; x: K! ~    FormBox["\"\:7089\:6b21\"", TraditionalForm], + E; C5 t1 r- T6 S$ O
        FormBox[
    % b# {, s3 ]& L, V. u* l9 a    "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"",
    . V" G; @0 J- O2 n; k5 H2 o0 w# r" ?* l     TraditionalForm]},5 ?& d) W: \. F5 ~# J. {
      PlotRange->{{61, 89}, {0, 1}},4 k0 F2 W  w# L% m4 L8 D) ]3 M
      PlotRangeClipping->True,: Q( m- c8 @8 q
      PlotRangePadding->{Automatic, Automatic}]], "Output",
    0 r1 t! ^( b' `: e2 B$ S CellChangeTimes->{
    5 D: z& a& O; e+ C  p* F0 j  3.577925144625*^9, 3.577925396578125*^9, 3.5779583797150016`*^9, . g8 F# {8 V0 e0 J  g* o- C# C9 M
       3.577958519990446*^9, 3.5779585510813007`*^9, 3.5779590670678*^9,
    ! g# P" O" [9 e* d+ q4 m$ s6 a3 ~   3.5779593035642123`*^9, {3.5779594075383935`*^9, 3.577959430158433*^9},
    ) v5 z0 I1 ?+ Z- x   3.5779595184233866`*^9, 3.5779604438874006`*^9, 3.5779623548833966`*^9,
    6 f" r2 j5 z0 s5 M# P2 J6 O   3.57801247209375*^9, 3.5780129225625*^9}]5 M' @+ `9 W: c
    }, Open  ]],
    - X$ j2 B4 F! [# \8 h2 z  Q( d% w8 N: R6 p  P
    Cell[CellGroupData[{
    ! z3 N, U( H6 ^/ M  V1 j6 v% M; U
    ; f! a; I! P6 E0 B6 f- KCell[BoxData[
      T2 @, o" l) p0 {% H  w RowBox[{"p2b", "=",
    ' ~' a) y+ v0 E+ l" ]" ]  RowBox[{"ListPlot", "[",
    6 }0 G! H+ u6 [9 `; {   RowBox[{"y20", ",",
    5 V4 i& m5 b: J: T    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    8 F; p3 B- d& \3 F' e. e- s    RowBox[{"PlotStyle", "\[Rule]", 9 @( m$ R5 m! ]/ Y
         RowBox[{"{",
    5 U6 [# Y' d5 p. a      RowBox[{8 z0 T0 e* H5 {  B7 Y" E* j
           RowBox[{"RGBColor", "[", 4 B0 p, b% l, ]# E: z
            RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
    ! k1 J9 W0 w2 k5 B) V& @2 M4 ^    ",",
    ( Z/ y; g9 i* ]( j, l    RowBox[{"PlotRange", "\[Rule]", 9 }1 Q' k/ i6 ?5 r) l& i- `
         RowBox[{"{", 9 p! }4 w% f8 B$ R" h2 t/ q$ g
          RowBox[{2 @; a; A( L  L& s- F2 f
           RowBox[{"{",
    : q5 }$ B7 w9 v7 n) P: B        RowBox[{"61", ",", "89"}], "}"}], ",", % q5 {0 t7 i- {6 q
           RowBox[{"{",
    6 L: y" E# ~" n% X3 ^" D        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    ( ~- s2 d- A, X2 T0 I    RowBox[{"AxesOrigin", "\[Rule]",
    + W8 [  u# a. C7 @  c     RowBox[{"{", ) N1 Q6 k: ^% k% j
          RowBox[{"61", ",", "0"}], "}"}]}], ",",
    0 ^% h  k  ~0 a& {( b" E( Y" }2 v( D    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
    2 N! v# `7 z3 @7 e CellChangeTimes->{$ d. R+ s; w1 u7 T: ^% Z+ C
      3.5779253991875*^9, {3.577958382429406*^9, 3.5779583843326097`*^9},
    . S" x$ H# i! m( l; w7 E   3.57795855655691*^9, 3.5779595724462814`*^9, 3.57801248346875*^9}],$ W3 d0 k  s6 j$ F( X" x) Q* L/ o( M5 U
    3 M4 p$ }6 r% ^, U  O; u5 a- V
    Cell[BoxData[
    % `& c1 E, `, R+ N- s GraphicsBox[{{}, {},
    1 s) Q; M8 j: h* }, h9 T: M5 I- K/ Q   {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    0 N. ?" s9 f- I, C* P1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn2 O' }% n. M' t# o
    8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
    0 N, ]) H2 S9 s8 n3 n3 B% Ac/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
    6 j6 `: z- y. n# d0 ^) HiX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4- K; K4 v3 v' F3 s/ ~6 x
    TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
    ! Q; C6 s8 `% n! D- o' }$ FfzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
    7 z" K. c3 ^0 S+ hTWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
    " {! ]: _2 y9 L; O8 pp0OYg4Fg/tz63VfsAdsCnzU=
    - y  G7 k0 G8 H# h     "]]}},
    ( a- h3 ]" [+ l. t& h  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    / J+ `, V0 X1 x& M! X  Axes->True,
    ; \6 Q/ i  }" q. H  AxesOrigin->{61, 0},4 i- a% n* t! t- p+ H
      Frame->True,
    , M$ l0 o0 U8 J6 M3 H5 a: {, q  PlotRange->{{61, 89}, {0, 1}},
    0 z; }: Y4 X2 o& r. q/ N! y4 c+ p7 f  PlotRangeClipping->True,/ X, ?8 r3 h) w  F2 ^
      PlotRangePadding->{Automatic, Automatic}]], "Output",
    1 P% R5 m2 L8 S: J CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
    6 z. n/ e/ K" M  3.5779583861890125`*^9, 3.5779585219092493`*^9, 3.577958558132513*^9, : L  |/ e& |  r$ ~! a
      3.5779590691114035`*^9, 3.577959577906291*^9, 3.5779623569426003`*^9, : o2 n0 C) s- G2 q
      3.578012484703125*^9, 3.578012925875*^9}]
    , O# [- T: D$ p" i/ C! f}, Open  ]],
    5 l1 m! _+ r$ J# r) ]6 `4 [4 t8 f8 Q) @
    Cell[CellGroupData[{
    ' t4 \) |3 T$ c# [8 w/ M$ p4 B) K
    Cell[BoxData[7 m2 ?2 [- @, _: ^, _" f7 `
    RowBox[{"Show", "[", . H/ C8 A) X( D3 Y% {0 F- p+ g, h
      RowBox[{"p2a", ",", "p2b"}], "]"}]], "Input"],8 {* s% n3 i/ d6 O. y% S
    , ~7 ?- T1 Z" T" x: U
    Cell[BoxData[- ^% H) ]" D* B$ a7 v
    GraphicsBox[{{{}, {},
    3 f+ b* h9 E4 v1 z, V3 {    {RGBColor[0, 0, 0], LineBox[CompressedData[": g7 m+ r5 P. W+ Q
    1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
    + T. \0 @, t8 \  c& D/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ+ F0 u7 L, A! w: R: c7 H
    9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P
    ( ~8 F6 z7 ]4 BofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC
    + U8 q; ~: M/ b% ^$ p) c, S$ R: zqPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
    2 D6 P* b  m$ j" s4 }9 _1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx' Q/ S( ?6 }" x
    0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p11 _, Q5 E' b2 B( K: l# f/ a5 n
    sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH! _7 _2 [" K3 r! \9 ?" E; q
    99yxuG0PAHw7nyU=9 l6 R# }5 Y1 T7 @
          "]]}}, {{}, {},
    ( M! J3 l1 |- K    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["9 Q* z( E7 R9 [5 D
    1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
    0 ^7 d( h& ]$ E4 ^3 F& \$ Q8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
    # s3 [: X4 d! j( h$ X) P9 A, {c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc& L+ N2 z- B4 k: f  A' M  L% M* h' Y) Y
    iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4+ Z; A9 d* K# ]$ g: n4 ~
    TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO, k) ^. Y* k0 g8 {; s4 y  r
    fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
    # J' V* E, ]- C: }TWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG3 [+ V+ H8 H' C  {' A3 @. w
    p0OYg4Fg/tz63VfsAdsCnzU=/ ^  H1 L5 j9 _- G9 |+ g
          "]]}}},
    4 M* d. \" S3 d9 G  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],2 R$ ?+ L2 N7 V
      Axes->True,
    # r6 C. i% Y# [+ ]. g  AxesOrigin->{61, 0},2 X( z( O( V" j% F* J
      Frame->True," S9 @% S, ?7 \& n
      FrameLabel->{
    2 t5 a. Q# o- X& u# L    FormBox["\"\:7089\:6b21\"", TraditionalForm],
    / c, y" W% ]1 V) A1 [: U    FormBox[  B# l5 m$ K: u. m! o4 {. R
        "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", 7 _8 G2 y7 ^3 ~' [$ A3 a2 N
         TraditionalForm]},
    7 g1 _  w0 J" I! |5 u0 F  PlotRange->{{61, 89}, {0, 1}},
    & J. e7 B" C7 _2 `; d; }7 V7 p  PlotRangeClipping->True,
    - R7 t/ q& k1 _% i' b  PlotRangePadding->{Automatic, Automatic}]], "Output",$ i, M  e4 Y) d: j
    CellChangeTimes->{3.5779623624182096`*^9, 3.5780124863125*^9,
    : ]- b; U# x, a  3.578012927734375*^9}]9 V" ?# t5 Z7 o( I2 v# Y! T
    }, Open  ]],
    0 b( M5 r7 g/ a3 b$ Q# I
    + C6 }5 f9 Z8 cCell[BoxData[
    ) V! t0 Y* ]: i! V5 s) K RowBox[{"\:ff08", 5 F, }5 }" C7 S1 K* }9 E
      RowBox[{1 L  f3 a1 U$ _. E5 ^$ I- G$ w
      "\:5df2\:77e5\:521d\:59cb\:94c1\:6c34\:8d28\:91cf0", ".7406",
    " q: o, y5 `9 G   "\:3001\:5e9f\:94a2\:8d28\:91cf0", ".4621",
    2 n9 ?, u( [/ J. N. j( l9 G   "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea60", ".5208", 7 S7 p  r9 z3 V( R5 _/ a, @
       "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:542b\:78b3\:91cf0", 3 n' F5 _* i9 q5 V0 K8 g
       ".2221", "\:ff1b\:76ee\:6807\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\+ d) U; E1 _* q- U
    \:4e3a0", ".6224", , ?* k, ?) ]. \1 }
       "\:3001\:76ee\:6807\:94a2\:6c34\:7684\:78b3\:542b\:91cf\:4e3a0", ".2521"}],7 {3 ~4 {9 v3 ]" J* j% U, [
       "\:ff09"}]], "Input"],! ?- o3 r4 f) K5 k: ~( {1 I6 H

    & ]1 I& J5 C- N  PCell[BoxData[" c: w9 \2 J* X
    RowBox[{"{", ( \  c- S4 @/ m7 |
      RowBox[{6 W+ B) I2 D7 s5 h
      "\:94c1\:6c34\:8d28\:91cf", ",", "\:5e9f\:94a2\:8d28\:91cf", ",", + P+ g' _, {/ @6 P$ _& }
       "\:5439\:6c27\:91cf", ",",
    ' f" h" i# X" v9 I) K   "\:4e0b\:526f\:67aa\:65f6\:7684\:542b\:78b3\:91cf", ",", + L5 X3 }% T) m+ _' @( o8 x
       "\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea6", ",",
    ( a2 w2 k2 N7 ?" a; j8 O) g! T   "\:5757\:72b6\:77f3\:7070", ",", "\:8f7b\:70e7\:767d\:77f3\:7070", ",",
    5 s6 I4 E6 ^2 Z/ ]! x   "\:83f1\:9541\:7403", ",", "\:5757\:72b6\:767d\:4e91\:77f3", ",", . e% c% ]" \9 t" Q/ {/ ~
       "\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf", ",",
    , S3 B7 p+ Q0 O# m   "\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6"}], "}"}]], "Input"],
    ( e8 c: V& H( E, K) G: c% k
    , F+ K% H2 I( n  @; o5 FCell[BoxData[" "], "Input",) k/ n" U7 M+ l( `3 Q! K
    CellChangeTimes->{3.577962834553033*^9}],
    ) G" R4 C- L4 e5 T7 \& I0 X+ F7 S2 C# B) m
    Cell[BoxData["\:94a2\:6c34\:7684\:78b3\:542b\:91cf"], "Input"],
    - @- [3 B: ]9 V: Z% {3 g3 ^0 F1 [- T% M
    Cell[CellGroupData[{
    4 Z7 ^' V: ]$ w- F% N' b* W. Y
    & u, P9 H5 H9 u- n/ p: E) N; ZCell[BoxData[
    ( p( U* X) J; G0 A3 U RowBox[{"y1", "/.",
    ; @; I7 y. ?& m% f: {  RowBox[{"{",
    ; J- n! N8 |- l% m   RowBox[{  ~  V9 N4 n# ~" l
        RowBox[{"x1", "->", "0.7406"}], ",",
    8 [  I) w' c- D, u+ L    RowBox[{"x2", "->", "0.4621"}], ",",
    2 |) O: i# m2 j    RowBox[{"x4", "->", "0.2221"}], ",",
    & p4 S) y: d; n  t    RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",
    $ z; ]' L" @  z: h+ | CellChangeTimes->{{3.57796267209435*^9, 3.5779627224200373`*^9}, {
    , Q) _# h) c1 A/ t9 t. c5 Y  3.5779627663029137`*^9, 3.577962774820529*^9}}]," _3 U, a" e$ p% {) T# X. M
    6 |4 r# C+ o: J0 ~6 r7 J5 ]! E
    Cell[BoxData[9 Z/ o' ?& k$ J
    RowBox[{
    / T) J+ I/ g  w/ D: t* V, s/ Q6 m  RowBox[{"0.2286149508637297`", " ",
    4 u' M. U3 G( L/ O   SuperscriptBox["\[ExponentialE]",
    " u1 t+ ?4 ]8 i$ G: G9 Q3 a    RowBox[{"3.1415926535897936`", " ",
    ; o5 g0 `( w4 S- J6 N$ F     RowBox[{"(", 0 V1 J1 G. s! P+ z) w
          RowBox[{1 F% }9 y# ^& u& J1 ^# a* H
           RowBox[{"-", "0.17911224641499998`"}], "-", 9 l1 J; l0 G& Q# L/ o/ y
           SuperscriptBox[
    8 c$ m% H6 w& C1 ]7 u2 k$ q4 c        RowBox[{"(",
    7 l& m, S( e" w! N7 }         RowBox[{5 u6 R( [  O# r# J: d
              RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", ' f3 A; `  i9 _3 R, {  s, @1 Y8 ?
           SuperscriptBox[
    0 J0 |0 N! x- {9 t) F5 Q: K        RowBox[{"(", : N9 C% ^# L- ?: ?
             RowBox[{' R# T! J# V1 F! h
              RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
    : k! p& j  a  w7 W2 s       SuperscriptBox[3 b# J/ T! i6 {  N4 W
            RowBox[{"(",   O! X- t3 ^4 n2 t/ n' F$ Y
             RowBox[{
    ' ?1 L- g  w+ G0 ~+ ~          RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", ) C4 a6 {6 i  B: a4 `% R2 A4 a0 i
           SuperscriptBox["x8", "2"], "-",
    5 e9 I" e/ _8 |' W* d       SuperscriptBox[
    0 M+ P7 ^3 {7 \        RowBox[{"(", & H4 Q3 i( Y  P3 T) `2 C
             RowBox[{% Q( g9 m: G* \" S1 Q0 S! j
              RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
    * D! j+ M- P8 V+ e- Q  RowBox[{"0.020180806675835994`", " ", - E3 k$ u6 B( R1 b: {
       SuperscriptBox["\[ExponentialE]", , O) |. ^* p- h0 \& e; d9 b
        RowBox[{"3.1415926535897936`", " ",
    % z* Y8 G1 c2 c6 n. g. w     RowBox[{"(",
    , ?5 u: k/ Y* b9 j      RowBox[{; K: F( ~+ {' G5 x
           RowBox[{"-", "0.105619387859`"}], "-", , b6 w) L4 ?" y1 o/ J# q
           SuperscriptBox[7 A  C7 @6 q4 O" X; s5 n
            RowBox[{"(", $ ~% E" h& m: a  p; ~
             RowBox[{
    3 H7 I7 s' Q# r% |" ~$ \1 t          RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", * k0 T9 P+ c. S% ~% ^8 x# q
           SuperscriptBox["x6", "2"], "-",
    - t* b+ ]+ f6 A3 l) M# {       SuperscriptBox[7 Q7 c# _; e' Z8 B( {. w' e5 P
            RowBox[{"(", : m+ s3 e" r# O4 G
             RowBox[{
    6 _4 g- v3 S/ F, d# E1 S6 F          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    & g* o% I% L' t% u* f# Z, }       SuperscriptBox["x8", "2"], "-",
    ' ~/ Y0 n  g0 V7 c       SuperscriptBox[' U* N' v. p, k5 ]; `: u: r
            RowBox[{"(",
    , t% P, h8 w  G* E. W- O1 a         RowBox[{1 ~2 S' Z2 X6 @  F* a2 f
              RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], . U- m% x% F5 u, z) r2 N# i
      "+", - M2 V5 \. c$ i4 O: f8 i9 u! q
      RowBox[{"0.13092706311748437`", " ", 9 Z1 n) M# h' B: v4 F# y
       SuperscriptBox["\[ExponentialE]",
    . f* d1 c5 w# g7 g5 U" y    RowBox[{"3.1415926535897936`", " ", & }8 c$ T: O% M/ K
         RowBox[{"(", ! Y, U* a7 Q) Z2 d" c9 N- Q! ?. z
          RowBox[{
    # y: V$ L, m. x2 D2 @       RowBox[{"-", "0.236605670085`"}], "-",
    ' ?# g# T) z5 G" r7 ^3 X. m       SuperscriptBox[
    : J9 e* T6 \% G* s$ P5 z        RowBox[{"(", ! r+ i* a8 q6 ^& {
             RowBox[{
    2 ~- P* M4 A; _  ^          RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",   N% K. c9 [& H8 c
           SuperscriptBox["x6", "2"], "-", 1 U% W0 G' X) {4 K3 l' l& J
           SuperscriptBox["x7", "2"], "-",
    # z* f# ^" [0 c. U% \       SuperscriptBox["x8", "2"], "-", " {5 q6 d6 z* z7 B4 E* Q
           SuperscriptBox[
    ' d2 ?- n( N" T1 r  u* n5 k        RowBox[{"(",
    ' P# B8 i; o( O1 o0 _         RowBox[{
    / o6 ]* O3 {4 w) e" W          RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    1 t9 Y1 G  A5 y7 |  "-",
    8 s9 [9 M% a1 g' X( {: o  RowBox[{"0.033459349088924784`", " ", ! T3 B% h8 V$ s) F" t, I9 D
       SuperscriptBox["\[ExponentialE]", 8 M4 t8 @$ j& ]
        RowBox[{"3.1415926535897936`", " ",
    : I* J4 [. D6 Z) S     RowBox[{"(", * U, L2 G$ y4 N2 s- F0 C
          RowBox[{5 ?2 Y9 o) H& `* T2 S/ S
           RowBox[{"-", "0.46221081830200006`"}], "-", 4 h" \1 {* F$ H# f
           SuperscriptBox[& S4 q9 p0 u1 v- Q0 ]) L+ a
            RowBox[{"(",
    * s# [6 l* V/ X         RowBox[{
    6 T6 d# i& b5 J3 _2 P6 \          RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", 6 h8 T1 Y+ k5 r2 F
           SuperscriptBox[
    9 ]* O& X; v6 s  d2 [0 \$ M: C        RowBox[{"(",
    / m& s$ a/ |/ n         RowBox[{
    4 U9 A( k' ]# h& U+ F) C% X          RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
    ( s1 W: |6 O$ K& C; V+ y! I% N: v' ]0 P       SuperscriptBox[: n* a0 p( W5 b0 E" X
            RowBox[{"(", : Q3 d# A; E- \  ?( w6 y! V
             RowBox[{3 @5 T% Y  v- m5 c& B
              RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
    6 u, l: ~! H+ n4 J# s# V2 f       SuperscriptBox["x8", "2"], "-",
    # A  U! w! [3 s% u       SuperscriptBox[7 t- O8 X. K8 X3 @0 K6 ^5 q) _
            RowBox[{"(",
    " k" W& ~; m9 p: o! s1 L$ |         RowBox[{
    1 x/ N6 h! N0 ]' e: i) c5 V$ o          RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    # z& V' Y/ L% ^+ M  "+",
    ) y: [, s" G/ f( D/ \  RowBox[{"0.39611806709006653`", " ", % Y5 r5 e6 o7 y4 `7 `
       SuperscriptBox["\[ExponentialE]", 8 c" c* ~3 W! q3 r. f% W9 `9 F; w
        RowBox[{"3.1415926535897936`", " ", ( v9 P& X+ p7 ]' X7 N
         RowBox[{"(", & S. ]$ E' e& ^  P1 c  M6 ^1 m: O1 L1 d
          RowBox[{
    " J& {' `6 C/ L0 z1 H+ f. [; |       RowBox[{"-", "0.5837889295140001`"}], "-", - `5 a/ ^: a% Y% ]' d* T
           SuperscriptBox[
    $ ^& j7 U9 N; L& Z( D& D        RowBox[{"(",
    5 C! `3 r, X' L2 N         RowBox[{
    7 u. Z+ b  D8 e7 V          RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", 7 e6 B# S8 q. y; Q+ \2 p& `. u
           SuperscriptBox["x6", "2"], "-",
    # i7 \. c' U2 ?, ]7 ~  f7 J       SuperscriptBox[
    & w1 ?* N( X9 O3 t2 y4 {        RowBox[{"(", 7 V; X% |1 D/ F( A
             RowBox[{$ L/ f" T% ^* V( J+ c* o( Z) a. o
              RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", 6 k, t8 l8 g. G; Z, \( ^- C. ?! F) d
           SuperscriptBox["x8", "2"], "-", ; L* b" ~' |! y* \7 q! c8 S
           SuperscriptBox[  q! u( c/ i: V3 K* l) F- s; f
            RowBox[{"(", " ^9 h; [' E9 V, ^8 {$ c1 d" C
             RowBox[{5 s! u! n# ]9 A/ y5 y1 W/ [( O6 o
              RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],   S( |2 w; M! K! J# }
      "-",
    % d( p  {. t: w$ j3 Z  RowBox[{"0.19996885877792045`", " ",
    6 j2 v* [; `$ b+ Q; E) _' ^; _   SuperscriptBox["\[ExponentialE]", ' b: G  u/ J2 {2 q9 Y5 R! Y
        RowBox[{"3.1415926535897936`", " ", ) _2 R2 W$ ?- G9 Q
         RowBox[{"(", ; M/ _+ u% i/ a: Q) T9 \
          RowBox[{
    * O4 L2 L# p/ M: Z- c& M0 [       RowBox[{"-", "0.19030188470200005`"}], "-",
    ( ]( n( z2 B$ Q  c5 h- J" O% Q       SuperscriptBox[" t& t1 [' |0 k
            RowBox[{"(",
    4 p( V- b; f* Y         RowBox[{
    . @$ z, |% ]. W3 g          RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
    ; g2 t" ^; z8 M) Q' f* z- ?" G, I       SuperscriptBox[5 j* z. C: c" D0 g$ [
            RowBox[{"(",
    # V8 [9 ^4 g8 o         RowBox[{' w, Q4 E' W& j4 x) c
              RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", 3 d5 F& C  d% \; |
           SuperscriptBox["x7", "2"], "-",
    ( H4 D% f) T1 D# J) \! d7 i; [       SuperscriptBox["x8", "2"], "-", : p" C% U: a4 h3 k6 i
           SuperscriptBox[
    , i! l4 D3 {8 t( i* Y        RowBox[{"(",
    8 g" ~8 F  a5 Y1 I3 P6 ]1 ^4 T+ z+ g         RowBox[{. |  G8 k0 Y% |) y) W; l
              RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    & M& Z8 {( p# @6 a( Q( h  D  "+", ( ~* L) }+ K  ]. m- p
      RowBox[{"0.23580523388620744`", " ", 6 x. ^; l: R( y" d. q! T) E
       SuperscriptBox["\[ExponentialE]", " f4 M; V7 ]% L5 G" l9 A' R
        RowBox[{"3.1415926535897936`", " ",
    . O' b3 c  B; f; {     RowBox[{"(",
    + z$ W# S: B. W4 ~: }      RowBox[{
    ( P9 K/ V$ h, ^5 t  B       RowBox[{"-", "0.28518780882`"}], "-",
    + G3 c& n1 k! i  V       SuperscriptBox[
    ; S( Y! |/ k7 r* W% E/ h( I1 S        RowBox[{"(", 2 K# ~: Z' h3 W: t( c* P
             RowBox[{
    * y5 w1 Z+ _/ X! h3 B          RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
    0 h6 A$ w, I: h4 b, U' q       SuperscriptBox[
    " m+ e! c0 S$ t4 q4 y  }1 x$ @        RowBox[{"(",
    & V0 B& j; N( B1 B! a6 a, e1 T+ p, W         RowBox[{5 V+ Y) i. v+ N+ }4 M% c
              RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    & n2 r8 A& w% P4 O1 Y4 N2 ?: d# l       SuperscriptBox[
    * H: c( o9 C( A1 j* t4 F        RowBox[{"(", 6 |' K3 C9 v# [+ U
             RowBox[{# v: J5 @, Y2 ]1 J) ~( P
              RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
    4 z/ n3 A6 Z* M  S3 [, V! X       SuperscriptBox["x8", "2"], "-",
    * Y9 j8 h( O0 o: b' v0 M( P$ @: p       SuperscriptBox[
    ) C# n& Y) d# i( X" `0 v! J1 X        RowBox[{"(", ( ^- }: W( }4 x6 Z% |" D
             RowBox[{( S6 K7 ~) ^7 N  R1 E& j( \& T
              RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    + L9 S: O: `9 C$ Q  "+",   h2 v, ?1 k- j4 j. e' M2 ]
      RowBox[{"0.667027259367853`", " ",
    ) N" s, M! R) [* P5 V) D/ r   SuperscriptBox["\[ExponentialE]", 1 V! S9 \1 b9 e/ P; x/ B
        RowBox[{"3.1415926535897936`", " ", $ \' j( a+ O) B' B0 `+ e
         RowBox[{"(",
    4 v& F$ ~2 ]* b1 I% y4 J      RowBox[{/ ~6 r9 I$ E/ @0 {+ t! V2 i" Y
           RowBox[{"-", "0.11387365200400001`"}], "-",
    % U* ^; l: q# X       SuperscriptBox[
      c# O) r6 d0 ]  s- Z  V. w        RowBox[{"(", , u9 \" j3 D" f! G2 C% t, C# X
             RowBox[{
      f0 K' u- G. [1 q5 S  i% P- `          RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    ; C  [* ?0 j5 Q  f( W5 r# d+ A       SuperscriptBox[
    4 Y* A- A/ ^) s( h        RowBox[{"(",
    4 P" f, q; ^, `" @/ B         RowBox[{
    , G) C# }/ b) _4 I3 j          RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    $ I9 s$ J6 G6 }+ n) K* {       SuperscriptBox["x7", "2"], "-",
    ! }- G( n' A3 `( V2 R       SuperscriptBox["x8", "2"], "-", ! e& c: R& f) W
           SuperscriptBox[- i- z9 H% b  K
            RowBox[{"(",
    # V- U' m% o* ^         RowBox[{
    8 M9 }- j. Q8 d% c          RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ( k# h2 i6 _. R' s; p
      "+",
    7 a% i) Y; s& {* v% e  RowBox[{"0.25282438852646905`", " ", 3 S$ u9 d8 V: x/ q4 b0 F
       SuperscriptBox["\[ExponentialE]",   Y. Y" Q( U, t6 K
        RowBox[{"3.1415926535897936`", " ", ' w' R  N. g/ O. o. R3 B6 c2 Z
         RowBox[{"(", 1 m/ Z' n& K8 A. s2 e4 t; p
          RowBox[{4 }2 C# b+ d  D* n" V* p
           RowBox[{"-", "0.11442644782500001`"}], "-", ) Y* R/ [2 N. O) ^' G; t  A
           SuperscriptBox[
    . L1 R+ v$ G4 s2 w        RowBox[{"(", ( ]/ m! f* F& q. u2 [; P2 {# ^
             RowBox[{
    + J3 M* _8 q- N, D8 [# Z          RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", % q: {$ \- W5 C$ [
           SuperscriptBox["x6", "2"], "-", , c6 j) w2 l" Z+ `8 u; o
           SuperscriptBox[
    ; D" I3 @  U& o        RowBox[{"(",
    * m# c, K1 x, j5 @         RowBox[{. M& c% Q0 E* W6 L5 Q2 Y& O2 i
              RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    & N7 }  ]: o; g+ d; w" f       SuperscriptBox[
    + |  s) }1 @% j0 C; S        RowBox[{"(",
    % M* b, r. z+ Z' }% o" H6 }% S         RowBox[{6 |2 {6 o8 E# r" v( m! N( \
              RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
    % ?+ _* T; p: p: K       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
    0 }  R2 }  y4 w8 G  RowBox[{"0.07581214474544536`", " ", $ e4 I1 B- J4 S7 u# r' i
       SuperscriptBox["\[ExponentialE]",
    7 c1 a. X2 H, v( a, _6 \    RowBox[{"3.1415926535897936`", " ",
    1 V# F& {) z) B; b' J* p9 m     RowBox[{"(", 8 U2 `* v  j/ P  ^
          RowBox[{  U1 G5 J( q1 ~
           RowBox[{"-", "0.21008576609800003`"}], "-", 0 [4 g# u% L; a$ }+ A! s, Z% a
           SuperscriptBox["x3", "2"], "-",
    $ v' B0 U+ R* ^5 L/ U/ \       SuperscriptBox["x6", "2"], "-",
    . w: y! x' u0 L       SuperscriptBox["x7", "2"], "-", ! a) M: H2 Y1 A" G
           SuperscriptBox[# b4 a+ a6 w% p: H( L; B# ~  F0 w
            RowBox[{"(",
    ; e# f' C: ^- B         RowBox[{
    ! v! A- S/ M# ]7 J* d& n% _          RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", % u+ _& ^2 w/ F5 E3 @
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", 7 \% F. d& A5 f% S- R
      RowBox[{"0.10599338351843121`", " ", 8 F  M1 }0 j$ Z) `
       SuperscriptBox["\[ExponentialE]",
    / f5 N( d$ T7 g* X    RowBox[{"3.1415926535897936`", " ", 0 x1 b) ^3 T& t/ d. s: e
         RowBox[{"(",
    0 ?/ P; |9 A/ C1 x      RowBox[{" _5 U0 W) _) I: W2 @8 W# |, i
           RowBox[{"-", "0.4481471925460001`"}], "-", $ }* Z; J# z* ?( R. m/ B) L2 y
           SuperscriptBox[6 c; n7 V- m# Q1 P
            RowBox[{"(",
    1 ~" {% @. Z1 S2 a         RowBox[{  A+ W* C" w3 e1 n; e" x# q) G
              RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", 2 s& @$ U/ a& L
           SuperscriptBox[
    + a( q* J5 {/ H        RowBox[{"(",
    + x% m! t8 s, A* J/ \. D6 b, l, [         RowBox[{
    7 A/ ~$ c1 n2 p/ v# H& k. k          RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", 9 y1 y4 g: I# I+ W4 `  C
           SuperscriptBox["x7", "2"], "-",
    * u! u$ N; {7 k# g4 r* ?0 R& c       SuperscriptBox[/ O( D. |7 S5 i  C( T- e
            RowBox[{"(",
    ' G/ n) c, r& M  _- g) c         RowBox[{
    0 u$ ^6 M. N9 z% V, T4 H; r          RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
    + `: y+ w& Y; a! t) E       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", ! u; H1 o9 Q) N- T& y
      RowBox[{"0.5008208386064421`", " ", 5 g% Z4 c  @( n  G
       SuperscriptBox["\[ExponentialE]",
    6 {- c  J/ u! J+ T# [    RowBox[{"3.1415926535897936`", " ", ' I( F8 H0 v6 i1 O2 Y6 u
         RowBox[{"(",
    ! Q6 j8 _5 G: @7 z# f/ F& r      RowBox[{: r0 \/ w4 x1 e  q
           RowBox[{"-", "0.08722659614000003`"}], "-", : V  B& V+ P. Y% b% v/ h5 Q8 b
           SuperscriptBox[
    8 [  c' ?+ f: C2 ?- G        RowBox[{"(", & o. P, R5 [7 p- K
             RowBox[{% B2 ^& E0 j0 T; y
              RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
    8 d1 l( o& R; z2 H3 K       SuperscriptBox[
    2 Z1 u/ E+ S  e7 B        RowBox[{"(",
    - }! t( Q7 e+ p7 C5 M- [6 Z5 {         RowBox[{, A: b* r  r" _
              RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", 7 {9 G; a/ \% B. f# E; w" s
           SuperscriptBox["x7", "2"], "-",
    9 l& L( ^6 [7 ^       SuperscriptBox[
    5 u  d) G. r4 K        RowBox[{"(",
    ( I% Z* H$ u' N0 n         RowBox[{- G4 B9 ^. i: p! G9 k5 L2 o
              RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
    - o. N- j, {% A       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", 4 U  ^( e4 T& Q# w$ @
      RowBox[{"0.32564305572552343`", " ",   ]( f# U8 \" `% r  Q, V5 a
       SuperscriptBox["\[ExponentialE]", . R. E  w2 O6 g/ `4 p( B/ d6 v
        RowBox[{"3.1415926535897936`", " ", # i) r! R& W0 W, O, m$ K; H
         RowBox[{"(", & E4 _3 Y, s! C5 A7 n
          RowBox[{
    & c" g3 `- \) \( j& D2 w       RowBox[{"-", "0.23738217000100004`"}], "-",
    ! z2 ~. B% p5 `  d9 y1 B4 G       SuperscriptBox[
    0 N  R2 r9 z- H1 s        RowBox[{"(",
    7 N% b0 J/ |9 v+ l         RowBox[{, ]( M% O! X; k1 x/ B, t
              RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
    2 n2 t' U. ^# i. u       SuperscriptBox[
    9 j$ j' j2 W, i7 Y; }: J        RowBox[{"(",
    , R" _' K7 j- ], f, {: O         RowBox[{
    # r/ |, c( ~( K9 c+ [" z          RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", : S" h+ H2 p# `# U2 ]# }3 k; u
           SuperscriptBox[
    % a' g/ e0 d1 {: y5 ?$ N& F1 b        RowBox[{"(",
    ! G* {# H7 O% B0 o1 H+ l5 L  i         RowBox[{- ^0 k! ~( l6 {* b# B  }
              RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
    ' q  ~: z. ^5 N$ f' [       SuperscriptBox[; x& z9 X2 U' _3 M5 h/ R+ ~
            RowBox[{"(", 9 {2 y2 I5 [9 F: g
             RowBox[{
      z5 U. |: y4 R" R          RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
    / l5 M+ h  ~- i       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    + j0 A1 R* W  W8 Q  RowBox[{"0.6665374509702793`", " ",
    # N, U* P1 |1 M5 l2 G# _+ ?   SuperscriptBox["\[ExponentialE]",
    : X8 `& }' u4 d# v7 h    RowBox[{"3.1415926535897936`", " ", 9 A, N# {; v5 ?* o( B2 T
         RowBox[{"(", 6 u. d' @, x( B2 }8 i1 d
          RowBox[{- }& i, c# e8 W0 c/ l
           RowBox[{"-", "0.19162171876400003`"}], "-",
    : s* n) Q) D8 t8 l1 t7 K' v& E$ {& G       SuperscriptBox[
    8 b, u1 D- y) i0 w        RowBox[{"(", ! L9 `+ o# k+ F" T2 W+ g
             RowBox[{
    & d7 ~& K0 @8 h5 k: K6 k          RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
    0 @0 }9 M. Z& U4 C+ r       SuperscriptBox[
    ; a! m+ u4 n$ W0 H) O        RowBox[{"(",
    3 b: P: a! d$ f1 |4 d/ s7 o         RowBox[{8 ?1 J1 k0 g/ r  B
              RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
    " H6 O" ?. X8 C/ b       SuperscriptBox[# S$ z+ S& K1 _9 X, a) Q
            RowBox[{"(",
    - H' \( o* f* `1 ]         RowBox[{
    % D# [) j4 [) L          RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", + i' M& c( I3 g- r, K7 \
           SuperscriptBox["x8", "2"], "-", $ E$ n1 Q0 B8 a3 n
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    7 }% p; W& s+ z+ |/ }  RowBox[{"0.4812237524557293`", " ",   P; c  H& a2 m* Q! M
       SuperscriptBox["\[ExponentialE]", 0 ?2 M  f& c; F, T
        RowBox[{"3.1415926535897936`", " ", & T" T- |# ~5 X& M1 ]2 {
         RowBox[{"(",
    ( ^( w& w$ M+ P      RowBox[{
    ( ^. w+ K/ ?  I2 H8 F, m+ m       RowBox[{"-", "0.109748954594`"}], "-",
    : k! V/ A& C% S6 t5 Y       SuperscriptBox[
    3 `/ b/ a' o" ?( M5 B- ?        RowBox[{"(",   w5 B2 U: ]3 `4 |
             RowBox[{
    # L6 j* x* c  r. M; l5 p          RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    " {) Z/ B% p% p       SuperscriptBox["x6", "2"], "-", + K5 L* N! L$ h& P
           SuperscriptBox[
    $ v1 Z/ z5 B# c" ~        RowBox[{"(",
    5 d" V% W: o  A( g" ~) Q         RowBox[{+ E8 }1 o- c: I4 K$ i( t  T
              RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", ( X( M- K& K" q3 l  C8 ~
           SuperscriptBox["x8", "2"], "-",
    % `# T/ Y, P, V* @& b1 G       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", . `5 U8 k: c9 O7 m& [
      RowBox[{"0.176024676254045`", " ", 6 M5 w4 z, t; f9 p
       SuperscriptBox["\[ExponentialE]",
    : o, c9 ]0 l  n4 z3 w7 M! O    RowBox[{"3.1415926535897936`", " ",
    1 o/ X& b  d5 ~     RowBox[{"(",
    / p4 S% V+ f$ Y! C" z( b- ?      RowBox[{
    3 p& Q4 `: P# D: y  l       RowBox[{"-", "0.14616677062500003`"}], "-",
    3 v/ B: o) D$ o9 K% W6 y       SuperscriptBox[
    5 I2 Q! K* [+ x- J        RowBox[{"(",
    3 B+ j$ N# l. w7 Q( B9 Y- ?4 [         RowBox[{! i! u* I3 c2 y6 _
              RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", + g8 m1 A3 ^3 F8 A' _0 o0 U
           SuperscriptBox["x6", "2"], "-", & v$ t7 S% E, S/ V& Z1 B: z9 B
           SuperscriptBox[/ j$ \' d' A  M6 ^  Z+ }0 d5 e7 R
            RowBox[{"(", % X/ D9 g, X; Q6 X2 g
             RowBox[{" l" M/ d$ S2 W! \; `
              RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", 8 O1 Z1 k: T& ~/ |4 S' y9 w8 I$ ]
           SuperscriptBox["x8", "2"], "-", - G4 u% U7 R3 ?# _8 n: ]
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
    & j' k( |. v% K& o' |, B  M  RowBox[{"0.5945873894818965`", " ",
    6 q  M4 F1 D( ^   SuperscriptBox["\[ExponentialE]", 9 [( l# |$ X% M! X; a& @' }
        RowBox[{"3.1415926535897936`", " ", 6 ?" A6 m+ i; B3 r% \
         RowBox[{"(", ) d. o9 C  m5 t$ B2 s2 P" f7 ~" p
          RowBox[{
    " ^( b, J  Q# l9 ?7 m% |       RowBox[{"-", "0.10407011464100005`"}], "-", - o& K/ L% v$ w( C( k2 x& {3 L; F
           SuperscriptBox[- V" u4 F3 l: |! v" C
            RowBox[{"(", 1 d$ F# S. c0 S& }
             RowBox[{% ?/ y2 n. s1 ~& x
              RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
    , Z6 a" W; i) @& o- A! s- l       SuperscriptBox[
    & ]8 H: }7 c0 [( I9 {% ~/ |        RowBox[{"(", - K  _- }) q4 v: d7 P: L* @
             RowBox[{) X5 n1 Z' E4 A7 W' c
              RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
    + Q1 |+ P  q% r' o% j3 I; Z. O8 c       SuperscriptBox[
    . K4 }: G: I. d8 A7 ]4 R        RowBox[{"(",
    $ Y( j" y' ^( Z' p, K: H2 X- f         RowBox[{
    8 l! k( K! Q' j% a& ~8 j" ~          RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", / n1 V0 M/ B6 [+ E- `
           SuperscriptBox["x8", "2"], "-",
    5 i/ C/ i4 w& c/ Q       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", . b1 Q! O/ G% s, V7 [  L# q
      RowBox[{"0.027591936509660075`", " ", & R- @4 }: G: Q- m. C% ~9 q
       SuperscriptBox["\[ExponentialE]",
    & C# g& @) Y7 p% y; H    RowBox[{"3.1415926535897936`", " ", * Q% L2 l1 G; R/ f/ r
         RowBox[{"(", 3 [. [9 G3 Z: ~! B) s  ]( }, m: m  ]
          RowBox[{0 p$ j+ F' ]2 d
           RowBox[{"-", "0.31770463544200006`"}], "-",
      x1 p& p4 s/ S6 x       SuperscriptBox[
    / k( @4 a1 P+ H        RowBox[{"(", 1 I: W5 }3 M9 D3 |" Q2 {
             RowBox[{3 G! V- ]- M, C* y4 }& [/ p
              RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", ' X) ^: X" i3 a/ p1 H- z* p6 ^
           SuperscriptBox["x6", "2"], "-", 7 j$ u9 @* X6 J" M( T, E/ r5 R, T
           SuperscriptBox["x7", "2"], "-", & u/ N" y$ C4 E$ j
           SuperscriptBox["x8", "2"], "-", 5 ?2 b3 I1 r& W5 I/ ~
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", ' \! U  h1 k, C1 F/ n4 {+ O/ I: t! D
      RowBox[{"0.5252475961933536`", " ", 1 e# }0 E8 ]  c% J! G- R. M
       SuperscriptBox["\[ExponentialE]",
    ; p$ W6 U4 f: x. F, T! b    RowBox[{"3.1415926535897936`", " ", 9 _6 j% P- x9 u1 l
         RowBox[{"(", ) G4 h8 S. b$ A# y8 ?% P: C
          RowBox[{" F' f$ _$ h, B; _- R
           RowBox[{"-", "0.6410867660730001`"}], "-",
    & p& S9 H$ K$ U2 Q. A5 O       SuperscriptBox[
    3 x4 K' v, V% R4 R8 T- U: e        RowBox[{"(",
    ; m6 i" K2 g% h7 @0 Z$ ^  n, W         RowBox[{  b' A$ E  T, K3 u8 Z
              RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", / ]) v5 _2 M0 w' K2 @$ u
           SuperscriptBox["x6", "2"], "-", ' Y! R4 R* j' @$ ^- }5 Q& z
           SuperscriptBox["x7", "2"], "-", 6 }! s* X8 s% M# |5 a
           SuperscriptBox["x8", "2"], "-", - q5 j0 a. ]  D+ t3 S, H: E
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", 7 T) O1 B& ~# k: D9 v, n
      RowBox[{"0.32047284779644936`", " ", + \8 A/ e8 B6 O& z& I* R
       SuperscriptBox["\[ExponentialE]", ) l# |' B! b0 ?' n2 p( V; n
        RowBox[{"3.1415926535897936`", " ",
    0 v3 L( i3 p, ?' r# p     RowBox[{"(",
    " E/ i6 E& a+ I: a; K* ~      RowBox[{) ?: I( ~7 C: P
           RowBox[{"-", "0.155663887074`"}], "-", 4 E1 _9 T  j7 q
           SuperscriptBox[" |# O2 C2 S# U; g8 r+ e
            RowBox[{"(",
    " U' R" e* ~, Y; o, m- a: w         RowBox[{" j( E& g  r2 u0 k, O% U
              RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", 1 I1 v, E; b# R4 {/ M
           SuperscriptBox["x6", "2"], "-", 5 P0 f7 {7 E0 Q' N. w- |% O1 s
           SuperscriptBox["x7", "2"], "-", ) d$ ?1 Q2 i: c% S9 Z
           SuperscriptBox["x8", "2"], "-",
    ' g; a4 v; z; u" Z8 L# P6 U       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", 2 j- O  K9 s; U
      RowBox[{"0.7528674241482847`", " ",
    2 G4 ^! \- v8 Y) p4 e( N   SuperscriptBox["\[ExponentialE]",
    6 X, ~' ~8 I5 Q, S( ?    RowBox[{"3.1415926535897936`", " ", 2 ~' {/ k* Y% S. d! P8 Y' P! X
         RowBox[{"(",
    7 L8 `/ [7 u# b6 z9 s      RowBox[{
      _& }: E5 E, I6 z  g5 r       RowBox[{"-", "0.14151232428600002`"}], "-",
    : r9 R6 O/ O5 K- \  P       SuperscriptBox[/ R1 U. o& ]! ?" _: t$ ^) u
            RowBox[{"(", ! T9 H3 R4 i( k& O
             RowBox[{; a( b9 G0 Z3 p& Z$ [6 n3 o
              RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", # N" z4 d/ G% R; W( a4 x
           SuperscriptBox["x6", "2"], "-",
    0 Q% Q4 ?, K7 d# i: K       SuperscriptBox["x7", "2"], "-", 7 B# m1 X3 I/ d) ~; \( C6 ]
           SuperscriptBox["x8", "2"], "-", # q0 p6 l% Y* f
           SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",
    ' R1 \3 _  Y: }; D CellChangeTimes->{3.5779628386090403`*^9}]4 X. y7 @  C# `& l8 h: Y
    }, Open  ]],2 W* f: G+ a- h0 `
    9 B5 c: L+ }* p
    Cell[BoxData[" "], "Input",1 I: P! m  S# a! P6 n
    CellChangeTimes->{3.577962835879035*^9}],
    0 B5 \4 a3 P/ d% }' y9 s
    % `7 o" l2 }  ^+ E! O- e( |; eCell[BoxData["\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\:4e3a"], "Input"]," c/ t" w- D: v
    5 m( e% T  t( J$ w
    Cell[CellGroupData[{
    ( H( |+ a8 f7 f! g7 V* e& Q3 L2 F# r) I( o3 d& t
    Cell[BoxData[
    5 N+ J, F) m4 E RowBox[{"y2", "/.", 0 D% K" `& G5 ~8 L: M, J
      RowBox[{"{",
      C0 o/ a' u& {$ I7 @3 \   RowBox[{) _. T7 |& e$ ?
        RowBox[{"x1", "->", "0.7406"}], ",",
    7 \$ B/ v6 v' Z. U  [    RowBox[{"x2", "->", "0.4621"}], ",", $ ?1 Y4 J3 j9 v+ I3 v) M! \
        RowBox[{"x4", "->", "0.2221"}], ",", % N# }, q2 _4 t% k4 ?
        RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",9 H9 \: N' [# f6 u! p
    CellChangeTimes->{3.577962787784151*^9}],
    9 b5 a" C) r, ?7 {/ ]- h  [2 ~' e; y$ w/ Q0 H+ l
    Cell[BoxData[+ \  s8 n* h' q
    RowBox[{
    & q$ n) |8 u0 o  RowBox[{"0.9125798890455848`", " ",
    * ~0 ^5 n2 P0 r6 |   SuperscriptBox["\[ExponentialE]", ' K2 ^( G$ `. p" o* ?
        RowBox[{"3.1415926535897936`", " ",
    - A+ R2 H2 b5 e1 c+ M     RowBox[{"(", * [$ F9 g0 s3 F8 {! B0 S" X
          RowBox[{
    % Q0 Z" E5 m9 G       RowBox[{"-", "0.17911224641499998`"}], "-",
    3 r7 Y. K! ^: v       SuperscriptBox[
    8 P5 H! J; j+ Q$ l' m        RowBox[{"(",
    * y& t1 e) `2 E% o' }         RowBox[{( w$ Z' a- r1 J( |2 I& \
              RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", , R3 |' {  M' T% l8 M$ @4 ?
           SuperscriptBox[
    ! ~3 X4 j$ ^! }        RowBox[{"(", ) o+ |% m2 D* j% Y7 Z
             RowBox[{
    : T0 D- Q% g$ \" `/ |          RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
    ! }3 y% P* v! b: O       SuperscriptBox[
    : O+ {, c9 y& ~% h- o        RowBox[{"(", ; }& [, [. c! q. y' {' Y
             RowBox[{
    4 a  q+ v2 `% G* o+ s          RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", ' |. f5 N; e5 v' `6 e; @" C
           SuperscriptBox["x8", "2"], "-", 8 I: ?6 a5 o4 f& X7 y6 q
           SuperscriptBox[) z0 R, N0 m& }4 Q2 I3 ^- V. S
            RowBox[{"(", % n) w2 _  s3 \8 ]* c" A
             RowBox[{
    0 D' Q& ?0 q8 {          RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
    7 o% }! e) c4 h  j) v! z  RowBox[{"0.2883186011296682`", " ", : R+ N7 Z8 }* U) f& l8 @
       SuperscriptBox["\[ExponentialE]", ) q8 g4 U/ V! J8 V' f
        RowBox[{"3.1415926535897936`", " ", : y% W9 z0 T5 q# W  r; S6 P0 ^
         RowBox[{"(", ; f3 s4 \" ?* e" C* e
          RowBox[{5 n, D; \& J' |) M4 W! C( t  C( m
           RowBox[{"-", "0.105619387859`"}], "-",   f! ]+ t, z2 Z+ z. Y
           SuperscriptBox[
    2 L3 F3 o% v1 e  ^% x8 U        RowBox[{"(", + R- W, D5 w2 u: r8 z9 Y4 }! m+ i
             RowBox[{
    + M( C3 {6 H# o% X8 f& I; F" E          RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", " I; O+ T, u5 {
           SuperscriptBox["x6", "2"], "-", * p( D% y# F+ j
           SuperscriptBox[0 M! j- R1 i% N3 F) ^
            RowBox[{"(",
    - W. S. V3 X9 i9 g         RowBox[{
    2 _4 [( V9 e" h! O9 ?5 k          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",   ?/ E; v8 }' `# s3 p8 c6 e6 }
           SuperscriptBox["x8", "2"], "-", 4 V) b9 C& U: o: N
           SuperscriptBox[! e' i# Q* u3 D. w3 h
            RowBox[{"(", * i+ ~9 n8 L5 g7 p
             RowBox[{4 h% j6 e# n2 J9 k, H
              RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 6 W3 y6 Z4 F6 H2 }6 v
      "+",
    6 j' g, _" j& N, j- O9 @. h( V2 a4 Y% S" z  RowBox[{"0.2115905228598317`", " ", # z4 U; D2 L4 T* |, b
       SuperscriptBox["\[ExponentialE]", - z9 J" l: f6 x/ f
        RowBox[{"3.1415926535897936`", " ",
    * @2 [1 f) O0 ^) V0 p9 `; r     RowBox[{"(",
    4 M# ]) n' D- t, k8 x      RowBox[{1 X9 m+ v' {" Q- O. u5 r( B
           RowBox[{"-", "0.236605670085`"}], "-", & e' ^6 A* ~/ [4 }0 W$ O. A4 ^, U
           SuperscriptBox[  Q: M  Y* a) b& v$ ]
            RowBox[{"(",
    . ^& m' b- s5 I1 S1 y         RowBox[{+ r. a) F) f1 L$ v! d- S9 w
              RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
    . x. a, {, {- A0 A' n( r       SuperscriptBox["x6", "2"], "-",
    * i; @5 [3 r+ T& S: e: ]       SuperscriptBox["x7", "2"], "-", 9 m( Y. Q* y* F& t
           SuperscriptBox["x8", "2"], "-",
    ) v3 g" b9 O* {+ g       SuperscriptBox[# |3 ^% I, f/ `# Y& q
            RowBox[{"(", 4 o! |0 h9 b6 s% G, a: V6 n
             RowBox[{4 L0 q: j7 B: Q* M7 u0 _
              RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    4 o) [1 q/ j# h9 s5 E& z  "-",
    0 s! x6 \4 D3 e  RowBox[{"0.22829938846668896`", " ", % j# e; M. r$ ]
       SuperscriptBox["\[ExponentialE]",
    . C+ @6 J6 e4 y4 n    RowBox[{"3.1415926535897936`", " ",
    , w2 S2 R7 z8 ^) g1 Y) N: _     RowBox[{"(",
    1 M6 h+ w/ p& }/ N      RowBox[{! J' S+ l0 {8 }0 T# |+ x1 D
           RowBox[{"-", "0.46221081830200006`"}], "-",
    5 {7 |: O% \) m+ o4 [/ I' _! F" `       SuperscriptBox[+ {. ]- g( n! b8 F! o1 L7 h
            RowBox[{"(",
    , n# N  N+ M! N4 j" ?# k  b9 ^* H         RowBox[{/ c" M0 n, c+ l/ \( |
              RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", 1 {  g2 R7 c) h# f6 S
           SuperscriptBox[
    # q: n8 g, L% J- j, K$ g% ?* w  k        RowBox[{"(",
    # _% a8 R1 T) M) }         RowBox[{
    - Z) k! U" m/ H( y/ g0 M7 F          RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
    $ H! b: U- M6 \       SuperscriptBox[
    $ C5 Q, G% b: z! Q9 y1 V. n        RowBox[{"(", ; F# G3 {* w2 v  U2 L
             RowBox[{
    - x" O& ?/ H/ P          RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", & P. G1 N( s. v% `
           SuperscriptBox["x8", "2"], "-",
    + q# ^* f; A& [0 x  Q0 l& v1 l# S       SuperscriptBox[. n* ^: j5 X/ m
            RowBox[{"(", ( H+ x* H1 X5 r! Q' z( p
             RowBox[{
    4 h5 I+ d' [1 ]9 Q          RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    5 i  l, P' k) K- W* u  "+",
    ; t; p1 c' ^5 e$ g" v6 E- l  RowBox[{"0.27551257162880105`", " ",
    7 t; |7 H9 m3 |. o$ L( Z   SuperscriptBox["\[ExponentialE]",
    6 P& U( b0 Z/ I1 `3 o    RowBox[{"3.1415926535897936`", " ",
    : I( S# X, z& c" h, M     RowBox[{"(", . f) o3 |4 F) x* Q  e! v- e* r0 z
          RowBox[{3 R4 \) J4 B; Y0 d9 p0 j
           RowBox[{"-", "0.5837889295140001`"}], "-",
    6 O/ }0 _$ B( Y/ w+ {       SuperscriptBox[
    5 w% E" G2 U  n2 I( w! B1 q$ Z        RowBox[{"(", 8 Y* U- f, ?8 ^/ ~4 x
             RowBox[{# n; u4 b' o) F7 \' w' @7 e
              RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    2 d# _9 [/ s, G0 F$ ]       SuperscriptBox["x6", "2"], "-",
    5 L, B; X) \& O; f0 Y$ ]! c       SuperscriptBox[
    7 N' a5 L7 ^( q1 P4 z        RowBox[{"(", 4 E8 s! r7 c5 Y1 S6 O# G) T, M
             RowBox[{2 f( r& f8 S- s: F4 N6 z' a$ x
              RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
    - J, W' z- }! }- a9 p4 X1 ^       SuperscriptBox["x8", "2"], "-",
    * ^* V2 f- l. t5 y, v2 \       SuperscriptBox[" [0 U6 g: h) M- M  \9 H
            RowBox[{"(",
    % R: _3 B4 \# E. y/ v; P         RowBox[{
    4 x2 P) ~8 {% C          RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], - x% v' N5 U' s" J' A% g
      "-",
    $ ~/ A% k. z. c+ U  RowBox[{"0.12620581913715256`", " ",
    $ c+ \6 R3 s! b3 ?0 Y   SuperscriptBox["\[ExponentialE]",
    9 J9 w$ J6 z! C: j1 V    RowBox[{"3.1415926535897936`", " ", : k0 V* m4 w' b! n. r% D( L
         RowBox[{"(",
    7 ~' H/ X( x  E& y      RowBox[{
    / I4 _; Y" r5 R8 s7 Q       RowBox[{"-", "0.19030188470200005`"}], "-", ! I7 Y8 X3 O% j5 `* U0 k4 B+ W" f
           SuperscriptBox[
    ' p9 J  u2 _2 x# H$ p! N        RowBox[{"(", 3 Y) u' c' B2 q( T4 ]1 E7 w
             RowBox[{" z& g. Z/ K; s8 K
              RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", 2 G- O; k! p+ {" f
           SuperscriptBox[
    , S& L, k, X9 r! m% T8 w. c4 R        RowBox[{"(", 8 c% A( J" S  d5 V2 U
             RowBox[{
    : w' f+ s% J& x2 ~% R; k          RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
    - r* G2 L3 k" k, I# f       SuperscriptBox["x7", "2"], "-",   [3 H) j* x4 i* B; b. a" Q  k
           SuperscriptBox["x8", "2"], "-", 0 T7 @% H9 v% w4 r5 V! I( v, P
           SuperscriptBox[
    : v3 q7 H& W  U        RowBox[{"(", + g4 E4 J/ G9 |
             RowBox[{+ |6 `3 @% a. d7 `7 P" _; T
              RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    2 Y$ [3 a% J# q" }3 B- R  "+",
    8 \2 p: d8 h7 p  c( j, J6 M7 l  RowBox[{"0.12782130225993898`", " ", . w. g) |0 _, R0 r" a
       SuperscriptBox["\[ExponentialE]", ) T: V9 S3 s  c! M( C  g6 {
        RowBox[{"3.1415926535897936`", " ", 0 N1 ]! U( n, A$ ^8 H4 ?) m) P
         RowBox[{"(",
    - X2 ?4 i: S* n6 H" q  P      RowBox[{
      [: U9 e; E+ \  [; Q# T8 t/ q       RowBox[{"-", "0.28518780882`"}], "-", ; G( |; O$ {" t8 J* Y1 e* C
           SuperscriptBox[
    / i) y2 }$ h" s( Z. [0 t        RowBox[{"(",
    $ V) h5 p) f; M! m" }         RowBox[{
    ) N% I7 L0 R8 C, @          RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", 0 S( T  w( `; D2 D6 G. Z: ]2 O
           SuperscriptBox[
    $ w) {# [* q- B! W        RowBox[{"(",
    " W/ ]3 f+ ^1 _1 x+ f2 O         RowBox[{% P: |8 A! W& N. g
              RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", ( s" o  b' W6 }( ]
           SuperscriptBox[
    & T3 \; v1 }/ b1 w        RowBox[{"(",
    2 u1 O6 }- N+ @7 n2 h5 S         RowBox[{
    9 `; Q7 T9 N: F" D6 p. C( h          RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
    ' g% c, x- o/ f" c. n       SuperscriptBox["x8", "2"], "-",
    ( I7 \" O9 T1 z" p       SuperscriptBox[
    ; c* A3 ?% u. v! T4 F' R1 k        RowBox[{"(", % {2 U& P+ d+ ]  [
             RowBox[{3 l. k  |) |7 u* x6 c4 n! x! X
              RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ( ^7 k9 n6 @+ b+ v/ [# x  C
      "+",
    $ H! P% k9 S# e1 E  RowBox[{"0.23615247809381104`", " ", $ P- [9 ?, _) C. F! e
       SuperscriptBox["\[ExponentialE]",
    8 `0 P  v5 G& u# o+ E& }& f    RowBox[{"3.1415926535897936`", " ", 1 m" V9 S4 r* t) T
         RowBox[{"(",
    . w- F$ Z" B0 Y6 _( m      RowBox[{& `& O! O. v: r8 m" h4 L& ]' V
           RowBox[{"-", "0.11387365200400001`"}], "-",
    * ~6 _" J0 h6 b0 D# W- h7 u       SuperscriptBox[
    7 B6 D# X/ ^+ L" w) C. L! R        RowBox[{"(", ) `. F4 e) b& Q7 {
             RowBox[{& W1 @: W% g! i0 C( l9 V9 l8 }  \
              RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    ; J# {( V9 f6 P) y! H! l       SuperscriptBox[
    7 F8 s, s5 F0 V$ d1 G: {        RowBox[{"(",
    4 ]7 e5 R7 a. h" m         RowBox[{* v$ b- R1 z/ p# `
              RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    / F& B5 X" w) s& Z       SuperscriptBox["x7", "2"], "-", / ?3 f+ S- |/ N: b* x! l8 U
           SuperscriptBox["x8", "2"], "-",
      ]) D, z# g$ i. F- o2 I       SuperscriptBox[8 o% E1 ^* Z4 T& N& Z9 Y* ]  `
            RowBox[{"(", . P! {, ?" A, B2 q) o
             RowBox[{+ Q- }$ o- |- n9 N* k! P' v
              RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    2 W4 t, d+ K7 O; J9 }! E7 ?" k  "+",
    + H( t8 z5 z$ T$ r  RowBox[{"0.3207174990295845`", " ",
    8 Y1 C6 f5 d) p' O/ c* w' L+ q; |# ~   SuperscriptBox["\[ExponentialE]", 0 L& |; l9 q7 M- ?, o8 B
        RowBox[{"3.1415926535897936`", " ",
    # {6 S/ Y& e% K: x* B/ z5 o5 ~: i     RowBox[{"(", " c5 R% O& o, E& p
          RowBox[{
    6 M3 h3 F8 ~, @) Y# M5 i       RowBox[{"-", "0.11442644782500001`"}], "-", 3 p+ @8 D8 ]3 C% P( m
           SuperscriptBox[
      l' }4 H5 S9 n+ ~/ B7 M2 H5 p        RowBox[{"(",
    % y" H% j$ \& `; s         RowBox[{7 P, _1 u  K2 Z8 ]
              RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    1 n, T' v" y+ a" y6 o/ M# v/ }* W       SuperscriptBox["x6", "2"], "-",
    - C1 M* p/ B7 X- J; O3 M       SuperscriptBox[; M4 o" Z* |" o
            RowBox[{"(",
    + U8 b) y6 z# l7 c2 H2 Q- `# H         RowBox[{5 Y' Q  r3 w& o
              RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", " M3 c0 ~' K6 r2 |7 a
           SuperscriptBox[
    ) X  M. ^1 h( c8 Q8 O        RowBox[{"(", % x9 n: q/ B. s0 c
             RowBox[{9 r7 l5 ~: e$ ~2 d
              RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", ; W0 e2 C' m1 X  l# |) j4 @1 Y
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", 6 y" }7 V( F+ s2 o& D
      RowBox[{"0.15852708848338293`", " ",
    & B6 J1 Y; b" @   SuperscriptBox["\[ExponentialE]", $ k. S" f' ?9 B
        RowBox[{"3.1415926535897936`", " ", 2 j- h, ]6 A1 A
         RowBox[{"(", : O% O4 k* E. \1 w& u" i% p
          RowBox[{6 v8 u7 F" X9 d; z3 c7 m1 b" }  q
           RowBox[{"-", "0.21008576609800003`"}], "-",
      Z/ i* c$ Y+ p, N       SuperscriptBox["x3", "2"], "-",
    / v6 D2 P: Y/ q% V, n# K5 ~       SuperscriptBox["x6", "2"], "-", 6 L) p, F9 K+ o* R6 {
           SuperscriptBox["x7", "2"], "-",
    % g% x& F* Q3 U% J4 M2 `  s7 p       SuperscriptBox[9 Z% p$ i' x) s& Z: Z
            RowBox[{"(",
    $ t: W+ X0 n3 \& i         RowBox[{
    1 ^. @0 Y4 ^- ^6 d% h  a          RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
    9 b. h0 P) N& s8 K* t0 B) S9 ~       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    , W; A$ c& \$ u  ]9 K& {  RowBox[{"0.6019775648968266`", " ",
    , t9 w; c! v+ z7 J) \   SuperscriptBox["\[ExponentialE]",
    " `% U1 [/ w# y, E% \- t- j    RowBox[{"3.1415926535897936`", " ",
    9 ~6 I. y7 u, O% r! o3 w, P$ Z     RowBox[{"(",
    7 }0 v2 F9 `8 A' f      RowBox[{: l% t# ^/ k" Q
           RowBox[{"-", "0.4481471925460001`"}], "-",
    3 g; ?' Z0 ]% M! M       SuperscriptBox[' v7 l4 i9 {" y
            RowBox[{"(",
    3 f2 x+ W: `+ ^% \# S4 z3 J         RowBox[{* G4 Y2 T' {0 F2 p
              RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
    6 ]( a1 p3 u$ ^  M6 P+ L4 W       SuperscriptBox[
    & a  j3 v/ C3 ~0 k! V( p9 q        RowBox[{"(", 9 }, u0 H$ I# X9 ?2 ~
             RowBox[{
    1 ~' _. i& X& y& A3 d7 z          RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
    3 C6 v1 z+ ]( m7 k       SuperscriptBox["x7", "2"], "-",
    + j. }$ x+ h+ R       SuperscriptBox[2 y! I9 j. o( j1 g; t" M
            RowBox[{"(",
      Z2 X% {$ @, e' w         RowBox[{
    0 X( m% R1 r% ^; u6 i6 c/ l          RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", 7 O1 u1 `, k+ v
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", : w. w8 N2 x! n! G% T# X' Z. N
      RowBox[{"0.16041393254115266`", " ", 4 R( m$ q4 B+ B
       SuperscriptBox["\[ExponentialE]", 3 }! i) q: p, i$ S5 ^8 c
        RowBox[{"3.1415926535897936`", " ", * ^# U  \+ P7 x
         RowBox[{"(", 3 E" {- t$ W: {$ Z; N' G+ {1 q
          RowBox[{! q; K$ }/ t  x: ], \
           RowBox[{"-", "0.08722659614000003`"}], "-", # \6 P/ v" U) @2 B2 Y- F; M
           SuperscriptBox[
    8 C7 p/ ~8 |- b* t" K" l+ ~        RowBox[{"(",
    + }8 U* N' Q( c6 }- x6 f; `         RowBox[{/ S6 u7 E9 v' L: G
              RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
    0 O! T7 c  f0 P: f2 U       SuperscriptBox[
    ! j* E2 y/ R4 N* u% l        RowBox[{"(",
    4 K5 {5 W, T; k- O! z& Q( V         RowBox[{$ E0 Q' l) l( [& [9 T7 [
              RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
    8 M* w9 k1 k4 @. f; @& \* S' {: A       SuperscriptBox["x7", "2"], "-",
    & B1 _% T8 E! A7 y0 W. \0 C       SuperscriptBox[+ w4 {+ r# N; {6 q6 J
            RowBox[{"(", & c: I" X7 ]7 g- Q) i6 J7 B4 v
             RowBox[{$ t4 m8 x; |  w  G3 F0 i
              RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
    4 k5 l% e; k' n/ q       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", ! D. E! Y7 d) V9 d
      RowBox[{"0.482281849713638`", " ",
    4 {0 m  r. s& z5 c   SuperscriptBox["\[ExponentialE]",
    1 Y1 ]2 X  A* Z, z1 N  i5 s    RowBox[{"3.1415926535897936`", " ", 7 b$ }* E: F$ ^/ x3 d. J1 x! i
         RowBox[{"(",
    0 c: Y% h. _( V4 k. c" s      RowBox[{
    ( y! ]' k3 X6 h9 x- T2 B2 F; F       RowBox[{"-", "0.23738217000100004`"}], "-",
    % f) l: y- `+ P0 V# w9 v       SuperscriptBox[$ X9 \0 H% T0 Z& E: |4 b
            RowBox[{"(",
    6 e8 N8 p1 K' A: [& w  V         RowBox[{
    2 @+ K6 C: B9 f  X& F% Z* i          RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
    " h3 ?' K: _- l3 {       SuperscriptBox[% }. L) E) a- C# C* y* `1 a
            RowBox[{"(", ) k5 G8 Z4 k$ ], f- A
             RowBox[{/ [; Z( N- u% `& c7 w
              RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", & z  N+ V! J- @) f- _
           SuperscriptBox[' B& f/ i/ x7 m9 x; [
            RowBox[{"(", + U- W( i* B0 ~. l* |  `; Y4 y+ ~
             RowBox[{
    * g! j& {4 m( b- S          RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", $ E( Y+ w' @$ \8 E1 W" H' ~
           SuperscriptBox[# A! Q4 I8 I0 _+ K$ B. H2 \9 e
            RowBox[{"(",
    . e4 A! N9 f6 Q7 S: Y/ r# b/ T         RowBox[{
    & K. L9 y: X3 ^$ ^" k( a3 B+ g5 B; U0 x7 {          RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", " Z# W) M' D7 h
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", ; o3 l! R  X, j# L, Z3 b
      RowBox[{"0.29549238400772093`", " ",
    % h! e  l2 u- f  Z   SuperscriptBox["\[ExponentialE]",
    . N( Q; R% O+ N9 v3 I; ?) ^1 e. b    RowBox[{"3.1415926535897936`", " ", / W. U1 }8 J  B4 @* h1 y5 l# t
         RowBox[{"(",
    * A. N; [. ^2 M5 ^# f6 P- T      RowBox[{
    + a; w) @9 q7 ~       RowBox[{"-", "0.19162171876400003`"}], "-", 5 v4 v8 Y  v- ^2 d: q% p( w
           SuperscriptBox[* ^5 n# z" }/ C3 Y, j' ]
            RowBox[{"(",
    " i1 M/ ]; ?8 `* |! x% {  m# D3 J% }         RowBox[{2 I5 z2 G4 x5 b8 R
              RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
    7 |5 S9 o: P% i  z# \2 x       SuperscriptBox[
    % b7 Z% |1 G0 R" a- _$ J% E, B4 j' p2 B, [% Y        RowBox[{"(",
    ! P7 R% ~; t0 R/ f$ o         RowBox[{
      X  e# q$ r1 {6 i- @* A          RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
    8 m  p4 ~8 R! }+ l  |2 n       SuperscriptBox[7 ?% B" p! V& T* S1 ?# G5 l
            RowBox[{"(",
    0 E; s7 Q; V( B  o  ]1 o+ d         RowBox[{# @8 T9 T/ H* Y' w; v) o% [* M; v" S
              RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    1 @( N2 g6 \( B       SuperscriptBox["x8", "2"], "-",
    + q; p) |( g$ `" ~* [; ^4 p+ W       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", : K) J! u5 s* _- O* D# P
      RowBox[{"0.31296872769679895`", " ", 8 \, `( d' g) h3 ~' w) R
       SuperscriptBox["\[ExponentialE]",
    ' L1 Q0 `; {, `) E  `    RowBox[{"3.1415926535897936`", " ",
    " g* ]0 _, [4 v3 ^, p     RowBox[{"(",
    : a: {! S, J6 M$ a4 e* r      RowBox[{6 S* X, b2 g1 |1 k) d, P# }8 i/ Q
           RowBox[{"-", "0.109748954594`"}], "-",
      S8 E* M4 P; k0 x       SuperscriptBox[
    5 O5 O+ W& ]7 ]( i+ ?) k5 w        RowBox[{"(",
    3 K' U9 G8 t4 g3 l2 n4 \! M         RowBox[{/ }8 `: b4 Z' z3 K; ?# q
              RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    5 P2 T# |+ U1 j       SuperscriptBox["x6", "2"], "-", , s" f9 c' X/ U* D6 p$ }' m+ J
           SuperscriptBox[+ Y* Z) f# T. Y
            RowBox[{"(", 8 N* D( c$ j) q5 f: K6 A
             RowBox[{
    , [# \" W% h' {/ F' Q          RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
    ! K9 }( P5 B" ]7 [; R) l0 ]7 F       SuperscriptBox["x8", "2"], "-",
    ( V/ W7 o( w( \/ f7 J       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
    + e& y3 Z& t4 M5 J  RowBox[{"0.4666313851213299`", " ", 8 r+ |1 u1 m# Y/ W, W
       SuperscriptBox["\[ExponentialE]",
    . Y% l- e# V2 r) r- j6 k+ a    RowBox[{"3.1415926535897936`", " ", $ B% P1 r1 |# G, e2 V  v
         RowBox[{"(", 4 p* O# I" ^! [, L  ^$ n
          RowBox[{9 _% Y$ x8 @7 [
           RowBox[{"-", "0.14616677062500003`"}], "-",   h) s+ `% H5 g; s5 c
           SuperscriptBox[
    & F! g7 [2 z# ^, R+ G: n" I        RowBox[{"(", ' c2 ~% q- j- C. A! t/ J
             RowBox[{/ F8 C0 _4 U. v
              RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
    ; k" V( e- }5 a' U3 O- b" K       SuperscriptBox["x6", "2"], "-",   T3 }5 q. e$ ^
           SuperscriptBox[$ e3 D8 d$ d  _( |4 X5 x
            RowBox[{"(", 4 u; Y; O1 C4 m; t) G2 {
             RowBox[{
      k/ T% ?/ L& M5 u4 m' e          RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", + w! A9 Q/ e7 T4 x, I
           SuperscriptBox["x8", "2"], "-", $ j& S* ^( m( `$ q# f8 X
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", . ~% M6 h+ H- y& ]2 E
      RowBox[{"0.37419828116611387`", " ", / G( f3 |4 j" Y. |0 w
       SuperscriptBox["\[ExponentialE]", 0 M) D+ Y" A, @5 w8 H# ~* ?5 w6 f
        RowBox[{"3.1415926535897936`", " ",
    1 d0 k" _' R, |) @9 j4 ~* `     RowBox[{"(",
      z# y+ a8 V/ a5 }. X: V      RowBox[{
    0 R( R, N/ l& O4 k" H2 Z1 _       RowBox[{"-", "0.10407011464100005`"}], "-",
    ! w% c% r! F; U+ Y3 B# A: p       SuperscriptBox[! p# p: q+ w- G
            RowBox[{"(",
    $ Z9 Q( ^5 F7 r         RowBox[{9 d& m0 w/ z. R  M
              RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", 4 `, Q" T& j" y* w) T( v. C3 m, K
           SuperscriptBox[" p2 D# I  c& a, D, L8 H& U$ M% Z
            RowBox[{"(",
    : D8 E2 c. z+ B  H9 V         RowBox[{6 r. i- i+ a1 \! A$ }; j
              RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", ' \- D' z( p$ C( U9 @. g
           SuperscriptBox[" ]; A5 t# w0 E. I
            RowBox[{"(", ) Y9 ^. v$ Y! I+ J: a
             RowBox[{
    " P0 X) l$ w: D% i. ~) i- W0 J          RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", ; v3 }. c2 z% a" i, o
           SuperscriptBox["x8", "2"], "-",
    6 L2 O6 F$ r$ G) H       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", 6 c& Y7 D( ^% {. s( g
      RowBox[{"0.025873988843992612`", " ", + L4 n/ ^# G! v7 {, c9 \
       SuperscriptBox["\[ExponentialE]",
    & D' A" Y6 H* ?6 |: E; J- c. J    RowBox[{"3.1415926535897936`", " ", / s* e5 l# a* Q4 ?* i
         RowBox[{"(",
    * Z  J4 U( W3 |      RowBox[{
    * I' F6 k* }/ F       RowBox[{"-", "0.31770463544200006`"}], "-", ) j% Y4 _  O) q
           SuperscriptBox[
    4 P/ V. t, t) |/ E: D4 }        RowBox[{"(",
    & x7 O, Y7 x+ @6 R         RowBox[{1 r8 `+ d. S$ c  I# r8 X
              RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", " ?6 r, C9 p+ M
           SuperscriptBox["x6", "2"], "-", 5 H" O) G# ^% W8 u! k0 s
           SuperscriptBox["x7", "2"], "-",
    # ~3 B  h; J2 z* `( T4 ^& b+ @7 B       SuperscriptBox["x8", "2"], "-", 7 h" k8 a, J3 s
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",   E4 g9 k* x6 }+ ]9 F7 P
      RowBox[{"0.5575503376854455`", " ", + ?/ p' T2 ^+ ~
       SuperscriptBox["\[ExponentialE]", : i3 h# v3 Z4 e! [( j+ w
        RowBox[{"3.1415926535897936`", " ",
    : @, I9 Q  G. ?; T) F# m. @     RowBox[{"(", & E4 p6 z8 a2 h4 D- D+ Q% Z3 x
          RowBox[{
    7 H% b% K) z' i       RowBox[{"-", "0.6410867660730001`"}], "-",
    % @2 Y3 V' k- L6 c       SuperscriptBox[8 {4 ~+ Q) n3 w$ b7 I, }8 Z) t
            RowBox[{"(",
    & ?4 h) ]% T  w! ~: H         RowBox[{
    ! o7 g, V0 S  L          RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
    3 Y+ ]) O: C3 ]2 \$ y7 [$ q9 N1 }       SuperscriptBox["x6", "2"], "-",
    $ `7 w; T5 H) p! z       SuperscriptBox["x7", "2"], "-", 1 [6 u: W4 A/ B) F% `; \8 @/ ~
           SuperscriptBox["x8", "2"], "-",   z: c- N0 i- A& H  F$ ~7 j% n
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
    2 i& y: W' ]! w+ T( ?. V. Y  RowBox[{"0.13398540448199214`", " ", " s4 U* \1 U" h0 R# p
       SuperscriptBox["\[ExponentialE]", 1 W: h! v& r3 c  X
        RowBox[{"3.1415926535897936`", " ",
    0 h5 n0 S  q$ e0 S4 i0 r     RowBox[{"(",
    1 i, d% |: g% O; C      RowBox[{
    ( D3 Q9 h& n7 ?- E# v3 o       RowBox[{"-", "0.155663887074`"}], "-",
    % }' \* T% A$ I( O$ i; K       SuperscriptBox[
    % o- p7 Z* N1 s/ k* }        RowBox[{"(", 7 s5 a4 B: J% T1 D
             RowBox[{' Q2 M1 I) d4 a/ b% Y5 Y
              RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", , |4 o6 _4 S' Z# S+ d. @2 {
           SuperscriptBox["x6", "2"], "-",
    ) B- z6 P1 Z3 r. v, B       SuperscriptBox["x7", "2"], "-", 8 v0 U% \- Q( T- d, b
           SuperscriptBox["x8", "2"], "-",
    : B* a1 z: G0 m) g8 C6 X3 w       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", , T( h" F+ T/ A; l
      RowBox[{"0.4572385099113415`", " ", & R' Q% V; _( q7 v  ]) f
       SuperscriptBox["\[ExponentialE]", + f/ f( b+ b/ h5 ~  H0 S8 S, S
        RowBox[{"3.1415926535897936`", " ",
      c. s& z+ o8 o, j; L     RowBox[{"(", - A9 A9 r& w; X1 y6 w9 k2 K- H/ f3 q
          RowBox[{
    3 {7 y1 l" X( k8 p- Q7 c       RowBox[{"-", "0.14151232428600002`"}], "-", 4 L8 x! k6 T! C% t# P
           SuperscriptBox[
    ( o% x1 c( H/ [) y        RowBox[{"(",
    - d0 e0 N! W2 S0 x  a% x; b; C         RowBox[{: Z5 W3 G$ A  }, h, L
              RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
    9 e  x0 }$ _, l1 K       SuperscriptBox["x6", "2"], "-",
    * D  M/ |9 C  G: ~       SuperscriptBox["x7", "2"], "-",
    0 ^9 l2 W# L/ p9 k       SuperscriptBox["x8", "2"], "-",
    . t+ @* r. D9 T0 e2 j       SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",7 f" t- I" c7 B' h1 {
    CellChangeTimes->{3.577962841401445*^9}]
    / u1 P/ c0 N' F  v1 d}, Open  ]]4 o- _- Z# q1 P' Q
    },9 i, K+ }) y) {8 k3 @( c0 ~  L6 O! A
    WindowSize->{1093, 659},, d- P* U, |* y
    WindowMargins->{{61, Automatic}, {Automatic, 15}},7 B" H' Q" T3 R9 @
    FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",2 u3 N( a( t: O' U8 D
    StyleDefinitions->"Default.nb"
    7 {- D$ p" C3 F& |]
    $ m6 u0 R* u1 P; X3 t8 ?: M  H& p(* End of Notebook Content *)# L9 R7 u0 p( V& B4 G

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

    + L4 A1 W/ G+ u/ S. Y这个是用mathmatic做的神经网络，能导出最后的权值，就是可以写出表达式，我想用matlab做，却不知道怎么做
    回复

    使用道具 举报

    569646632        

    0

    主题

    7

    听众

    46

    积分

    升级  43.16%

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

    • 签到天数: 9 天

    [LV.3]偶尔看看II

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

    使用道具 举报

    -___        

    0

    主题

    8

    听众

    44

    积分

    升级  41.05%

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

    • 签到天数: 12 天

    [LV.3]偶尔看看II

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

    使用道具 举报

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

    qq
    收缩

    • 电话咨询

    • 04714969085

    fastpost

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

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

    蒙公网安备 15010502000194号

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

    GMT+8, 2026-9-11 03:09 , Processed in 4.530905 second(s), 100 queries .

    回顶部