快捷通道

QQ登录

只需要一步，快速开始

  注册地址  找回密码

数学建模社区-数学中国

留学>>
返回列表 发新帖
查看: 10622|回复: 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
    问题完善一下！或者把代码贴上！
    4 P2 Q) A3 W, J" T/ t; c
    回复

    使用道具 举报

    琳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
    % @# D1 t9 ]( C/ X: Y/ {神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗
    " h( K4 d/ s0 l" [, h2 m
    (* Content-type: application/mathematica *)
    2 H5 z) n9 T5 h- }0 Y  U
    * z; e$ [& W% B! w: o(*** Wolfram Notebook File ***)3 a5 Q- V, B( Z
    (* http://www.wolfram.com/nb *)4 [1 t. J% Z0 K7 m$ I$ Y: v
    : E* D# A, p/ T9 J; c0 C
    (* CreatedBy='Mathematica 7.0' *)
    0 P2 d' V" P& M3 X% |# c6 j- ]( j
    ; Z( ?- X, X8 I2 ^(*CacheID: 234*)8 _) y; ~. K  D( V' }
    (* Internal cache information:  C) w% P+ E' L. u/ c5 l
    NotebookFileLineBreakTest* N: A% G5 Q/ ^2 Q
    NotebookFileLineBreakTest
    / P0 X% f, r# k! _NotebookDataPosition[       145,          7]% Q% W& F" o+ F, k- u& C9 n. I( M; F
    NotebookDataLength[    423629,      11534]
    ) U, j9 n+ M! h6 vNotebookOptionsPosition[    412607,      11173]
    2 a! D/ V! X1 x; A  y6 ~NotebookOutlinePosition[    412953,      11188]( N+ H: D, f* w+ }5 r
    CellTagsIndexPosition[    412910,      11185]
    5 v+ d% N& V6 d; F# N; p9 {3 lWindowFrame->Normal*)) d5 Q7 d* z0 X
    8 q* r5 e& `4 {( E  ^  L, M& o8 c! S
    (* Beginning of Notebook Content *)3 w0 k% h5 \' F! A8 r
    Notebook[{0 G- q; l% U1 r) M

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

    1 ]" }% |4 s6 @+ UCell[BoxData[/ k  W2 C1 m5 j# C$ m4 @$ d' T2 k
    RowBox[{. A6 u( q. V. N0 j5 E5 I/ d2 m$ q' Y
      RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[",
    # O  }3 f" m5 @2 u% X, m$ L   RowBox[{"1", ",", "i"}], "]"}], % P% B: n( t) o2 W* F- p, S- h) k& x
      RowBox[{"\:5230CM", "[", 7 I, ^3 A9 c8 u& ?1 e6 v0 q
       RowBox[{"21", ",", "i"}], "]"}],
    , e/ T' }- n% y, z, ~6 f5 [  "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\
    # N3 [8 U! G5 X6 @3 A\:51fd\:6570u1\:5230u21"}]], "Input",4 e! T3 q/ p; v4 _0 j" u! Y( O
    CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {/ L* C! Q5 R" ^! s
      3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9, , V) Q: s. t0 q: z! T9 r' C
      3.577960526583145*^9}}],
    $ R% p5 T. t% e/ l1 I/ v+ _& U1 U; L2 N# E
    Cell[BoxData[) b4 }/ G: g$ _* `9 G
    RowBox[{"Clear", "[", "Delta", "]"}]], "Input",# K# R" v  W' o6 Y% t0 _9 b
    CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],
    / o  h0 X) a4 a$ |; }
    $ t  }: U; G' j! m7 WCell[CellGroupData[{  E0 j# z5 i; q3 k# B8 F& l( L. N2 [

      V3 G1 J9 @. X# Q: P9 N5 y7 d' \, q8 CCell[BoxData[
    / A% t8 A% L" T4 d- H$ X, _ RowBox[{"Xa", "=", 1 Q9 g  K/ n& a* L4 N8 y' F
      RowBox[{"{", % i$ t$ H% p: o5 _3 O
       RowBox[{
    # h. a, p  e' \   "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", * r9 D9 x" ^; V+ {2 `' @
        ",", "x8", ",", "x9"}], "}"}]}]], "Input",  i% e! {" Y7 R5 D+ J/ z
    CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
    ) }/ y+ L$ q6 p3 n! `+ ^. @5 s/ b5 }! t9 ]  t
    Cell[BoxData[+ G7 {$ M$ F8 V3 c+ d
    RowBox[{"{",   Z( A9 _! G, v% E# t; _& b
      RowBox[{
    0 Q& N+ T0 u, V& W4 i: w* ^4 c% s, \  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
    6 F; A: t3 P& g! C    "x8", ",", "x9"}], "}"}]], "Output",
    # ]1 n, i4 H% k$ k, f! A2 m5 ]# x0 w CellChangeTimes->{
    3 u. ]% ~6 r! N( W0 }  t  3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9, 6 k# s1 O# }) C! h3 O( q
       3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
    3 }; R- F, L- r) ^" x6 z   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
    ! B6 A' @" _9 d3 m- y. y   3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9, # X  s( T) n7 E0 }# V+ n7 N
       3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {
    ) C& ]' ?4 h4 ^0 B8 l8 T   3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9,
    4 ]' c, i9 N9 `* _2 S   3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9}, * o* H5 {5 O# Q$ K* B& y# {; g
       3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {7 V% \3 V9 w- q. _- m; V* P% P3 M
       3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {& [( F  {" K* D* G6 p
       3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
    8 A" Y0 z( ^0 H7 ?3 w   3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
    6 @! C& ~# c- M   3.57801215725*^9}]
    ! x  v+ w5 C, `6 g0 v0 x}, Open  ]],1 b7 ~6 \0 R! z; K! u
    3 Q* }: Z& Q/ i2 S- r1 w& c
    Cell[CellGroupData[{
    + i5 a+ w; ]6 @' S' X( h' O% }
    9 i' ^2 }) S0 n! C/ I7 v7 r. mCell[BoxData[" ~: e7 S, J! E# e
    RowBox[{"Ca", "=", . B. ^* g4 O" R4 U! q
      RowBox[{"{", 9 v6 x, ?3 x, k& l( m+ c
       RowBox[{
    9 b# }* a4 |+ ~  s8 j8 ~   "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7",
    0 x* ]; J7 j6 x3 C    ",", "c8", ",", "c9"}], "}"}]}]], "Input",& W; e% p% t7 j( b9 ^. b9 i
    CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],( K+ l; f$ K* r' g
    . r1 S+ j$ _, w& R8 `% Z
    Cell[BoxData[
      I: g) g% v) E1 o$ H6 H" O0 C  W7 U RowBox[{"{",
    ( ?( ?8 s( j; X- c  RowBox[{5 a- L4 v5 {/ Z4 P/ l
      "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
    6 b1 O4 K! y9 J+ b4 A    "c8", ",", "c9"}], "}"}]], "Output",$ z5 q* c* S1 |7 x. f# ^2 j
    CellChangeTimes->{
    ' ^$ u0 G: L- t. R+ _! U# s# m, a7 |  3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9, . n9 r6 X/ t2 r2 D
       3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
    ; v; m* q9 {$ H/ a7 B( U3 @( p2 `   3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9,
    : M8 ^  E$ H* V9 }0 i   3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {
    " ~/ A  p- P2 F" m   3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9,
    5 O# y+ D5 k1 K9 i- o5 Z+ ^   3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9}, 7 h* a+ N3 ~! k
       3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9, , g% @" r$ o" }: a. ]) d& K
       3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9,
    ( H8 S9 ~  o, D/ d/ Z7 _7 }2 J   3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
    7 ]( G9 C$ f; c% G8 O$ O0 g5 p3 t$ c   3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {( a5 j6 [$ P- d) |) c
       3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9, ( @: z- j% a/ P) X8 k/ h) ^) g
       3.577961904604212*^9}, 3.578012158671875*^9}]
    & T# {9 b9 C% X; ?9 K7 m, d}, Open  ]],9 _9 u, [0 K: _5 M0 _) G/ R

      e2 m9 r" R- T. H4 u: Y0 ICell[BoxData[0 B1 h5 W4 c: x8 J; i
    RowBox[{"For", "[",
    5 v( q" [8 l, K) ?. k6 n  RowBox[{3 Q2 g# r" S# s8 r/ Z
       RowBox[{"i", "=", "1"}], ",",   x4 P6 D! i' m! W4 W9 g
       RowBox[{"i", "\[LessEqual]", "9"}], ",",
    - P) S/ J5 B) y" _& k' Z6 T8 e; @   RowBox[{"i", "++"}], ",",
    " }; J" O# r5 F2 Z9 l   RowBox[{( j: C, s: @. n3 {5 w5 O* q: W; ~
        RowBox[{"Ca", "[",
    , c! _3 ^& |, G3 B; B# o     RowBox[{"[", "i", "]"}], "]"}], "=", $ F* M# M3 t( e7 l; u3 F
        RowBox[{"CM", "[",
    2 o/ B  r8 N" U0 r     RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",: R1 ?' z7 i* V2 w$ `
    CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
    - c  X4 `7 ?; p# X7 |: _   3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
    * P. H: [- L" s6 [+ ?. B0 @" h   3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9,
    8 f% e9 t1 E% \2 h. s* s; X   3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9,
    / g1 L. [( E: n  ?+ c0 R" I' ]. O9 P$ Y   3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9, 3 {. r( L5 w" D
       3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9, 4 e; v! @- L$ D: a" |- T3 I
       3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
    2 \1 j7 n% r# n3 U   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
    6 X, I( W0 A0 S4 S/ {" _  ~- S: B   3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9, + d" ?2 `! @. h+ z4 O1 |; u$ q2 E
       3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
    # q: T5 h4 u' P, G! g7 j3 S# S$ D   3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {( k5 ?1 G4 `' g, }8 e
       3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9,
    ) T4 i- V" E4 b- T8 k4 |  W( {   3.577961906897415*^9}, 3.578012176296875*^9}],% q$ r7 m4 B& ~, d1 x: I6 P
    3 R4 |1 C5 ]* g4 X, q6 I
    Cell[CellGroupData[{
    & z% I% G& R) t6 ^+ }5 o
    8 {/ k' z$ j" S( w5 yCell[BoxData[
    ' }6 ]6 @' W, p* q0 k RowBox[{
    1 @2 [- `1 l! i0 e  RowBox[{"(",
    5 {' x: f4 b4 [   RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    , F! j3 |4 f" H9 ^# g% e  RowBox[{"(",
    6 H4 f) @4 h8 c8 E7 R   RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],& H6 ^. n; g4 I- n0 U

    9 N' p  J+ A% T: l9 aCell[BoxData[6 p/ p- l' R5 m; ~) D0 r% |$ ?; O
    RowBox[{
    + K9 L# f/ c3 X( P' [+ d1 W$ v  SuperscriptBox[4 t7 _5 K' Z5 @7 t" G  B
       RowBox[{"(", 1 T( h; F' O3 m2 B
        RowBox[{
    $ w5 h2 P% f' k     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+", 1 b, ?( [- @- f' `* M
      SuperscriptBox[
    5 v! Z' b/ y7 T   RowBox[{"(", % N+ b, M  H; w0 b( T' }1 b
        RowBox[{2 U1 h0 f* `# n' q6 V+ {0 w" {, d
         RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+", % `0 ?; J1 k+ s% o" T
      SuperscriptBox[
    ( B  r" `4 \- H7 n. D1 `/ e   RowBox[{"(",
    4 }4 s) U+ l% B6 N    RowBox[{
    , o/ i! w* E4 K4 n3 d9 a     RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+",
    9 }, |: u1 w: u  SuperscriptBox[$ d9 q5 j+ C$ C; m4 i
       RowBox[{"(", ) [! s$ [: v$ @$ T5 Z" {3 Q# X
        RowBox[{
    , B3 _6 B1 l1 Y( R. h     RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
    1 N) m6 q" Q/ S9 r7 f9 h! g  SuperscriptBox[6 _  z; Z8 ^: Z4 [2 d& t) X
       RowBox[{"(",
    2 t1 [; `$ L9 ^/ z2 c7 L    RowBox[{( Y& d8 \. K" S. x) D( |
         RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+", : W: r7 |* B8 W3 C, D! o  O5 l
      SuperscriptBox[
    7 D2 \, u$ K8 r8 r9 M   RowBox[{"(", , a7 V! \) S0 P5 s2 R- ~
        RowBox[{
    & d1 r# p. l" Q3 i# R4 D$ p     RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
      i4 {1 y3 F) g  N- Z3 Q' b/ a& e8 d  SuperscriptBox[
    $ i0 R  d9 Z& j% O   RowBox[{"(",
    8 g1 ~5 ?7 ~/ X) j+ A    RowBox[{
    . Q5 V. u) u8 b3 V( S. |     RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+",
    / C+ H" y# P8 }/ u7 r( l  SuperscriptBox[) d; d! T( W; V
       RowBox[{"(", - P+ A( V6 ~/ Y, j7 c6 D
        RowBox[{9 P, i0 n2 g) @& t
         RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+",
    $ |* P+ @% j4 T  t4 r  SuperscriptBox[
    8 L* Q; J! c1 _# H& \5 ^& \   RowBox[{"(",
    + C* l8 P( S; T0 d$ A    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",
    ) k7 K2 c% P9 h CellChangeTimes->{: D  l$ s# Z: n8 c. |5 b) W
      3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, 2 V  b6 H. A. o2 z) i6 T
       3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9,
    & x6 k4 J, ?% v   3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9, / K7 L# O  C5 Z: `4 {8 B
       3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9,
    8 f! m  l# r: x) {- P  T   3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9},
    # Z/ x7 F! {; t5 p& t/ ~   3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,
    ( ]( E* ]& V- W' Q+ |3 o0 H' U% W2 Q   3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
    ) I5 ~. g! p8 }" Q6 W+ E: z   3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9, ! y7 ^9 f3 \$ z3 F8 t) X8 z
       3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {$ z7 x! m; C& z9 u. z
       3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {8 \1 Q4 A& L. s5 _& V
       3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9, $ r% }& `8 C: Y! x& m, C0 a
       3.5779618537169228`*^9}, {3.5779618846049767`*^9,   v4 b' S; D3 z# G. T% _4 }
       3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]8 i. x8 M) n: X0 `
    }, Open  ]],. M4 I% g) K4 ?. R( c3 b0 x: N8 S

    + u; e$ T3 C" _# gCell[CellGroupData[{9 ~5 D5 ~2 g, K3 F
    2 ?  x0 I! g4 T  _1 M( m' R
    Cell[BoxData[
    ( ]; q, f9 @" o5 Q/ n9 j1 h RowBox[{
    1 h9 o% |0 A7 [; ]3 K  @) N1 L( ~  RowBox[{"Ca", "[",
    & \+ c  H- M2 ~   RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",
    / g2 M2 B/ e/ h4 e CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9, 6 n# o3 D6 F9 [# w& o: L9 l
      3.5779616465173616`*^9}],
    1 y* _& T/ @; F+ W$ ^3 q4 \
    * P6 f* Z( X/ W( g+ U+ s5 ]& `Cell[BoxData["0"], "Output",; t& `8 S) G8 W0 F- N
    CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
    ; O) z/ E4 b( C  T+ U  3.5779616484049644`*^9}]
    9 Y! c! I( M3 R. q}, Open  ]],0 t% K& j0 d# ~& a. e, ?. l
    / ]6 k' O. A# @8 h& l9 n% R/ y
    Cell[CellGroupData[{) m# {5 A" _2 }% _; p  n
    ; X6 H7 q5 g- v! E
    Cell[BoxData[; E* W% i; {  L$ X
    RowBox[{3 Y0 A0 j8 @& K
      RowBox[{"Ca", "[",   J5 l! z+ Y+ |* e$ p" Y. V9 K
       RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",' x  {9 [" D- Z0 ]
    CellChangeTimes->{3.577957376235614*^9}],% v2 ]. H. {2 `! Q7 J2 U" f; h. M

    " z% G: ?! p9 h; y/ X! u+ BCell[BoxData["0"], "Output",
    2 L/ i1 ?# \2 Q" Y& K! T CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]. h" @& X4 N2 [# Y! r, M/ H
    }, Open  ]],$ V! O0 p) g& L1 S5 {  R

    + H& t/ I  R" W9 ^8 K, r# [Cell[CellGroupData[{
    2 ~5 q4 l7 V1 w0 ^. k" N, b0 C1 K! |$ F
    Cell[BoxData[  b  N( g- C* v( q' a
    RowBox[{! I1 e6 g" k6 n1 X
      RowBox[{"Ca", "[",
    % R& y! a* L! ?7 f& x' [& V   RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",+ O& c: d: D" E% b! o" T5 G
    CellChangeTimes->{3.5779573112927003`*^9}],
    ' e% L, {5 _- Q: h# s
    ) W- ^, q; B! A1 MCell[BoxData["0"], "Output",5 S+ }4 d( s8 }' F
    CellChangeTimes->{
    $ |; S+ l' y8 f  E) P  3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9, " S. U8 y4 T- M+ ~
       3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
    " `& Q8 `+ q) k2 B* n   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
    ) v' {, k& D# z6 l/ l4 b   3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9, 0 H1 S7 R; W( Z9 g  J9 T% A
       3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9}, ( D: C: s1 M3 X7 T8 a
       3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
    0 f! Y) h3 [! W+ _$ g, f9 S% f% l( a) F( p}, Open  ]],
    / p  z2 @( n* f) J/ U3 \$ L1 G1 z: f6 X+ ]9 a! h9 A6 Q
    Cell[CellGroupData[{/ Q+ g  E6 T& v5 o6 v/ ~

    7 k; }' H# p( K5 ?: ACell[BoxData[
    ; O7 h, T+ ]$ M4 d) n: p  W RowBox[{
    : l. w) q& B1 |% h/ `- u  RowBox[{"Ca", "[",
    4 J8 F  f( a1 w4 B$ v  E3 H   RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
    9 D( `/ e2 u* x) z5 o) K CellChangeTimes->{3.577921461734375*^9}],, J& P1 ]. H$ b7 G

    : b2 b  h8 }2 m% RCell[BoxData["0"], "Output",
    6 n. Q% E- g6 L* x2 x9 W CellChangeTimes->{: Y* O5 x8 Q  O% c4 k
      3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9,
    9 Q. T1 d# w6 {4 S7 P$ ~   3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
    ( ~- {  n& K2 x/ x) M/ p   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
    6 F$ ?/ y3 Y' R6 g) T8 y   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9,
    9 [0 s' G4 ]4 q7 P7 P   3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]
    0 k6 z8 m! o) t3 O! K( i8 V5 \7 [}, Open  ]],
      F+ {: N! N8 W
    ) X% k/ y, P4 t- K1 T: }: mCell[CellGroupData[{
    + B- x8 D7 o6 x6 [
    . V* l1 Q& c# r& {7 P. _% i6 H/ oCell[BoxData[
    + ^/ C$ m" m9 S9 V8 p& E RowBox[{6 @! S0 i2 Y2 w. K( g4 P, {
      RowBox[{"Ca", "[", + Q3 v% ^4 \: v4 a% s
       RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",  m6 D$ Q5 h5 U, g. r3 R
    CellChangeTimes->{3.577957303118286*^9}],  t9 F1 [& u2 b5 a3 Q+ e5 Z

    ) O/ k: A9 L- x  Y6 A7 v, }1 U' f' mCell[BoxData["0"], "Output",
    6 g( \7 T& T( A! [/ X CellChangeTimes->{. N* h3 m; m3 B. ~/ O0 b! W; V/ P
      3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {0 x% b1 Q1 d9 K  N6 e) l
       3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9, & ?  r9 m; Q3 k. h
       3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9, ( H* f' e  d- Y% F) a  S9 Q
       3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,
    7 T. `/ l# R) e- E  L1 n7 o   3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9, : V: s" T2 d  u
       3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
    * j# ^3 I8 B) \, E. y4 d1 m0 z# e* d6 x6 \   3.577961889378585*^9, 3.577961912965826*^9}}]
    0 `7 L1 s7 a% P* A$ I/ k& u8 B9 a% O8 @}, Open  ]],( j6 L7 l& t$ U6 A; J% W

    : `2 _* O" Q. s8 l9 WCell[CellGroupData[{
    6 h; \7 O9 _" u4 I. v: y0 o1 j$ G; F0 u
    Cell[BoxData[
    / P0 s+ V* W1 _( b; m1 P+ \: I& s5 f RowBox[{0 D, H' O" J/ B8 C+ @
      RowBox[{"Ca", "[",
    , }+ |% ]5 d, T1 c1 f/ V6 e   RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",# e4 y4 p) y5 ~3 p
    CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {5 F% V0 Z7 q7 R% n* W' l2 o
      3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
    2 g' d! A+ {# t- O4 s  3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {# W3 b& c4 R0 B+ p
      3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
    1 r7 E: `9 f, i. y( ]  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {- e2 d9 K) X6 U) U' ~
      3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
    : J; K& O2 z0 {2 U, U! {+ n  3.577921435703125*^9}}],
    ( f1 h: D) k" j: h7 x5 R5 L% a
    ! H1 U1 Y3 |$ s6 F! }) z4 V) wCell[BoxData["0"], "Output",1 g+ J: }/ z2 S# ^, M7 q
    CellChangeTimes->{
    % y; u) m! \: B& h  3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {
    5 ]3 b: f3 C" }9 S; z, ^   3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9, 1 u9 C: g; Q, h! m2 o! t+ g
       3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {# j( _; w" Q$ k. n# p$ z9 J
       3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9, 7 Y+ E  p2 ?) T
       3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {
    ) y9 B4 l! k: f   3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
    , `' }$ h1 j) K1 y. Z8 ?9 X   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
      j% H- ?% Z- b   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
    0 B8 |& n6 l' w) J   3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
    - o# G3 `# c2 H   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
    % Z; q: p6 v& Y# @4 v/ l. {   3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {( }) l. y0 e& t1 F2 r) m% |
       3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9, . o# ?) l. K8 b% U9 W$ v
       3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]! q7 c4 t3 Q. k  h+ w% u# Y
    }, Open  ]],: r8 I$ e) K. e% D7 L
    # `1 i1 e7 i( y' b0 S: X/ ?! k
    Cell[CellGroupData[{
    ; R$ v$ S* {6 ?" n# W, _0 v) O6 b3 U' ]! H  f
    Cell[BoxData[
    + m' \8 x) p' _# E4 R8 B RowBox[{"Delta1", "=",
    # J2 q- B9 s% O' X% s, j0 ?  RowBox[{
    2 Z) b+ W8 r! J& T5 p% Y3 A7 ?   SubsuperscriptBox["\[Integral]",   C, [5 w" _( F8 _$ v
        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    ( M5 ]+ v8 r0 K/ a   RowBox[{  S8 l, ^2 _1 j% d- i' o! A9 v. Z
        SubsuperscriptBox["\[Integral]",
    # T, I. n( c3 f# a  C9 S     RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 9 ^! _, i# F: I2 _, f) H/ d
        RowBox[{' U* d! R6 P3 S  E! Z% w& m
         SubsuperscriptBox["\[Integral]", - i# [( t) z* t% t: ~
          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], - e8 O" b8 t( I1 N% Q' I) h- ]* w
         RowBox[{  {5 |3 i" i% e$ \6 j; P& a$ e' _0 a
          SubsuperscriptBox["\[Integral]", * u- I1 v$ Z9 d/ h" h( _; B
           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], . {: Q( h9 p7 D
          RowBox[{+ G- W' S& W# R, \- N
           SubsuperscriptBox["\[Integral]", / w) u/ m! t% ?. |4 {' s" m/ }$ d
            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    ' |! e! @, _+ r$ D" x, R. h1 ^       RowBox[{) f4 i' S3 s, ~
            SubsuperscriptBox["\[Integral]",
    . V- G% z. b, \) S9 b# M: Q         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    & G9 a9 x* D/ \5 u2 B# J* H4 W        RowBox[{
    # e( d: v) y+ {         SubsuperscriptBox["\[Integral]", - e* z3 i1 E0 k# i7 T
              RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    ; e7 h) A1 N4 r7 F         RowBox[{
    * h0 ^! P0 Y) n( F  ?          SubsuperscriptBox["\[Integral]", 9 o6 T4 c: g$ i
               RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], " Q. t! z9 ~" c5 _. @
              RowBox[{
    2 r) A4 ]5 W7 Y/ i! B, |           SubsuperscriptBox["\[Integral]", 8 M5 |2 \* m* S( }) g
                RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    - J* `9 ^9 O; Z' q6 L           RowBox[{. I( }$ {/ E# Q" `+ a2 O' L
                RowBox[{"Exp", "[",
    - z1 U" h) y" O+ H; T' w: a: e/ M             RowBox[{
    : s0 y# p+ n" I0 N5 T5 a              RowBox[{2 d, i6 A# H( U) n. V" K
                   RowBox[{"-", " j. ?0 S$ A# _  v2 h
                    RowBox[{
    % _; R" s; e4 z/ S3 G, C                 RowBox[{"(",
    0 ^3 y4 o0 L% n* e6 g& c                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".", / O0 P* F  b% C1 a
                     RowBox[{"(", " \6 i% Y2 f, j% `
                      RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
    . }9 ~, D6 n$ b8 V" l7 N+ D. A) j              "Delta"}], "]"}],
    : A0 e2 p/ \7 F6 R. r, A/ z& V6 q$ d% n            RowBox[{"\[DifferentialD]", "x1"}], 4 ~2 n; P' }# U1 m
                RowBox[{"\[DifferentialD]", "x2"}], 8 y4 U' M$ z3 C
                RowBox[{"\[DifferentialD]", "x3"}],
    2 J* j8 i6 B8 F* ]% P3 g            RowBox[{"\[DifferentialD]", "x4"}],
    & ^% L- o1 X8 w# Y$ y            RowBox[{"\[DifferentialD]", "x5"}], ! t7 f2 K/ k% T
                RowBox[{"\[DifferentialD]", "x6"}], 2 _2 [1 n+ L) D! l% L: g0 n
                RowBox[{"\[DifferentialD]", "x7"}], + s: R2 K+ p0 @2 ]- n# V
                RowBox[{"\[DifferentialD]", "x8"}],
    4 K2 O( b; x) f5 Z$ o2 F  z1 x" J            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
    & Y2 U* l3 _% S4 K) v CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {
    & h3 f7 I, S1 e  m, H   3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9, % T. S) ?1 r, l1 s9 c  B  ^
       3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {
    # Z- Z) P+ R3 A/ z   3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9, 8 U5 j3 ?, p" N5 \9 @! I
       3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {/ Q% T& I& S5 O# \* ^) j2 C
       3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9, " r% @3 K/ ~7 C: A) `' @1 D0 z4 n
       3.577918964453125*^9}}],
    1 P& V& A8 y4 n3 ~
    . a; [0 a% [# s, R" j1 Q, }Cell[BoxData[
      z  Y  q0 k* k2 p1 r RowBox[{"97.40909103400237`", " ",
    0 F! ~: z- b( m  SuperscriptBox["Delta", "8"], " ",
    9 t- u, M* @- b  RowBox[{"If", "[",
    : }6 v, ]: v4 N" z   RowBox[{4 p( m  [* r( o  k
        RowBox[{9 j* y# I8 L3 m+ M7 J- Q6 ^
         RowBox[{"Re", "[",
    $ V0 V5 s( |3 `' J+ s5 O( X      SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
    6 S) q- b0 y! A    FractionBox[! ?1 {7 J) M  T
         RowBox[{"1.7724538509055159`", " ", # Y/ c7 o; B2 Z3 _
          SuperscriptBox["\[ExponentialE]",
    ; ]$ u7 b) M/ l3 z$ ]+ l5 T# C       FractionBox["1.1102230246251565`*^-16",
    + u7 L2 F3 R/ }        SuperscriptBox["Delta", "2"]]]}],
    2 \- t  D6 D) [1 ?# M1 p( h     SqrtBox[
    . V. M/ p  {4 q( k6 X" M      FractionBox["1",
    9 K& q* T  K) Q5 I5 ~       SuperscriptBox["Delta", "2"]]]], ",",
    % g) W3 u% Z; Z! l5 I8 D4 r    RowBox[{"Integrate", "[",
    5 l- l2 U0 w, m# M! Z# m% u6 K' A     RowBox[{: n% \3 Z8 L6 {( J
          SuperscriptBox["\[ExponentialE]",
    ) a0 L$ o0 h. Q* I9 |. t       FractionBox[+ g. a4 \' e2 x. C, R
            RowBox[{"1.1102230246251565`*^-16", "-",
    0 x3 m2 q* Q6 ~$ B4 ^# a. ?! w         RowBox[{"1.`", " ", 3 {5 ~: r' _9 H) W# A2 R2 @
              SuperscriptBox["x9", "2"]}]}],   l% b0 ?$ p( U  k  H
            SuperscriptBox["Delta", "2"]]], ",", # g* u, w9 M9 n  ~
          RowBox[{"{", * R: @( S/ W8 ]& B& |
           RowBox[{"x9", ",",
      s" r/ x8 ~4 {4 R; j        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
    ) L: r3 J5 B$ O! w* Y+ R* ^) h3 Z# i      RowBox[{"Assumptions", "\[Rule]",
    . k, y# n0 ]0 c       RowBox[{
    % }+ S0 f0 O; p, q7 \& s$ S        RowBox[{"Re", "[", ; ?; M  h- o8 i# o& ^: h# o& ~
             SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}], ! I8 I) a8 G* s+ x6 t
         "]"}]}], "]"}]}]], "Output",
    9 X% q/ ^0 P' |, e1 v" V# j CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9, * g6 p) X+ E  z, N/ a1 k
      3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
    5 W% g3 |# ]5 ^( i: f) R  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,
    ' E2 H0 a( y; a4 k7 P) V  3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9,
    9 u0 A8 M/ R9 ]- M/ R1 |7 u7 d  3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
    . T- `+ z# v7 h7 F7 U; I6 v  3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
    5 O8 h3 k* w7 [$ i4 g7 h; w' g- u. }  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}], I& F  \+ @7 I# a$ I! s# [
    }, Open  ]],
    ; P1 M% f1 u# h5 u7 v* _+ l
    % e! c: }8 W, k) n' ?Cell[CellGroupData[{
    , R! Y% [( Q4 p2 F8 d/ G0 _; }% i9 P/ ^* e1 @: K3 b0 V
    Cell[BoxData[5 w+ J5 `; w8 H/ C! ~
    RowBox[{"Delta1", "=",
    5 o: D' x& i, q6 T  StyleBox[
    ! o( ^9 {$ G% V   RowBox[{"97.40909103400237`", " ",
    ' m4 ]* r0 u- n  X9 D, c6 k    SuperscriptBox["Delta", "8"], "  ",
    : H! a2 g8 H  f9 u9 O    FractionBox[! h3 |/ R! W: g, v
         RowBox[{"1.7724538509055159`", " ",
    ) |  m, i2 X0 z9 f* i      SuperscriptBox["\[ExponentialE]",
    1 q' Z9 ?& ~. h: v+ S0 U- K4 X       FractionBox["1.1102230246251565`*^-16", ' N, `  a+ j* ?5 K( H5 F3 M
            SuperscriptBox["Delta", "2"]]]}], & B) t: r) l& l. H7 o
         SqrtBox[
    " v8 n3 y; G" Y- \! C) ^. Y      FractionBox["1",
    ! o' y  o3 r) l& h1 ^4 u       SuperscriptBox["Delta", "2"]]]]}],! s  ]  p, |: g4 b# a
       FontWeight->"Plain"]}]], "Input",
    - o" P; I; B( M# l5 }1 S6 J CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {6 O1 v* T' h4 s& u
       3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9, 1 i& c7 h8 ?5 Y7 f# q2 k0 M
       3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {' t' |, ?, {  f/ _, _. \
       3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9, ! f3 l( y$ N4 _* Q
       3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},
    6 A5 |- \) r- F! C" v   3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],  j# X, A0 {$ o$ D0 p
    / w: d; I! Y9 U) W, Z2 S% a
    Cell[BoxData[
    ( R2 G: d3 v( ]0 H: ~. [3 O0 @/ f% C FractionBox[
    ! T& c2 ^, I8 U1 Z  RowBox[{"172.65311851642346`", " ",
    4 R$ y2 M4 ]1 C" {+ j5 m* s   SuperscriptBox["Delta", "8"], " ", : I, `) i& D) z8 p7 I
       SuperscriptBox["\[ExponentialE]", : \* H& w' q) T  F
        FractionBox["1.1102230246251565`*^-16",
    1 h; v/ Z) n5 A6 S: l9 Y4 T1 {     SuperscriptBox["Delta", "2"]]]}],
    + P9 {; k3 M  u  SqrtBox[
    $ h9 t2 o. Z  G% Y4 h! {! ~   FractionBox["1", 0 \( J4 n$ N5 t
        SuperscriptBox["Delta", "2"]]]]], "Output",
    & l  K: l. k2 h/ ^8 X4 R8 J  D, ^ CellChangeTimes->{
    * g5 r& u# \9 G4 E; f# Y  3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9, ' ^; \+ i  ~# c1 |2 t: a  ?. E2 B
       3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
    4 u& g4 \# l- B2 w1 }& V   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
    % c& E, S/ n! J) u" B- J: ?   3.578012166234375*^9}]
      B- Y) L' L7 ~}, Open  ]],
    : b2 V0 @& U% c( A7 d
    7 U: X2 c8 b3 ?Cell[CellGroupData[{, F) W% [. V+ E; \$ _

      i) M/ h/ G( [# N! FCell[BoxData[
    / b" ^. U5 o6 m RowBox[{"DeltaX", "=", . j) E9 Y9 `" }
      RowBox[{"FindRoot", "[",
    + _- [. M( X  d+ Y6 X$ |   RowBox[{) _3 p. l( |% i) O/ U2 W
        RowBox[{"Delta1", "\[Equal]", "1"}], ",", + P2 Z4 C6 U" a# W# ^- n3 G
        RowBox[{"{",
    ) c) T; M3 D& \& u% r3 s5 @( A4 ]     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",
    3 Y7 }' R/ v& L2 w- s CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {8 p# d: @2 m; N1 P7 i' _% p; L8 |
       3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9, 9 q4 J& `- N) x+ i0 k, y
       3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9,
    - E: _+ u; H& z' {   3.57791921584375*^9}}],* V4 J! S7 S/ j$ e3 ~
    3 B  c& \9 U3 d1 S9 g& J4 G1 l
    Cell[BoxData[
    & Y; |( _% \  s1 C- o RowBox[{"{",
    : E+ ]# o7 U5 v1 j9 G  RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",; k$ w1 q) N7 x( |' d
    CellChangeTimes->{
    4 y- r( O- X! [2 r; _  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
    # ]3 j0 }5 q% W   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9,
    4 j( t3 v7 @' u  P, z- ^8 t   3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9, - k$ I) C  l' O& o  P
       3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
    7 h: R' Q' M' i   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {/ ~9 Z8 X9 K1 @0 E/ Y, X# r
       3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9,
    7 X; p) g. V  q# Z/ I: u- W. k   3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
    - }% r, \) E9 I1 u# M4 \   3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9, - h# ]+ R6 s. S5 @
       3.57796070150625*^9, 3.578012167703125*^9}]
    2 _1 b- Z: P( @$ i; k8 j" r}, Open  ]],
    ( u! B/ q1 m+ i/ Q- k, a, L, c& Q) m3 c2 ?
    Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\5 ]! h9 j5 g3 b/ g( o
    \:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
    / ^( v& N0 ~. N1 \$ l+ t CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {, R( F  o7 B, t4 r5 [/ g
      3.577960705312657*^9, 3.577960707621461*^9}}]," }9 b6 T" W7 U3 X! H9 U

    ; ^6 ^' Q6 M  o4 e" |7 V  k6 jCell[CellGroupData[{
    ( v1 `8 n2 U; N- S
    3 Y6 C6 x# y5 }- }& k( YCell[BoxData[! v4 H0 O. i# q) b0 M4 Z7 L! c* u
    RowBox[{"C1", "=", "Ca"}]], "Input",* u: ^  }! \0 y+ y! ?, `
    CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],8 d) L5 B2 N: e! J
    ; H" u* j0 F6 B4 A
    Cell[BoxData[
    : _/ n$ q6 C3 Q" L6 ~2 |1 a! g RowBox[{"{", 0 {- E2 H& X6 q9 E* k  ^% k
      RowBox[{
    1 r* J% U2 ~1 T+ Y; h  "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", 8 y# \5 x* @, ]% J( U5 T
       "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
    + _  r; i2 W9 J( ?1 X' F3 p   "0.`"}], "}"}]], "Output",2 O: A* F4 k9 H8 X2 k9 b9 e  W
    CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9,
    1 M- ?# ?2 D4 ^9 Z  3.577960710273465*^9, 3.5780121855*^9}]! Q' B, e% D( `0 S3 g5 \7 u
    }, Open  ]],
    # k1 y8 u+ I/ [: E! u) b( J7 K* X6 g/ _
    Cell[CellGroupData[{8 w6 U. [8 ]" I; q

    $ Z1 k2 U" @1 P' G8 ]7 tCell[BoxData[
    7 L. b" {6 W4 Y- E$ A+ A1 x1 Z RowBox[{"u1", "=", 5 I5 E9 Y# D: b, ?+ X/ f
      RowBox[{4 r! B8 d/ M0 Z8 y
       RowBox[{"Exp", "[",
      s- g7 J4 y0 r0 h8 V    RowBox[{
    , W4 z. x0 X, O1 T1 O, ~3 ^8 F     RowBox[{/ Z' \% K( f/ X# v' Y$ [
          RowBox[{"-", ! |5 D+ P. `  [8 w. o- {. t5 p
           RowBox[{8 Q$ i2 k; l+ K" y; k# ]3 `
            RowBox[{"(",
    , |  e) v7 d9 v6 N         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    4 }2 Y/ J4 i7 Q        RowBox[{"(",
    3 h6 s' A/ e$ c2 N% \         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    # l% p5 h' B  R. M& ~! Q2 S8 A  d     "]"}], "/.", "DeltaX"}]}]], "Input",
    : X' i! s$ ?- N& i CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {4 a" c0 E3 ~4 H& S& I/ e& m* K" z
       3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {
    - \/ c% g# E" H2 Z2 u4 A7 d   3.577919193484375*^9, 3.5779192326875*^9}}],  f- m- V0 }" M

    9 X$ M' [6 P: ?% [. ACell[BoxData[/ I: `  n$ y7 }  q' w/ c
    SuperscriptBox["\[ExponentialE]", 8 C( z: J' v* Y6 B
      RowBox[{"3.141592653589793`", " ", / r& k( J( X% G0 ]' w, {# L
       RowBox[{"(",
    : i! F( @0 ?$ F7 d5 l    RowBox[{
    & z; B, |, V% C* \% V     RowBox[{"-", ! h4 b3 K' T0 Z) g7 P% o; x
          SuperscriptBox[
    9 t* h8 q% w8 L( [" o+ A       RowBox[{"(", ' r1 \7 G9 N+ V& `8 A( p3 J
            RowBox[{* r( M( J) F0 h9 H9 F  h4 a4 ~
             RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",   i9 p( P$ u6 a  k) f3 k
         SuperscriptBox[
    7 x( J! L# O& i$ f$ c$ U: U      RowBox[{"(",
    ( n5 r. \* z& `" t. r       RowBox[{
    7 f3 D( ^3 @  A# o& L8 u        RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", 3 Q, E1 n) ]* e5 g  R! r
         SuperscriptBox[; j+ H# v" t0 O, ~& X
          RowBox[{"(", & C* V# J  U6 J& S1 D3 M- g) @
           RowBox[{" u6 S; Y) D3 K) Y0 d5 c
            RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", : ]8 ~4 ^$ G2 [, ?6 c7 @; P: p' a+ s
         SuperscriptBox[
    : |$ [8 n- M6 }( t" u9 a6 w% Q" U      RowBox[{"(",
    % ?  |/ F1 V) a9 t0 m3 y       RowBox[{
    ) `: k, x6 V. p0 G1 ?1 U. \4 G/ n( m        RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", ( W; K  N& `7 G
         SuperscriptBox[
    ; `) m- `$ L2 N) ^3 o" Q      RowBox[{"(", 9 Q; c7 Q8 P, C& y$ {/ l. v
           RowBox[{
    2 X$ r$ F4 M% o. @6 r7 B        RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
    + ^4 [% e# C' j     SuperscriptBox[
    6 ?' F7 C, F6 V. U- }      RowBox[{"(",
    5 z+ X; P* r2 B0 _       RowBox[{/ n, I* e1 p6 B4 x; y
            RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",   P$ O7 Q* M9 v  k
         SuperscriptBox[, }  m1 X  E+ `4 [9 V0 D! f
          RowBox[{"(",
    0 r% G2 }5 U! q* f4 j       RowBox[{
    - W4 [# _$ w( \/ c0 M0 H        RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
    4 K2 d* D$ f) `" L  Q% I' z     SuperscriptBox[
    & \( g- S8 l( O1 R) @      RowBox[{"(",
    , W/ Q, a" S) z2 Q/ p# U       RowBox[{
    4 C, Z" T9 P! h        RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
    ( q; A1 o: G# e) F2 N8 u     SuperscriptBox[
    8 z. A! M/ E' h  `. R      RowBox[{"(",
    : C8 x3 D4 r+ x; X       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    9 g* H) L/ J: U5 t( t! i4 b* f    ")"}]}]]], "Output",& a" a8 ~6 h  n6 @
    CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9, 9 v$ ^+ [7 r" d% Z& L
      3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9, ! j: o: G/ D" w8 f1 e
      3.578012187078125*^9}]
    8 C$ R* |( D1 B& Y: N# L}, Open  ]],
      u' f" v$ L8 E" t' U! _
    . ]" w. e: @2 G$ c  z5 d# G7 PCell[CellGroupData[{/ `0 w& O6 c- e

    2 O: Q' D0 Q, E. ECell[BoxData[
    $ {" |2 a6 B5 y/ r7 ` RowBox[{"C2", "=", "Ca"}]], "Input",0 @5 c/ O2 g. ^4 M$ g; n  ]
    CellChangeTimes->{3.57792047321875*^9}],
    $ r* B- a/ _! m: P3 J7 u! O% q7 @. s" f& u4 A0 ~/ K; ~, X
    Cell[BoxData[$ A+ }# O. G+ b: D' H/ O3 _" K$ R
    RowBox[{"{",
    3 \9 e% K  S5 b  RowBox[{
    " s- z4 l0 E( v  "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",", : k3 Z1 T0 o9 J% C: _1 ^+ D
       "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}],
    # ^0 s! {: p( m. I" x1 V  "}"}]], "Output",
    # ]+ u1 k% S0 D+ _6 F9 ] CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
    ' p+ H2 M7 O) B) c6 n( i  3.5779607401163173`*^9, 3.578012204671875*^9}]
    0 V$ w. ~" H- z- s. M}, Open  ]],
    7 _8 Q  t" v: d* q, m" G0 f4 I2 E* R" R; E9 t& C
    Cell[CellGroupData[{
    . h- a! o  x# x2 N, D# _/ l0 ?! n
    Cell[BoxData[$ t1 ^' A' q3 u! ^) K
    RowBox[{"u2", "=", 4 @* G3 y" U% j3 m, k
      RowBox[{
    6 @* O! o; E3 x8 o: G* h   RowBox[{"Exp", "[", : w9 t1 K. Z# O: n& j3 |
        RowBox[{
    5 y  T! B! k; m! H     RowBox[{7 v8 }8 M1 \1 r. X4 `. x
          RowBox[{"-",
    2 K) S7 a% v, S  O       RowBox[{0 Q& v8 w4 D+ E
            RowBox[{"(",
    ; m2 Z- W% D2 \+ z* i         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    # c5 T6 E6 x+ E+ R# v7 }& g1 H        RowBox[{"(",
    & F/ f8 x/ d( B- e1 W3 _; D         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    " E6 V( ~! Z, Q+ u! ~     "]"}], "/.", "DeltaX"}]}]], "Input",
    ' K  S/ a$ w5 g+ }# {2 [ CellChangeTimes->{3.577920484109375*^9}],
    ( o" q" o0 J2 {9 u7 p
    : U- y; n" u$ ECell[BoxData[( x' G- a) B1 o+ x8 m
    SuperscriptBox["\[ExponentialE]", " u* y7 b/ j% J+ {  P
      RowBox[{"3.141592653589793`", " ", # I! d: A# {: u5 H8 c
       RowBox[{"(",
    9 `/ \$ v2 P) J) \    RowBox[{, f0 k# [' u( k, |' l' i2 t
         RowBox[{"-", 5 Y5 [3 {. D3 F9 Q9 B
          SuperscriptBox[
    4 b7 |0 d, h0 Y) l       RowBox[{"(", 6 T, N+ {- i* u  V
            RowBox[{( r# B. l* Y. `# ?" ~" h" P9 P: s
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ) y; N' T2 J/ T1 m* @  g# m     SuperscriptBox[9 P5 L- p4 w7 N8 W/ e
          RowBox[{"(", 9 X  w9 B4 W$ B' x  s
           RowBox[{, N% M4 B9 m" m2 `2 V( v
            RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-", / e$ [0 z; N6 {4 v; m  f
         SuperscriptBox[
    6 x# V! x1 [8 f! A- g" h- k3 ]      RowBox[{"(", , s  n  [$ ~& }1 y
           RowBox[{
    ) ]9 m$ C8 w+ Q% I7 t( L        RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", 1 d7 G; O+ C( s: S% V1 J
         SuperscriptBox[
    + X! {; u6 w) d+ S$ T      RowBox[{"(",
    6 l4 t4 A# r- S7 k       RowBox[{# Z- Q+ S! U; v* ?7 G+ |7 s
            RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
    8 g9 v5 @- p' ^! q8 X/ ]: Q     SuperscriptBox[! P6 V! B% h2 [5 V+ u: j9 ~
          RowBox[{"(", 2 F  |0 P5 f9 r; u& c7 ^5 p
           RowBox[{
    9 n' d, c/ E4 m; N! _/ C        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    , u% x& |- Y- d. v1 N     SuperscriptBox[
    5 D2 x8 E! X9 c& k8 d# Z      RowBox[{"(",
    # W9 e; i- N  Y6 i       RowBox[{
    # {; R4 w" B+ p% a) F1 ^        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", + s- Y* }6 J- d
         SuperscriptBox[
    9 Y7 v9 p- C" z' H$ p9 M      RowBox[{"(", : D5 x. k! [9 p4 \- ]- x
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ! @4 T$ y; q; k
         SuperscriptBox[
    8 F! }) K, e( j& q5 g: Y      RowBox[{"(",
    7 q9 [0 ?# ]$ k9 L, ~2 W5 O       RowBox[{
    - b& W. I5 T" _% F5 w8 ?# W        RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", . D! E" A# H2 E  t" q2 z* m
         SuperscriptBox[0 m5 O$ l0 O7 h4 L
          RowBox[{"(",
    8 e& ]5 w( B& A( m3 C9 c4 \' S       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], $ f+ R6 @% \1 z4 N5 d, G
        ")"}]}]]], "Output",$ Q$ t5 Y. c- j9 l( g
    CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9, ) @( P2 k; x$ C* h9 S* q
      3.5779607413955193`*^9, 3.578012205484375*^9}]
    2 Q; A% g3 `3 S}, Open  ]],; R. e  y+ {8 a: c) j

    6 I8 e% o' _4 T( N* gCell[CellGroupData[{3 i' W" C8 c+ m: L9 |! Q

    0 j/ s6 d9 x, l% m+ t% A+ \; _Cell[BoxData[
    & G% S' T2 e, ^; s' B RowBox[{"C3", "=", "Ca"}]], "Input",
      @' y' |3 C+ ?; M0 P' M CellChangeTimes->{3.57792064125*^9}],
    ' x' \  d% [5 d5 @6 ~+ d
    * L) A  ~8 p  c, UCell[BoxData[5 r" U2 K+ A$ y; T& s9 w) Z. u7 @
    RowBox[{"{", / h; ^" Y+ V4 {7 `5 p
      RowBox[{, B% E+ B" E7 U5 M
      "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",", ( w9 I0 x$ B% {0 Z% F
       "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}], 1 M9 U2 p* h8 x$ l2 d: V" Y( }9 P( P
      "}"}]], "Output",
    7 U6 t$ ]  ?; i9 t CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
    2 k  f1 S2 c; w  r, c- W  3.5779607642027593`*^9, 3.5780122103125*^9}]
    ! a; Q3 n; t( k' k( ?- s}, Open  ]],
    3 V9 i9 E! H$ G+ I* B, v9 E' M- e0 I5 o% A
    Cell[CellGroupData[{
    ( y$ i5 p% v: F% I) j/ o' y6 L3 I0 F5 i- R
    Cell[BoxData[
    & n" S# t+ O( R6 p' X/ Y; a) o RowBox[{"u3", "=",
    6 b1 i/ R7 g$ Y6 c  RowBox[{
    ( l6 }- A( B: E5 J# K   RowBox[{"Exp", "[", & u- ^# d2 z% V8 `# |* _
        RowBox[{9 y- _' r0 |3 I. [4 L* G/ L5 s. Q
         RowBox[{
    % k! Y1 k8 I7 T% N+ B      RowBox[{"-",
    7 e$ _% r( O+ L8 a1 o2 L       RowBox[{, u3 d  Y  b6 h: D3 {7 U5 O
            RowBox[{"(",
    9 u# V% M: i" b* T         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    0 A' }/ C8 u/ X" Q3 z" W" R0 S( y        RowBox[{"(", ' u1 {; @/ U  \- Q7 t
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],4 J2 n6 u, h* A1 s) k. D+ A0 {# x: N
         "]"}], "/.", "DeltaX"}]}]], "Input",
    8 D2 O! O  A& s5 U- K/ b3 t CellChangeTimes->{3.57792064921875*^9}],% F* W, |4 Q# C$ o) c7 |
    # _* d5 P; @& C% T( Q2 f$ o
    Cell[BoxData[
    . M5 A  k- m6 x6 Y% V: v( L SuperscriptBox["\[ExponentialE]",
      b- j4 ]2 g- K7 d0 X, p  RowBox[{"3.141592653589793`", " ", : M: p* N$ M  t, I' E
       RowBox[{"(", % b) C2 G9 w/ A. H
        RowBox[{  d% L! Z* V. y5 ]/ m  F& N; J
         RowBox[{"-", 5 W  w+ `" h) h  W! P) I
          SuperscriptBox[( L4 j3 A" N) F0 \- Q4 a( {
           RowBox[{"(",
    4 U- v+ Q* h4 |, A0 D8 {! ]        RowBox[{
    $ y4 P. h. {. `0 c& ?5 o% H6 V         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
    1 g8 }" d+ B2 E& y+ L$ ~' m     SuperscriptBox[
    6 p5 O8 q) N* {5 ?- }      RowBox[{"(",
      C: H8 o7 b4 [       RowBox[{. O( a# b; g+ V) v
            RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
    : o7 Q/ O7 I1 B" ]: i" H     SuperscriptBox[
    # z+ T7 O+ p! o% w8 a      RowBox[{"(", 5 A1 p* N' a2 s, S4 d
           RowBox[{* }7 u- z4 c8 _) ]( R* Z" Z
            RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
    1 d7 X8 b2 ^' o  u" O     SuperscriptBox[
    * V: {" T, K! C3 J. r- \      RowBox[{"(", 8 J' B2 C' D) H4 s2 l5 a6 [6 o
           RowBox[{( I/ U* |! i; H) v6 k8 x: o! F
            RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", ' ~8 [+ O  x& ^2 N
         SuperscriptBox[
    # M$ l& ]) M4 u: z$ x  u      RowBox[{"(", ( a( n* R1 c. \: o/ _. V# M5 X4 f
           RowBox[{
    / m: w. N- A9 F! X& \4 D        RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-", 8 M5 r# E5 y2 S% ]" C( Q. s
         SuperscriptBox[
    / ]: H" V& t6 |3 t* i      RowBox[{"(",
    . i  n; |1 r7 F4 y4 Z       RowBox[{# ?% v0 k) J" L9 L6 d  f: _9 \
            RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", . o0 T( L3 K/ V- E1 G) Z. l$ Z
         SuperscriptBox[( b: |2 l7 g; @+ X
          RowBox[{"(", + x! d' e3 Y, k9 L7 t5 ]8 g1 [$ K
           RowBox[{6 H1 @8 o9 N  |: c/ E: i. a9 Y
            RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
    % h; ]- [/ T% r3 ^/ N7 S+ V5 n     SuperscriptBox[
    ! a4 m$ G2 q8 L' i: ~, o* Z      RowBox[{"(", 1 g: j0 z7 \) x2 B8 i+ R! r
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 3 g( Y# i, [# ]9 e0 I
         SuperscriptBox[
    # I4 f# i7 i" B# _' \8 n* j      RowBox[{"(",
    ' C* {6 Y) [& V       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], / i! s3 d" n; n( Y1 U1 _. n6 G" y& J$ t% [
        ")"}]}]]], "Output",
    % J, s3 u; q$ W! [# `5 H7 M CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
      c6 E! T/ ]: a/ [! p" O3 @  3.5779607654819613`*^9, 3.578012211515625*^9}]5 n. X# \! q6 c' `* D5 u
    }, Open  ]],2 Y4 R9 y# b, ^  K
    - A5 U7 Z. {) W) j! W% Q
    Cell[CellGroupData[{
    1 B! t7 I0 s$ _- ]- L, L5 w
    3 ?( q4 W* u4 ~2 fCell[BoxData[
    + P0 m6 O4 m4 K6 u% s RowBox[{"C4", "=", "Ca"}]], "Input",
    # u* U. _" C, c6 O- d CellChangeTimes->{3.5779207559375*^9}],. S2 Z5 Z1 {5 @1 d

    / @4 q& t; M  G6 r4 rCell[BoxData[! F7 ]. @, o' s8 {
    RowBox[{"{",
    " T0 W7 Z" r* Q, j  RowBox[{
    + E. Y. z8 W  ^% h3 W% m  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",", 7 a# }) N# X+ T; O6 b
       "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}],
    9 w: t, @, Z+ I4 G0 y  "}"}]], "Output",
    $ S' u4 }9 a8 e CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9, ! Q+ P7 R2 K4 i3 j" e9 X
      3.5779607861363974`*^9, 3.578012216171875*^9}]4 h- u* v. L, Y% c/ ]7 X4 T
    }, Open  ]],2 C8 e& B$ e* @: E5 N9 k3 F) L
    5 m5 H! _! Z  e3 B/ c: S( |6 m$ w4 a# o
    Cell[CellGroupData[{
    & w' G5 @2 X7 b9 J$ W& c* x! a
    6 U! v7 ~: z  t& o( DCell[BoxData[
    - u3 O4 f3 ^: o/ [& O RowBox[{"u4", "=", 9 c4 o) O9 A$ s' W9 e8 I7 U% C
      RowBox[{
    . R; z% g) V$ W  x; [4 s! {   RowBox[{"Exp", "[", 6 _2 z9 G  R' l# ?( d
        RowBox[{! b. y, K! O% l! c
         RowBox[{) B) H, l2 H* I" T+ y
          RowBox[{"-",
    $ v6 d9 V$ J* N3 U2 K2 f' B5 I       RowBox[{
    0 _' `. \7 l$ C3 S; T' e1 h        RowBox[{"(", 1 X: c8 B; L8 q( V
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ( I4 G1 m4 G7 x" S. Y$ F. w        RowBox[{"(",
    ) y- m! E5 H5 L+ n! r         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],5 A9 w) ?( y! J/ y
         "]"}], "/.", "DeltaX"}]}]], "Input",3 V4 i+ b4 E: c; H
    CellChangeTimes->{3.57792076325*^9}],
    $ {( d4 Y' x8 t) m) K, p$ i% g5 k7 f1 F- f, \# T7 q' H3 ?
    Cell[BoxData[/ \2 F" ~% g1 i( p* ~! p
    SuperscriptBox["\[ExponentialE]",
    0 a- \9 C7 _! u: A, H4 S  O  c  RowBox[{"3.141592653589793`", " ", ) l0 H( k. y- }/ b
       RowBox[{"(",
    4 \/ y. N8 C/ }% l. l    RowBox[{, d4 m# n5 ^# s3 N6 _* f, S* @
         RowBox[{"-",
    ( W7 N5 e. `0 U; A# [; @      SuperscriptBox[
    3 r5 R' m8 I3 G( M       RowBox[{"(",
    , t# K3 ^  s1 V  n$ C        RowBox[{, O0 J+ r: v1 H0 I; ?7 p# p
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 5 t) s4 n, K% P  a( m
         SuperscriptBox[4 P: h+ E0 e: r# p) U# y/ u! v. f
          RowBox[{"(", , i8 Q. k3 X; {; _6 U
           RowBox[{
    ! A$ t( |0 d! ~) a+ G7 `* ]        RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",   k+ V# R! b5 {) X9 h
         SuperscriptBox[1 B& }0 s  K) W' V
          RowBox[{"(", " C0 r7 l7 y) a- f! p
           RowBox[{' W2 l" p: ?  e4 l. ]4 A
            RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", & i4 H2 T7 T' t1 e8 A* i* K
         SuperscriptBox[( Y+ ^7 i* ?' j( ?
          RowBox[{"(",
    - e3 q' U4 u7 G* }       RowBox[{0 @5 a# Q3 A& `
            RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", % G" f% p4 S7 |1 g5 B$ H4 D
         SuperscriptBox[! m$ k$ j; C  x) _
          RowBox[{"(", 7 [2 W7 k, l6 B2 I% Y; ?% k0 g+ p
           RowBox[{) O1 [1 g; S6 \) P* z
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", ! V' u. Z* y2 K, E& Q, V9 a* }
         SuperscriptBox[# b1 u3 X- W5 a8 `1 T( ^
          RowBox[{"(", - u! l- W# ^" r6 U2 K
           RowBox[{
    4 O0 g; R' x" k- P- z        RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
    ! @4 ~/ `" s, u1 [     SuperscriptBox[5 P3 L, U( _# z2 f- [" k
          RowBox[{"(", + i6 V* [5 e- D1 S
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 9 D4 \$ P! ~+ H2 c( X0 b
         SuperscriptBox[
    7 R9 C* q3 M0 L* ^      RowBox[{"(",
      _) `& l! z1 R/ r' O+ s8 H       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", , ^' ]  D1 [- u! ~$ H& A5 }$ a+ l
         SuperscriptBox[( u( ?. d- ]) ^% C3 ^
          RowBox[{"(", ; K9 p, I  o1 w% C  [
           RowBox[{
    6 ?3 w& X  A% p        RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], 3 e2 L0 E( ^) n8 `. M$ w6 E
        ")"}]}]]], "Output",
    ! t& v3 r8 Q: {) Y$ ]2 e: y CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,   c! q/ r  ]  ^- C
      3.5779607873531995`*^9, 3.5780122169375*^9}]7 |* _& w) N! ^4 E. J
    }, Open  ]],9 D0 g& S- Z& }' ~
    ! l6 |+ H/ E5 R0 R2 c' G  X; I0 q
    Cell[CellGroupData[{# o3 F" L8 h% }! Q7 k' {$ _

    7 C7 z  e& F' ~+ ACell[BoxData[
    7 r' k' m5 D2 N  E) P RowBox[{"C5", "=", "Ca"}]], "Input",
    & O6 u/ Z& ?, V  z5 h' K CellChangeTimes->{3.577920860671875*^9}],
    5 y+ J1 D6 O0 J" X/ ]+ E7 g# F) a9 w4 b
    Cell[BoxData[
    * d. ~: z( u' I0 W2 n8 O RowBox[{"{",
    4 s" k  v  |& }% B+ V  RowBox[{
    8 X; g$ y1 x8 Y0 V0 g) K  "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
    ( M( R' g- @: d7 w5 \# v/ x/ H/ B* [/ i   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}], * s- z. J( {, i+ O6 a8 M# D& n
      "}"}]], "Output",5 s. M0 X% C# n, u! L
    CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9, 2 M1 G9 g" v) t$ c6 W: d
      3.5779608137328453`*^9, 3.5780122209375*^9}]: s* t, R& Y. d; o) R0 g
    }, Open  ]],
      P$ s. o% ]/ C  [, N) v8 N9 W4 a9 k- V( A& k0 \# H9 p
    Cell[CellGroupData[{
    7 r1 ]2 d" }3 h" W" P6 O$ \
    " ]! v4 S- g: {; e9 q/ OCell[BoxData[
    5 a. B2 P5 g& B1 g0 w3 B3 D RowBox[{"u5", "=",
    7 E  ]! K" q9 |+ b( ~6 w  RowBox[{
    " M7 J( O; p. q+ D& r7 ]& b4 G5 R2 Z   RowBox[{"Exp", "[",
    - u  [7 V  J* B" O% k5 V6 C/ L    RowBox[{$ R6 m- q) |6 I3 H2 r6 W. f! O! V/ o1 t
         RowBox[{$ g$ |# J$ P$ C/ b( Y
          RowBox[{"-", 9 V6 B0 r+ \3 y+ ~$ b
           RowBox[{% w/ Y, z4 D. n& i8 W
            RowBox[{"(", ' m% V( z) {& l' h3 B$ H# v; [
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    " m" X, Q, t9 z( p        RowBox[{"(", / l+ N% G( K' J
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],7 t3 E7 Y- g1 n: S# K/ D* b
         "]"}], "/.", "DeltaX"}]}]], "Input",6 e; o; ]0 r1 ~
    CellChangeTimes->{3.577920869375*^9}],8 l4 Z% S+ L4 H( q9 I1 v

    - Z8 K8 V8 a/ ^, G7 q% v& ECell[BoxData[
    4 V' C( p9 v4 L7 t SuperscriptBox["\[ExponentialE]",
    5 j9 X! }7 H" c0 Z& ~  RowBox[{"3.141592653589793`", " ",
    / _$ l  k& M% Q   RowBox[{"(",
    & p- B* B0 k$ S    RowBox[{
    ; l; a1 M' t1 i# y  k     RowBox[{"-",
    ' A5 P- {; \' j9 F" D! I* m/ b; v9 v      SuperscriptBox[) o+ ]5 ]8 t; d. u4 w! ?
           RowBox[{"(", - M2 _" D' @( ^: v+ C8 m
            RowBox[{$ g. Z3 h  n- D! t; c
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 2 ?# z0 r- L2 x! G+ y: l) I' j
         SuperscriptBox[
    ! s3 B7 k4 [- f! Q" {      RowBox[{"(", 6 Q( c; Y- E0 A. G
           RowBox[{
    + @3 D8 {6 t) w+ o5 Q        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-", 3 t3 [5 A7 X+ l, {
         SuperscriptBox[
    4 U! ^. r6 H. ]      RowBox[{"(",
    ! d; N/ K% M* N3 B  Q       RowBox[{, Q, {9 h; k+ m7 A. J3 c% O1 k' j
            RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", , B" D* b) S% R! w$ a4 c" }1 a
         SuperscriptBox[
    0 x; b# _, ]+ ~; B% l9 J! |      RowBox[{"(",
    $ [3 H  I% D, W' e* \% ~) y& [+ N' R       RowBox[{5 q% J5 _! i5 @- M# C" v; G
            RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-", 0 [/ i" ?* ~+ b
         SuperscriptBox[, X. x4 U7 D& Y. o* C
          RowBox[{"(", ( W! ]1 Z$ R  y0 |
           RowBox[{
    $ J" F7 M, c5 Y: ~        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
    $ u, j! V% a( P( J5 O     SuperscriptBox[/ Z& B3 L* N" U; _9 v
          RowBox[{"(", 1 g" S. \# c, J6 u5 x7 g3 h/ C
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    4 L- y! A/ k( q- u     SuperscriptBox[
    ; j1 a) P+ ~% V: H7 _      RowBox[{"(", 3 s( Q* g: _+ `  K% q
           RowBox[{6 K, D+ d0 a( k/ a4 i
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 6 t8 W+ t/ ^" \& J( M1 j1 Z
         SuperscriptBox[8 s8 e$ Y7 o" r. s  I( Y( Q
          RowBox[{"(", $ \0 U8 I; w; w/ W6 D* a
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ' l0 t3 t' I3 o5 t
         SuperscriptBox[, w9 O7 P2 z7 y( Q1 @7 q
          RowBox[{"(", , t* `+ C& B2 D5 y/ I
           RowBox[{5 D. [/ Z- g5 o! F# J
            RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
    ; M, y8 S4 i6 a+ a- |! m7 h$ k# Y    ")"}]}]]], "Output",! b: n0 Z! l& z" N3 c
    CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
    . s9 `4 N% `$ ]% i( S. `$ E  3.577960815043248*^9, 3.578012221953125*^9}]3 B# [8 R, S9 l/ B$ b6 d4 q
    }, Open  ]],
    8 \% E' P( c5 j- e$ A4 A8 ]5 ?0 @7 \2 o' W# H* [
    Cell[CellGroupData[{2 A, D2 c' J7 e6 p3 `4 V

    9 [1 R0 I  \1 K6 K% o  QCell[BoxData[' I' I/ R* z4 O5 `' a/ A
    RowBox[{"C6", "=", "Ca"}]], "Input",
    - B, a0 O- b* t+ k% k CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],9 G8 C$ \' {3 D* ~, c

    : _/ j1 c' O+ L' o9 J: ~. K1 Z% T  ICell[BoxData[
    : W' ^$ `* E. |6 v$ i$ H" a8 L( {# x RowBox[{"{", & K2 C: S. Z  g9 J
      RowBox[{
    # E* u/ a1 D" l  G* N. h$ i# r  "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",", ( k7 Z# C  j& a' e9 [' H) Y
       "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
    ( Y; b% @" h3 a  T7 A   "0.494866`"}], "}"}]], "Output",- B- b1 |- A/ O
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,
    # E3 k0 ?" \6 i" ?4 s/ B. c$ D   3.5779608373044868`*^9, 3.578012227359375*^9}]
    4 _: Y! ?) ~  X. m}, Open  ]],
    ( O7 E' w2 N. z' s0 W
    3 |0 P( [5 S( `! {$ gCell[CellGroupData[{, s1 U$ g3 V- I! {
    9 Q1 O. q3 j# j0 L* Z. q
    Cell[BoxData[( _7 ?: f, K' O# Z2 T; w9 q
    RowBox[{"u6", "=",
    9 D3 s2 k7 S% B6 u* D' |1 D! ~  RowBox[{; E9 F/ j7 `8 ]) g3 W. Y( O
       RowBox[{"Exp", "[", . M; C+ Q6 B! P7 m# A1 n, M$ q
        RowBox[{
    1 i) B8 J( `  Q  ]( q* p" h9 W     RowBox[{& _6 k/ Z' z' j/ N% U4 z
          RowBox[{"-",
    ) c; T( p% k) D! i9 ]$ a       RowBox[{( Y5 i  K, O1 m% U8 U* u; b
            RowBox[{"(",
    3 D4 h2 v4 P- a         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    " V8 k7 [/ E* _0 }2 O8 z        RowBox[{"(",
    - f/ y5 b; y9 E  @3 }/ S) ]$ c0 w         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],- Z1 ^' J* u6 y$ F
         "]"}], "/.", "DeltaX"}]}]], "Input",
    / l6 ?6 s8 p, D$ S/ N CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],
    0 a" n/ _6 |5 C" `  G  O8 [5 {& ~/ j1 j; r2 z
    Cell[BoxData[/ ~" |' a/ h% w9 ~, U
    SuperscriptBox["\[ExponentialE]",
    8 @# [5 ?: T5 ~  RowBox[{"3.141592653589793`", " ", 2 w5 q5 z( }0 d+ L  B2 `
       RowBox[{"(", 4 n) [1 d% B6 t" ~
        RowBox[{
    ' m+ }: `- B8 g. U+ [     RowBox[{"-", : {( [3 `3 |5 y) g, W6 x
          SuperscriptBox[
    , T: U% Z0 C6 n0 F3 ^       RowBox[{"(", & A0 A5 h9 w+ G, O  c$ Q
            RowBox[{- S" x" |0 f6 u; V: X3 Y9 z
             RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-", - }& B( t( J' h, r$ H: ^( h! ?
         SuperscriptBox[+ H9 q! s  {$ i/ c/ @& b
          RowBox[{"(", 0 e; X7 I( }" H# D
           RowBox[{; [; M9 c$ m/ q5 B
            RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", 0 ^! q8 ]0 \- \+ n; t9 f( v
         SuperscriptBox[
    ( x. W2 z8 l+ _4 ~4 h      RowBox[{"(", 6 K9 K4 \9 _' C% U  z" n2 Y4 Y
           RowBox[{
    9 `8 n& T0 j' |  p8 D        RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", 0 s' h- U) I2 f. @- W
         SuperscriptBox[
    - g% c5 e4 j  j3 c% v      RowBox[{"(", 3 x- E3 v+ h3 Y/ c: A
           RowBox[{
    * ?$ }' W# C1 c: B: Q$ j6 A/ b        RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
    2 ~4 n' l$ Q% O3 q1 |; L2 m# G1 m     SuperscriptBox[
    $ R/ C( q5 M0 {' i. r& c      RowBox[{"(",
    5 u3 Y* [, _! h6 R3 g! s2 z2 ^       RowBox[{
    , R' P$ C4 @0 u        RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-", ( \. S- Y7 q7 \. m7 D! m. N
         SuperscriptBox[
    7 n5 v: p9 y$ S5 \1 p! q      RowBox[{"(",
    # K5 `& P" K5 s2 E       RowBox[{
    1 b+ v  v4 \+ o: i        RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
    # J" J! \! p2 a     SuperscriptBox[
    ( ^8 Y% F1 i8 H$ Z8 s9 M( i4 {$ `/ G      RowBox[{"(", 9 W. x4 s3 N/ y4 G: H; j4 v. T
           RowBox[{) _# N! b3 {9 T. L7 q, X4 |8 h% q( ~
            RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
    % A; w. E8 t4 ~+ Z# \     SuperscriptBox[
    * P. s& N% O" Z" S! p4 L5 l      RowBox[{"(",
    4 x% r7 W( G7 i8 J       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 8 ]( L/ Y/ l9 u% |' P
         SuperscriptBox[
    - ~3 D( N& W6 ?% \      RowBox[{"(",
    0 T* W: ?2 ]0 B1 t' M& [       RowBox[{
    , }0 u& m, L+ v0 [! k0 P  N        RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}],
    $ O( m# b1 }( d! f    ")"}]}]]], "Output",
    ' l2 I7 N$ h6 K1 q* v7 v( P0 c7 K CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    " m) v; `$ ?/ H  3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
    ! p4 @$ R# c5 z8 Z" D. R: X}, Open  ]],
      X( y* D; B$ J1 A& i1 }' p/ D3 h/ b/ k- ]
    Cell[CellGroupData[{9 |: Y+ z: u/ J4 \# w# q
    5 G( t; X/ u! P7 ^! r9 U9 ~
    Cell[BoxData[( U: ?6 F7 ]% D+ h$ n
    RowBox[{"C7", "=", "Ca"}]], "Input",
    6 O+ P2 c* V; }7 X" M; ? CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, , M. b, C2 \8 j; M& i& I# F
      3.577921316125*^9}],9 b+ i# c% d; {3 _: y0 x0 |
    1 g% p! g, v) s' X* x1 E/ x3 H
    Cell[BoxData[
    # e* F, i+ p9 m4 t RowBox[{"{",
    # g( G! b7 B& Y5 S  RowBox[{( I3 H! L( {) M
      "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
    6 h$ X" F. l! M; k   "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
    * J* ?( e' @# i  "}"}]], "Output",, \! Z% l7 `, {8 p
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, 3 ^3 h/ y0 Q" L2 D
      3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
    ' B) [: N# i. h}, Open  ]],, o4 D6 |( [3 V  q2 }) T, \

    * o. [% e. d7 U* v# aCell[CellGroupData[{
    7 X' n7 y2 t+ n6 ^2 g' N
    % p, y! w# p0 p6 L  aCell[BoxData[
    & o, D0 T5 ]; \0 k5 ^ RowBox[{"u7", "=", , I( S* W. `7 G6 E4 P
      RowBox[{4 O+ p0 s2 u. f1 h
       RowBox[{"Exp", "[",
    + \4 L( {! `" S7 @2 g" ^    RowBox[{- Q& S9 O* d+ Z, f/ j9 V) V
         RowBox[{6 A5 f: @' k, V% S; I
          RowBox[{"-", ! O! |8 q7 Y$ b$ d9 ?2 n
           RowBox[{( }( _" O; j' r$ m9 }# U
            RowBox[{"(",
    ; c, U/ Q: U+ c1 t         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    # u! d2 a6 Q% }7 U0 \9 Q, b7 j        RowBox[{"(",
    % d' E& z9 l5 i         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],  P  C# D0 y3 r# H9 e
         "]"}], "/.", "DeltaX"}]}]], "Input",1 [/ @( @" D1 `6 [) F4 _; k
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, ; `, w$ n1 |7 O
      3.57792132028125*^9}],
    ( Z* U% E* U! l. J) `+ k" y* W9 H" g3 k) @" i  m
    Cell[BoxData[
    , `6 I. j0 Q  p. `& E7 M! C/ [( ^ SuperscriptBox["\[ExponentialE]",
    - J' u4 _- d8 _8 b) p  RowBox[{"3.141592653589793`", " ",
    . f/ `4 C% V% u: m& O   RowBox[{"(",
    1 h2 ]9 p& X+ g1 P9 x' `4 n" T    RowBox[{  q  y1 }# Q/ B) G) W; _
         RowBox[{"-",
    5 j3 _4 B: a: c" |$ q* h      SuperscriptBox[
    2 P  d* T; J* |$ }" y( O+ n- Z       RowBox[{"(", ; h+ V, d& x4 E& U
            RowBox[{8 C, O. u; o) V8 c
             RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 D0 C0 B% C1 f; A
         SuperscriptBox[
      @- J# Y4 H5 t$ v) W. |$ W9 v; ]! w      RowBox[{"(",
    3 ~8 M3 k+ j5 b6 Z       RowBox[{
    ! W8 D* J, }9 s4 ?        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
    2 @* u& k6 O, F* }5 K8 ?% ]     SuperscriptBox[! O% g& P9 ?8 i3 `* ]: F* A
          RowBox[{"(",
    ; Z+ E4 y+ T+ @, x$ @0 x       RowBox[{* P* W6 Y- F, J" u; |% L
            RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    5 [0 E8 ]) ^) ]! l4 Z! |. \* ]     SuperscriptBox[! B5 C& w3 B( N+ U5 [
          RowBox[{"(", ( Q" R' M- k! Q
           RowBox[{
    ) c1 E; M' g5 l6 f5 m1 M) J        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
    ( ^+ X; _/ y) c. O0 ~/ w. m' \     SuperscriptBox[% [8 q" K4 K$ N  i) F0 l) r3 p% \  b
          RowBox[{"(",
    2 |- B# v7 M% q1 w" r3 B       RowBox[{
    / F" m4 T! O, h% S" G        RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
    ( M7 f) m, k5 P2 f. p     SuperscriptBox[
    , `+ S  H6 K1 \- n; x      RowBox[{"(", 5 D3 _5 H  U/ f7 K, F- i* @
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 6 i+ h' \! N# P) b* U9 G) B
         SuperscriptBox[' A9 g8 k# n/ y* f& }- z
          RowBox[{"(",
    5 C5 @, i/ P7 l6 w/ g$ r1 y       RowBox[{, Z/ x2 k- k: a2 u( P, m
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    & q$ F2 {& L9 z7 r     SuperscriptBox[7 i/ S4 B3 a" }) v/ L: n) C$ {
          RowBox[{"(",
    ; _6 }: r0 D7 P       RowBox[{
    $ g% i! h: n1 l5 |0 k        RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", 8 r$ R3 k) x" N* o
         SuperscriptBox[
    & E5 b& W3 A( H+ q1 t: V% w      RowBox[{"(",
    - d, {" H5 T( ?- \1 }9 p$ V9 C6 H       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    6 \7 m9 l) l; b5 K& [! @    ")"}]}]]], "Output",
    7 e' k: y* v% j/ ~* o# S1 G2 H. K9 | CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, 7 ^  d: U0 l  ^4 l# k  l, j0 B0 i
      3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9, ( u  `0 o5 ?5 m8 Y( r6 v/ W
      3.578012251359375*^9}]/ z/ o/ J* A. S+ K3 r
    }, Open  ]],
    % z1 S6 w& z) U6 W/ ~9 h2 k5 D6 Q% E" c( ^
    Cell[CellGroupData[{9 z" v* i' X- Q3 j

      G7 \! I! r& w1 l: b2 ^; I3 ZCell[BoxData[
    ! `. p5 @" H6 U0 h; K7 w RowBox[{"C8", "=", "Ca"}]], "Input",
    & H7 y2 v* w5 r1 t CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 8 \1 C* F$ F8 O* H& R2 @3 d7 M
      3.577921316125*^9, 3.57792141421875*^9}],8 E& F) A% I) [1 P* V. O- q& @
    # Q- M  y9 R9 W& I0 Y
    Cell[BoxData[
    + S, i! h3 ]0 E RowBox[{"{", 9 \5 z* a" Q: L0 t
      RowBox[{
    ) S, |5 G8 b2 k" s: w2 z  "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
    " d! {; z6 k9 L. Q+ D   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
    & O9 ]! P+ V( C9 `+ z  "}"}]], "Output",- i" h7 E# r" r4 z+ t
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    ! z; M% `: G, r  i% d* g( @  3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9, ( N# A* O) p7 x8 e2 a/ Y4 r
      3.578012260515625*^9}]
    ; Q2 u8 ?( N. a% s! c$ X* q; D}, Open  ]],* G) ^/ @# u% P( N0 k# R& P
    8 A/ L' v* s/ W+ ^# R0 w
    Cell[CellGroupData[{
    3 l( F& o( s0 B" v" a! W/ D: D: o7 R; X
    Cell[BoxData[" V) u( A: p2 c1 a3 z6 X
    RowBox[{"u8", "=", 1 \" i  ?' l7 ~5 w
      RowBox[{
    + y) e. s, w3 \# P( o   RowBox[{"Exp", "[", + T' L/ l1 n# W; }
        RowBox[{
    * C1 a1 r( v: t8 A5 ~     RowBox[{0 ~; `3 y" _3 N# c$ z0 G7 [
          RowBox[{"-", 8 B5 h2 b4 }8 v) b, ~
           RowBox[{
    % r% o) l( i( S! L  W        RowBox[{"(",
      U+ M4 X- E' F. D9 P9 x9 }         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ; z$ h* V( J0 V6 n
            RowBox[{"(",
    4 w; K) J$ m4 _. F" `. |         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],5 F) F* v. W( i0 A
         "]"}], "/.", "DeltaX"}]}]], "Input",8 o5 S# ]9 c4 X
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    0 {9 }) Z( S0 W$ r- _4 K1 ^0 R5 v  3.57792132028125*^9, 3.577921416921875*^9}],* Q6 Q* J( ~  U
    4 z1 Q; `; E; _# J  q! A
    Cell[BoxData[# X) `+ i6 o7 Q) S. `  d$ y
    SuperscriptBox["\[ExponentialE]",
    9 T# ]9 ^4 k1 M' G9 ]! ?  RowBox[{"3.141592653589793`", " ",
    * i; Q+ B& E( Z   RowBox[{"(", ' @8 S% m/ [+ A$ e5 Z0 F; o, u
        RowBox[{, ]7 G4 w( e8 P/ d. @
         RowBox[{"-",
    & C6 P. `% _# O      SuperscriptBox[+ o+ l: W4 _& d" V: E% s. z: H# _$ C
           RowBox[{"(",
    # p  g- R4 B1 ~: r2 q; O        RowBox[{
    2 x  h1 Y2 @& N7 y4 |3 {. n; @' r         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", 9 E% V4 E5 {; j* U1 B( d$ w) ]
         SuperscriptBox[9 t0 C" F( |, N+ ?/ k
          RowBox[{"(",
    : f$ w: ^3 \4 X* I4 |, q       RowBox[{
    * R, i9 F+ p3 \, Y, N7 g        RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
    3 ]2 G  ~0 f$ C) Z     SuperscriptBox[  N' W" w0 u7 S& g
          RowBox[{"(", $ Z+ t1 K& ~4 W- A& Y3 k. O
           RowBox[{
    & \1 m- B5 H! P# `0 o        RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", 2 W( f. Q. R6 U
         SuperscriptBox[7 P; i% m& {  ~7 f/ j
          RowBox[{"(",
    7 h, x$ H/ n% l: p$ N# z: L       RowBox[{
      C0 X6 ]9 _. j        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-", 9 h* X+ r8 }  S) I
         SuperscriptBox[" O* o4 ?* w: J, L/ P+ u
          RowBox[{"(",
    * V, Q* g) w, z/ N% H  @       RowBox[{2 |+ F3 K7 O, x% n2 s" X' U9 b
            RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", 8 W& D$ j+ R& W
         SuperscriptBox[
    ; m0 f9 o$ h) `) _! y, m( ~+ j      RowBox[{"(", 7 v  v+ y/ V9 i! |7 Y7 H. |
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ' R! ~+ A- G$ S     SuperscriptBox[; H) p/ U, m" w: l* R6 a6 _& W" s
          RowBox[{"(",
    . Z! D" \5 Y9 g6 T2 L* S/ u, `7 s       RowBox[{
    ! k$ S7 c8 B2 j2 a+ t0 n        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", 5 _* s0 u0 S' r) Z, C0 T, s) W1 K
         SuperscriptBox[
    7 [% {5 Y: D) Y      RowBox[{"(", 8 `! K% J  b* Y5 d2 A
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ; ]* T, j- `- ^4 {$ P) S2 f
         SuperscriptBox[
    : w) i6 M9 T& b+ w2 j      RowBox[{"(",
    . E+ J0 W) [/ C* X8 e% A       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    : k# _& \: h1 v- d6 k% u0 R    ")"}]}]]], "Output",
    , {( ^) \; S  W" b, _$ H CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, 8 e; e  \( C- H4 u1 c
      3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,   `5 g" J- V9 S, V4 h
      3.5779608945565863`*^9, 3.57801226165625*^9}]
    & Y) q" R/ x1 J- h}, Open  ]]," L3 A- y$ `9 X2 G

    4 Z, t9 q) S& KCell[CellGroupData[{
    + u! P( D% b  e
    : V7 _* L4 F0 m. G: O3 ^: rCell[BoxData[
    9 u+ z3 R" S5 ?" d% L( p/ Z$ W2 G RowBox[{"C9", "=", "Ca"}]], "Input",4 f1 P: v( l1 w: d
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 7 `5 D* s+ t& ~. }: W
      3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],+ _" S8 u2 z. L9 ?, U; J% S

    8 E7 h) F% J* V7 B. I0 A; C+ q0 iCell[BoxData[0 o6 U+ t' J! {4 N; L
    RowBox[{"{",
    , L: s$ v4 ^. I+ S# u9 M  RowBox[{" X8 e' n/ C4 m3 N# u2 ~1 j
      "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
    4 s" w1 s& C- Y. Z7 P   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}], , ?9 F- @- l2 }: D' L
      "}"}]], "Output",8 c+ k/ T7 Z$ \7 Q% u# p# o
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    1 {: ]+ ]4 I4 b8 H( n  3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9,   g! ]0 H5 i8 q+ X3 f! U
      3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9, 4 k$ A1 I6 p3 h' N8 M8 m5 S
      3.578012268234375*^9}]
    % l$ V- G$ |; u. \6 @}, Open  ]],
      G& O6 Q" H8 J
    - A9 t+ n3 F$ j( g" K) sCell[CellGroupData[{& d2 ]5 C0 {$ Z8 ]" s

    9 L( B% ^& U5 K; y! s1 QCell[BoxData[
    - k* Z2 R" L+ j0 C- c" S% D RowBox[{"u9", "=", 5 g3 @2 ~# I  @' [) N( B
      RowBox[{; S' _8 A: x; m& L
       RowBox[{"Exp", "[",   o( l: {1 g9 o
        RowBox[{
    * f) J1 g1 w$ H' {     RowBox[{5 E4 z- [. z) Y5 u$ B( L
          RowBox[{"-",
    ; P7 b' y  ~2 L1 l9 h' Q       RowBox[{- N# R; ~7 M/ ^1 w; K6 b, t
            RowBox[{"(",
    5 D6 B( E9 ^/ C% f$ W6 ~         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ' I+ C2 I0 P/ T* a: ?. A        RowBox[{"(", 1 s$ r6 a9 U5 ]* d9 [! A
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],) O2 I7 h9 j; V2 g4 ?- P* `
         "]"}], "/.", "DeltaX"}]}]], "Input",( r3 b  B/ s; V2 s8 M) _, `: C
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, . [! V5 R& c: J' R, z% ^* c) g
      3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],' ^+ f- j' P2 `! A

    2 P2 n* ?3 O' l/ Y- E1 OCell[BoxData[
    9 z4 ]2 `. N3 }* B7 q4 _ SuperscriptBox["\[ExponentialE]", : n$ G3 }$ z  }' _
      RowBox[{"3.141592653589793`", " ", ) k9 l6 L6 \, g, L5 e# ]
       RowBox[{"(",
    & s5 b5 C0 a+ V% I  q    RowBox[{3 |8 Z& L8 g( G1 R
         RowBox[{"-", : t' X" U& C; f  ?
          SuperscriptBox[! e! @6 P& |9 s
           RowBox[{"(",
    7 z% R0 j* Q, i6 l8 v        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", & u" U0 r* k* o( P1 `
         SuperscriptBox[
    " W0 A, S0 a8 ?+ w3 r      RowBox[{"(", # c# b7 V: d0 g3 h4 n% l8 C# z
           RowBox[{
    6 H8 _3 F9 E5 I. q6 @9 T        RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
    0 f* n7 W' }3 u. g8 h! S( S8 |     SuperscriptBox[
    2 A! R& J; ?" s* P- O/ Q8 S4 L* b      RowBox[{"(", / K$ F4 i8 z# e0 `3 q
           RowBox[{/ j5 U# `/ l9 _0 @; a6 C: Q
            RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    ( A. ^# B. k" u' B" N/ t+ \  ^     SuperscriptBox[" L9 \( y+ X* ?, K) O
          RowBox[{"(", / y! ~6 w, _) \+ ], ]! T
           RowBox[{
    & i* b; L. y1 Q        RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
    - X5 Q( I+ k% C  w: r6 x% Y0 y# @. l     SuperscriptBox[2 S, _/ |. p- e! I
          RowBox[{"(",
    ( ~. _9 p- W2 M       RowBox[{
    # G7 h5 g8 p2 B( n4 H6 Y4 M5 I        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    0 |( p" J4 n: V9 M% h     SuperscriptBox[
    % F- c2 t& q: ~- M# q      RowBox[{"(", % `5 n) t3 L$ D
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", " A* h) r% M. I# V
         SuperscriptBox[
    3 y* a2 {4 E# d5 R, ^& D" E      RowBox[{"(", . }7 H$ M! T, i
           RowBox[{" {& {- l9 k( h7 d7 @0 u
            RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
    5 o$ O% x7 ]& H. R. i3 y9 L     SuperscriptBox[2 H8 z; c$ h$ b) s. T  M
          RowBox[{"(", 6 W" i, [$ P+ q: L6 S) V
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ! Y* w. w9 D" v$ }& ]* `
         SuperscriptBox[0 O, W" ~8 W3 z
          RowBox[{"(",
    ! a8 c5 A2 w* Z, a- \9 X       RowBox[{! z. U: G8 D4 }6 \
            RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], 0 H/ J1 m; B! p; }
        ")"}]}]]], "Output",5 m2 D3 G  w1 w; S) Y5 e
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    * w, i9 T( t& ?. A- C, c1 r  3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9, / n+ ~2 `9 x  n, i5 w
      3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9,
    - n3 t1 I9 s( ^0 ]/ j- I( L  3.577961530421959*^9, 3.578012269125*^9}]9 T) N" H: [) v1 k
    }, Open  ]],+ J; e: t! |6 j# i
    * c" |: V' ]) t, P. s
    Cell[CellGroupData[{8 A1 J1 ]! R( t! s' `5 w

    4 V* ^  u  P+ M  S$ S$ A1 d/ S5 ACell[BoxData[{9 X1 y$ ^  y3 d' G$ K4 O% D
    RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
    9 T  r. _- P3 W; l RowBox[{"u10", "=",
    ' x: Q' @5 f0 u8 ~- A8 B( B6 a  RowBox[{9 u! P& {$ K4 A: {, f) C1 c
       RowBox[{"Exp", "[", - Z( U& ]" ?( r7 T7 U, y: p
        RowBox[{
    - \$ i/ G! U- a$ u. e! X5 m7 ~     RowBox[{
    9 @: ~% y" J) N2 N* G0 o      RowBox[{"-",
    + W$ z$ D; \! ?+ n' d5 U       RowBox[{
    ; n* _' K6 j6 E9 s        RowBox[{"(",
    2 f' v6 E( E) P! Y6 q         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ( k+ f6 x7 S$ @* n        RowBox[{"(", / ^  z+ B- J; V$ |7 v2 V/ {
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],' j; k* ]1 ~2 S9 A; G
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    : V! Q; Q" k- [/ t1 ^2 b% \ CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],
    & }; l$ z: U4 E' w
    + ~" x8 a) Z8 m+ lCell[BoxData[
    * L; N, K: D; w/ @2 I" B  D RowBox[{"{",
    1 {. [" X$ z. G9 g; t1 \  RowBox[{
    ) N- a# Q* l% X: H  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
    9 v- D1 J9 h# _$ X   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",; j  _, {" s  E: i* M" D( l
    CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
    1 V; J( e0 E/ N2 e) S" t; A
    6 i: y& A- e- d: @! e8 g. j, uCell[BoxData[
    , b$ g( J! x, f. @2 L; Y SuperscriptBox["\[ExponentialE]",
    3 W9 f+ e. h) j  RowBox[{"3.141592653589793`", " ", 9 b& |+ p* O. q. p6 v+ B
       RowBox[{"(",
    " L$ f8 V" m/ g  ^$ a: Q/ _9 i    RowBox[{: v3 B2 V7 t7 @
         RowBox[{"-", 4 U6 l) a' B: H; S
          SuperscriptBox[7 ^& y' [( d  n  M2 K7 V- w" B
           RowBox[{"(", 7 k7 Q3 U3 o, E; ~7 F9 D
            RowBox[{
    ; E- M% |7 s# S. R- L0 ^; ~         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 1 U; v- O- S: u$ O, r
         SuperscriptBox[
    , X7 ]- a' b" \( x! s8 ~9 k      RowBox[{"(",
    ( M' D, ?! _0 {2 h       RowBox[{
    % u1 z0 w6 d2 e0 Z& H3 q# q        RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
    + B( G8 f: [( O# G. ^/ D     SuperscriptBox[" ?. Z4 P4 f! q0 \- C, k, c6 @1 |
          RowBox[{"(",
    : y* K9 u, s  D6 X       RowBox[{
    " U: D4 M) b0 X3 U  U# ^        RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
    7 [! K$ y( e" D2 E# {" o     SuperscriptBox[! H. q6 e/ S$ W' A
          RowBox[{"(",
    * ]9 n# R+ I2 k3 \       RowBox[{
    ( C" [* z4 M& ], W% a/ V5 W        RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
    2 i: C1 A0 J; C5 K- L) G+ C% m     SuperscriptBox[
    ; i% v/ N3 Q0 m- N$ X* N      RowBox[{"(",
    " c+ k$ \* _# p) b+ D       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
    . o6 Z! z9 J, @7 h! d     SuperscriptBox[$ n; V+ c( v# m: Q8 m. T
          RowBox[{"(",
    * t" E7 I4 F, F  P2 @( S- M( [       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    4 T5 C. q8 z% N# d6 Q" h& K     SuperscriptBox[. k% _0 B! s; W- i. G
          RowBox[{"(",
    . {- j& L% \' b  r8 V0 e       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    & {( B7 b. q) f  ^$ M7 M' z7 X     SuperscriptBox[7 l# o3 A3 M% O7 |
          RowBox[{"(",
    ( C, a6 E/ t+ u7 l) e2 Z- G3 U       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    / v6 G- T+ m, f& e2 m1 `- R# J     SuperscriptBox[2 K0 L/ L6 ?- P  u8 g: C% P
          RowBox[{"(", + I! S7 k: U0 J) f% w
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    * L! g; s! U; I* ?! Q    ")"}]}]]], "Output",
    5 D( e# \1 \8 ]8 L7 z( l- U7 l CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]% e. N! t+ k. }
    }, Open  ]],3 c6 M2 v) V8 a( E; s' Z/ X
    9 z% h% j( }. B- ]3 R+ }
    Cell[CellGroupData[{2 \# `6 v4 Y/ r" {9 L, q
    ! C5 M6 \: ^$ [* g& `, ?9 l
    Cell[BoxData[{
    . a0 O: A% v6 g/ \) e RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]", % X% F% U+ X! t' K5 D  z
    RowBox[{"u11", "=", 4 a# b) R; U8 M& E& J) \' i
      RowBox[{
      X' ^9 u0 q' h1 T- I& X   RowBox[{"Exp", "[", " A+ r1 }- ^1 V0 `, j- [
        RowBox[{9 K5 K* q3 L  Z4 t; m
         RowBox[{+ z, n" [2 Y: W/ Y
          RowBox[{"-",
    ) M! ^" N0 e# ~# V/ ~: `       RowBox[{5 G4 c5 `$ w* i! x
            RowBox[{"(",
    " F* d$ b0 h$ f. H1 J         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    2 h/ h" W& l! I8 J) V        RowBox[{"(",
    & p+ \( ~' w+ e7 w/ V, l         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    3 F6 p. s8 i% ~* @2 {$ K     "]"}], "/.", "DeltaX"}]}]}], "Input",
    " g/ a3 P4 |) u) K1 _ CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {2 O% ?7 J2 \' \/ K+ J- e' m. {
      3.57796154237158*^9, 3.5779615434011817`*^9}}],
    % s2 g3 d$ i! N2 A. q/ o
    & i, u7 m' c, X& g" ^. j* lCell[BoxData[
    + N' Q. ~4 ?8 M1 A1 f, o+ t% Z5 x8 G RowBox[{"{",
    2 l* f8 ^0 L5 m. y  RowBox[{
    8 d9 e+ V2 b" e- K3 u" p  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
    - P) d; G: p+ n4 U1 N   "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    / o& }! b2 Z( G7 E$ ?6 T0 \/ C  "}"}]], "Output",1 [2 t* a. L( c' p9 p) R& J
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, ( _+ k# o" }# _9 w. `& M) t
      3.57801228203125*^9}],
    2 Y# N* r7 B1 r! x
    , k% `( N7 G7 G/ r( H! RCell[BoxData[
    , O9 a3 C9 E& F* M, f SuperscriptBox["\[ExponentialE]",
    8 ~. z# C' @: n$ J  RowBox[{"3.141592653589793`", " ",
    8 }; V6 g# r' r  c   RowBox[{"(",
      z9 }" @; T! y* U0 L' e% D/ ]5 B    RowBox[{
    7 i) w0 y( K6 S! N7 D4 T6 J" b3 @  z% q) U     RowBox[{"-", ; L1 Z" C. t( j7 M
          SuperscriptBox[
    5 t7 [8 s% F: {9 Z! A. |" [       RowBox[{"(",
    * I( L2 A1 l& |7 n: `        RowBox[{: x$ U: e& X" Y$ n6 R8 \
             RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
    8 C* \1 f& h( z  E, }     SuperscriptBox[
    5 H  a: l3 T$ [/ g& V      RowBox[{"(", ( P; b: {6 I- b
           RowBox[{, e" ?1 ~, P; N( \0 u( [0 y
            RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
    ' s9 v+ _2 E% _- I. J; i     SuperscriptBox[
    ; q7 d" w4 Y  k. u# R+ h      RowBox[{"(",
    ) |' g) u; w  b  E6 z       RowBox[{' c# y+ w+ u3 y+ U
            RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", & l  p% E, i* Q/ L
         SuperscriptBox[
    ( I& j) m2 j' H5 C      RowBox[{"(", 5 S7 s5 P5 H0 V( _' c
           RowBox[{
    7 f  A* z9 c: @        RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", ; v+ J4 d7 I' i1 t7 V8 W
         SuperscriptBox[- X) H$ P1 |8 {2 u
          RowBox[{"(", - p5 r4 U' {9 C; \% B; O
           RowBox[{
    . p3 {" [  {0 e& w        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
    , f2 V, d4 V7 }0 V# ~3 p5 ?     SuperscriptBox[, W2 c0 ~" `# _' D2 p. r- J
          RowBox[{"(",   Z" X5 z. {" l; r5 }, [
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    * J' ?$ u4 v& e! G% @     SuperscriptBox[
    8 n6 M/ l: g' M      RowBox[{"(",
    " n  u1 h! I) P: Y5 X       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    3 p2 x' R' o; P     SuperscriptBox[
    2 y% |% g  E. X6 e# x      RowBox[{"(", & }3 _5 \. a% [# a! O
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 0 ?2 K: W0 i2 v# n0 |
         SuperscriptBox[0 @- p7 B' P/ V' t- O6 _* S- s
          RowBox[{"(",
    , ?5 d0 v! o4 F8 f       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ( P2 p) N  u$ \7 x( H# E& e
        ")"}]}]]], "Output",& V/ d6 Z' ?5 x9 o; K3 q; O
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    6 A5 \( M+ o2 J/ v2 `. q1 k- p- V  3.57801228203125*^9}]5 c8 e( }4 c/ b: J0 j: @2 E0 w4 V
    }, Open  ]],& g4 G' {, r# _# W9 g, ?& u+ J6 y

    : @2 m: b1 {& T# L6 H! s' z( uCell[CellGroupData[{$ L: D% U8 z+ c, Q

    7 C3 t  X) ^9 p( u) rCell[BoxData[{
    $ o9 `& ^* ?6 \0 H( v2 J' V RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
    # o6 _. u* ^3 C( u7 J" s: M RowBox[{"u12", "=",
    3 r8 h) z! j3 w  RowBox[{
    - g6 i8 J1 a( v2 A2 P   RowBox[{"Exp", "[", * A8 N9 d5 q" |. Q- X8 ]+ v; S
        RowBox[{
    ! f! b, [2 y6 C, `' B$ G8 A  ~9 y  ~8 Z     RowBox[{
    4 M  N( l5 ^$ V' X3 \9 f      RowBox[{"-", % @' f) Z3 `6 s% G+ e# t" `6 P
           RowBox[{1 b) b( A& m1 y' E. i: u9 W' ^
            RowBox[{"(",
    # @: `) R& g( k6 _9 _' K         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    2 u% @  M* N) Z% v        RowBox[{"(", * j. `9 q/ x4 H( c" z: J1 U' m6 n& U
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],, n, G% }1 ?) O* R
         "]"}], "/.", "DeltaX"}]}]}], "Input",! J5 v( B: B2 S
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {! \* I9 w: p; m5 z) I2 C6 d& m- Q
      3.57796154237158*^9, 3.5779615576284065`*^9}}],/ o7 e8 q! i8 V
    * _( i$ Q# W% T# U
    Cell[BoxData[
    : c8 t( `3 I4 l5 B7 K RowBox[{"{",
    # |4 \. `6 n+ Y% H, E9 B+ w  RowBox[{
    & n8 S8 y. a& J" e7 T2 ?2 b- M( Z  "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
    : Q; T% p# @0 c* D) o+ s, p1 t5 A   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}], & \. Z  C2 d9 F" d4 k' g, R- w8 Y
      "}"}]], "Output",
    : c* q; M9 D. R  ?! Q+ Z CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],
    - S- Q/ z& h. q! c" l' V& s6 X! a
    : z3 |0 @9 k3 J8 r5 cCell[BoxData[
    * B; N  `2 D: ]" u" h) R SuperscriptBox["\[ExponentialE]",
    : u. T& V: N1 w( C9 M5 i2 G  RowBox[{"3.141592653589793`", " ",
    * K9 q9 p7 U' s: Q: S. h   RowBox[{"(",
    . r$ ^8 N  a9 d0 D! o5 g0 q9 N    RowBox[{
    " C3 P" y+ \5 y1 Y6 S     RowBox[{"-",
    - @! h3 P7 N+ P1 O3 w      SuperscriptBox[' U1 [  l5 `; R
           RowBox[{"(",
    ! j$ H  o# e$ D; k& \1 q) s+ C1 V, n1 ~        RowBox[{
    4 C) }7 L4 `( g6 p         RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", ( S6 b* Q# }' q; |1 E( r" r
         SuperscriptBox[# i* {/ |- Q( a: O0 E. ]: f
          RowBox[{"(",
    $ E& {8 W% D- C# O3 P( G7 T       RowBox[{
    3 h$ U: U! k* Y" T        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
    6 |, s3 |9 b1 Z+ H3 c" o     SuperscriptBox[$ K- V; O5 N( ^  |( P
          RowBox[{"(", , i- f7 H) A9 H
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", ' F- A! l& d& v! _! x1 Y
         SuperscriptBox[' M: Q! F' L5 m; L: n+ D9 h
          RowBox[{"(",
    # j+ R+ V+ ]% W, g" W- @% k; B       RowBox[{6 {6 \; I* v2 ~
            RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", " z& {8 e, O3 S1 |4 }, G
         SuperscriptBox[$ E& c8 A# h/ b4 e& n
          RowBox[{"(", . M1 q  x2 W. X% v3 }
           RowBox[{6 V& }- _' b9 v. |
            RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", ' q! M& M4 Y) h+ R
         SuperscriptBox[
    % h& d8 O4 s" {7 m+ I4 [      RowBox[{"(",
    8 M! H; z" B' E       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 0 n0 i7 B' t$ R  M/ ?7 S$ `
         SuperscriptBox[. V5 h: v3 S+ W- F! m
          RowBox[{"(",
    + V3 A1 C+ L' S5 \1 V       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    . V8 z4 M3 P1 D6 a" E5 o  A     SuperscriptBox[) {, z0 h, I: J1 ^/ O) E4 k
          RowBox[{"(", ( {0 a8 l1 q; a; C# w  Y. ~# `4 f, q
           RowBox[{
    . ~3 X/ L; w; ?0 y        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", 3 a2 c, L5 _& {5 s8 o
         SuperscriptBox[6 T: [8 ?0 J. B5 {$ Q
          RowBox[{"(",
    ( Q! ]  T$ R+ j* X' R9 e       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], + b" t2 O+ i% t) |: x% N
        ")"}]}]]], "Output",: V6 m. W3 V: Q& o
    CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]
    ' Z2 G# u, U# Z# h- O* U}, Open  ]],5 [' `& s9 f  b, g% D

    - E' p6 o+ s$ N/ l% H) \Cell[CellGroupData[{6 M% ~+ T5 M! @
    & @! ]8 o1 M& w! R* W$ [2 R* z
    Cell[BoxData[{. x3 ~( A; ~" V. D( }
    RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]", / ?$ R. p+ `; g' {) h" O6 P
    RowBox[{"u13", "=",
    + b! [0 F! L2 p. D  RowBox[{
    ' G2 s0 m5 U1 U: k& l   RowBox[{"Exp", "[",
    * F% g2 v) ?; v2 q( `( I    RowBox[{; q6 B- S+ ~2 @. @
         RowBox[{/ U5 R! j5 K. Q+ |& V% ]% }
          RowBox[{"-", 3 z8 A& ]1 _# ^- s" G
           RowBox[{
    8 l. {% S! ^0 t4 \" N        RowBox[{"(",
    * ~8 h# s8 L+ \; X         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ) i# y. r6 |) E) o0 T5 N4 \
            RowBox[{"(",
    . h* t6 [% w" C+ _; @$ C         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],7 N6 Q* ?" K6 a. U# _
         "]"}], "/.", "DeltaX"}]}]}], "Input",8 C: ]- g- ?: o, o5 d+ C
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {& d5 Z8 l! l  a! m
      3.57796154237158*^9, 3.5779615599684105`*^9}}],/ }. T( v) Z; J& E

    7 E- }  G: [4 m+ Z4 j( m4 VCell[BoxData[
    ( s0 Q/ e/ a4 Z: P' W# x  j, o RowBox[{"{", / i+ s: p& K% B) Y+ Z' C+ r8 V& g
      RowBox[{
    % u( M# k& n- _7 O2 g, L  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",", " `4 J/ n9 z3 t6 w; e- m& E
       "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}], % c. h$ E9 F5 S7 E) P5 A8 [* q
      "}"}]], "Output",/ ?+ I7 q! s! M+ D/ Q: i; x
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]," M1 R; n; b" A' M. E

    ' }( ]: d3 C, B. ~' M4 X9 }! J6 BCell[BoxData[! `) t7 i0 t1 F$ D% u  ?7 |
    SuperscriptBox["\[ExponentialE]",
    3 y6 o! `  f( E  x* t; n  RowBox[{"3.141592653589793`", " ", 7 ?4 k7 G1 R; A/ D  \+ Q
       RowBox[{"(",
    ( H; t7 g6 b% i/ K$ ^    RowBox[{1 n9 C5 g  V* S& t! V
         RowBox[{"-",
    / p2 `4 B$ w0 ]      SuperscriptBox[
    4 c0 _- |9 w8 R1 d       RowBox[{"(",   I5 x& F3 u! t* Y7 d# d
            RowBox[{- H: z  P1 {  J/ I5 v9 d
             RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    4 c* e8 f. \3 _& t: o3 C9 r% o     SuperscriptBox[
    & |* y" i5 v* ]) \( k      RowBox[{"(", 0 [% q2 i; ], U# a7 c6 B
           RowBox[{
    : U2 y' U& N/ X: z        RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
    ) Z+ g6 e) d7 v' N* g     SuperscriptBox[+ m7 s" b, u/ C' l: n( V: N4 ~7 \
          RowBox[{"(", : l" [- |1 e4 _) Z% b6 k# Z
           RowBox[{
    # E. S7 H% N' h        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    5 b$ y5 |% f5 G- }0 P( v     SuperscriptBox[
    0 ]# ?( O4 m6 m4 b1 S# A' t      RowBox[{"(",
    ' p  Y6 ^3 c% i! m       RowBox[{" b# m2 D. z6 }, ]
            RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-", + O7 w% t* Y1 S% t" e
         SuperscriptBox[
    ! H1 j. Q  \. P% Q  `1 c  h      RowBox[{"(",
    . |) |* d: D* `) X& N% z5 p       RowBox[{
    5 Y- g) L. g+ O        RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", " e0 q! K3 D* \. ?; {& k  w
         SuperscriptBox[
    0 O9 B. \0 Q3 z5 m0 B2 [6 ^      RowBox[{"(",
    6 U) G  f4 {+ S! k/ L$ f+ Q       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ) l0 M( m$ x% F2 S/ e/ g- D     SuperscriptBox[
    5 V; w0 J& S* @* I. H( z0 J      RowBox[{"(",
    9 g9 S+ L" V3 P       RowBox[{( j6 C  B; I5 a. d
            RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
    & C" Y, v+ U; ~5 R     SuperscriptBox[
    . L7 H0 w% K+ [/ e( z      RowBox[{"(", : c  C, u% {9 L7 l. N' ?
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ' g9 n, v0 v: b1 Q
         SuperscriptBox[% k5 w: k3 U5 U0 a
          RowBox[{"(",
    " x4 Q) u2 P* Y( b+ g       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    4 }5 r# m# {# C( ^' l1 I, I) R# `    ")"}]}]]], "Output",
    8 V0 d6 a/ p. G  V1 @7 j CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]
    ' u! u8 _) u; f* K. h. A}, Open  ]],+ _3 |% N# h+ H/ _8 `! w; U! y

    & X" i7 \4 F( lCell[CellGroupData[{
    * `# `2 i. P$ l) S# T5 u% Y+ z6 Y. s- ~: }# B% H5 ~
    Cell[BoxData[{0 A8 Q! ?6 ^( L& n
    RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]",
    " o3 ?5 ]' g: Y5 Q& M3 m RowBox[{"u14", "=", " V, T. k5 `3 G: {1 l! u( \" n% b
      RowBox[{
    5 x) N2 ^0 o1 }/ ^# d% V8 I( a7 \/ ]; C   RowBox[{"Exp", "[", ! _3 W0 a" C% W5 j! c/ y; R
        RowBox[{
    8 [" N; t) W& F5 R5 z2 F     RowBox[{
    1 c5 c& h. J0 t# V8 R      RowBox[{"-", ( Y* K1 G$ V& J7 ?- c, F
           RowBox[{. W# Z* J. G8 v& P' C" D
            RowBox[{"(",
    2 ~7 u* |( O! B' u         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", $ ]1 ]& y3 l! X
            RowBox[{"(",
      l, x$ Z" R5 ^+ e8 ?0 s3 t( {         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ( _( [8 s& ]1 t. B* M* A) R     "]"}], "/.", "DeltaX"}]}]}], "Input",) j' N4 R) E. |# t6 C% t
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    5 h/ v- v! }9 O( [1 V6 Z9 f! d* K  3.57796154237158*^9, 3.5779615663176217`*^9}}],
    ! K/ E/ d, O& k! V9 e
      L7 D1 g! h3 T! f$ iCell[BoxData[$ w/ q" ^0 v% S  k" m
    RowBox[{"{",
    / D+ x) ?4 b4 W# v) ]  RowBox[{' B: }% N& B6 x: e! j3 w1 i. d
      "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", 7 z2 M# s1 H+ i8 _" E' A) l
       "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    % B9 A0 _: e- i# S& a2 t  "}"}]], "Output",9 N0 s0 Y3 g' n: y6 g0 t& o9 x" T) |6 `
    CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],. s$ W  }  K* t, f( a: S% t: S1 O% W
    . `* s1 y% m! R. A3 l3 Y0 v5 G
    Cell[BoxData[5 T; o+ U% p1 A( ]
    SuperscriptBox["\[ExponentialE]", / ?4 T8 h7 {: O$ H( K! {! Y, b
      RowBox[{"3.141592653589793`", " ",
    ; f7 E3 a$ u( B$ q   RowBox[{"(",
    3 K1 L' Q- F2 Q  F    RowBox[{. K9 Y! B4 ^+ o5 a
         RowBox[{"-", 9 o/ W& V3 Z9 ]2 ~! ~! [
          SuperscriptBox[+ r* y6 l- Q7 P0 x' @
           RowBox[{"(", # j' N# ^, H- Y5 Q7 {
            RowBox[{6 {& O. _5 e! f& p6 h) L
             RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
    0 X. \' N4 A0 y2 C     SuperscriptBox[
    1 p$ {  d6 p2 ^- H% O      RowBox[{"(",
    0 B% w4 x3 j1 I       RowBox[{2 v- p! ?: z( {5 ?
            RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", - f. t. I  y" e$ n
         SuperscriptBox[
    6 L. E8 {6 t& w8 P! R8 }; A& j' P/ r      RowBox[{"(", : x& D- l, X: V2 a7 q6 A
           RowBox[{2 v) @- {3 O! B+ w
            RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", / _* {% A4 I9 P( x/ M
         SuperscriptBox[5 x/ ?; f, t9 B0 c! h
          RowBox[{"(",
    : ~- I, S" L1 @! q, Y       RowBox[{( Q: z$ k' e9 _/ Z9 `3 V
            RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
    ! `" i3 a" v) l9 v& f" k5 S     SuperscriptBox[5 O1 [+ J' A3 u. p  x9 D: A
          RowBox[{"(", 8 e& n. E% D- n3 U3 u- R7 W
           RowBox[{
    " t* O: s# I! X5 ]. d- u6 W( ]2 v& y        RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-", 9 e* B7 t: G% f5 [" q: R, o$ Z
         SuperscriptBox[
    4 k" a3 h: q6 N, T* c! w+ z      RowBox[{"(", # W9 C) _* I1 c( o8 U
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", & s+ j, s3 |$ y0 }, w/ @, @  b) {1 A
         SuperscriptBox[
    # \9 l- j( c, r9 C9 r- e      RowBox[{"(", + l2 q+ b, I& _- k
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 0 U. E& }$ c1 l2 v
         SuperscriptBox[
    ) Y* O$ x; T/ M1 {      RowBox[{"(", 3 E; d( Q  N# l" C
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ( i9 v; C- Z  B3 h" i
         SuperscriptBox[
    # [% k4 @% J1 f      RowBox[{"(", * d, \9 M% }7 w6 M
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    1 t: o7 q2 p4 F    ")"}]}]]], "Output",
    ! n! n' G0 D3 i, |8 K/ R7 [) | CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]  _8 y4 J. `3 c. u
    }, Open  ]],
    1 O% D% h$ d) c  k8 t& u. G' y& I. v! U/ j/ Q* j2 E
    Cell[CellGroupData[{: k: D+ S6 Y1 c; V
    * L' r( W* r  Q$ o
    Cell[BoxData[{! Q& l0 J1 y  r% U- Q+ J8 t4 l
    RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]",
    8 J5 A/ Z. N1 F) J RowBox[{"u15", "=",
    8 f  w4 y% P  D+ S9 o9 W  RowBox[{
    9 h. \) `$ a5 S" V: t   RowBox[{"Exp", "[",
    , s4 j+ r1 y9 K    RowBox[{1 b: K# P% k; F7 ]* A6 m1 t
         RowBox[{
    ( n0 D- Y* e' G! p      RowBox[{"-",
    1 o- {: ~5 ^7 N2 [1 f  E/ K& M# t6 I       RowBox[{
    ( R* Z- o) y) v) V  Q( q        RowBox[{"(", ; S4 S2 t0 U4 i% k& c7 ~
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", , h2 j, i  q0 r) i. J& A
            RowBox[{"(", / }7 @5 O, c) Y% ^
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],+ O, j: j5 |0 Y: f) Y
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    : B) m; l" _' W0 ]- m- W$ h CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    " ~7 y6 M4 r1 O  3.57796154237158*^9, 3.57796157098203*^9}}],
    * E) x" j1 D) d. C9 f& L) c' Z0 C- A1 L2 B- u
    Cell[BoxData[
    0 Y* |8 D: K8 K8 K, u. u' z$ j RowBox[{"{", 6 U, |% q4 q" W9 H; X
      RowBox[{
    * G" `/ t8 P4 Q0 [' Q$ |  "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", 9 Q  v: X/ ?3 _6 K9 k% I6 }8 g
       "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
    - K# Y3 X0 f  V) E3 w  "}"}]], "Output",
    7 Z' N8 @7 b9 ^" d CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],3 L6 ~$ y' \- O% z+ o

    $ D* z* ]: {# T4 Q% j9 bCell[BoxData[
    ( `$ Y9 u2 M3 [; w  H! v% ]+ C8 G SuperscriptBox["\[ExponentialE]",
    8 Q" r2 I2 v8 t; g, ?  RowBox[{"3.141592653589793`", " ", ( e. n6 W* S1 V! q
       RowBox[{"(", 0 X3 f* H* R) h# O( D% E$ x
        RowBox[{
    1 A9 C% e5 b9 S# z     RowBox[{"-",
    6 x# }  o$ G+ j4 Y; d: H, T      SuperscriptBox[
    & O  Q2 L9 z# v( X& D       RowBox[{"(", 7 N: @, }# p4 R- p! n& S
            RowBox[{& M5 z' c; `* j7 [
             RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", % N% A0 r0 B; O
         SuperscriptBox[
    1 L. P  Q+ g8 z3 e: J6 V      RowBox[{"(", , [8 k/ p* [2 E, K
           RowBox[{4 W! c6 z; p( q
            RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
    * J1 u4 g& [) u, ^3 E* ?     SuperscriptBox[9 |& g' c6 T0 u' w- c2 t- x6 t
          RowBox[{"(", 1 U5 Z3 ~5 q6 u8 J9 h% o
           RowBox[{
    + P' O+ P9 D8 l* g        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", . k! D/ I% U( x% K# ~: S
         SuperscriptBox[" Y4 J  e" R5 K" z6 U# w1 Y  c- q
          RowBox[{"(",
    ! N: J) _; V) }# X) w       RowBox[{; v6 c9 Q/ d% n/ ?
            RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
    , G8 w  k: S/ g+ P     SuperscriptBox[+ H9 E  `6 i3 P
          RowBox[{"(",
    ; ~) b% N* y5 Q8 V% _2 R; F4 f; F       RowBox[{
    & G. L  l& b( X7 a; u        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",   p. r' n; Z( |# t( Z
         SuperscriptBox[
    0 [& z* Y+ f3 ^+ h$ K( ?/ Z      RowBox[{"(", 3 r  `+ t1 O4 t" Z) N( h2 S  O
           RowBox[{5 F) }* ~/ d8 I! Y* Y  _4 V$ L
            RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", * {* x/ u% C* {% g: C$ R
         SuperscriptBox[
    & p2 E+ ~. c& l      RowBox[{"(",
    0 {5 s6 f1 o! x5 K; ~! K# f       RowBox[{
    - Y& P, ?' h: s3 n9 y        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    ( _$ R: n# X0 D( D# @     SuperscriptBox[7 Q; T: O7 Q" y1 n% q' e% P
          RowBox[{"(",
    # x) T  l: }* K9 B9 z9 j  v       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    5 l6 }3 q0 ^8 j$ S* o6 r" U/ z     SuperscriptBox[
    ! m$ }; G0 l* C( N3 B3 _. F      RowBox[{"(",
    ; b8 S2 f& d' s       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    & X$ n8 A8 i1 f5 f2 N( ?    ")"}]}]]], "Output",! n+ k6 h  a+ I9 G8 p$ b- f2 _
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
    3 t& j3 J- [+ s* M. t}, Open  ]],9 x+ ]4 B$ H. x6 U* W6 I! x
    8 P- u, o5 f9 g  m0 R6 v- I- [
    Cell[BoxData[
    5 _5 S; h' B8 X0 l RowBox[{"For", "[",
    6 \& g& k2 y% Y) w$ \  RowBox[{
    7 \0 G; ?: @9 x, g2 w   RowBox[{"i", "=", "1"}], ",",
    8 Y- [+ M% _$ v7 I   RowBox[{"i", "\[LessEqual]", "9"}], ",", + L9 Y+ U3 x0 ]4 P$ Q& w# V8 {% C
       RowBox[{"i", "++"}], ",", 7 S8 e( r; B: e' t4 ?
       RowBox[{0 C) b2 Q! {8 J/ b+ ]. d( U5 w
        RowBox[{"Ca", "[",
    $ \% x( u- z: U  F! j     RowBox[{"[", "i", "]"}], "]"}], "=",
    9 e3 f+ m! T1 q" Z8 |  p    RowBox[{"CM", "[", - l, ~% G5 e+ J. U3 P" h2 Z& o
         RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",: M. H0 G- Q1 W8 S5 _) N
    CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],6 r3 n. W/ }2 _7 _9 T

    2 s( c1 X9 v' f: @) U- Q8 SCell[CellGroupData[{) w/ m$ Z, j2 N

    ) f1 i5 e- H2 m: `% B! x: [Cell[BoxData[{
    " g3 H2 a# j& \5 ?: X: V: S' M RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]", / |* d2 ]( x4 R5 \" M, e9 B  s  C
    RowBox[{"u16", "=",   t$ I# p; Y) N0 ^7 o  ?+ y
      RowBox[{
    4 j# R) C  ~- l5 A8 G0 D( j! N   RowBox[{"Exp", "[",
    0 c5 I( P. @2 A4 w; S    RowBox[{
    - D. X" }1 f4 b5 L     RowBox[{% j4 d9 G& @# K6 F. c) B3 B8 r
          RowBox[{"-", 6 \* R4 v& g0 H. L  T4 s4 |# ~0 I8 t
           RowBox[{
    + M- C' \2 h( u        RowBox[{"(",
    ) ]8 D" s4 T& T  O# b/ `         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    9 v4 P3 z* y8 k* m0 M        RowBox[{"(",
    * J. X& f0 v% O/ g: X: F, l6 n         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    , ^& r+ [' H4 r0 z$ x4 x     "]"}], "/.", "DeltaX"}]}]}], "Input",
    8 Z- o) K4 G1 H) {( \8 A CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    5 d) u% ^- V! m  j% I1 B* B; Q! [  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
    / f% q3 d+ A" G* E1 `  J+ q  3.5779615751004367`*^9}}],2 \1 |! V5 F9 N8 h# L8 E3 Y/ G
    ' j0 [4 O/ a  a8 t8 a0 b
    Cell[BoxData[+ @4 S: F( f6 X2 U
    RowBox[{"{",
    : C' i) a! B! D9 _7 g( ]  RowBox[{0 n" L9 S- d* p& u; ]  y3 x  y
      "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",", ; j6 `! c9 q. M$ j
       "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}], & q" U1 F- g# O# [, k
      "}"}]], "Output",
    ; w& K! T# _& K( t) e CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],
    - g- k+ o) H6 M; S" w4 \
    3 y% q4 o6 n. ~  }. ~Cell[BoxData[. t$ _: y3 J/ l7 k5 a4 j. J
    SuperscriptBox["\[ExponentialE]",
      v# }5 |8 ?% B' j/ Y7 C' u" ?- d+ X  RowBox[{"3.141592653589793`", " ",
      u) u. ~) M8 {( c3 j" J1 @   RowBox[{"(",
    5 T2 H# I2 H& F  R0 D6 C    RowBox[{6 B' C; H- U4 ~5 S" L
         RowBox[{"-",
    8 F: R: D  t+ U1 W: c      SuperscriptBox[6 C# K+ L) F) Y( G" q
           RowBox[{"(", 0 @4 m4 v$ U$ e3 \, K9 p
            RowBox[{
    # E% A6 `- Q& \) ^         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
    4 Q6 X% o8 I. c     SuperscriptBox[) `* Z5 L. a6 p+ P; Y/ o
          RowBox[{"(",
    4 }: o- x* S8 C7 z$ F       RowBox[{
    ( G9 Z; h7 J1 D+ V. M1 M. c        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", - N1 F7 U" d# e# _
         SuperscriptBox[
    1 f8 v9 |& S( X- U0 b* X2 F. Q0 }      RowBox[{"(", ; Z1 e1 B* i4 V' K' i
           RowBox[{( E: z; |& Y: H, q
            RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", " H: U& d6 k2 t# a9 v
         SuperscriptBox[
    % ?; s; [6 \3 g& Y: F      RowBox[{"(", 2 Z7 V. A! C/ B# N
           RowBox[{# \) Z6 K% J+ Q7 L  @
            RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
    ; V- A! y% c4 E: k7 B     SuperscriptBox[
    ' k8 [0 ?* j3 \- k+ I. X      RowBox[{"(",
    + R' H8 D8 Z  S& X) w       RowBox[{* `. B+ A* z" L5 y/ T; f, r
            RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", 8 l: `# N: E& |# |7 ~7 j) m
         SuperscriptBox[
    ' M# o& Y, E* E! i4 b3 ^$ D      RowBox[{"(", 4 `3 a4 h5 X( Y( i* `) x
           RowBox[{
    ! C7 y+ N% b+ I* n        RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", 3 {: u2 n: h+ e) J0 c7 @. h3 H" v  M# Y& X
         SuperscriptBox[! e% b4 t6 ?& p/ R
          RowBox[{"(", / J, E; Z8 r" F
           RowBox[{
    ' F; t3 L, h+ W; R' g        RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", # Y/ I; o" \1 K) ^+ H
         SuperscriptBox[/ ], U: x0 X, S  j; A- n
          RowBox[{"(",
    / T- M$ P& @% C. I7 Y/ s       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 9 ^5 \$ j6 H& ]# z4 v4 `
         SuperscriptBox[/ ?/ n+ y* q$ w4 b3 f
          RowBox[{"(",
    ! G& h8 N& ^3 i, U       RowBox[{
    / G4 j; b& U, u; k+ S& J        RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",3 Z+ b1 X( \4 m2 M2 z. B2 k4 N
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}], n" n6 W- N( [# F- p
    }, Open  ]],
    2 W% Q5 E8 {; \& q' x: q$ t& _
    ! r3 T3 I  q( D; nCell[CellGroupData[{
    - ]$ S- }1 o9 B9 \4 M$ Y* _% f) _& Z+ G0 E) ?% s& H( _. q
    Cell[BoxData[{2 L) D/ ?) f. r$ \) G
    RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]",
    + [7 C* p; e1 U, Z+ C/ A2 k RowBox[{"u17", "=", 9 r& ^! P, w# E& \$ c# o
      RowBox[{
    9 u7 G2 D$ _* C7 f! D- A; z6 f   RowBox[{"Exp", "[", & S6 ?# f( O! B$ m3 r1 y
        RowBox[{" o2 o# q( {! S& F# u$ @% V$ Y
         RowBox[{
    * H1 n2 z! {% t7 m8 G4 f; ^      RowBox[{"-",
    # B0 p- [0 ^, g: N: [       RowBox[{
    " l  G# K$ V1 y( E: h' [        RowBox[{"(", / F0 z8 K( c8 \
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ; L2 ?- I, S& W! Y2 Z* Q) t        RowBox[{"(",
    + R: i; h' P( e2 h: o& F         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],7 O5 L6 D5 f/ L4 C1 b. n
         "]"}], "/.", "DeltaX"}]}]}], "Input",5 E8 _, i# a' J4 V. x
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {; r+ V$ N" g8 m3 h) w  ]( |
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9,
    2 ^- N  r+ z, U4 [3 y) ?  3.577961578953644*^9}}],
    ( C% A6 n/ T: M$ |8 H& X1 x  w& Y
    Cell[BoxData[+ `+ K  k; y* h  y9 T+ O$ r. ?8 B8 X9 w
    RowBox[{"{", # ~! O  Y- F9 F" r2 z  }
      RowBox[{
    % d) H! V; h8 _! l( e1 T( _  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
    & }* o6 Z$ \; e7 e" j   "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}], # m% a& O1 u9 S! ?. J' a$ j6 o
      "}"}]], "Output",& ?$ D5 J" k6 k  Z
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
    / ]' @% J) x" U" {% D- A
    6 Q# |% C& P# mCell[BoxData[! d; `& g: \% U- v
    SuperscriptBox["\[ExponentialE]", * D: u0 z% ]1 [: j7 ?6 ]- w, W
      RowBox[{"3.141592653589793`", " ", ' M7 D9 q" k6 V- ~3 _, D" o1 Q
       RowBox[{"(",
    : F/ u' @8 n  w8 d" K% V% n* n    RowBox[{" K& _6 G+ y% y' [) V
         RowBox[{"-",
    + E" T. p& l! ]2 R      SuperscriptBox[/ [8 K! S( L! ^
           RowBox[{"(",
    : W, G$ m  E. C, Z4 d+ {) c6 p! x        RowBox[{1 S2 O/ L% V2 w# A6 ]. l
             RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", - y1 I, }4 s: x
         SuperscriptBox[
    7 P+ o9 H6 @' e+ ]8 S1 o$ `8 o      RowBox[{"(", 5 B: h6 R& p) r. D
           RowBox[{
    " v% I- e/ p8 [$ I4 _1 G+ e        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", + V* Y0 v3 h* J2 E9 k
         SuperscriptBox[" ?4 \7 ~- Z8 R! }, ^$ l
          RowBox[{"(", . \- o5 n7 P3 p3 l
           RowBox[{2 m+ N5 K; \% f8 g0 y
            RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", ' I; f* \: E5 T2 o1 F. v
         SuperscriptBox[9 u$ m2 }- e% \5 r  m
          RowBox[{"(",
    8 H8 ?8 Q! F0 y7 k( D% Z" l% n       RowBox[{1 f( m6 |+ `2 ~* O2 v7 b! @
            RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
    3 D. A4 l! I& K/ M  O% N     SuperscriptBox[; R7 B6 A$ H' F$ d  S
          RowBox[{"(",
    / K) [0 p* J6 _* e       RowBox[{) z0 {( h  J. D
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    $ |- v0 ?% q1 O     SuperscriptBox[
    - W5 c' z1 |& w- H2 i1 K      RowBox[{"(",
    5 P8 W7 ~$ o* _. |/ I# C, T       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", # m  h1 f& U$ Q; ^: X' a+ j% c
         SuperscriptBox[3 g: B2 r) y- J8 {' ~* ~
          RowBox[{"(", ' n( Y: G5 d4 L/ C1 t. G
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 4 ^* z. j1 z1 L3 @3 a% q& M( N' k1 x
         SuperscriptBox[  D/ w, Y; e2 N& I
          RowBox[{"(", ; s" A5 V# l7 W7 r) T2 Y7 P
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    0 D1 [( |  X: f; X     SuperscriptBox[
    3 S" G* K3 m2 \, }5 s$ S( X      RowBox[{"(",
    ( x& A0 b6 t; D* m6 f       RowBox[{
    * Q7 c, d& }1 A+ x        RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}],
    9 O0 W6 O, D8 x9 K7 Q3 t    ")"}]}]]], "Output",
    0 ~, E# p; |9 J5 d- F7 _( w" ~7 x CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
    " S; Y8 V# S3 I- Y4 s3 F. g}, Open  ]],* K4 Q* V- |1 V% N  i
    $ I8 _/ U4 @- Y2 ?) p8 Q1 @. o* A
    Cell[CellGroupData[{' ]9 I+ u/ y# w" u' y) c

    " q; V, z  w9 Q  l- HCell[BoxData[{* Q8 o: D) ?- c+ c+ U
    RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]", 3 P; P$ p3 H6 P0 P
    RowBox[{"u18", "=",
    0 o0 ~$ J* K; i0 ~1 x, Q& G7 H  RowBox[{
    # z' ^" n4 {& p, {8 }! s4 g   RowBox[{"Exp", "[", ; X) Z4 }- z& q* u, [
        RowBox[{2 ]6 |, [2 D- X" e2 E1 N' H' ?
         RowBox[{0 B( p: g0 ~1 w' L
          RowBox[{"-",
    - b. y! [4 l# Q2 p       RowBox[{! e  Z9 ~7 ~$ g; K* g
            RowBox[{"(",
    9 y6 x% a: [% x8 [+ K6 w) H9 d         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", * z; Y; {& X, u3 M0 U) X
            RowBox[{"(",
    : t% O8 R& g- {5 g; m( `. r0 w. a         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    4 w! t: Z/ k2 s% C( D) f1 ~6 g     "]"}], "/.", "DeltaX"}]}]}], "Input",# Q( d  f! Y5 z8 ]9 _& p- l+ j' x
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {* G+ T* Q) b2 Q; M6 ^/ l1 B" {
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9, $ l2 r; Q1 @4 g6 d3 I) L2 A( H
      3.5779615828848505`*^9}}],$ b0 J4 E6 t. }+ A! c

    ( O; ?( ^" h& ZCell[BoxData[- P4 R7 \  E& K/ w
    RowBox[{"{", + w1 F7 y8 K1 j7 b
      RowBox[{: ^5 d: T# p' R9 s: ^0 t
      "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
      g- r2 g# U+ v$ B- C1 N   "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    % ~2 m0 u2 M' [0 G3 q6 B. O  "}"}]], "Output",
    $ F( u6 f) D2 q+ O CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
    9 T6 r' \! Q2 H! F( Y8 l: Z) G! y$ w: C; F, d  ^, p9 z. K& `
    Cell[BoxData[
    4 R  q% X. z/ _2 D' l1 D SuperscriptBox["\[ExponentialE]",
    - j* J8 I' r8 b& @! v0 _- ]7 n( T% _' m  RowBox[{"3.141592653589793`", " ", ) g) R5 y: e  O% M: V
       RowBox[{"(", 0 P: y' n! J, [1 ]% l
        RowBox[{8 ]& t2 r+ ?' W5 q6 w6 |* n
         RowBox[{"-",
      W( ~1 v  y7 \! a$ x' e0 C8 v      SuperscriptBox[  Z6 I5 j; u9 O% k5 t# G3 ]+ r
           RowBox[{"(",
    6 s) G& l( ]' k) H2 q! i        RowBox[{$ Q0 a6 a" h! O
             RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    2 L7 b$ K. c# A2 k     SuperscriptBox[
    ! c. ?0 l( c1 V8 p      RowBox[{"(", ) U, O2 B! y4 n& @  b
           RowBox[{" c/ s6 ~" W/ W8 v( D3 h) V
            RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
    $ O* h0 L3 `- v4 k1 ~     SuperscriptBox[9 y2 q( L" Y: G2 `. V
          RowBox[{"(", , F( t  h  w  f$ f- N
           RowBox[{
    , p" P/ Q- F( Y" l        RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", / @0 |! D* g" K4 y- b) K3 ~1 N
         SuperscriptBox[+ g4 o( I' S6 [0 R' R6 K1 c
          RowBox[{"(",
    + S/ C, o& e. @. q3 f       RowBox[{
    - H# |& F/ P& n* v: G7 B        RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
    6 t$ R0 X5 s, L# W2 Z6 x     SuperscriptBox[
    1 q  s9 ^( f& q* K6 U      RowBox[{"(", 9 f+ l% G* k6 J( {/ N
           RowBox[{
    $ h0 W, W  b" ]2 r        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    " [  x+ X( d- j  d& j     SuperscriptBox[, H! `9 N( o$ z9 s6 J
          RowBox[{"(",
    / E/ f, G9 F4 z3 H8 s& ^       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 9 m" c  ~9 D; e# i
         SuperscriptBox[( @' n' d# ?* w+ Z' P
          RowBox[{"(",
    4 {1 Y) [- D8 A' h; I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 2 d0 w8 T: @! j( e
         SuperscriptBox[' d" F' Q8 L# u  q9 i/ t
          RowBox[{"(",
    # |3 d) s/ k1 D, x       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ' P4 Z' r! z4 A& {. u1 l  O     SuperscriptBox[# V' L) m) R6 g! p; q
          RowBox[{"(", 1 b/ l4 C8 O' G, X' C- _
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], : _" I6 Y1 \/ c) P
        ")"}]}]]], "Output",2 Z, I) N/ V2 N0 p3 h
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]9 r) p0 B* w8 m9 o$ M" _3 c# C
    }, Open  ]],
    , Z' I* I) G8 d, `# L5 U
    $ g/ U% X9 P6 ^. F: L1 {Cell[CellGroupData[{& [' u& B2 x+ V3 I

    4 Q" m& h- Q- _+ m1 ?' ~2 aCell[BoxData[{
    $ v  ]1 T' j: `( Y1 s, | RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
    " I2 G8 p, U, b4 I6 r  C6 N8 m% z RowBox[{"u19", "=",
    ' P3 O7 Y. K! X; u$ b0 G5 m  RowBox[{  T6 S6 W9 C8 j* Z8 w) E+ R
       RowBox[{"Exp", "[", * E# x9 d, F) G, [7 u. @. G
        RowBox[{& H3 P* l4 m' ~' Z, |
         RowBox[{+ b6 j, Y( T% m$ ^+ d& V  o$ o/ E
          RowBox[{"-", 6 J2 Q3 v1 W# W  R, E
           RowBox[{
      i0 J7 a& _1 y6 T6 V        RowBox[{"(", * L' z1 _0 C% v2 t. t
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ' g2 D$ E; }' Z# t  {. P
            RowBox[{"(", ! ^. D4 `/ `: ?  B7 e/ ~* _
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],0 k# Q8 y" L( z
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    : X$ m8 d) l: h, G1 S6 B/ C CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ( x2 [% W, R' ?2 K8 Q: O  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, ! a" }6 ~: H" B' x: p) u
      3.577961588890861*^9}}],' {3 X4 G$ S1 }( |

    2 _- ]3 M( {0 O& q6 |- }; BCell[BoxData[
    5 j. J4 B( Y1 F& @3 S& R8 [ RowBox[{"{",
    ! E( z. W  [) j  RowBox[{
    ) k8 y' {; s# w- M2 x  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",", 1 K/ h7 P- y' E' t+ D) U' j$ y3 o
       "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}], 1 t" c# g, T- H/ Z" Z9 e- }
      "}"}]], "Output",
    / q! v! |5 B0 h- i$ `8 ^6 h CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
    & U% a+ ~1 G# c" d/ f
    # |5 r( p  N0 R; [2 d- `. RCell[BoxData[- N! x  S4 r; d+ ?6 z8 i. q' W) ]
    SuperscriptBox["\[ExponentialE]",
    % Z6 a/ w7 b+ h  RowBox[{"3.141592653589793`", " ", 1 K6 P" A) z& D
       RowBox[{"(",
    + K2 Q+ A( Y" ~4 M    RowBox[{% Y3 x- [8 |3 B0 t  N' ^
         RowBox[{"-",
    + f1 _$ Y# ^1 Y3 \/ t      SuperscriptBox[
    4 H% [; l' x  n1 ~' y! Z* [       RowBox[{"(",
    2 j$ O7 @0 E8 W) L        RowBox[{) a) t, Q, V2 i; x# i
             RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
      T( o- c+ i  T- h/ z0 d) y% Q     SuperscriptBox[9 D1 _2 z# c# x& [0 A
          RowBox[{"(", ; I' j0 w% u) D0 F; `
           RowBox[{8 z$ Z4 o1 p2 e! X8 C+ F( B
            RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
    2 G& D  x4 y9 ?1 H- |9 B     SuperscriptBox[$ v( V$ h8 y2 C. q4 A) O
          RowBox[{"(", ' m# n7 _6 |. S. p3 h! W
           RowBox[{; [& b- F  C% u8 F
            RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", ) @4 n2 F' }/ l$ n2 a6 G& X1 _
         SuperscriptBox[
    , o) n0 O, f  f+ S      RowBox[{"(", $ Z) s3 `4 G8 V7 t; q, `6 B
           RowBox[{. ]6 E  E. i" p
            RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-", 9 Q1 Q. s6 N  Z# }
         SuperscriptBox[
    5 Q, k3 b( x1 G# D) z$ W* p      RowBox[{"(", # t. w3 W7 e4 N- I. T" v, U, ^
           RowBox[{/ x6 @  Y7 D8 K$ t+ w
            RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-", ) `! ^$ y6 O7 w6 g- u' w
         SuperscriptBox[
    / s8 {1 R. u2 ^  ?8 u1 b) a      RowBox[{"(",
    8 y7 e2 f2 C$ i       RowBox[{5 ~4 ]7 Z4 b/ ?6 Y  x. Q
            RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
      y1 ^2 |) E, H5 y! ~7 ?$ _     SuperscriptBox[
    % k" H( ~" T( }/ W" A8 m  i- E      RowBox[{"(", * R+ r/ W; w$ `( T/ [/ U0 j
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", , m  d6 y* D" d$ K, P
         SuperscriptBox[& Q& t+ e" S7 Y4 R: ?
          RowBox[{"(",
    & v0 W! Q  ~6 t, M6 J       RowBox[{3 U/ d4 X* [; o9 t$ X2 A; O
            RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
    ! \# ?, B# [* g5 N* n     SuperscriptBox[
    1 r3 p9 w2 O6 a2 e5 Q, E' v      RowBox[{"(",
    ! d* ]% k5 z9 J' w       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    . N) E5 |' h# N" U( i9 W% [( B' L. f0 B    ")"}]}]]], "Output",
    % U& G) E( e3 N, Z: \: p! o7 N/ R CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
    / E! y# O9 y4 e! a7 s( x}, Open  ]],% K, F0 u8 T9 ?
    6 ?+ _' z2 R  b- q: c
    Cell[CellGroupData[{
    2 X3 a% Z( n8 j& G* F4 O% P5 E9 k( M" M6 s
    Cell[BoxData[{
    " Q& F3 k) m8 `2 `1 t1 ~5 D2 }" i RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]",
    " B# @7 w. c; h5 }, f2 J2 ~( f RowBox[{"u20", "=",
    : S/ ?% V6 \3 w+ S4 Q  RowBox[{
    ! C* N. M; n2 J   RowBox[{"Exp", "[",
    ! s$ g8 ^7 v6 o; @4 g! G) s* H    RowBox[{$ w$ H3 T% r+ J- c- K
         RowBox[{
    ) |( J9 v, Y( s$ G6 E0 V9 }      RowBox[{"-", ' K+ n- C6 K+ P  ?: R2 x5 r, t
           RowBox[{3 w* P8 ]& h3 S5 ]2 V8 f9 K
            RowBox[{"(", , }9 F+ J) B  D- `) w
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 1 j& H& r. B  |! w; x) V, G7 r
            RowBox[{"(", ' e9 C. e" T$ L5 C+ y# L# w/ G
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],- I4 M+ G7 o* C+ J
         "]"}], "/.", "DeltaX"}]}]}], "Input",2 Z  A1 f$ j( p
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {, h0 B+ c0 ~  l  g* g
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
    3 ?& P# x4 D3 U+ z  3.57796159382047*^9}}],
    7 A; H8 d; L" k$ s$ }6 }+ B
    ( M+ q/ ?( d6 N- |' t  rCell[BoxData[; Y+ F8 |4 W* b: P1 c7 H
    RowBox[{"{",
    6 e7 ^  ?2 \1 g' B  RowBox[{
    ' S+ A6 {0 b# ]4 `  "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
    8 _5 r  O6 \( L2 J$ F   "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}], 2 N( C+ e0 s% m# c$ b  x
      "}"}]], "Output",
    2 q$ d, f4 e/ [+ L. p CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],+ H% I- w0 _9 C2 U- f+ R

    + {" A5 h2 z( PCell[BoxData[7 [" G1 ~* k3 g  S; U. \
    SuperscriptBox["\[ExponentialE]",
    " E9 w& G; u6 p4 b2 Z7 s  RowBox[{"3.141592653589793`", " ", 8 l8 L  {! O8 J; h4 ]; w
       RowBox[{"(", : S8 Z# v$ f9 U6 ^
        RowBox[{
    7 N: G5 a  _. Y1 l" c     RowBox[{"-",
    " |* V- b5 Z3 n- q; l- P+ a      SuperscriptBox[
    $ _- w$ u. L- P( }! y. L       RowBox[{"(", % t$ b# K7 ~" y- _& |" C
            RowBox[{
    * D% `6 Q) b$ c0 q3 p         RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", 0 o3 J% U$ L7 g4 y$ R% u
         SuperscriptBox[
    - y0 L: C1 }$ }; M      RowBox[{"(",
    ( W% h- g. R" ~" d, }       RowBox[{5 ^# M+ Z6 P6 D2 s% V
            RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",   w4 U: x" i* q: b
         SuperscriptBox[
    ! w! k$ ]4 O: R5 c      RowBox[{"(",   u# w$ p  Q( N
           RowBox[{3 \5 z! `4 A8 L. z9 w# J2 Y
            RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", + t. E; r. Y* J- A2 n& E4 Q
         SuperscriptBox[
    ) k# }3 B2 t+ l/ S# H; G2 t, r/ i& m      RowBox[{"(",
    ) E$ R8 {  G9 }       RowBox[{
    - \% T7 l% a: [9 _3 h        RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", ; j# R2 Q6 r( A8 `6 ~5 c
         SuperscriptBox[
    9 `6 b3 H# [$ F3 T& \      RowBox[{"(", $ Q8 d# g& Y( l* n1 e9 M8 h- F6 Q
           RowBox[{
    3 |/ r. G! ^% b  `1 h        RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", & t- i4 ^8 f! D
         SuperscriptBox[
    5 d- i( I2 f+ n" R1 L- I  K      RowBox[{"(",
    2 n& N# t7 ^& u1 J7 w! @3 V) r       RowBox[{4 W8 D& |6 V; n1 L
            RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    ) o" U6 u# M+ n% W     SuperscriptBox[% l) p) {) v( j( c: R1 \0 h
          RowBox[{"(", + T6 l8 j( {! G: l: `1 L6 U8 z4 X
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", # u# r' }7 ?/ R4 {( K' m
         SuperscriptBox[
    ( \9 I, l; a# E      RowBox[{"(", 9 s- N! Q  ]5 X  l5 Z, n
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",   d' K! Z$ K7 a/ `8 z5 e
         SuperscriptBox[
    ' O+ g; r. f5 s6 H      RowBox[{"(",
    ' ~/ _  b  H+ r$ m7 ^' I& M       RowBox[{% b; K+ I$ d; t* o
            RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}],
    " w) u+ j% `, [7 k. b3 A% _    ")"}]}]]], "Output",
    0 K) X5 ?7 x  o/ s+ V CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]8 Y1 L3 c; O2 _+ n$ V
    }, Open  ]],
    8 k- D  {/ \* }0 g) k: O
    5 R  w% a# R) x6 iCell[CellGroupData[{
    3 _4 \1 ]8 i* \. I7 G; ~! P8 i/ _; |4 p* A
    Cell[BoxData[{
    1 o3 Z, f' k9 g% _' s% b RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",   z" j" s! E0 i% G" u0 {# e) ^
    RowBox[{"u21", "=",
    " ~) V  X! `  M' G% {  RowBox[{* K  f: f6 l1 C: n, X& e% j
       RowBox[{"Exp", "[",
    . C+ @( t6 P( X3 @- V+ l: l    RowBox[{+ U; c4 k- F. I! Z& x, @4 w
         RowBox[{
    7 q8 q0 W4 [( `5 a" G" q      RowBox[{"-",
    # x5 A9 E2 L" D       RowBox[{" r& M) r9 v' p! D0 Z# Z: D/ H
            RowBox[{"(",
    # f( S' x% n3 ~) Z; P         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", / W* P( q/ w$ J+ s. `/ |& [. n
            RowBox[{"(",
    # i* m1 g5 @% C) _& }         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],6 O  L  k# v2 S6 D, o- F6 Z
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    5 I) ~5 L" e- @5 G- z5 Y% u; ] CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    9 @. }; m4 a% y, J6 _  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9, 7 n/ n, N$ O" O! T8 B: E% ^. [
      3.5779615991556787`*^9}}],
    3 Z# h! S4 m" k% B5 `6 U# j% w; _; _  b) G9 J2 F
    Cell[BoxData[
    6 c. D$ \. k+ j  W/ u/ M RowBox[{"{",
    " F( ]: v* ?: Z& V% O2 O/ ]$ ]  RowBox[{6 [7 A5 s( K$ c1 S( m" R
      "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
    - f$ }8 s  ^6 O& }7 D" H, {7 K( c/ E   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}], 1 g0 H# b. _% w: E
      "}"}]], "Output",3 o. {6 C  H& H9 U5 |
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],! ^8 z" Z8 Z, W( M. g, B
    1 F# F, d& h% m6 [5 p% {
    Cell[BoxData[; L0 @. G, U$ L
    SuperscriptBox["\[ExponentialE]", 4 c! u7 a5 N+ T) W8 Q) ]# I  }
      RowBox[{"3.141592653589793`", " ",
    + \" ]4 ]; G- W4 W) P3 q; }   RowBox[{"(",
    " \7 j) N& X4 h" t5 R    RowBox[{# R4 q  Y" ]3 `9 t  N0 E
         RowBox[{"-",
    3 Y, ^$ X, {' V0 O8 q% P      SuperscriptBox[! R7 a9 o- ?$ D+ j  r4 z5 J( E
           RowBox[{"(", 5 f7 `, j& e  G0 O* T
            RowBox[{2 d) P9 B5 c9 p) y- ]
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", ) l; i3 H. t% }; e, ^$ ~
         SuperscriptBox[
      y# r+ [) m, G2 o: _: D      RowBox[{"(", ; W3 Z7 M/ @& U6 t6 j; _+ ~
           RowBox[{
    + \- P* Y( d" ]5 s; O% V" G        RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
    * i# ~, {, A+ i1 K     SuperscriptBox[
    3 s3 y3 Y/ w/ O" N: \8 z; j/ r0 Q      RowBox[{"(",
    ) F, x5 ^" W) b; G! z% o8 i       RowBox[{
    0 E3 i2 |- Z; j, i: ?: v; T" V5 M        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
    2 X: F# F( g; [2 D/ {7 i' h     SuperscriptBox[' {% Q# Y5 w# y; Z
          RowBox[{"(", 9 a. \2 X, E" A% s
           RowBox[{
    , K; o' z1 S' R3 `3 z        RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
    $ r/ B9 e! W' U7 r1 @& F9 G% D6 u7 i     SuperscriptBox[0 ?0 Q4 m+ s) Y7 t0 K
          RowBox[{"(",
    , Y8 Q) P) v7 y% |- E/ W       RowBox[{! I  \6 Q, X4 p/ g' R
            RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
    9 i+ z0 \  {6 e! L5 ~/ g     SuperscriptBox[
    8 L+ z% v; r" \- S/ I: _% C+ F, q      RowBox[{"(",
    ) [9 e8 a) Z5 h       RowBox[{
    ' D* d5 f  e! f) g  _) u/ p        RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    $ Z) c! E. g& Y! e0 R6 D3 c     SuperscriptBox[5 q) F# ?; B3 B' r! `4 }2 d
          RowBox[{"(",
    " i- N. s( G4 v8 v7 ^       RowBox[{
    * k& p3 _  G# Z( J) V4 D/ G+ Q3 @( S        RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
    ! a7 J# L" b' |     SuperscriptBox[9 h6 x2 y. n" \: q! c  U
          RowBox[{"(",
    ! a9 l- w' B  |1 c0 `: |) n9 f       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", . J3 |' O; o! m! u/ m- |
         SuperscriptBox[: w1 S7 \5 D6 ^/ d; [, ~5 j
          RowBox[{"(", ' ]8 Z8 {: X6 c8 a0 f$ ?0 `* j
           RowBox[{% X8 ]+ ?# w) M& x. n
            RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
    # V. ?, v0 w" ~; i! J    ")"}]}]]], "Output",, @# O+ l# ^5 e1 S2 u1 T: W( M( M
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]
    ! {7 u2 w4 Q9 G( h+ v: d}, Open  ]],3 P0 g: W. s, q! D8 K

    9 Y+ p2 {3 K6 A% T; fCell[BoxData["\:62df\:5408wi"], "Input",
    4 d' w" j! ?7 I! \1 u# p; A CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],
    & f2 z$ K( u5 v" R  a2 s  t! W& U/ G0 J4 h1 t
    Cell[CellGroupData[{
    0 h2 T" n2 g" Z" k3 l2 n* v% W3 r& b9 Q  M, c; z. R' J
    Cell[BoxData[
    * b$ P  N( H% X RowBox[{"y1a", "=",
    % M3 S5 J' f8 ]  RowBox[{"Table", "[",   R: `+ ~  O+ b2 ~& j* o+ o
       RowBox[{"x", ",", 7 f8 A" `" d# P7 {
        RowBox[{"{",
    . O: n' d, v! \2 R     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",9 U. A0 d# Y! ~/ M
    CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    ! l0 {) ]* r; y- j  3.5779226649375*^9, 3.5779226810625*^9}}],
      B6 |" g' u+ T  ]8 v) Y
    , _% i* t1 v+ BCell[BoxData[
      T" ?& o7 V6 b$ g% }: F' N RowBox[{"{", . Q7 Y& w1 ?- X3 p0 Z
      RowBox[{! _2 u, M7 \) k; S) I
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 6 E5 {8 H1 i8 a/ B, N/ u) q
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    5 k: S% k  J& c: c7 }2 J( n    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 3 r9 H. r: I  L3 O- w3 R
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", $ ]" Q* M% \3 o' \/ O$ \
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", 5 w7 T: w( D! m* f& S8 S# |
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    ; N2 i  }3 D6 G# `* [, c9 R   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", ( Q; r  T# O, ^
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    * r: }* P3 K5 r/ \& l; U# |% U   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], - U! n) Z0 m" b! h
      "}"}]], "Output",
    4 V- A' J4 j% D. K1 n2 }6 l CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9, / w* W) K3 P8 x# s9 V3 V
      3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]0 A  y4 `' {% r, ~2 }
    }, Open  ]],
    & n# m' m5 X% S/ v) x0 U# E
    9 y9 k0 H3 s* w. Y8 xCell[CellGroupData[{
    ; E" S( C4 s# {
    " k3 q/ h% ?; q6 @Cell[BoxData[
    . e7 P0 q) V/ e: ] RowBox[{"Data", "[",
    ; c; h. Q% n/ D2 N  RowBox[{"[", ! V# l% A& d. o. `- P( x' B7 ]
       RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",
    6 _8 G+ T9 \# @5 K: X3 }6 X CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {* A! x$ s& f4 S
       3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],
    8 H% P) H2 R7 n* W, D$ X8 I! `
    0 Y0 ?6 x$ Q& W( u4 yCell[BoxData["0.899882`"], "Output",3 Y4 [. {& k: D1 @, K
    CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
    % `( }/ {) X6 h& @; T   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9, . y0 i. H; r3 R+ w% Y2 I
       3.577961929080654*^9, 3.5780123419375*^9}]
    ( ^9 U1 n- s' c2 L7 Q1 s}, Open  ]],
    2 }+ [/ J) g$ |, }1 m$ m) r7 k2 B- l: o) I, ?, r' ?% f& M2 `
    Cell[BoxData[. ?, d% }" ^* V! b8 M
    RowBox[{"For", "[", ! E' {# W7 s$ B5 f& }0 g
      RowBox[{
    * E' m9 H4 o" u1 `) v1 I0 n& \   RowBox[{"i", "=", "1"}], ",",
    " ?. M' G! B6 c+ e2 g% l1 }   RowBox[{"i", "\[LessEqual]", "60"}], ",", 1 g/ k" r# C' |
       RowBox[{"i", "++"}], ",",
    8 U$ D  y( |' w: \6 p   RowBox[{
    ; F8 H" Y8 [. j0 a5 \    RowBox[{"y1a", "[", ) L) R+ [5 z0 P+ z. S4 ]
         RowBox[{"[", "i", "]"}], "]"}], "=",
    # a& E6 }/ ^/ a9 I# W    RowBox[{"Data", "[",
    , b" w0 G/ Z; A2 a; {6 I     RowBox[{"[",
    : _$ j& U& {# b1 S, K6 K" ~      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",; u0 K; Z8 `9 A  [
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {  N- K  t! b1 M' c- f. w; l
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, 0 M8 v) P  P. Q
       3.577922923203125*^9}, 3.5779588839702806`*^9}],
    ; d" ?1 O1 C9 H* j/ U' f( @" Q/ M# h; A3 h. @. F/ M, s' M
    Cell[CellGroupData[{) o; U$ _1 T2 i+ T
    / c9 B9 I9 r' v1 o+ I4 H& i( n* M
    Cell[BoxData["y1a"], "Input",4 p3 V% f0 O6 M6 f
    CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],
    : U- ~. x/ a- u5 E+ ^5 C2 F% }6 u6 y
    Cell[BoxData[
    6 l3 {' `( Q$ K9 w/ O) L) x2 h7 h RowBox[{"{",
    , @0 s$ B4 J8 g- M  RowBox[{
    : A; Q: f2 o8 d' r% C; M, ^  "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",", ' g$ e$ l: D: [
       "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",",
    % O7 @' `9 L3 a   "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",",   B* S. K( ?' T6 a
       "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",",
    8 R% l8 {  M# N) Z   "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",",
    4 I/ z: [3 c8 ^5 \) n; t$ Z   "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",", % p2 \0 {  X  e' I
       "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
      x) p5 N7 Q; T. R   "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",", ' e7 p0 l6 s5 Z  B
       "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",", 5 [3 ?" v$ E1 [1 b7 P) j+ x
       "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",", ) f5 ?; v  y* U7 l
       "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",",
    : F& |1 F9 d5 a5 L' p9 I   "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",", . d/ L3 I3 i" h( c' x
       "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
    . Z7 Z  R, d2 F+ A1 K   "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",", : I& ]! |  B) Z4 [+ w7 d; E
       "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}], ! x) I9 X; w1 e+ }2 I- |
      "}"}]], "Output",
    # U2 D1 U5 x& ~7 L CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
    3 T* q- P' j2 i% c  3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]/ L4 Z9 x2 h/ a" e/ {$ d* t$ |, o
    }, Open  ]],
    6 E. S" W) }& |) d' V# j8 H" n. T: O
    Cell[CellGroupData[{
    ' u# ^( v4 _- j: p3 ^4 I: R0 x
    ! E4 {; m* Q. k( X7 P3 i" NCell[BoxData[
    7 V' M: b' X2 H3 g2 b5 F RowBox[{"m60n21", "=",
    ! k) P0 C/ L& @  k/ u) D  RowBox[{"Table", "[",
    * g9 U+ \8 n, d% C  A   RowBox[{
    - s' W* n( R% l/ v, E    RowBox[{"Table", "[", % {  h7 A$ H6 @7 }. j( S' X" Z! S7 G
         RowBox[{"y", ",", ! h7 y9 Q3 ~* W+ M1 S7 c+ D
          RowBox[{"{", 6 E' [' @5 E" Y$ d2 O5 Q( ?# z
           RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",", ' S4 U# G$ r& [( B5 m; Q9 d" L
        RowBox[{"{", * h5 P7 X, ~1 L6 u# b$ `7 e: ^
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    , j$ t9 m0 S% N, y, S CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {- j' @8 b7 Y- g. }  q
      3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9,
    9 V; J* E' z2 q7 ~+ \/ p  3.5779619706547265`*^9}}],
    5 m( u# U: Y, I7 ^7 v6 A0 n
    & @. J6 z$ z4 S, `4 G* M* bCell[BoxData[
    # l( Y  T5 q+ w0 I* R RowBox[{"{", 1 g) i" k4 P% g( n: |& t" ?# ^: I
      RowBox[{( |+ S2 V! n+ ?% D7 y4 e7 [8 s
       RowBox[{"{",
      J" T2 X- l( Z9 Q* c2 j( Z    RowBox[{& X4 D* h! E5 z# z
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ! ]- s* T% h0 J! Q* \( e      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! Q* g7 k" Y* E: G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    2 n+ W- W7 y9 K9 T& F* x* N; ~     "}"}], ",", ; f; k# B1 w6 B/ W0 Y
       RowBox[{"{",
    9 C" p9 K) N7 o3 N1 t    RowBox[{; I7 s  w8 s8 d9 A1 D; o) Z0 [8 W8 q$ C' }, A
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 @' s8 T9 C4 l/ Y( p
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 P' `; \. {8 z( d  m     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 Z5 r0 D3 A2 M( A) e. |
         "}"}], ",", ( g- Y/ J% L. B, {
       RowBox[{"{",
    ( |; j  {$ R4 u; `    RowBox[{
    7 T; P5 L+ B! k) U9 b% p, B2 p    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ! o& S- c( O3 y- |* }: a! D& I      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 ?# _- `- J) k
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    / A( q: y2 Q, h5 L     "}"}], ",",
    % ^, X+ F7 h2 F. J$ C% H, I6 V+ c   RowBox[{"{", ! M4 F* k( l4 N/ x
        RowBox[{
    6 r2 O8 i1 \6 ?: V' n' N3 C    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 E4 c9 u6 g% v+ x
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! I! l0 C( K  S& \5 G5 c' V     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    $ `' T/ U+ E2 V5 l0 z     "}"}], ",",
    # x0 J7 y/ O$ T- Q3 f: i   RowBox[{"{", , e5 t2 R: d: O$ W; H, F
        RowBox[{
    5 T1 Y" l3 P' T    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 C  `& o3 E* I! |+ |3 v      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " A' c! J: e  |; Q5 \9 n* ~5 X
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! f! M# _* _7 A0 v* V$ a3 ~. F
         "}"}], ",",
    6 M) n  M8 Z5 ^7 h" s; _   RowBox[{"{",
      c4 b2 J+ ^, Q( G/ J# \- L    RowBox[{
    : c6 R8 o/ w+ g# ]# m2 f    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",  m& m) q3 a- {
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 ]8 Q) \6 @" B* _
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      o; Z5 [5 Y/ g5 y/ S' J0 W     "}"}], ",", " u1 n% ^4 f* D. m: Z
       RowBox[{"{", ! k/ P1 c# D2 z1 S. S7 a" S
        RowBox[{) n2 o- f$ W7 a( c! e. j$ `
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," M0 r( {, I, n
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    3 q1 i/ _, _' x' Q& G: N" C9 J- V     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ A. p9 e, U) ^" w' T$ y; G8 D- H8 r4 L
         "}"}], ",",
    " L# s1 P0 [- G   RowBox[{"{",
    / j1 ?4 T. K7 R7 q: x! m5 ~5 e, }+ i    RowBox[{
    - o9 `, m. r* K! V& S5 g    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," q6 \* w: l/ P! v3 G$ l
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    $ q0 d" G- A. o2 D     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    - Y. E% P5 ]! z$ N     "}"}], ",", 2 J/ C% |1 [& n! W) M
       RowBox[{"{",
      p" Y! s# A# j& s' I. b) ^; b2 Q    RowBox[{
    - @- h' Y6 b' e5 I4 Y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    , c7 p& R5 a6 n4 f5 f% r4 F5 W      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 i+ K$ M+ v  S8 v  s
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; f; _3 T6 c. ^+ D) V
         "}"}], ",", 8 _# v& G2 r1 g3 s( Z$ a6 A
       RowBox[{"{",   N. }/ L% g: }  q# a$ L. m, ]
        RowBox[{
    - F4 Q1 D% R9 i    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 m: [: O; E; h; x
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 E1 H/ N4 J2 I) [, |
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ' G5 c0 N: N* k# t+ E     "}"}], ",", 9 M$ \; ~& q+ I3 g
       RowBox[{"{", ; S$ Z1 Z# V/ l3 Q. g3 w9 q! L8 ~
        RowBox[{
    ) g8 p+ R) K: E  A    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    4 Q+ K! x( A6 D! i2 ^1 O      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 L' V2 i% p4 Z* G2 M- F
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    & q# \7 x# w# Q5 ~" W, \2 E     "}"}], ",",
    * A! I- ?3 X7 }4 }+ f0 h   RowBox[{"{",
    2 q3 ?  I: @2 w0 e    RowBox[{
    ( j2 D" A0 Y0 V! u; L7 k; a    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* ?1 O. K' w  ]% M5 Q+ n4 q- m
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    8 k# t+ B7 y+ ]+ q% _5 j: A     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- c( q9 d$ ~$ I! P9 f) G/ o
         "}"}], ",", , x9 ^* V0 e, I) C
       RowBox[{"{",
    7 j. ]2 T: h, m" h    RowBox[{
    ) t5 R6 p4 Z3 E$ R! F+ T; X9 ^    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    6 b& i1 m$ W* H' _/ e      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : ?$ S3 m; f: k- y  F3 q
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    3 [1 {& o' b! Q9 l/ D+ r9 [* R$ g     "}"}], ",",
    / v  A2 W% d4 ^! z  o. X$ K   RowBox[{"{",
    0 S2 z2 I) a3 e0 e0 q) Z: y. N  Z    RowBox[{
    # A6 f8 c& c' O( d, v, s6 S$ y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 f5 P% J3 D$ \$ `* |9 P
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
      R5 E9 T) z5 }) S  d! M3 q1 O" y! y     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    $ A4 R& S  E+ d+ r! w- }% t     "}"}], ",", % d" ^& f8 g$ X+ s) X( n
       RowBox[{"{",
    6 Q5 u% P+ w1 W* }* M, G( n    RowBox[{
    ' T" |( d$ C% L2 ~0 w: ]    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    5 T! p; R1 D2 H3 Y      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    6 a  j$ E8 p) ~. Q5 c3 X! |     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ O  I: `9 C# P9 d7 s/ q, W
         "}"}], ",",
    % h) Z9 d4 A7 M5 O- v* q: F0 E   RowBox[{"{",
    . ?- b" l) T. D$ f$ k    RowBox[{: v$ c, T5 l" o4 q; S1 ~8 l5 n
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    7 s/ t0 y1 S: D      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; Z1 [0 p# v  W0 A. m) L3 u     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      v' `5 f- P6 a; p9 \1 [     "}"}], ",", * P9 U  d7 I0 d6 `
       RowBox[{"{",
    7 d9 k/ T8 t8 n; t  F0 q  g# Q    RowBox[{
    ) W3 V3 f3 p  L/ |. {    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," I% h+ \% B/ Z: L' B) Y
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    3 ]  ?, R5 w" }     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. K% t- J  N& J& O" z% e( L
         "}"}], ",",
    ) ?- q; Z( U6 E9 K3 ]   RowBox[{"{",
    7 C8 E: k9 O  T    RowBox[{# `- ~$ M# {. z4 J  _$ E. g
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% ]4 u8 p( f. e- ?$ B* d
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : X: \: Q3 E# z; ?& b! c, U
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],  S. _4 x$ g& w, u" [
         "}"}], ",",
    0 h! }# a2 ~" P$ k   RowBox[{"{", 0 n; B; p7 H) N9 S$ r
        RowBox[{
    6 y! Y0 V% D4 z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% F9 e: T4 {* S& L$ E) h' w' D
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 h- E9 \& }: F* p, B
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& O5 z4 i; _/ \* m7 g) b% \% F
         "}"}], ",",
    9 `- _6 K5 j. H* s1 }   RowBox[{"{", 3 B$ T1 P. d6 X
        RowBox[{
    * w! O+ \6 c( K  C    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 r; s( k/ l7 ~$ U+ a% W      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 s, u% p9 J  T% ^5 z     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- u) p% c& F- E, R1 E
         "}"}], ",",
    . W3 z# H) A; t. g5 ]   RowBox[{"{", 0 N# m" B( }3 L9 W9 s6 v, t
        RowBox[{
    7 o! h1 i& ~# @    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    - [  ?' k+ p* F, z& `, b      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    * m) H8 x6 o+ z. H# Y# D! Z     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    0 i/ i  W- ]$ F, f     "}"}], ",",
    ' F" W* g/ |( f. A6 g5 r( ]# T   RowBox[{"{", , ^) s: a0 i5 e" v; ^* W
        RowBox[{
    + r# s- ]# A6 @* ~5 f0 a* |  F    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    + V. o& X5 Y! i      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    , b9 M' G& O3 H% I$ ~6 x     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) M2 `( [6 X$ f
         "}"}], ",", 3 ?  U8 v2 p5 t/ S
       RowBox[{"{", 3 l2 T- w. d6 y4 s; w
        RowBox[{
    9 w7 ?0 u6 W* d% E, }0 N" l" M    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," C% C- S7 B5 x. D9 G! V3 @
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) P8 Q' P% Q1 v/ D  J5 X5 i9 x, l9 c
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ n0 O( |8 @* k8 k+ g
         "}"}], ",",
    ) `& I4 R" w4 u. f$ X( F2 F6 d3 r) C   RowBox[{"{", ! N) U2 D+ y9 S& B
        RowBox[{; e4 }8 y3 d8 N* i; f
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, u4 k% X8 d: L. L4 G
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 V+ R2 d. i' u, K: O$ ~( N
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, Z! p. E5 k' w! m: |+ p9 m
         "}"}], ",",
    & F! a* I8 D6 N: s' f1 `   RowBox[{"{", ( ^& ~- w0 K# @: A0 X4 M7 K" ~
        RowBox[{
      }! C& S# d. q, Q& g% {- d( Y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# ]! n. e) H  O" C
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   \1 r$ A6 X: O
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' {1 |+ R" E6 h/ j& @6 i" y8 [: w* U
         "}"}], ",",
    - e; I* @" s* {   RowBox[{"{",
    , {  X; N: T. R8 r$ A) n    RowBox[{& S% x' T9 ^2 r$ x" c% e8 ]3 F
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 Z7 s% J: P! ]7 b( r: o
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 R! U/ q8 f! t8 y
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ u0 ]" q8 a7 k, l6 Y+ U
         "}"}], ",",
    4 q4 k% r  m/ C- F( o5 M/ n   RowBox[{"{", $ G9 U& C, G( ~9 F& u9 Q6 L
        RowBox[{0 V. }! p- G" \
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ! o7 O* @4 L5 |! z; {% ^0 \/ p      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
      _* P3 i& e8 J9 g8 Z     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( A" A; `  I* k, P8 t" a
         "}"}], ",", ; \6 ^5 \$ g: S4 R& u  ?
       RowBox[{"{", ) o0 n8 N! \( P5 h& o+ e  [
        RowBox[{
    6 p- |0 I  L# k& u1 ]+ W7 G    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 h5 E" A! R- k1 z, B
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ ?7 o9 k8 t5 S3 p$ o; e/ \5 T! S
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) k9 o/ r0 X! w" }" j
         "}"}], ",",
    / ?. D4 Y3 _5 T- ~4 e! M3 M& n4 V   RowBox[{"{", + j/ y1 o7 Z+ v+ d
        RowBox[{& e5 X4 @/ K/ A& G: e2 N
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 H5 }* `7 e; R9 c) l- z, P5 I3 W8 E; v
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 g8 ~8 I; S1 D  Y; h" l
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' a& D1 H* I! A1 i" F9 ?, I
         "}"}], ",", ; r' Q$ L5 |; {* _
       RowBox[{"{", 8 e; N2 e& p3 R& O/ S; K/ N, E3 u. D- j
        RowBox[{
    ' C  e  {2 E8 s; s    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 {2 ]0 O% k: W4 a9 u( u/ @" s
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    : ]$ s- N$ _' i, Z     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    , _$ A9 N4 l  a8 D( `; z; z     "}"}], ",",
    & l2 p1 ^% Y' ~# K) k" Y; o, A   RowBox[{"{", + x1 j/ r+ S0 g2 F
        RowBox[{4 F) J% Z1 S$ l* U
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," `& K& Y0 T# V/ {7 F' W
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : N2 }8 }  q4 S8 F$ n$ U, p
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ' A. B+ q. C; L6 @     "}"}], ",",
    $ ?2 h  L. U) q% ~9 Y- r: I   RowBox[{"{",
    3 Q4 T2 A! r2 A    RowBox[{
    2 T4 i) `7 ~; J1 \    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 M- Z% ?$ `' \8 B/ g! x
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / j2 Y: C8 O* _/ [- ~) z
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    : Q- X9 U1 I: m* ?     "}"}], ",", " e$ t6 [  u- w5 B) `" W$ W
       RowBox[{"{",
      Q. I- F2 k( t, p1 W7 c3 S. G& a    RowBox[{
    ; R8 i) u5 L. W$ V    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    6 E4 Z  s3 E5 W) I      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 \! o( E+ u' Y7 n7 C8 b5 ]     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    1 |8 a+ K5 J$ q- y3 g     "}"}], ",",
    $ n$ r, K- t9 c2 _& l   RowBox[{"{", 1 z, o3 I2 a( C; ~( \% u  y5 g6 ^) R
        RowBox[{
    & I# }, f( a5 j6 v    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 ]$ D; w+ c. Z- E, j4 F/ c1 o* I      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 ]- |% W2 g$ ~     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    , z* _' Y: d7 \( c) B3 h     "}"}], ",",
    ' Y0 }8 ]2 Y! K* K) k- K   RowBox[{"{", 5 U. O8 v; ~3 Z( q$ ]
        RowBox[{* [) J9 y- Q5 Q$ P9 |4 `
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    % ?6 r2 |$ c+ A# Y5 l( C      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 W4 q( k& S+ e' |( ?( w7 P9 ]     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- R; l% T; X7 f- @7 L/ v
         "}"}], ",",
    ( y  P# O5 x( u5 E5 `   RowBox[{"{",
    6 V/ c, O% J# `6 Y( k& M    RowBox[{: k. S0 E& [$ c9 `
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 ~, ]9 o5 z* J% B" _
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    " p, |% X# `* Y6 p) l0 ?     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ i1 [! ]4 A8 i, i/ h. I0 R/ r
         "}"}], ",",
    $ E9 o, H1 s- h( i. |7 K   RowBox[{"{",
    2 ~% P$ b- B6 T& Y# k0 G    RowBox[{& {; ~- F+ O; }; t6 a$ |! {4 k
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; r+ F! Q5 ^, H# Z1 Q& ]5 y
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 w8 U0 x. ?& k* s! p7 ]     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    " q# A4 m$ c3 R     "}"}], ",", # X- j' S1 c1 o0 @6 b+ W. o
       RowBox[{"{",
    5 i# V+ }, \$ B9 L6 A) r& D    RowBox[{
    1 M% C3 f# R" c/ l$ C# u& j( M$ E9 {    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 S' r( L, R  t7 ~      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ N; Z' n* z: l4 Z( F
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    0 d3 `" E0 J2 |+ y     "}"}], ",", # t3 [) Y8 Q; ~5 h) K- z2 I; v9 Z
       RowBox[{"{",
    5 V' i; K  j& W% P3 d+ q    RowBox[{8 t* o$ G& M- j: F& n$ h
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 t' k! i: A* i% y* ]      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 v: a5 N+ ?8 O" O# R0 I
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    : ]0 N4 k6 ~  P, {- I     "}"}], ",",
    ' O* D, G0 O2 m" O   RowBox[{"{",
    : f+ y# d5 C% o- _5 A+ J( M    RowBox[{
    3 R4 M/ M8 M9 H, b* x. S6 J, L2 J    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    + u6 X1 @3 \0 F& f' A' b7 n      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    9 W* J# J) m4 ~8 |8 ]. Z; E     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 s" }. T7 w" m7 M+ `* l& C
         "}"}], ",", - C: D2 `1 O: r1 k( Z1 C" b
       RowBox[{"{",
    ' @6 p& B" W" _7 J6 Y  e- w( f    RowBox[{
    6 u6 w* X5 u4 }  Y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 q% d9 ^; ?& `: v      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    : x6 V( B* k! g# E( d5 \     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, V3 P+ ^2 X* F  J. w' Q2 v  W
         "}"}], ",",
    2 X" `" S+ X0 T5 |: m   RowBox[{"{", 8 e/ w; n" G# f6 o/ a8 h- M+ E
        RowBox[{
    0 r) F& R! Z- U  }( K    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ {: ~& ~; N" U5 q* p: x; i
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    4 N3 X4 A' j% ~) T4 e  K1 S     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ( l4 L3 B% L4 w     "}"}], ",", 0 W. f/ e7 \0 Z. t% w, @3 ]9 O
       RowBox[{"{", 3 N8 q+ s5 B4 v* D% u' {
        RowBox[{: @; |/ W, p( y/ \
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    . \* z* D  t, H& w/ f      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ) r" s2 t  M6 e$ Z6 y  `4 i     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ Y. T7 r+ k/ j8 ]% ]
         "}"}], ",", & a! d1 s/ J% z8 a* Z
       RowBox[{"{", : z# j. T" k# P9 L& O
        RowBox[{- t1 H% G+ T' S+ d. u0 O' a; P: j+ J
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 R4 x6 q( }# a+ O
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 c6 z5 Q$ n' w9 I8 D, ]/ ?2 f
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ) c& V4 g2 f8 B7 u' E/ m8 Y     "}"}], ",", 1 \( X, ]( k- V# a0 F
       RowBox[{"{",
    ' `2 e! P+ L9 n3 D  ]2 J6 O: s    RowBox[{. G) P8 [+ L8 f3 F' l2 D
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) N6 ], y2 k. y
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    + |, D6 K/ a. G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ! Q' c; ?- Z& {$ N% M* X( Z. W     "}"}], ",",
    8 U& W% o" c# J& Y3 K! R4 S  K   RowBox[{"{",
    4 C, K) B* k% }: b2 s! v7 v    RowBox[{
    * E% s1 O) H; J+ l! ]! f' [    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 h% v9 C6 B- }0 `( r/ E
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) [% ^# m% [' E' ?6 F7 B
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    : A- r" L1 _9 Y     "}"}], ",", 6 l5 L% C0 k, T! b0 u+ T/ n
       RowBox[{"{",
    7 F  W5 E+ L9 c/ r    RowBox[{: l6 Y: C- ~  j# g& B* F
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    - p- v# A4 g2 N6 U3 C9 ]      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( l( z/ b! \9 a" o
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 w9 q* Z+ C# {- E
         "}"}], ",",
    2 {, q2 o( Z. l5 V- q2 w/ Q, c   RowBox[{"{", ' M" w, Q5 M. q& Z! {1 B# n, F
        RowBox[{4 c; v0 n8 n; S
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    % y% l3 S5 v4 o: Q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    5 M; F! y2 s+ F4 W' W     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    + F) |. H: X* t. n' C0 ?$ J% ^     "}"}], ",",
    6 O( R! F2 s% @0 g7 y   RowBox[{"{",
    ) O" |$ o% l5 @    RowBox[{
    ( S3 I# u5 r3 a1 y! h% h    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    . g0 d5 S5 C9 g' Q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    7 h4 M1 Y3 d& n: L; T! g     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    3 S& _: B; {! D     "}"}], ",",
    " p3 F7 P+ v. O) N% K* C; l   RowBox[{"{", 1 m: T- e9 g+ K, N
        RowBox[{
    ! I7 P# \% ]% _: P& P. B) |! \    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 Y' X$ _) {" X; f
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 g2 r  r2 u) ]8 W: F) M! h
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    7 @$ ]' i) U5 m$ q     "}"}], ",",
    8 v: I9 W3 ]  t) n; a   RowBox[{"{", 7 a$ M' X. H; y. w/ T$ a3 R
        RowBox[{+ o6 P6 I1 `3 W$ {2 c
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    " A# Q- v1 a5 a$ ~) J! x) v3 p; W      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 u8 s3 a- r  ?- q9 r: Q
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    - V% w" \; `/ C& f     "}"}], ",",
    ) T! h; Z2 m8 }   RowBox[{"{", : {7 {$ ?) v6 {' ^
        RowBox[{
    5 i3 c4 i( Y5 H  W2 N: }  b7 p    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, }9 z8 A# t- G
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 y2 g% |! B2 A
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    & r& V2 d% E. {1 R! c3 e& w     "}"}], ",",
    : j4 O9 I  t0 \$ n: i2 [   RowBox[{"{", 8 z; T% p" I: \" Z+ z
        RowBox[{
    + g0 N  _1 u# F' y* S1 S5 E/ ]    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",  z* x  V! }: Z2 W/ e% n: p/ H& a
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    & w4 j$ Z5 ?4 v     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],  M6 H5 q! ]0 f' ^5 h; \7 e
         "}"}], ",",   i1 e& ~) o5 ^7 L/ o6 ]
       RowBox[{"{",
    ; f; P' D$ J) _    RowBox[{
    5 H9 K6 n4 j5 J3 q: F6 ~% R1 M    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; d' n3 Y/ B& f  ?6 _# ^/ w      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) ?; b# g8 B( q5 u( _* h
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, l8 B( F$ Q+ X! A: @' u
         "}"}], ",", : H% D# v& ]" R; {% }
       RowBox[{"{",
    * f0 ~5 \) M3 F) F. y4 N1 \  W    RowBox[{, G4 R1 t0 ~0 L9 t! s9 k
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ P7 _4 h& R5 ?: D( @7 B  i- r2 ^
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    - Y3 @, `% x* M' E     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," Y7 W! B% o5 y  ^0 I) p, z
         "}"}], ",", : c7 A- G) \; A+ f; [5 k
       RowBox[{"{",
    ) g$ Y/ D  X  r% y+ I* y    RowBox[{
    - Y; f: Q! ^- f( i    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) T5 e/ Z8 \; I+ S; a
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( {" q$ ^6 Y( G: k) K
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ h" j& ^5 d, {7 h& y$ o; s$ F
         "}"}], ",",
    . y' {7 m  l+ ~; |; w   RowBox[{"{", & l& T3 Y% `$ X1 H
        RowBox[{  k  x" X6 i4 E0 Z! w$ F
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! Q) b0 z; e, R0 C9 g
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 |( ?/ T0 @9 t- N0 c, s, }1 v
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 M& E2 i' m4 B4 Y8 g6 n) z+ d) c
         "}"}], ",",
    # [- J3 ~( ^  Z   RowBox[{"{",
    " }+ _( |3 \6 J6 p, Y    RowBox[{1 b7 G, b! S3 ^* b3 D% B
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ @' W* {7 I$ W% a5 q* ~
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( i4 @; m" Z) d+ ^! ?& z& }! i
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    , w5 S0 s: @) o' W  q- _2 g; C9 M     "}"}], ",", 9 k; Q! B% Q) P
       RowBox[{"{", ( w5 U$ E' s2 Q3 E( _6 ]
        RowBox[{
    # z% d* N6 f7 e- Z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    . |+ p6 k: b/ g( Q0 H      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    5 D  D2 m* u' Y2 P& W( }     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ! c/ o1 K& v7 p& o! X, n9 j     "}"}], ",",
    9 x  H' g' ~8 c& D) R* m   RowBox[{"{", / b" f) f' E2 Q  R
        RowBox[{
    . x  X6 T$ C2 p" t    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",  _, _5 Z0 E% H$ e
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & S; i& z5 L1 k; R. H3 V: ?: T
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! X3 c. Q! G' E7 t! a2 {
         "}"}]}], "}"}]], "Output",
    ; v- i" s0 z  d( x$ R" _1 H2 n CellChangeTimes->{
    7 p0 @; \5 I$ d* R  3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
    ' n# I) B! `- r; H# v   3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9, 8 x' \- v+ D. l6 C: _4 z
       3.5779619748823338`*^9}, 3.578012345453125*^9}]( Z/ j* y$ S! m  t. M0 p7 B
    }, Open  ]],6 U2 P7 Y* A% ]" d' y9 D

    # p3 y/ B  ^6 j2 Y/ cCell[BoxData[
    6 H+ F' m9 K2 |3 K# s RowBox[{"For", "[",
    ( \2 e0 y7 a+ S0 q5 s  RowBox[{
    , e* h2 E5 D0 m4 u1 ^% [   RowBox[{"i", "=", "1"}], ",",
    3 \6 n/ t8 u& M3 U   RowBox[{"i", "\[LessEqual]", "60"}], ",",
    ( e1 p9 g) R3 M; e   RowBox[{"i", "++"}], ",", % v; r. [4 g  p
       RowBox[{"{", "\[IndentingNewLine]",
    2 F6 G9 P; E& K0 b. a    RowBox[{/ Q6 I9 u6 O9 c8 u
         RowBox[{5 X7 U+ ~" ^, U1 b& m, `* j# ^1 B
          RowBox[{"m60n21", "[",
    " G+ Z- h" P% B' b) c: c       RowBox[{"[",
    8 ~: o. x& A( O: X        RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", ! J1 R# r% F& y8 N! o* N% |: r
          RowBox[{"u1", "/.",
    ) l0 f0 ?* f/ S2 Z& Q6 x, c4 q0 m       RowBox[{"{", - L& i4 @$ X8 }! f7 z: W4 ?& o# \
            RowBox[{
    6 c" U+ A! t  o0 |         RowBox[{"x1", "->", ; }7 `+ E( v- R. j- r* J- r
              RowBox[{"Data", "[",
    6 m! {0 I" j8 ?1 {0 \, \           RowBox[{"[",
    2 b- x* d% V! e2 g+ S! G            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    3 A( m5 i5 f! m* @8 H' L         RowBox[{"x2", "->",
    7 T" V# r8 _8 n/ D+ m3 @6 S          RowBox[{"Data", "[",
    4 B# L0 V! _% S" D$ _7 M' p           RowBox[{"[", & q7 F. ?0 F3 H5 c4 x
                RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", : J% o% H: P' D$ e7 a0 `2 L5 _
             RowBox[{"x3", "->", 0 O' l8 r) K6 _7 X1 r" F- @, L
              RowBox[{"Data", "[",
    " M! d  f4 q5 |5 F4 \           RowBox[{"[",
    3 P7 s) F1 c/ ?2 R' O( u- s& l$ x" R( I            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
    9 U/ P: \8 s2 M  f9 _         RowBox[{"x4", "->", * `# ~- z5 ~- h5 Q* a. C4 h4 N
              RowBox[{"Data", "[", ' L  O% c3 Q/ t* z( |
               RowBox[{"[", 1 I% {8 L. t1 O. w( z& [
                RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", - F, j; k  F* ]. \
             RowBox[{"x5", "->",
    $ a+ \% N/ Y7 i, K          RowBox[{"Data", "[",
    ' h4 q/ m: [0 t/ d           RowBox[{"[", " S* r  G4 Q2 T
                RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 5 C- Z* W/ [6 F2 y6 \
             RowBox[{"x6", "->",
    8 d* i# Q7 @5 D0 a1 }+ v          RowBox[{"Data", "[",
    3 Z2 b9 G( f. x4 h           RowBox[{"[",
    0 i( O/ f# r/ n/ `1 T% q            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 7 r2 R0 W+ F2 x. {
             RowBox[{"x7", "->", 0 H6 b' _+ l9 \/ q# H
              RowBox[{"Data", "[",
    ) e! `+ d9 S3 s9 G6 g& x, A  C* }           RowBox[{"[",
    1 s  ~) y3 i/ f! l9 m& n            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
    7 I/ p# {* }, J8 k% ]         RowBox[{"x8", "->",
    3 _4 n4 D, v0 S" T* y( b          RowBox[{"Data", "[",
    4 t. B/ p1 F; e( k! ?8 @6 {5 w$ w           RowBox[{"[",
    5 v2 P1 I/ S- R' \            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ( j. q2 y% T8 l+ C  p7 T9 t
             RowBox[{"x9", "->",
    0 e& ], C8 e' }: ^# h          RowBox[{"Data", "[", / H0 F+ C  K) c/ Z6 b& N
               RowBox[{"[", % l. S+ d, u! @! g4 y, m
                RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
      h/ f, V% q( [) ^) J6 P+ U0 z     "\[IndentingNewLine]", % U7 V" G* ?/ a
         RowBox[{' L9 i  @" i1 H
          RowBox[{"m60n21", "[",
    回复

    使用道具 举报

    琳123        

    1

    主题

    10

    听众

    296

    积分

    升级  98%

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

    • 签到天数: 75 天

    [LV.6]常住居民II

    自我介绍
    无

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

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

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

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

    群组: 物联网工程师培训
    7#
    发表于 2013-8-24 13:13 |只看该作者 |招呼Ta 关注Ta
    涳夢 发表于 2013-7-30 20:31
    / `% {  o" O& W神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗
      D* l/ `5 V5 r* \$ b, r2 ~
    (* Content-type: application/mathematica *)
    * H  i1 V' z( s4 r9 p% t* G
    6 u* l' Y" ~- {) `4 j/ r(*** Wolfram Notebook File ***)$ e; U0 g! A( J% M1 P( X
    (* http://www.wolfram.com/nb *)! A- V3 i: n/ T* D" l& F$ w

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

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

    ) s+ V* C+ y4 j2 q- D6 _Cell[CellGroupData[{9 i# ~0 N8 E$ e* ~" C5 n9 C8 t
    ; W6 N2 ?' Z6 |! n  e9 [
    Cell[BoxData[' v* K! a7 @/ e
    RowBox[{"Xa", "=", ' h& o* ?% a. g2 K
      RowBox[{"{", 7 N( w% h9 p, q0 ?9 p) {5 r2 r
       RowBox[{6 J5 W+ n1 t6 D& M, m* o- U# h' P. a
       "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7",
    9 J+ \1 v) q9 L- u1 B  g    ",", "x8", ",", "x9"}], "}"}]}]], "Input",
    6 O; ~7 ?' o+ W9 I2 F, S" W6 p CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
    ; a  `$ v2 T5 R
    ' l% L5 o" p. c" JCell[BoxData[) u% r) z( N4 v. c0 F: I; V
    RowBox[{"{",
    ! o: B. F% w* @8 t1 @  RowBox[{
    & H, a) q5 J! O4 w8 ~/ ^2 x3 y+ z  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
    8 u) g) a6 Z' i    "x8", ",", "x9"}], "}"}]], "Output",
    0 O. O& a, t  G. l3 h3 l CellChangeTimes->{
    , Z/ v* o1 S( @8 s0 W1 b  3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
    ' W" i& P  N- X$ Q1 t5 y   3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
    5 j6 N: ?" V. l; ]* Q, X   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
    " K+ ~3 W3 b7 c0 U6 h   3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9,
    # }* J  R) t2 J9 v   3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {" t% W$ E* }( e
       3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9, 1 j0 o/ t: l2 ~( ]8 r8 h$ P# j1 Z
       3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9}, - i& P6 i- y8 {* T8 Y, t' r3 f; ]
       3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {$ D5 C. R/ H* x, G6 e& K
       3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {% O7 L. n* a7 X
       3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
    : A3 Q% J+ K! D9 [( l$ w5 J   3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
    * C3 z8 w5 ^3 R7 R& d$ d   3.57801215725*^9}]
    , q. u. r% n# y' V; n+ P$ j}, Open  ]],
    % @- O% y' }6 ~% c0 F9 r' E. ^" A% g9 I
    Cell[CellGroupData[{
    % Q* X7 D; _( A! R0 X" ?
      x$ l/ X  I9 J1 o8 g& zCell[BoxData[
    ! }, ~7 _, G/ r RowBox[{"Ca", "=", 1 N2 L1 M- _8 o) ~
      RowBox[{"{",
    * y1 e0 t8 c0 s- f% A6 b$ v   RowBox[{
    - u4 B% J5 n4 V9 o   "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", 2 M) D+ t9 w1 l2 d+ i% h
        ",", "c8", ",", "c9"}], "}"}]}]], "Input",
    * R. j9 i1 J" h# `( k0 }$ W CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],
    , r; v! a1 {2 P' H& H1 M/ F* Y: }
    Cell[BoxData[
    7 T' l4 C5 ~0 m2 H& p RowBox[{"{", . J; c; y) j. J: \, N0 ^
      RowBox[{/ [3 z5 K4 Z+ X( @& `* x( ?
      "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
    % B0 b: a, a3 c    "c8", ",", "c9"}], "}"}]], "Output",
    . `7 G* H9 g" M( c; I+ @ CellChangeTimes->{. O9 H- v2 z/ [6 g# a
      3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9, ) P- y2 w, O8 z% D
       3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
    ; x5 ?  D# C8 W! V+ |* j   3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9, ' {' ?" I- y$ k- k) a4 s2 u
       3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {
    - D* q1 l5 @  ]: m' U4 Y   3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9, " p1 C2 X( |/ G. E, W
       3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9},   p. f- D; K) t/ c& f
       3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9, 4 q% |3 ]0 E/ `# u6 a. C; K2 P+ l/ j3 \
       3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9,
    6 B! q3 u$ n- y   3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
    7 L* \7 E4 ^' s: T   3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
    0 `: D( o. x% F  D  j9 a   3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
    8 {* D  C' S4 m   3.577961904604212*^9}, 3.578012158671875*^9}]
    0 a$ R& B1 A; c" `/ `1 `}, Open  ]],9 v9 i: y5 e2 v) Q1 W/ R

    . J; @  U* G; r: T6 @" Q3 MCell[BoxData[. k6 T# b2 a* i4 Q5 e+ V
    RowBox[{"For", "[",
    ' _1 e6 ~- P- ~* D. h' d. U# n/ X  RowBox[{- N' R# d6 K( M( q  z
       RowBox[{"i", "=", "1"}], ",",
    6 C$ |9 s: M9 y' L  F4 G   RowBox[{"i", "\[LessEqual]", "9"}], ",",
    : ~& M9 q& `0 L# E3 ^" G   RowBox[{"i", "++"}], ",", + r! g& w8 m/ Y# k3 V5 F9 Z
       RowBox[{& q2 ?( q3 {8 e) z8 H& s
        RowBox[{"Ca", "[", / ^9 {/ G0 h. {; l, X
         RowBox[{"[", "i", "]"}], "]"}], "=",
    5 e8 ]+ v3 O* k* y* c    RowBox[{"CM", "[", $ h7 h5 Q$ q; b% N' O% u; _
         RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",; n7 Y: }' |7 K% D  p
    CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
    . A4 L: @2 k$ y0 a   3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
    1 ?6 E( a6 P' V% i, C, E  @% p' W4 G   3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9,
    , Y- o( u9 a( z2 v- o2 B   3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9, 6 |1 Z8 {3 R2 w* `+ a; M
       3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9, . ]4 W7 a" s. u' E5 t
       3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9,
    - A! Z& N0 ~+ R: f8 c: ?6 O   3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9, $ t% }0 Q9 o4 z2 k2 X
       3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
    ; O7 W6 x: z7 P# ]: y   3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9, 0 [) E( y2 p' G$ v4 w( \
       3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9}, , ?. h9 {, Y' Q( E8 a2 p  C
       3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
    ' \* |. Z) E3 X1 a6 l) d6 y2 i   3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9,
    / e. E  s. [2 k  m  \   3.577961906897415*^9}, 3.578012176296875*^9}],
    1 k) @: C9 I7 F# e" `" q0 F0 m
    & b' V: `' {* p( a' R% CCell[CellGroupData[{0 @8 y& c: i8 d) m1 L! ?' m

    6 {4 S" W+ }7 y# k. s5 oCell[BoxData[
    ! ~! `5 j8 u! e0 S0 `4 J9 l$ e RowBox[{3 k- ^  [  O! m' [$ a2 l; t+ E+ P9 W
      RowBox[{"(",
    & {; U* D$ s8 ]7 a   RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 6 ]' t4 z) C/ g
      RowBox[{"(",
    3 @+ f" {* T# i- e- n   RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],
    ' Y5 t' s/ d; s+ J' f8 v! X6 j
    ( f5 q& r( ]3 R+ Y8 rCell[BoxData[
    , w& \) x3 f) }* T' P9 r; }6 a RowBox[{! ~8 O! t. N6 Z( J
      SuperscriptBox[: C$ I3 E7 a# w0 D
       RowBox[{"(", * |$ Z# D" _# R4 M
        RowBox[{# y( _  E% k; V% N4 E# |4 L. n
         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+",
    + ~! h! c% q% u5 ~2 j( T  SuperscriptBox[
    ( ~9 ~5 U! q' d) d+ y   RowBox[{"(",
    ' p6 ]4 B" z. @3 L4 @  ]    RowBox[{
    1 d+ v& s' s9 h# d# A; b     RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+", ' P- L* Q  m4 R' ]) l. H: t
      SuperscriptBox[
    ) A, t0 }: ^0 |9 B& ]; M0 `   RowBox[{"(", ! o, t! B( S9 e& T. @
        RowBox[{
    % B: }, a; D5 q" u     RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+",
    3 Q. s+ s' w7 i( q: {  SuperscriptBox[
    $ V) }2 I3 l% s; V) z9 z  g   RowBox[{"(", 8 D) A6 N" J9 X& K! ]$ f& i5 a
        RowBox[{- e, z* n& ~$ }% H- L" w
         RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
    & M$ F: f: j, ?7 P2 O  SuperscriptBox[
    3 r- I- Z$ N( t! G% Y5 U   RowBox[{"(",
    6 v9 w( R/ J' V! k' ^    RowBox[{
    2 @- O5 p, D; ]% h     RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+",
    : q1 @- y! k6 l. v8 |3 p2 F: y! h- d  SuperscriptBox[
    : ^/ M; o  X+ x& ]# Z   RowBox[{"(",
    $ R1 D, P" X: {) ], V. j    RowBox[{
    ( z6 R! o  o* E) H) \     RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
    8 G$ a+ m6 u3 F' _! S) t+ z  g  SuperscriptBox[
    ! S7 A, k) a+ k$ [9 J7 i   RowBox[{"(", ; ?1 l$ E# H; e% f! u" m( O
        RowBox[{
    # ~1 a1 Y; L; f+ r* O     RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+", 7 A- i: N5 M" }$ t- u+ l4 [+ V4 T9 o7 j
      SuperscriptBox[# s0 @! _2 }6 _, e( x5 n9 r
       RowBox[{"(",
    ( ^, x# e2 ?( b; t    RowBox[{! ?! P; K0 |% w* Y4 J) Y
         RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+", 1 f1 g& {; E: d* W
      SuperscriptBox[" G% C: B- |4 p  ~: f' p6 o! e0 A, G
       RowBox[{"(", 2 N# `; N$ a" ^  c
        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",
    1 M# [1 D; B1 O: a0 a& l CellChangeTimes->{( b" Z. \6 u$ p& ~9 L
      3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9},
    2 ?3 L2 O* j1 `" p   3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9, * t$ ^+ Q5 ^' l6 J
       3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9, 8 M) M  J7 u) d
       3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9,
    9 V* e" V% h$ s- U' v3 K   3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9},
    3 m9 b  \& j! o8 y   3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9, & t, m( q' Q* p6 j
       3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {# w" e( q0 c$ m7 [( c" U# v8 a
       3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
    . Z! G  K7 w1 O% d: X6 n   3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {
    6 \: ^8 c1 ~8 G4 m3 P   3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {2 {$ S9 F7 [6 o5 w7 Y
       3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9, . `- s0 L* ?/ l/ u2 U
       3.5779618537169228`*^9}, {3.5779618846049767`*^9, , y" ?2 B, K& l
       3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]
    3 h& y' {$ {+ l0 W8 r7 }}, Open  ]],
    5 E' u) |( K+ w. A' b! s. o& d+ \+ m& C6 c# s" I% q. m9 K* L% f
    Cell[CellGroupData[{
    ( l- b- E- [: h; R' f& X) M3 i3 N8 p" Z( h4 s  n" b5 E' n) q; g
    Cell[BoxData[% W8 R2 l5 X; D- B
    RowBox[{
    2 x" i! c- @- Q  RowBox[{"Ca", "[", ) Q/ V$ \3 p/ {8 D) ~, J
       RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",8 j% Q8 I) R  d( D% d
    CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
    ( K5 ^) {+ G+ I  3.5779616465173616`*^9}],
    6 d* i9 D# f4 T3 u* J; E
    , {( {7 K. W, u8 p# Q5 `Cell[BoxData["0"], "Output",& y% X3 y* U, N
    CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
    - M8 D5 T3 g4 ]5 |4 b! i  3.5779616484049644`*^9}]. G% [- w( N5 C2 Q; r
    }, Open  ]],* b8 t2 c; Y* u9 s
    ; f- L! O0 H! V
    Cell[CellGroupData[{
    3 f) w, T, p2 {* D% n
    2 R$ j: m2 O$ t3 a* v- f, F5 TCell[BoxData[
    7 J1 r& Q: g6 m' f7 V, Q6 ?9 l RowBox[{; a6 @' q3 J; z! V& h4 h
      RowBox[{"Ca", "[",
    ; t/ u2 H/ F/ ^$ H   RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",4 b2 E! o& I6 w  G
    CellChangeTimes->{3.577957376235614*^9}],
    " u; A+ g* R. r" y: [$ w) p0 X& n  `- u- \
    Cell[BoxData["0"], "Output",
    ' r) S" M3 E0 Q2 _/ F CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]! d3 U8 d% H6 Y3 W9 T3 {9 [2 u
    }, Open  ]],8 `+ q; h2 T0 J$ M4 v

    : b  N7 _9 _6 {# O4 y0 f5 pCell[CellGroupData[{
    " a0 P! L9 h% K% n+ \! P2 t" I0 |3 ~' R" {# X$ a6 ]) d( `' O
    Cell[BoxData[
    9 }/ v: Q, T: V; T; D+ `8 Y RowBox[{
    . g4 ?6 T0 p1 z( I4 G: B  RowBox[{"Ca", "[", ! q; E% m+ ]& C- Y/ ?
       RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",1 C5 y: `  n3 {! L
    CellChangeTimes->{3.5779573112927003`*^9}],
    + ~9 m$ l, j; _
    4 l% C& p5 Q8 sCell[BoxData["0"], "Output",
    . R( S: ~7 }! v. f" {4 S$ I CellChangeTimes->{: F& _4 [7 D* a3 H/ t* v  A4 H& H
      3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,
    1 V/ L6 E4 d' i8 n   3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
    9 J. ]  ]7 k- ^  x* g# V& y9 Z   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
    + @  m" m0 C- D  \7 Y# }" Y( v   3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9, % [# x1 M4 Q5 d. S
       3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9},   Q$ t$ n& @2 {; [
       3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]/ w% v/ G2 Y: X
    }, Open  ]],: j$ ?0 p. l, {! W* Z

    * ]( l3 @0 N% V6 f: e; sCell[CellGroupData[{
    5 \" P6 ^& H  ^! f1 I9 o. m/ S1 H/ s. u& `% v0 m. H# `+ }, s
    Cell[BoxData[
    8 @. l. p; d3 M) S RowBox[{0 F: o6 f- R0 h( Q
      RowBox[{"Ca", "[",
    6 c# Z1 ?9 V" y, B6 o4 p4 l  k   RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",) z. g; E* u" V  R4 G1 @
    CellChangeTimes->{3.577921461734375*^9}],
    ; c1 }0 Q$ }5 v/ D2 N+ Z' ~4 S* t% F8 v) N
    Cell[BoxData["0"], "Output",
    - j% J5 P$ m. R  g6 h CellChangeTimes->{
    : W# k) O. w( @0 `+ M, C  3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9,
    / s6 X; @% C5 G# S' M   3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9}, " m0 L, g2 q% i4 I( |
       3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9, / @9 y* E: V( g0 F
       3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9,
    1 e. x# r- }3 j$ \+ t   3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]9 [) U. c% o# a3 w3 M. R
    }, Open  ]],
    6 Q. V& Q( t3 i- _4 G7 D+ r( O7 `( X! D% N* s$ @2 j
    Cell[CellGroupData[{* j  a$ X) O- b8 D/ ^+ ]' S! k* r
    . h! _- }2 p! ?* [" n) s1 u- @
    Cell[BoxData[4 ]: e1 l8 t8 p6 ~9 s' n* m6 I
    RowBox[{2 u+ I- Z0 I' @, m4 n
      RowBox[{"Ca", "[", + x  r  Z7 o( ]- c% g+ h
       RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
    0 Q' a- U3 q  c/ V% S CellChangeTimes->{3.577957303118286*^9}],
    " m7 X% b  D! Z. ^' H) Q7 a8 k' S  z  U) ?
    Cell[BoxData["0"], "Output",
    3 B" i" |$ U/ ~& j" t8 y CellChangeTimes->{& `' R7 w$ h& f* Q
      3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {2 ~/ x0 h3 Z, Q$ J- g9 y* G2 E3 R
       3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9, - Q: u: v0 V- a. U" c+ q2 a- p: H5 M
       3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
    " Z! M, p* l: y3 f. l) K6 M" w   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9, " j  l0 k% [/ L
       3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9, : n% N8 M  u! u, @
       3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {% r8 C4 O2 ?. c( H# w. _
       3.577961889378585*^9, 3.577961912965826*^9}}]
    4 ?% A; R& [8 j' z2 L7 |% F' t}, Open  ]],) T) H+ q7 c2 x# l2 J

    / r( K& J% i: d1 \Cell[CellGroupData[{' E# f) Z, L: Z* J

    5 w$ I" e: P8 RCell[BoxData[
    & R! V3 d/ b1 O' [/ L0 I$ \ RowBox[{5 s) C2 b1 Z' b% L
      RowBox[{"Ca", "[",
    6 x3 u, k) Y0 S! D   RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",* E+ \1 X5 k5 k, r
    CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {6 |6 Z0 p5 t$ c0 i$ R
      3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
    ' Q, l$ A. K$ r( y& p' P  3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {
    . I! r" g6 t; j+ u8 m; s" i' [2 b  3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9, # f* \9 L$ L' n* l- m7 ~
      3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {" v5 V: K& B- }# f/ h, Z
      3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
    : _! F& i/ @( m* @8 ?/ W  3.577921435703125*^9}}],0 z% s6 q0 t; o7 N# _

    9 }! \$ V. A9 X/ A+ }Cell[BoxData["0"], "Output",
    1 [' e0 O9 g8 c, l# l" @  [ CellChangeTimes->{: _+ {- A* n$ I6 r; H
      3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {0 v" n) d8 t' x; B5 y
       3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9,
    + }4 k6 V. j# @" K9 Y5 d6 P6 t   3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {
    4 d. W! @# @3 }   3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9, / c  `# L; c/ [
       3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {
      M3 ?1 H, o& @; Y   3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9, # i+ P  g, i$ K+ Z+ |( H
       3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
    $ R( t9 u8 C. O$ K4 y) o* t+ n+ I   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9, ) u4 V& ?+ s3 i: x' o6 d4 f$ R
       3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
    ( u1 u; [: u! f3 Q8 d+ X" o5 j6 l5 I   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9, $ n- o, R( D) H5 R
       3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {
    8 _/ c5 u9 {' j1 X, {* L$ R7 E   3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9, ( d. D8 X, D( Y* f# L: K8 I
       3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
    + q+ ~; Y2 w4 `+ U}, Open  ]],' \  T; s) h; M

    6 ?! }" p: u, H2 YCell[CellGroupData[{
    , X' d6 |% |+ ~. U; Y0 O
    & R6 n  g" v/ L. Q! zCell[BoxData[7 E' l, `9 a' r# P, G: t9 j3 U
    RowBox[{"Delta1", "=",
    ' y' c+ \7 `: S  RowBox[{8 W8 T/ x. M$ F8 ~! H8 A6 Q
       SubsuperscriptBox["\[Integral]", % g( ?( w3 N( n& v' G. J# f' ]) R
        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    1 H3 K0 t3 `) A5 E! }% F" Q- p. @   RowBox[{/ [: \0 B9 k' I* n6 k
        SubsuperscriptBox["\[Integral]",
    ; X! Z" k# {+ D, t2 Z0 e     RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], " L. K( X: E6 g  N  |
        RowBox[{
    ( M! K; K; d1 D; f     SubsuperscriptBox["\[Integral]", ! I" v# P+ Q2 s, _4 B0 f# @: ~
          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    * P/ N6 Z7 @2 O. d% @     RowBox[{) C( ^) l, k; Z: j! ?
          SubsuperscriptBox["\[Integral]",
    4 a7 r" n1 |# w9 q       RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    . Z* F7 }$ a) @7 X1 F/ c1 Y/ C$ |      RowBox[{) `: ~" A, R  E3 F4 o, L
           SubsuperscriptBox["\[Integral]",
    4 G% ], i- ]- x% g        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 0 M# c. D3 Z) z5 M
           RowBox[{9 V2 U$ f8 `! c2 }
            SubsuperscriptBox["\[Integral]", % b6 m& O7 J- h* i: Y
             RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    ) E/ N& L2 g) X6 x- R! M        RowBox[{, U# m3 T" d! O' g6 @
             SubsuperscriptBox["\[Integral]",
      j" [6 m, @( H1 K: Q% q) ^8 [          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    + ~+ _: R' o3 e/ E7 o7 J! C         RowBox[{
    " u8 \3 [7 f; O" O          SubsuperscriptBox["\[Integral]", * z5 l3 \6 N# y8 S* n* G2 c. {
               RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 1 v1 s7 @7 p3 d# C4 V
              RowBox[{8 K+ V" d! _, w+ s6 G$ }* C) d: d
               SubsuperscriptBox["\[Integral]", ! n3 w5 s2 a8 D7 I- w. ]' r
                RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 2 R  {; D! E+ g% D3 I4 E
               RowBox[{$ Y& J# s8 v0 O( z! m$ u& ^  M8 M- \
                RowBox[{"Exp", "[", 5 Q/ |9 Q3 y' t4 S
                 RowBox[{
    / Q1 s8 K7 a3 S& V4 j9 s              RowBox[{; W4 P0 T; U/ `. C3 z' h
                   RowBox[{"-", 0 U  {- P6 U2 M0 L0 a- k
                    RowBox[{+ _! \' a1 B8 N
                     RowBox[{"(",
      H/ W: q; H& }9 b4 C" K                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    8 ]; L# J! x9 [3 L9 p, X6 t+ e                 RowBox[{"(", 5 V, c( K/ h  c. m2 a) x
                      RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", ( V8 F9 @; A* P- X7 @
                  "Delta"}], "]"}],   c& v; D8 H: e# I
                RowBox[{"\[DifferentialD]", "x1"}], & d, K! C) c: H
                RowBox[{"\[DifferentialD]", "x2"}],
    % ]' ]( p; o- [' {! A            RowBox[{"\[DifferentialD]", "x3"}], - D4 P8 P8 c; z. ]
                RowBox[{"\[DifferentialD]", "x4"}], 5 g. I2 |4 `# O! G8 s
                RowBox[{"\[DifferentialD]", "x5"}], - [( H6 ~* r, Z9 m. I; n
                RowBox[{"\[DifferentialD]", "x6"}], % v. i3 {2 y$ o% f" H  _
                RowBox[{"\[DifferentialD]", "x7"}], ; q4 H9 V" k5 S, C3 I# \% P
                RowBox[{"\[DifferentialD]", "x8"}],
    1 @  {; I8 v: p9 L9 }  s- f$ Y            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",8 Y3 x5 l4 `* a% W; W0 R( `
    CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {
    & M: a+ c8 P7 _) K' k4 H, W   3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9, 0 o1 `' z# _" l: r* g2 e
       3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {
    ( L$ M/ I8 O& a: ~5 S   3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9, ) ~% \" w# w, m$ [/ x( L( D$ m
       3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {
    / L. l; Q& K" f, w9 r   3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9,
    0 K2 s% O! l$ x: ^+ Y0 V) Q% `$ Z+ i   3.577918964453125*^9}}],
    7 s) c* A0 F  P$ f8 D! E% e0 e: G( @  }  {
    Cell[BoxData[6 G# F: R4 n- G: N: ]
    RowBox[{"97.40909103400237`", " ", 7 C6 N' [1 i/ C5 q
      SuperscriptBox["Delta", "8"], " ", 6 W5 t; b$ |. t+ g. Q
      RowBox[{"If", "[",
    ) [+ X- u, v" w! \   RowBox[{
    - |) k6 x; b0 t, O( }    RowBox[{! n; |/ @: I3 b4 X7 n: i6 ^
         RowBox[{"Re", "[", 4 R" H; m5 e! r8 z& l! |$ E
          SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
    " A9 H0 m6 c4 d5 h+ u! O) o) i    FractionBox[
    # v  J2 b$ C0 ~6 z7 u7 c     RowBox[{"1.7724538509055159`", " ", 8 ^# y. f) K' a, v
          SuperscriptBox["\[ExponentialE]", 7 C4 M/ X5 q: {8 d6 e6 M' h
           FractionBox["1.1102230246251565`*^-16", % w9 a7 G; j# A5 h2 h( c
            SuperscriptBox["Delta", "2"]]]}],
    ! X2 R5 W+ |; a# u5 z# _4 f$ j     SqrtBox[
    6 t2 y7 ~' D0 n0 D( p& M" j8 e      FractionBox["1",
    3 r" g: Q2 }2 j3 P       SuperscriptBox["Delta", "2"]]]], ",", 6 K1 R; O  L5 @+ ^" E
        RowBox[{"Integrate", "[",
    + s: p! r7 g. \$ f     RowBox[{
    8 n& K" F8 x) a  @6 l      SuperscriptBox["\[ExponentialE]",
    ; S3 y0 D% Q# w9 ]) {. x8 `, w       FractionBox[
    9 `/ S+ C) r. _9 G3 z2 f9 i* H! ^        RowBox[{"1.1102230246251565`*^-16", "-", " C) {& o; _9 F- A* r9 R
             RowBox[{"1.`", " ", 1 X' e/ B- `1 Z9 n, J) e' g
              SuperscriptBox["x9", "2"]}]}], ; D3 H  W2 A2 M- }, A  ?
            SuperscriptBox["Delta", "2"]]], ",",
    * q. i' ^3 d8 P      RowBox[{"{",
    7 F8 u# r& ]+ w& I' a6 `       RowBox[{"x9", ",",
    2 A' v+ H3 Q) F. @4 H) y        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
    % X7 R8 b9 s8 M" b/ ^% B      RowBox[{"Assumptions", "\[Rule]", % o5 v% q) @, P5 \* G0 `
           RowBox[{
    ' J' c1 l4 N. y* u0 j/ q        RowBox[{"Re", "[",
    + [% A. P9 j8 K- d- a- d( A' N: N         SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}], , x  C& q/ \1 M. z8 g: E0 Z/ W
         "]"}]}], "]"}]}]], "Output",$ Y' w9 B8 `- b  M- b# ~
    CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9,   D4 q, M2 X  }+ F# c# }
      3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9, # N, N" Z6 v- F/ k
      3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,
    7 A* {3 d6 i5 ]' W$ ]! o  3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9,
    ' c3 m% E1 k9 o/ c+ X$ p+ [  3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9, : V& W; A+ z4 W9 @( m) e
      3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
    9 i; d; z0 }, x- i9 G  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]
    7 Y& D6 L- R3 |3 k}, Open  ]],
      [' N; L; l3 W. o$ m8 g5 `8 Q# K" I! j& R' A
    Cell[CellGroupData[{# U) M! H- m  Z( r. `5 z4 G* X

    ; e' I$ [% B/ N1 f7 {Cell[BoxData[
    + s( k7 m8 u5 F0 R RowBox[{"Delta1", "=", . E# U3 s+ r: y% J: c6 z
      StyleBox[
    - Y7 o$ P4 V7 i# H. j) {/ O   RowBox[{"97.40909103400237`", " ",
    9 p* K* K9 g0 @- G, g    SuperscriptBox["Delta", "8"], "  ", $ S! `: y( A8 y4 T+ A
        FractionBox[
    , f+ K7 L/ Z1 p" U     RowBox[{"1.7724538509055159`", " ",
    * O( U/ R+ C9 U. e+ I      SuperscriptBox["\[ExponentialE]", 8 |/ I1 ]* x  p; {
           FractionBox["1.1102230246251565`*^-16", 3 L$ m. V9 v2 u" X% z
            SuperscriptBox["Delta", "2"]]]}], 7 A# w2 V1 l$ b9 h
         SqrtBox[; }4 k& n8 g2 P; ]0 u, W  c0 S- ~1 z/ p
          FractionBox["1",
    7 Z9 V( n2 V% ]5 Y- t/ E; j4 X       SuperscriptBox["Delta", "2"]]]]}],& ?" D* a7 c8 O! G, C
       FontWeight->"Plain"]}]], "Input",
      j* w1 u3 O" e' Q5 H' C CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {6 K' |2 o  E9 @
       3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,
    * {3 X* z( \, b5 n, l   3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
    ; E. p7 X4 r( U/ N( A4 u" a% B7 k* B) Z   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9, 3 a4 l4 L7 e  R1 l8 E) L) V+ Y2 g* u
       3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9}, 5 \* ^' E! s$ n4 o& b
       3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],. ~+ T- F* V( B. l% Q9 i" P

    7 `0 }' L( B) D3 V+ V! D. u! aCell[BoxData[
    ( P8 U$ G% o$ t" I3 P6 B: m FractionBox[
    - Q# c( H, m( E  RowBox[{"172.65311851642346`", " ", $ ^$ S! w# Q/ f! \7 t5 ]% D
       SuperscriptBox["Delta", "8"], " ", 0 U' d% a/ Y' w. c  \
       SuperscriptBox["\[ExponentialE]", / X2 Q8 I7 x) [3 f% x' J( q
        FractionBox["1.1102230246251565`*^-16", 0 O; N+ w3 n7 O& B/ V( o
         SuperscriptBox["Delta", "2"]]]}],
    . U2 S0 ^8 d' c  Y  SqrtBox[, L. f6 C0 s. V2 Y, [# K: E+ j
       FractionBox["1", 9 t$ ?" {6 w( l9 i/ k
        SuperscriptBox["Delta", "2"]]]]], "Output",
    # o5 s. |. L& Q! r4 Z5 R. M/ G( D& \ CellChangeTimes->{
    4 s% C$ M8 ^  P( I+ s  3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9, " m  v% q  _! w  x: q2 y
       3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
    % A4 N# a. ~& R# @; u- c$ X   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
    ' W" ~/ U( n/ |/ F4 O  x   3.578012166234375*^9}]8 v/ R8 L: g, ~$ W& c+ e. f, e
    }, Open  ]],
    $ ~; X1 m( x$ _( Z" S, p3 q$ F1 w7 J7 ]& O
    Cell[CellGroupData[{
    0 t) y4 [9 z; I' L% [/ B$ R6 \: J! |! O$ g
    Cell[BoxData[+ r1 A+ U4 j/ e- r, f( K% r3 k
    RowBox[{"DeltaX", "=",
    2 d! M* B0 ?, t0 a5 g$ H1 T  RowBox[{"FindRoot", "[", 0 y; \" @  d! W) s( G) r) I- p
       RowBox[{
    " G/ R: l1 ^" \0 C! k    RowBox[{"Delta1", "\[Equal]", "1"}], ",",
    ' j6 v3 l: y& C) ?    RowBox[{"{", 6 [3 `& p6 N) F/ B! }/ ]" `
         RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",9 \7 B$ S& _0 y# G
    CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {
    ) I& p5 H/ M& A5 t) |- {0 D   3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9, / ^' O( b: U$ y7 N
       3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9, 1 C! ]3 J2 m: `' G8 k$ |
       3.57791921584375*^9}}],
    ( G/ s5 f* f  o0 x; h, O; s5 @9 C  e2 K# k1 K
    Cell[BoxData[7 b" C% }( J* Y& V' b* y2 A7 k6 R
    RowBox[{"{", 7 Z6 o% `6 ~, E
      RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
    - g' R: L7 `0 E6 w% T3 q CellChangeTimes->{
    9 v* m: b3 a2 W" V& Y  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9}, * u/ ]% ]' ~4 \# }
       3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9, 0 u; R& z+ J* m0 K+ m- }$ \
       3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9, - q! k( P2 S2 Y& q
       3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
    , u, ?( Z- d$ \( \, H& {* Q! @   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {, v, r* N2 t- e6 ^
       3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9, ; k8 B+ ?& [7 \2 t3 w6 O+ T. w9 }# |# }
       3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
    * d6 f) K% g3 q   3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9, # [  B6 U, z7 t$ {
       3.57796070150625*^9, 3.578012167703125*^9}]
    ( a- p/ j, s1 v6 K0 k* }}, Open  ]],( {& }4 z$ w3 C( Z; y6 s
    ! p0 h3 ^7 U5 c5 Q! [- d
    Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\+ ?1 U8 o$ x1 J" N0 F# S
    \:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
    " b5 q4 D& Q: x( n- p CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {- S" O% o/ c! ]1 j" j' B
      3.577960705312657*^9, 3.577960707621461*^9}}],2 r* C7 N0 l5 |3 ~3 j8 E
    : t3 b) b" v% e: y2 K
    Cell[CellGroupData[{; t# X, A8 n/ v8 e- i5 s

    ' r3 E2 h) d  W; ?  y: @: nCell[BoxData[
    % X( X7 y5 Z4 n- B RowBox[{"C1", "=", "Ca"}]], "Input",, i2 Z% f3 M0 c6 K5 S/ a
    CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],) L0 i5 a# w6 r7 U

    ! c3 V2 c9 x  l7 r0 S' lCell[BoxData[7 P. `+ N- A4 Q* e' A
    RowBox[{"{",
    # x5 m! a' F8 S0 W! W) Z; h  RowBox[{
    ' Y: T) H: j" t! e5 z+ i  "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", 0 o7 F+ D) d! x0 n
       "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
    : S5 D3 m% T7 x  {   "0.`"}], "}"}]], "Output",
    $ z. y! @5 t, V) C8 E CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9,
    - x( b1 r; J2 Z  3.577960710273465*^9, 3.5780121855*^9}]1 a8 x; B1 m( i- I& Q
    }, Open  ]],; h9 ~# F6 v0 T2 Q& s/ X

    * V9 d: r# H0 @) x% U, OCell[CellGroupData[{
    . r* G9 O( S+ m' v. t) T5 |* N/ H$ a6 i3 V% I
    Cell[BoxData[4 S. U& _# O& u
    RowBox[{"u1", "=",
    9 U% K$ x& ^8 ?* T' V  RowBox[{
    9 B( p- A. J. y) C7 `   RowBox[{"Exp", "[", 3 b2 s% p4 H3 a" H& ^
        RowBox[{
    7 _8 y3 p1 B' h" l! j. m  r0 b! l     RowBox[{
    # m1 ?' O2 R7 n( q+ Q0 o      RowBox[{"-", # ^7 [2 W7 S/ H5 A& ]& R) s
           RowBox[{
    & M" k& w9 u$ \# q        RowBox[{"(", & L! h: `8 D9 y$ R$ ^6 s: V+ I1 }
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    % U6 @2 l. ?, u        RowBox[{"(", 6 E  r; d: |$ F1 T4 X
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],. t- [+ R4 e3 ?% M& x( G0 q9 p
         "]"}], "/.", "DeltaX"}]}]], "Input",
    / I! l( t" R' S" ^4 T CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {+ J  |( Q" v! O& U
       3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {5 O5 A& Z9 h& b. E+ H9 M9 ^
       3.577919193484375*^9, 3.5779192326875*^9}}],
      W9 w9 l6 D: y, C5 L# v' L8 B
    " e2 n$ V% o, [+ N# B4 g0 x2 |" QCell[BoxData[6 a8 C0 {3 d4 H+ ~$ }
    SuperscriptBox["\[ExponentialE]",
    2 u) }/ m) u$ W' A8 f- G; h  RowBox[{"3.141592653589793`", " ",
    ( D5 d1 ~9 e* ^5 E) Y3 J& J2 r' P+ S   RowBox[{"(", , T- B' t& b3 D: W+ C0 l' r
        RowBox[{
    " `2 o1 ]& M/ s* K. C0 e, W     RowBox[{"-",
    $ Q) b: `/ V1 k1 g      SuperscriptBox[
    9 r, ]0 }" E6 T4 D( a) Z       RowBox[{"(",
      N1 l! y+ J4 q! D6 y        RowBox[{9 q! Z# z  k+ P8 |( F+ C: |2 [
             RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", 3 k) D" D6 d. B* a9 A3 {5 d
         SuperscriptBox[3 w4 p) {3 |; P: J
          RowBox[{"(", 9 {6 q4 Y$ e7 N1 t+ J
           RowBox[{
    ) `- O6 S. t- f3 t        RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", . R5 T! y7 |; n5 I- E5 y
         SuperscriptBox[$ a6 J1 C( a1 _
          RowBox[{"(", " w9 D8 Y0 W% u# s& I- {! x
           RowBox[{) Q( I& L: |( c7 E" `
            RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", % j) J% m/ p9 ~
         SuperscriptBox[8 z8 Y3 F8 y3 c
          RowBox[{"(",
    0 |; W8 w# O+ d       RowBox[{
    . b( Z6 r4 w7 A) o        RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", # Q2 Z& w. ?/ s4 r; k/ ?
         SuperscriptBox[* R/ H( ^( d2 |/ @2 [
          RowBox[{"(",
    8 W$ t) O6 C) p( X5 e# m       RowBox[{9 {% @1 }! m6 J+ O
            RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
    # I) A% i3 g0 |% |' p" c     SuperscriptBox[
    : s1 {9 w' k9 k: y7 B3 F" `$ X      RowBox[{"(", ; F5 H3 _" z7 X& T8 D
           RowBox[{
    4 E/ M: `. r7 E. Z' R& N        RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", 8 F" l& _' v$ K
         SuperscriptBox[
      N% i, E& E0 e$ J& k$ o      RowBox[{"(", : H2 v6 J5 s4 \3 [5 @
           RowBox[{; D! u# ]% I$ b. K% F, T1 v6 A3 s
            RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", 9 |) J$ l  X- R2 j% B4 Q! X
         SuperscriptBox[# t- v4 C  J( d+ r  N0 L2 g3 b( R
          RowBox[{"(",
      ^3 z% |6 O: Q- B$ @9 f* \       RowBox[{% p6 \$ A2 m  B
            RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
    , ~6 }8 Y. g: |1 o8 r     SuperscriptBox[+ e5 h  ~' w/ R2 k+ K* I, d# o- |
          RowBox[{"(",
    & V1 \- b/ @8 k7 p; F2 b' x. @       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],   S$ z5 D: a. q/ o: y4 J- U( y
        ")"}]}]]], "Output",) |4 t. T" r1 }) Q8 i
    CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
    # j; b) Q* H/ _4 o! h; S  z5 A  3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9, " H5 V2 Z( L! }7 U
      3.578012187078125*^9}]
    # X! q6 d8 ^( k+ F- Q' o* Q. T}, Open  ]],5 ?3 |* X" R7 X* f5 C& ]

    5 u/ y7 g' W8 I! _5 o5 i& J! I5 uCell[CellGroupData[{
    " \8 Y/ x3 u( K  I8 ~' P+ K9 v+ X: K, i2 M0 T" V( B
    Cell[BoxData[- }0 F3 a" {% P6 n
    RowBox[{"C2", "=", "Ca"}]], "Input",( y9 p( y( ~5 \$ o
    CellChangeTimes->{3.57792047321875*^9}],
    7 D7 [2 V, Z  A7 i: T2 u
    $ T% I, C- w# d" ~, C$ t& bCell[BoxData[
    ' O  L# {" Q% S- r, A RowBox[{"{", # u2 i5 H- z3 U# M: e! W& f2 U
      RowBox[{
    6 Z' s4 e4 {  L* d& h  "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
    , T9 ^' n, N6 r- C   "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}], * Y, P# Q% _& W2 j, ?
      "}"}]], "Output",# Y2 p% B6 {  s) n- k8 t; d& j
    CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
    7 }0 Y* f  Z& f9 u1 M  h  3.5779607401163173`*^9, 3.578012204671875*^9}]1 a$ t0 ]  Q( k9 D  o
    }, Open  ]],* p- i$ }- ?# k. a$ D

    0 d+ V1 v6 _! F4 B7 T! t* [9 k  VCell[CellGroupData[{
    , \4 I3 H8 M/ S/ T3 W
    / p5 K6 p, N7 P4 ?0 ?Cell[BoxData[
    $ o' x/ X2 h% P+ X6 y  v3 y RowBox[{"u2", "=",
    % i6 j& W" p  l4 \+ f; O5 Z  RowBox[{
      I( q* I1 a. A5 Y0 I. |   RowBox[{"Exp", "[",
    9 S% M. o3 \1 O! \    RowBox[{
    $ Y, n! g) L% X7 ~4 C+ \     RowBox[{- Q- X. \9 S% P& a; j& c: A- o
          RowBox[{"-", 1 j  o, G$ U( V. k7 j5 l
           RowBox[{
    ) ^  z1 I3 O4 i* |        RowBox[{"(",
    4 ], n- F, T) T' a( O. J         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    6 m6 \% \# E- x9 B* p. I% R* P        RowBox[{"(", ( q6 n. h- P6 @$ [# ^
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],- g. U% \- `, {) A
         "]"}], "/.", "DeltaX"}]}]], "Input",. T. o# S( ^" x! G" g- X/ B: c
    CellChangeTimes->{3.577920484109375*^9}],
    3 U5 r( B* l- B4 j! C/ r$ Y$ ~  o- o0 v, o. P/ h" n9 `$ m  O; _& z( J' t2 ^
    Cell[BoxData[
    0 Z# {  b6 T8 e* O SuperscriptBox["\[ExponentialE]",
    , M5 x  v. }/ v' F* h+ |, ~- @  RowBox[{"3.141592653589793`", " ", 0 E- h7 Q; k( v; q
       RowBox[{"(",
    ( l5 A3 U: p4 E" `3 \    RowBox[{
      y3 n' S% d  D+ t     RowBox[{"-",
    % W! {" I7 ?$ [1 X: D% f/ s      SuperscriptBox[
    ' C# O% ], i( X       RowBox[{"(", : @, Q4 q! @7 P  Y0 ?7 Z6 k2 Q
            RowBox[{
    9 |# j0 K* v7 n4 q5 i         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", 7 M# I! `7 p' w1 _
         SuperscriptBox[
    / c8 r+ J; M2 Y( l      RowBox[{"(",
    8 V" N6 e+ P9 H% A. k       RowBox[{& Q. W6 m- \# [+ p4 |
            RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-", 5 v5 ~9 J0 G+ J$ r' C$ L
         SuperscriptBox[
    ( f" g6 {8 V: ?/ q      RowBox[{"(",
    - [4 }6 E! }! V+ X* W       RowBox[{; w+ ]0 ?; C0 W% Q
            RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
    ( A! L0 F- P( x/ }+ C$ Y     SuperscriptBox[3 E+ l! l. z/ X& r* Y3 u" x4 a
          RowBox[{"(", 6 M3 D( H0 t- e' E  o3 O
           RowBox[{8 l" H/ J" j/ G1 e) r& c
            RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-", " a& E1 q% ^! |8 P+ F* \: I- a5 C; w
         SuperscriptBox[
    ) y/ A! |2 u- o7 J8 X6 B$ h. ^      RowBox[{"(",
    ) V6 Y9 a- S/ ~% V6 k2 L. v       RowBox[{
    2 k" T2 W. q7 y        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", + J. c/ a( j/ S( }3 @) z% {
         SuperscriptBox[
    # A. @+ x! a7 M& Z      RowBox[{"(", * v1 R& R: D5 C: x' ^
           RowBox[{
    / o) C. S% K# P        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
    9 D( W- y6 ~! s6 z8 ]( L$ c; A     SuperscriptBox[. x$ ^; s/ D/ m3 i. n2 ?, G' H
          RowBox[{"(",
    1 P5 w" z, s- S* r- @- u' \1 t, p       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", " S2 V. l* y9 }6 G
         SuperscriptBox[& T* D9 \9 G' `' N
          RowBox[{"(",
    $ B* f4 r+ \8 k% g' q# y6 [       RowBox[{9 ~& _9 V' Z/ k1 G
            RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
      X9 \+ e0 ]; }  X8 J     SuperscriptBox[0 g. ?! z4 i8 q/ U4 W
          RowBox[{"(", 2 h! f9 u5 b' L4 c5 K
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 4 g, f" u+ v( J/ K1 |
        ")"}]}]]], "Output",$ Q* V, ?% _) F. r6 N7 ?" D/ z0 h
    CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,   P! z5 M' y* N  C$ P" Q
      3.5779607413955193`*^9, 3.578012205484375*^9}]5 a9 U$ {2 a! {- @0 C
    }, Open  ]],7 W7 V: X6 Z- o
    , _, n" f9 j+ }* W
    Cell[CellGroupData[{
    & K4 d6 F9 T3 j7 `/ U6 I0 x9 z1 B) P; g; d
    Cell[BoxData[
    $ F5 L/ Q3 _& \8 r$ p RowBox[{"C3", "=", "Ca"}]], "Input",% f* D* h/ c5 O1 N, ?4 m
    CellChangeTimes->{3.57792064125*^9}],, ?5 S/ o3 |; j% ^

    * c3 d! Y% e- b3 Q- J2 GCell[BoxData[! S( s. p5 [& M! a  w* d# A5 e
    RowBox[{"{", 0 r, M9 R0 q( \' k8 g/ @% ]2 z: L) Y
      RowBox[{
    9 u7 F/ R8 ]) J& p+ t, H! h: V+ k  "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
    / g% h- M, i6 K1 Z3 _   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}], # Q# p+ a+ G1 Q: j' N2 O
      "}"}]], "Output",3 _8 A, J% V+ e. V1 L+ ~9 e% E
    CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9, 3 k8 a4 P" `8 s: s, }9 f
      3.5779607642027593`*^9, 3.5780122103125*^9}]
    5 ?; E- {6 N) T; p/ n2 B1 x}, Open  ]],$ m; x( ?" A4 A6 B% v

    4 h: t' D- \+ @: K3 y3 UCell[CellGroupData[{! k5 t4 i- Z- t" [2 i4 W

    3 O9 c8 x3 l* g3 zCell[BoxData[
    $ q4 m7 H+ ~4 i- _; }7 X5 M  N RowBox[{"u3", "=",
    & L3 I$ B' f* v* Q/ F: d  D  RowBox[{7 E3 C/ q0 P5 t# Z# \+ g; _$ P
       RowBox[{"Exp", "[",
    , \" Z. {8 Q2 m) |9 I1 R$ w    RowBox[{
    & \6 |# R8 u; `2 V+ P! J8 g     RowBox[{( I0 _# j+ X0 n  D: l
          RowBox[{"-",
    6 M/ ]- D3 F/ M! x1 V. H       RowBox[{
    $ }' A4 l. D3 F1 W7 V' P. J        RowBox[{"(", ( V- o$ _! ^: T3 q: R- L4 G' E
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    & x3 ^1 v( c; \) ^5 g        RowBox[{"(", ; F  m; \0 A# c$ j% C6 s' V
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],' T" n" E" x, y/ D
         "]"}], "/.", "DeltaX"}]}]], "Input",5 S. v( m1 \& V" K% h% P
    CellChangeTimes->{3.57792064921875*^9}],
    , l& x, v6 A) \9 ?& Q- c: l% _6 A  U; c; z/ V  J% s. o9 k
    Cell[BoxData[
    2 g6 d% J8 m. d7 w% }3 f% p7 M  T7 t! \( \ SuperscriptBox["\[ExponentialE]", 9 j2 M6 h$ P7 u2 [
      RowBox[{"3.141592653589793`", " ", 5 B7 }# A5 o: c2 u  x& l2 b0 Y
       RowBox[{"(",   Z! Z1 Y7 ~' E/ X8 y* C
        RowBox[{
    ; F/ a" _! f1 _: k1 `& K. V     RowBox[{"-",
    ' a; U: m% v% F4 a3 R+ ]      SuperscriptBox[8 U; E: ?1 M- ^* A
           RowBox[{"(", # W) f8 O1 X1 Z2 i
            RowBox[{/ H. Q( _$ w, F6 f& _& B, ]
             RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", / a2 y0 U  j7 i+ h1 z# E
         SuperscriptBox[
    & K# {' ]0 _8 H+ D$ P      RowBox[{"(",
    7 ^# q$ N$ o! t6 e& c- a       RowBox[{
    8 E- x, a- R- u" W        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
    ! _0 ~& L$ t" ^/ {0 H8 |     SuperscriptBox[
    9 r0 N( ?, g& Q3 D% U( X& q" W      RowBox[{"(",
    % F2 p2 E8 v9 f" R3 I- B2 y( G       RowBox[{
    ; W. l, r) H; D( G5 _9 t        RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", $ H/ `! N! g+ J
         SuperscriptBox[
    7 j3 r4 v. o& t6 d1 C/ p  U      RowBox[{"(", # j) W7 f5 L, W' z, j
           RowBox[{
    " p* @2 R, s" s: U5 u: F        RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
    7 U+ W" o; p7 ~( O4 W     SuperscriptBox[
    8 A) c3 g: `1 b+ C0 W+ z      RowBox[{"(", - l. e3 K- n; v% x
           RowBox[{- b' j. f1 f7 r& C3 ?; I0 p
            RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-", + [" L) S9 z' D  X! h# Y
         SuperscriptBox[
    7 G* Y9 d: Q- `* @" ]. l      RowBox[{"(", 6 W6 m* p+ Y& ^7 P% K& b) k
           RowBox[{
    ) q; P( e: z  \, R! y# q        RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", / p# R! ]6 B: E0 f& V: ?
         SuperscriptBox[- }/ `! h  J  w& }8 `* D
          RowBox[{"(",
    ( i5 ?# Q# T$ `5 I$ b: G: i: f       RowBox[{. U1 K4 H# S4 {* _- `8 w3 I
            RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
    1 ]; l" B% b! [/ T; d     SuperscriptBox[* x2 @1 P2 f! p0 y6 W
          RowBox[{"(",
    / ^+ `5 f) G4 T% D       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", $ ]* ~# \4 ]6 Q8 c1 ^
         SuperscriptBox[8 x0 R/ D0 _" P4 o9 r  t7 |. B
          RowBox[{"(", : Z1 n& R; z6 r4 |
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 0 W: l7 V& P# g" R8 e- W! p
        ")"}]}]]], "Output",
    ( D  q: L: L$ w CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9, ; b5 H7 ]( G* r0 T5 {! k2 O
      3.5779607654819613`*^9, 3.578012211515625*^9}]
    6 o6 i! U. A1 O1 ~+ ^. R}, Open  ]],
    2 q# h& y) C& u3 Y" z/ P7 n: k9 y. ]/ `& ], c8 j4 k
    Cell[CellGroupData[{
    4 r' }$ z) l# m4 C2 ?3 J; j1 B- j
    + s: B: ^- ?7 T) x+ zCell[BoxData[$ o: x/ S1 Q% e/ Y0 e. V
    RowBox[{"C4", "=", "Ca"}]], "Input",; |& h1 x% F' f5 C4 g; _
    CellChangeTimes->{3.5779207559375*^9}]," z3 e% H7 P8 I
    , n8 g' n9 ^/ p: F: h, ~0 w& b
    Cell[BoxData[
    8 R! _: V" o' I RowBox[{"{",
    8 F! K1 P% L5 J% X7 x" @$ n  RowBox[{
    ( q; U' d" B2 g  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",", " P) }) |1 F* q. k; d. c  B
       "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}],
    6 z" l! M. B$ Z* Y$ k  "}"}]], "Output",
    ' U) S" Q0 B2 I8 \" @( ? CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9, 1 Y* b$ h/ q1 C) m
      3.5779607861363974`*^9, 3.578012216171875*^9}]
    3 g3 b2 ^, y! ^8 h* Y3 B3 e}, Open  ]],
    8 M5 j9 y6 r/ C4 ^5 l% ?2 J- S' ~! H0 h  X9 V* k2 b3 z* `
    Cell[CellGroupData[{
    1 V  P- T7 f. D) \2 h% I- c2 e0 E, p. G. j' s
    Cell[BoxData[& Q% w7 F4 @% C$ m. U
    RowBox[{"u4", "=",
    2 ]1 ^5 E2 f6 w" a4 X  RowBox[{3 ~6 z9 _: D4 |& T8 j
       RowBox[{"Exp", "[",
    . b, L4 t- g6 n9 @    RowBox[{
    - S) \/ i5 O4 {5 M2 q* q! n! {6 u     RowBox[{; ?* [3 e1 l7 v/ |5 R0 D
          RowBox[{"-", * f9 @$ P9 }7 @% R
           RowBox[{
    1 E6 o  }( H- Q/ G, B, y5 F        RowBox[{"(", 8 f: C6 }7 u# R
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", * w+ c9 T. W% P
            RowBox[{"(", ! @7 ?$ w* a' ^% J
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],, D; G/ i( \$ e
         "]"}], "/.", "DeltaX"}]}]], "Input",
    8 [3 C$ K& S* H2 c, g( P2 `6 { CellChangeTimes->{3.57792076325*^9}],
    # a/ I( V0 l4 `9 ~, M# |. R+ V! F6 }5 V6 ~5 O
    Cell[BoxData[
    4 @; `) _4 e3 F9 C SuperscriptBox["\[ExponentialE]", 1 d0 p5 c. D% P% f! B1 I3 J1 K
      RowBox[{"3.141592653589793`", " ",
    " o3 J' d8 M% ]. C7 ^   RowBox[{"(",
    + S7 p2 G: {6 i2 V    RowBox[{9 a# {* f+ l  f  x, s3 g" G& j
         RowBox[{"-",
    " x% g$ _# x; }: {      SuperscriptBox[
    ) Y/ m5 N4 N' P) M       RowBox[{"(", $ E% ]$ l$ b# D0 g& ~# A
            RowBox[{
    6 T% [& r0 C: U4 I         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 2 a! z+ q% k" {
         SuperscriptBox[
    5 ]' J. l; @& x      RowBox[{"(", % A0 G0 T: m  z2 h# U" P  v; W
           RowBox[{
      k9 \8 l- H8 ]+ K        RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-", 2 ^# u& P5 n) j. {$ H
         SuperscriptBox[
    # I+ u3 \/ E; Q3 U* }      RowBox[{"(", $ p) j* U- u' J9 D+ o
           RowBox[{
    1 Y, K, z; T) p+ g( g        RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
    & `! c3 I' p1 {0 @4 X6 _& `     SuperscriptBox[' W6 q9 `% E, F; N- [) y2 u) l/ D
          RowBox[{"(",   k% ^2 j; M' u5 I$ _2 D2 w6 [3 \
           RowBox[{
    * q1 V0 f3 i1 ]6 B6 J        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", " {# C' A3 W" i
         SuperscriptBox[
    6 q2 T. e; g0 J; C; B# n      RowBox[{"(",
    7 e1 {, m6 O7 B! O+ ~+ X# d; v       RowBox[{; P* k% k+ l6 F' P) z2 Y
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    / s" Y) K  d, m# C" k7 C     SuperscriptBox[
    ' |! r  M4 U2 V      RowBox[{"(",
    6 V) Q$ e; `# P) Q       RowBox[{
    : `: q$ W& E. f) d% Y" b- q/ M# |. i        RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
    ; `7 O8 D5 q$ u; v4 l4 d  `     SuperscriptBox[. j; o4 P3 D8 z) A8 ~! W; Y2 u: C
          RowBox[{"(",
    * z' ~' D) x* [% k6 K; f) e+ J       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    5 p8 a# {8 w+ e1 y     SuperscriptBox[3 E% H% |. @# p! o, l$ X
          RowBox[{"(", ! I. _! a. m8 P$ C& J" |
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", " U# M2 p. U7 j3 _# p. I5 }
         SuperscriptBox[4 B( P9 z' m% l6 D  H' R3 r
          RowBox[{"(",
    & C, M  `; z: y$ @! P       RowBox[{
    4 ^  N3 j$ Y. r) v1 b, ~! E1 X        RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], + N/ ]. a) H  w2 M, Q
        ")"}]}]]], "Output",
    # C: C( H* X* s3 S4 U2 {& N# U CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9, 4 O2 b3 F( b9 {/ t6 |3 a2 ^- |2 r8 F
      3.5779607873531995`*^9, 3.5780122169375*^9}]4 @) y" M# ~9 ?; ^# g+ N6 S
    }, Open  ]],0 [& J3 ~5 ~' e3 `# Y1 k# `: y

    5 ~1 P; T5 z3 gCell[CellGroupData[{
    ( I! D0 A8 g& X$ v, p: J+ w1 t" ?1 E. X* C8 u3 ~
    Cell[BoxData[, B, l! ]+ @* k3 P# J; y) J0 j, ?
    RowBox[{"C5", "=", "Ca"}]], "Input",8 L. W; W' Q% W( f
    CellChangeTimes->{3.577920860671875*^9}],6 Q0 W. U1 K8 ?) l, D- Z5 f- F
    : I6 x& |: K- q4 s
    Cell[BoxData[) d# g4 \( v( m% @
    RowBox[{"{",
    $ z/ U7 d7 r5 ~% M, A/ w, r0 P+ s6 W  RowBox[{
    - y0 D; N$ g$ w: P  "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
    ; N: i0 F$ p! i8 N& D- j   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}], 2 A1 E8 z6 ~/ [2 V# p" W$ O5 N
      "}"}]], "Output",! {- f2 ~- J9 B0 v5 k
    CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
    2 P( {' u/ y: F9 A5 j  a/ ~/ x  3.5779608137328453`*^9, 3.5780122209375*^9}]
    5 N! |+ O+ M8 V8 n) d}, Open  ]],
    4 P8 l+ f, ]: e) }. U1 H& z8 _2 v' D! L7 x2 k
    Cell[CellGroupData[{- g% i& Q9 I2 V1 S8 A( K! `
    % p1 g, I: B/ C8 ^! @
    Cell[BoxData[
    3 k4 ^8 B. U. g$ d* g; Y$ J$ ] RowBox[{"u5", "=",
    & H! y% {3 R. m" n7 X. Z; l' P  RowBox[{
    * s9 W% Z+ a- V( `  ~2 y3 ~+ J   RowBox[{"Exp", "[",
    1 x; D* r4 J. V% ?' M3 u( g4 p    RowBox[{
    6 L! g% w! Y2 ]) z4 f     RowBox[{
    $ c% x  E  a3 Q      RowBox[{"-",
    0 q: s) R# n5 H# U' ?3 u% P       RowBox[{
    . Q' w$ y+ u2 A$ N# E        RowBox[{"(", 8 _+ A3 r' G; z
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    . j3 B5 r8 k5 ^, x; h3 ?        RowBox[{"(", " v6 w9 K: m7 |) D2 V  W* Y
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],! D  @& e/ J; k& d
         "]"}], "/.", "DeltaX"}]}]], "Input",6 ?+ x% n9 J% V  V
    CellChangeTimes->{3.577920869375*^9}],
    $ O5 J* N2 C; G. p- L7 k$ s& j
    + B  v4 s8 c6 [Cell[BoxData[6 `3 u9 D. F9 ^6 L# W
    SuperscriptBox["\[ExponentialE]",
    + a9 G8 s& Y6 O7 c9 J  RowBox[{"3.141592653589793`", " ",
    / F/ M# j0 X% V$ \   RowBox[{"(",
    3 Z: {9 l8 y: `7 D3 I" T8 {    RowBox[{
    # r( h4 C: Q4 S& y1 b* D     RowBox[{"-",
    0 D6 C, c7 t' \+ ~5 k      SuperscriptBox[4 Q- [% V) g6 M/ e
           RowBox[{"(",
    ' [  a- V% l5 Y" [5 m% y        RowBox[{; M3 w/ F  V3 U2 n) @* L
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 2 O, }; }8 h4 S2 ]
         SuperscriptBox[) K5 f. X, ^0 O
          RowBox[{"(",
    + Y+ ?9 @4 R7 d# Z* E       RowBox[{
    7 y, T, a' T4 E5 i3 t        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-", / |6 w1 ^; z- D; g& T* C6 x* r
         SuperscriptBox[
    2 w5 w4 v5 E/ D3 c      RowBox[{"(",
    $ S* e, }% f  P( @) m# z2 {3 }       RowBox[{
    - K. e. f7 w9 u, o        RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
    5 G5 Y% H( ?1 U; l( K1 G! z$ d     SuperscriptBox[
    1 ^3 E& g2 S% w7 Q) Q0 D' e      RowBox[{"(",
    , H! i) e6 S; {' K$ l2 O) b! n       RowBox[{
    - J- v$ f1 o5 |! r        RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
    ) S* i# q1 A8 f* C! Y# p3 `     SuperscriptBox[' c, u$ o4 Z7 p5 i7 Y& o1 K( \
          RowBox[{"(", ' y" y  D6 l0 h0 {0 Z8 n
           RowBox[{
    4 N# j/ i' m+ G! ]% Y& t# A. A        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", 2 V4 F4 m. w0 ^
         SuperscriptBox[
    ) D- E4 g5 k  v2 {6 W( j      RowBox[{"(",
    ) H( ?$ c) Y# C/ f( z  A7 i3 T       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    " u$ }- ~$ D5 S  w4 y4 S2 ~; _0 m     SuperscriptBox[5 \, _% g# R! X' h5 i& W
          RowBox[{"(", , u% E4 c  S4 m4 ]3 F8 @
           RowBox[{- T6 C& R/ B  ]6 ~2 [* Z- H" g* B
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    2 w9 p% V7 k, W& \- ^0 j/ i     SuperscriptBox[
    % ~8 L) v! |& [4 s      RowBox[{"(",
    * g. ?( r' Q, ^. J- t; B: y; N       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    & ~5 A4 q$ ]. Q4 z' @1 ]     SuperscriptBox[: k+ k6 v" K+ R3 M$ T
          RowBox[{"(", 2 a1 d' q  z, D# V6 W/ ?6 r% o+ b
           RowBox[{! Z" Y9 Z! r  `/ E5 h
            RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
    % A: A) H5 Q1 Q, P/ Y; x    ")"}]}]]], "Output",2 o. R$ i- a: U
    CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
      {) E, Q* f; q4 E/ H/ ?. [  3.577960815043248*^9, 3.578012221953125*^9}]2 F7 x6 k, Y' D: U% z
    }, Open  ]],1 ]8 V3 ^& Q4 Z# P/ ]4 h

    , @) n1 l3 c! G( e) R* I$ ~3 `5 dCell[CellGroupData[{: n* X4 }2 L4 H! |) c5 X  l7 r

    ! e3 o) v) ^2 m" g+ J+ lCell[BoxData[
    1 t: M; }. m$ F& K3 [$ y RowBox[{"C6", "=", "Ca"}]], "Input",
    $ @- M0 }: b* q8 M2 f- | CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],
    - d/ H8 X% ~& y: d& b" y
    6 ~% P. x$ {& h7 ~Cell[BoxData[
    % N- v2 a" [& \0 x RowBox[{"{", 9 }& q% Y. g9 `' @3 G/ c9 h
      RowBox[{5 y8 {5 h, z5 ?- X7 v
      "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
    ! }$ c; _3 J. d2 m   "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",", $ u3 Z# _& k, L
       "0.494866`"}], "}"}]], "Output",9 L1 R9 t9 t) D- I6 j
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,' N# y* a$ k' A9 F8 ~2 e
       3.5779608373044868`*^9, 3.578012227359375*^9}]
    % _+ B! I5 |2 N5 |% ^4 L}, Open  ]],  b( k' @# V; v* u% v
    " P2 G+ w& @0 O9 Y6 y
    Cell[CellGroupData[{; Y4 C; n# i! S& H% J  e0 c: e

    5 ]$ M, E- _$ D7 V# QCell[BoxData[. ~  b% C  L# u: _6 M& F0 z
    RowBox[{"u6", "=",
    " H4 Z1 w; ]4 m$ \; `: ~6 R  RowBox[{
    ) d( W5 v4 ~% P+ h6 {0 ~   RowBox[{"Exp", "[",
    # Q7 q! B& W2 h    RowBox[{/ k+ v$ y& o2 r, O! V1 X$ l
         RowBox[{3 e& N; ^5 I# b8 ^" B
          RowBox[{"-",
    8 f8 N/ P+ |: O6 p# g; o& H       RowBox[{( m4 W3 y# d0 }8 N/ h. Y. z
            RowBox[{"(", 4 p& @  F: S" P# C$ p
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", - R# b7 n; A( {1 \% V3 H! P0 ]9 Q0 D/ x
            RowBox[{"(", * c* ^. Q  S; u$ s) t/ C. B
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    8 w" T5 U- q6 Z% B% v% c2 D% Y- j; T     "]"}], "/.", "DeltaX"}]}]], "Input",, b" @! Y/ s7 i1 w3 f
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],; G, \* f& z3 j4 N+ [4 _9 O  {( ]

    5 i# h; @) y# s! J# ~Cell[BoxData[
    ( {$ e1 `% V2 c) H" q1 X. X6 F! v1 G) v SuperscriptBox["\[ExponentialE]",
    " w& q# n. X, r( m) Y$ v  RowBox[{"3.141592653589793`", " ",
    " r3 V0 e5 W- m2 j   RowBox[{"(", & \" c5 j+ ?6 @) `, {. w5 j
        RowBox[{1 V# e, D! n: C# ?
         RowBox[{"-",
    6 Z) B) H7 o% J3 ~      SuperscriptBox[: i5 v. b. u  O+ B7 {* ]4 ?# c+ W
           RowBox[{"(", / i; J% D, c) ]# B
            RowBox[{/ e& E, M! Y/ |! ]& o
             RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",   n8 {2 p/ q& u1 o2 m' b
         SuperscriptBox[6 S8 ~- V& l0 w1 @# k
          RowBox[{"(",
    4 p% _4 V' X: ^8 z, X4 h       RowBox[{
    # n; K8 e0 y. F3 Y, @5 z& O* t4 _        RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", 9 O/ N+ B- g8 Y3 b- E
         SuperscriptBox[9 A& j+ l4 m$ M: N& A7 M  b% @
          RowBox[{"(", , V- P; q# k  Z9 S5 W7 j4 g
           RowBox[{
    " @0 u7 \; v( e9 ]6 G; c        RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
    5 G: U1 J7 A& g8 `' w4 A     SuperscriptBox[! A! s, E3 A3 B( V# a
          RowBox[{"(", " w- `  `/ ?3 `; I
           RowBox[{1 d; l+ S6 ^8 R: H
            RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
    $ J- ~4 x, c( H+ \     SuperscriptBox[
    ' E8 p# s. x' @9 i+ J* N0 W% P      RowBox[{"(",
    ) q8 @: `5 M9 X. u( ]3 x* \/ I5 b       RowBox[{
    , B$ p7 F% A7 v; E2 Q4 ^4 }& i        RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
    1 \* i) ], e: B/ W     SuperscriptBox[
    ) ]2 s/ U& ?4 A! D5 ]      RowBox[{"(",
    & V+ [  W' d+ t: A5 q       RowBox[{
    ) ~+ V" a% T: k- W- |) d        RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", # k, u; c# t, ^( x
         SuperscriptBox[0 s) p& w+ t/ _! L$ k* Z% C
          RowBox[{"(",
    , k3 i$ [# ?/ Z9 h( [       RowBox[{
    ( Z& m' k8 H+ F        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", 2 w8 K* R1 t( P+ h  v
         SuperscriptBox[
    + b! i/ g0 K( ^* \, r      RowBox[{"(", . p% ~  [+ H, l( }; ~6 g
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    + ?/ R: `3 \8 |8 s6 ?( ~5 z     SuperscriptBox[$ ?, P: y1 ~  Q* b  I6 F" ]: p
          RowBox[{"(",
    / t! z3 @' o4 E; t. J       RowBox[{8 v0 l8 {7 w: A$ T. h
            RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}],
    + u; ]0 C0 D+ c) Z" Y7 P    ")"}]}]]], "Output",9 T7 O: F3 d9 v8 p/ O6 s5 E. S3 |
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, ) d- ]4 l( U6 J5 F- ]  [( M* D! K
      3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
    9 k1 A7 l6 }" I, W8 r. B! q' j( ^}, Open  ]],9 m5 b9 L! B. z" v
    8 Z, B8 s( Q+ }8 U3 _
    Cell[CellGroupData[{
    4 Y' |6 n' j, R( p! \6 @
    + q* B  P; W- g$ ], CCell[BoxData[1 F( l. S; _% }/ U8 u  Q- f% b
    RowBox[{"C7", "=", "Ca"}]], "Input",- W# `6 B" C( x  `% ]* L
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, & C! _4 P  Z1 h: i, S1 W
      3.577921316125*^9}],* p" w* \$ V. _; g" `; q' k
    / b7 Q# ^. O$ c! ^
    Cell[BoxData[
    5 H( Y  @% C+ ?* L2 i RowBox[{"{", & e  j3 I8 _/ M- d  X0 b6 V% ?
      RowBox[{
    - `5 Y3 m0 b. p4 @/ Y7 e  "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
    % F. ?4 ~, n) M8 D- K/ C9 K   "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],   I/ \$ |* D* C7 J! I. i/ H/ r$ j
      "}"}]], "Output",
    5 {* I& i; ]$ l: N5 ]% I CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    2 N+ m% e/ R4 o, g# p# Y  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
    5 B5 f) E0 Q0 K6 q/ R$ i9 u( G}, Open  ]],
    6 G/ b$ n" F) h/ Z
    3 t" m  ^8 N2 V& Z' r- U! M8 `# Q. @Cell[CellGroupData[{
      a! e+ V. N  @; d5 d* z- Z+ {' S8 f; e* ]& D4 U
    Cell[BoxData[/ m" X3 S& U& i6 a) Q) `) l. [
    RowBox[{"u7", "=", # `+ ]$ M" a+ h* W' C, E7 @% m( K
      RowBox[{1 z1 Z9 t7 f# H: s0 A" A1 X% S4 i) O
       RowBox[{"Exp", "[",
    5 q5 {# P5 ^  k, s6 \9 B    RowBox[{2 C5 s; v# L8 B& e" x0 ^1 x: h
         RowBox[{
    - f3 F, N: p4 g. t5 f$ m      RowBox[{"-",
    2 [# O1 U4 n7 R* D0 G* t       RowBox[{0 H' F7 s- V/ v) h1 R6 w' p
            RowBox[{"(", / p  p) d+ W) s1 }2 t( S. W
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ( |2 g+ K' O& K$ T
            RowBox[{"(", 1 Q' _  q3 I( S0 {/ n
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],7 s0 S5 ?, E  D' V& l5 m
         "]"}], "/.", "DeltaX"}]}]], "Input",
    : V: ~$ i+ n8 X CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    % p2 ?: }9 Q7 x  3.57792132028125*^9}],
    0 F; f7 `$ T9 y" a- R! ]( Q" l( `, i$ u: C6 P7 m  ^
    Cell[BoxData[7 Q( w$ u6 m6 Q0 W1 s
    SuperscriptBox["\[ExponentialE]",
    * t# _+ f* }. G  RowBox[{"3.141592653589793`", " ",
    3 t" M4 q* Z3 @: ~5 Z   RowBox[{"(", ! @( E3 |4 r5 t# q# K$ ]9 U
        RowBox[{- {2 Y- H; D- _
         RowBox[{"-", ) t: o" O: U( W# g+ m
          SuperscriptBox[/ _- N7 R. J% d' K
           RowBox[{"(",
    1 [! ^0 O$ Z4 M$ }: \7 P        RowBox[{, h+ A3 I- R7 a1 |# R/ g8 ]/ k
             RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", 6 U3 V" ?3 i6 E1 A5 I
         SuperscriptBox[8 M' I  J# g( p! T* [8 X, F
          RowBox[{"(", % b  m3 W  B, Y" J8 k
           RowBox[{; O$ @8 m  J& e) k( Z9 w" T: _$ Q
            RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
    $ @- k, B  |+ H/ f0 s: S4 [: \% h     SuperscriptBox[6 X: _/ o' G) E/ ^% D, g  ]5 K% f/ R
          RowBox[{"(", 5 G" F3 s4 U* s" M& O" h
           RowBox[{/ H5 y' C8 i9 V  A% O0 D  u4 ?9 b, X
            RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    . v+ ~/ z8 K, F. O     SuperscriptBox[0 N: [; g9 k( ?! o8 M0 R
          RowBox[{"(", 1 r6 T' O6 i. F9 x3 L8 J$ `" Y
           RowBox[{
    $ A% p, c1 @2 e- Y+ S        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", % c# v, `, t" {+ M  l0 I- ~; L' {
         SuperscriptBox[" y4 {) S# ^7 }
          RowBox[{"(",
    ; d' l) C" j$ }; R       RowBox[{
    % t/ J5 _+ z, u' J' A        RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
    + z( Y6 [; E# o1 }" J' R     SuperscriptBox[
    2 A" A- Z: ^- E) X      RowBox[{"(", 9 E0 o: o& d& E7 c! A) f! _
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", % p! j% s. \8 J; {. a
         SuperscriptBox[
    3 j2 N0 ]- H2 s+ o- N) X! W2 z- Q      RowBox[{"(", : L0 l7 g1 g) _6 C0 I/ a" r
           RowBox[{
    ! F8 p- R9 B. n/ w% B" H7 O        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    3 }2 b( S& B0 e     SuperscriptBox[
    " ]2 J4 d7 s$ K( A& _$ e7 o; `3 V% _      RowBox[{"(", : u* j( K8 I5 V, @' n; k3 H9 \
           RowBox[{5 Y4 c+ a) d2 ?3 |0 D
            RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", 8 E5 t6 e% w# k* }( ^0 {+ M1 h( j
         SuperscriptBox[; H- p0 f- j$ K/ I4 `/ X. p+ W
          RowBox[{"(", : {2 R# o1 L  q. ~5 V2 T2 |
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 9 t' w7 s$ C3 m: z: w
        ")"}]}]]], "Output",$ P) p4 y6 @' N1 U
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, $ Z9 q; T7 h& M% u7 f
      3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9,
    8 s! T" f0 B8 A- j( H0 L& s: S  3.578012251359375*^9}]5 d. Z, K2 g$ V: @+ R
    }, Open  ]],/ X- g- F0 I9 b. X
      g! f7 p# p7 S" y
    Cell[CellGroupData[{0 M$ E7 \( l) `* A

    - s! ]8 \4 Z, \2 V$ E9 ]1 GCell[BoxData[
    7 }7 K6 U; I( V4 W1 C: a0 W  _1 I) u. Q RowBox[{"C8", "=", "Ca"}]], "Input",
    : P# m5 D; J3 Y2 Y( V; F* r CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    ) q* c" v  Z& P/ \1 C1 a  3.577921316125*^9, 3.57792141421875*^9}],# c+ \' ?: x6 \
    : G5 n7 T4 c, k. K* v" k* v
    Cell[BoxData[
    , L9 M7 F1 R! @  j8 l' e. T RowBox[{"{",
    ; Q. N% _* n, n* _% o& }& ~! l  RowBox[{3 W  D+ X% \* h8 Y- P, a* v- Q
      "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",", + x) n  i$ J8 x
       "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
    " O* X$ j' P# D' C2 c  E, u, z  "}"}]], "Output",0 u2 @4 _% C0 k  V$ X- S7 d
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, ; D9 Y+ w5 U# U+ z  W
      3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9, + `1 g, a  s' w: L
      3.578012260515625*^9}]( ]: Z7 L7 p( ~- [' z/ y. w
    }, Open  ]],% J, A& I4 @  Y$ U5 N
    4 r3 y: ^8 k, s3 |1 r
    Cell[CellGroupData[{6 j* W8 m0 S& K4 a4 O, P5 k

    9 e" e7 i) [3 o* [* q- s) v5 lCell[BoxData[
    + u7 Q# ~( ?) {) F/ U RowBox[{"u8", "=",
    % W% x3 X, K# C4 o8 ?  RowBox[{) N; h! C* U! o6 ?( b4 k9 L  \* n
       RowBox[{"Exp", "[", 7 e# U2 n+ j2 n! |  g
        RowBox[{
    3 [8 A, G, b0 Q! U" _  Y9 u. A) C     RowBox[{7 w, ^1 q+ q' ^) s
          RowBox[{"-", / R+ x0 p* A! b9 z7 ?3 r/ B
           RowBox[{& T! \1 {$ q3 |% }: w( D2 g
            RowBox[{"(",
    * v; G1 z/ Y4 [6 v3 {( k6 o         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", * V  J2 v! m0 |  v0 T5 J. \* `
            RowBox[{"(",
    0 M# V! }1 o7 ]         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],; I; K2 L" }! ~5 Z" k4 e8 O
         "]"}], "/.", "DeltaX"}]}]], "Input",% i( z7 n+ q4 w) k
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, 7 q; W! C. \! ?% |5 d
      3.57792132028125*^9, 3.577921416921875*^9}],/ ?, c& Z7 b; y& `! A* C

    ! \, N5 r8 L' G0 }% v" HCell[BoxData[5 R1 v7 Y$ W; i; p9 Z
    SuperscriptBox["\[ExponentialE]", ! z! v7 [1 r- b
      RowBox[{"3.141592653589793`", " ",
    $ j3 ?+ Q. Y; H* k# `5 X# B   RowBox[{"(",
    $ E$ s& v  n9 z, l, @1 y    RowBox[{+ N. w% G* b! |4 G# H% ~
         RowBox[{"-", 8 c) ?+ c3 n+ W* Y
          SuperscriptBox[- o" y' V9 v9 l% q+ c5 D$ L
           RowBox[{"(",
    7 G) m+ K' \% s1 l9 r        RowBox[{
    8 e' D& B8 o/ a; _8 v# m         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", / w5 J6 w% d1 E3 L# |: }
         SuperscriptBox[# f3 ~# ?5 _) A) M9 b8 m. K
          RowBox[{"(", 2 W% r. t) c# j3 k
           RowBox[{1 @, R+ z2 D8 |2 i% e/ b/ D
            RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
    9 \) @* j3 K1 S- }6 `     SuperscriptBox[; C1 y1 I0 |9 y) H% R
          RowBox[{"(", ! v1 m/ K) u0 [
           RowBox[{8 b9 a9 `! K" u, J+ f. G3 R
            RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
      b# Y0 c+ j& m; c     SuperscriptBox[0 {* F9 E# [- M) i+ S  J% ?
          RowBox[{"(", ( T  k, S! d4 D& K) Y
           RowBox[{
    - \# \: L# F+ x; Q9 B4 a6 q        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
    7 P- E0 Q, L; V1 N. R: {4 m+ _     SuperscriptBox[0 h6 [) W0 K, X) J
          RowBox[{"(", / I7 e9 ^# Q/ ~, ?4 k% w0 S
           RowBox[{
    8 q  @- ~, m! p; J4 m3 Z& A8 e3 {* {7 ~        RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", 5 t) J+ @6 o) B
         SuperscriptBox[7 i4 c2 q9 R# k  Q8 L+ V- c* R1 ?
          RowBox[{"(",
    ' [# u% }" {6 @$ J6 l, B! i$ ~& c' L       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ! p! Q3 t/ Y4 F
         SuperscriptBox[
    ! W  ~/ H/ d+ b0 p: ]: q      RowBox[{"(", 8 W) ^8 w" \7 r
           RowBox[{
    * [7 `$ z; h3 E) ]% @7 }        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", 5 u1 w3 o  c: U7 f* N
         SuperscriptBox[0 {  }5 K. y* z; J8 l9 C
          RowBox[{"(",
    3 S% b/ T, b# M/ Q1 J( d  c       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 5 ?4 `0 R% ~8 t: u5 q: W
         SuperscriptBox[
    / |& N9 m2 d: d  i# k7 T      RowBox[{"(",
    / N7 k3 ?- j' N       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
      b' p. j. q5 }    ")"}]}]]], "Output",, S3 a$ W- y$ Y- N$ H( G/ U
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, " C# z( A6 N' S
      3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
    8 H# ?+ ^# c' W% v  3.5779608945565863`*^9, 3.57801226165625*^9}], v/ j7 b+ j. k7 t+ x. w
    }, Open  ]],
    $ n2 ~0 d; C: `" k( b8 u4 c
    3 m; {* Q; d! q. X3 F/ P, UCell[CellGroupData[{
    " f9 F5 ]0 L! [2 O
    " P0 K) T: ?2 ~9 QCell[BoxData[* j# S1 t1 X  r" i7 F- ^
    RowBox[{"C9", "=", "Ca"}]], "Input"," ?. ]" T0 r/ O6 `) D3 ]
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    5 V1 [# Z$ W3 f+ F- M- E# T  3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],( r, R8 k0 w  [, `. Z. F3 \
    , v* w4 v- s& Z( z1 e
    Cell[BoxData[
    " \1 |' |/ U& V% @: W RowBox[{"{", 6 ?* W: {8 @3 [# ~( ~# d
      RowBox[{. U* e) D/ j" A3 t# t1 V5 I, b( B2 S
      "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
    1 t: k" |0 Y6 i! z   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}],
    . U5 ?# Z2 A' c' q% I  "}"}]], "Output",
    # N6 U0 w: n  B/ I CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    8 H' A  g/ \1 G  3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9,
    : P2 e% Z2 {& S$ P' o" c  3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9, ! q( d2 q7 b1 z" R9 Z9 f
      3.578012268234375*^9}]1 \$ R2 q# j& _: }0 U) k
    }, Open  ]],8 [) Z% `4 ]6 H2 e
    % N" H5 t) g$ J! v. ^
    Cell[CellGroupData[{
    / W4 P5 ?! k6 ]- M8 U
    ; e8 w& [! ]4 s" q- D; S" LCell[BoxData[
      F  I' G$ Y4 b2 N, z) b: k RowBox[{"u9", "=", - {* ?5 k% i4 {) d, ?% H& i( x% _
      RowBox[{
    ' d# N/ Z7 S4 ^( J   RowBox[{"Exp", "[",
    8 y# u4 U8 K) B# a    RowBox[{# x8 U  d" p* {! d
         RowBox[{
    0 B3 S  l0 C  G# \      RowBox[{"-",
    3 k" I. G1 i  R! `4 r; y* j       RowBox[{
    * V: ]* ?3 Y# M/ _4 t% H4 B        RowBox[{"(",
    " I3 C9 e/ E* T5 E         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    $ u  c8 X; i% D, O$ b' C6 G+ q" c        RowBox[{"(", 2 a# p8 L; a( |  x# A
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],; V* r! M$ o* @' o+ K2 M) A, h# H
         "]"}], "/.", "DeltaX"}]}]], "Input",
    * b+ L' s( q, m  M' @4 D# C CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    . n1 ^/ z/ @. |% Q  3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],2 j- Y2 ~/ ?& ^( L

    ! q" f- Z" N& pCell[BoxData[, F1 O7 ^5 X7 @+ C1 [. u/ z
    SuperscriptBox["\[ExponentialE]", - g  _: r" j8 ^1 e6 l3 J2 G' M
      RowBox[{"3.141592653589793`", " ",
    # C6 X% g1 Y* B! @! G6 Y   RowBox[{"(",
    ( C& h7 w- T* \    RowBox[{, F8 W1 m  J4 l6 ?. n
         RowBox[{"-",
    1 g' q1 A! h# M' l0 ]      SuperscriptBox[
    . U8 O6 B3 x# R: ?; T6 o3 Y; d" V       RowBox[{"(",
    1 h3 V$ h; B, f3 y        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", $ s& x* j: E1 m; j3 T. i. [
         SuperscriptBox[1 x' z. }2 t, c& S! }9 p
          RowBox[{"(",
    7 _& p) \' q7 a! ^       RowBox[{2 X( Q8 I0 o& o5 O; J3 g4 H$ E  F
            RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
    & r/ H, Z  k' e' O$ z5 Q     SuperscriptBox[6 |# p# G( S4 @) w6 p- a
          RowBox[{"(", 1 B* Y* ~& L+ w3 M
           RowBox[{) z. U2 T9 A/ e- C8 n# b
            RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    * T6 n- I8 T4 ]# m3 b     SuperscriptBox[8 N' o4 Y* }7 D( r1 r: k5 D! z' `
          RowBox[{"(", 2 M4 l1 D; ]8 n/ C; @
           RowBox[{$ P3 H2 [$ f  r$ ~- J3 c! \, a
            RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",   M. ?* ?) e) y
         SuperscriptBox[
    3 j3 o8 w; `& ?      RowBox[{"(",
    # k  D4 [4 f  A9 a! Z       RowBox[{, |. s6 Q/ q3 x" ?5 C2 ]
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", + ~: \6 g5 V* l4 h. m( s& r. Q, v
         SuperscriptBox[5 O" m8 t  h  _
          RowBox[{"(", 1 j' \* `3 Q7 h) A: c/ A; H
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",   G* y9 Q" K8 v1 X# Z7 K0 C
         SuperscriptBox[
    4 \3 \" w5 U9 Q! a; b      RowBox[{"(", * Y/ u0 o6 }, L$ A$ Y- W) l
           RowBox[{
    : v& K! V( y% u- h! @        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
    " _* J! z6 L  k4 d' x     SuperscriptBox[6 A* y' v9 b' Y
          RowBox[{"(", 3 f; ?+ F  q8 W% j
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    # M1 c% a7 ~; v; j     SuperscriptBox[
    ) W8 K' @# K7 M0 d      RowBox[{"(",
    0 I: w2 L5 B7 l       RowBox[{
    4 t& m8 V: W8 g! g' Z- z! v7 r        RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], 0 ]" t/ ~9 L+ A. o" E, q) P
        ")"}]}]]], "Output",
    # A# i5 K4 b% L' z8 ]# S$ l8 a CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, # _, y' F) E8 G1 h- K! ]1 @4 {
      3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9, 6 j3 g3 T2 A) \' }7 ?9 P4 U* p$ S. w
      3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9,
    ) A# K* E4 ^4 w+ |  3.577961530421959*^9, 3.578012269125*^9}]; P/ b0 b( V: F$ t( O
    }, Open  ]],2 i7 @2 l. N/ N
    8 n  z3 f1 Z& \1 \. @7 |- z
    Cell[CellGroupData[{
    . _6 h! L4 C4 V7 o3 k2 N* m+ g; M
    , o! b/ F5 {3 S+ }! kCell[BoxData[{5 `/ `% v. q3 \& L" b/ g
    RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]", 3 r, A+ l3 F  \5 o- y- t4 M+ ?3 v) S  `8 a
    RowBox[{"u10", "=",
    8 k5 C; s7 b) l" s4 I$ p+ U  RowBox[{( h$ j1 ]7 Z( O; s
       RowBox[{"Exp", "[", ! @. \: T  `) l# V7 e% G, x, D
        RowBox[{
    ; M: {+ ?0 {  S8 i% \     RowBox[{
    9 Q  f6 P; o- _4 p      RowBox[{"-",
    $ L: Y& k: h! N2 m* H6 f' u. f       RowBox[{
    4 S) n0 r- [6 Q" R        RowBox[{"(",
    2 l& ~5 v5 A% v         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    & X9 k' L% |, W7 V1 n/ j        RowBox[{"(",
    & E9 c9 h( G% p% }* ?: c* `         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
      ?( q, r# n- }1 K& N" y     "]"}], "/.", "DeltaX"}]}]}], "Input",! l: Y9 F. Q) v! n( S* @
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],9 V+ p8 ~, ]1 v- R+ n

    - m5 p* E9 p: o. lCell[BoxData[) m  d. `9 j8 J4 ]! S. L
    RowBox[{"{", ' s& q2 k6 l3 ^; G
      RowBox[{
    $ J& Y! _% A( |% e  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",", ( H: N& }: Q! K- N* }
       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",, }6 Z5 ^2 P/ p. A% }
    CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],1 a2 v: M4 B# @* v1 T
    # M& G1 r7 x/ i/ c6 y
    Cell[BoxData[
    4 {$ ]' ~2 d' ~) R SuperscriptBox["\[ExponentialE]", 8 ~6 i, T2 c# P! O
      RowBox[{"3.141592653589793`", " ", 9 |7 W2 `/ L- C2 h5 T- V  A9 ]5 P% p
       RowBox[{"(",
    9 F7 a( o0 x; Y( f' g" w4 o    RowBox[{
    . n0 B; n8 \3 H" K* ?, q     RowBox[{"-",
    5 g- M6 x8 x8 _, \$ k      SuperscriptBox[* r+ y7 n) R- K# @) j' Z
           RowBox[{"(",
    0 J% {! k+ F. W% k' R4 L7 \        RowBox[{! B; \. H# l# s$ i
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    , o+ P. R4 L" g9 U     SuperscriptBox[- J; Q. F0 C+ @2 H- a7 y
          RowBox[{"(",
    % \% p3 ]% O: b4 U4 O       RowBox[{  \+ |# [0 i- w5 W" L: R! t7 P% z
            RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-", * A) d8 E2 c$ U! V; J, G8 m
         SuperscriptBox[
    / ~0 U1 D- y# l0 O# h# w! P$ R      RowBox[{"(",
    & V2 f8 J3 R5 [& L* f8 k1 b       RowBox[{- A. g# C$ u$ a6 _! c5 ?7 L* r: b
            RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", 8 [2 h# v2 ~0 o  `
         SuperscriptBox[4 b% p9 ~. o, l; _6 H2 e2 C+ b
          RowBox[{"(", , o4 W1 z' Z5 M7 Y0 D  B' P9 _) ]( f
           RowBox[{5 X+ `  ^& \& o5 o8 M$ ?( c
            RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
    7 g2 g0 @- _( {  b, x     SuperscriptBox[
    : W* e& K; d) \1 ^  |      RowBox[{"(", ' C" I- ]2 @- }2 O- K5 p( s% |
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", $ e8 C- F, e- K4 Z$ d- Y
         SuperscriptBox[1 R. ~, k6 P2 i- L" M# \4 W/ `% U
          RowBox[{"(",
    ( k3 {8 [1 }# {) P3 \$ Q% F$ b4 _       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 0 H9 ^% o% @7 A, p
         SuperscriptBox[
    + {8 f9 L' W% @. R- [$ K3 @' _      RowBox[{"(", 8 ^3 K( M2 a/ V; A. R+ q2 N0 h* u
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 9 D2 ~" @" J$ ]1 q5 ]
         SuperscriptBox[
      z  S" i" F9 W5 X/ ?4 M      RowBox[{"(",
      G3 I$ f% f' u; R" w5 Q' x9 g       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    . H) l2 }0 E+ |" Y: A     SuperscriptBox[
    , b! F) E  Z1 ~) ^+ o- [+ M' Y9 ?      RowBox[{"(", ( J2 Y$ c( U/ {% X( ]9 c  U
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], & B) l$ q3 W, a. \" |! f; q! U
        ")"}]}]]], "Output",. |9 o/ f- V2 v8 N2 b8 F/ s
    CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]7 t/ f) r2 z3 b) \* r
    }, Open  ]],
    % L$ Y, [; H' {
    6 Z, f) E' f+ u# [3 ^Cell[CellGroupData[{
    8 R& B! a# z  ^6 |  T2 F- X% c
    * e1 y2 r# E$ G1 _( F9 MCell[BoxData[{
    1 V  u6 d3 }/ r8 s$ k$ M$ T RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]",
    $ a) @9 |) B; o+ D RowBox[{"u11", "=",
    / H% O- }0 T& ]6 t/ ]  RowBox[{
    % M; X$ q# q. X6 O  I   RowBox[{"Exp", "[",   J( ^5 [7 }( E. ^  ^1 u
        RowBox[{2 v" }; x% C' X" |
         RowBox[{
    ' V' w9 [$ i3 g7 D8 }! ~6 @      RowBox[{"-", ! e  ?# _6 Y* m
           RowBox[{* x5 i' r) M0 [8 R  J
            RowBox[{"(", / K- g8 _, Q+ M, d
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ) H: d  _  I4 E& n3 a' o3 R        RowBox[{"(", + e7 a% c; {. G, p# O' g
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],  P9 w' O% E; o
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    8 o& Q7 _& P, f CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {4 n0 i* M1 X# {: d
      3.57796154237158*^9, 3.5779615434011817`*^9}}]," Z# k' J& Q: w
    8 f1 B9 E0 K4 m, k! r
    Cell[BoxData[* v& P  ~1 C2 J, Z% T
    RowBox[{"{", + E" D0 n' X5 e, X% \! I
      RowBox[{
    . k" `7 b  _1 l: p7 t/ j# k  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",", 0 x1 t) Y+ }, d4 h
       "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    # u% M/ k1 f/ H7 j; K# u  "}"}]], "Output",
    + B: Z+ i, t- J# i6 @; z: \ CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    # N2 ]% P( ^6 [9 m  3.57801228203125*^9}]," ~0 \  ?0 V" H/ W5 E- O; L0 ]$ h6 K/ M

    ( P( K1 ?2 H' G7 vCell[BoxData[
    : U$ k: Y7 f0 u* x/ ^9 ?4 |8 r3 a# J/ o SuperscriptBox["\[ExponentialE]",
    ( I" v6 m/ s' m9 ]& e, v, M' x  RowBox[{"3.141592653589793`", " ", 9 {3 `4 Z- n& W8 f
       RowBox[{"(", 6 I/ x" h  K5 d
        RowBox[{5 F& I( h0 x% ?; a: n
         RowBox[{"-", " W# H4 k6 s' M
          SuperscriptBox[) d& _1 I" |0 s3 \, z
           RowBox[{"(", ! p# a, W6 f, |9 h) c
            RowBox[{6 N- w# W4 E) m  N
             RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ' B( T  E4 m1 u4 `& O$ Y     SuperscriptBox[3 G: Y3 Q. L$ G
          RowBox[{"(",
    . Y! y' |. h+ U0 [! D4 F; u       RowBox[{8 ]  r+ L7 \9 }% d- {7 U
            RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
    1 p$ n1 i4 C" h0 p( g: A0 m6 ?: n* l     SuperscriptBox[
    ' M* m9 D% L; x6 v      RowBox[{"(", / i5 z+ @* l/ N# r: \* C% q' n
           RowBox[{
    3 C# l  C; p6 P# L1 v4 B        RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", ' x; q0 m' [( L+ H# [9 ]& i
         SuperscriptBox[
    7 ~& c# X' y4 B% N  U) }, d' e      RowBox[{"(", 0 Y% D- B3 e+ p& r0 w
           RowBox[{2 o) [  g1 x" V
            RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
    7 A+ z" y$ S" {     SuperscriptBox[
    1 [  q+ g5 o7 R; t) A9 a) s      RowBox[{"(",
    * K( d: x+ W1 X; ^" ~& j9 G       RowBox[{$ Y& _5 p4 K/ W* p5 V" p0 f
            RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-", # u5 ~; S& i7 {: b: r
         SuperscriptBox[3 i) t' j* f: t; m; _4 ^
          RowBox[{"(", : P  X, j( B% K. u
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 8 a6 k+ r3 h9 T# P" U
         SuperscriptBox[
    + d2 ]% y4 Y2 Y/ L' I7 t9 i      RowBox[{"(", . l2 c0 m6 a1 K
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", + _: H& E( x3 R" ~, V
         SuperscriptBox[9 J  \5 m) v3 _  R
          RowBox[{"(", $ ~( ]: n7 n" P+ @( B- w0 C
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", $ Y# ~! E0 E+ B2 e
         SuperscriptBox[& c0 d. Y2 M8 g# c5 T4 R- D
          RowBox[{"(", : d) y; V' A' x0 w
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 6 Y* m$ e* ]$ {4 S; Z
        ")"}]}]]], "Output",/ Z3 U5 p1 V3 Y( |
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, ; J' Y- p: K5 c5 m. S
      3.57801228203125*^9}]
    1 |1 m& Y5 G2 q6 ^: z3 e  X}, Open  ]],. O+ G4 T- B8 @8 T

    2 D& w: y( J' Y+ w6 A/ ZCell[CellGroupData[{8 [" _' P0 w6 C2 t. \2 M! K
    - t9 B% _2 G2 }5 A4 _/ ?
    Cell[BoxData[{. t: m0 L; }0 p2 e
    RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
    + s6 F+ d$ I" @. k" B RowBox[{"u12", "=",
    + s5 W2 q; [. m% i- V  RowBox[{
    ! X0 G% h5 R7 ]8 B% m   RowBox[{"Exp", "[", 3 ]0 {" F) |' i
        RowBox[{4 @- P' C- o& y- O+ i" ]7 G
         RowBox[{
    , m1 B7 u& ]. w' z( J7 |      RowBox[{"-", * m! U& ^/ T/ e' A# E$ p. E
           RowBox[{
    + G' e' L" k+ h9 x( Q0 M: Y( d6 C        RowBox[{"(", % x2 o4 N. K. V  ~% d" f
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ! W5 f9 F* H/ l; B/ p, r        RowBox[{"(", $ q. k7 j& g0 T
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    + r- }4 A, s2 M     "]"}], "/.", "DeltaX"}]}]}], "Input",% e& {  q5 u2 X$ Q% ^
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {% ^( ^) `+ }/ I2 f: o3 Q$ ]& B" i
      3.57796154237158*^9, 3.5779615576284065`*^9}}],0 H# A% ]% |4 e( M: g: ~2 j8 h

    ( z  W' M0 }* U; J# _$ jCell[BoxData[; R$ Q9 g( X6 S) k6 l( H
    RowBox[{"{",
    ) z) p  r- y- n' _& ^% `5 n" X  RowBox[{6 r! Q8 ?1 c# Y, Z2 e/ Z4 U
      "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",", 3 l4 j! c* Z! ?7 e/ z% }( X: `) W, M
       "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}], 8 W% l1 a$ s1 ?/ J
      "}"}]], "Output",
    * _9 b+ l: k- g0 A9 c( {9 e5 l* G CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],8 n  d9 f( X1 Y! \% m
    2 x( ~3 F% B  x: r* |
    Cell[BoxData[
    . M8 j; w: u& f: y5 C1 o8 O$ | SuperscriptBox["\[ExponentialE]",
    9 y' t1 S) B4 @; @' s  RowBox[{"3.141592653589793`", " ",
    ( \8 w- d1 u- A3 E: i% ~8 g; P% I   RowBox[{"(",   [/ \2 Z5 M/ m! H) k, s: {+ o
        RowBox[{6 l+ z6 }0 F4 N& L
         RowBox[{"-",
    . C+ B- D7 x5 r, G1 A3 e      SuperscriptBox[0 Z, f5 E; M1 {; h2 T
           RowBox[{"(",
    1 g) g. t' D4 Z- w' N        RowBox[{9 a/ p+ [- i$ V0 t/ R1 }  ?/ J5 k
             RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", - {  O) Z, f* [. C' p6 D9 s* c
         SuperscriptBox[
    $ [' A3 e1 i7 f: V* y, c      RowBox[{"(", : ]* O6 i0 X0 }* Y" T5 o2 }3 K
           RowBox[{
    ( f& h0 L& k  J) Y- {8 g        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", + b. R; U! Y5 K$ ~
         SuperscriptBox[
    2 m; L2 U0 l* T+ F2 O5 r+ |      RowBox[{"(",
    ' W. T' m+ V" A( a7 q) x& o' ~       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
    ( ]" V7 j) {; ^3 g7 a& o. O6 Z/ r1 N     SuperscriptBox[$ p) A+ \* t1 v5 o  \1 n) m, c
          RowBox[{"(", & K5 c' T0 P, x2 x( Y  w
           RowBox[{( O* d2 k3 F7 H3 B7 q
            RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", 8 D3 @3 l. n! P+ f& i
         SuperscriptBox[
    - h2 f) @4 W- d0 L# o( ?      RowBox[{"(",
    + M4 n4 I  n9 `  ?: v       RowBox[{
      U4 l6 |+ y2 J        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", , O; X5 O4 {; D+ d7 s) W$ d/ [( S! u
         SuperscriptBox[
    # S% V8 R# Z% R# |6 y2 L      RowBox[{"(",
    : t, ?4 c: h2 j, \       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 8 [7 l1 n, _2 e6 a
         SuperscriptBox[
    2 w) P" L5 L( v/ E' @( q4 a  B      RowBox[{"(", 7 L, n1 f/ T: G; Z, V" N; ^7 t. f
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", * ~1 x/ Z2 v* X: L
         SuperscriptBox[
    2 C% X: q) {- u* Z6 J; D      RowBox[{"(",
    ' U% A' Z& ~0 y  w, ~4 L- w       RowBox[{& c) y& m& ^: M
            RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
      q- e& P0 F# i7 h& g     SuperscriptBox[; Z+ S: h: U% g
          RowBox[{"(", + T1 s7 F( a! A9 S4 {& p! [( D
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    8 D% z9 U9 N3 N7 i& p    ")"}]}]]], "Output",
    5 c5 l% t# J3 @* Y' N- g$ |3 L CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]. P6 y% z$ i) J! A4 O2 h( ^
    }, Open  ]],# _( v# c: p' w' y. g  K/ \% i, J
    & l3 v9 X: O. S9 P# F( |
    Cell[CellGroupData[{
    7 a0 [# }6 y- V: A$ `6 C
    + R" F" h4 {7 n/ Q3 aCell[BoxData[{
    3 \9 i% c5 u5 m' r- h# a RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]", 9 z" U* |: \* o% ~5 o0 N' A% ?* q# I( D
    RowBox[{"u13", "=", 3 ?5 H: }* S* z) x9 h3 c2 s
      RowBox[{
    / X) W: ^; M# S" n   RowBox[{"Exp", "[",
    ( z. d( b6 c2 b: N( G2 y$ T    RowBox[{- n# [1 h% r2 s, T% M# L+ k
         RowBox[{5 M; w! P1 a$ A" X: k
          RowBox[{"-",
    7 Y  [1 s# K# }+ G1 W! @: x# x       RowBox[{
    5 L* e1 z4 y3 a+ z        RowBox[{"(", 2 A  f; N7 ~4 M" }8 i$ d) L4 Z
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    5 h0 [% a! ^. g4 I1 L  {7 A        RowBox[{"(", 8 C4 `2 W0 O) I& d1 Y: i
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],# I! D3 n7 p, T( f! o
         "]"}], "/.", "DeltaX"}]}]}], "Input",% U( c' l: ~( K" ~& [# D
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ) |' t/ f1 v9 e  t  3.57796154237158*^9, 3.5779615599684105`*^9}}],
    + l' S/ F! ], x' j
    ! N# Z4 _0 b+ o$ Z' k. d5 PCell[BoxData[! N: C) X4 M" f) S$ f
    RowBox[{"{",
    5 G0 _% u! ^' i, j3 ~7 r: R  RowBox[{) K6 v; N# f! C- j; y3 X0 G/ w
      "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
    ! Q1 h# y  }* E1 R7 r  y5 u   "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
    + h9 W; o8 G  J9 F  "}"}]], "Output",$ V8 R& B  o& R4 Q8 c' o& ^6 M! c
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],+ N' u4 s, B# Q+ E: ^9 C# V
    # x8 P3 L' M3 [/ @# p% v' q
    Cell[BoxData[* @0 E" D* O2 z
    SuperscriptBox["\[ExponentialE]", 1 [3 j( p8 `9 K  J$ E
      RowBox[{"3.141592653589793`", " ",
    2 @6 Q$ T* ?& r2 R9 l* \   RowBox[{"(", / s$ g4 x" T( v; D5 @% O. Y
        RowBox[{
    9 p1 ~  S7 y7 I6 j     RowBox[{"-", " a2 L! q2 a2 S  x( F4 C7 W$ s
          SuperscriptBox[7 k3 [# {: J4 o% p7 A( ?, y; \1 d+ t
           RowBox[{"(", 1 A! ^% {' \' Q* `$ q
            RowBox[{9 j) }- }- o; Q' n% v6 D% p
             RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    " N# b4 [1 o+ l! z5 W+ P     SuperscriptBox[
    , }/ y$ J9 [4 Z1 n      RowBox[{"(",
    5 I; b% Q, |0 B3 r5 e. U       RowBox[{8 G6 f3 F& d- n% M- x# l
            RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", - @3 Y# l" \  i" V; J, o
         SuperscriptBox[& J3 N- [5 h' J2 k5 E, a9 A2 K+ l! ^- H
          RowBox[{"(",
    9 J' c/ E; j1 X- y       RowBox[{
    6 b! K. W! q. _. p        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    ) M: f* m; ~, L' s2 U. a: p     SuperscriptBox[
    : _: Z$ E' f5 {: G! U+ r      RowBox[{"(", 8 m: u6 D  R" |( g! T1 d! n
           RowBox[{, Q2 V5 i3 ~" {0 }2 x( _
            RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-", / j- o$ i5 \% x- G# F& _/ s2 o! I
         SuperscriptBox[- d3 b3 m0 p8 a3 B/ D$ F) A
          RowBox[{"(",
    / s: }6 |2 L8 ^& N       RowBox[{
    8 `- V1 }; v& I        RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", 9 B: Q- w1 o# X- A& ?8 s
         SuperscriptBox[
    - _/ b# C9 h7 E3 ~: A7 {      RowBox[{"(", ) }  ]# P% i. r' @& _# T8 A
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    7 _2 q# S: }, c5 g. `& h     SuperscriptBox[
    8 {! g7 c/ z% u$ u, L# |0 ^      RowBox[{"(",
    / c4 ~$ B+ A. J$ S" E" E       RowBox[{
    ' X( T! P2 U. D3 R1 i        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", # N% |0 V; R( a. _7 V4 p
         SuperscriptBox[
    ) U2 B$ X. ]0 I& x      RowBox[{"(", ( G. v  Z( `1 ]9 P, m' O  {  B
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    4 U) u2 h$ r: D4 [     SuperscriptBox[
    ) A) T' Q: h0 z) f) H      RowBox[{"(", 3 e* V. o. b/ j( `; v% a$ C1 B
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], . S( C4 i) `( f$ [; F# M
        ")"}]}]]], "Output",
    & Y8 \( R0 }' M% d& \0 e CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]1 o/ S3 A) G# L3 f  f$ B
    }, Open  ]],
    7 c, o, F3 k) ~
    ! b5 G1 q5 X& _- nCell[CellGroupData[{! z% a' b. a* v  M8 ^  Q7 A( ^/ ]6 T
    ' v5 E: {' X0 n9 s& v
    Cell[BoxData[{/ R( l+ ?! I- A: h
    RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]", . J3 _2 @0 M. ^9 w3 Z
    RowBox[{"u14", "=", % G% J7 G/ |5 l9 c. K
      RowBox[{; Q; l+ d7 C6 g0 h! L1 a5 w
       RowBox[{"Exp", "[", ) A  `1 D0 T7 B. G+ _
        RowBox[{
    ) k2 u* L9 P; L     RowBox[{
    7 ]% W# a# ^* n4 M7 O      RowBox[{"-", 5 x) o+ f5 ~; X" o1 @) h$ i
           RowBox[{
    4 Q& O) P4 t& z+ s" t- e        RowBox[{"(", 6 v2 O1 f7 i+ a+ j7 `. J  }1 _
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", % t3 y$ e+ U: D$ x4 a6 ~) N7 r
            RowBox[{"(",
      J' }& ~* q3 m  A% c         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    * d+ J3 c( [, T! V8 ]     "]"}], "/.", "DeltaX"}]}]}], "Input",  }4 F6 O, o7 R( s+ e0 c; A: y
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    3 U. K" M3 M$ a  F& A  3.57796154237158*^9, 3.5779615663176217`*^9}}],
    # B, b: i: O0 l1 Y* v4 g, r
    ! N1 v6 Y( j5 X/ T$ g% Z% z, X9 f: z: G6 CCell[BoxData[/ p6 y/ m6 }3 b
    RowBox[{"{",
    5 r5 A% W& _( u- V0 q9 n. b. u  RowBox[{" Y: G7 T8 R2 Y+ N) W
      "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", 4 i+ g$ M* T) x& p: i% m
       "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 2 ?& Q8 l* T: h' N2 ?
      "}"}]], "Output",0 N4 V' R0 D! s* Z- X4 r5 }( H; Q7 V
    CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],  O  a; {# f! |0 E$ b

    - H, c: Z: J. c4 l7 I% ~4 QCell[BoxData[* m8 o5 A2 O) D' w
    SuperscriptBox["\[ExponentialE]",
    - @5 V3 Q; l1 K) \9 N" V  RowBox[{"3.141592653589793`", " ", + f5 Z3 Y% |9 N9 \& L
       RowBox[{"(", " |% X7 j& C' {4 ^( d9 n
        RowBox[{6 ]  C* L& B, c/ I0 D
         RowBox[{"-", 8 Y4 e, K/ n  @4 r
          SuperscriptBox[
    4 p, @7 D# d+ K: l       RowBox[{"(", + s$ P. H, `) j: W% M; r
            RowBox[{
    0 E& N9 E; O( |# r2 D  X2 K5 o9 V         RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-", " z( z' M% U8 _, k, P' u1 k
         SuperscriptBox[4 S0 u. |' i: G. ?% k3 {+ ^/ k) M
          RowBox[{"(",
    $ \! X. A* a7 m& e$ X       RowBox[{/ E9 b7 p% @) ?! `# `8 b" y
            RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", ; Q4 k. b; a1 s9 v1 n! H
         SuperscriptBox[
    8 x! m- m3 {2 O$ m- U- K      RowBox[{"(",
    3 [1 o* s; p6 e! z# B+ r' `       RowBox[{
    - Y; q: V4 i5 X' A        RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", 2 l2 h' {$ e5 N/ @- l4 A: U
         SuperscriptBox[( C2 c0 \) C8 |% |5 w
          RowBox[{"(", 2 L! A" t) k& S! B
           RowBox[{' O/ e  a$ E! h8 O5 m' X
            RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", 6 W) N* s( `& t9 L/ R- |. R
         SuperscriptBox[8 v; y  E4 O- o, \
          RowBox[{"(",
    * q7 W, k" n0 a$ i* z       RowBox[{* v4 s' q) v: s# b
            RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
    " F  h# u$ i) t' l4 R  w* i     SuperscriptBox[
    # W2 s0 f- h7 e; C( K5 r7 r      RowBox[{"(", ! l+ `! I" Z2 A0 Z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
      _9 ~8 X$ ^! e6 f9 }3 E" j+ ]5 q     SuperscriptBox[9 E/ Q$ _0 L! `9 B4 u6 y
          RowBox[{"(", / L4 {% I: U4 x& M. D' U
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
      Y# z+ {! a" t" ~     SuperscriptBox[
    4 l$ y" A, @* o7 c1 i# [% v      RowBox[{"(",
    - y$ z5 h/ x" t1 k" W+ Z6 b0 p       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    8 e7 B5 F& L, F) C     SuperscriptBox[+ W( a9 r- g. c8 j9 h
          RowBox[{"(",
    - ^) k2 h( [( A; M$ Q       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 6 H: U1 ^5 D, b3 W' Q7 m
        ")"}]}]]], "Output",* w8 j+ V. H4 a; o* o' b7 Q
    CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
    7 R7 ]9 U" w& `3 I& G& R. e}, Open  ]],
    : }9 F% a  t% G+ h& A- _1 n1 T% Z  Y
    Cell[CellGroupData[{
    0 W1 H2 J, T8 Q. s
    & s  @. Q) ]% t# {  o( d( ZCell[BoxData[{) [# _$ D4 F" f0 }
    RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]",
    $ @1 r) W5 f+ B" E- I. }* S RowBox[{"u15", "=",
    ! A2 `/ x# d* T$ _" P  RowBox[{4 L9 N+ {5 V/ D
       RowBox[{"Exp", "[", ( P  ?* H1 ?9 z2 J  c, u/ O
        RowBox[{
    2 Y% b/ i' J) L. i9 [3 t     RowBox[{  x2 u6 H- Z! I  V
          RowBox[{"-", . I: B* R6 o3 f" h& N( O
           RowBox[{
    * T8 I3 ]+ }) s7 }& u: N        RowBox[{"(",
    1 m' U# i% e, F$ Y" |         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ; b9 c- |% M2 f2 g- |! h        RowBox[{"(", * e4 [, J$ q- J' g! O% w4 o" x
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],# R2 {7 k* }" j  C9 s+ {2 i
         "]"}], "/.", "DeltaX"}]}]}], "Input",7 y' L7 Z1 Z2 M* t6 r
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ; X8 h- c: ?7 _& |& a/ A  3.57796154237158*^9, 3.57796157098203*^9}}],3 L! u' J5 c5 Q

    % i. q! N% U/ T. H, ICell[BoxData[3 O) f9 q! _) P8 H& s1 n/ a9 q
    RowBox[{"{",
    # Q! z8 a: V3 ~% |2 D+ B( Y  RowBox[{9 ^" A1 I2 k# Y0 y/ U& D) g" h
      "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
    : H0 O( n( l. z, g# l   "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
    9 h4 N! C8 }) t6 I! f& ?& b8 Y  "}"}]], "Output",
    ( N6 G, V' _# K( D* U2 R CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
    : y. |1 {+ |$ g+ p0 P' {; Z9 \) q  W3 ?$ J$ H' q! Z' d" k
    Cell[BoxData[
    5 e9 `% |) r7 h' T( C SuperscriptBox["\[ExponentialE]", 6 }8 G* V1 M; O% B- A
      RowBox[{"3.141592653589793`", " ",
    # ~" p6 ]3 b+ J# G   RowBox[{"(", $ s% x% i1 p1 }
        RowBox[{
    " ~# `( H6 z7 T$ V' D9 X, W" I     RowBox[{"-", 3 G% A4 X, j1 M: D4 ?7 S! S2 _
          SuperscriptBox[
    9 v3 V% `0 g' q. F/ K' k' K# G       RowBox[{"(", , N  F$ g$ s$ z% H
            RowBox[{
    3 K* @, A* @/ p! P         RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", 7 }& }" H8 ~3 i6 i1 b
         SuperscriptBox[
    ' t! H% \& Q* ^      RowBox[{"(",
    : Y+ j. ?! z1 L+ M0 c9 c: [' m8 u       RowBox[{/ r( ]) [6 `( j" J3 p: l
            RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-", ' ]3 w1 o8 X5 D" s$ a
         SuperscriptBox[- Z( x" g, P3 w2 q- t% o: _; |6 R0 T
          RowBox[{"(", * F8 M' x7 I! s! W& ?0 D
           RowBox[{2 j& ^7 }1 W" |9 Y: k4 o  [
            RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", : b# [* y+ X7 @! T. v* ?
         SuperscriptBox[, P+ Z  ^  L  p4 E
          RowBox[{"(",
    " ]0 ]$ H& j. q+ E- m6 o2 u       RowBox[{$ o* L! [3 p/ K! f- h$ ]9 t
            RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-", ! s0 m- \- }1 f) e
         SuperscriptBox[6 p9 G3 }" f2 H
          RowBox[{"(", 6 V8 D  R# k5 H9 r: `
           RowBox[{
    + U2 q; o$ [) v& U# \        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", 8 B3 y  }5 J1 s
         SuperscriptBox[# k& ~& O. \& z2 K
          RowBox[{"(", ( ?5 d) \7 n$ I% v. `5 A$ p
           RowBox[{, j/ U/ h1 D3 P) K3 c
            RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", ; G9 k# G# V9 E6 G0 K+ g  U
         SuperscriptBox[
    5 w5 |! Y5 v; I) }4 Y& N      RowBox[{"(", " Q! ]+ A, g+ p% U( {' C6 j
           RowBox[{* H, f! Z1 o/ O9 N
            RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    : T9 T5 i" d. ^! I- A+ @) G     SuperscriptBox[0 b+ k( X- g3 t# u
          RowBox[{"(",
    # \  F' E3 d) D       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    - J0 m. b" A. E     SuperscriptBox[
    1 U6 a, G$ I$ q) U, a1 E      RowBox[{"(",
    * \9 O! _% h  a; c       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    % ?  h/ }9 u+ e- u/ o- T) o/ W    ")"}]}]]], "Output",! I  J) x6 `* \: S* x$ j
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
    , Y+ o6 o1 D& P; W" k}, Open  ]],5 r5 O, C# b; w, u4 t

    3 ~" y- M  @& A9 ^# e$ \5 xCell[BoxData[& e; F1 K6 Y( C0 `( p8 V" Q
    RowBox[{"For", "[", % n- n4 |7 @3 M' j6 l) v( _9 t
      RowBox[{! L8 C! }/ a+ C- k" O3 U; n
       RowBox[{"i", "=", "1"}], ",",
    2 C( N0 u9 Z* D' Z   RowBox[{"i", "\[LessEqual]", "9"}], ",",
    + N9 j, t' Z8 l. O6 i7 L0 {   RowBox[{"i", "++"}], ",",
    & d/ m' p3 R' _% w. c   RowBox[{
      Z/ x1 P+ x" F    RowBox[{"Ca", "[", & @8 j5 v! ]3 E4 i& A
         RowBox[{"[", "i", "]"}], "]"}], "=", 1 X$ `: S6 s: T- x1 O9 l& G
        RowBox[{"CM", "[", % P+ @' l3 f2 a( o" I) e$ i' H! n
         RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",7 _1 D. k/ T. p4 d* B! V
    CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
    - G& Q0 T! h; y( h! B# d& S5 H# y! ~3 Y& _5 Z. x8 E9 M3 z
    Cell[CellGroupData[{# {- z5 h- Z5 r2 i. @1 {# s2 r
    ) I1 u: X* y  S
    Cell[BoxData[{. L# i) s, x0 F$ B! G+ v; L
    RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",
    $ f! n# q- u" M; X/ R* K RowBox[{"u16", "=", , Y$ U; Y$ w' m7 l) m
      RowBox[{1 U  a. b7 S1 q8 p) a1 T6 _: W! y2 W
       RowBox[{"Exp", "[", ' |4 y+ x- D2 C5 P( T
        RowBox[{
    - N. n3 h# v' R& D0 j     RowBox[{
    8 F7 K% K/ l- m2 r5 N- u9 F3 c      RowBox[{"-",
    1 ]" a% \& J; o% ^- p: i* f       RowBox[{  R# ^; k: E0 |# f4 n& L! A
            RowBox[{"(", 4 T: N. B7 \* i' y
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", - {4 A9 T7 c1 e3 S' S6 m
            RowBox[{"(", + d: i1 h& z& A9 f% }0 T. V1 f$ J* J
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    $ J, w' I) v+ _2 s0 F     "]"}], "/.", "DeltaX"}]}]}], "Input",
    7 w8 h2 K7 \1 u0 l' E! N) b CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    : M6 ^" ^8 n  f# l  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
    % w2 t8 n8 O" {: A  3.5779615751004367`*^9}}],% S, p8 M* g- P& |" b" R
    $ L) p) M9 S' J4 N9 M: k7 l
    Cell[BoxData[
    4 v0 ^5 x. n/ ^7 l RowBox[{"{",
    ( B* [, l& s  s) I: l  RowBox[{
    2 C, K, N, `3 r6 P9 f6 e) E  "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
    8 ]" F* }3 D9 `' g' u7 J   "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
    % U3 J2 `- L' H( A* J  "}"}]], "Output",$ m) K' l; G# [3 B
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],( j$ L7 P2 a8 {
    3 }4 B3 [! T, e4 ]0 i4 u
    Cell[BoxData[
    4 x& s2 O3 u0 L- M- s. _7 @! ?' c+ @: C SuperscriptBox["\[ExponentialE]",
    1 q' c+ b; t. Z  RowBox[{"3.141592653589793`", " ",
    + c: O4 b! N  Z: [: k   RowBox[{"(",
    + ]# c) N6 {: j% U    RowBox[{
    ! R- p, f: [+ o( o4 D6 K7 s* `+ n     RowBox[{"-", # Y5 F$ n8 m6 O( S4 u2 Y3 ~) b' U
          SuperscriptBox[
    6 X4 K/ y( v( N' Z5 n% V       RowBox[{"(",
    6 {5 i1 q. Y8 l; n/ H        RowBox[{
    ; X: {. L* O7 B! G         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", : @4 R  F4 R8 t4 H% k; \
         SuperscriptBox[3 t, {7 X( w! i/ D% w  Q  e
          RowBox[{"(",
    6 {7 {" x6 n4 X9 q1 [( I       RowBox[{
    8 I3 o! B/ j- ~9 S, v        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
    ) G/ _) B6 |  r- W* y1 j     SuperscriptBox[
    2 ]7 k* K( r( ]3 U      RowBox[{"(", . X% K+ {& \9 S- a6 C# _4 P4 N
           RowBox[{
    # n% E% I  e  p& _3 D3 w1 f4 a        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
      @! w2 K; g' i# V/ `9 i' l     SuperscriptBox[; j' F: x/ n, ^. l) m: v
          RowBox[{"(",
    2 r2 {% v. O& q- m4 o4 F$ {( b       RowBox[{
    3 V0 `: `; V5 G        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", / }$ g$ W# }; F/ `& K' }" `3 ^
         SuperscriptBox[+ b" N4 \$ \" f' y
          RowBox[{"(", ' v8 D9 M, ?; c( F* d4 d4 \  V
           RowBox[{& u5 U0 g% l2 M0 h
            RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
    & o8 f8 v; k+ P# l5 t$ Z) `     SuperscriptBox[0 Q- U& V3 n- G
          RowBox[{"(",
    + [( z+ |5 X- E- D6 {4 Y  \0 z       RowBox[{8 p  U/ v  N1 o; V& F% f
            RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
    4 V, U7 [2 \/ {. e' `0 R     SuperscriptBox[
    " ^; W# j( M: d0 ?8 O      RowBox[{"(", 5 Z! ~2 m% r2 D5 q7 V: P5 ?7 i
           RowBox[{  Q# C; \' ], k' t5 b
            RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", ) `" Y+ B3 q5 g! F
         SuperscriptBox[
    + U0 o( Y: T( F      RowBox[{"(",
    , H* Q) J. O; x3 Z9 b! |: a       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    $ n+ C1 n7 M1 G1 \4 f1 ?     SuperscriptBox[' A$ V1 Q8 V* K
          RowBox[{"(",
    1 y5 K. M1 f3 z/ A& q4 m' w0 q       RowBox[{/ g3 {2 F9 i: t8 |3 h, X( F$ G
            RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",
    0 B. L! @, N/ ~( ~1 C) Q/ J CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
    * Q/ h; t$ Y1 t/ N' _; I4 a}, Open  ]],2 T; |: a: N( ]2 `
    0 U# o0 G1 y; p6 r7 s
    Cell[CellGroupData[{& C$ f7 Z" q/ q8 L5 {( p
    3 j# R' H* R. ~" Q
    Cell[BoxData[{
    3 F2 Y: y7 d3 D3 n  ]/ b5 h RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]", ) ]+ i8 A0 u' j& f, K% B! n  n, v
    RowBox[{"u17", "=", 4 R7 n. `) {" O9 ], B
      RowBox[{
    " K- o0 q8 M3 e4 e) W" n  |   RowBox[{"Exp", "[", % v; D+ m6 ~/ V& \$ n* I2 t
        RowBox[{
    $ `$ h' d+ }. Q' }: g: y. f     RowBox[{
    2 H$ O# \; j  b# c9 [; z" b      RowBox[{"-",
    0 B+ V2 |3 r5 V' L- ?! j- R, V6 B       RowBox[{2 n& t3 k+ x1 G
            RowBox[{"(", 7 C2 W5 I1 i, `4 o1 C
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ' l# R5 g7 ]0 f. e3 L8 _- g' _6 S& J        RowBox[{"(",
    . ~6 k: ]7 G" p3 Z7 K* b  q         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    / S% Q  G9 H% B3 p2 {     "]"}], "/.", "DeltaX"}]}]}], "Input",, ^0 [! X5 x8 e% x$ ]
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {( S# n' ^' a8 ?3 O9 c0 a+ L5 m7 s0 S
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9, ' i2 d' ^* a$ r" e
      3.577961578953644*^9}}],4 K& y. M; C7 t' b2 D/ _0 `! h
    ! q) `: J8 b" a, F
    Cell[BoxData[/ g4 h$ A/ e8 D" k/ J* \
    RowBox[{"{",
    , z; k6 r9 _. j9 I6 o1 ~1 Z+ A  RowBox[{
    ! E/ t2 X1 C( Q' `& c  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", ' W, |, }+ c& |6 K1 g  r
       "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}], 6 c: e' ]* w; i" K3 n. G. W, c
      "}"}]], "Output",
    4 b9 t% x) l+ G" d0 U  k CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
    + B3 ?/ h8 W# ?1 P* X9 O# I  k9 A' m3 Y& q* w3 Q
    Cell[BoxData[
    5 J- c3 l! J9 }: r7 m* V. g, | SuperscriptBox["\[ExponentialE]",
    2 Y& J4 K1 z: b  F" j1 m) H  RowBox[{"3.141592653589793`", " ",
    6 n3 X' A9 Q" o% [2 Q/ b   RowBox[{"(", / j$ L5 Q4 t) s/ _) v$ \* W
        RowBox[{
    ( l. J. ^( ~4 M8 }     RowBox[{"-",
    ' \; d/ s8 K$ R( U      SuperscriptBox[9 ]8 j8 c* d) l$ R3 }5 X& j7 [
           RowBox[{"(", ; h; a  s$ t9 U) u6 O9 C9 M* C
            RowBox[{5 \, d) i1 b8 F( [
             RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", ( w/ a2 E3 Z6 B
         SuperscriptBox[" o8 E7 y+ @$ }. J
          RowBox[{"(", 6 E* E/ [! ]" x) Z7 ^1 _
           RowBox[{0 O' m7 v. N( d: J' j) e
            RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", & n! ?: ~# A3 V- }! {+ _$ ]
         SuperscriptBox[5 @( H% q: T: D* l" k5 N0 h
          RowBox[{"(",
    : }! c$ o; u4 _, g       RowBox[{) ~9 ?+ d: `$ ~7 h
            RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
    9 ]9 H! D4 r3 h& R     SuperscriptBox[8 W% n- ^, |3 ^  x
          RowBox[{"(", * z# y) u  r" u  |5 i
           RowBox[{
    5 X- {. a  Y8 X; m& B! ?        RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
    5 G& }; I" W5 w( C5 ?     SuperscriptBox[0 i# ^+ @' y+ ]. U) \! H( D4 i/ P  W
          RowBox[{"(",
    ; k+ S$ H$ S' c" Y       RowBox[{/ ~0 Q1 T# J  N
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", ( J. y6 Q1 j: @4 o5 D6 z
         SuperscriptBox[: a8 y( r3 M+ q" t3 p
          RowBox[{"(", / h5 r. \  v: d3 ^- x" r
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", * J( D7 a' c6 e. K2 D
         SuperscriptBox[
    5 ^7 k% V4 x0 z% |/ h" `# T      RowBox[{"(", - e8 B% q3 X% q% Y, b! ]. |
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", + b! Y- u- R# ^
         SuperscriptBox[
    4 ?, B; d. |9 Y# E' k) H/ M( }. l      RowBox[{"(", 6 u& @0 W# W; g4 d3 T& u; Z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    4 ]+ ]( o3 W2 `5 X- A4 a4 l5 O     SuperscriptBox[
    4 k1 S: x; O: V+ r3 c9 L      RowBox[{"(", ' K& V" `8 [$ n6 r. _+ M* k/ d
           RowBox[{
    1 P1 j9 c) O9 i% O5 |$ s" Y  [        RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], # o2 e3 r6 y. M' G
        ")"}]}]]], "Output",$ Y# U: w! q( I
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]9 V4 t' m# A* _& m6 B
    }, Open  ]],* t( l  K% D/ u2 l$ t2 q) r; s

    " R' t' t0 t8 j6 |1 FCell[CellGroupData[{
    5 c& u  S, }1 n- w7 G$ V
    ' f5 ?- c( D* u% n3 Y; \% wCell[BoxData[{
    2 \/ _. a! Q$ J) R( Y: H RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]",   b+ q" j6 |  |6 c, O, K6 A7 X
    RowBox[{"u18", "=", % i$ T8 r3 d) x; C( P; C
      RowBox[{: h" |$ s4 d0 _6 n' U, n; L
       RowBox[{"Exp", "[",
    ' t% x; Y; v% n+ M9 K3 Y, p  I    RowBox[{
    : a! W& @) q, R8 W8 O" b, M     RowBox[{
      J9 E6 i) ]- ?% `! `$ \      RowBox[{"-",
    4 N3 t& N# c# B2 s, m       RowBox[{3 E  R: Q4 e1 X: E2 ^( S
            RowBox[{"(", / K% S& L; h! @0 y) b
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ! F$ H3 F) O& X* A- M) I
            RowBox[{"(", & V! r5 Y4 X1 T$ N* p2 g6 d8 K
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],. t& q) i  r5 _4 ^, k
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    . \$ }( f: a5 O  C5 l( s CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    1 {9 c/ G$ q  t0 P: Z$ Q9 K  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9, # d& Z* I( R( a, y
      3.5779615828848505`*^9}}],
    ' J& {9 Y9 V& B" V
    1 }$ j1 U  i9 z0 _$ \Cell[BoxData[+ S, d) M) Q6 P- A( k
    RowBox[{"{",
    ' o% Y. g8 ]- p  RowBox[{) y) j- \# e* V. M! I! P' p) t5 c
      "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
    5 K& R1 U: i1 T: U& f   "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    ) f+ n( p; g9 J, O3 W, P  "}"}]], "Output",$ o) l- h3 r( w0 U! w! C
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
    5 K' z/ l0 c3 i" l) E5 E5 Y! v5 a: @# A- ?% S! ]/ s
    Cell[BoxData[1 q2 v2 |( ?9 ]  d8 y2 ?6 O
    SuperscriptBox["\[ExponentialE]",
    * t4 V  V7 g6 e/ _% L4 y  RowBox[{"3.141592653589793`", " ", # V4 a4 l: O* ?* h3 Y% A2 y
       RowBox[{"(", 5 `% N1 {4 f, s2 V( w) X
        RowBox[{
    4 M+ g3 _6 A5 l9 C     RowBox[{"-",
    + B' p0 \& I# t: Q7 P6 _( o/ ^8 ~) t      SuperscriptBox[# k( |0 [, @5 s" F9 i
           RowBox[{"(",
      Y- z$ z6 H; A3 U        RowBox[{% Z4 q- C2 A. w6 |( r; o" A
             RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    , D0 t8 d2 F7 Y7 s" T) J     SuperscriptBox[
    * l3 L7 a0 d8 a7 |2 J& ~      RowBox[{"(", # n* X1 ]- S6 Q) V+ v
           RowBox[{1 i) H! D8 H: W1 p' W
            RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
    6 O7 v, b; i) a( O     SuperscriptBox[( Q# ?& c- s. h
          RowBox[{"(",
    $ M) Q: ]0 R( ]2 Y$ B! i       RowBox[{
    8 R' S# X1 M0 }2 _2 P. A        RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
    + f9 D9 T+ d, p0 j' ]9 q% T0 n7 m1 k     SuperscriptBox[. G! D! ]6 W7 Y' Z- ~& H
          RowBox[{"(", # `; l" C& m3 _/ I1 r) Z1 b
           RowBox[{
    % j" }' R+ u3 Z7 F3 I, p2 ]* j) n2 k        RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
    - N& U7 w; u4 d5 n% n9 A& q9 R: D     SuperscriptBox[
    7 a/ D9 W) I2 D      RowBox[{"(", 0 C2 W9 p# {5 f- q' c  ], y
           RowBox[{& L% u9 z: w8 Y3 J& c& ?
            RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    # H  q$ ?7 x& J% a1 R% s, B1 r     SuperscriptBox[, p2 i3 K8 u) _, y7 t0 U4 X
          RowBox[{"(",
    3 k; o& O$ y1 A4 s* _       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    , ~8 ?, ]* `. i     SuperscriptBox[: P( U$ Z, x6 Y% O9 p
          RowBox[{"(",
    ) a; {) v/ b3 U5 i2 V4 r+ I/ s       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ! ^* K! E3 N$ ^4 h/ q
         SuperscriptBox[. e$ _6 |6 D' |! f9 z) e2 O
          RowBox[{"(", 9 J3 N- _: a0 O+ W% m
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ' o, |. R3 {5 ]7 ]& C6 Z3 x
         SuperscriptBox[
    & g4 n1 O* a! w; m! U4 B1 K      RowBox[{"(",
      C7 t3 s0 R2 A- F       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    , m; G' N( k3 \  O! y    ")"}]}]]], "Output",
    9 T1 k( j/ o- x0 P& p/ E CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]
    / M7 G6 H3 X6 F! G7 E}, Open  ]],# j3 L; _8 P/ K) X" l5 b
    ' \& z5 \( J. e7 O
    Cell[CellGroupData[{( J7 o9 F, ]' Z' O' M

    ( n5 `; u& n& Q; BCell[BoxData[{/ m* \% ?- \' ?: a
    RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
    # B, R: _6 T" I( z RowBox[{"u19", "=", 8 ]. a6 r4 `: V3 j" i
      RowBox[{
    4 ]& N; D/ ~4 R0 `   RowBox[{"Exp", "[",
    2 N1 _2 v! y1 ?, Q    RowBox[{
    ) P  \  I. y4 A8 f1 k7 }) j! i     RowBox[{
    . }: q! f* H: q5 B      RowBox[{"-", " n+ K& \- u- ^9 a8 d' N. ?
           RowBox[{) }- u. V# _, \' j
            RowBox[{"(", * d9 R1 f1 z3 e, Z( J0 `& y
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ( p* {4 \: o% e8 X  B& p        RowBox[{"(",
    & d2 G$ Q  v2 A/ E         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],+ N, v% S/ f& P& p. H' q& g# z
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    1 |6 {; n0 k2 g0 \9 V5 T CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {1 X+ f/ e5 W, s7 o0 K. x
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, . M& Q  U8 e& q6 `* _" ~9 I3 g
      3.577961588890861*^9}}],
    4 v6 Z* k- Y4 k8 w. ]6 ?! \, \. K7 D
    Cell[BoxData[
    - n; V5 |# \# \& ^+ n RowBox[{"{", $ n1 o: N* e0 `" {4 V7 q
      RowBox[{: c/ R5 t5 r+ U9 r& p, I# V/ j
      "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
    # L$ f  b- _0 _7 m. a1 n   "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],
    : f- N: F" v. Z% T& N& O  "}"}]], "Output",2 \( M  P" X& L& }! g1 X* d2 o
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],3 h5 `% c% j- [
    ; W# q8 W* n3 I0 a
    Cell[BoxData[
    ; f  i5 ^3 ^9 b0 L( p, Y) j' Y SuperscriptBox["\[ExponentialE]",
    ' L  y+ l% V- ^( w2 e3 z8 r* c  RowBox[{"3.141592653589793`", " ", ; j- y7 G0 Q/ K; [/ C3 p! V4 s
       RowBox[{"(",
    9 k" F9 v2 ?7 z' u  v+ a1 @    RowBox[{5 T$ k  i& M% D! W2 B# x
         RowBox[{"-", , ~  n0 z' s% n/ `: X+ p7 D, b
          SuperscriptBox[2 l4 j. N9 D& \" `1 v) p  @
           RowBox[{"(",
    . a! R( u0 Y1 R: q: O        RowBox[{1 [+ ~4 S  \$ \3 E  [! s/ N9 A
             RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
    . }' _- K& Z( M1 o7 g/ m' H6 O% J  @     SuperscriptBox[
    0 G; N. b% G( @  E) z8 E2 D7 u  A      RowBox[{"(",
    7 L' [% T2 U/ e% T( h/ o4 o" }: }       RowBox[{# `& ^9 e8 N7 }; I, a
            RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", 7 [# W1 W% I1 K9 ^$ |" m
         SuperscriptBox[
    ) f, T- r3 s8 V      RowBox[{"(", ( d0 [2 v# I$ c' C
           RowBox[{) H3 ~! P( y# h5 k/ D! |
            RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
    1 R8 o6 L1 L; K# i7 q' `7 r     SuperscriptBox[0 }/ r4 Z) v1 B3 ]/ u1 e9 v6 P
          RowBox[{"(",
    4 e2 a6 a+ D* J) D( ^9 t5 m; k" V       RowBox[{
    9 f. q$ K, D1 i3 X        RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
    5 {( f6 t+ R7 P  e     SuperscriptBox[
    5 Z# M. ~2 [6 ~  M0 H( O5 V      RowBox[{"(",
    ) Y! z; H9 Q: p' g9 t8 \       RowBox[{
    6 C1 t( {0 y" R: x7 ^' c/ I* K        RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
    8 y$ ~3 C* ^1 q' c     SuperscriptBox[0 v+ G3 M; T* y3 [* S
          RowBox[{"(", 7 Z" w# x5 I/ l; S9 u: r5 e
           RowBox[{% f. u; q  f0 Z% b8 W
            RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", 8 O: Z7 C; a" w# H5 p( k
         SuperscriptBox[
    5 d6 T7 h$ R9 B* L- T. U      RowBox[{"(", : v! n  Y4 d/ ^1 ~
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    % ^9 D4 K1 @" i- T3 \! H+ e( d8 U     SuperscriptBox[
    4 X& {" }- @- Q( R      RowBox[{"(", 4 P3 F' @8 G; H+ }9 x1 r
           RowBox[{( A; M! E4 B  j' `- p+ N
            RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", . _* r9 X& w8 t9 u  C% w
         SuperscriptBox[
    / n) C! y  o; u8 U      RowBox[{"(",   ]% a" z( U3 o7 m- X
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 9 @- }* c& |2 X# r4 \2 S+ Z
        ")"}]}]]], "Output",! j/ z1 t* b, `- y- B: T
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
    2 m& x5 F. s* |  ~; X}, Open  ]]," Y' a+ b5 u2 p& b) L, C+ b! A! g
    : p- V. d. K* I/ n7 U8 q% _' f9 [
    Cell[CellGroupData[{( P7 S. Y) v  O) N
    0 ~8 i% ^1 m0 b  H) e* K
    Cell[BoxData[{
    5 m% i. }% g$ [% }" J+ I; a RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]", 8 r4 H6 i; G5 d6 ?! \  D
    RowBox[{"u20", "=",
    1 \* w; C6 |; i" f. L  RowBox[{
    # w2 m2 M/ C$ e7 C; X! Q, G   RowBox[{"Exp", "[",
    ; _: o% g" D! S; y2 m* c. p% X    RowBox[{
    ' ]" z+ |# v6 a     RowBox[{6 j% i% l! h& }. c' I& X
          RowBox[{"-",
    $ a& O/ Y/ Z' Z4 u' D9 v       RowBox[{3 F* T; T9 U3 @
            RowBox[{"(", . G6 J2 X  n0 U6 v7 P! V
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ; e& B, T; u4 J/ A; v8 T! c" ~* N        RowBox[{"(",
    ; r# Q' O/ k) g         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ; k! o/ G" u* ^, s# G6 t     "]"}], "/.", "DeltaX"}]}]}], "Input",& i7 z- r  _0 x3 a
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {) d& k4 n4 R$ H' x' v! p  ?. R
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9, ( ~' S: b. D/ s& g
      3.57796159382047*^9}}],% h% S& {9 K1 n, g* T8 O/ U0 Q5 B
    & u' @" C( v& T  A2 ~; U: R0 d
    Cell[BoxData[
    4 C* v; Y8 g" `* U2 o) b# k RowBox[{"{",
    % b' x6 Q2 H7 P. H& k3 q+ O2 ^! u  RowBox[{+ ~$ d2 r+ P4 e& W$ p6 C" t
      "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",", 5 C. Z& H$ g- y# a* W
       "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
    $ u) }+ }" G* U& H  "}"}]], "Output",
    # O* S6 U% M. C+ C! f* J3 ` CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],
    ( `! Q& O' Q0 }* C: ]/ B+ d' h
    4 R5 P6 a0 d" K# e. CCell[BoxData[' O9 G2 s2 D( B+ X6 {
    SuperscriptBox["\[ExponentialE]", 4 H9 k1 w( \4 g) n1 M
      RowBox[{"3.141592653589793`", " ",
    7 C, r$ g3 C7 c) \% A   RowBox[{"(",
    " H! {& t4 S0 i  V9 g4 x7 i1 w/ @  {    RowBox[{, q/ Z: v* i; e" x) L4 K. P9 ]
         RowBox[{"-", / I; B6 o( {8 M* d7 {
          SuperscriptBox[
    ; J3 ]7 u2 n7 i) ~% X+ s: P       RowBox[{"(", 7 ]* E9 I6 F! F% a
            RowBox[{& Q; G" n/ |' W: G8 [6 C( j0 F
             RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ' n0 Q% _8 ]3 Q6 A7 _* ~     SuperscriptBox[1 k% o/ b8 F4 z8 c7 u6 I, D3 l( E
          RowBox[{"(",
    7 X0 |3 F5 U# V. v4 ~0 ?) O       RowBox[{
    : e. h8 U7 `5 s7 r5 x  Y        RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-", " b3 Y% x- k* [
         SuperscriptBox[
    . q) N, o, D* \# O3 d, z6 P8 ]* _: k      RowBox[{"(",
    ) s8 s; p, u& r% V       RowBox[{
    / y/ t" g8 @9 u/ ]  [4 }        RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    , c+ R7 u+ a% w) s     SuperscriptBox[: L2 N7 o( ^; S( H
          RowBox[{"(", $ j- f9 v6 ]8 O' }5 A' Q% V3 W  J# }
           RowBox[{- n! @8 I7 Q/ ~" B9 k. Q1 |
            RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", 3 H1 n3 g* {4 M
         SuperscriptBox[1 g' a0 J, @. m+ d0 n6 O) P! @
          RowBox[{"(",
    : u5 x) E& D# W- v       RowBox[{) l1 X6 J" z# d& d' H: V- ^
            RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", 8 ^: D7 m) f2 [+ m* N
         SuperscriptBox[
    ( P( u% u% s3 e$ n2 L( L      RowBox[{"(",
    & o3 R2 V5 O  L3 i) O7 X       RowBox[{3 o$ `& k+ {: o% o& n. J' h
            RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    / E( Q8 P0 S: P' M+ A2 w     SuperscriptBox[
    * Z. y/ x& Z* H2 S. [      RowBox[{"(", 2 W4 I0 D' e, J9 F7 o. a
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    ; Y: v) b4 `4 p$ S     SuperscriptBox[+ t5 `' p4 P) O1 W: w# g% p7 O& V; {1 Y
          RowBox[{"(",
    ' t! |) B' @1 @2 U( `0 V       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 0 g. t* @' \3 z; r  T4 Z
         SuperscriptBox[
    $ F6 I( K7 o- R7 [, M$ L# F      RowBox[{"(",
    # c8 W4 h, Z: A/ T: V9 Z6 T       RowBox[{8 r' i- S; F7 n2 |: R. Q$ Z5 c
            RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}],
    ' K/ h( I# y* H- A' M, U    ")"}]}]]], "Output",
      a$ w& U- u8 e  W& I* ~7 x- E# p CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]
    $ {  |) b5 a, r}, Open  ]],
      a' b) L* ?; I1 G7 q6 u
    + z1 _% B' p' B& }7 G) MCell[CellGroupData[{
    9 I9 M1 m# S/ g7 p8 ^
    8 K) p' E" s; _% y& u7 P; H7 wCell[BoxData[{' B" Y" z& N" n/ \( L" p
    RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]", 9 w7 Q( H: p/ {( d1 s6 X0 H+ Y
    RowBox[{"u21", "=",
    ( A$ C: H6 x' I8 D. @4 D' h1 {  RowBox[{. @- d5 y# ?+ D$ l
       RowBox[{"Exp", "[",   E, m: A. v2 R' c; Q+ M
        RowBox[{
    % h2 m0 G6 A% U# r. g     RowBox[{: a- V0 h0 }3 G5 L  _5 J$ r9 p: Y- Z
          RowBox[{"-", - m( r, L8 b/ E
           RowBox[{
    % W3 {2 J: j* Z5 ^% T. `& C* w        RowBox[{"(",
    # E6 ?! T- E) T% H7 t0 @         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    / ?/ |7 S8 R# ?0 u        RowBox[{"(",
    ! B+ a) g1 D- G         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],8 P7 K( i. ]) w9 H1 [, ]. M
         "]"}], "/.", "DeltaX"}]}]}], "Input",9 H" Q+ I* E- i3 v2 w
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    3 v% |0 e" D5 y7 W  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
    ; K- C# E, s$ B/ I: m% b: {  3.5779615991556787`*^9}}],
    ; ]( c  Z! Z7 x( S0 i* z4 e, N$ V) v! O% u" R( M! X1 N& b+ c4 S
    Cell[BoxData[, W( y0 k5 l/ d# \: ~
    RowBox[{"{",
    5 x2 h. H$ `' @, G) \3 T0 n* [( B" f  RowBox[{
    1 L  \2 x* k- b! l  t  "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
    / n! p+ E0 t1 ?" e1 d( [5 J$ P   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}],
    ; y2 c, u; R  l/ ^9 c2 f  "}"}]], "Output",& I" d" r# Z! |- }1 n. C: W1 x
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],; _- C5 Q" |* H6 z, M8 p" W3 X6 z
    % G! s) q, I, ?6 {# M
    Cell[BoxData[" b' f3 F7 p" p7 z
    SuperscriptBox["\[ExponentialE]",
    " G8 I0 h* g* [2 Q9 [  RowBox[{"3.141592653589793`", " ",
    ! R+ Z% O( T& U) Q0 q   RowBox[{"(",
    ' ], l1 T& |5 E* i' J    RowBox[{* V: K- o# {5 R" M2 b8 u
         RowBox[{"-", 6 F6 `+ g& J7 H# C- S5 D/ S( Q1 l
          SuperscriptBox[7 f6 v2 W# ~' a+ U
           RowBox[{"(", 9 g! E% V) ?/ b/ ]/ @4 r: e( m
            RowBox[{( {6 I+ m8 |) @: U+ E/ m1 w$ R
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", ) k3 J! I3 v! v3 T/ N+ f5 u! d) H4 [
         SuperscriptBox[$ w' j1 G4 w. T
          RowBox[{"(",
    1 h3 Z, S  t$ X       RowBox[{
    : O, C4 K+ g* `        RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", 7 m. g/ J: d" k7 J: o
         SuperscriptBox[* W- }& i! K4 M+ o8 B& @
          RowBox[{"(",
    ! F7 `( f/ L  J& l! ^$ f  I* Y       RowBox[{
    ( o' u- c7 A4 k8 a  |- J5 w# H        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", + x" Q( Q6 [+ t# ~% G7 A' e
         SuperscriptBox[
    $ ]7 p6 o) W' c1 m7 ]( t      RowBox[{"(", 3 L+ K  u; o1 I: y5 M' n
           RowBox[{5 r- ?3 q8 i' h# z$ X  ^$ y
            RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
    ' C) F. f$ D0 d1 u& d: G2 F     SuperscriptBox[4 T; `5 c8 _% E& a3 F8 @1 r# f
          RowBox[{"(",
    ! W' T5 ^* P4 p1 D4 A1 u- _       RowBox[{0 u1 [( E1 N9 ^6 p
            RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", ( g% v1 h3 m# j
         SuperscriptBox[, [$ v, V* R5 @; |+ n9 l3 u
          RowBox[{"(",
    ) W2 l" g$ I. s2 x. C( i       RowBox[{
    ) a2 Y" u7 X2 ]& N1 P) d5 Q        RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    % k8 V9 a- _1 f/ A* J) Z     SuperscriptBox[
    ! [0 i- |  g; y2 ]      RowBox[{"(",
    6 n% {) f# W6 P5 W3 A5 b7 A       RowBox[{- M  a" g6 L4 l. R
            RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", / T& Q& c, S- B
         SuperscriptBox[
    % e  b4 H( ]9 b, S9 p      RowBox[{"(",
    * m* T1 ^% g' c3 k( J! k6 l! c8 [       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", / P! i3 W! U* e+ w
         SuperscriptBox[
    / i5 l1 h- i$ `& \& \      RowBox[{"(", ; X$ X2 a9 e2 P. v
           RowBox[{
    1 {0 w9 j) X5 g; q0 m5 `+ w        RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
    ( |. }+ v3 A& N/ X8 I  J    ")"}]}]]], "Output",8 G4 B3 t4 X4 ?- G
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]
    + B9 R4 m' ^2 J, j: J) o6 P2 d}, Open  ]],
    ' a+ N6 O) J: p
      J( e. T: \) W' FCell[BoxData["\:62df\:5408wi"], "Input",
    ( ^! G5 t: K. e3 h$ m" n CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],
    9 \0 B) B; o3 D& T
    ; L( z+ h. C, C, wCell[CellGroupData[{3 R1 u1 T' V1 o, w9 \4 ]

    5 y$ C7 K  {) U/ M% A7 yCell[BoxData[: E# i0 X7 b8 @% V% M
    RowBox[{"y1a", "=", + Y% \9 D1 t2 m( q3 @
      RowBox[{"Table", "[",
    * @- l$ `$ y! y1 z% R   RowBox[{"x", ",",
    + `7 F# W. I. N    RowBox[{"{", # q+ X7 _# w- [  U4 W8 M7 j* C
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    " \$ G3 b' R- |% K: L, p CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    - I7 U  u4 \5 f/ A+ c  3.5779226649375*^9, 3.5779226810625*^9}}],
    $ l+ F: B/ ~, S- l  A5 i4 o) h' d& v) Z
    Cell[BoxData[
    8 P# j4 h( F" a; G2 K RowBox[{"{", # _" P" {, c) P! J; k; K/ ^
      RowBox[{4 @0 S9 G" H7 m; A' G
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ; l4 m: |* u! m( \
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",8 k% {+ i) \! ^4 B2 w, n. R5 D7 n
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", ; R, k3 a1 N- s  w  ^
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    & {; c2 l+ |! }4 K4 V' f% T   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    9 Q+ {0 h* u5 @& A   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 7 f, b0 C, q" l. D, a' Z6 G1 C$ n
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", 7 V3 u& A1 h. x; d7 f. ^: ?
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 9 @  t( j5 b" O+ q# K2 K
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
    : p( ~2 D/ ?2 d' R+ o  "}"}]], "Output",
    0 [, M' J' @6 y: U) m CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
    . d8 Y8 C/ I2 _  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]
    . ?7 {- }0 `: Y1 d: F}, Open  ]],8 U/ m5 C: R0 ]) L2 c% a
    . J" d- [; V- ~; [, W" v$ ^
    Cell[CellGroupData[{
    ' b, I( v8 S# [) O( o" }- O+ k, a' v- {4 }, W8 W9 t' Q2 k
    Cell[BoxData[9 s; b) b( p3 ^
    RowBox[{"Data", "[", 0 W  Y* d# j7 j. G
      RowBox[{"[", 3 v' D7 k$ X" C0 \* C
       RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",# O5 g  a& W. I! N+ T9 F
    CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    2 Q( ]# ?. P+ `3 W9 \/ N: h. j( L' f' |   3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],
    ) X+ X# E: b+ m) n" J7 U8 f" a8 D0 v) H
    Cell[BoxData["0.899882`"], "Output",4 v, w+ n$ @7 b+ Q' @4 V
    CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
    " B1 ]& j/ p# I; K) M4 F. b   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9, . ?+ a+ x# F) s# @6 K1 h6 [. n
       3.577961929080654*^9, 3.5780123419375*^9}]* Z6 X! t9 \- ?" h/ h0 E. I
    }, Open  ]],
    ' Z8 \8 p3 A3 A; K* A
    $ H0 Q$ }& u1 y) H/ f, WCell[BoxData[4 A+ }! L* C5 p" L" B0 @- l
    RowBox[{"For", "[",
    3 D8 ]# D# C, n3 F, y  RowBox[{
    , l3 @* f# i7 a% F   RowBox[{"i", "=", "1"}], ",",
    0 p5 b2 C( I$ T   RowBox[{"i", "\[LessEqual]", "60"}], ",",
    # G- z/ Q9 |3 J) P. y   RowBox[{"i", "++"}], ",",
    1 D2 Y# g( q1 P  }   RowBox[{0 ~: ]5 I& ^4 t; m' }
        RowBox[{"y1a", "[",
    1 [1 B/ r* Q/ _/ }, p* p     RowBox[{"[", "i", "]"}], "]"}], "=",
    * O+ v" T5 O% B6 l    RowBox[{"Data", "[",
    / B  d1 }5 P. O9 x1 R# s     RowBox[{"[", . f, Z0 y' m9 c2 o4 G
          RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",3 P" H& v, Y1 H& S1 _) @6 d7 J
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {4 U; f$ H- |4 f/ u
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, 3 _/ o  ]9 c! j. H, u
       3.577922923203125*^9}, 3.5779588839702806`*^9}],3 }0 z/ C6 U1 _0 h9 Q! i
    ! n3 @9 r/ L# A" ^3 m
    Cell[CellGroupData[{7 ^2 y1 F' g- i* d

    7 s, O; x& g$ y. U* PCell[BoxData["y1a"], "Input",; B4 }4 t+ \" E7 O1 K6 @5 _1 g, F
    CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],) n" r' i. Q- c$ b
    $ i2 R9 m9 n* W: s: u7 m! V7 n4 G1 X' {
    Cell[BoxData[
    ( j& @  C8 v! m0 |: b* ` RowBox[{"{", % v9 x/ \7 `8 X$ q: K% H* G/ s
      RowBox[{" p+ K3 y$ M$ A" A' X; y) A
      "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",",
    . A! b  B' x( {0 _% X* T: b2 N   "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",",
    ) g" n3 h- m+ ]2 X! r% S; X" N  e   "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",",
    ; }/ R1 C1 v2 Z& U3 y" D   "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",", ( S% \, [. ]( t0 z
       "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",", ; u0 o! M, ^* B" _: r- q- W% D
       "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",", ' B- }/ f4 U8 i
       "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",", ( D7 Q3 j, Z* n5 t/ w+ Q
       "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",",
    + [- `  Z3 m1 h. K' s   "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",", # Z/ G  B& ]1 v8 \
       "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",", . U, s, x$ m3 ?! Z/ Y0 e3 Q
       "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",", 4 r1 {7 `3 P% U# d+ V
       "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",",
    + S3 _$ R% G8 n# r5 k4 t) r! [5 t   "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
    2 Y% Y" L0 m0 R% Q& p4 v/ ]' o   "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",",
    * g$ @, u7 m" q# G   "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}], . W$ t7 H6 ]% d! F
      "}"}]], "Output",
    1 N. K; z- f1 n# H1 Z$ B' x CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9, 5 x5 J) d& y% ?# B
      3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]5 _3 B5 I8 p+ I3 `
    }, Open  ]]," A" E6 p2 W7 ^! c! r/ E

    1 ~/ L2 C: P1 [$ {& JCell[CellGroupData[{1 x% g+ z& z: f
    ; x- E9 y( f) ^4 n" ^
    Cell[BoxData[
      G  ~* \8 _1 M( W" Z9 | RowBox[{"m60n21", "=",
    & O$ `* |$ y! K; l. y! g( F  RowBox[{"Table", "[",
    # a  O9 r2 F* z3 L   RowBox[{
    ) t+ A/ |6 G0 ?- D$ d* U    RowBox[{"Table", "[",
    6 f* j9 q& i# L& h: \     RowBox[{"y", ",",
    $ {. u- a- k6 Z  L( Q( |      RowBox[{"{",
    / R, ~( l2 T# Y3 S& s% J       RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",", $ t# M+ u  l* c* u
        RowBox[{"{", ) Y* I. v7 x( t/ B4 H3 H% F
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",) R$ `. I+ Z2 P; v; A
    CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {0 u( S' I/ U- m
      3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9, , ?: H3 g3 z0 ?6 w* M3 J- I
      3.5779619706547265`*^9}}],$ |5 _: \' a: y6 x5 e) p  i2 v
    + i. ?+ y- U8 H* X/ s
    Cell[BoxData[& S8 c+ p. }# w. M0 @
    RowBox[{"{",
    & W! d, n. q/ z- b  S2 c  RowBox[{
    + e  R5 z0 Z% t9 f% k. x- F( t   RowBox[{"{", # t& R! w  d: ?3 G' }- ^
        RowBox[{; d( P( O% ?# z$ H
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, `# B+ q/ s" x% {
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    9 V$ q$ R$ @' K     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 T4 B$ Y" {7 m: D; ^
         "}"}], ",",
    , J+ F; f7 B% x3 C8 Q5 u6 {   RowBox[{"{", 3 C4 u4 B/ s9 x) n0 I$ O% p6 Y
        RowBox[{# L" L. m4 F2 t; a& I/ T) @
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    7 G( r$ H3 R7 C      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 Z# I0 l$ V& [6 F9 _- ^! ], Y
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    : ]2 c8 _" X7 \$ T     "}"}], ",",
    / C* g% o) O' F* [' U+ h   RowBox[{"{",
    - E- g" l3 J2 k& S6 d, }    RowBox[{2 r& B- Q& F) t) [* t! A+ H
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- V! C, V2 _; |/ a
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + k' V# u% V* y2 M$ a8 d
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! z. E- T. T7 C6 |
         "}"}], ",", : h- }4 a+ n, m6 l; U. S* N- W
       RowBox[{"{", 0 a& F; N2 A9 ]' \( B( E
        RowBox[{
    - h7 w' `, c, f. O! n) ]3 X    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 m& U+ z2 J' o, ^      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    3 S( d& `. N- T: q# f3 g     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    3 [* L5 A2 j! u     "}"}], ",",
    0 r4 @+ X5 {1 Y- _" G8 @7 E' m   RowBox[{"{",
    & H5 K+ Q3 F3 N    RowBox[{  ^0 m( K1 _; s& n# C  T
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    / V1 _) n; |: b% ?5 a  R      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 g& S; c, D  X) u( [9 \+ [
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    1 R; v* o* H3 F; p/ Y     "}"}], ",",
    " }! }$ s$ ~* \  ]4 _8 ~   RowBox[{"{", 4 ^' f. H- A" r4 a2 }
        RowBox[{# o0 [9 V8 D1 [2 K) `; [
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; b. }; s. ^! H0 T; c) `
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( L- H/ U  b# T  D$ ]6 Q  Q$ P
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 q9 q  @- F6 ], e! H
         "}"}], ",",
    & X( J* \! J4 ~: I" G9 j* Z   RowBox[{"{",
    + K: S1 r: J9 m( R    RowBox[{: O$ k+ o2 O( x6 y0 Z0 L
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 Z2 k) |- q8 @+ Z* p) J5 B& X      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    $ }- c5 z1 q( L8 S6 ^% _  h3 F# s7 l1 Y     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' b$ u9 J8 G1 S! ]0 Q7 e6 w% ~
         "}"}], ",", 5 z5 ~7 o! S( u  n; L1 K+ ]. f4 o
       RowBox[{"{", * w3 f5 p8 |" u5 D7 M; }1 c  ]0 h& V
        RowBox[{
    ( \5 z' E( h2 o2 z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ t! D/ ~& i1 I# Y" O
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 q* Q: I6 P& A, E
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    0 A) ?1 N$ g" B4 R2 h* B7 l; B     "}"}], ",", * W1 v" }3 b1 d
       RowBox[{"{",
    5 |( M) L9 G, p: ^6 l3 d5 f: @7 l    RowBox[{' v+ u+ J1 a; l& |& Q! k% Q- i
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 e; o) W4 E) t
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    . H& U" K8 A7 S5 E     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    * y; F1 I1 j- z     "}"}], ",", $ h* H2 k1 [5 i
       RowBox[{"{", ( H. R2 e( l' i# d
        RowBox[{
    * I7 p9 W/ n6 Y1 l4 h    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- l, ]5 ^; A6 s: _, Z9 A
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    0 V. B  T% r9 x0 K     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, ~9 g7 F2 e8 A6 y
         "}"}], ",",
    $ l# J, g+ A3 z  k   RowBox[{"{", 8 _- N6 w8 o; w8 O8 g, e4 B' Z
        RowBox[{  ~  U0 F! m/ A6 h
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; X0 \( i0 M+ x. U9 J. _
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 u) X5 {* H# g' V
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! f0 |# E$ f/ t% y$ o- k! |
         "}"}], ",", , o0 I+ D$ L2 V6 @6 ?; Z2 W6 r
       RowBox[{"{",
    5 j' [$ a( N% Z  \0 ~% N4 t' D    RowBox[{" }2 ^5 r- X* V3 f$ ^
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    + Y  `% v3 W, z& A3 G6 }2 d2 L      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    # a* |! x* U. _% |8 I# L     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 h  l% R7 d( r; u8 K+ J4 H2 ^
         "}"}], ",",
    & ]; O4 v& o  g   RowBox[{"{", $ E; L: {, s6 R
        RowBox[{
    0 D1 d+ K* E! _; n2 v    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    7 G( {  k, a/ D      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' U  V1 P/ p4 X4 l; k0 ^
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! f: C' W+ G' r( G% g
         "}"}], ",", 5 j8 l+ O0 C. n. E7 ]
       RowBox[{"{",
    3 C4 Z9 W) n  }+ Z1 B    RowBox[{3 c) i6 h2 @( i
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    6 y  v0 F/ i# T/ a8 G      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! n8 |' J: c* j% ^1 ?- v
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, p4 S; D* Z8 z! _  V( V
         "}"}], ",",
    4 \' p' [! }. V% i   RowBox[{"{",
    + k% [! {, e* A$ s0 ]5 b    RowBox[{
    - M; f# U, A  q7 m& O) M# ^( V    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 R2 Q- m( D0 u8 l7 a$ Y* X2 R% |
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * P/ N. t# A' u; O
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# a8 @2 P  z) K* W; X
         "}"}], ",",
    ) c1 P, a) w/ t( S0 r   RowBox[{"{",
    ' b1 P* ]1 j! ]% |4 w  I+ V! f    RowBox[{
    1 y$ W7 ~# G. p! Q  }5 ]0 J. P* D    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 q& h' D4 ~! J; a" L& ~
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 L4 _1 g) c. }" |
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    $ h* T5 S4 I  d, s3 U2 _; t     "}"}], ",", 1 W$ Z1 R/ l9 v& _) S6 @9 f
       RowBox[{"{", & b8 x2 ?7 h, l0 n8 {. r8 X
        RowBox[{
    0 |  X. G7 n; X9 k% M5 l( W    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 D; e; P# g: B  U! I' g+ b& y
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    7 C& X, w6 x* n0 Q8 H$ ~& W, n     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( X( |, ~; x( M: d& O4 Z
         "}"}], ",",
    & E2 f4 Y/ }+ [" d   RowBox[{"{",
    2 G1 d  }8 v7 S5 F$ q, r    RowBox[{$ `+ F) g: g. I5 m
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 D! h# L5 v2 G5 D
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 S- }4 Z) R2 b" h' h# o
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    6 l4 j, N& o; G2 t4 l7 A     "}"}], ",", : k6 u( x- t0 F: g: d+ d; b
       RowBox[{"{", & U9 h- T4 j) e; [( ^
        RowBox[{
    1 T" Y5 ~. z' `4 e    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      M6 s0 z% ]. E% W, D, g      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' j7 }6 K4 k% P# b7 N
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    + m  q' [  ~3 v3 A) Z* T     "}"}], ",", " }' J4 {( U" P; m; [/ c) |
       RowBox[{"{",
    8 s( \. u" E4 Q& Q  ]    RowBox[{. I' R7 e. I6 O, \1 `
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 @( T! b0 k6 s/ P2 b" H" l. j      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * @+ L+ O* k) `9 c9 I7 T% o
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 s- Y( |! n' V6 [
         "}"}], ",", 4 x% m! @" O; d1 u' k- r) n, i
       RowBox[{"{", 0 ^( ], i, `0 P2 y% a* E8 I8 G8 ~
        RowBox[{
    4 k* g6 x9 P5 v! o' Q8 G* v    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 G+ H$ v' F5 ^5 J; [, f# l
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    7 E& ?1 v$ J7 z/ g+ l( |" Y, Y     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% d- g  h( P0 j
         "}"}], ",",
      N! J( {8 i8 @9 n% k9 M" _   RowBox[{"{",
    ' i2 J/ \3 B3 Z8 E    RowBox[{9 x  R; H. _/ ~2 E
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; W# C1 ?1 i1 v      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    9 C! B3 y1 h/ L* @5 `6 E/ k     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* j1 n3 `0 |1 m
         "}"}], ",", 9 H# W* A  G" L* s% e
       RowBox[{"{",
    & l! w. q! O$ a4 d: [    RowBox[{
    4 d. s% C- D; Y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ P+ [! K: |# u# z' s2 \# t
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    . |$ ?: ?- H8 m8 P     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ' c, W$ b" L1 ~( P$ |! Z     "}"}], ",", 8 G6 s, J0 m4 ~1 d/ h
       RowBox[{"{", 3 W- B$ g2 R$ x9 w( r
        RowBox[{
    ; ?. ]* _$ s$ ~' F! L* q    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    5 E/ I0 r$ Y8 Y0 n$ T) Z      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    4 m- U) G7 L7 a3 S* i! F8 N( w     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    3 U1 d: ^! V: h3 |     "}"}], ",",
    9 L$ i. ^% ~/ f& g   RowBox[{"{",   P6 s( w2 G+ M7 n0 r
        RowBox[{2 A( m( q' a& m) \1 B+ p
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    3 d$ A' K+ k3 t; A      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    % T* R/ L2 p- b0 Y& X     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ; c6 r1 ?; F0 B7 P4 H5 l; M; P     "}"}], ",",
    % ]% l  m3 N! I3 ~; a   RowBox[{"{",
    9 L7 a5 V/ a1 m% D  ~    RowBox[{
    7 z) k) r  @* q1 m" s    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& S3 W# @+ T1 |/ \1 ^+ |: [
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    # b& E4 d! w5 q0 U     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    0 X: \& b6 ?" ^" f- j5 ^     "}"}], ",",
    9 t  B- ?+ B6 z# X$ _+ t! I   RowBox[{"{",
    7 v$ f. A: R, J! M    RowBox[{, f: m2 y, i  U5 m7 w( [. Q
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 |5 Q* V5 k0 [! ?* x+ ?
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 |% L6 Z2 B: M. _& k" z3 Y2 T  _
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    " Q4 D' \0 u; l4 [5 Z  R     "}"}], ",", 7 e' W  d: o, |) d3 e
       RowBox[{"{",
    - T+ R7 u1 D$ }. L) H    RowBox[{
    7 }5 @$ Q9 {" J+ L    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' K! k, Q8 ?* Z6 X( x
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    . ?( X; _6 m  O1 T  X7 c4 K. e4 f" n     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    5 Z, |; y7 _7 p( o: d6 ^8 ~: K     "}"}], ",",
    - A4 G" {! g8 p: [   RowBox[{"{", & o' R& `9 p% e# J* |. ]) A' g1 m
        RowBox[{* H  F0 d, k5 p% w
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 a* _! w3 H& m- J/ i* Z
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : `1 I& g+ r' v# D* f. u. D( E
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    * z8 I0 u  u# A3 }. {* Z5 K     "}"}], ",",
    5 B( Z% P0 Y% x: M   RowBox[{"{", ( e1 ?( t6 x2 Q0 {7 [
        RowBox[{
    1 H5 K1 P8 V4 q2 W    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," U. s4 ?) X' t& O; b4 u( c
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 n& T8 s- G9 S* O0 K# ^
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ' l! L+ E, y1 B6 L9 _3 [  p  ?     "}"}], ",",
    ( y% d5 M* p! C* u3 Y   RowBox[{"{", ' U# |8 e+ b6 z6 U5 d
        RowBox[{
    1 j9 ?5 p/ S3 c  M    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    % V! F3 H# R: ?+ [7 ]      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    8 t2 z/ r. S2 c     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 Z( q  v  w% d# P8 s
         "}"}], ",",
    . k8 f. W# s( u   RowBox[{"{",
    1 g8 g6 ?8 X' m8 c0 u% O& f* \    RowBox[{
    2 |* S5 @  O( N3 V. j8 c7 {7 S    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 X. K9 n! H6 R, h
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   `0 x( |, ?9 Z1 I. V
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . v7 m4 A( T8 A0 S* k( I     "}"}], ",", : n- S0 a1 y' z( h
       RowBox[{"{", 6 k& ~$ Q! H& E0 h
        RowBox[{
    / s: S( G. I$ p7 @/ O  p+ w    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 ?4 M# W0 p8 p% A5 g' ~" }8 v" C- a5 G. {      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ( P! n# r/ Q* a: V: b" a9 L* J     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 V; K1 Y5 _- }; S3 y
         "}"}], ",", . a. R) U, t' J7 R$ m4 N
       RowBox[{"{",
    0 K2 L5 A* c+ c+ ~/ |1 J8 l    RowBox[{4 T! N( G% d) ^8 O, R
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 d7 a8 P0 t6 `( ^0 b      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    3 C! y* x' [1 Q     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    1 O7 b/ x$ `% v; P+ E! q, C* R     "}"}], ",",
    : h' x) J  R2 h* @' }" f$ e   RowBox[{"{",
    6 W. @+ B4 Y/ R; Y5 N+ e    RowBox[{% B* ^3 P+ S: P% a1 U, U
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 Q- b3 v% G4 j* ~3 u- ~      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    5 n% g" \! g$ o% Y8 U8 Z; C     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],  @& d$ Y) z- y! Q* J5 N- a, M! b
         "}"}], ",", , ]5 }5 q( k" B! J7 m! O- L
       RowBox[{"{",
    2 ^4 J  D. X: D5 n8 b: [4 X    RowBox[{
    4 ~/ L! Z4 n+ p% I3 z+ P& @    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",  Q2 h3 _8 Z" s2 S
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - Z. C7 o; j1 J* Y5 J- o
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; g7 n& `8 o; u) c. s
         "}"}], ",", % k, A% s+ G! J% B
       RowBox[{"{",
    2 f! G2 A5 a: p- y$ G6 V3 {    RowBox[{$ B9 Z6 A5 O9 I$ k
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 j9 r" |! Y( h+ m! T7 D* z
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 b7 w) G/ V# j3 E1 l2 X
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    + L3 Y+ U' I9 P8 M+ f3 b1 L1 a" g     "}"}], ",",   g/ [+ E0 _. D5 A( M$ ]9 `
       RowBox[{"{", 7 V2 {- s' c* y( W+ U9 m# E
        RowBox[{
    6 M- U7 z# o$ C" B    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: B) Y, a* W5 g% n
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( u4 J9 g1 D4 S- Z
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . \# P3 D3 c: g7 m     "}"}], ",", / z( O% k& \0 c) A
       RowBox[{"{",
    / B, s2 [. |1 |, E- T: k# T    RowBox[{
    ( s, {$ W/ ^4 K0 \; p( k, c( z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 ?, M3 k% }" ]5 I      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 k& V7 |) C  }0 ^
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 v9 e+ r# _/ v
         "}"}], ",", ( J  W1 Q$ b9 }2 D
       RowBox[{"{",
    ( {- f+ Z5 i/ ?% k  @, v    RowBox[{
    , t* P" u6 f& B& x3 s! z) L% x    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ a3 ^  j: R; N, S. X3 G
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " ~) D: F% W* e* F" ~& }7 K* u
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ j+ M" c: E% {" k
         "}"}], ",", 1 X5 w  B/ B9 ^6 b* Q1 w
       RowBox[{"{",
    , T& O. P- D& w2 X$ o# U    RowBox[{
    : ~/ S! U7 }# R2 D5 Q1 M- U    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& A) u5 m: b% z6 @1 L. ?
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( j( @  x* @4 V  z! B: P* H( V
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    2 W( O3 _8 g% y/ ?% J- s$ M     "}"}], ",", 3 c. `! [9 N! K
       RowBox[{"{", - \, M9 p# b! }6 m0 ~6 }( T
        RowBox[{8 I% _6 G8 R" B  u" D2 k
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    % l! Z5 ^& O" S: e+ \/ U) h      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; K, d2 q- H3 I; A. \
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . Q' I2 n7 g7 d& C7 p0 t& U0 l6 e     "}"}], ",",
    3 ?, d( l* Y# {) N' ?4 r. d4 `: W1 h   RowBox[{"{",
    * j# R& v6 E# t* U7 l5 R7 h2 A    RowBox[{
    6 v* q3 `2 A! _5 l    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 d- }; J: D6 x8 Y
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 D3 X$ ~/ h. g$ s0 t     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    & N$ u6 e2 H/ L/ S3 ^5 ^     "}"}], ",", 6 I% F3 e2 F" e4 R' K. k
       RowBox[{"{",
      e$ N7 ]% B+ s: `    RowBox[{
    # I" k5 C5 U. |5 t    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% Y$ Z6 K! ^3 g# K3 O* a
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) t* m, ~) E, m# g) v0 H
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    + m1 x, ?, ?+ S- [5 n6 G6 e     "}"}], ",",
    8 b* e" \* s4 _   RowBox[{"{", % w/ B5 U# B* S4 }( p
        RowBox[{
    $ G$ b8 H) P3 T* F+ l, e, C    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ q) A- n9 K+ H
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' w* t3 p- ?; @- L6 h7 i, D
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    1 {4 i% A8 q) I& S7 b) E2 o     "}"}], ",",
    - o- v( m& p: u4 P* U' r" _3 x   RowBox[{"{", * @2 a. n9 ^9 D+ ?1 L
        RowBox[{
    " V7 \: r  ?+ z' l    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    " _' f8 b2 N& }      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    8 B% \: I% b- d+ d+ \: ~     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . C4 [! l% J2 U7 d7 c/ P     "}"}], ",",
    * {( V* D) Z8 ]' g* m; f! T   RowBox[{"{", * g" [5 D1 @- D+ K: V9 y, `
        RowBox[{
    . y. [. o& T3 h" R- z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    # i  K5 O, R; u! |# G  M2 P0 O      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    + D9 ?7 \  G# f7 I, Q, w0 e; p. [     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& j' g: \& e- r, s/ m: b" j' ~0 s
         "}"}], ",", 7 A3 c; ?' B5 A- j- S: ^
       RowBox[{"{",
    4 x( q) L# `) ^) i    RowBox[{) V' c  E) \1 H/ h' z3 ~
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- `/ J0 ^4 _% [0 ~# R
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 p' T/ T( p7 k; u     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ T6 c- @7 e+ g9 o# X+ y& [
         "}"}], ",",
    # f& Y/ D5 B3 p; U; }+ s; [1 ]   RowBox[{"{", , L3 Y- a/ J( p3 @1 @1 m+ y. d
        RowBox[{" \; w. g, U  F: R; m  r3 w
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    7 o6 t8 @8 |: L; D      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    0 n! R2 k( y6 W$ |6 j; S     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ; E( A7 D! q$ ]- f$ ^& n9 J3 J     "}"}], ",",
    ( e: C. J( |: `  G   RowBox[{"{",
    . r; K0 k. W, u$ q* P2 D    RowBox[{" U1 x" k, A. z6 i9 J2 d) q
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    7 R9 J  @7 Z, Q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    " z+ G7 g( L0 M% A4 E# Q     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," I( n! V: `# v' k) K" @
         "}"}], ",",
    % |2 b# b& m+ v   RowBox[{"{", ! l3 G" R; _) h! k& q) A* V" S
        RowBox[{
    ! d* d8 y* ]- Q% [2 O    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% t5 V5 _( E2 w7 d) v
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & E' e/ G( E$ Y" b6 _
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ a! T+ m( V/ y2 \
         "}"}], ",",
    5 N  Q. E! h! q# E7 H   RowBox[{"{",
    0 S9 c' f5 [  }$ P    RowBox[{+ {$ \" \& a# |4 s
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 n' m- R6 w: P. ], K+ i9 c
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ) ^! T8 c8 n$ V8 x$ Q9 @# j# \     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) Q* Y2 L; p! V$ T
         "}"}], ",", 3 V5 E" H9 w/ O' ]1 z
       RowBox[{"{",
    : U8 q# `% {% u7 J  E    RowBox[{0 s6 H" @- q- B. ]7 ?5 t
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 [# |( b$ e: [% ^" W/ A' d      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # d$ D9 Y4 @4 X5 ]$ L
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    # I# X( N+ n/ \( d. x# J3 q     "}"}], ",",
    4 w6 N1 I$ W/ y   RowBox[{"{", ! g8 D8 o8 P! u7 ]$ m8 M
        RowBox[{* y! ~5 `# w* F
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ g6 t3 c! l9 `3 B" @0 l  ^
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    & N) G6 F6 m( _: K/ H; e$ _     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. V" L- U6 q6 X! f
         "}"}], ",", 9 }) K- M/ k( j5 ?5 d* X
       RowBox[{"{", 0 \- z' w- \. S7 E; X
        RowBox[{
    : Q( k9 r4 G9 f8 v1 k    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    $ a7 z" H/ a2 P      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    # m; D* X# B" |/ s) g     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    9 U) X0 @' T& T, ]' G     "}"}], ",",
    - |5 }5 u6 u, {6 d7 g7 ^7 A! R   RowBox[{"{",
    & \2 I! J/ E  e5 L    RowBox[{
    8 b/ ]: d) W, `5 W    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 ?) `% N9 X3 M
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 x- d8 M  Q8 Z" [% Y
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ a9 x! x* x* f% V6 t
         "}"}], ",",
    " {: T% a8 l7 V! [5 k   RowBox[{"{",
    - O: e8 W% A4 D" C    RowBox[{) c; |8 P& D! Z% s7 a" Z4 O6 o
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. G8 M) q9 ~/ f) Y( N  V6 r: [3 }
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    : e8 F! a; M4 A     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    3 d  |! V& t7 v. T$ k     "}"}], ",",   E- G3 i, D4 v/ S9 i2 W7 l' p! |( h8 |
       RowBox[{"{",
    $ v$ j6 I6 U. Y2 @  |" Q+ B! n$ Q    RowBox[{
    7 p: {' O7 l& O    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( K% Z* C2 Q6 j0 H) @4 h2 i2 T
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . s! W- b* J+ F0 w3 E+ Z; K
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- x$ U& h$ v% E4 z- K9 L% d2 D0 I
         "}"}], ",", 3 \. D7 w( \) C  N; G# E+ y: X
       RowBox[{"{",
    , O3 P8 q# C& D1 V    RowBox[{" |. M6 l  o! W' A/ \; b0 N7 z
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, Z' K( _- e7 ]& H8 i1 u' E1 L4 S
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 _0 y- Q% x6 a6 k     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      N2 i* {, Z$ y! U; K: i. L9 x     "}"}], ",",
    3 k7 p% K. @  \3 }   RowBox[{"{",
    / |: [: D$ W7 n2 L' n    RowBox[{
    2 A. r( [, `) c1 }/ e, J  s    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 |1 n" B, v9 N$ l  X! P: B
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    7 t* N% ^$ ~7 ?8 F1 F9 u     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 h. f! u% ~. \$ z8 ?6 ~' U
         "}"}]}], "}"}]], "Output",
    $ x9 `0 o/ D3 D- s) P CellChangeTimes->{
    3 `- M  V/ v% k# D% M& D9 k& |  3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
    ; f6 ?/ ]$ H7 K; d% q7 _9 v   3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9,
    0 N& w* [7 C  K& E% o   3.5779619748823338`*^9}, 3.578012345453125*^9}]; H( A7 S+ ^' a' k
    }, Open  ]],4 F0 Z% W8 K+ }- z

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

    / ^1 {0 R; N* s, @Cell[BoxData[
      r8 M0 F9 F* w; l RowBox[{"w1a", "=", ! S0 o7 w5 ^* h
      RowBox[{"LeastSquares", "[",
    : I5 m& j- _; j8 i) @5 w   RowBox[{"m60n21", ",", "y1a"}], "]"}]}]], "Input",
    * c4 a' B- y# k4 W, ` CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {
    ; y9 @9 C# F4 g7 g) M  3.577924662765625*^9, 3.57792466596875*^9}, {3.577962074644508*^9, 2 N( |5 @6 x2 ^6 C& f
      3.5779620748317084`*^9}}],5 G9 K" Y: |( S' u  [: l* g

    3 h$ j; t/ `* w2 f% b9 \Cell[BoxData[6 B9 p7 {) C( w3 |# D
    RowBox[{"{",
    4 y$ z8 [4 [9 q" B* M; c  RowBox[{"0.32564305572552416`", ",", "0.500820838606441`", ",",
    - v- X0 M( |) f+ }+ p' w; ^8 D   RowBox[{"-", "0.5945873894818967`"}], ",", ' D1 X/ }: k- |  P4 Q! D; n
       RowBox[{"-", "0.1999688587779198`"}], ",", "0.020180806675835994`", ",", 5 s# G  V" d3 Y4 P/ y
       RowBox[{"-", "0.03345934908892623`"}], ",", "0.25282438852646905`", ",", ! D' i5 q& q2 R% K. \1 f
       RowBox[{"-", "0.17602467625404622`"}], ",", "0.3961180670900672`", ",",
    * e' E6 |/ @, `* p$ |/ x   "0.02759193650965952`", ",", / m' C& q, @# S& e8 F2 K7 W
       RowBox[{"-", "0.320472847796449`"}], ",",
    " N( F# C0 U$ o   RowBox[{"-", "0.07581214474544527`"}], ",", "0.4812237524557292`", ",", . T- F" a! J1 q  z
       "0.7528674241482847`", ",", "0.6665374509702799`", ",", 2 @! Q8 d3 B0 i9 n
       "0.22861495086373018`", ",", "0.13092706311748484`", ",", # Y. a- Z3 X# ?2 b& @
       "0.5252475961933538`", ",", : B! Z. B6 O& v  R; K; n7 m* C7 M
       RowBox[{"-", "0.10599338351843157`"}], ",", "0.6670272593678526`", ",", 2 D. y/ ^4 m! E: q5 O6 D2 l
       "0.23580523388620733`"}], "}"}]], "Output",
    ' t6 P# k" p9 t8 K% ^! [1 x CellChangeTimes->{3.577924621953125*^9, 3.5779246688125*^9, ; }' ]8 o1 }' {5 ^# i
      3.5779575884583836`*^9, 3.577958952875601*^9, 3.5779620806661186`*^9,
    ' v+ N4 a) ]8 z' R8 m  3.578012349875*^9}]
    " B- e& V7 I9 F: z}, Open  ]],9 H, E+ t5 k; P' {

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

    # J0 \. V6 G3 L6 \Cell[CellGroupData[{& l. A5 C* Z$ o' ?6 L

    $ K5 b2 b/ K: l$ T: Y$ {! J5 UCell[BoxData[
    # B4 N8 H% ], J. I5 ^1 P1 B RowBox[{"y1fit", "=",
    # I0 W. I1 ^4 W7 c5 r  RowBox[{"Table", "[",
    # Z- X9 p& e$ J) D9 Q- U! X. |   RowBox[{"x", ",", 4 f& b' j3 @" {. E6 ?
        RowBox[{"{",
    2 O! l! Q' H) G( T     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
    ! {% }+ ?% p& b6 ?$ q* _ CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {
    : [2 Y0 G) q* W+ U1 \  ]  3.5779252768125*^9, 3.577925277484375*^9}}],; y9 U: x3 d- _+ _) g4 r9 ]' H
    4 k& S7 n4 L. R* l6 d( K0 ]
    Cell[BoxData[
    " _! M; w+ C6 Y. L. [8 r9 l# H RowBox[{"{",
    + j. C- P. N" c9 R# G  RowBox[{
    : a5 X3 w; I0 R# R/ V3 e  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", . H' u) ]6 p- {8 G0 k; o
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",5 o1 j8 _: z  |8 i0 ]2 k4 Y
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 7 u: q& i1 E  y9 L& q3 S
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    % {' i+ _0 {( p: l! E! H   ",", "29"}], "}"}]], "Output",2 J  F# @- m8 p$ x& P% f5 `  N5 q
    CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9,
    : c8 e$ |& R+ q2 }8 x  3.577957594916795*^9, 3.5779589579612093`*^9, 3.5779621294942036`*^9, + T# Y4 ]3 P' b6 Q) [9 n
      3.57801235340625*^9}]
    7 Y/ M9 {1 R) Q! Q4 F9 R* n}, Open  ]],8 w! k. e8 x) R% A8 i
    $ x+ O/ x9 n4 g1 `( L
    Cell[BoxData[
    0 U6 _( g+ g% Z& ?1 z RowBox[{"For", "[",
    ) B4 d8 `6 y( S( f! l  RowBox[{  X( c  ~2 h8 F& Y  o4 ~
       RowBox[{"i", "=", "61"}], ",",
    1 H- y. Y8 M, u& V- `2 j   RowBox[{"i", "\[LessEqual]", "89"}], ",",
    ! Y+ S( s7 Z# \; J! k   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", : m& M9 p4 r! w+ T
       RowBox[{6 @7 v5 R$ c" L
        RowBox[{5 w* C! c5 S3 F( P$ k
         RowBox[{"y1fit", "[",
    2 \- f$ E! ^9 a3 ]& R      RowBox[{"[",
    3 L1 t. k' {4 p7 D7 l2 g       RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", ' E0 c. U- v0 i. {5 d. i% B4 E
         RowBox[{"y1", "/.",
    $ H! e- [8 s  i/ N% d% N- Q      RowBox[{"{", ( V% V2 E+ T8 L4 h. U
           RowBox[{: A+ F' B3 |5 ], O; v( \
            RowBox[{"x1", "->", : Q6 i  U* z) ?; M9 c
             RowBox[{"Data", "[", - a/ ~- s1 r$ U. d* U8 ~8 S
              RowBox[{"[",
    : U) G3 a6 c2 k1 ?& ]8 o           RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    3 Y& p# T/ n3 B# j# T        RowBox[{"x2", "->", 7 G# p: Y1 \/ _, y% x
             RowBox[{"Data", "[",
    9 k, G/ g& J' ~; T9 {9 I8 k          RowBox[{"[", ( @- r# C6 S  N- k7 p* Q, v
               RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 2 E5 @) u5 S) p: L5 J. z; e
            RowBox[{"x3", "->", 8 e* \; L% E- ?, }, E- o
             RowBox[{"Data", "[",
    7 t3 w- x% s# t. ~          RowBox[{"[", 2 v" X. E8 M3 ]" n1 z  C" C. T
               RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 0 F0 m" H9 r3 b+ a7 ]
            RowBox[{"x4", "->", ; V, H+ T! J" B: T; B" W7 P
             RowBox[{"Data", "[",
    ; l- C6 @! @+ B, f% Z4 h& q& q+ U          RowBox[{"[", ' H" y+ z* x' ]- |7 K+ S: p
               RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    6 [+ \" ^& ?, q8 A% z        RowBox[{"x5", "->", 0 B, E$ f3 n1 W
             RowBox[{"Data", "[",
    * h, u5 x  m; W& @" J          RowBox[{"[", & a' I& j- u9 W
               RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    2 k3 U. c- S- B        RowBox[{"x6", "->", - }; m  D' ~! [5 o0 d
             RowBox[{"Data", "[",
    0 T+ `& [8 ^7 A7 t% _. |" K          RowBox[{"[",
    ! B+ b8 a" g5 k+ t. w8 _  `           RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 6 L8 |( x7 y* W4 f0 a" `
            RowBox[{"x7", "->", + S7 b7 k3 I9 W9 x0 ?% O7 y! k
             RowBox[{"Data", "[",
    " P" J/ C" Y  K! C6 u          RowBox[{"[",
    ) ~5 d. z3 X+ o           RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
    $ r) z2 I0 j! _( a7 [/ M3 M$ D        RowBox[{"x8", "->",
    5 }4 ]' r: {# @8 I5 e         RowBox[{"Data", "[", ; U' I" S& m4 d, @
              RowBox[{"[",
      g* A, ^8 a, i* y           RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
    & S- F: E+ K* _2 Y3 A/ T/ W9 V- @) C        RowBox[{"x9", "->",
    : L$ e1 l, w( r+ i9 b* Y         RowBox[{"Data", "[",
    9 i# n( ^& x- [; ~* b          RowBox[{"[", 0 u/ m4 P5 {/ ]/ b
               RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}],
    / |$ H# T/ U$ L2 l8 t. I  "\[IndentingNewLine]", "]"}]], "Input",4 f3 l! o+ c0 A/ t+ ?6 c1 P: w* n
    CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {
    ! J/ E% L" a+ n1 r" a9 A! s  X' ?" x  3.577925286140625*^9, 3.577925306765625*^9}, {3.577958922517948*^9,
      A. a8 ]( H# S/ G; r2 V) D& t  3.577958922549148*^9}}],
    5 J. Y8 ?! y8 k) x1 p5 z
    $ H  d/ i, E7 rCell[CellGroupData[{, |2 Y$ x, l" P0 ~: ]
    " b0 C0 o2 C+ A/ n1 R7 E
    Cell[BoxData["y1fit"], "Input",' w7 x7 @; e/ J6 B- I+ m( A
    CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {
    " {6 \; {" q+ z+ w* E  3.577925040484375*^9, 3.5779250440625*^9}}],/ p# t$ B$ Z8 b: p! ^

    - r( K" _6 N) g3 S% eCell[BoxData[
    ( o4 ^. g( A0 T1 e9 Z* v RowBox[{"{", * m6 @4 Q4 U, Y- t$ x' p
      RowBox[{
    & P5 D/ j7 t" _  l2 x$ g  "0.43193416525930517`", ",", "0.4501634853493982`", ",", 5 e3 [% S2 t" R( h2 c0 d, d/ f* X
       "0.33336034768525247`", ",", "0.4418609896858925`", ",",
    % k! Q: v4 }" w% q9 Q1 a   "0.41030378932283024`", ",", "0.516814798191575`", ",",
    : k. Q. h/ \5 ^1 E! S# f5 B6 G$ S9 \   "0.4476631213729994`", ",", "0.3016552978696669`", ",",
    0 z) x0 x8 r2 U% t* a; D+ l   "0.378122167437847`", ",", "0.020339844919720733`", ",", ; O) w; }( y. S3 S% P
       "0.018745375782087376`", ",", "0.2919925992695025`", ",",
    ( e, j4 i4 V/ q3 K4 v$ J% w   "0.2649067959681263`", ",", "0.16343444284525593`", ",",
    3 O7 L! S" ]- V; B% g; \& |   "0.4182466778551563`", ",", "0.27347752211364934`", ",",
    9 u* i3 K4 p4 l- C$ E. ]   "0.38554057386385654`", ",", "0.35253160453718047`", ",", 0 l/ [" Z  K( O9 o7 ], N- ?
       "0.2054745841100774`", ",", "0.45504377112716676`", ",",
    + r- X/ v, H! q; j# v- c   "0.1598805094678612`", ",", "0.18662509982279485`", ",", ' j! _/ L4 a$ o& J
       "0.10684797493248213`", ",", "0.013349212673286828`", ",",
    + ]# F' F+ J* }+ a# k   "0.08215836003004297`", ",", "0.2979041599362813`", ",",
    % Z, ]! B  {! S0 J4 N4 h# t   "0.05995976512343641`", ",", "0.3884793499104568`", ",",
    2 g( L8 [$ p1 j* r8 W  \( G   "0.5361889337034293`"}], "}"}]], "Output",
    / A, U9 {8 e1 H+ B; ^ CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9,
    2 Q* \4 b. ]8 @# o- k  3.577925312375*^9, 3.5779575978808002`*^9, 3.5779589654960227`*^9, 6 R, ^7 C7 O% I4 I+ O! z9 D" ?
      3.5779621416934247`*^9, 3.578012355546875*^9}]
    # e/ |8 ^  ~2 a) I# _" C9 k}, Open  ]],
    ( ^% m* F1 y, t% M0 m/ w  Z1 B
    ( K) E/ r1 u, E: d9 O6 ECell[CellGroupData[{& W8 P' y; a5 j: V( f6 p

    5 j- m9 ~( X3 W. B0 i' K+ RCell[BoxData[
    ; |. L" F$ r3 C/ r6 S4 Q) m# s7 O RowBox[{"y1fit", "=",   a. p3 t5 h. B  K/ Q) L
      RowBox[{"{",
    2 A6 X& e, v# [# M" G   RowBox[{
      x+ i9 k/ m% ~1 g& b/ g2 Z   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ; b9 }+ u7 N3 G/ {* F" g
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . c2 P+ |% [1 B8 f( }; y
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", % A3 H# H, x" w
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", 6 n* Q  I- Y( i0 U& z! J4 @, d4 \
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", , j+ T# h2 b8 E) p/ p6 }0 |0 ]
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
    ' f  r- w4 b# n! h- @7 l; u3 `    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    0 f; B, m6 o4 @3 A3 P6 Y1 P    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    ( A2 t5 x: T( {& i3 G9 W) C* F8 e. j    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", " n4 r0 h, e* w! s$ ~
        "0.4319341652593058", ",", "0.4319341652593058`", ",", % Y1 P. o; Z/ u" ]1 y0 V* |
        "0.45016348534939865`", ",", "0.3333603476852527`", ",", 0 F. w# A' _5 r2 u" f9 `9 r0 e
        "0.44186098968589294`", ",", "0.41030378932283074`", ",",
    * v! h! B  \# V& ]( e% p+ i    "0.5168147981915754`", ",", "0.4476631213729997`", ",", 3 W+ d* l6 h2 @# l& B* q; a' L9 `
        "0.30165529786966755`", ",", "0.3781221674378473`", ",",
    : o$ O  k, l6 M' a0 ?5 G/ H    "0.020339844919720775`", ",", "0.018745375782087393`", ",", , J, k: j! g+ [& D! }% w
        "0.2919925992695026`", ",", "0.26490679596812655`", ",",
    1 `! J0 U' A; [: J    "0.16343444284525593`", ",", "0.4182466778551567`", ",", 2 ?* Z+ Y# Y% v
        "0.27347752211364945`", ",", "0.385540573863857`", ",",
      p3 ?# L$ D! M. p7 l) l8 p& z    "0.3525316045371807`", ",", "0.20547458411007796`", ",",
    # N3 O/ @. e" N/ x    "0.4550437711271672`", ",", "0.1598805094678611`", ",", % @3 ?! a! u- [/ c3 u0 s
        "0.18662509982279502`", ",", "0.10684797493248224`", ",", 3 o/ u( U- Z) P% T: Y% ^
        "0.013349212673286806`", ",", "0.08215836003004302`", ",",
    ; W0 f* e$ R6 z0 E2 B# u    "0.2979041599362817`", ",", "0.05995976512343637`", ",", . c8 _* K  X4 J( V
        "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]}]], "Input",% S; T- @! ~! |9 O1 V" f& k
    CellChangeTimes->{{3.577959701349306*^9, 3.5779597161381316`*^9}, {
    ; `/ h# ?. V  j8 |+ H& r$ O  3.5779621548286476`*^9, 3.5779621618642597`*^9}}],
    + m8 z! O! K8 X7 L
    ) \/ x. q) F& \Cell[BoxData[0 ~& Z% d! h+ m; J  y, ?  X% _
    RowBox[{"{", - b) }1 N& Y: t6 d: k
      RowBox[{
    4 T: ?' x: k8 E/ d. S0 v, t  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    7 w$ X5 o/ ?. I' g   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    $ @+ k" E0 P+ Y0 W  \( w; z    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    & Q- a. ?2 r' I6 m4 H   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ; }; N1 b, [! \* X
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", / C9 a' x/ T. z# ^5 j: s% o
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    ' d# _3 o5 }/ d- |% Z   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    7 z2 t0 I0 ^# U8 R3 g* F3 t   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    ) k4 c8 o1 M! s$ b* n) z( c   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", * i# M% J6 m/ }4 _9 H+ g* a/ s
       "0.4319341652593058`", ",", "0.4319341652593058`", ",",
    ( \0 S2 p  I' R1 v0 _0 T   "0.45016348534939865`", ",", "0.3333603476852527`", ",", * w& G1 z% w$ y* l0 X# F6 K
       "0.44186098968589294`", ",", "0.41030378932283074`", ",",
    - b& w7 [6 C$ F, d% {* e) ^   "0.5168147981915754`", ",", "0.4476631213729997`", ",", : t# G6 O! @- o6 ^- |: K" U
       "0.30165529786966755`", ",", "0.3781221674378473`", ",",
    $ D' p" X( J# Y( z" @4 w5 N   "0.020339844919720775`", ",", "0.018745375782087393`", ",", . S: N; u, b+ j; h# p# V5 d. n
       "0.2919925992695026`", ",", "0.26490679596812655`", ",", . M, o$ B8 ]1 q* f" o; k  x; A
       "0.16343444284525593`", ",", "0.4182466778551567`", ",", " U, i+ f" Z& x: l1 m/ \+ r& z' G
       "0.27347752211364945`", ",", "0.385540573863857`", ",", 5 d8 G& T/ B0 L, I
       "0.3525316045371807`", ",", "0.20547458411007796`", ",", / M, v3 }: T8 Z" Q( {/ k
       "0.4550437711271672`", ",", "0.1598805094678611`", ",",
    ; Y) v5 W, s0 a! g+ o( `   "0.18662509982279502`", ",", "0.10684797493248224`", ",", 3 T8 w! R- e% B/ o1 N* k+ m2 g% n
       "0.013349212673286806`", ",", "0.08215836003004302`", ",",
    . u3 F. L  J. x& r) o   "0.2979041599362817`", ",", "0.05995976512343637`", ",",
    $ \  @/ E9 N3 L) `( `: Y* m5 C   "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]], "Output",0 }: v7 E2 G  x, v+ R# X0 O
    CellChangeTimes->{3.5779597200381384`*^9, 3.5779621650778656`*^9,
    % B7 E' }1 o4 S, \. l. S  3.5780123569375*^9}]" J0 I( o% T: ^2 W: r5 e
    }, Open  ]],: W, D: k' _5 H, l

    : g4 I. A$ w1 d: B5 ]: ^+ uCell[CellGroupData[{: E: t4 c+ ~1 z5 X

    ( x% D: W- M2 G+ U6 rCell[BoxData[# l! X5 q% ~: ]2 H, @) L4 D
    RowBox[{"y10", "=",
      l9 g+ a# M* B# _6 M( P  RowBox[{"Table", "[",
    % s! d0 D: T$ h" k3 ~2 C6 G- x! q   RowBox[{"x", ",", % G8 U! _- J' K+ A3 b
        RowBox[{"{",
    / v# d: t3 t- p( G: j     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",/ X9 Y3 O1 u/ Z5 k- u
    CellChangeTimes->{3.5779253628125*^9}],# @* d" }1 I) I7 g, f# @
    " T' A9 _! p# C/ J* q
    Cell[BoxData[! z. k: o2 w" m9 W6 ~# e
    RowBox[{"{",
    8 R$ C" [) T3 T. \5 t& w# a  RowBox[{& h5 W& ?' V& z9 z
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ) N. P& p* B0 A3 }9 R+ b5 Z. R1 u   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",  ~0 H' A, i1 R, ^# D
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", " p5 s0 a; g& A* }
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", % |* \  X+ J( j
       ",", "29"}], "}"}]], "Output",2 P: x5 b8 y" H" X
    CellChangeTimes->{3.57792536553125*^9, 3.577957599565603*^9,
    1 I$ Q! t6 q& x- g; x4 }6 D' v6 q  3.577958967383626*^9, 3.5779621678858705`*^9, 3.578012358609375*^9}]0 }, e2 @! M1 H
    }, Open  ]],% _6 {- W9 D) R  c4 {& F. I
    4 L: {& Z/ h4 {: T" J$ r
    Cell[BoxData[: k  H1 c3 m: q& N/ d5 v
    RowBox[{"For", "[", 1 K& U  b4 X1 E* J" Q) S# e
      RowBox[{# ]& X5 `% V9 E% d7 B
       RowBox[{"i", "=", "61"}], ",",
    : g7 }5 E' v: E' x5 A6 C   RowBox[{"i", "\[LessEqual]", "89"}], ",",
    ! i6 I. l! i4 j4 N9 }4 h   RowBox[{"i", "++"}], ",", % I6 E! d% Y4 k9 R" k7 _, a
       RowBox[{, ~: ~% b3 [  q8 G3 w
        RowBox[{"y10", "[", 3 s8 ~: ?# i$ U
         RowBox[{"[", & `: o3 S( J, X+ J5 q3 O
          RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
    8 m; Y3 f3 u' s' y' o5 h( @: |    RowBox[{"Data", "[", 5 ~& g' a9 j  @
         RowBox[{"[", 7 P2 j! [# V6 r  a! x7 B; c
          RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
    ) l& C& ^) i0 y+ f2 A CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {$ A. l) [( a3 V5 x0 H$ p2 I
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    8 x7 E0 m( K' s  y% }   3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, & ^; w/ U" I  `" u- S  {8 g/ W# o
       3.577958922549148*^9}],
    , e3 t8 N  y! k/ u# n& j% N8 N0 b9 d* Z  |
    Cell[CellGroupData[{; _* L% A7 M/ X) R) }' n" M

    - |0 t1 j+ [$ ~: BCell[BoxData["y10"], "Input",
    : [; A  ~- A$ \& i7 y* e" m+ d CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {4 B6 C; e' x$ D" N+ P
       3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}],* Z. U5 U" L# U1 @# i0 I

    ( q9 Z% T. Y- v$ R7 b4 g1 ~, CCell[BoxData[
    - T) M9 C; I7 `9 t. t% _. t6 @ RowBox[{"{",
    0 k+ w: c! X2 ?3 R) W  RowBox[{1 C! y) I2 ~0 X* A+ p) w
      "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",",
    - A4 M  I1 C8 {# H$ Z$ f- @. f& f   "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",", & J/ l& {, E% k3 I% e) ?
       "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",", ' k' G1 _" u& w& ]+ ~% Z
       "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
    , N) X+ g  U% q+ b   "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",", 1 H% l2 [7 ?2 ], k3 i
       "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
    ; X6 B0 e% @4 j/ ~$ c   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",", ) \/ f9 f) k8 F; h( P
       "0.694935`"}], "}"}]], "Output",; h2 ~5 a' @0 j- N8 l  t; M
    CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9,
    9 E6 Q% r8 U: X( M! M4 F7 `" P  3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9,
    # R, Z# }' f# `  3.5779621736734805`*^9, 3.57801236071875*^9}]+ l& L8 B7 x" Y) a% M
    }, Open  ]],8 D6 f9 Y- E1 t9 \0 e# k- @
    2 S! g  H" o5 y* J6 m: L
    Cell[CellGroupData[{
    ) }, ?* J" C+ A: ~" \6 F$ W0 s+ z' j6 M$ {+ m2 }; |4 [6 T
    Cell[BoxData[
    5 X$ W1 M; H) K0 a( X9 q" d RowBox[{"y10", "=", - l! d; S/ d3 b5 C6 [  l
      RowBox[{"{",   }( H) i2 v7 I4 a
       RowBox[{
      F3 G- F' {1 V   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    - Y0 h; ~5 L' M: b" E- q& C    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    5 q7 k% ?) _  P6 Q+ r* q- {/ Z4 b    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    * b( `% Y/ [9 U- p$ B7 f    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", " [7 {4 l& c+ F+ p
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    ( k3 H8 j9 K' @+ f    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
    % u3 C+ F0 I# o% _! O    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", . y0 |9 m! k; U! E& ^
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", : @8 j4 A0 w4 n' t5 L/ k' P+ o6 M
        "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", : @# ]; D8 _7 b4 L- F7 g4 N
        "0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",",
    ; n. v* K& o0 {  D5 N    "0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",",
    ; H2 c( r; ?2 b! }! y    "0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",",
    ' T8 i: [; p. }3 k0 U    "0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", + r; J; H( ^4 `
        "0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",",
    # `) H2 p2 W: `6 Q! b! K    "0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",",
    + n/ Y2 B, ?8 z: `3 b    "0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", 2 O& G. V6 }- I8 k4 P
        "0.390754`", ",", "0.694935`"}], "}"}]}]], "Input",
    8 l" T  i; `, ?! |3 p CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],
    & h; o, P# I% A$ Z" D7 J% v& v' A, y( |1 n
    Cell[BoxData[* \: p9 L. q6 J" R, y
    RowBox[{"{",
    & {# \6 N- W9 U; T5 n! v  RowBox[{) c* H# H6 W' ~) u8 W
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ) l/ O5 T: E) u/ l/ Z   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",: I4 v( f1 m" R. M! e0 p& k
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 7 }- o& p4 u( E$ c
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    ) U1 T) W5 k; w- l3 g   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    - s/ k# H% A$ T0 @: H   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    8 C8 h# s7 A; d( K* ~: z) t   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    / X) E# w! z8 L% ?, B5 h/ ~   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    7 {7 {/ \' E/ [: h/ B, y4 z1 D   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`", . r& S! X1 A5 K3 v" ]7 S  M
       ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`",
    % G7 F% d# n7 O   ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ( N# l8 H8 S/ A- I
       ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
    ) r0 f" W4 ^+ L6 M    "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",", - E6 R" w2 c, M  h. k3 m
       "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",", 7 u( E+ A3 f% M( I' e; F
       "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
    ( }- F( B( q) L. f% R" E" ]* f   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
    0 V$ d7 ~, p6 f8 \# A. h' }   "0.694935`"}], "}"}]], "Output",
    6 z; B( J9 o5 t4 ?/ S( Z9 V CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9, ; o, L2 t/ P* h, S$ {9 S
      3.578012361734375*^9}]7 L9 E- \2 v' F
    }, Open  ]],2 \. i) o  M  A# S2 D# |
    5 z$ q& V( P- K: ]( b: R
    Cell[CellGroupData[{
    0 W7 l0 x/ U* h: w* a) E! s% X: S& q4 ~# g
    Cell[BoxData[
    / f5 h! p* c: `2 Y% @8 K RowBox[{"p1a", "=", 0 h& J; y2 T3 y5 }5 t
      RowBox[{"ListPlot", "[", " J; D/ _1 }1 j
       RowBox[{"y1fit", ",",
    % w( K& \; }- K& }! y    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", : L  S* ^$ `4 T7 g& X" d2 v: r2 C  b
        RowBox[{"PlotStyle", "\[Rule]", 1 P& J- H% I; U0 \/ |  x  ~
         RowBox[{"{", " f5 P$ Q8 ~6 g$ R& }& `
          RowBox[{"RGBColor", "[",
    $ k# ?' I: u0 j0 k       RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",", 2 ^/ I% a/ u/ |! D
        RowBox[{"PlotRange", "\[Rule]",
    " [$ G, s* E+ ?/ b! ~     RowBox[{"{", 1 C# T2 T( V0 p9 B2 @* x' ~7 T
          RowBox[{
    ! c, ?  s% v3 e/ d; {- T0 ^1 ~       RowBox[{"{",
      ~. O8 E5 i1 N, Z- Q        RowBox[{"61", ",", "89"}], "}"}], ",",
    % r, b5 k9 j! O- m- S       RowBox[{"{",
    + v0 q4 |: z- v3 Q; \0 _        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    7 ?- T& Y5 J- K( c, [    RowBox[{"AxesOrigin", "\[Rule]",
    5 Z) ~1 V% a: A* e# k     RowBox[{"{", 8 q, Z3 N3 ^8 K* p) ^
          RowBox[{"61", ",", "0"}], "}"}]}], ",",
    ! b2 l! V! e  h6 J9 A+ V    RowBox[{"Frame", "\[Rule]", "True"}], ",", # d- w5 H# X4 ]$ m# q8 M  f
        RowBox[{"FrameLabel", "\[Rule]", " C/ h5 v9 K3 I' g! Y/ |7 C: ^! Z
         RowBox[{"{",
    ( \: {$ `3 D7 ^4 w4 p      RowBox[{
    ; _9 }0 }7 F/ _! I      "\"\<\:7089\:6b21\>\"", ",",
    ' g  _2 d+ j3 l$ l" @0 _) E       "\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\5 ?. d9 r7 ~" G: @( z
    \:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",
    4 s5 ~' s  ^" K5 u# p7 \* E CellChangeTimes->{
    - N7 g* Y1 ^) F; _6 \6 `6 u  3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {5 [- ]7 P& g+ w/ s: j  E
       3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9,
    1 \6 Q6 m0 U" s' q% ^8 ^% Z   3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {8 \7 F$ J" r7 U3 X2 L: \3 p: N6 T. A
       3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],
    / F/ G6 T0 k+ F6 [& `) n# P: ^4 k8 P5 R0 u3 G$ [
    Cell[BoxData[& X4 T; G% a) Q) a
    GraphicsBox[{{}, {},
      ~8 L( _' D+ K   {RGBColor[0, 0, 0], LineBox[CompressedData["
    1 U8 _7 Z1 r4 N1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
    # E7 Y8 Z4 s3 ]3 W9 m8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
    6 K5 C7 K4 d* T4 W% eD3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B. P2 c- R) I8 W: _+ r6 @
    1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX: L" f/ t# x+ C  I. e( H
    C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN! p" g5 |% f8 P2 O2 r. q* v
    a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
    ; n- U. X# o& |& T1 W; n" @; ZyqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb8 y3 z% R/ c1 j* g
    wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
    4 a, s$ R$ I( N  D7 _Y6nGQ3sAieueIw==4 e3 v; o9 T* t2 @  f- o4 ?9 o
         "]]}},' L/ a5 ?$ p* k# V, n& z
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    : R+ m1 E' m1 ^1 e+ m  Axes->True,( w( [  \5 s' u+ S
      AxesOrigin->{61, 0},
    ( d  g2 R# j( ]9 l+ t  Frame->True,5 ]2 B( O: D( _* X7 Z& u
      FrameLabel->{
    ' ?* d* E6 X+ ?    FormBox["\"\:7089\:6b21\"", TraditionalForm],
    ! b7 y8 ^- W$ T% \9 ^6 F7 }& l& K4 Q    FormBox[6 i' i2 V* D# O. m; s
        "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\" {: g( G+ w% v6 J1 a/ N1 i0 V) F0 h; b: |
    \:ff09\"", TraditionalForm]},
    6 M" w6 e3 ~8 A& V5 B  PlotRange->{{61, 89}, {0, 1}},
    ( H) G1 k2 f$ E" M. e  PlotRangeClipping->True,
    ( M  F# u7 E' `: L. W9 @  PlotRangePadding->{Automatic, Automatic}]], "Output",0 W+ `6 {% m. ?. y5 [4 X! d7 ~
    CellChangeTimes->{/ }4 v, g3 J4 L7 S8 {$ \( A+ [3 b
      3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9, " q" s7 [/ `. d: M, m" I
       3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9, 9 e. Q2 m* j+ @7 k
       3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9}, ; M1 s- c7 d. r/ R- T( {
       3.577962187510705*^9, 3.578012396921875*^9}]4 T  U! b$ E* F; K* P) _/ A
    }, Open  ]],$ E- m" _5 t' o' A. C2 i* Q

    + |& O5 d+ e" y9 I$ \! a! V. mCell[CellGroupData[{
    ; m: y0 d/ Y3 [' a  Z$ c/ c
    0 O1 g2 f; M3 z$ H1 q& sCell[BoxData[1 S' H* N: p7 D% G1 a
    RowBox[{"p1b", "=",
    ! z6 S; `2 @5 k: g  RowBox[{"ListPlot", "[", 9 ]0 Y! Q2 |/ k8 h
       RowBox[{"y10", ",", ' `9 N9 y8 X: i2 Z
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", + B' D  S! Y# T) L. M% N
        RowBox[{"PlotStyle", "\[Rule]", 1 k9 t) A, B  S8 J
         RowBox[{"{",
    ; _' D/ ~4 n; [  l/ j( Z      RowBox[{
    4 Q' i9 g4 ~* N& Y( z       RowBox[{"RGBColor", "[",
    ; O2 L& c& _( O% {        RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
    . f% p$ G8 {9 `- y1 E0 j    ",",   T: D0 n1 ~2 }3 X
        RowBox[{"PlotRange", "\[Rule]",
      s/ |8 x7 o" ?) Z     RowBox[{"{",
    " P2 R( W1 B& o% S      RowBox[{( j  f0 ~7 q; w" e; e+ k" l
           RowBox[{"{",
    : O  h$ g: c7 m: p        RowBox[{"61", ",", "89"}], "}"}], ",",
      j& R0 @9 {4 i( M) H3 a       RowBox[{"{", 6 T/ B0 a# S, ~0 F; \. z$ ^
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    1 Q" m; q8 {- D: c& }    RowBox[{"AxesOrigin", "\[Rule]", 0 z! _9 u2 h7 u" \0 g0 c
         RowBox[{"{",
    7 l5 B7 ?; {- [8 e6 j) V% i" L( L  R) f* n      RowBox[{"61", ",", "0"}], "}"}]}], ",",
    % l/ q  Z% W" U    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
    3 L3 Q/ C/ N5 I# f+ e CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9,
    $ s/ N, [0 V9 j5 Y% U: H9 n  3.5779597764166365`*^9, 3.578012409265625*^9}],
    + n, b! ]$ o4 c
    & [5 x% W* w. \5 ^7 X4 XCell[BoxData[
    5 D$ }; \  k# E3 i6 H# ]- @ GraphicsBox[{{}, {},
    2 p8 A. F2 v; |' I   {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["# q7 h- o- p. E
    1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
    2 ?% A$ l0 w! O6 w& H6 T! x- i/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
    * m& R# X5 i7 ZGwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy+ K$ `0 r' ^6 I% o. u* ^& n
    GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
    * U4 c+ s/ p" p0 V7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/0 S; R- y4 g* U3 g  s8 E* R
    Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri( R4 x$ c6 r% E4 s& c8 T
    H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
    3 d1 n' Z% Z" l& w) O4 d1 LrQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T5 r% i' ~; K, ~% B1 N1 H1 [4 h  Y5 x; f
    vA==
    : S- G) r" ]. \, V     "]]}},
    " g; ~/ o+ o- H; ^9 W- i2 q. _  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],' e! U' u6 t2 u/ `
      Axes->True,
    . G! E  `8 X* A  AxesOrigin->{61, 0},0 j/ B/ s  o6 @1 `& M) `* t
      Frame->True,* N' @+ T  v7 U
      PlotRange->{{61, 89}, {0, 1}},0 q& T0 ?7 `6 v) T$ g
      PlotRangeClipping->True,
    % R& z( {( A! }6 I% s) ?  PlotRangePadding->{Automatic, Automatic}]], "Output",
    & k2 }7 f3 s, g( t" k CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
    + u( Z9 G9 J! O; d* ^: K8 q  3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9, ) k2 z8 R  U- ~- q
      3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]  x/ I8 b, U( P" G# i( Z, p
    }, Open  ]],$ f) R/ o1 u5 }9 j2 E& C
    2 u. e7 }# M9 d$ B6 S
    Cell[CellGroupData[{- e* Z: J' g' L& S4 `9 `$ T6 a) M

    & x2 G5 J  F, L7 V2 f; r2 B0 oCell[BoxData[* M1 p9 @# r. g7 w8 A
    RowBox[{"Show", "[", # s, k! |) \) @9 b2 g3 e
      RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],- W  n& G0 R2 k% C5 o2 g7 g
    4 c& s& b- U" Y2 H! t8 O% m
    Cell[BoxData[
    & v! `# F; ^# v& e GraphicsBox[{{{}, {},
    0 v0 p: |" p7 r: K4 g    {RGBColor[0, 0, 0], LineBox[CompressedData["+ P& c" h" C0 l/ a1 v
    1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
    ; ^/ `$ f* Z5 `! a: v8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq2 @3 i6 v% j/ i$ h  f8 y1 Z
    D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B$ ~/ \1 a, k2 ]: O- c
    1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX9 ?. a" o' G( B5 ^
    C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN
    + t. ^& Y+ F& M; {/ Aa2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff5 o. h7 m% U, J, Z0 J
    yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb0 r( |& _6 S4 L
    wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59; i7 a( A% _( O: L7 T; {$ M
    Y6nGQ3sAieueIw==! p- F" G% L' F8 |7 `! G: `
          "]]}}, {{}, {},   g$ [: L4 a7 R) J) e$ P  a  l
        {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    7 l. _9 D$ A, D/ ]* Z0 [1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
    - ?& P" ~4 Y: C/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
    ' S8 O6 _6 m: n( S% u$ v- }GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy$ y1 J4 [/ F9 f: W9 Y1 a
    GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy$ V& |; K/ I( K. o% x  l& R6 x
    7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/5 w2 Q( d3 F6 ~( e  f
    Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri* t% n9 G0 B- |! F- J9 U2 l+ W
    H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV& e7 k' f( c- t0 B* U) h
    rQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
    * x4 e- A( D7 _8 u) uvA==
    ' h/ @' Y$ ?8 r4 Z      "]]}}},
    % d' z+ I8 w' R2 L& i" {& P  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    3 z* L0 R& L" S7 f  F' n  Axes->True,0 Z/ t+ |1 _. i3 z" L! Z* l$ R
      AxesOrigin->{61, 0},
    + O# d5 t5 N, f- p, r  L  Frame->True,- M, s% p$ x; K# H
      FrameLabel->{7 U! |. N) p3 }& g# C& _
        FormBox["\"\:7089\:6b21\"", TraditionalForm],
    9 z* i* _% V& z    FormBox[' [  e# s1 p" R3 \
        "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\7 [7 |# B% ^) G% Z& x
    \:ff09\"", TraditionalForm]},3 D1 {% j* s$ \: e) L5 ]
      PlotRange->{{61, 89}, {0, 1}},
    " |& |# x: F; J; W& @1 O  PlotRangeClipping->True,/ Z; ^8 v" F' x5 _4 m4 o/ I
      PlotRangePadding->{Automatic, Automatic}]], "Output",+ ~" v5 i7 Y/ X: [
    CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]
    , C, F$ p, f) c! D3 ?2 U/ T}, Open  ]],7 k) F0 Q9 i) P0 }

    ' p/ u: k8 {9 BCell[BoxData["\:62df\:5408wi1"], "Input",
    + j* {2 C$ _. q+ B2 C CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}, , t) L  c# |# M5 A  b: x/ L
       3.577959662349238*^9}],  `! m9 q5 w( j6 G7 Y
    . _) U4 ]7 K9 N: v$ d$ i; d) m
    Cell[CellGroupData[{
    , V4 r5 e: _- b, I! E. I8 v1 P; ~/ U( j( `' O. j2 W. Y
    Cell[BoxData[
    * h# G, z# b5 r, g- K! q5 y RowBox[{"y1b", "=", 3 ^- S- ], h  q( Q0 r; g
      RowBox[{"Table", "[",
    + h  f7 o0 y/ y* @9 g   RowBox[{"x", ",", 9 u' [( H. ~3 Z: P" V# m# ^+ ~) k' K
        RowBox[{"{", 4 F) H$ L$ A5 E8 n  ^" N
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
      Y0 v% ~6 r6 }8 J  V' r: E' L% m CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
      D% w( X( T$ t# \0 {   3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}],
    ( E+ `$ w1 B: p3 _" T) o
    ! `. X7 x; N' C& P9 J' ^, ACell[BoxData[$ [0 N! N+ d2 l$ u7 T
    RowBox[{"{",   B5 u9 Z+ G% ]0 H
      RowBox[{
    . m% B8 o% Z1 J: l) {* k  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 ~6 e; ^$ ^0 o   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",$ n0 ]* O% m9 R+ l: [
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", & I$ U! k0 k; n6 J
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 6 w: |. ?% v" f( I
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", - _: D6 W7 ]% C& r
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    9 U$ N) d6 W" u   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    ) q: Q1 N0 ~9 \  C9 s6 n" u3 N3 u   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", - A0 Y- |9 E! t' U& }2 D( ^
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], ' P& b- }! x* `% P, ^% d3 W
      "}"}]], "Output",
    $ S6 _7 F; h  T/ e0 Z+ _ CellChangeTimes->{2 k  F: o! r2 T' m
      3.577922682296875*^9, {3.5779582291435394`*^9, 3.5779582351339493`*^9}, 0 _( G# x5 }' Q5 H" v
       3.577958478041973*^9, 3.577959010205701*^9, 3.5779622225483656`*^9, / s7 \0 V" Q% @" k) w" A. x! F
       3.578012438953125*^9}]
    0 J9 q) s& _! F* m2 |! B}, Open  ]],
    $ C1 W9 m1 u5 d9 l# t6 c) L4 d( M( p2 r0 J" k7 e& w$ r! g
    Cell[CellGroupData[{+ Y8 \. b4 {5 H) _4 s
    3 V# |; d: o- A1 R5 n
    Cell[BoxData[
    ; h8 b9 _# i: |/ y' } RowBox[{"Data", "[",
    8 R7 ~2 `0 A& d# g  RowBox[{"[", 3 ?% L# |5 r' u# Y1 F4 i9 _) Y% @
       RowBox[{"3", ",", "11"}], "]"}], "]"}]], "Input",4 L* {% K8 w8 R
    CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    7 j" Y  o% \) K   3.577922912015625*^9, 3.577922912171875*^9}, 3.5779582414831605`*^9, {
    8 V5 N2 ?: R4 u9 r   3.577959014090108*^9, 3.577959016040111*^9}}],
    0 M9 {5 ^2 n8 F; E
    / Z" {; q+ i# i0 Y$ ]$ z2 `; vCell[BoxData["0.492958`"], "Output",& G1 {; g0 c8 u
    CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, * R3 k. P  W- p7 ?  \  `3 L
       3.577922913203125*^9, 3.577958242809163*^9, 3.5779584790403748`*^9, ; ~8 w/ p0 P( J1 y. t
       3.5779590175689135`*^9, 3.5779622239523687`*^9, 3.578012439828125*^9}]( x* J. `5 w" j; m! k4 V
    }, Open  ]],% R( L0 i+ |, s+ y: N9 k
    8 b, d# S" s! a
    Cell[BoxData[3 m7 b- {! ~& V
    RowBox[{"For", "[",
    ' s! t/ d& [0 W. N  RowBox[{( F: _& Z& u7 K* E, [0 |
       RowBox[{"i", "=", "1"}], ",",
    ' q' _& F2 S1 R   RowBox[{"i", "\[LessEqual]", "60"}], ",",
    ( q' P% |2 L5 d- O; R  n7 Q  Y4 u( U   RowBox[{"i", "++"}], ",", : ^6 x3 v0 \' |$ a
       RowBox[{  T; b; F) Q7 }& M, M7 J
        RowBox[{"y1b", "[", " x7 ?* E- x( H: E' u/ x2 N( G* q( V
         RowBox[{"[", "i", "]"}], "]"}], "=", ( ~3 P. H( j8 ^) p/ R7 }: E2 i% d
        RowBox[{"Data", "[",
    $ F6 _7 p* {  G' L     RowBox[{"[", ! k8 q8 W& c; f/ B, q
          RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",7 s, L+ s6 p* j0 Z* A6 y
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {$ I: @$ j4 N* Y0 I( y5 s; p7 _
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    ' s3 [% g* Z: [- s" g  G4 P; i8 T   3.577922923203125*^9}, 3.577958246272369*^9, 3.5779584755771685`*^9, {
    # t# a: V' P8 q) c4 b$ D3 X% L   3.57795902089172*^9, 3.5779590227793226`*^9}}],: L0 r8 R2 |& R4 [9 R6 r
    ; {3 p5 S/ n( Z$ O: D7 f7 c5 Z2 V
    Cell[CellGroupData[{! T9 d/ S7 }% R1 F
    ) ?) F& W  ]$ v- K- E8 u6 P
    Cell[BoxData["y1b"], "Input",
    " A, K8 j, c, E/ c. d6 m& M CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}, 7 ^1 j- H7 ?. k, l
       3.577958484172784*^9}],. X4 n1 ?% v) L4 I

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

    4 e$ y7 @- y1 r" J2 _: i' UCell[CellGroupData[{
    ( e9 ?/ y1 @( }* }$ [+ M( e
    + C4 G/ F/ \8 k$ `* k7 a9 ?+ uCell[BoxData[; x# I: W$ i3 V$ C0 Y9 f
    RowBox[{"y2", "=",
    . E* U8 w8 `: d$ {& g( T  RowBox[{"w1b", ".", , F* z/ b$ T3 ]
       RowBox[{"{", ! t. \' W& {8 l6 }
        RowBox[{
    " h: J! ~+ j4 |3 e$ A; i/ m    "u1", ",", "u2", ",", "u3", ",", "u4", ",", "u5", ",", "u6", ",", "u7", $ h$ Z6 d# T5 j
         ",", "u8", ",", "u9", ",", "u10", ",", "u11", ",", "u12", ",", "u13", 2 O: `5 h1 G% V5 D
         ",", "u14", ",", "u15", ",", "u16", ",", "u17", ",", "u18", ",", "u19", 6 \1 N1 q& U* u% I3 ~
         ",", "u20", ",", "u21"}], "}"}]}]}]], "Input",) y+ l0 C2 p0 x# m
    CellChangeTimes->{{3.57792471553125*^9, 3.577924755875*^9}, {
    $ l& T7 w7 P: `$ m/ E& z   3.577924897078125*^9, 3.57792491596875*^9}, {3.5779583101856804`*^9,
    $ z2 o. W7 r/ N% T5 W/ g   3.5779583178920937`*^9}, 3.5779623163513293`*^9}],% t/ j! x" _1 d4 F, B

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

    : v/ _* e7 l, RCell[CellGroupData[{- {) |4 F2 i& n% y' t3 T
    ' }# L; G" T1 x% v4 T
    Cell[BoxData[
    & U6 F/ G/ T0 b  s; E RowBox[{"y2fit", "=", " h* ~3 q7 Y2 A
      RowBox[{"Table", "[", 2 c  j3 B# \. W2 U# d0 l
       RowBox[{"x", ",",
    - F# P0 I0 Q! C- h2 n3 o    RowBox[{"{", 0 H* V& I) [# Q: f- Z% z9 ], [
         RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
    9 M) S/ I5 u# Q; g CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {# Y8 z+ z. i7 H* e; K, r: J
       3.5779252768125*^9, 3.577925277484375*^9}, 3.5779583246625056`*^9}],, R9 M- r0 }* I. @" M) k# p

    ; l# V8 u. S# gCell[BoxData[
      r( ]  M( V0 `+ v# o. G0 c" [ RowBox[{"{", , Q0 V) d# a1 f8 {# @& N( `6 _, o1 z# @
      RowBox[{
    * n4 C6 t$ _' D+ o) }2 q/ U1 Y  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 }+ T0 s8 q* J& i   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    ! L+ }: H/ [# A7 G* }: f: I    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", % E) k7 |: _3 r1 m1 K+ d0 h! o4 O
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    . v. Q9 q: b* D2 z   ",", "29"}], "}"}]], "Output",  K; Q5 q. |' J, B' T
    CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9, 2 R3 y# N: l/ r
      3.5779583268153095`*^9, 3.577958508118826*^9, 3.5779590470685654`*^9,
    - I" l1 J* x: s' B  3.577962320173336*^9, 3.57801245028125*^9}]
    + T0 |7 C: Z5 e}, Open  ]],
    4 f+ j& R8 W; F2 d* V; Y& z) {) W( J, ]+ D0 {. T: O3 i
    Cell[BoxData[* A2 J* ]& R! {" O% X2 q
    RowBox[{"For", "[",
    / r+ \3 W. {- M/ v( S  RowBox[{
    : k8 a  [+ x7 P, n   RowBox[{"i", "=", "61"}], ",",
    9 C. m8 u6 b3 p8 o, s% _0 f   RowBox[{"i", "\[LessEqual]", "89"}], ",",
    * O9 r- N+ F! p; ?7 J0 a   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 8 y* o! {& ~' R! A+ y% g
       RowBox[{6 r* ^4 v7 Q/ K2 x* d
        RowBox[{2 k" c  A. h9 j
         RowBox[{"y2fit", "[",
    / X8 `: n0 A8 i- Y1 D+ Y/ N      RowBox[{"[",
    $ m6 [+ U7 z  R/ ^) R4 [1 p8 P       RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", / h/ H% |. W- v( R* b, w
         RowBox[{"y2", "/.", # p. q& l3 ^: w
          RowBox[{"{",
    ' w% m3 f" [( W/ G% K' y, M       RowBox[{
    / G# ^: t4 I  @. j6 s        RowBox[{"x1", "->", - A/ Q' H) k; Y; ]3 A
             RowBox[{"Data", "[",
    / v* Q2 L1 i/ ?* `  J' |          RowBox[{"[", + Y) ^- R+ z  h( h- X& w4 p4 _
               RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    ) ?7 h1 U, f1 Z6 |. [9 I        RowBox[{"x2", "->", 9 l& E2 ?1 r9 ^! w0 P8 C" y
             RowBox[{"Data", "[", ) ^: z' C; b* _, k4 t# D7 q
              RowBox[{"[",
    0 K4 y* D1 s) Z$ Z           RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    8 I( j: _1 ]3 S$ m6 V& |: i        RowBox[{"x3", "->",
    ; \2 u4 O6 x: t         RowBox[{"Data", "[", 9 e5 u1 ^/ ^+ Q. _# N  ]; `% F
              RowBox[{"[", ; ]) j: a3 z6 S# S- v' c* V" l; A
               RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
    * f0 O5 u# m5 b+ @5 w        RowBox[{"x4", "->", . ]% D0 y/ G3 U: t
             RowBox[{"Data", "[",
    1 P2 a1 s! i6 _7 g3 r/ y; p" Z; [; w  L          RowBox[{"[",
    " \  M6 J0 O, G           RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    , J& G) d: p, e# Z        RowBox[{"x5", "->", 1 B( E. m  R, `
             RowBox[{"Data", "[",
    & J8 r" |1 q: c0 _/ [- m' G          RowBox[{"[",
    " Y# A, h3 n4 i5 R8 y% R3 }           RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    / z+ }3 a3 u6 @3 s, X8 ?        RowBox[{"x6", "->", + Z# n0 H  x3 p, J) m+ z/ i& V
             RowBox[{"Data", "[", 5 m3 i, Q2 u3 v2 f# E7 T- q
              RowBox[{"[", 8 e- j5 o% S2 y) h2 c
               RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
    5 X$ ?. t  F3 A; r! k, A# ]# H        RowBox[{"x7", "->",
    8 Y4 N! w& a+ m6 Z         RowBox[{"Data", "[",
      i9 e2 T8 p8 {, g          RowBox[{"[",
    $ X) I+ ?5 _1 b6 H4 S  n           RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
    % v4 u$ [3 P8 V* K$ I* S        RowBox[{"x8", "->",
    8 ^8 ^4 H5 U: W7 X, M4 `* ?         RowBox[{"Data", "[", ' ?4 J/ x& p" X
              RowBox[{"[",
    # F+ o, G7 t% ?           RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
    0 S7 F% K. J5 T, {1 E; ^' u, H1 x  ~        RowBox[{"x9", "->",
    ) s1 r( a) `7 f! H) v* w, A         RowBox[{"Data", "[",
    * W# E0 |6 t% L          RowBox[{"[",
    ) b9 [: _# a  z8 t  @           RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}],
    % C4 R( R2 t9 W' i3 R2 G  "\[IndentingNewLine]", "]"}]], "Input",# k( n6 E' m% J4 S8 Q$ e4 e
    CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {
    + Y0 o) A" x1 f- p2 D  3.577925286140625*^9, 3.577925306765625*^9}, {3.577958329919715*^9, 0 J- {+ K  H' Y3 ?9 j# r: X) n  n
      3.5779583326341195`*^9}, {3.57795892351635*^9, 3.57795892354755*^9}}],# B" o" k) y6 x4 s, E

    3 T% I& W4 H. v) i  @/ TCell[CellGroupData[{% r0 r* t) N0 [4 P& ?

    : B3 t) `- Y6 SCell[BoxData["y2fit"], "Input",2 {+ W! P* i4 _8 F( L# _! F0 r
    CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {% Y2 M$ d; o) e
       3.577925040484375*^9, 3.5779250440625*^9}, 3.5779583419785357`*^9}],
    % z* g" d) O, J1 Y. v, ]7 i/ K  D4 x! @
    Cell[BoxData[
    9 M7 P  Z' W; x: ~) y. w6 Y2 F RowBox[{"{",
    9 Q( Z  E# k1 ], }, f: U  RowBox[{
    $ s) o: S6 \' p' O6 m  "0.4853171132859182`", ",", "0.4508635216665074`", ",", : Z7 S3 D# R, O7 \' n
       "0.3642119241752518`", ",", "0.42852077425595436`", ",", 9 J- w4 i) p. U$ y# U
       "0.4712694272667798`", ",", "0.5257533056184774`", ",", ( u2 L+ ]2 d, H( z3 X0 O' N
       "0.48620658140716133`", ",", "0.41106838915591876`", ",",
    $ l. r; S* Y$ [  F5 ?1 M  o   "0.5486894206610674`", ",", "0.007731168540073459`", ",",
    # @! {3 S1 h- d( C+ B' A: z9 p   "0.013872406140339109`", ",", "0.3956995051659558`", ",",
    ( T7 T' W# J" r4 M/ A) c4 a   "0.3663118256142708`", ",", "0.29094217358055163`", ",",
    5 Y- F7 _5 R1 h) I8 M   "0.5453093690736555`", ",", "0.44138898880777927`", ",", ; v) {# I5 x& G* y7 t+ S5 s
       "0.42944922031163496`", ",", "0.43092890556748836`", ",",
    $ @6 p8 g# Z8 i, P2 Y% O$ N   "0.5942402821739969`", ",", "0.330046090785457`", ",",
    1 k3 s! t" m! `0 a' Y# v0 _9 B   "0.18938658036630585`", ",", "0.4263720292858679`", ",",
    9 P, j3 }, q3 N* g5 O   "0.23377136184738775`", ",", "0.02232858193309988`", ",", 1 H* K2 F. A' h: r1 f' e, Y
       "0.244364200084268`", ",", "0.5562383565309971`", ",",
    / U5 M) o0 `' H+ \4 E$ w7 O0 C   "0.13114103402954333`", ",", "0.5815052048989465`", ",", 8 I$ x' a* B, J# k
       "0.4253455966293501`"}], "}"}]], "Output",
    & V8 D0 A. B' k% a1 V" M& g$ p+ } CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9, " c0 e0 a4 c2 l  X
      3.577925312375*^9, 3.577958343257738*^9, 3.577958511784832*^9,
    3 q/ x! c5 @. N5 I* A" Q9 W  3.5779590518421736`*^9, 3.5779623249157443`*^9, 3.578012452421875*^9}]
    & r% A) V" a5 z; Z0 P* i}, Open  ]],
    4 x" }* }4 ^- [8 L4 {
    & U2 q0 ?  q: e) ]+ Y: bCell[CellGroupData[{
    , Q( ]" Y5 I$ j; E, F2 s8 M, w) A( n9 t
    Cell[BoxData[+ O  F- I4 V! n/ y3 T
    RowBox[{"y2fit", "=",
    : b4 Y+ ?# H" j4 O! m, c+ q2 T; [4 l  RowBox[{"{",
    # _- T6 H, [/ m) j. W5 c6 b   RowBox[{3 F% S: b6 X# C3 V# K7 ?& s4 x3 j- G
       "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", + ^8 U2 |4 g5 m* H2 ^; C
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " k+ H' Q# Z) S& m2 l' V; G
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", + q! Y4 x9 k, A4 Q$ w
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", 6 w$ u$ P$ m3 D) I+ H
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", , h# C/ g  C9 ^/ W; e4 y" ^
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", 0 c$ w" }& v" R/ q! E- l
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    " {. A+ @, Q; z9 w# ^    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    * ~. f8 q; s; ^# Z  V/ L9 h    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    * q  F; I  h2 K5 E  S' U6 H; W    "0.48531711328591953", ",", "0.48531711328591953`", ",",
    * a; g% f+ D, S; Z: ]+ k    "0.45086352166650845`", ",", "0.36421192417525217`", ",",
    / J9 y6 n4 R% B( [    "0.4285207742559556`", ",", "0.4712694272667811`", ",",
    0 [' P. ]8 @* X3 Y; |' g4 S    "0.5257533056184786`", ",", "0.4862065814071623`", ",", & f, n+ U  q7 J) S1 Z" W" m
        "0.41106838915592014`", ",", "0.5486894206610683`", ",",
    ' B) T+ S8 ]- P( D8 C5 }+ D    "0.007731168540073532`", ",", "0.013872406140339166`", ",", 6 @* `1 B4 f' M4 F2 e: f9 C
        "0.3956995051659565`", ",", "0.3663118256142717`", ",", ! }( N5 r- O% K6 ~" Q
        "0.29094217358055185`", ",", "0.5453093690736568`", ",", ) o; v  T4 r1 L+ V
        "0.4413889888077799`", ",", "0.42944922031163585`", ",", ! _- ~- w0 F1 [8 z5 F6 ^! D- K
        "0.4309289055674891`", ",", "0.5942402821739983`", ",", 2 W% c* T. ^% E: ]* K: s( R
        "0.33004609078545805`", ",", "0.18938658036630632`", ",", % S8 N$ x4 T% t6 j
        "0.4263720292858688`", ",", "0.23377136184738778`", ",",   t3 }% R7 E0 o6 k; [& C
        "0.022328581933099827`", ",", "0.24436420008426807`", ",",
    - ]3 q0 f8 M" s) C    "0.5562383565309981`", ",", "0.13114103402954314`", ",", 3 e$ Y7 J, j; B
        "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]}]], "Input",
    6 [& U/ S+ B" X2 {' A0 o( I( S! v CellChangeTimes->{{3.577959355746303*^9, 3.5779593854019547`*^9}, {
    7 I% z1 i; X3 k; S/ |  3.5779594223272195`*^9, 3.577959425104024*^9}, {3.57796233399496*^9,
    ) Y: T/ T- `/ r  3.57796233957977*^9}}],
    9 }% G- l( s: i; C% M1 l% s8 Q# m: y
    Cell[BoxData[
    3 v( p; Z: \$ K  w- B# v$ C* ]. B. ]/ s( @( V RowBox[{"{",
    9 l, Z: C- a4 c+ ]: h, }( \' ?$ ?2 ^  RowBox[{
    / n/ v( @& @( t- G0 n0 @0 R  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ' L- P. f; V; ?2 L, d+ r5 z4 c' u
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    3 C+ ^. g# F- ]- _    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", ) I+ [0 V$ S) [/ `* x
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", - {+ v' V$ p; W1 v2 U5 J- o2 X
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", . p* o- |+ S& D3 [
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", - p! k$ T% d3 s3 w. U4 g
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    7 M, h- M. c0 \/ D   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", / m9 D: P, V7 D; m5 `
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", 0 ^6 l- [& f( F& W' ?
       "0.48531711328591953`", ",", "0.48531711328591953`", ",", . z0 G* X  j- G7 ~  O7 o
       "0.45086352166650845`", ",", "0.36421192417525217`", ",",
    0 @# d' X) h* P) W& b$ Y3 ]   "0.4285207742559556`", ",", "0.4712694272667811`", ",",
    * g. ?+ h, f$ t9 W/ M* o5 R! R* Y& ?   "0.5257533056184786`", ",", "0.4862065814071623`", ",", ( ^6 t! X+ X9 K& `1 D: v1 G9 v8 b
       "0.41106838915592014`", ",", "0.5486894206610683`", ",",
    : |! H% ?9 m6 b% K  ^2 v6 D4 ?   "0.007731168540073532`", ",", "0.013872406140339166`", ",",
    & K- C6 e$ n1 U% e7 S4 |$ x   "0.3956995051659565`", ",", "0.3663118256142717`", ",", : b6 c: w& H' u& \
       "0.29094217358055185`", ",", "0.5453093690736568`", ",",
    9 ?* C8 G# i9 j3 z, k6 V2 H   "0.4413889888077799`", ",", "0.42944922031163585`", ",",
    ( M; e' T0 ^4 R8 g' w5 {! z  B   "0.4309289055674891`", ",", "0.5942402821739983`", ",",
    6 s/ c' k5 R' o: a+ a/ E  v; f& M. j   "0.33004609078545805`", ",", "0.18938658036630632`", ",", , f3 e" I4 D. j/ B% I( }
       "0.4263720292858688`", ",", "0.23377136184738778`", ",",
    " }6 ^2 @4 U) D* |" \4 }$ O   "0.022328581933099827`", ",", "0.24436420008426807`", ",",
    0 c% J  H, k: r5 e6 D$ G; F$ k   "0.5562383565309981`", ",", "0.13114103402954314`", ",", - `' @% ?* v: y" }' X7 f
       "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]], "Output",
    # P2 t) u9 `7 s; q4 G9 | CellChangeTimes->{3.5779593961191735`*^9, 3.5779594268512273`*^9,
    ( N! Q/ S% M+ g" ?  3.577962342060174*^9, 3.57801245340625*^9}]
    & i% H5 W" |5 Y1 z  q; R2 c}, Open  ]],8 q$ p% H5 ^7 _9 E
    9 N# V0 R, G% O/ w; P) Q
    Cell[CellGroupData[{6 m& D/ @  N3 Z1 N) B( W
    7 @4 H- S9 ^2 L
    Cell[BoxData[
    6 {/ [% G! `- u8 a; I6 ~ RowBox[{"y20", "=",
    : l+ E& X6 e9 r0 E  RowBox[{"Table", "[",
    2 `- ^5 ?' s: ^9 s" x$ a   RowBox[{"x", ",",
    ' I! j3 g) a, e4 `    RowBox[{"{",
    4 b" m0 e9 `8 B  T4 x( W     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
    - r2 |3 o& t* H CellChangeTimes->{3.5779253628125*^9, 3.577958351198152*^9}],
    - G; ~4 E7 n* N. m, d" |3 L. F( |( q: u) \( b  H
    Cell[BoxData[
    8 W8 q5 P/ Z( k% W- ~  c; {  H RowBox[{"{",
      c+ _, k6 N; |! [& ?9 `  RowBox[{3 S( \* ]1 O3 c
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    # p( X; \( r* p( D3 P- s+ h   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    3 g) x' ]) X* u, H% M- q! y/ ]  k    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", ( V$ d7 v) R7 f" M( U* w, s6 Z
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    & }+ e3 J& M: c9 X$ n1 A6 ?. k   ",", "29"}], "}"}]], "Output",& ~* A$ w: b. i1 _6 N- @
    CellChangeTimes->{3.57792536553125*^9, 3.5779583535225563`*^9,
    8 ]) F, C" i* a3 J0 Y* J7 O/ v* H2 V  3.577958515653639*^9, 3.577959053714177*^9, 3.5779623443065777`*^9, % b& q9 }3 B" r( _* {- ?7 V+ k
      3.578012454875*^9}]
    . m( V3 j0 b7 q}, Open  ]],
    3 T: u5 S5 m# j4 [2 v3 A* c/ W4 c, I2 |1 N. h" o
    Cell[BoxData[# v4 |; B; e8 O& S8 g
    RowBox[{"For", "[", 2 `# q4 t+ i. D3 d) U0 h
      RowBox[{' ^. S1 i" V1 Y3 L
       RowBox[{"i", "=", "61"}], ",", 5 x& t, S- c; n7 L3 y' y6 g7 c; a
       RowBox[{"i", "\[LessEqual]", "89"}], ",", & u6 N8 _; i- I6 N( ]" g3 V6 G$ {
       RowBox[{"i", "++"}], ",",
    ' i7 b! R; o, m9 o   RowBox[{
    / y8 s2 D( h( C4 l1 {6 u    RowBox[{"y20", "[",
    ; o  Q! U8 D9 |: \5 g     RowBox[{"[",
    0 n; I7 ^/ A6 L      RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
    6 {2 r& o! c. M+ d$ U6 c; }$ M0 [    RowBox[{"Data", "[",
    & X) p% d0 V( d0 }1 y9 w- o" S     RowBox[{"[", 8 c/ ~% F$ E$ C0 B+ ~
          RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
    : U+ N+ |9 o3 o; y; B) n CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    * u9 r( b/ Y9 p# G! A  3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    , K/ l* z9 u) I& r1 Y  3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, {
    . w  H  U/ ?/ H0 w/ c5 G  3.5779583574225626`*^9, 3.5779583606673684`*^9}, {3.577959056849782*^9, : _% d/ T: x9 d# v/ z7 [$ C
      3.577959058690585*^9}}],
    2 W. W4 |5 M: \9 o" s( q. s: c
    ! b# W8 U2 j3 ]$ U5 Z& N% YCell[CellGroupData[{
    8 |! X5 n: C; P. N6 n7 I) v
    ( X$ q+ d$ q# F" I  X8 g6 qCell[BoxData["y20"], "Input",
    + B, k% I4 b, R4 b4 R CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {* d/ w* x. \- a# ~% ~6 k5 V: Z
       3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9,
    $ [: P7 v2 |1 t   3.5779583657841773`*^9}],
    7 a, I4 v6 s4 v- ^, r# _' p: n4 q' Z& q0 ~
    Cell[BoxData[8 s9 H( C& S! ^( q
    RowBox[{"{",
    8 ^0 Y, y+ t4 Y; Z  RowBox[{
    8 ~# D1 t2 e" ?; l2 {0 n  "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", ",",
    0 `: R- `7 g6 |' ~6 m2 r7 a. D   "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",", 9 X% g1 O6 _' I6 l4 R
       "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",",   w0 q8 d. i/ z9 ~
       "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",", + L. W9 u% U! F
       "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
    5 G" l" A" u$ }' I" {) D% g' ^/ z   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",
    : n* }8 T. C" W, f. \7 f* ?0 E   "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
    : J4 i( e) l' S/ e   "0.323944`"}], "}"}]], "Output",3 |: g  {* [9 u3 L) [
    CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, + a& C5 q3 W7 i% F
      3.577925393046875*^9, 3.5779583678277807`*^9, 3.577958517946843*^9,
    7 I7 z' o& T+ N- k  _  3.5779590634017935`*^9, 3.577962347629384*^9, 3.578012456484375*^9}]
      T- p" S% a, \/ a: w. E}, Open  ]]," Q9 \# T, ~( L' m3 u) I
    3 f5 i( W7 D3 [( n# a+ }
    Cell[CellGroupData[{
    " U: `& x9 u: y" r" d7 g8 O
    8 J. N8 f2 c4 J9 Y! m, I9 FCell[BoxData[
    $ }4 I& U7 v3 ~, O! N RowBox[{"y20", "=",
    ; T" S3 o) O- F* I3 t6 `  RowBox[{"{",
    4 n: n* k9 W# t   RowBox[{
    " m: v  L; c( N- N   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", % f$ V6 q1 J' r% Y
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 _3 V4 l* k' s- E( e( q
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    ; _3 Q' G$ ]5 a8 |) Z6 e    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
    . P9 q( O9 a( B+ E4 ^# i( ]( W" m    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", - H/ H7 _8 |# M8 `" Q( s# Q/ K' U
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", ) n6 G& B! e$ i  P; q  V) ]
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", 5 G6 u  b+ o: J3 J
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", 6 d- ?* w1 X2 ?0 U; p9 p1 s8 C. {; R
        "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    5 ^1 h3 l$ J' _# Y" r: g    "0.507042", ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", ) V7 H% @4 @$ j( L% T& D; h. a! O
        "0.338028`", ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", / G0 }+ e* u7 {" u/ X8 }6 z
        "0.408451`", ",", "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", ( F% j( n; I% s" M/ @' R% y! w
        "0.746479`", ",", "0.887324`", ",", "0.84507`", ",", "0.704225`", ",",
    # J9 ^6 N5 i, e! T7 V* c    "0.760563`", ",", "0.43662`", ",", "0.633803`", ",", "0.422535`", ",",
    6 A  \+ l1 a6 @    "0.295775`", ",", "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", 4 g, T$ @! b* y. I
        "0.732394`", ",", "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", ( s" W0 z  \' w1 E7 c
        "0.56338`", ",", "0.323944`"}], "}"}]}]], "Input",- N: j+ j9 ^% H6 \. b
    CellChangeTimes->{{3.577959534959416*^9, 3.5779595573142548`*^9}}],2 @3 N3 r8 X. U9 n9 a

    & l* G! L6 H# q4 O0 |' o& D1 ?" xCell[BoxData[4 v- z. C  j% m
    RowBox[{"{",
    9 A8 j% B: A- p% w  p0 s/ o, t  RowBox[{
    6 D& ~) F3 z4 N  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", # F2 Q6 ]9 ]! }! ~( m) J# `
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",1 S1 K* Y% s* Y; C- Y  q" r5 Q
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", " i; t3 A6 C% c
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    5 N2 D! b2 H7 V; n3 n1 v# w   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", + r, ?: t3 d7 F$ m- C/ C  Y: ?
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    ' z8 h4 Y6 F5 `   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    ) a' Z! M! B" H# s/ ^3 a   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    * c  H. n$ B. G" w   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.507042`", ; y9 C" F! w1 V0 r* G" V$ v
       ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`",
    1 J% p( E( U: \" ]" v8 B5 K8 z   ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",7 X' ], |0 a; [! P' k
        "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",", ! _; K6 y1 ?, T% T- s
       "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",
    ( R9 r! a5 Q0 B' u8 [2 h6 t2 ~" T   "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",", / B) ?( o/ m+ ]
       "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",", / h8 R+ C: p. y# n/ G
       "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",", 3 T4 `7 T( Y! B& y
       "0.323944`"}], "}"}]], "Output",
    * j) h9 t! N7 j) @& F5 Z8 j* ?# @  A! q CellChangeTimes->{3.5779595594514585`*^9, 3.577962351778991*^9, 4 _6 v7 E. T8 }" k) y3 g- v
      3.578012457234375*^9}]
    ) Y! e. N% l2 [' h' P) V: _7 H6 ]}, Open  ]],
    ! k( ~+ s! T" P  p+ T9 t" V! y: f$ Y. X5 @& c$ P
    Cell[CellGroupData[{
    , T. ~; x+ o  i: a9 _* k; o
    . ]: b4 g- `% T. QCell[BoxData[
    1 W! a% o) _- N" s+ D RowBox[{"p2a", "=", - \& f% g$ P# l5 G/ p
      RowBox[{"ListPlot", "[",
    4 _' O1 p1 s1 Z" f8 k0 R, N4 j5 O   RowBox[{"y2fit", ",",
    8 j" S7 T2 V0 z    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", $ C4 D. f1 C/ P; S
        RowBox[{"PlotStyle", "\[Rule]",
    6 P, t2 J+ N8 C     RowBox[{"{",
    7 C* y9 l: |; @      RowBox[{"RGBColor", "[", 8 ]& a  J3 a+ j* N4 y
           RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",", % b, ]. I0 p: }+ M; X/ r/ i9 o
        RowBox[{"PlotRange", "\[Rule]",
    ( A! \! u* L" f     RowBox[{"{",
    8 S' P: ?0 O  b0 U      RowBox[{" t% {& s' }: X
           RowBox[{"{",
    - _. d+ X# F' O% N  h) Z, D        RowBox[{"61", ",", "89"}], "}"}], ",",
    8 i. k1 w( t% Q5 ?       RowBox[{"{",
    # I, _, f( x8 y; ~, n: K# U        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", " O6 ?+ `7 r) o1 @$ Q5 }. L0 H, ~
        RowBox[{"AxesOrigin", "\[Rule]",
    ) _6 x% ~. b2 s+ U9 |7 b     RowBox[{"{",   B) B4 {$ h) Q6 z- ?
          RowBox[{"61", ",", "0"}], "}"}]}], ",", & C+ a, X& E% Q5 n) U3 s" C
        RowBox[{"Frame", "\[Rule]", "True"}], ",",
    9 J' z7 w  W+ t7 J) o# _' c+ z    RowBox[{"FrameLabel", "\[Rule]", 3 C; a8 D0 i* h! ], o/ f3 R8 ?
         RowBox[{"{", - W% {* x* U  J/ @1 F
          RowBox[{
    3 B$ V$ |- w9 f9 ]7 D      "\"\<\:7089\:6b21\>\"", ",",
      h% O! q0 ?* A0 j+ f/ ?       "\"\<\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\
    . w0 |" X5 f0 I# N\>\""}], "}"}]}]}], "]"}]}]], "Input",, f( D# _+ {: H7 W" Q
    CellChangeTimes->{& R8 t8 T4 \" Y/ n* s- O) q+ n
      3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {7 l/ r, ^& x7 }2 z) l
       3.5779583712597866`*^9, 3.5779583781393986`*^9}, {3.577958536604475*^9, # g$ p4 [- Z7 U( g
       3.5779585491624975`*^9}, {3.5779592802577715`*^9,
    1 x5 O! F* J. k( s& A9 J   3.5779593014270086`*^9}, {3.5779594039971876`*^9, " Y- ?" @" p4 ]0 n( T
       3.5779594059783907`*^9}, {3.57795949706695*^9, 3.5779595174717855`*^9}, {% G1 q1 i! y! d4 i) p6 S( A3 y
       3.5779604302529774`*^9, 3.577960442311798*^9}, 3.57801246978125*^9,
    " e' Z- w& q* J   3.578012920859375*^9}],
    / c7 E9 P9 H( _8 D3 n5 D) w: Z; A& {/ q) i
    Cell[BoxData[  T/ Y; ?0 Q( J, G8 t
    GraphicsBox[{{}, {}, . J/ x+ s  E& ]; J- {1 Y/ t
       {RGBColor[0, 0, 0], LineBox[CompressedData["
    + w" O! e8 n' o1 t0 ]; d$ ^! e1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
    % l/ K' T& g, E* W/ s/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
    4 D: y$ e. `- g3 |0 G! o; ~9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P) ?8 M$ _2 i4 X
    ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC. k6 A) v: t9 ~$ R7 i. m
    qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK$ c# d$ |- X- G1 }$ p( o! K% f
    1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
    - q( \- y4 M1 R8 s; }9 P$ y6 I* E0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
    $ N6 ^& }$ f: `$ G. U; ~sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH' X) p2 H! {6 k. {
    99yxuG0PAHw7nyU=4 `  ]' V% _2 D/ _+ D# ?# j. c
         "]]}},
    2 p) [5 p, u4 |" f/ l* o  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      |' J) A5 ]) k" ~8 _  Axes->True,
    ) l! i- Y9 v1 d/ e3 _8 X  AxesOrigin->{61, 0},( x% Z+ Q5 P3 n# r' t
      Frame->True,
    4 W8 P2 S$ g) q1 x( V4 E  Q  FrameLabel->{
    # I5 R& b5 L" M    FormBox["\"\:7089\:6b21\"", TraditionalForm],
    ; e0 H4 f# D; g    FormBox[7 p  e# x; d6 V* x
        "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", 5 h1 ^% F  H8 J" r& [
         TraditionalForm]},
    $ a* T3 @  |+ i; e2 ^4 \# d- }  PlotRange->{{61, 89}, {0, 1}},
    ' \0 m8 V1 ^& _- Q/ E/ ^  PlotRangeClipping->True,: i4 d1 e) \3 p( s
      PlotRangePadding->{Automatic, Automatic}]], "Output",
    2 n! J' a# S9 L) ?* O CellChangeTimes->{
    0 w& h* b8 n. M' Z7 r  3.577925144625*^9, 3.577925396578125*^9, 3.5779583797150016`*^9, 1 p' P# T# e+ [" }. g  z: U
       3.577958519990446*^9, 3.5779585510813007`*^9, 3.5779590670678*^9, 5 P# {# r8 g( P) B5 e, E7 g
       3.5779593035642123`*^9, {3.5779594075383935`*^9, 3.577959430158433*^9}, ) D6 I! X+ P7 J% C$ f2 L4 _9 U
       3.5779595184233866`*^9, 3.5779604438874006`*^9, 3.5779623548833966`*^9,
    , T9 x' _  X! e" F2 m   3.57801247209375*^9, 3.5780129225625*^9}]
    6 f! I- M7 S1 K}, Open  ]],5 n. X/ ^/ Z! i2 ]! R2 G
    7 s, u. X7 i6 v4 {! @% ^
    Cell[CellGroupData[{
      V8 e1 V1 Y2 o0 L+ f" I- W% D! T. `
    Cell[BoxData[1 n$ x$ C0 k" s7 n1 A6 n8 ~# W
    RowBox[{"p2b", "=", # ^3 O8 ~- ^( @% m3 N& F
      RowBox[{"ListPlot", "[", % K0 F$ _3 k& l% k' m2 @& o
       RowBox[{"y20", ",",
    8 Z$ }$ t. ?9 O1 v5 l    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    2 z% b- W. c1 B    RowBox[{"PlotStyle", "\[Rule]",
    1 n0 S: ^) Q. ~( s" Z     RowBox[{"{", 1 S2 Z( a* O5 E) I$ ?! S
          RowBox[{$ f0 \7 o8 C# f
           RowBox[{"RGBColor", "[",
    4 c) N' `$ q, T5 V9 k7 V3 Y/ J        RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
    ) q! W) Q( _! [6 i: `1 ?% M. d    ",",
    - {. ~# o) w5 b1 M- {0 V( q    RowBox[{"PlotRange", "\[Rule]",
    1 u4 N$ A6 ^# k+ s( o     RowBox[{"{",
      L' U% F! x) S# [- e# a& R      RowBox[{
    1 z( o* D) N: s& g* i       RowBox[{"{", ! c, v0 O! X" N1 f
            RowBox[{"61", ",", "89"}], "}"}], ",", : R# G! u! e" x4 C# T7 q9 j
           RowBox[{"{",
    + D/ ]* r  [. E        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    # u6 \! O6 U  u; F, w    RowBox[{"AxesOrigin", "\[Rule]", . W1 N. L: |8 U
         RowBox[{"{",
    : ~# d6 r) P+ j( y1 y/ x7 s1 a# D      RowBox[{"61", ",", "0"}], "}"}]}], ",", - f! k, z$ ~: u$ h8 W
        RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
    3 Q) A2 G( ~& F5 v+ h: }( ? CellChangeTimes->{, j; x. a8 Q7 f+ Z: M+ h  j
      3.5779253991875*^9, {3.577958382429406*^9, 3.5779583843326097`*^9}, 6 @8 y2 G! Y% Y+ n
       3.57795855655691*^9, 3.5779595724462814`*^9, 3.57801248346875*^9}],
    " O  Y; v0 C. [! T! `
      K, ^2 B; L/ G5 R4 X* O# LCell[BoxData[
    ) T* L0 y% M5 c- m/ } GraphicsBox[{{}, {},
    # U, M( |/ v2 H( M9 Y* R   {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    # w/ z" J$ H% s0 p' C6 a1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
    7 ^# S$ o5 _5 _: v. ]  P8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
    9 b4 b' U% \0 Ic/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc: a+ R: |! D4 \
    iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
    * o# o* `) c, u: l- ?* PTZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
    & X& E" C3 n5 ~/ j1 h5 w( H; j' Q0 VfzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
    . g8 \# o5 t; `TWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG# ^/ f, s0 I; q3 U8 U: K( m9 s
    p0OYg4Fg/tz63VfsAdsCnzU=
    - z! E; K& l+ C8 m' z8 u8 S: b) A     "]]}},+ B* g& p" d& g$ p
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    3 l" G: v3 `( F$ j  Axes->True,
    2 p3 ^9 u( A) i  AxesOrigin->{61, 0},6 q0 h# H. ?$ X
      Frame->True,) m/ j/ {9 {, f0 j$ i& P: X
      PlotRange->{{61, 89}, {0, 1}},4 O1 H5 y8 E  m* w6 ~& B1 m
      PlotRangeClipping->True,1 S. q4 O( O& C1 X) B; ]
      PlotRangePadding->{Automatic, Automatic}]], "Output",
    ( ]- h/ v, E5 e CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
    ; b$ n; n% V0 |8 d. n- b  3.5779583861890125`*^9, 3.5779585219092493`*^9, 3.577958558132513*^9, + r% C2 k! A3 a3 `9 {3 t: w# }
      3.5779590691114035`*^9, 3.577959577906291*^9, 3.5779623569426003`*^9,
    7 I; H3 d0 |: `3 r5 D! `  3.578012484703125*^9, 3.578012925875*^9}]9 |. U2 }; Y6 ]' _( d9 v) D% }* O6 Z
    }, Open  ]],1 O+ ]) ?) G6 s/ F
    1 Q3 ~1 J! ^* ^; E9 X
    Cell[CellGroupData[{
    / K' N) W) f2 g3 `9 p! u6 \7 [0 m0 i9 p8 G- Y8 n
    Cell[BoxData[
    / i1 j( E$ T3 a6 g4 E6 ]% h& g RowBox[{"Show", "[", ( K4 s) l4 n! \: S5 ?/ g, w) k$ I' b2 r
      RowBox[{"p2a", ",", "p2b"}], "]"}]], "Input"],! N# e& t! c- F, h9 q- g

    . }  h% o9 R" v# @, A+ DCell[BoxData[
    6 i: A# M- y, f% ^ GraphicsBox[{{{}, {}, . W6 T- t7 k$ L5 F
        {RGBColor[0, 0, 0], LineBox[CompressedData["
    ! O4 }9 s) ^2 g- J2 w  {1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
    " a( M/ y$ S" `8 m/ d; z/ K/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
    5 t- [# g: E  [: {/ ?5 P" C4 e9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P
    & F0 V& g/ P" V! B2 [$ SofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC
    3 \$ K, R1 y0 N. N, y  nqPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
    % R7 a1 [, F" f+ h5 J7 E1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
    1 }" |$ d  ]8 {' w: b5 g  _0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
    3 l& G0 d* c7 v' TsPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH& k7 D% m, K# J
    99yxuG0PAHw7nyU=
    1 r1 U4 I" v9 R6 D1 ^# s. Q$ y      "]]}}, {{}, {},
    5 V' |# R4 i; r. o0 E    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["9 a: t  s: O9 R: e3 F- l$ ^; m
    1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
    ' F, e  l+ a0 ?3 J% q7 _& b5 J$ I8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
    # d4 D. ?+ u5 j' ]+ v, Q! `c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
    - ?  n) K$ \, K8 u) HiX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
    ( }) C  G2 g" rTZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO; I! R+ q+ C" [
    fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB7 @9 z4 R  r/ V8 y: b5 S8 M/ k. S9 Y# e
    TWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
    5 a  W6 o! J! ]3 S/ x/ h  g$ Ep0OYg4Fg/tz63VfsAdsCnzU=
    % y6 d2 g% m/ g/ x. U8 y/ d6 x5 P      "]]}}},
    - r2 s$ O! I+ e4 j, r  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    # {' N: Q# B5 |8 U. _! a/ [5 Y  Axes->True,6 ]% k+ y  C6 V% m6 j+ h
      AxesOrigin->{61, 0},
    / V- R, |# ]& j7 S) K/ Q" T0 S  Frame->True,
    5 p6 N0 Y2 R3 g- W* h% \  FrameLabel->{
    6 z, _5 Z$ v7 b& Q- k& J    FormBox["\"\:7089\:6b21\"", TraditionalForm],
    ' }0 [/ J: k8 K6 p    FormBox[
    2 {  I: {; k  {% q* @5 l* q6 K3 F    "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"",
    8 k3 m) P3 v/ z2 E     TraditionalForm]},
    / z% ?5 ?% t7 e7 D9 r5 {! \1 b  PlotRange->{{61, 89}, {0, 1}},
    % f" ^% X; s  N2 q  PlotRangeClipping->True,/ G" ?' J7 }3 h4 R/ ~
      PlotRangePadding->{Automatic, Automatic}]], "Output",  V8 _) P" Y. w6 q) J
    CellChangeTimes->{3.5779623624182096`*^9, 3.5780124863125*^9, 3 a  p5 `- d" t) }
      3.578012927734375*^9}]
    % S+ A3 E8 [5 _  M! k6 W' Q}, Open  ]],' ]7 r- f- I. w( t" C7 {
    ' t- X/ u: H  h' t4 }  y, x9 O
    Cell[BoxData[
    6 I. J& |7 W; ]5 m4 r3 ? RowBox[{"\:ff08", 5 |/ N9 D, W. M1 O# D, h
      RowBox[{
    7 {$ m7 L5 Y$ r4 Q3 v  "\:5df2\:77e5\:521d\:59cb\:94c1\:6c34\:8d28\:91cf0", ".7406",
    6 f, |  n. {) y4 B; N   "\:3001\:5e9f\:94a2\:8d28\:91cf0", ".4621", . ^& A% I' E2 s* |# L5 p, }
       "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea60", ".5208",
    3 g6 O4 B2 w( W1 y# k/ i   "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:542b\:78b3\:91cf0",
    & t/ J; Q& ]/ j+ k" m% f4 A* S- p+ e& Q   ".2221", "\:ff1b\:76ee\:6807\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\) Q( \! A, k' a7 d
    \:4e3a0", ".6224", 3 x2 r( N  }( k  s. I0 a& L
       "\:3001\:76ee\:6807\:94a2\:6c34\:7684\:78b3\:542b\:91cf\:4e3a0", ".2521"}],' X, D0 o! ~# C& o1 t
       "\:ff09"}]], "Input"],2 k' z+ U/ J2 _, m' P
    2 n5 b9 i  q. m$ ^, O3 O
    Cell[BoxData[
    6 f' `$ R1 Q/ D, D& Y' | RowBox[{"{",
    $ N' M1 _( `( ?0 d4 |. ?# j1 j  RowBox[{0 J+ l0 `% C- I, J. |) w7 Y' x6 z
      "\:94c1\:6c34\:8d28\:91cf", ",", "\:5e9f\:94a2\:8d28\:91cf", ",",
    9 `9 q# n0 j1 e: B$ G& {2 N+ j   "\:5439\:6c27\:91cf", ",",   t1 C6 ^7 u7 g6 K
       "\:4e0b\:526f\:67aa\:65f6\:7684\:542b\:78b3\:91cf", ",",
    % v( X" ?  k3 Q   "\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea6", ",",
    ; w3 V+ Q9 k! N% Q4 p# Y   "\:5757\:72b6\:77f3\:7070", ",", "\:8f7b\:70e7\:767d\:77f3\:7070", ",", # B% U5 n! Y  L0 f) {" X* ?% x
       "\:83f1\:9541\:7403", ",", "\:5757\:72b6\:767d\:4e91\:77f3", ",",
    & p5 O* g) o; r& i  j" s   "\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf", ",", + ?/ j& L& O. S1 E- \7 Z
       "\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6"}], "}"}]], "Input"],
    ' x7 P5 \% t- ~" `5 ?" E
    0 ]; L& G6 e- k  S- n" OCell[BoxData[" "], "Input",
    " c1 S0 w$ e1 l9 G7 \. V CellChangeTimes->{3.577962834553033*^9}],' y) I2 j. G$ v/ }5 N2 j2 s; _4 Z

    2 A% H6 I; ^6 ]* D8 p$ nCell[BoxData["\:94a2\:6c34\:7684\:78b3\:542b\:91cf"], "Input"],
    $ W( H+ R# c2 Y( ^/ ], X0 S( R* Y9 [! M  J  o( [1 m5 @
    Cell[CellGroupData[{/ \* c, G6 {, ^& b/ @4 q: b

    $ E, A5 ]2 C) D5 T# J& ?, JCell[BoxData[5 j* {/ q7 ]4 u6 f. A
    RowBox[{"y1", "/.",
    2 F) L/ q; x7 Y) s5 L  RowBox[{"{", * E. G, w% ^4 x$ l
       RowBox[{" B4 c0 |. l# n2 `( e- d
        RowBox[{"x1", "->", "0.7406"}], ",", # P/ q2 V2 h$ S! h( e" B- I# y$ |
        RowBox[{"x2", "->", "0.4621"}], ",",
    0 u! X8 ?% @$ V! ]    RowBox[{"x4", "->", "0.2221"}], ",", ( h- H- [! }* J/ z; P; W
        RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",
    0 c9 H9 M+ `8 T, @# v' P CellChangeTimes->{{3.57796267209435*^9, 3.5779627224200373`*^9}, {# r  y3 V: ~6 l
      3.5779627663029137`*^9, 3.577962774820529*^9}}],) J6 A" b+ b8 Z* J/ w
    ( j3 Z, n* B% l8 B9 B: C
    Cell[BoxData[: D4 y; g# O! r2 L1 D
    RowBox[{# I# {1 I% z: F6 I) Q! |4 {% {, V
      RowBox[{"0.2286149508637297`", " ", 7 a% ~& H# s& V% B$ v( d8 `
       SuperscriptBox["\[ExponentialE]", 1 S% J1 w9 u4 V5 T/ G
        RowBox[{"3.1415926535897936`", " ",
    ' R3 S( T1 Z! y5 h/ [     RowBox[{"(", * F3 E# l4 ?# t3 b1 R
          RowBox[{
    : @) S& e2 G$ D       RowBox[{"-", "0.17911224641499998`"}], "-", $ G0 r2 s+ f6 H4 t9 y) x" ?, @; ]
           SuperscriptBox[% P# ?' X% R2 y( ^
            RowBox[{"(",
    $ p& P2 f! B4 ~# W( s; P, w         RowBox[{
    ! C( e5 g) Q. g8 {          RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
    8 D: y" N# G3 |) o- u       SuperscriptBox[% R/ ]4 Y6 v* D+ C
            RowBox[{"(",
    - u% h. c2 d2 a         RowBox[{
    * h" H$ M- m# O- a          RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", ) T/ \# f3 F  m% d  U5 z! D& [
           SuperscriptBox[/ D( J8 m* u( U* @, Q! J7 y
            RowBox[{"(", 6 }" b) s5 I6 }& \8 v7 _5 e7 a% i
             RowBox[{
    ) X1 D% X2 x4 J" I          RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", ; y- o8 \. Z. R7 o! J* C, [
           SuperscriptBox["x8", "2"], "-",
    0 S, Z# Y5 |0 D       SuperscriptBox[
    " v9 l: k# n  e        RowBox[{"(",
    6 C# w$ v, c/ E0 A' p         RowBox[{7 j! j5 }7 |5 T% q0 g; @  u
              RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
    3 _; R* w0 |! m9 \: P$ g6 `. |' x% A9 g  RowBox[{"0.020180806675835994`", " ", $ t4 n" b' l, b" D4 [, N
       SuperscriptBox["\[ExponentialE]", ( c- x7 N- p7 J6 d" g
        RowBox[{"3.1415926535897936`", " ",
    . `; V7 |/ G$ M8 _, ]( u     RowBox[{"(", 7 @8 j# i/ F8 x
          RowBox[{+ k. y9 i+ }" Q" n' @$ I, P# t
           RowBox[{"-", "0.105619387859`"}], "-", / |5 X* X& V3 a# J1 e' U! \
           SuperscriptBox[
    % s5 v+ p8 ?/ n4 q8 u        RowBox[{"(",
    ' s# \1 Q# s6 J, U* Z" |         RowBox[{
    % i& K* j$ }6 p  \          RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", 5 {9 H( X! a1 H1 `+ U8 G
           SuperscriptBox["x6", "2"], "-", 6 N, w  {  j, B5 K6 w6 d
           SuperscriptBox[" X: k+ L7 \+ _& l/ Y4 Q5 }/ b; E
            RowBox[{"(", * e; O' }: {+ u: w4 X, _3 q
             RowBox[{
      \8 s5 y5 w% o; a1 c          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    4 b# Z% ~# M+ J& k       SuperscriptBox["x8", "2"], "-", ' V0 J2 V$ m( `, A- B. j# d
           SuperscriptBox[
    ) Z7 V- m1 ]7 G        RowBox[{"(",   {3 J6 {, Z: l1 {- K/ r" n
             RowBox[{/ }/ C3 o5 i( V2 v
              RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    ! O, F% A% f) F0 N& e8 h3 v  "+",   W4 y) l5 @5 X3 M8 Z" L
      RowBox[{"0.13092706311748437`", " ", : [* {' J) i5 Y; N* r. S& a
       SuperscriptBox["\[ExponentialE]",
    : M# _" `8 v( K( Q4 k4 B# b$ L. K    RowBox[{"3.1415926535897936`", " ", / B) ?4 c$ N- H; i; X2 j! A
         RowBox[{"(",
    $ S+ t3 R- R% @1 i      RowBox[{
    ( \2 z  h2 v1 M. }  b2 I       RowBox[{"-", "0.236605670085`"}], "-", 3 \' y/ ^% t6 g, Y. }
           SuperscriptBox[
    1 u. s) V& k2 t        RowBox[{"(",
    * l! r) k$ e' m- |         RowBox[{
    5 B" b! Q  U& T! u7 X+ N% z# i          RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
    1 J: m- i! v6 h& n" `# ~4 s       SuperscriptBox["x6", "2"], "-", 8 |/ |. F' a0 o4 C
           SuperscriptBox["x7", "2"], "-",
    , W' I% b, m! A' P8 o9 p+ o       SuperscriptBox["x8", "2"], "-", 5 O+ Q  G1 y) i9 `. b- G
           SuperscriptBox[
    : i( N9 Y7 P; s7 a) C- ?) `! v        RowBox[{"(", : b- K5 f% m# ~( i6 W" D% U
             RowBox[{1 ?) h. R3 Z# I5 l9 @0 O5 B5 T
              RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    1 |8 T3 L( X! m% \# r) e  "-",
    % o3 n! _& `* |' X  RowBox[{"0.033459349088924784`", " ",
    . R3 G; Y% U  l   SuperscriptBox["\[ExponentialE]", " X& p& r6 w& ~5 Y' J* Y# `7 v* r
        RowBox[{"3.1415926535897936`", " ", 2 H1 `# f( l5 o% }2 C; W
         RowBox[{"(", 9 f- H+ h' r( x2 d/ R
          RowBox[{5 b8 A0 `7 T$ a& V: b6 @% }
           RowBox[{"-", "0.46221081830200006`"}], "-", 0 S; u' C, }, F
           SuperscriptBox[' x0 k& c* C3 P* d; x  h2 _/ {7 u7 i
            RowBox[{"(",
    1 P5 D3 W% [, @) N" x: `" \         RowBox[{9 E8 O1 g! D) h- a/ x/ c
              RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
    ) q3 F$ z4 Q# i6 |0 q       SuperscriptBox[$ d$ v/ R& w6 g
            RowBox[{"(",
    5 ^5 _3 o( d0 O# \         RowBox[{) F6 a$ S( U' q- Y0 q7 Y# t
              RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", 1 I' K; X8 r. e2 v" L" x, D
           SuperscriptBox[
    - o) n0 a3 ]4 o  w  g        RowBox[{"(", . b; j+ J- f9 @8 o
             RowBox[{" R0 Z; r! |+ @( k' L( ^8 Q
              RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
    ) c1 i. W* x: V  T       SuperscriptBox["x8", "2"], "-",
    9 d/ C; \5 X' H5 B$ P( Y: @7 O4 L       SuperscriptBox[
    1 V& e3 Q  N$ q# Y- I' C- Y5 s        RowBox[{"(",
    9 k7 n# k4 F. r' f1 i         RowBox[{3 y9 }4 _7 b4 e& B
              RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], . Q/ z$ g  z' z/ ?5 @
      "+",
    ! f/ L, L  n. I5 D! `8 j  RowBox[{"0.39611806709006653`", " ", 6 _( V" W$ H* t
       SuperscriptBox["\[ExponentialE]", 2 @7 g4 A9 a, E- n
        RowBox[{"3.1415926535897936`", " ", % t0 k5 a" u% ?+ I# ~
         RowBox[{"(",
    - ]( x" c# M* M- w/ O! ]5 K      RowBox[{
    ; F4 O' L( x) o0 d: d       RowBox[{"-", "0.5837889295140001`"}], "-",
    , s3 g" K4 d0 \! |9 K& F+ B       SuperscriptBox[
    4 m/ ?6 L. O' A        RowBox[{"(",
    & S! E0 P/ J! c: s$ B2 K# d         RowBox[{
    / u' M& ~! f6 b& _          RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", 5 d! t, S% Z8 l& _3 i1 y( s
           SuperscriptBox["x6", "2"], "-", / G: W+ T6 k" J8 c; e) n6 c: {
           SuperscriptBox[
    ( c& S) @. D: I! S+ K0 h& B8 x        RowBox[{"(",
    : S+ r: N& |  o& e+ V: V5 f         RowBox[{: Y7 e* {* W4 g# N7 ^
              RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
    & M. q$ V& p/ }       SuperscriptBox["x8", "2"], "-", , r/ f( e8 u! N8 `8 v/ Q0 Z! F
           SuperscriptBox[
    + }: Q8 C( b/ S: f! C& x! M, n! G        RowBox[{"(", 4 {9 c8 i3 q7 N5 L6 G) X- C% i1 u
             RowBox[{
    1 R( Y& D% j  ?0 D" M6 R! P$ u3 @& z          RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    2 ]  p! W- u! ]( ]7 t  "-", ) I7 V4 A+ K0 i8 e( r
      RowBox[{"0.19996885877792045`", " ",
    ! F% X9 \% L  `0 o: F' m   SuperscriptBox["\[ExponentialE]", 0 i; Z. ?! P$ A) Z4 o  r& T
        RowBox[{"3.1415926535897936`", " ", + _0 G2 }" x9 G# e
         RowBox[{"(", 5 j; {' \5 d: L- @. j
          RowBox[{- ?5 D# W9 Y' q' ^( z8 Z& i& f$ ^6 I
           RowBox[{"-", "0.19030188470200005`"}], "-",
    ! n9 n! R: S: k* L9 u       SuperscriptBox[
    3 C% }' |8 A5 x        RowBox[{"(",
    7 q  [7 p8 \" t         RowBox[{6 J" N7 N* N, ?& d" p
              RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
    . }% e+ |  i5 l  B5 Y       SuperscriptBox[
    ! [, c# j2 @2 E        RowBox[{"(", 7 Q2 ^! o) O" L8 A
             RowBox[{
    1 ]3 {* ^, ~- K% t5 j- o          RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
    / ?0 j- v7 G9 _% l       SuperscriptBox["x7", "2"], "-", 7 f: Z! X6 J5 j2 r1 f( {, q
           SuperscriptBox["x8", "2"], "-", ( g( p0 A( S9 \& R. e! `
           SuperscriptBox[* U9 G7 [$ b/ }9 |  m4 G
            RowBox[{"(", , {) m- }8 V: @" ]% ~
             RowBox[{
    ) a" o/ j9 R% Q6 ]          RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 0 U! o, m( y9 H
      "+",
    9 A8 ~% x9 Z# Q" ^/ B* o& m: r  RowBox[{"0.23580523388620744`", " ", 0 T. X6 k' @1 \8 r
       SuperscriptBox["\[ExponentialE]",
    ) e. b8 {+ e, K    RowBox[{"3.1415926535897936`", " ", " J& l, I8 z9 x" X) g6 c
         RowBox[{"(", 4 z9 P9 }# h& b  q& U' g
          RowBox[{4 m( F6 c+ q; }5 g
           RowBox[{"-", "0.28518780882`"}], "-", 8 W3 ^" \0 u" u  x! ~
           SuperscriptBox[
    + |! z. E. q. Z$ g" |# _        RowBox[{"(",
    $ V! U0 W$ @$ ^- K8 E1 C         RowBox[{
    6 x! V! Y% N8 N5 ?6 r( M; y          RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", ( i$ T5 T  q( R7 Y/ A
           SuperscriptBox[
    # m- j5 O/ ?& l: P( T        RowBox[{"(", & Z7 s! q1 X; ?6 Z1 Y7 G1 v
             RowBox[{( D( |, M% h2 r2 I+ Q5 ]6 O
              RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", & T  J, o2 T* U2 z2 u6 p
           SuperscriptBox[
    $ p8 e( L0 ^3 Q4 B) {# Y: x        RowBox[{"(",
    2 l) q+ ?( w# {$ e. U         RowBox[{) d% ]# M$ A8 }4 I  {$ q4 C
              RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
    $ I; O/ O7 r% f: {       SuperscriptBox["x8", "2"], "-", " P( s  B8 j! Z; j2 N( r
           SuperscriptBox[
    5 g+ [5 U* o0 O( G; q" A. \. {        RowBox[{"(",
    % D# V0 x  B2 g3 U         RowBox[{  d. _' U( y: v$ R5 U, E
              RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    6 x4 C/ C3 a7 }' |4 X  "+",
    9 l1 i& {' Z. E  RowBox[{"0.667027259367853`", " ", . U4 k" p  N; `" j- E" B
       SuperscriptBox["\[ExponentialE]", & V+ |9 M4 y& V% L
        RowBox[{"3.1415926535897936`", " ",
    , z, x  B9 o( L3 b* A     RowBox[{"(",
    ( L3 a+ v" p5 K( {6 L      RowBox[{% u1 N, t, G& ~; V
           RowBox[{"-", "0.11387365200400001`"}], "-",
    3 }3 h# N8 r. I* v       SuperscriptBox[
    % X9 `6 f) T6 n( Q. C        RowBox[{"(", 9 q( z; q" i7 r
             RowBox[{
    + G$ p; r9 [0 v6 j4 C          RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    1 Q3 I3 v8 _, ~& g- ~3 L, {: f3 Y       SuperscriptBox[
    ! t, B- E0 u* B/ Q; X        RowBox[{"(", 8 C, y. @( `: f- `* L9 |
             RowBox[{# P2 q! ^" s- u; D0 v: R9 ]8 P6 B' q* ~
              RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", % m* V0 l. E* ]; o$ Z! A
           SuperscriptBox["x7", "2"], "-",
    % j6 Y6 ?9 W4 W) Q       SuperscriptBox["x8", "2"], "-", 7 Z2 g* N1 Q( z. P$ u0 p" m5 Y
           SuperscriptBox[& `0 q, E: E8 S( k6 {
            RowBox[{"(", 4 |# |" o! W. r6 Q
             RowBox[{
    ! x% s. c4 t" v          RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    5 e% q$ E" t# _& Y! V, @- ]2 m  "+",
    ' E) t9 n+ V: w! c4 S3 r  RowBox[{"0.25282438852646905`", " ", : Q& f1 a/ r. n7 R, _1 N( P$ Z- @; ?
       SuperscriptBox["\[ExponentialE]", ; Z0 {  |9 a" s. `4 O9 r
        RowBox[{"3.1415926535897936`", " ", ; D; ^- u5 N/ u, H4 f; {, Z8 ]/ y' ?
         RowBox[{"(", 5 \8 F' [- K$ d5 o2 @5 Q: b1 T
          RowBox[{. f4 |* H0 E8 I' C
           RowBox[{"-", "0.11442644782500001`"}], "-", 0 o0 [6 w* @9 ^( ?" L/ C/ D
           SuperscriptBox[
    6 i9 R+ a5 f$ d, h7 k, |        RowBox[{"(", 7 k/ ]3 r9 d1 q* f6 w
             RowBox[{
    : b) N$ E8 \. u          RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", - U& Q7 k5 Y) n9 O
           SuperscriptBox["x6", "2"], "-",
    * y% A# l! S- Y1 ]# {       SuperscriptBox[8 ?+ W* v( b& [8 F& l) l+ g
            RowBox[{"(",
    & `! D1 ]9 X/ _& O  L5 D! S         RowBox[{
    ' H# u0 ?; V  b& x: B  J4 h          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    ) x9 C8 R; s1 w& ?       SuperscriptBox[7 b% ]2 ?' ^( a6 {/ V$ B' r
            RowBox[{"(", 5 B3 h& B4 i: [! Y+ h2 L
             RowBox[{7 [% ~3 r: V% M0 ?+ `+ I
              RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
    4 p9 _& D1 w; c( N! j       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", . K  h) e! Z" |
      RowBox[{"0.07581214474544536`", " ",
    1 Y3 p! b! n# J   SuperscriptBox["\[ExponentialE]",
    , K1 G8 Z9 M: L# L% s: q8 O- r    RowBox[{"3.1415926535897936`", " ",
    0 c( k/ d3 ?/ l8 X) r     RowBox[{"(", * h! @- s* w* Q
          RowBox[{
    0 J9 r+ M* p. A0 U7 n% r       RowBox[{"-", "0.21008576609800003`"}], "-", 7 G) B7 P0 y, X9 c! d+ G
           SuperscriptBox["x3", "2"], "-",
      Q  s- f7 z) `* L% c) e% Y$ x& G       SuperscriptBox["x6", "2"], "-",
    ; O! r/ y' ?% f& |2 |$ I  e       SuperscriptBox["x7", "2"], "-", ( i' F( Y- A2 h; G
           SuperscriptBox[
    ' G' f! A4 K- p) x0 z% H# `/ c        RowBox[{"(",
    + w+ P# |* c- {2 @         RowBox[{
    9 w$ r" a7 Q# v1 S          RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", ; V' ]" N/ u" P3 E- `% O% R: H# s6 F
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
    # b4 x; ^7 k% V  RowBox[{"0.10599338351843121`", " ",
    . m- r/ Y$ e1 T# s   SuperscriptBox["\[ExponentialE]",
    0 |: P& r0 k  H' ]5 _* Z; p    RowBox[{"3.1415926535897936`", " ",
    " v4 s/ K# Z. G     RowBox[{"(", - T7 R' H- R& k4 ^- y
          RowBox[{! w. ~: \; |. \( f8 @  ?
           RowBox[{"-", "0.4481471925460001`"}], "-",
    & {! U) v5 D! E8 A! c. ?( l* ?  b       SuperscriptBox[- S; v9 m; K1 `& S- ]
            RowBox[{"(", / L' F6 n9 @  L
             RowBox[{0 q8 K0 ]5 x* G$ d& D" v0 V) x
              RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", , E2 }! x/ E  ?. h. Z* ?
           SuperscriptBox[" w: F) y4 ^/ |; `  }  t) O
            RowBox[{"(",
    + l7 @' q+ w/ R6 b8 F( a$ `/ K         RowBox[{1 |. r% G. `( l+ W6 S
              RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
    6 K7 B6 X) i1 e6 p- ?* B       SuperscriptBox["x7", "2"], "-", 0 t' Y0 Y& s* V2 c2 j9 I
           SuperscriptBox[8 ~5 m- z' a3 |  ]
            RowBox[{"(", " K& Q7 t* p: @  j8 W4 z4 V1 C
             RowBox[{2 S, C7 n/ S4 a" q4 P
              RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", " Z  o3 g. u( r, a. S
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    + b' `2 g6 |7 c3 \0 z5 ~6 v  RowBox[{"0.5008208386064421`", " ", * O4 X: N1 C  O' o' }
       SuperscriptBox["\[ExponentialE]",
    ; l5 n2 F) c3 ^+ F* g$ X    RowBox[{"3.1415926535897936`", " ", 3 ]6 a; h( E- b0 Z
         RowBox[{"(",
    ; |/ s9 ~$ v5 Z" ]7 [" i      RowBox[{
    6 p3 g% `7 h% h       RowBox[{"-", "0.08722659614000003`"}], "-", 4 c) ]3 S6 M# I; B4 y, p" v+ }2 O
           SuperscriptBox[
    2 G! b. m. y1 C9 q" g8 [        RowBox[{"(",
    8 @0 b& b7 [5 n: o, W         RowBox[{
    : u5 U6 k( R& N' Q# P; w' Y          RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", : f8 B8 p2 c: U7 o
           SuperscriptBox[3 q. _4 l8 b# u
            RowBox[{"(", ; M  u6 V4 ?8 j) h2 l9 I
             RowBox[{' K& [' Z1 o2 S+ X) m6 _6 g# X
              RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", 2 G6 n% J& a+ a/ u- C
           SuperscriptBox["x7", "2"], "-", + O8 e0 ?& o% ^, U
           SuperscriptBox[
    , _; R; N2 c4 \1 I        RowBox[{"(",
    $ K4 f  |% b& h8 U/ n         RowBox[{  ?& {" k; j' P
              RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", 8 F, z+ L& Z) @& @" Z/ G7 K
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    ) G0 ^$ g5 f  g& k2 J+ c7 `8 r8 _& f  RowBox[{"0.32564305572552343`", " ", 6 m3 f* Z( [: h4 h
       SuperscriptBox["\[ExponentialE]",
    / e8 X: V% p4 D4 h3 c6 ~* P  |    RowBox[{"3.1415926535897936`", " ",
      c/ X8 V/ M9 Z8 p% Z& _/ I- p     RowBox[{"(",
    + k% R5 _2 l- W      RowBox[{
    5 E/ K, I0 d" Y; t       RowBox[{"-", "0.23738217000100004`"}], "-", - q$ b" d2 M+ H: I9 W
           SuperscriptBox[+ o: \( N" m) D: v
            RowBox[{"(",
      |9 n6 r' I4 }8 ^- J( X* M         RowBox[{9 a  q  `" d4 S1 {8 `: v
              RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
    1 \8 d3 h/ s9 A' ]       SuperscriptBox[0 E* B' Z$ K- j8 o
            RowBox[{"(", 8 U: Z" S7 p( q0 q0 C. f' K
             RowBox[{( f% r# {! k7 n: b- ^+ O
              RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", ; H- K6 O) _0 t0 e4 F
           SuperscriptBox[
    6 u2 F6 R5 c8 z% J/ ?+ |        RowBox[{"(", 5 Q9 C  u/ `# S
             RowBox[{" g- h. s6 `7 I: t: t2 `+ ^
              RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
    9 S' Y9 r- D8 M9 z6 b       SuperscriptBox[
    & S) v; @7 y( s- g3 w        RowBox[{"(",
    7 O8 T) R- f1 m; b         RowBox[{/ e, q3 R9 n- S1 M. H/ ^4 X# h6 H
              RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
    ( v* A( }$ D4 S6 U" W2 U4 \       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", + y& h6 Q* H0 e4 l- b8 r, G( G
      RowBox[{"0.6665374509702793`", " ",
    ; P# m" M2 \% t9 \: c: p   SuperscriptBox["\[ExponentialE]", 1 I% W' \3 \! K* j5 u
        RowBox[{"3.1415926535897936`", " ",
    * e- x! [* X0 n( I, A% `% x. p  n     RowBox[{"(",
    " ]! w- U( z7 ~+ z7 z  w/ F$ S      RowBox[{  s0 N7 z/ v) h
           RowBox[{"-", "0.19162171876400003`"}], "-", # \9 @8 O" a8 K% G
           SuperscriptBox[! {$ w1 J. v3 F. Q
            RowBox[{"(", " r0 K2 q+ ]# D3 Y  U/ P' B
             RowBox[{
    - C/ B5 Q. {& R7 l* Y" [0 A  o8 {5 R, Q          RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", 9 p: ~; M: M0 k' Q) ]
           SuperscriptBox[
    6 }! b! ^8 @  O3 R( g3 J. i+ R        RowBox[{"(",
      f" T# H9 A; |) d         RowBox[{
    ) R7 Q% H" m  l& K          RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
    9 n1 [; I4 r1 l* w9 n7 Q* P, I1 Q       SuperscriptBox[6 ], T5 z( N4 {  J! N
            RowBox[{"(",
    + X' V8 e/ e& I8 z" o5 X+ T         RowBox[{3 ^# W9 c% M1 h( D( |
              RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", ' ~4 K% d- B+ x7 ~$ S( X: s, T
           SuperscriptBox["x8", "2"], "-", + q+ x4 B' Y* ~$ Q8 _- |
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", % S3 F! ^0 v: H& ?1 D
      RowBox[{"0.4812237524557293`", " ", 3 V) o, E2 g3 L0 t% D
       SuperscriptBox["\[ExponentialE]", 9 Y, X/ [  L, ]
        RowBox[{"3.1415926535897936`", " ", 5 t# `* z8 d+ A; n! f
         RowBox[{"(",
    : V5 V6 p. N  A/ p  ?# e. i. F7 S      RowBox[{8 i- p. m7 s: j3 F# E' E  ~
           RowBox[{"-", "0.109748954594`"}], "-",   Z! J% t! \$ ^; i/ J* L! N% {7 a
           SuperscriptBox[
    ' J7 L9 q* r2 e- P        RowBox[{"(",
    6 p" ]- b; j+ h& K; c& I) u( t2 m2 \         RowBox[{$ W2 f6 X  `* x  @
              RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    / [* R% Y! @( J1 x       SuperscriptBox["x6", "2"], "-", # U" J1 c4 \: ?
           SuperscriptBox[. |& v: L5 |% j' i
            RowBox[{"(", 1 U6 F; L' d6 u
             RowBox[{$ I% e5 A2 ?4 r) C3 W' g
              RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", * J" x: j0 k; N
           SuperscriptBox["x8", "2"], "-", ' z# c! v2 }/ a( c) h5 f
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",   @' t" k: W6 R
      RowBox[{"0.176024676254045`", " ",
    - F) ]# l& Z4 _$ F1 `   SuperscriptBox["\[ExponentialE]",
    ; C5 i& n7 ]. Y( K% c/ ^5 K. Q    RowBox[{"3.1415926535897936`", " ", ; p; |" d3 ?, K# T
         RowBox[{"(", 5 v: `0 U/ q9 J0 u& }
          RowBox[{' x  X- q) t% L6 E. A* P8 \
           RowBox[{"-", "0.14616677062500003`"}], "-",
    7 r# ?$ ?! g3 F  U, j       SuperscriptBox[) b/ T  ~8 v* o6 D; h
            RowBox[{"(", 8 \8 q, V7 ]5 a2 O# C3 ]& r
             RowBox[{2 B2 ~) |: j% `0 I3 J
              RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
    ) [* x) w( l$ H% n5 x       SuperscriptBox["x6", "2"], "-",
    ) O  L$ T# s4 P; _% y' c       SuperscriptBox[
    % Y6 w* |4 R3 I9 P, K        RowBox[{"(",
    , o# I4 b/ u( E% a. a: k7 y/ a( O         RowBox[{
    1 u+ g" o- Y% n# i" \          RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
    ! T8 A4 V+ h, T8 z( y' Q8 ~       SuperscriptBox["x8", "2"], "-", 8 ]8 c9 x, Q( {+ H7 w1 |5 h
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
    4 Q6 Y7 \. o! W  RowBox[{"0.5945873894818965`", " ",
    2 Y- }% R& k, i   SuperscriptBox["\[ExponentialE]", 3 |0 b: K- t( }, ?
        RowBox[{"3.1415926535897936`", " ",
    . s+ S1 b' M) a2 t6 B/ \' {5 |     RowBox[{"(", : R' B2 n" W0 I5 v' q
          RowBox[{% A9 r* ]7 i) K" x! u
           RowBox[{"-", "0.10407011464100005`"}], "-", # ^7 ?# m0 [; q" ], T- \
           SuperscriptBox[
    . q2 r1 o" P/ N; R5 e        RowBox[{"(",
    5 Z, Y6 H2 |- d         RowBox[{  @' }8 R' W9 K* f  p
              RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
    & H# ^/ O9 ^. L( _3 v% C       SuperscriptBox[
    # |7 }  }( e! S        RowBox[{"(",
    5 d9 e  G0 }# L7 w9 d         RowBox[{4 g1 V- f" \+ f& A4 M  L
              RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", . v0 y' U9 x$ ]4 g. Y) }  a. ?
           SuperscriptBox[
    2 {+ }8 X3 ^2 X        RowBox[{"(", # w, J  G) c7 Y+ y" P
             RowBox[{, s! U' v/ W1 U( e( F! z* q; m
              RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", 2 \+ ?) n2 E% i6 L' O1 ^& ~
           SuperscriptBox["x8", "2"], "-",
    6 \4 ]! `' F3 P3 w5 y" z6 g       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", # y7 C" {; W7 Z2 w, W
      RowBox[{"0.027591936509660075`", " ", ; s" C# u, [5 H9 v+ Z# _0 {, a6 l
       SuperscriptBox["\[ExponentialE]", : q& Y5 }1 w% }
        RowBox[{"3.1415926535897936`", " ", - Z# r8 n; J1 J
         RowBox[{"(", 2 J+ K$ M* d) n* e
          RowBox[{3 a8 |' V( S" u/ |- q
           RowBox[{"-", "0.31770463544200006`"}], "-", 3 K( X' D/ f1 x/ O+ H% |8 o  [
           SuperscriptBox[6 y! j5 G' f$ l9 u. c% B4 V, X
            RowBox[{"(",
    , P! O9 o$ b7 R         RowBox[{
    & n0 s3 d! m% ?8 l4 n% b          RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
    8 G5 z. {/ I8 R# p       SuperscriptBox["x6", "2"], "-", ) D1 F* N' m/ y. T+ s
           SuperscriptBox["x7", "2"], "-", 8 o" {! n, o( R. a$ E3 e
           SuperscriptBox["x8", "2"], "-",
    5 U- M, ^6 b; |  q       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", 6 i# J9 O" g0 Z. F- H
      RowBox[{"0.5252475961933536`", " ", 3 `3 l1 o9 ?2 n. {$ K: J
       SuperscriptBox["\[ExponentialE]",
    ) U: W6 {7 }$ D$ n9 ?5 ~# M: d    RowBox[{"3.1415926535897936`", " ",
    # b: C" i! Q+ f: ]     RowBox[{"(",
    0 g" s$ W1 ~1 v5 J* F$ t' P      RowBox[{
    # u) g: k8 c1 w0 o+ k       RowBox[{"-", "0.6410867660730001`"}], "-",
    " w7 j: w' i, m  `       SuperscriptBox[1 V; t( Y" w' q) y& A' ^: w
            RowBox[{"(", # {0 }6 D- L+ l/ d3 b
             RowBox[{
    - l) Q* w/ C) I* X8 H          RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", 6 D  F1 Q' i5 c! s( w; c& t* S
           SuperscriptBox["x6", "2"], "-",
    " Z0 [$ A( G, @9 T5 I' Z3 k       SuperscriptBox["x7", "2"], "-", 6 P! e7 I8 G9 c! T" j  @
           SuperscriptBox["x8", "2"], "-",
    " x% q5 a& I4 x8 W! r. {2 i       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", + J3 g3 q3 p5 g" ~- K
      RowBox[{"0.32047284779644936`", " ", # D' g: P, Y+ g3 }9 w, ^
       SuperscriptBox["\[ExponentialE]", ! E: N, {' H) X
        RowBox[{"3.1415926535897936`", " ", 5 u; }" F- Z: a: t* L
         RowBox[{"(", 4 H# v! W0 G" p
          RowBox[{0 }  \6 b, ~5 E* U
           RowBox[{"-", "0.155663887074`"}], "-", - a% S% C( D4 F
           SuperscriptBox[! i$ o# {6 V% [, n* {2 s$ M, X# @
            RowBox[{"(", - W, G% C. Y# h, u* c# q& R/ x
             RowBox[{
    ! f  F: o& v' R9 W# P  @          RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", ' ?. t4 Y, P( Q
           SuperscriptBox["x6", "2"], "-",
    1 t$ p' k3 e, z! R& k2 j; b       SuperscriptBox["x7", "2"], "-",
    $ P  J0 F! `: S+ z' R" s       SuperscriptBox["x8", "2"], "-", % l+ K; b4 T& Q- G" G( M
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", , |9 `8 A* f0 Z, o/ o! w8 e
      RowBox[{"0.7528674241482847`", " ", 5 ?% D; H, \& h
       SuperscriptBox["\[ExponentialE]",
    . o9 {0 y. `: }8 h    RowBox[{"3.1415926535897936`", " ",
    / ~- C/ `* g4 j# ^" t* K" L     RowBox[{"(",
    ( J* Q" J, M* \+ v      RowBox[{& a, @' i& C% @. m) Y. a
           RowBox[{"-", "0.14151232428600002`"}], "-",
    ) B, B. U# g3 _8 P  K# D       SuperscriptBox[
    # W; V" d. v0 t/ e: Z5 T8 \        RowBox[{"(", & W& K% |+ ~5 }( T
             RowBox[{5 Z* y* z5 D6 R& t( O) Q
              RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", % |( y  a0 a) n# K
           SuperscriptBox["x6", "2"], "-",
    ; ]% Q- f# U8 `% I/ j       SuperscriptBox["x7", "2"], "-",
    * X4 c' z4 S9 O4 n% X       SuperscriptBox["x8", "2"], "-",
    3 F  E  i3 |# t! a  a+ t       SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",+ O2 Y- O+ t# x3 s
    CellChangeTimes->{3.5779628386090403`*^9}], i: i/ a% d0 j: q, d6 {! ?
    }, Open  ]],+ ^1 g6 \5 u) _( t6 z: G. b
    / }* y: G% Y1 h7 Z9 a
    Cell[BoxData[" "], "Input",! m/ ~! q6 ~3 x, b. B1 }
    CellChangeTimes->{3.577962835879035*^9}],
    $ C* b3 a& }, r  W
    $ U" q5 Y$ ^, T3 T6 [Cell[BoxData["\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\:4e3a"], "Input"],5 h% T+ q: U1 [1 I

    1 }6 k  \5 U" K+ g9 H9 QCell[CellGroupData[{
    * G( X5 p6 w  u5 W2 x2 x! [; I, W# B6 B& l0 i# C9 d2 w: z: D7 g. G
    Cell[BoxData[
    / I2 \0 C- j$ h* F RowBox[{"y2", "/.",
    6 f5 `8 v; E6 q% W  RowBox[{"{",
    . W9 u; d3 Y; E) W# ~   RowBox[{$ D: m3 g# Z3 Z  t
        RowBox[{"x1", "->", "0.7406"}], ",", : `' J6 v6 P) u3 K, K* ]1 Z4 T5 z
        RowBox[{"x2", "->", "0.4621"}], ",", ) C! w3 i. \0 x) L9 N) _
        RowBox[{"x4", "->", "0.2221"}], ",", 4 {# {) |9 |) l! {" ?
        RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",$ Y4 i) D/ q- _2 a
    CellChangeTimes->{3.577962787784151*^9}],# A$ |" Y8 A7 ^3 c

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

    ( L) @8 u* \* z# J1 c(* End of internal cache information *）* _( p: ?7 l1 G8 t8 ], P( X6 _* W( _
    8 Q  g1 n) n% D
    这个是用mathmatic做的神经网络，能导出最后的权值，就是可以写出表达式，我想用matlab做，却不知道怎么做
    回复

    使用道具 举报

    569646632        

    0

    主题

    7

    听众

    46

    积分

    升级  43.16%

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

    • 签到天数: 9 天

    [LV.3]偶尔看看II

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

    使用道具 举报

    -___        

    0

    主题

    8

    听众

    44

    积分

    升级  41.05%

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

    • 签到天数: 12 天

    [LV.3]偶尔看看II

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

    使用道具 举报

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

    qq
    收缩

    • 电话咨询

    • 04714969085

    fastpost

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

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

    蒙公网安备 15010502000194号

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

    GMT+8, 2026-4-15 13:40 , Processed in 3.321056 second(s), 100 queries .

    回顶部