涳夢 发表于 2013-7-30 20:31 ![]() , j v+ |+ g8 j2 C: T; k/ o
神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗
(* Content-type: application/mathematica *)
* v& W6 E- a+ L/ ?: f. f
" d _1 P# k: X8 ^: z1 O! j& k(*** Wolfram Notebook File ***)
: r6 H6 i9 Y! M5 j! K# L$ S( @1 `(* http://www.wolfram.com/nb *)
% j& {8 m* S# g0 W% b4 k4 q! \( d: k! D# t
(* CreatedBy='Mathematica 7.0' *)
5 A# ^7 ?8 I8 P( {+ [, d
+ Z7 M8 | t9 W" F% Q F4 ^(*CacheID: 234*)
+ u/ b/ ?/ }+ u5 g) X(* Internal cache information:5 Q/ u; \' V1 }/ C. U; w
NotebookFileLineBreakTest1 |& _9 \- b* c- t1 u' H& s; T
NotebookFileLineBreakTest2 c5 c- h, m2 r5 F
NotebookDataPosition[ 145, 7]* _- z& d# M' Q% o" t8 ^- d# n
NotebookDataLength[ 423629, 11534]0 ]* a+ P4 e; L$ n. o
NotebookOptionsPosition[ 412607, 11173]
! j6 Y% s1 G8 X5 x* n) h5 h$ ~& NNotebookOutlinePosition[ 412953, 11188]$ p0 e8 b( J% g1 Q D
CellTagsIndexPosition[ 412910, 11185]5 n1 w2 `8 M! W5 _/ F8 |' K# n
WindowFrame->Normal*)! j2 t1 [! U9 h5 `* _
3 G* j9 H( u! P5 p- L& Q
(* Beginning of Notebook Content *)- f( B9 K$ b2 T; I) C+ @
Notebook[{
% L, y) V. ?4 ^$ P
% F# h" N- N# B) {) pCell[CellGroupData[{0 H2 ~# I$ V) G# E8 E2 U
Cell[BoxData[( F! O1 I' c# E& |, ]
RowBox[{"Data", "=", 8 m+ a. t. t8 `3 ]4 v0 F
RowBox[{"{", " P' G2 ?# @( @' k
RowBox[{% e6 G/ k) G/ H8 I
RowBox[{"{", # R; I1 Z% o* Y6 o+ q! z1 F
RowBox[{9 v. [& k6 X0 O9 V8 M+ R( H
"0.304348", ",", "0.552818", ",", "0.330370", ",", "0.025823", ",",
6 K, P$ _- S; R7 D' I8 u; w1 U8 h "0.538462", ",", "0.752072", ",", "0.408943", ",", "0.504532", ",", ; \" f$ I: D) W
"0.000000", ",", "0.277091", ",", "0.873239"}], "}"}], ",", " ",
3 q. p( o" ^2 ~/ c3 L( \! F RowBox[{"{", % ~' P. M# ], S, V" z! m/ ]
RowBox[{
- N0 L2 ?4 S" H0 }+ F "0.565217", ",", "0.346857", ",", "0.393585", ",", "0.118785", ",", $ ]3 P9 }: ?# t9 a
"0.349650", ",", "0.370761", ",", "0.413008", ",", "0.502518", ",",
6 \3 \8 c# \# f4 l1 O "0.000000", ",", "0.220259", ",", "0.464789"}], "}"}], ",", " ", * f& A6 j' i3 g% Y; L$ Q
RowBox[{"{",
9 d# h S5 }' S# V RowBox[{" G2 K; C( E# s
"0.608696", ",", "0.339186", ",", "0.494300", ",", "0.099338", ",",
% w0 J/ j; @& X- h "0.321678", ",", "0.375283", ",", "0.000000", ",", "0.505539", ",",
9 I5 t+ h$ W9 j) x) F8 ~ "0.000000", ",", "0.899882", ",", "0.492958"}], "}"}], ",", " ",
$ @* k& N: X( o1 P9 _ RowBox[{"{",
& A. O' C) a: N9 q RowBox[{
' A5 ~9 V. N7 s* ?( g7 G# N$ Q- \ "0.521739", ",", "0.334022", ",", "0.355500", ",", "0.025156", ",",
) g1 _1 s9 \7 o M6 a "0.489510", ",", "0.376790", ",", "0.411382", ",", "0.000000", ",",
6 P D: s( M: h1 w2 W "0.000000", ",", "0.265607", ",", "0.774648"}], "}"}], ",", " ", # v' a& N' e- w7 l+ q# u. ]
RowBox[{"{", - c; M1 A, x J& [! L! D
RowBox[{
9 _. N- u# A0 } "0.565217", ",", "0.346931", ",", "0.218229", ",", "0.043639", ",", " Z3 Z l2 Q/ r. r, ]: A
"0.503497", ",", "0.761115", ",", "0.415447", ",", "0.503525", ",", - S* S/ {* o+ b: c: p) Y) B
"0.000000", ",", "0.642226", ",", "0.380282"}], "}"}], ",", " ", P$ {0 s# i0 Y6 F9 U
RowBox[{"{",
* u# h+ ]& H" L" g/ \ RowBox[{# R3 p) P2 w2 }, k
"0.478261", ",", "0.293154", ",", "0.259368", ",", "0.026688", ",",
' V s+ T2 W5 h "0.587413", ",", "0.755840", ",", "0.409756", ",", "0.498489", ",", , W6 S' } E t- P* s
"0.000000", ",", "0.306243", ",", "0.647887"}], "}"}], ",", " ",
: q" h0 Y C, s1 D* Y$ y& S( d RowBox[{"{",
9 x8 R1 P3 T7 W9 Y RowBox[{- y$ y: ?! ]5 I2 }* t, e
"0.347826", ",", "0.359693", ",", "0.614393", ",", "0.081521", ",", ( ~: s' g) N6 a! p5 E" E- z0 Q" J
"0.258741", ",", "0.367747", ",", "0.410569", ",", "0.499496", ",", $ V( p6 c. a9 _4 ?2 V
"0.000000", ",", "0.186985", ",", "0.563380"}], "}"}], ",", " ", 4 j% h; n9 h* z8 R2 r$ i
RowBox[{"{",
; o2 L, T. V% v. G# [, F RowBox[{
% S- g: x0 ]5 B' i9 |5 J "0.565217", ",", "0.705518", ",", "0.510223", ",", "0.066892", ",",
. Q' T. }3 O9 G l "0.244755", ",", "0.748304", ",", "0.000000", ",", "0.000000", ",",
& F3 A- \" Z3 N" P6 Z& } "0.243032", ",", "0.175501", ",", "0.295775"}], "}"}], ",", " ",
0 I* N# r7 I) }% | RowBox[{"{",
) T- U: h! i2 m5 W8 V- l6 h5 d2 K RowBox[{# G* z" w$ [ \# J5 i; J0 R
"0.565217", ",", "0.710460", ",", "0.649730", ",", "0.119897", ",",
% }& |- E/ X P/ p "0.468531", ",", "0.000000", ",", "0.636585", ",", "0.000000", ",", 4 e7 J z, k% N, t$ L- s
"0.766748", ",", "0.147821", ",", "0.338028"}], "}"}], ",", " ", - n) ]: M9 E8 r0 p8 m4 X1 @
RowBox[{"{",
2 z) q% Q" o: B0 M RowBox[{
! a' I& ? l% L% u' u "0.565217", ",", "0.697772", ",", "0.171587", ",", "0.028566", ",",
/ i3 K }2 X9 Q9 | "0.363636", ",", "0.449887", ",", "0.408130", ",", "0.000000", ",", , d: g& b7 D. X! o
"0.000000", ",", "0.352768", ",", "0.211268"}], "}"}], ",", " ", ' r5 ]3 C- t! N5 A
RowBox[{"{",
. V6 m( Z, `; | RowBox[{
" b$ H3 f$ x; M- m' F "0.282609", ",", "0.660888", ",", "0.460064", ",", "0.110334", ",", 5 o9 E$ i# t% L7 i
"0.475524", ",", "0.000000", ",", "0.545528", ",", "0.000000", ",",
2 v8 p: v0 q o/ r0 c3 I "0.551100", ",", "0.238810", ",", "0.690141"}], "}"}], ",", " ", : @$ v r9 S) C$ x+ W, C2 T9 @
RowBox[{"{", ( L, h' S1 F6 k
RowBox[{% F( g9 [5 g! x# }& E* g$ v
"0.130435", ",", "0.682724", ",", "0.258697", ",", "0.019299", ",",
% R# x( d9 w0 ?& _8 ^! u' M3 } "0.510490", ",", "0.420497", ",", "0.535772", ",", "0.000000", ",",
2 c m1 O: P6 K3 z) K "0.494866", ",", "0.095701", ",", "0.436620"}], "}"}], ",", " ", : j8 ~- | m, C' G
RowBox[{"{",
1 u4 \" y# j( ^) o# d6 I RowBox[{
0 ~) M5 g+ F7 [. v) I$ _ "0.347826", ",", "0.697772", ",", "0.108288", ",", "0.022413", ",",
. z2 N& \! e% a, F! ~) n6 ? "0.356643", ",", "0.247928", ",", "0.908130", ",", "0.000000", ",", g9 r# g7 O5 H u6 V$ R+ T2 a
"0.383374", ",", "0.162839", ",", "0.000000"}], "}"}], ",", " ",
8 D5 \$ x% u6 F4 S* [ RowBox[{"{",
Q+ k8 T' R, M( Y RowBox[{: n: F |6 Q" j; { R
"0.695652", ",", "0.718280", ",", "0.339730", ",", "0.110285", ",", 5 Z- ?- o' w* r- L2 [6 C2 R
"0.335664", ",", "0.000000", ",", "0.636585", ",", "0.780463", ",",
$ C2 c2 f2 _( Q& W "0.000000", ",", "0.335395", ",", "0.267606"}], "}"}], ",", " ",
. @8 w2 E: {2 M% F5 F RowBox[{"{",
3 T' j/ B5 C4 v% Q2 I RowBox[{5 b7 \# t. I) l" s% N' o8 u
"0.652174", ",", "0.569711", ",", "0.414297", ",", "0.175398", ",", # z3 B) o9 ~8 [) H5 |
"0.167832", ",", "0.000000", ",", "0.544715", ",", "0.000000", ",", b2 |0 V- C: \
"0.000000", ",", "0.160483", ",", "0.211268"}], "}"}], ",", " ", 0 k# {$ u3 W! s% q. a" {& L; Z- @
RowBox[{"{",
9 \1 V4 w x' J# d2 R) u2 X RowBox[{
" A6 B8 ^( i6 i3 c- o "0.000000", ",", "0.395544", ",", "0.027011", ",", "0.048087", ",",
5 \* K$ f. ]* M "0.496503", ",", "0.000000", ",", "0.452033", ",", "0.000000", ",", 7 t [* v& W/ Z1 V( c
"0.278729", ",", "0.398115", ",", "0.408451"}], "}"}], ",", " ",
: a6 G: ~: D* y" ? RowBox[{"{", . I) _0 t4 U+ x& D3 ?
RowBox[{) |* _1 x$ s/ A2 K* @
"0.608696", ",", "0.425199", ",", "0.012979", ",", "0.000000", ",", - u$ ^* k/ v* w# U, ~
"0.482517", ",", "0.509420", ",", "0.406504", ",", "0.000000", ",", 5 t! M. ^' Y) m9 e6 I/ g9 Q
"0.000000", ",", "0.157833", ",", "0.478873"}], "}"}], ",", " ",
" i3 M: O! s! k2 }* a$ R1 g3 J" j RowBox[{"{",
6 [( L7 P4 h& ]' i RowBox[{7 @, k5 S9 W$ `; s7 W6 k1 i
"0.608696", ",", "0.577973", ",", "0.213587", ",", "0.030889", ",", : W. u' I+ V; _1 R
"0.370629", ",", "0.000000", ",", "0.452846", ",", "0.000000", ",",
+ p/ A* Q6 ?4 K: {% e7 g "0.000000", ",", "0.315665", ",", "0.380282"}], "}"}], ",", " ",
* V) L, W- r; T2 K* r# r RowBox[{"{", ! f* ]2 k- D0 ?' }
RowBox[{/ z' b5 N6 C) i$ O/ j4 L6 S1 @
"0.565217", ",", "0.572293", ",", "0.655012", ",", "0.281852", ",", 9 R( G7 r& v' o% L' M& x7 {' q3 u/ K
"0.000000", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
4 c5 K8 u' [3 D' U2 Q$ M* \ "0.000000", ",", "0.492344", ",", "0.211268"}], "}"}], ",", " ", % M' H1 e' K2 d" F- m: l
RowBox[{"{", 2 b8 N9 K5 o, r1 N+ q
RowBox[{
! M3 \% x& _5 Q" ?' P3 m "0.130435", ",", "0.562039", ",", "0.331662", ",", "0.032643", ",", 6 I8 ~1 H* x" E4 ]: c
"0.314685", ",", "0.414469", ",", "0.275610", ",", "0.000000", ",", , M) Z% [# _" g) e
"0.000000", ",", "0.638398", ",", "0.436620"}], "}"}], ",", " ",
5 R6 I' r" ~; Q RowBox[{"{",
! l% L/ ], `) s2 ~9 W RowBox[{. |/ N* t+ q+ o
"0.717391", ",", "0.736205", ",", "0.267704", ",", "0.036152", ",", * s- r) F- l5 a+ E! `
"0.307692", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
, ~& q9 D! n$ B" G: F3 n) l; L "0.000000", ",", "0.392521", ",", "0.478873"}], "}"}], ",", " ", ' H7 |! _2 h$ H
RowBox[{"{", # ^6 ]4 m0 _; E
RowBox[{
- J/ K5 Z- i. _ I "0.608696", ",", "0.769475", ",", "0.289283", ",", "0.022882", ",",
! l' i( ~; c1 Q8 X# t. H* K "0.321678", ",", "0.000000", ",", "0.274797", ",", "0.333333", ",",
1 i8 i' e. I: w2 q0 o; u% x3 ^ "0.000000", ",", "0.362191", ",", "0.295775"}], "}"}], ",", " ", ! t0 F% ~+ Y6 U5 E
RowBox[{"{", " V( K7 f8 r3 U0 a
RowBox[{1 A/ L# ?, d5 ?% @; v
"0.913043", ",", "0.170478", ",", "0.000000", ",", "0.012973", ",",
4 M! T3 b, }2 B9 Q/ z3 Z/ W( m2 k "0.293706", ",", "0.000000", ",", "0.000000", ",", "0.672709", ",", ) b5 a; v+ z) z, H+ L+ [9 a$ U$ ~
"0.000000", ",", "0.114252", ",", "0.028169"}], "}"}], ",", " ",
/ h1 ~9 q* b' X9 w RowBox[{"{", ) S/ ~$ x1 ~' c8 a T8 i
RowBox[{
7 w9 _( v% E) _. p P/ } "0.739130", ",", "0.193199", ",", "0.160584", ",", "0.037907", ",", 0 J) o- s: T! F
"0.461538", ",", "0.000000", ",", "0.684553", ",", "0.000000", ",",
/ p5 |: F- Z3 J, L- W7 W8 X "0.000000", ",", "0.401355", ",", "0.436620"}], "}"}], ",", " ",
/ F; [0 Y J# L5 B: P RowBox[{"{",
: l; ?, H6 a4 i RowBox[{
+ g8 j# B' B" K! N% B; I "0.826087", ",", "0.203969", ",", "0.234619", ",", "0.272240", ",",
3 Z# ~3 i. p* Y+ {, b K' q5 N "0.265734", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
' ^# o' A; w, n1 ]4 P "0.000000", ",", "0.827444", ",", "0.394366"}], "}"}], ",", " ",
$ B* B' C$ c2 a4 I) Z0 \* d: x RowBox[{"{",
- h% c& z. {' F9 g3 k* d, d RowBox[{
( v( ~2 `; A6 a3 i "1.000000", ",", "0.199248", ",", "0.295044", ",", "0.041613", ",",
; X7 T. ?% [0 f# W$ j$ w, X+ | "0.209790", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", , L4 d7 E# r7 j. W9 ~, L4 q: D; a
"0.000000", ",", "0.676973", ",", "0.295775"}], "}"}], ",", " ", + M* R6 J& U* L2 n2 W. A6 U
RowBox[{"{",
# H/ `- c" t) Z* M" ?- m0 E RowBox[{
0 m3 T; K! k0 b2 S7 J2 Z "0.869565", ",", "0.180363", ",", "0.243056", ",", "0.098349", ",", - W$ N! f; W; Z8 |, j6 ?0 i
"0.265734", ",", "0.503391", ",", "0.000000", ",", "0.000000", ",",
G' b2 y' [' C! R+ ` "0.000000", ",", "0.331272", ",", "0.830986"}], "}"}], ",", " ", , Q5 b* \5 `* H* l
RowBox[{"{",
, m) M' l" i# k RowBox[{/ _' m" K0 J; L/ O3 e
"0.695652", ",", "0.551785", ",", "0.326201", ",", "0.253608", ",", # n: w' [! e3 b7 w$ ~( v
"0.195804", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 0 i- W7 `8 v y/ c
"0.000000", ",", "0.845701", ",", "0.169014"}], "}"}], ",", " ", 4 L9 e3 E: h, ?7 s( x
RowBox[{"{",
/ B/ p( l! `. Q% @7 a: r Q RowBox[{- K! k7 ]" ^) b7 o
"0.652174", ",", "0.572293", ",", "0.111511", ",", "0.035584", ",", 6 X' |4 I/ m0 ]- n6 Z
"0.405594", ",", "0.249435", ",", "0.544715", ",", "0.000000", ",", * c# T! v6 T+ X4 F7 c/ _$ H$ _
"0.000000", ",", "0.287102", ",", "0.366197"}], "}"}], ",", " ",
9 ?8 G w b ]) |, Y/ h2 W RowBox[{"{",
' y" A: h) n7 ]4 _) c( l RowBox[{
" C: n6 ]2 N4 L% A$ I, J "0.652174", ",", "0.562039", ",", "0.336155", ",", "0.014604", ",",
2 H8 s$ u0 f4 l6 d% D "0.174825", ",", "0.244160", ",", "0.000000", ",", "0.000000", ",",
/ p6 } v9 t$ F9 ~7 d. K" z9 b "0.000000", ",", "0.000000", ",", "0.309859"}], "}"}], ",", " ", 2 I" a& g( y/ g; w- A0 B4 F" W
RowBox[{"{",
! S' a" W' C8 {" y; i4 @$ v7 j RowBox[{, |& a! \5 e }3 P3 B
"0.565217", ",", "0.577383", ",", "0.155870", ",", "0.030963", ",",
* K; M8 C- t v' }, d) J0 w "0.258741", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", ! u/ n" B& a5 _
"0.000000", ",", "0.050059", ",", "0.352113"}], "}"}], ",", " ", 5 A& l, [6 ^2 ~: `7 _# F; n" k
RowBox[{"{", $ C+ O" q. P6 u0 l
RowBox[{- ~$ e, b0 @+ R6 i* n7 B
"0.565217", ",", "0.613234", ",", "0.232956", ",", "0.053870", ",",
$ `/ I& q h) z! ~) K+ t6 | "0.230769", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
; t/ B& e# y( O& X7 m) l& u "0.000000", ",", "0.254122", ",", "0.309859"}], "}"}], ",", " ", 0 N3 m( Z2 C7 L% D
RowBox[{"{", 4 Y* g( c J4 B: ]6 x7 G
RowBox[{
& A2 |" {- ~/ [1 `/ | "0.565217", ",", "0.559531", ",", "0.493262", ",", "0.046209", ",", % F* [5 e& k: Q0 v, b* x
"0.293706", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", $ `2 ~, C4 t' l6 v& c
"0.000000", ",", "0.086867", ",", "0.774648"}], "}"}], ",", " ", - ]& @5 d% A8 C8 `1 r
RowBox[{"{",
1 W: w4 p7 @/ N* C5 h$ T RowBox[{
* z9 m% F; t8 h9 k "0.608696", ",", "0.569711", ",", "0.111932", ",", "0.013542", ",",
% {# p6 k+ Z# H3 L" x$ b' ` "0.335664", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
" Q1 Q6 d$ U) d( }: x "0.168704", ",", "0.659894", ",", "0.422535"}], "}"}], ",", " ", 8 f+ G( L% w8 f$ U) p% M
RowBox[{"{", ! A; U3 _! q2 f
RowBox[{
0 U1 \ B) N4 I$ `' L2 x% q, O "0.608696", ",", "0.564547", ",", "0.329844", ",", "0.202036", ",", * Z0 m2 ~6 H4 J" R) e9 E
"0.510490", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", + Z6 A$ @6 ^! N7 T7 j8 v
"0.000000", ",", "0.317138", ",", "0.887324"}], "}"}], ",", " ", ' [5 l0 f) r7 z9 p
RowBox[{"{", $ X: Z% Y" R! k2 ]
RowBox[{. C: D* E- z2 u- z% @# I
"0.521739", ",", "0.546695", ",", "0.165788", ",", "0.029431", ",",
, L6 x. ?7 t; O "0.510490", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", ) e6 F5 k" F. z0 b5 Y2 }; @
"0.000000", ",", "0.605124", ",", "0.887324"}], "}"}], ",", " ",
& q" x/ c. @. O/ k9 K& X2 ~; b RowBox[{"{", ; E: b6 g3 f. F* f6 G
RowBox[{ c2 X% s) p' E1 `* X* y4 ]
"0.521739", ",", "0.564178", ",", "0.400518", ",", "0.045023", ",",
7 [( N6 P5 S7 a) L "0.615385", ",", "0.368500", ",", "0.660163", ",", "0.301108", ",", . E2 z( _$ J3 [6 U# `1 u
"0.000000", ",", "0.321260", ",", "0.859155"}], "}"}], ",", " ",
' |0 G G1 [# n: K RowBox[{"{",
8 H. P' A( z7 F* R# { RowBox[{/ T. t+ e& r) v) e$ E
"0.413043", ",", "0.551859", ",", "0.544826", ",", "0.230503", ",", * f: ~* \: }1 f0 S# s- N
"0.244755", ",", "0.530520", ",", "0.819512", ",", "0.000000", ",",
2 O) T; s* y$ Q "0.000000", ",", "0.595406", ",", "0.239437"}], "}"}], ",", " ",
, W4 M6 `& c4 i1 Q RowBox[{"{", ! D# S% ]) X* L) u' o
RowBox[{+ z R1 w% R' h. n( q
"0.652174", ",", "0.549277", ",", "0.257578", ",", "0.058688", ",", + c T, ]" @! a! a! @* g) ?( u% D( x
"0.356643", ",", "0.000000", ",", "0.817886", ",", "0.000000", ",",
5 }6 S5 i4 Z- Z! g$ d' H8 Z5 J "0.000000", ",", "0.555359", ",", "0.295775"}], "}"}], ",", " ", & r# x* b& Q$ L/ Z. U# M( t6 T. y
RowBox[{"{",
* W( M7 `; }( T! B RowBox[{6 O, a7 m$ K% a1 r; s# V
"0.695652", ",", "0.549277", ",", "0.572308", ",", "0.082411", ",",
! P$ {( R" D, J% I! l6 V "0.461538", ",", "0.528259", ",", "0.819512", ",", "0.000000", ",",
4 s+ ]3 `5 i5 o% ` "0.000000", ",", "0.333333", ",", "0.746479"}], "}"}], ",", " ", : f X# `7 I3 x! a+ s- I# L
RowBox[{"{", ; P/ A1 g* K' t! j/ `4 p
RowBox[{5 a" H6 v/ _4 u3 d
"0.434783", ",", "0.551785", ",", "0.530346", ",", "0.151651", ",", , l$ D6 T. A! M1 [
"0.790210", ",", "0.529013", ",", "0.409756", ",", "0.000000", ",", }# }: J' S; C! z6 O
"1.000000", ",", "0.149588", ",", "1.000000"}], "}"}], ",", " ",
/ h: A0 K! G T2 K6 l RowBox[{"{", B; Q2 s, E& o5 Z" \8 Q4 | N
RowBox[{5 f( f5 z# j5 G
"0.282609", ",", "0.531278", ",", "0.321428", ",", "0.228625", ",",
8 R* N5 h% [1 P* o. S "0.594406", ",", "0.530520", ",", "0.410569", ",", "0.000000", ",",
* s$ `( \1 P; b$ x4 z/ X- j! x. T "0.757457", ",", "0.493522", ",", "0.549296"}], "}"}], ",", " ", 1 p0 N" {4 \; m2 g W0 {) I& k
RowBox[{"{",
4 D( w" y. `" {) M3 i2 D RowBox[{$ ] ^( V' D3 W, B1 L
"0.347826", ",", "0.705444", ",", "0.109343", ",", "0.072008", ",",
0 \! P# s) o5 R# Y+ W- I. f( r" E" }/ y "0.496503", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 6 x& P/ C6 j2 A) V% B( |* I
"0.752567", ",", "0.224676", ",", "0.366197"}], "}"}], ",", " ",
; L' a0 E6 C* ?" ^ RowBox[{"{",
; E0 b2 K. F8 t; C RowBox[{
. C/ J# |8 z D4 I "0.391304", ",", "0.705444", ",", "0.045908", ",", "0.073120", ",",
3 g, Y# ]5 k4 x0 p! R( F "0.622378", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", * @; `4 _8 D5 z
"0.496333", ",", "0.410188", ",", "0.549296"}], "}"}], ",", " ",
, P- ^- w) H5 A- ~8 T4 T+ e8 c7 B e$ o RowBox[{"{", * O1 `# M# ^0 S9 {' h. ~
RowBox[{
* Z' S: ^/ _" O c$ R "0.282609", ",", "0.661921", ",", "0.344992", ",", "0.085178", ",", , u, L6 ~3 @1 j0 W& ^
"0.293706", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 6 k) L5 o) B u
"0.000000", ",", "0.668139", ",", "0.577465"}], "}"}], ",", " ", W" N; X/ U2 E4 T% E& Q; k/ f0 H" j7 o
RowBox[{"{", * T9 d; u( \7 R4 ~% t- `
RowBox[{0 o6 _% f l% d; q% h) p
"0.478261", ",", "0.661921", ",", "0.644209", ",", "0.077296", ",", 8 r* s9 C! @ `4 { _8 h
"0.412587", ",", "0.000000", ",", "0.413008", ",", "0.502518", ",", ) }, ^ p/ A% M
"0.000000", ",", "0.102179", ",", "0.690141"}], "}"}], ",", " ",
) k' O, M; [2 w RowBox[{"{", 5 I7 c, T, ?! K8 Q3 `
RowBox[{
' O$ c* \5 E5 b1 c7 b% z2 l "0.173913", ",", "0.984656", ",", "0.420753", ",", "0.137022", ",",
! t& T/ A+ f; k$ C8 J( ]/ S: V' h7 h5 } "0.321678", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", / \# ]; x- R& V, }6 I; v
"0.000000", ",", "0.380742", ",", "0.718310"}], "}"}], ",", " ",
; L+ ~/ }* E& S. x1 J RowBox[{"{",
4 X1 V; s! Q* E) H0 b5 U) ~6 p RowBox[{
& K+ @% W7 ]6 D* E: y "0.500000", ",", "0.984656", ",", "0.288432", ",", "0.047692", ",", # p3 w" d% p8 i4 s' R; L# H2 p- E, S
"0.279720", ",", "0.000000", ",", "0.821138", ",", "0.510574", ",", ' w: f$ t5 j8 q. j* x
"0.000000", ",", "0.319494", ",", "0.521127"}], "}"}], ",", " ",
, ?( d0 Y0 M) O: b RowBox[{"{",
6 i* F) Z( X4 E! S& `3 S RowBox[{
" A, j% D# [' y "0.391304", ",", "1.000000", ",", "0.452931", ",", "0.150909", ",", 1 _, L* C* e! |
"0.342657", ",", "0.370761", ",", "0.000000", ",", "0.509567", ",",
+ t$ r' n% E& v } "0.000000", ",", "0.031508", ",", "0.929577"}], "}"}], ",", " ", / H4 f2 y7 p' I
RowBox[{"{",
: F. a5 d6 U$ o1 R( W! s% ] RowBox[{$ ` B# c9 V- U5 M1 d0 X q0 s
"0.739130", ",", "0.774639", ",", "0.175120", ",", "0.036498", ",",
4 e8 n! P( u% m: K6 `9 j "0.391608", ",", "0.739261", ",", "0.408943", ",", "0.553877", ",",
. Y/ o' ~( G, i5 S "0.000000", ",", "0.292108", ",", "0.521127"}], "}"}], ",", " ", / X& e8 E- ^- V0 o0 z. q
RowBox[{"{",
, e( q5 i% k3 V; f( R; c8 p, t& j: J RowBox[{
+ U: g5 I( @; C& h "0.586957", ",", "0.982074", ",", "0.158462", ",", "0.063902", ",", ; N1 I6 ]( i- P" H7 O- s
"0.321678", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
/ X. p+ S& [# q "0.000000", ",", "0.329505", ",", "0.338028"}], "}"}], ",", " ",
, ?1 O; w9 v0 [ H. K RowBox[{"{",
' V" Z: n+ y2 s& l- G" ] RowBox[{: Z3 T& ]. n' P+ d/ \- h6 c3 a# i
"0.543478", ",", "0.982074", ",", "0.306872", ",", "0.041934", ",",
. `4 J: {) F9 b( k "0.426573", ",", "0.380558", ",", "0.414634", ",", "0.506546", ",", - j8 v/ N8 E" c8 [
"0.000000", ",", "0.337456", ",", "0.380282"}], "}"}], ",", " ",
" A, w+ f1 R7 d- o5 t( I RowBox[{"{", 4 g! @6 I: l0 U9 o5 B
RowBox[{
5 ^/ V! }! W3 y5 _) a4 s/ d "0.739130", ",", "0.997418", ",", "0.170143", ",", "0.058268", ",", 5 N, @8 G( u) h4 E1 Q# S: [
"0.538462", ",", "0.248681", ",", "0.000000", ",", "0.339376", ",", : z+ x& A1 B, Y' u, _2 E# ]9 ?
"0.000000", ",", "0.766784", ",", "0.676056"}], "}"}], ",", " ", . L* @! W9 `7 `2 M# m
RowBox[{"{",
+ o/ C( S$ Q s1 u RowBox[{
$ K ]2 e0 n' e "0.695652", ",", "0.700428", ",", "0.139361", ",", "0.182169", ",",
% t* n0 c4 O6 P: e' U. H "0.412587", ",", "0.243406", ",", "0.000000", ",", "0.000000", ",",
. q( D, ]7 Y B* p7 `2 A' L3 a( K "0.136919", ",", "0.676678", ",", "0.591549"}], "}"}], ",", " ",
% c. [0 V: z8 z4 D RowBox[{"{",
. _5 }: N* S/ c$ M: @+ q& k RowBox[{
2 j7 M d" @ s% Q8 f$ }! B "0.782609", ",", "0.751623", ",", "0.177646", ",", "0.350845", ",",
# }. Y$ z8 W+ f( Y! G "0.412587", ",", "0.502638", ",", "0.000000", ",", "0.000000", ",",
- z: L( N$ H) |' v; h4 z. t8 z! n "0.178973", ",", "0.541519", ",", "0.464789"}], "}"}], ",", " ",
- w/ Y6 x0 C$ T. |% F$ r RowBox[{"{", / J! r8 E5 Y! h0 C" o/ c7 v }
RowBox[{. k) D/ A7 ?" r6 y
"0.652174", ",", "0.751623", ",", "0.355593", ",", "0.039883", ",",
, F6 o4 B- r) J4 o) J1 _/ ? "0.195804", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 2 C" {. \; e8 h# I; r9 X
"0.000000", ",", "0.064488", ",", "0.295775"}], "}"}], ",", " ", + A. {( Z& A$ \+ q
RowBox[{"{",
! n4 M5 }% B! N& o! | RowBox[{
; `3 q" w( g; d9 B) n. \ "0.521739", ",", "0.679847", ",", "0.152375", ",", "0.030048", ",", $ h) U. G4 y, p, j& {
"0.363636", ",", "0.000000", ",", "0.271545", ",", "0.000000", ",",
1 K$ F3 t( x/ G1 @ "0.000000", ",", "0.463192", ",", "0.380282"}], "}"}], ",", " ", 4 o% A+ k. L8 s& B& f
RowBox[{"{",
6 ~8 ~* W1 I) D" d# `% m/ t0 K RowBox[{6 y! S- g% w' \9 k
"0.434783", ",", "0.728533", ",", "0.186830", ",", "0.129510", ",", , `5 T, }6 W( C% J5 P$ x
"0.195804", ",", "0.000000", ",", "0.269919", ",", "0.000000", ",",
" ?. x6 I/ E u. y' w& ] "0.326650", ",", "0.388398", ",", "0.211268"}], "}"}], ",", " ", . r- [# }( H- ~- U; M% V) e
RowBox[{"{", $ X6 k" B( {4 v0 C0 X9 `" }
RowBox[{
! \) n- |1 l9 C7 c& Y2 A "0.608696", ",", "0.606152", ",", "0.158058", ",", "0.090170", ",", 8 L: B6 i8 P( S3 k
"1.000000", ",", "0.166541", ",", "0.278049", ",", "0.000000", ",",
- ^- P, w* t5 a "0.236675", ",", "0.262367", ",", "0.253521"}], "}"}], ",", " ",
@, p4 e( G' d+ K RowBox[{"{",
; A9 {+ K: ~) _5 W/ r3 q RowBox[{
; s, U6 a, x1 W `! |% q "0.608696", ",", "0.633742", ",", "0.322697", ",", "0.068597", ",", * w( I+ T. T$ S* B
"0.328671", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 9 B/ `9 K* C& ]& `$ t
"0.287042", ",", "0.290931", ",", "0.281690"}], "}"}], ",", " ",
* ^6 v: \; A8 F6 y. g! s RowBox[{"{",
5 \: q# N8 ^+ f* O2 J$ y RowBox[{
0 \/ y5 n& q+ o8 X3 @, u- N "0.478261", ",", "0.539023", ",", "0.412108", ",", "0.107566", ",", 0 ?2 R+ R5 z6 T8 V2 G( A9 W
"0.237762", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", ! @0 a e [) P, Z6 i
"0.000000", ",", "0.380742", ",", "0.507042"}], "}"}], ",", " ", 9 ^6 g: u* J$ P) u; W
RowBox[{"{",
! D- c. m3 V9 |: I5 T4 |" V RowBox[{) r& a# t; ^, w" c
"0.608696", ",", "0.551859", ",", "0.176821", ",", "0.076332", ",", " o3 q3 z1 `: B `- `7 H! T5 C3 T
"0.265734", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 4 ^! G! S4 s; @1 V& A; s5 ^
"0.000000", ",", "0.429034", ",", "0.239437"}], "}"}], ",", " ",
4 l. \1 g! G4 r1 B0 i7 a RowBox[{"{", ! A, y$ W0 E6 k3 y# C& u+ {' @2 T
RowBox[{( S& V7 j( X" O
"0.652174", ",", "0.551859", ",", "0.033549", ",", "0.018459", ",", : V4 k0 h r8 m/ C- o
"0.573427", ",", "0.000000", ",", "0.553659", ",", "0.000000", ",",
! F" t O2 k! N0 [ "0.404890", ",", "0.193168", ",", "0.394366"}], "}"}], ",", " ", , u7 o) d; Y4 O. [+ s0 p( _: U
RowBox[{"{",
+ v# i% F6 K4 ]- S RowBox[{8 ` R6 K, W/ i& D6 V3 R, x
"0.695652", ",", "0.595382", ",", "0.277493", ",", "0.100326", ",",
* a6 Z' ~. H. P; B0 a "0.286713", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", / n/ B* R3 l" P3 i4 p# }
"0.000000", ",", "0.448763", ",", "0.338028"}], "}"}], ",", " ", ; q' f# a6 X! a& v; U* @
RowBox[{"{",
5 D e! E9 C. B9 l: d4 I RowBox[{: p3 d% l: v T1 ]* x+ ], S
"0.565217", ",", "0.559531", ",", "0.422669", ",", "0.078111", ",", : r _& D1 X: l
"0.286713", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", , B5 [- x5 { ]
"0.000000", ",", "0.442285", ",", "0.394366"}], "}"}], ",", " ",
0 N/ u, b9 a* h0 }! s4 \ RowBox[{"{",
0 C3 R; D; `: b; M6 k o& J3 F RowBox[{
% z- g) r* c, }5 _( D& ~0 h) N- e "0.586957", ",", "0.398126", ",", "0.140619", ",", "0.069116", ",",
) I% u6 @ j. N l "0.461538", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", " J6 a6 E/ m$ M( B8 ]- q
"0.000000", ",", "0.575383", ",", "0.154930"}], "}"}], ",", " ",
5 H6 R+ G: m6 G" C5 C RowBox[{"{", 9 Z- l3 C3 o, @) I
RowBox[{
! R4 k) {' D' g "0.695652", ",", "0.398126", ",", "0.019829", ",", "0.041366", ",",
3 S& g) L7 U D# i" S! Q7 e( c "0.552448", ",", "0.244160", ",", "0.000000", ",", "0.000000", ",",
7 ~" b7 J" ]9 L9 `# d; L "0.000000", ",", "0.515607", ",", "0.591549"}], "}"}], ",", " ",
# P! z+ S+ v% ^# w/ O) k RowBox[{"{",
S$ H) Z' O1 |5 g$ M RowBox[{
' ^( z" G" ~- p' ^$ r! [7 H "0.695652", ",", "0.700354", ",", "0.422467", ",", "0.068128", ",", ( w, R' E* j' z7 M* _
"0.209790", ",", "0.000000", ",", "0.000000", ",", "0.500504", ",",
, g) ^7 ^+ d1 j% W. Y. g; ] "0.000000", ",", "0.057715", ",", "0.408451"}], "}"}], ",", " ",
1 l: V6 I0 D0 d* `" }' e RowBox[{"{", 8 W% O- w4 T9 V* N9 q* R& l
RowBox[{6 X6 @, |9 g# i7 E- e. K1 U& h
"0.521739", ",", "0.193125", ",", "0.210582", ",", "0.110433", ",", + f' W( G/ ]- M5 J( [
"0.447552", ",", "0.382065", ",", "0.413008", ",", "0.498489", ",",
6 C' U+ v! T V. t! I0 W "0.000000", ",", "0.174617", ",", "0.295775"}], "}"}], ",", " ", 2 l& J) E, Z: e h) }
RowBox[{"{", 6 p8 D: Q$ }1 f2 N% J* S1 E% Z0 F
RowBox[{
# p4 w* a0 D# c "0.347826", ",", "0.063588", ",", "0.830527", ",", "1.000000", ",",
% D1 U) h' A% r% `0 r' i "0.111888", ",", "0.000000", ",", "0.410569", ",", "0.000000", ",",
) J$ w/ i9 H2 ?. R "0.000000", ",", "0.667550", ",", "0.661972"}], "}"}], ",", " ", & i4 |4 o2 ?6 F0 V1 s; {- c1 n: U
RowBox[{"{", + ]$ Q! R" i3 ~; Q. c7 d) v, v
RowBox[{
: h0 ^% e5 @. V "0.521739", ",", "0.188109", ",", "1.000000", ",", "0.785485", ",",
# g! o# F: I+ N& J9 {! N "0.342657", ",", "0.373775", ",", "0.406504", ",", "1.000000", ",", , Q6 A- O7 L3 i
"0.000000", ",", "0.371025", ",", "0.774648"}], "}"}], ",", " ", 3 B( T6 ]+ ]4 U1 @
RowBox[{"{", ' d+ Q, H$ U ~* s. q: `4 l7 u
RowBox[{: c; }9 J) F/ I, P* \' c- D- Q1 L
"0.695652", ",", "0.188404", ",", "0.088836", ",", "0.059504", ",",
- H# f! i4 c) o "0.706294", ",", "0.376790", ",", "0.000000", ",", "0.000000", ",", 1 D* q' f+ m; `7 x# ]
"0.000000", ",", "0.570966", ",", "0.746479"}], "}"}], ",", " ", ' S# [4 |6 v) l
RowBox[{"{",
2 b; _# N/ K+ ?- b8 k) o- P& Y RowBox[{
8 Y; Y( K Q( W! | "0.695652", ",", "0.057465", ",", "0.316316", ",", "0.151280", ",",
2 }* m7 C6 F/ M: f+ W) |' O6 @( \ "0.615385", ",", "0.371515", ",", "0.412195", ",", "0.500504", ",", ' Q$ X; x. y) d- I5 I
"0.000000", ",", "0.468198", ",", "0.887324"}], "}"}], ",", " ", ' Z1 a% P: q5 L7 N, j% S |
RowBox[{"{", ( U% S! s! f. M, k' _; K3 e* G
RowBox[{
2 e$ X1 q$ m( n K6 [9 E: c9 c* \& r "0.608696", ",", "0.011360", ",", "0.295586", ",", "0.113892", ",", : q1 h6 K1 A" C9 x0 W9 K
"0.580420", ",", "0.746044", ",", "0.405691", ",", "0.501511", ",",
, L% F# ~7 P0 x4 @ "0.000000", ",", "0.414016", ",", "0.845070"}], "}"}], ",", " ",
( t: [8 x$ c! b7 k* U: t RowBox[{"{", 3 u8 y& w, k7 i$ c. H$ u' v+ V3 o
RowBox[{3 W, N, b" j) M8 E" P
"0.608696", ",", "0.364783", ",", "0.130582", ",", "0.020214", ",", % J4 D. Y, ?( V
"0.356643", ",", "0.379804", ",", "0.000000", ",", "0.000000", ",", ) H, p3 \3 y! J
"0.000000", ",", "0.186690", ",", "0.704225"}], "}"}], ",", " ", " M: D! Y9 }! `0 s2 U0 m8 n
RowBox[{"{",
3 Q; o# o2 k' P6 ] RowBox[{
$ }/ D6 l1 S H) { "0.608696", ",", "0.193199", ",", "0.112690", ",", "0.036152", ",",
7 Q6 {0 q7 S0 ^ "0.636364", ",", "0.382065", ",", "0.409756", ",", "0.495468", ",", 5 H. E; x2 g. ]* i
"0.000000", ",", "0.442874", ",", "0.760563"}], "}"}], ",", " ", 4 P0 h |8 F. J* @7 b4 W/ ~$ K
RowBox[{"{",
: @* t& d/ w: u6 b8 ` K RowBox[{
$ l% A. s7 k+ L" Q "0.739130", ",", "0.328932", ",", "0.246779", ",", "0.126520", ",",
3 P8 Q. U% F- ? "0.454545", ",", "0.000000", ",", "0.495122", ",", "0.000000", ",", # X2 V" I, p. P1 T3 k6 y
"0.414181", ",", "0.686690", ",", "0.436620"}], "}"}], ",", " ", , |$ K: [$ Q; Y$ ^4 |1 d6 b
RowBox[{"{",
$ Z4 [$ _, T0 b9 r5 d RowBox[{
' `# [/ w; b" E "0.739130", ",", "0.341767", ",", "0.362090", ",", "0.183528", ",", 9 L+ c: M3 D& Y9 h2 o' k6 g+ ^( F
"0.573427", ",", "0.413715", ",", "0.454472", ",", "0.661631", ",", ! L1 w: d- v7 }7 l* ] K- J% @
"0.000000", ",", "0.244111", ",", "0.633803"}], "}"}], ",", " ",
( W' q# ~1 | ^. B% w RowBox[{"{", ( t2 o. C- m' V, @
RowBox[{
7 ?3 h( a- V) `* X" w "0.695652", ",", "0.187076", ",", "0.279724", ",", "0.006252", ",",
' Q+ J5 W; v% Q4 J: I( q% b. p "0.405594", ",", "0.418237", ",", "0.544715", ",", "0.000000", ",",
( \1 r9 q0 m( K& ~) ]$ U "0.000000", ",", "1.000000", ",", "0.422535"}], "}"}], ",", " ",
. W* b$ f6 @4 T Y ^2 [ RowBox[{"{",
# ^3 N+ W% X8 D2 B1 Y, k* f RowBox[{3 s/ `" m& h6 D+ a
"1.000000", ",", "0.333948", ",", "0.064750", ",", "0.065855", ",",
" B0 a2 R$ f+ K. T5 O "0.342657", ",", "0.000000", ",", "0.408130", ",", "0.000000", ",", + a$ ^7 r& h+ u' e7 @
"0.000000", ",", "0.957892", ",", "0.295775"}], "}"}], ",", " ", 0 L$ u8 ^0 K( \) c/ E
RowBox[{"{",
- M/ e& r U# o1 K7 m RowBox[{
B v" ^* F% m4 j6 h% Q "0.739130", ",", "0.305400", ",", "0.374567", ",", "0.132870", ",",
0 ~4 K, O c8 Z* }+ y "0.258741", ",", "0.834966", ",", "0.000000", ",", "0.000000", ",", " h; p& ~; K# A; Y5 |% K0 W# O3 }) e
"0.272861", ",", "0.266784", ",", "0.309859"}], "}"}], ",", " ",
) `+ {: h8 f1 l: U5 H! X H1 [, g RowBox[{"{",
; O9 {* h' y7 ?3 u+ C8 @+ M" F2 _ RowBox[{; u9 e4 n+ I9 m. J
"0.826087", ",", "0.151962", ",", "0.360280", ",", "0.221632", ",", ) T/ p& u, u f9 U
"0.447552", ",", "0.584778", ",", "0.457724", ",", "0.000000", ",",
$ Z1 P, G6 M" I5 _& M+ f- j "0.000000", ",", "0.826855", ",", "0.408451"}], "}"}], ",", " ",
' z, a6 `% `* a d7 D# H0 ` RowBox[{"{",
! Q, x( F1 y) W5 N7 ] RowBox[{
" f% |) z( c% R, N, M/ { "0.565217", ",", "0.047212", ",", "0.233154", ",", "0.121528", ",",
; }( f$ c, S8 ]4 q1 h; i "0.314685", ",", "0.417483", ",", "0.546341", ",", "0.000000", ",", ' U8 u, D; z; C2 ?" Y
"0.669438", ",", "0.341873", ",", "0.197183"}], "}"}], ",", " ", 6 p; s- g" F* u& [. W
RowBox[{"{",
. |* f" v0 Y8 r; o* V0 K& R ^4 ? RowBox[{
6 ]8 r5 l( u/ z# q. V "0.826087", ",", "0.034376", ",", "0.690349", ",", "0.512380", ",",
6 b" e& L6 ~0 P" Q5 B "0.685315", ",", "1.000000", ",", "1.000000", ",", "0.000000", ",", ' m- g' T" [# ~# M s
"0.556479", ",", "0.412544", ",", "0.732394"}], "}"}], ",", " ", , v$ J3 w% U# H# e: z- n
RowBox[{"{",
- O& L6 r9 s( _$ r N) E! |( V RowBox[{2 o2 L$ J0 e) n0 c, Q
"0.652174", ",", "0.000000", ",", "0.374417", ",", "0.188075", ",",
' ^5 r5 q+ c' n) w- `1 g. c" x8 K "0.706294", ",", "0.498116", ",", "0.729268", ",", "0.000000", ",", 2 N7 J# W. p x8 B+ B0 b
"0.454279", ",", "0.322144", ",", "0.802817"}], "}"}], ",", " ",
" e; b- l4 u4 m$ o. J RowBox[{"{", % Q7 s1 m: }. R6 q/ S8 b* ]
RowBox[{
8 ~! V* p$ t) A9 d "0.782609", ",", "0.180363", ",", "0.237142", ",", "0.054809", ",",
) |1 X$ `& G5 \* B( ~ "0.629371", ",", "0.373775", ",", "0.247967", ",", "0.000000", ",", ) Z: Y3 U6 j. _" O s! q" Z# j% q/ J
"0.163814", ",", "0.370436", ",", "0.746479"}], "}"}], ",", " ",
6 m; W$ h+ P* j8 | RowBox[{"{",
/ t5 C( L3 z0 Q RowBox[{
3 U! |9 z k9 ^/ R5 q "0.608696", ",", "0.169150", ",", "0.368148", ",", "0.393768", ",",
: x8 V n6 A; J$ z- G1 p "0.440559", ",", "0.995479", ",", "0.545528", ",", "0.000000", ",", + X: H6 w$ v" R& U/ t5 M( v, }& i
"0.565770", ",", "0.333039", ",", "0.380282"}], "}"}], ",", " ", 0 ^' N9 ^. B1 a- {
RowBox[{"{", 6 J! {- L6 m5 |2 h4 J) ]6 @& c$ P
RowBox[{
. f' Q' N1 h3 L "0.695652", ",", "0.390454", ",", "0.186683", ",", "0.039439", ",",
* p9 I8 p1 O% B9 u0 C( D. ? "0.482517", ",", "0.497362", ",", "0.415447", ",", "0.508560", ",", 6 l; t# m6 F- a
"0.000000", ",", "0.390754", ",", "0.563380"}], "}"}], ",", " ", ' q+ o2 p, a8 z m$ p% {/ Z+ k
RowBox[{"{", & j$ A3 C* }' U0 x
RowBox[{0 u. L e# O, B* h# Y0 q3 M
"0.739130", ",", "0.428888", ",", "0.082728", ",", "0.070154", ",",
8 L) \' R6 [; |0 I; V' }( X" R "0.279720", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
! e) w ]- p2 H. ]8 {8 @ "0.000000", ",", "0.694935", ",", "0.323944"}], "}"}]}], 3 _ G1 T2 A. z K
"}"}]}]], "Input",
1 @- o4 {2 U1 f; I CellChangeTimes->{3.5779587825701036`*^9}],3 H; }4 J5 t$ |2 q9 I9 {
" o9 U! s' M; ?* K) P# {& WCell[BoxData[6 O$ |; `( T& M/ z, g# V6 M
RowBox[{"{",
1 _; F) M4 J* Z9 ^ w# t& S RowBox[{( z* z3 B" y/ W+ U1 r
RowBox[{"{",
6 F6 K* N4 G6 I4 o' N1 }- { T RowBox[{
, ?' t* t8 l5 W; ] "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
8 f# o, o X, k2 j K+ H9 n "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
2 p" z Q o8 G "0.`", ",", "0.277091`", ",", "0.873239`"}], "}"}], ",", . L2 n& d9 `& L
RowBox[{"{",
. U# s0 I, H, t0 S; e RowBox[{
9 L0 a+ n r% D, i) l k "0.565217`", ",", "0.346857`", ",", "0.393585`", ",", "0.118785`", ",",
* |& a% {3 a8 Q: {" g "0.34965`", ",", "0.370761`", ",", "0.413008`", ",", "0.502518`", ",", * S. D2 T" z4 z: l
"0.`", ",", "0.220259`", ",", "0.464789`"}], "}"}], ",", 3 n) S: J. W3 z' q1 n" y
RowBox[{"{", + ]2 @) N% ^7 s' z7 K; z: R& W5 u
RowBox[{
3 X$ c8 F2 f9 m, y# W "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",", - \1 {0 a# I2 ?' ^' J0 b; l
"0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`",
& K B6 m7 N' M/ s ",", "0.899882`", ",", "0.492958`"}], "}"}], ",", $ U1 Z) P( X* ]- F2 q
RowBox[{"{", , ~3 o6 Y* C7 u5 b& a$ w
RowBox[{
2 l# |/ `9 L3 T2 D "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
! ]9 W: w+ y3 w" t- w "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`",
& R3 H( ?4 v7 Q5 {( E9 W& N ",", "0.265607`", ",", "0.774648`"}], "}"}], ",", - R: H' n1 f7 Y+ L( H
RowBox[{"{", . E1 c& f& f$ h5 z0 B5 T1 K U
RowBox[{
0 Y. g' ^1 E5 b# m" `4 s% Z; | "0.565217`", ",", "0.346931`", ",", "0.218229`", ",", "0.043639`", ",", , w2 n' Z+ K4 x# @1 q* Z8 L$ _
"0.503497`", ",", "0.761115`", ",", "0.415447`", ",", "0.503525`", ",", 0 v& ~7 S2 G3 K9 y
"0.`", ",", "0.642226`", ",", "0.380282`"}], "}"}], ",",
! g: T! `) J# u: k" V% G RowBox[{"{", ! l7 M9 ~* C$ m
RowBox[{; A& O9 |8 S" u# b2 z( Z' D
"0.478261`", ",", "0.293154`", ",", "0.259368`", ",", "0.026688`", ",", $ }6 V, R8 d9 n; a) m
"0.587413`", ",", "0.75584`", ",", "0.409756`", ",", "0.498489`", ",", ) K6 R; |$ `# j- t, ]+ l1 {8 Y& ^
"0.`", ",", "0.306243`", ",", "0.647887`"}], "}"}], ",",
# T' y5 k4 f; Y7 d- E: j RowBox[{"{", : r5 |, l0 @& }( n0 }
RowBox[{
8 N# O T$ W; K/ c, H/ U& U: ] "0.347826`", ",", "0.359693`", ",", "0.614393`", ",", "0.081521`", ",", ( H0 ^- ~) ^0 A, M& _5 j/ o
"0.258741`", ",", "0.367747`", ",", "0.410569`", ",", "0.499496`", ",", . U' s. F4 i7 e9 b) ]- v$ t
"0.`", ",", "0.186985`", ",", "0.56338`"}], "}"}], ",",
; i! c) A1 |( u- e, S RowBox[{"{", & ]0 c0 e. F0 F2 t- i9 j/ p
RowBox[{& @0 Q% s& T' H6 @3 S1 `
"0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",", / \3 C. ?5 G# V2 @
"0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`",
- m. H1 l, {% C# l G: t ",", "0.175501`", ",", "0.295775`"}], "}"}], ",",
7 G, ?) Z" K2 j3 f RowBox[{"{", ( X) E- l. z& Z4 u: g) O3 I
RowBox[{
/ v" S Z6 n0 ~/ j# R "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",", ! \: P G. y; ]" N7 c
"0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`", 2 B' }+ t3 L3 H$ c C* i
",", "0.147821`", ",", "0.338028`"}], "}"}], ",", ) y6 Y% F G' T' M2 n- ]
RowBox[{"{", ( C; X# p9 p- r$ y
RowBox[{
$ g+ w/ S2 U2 B "0.565217`", ",", "0.697772`", ",", "0.171587`", ",", "0.028566`", ",",
3 F5 A- w1 k& X- S "0.363636`", ",", "0.449887`", ",", "0.40813`", ",", "0.`", ",", "0.`", ; [- D. j- ^/ E" [/ i4 N
",", "0.352768`", ",", "0.211268`"}], "}"}], ",", 9 A$ \: |2 n5 C+ I9 }1 L. B
RowBox[{"{",
! i/ R! T1 |9 ^. R- L( P RowBox[{' K) ~, v Q' G6 l& G {
"0.282609`", ",", "0.660888`", ",", "0.460064`", ",", "0.110334`", ",",
! I: {1 ]9 G* G8 v "0.475524`", ",", "0.`", ",", "0.545528`", ",", "0.`", ",", "0.5511`", 5 A( }$ X& l4 z* Y# j) o
",", "0.23881`", ",", "0.690141`"}], "}"}], ",",
, Q. L) P- Q0 w* \ RowBox[{"{",
0 s' {# }* j% q4 O G RowBox[{% A6 f' ~3 P9 `, R S( b9 C1 [+ }
"0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",", 1 E) L- z, X% L/ ~
"0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
9 c! R( A) D& ~9 R' ]: x "0.494866`", ",", "0.095701`", ",", "0.43662`"}], "}"}], ",", 3 x$ X+ f+ ^8 \& [) D2 f; B5 a
RowBox[{"{", $ q% o" ?) j+ o2 @7 H1 P% } O7 f
RowBox[{4 D4 [2 x( y0 X; }3 I
"0.347826`", ",", "0.697772`", ",", "0.108288`", ",", "0.022413`", ",", / a/ T( B# H \7 h
"0.356643`", ",", "0.247928`", ",", "0.90813`", ",", "0.`", ",",
1 W- \: R! R+ h- V7 v "0.383374`", ",", "0.162839`", ",", "0.`"}], "}"}], ",",
: o8 O2 g* t5 ?& A$ S RowBox[{"{",
. r% H# Y- P$ v2 a5 r RowBox[{- U! L; S% ^6 I4 @5 v! F
"0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",", ' U; c# d, e& B) J6 i3 l
"0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`",
* }/ u8 M7 V/ e6 s o% C6 H ",", "0.335395`", ",", "0.267606`"}], "}"}], ",",
' \7 u% K' m9 r RowBox[{"{", 2 g2 o k% W6 S1 p0 R
RowBox[{3 T# K* d3 b4 k; w) P, B
"0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
u7 x" t0 ^% a9 |2 v4 |% [ "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`", ",",
6 C: ?6 U; F! J- Y "0.160483`", ",", "0.211268`"}], "}"}], ",",
- u% Y D6 {) `9 H( I RowBox[{"{",
& v. l% A. }8 V7 E2 b0 M RowBox[{
# Q4 R. }! \. Z7 C4 ^; I! s "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
- ?* Z' B/ X1 C0 r7 R+ g7 a: o& T "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`", - ~7 ~6 G5 T$ ]1 L: ~, |
",", "0.398115`", ",", "0.408451`"}], "}"}], ",", $ ^& B6 ]% q* K; F
RowBox[{"{",
5 C- I7 Q* O! i% \ RowBox[{+ e4 O/ a& O3 I
"0.608696`", ",", "0.425199`", ",", "0.012979`", ",", "0.`", ",", ! u' G7 G' S# R! A
"0.482517`", ",", "0.50942`", ",", "0.406504`", ",", "0.`", ",", "0.`",
& R" k% L+ ?# i: b' i8 V7 v ",", "0.157833`", ",", "0.478873`"}], "}"}], ",", # Z: r7 X; D: O4 D: h% D3 _
RowBox[{"{",
* P) P0 ?$ B6 H( l1 y4 J RowBox[{
' Z1 E" P E! \. j$ b# W1 g "0.608696`", ",", "0.577973`", ",", "0.213587`", ",", "0.030889`", ",", ; j+ c ?# p2 D& J
"0.370629`", ",", "0.`", ",", "0.452846`", ",", "0.`", ",", "0.`", ",",
, O$ X! }& l4 X2 w- M/ N "0.315665`", ",", "0.380282`"}], "}"}], ",",
, ^. \+ P: Y6 R) b( s RowBox[{"{",
7 B) Z. t7 W4 z) B RowBox[{( O+ |8 I1 F8 m
"0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
r/ h+ g; \7 \$ c. D+ E; B# M7 o "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.492344`",
0 s% w3 v6 g0 ?5 @- T ",", "0.211268`"}], "}"}], ",",
X6 z- K9 W' W* M( K7 x) b/ I RowBox[{"{", 3 r- I/ E l7 M4 @/ A) W
RowBox[{" L3 \. i5 a) i
"0.130435`", ",", "0.562039`", ",", "0.331662`", ",", "0.032643`", ",", 4 o& z; I! |4 R8 d. _- f4 Z: e; q
"0.314685`", ",", "0.414469`", ",", "0.27561`", ",", "0.`", ",", "0.`",
) l, J/ F6 b& i3 r. O" j ",", "0.638398`", ",", "0.43662`"}], "}"}], ",",
- ~7 T! d4 b& B5 M5 |& G RowBox[{"{", ; y9 }2 w4 Q# D- z# ^# `/ l% L
RowBox[{
: S P& T! t' y; E+ r- k( C; ` "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",", * O' L4 F& {" @& F8 q3 z
"0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
; Q0 x. o% h1 ^+ W. d "0.392521`", ",", "0.478873`"}], "}"}], ",",
5 [: N5 r9 z+ I RowBox[{"{", ( [. i2 w% z9 T/ _: Q: h
RowBox[{ p$ B+ Z6 l7 N
"0.608696`", ",", "0.769475`", ",", "0.289283`", ",", "0.022882`", ",", ( Y3 Y+ P4 w r1 W% ^: J
"0.321678`", ",", "0.`", ",", "0.274797`", ",", "0.333333`", ",", "0.`",
" u: u+ a, d7 F5 r/ D8 P ",", "0.362191`", ",", "0.295775`"}], "}"}], ",", / S( v/ t& P# k
RowBox[{"{", 2 n1 q8 r# i$ B6 U
RowBox[{% [9 j9 ]* l& M' L+ o+ ]# I8 P. ^4 D
"0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",", $ D/ c+ d1 s* i; b4 B
"0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`", ",",
$ X! v# c* z _8 k5 E "0.114252`", ",", "0.028169`"}], "}"}], ",", 1 M3 P$ e% k; q) @. l; k/ W& @. W0 x
RowBox[{"{", " T( W' w3 t7 g" i) s# Y
RowBox[{( _, M& i V& m' j
"0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
# z7 b" Q, p$ N6 \ e "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`", ",", $ r; |8 k2 J: B2 K& q
"0.401355`", ",", "0.43662`"}], "}"}], ",", 3 V' q# r) [: J6 A0 A0 n
RowBox[{"{", 0 ?: w7 t$ {; d0 I/ v* K4 w6 w
RowBox[{
. a8 C) P7 e6 L+ O( f5 u "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", ) b5 ~: U/ z8 \/ o, ^9 g# a
"0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", , u' I8 Z: k8 ], T
"0.827444`", ",", "0.394366`"}], "}"}], ",",
' C+ M1 [- E# i: X8 I RowBox[{"{", 2 X) H' N2 `; _2 S
RowBox[{5 L. P8 g) G) m7 Y/ Q* x" l
"1.`", ",", "0.199248`", ",", "0.295044`", ",", "0.041613`", ",", , F4 h6 S1 H8 V- z. X6 L1 P0 h
"0.20979`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
! l" G. }. V7 ] "0.676973`", ",", "0.295775`"}], "}"}], ",",
; t3 P9 e8 ]5 n1 H( U0 D RowBox[{"{",
( p* @. X, A% B# ~, [: J: u RowBox[{
. S( p4 ?! R, J4 V. h! _0 X "0.869565`", ",", "0.180363`", ",", "0.243056`", ",", "0.098349`", ",", ; b9 @: ?0 t" ?' [/ ]
"0.265734`", ",", "0.503391`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 3 R T+ K" {5 K8 S9 g
"0.331272`", ",", "0.830986`"}], "}"}], ",", / Y/ o/ Q$ g" h5 S" x1 ~
RowBox[{"{",
/ ]# Q" h O- I/ | RowBox[{% }' ^3 C# e' k3 b$ I- p
"0.695652`", ",", "0.551785`", ",", "0.326201`", ",", "0.253608`", ",", ; ^, Z+ |& {- u' y) r
"0.195804`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 6 Z1 w' W" n# T. g$ Y( N
"0.845701`", ",", "0.169014`"}], "}"}], ",", ) _& `8 V* v. c# ?6 O# o0 J
RowBox[{"{",
: H. d6 E. }* C) Z' B: d( @ RowBox[{( Q$ y) T3 D% C2 r! e4 c
"0.652174`", ",", "0.572293`", ",", "0.111511`", ",", "0.035584`", ",", 8 u. O- m/ a& Z( p% O1 J4 C0 ~7 F: o# d
"0.405594`", ",", "0.249435`", ",", "0.544715`", ",", "0.`", ",", "0.`", 4 ?- L" [) u, O$ d1 T* J
",", "0.287102`", ",", "0.366197`"}], "}"}], ",",
8 \$ P2 s3 n& J9 k RowBox[{"{", ! M! V* ^1 ~% G) a$ |! q+ m
RowBox[{
3 D& ?# ]& Q) M. _/ q0 n "0.652174`", ",", "0.562039`", ",", "0.336155`", ",", "0.014604`", ",",
5 |. ~, g3 V& ?8 q7 m5 j2 s! [8 ~ l "0.174825`", ",", "0.24416`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
/ t( u7 ?1 ]+ n- @. E, [8 L "0.`", ",", "0.309859`"}], "}"}], ",",
: z% b: _0 ^$ Z& Y) q1 u" P RowBox[{"{", " g) d! E8 d7 m8 i# Z9 K( p
RowBox[{
5 q* b, S5 G+ E "0.565217`", ",", "0.577383`", ",", "0.15587`", ",", "0.030963`", ",",
* i( G7 `3 m! k1 |6 { R% e% H! [ "0.258741`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
8 I0 ^ t' u) i "0.050059`", ",", "0.352113`"}], "}"}], ",", 8 D! u" S% Q# q& o6 D# E; G
RowBox[{"{",
% h6 }$ z& X. m, @7 o4 m, j RowBox[{
# t# S- }& W" Z( b9 O- p `6 z "0.565217`", ",", "0.613234`", ",", "0.232956`", ",", "0.05387`", ",", 8 k8 |( M4 p6 n
"0.230769`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
$ ^, z2 ^2 J4 t5 J1 m; O0 J5 [6 e% W1 i "0.254122`", ",", "0.309859`"}], "}"}], ",", ' A* V6 i! O9 O- O* l5 ~$ s
RowBox[{"{",
, |5 J) r' }# { RowBox[{
9 u1 {2 h3 E9 O# p6 K5 L/ l "0.565217`", ",", "0.559531`", ",", "0.493262`", ",", "0.046209`", ",",
' s9 I/ Y3 `4 f9 s r# z. y "0.293706`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", $ w [$ }- o8 t9 m
"0.086867`", ",", "0.774648`"}], "}"}], ",", 0 x3 n5 y$ b2 H2 A1 P$ C7 F9 c
RowBox[{"{", * b8 k( B' s# k: Y# x/ A' {- H$ K( x
RowBox[{( M* I Q* N6 @* S& A! C' p7 ?/ x
"0.608696`", ",", "0.569711`", ",", "0.111932`", ",", "0.013542`", ",", & C$ i0 t) ^, {; [; E
"0.335664`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.168704`", ",",
* q+ ]. O# O F; T! l3 X- d "0.659894`", ",", "0.422535`"}], "}"}], ",", 6 r/ ^6 q' S/ r& v5 R0 E* }
RowBox[{"{", # _$ f% J% F! K5 |- z
RowBox[{
0 f) ^# P/ }3 F6 l8 A' i ] "0.608696`", ",", "0.564547`", ",", "0.329844`", ",", "0.202036`", ",",
/ h! B8 W! f4 T/ F "0.51049`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", ) |* J- b. ~0 w' f; R) m
"0.317138`", ",", "0.887324`"}], "}"}], ",", 1 ^6 O7 G2 W( v3 C. N/ E* ]
RowBox[{"{",
2 I6 Q. e. z2 m7 } C RowBox[{
& x2 J8 p$ y) N4 a( P "0.521739`", ",", "0.546695`", ",", "0.165788`", ",", "0.029431`", ",", 7 K6 j7 v+ y$ p4 H/ v" X
"0.51049`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
( `0 j4 ~! e. [) h$ e9 I! z/ p: j "0.605124`", ",", "0.887324`"}], "}"}], ",",
! A3 H2 W+ K: y6 ^' m) @6 ? RowBox[{"{", 6 v0 W5 q$ r/ G0 c$ H1 ?
RowBox[{
7 k) A$ x6 N1 M3 h4 D9 [2 k, ` "0.521739`", ",", "0.564178`", ",", "0.400518`", ",", "0.045023`", ",",
0 b- \9 m% Z, h! _9 L+ M. a "0.615385`", ",", "0.3685`", ",", "0.660163`", ",", "0.301108`", ",",
8 R* e, X" C8 m. C9 _( b* ~ "0.`", ",", "0.32126`", ",", "0.859155`"}], "}"}], ",", 1 K9 h' d4 R `) l/ }' H; U
RowBox[{"{",
* {% U/ f9 y N- P1 { RowBox[{6 @ w8 H5 g/ E* a* w& Y
"0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", 4 ^2 x' n, G5 s$ X" e- r6 E
"0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`", 0 i9 Y- h3 o5 t8 |
",", "0.595406`", ",", "0.239437`"}], "}"}], ",", e* s& Q$ r. U1 X- W$ ?) T
RowBox[{"{", # s: P8 `/ s4 C: s
RowBox[{ D2 C+ X: s" O( u
"0.652174`", ",", "0.549277`", ",", "0.257578`", ",", "0.058688`", ",", # b! S! c( d x
"0.356643`", ",", "0.`", ",", "0.817886`", ",", "0.`", ",", "0.`", ",", 6 h: {7 L K( p9 H
"0.555359`", ",", "0.295775`"}], "}"}], ",",
7 }; z! c* f0 W2 I" U3 |. V RowBox[{"{",
' y f0 o6 N/ {( V+ B2 ^, K RowBox[{
5 C7 q/ `3 g. b" N1 a" |0 [) C "0.695652`", ",", "0.549277`", ",", "0.572308`", ",", "0.082411`", ",", : a! N- X. ^! Q0 t: z; E
"0.461538`", ",", "0.528259`", ",", "0.819512`", ",", "0.`", ",", "0.`", ) O( U+ K! w O1 L5 P$ Z0 Q
",", "0.333333`", ",", "0.746479`"}], "}"}], ",",
, z0 j' \+ I4 C9 q6 \( S RowBox[{"{",
" c! [- o/ z) @4 k6 G" `5 D2 N4 R" h RowBox[{: m$ O e/ ~2 H3 b5 ?2 r* A7 V. S: E
"0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",", ) J, d, d+ M- f7 H! u4 M
"0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`",
7 _% Z) r- ~9 b g ",", "0.149588`", ",", "1.`"}], "}"}], ",", % x5 T! u4 F( J7 c/ c
RowBox[{"{", ( F2 K; V3 P; W( n; \6 X
RowBox[{8 ?) S- \# U# d" M5 g% O
"0.282609`", ",", "0.531278`", ",", "0.321428`", ",", "0.228625`", ",",
7 A8 p7 C$ e; u3 {1 ^ "0.594406`", ",", "0.53052`", ",", "0.410569`", ",", "0.`", ",",
" V: u. N9 n0 Q8 K0 q "0.757457`", ",", "0.493522`", ",", "0.549296`"}], "}"}], ",",
a) G: A* U) y$ D5 Q2 H1 w, y. V) P RowBox[{"{",
/ A! \' e# _' ~ RowBox[{
/ o* N% d8 n) b" w' y/ N "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", ( t; o/ c V8 |# f
"0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`", ",",
! Y5 j9 s; F! L) ]0 w "0.224676`", ",", "0.366197`"}], "}"}], ",", # K7 j- O2 z$ J, t2 h9 ?, {% `
RowBox[{"{",
: b3 r* A) ^% a7 V% [ RowBox[{
; B6 ^9 f' R6 @: L "0.391304`", ",", "0.705444`", ",", "0.045908`", ",", "0.07312`", ",", 6 I3 I+ H: R) x% U' K
"0.622378`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.496333`", ",",
/ \# V- [7 }& a/ J$ z# p "0.410188`", ",", "0.549296`"}], "}"}], ",",
$ ?! B; y2 m6 a RowBox[{"{",
# ^. _1 A2 F/ _7 O RowBox[{1 V6 T4 K2 w7 X0 ?, k/ o
"0.282609`", ",", "0.661921`", ",", "0.344992`", ",", "0.085178`", ",",
! g( S% l- k& Z6 B* F r "0.293706`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
6 | G+ Y1 g/ u, }. q "0.668139`", ",", "0.577465`"}], "}"}], ",", 3 |* U$ A7 {+ r! \- T
RowBox[{"{",
: \. W8 A$ y( Z RowBox[{
9 N, p% e+ h0 r( A5 ?' f "0.478261`", ",", "0.661921`", ",", "0.644209`", ",", "0.077296`", ",", ( m* n4 K/ ^4 B2 z" D7 i: W
"0.412587`", ",", "0.`", ",", "0.413008`", ",", "0.502518`", ",", "0.`",
- ?2 \ l# s5 `, p, K ",", "0.102179`", ",", "0.690141`"}], "}"}], ",",
1 b$ e1 ]6 S/ `+ ? RowBox[{"{",
1 ^, I/ ?$ d: ~! R RowBox[{$ j9 u" f, M8 D. w; `
"0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
5 I! z! G6 v8 K. j2 G2 s8 y$ K1 G8 T "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
3 H* Z7 J0 I$ I" s+ g6 X "0.380742`", ",", "0.71831`"}], "}"}], ",",
0 ~9 D: C3 P0 }* E; ? RowBox[{"{", ( g V" l: Y% s" }& Z+ g c4 j
RowBox[{9 o( M- {! ^% S5 j* A
"0.5`", ",", "0.984656`", ",", "0.288432`", ",", "0.047692`", ",", , u: {5 f# @7 z3 U( z3 N' {. t- |
"0.27972`", ",", "0.`", ",", "0.821138`", ",", "0.510574`", ",", "0.`", 1 `& r1 K r0 e+ D! F1 } I2 K
",", "0.319494`", ",", "0.521127`"}], "}"}], ",", ' {' f2 Z& Y8 p8 O+ K
RowBox[{"{", 1 X+ x! A, L: u3 n
RowBox[{$ n# H4 z) d, M9 ?) o
"0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",", ! K1 B/ ^, h7 v& J0 z& m; c
"0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`", 9 l: F, Z3 N+ m$ @
",", "0.031508`", ",", "0.929577`"}], "}"}], ",", , j ~$ v& a( y; F
RowBox[{"{", 3 b& q* I' V, c1 b6 W$ }* K+ L
RowBox[{" R' o/ t! \2 W2 Q2 e3 n7 `
"0.73913`", ",", "0.774639`", ",", "0.17512`", ",", "0.036498`", ",", s5 z) Y9 ]4 I6 X
"0.391608`", ",", "0.739261`", ",", "0.408943`", ",", "0.553877`", ",",
5 `9 v8 o& Q6 @* _2 O! H3 m "0.`", ",", "0.292108`", ",", "0.521127`"}], "}"}], ",",
8 U `5 s8 l( z3 o2 R7 C5 U RowBox[{"{",
0 @ H4 E5 h5 ^5 E RowBox[{9 n3 D3 X* F3 ?# _2 t# R) O
"0.586957`", ",", "0.982074`", ",", "0.158462`", ",", "0.063902`", ",",
" c, w* j4 b! W* V2 x "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 6 _4 r; x7 D9 T$ L
"0.329505`", ",", "0.338028`"}], "}"}], ",", . m: h; Q" E* {1 {; t. o2 g; K
RowBox[{"{", / I- b6 {9 O8 [% N; V# z- [
RowBox[{
2 A! [! ~/ H1 o$ l0 a$ g "0.543478`", ",", "0.982074`", ",", "0.306872`", ",", "0.041934`", ",", , w1 L* i" I B
"0.426573`", ",", "0.380558`", ",", "0.414634`", ",", "0.506546`", ",",
* N4 \9 N$ K4 D6 F9 } "0.`", ",", "0.337456`", ",", "0.380282`"}], "}"}], ",",
9 s' B; f; A7 J# L' `/ H. w. ~ RowBox[{"{",
6 H# D3 X. ]4 n8 x* R0 j RowBox[{( ^6 p- Z/ q* Y
"0.73913`", ",", "0.997418`", ",", "0.170143`", ",", "0.058268`", ",",
( T1 r: l( S; I% y "0.538462`", ",", "0.248681`", ",", "0.`", ",", "0.339376`", ",", "0.`",
3 s; e' f' P. T3 X3 C' } ",", "0.766784`", ",", "0.676056`"}], "}"}], ",", % k# O5 ~- c2 b1 B
RowBox[{"{", $ z- J: U, |7 t9 Z- l5 a# G6 U7 \
RowBox[{0 m3 P7 V+ S1 G' O! z
"0.695652`", ",", "0.700428`", ",", "0.139361`", ",", "0.182169`", ",", ! M" k' t6 j" v( T O
"0.412587`", ",", "0.243406`", ",", "0.`", ",", "0.`", ",", "0.136919`", - v3 p5 r1 `2 e
",", "0.676678`", ",", "0.591549`"}], "}"}], ",",
. O! W1 N. s; l, s9 C( I RowBox[{"{",
R/ }$ S9 V* [8 T. {$ v1 ]' S. [7 | RowBox[{
( J ~1 Z1 c# I. Z "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",", . _+ H3 j$ ~6 L' J) D. ]: @3 C3 P
"0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`",
- _3 M+ }4 B, [3 g ",", "0.541519`", ",", "0.464789`"}], "}"}], ",",
0 ~% \) ?9 L. b" T+ V3 p RowBox[{"{",
+ n5 b1 S+ l9 {% R( ^ RowBox[{
4 k, ]& r5 j3 f$ i; h$ d0 M' o7 V6 [ "0.652174`", ",", "0.751623`", ",", "0.355593`", ",", "0.039883`", ",", ' b# D; T) f) G4 C
"0.195804`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
: \+ l `* p p% b/ s+ d H "0.064488`", ",", "0.295775`"}], "}"}], ",",
, G% u; F# |4 h/ }8 x RowBox[{"{", 2 F2 Y2 R( a) \" r
RowBox[{
4 v8 K6 i( D+ n3 D! y "0.521739`", ",", "0.679847`", ",", "0.152375`", ",", "0.030048`", ",",
O; R$ }: S$ q/ P- I9 R "0.363636`", ",", "0.`", ",", "0.271545`", ",", "0.`", ",", "0.`", ",",
/ z, [; W5 P* U9 B; m0 \& i "0.463192`", ",", "0.380282`"}], "}"}], ",",
" Z# V) l4 j6 `) r0 f RowBox[{"{",
. h q' C' R- }( Z RowBox[{; r( H ?* `. m$ E. R! g/ w
"0.434783`", ",", "0.728533`", ",", "0.18683`", ",", "0.12951`", ",", + V/ i: W4 w! k: q3 t% ]" p
"0.195804`", ",", "0.`", ",", "0.269919`", ",", "0.`", ",", "0.32665`", , Q/ a- \# C! R* a6 T# M2 e
",", "0.388398`", ",", "0.211268`"}], "}"}], ",", 7 Q- z" V4 `- @! d
RowBox[{"{",
" T! L- }9 l+ Y& Y$ N/ m RowBox[{/ u" c w8 d+ S0 [4 Z! ?
"0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
9 Z; g5 e M( ]3 w0 @ "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`",
0 G7 C+ ^( K' t" [' t% V ",", "0.262367`", ",", "0.253521`"}], "}"}], ",", ) k8 U. B/ C% j, @! W. d, f0 G
RowBox[{"{", * G ]5 @& R" n1 F% C
RowBox[{
+ t$ ~8 `* U! ?& _: J "0.608696`", ",", "0.633742`", ",", "0.322697`", ",", "0.068597`", ",",
2 R9 u- e! V% W2 S "0.328671`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.287042`", ",", 8 T8 q* w; Y/ E# \! L$ L' r
"0.290931`", ",", "0.28169`"}], "}"}], ",", $ w0 w+ L$ U7 V/ h
RowBox[{"{", g$ J- c% w0 M$ y- q. _
RowBox[{0 I# \% I4 x8 e4 c" u2 y5 @6 F8 {
"0.478261`", ",", "0.539023`", ",", "0.412108`", ",", "0.107566`", ",",
/ P- e9 F5 F$ G! R- O) \: @ "0.237762`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 6 g+ h0 Z8 n' S/ P4 l/ O
"0.380742`", ",", "0.507042`"}], "}"}], ",", ) i2 o$ o- f1 ?9 e( {. y
RowBox[{"{", 3 |# o# h: p. [0 h. y$ U6 ?9 U
RowBox[{
, u! Q" o& u7 Y& j "0.608696`", ",", "0.551859`", ",", "0.176821`", ",", "0.076332`", ",",
2 |$ x% Q+ k* @! G8 O9 c+ d "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", # }" K7 y7 v- M' t/ s! o
"0.429034`", ",", "0.239437`"}], "}"}], ",",
9 o" t$ V4 R) T RowBox[{"{",
7 T% g% ]. o& |3 z0 c5 B5 l. u RowBox[{; y* R+ o: [0 e" V0 N* R: h7 v
"0.652174`", ",", "0.551859`", ",", "0.033549`", ",", "0.018459`", ",",
# W2 c! C$ I% E "0.573427`", ",", "0.`", ",", "0.553659`", ",", "0.`", ",", "0.40489`", $ q- K9 j' o- n0 }
",", "0.193168`", ",", "0.394366`"}], "}"}], ",",
# P' b+ X; [* V6 H RowBox[{"{",
% l9 M' _2 r( f- B RowBox[{2 k; J: }. }& G* s% g: ?8 a. g. C: Q
"0.695652`", ",", "0.595382`", ",", "0.277493`", ",", "0.100326`", ",", 3 d" p' z* Z$ g
"0.286713`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
7 \' l1 u5 G4 m0 y( }! b "0.448763`", ",", "0.338028`"}], "}"}], ",", + d4 Y9 }$ ?2 j- q2 ^
RowBox[{"{",
! e9 f0 [ l: l0 x RowBox[{, q, `' f: O$ g) }: i# P
"0.565217`", ",", "0.559531`", ",", "0.422669`", ",", "0.078111`", ",",
% Z' r$ j- Z; t "0.286713`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 7 c* p! |2 J y! t
"0.442285`", ",", "0.394366`"}], "}"}], ",",
+ C8 s8 s. E, [+ E, S; I! B9 O5 Y5 Z5 W RowBox[{"{",
- {- Y& f x" K7 P& ~ RowBox[{" q7 T. I4 }; [5 G# m7 O3 h
"0.586957`", ",", "0.398126`", ",", "0.140619`", ",", "0.069116`", ",",
/ j* j. y0 e6 b: \- y$ T2 l2 i "0.461538`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
9 i- ^$ N5 |) Y) t( w "0.575383`", ",", "0.15493`"}], "}"}], ",", 9 ?7 M$ g) G" I; y; o. O* d5 Y
RowBox[{"{",
/ {: e- x2 @% B5 f+ a) H# e RowBox[{: N! e8 v; a( E
"0.695652`", ",", "0.398126`", ",", "0.019829`", ",", "0.041366`", ",",
. ?" b, X2 b, S7 q8 K "0.552448`", ",", "0.24416`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 6 a' G6 |7 B" m, w7 W
"0.515607`", ",", "0.591549`"}], "}"}], ",", $ t! {( a& C( M$ R e/ I
RowBox[{"{",
$ \) k& a g5 M& t, H3 m RowBox[{
6 [# P. x _/ o "0.695652`", ",", "0.700354`", ",", "0.422467`", ",", "0.068128`", ",",
( V$ t# u7 P. R: S "0.20979`", ",", "0.`", ",", "0.`", ",", "0.500504`", ",", "0.`", ",", # c: E6 }" {, o) K8 U
"0.057715`", ",", "0.408451`"}], "}"}], ",", ' [: G& q2 |5 ^' j( S, O
RowBox[{"{", : V5 h$ R8 I/ f, ]/ c+ U
RowBox[{* U! c9 C, C! r) M3 |( c# k8 X
"0.521739`", ",", "0.193125`", ",", "0.210582`", ",", "0.110433`", ",",
" Z0 S6 y w' o, y "0.447552`", ",", "0.382065`", ",", "0.413008`", ",", "0.498489`", ",", 2 F. F3 f2 f! \$ B
"0.`", ",", "0.174617`", ",", "0.295775`"}], "}"}], ",",
8 L8 w1 @+ ?8 B' f' f RowBox[{"{",
0 c, H: S1 o1 V6 y RowBox[{! H& Z. Y9 Y; w, M) Q$ b) i
"0.347826`", ",", "0.063588`", ",", "0.830527`", ",", "1.`", ",",
) j$ F/ V2 L4 O& u+ i "0.111888`", ",", "0.`", ",", "0.410569`", ",", "0.`", ",", "0.`", ",", - y3 b, x, q1 ?# X! R' S: K
"0.66755`", ",", "0.661972`"}], "}"}], ",", ! g4 l! X# g) @! ]
RowBox[{"{", 6 n6 @& u) `3 V3 ~0 _. j
RowBox[{
+ u/ y0 ~/ {+ I; s. s- a" l9 e "0.521739`", ",", "0.188109`", ",", "1.`", ",", "0.785485`", ",", * H$ M# t; d5 m) M
"0.342657`", ",", "0.373775`", ",", "0.406504`", ",", "1.`", ",", "0.`",
' @! }; G( V: W6 P" u0 ` ",", "0.371025`", ",", "0.774648`"}], "}"}], ",", ( |- l% R9 E* Q8 R; y/ L) m: b
RowBox[{"{", % T1 ]( g2 I# b( Z/ _# K" N" ]
RowBox[{
; ?- N) y8 D9 y A' _6 C0 Z" I "0.695652`", ",", "0.188404`", ",", "0.088836`", ",", "0.059504`", ",",
$ R% `/ \4 l9 Z3 @- m+ x5 x "0.706294`", ",", "0.37679`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
: i! z" F5 [$ u' @# c "0.570966`", ",", "0.746479`"}], "}"}], ",",
2 w0 F, f0 c* P5 i RowBox[{"{",
, g' j3 {; d' `" A" z2 N" K8 t- \ RowBox[{
6 A ?" X5 j% A! \* x+ n4 w "0.695652`", ",", "0.057465`", ",", "0.316316`", ",", "0.15128`", ",",
. ^/ E) Q! t N( I/ W! ^ "0.615385`", ",", "0.371515`", ",", "0.412195`", ",", "0.500504`", ",",
7 c7 }1 G3 h: k# h6 L/ |+ W* d "0.`", ",", "0.468198`", ",", "0.887324`"}], "}"}], ",",
0 m3 s5 Y2 }" L& P RowBox[{"{",
! `; d3 r4 G7 l( {8 Y4 i4 } RowBox[{; y+ l0 Q8 }& g
"0.608696`", ",", "0.01136`", ",", "0.295586`", ",", "0.113892`", ",", : H2 E8 W! n5 G0 b# V
"0.58042`", ",", "0.746044`", ",", "0.405691`", ",", "0.501511`", ",",
! v1 X. g0 P8 O) a1 B "0.`", ",", "0.414016`", ",", "0.84507`"}], "}"}], ",",
H/ s5 S$ ^8 }3 m0 d: i RowBox[{"{",
+ ^! t- t7 U0 X/ h( H* o RowBox[{3 z) a" q- |! ?+ U6 j7 O% j3 Z1 c
"0.608696`", ",", "0.364783`", ",", "0.130582`", ",", "0.020214`", ",", 4 Q( B+ b. B6 `! u* ]
"0.356643`", ",", "0.379804`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
; s, m: J2 L S) v/ J( e( @/ c4 J "0.18669`", ",", "0.704225`"}], "}"}], ",", 3 y+ Z5 x! L4 x$ ]& `
RowBox[{"{", 9 z. P; e7 @: S. z- E# d
RowBox[{) M' c6 C( v' y. X& Q3 s
"0.608696`", ",", "0.193199`", ",", "0.11269`", ",", "0.036152`", ",", 0 C0 k; _, T6 G+ ~
"0.636364`", ",", "0.382065`", ",", "0.409756`", ",", "0.495468`", ",", 5 ~% J T |4 T! i7 d. j
"0.`", ",", "0.442874`", ",", "0.760563`"}], "}"}], ",",
- @1 ~* Y+ N) L9 P% f, l2 s; R RowBox[{"{", % X L- j0 y- ^) S+ W
RowBox[{+ X* o2 N6 a! o0 |: t9 q
"0.73913`", ",", "0.328932`", ",", "0.246779`", ",", "0.12652`", ",", 4 p; a; Y+ E+ {; e+ X
"0.454545`", ",", "0.`", ",", "0.495122`", ",", "0.`", ",", "0.414181`",
1 b3 J' e- C+ M8 ~* \9 L( m ",", "0.68669`", ",", "0.43662`"}], "}"}], ",",
+ x9 ~/ M4 z3 I6 {, b RowBox[{"{",
7 N0 W$ V8 m. e+ o% F" \3 Z0 d; k RowBox[{2 e$ `/ M7 q* k8 t3 ~( w; i5 K
"0.73913`", ",", "0.341767`", ",", "0.36209`", ",", "0.183528`", ",",
7 e" |0 h9 F8 M" i8 f( e "0.573427`", ",", "0.413715`", ",", "0.454472`", ",", "0.661631`", ",", 0 _7 n! j* B& w7 k, h( W+ K
"0.`", ",", "0.244111`", ",", "0.633803`"}], "}"}], ",",
- J0 v5 h5 n2 T! p RowBox[{"{", ; h) v) w" e4 x7 `. N3 o1 o
RowBox[{3 m! G8 }' m' h& i/ F t
"0.695652`", ",", "0.187076`", ",", "0.279724`", ",", "0.006252`", ",",
* }; {3 b G/ g j "0.405594`", ",", "0.418237`", ",", "0.544715`", ",", "0.`", ",", "0.`",
6 a- W8 R% O3 X! p: Z ",", "1.`", ",", "0.422535`"}], "}"}], ",", $ o' Z8 |! W+ Y7 d1 D: g
RowBox[{"{",
- k" a. J& j ~6 c, z* `0 Y; O RowBox[{7 r& j5 ^1 R6 R# ]
"1.`", ",", "0.333948`", ",", "0.06475`", ",", "0.065855`", ",", 0 w; s9 ]1 J5 E, {
"0.342657`", ",", "0.`", ",", "0.40813`", ",", "0.`", ",", "0.`", ",",
3 ^8 K; |3 @2 T1 } "0.957892`", ",", "0.295775`"}], "}"}], ",", ; m! Z: k' L4 _* Y
RowBox[{"{", 4 k, g, t. q$ ^" f
RowBox[{
1 n' ~2 n4 m. S% g, S: r& n4 | "0.73913`", ",", "0.3054`", ",", "0.374567`", ",", "0.13287`", ",",
6 j" l8 q# z7 D" s) M "0.258741`", ",", "0.834966`", ",", "0.`", ",", "0.`", ",", "0.272861`", 4 | C9 T1 z: F, q5 n/ q" @# R) h1 m
",", "0.266784`", ",", "0.309859`"}], "}"}], ",", : m0 Z/ L4 n8 c: O2 m
RowBox[{"{",
% ~. C, y1 w/ T- T' q RowBox[{
% a" L6 r+ o6 q$ U" D3 }$ S "0.826087`", ",", "0.151962`", ",", "0.36028`", ",", "0.221632`", ",", & Y7 T: B* P, d' C( p! U
"0.447552`", ",", "0.584778`", ",", "0.457724`", ",", "0.`", ",", "0.`", , t; y: [9 \4 s/ S W- b
",", "0.826855`", ",", "0.408451`"}], "}"}], ",",
4 r N4 q' Z5 r2 _: X8 h4 O RowBox[{"{",
8 }8 z( ]) ]; Z. A$ o RowBox[{7 D. ]8 s4 X3 k' @4 ]8 L
"0.565217`", ",", "0.047212`", ",", "0.233154`", ",", "0.121528`", ",", 2 u! r( u( n" l( G
"0.314685`", ",", "0.417483`", ",", "0.546341`", ",", "0.`", ",", * l u2 w3 A: L; Q7 P
"0.669438`", ",", "0.341873`", ",", "0.197183`"}], "}"}], ",",
2 I) P4 L0 H3 |' i RowBox[{"{", 3 ^3 ^( \! y+ A3 W* _' f1 a6 y
RowBox[{
) P6 z$ G, ~; h; L8 y* `- ? "0.826087`", ",", "0.034376`", ",", "0.690349`", ",", "0.51238`", ",", 4 Q* Y$ ?9 G8 ^. S. b
"0.685315`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.556479`", ",",
/ V- d. k' _4 F$ Z "0.412544`", ",", "0.732394`"}], "}"}], ",", 1 B8 H$ D$ ~9 Q% K' g. e! c
RowBox[{"{",
% u$ T8 j, `; R {3 s RowBox[{+ V) N8 D( \1 E. q: Q
"0.652174`", ",", "0.`", ",", "0.374417`", ",", "0.188075`", ",",
- `& ~/ h4 ` Z5 j# t "0.706294`", ",", "0.498116`", ",", "0.729268`", ",", "0.`", ",",
, V9 h: r, s( w6 X4 ]" } "0.454279`", ",", "0.322144`", ",", "0.802817`"}], "}"}], ",", & v6 Z7 U; H" I- ~- w
RowBox[{"{",
- `8 ?$ f9 g! e2 h1 ^# A2 B RowBox[{) p/ X \; h# K0 Y, }
"0.782609`", ",", "0.180363`", ",", "0.237142`", ",", "0.054809`", ",",
5 Q7 x8 h2 L2 F "0.629371`", ",", "0.373775`", ",", "0.247967`", ",", "0.`", ",", + {+ \ b! a/ o; _# Q' G) A
"0.163814`", ",", "0.370436`", ",", "0.746479`"}], "}"}], ",", . [' r- }# M2 w p1 Q* S; e
RowBox[{"{",
/ O, J: P, O+ H! \5 W RowBox[{
3 }+ S6 X7 p8 C7 P "0.608696`", ",", "0.16915`", ",", "0.368148`", ",", "0.393768`", ",",
" A8 Z5 G$ w" j "0.440559`", ",", "0.995479`", ",", "0.545528`", ",", "0.`", ",",
$ O1 D9 w- p( g* C( R# G6 [ "0.56577`", ",", "0.333039`", ",", "0.380282`"}], "}"}], ",", % n4 i1 W3 ~6 ?2 `
RowBox[{"{", 2 l' U0 n* F5 Z/ _( y+ H
RowBox[{6 j! `* l. S- R6 Y
"0.695652`", ",", "0.390454`", ",", "0.186683`", ",", "0.039439`", ",", 4 y9 M9 f- L3 w: y+ \7 y! x, f
"0.482517`", ",", "0.497362`", ",", "0.415447`", ",", "0.50856`", ",",
( D- V+ I t9 {; G! H "0.`", ",", "0.390754`", ",", "0.56338`"}], "}"}], ",", ! |: F9 b. V1 U6 I- ^
RowBox[{"{",
* G R7 }9 i% F3 p RowBox[{
8 z1 Z& u7 K1 N6 E# M "0.73913`", ",", "0.428888`", ",", "0.082728`", ",", "0.070154`", ",",
" u: g7 f! Q, c4 j/ v0 | "0.27972`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", ' G m" I8 T7 D/ W1 p4 B, _! n
"0.694935`", ",", "0.323944`"}], "}"}]}], "}"}]], "Output",
6 \- t% ]! m) o- I6 w CellChangeTimes->{3.57795879182092*^9, 3.5779604974578943`*^9, ' f; k; |$ }+ m; }! [5 b* H
3.57801214396875*^9}]+ h* R. F$ C8 O& N$ S/ U; k
}, Open ]],
6 v4 s" o& a; h% t8 g, ]% I
* e7 }* y% Z g. tCell[CellGroupData[{! E: n# n. k" B1 J
+ i9 g2 m# G0 q+ r nCell[BoxData[ f3 \- x( S( E. W# w6 d
RowBox[{"Array", "[", x: Z' z8 J/ l; A
RowBox[{"CM", ",", ]# E- N9 e# j$ q8 [" c7 X' N
RowBox[{"{", 3 u: @3 c) d4 { M3 u1 ]
RowBox[{"80", ",", "9"}], "}"}]}], "]"}]], "Input",
1 K- ?+ p8 p+ d3 z% A& i, Z CellChangeTimes->{{3.577844235859375*^9, 3.577844291953125*^9}}],) g0 H/ M" G0 s' B h
& V, s" q7 x! h. L1 WCell[BoxData[7 Z4 H2 |, Z) i4 G0 m5 _
RowBox[{"{",
$ Q, w- N) Y( _" c1 Y RowBox[{" z& ?) ]4 ^5 T* {& a
RowBox[{"{",
6 }3 E5 Z# h/ a% h0 f+ Y( J RowBox[{
! q! d5 D+ s e% `/ K3 ? RowBox[{"CM", "[", ( g5 Z1 M. ~- }$ o0 O- b/ S
RowBox[{"1", ",", "1"}], "]"}], ",", $ F9 U! h: ]: ]2 l% \9 i9 C" p. q! x+ |
RowBox[{"CM", "[",
* U- Z# J% V9 f0 h6 f! L RowBox[{"1", ",", "2"}], "]"}], ",", $ q( Y+ P: p: g1 W6 c
RowBox[{"CM", "[", ( C+ S/ d' t" Q
RowBox[{"1", ",", "3"}], "]"}], ",",
: o6 I' o" u1 z9 w1 I( ~ RowBox[{"CM", "[",
& K: u% C0 [! z8 a" T b+ } RowBox[{"1", ",", "4"}], "]"}], ",", ) \0 e% w9 }. ]
RowBox[{"CM", "[", + r2 b1 G9 m4 C, n* T
RowBox[{"1", ",", "5"}], "]"}], ",", 4 e' }/ K( n2 R, z$ g
RowBox[{"CM", "[",
' K0 r3 m* }; ~8 }& U( h$ s RowBox[{"1", ",", "6"}], "]"}], ",", 4 L) A0 Q! d' x. l
RowBox[{"CM", "[",
! j( T( P* }3 M- Y) H& k- ~ RowBox[{"1", ",", "7"}], "]"}], ",", 2 s) `7 e: @* R; `1 n
RowBox[{"CM", "[",
1 D, f% D+ c9 h1 @ RowBox[{"1", ",", "8"}], "]"}], ",", 4 O1 S, d2 l! ]# z8 I
RowBox[{"CM", "[",
7 W! y7 N6 l1 ]( Y6 s RowBox[{"1", ",", "9"}], "]"}]}], "}"}], ",",
- ^+ |- k/ h8 u+ o RowBox[{"{",
4 V- ?/ m. |3 { RowBox[{
9 x+ ~8 m! ]6 Z! E RowBox[{"CM", "[", / P+ F- J% h" o( W! ~& }
RowBox[{"2", ",", "1"}], "]"}], ",", . H+ u, n9 Z( i, g6 {% E" Q( [. K$ S
RowBox[{"CM", "[", & z l) i9 D7 z8 p& ?8 a
RowBox[{"2", ",", "2"}], "]"}], ",", , B [% {: z* ~' e; o& b
RowBox[{"CM", "[",
/ I) V8 c- U$ J RowBox[{"2", ",", "3"}], "]"}], ",", * G7 C1 b% r2 ]
RowBox[{"CM", "[",
B- p8 K Y4 `# H RowBox[{"2", ",", "4"}], "]"}], ",",
. W4 [+ p. i- \ RowBox[{"CM", "[",
( t* f7 x) f0 R# D# I# s RowBox[{"2", ",", "5"}], "]"}], ",", * c: f) a/ S8 R9 V6 k) Z2 |
RowBox[{"CM", "[",
" s0 B% }3 f, T RowBox[{"2", ",", "6"}], "]"}], ",", + Y/ @. q7 Q" Y' o
RowBox[{"CM", "[",
7 |4 W- t2 q9 {9 U8 W2 {- U RowBox[{"2", ",", "7"}], "]"}], ",",
- P% |+ X) ^3 v( q9 H RowBox[{"CM", "[", ( P- V/ x: x! t/ |( F
RowBox[{"2", ",", "8"}], "]"}], ",", 0 F# g1 y% i* {6 R" i! N
RowBox[{"CM", "[",
& K! V- i; `4 J RowBox[{"2", ",", "9"}], "]"}]}], "}"}], ",",
/ V0 e( m; ^9 f6 [0 M# { `& O RowBox[{"{",
: K5 i, ?: k4 G- M$ r) W6 Q RowBox[{' j- d8 S8 m8 p, @- n& s5 x6 S7 ^9 Y
RowBox[{"CM", "[", + q5 y! C; W+ n$ `4 Y' d! ^5 q$ ~: G
RowBox[{"3", ",", "1"}], "]"}], ",", / c( a Q% u) S/ o* e; u
RowBox[{"CM", "[", / j5 {: l$ {1 R! @5 @
RowBox[{"3", ",", "2"}], "]"}], ",", 6 N; m+ B; @9 \ V7 `3 ]: n9 }8 O
RowBox[{"CM", "[", - F. |* T3 F q+ ?0 N9 A+ Q+ k
RowBox[{"3", ",", "3"}], "]"}], ",", 2 K8 d5 A O; e( Z4 ~: e4 `
RowBox[{"CM", "[", - i( a4 T" U) T4 \
RowBox[{"3", ",", "4"}], "]"}], ",", 3 Q p X b. A5 h- c" j+ B* e9 x
RowBox[{"CM", "[", ) f W9 a- n, z* e* W
RowBox[{"3", ",", "5"}], "]"}], ",", / T( w3 R3 U: {
RowBox[{"CM", "[", : m2 I- U4 @/ ^# X b9 W
RowBox[{"3", ",", "6"}], "]"}], ",",
. Z# k9 {2 l1 A, G- w RowBox[{"CM", "[", ' J( K8 @! h( a( M4 x
RowBox[{"3", ",", "7"}], "]"}], ",",
& ]+ [# S( N7 r6 _ RowBox[{"CM", "[",
7 j$ ~# ]7 j9 I6 [; t RowBox[{"3", ",", "8"}], "]"}], ",",
* `7 X% Y1 X" j RowBox[{"CM", "[",
1 e% k2 ]' @, O, p1 K( R RowBox[{"3", ",", "9"}], "]"}]}], "}"}], ",", . ]/ Y+ @$ {8 i6 r7 G- a
RowBox[{"{", . B$ ^$ E( v% t5 ]" j# Z1 Q% P
RowBox[{) V0 f% K4 q) A
RowBox[{"CM", "[", 4 ]' K/ O- J5 h3 Y
RowBox[{"4", ",", "1"}], "]"}], ",", $ h+ k& B) O% [$ z( I
RowBox[{"CM", "[",
) L& E0 V6 F% { A' z RowBox[{"4", ",", "2"}], "]"}], ",",
. P9 y. k8 l. P: i% ` RowBox[{"CM", "[", 6 n" E# i! }; g0 j
RowBox[{"4", ",", "3"}], "]"}], ",", - _4 }: [8 x" y- H3 j" }: p
RowBox[{"CM", "[",
- h$ z0 ?# x5 k Z RowBox[{"4", ",", "4"}], "]"}], ",", , \+ L7 N. b4 d3 O( j/ k, n
RowBox[{"CM", "[", " u) }: r0 `) u& }2 F9 G0 ~/ }
RowBox[{"4", ",", "5"}], "]"}], ",",
" P) }% f9 \1 N9 n! u RowBox[{"CM", "[",
, ^8 x I( V% W7 w9 E/ ? RowBox[{"4", ",", "6"}], "]"}], ",",
! l7 X4 ^* |6 O/ ?% p" p RowBox[{"CM", "[", 9 i9 M, d+ K9 v2 r
RowBox[{"4", ",", "7"}], "]"}], ",",
$ I9 q1 C1 Q1 N. s. Z RowBox[{"CM", "[", 0 v, Y8 m6 N: c A# |9 o' z( H* P
RowBox[{"4", ",", "8"}], "]"}], ",",
; ?$ A4 o2 }1 N- Q" C! Z1 i RowBox[{"CM", "[",
) T8 @$ \6 {+ m; t) M% d! g0 ? RowBox[{"4", ",", "9"}], "]"}]}], "}"}], ",",
2 T0 l9 U8 Y8 R8 I: b8 m RowBox[{"{",
8 [2 n: A: p% P: O RowBox[{4 W$ o" _5 E+ A! R) p- N
RowBox[{"CM", "[",
! n4 k" n4 @; B1 b1 R1 A% Y RowBox[{"5", ",", "1"}], "]"}], ",", 7 O" r( X# _, t( R
RowBox[{"CM", "[",
3 H" a, @1 T$ Z: N& D8 w7 }" f+ ` RowBox[{"5", ",", "2"}], "]"}], ",",
) m* v% @- \" D* B, _ RowBox[{"CM", "[",
& Q7 a- Q- I+ T5 Y: K1 S RowBox[{"5", ",", "3"}], "]"}], ",",
- x* h/ t" ^. B# ?1 t+ G$ T% ` RowBox[{"CM", "[",
! a( r/ L4 L" D RowBox[{"5", ",", "4"}], "]"}], ",",
+ E7 p$ N2 k1 x0 J( X+ `" f0 q RowBox[{"CM", "[", & e& u" i) J! [7 p
RowBox[{"5", ",", "5"}], "]"}], ",",
# k/ i" ]6 ~' b/ {) O4 q* \ RowBox[{"CM", "[", 8 u! R1 T1 s/ H
RowBox[{"5", ",", "6"}], "]"}], ",", 1 |( Y6 x7 |$ @; W" y6 w
RowBox[{"CM", "[",
; I9 c8 y/ |% a. J- @ RowBox[{"5", ",", "7"}], "]"}], ",", 4 S4 h. \! t1 F& ]
RowBox[{"CM", "[",
' B h8 i9 H1 o( ^4 l Q, Q: A RowBox[{"5", ",", "8"}], "]"}], ",", * |. E4 h4 h0 e- b5 N
RowBox[{"CM", "[",
8 l' ^4 u K8 J0 s+ D$ h, l RowBox[{"5", ",", "9"}], "]"}]}], "}"}], ",",
* T% h1 k+ W) W5 x1 b4 H& Y, L RowBox[{"{", 7 q! w$ ?! ]& e/ l1 T9 d+ l8 b2 ]
RowBox[{- E) n* D. h4 L8 u0 `
RowBox[{"CM", "[", 2 |' i! g4 b! W1 B4 r
RowBox[{"6", ",", "1"}], "]"}], ",", & N" N" H. N& Q, ?. V
RowBox[{"CM", "[",
; M H9 G" W! e' A4 s1 A RowBox[{"6", ",", "2"}], "]"}], ",",
[3 r' p0 {, k1 u RowBox[{"CM", "[",
0 i% Q2 Z. l7 Z7 J RowBox[{"6", ",", "3"}], "]"}], ",", " @; E* O7 E1 U1 \: ]. }1 M# `; Z
RowBox[{"CM", "[", " a: ^* ?2 {0 J9 {1 q, C
RowBox[{"6", ",", "4"}], "]"}], ",",
2 g& N$ A& ]+ X5 }4 F2 w9 n, q% ~ RowBox[{"CM", "[", - y. C) i1 C3 ?1 z5 A
RowBox[{"6", ",", "5"}], "]"}], ",",
, M* c( l0 C9 b* }8 B( a p RowBox[{"CM", "[",
0 a: h) ^/ o- V RowBox[{"6", ",", "6"}], "]"}], ",", - C; F$ Z0 V2 M
RowBox[{"CM", "[",
3 |/ G# _/ [! A3 n/ e7 c; g3 @ RowBox[{"6", ",", "7"}], "]"}], ",", , e7 |9 E7 U; ?" |
RowBox[{"CM", "[",
- f/ w7 I8 K; U# u8 W- H4 Z' [9 } RowBox[{"6", ",", "8"}], "]"}], ",", 8 h" u; K0 [& T% e! Z
RowBox[{"CM", "[", * w' O1 ^+ \; R/ O& Q( E
RowBox[{"6", ",", "9"}], "]"}]}], "}"}], ",", 0 k- v2 [5 F+ G$ o' B
RowBox[{"{",
/ X( G( u: y2 f, a1 d# ~4 Y! L RowBox[{
# H9 ^: z; f8 e RowBox[{"CM", "[", 9 V6 w1 P0 m" v$ N
RowBox[{"7", ",", "1"}], "]"}], ",", & B: y# W# x& X5 r2 K6 X K
RowBox[{"CM", "[", ) f! C2 T0 i# i& {% q0 Y0 R, X" ?/ ?
RowBox[{"7", ",", "2"}], "]"}], ",",
. _$ q7 P; Z) U# M2 u. z, `2 ? RowBox[{"CM", "[",
/ v3 V' P, w: X6 X" g% {9 {+ k RowBox[{"7", ",", "3"}], "]"}], ",",
0 k% r; V& {$ L' y RowBox[{"CM", "[", % G% ^, _7 a; H
RowBox[{"7", ",", "4"}], "]"}], ",",
8 x& I5 ~4 l8 M1 @% k RowBox[{"CM", "[",
+ ?' Y1 F& ^! b0 H RowBox[{"7", ",", "5"}], "]"}], ",", ) L+ C) k- s% z( S, J; Y
RowBox[{"CM", "[", # X) D+ @6 e; D
RowBox[{"7", ",", "6"}], "]"}], ",",
" I* h% ^+ Q$ v* G' P RowBox[{"CM", "[",
9 {& O5 M; K5 A9 f8 j+ d' u; _& n RowBox[{"7", ",", "7"}], "]"}], ",",
I6 a) E$ {% t/ D& [9 Q% A9 m RowBox[{"CM", "[", 3 S5 g2 A4 O* x3 ]/ R4 N1 H
RowBox[{"7", ",", "8"}], "]"}], ",",
6 z- ?( y5 d' A4 ] RowBox[{"CM", "[",
, n1 l- o) o5 i% k RowBox[{"7", ",", "9"}], "]"}]}], "}"}], ",",
" p/ G% L8 Z4 F- |6 ] RowBox[{"{", 8 f# D' G9 [. v
RowBox[{: x* z2 r. ~8 s1 A1 ]' t+ D
RowBox[{"CM", "[", ' R$ P0 J3 E( k& }* W
RowBox[{"8", ",", "1"}], "]"}], ",", % G! M( i/ r, o) @' `, t
RowBox[{"CM", "[",
5 M# G& n8 w. e) w RowBox[{"8", ",", "2"}], "]"}], ",",
$ k# ^! ]# v3 q6 u( Z) b7 Q RowBox[{"CM", "[",
- p% Z( n) E4 g) e6 r RowBox[{"8", ",", "3"}], "]"}], ",",
. U H. _! ~: G1 J9 v1 D RowBox[{"CM", "[",
8 B3 o) K! H; O, ` RowBox[{"8", ",", "4"}], "]"}], ",",
# j9 k1 l9 R7 d. F RowBox[{"CM", "[", ! M* I2 E& T) X# h
RowBox[{"8", ",", "5"}], "]"}], ",",
5 J9 H6 V) z7 O | RowBox[{"CM", "[",
* F% q, o$ f" v6 R; _/ H RowBox[{"8", ",", "6"}], "]"}], ",", $ ?8 Q$ f" _" x
RowBox[{"CM", "[",
; u. y& |) A) E! e; q RowBox[{"8", ",", "7"}], "]"}], ",", # V, N4 {% E4 P
RowBox[{"CM", "[",
+ ^/ l, ?$ @4 V/ A RowBox[{"8", ",", "8"}], "]"}], ",",
( b+ i* I" c2 J: J8 _9 Z RowBox[{"CM", "[", ' f9 ~/ z2 o- e- ^1 Z( }$ ~( q9 M
RowBox[{"8", ",", "9"}], "]"}]}], "}"}], ",", 7 K; x( R' O: O" y' O! ?. M1 h
RowBox[{"{", 3 L( x& B( T. i. M9 C8 i
RowBox[{
3 s$ m G0 k" C& ]: b9 w3 U9 h RowBox[{"CM", "[", 3 S, F+ Y8 D0 W! R
RowBox[{"9", ",", "1"}], "]"}], ",",
: g3 J9 n+ x' p9 d: A+ Q2 g/ y( m RowBox[{"CM", "[", ' Z$ j6 E6 J" Y& q- u
RowBox[{"9", ",", "2"}], "]"}], ",",
& z# J+ }; [ B( s RowBox[{"CM", "[", ! B s/ L3 z+ W- J- ~. F5 F
RowBox[{"9", ",", "3"}], "]"}], ",", ! B" H* ?7 k4 u# b
RowBox[{"CM", "[",
( }6 r3 L; f3 f/ W RowBox[{"9", ",", "4"}], "]"}], ",",
0 V0 O, ?& \; [! h! O! j4 ?9 N RowBox[{"CM", "[",
7 i' I0 S9 T- ^ RowBox[{"9", ",", "5"}], "]"}], ",", / N9 X, e8 K7 j& p8 F3 ?) \- o5 ~
RowBox[{"CM", "[",
0 ~* \+ F2 g0 V7 I) E$ z RowBox[{"9", ",", "6"}], "]"}], ",", 2 y* D. Q. {, y1 f4 \/ J
RowBox[{"CM", "[", 8 A! H0 W! q, D; v' C( @4 l5 y+ }
RowBox[{"9", ",", "7"}], "]"}], ",",
- A/ G9 r! }. l7 x7 @! e$ ^ RowBox[{"CM", "[",
: j% B, h7 S/ L) F+ i% n; h RowBox[{"9", ",", "8"}], "]"}], ",", P5 w C5 K6 s
RowBox[{"CM", "[",
, I2 n1 v0 L7 R0 M9 K9 m RowBox[{"9", ",", "9"}], "]"}]}], "}"}], ",",
2 W. e; N% c' q, b RowBox[{"{",
- p) U0 E. p E% t6 C; y$ ~- b RowBox[{
1 I/ R2 l7 H' r- j RowBox[{"CM", "[", " c2 H* B! \3 `, T% L- B; m Y1 Y
RowBox[{"10", ",", "1"}], "]"}], ",",
6 e2 j1 |8 o* U" k3 T9 q RowBox[{"CM", "[",
" u9 l0 o' @9 t, j. k/ s& a RowBox[{"10", ",", "2"}], "]"}], ",",
0 X( E/ h+ O) {2 E2 r3 i RowBox[{"CM", "[",
' p% h4 S( J. h1 u+ J/ e RowBox[{"10", ",", "3"}], "]"}], ",", ' X# H6 n) H3 T! Q, f% F2 ]
RowBox[{"CM", "[",
: q6 P8 `( g# E9 ^5 N+ U l& E$ L RowBox[{"10", ",", "4"}], "]"}], ",", 3 q) H' g: l/ `8 y. e/ A
RowBox[{"CM", "[",
. e6 j g1 s( E' x RowBox[{"10", ",", "5"}], "]"}], ",", 7 X# y: |4 H$ a* ?4 Y, L3 v
RowBox[{"CM", "[", ! W; C; {7 g" p
RowBox[{"10", ",", "6"}], "]"}], ",", ) Y+ D8 L2 ?' {5 F
RowBox[{"CM", "[", / n: ?, y' l; x5 K
RowBox[{"10", ",", "7"}], "]"}], ",", 3 A# w6 F/ }4 N2 o" K- ^' m# c
RowBox[{"CM", "[",
& Y5 r. r ?1 H7 j6 l/ `0 X RowBox[{"10", ",", "8"}], "]"}], ",",
" U7 D9 O9 Z' X: t* v D RowBox[{"CM", "[", ( E6 a/ F2 }# S `7 z
RowBox[{"10", ",", "9"}], "]"}]}], "}"}], ",", & X( ?0 T: x) g5 {6 k
RowBox[{"{",
/ l! Y7 N# a; w RowBox[{) L; M F1 u: S s* |
RowBox[{"CM", "[",
4 |, [( Q i; |/ N# X RowBox[{"11", ",", "1"}], "]"}], ",", - e p" O3 I5 k
RowBox[{"CM", "[", ' x7 P. i$ @3 n8 x- k
RowBox[{"11", ",", "2"}], "]"}], ",", , a4 f; U9 u& {: L1 n5 [
RowBox[{"CM", "[",
% g/ w: u, E2 v7 B) ^ RowBox[{"11", ",", "3"}], "]"}], ",", 7 W! u, g1 Z! v- ~
RowBox[{"CM", "[", " p: h( X' k& v- K
RowBox[{"11", ",", "4"}], "]"}], ",", / M6 V" @3 c# `" H$ C6 ^
RowBox[{"CM", "[",
& K/ L+ a' X4 I5 u RowBox[{"11", ",", "5"}], "]"}], ",",
0 g, n- V) \3 Z) |7 S RowBox[{"CM", "[",
4 o# {' h+ a. ?7 D RowBox[{"11", ",", "6"}], "]"}], ",",
- l; j! J7 l9 ^5 m; d6 d" A RowBox[{"CM", "[",
3 a4 U% P. v5 E& m' _, ` RowBox[{"11", ",", "7"}], "]"}], ",",
2 n* }" c9 m) x- p% T RowBox[{"CM", "[",
! F% w s4 f0 p7 \ RowBox[{"11", ",", "8"}], "]"}], ",", % t9 b+ c! ? w" p& Y
RowBox[{"CM", "[",
5 X5 ?& _% o' J" b( o9 j* q1 L RowBox[{"11", ",", "9"}], "]"}]}], "}"}], ",",
& a: Y# F% ~* _- B2 a# H( N N5 h RowBox[{"{",
4 h. s0 e+ c0 c! w RowBox[{! M- w' K: T" h+ ?. O& y7 F# [
RowBox[{"CM", "[", 3 N) g, l% V: L3 c
RowBox[{"12", ",", "1"}], "]"}], ",",
. J* W$ F' F4 W1 `! N" f RowBox[{"CM", "[",
5 `. j$ O6 c1 X9 ^ RowBox[{"12", ",", "2"}], "]"}], ",",
) s! Q' X8 a( u; L% m2 w RowBox[{"CM", "[",
1 n* Y% t- M4 u/ U" i# h; l RowBox[{"12", ",", "3"}], "]"}], ",", # l9 d5 ^8 p0 C8 U' c/ a
RowBox[{"CM", "[",
& D- n8 ]: Q/ \ RowBox[{"12", ",", "4"}], "]"}], ",", 4 I8 V5 W) h0 d! v
RowBox[{"CM", "[", ~) i: |& U% i% m. ?: k6 z
RowBox[{"12", ",", "5"}], "]"}], ",", 2 X" j: b5 F0 q! A1 q8 r9 a) |
RowBox[{"CM", "[", ) X$ z" g( T$ C
RowBox[{"12", ",", "6"}], "]"}], ",",
9 _; c& z) a) D5 W9 o RowBox[{"CM", "[",
0 P' T: g1 Q+ s; N6 l4 [ RowBox[{"12", ",", "7"}], "]"}], ",",
& I! _7 I" n" W+ R6 s/ R; a$ d RowBox[{"CM", "[",
9 w, ]0 X' F+ {- p RowBox[{"12", ",", "8"}], "]"}], ",", 9 @9 k3 Q3 A" }' Z) g5 R# E
RowBox[{"CM", "[",
) f, g8 ~9 O5 r8 O) K5 y6 j RowBox[{"12", ",", "9"}], "]"}]}], "}"}], ",", / {$ l( u) T5 H3 Y
RowBox[{"{", 4 n; ^( [+ T# O& w, P# _
RowBox[{
. s- D' i( F0 D RowBox[{"CM", "[",
- i% U& E* ]8 q( B' T# w RowBox[{"13", ",", "1"}], "]"}], ",", r$ s; {$ B! g3 C
RowBox[{"CM", "[",
/ V3 \4 N! |( _3 M( h, _# l RowBox[{"13", ",", "2"}], "]"}], ",",
3 F7 z/ L2 v. P2 C+ c9 J: K8 l o RowBox[{"CM", "[",
A1 a2 _: H0 [1 _: q# b RowBox[{"13", ",", "3"}], "]"}], ",",
; |7 C% N( _* P( q% e& [% ` RowBox[{"CM", "[", + a) Y+ W4 [" H- k) p# j
RowBox[{"13", ",", "4"}], "]"}], ",",
- J* f2 p) s6 e! A, n" s RowBox[{"CM", "[",
* f/ l/ `8 j! R W4 S4 @3 K RowBox[{"13", ",", "5"}], "]"}], ",", * I; K, y8 M' b! B
RowBox[{"CM", "[",
# P2 w' X9 o9 ]: ]5 f, d5 t RowBox[{"13", ",", "6"}], "]"}], ",",
6 B) Q: J! {4 r' p RowBox[{"CM", "[", ' N! L4 s W5 ]5 p! _ S6 Q3 I7 c
RowBox[{"13", ",", "7"}], "]"}], ",", % d4 Q0 @ O) F8 ~ a
RowBox[{"CM", "[",
T9 n# X9 o+ g+ s4 M" f8 t RowBox[{"13", ",", "8"}], "]"}], ",",
+ K2 l: X& c! w/ {5 ^ RowBox[{"CM", "[",
# B4 m* R2 P0 R, R$ s/ U4 B& L' T RowBox[{"13", ",", "9"}], "]"}]}], "}"}], ",",
0 M% W3 t C+ W9 A. D/ C RowBox[{"{",
- r9 u6 q, W# O% B7 w RowBox[{6 k, s. V+ P- T: ]. G& `
RowBox[{"CM", "[", ' l; U- ^ x/ W+ l# q
RowBox[{"14", ",", "1"}], "]"}], ",", 7 Q$ ]* b/ P1 n/ G! ]
RowBox[{"CM", "[", $ Z9 z$ j8 x' S Q
RowBox[{"14", ",", "2"}], "]"}], ",", 6 ~; a9 S4 U( }* ^; o$ D$ L
RowBox[{"CM", "[",
& V( v0 ? s$ |$ g7 s5 i1 t$ k RowBox[{"14", ",", "3"}], "]"}], ",",
1 ^% a0 X: B2 ` y RowBox[{"CM", "[", * Z5 P3 [! g) I- W# y
RowBox[{"14", ",", "4"}], "]"}], ",", ( x4 q- n* R/ ` f
RowBox[{"CM", "[", - G2 H% F9 V- e
RowBox[{"14", ",", "5"}], "]"}], ",",
4 [; ?. F4 Z; X! P* I8 `7 \ RowBox[{"CM", "[", ( L }2 [# x/ _7 {# a/ d! r$ k
RowBox[{"14", ",", "6"}], "]"}], ",", # l2 z" L. X0 y) _) J
RowBox[{"CM", "[", ; v( W! t Y1 Q- k3 z
RowBox[{"14", ",", "7"}], "]"}], ",", : E6 H7 M1 T" V) f0 E
RowBox[{"CM", "[", ; j% [0 z3 ~$ e$ n4 }
RowBox[{"14", ",", "8"}], "]"}], ",",
7 D @5 Q( M5 n5 y8 M3 R& ] RowBox[{"CM", "[", 3 p: |* L2 F3 W" {
RowBox[{"14", ",", "9"}], "]"}]}], "}"}], ",",
; ~9 y# j& m/ q RowBox[{"{", 7 H4 |$ u7 t+ p: ~% \
RowBox[{, Y& c: ^2 }- P9 l
RowBox[{"CM", "[",
5 O6 r) E% m3 _ RowBox[{"15", ",", "1"}], "]"}], ",", ( Z. t1 `5 X7 A! v5 e3 o
RowBox[{"CM", "[",
. O: ^5 M" z( a4 o& J( Z RowBox[{"15", ",", "2"}], "]"}], ",",
% r# I: ?2 V$ F" T) { RowBox[{"CM", "[",
- i5 ?& ~# h$ ~) {9 G: _* K) n RowBox[{"15", ",", "3"}], "]"}], ",",
& l; _. H7 Z! c9 e9 a- X0 X RowBox[{"CM", "[", 9 z$ s3 n1 {' l- Z5 a* G& p' y9 f& h6 |" d
RowBox[{"15", ",", "4"}], "]"}], ",", 7 h6 ^. H! U* ]5 y
RowBox[{"CM", "[",
C: ?/ ]' [" N2 V/ G+ x RowBox[{"15", ",", "5"}], "]"}], ",", l" e& M3 x( x
RowBox[{"CM", "[", / T. j+ F4 K# V' i( L
RowBox[{"15", ",", "6"}], "]"}], ",",
. S G& d; Z- A RowBox[{"CM", "[", ]% A% f! o; H8 Z
RowBox[{"15", ",", "7"}], "]"}], ",", ! n4 [# ~: c4 i/ s* V" n, z0 N
RowBox[{"CM", "[", % @+ p- q) @3 I8 }
RowBox[{"15", ",", "8"}], "]"}], ",", 9 S5 K7 I( k0 Z4 q
RowBox[{"CM", "[", 7 x2 R }2 c: {
RowBox[{"15", ",", "9"}], "]"}]}], "}"}], ",",
_* x0 X8 Q- |# h2 n RowBox[{"{", / O1 o5 j$ ?+ f7 D
RowBox[{. T, v% N% x3 N/ [
RowBox[{"CM", "[",
9 E4 G# Q3 X0 k2 [3 R# X RowBox[{"16", ",", "1"}], "]"}], ",",
/ o" |5 Q9 b. }0 i c) k RowBox[{"CM", "[",
& l7 a; h9 o) i2 s/ `7 z6 O RowBox[{"16", ",", "2"}], "]"}], ",", * o- N- V3 D" @% I5 x7 P
RowBox[{"CM", "[", 7 P0 G3 K: x: j, z$ a
RowBox[{"16", ",", "3"}], "]"}], ",",
! b& k! ], `. k+ N. v' H* i RowBox[{"CM", "[", 5 t& I* a/ J3 w4 _7 e; i5 l
RowBox[{"16", ",", "4"}], "]"}], ",",
7 } h& S3 I+ t' E8 P$ u! z9 @ RowBox[{"CM", "[",
; |- K1 [$ {' g8 b: a7 ?( Q- h. _ RowBox[{"16", ",", "5"}], "]"}], ",", " v8 \6 ^& Z; `, A9 [' z: Y7 @
RowBox[{"CM", "[",
3 a$ n; Y7 F$ U$ | RowBox[{"16", ",", "6"}], "]"}], ",", : d/ _ F& I0 i0 ?( b5 O3 n
RowBox[{"CM", "[", 3 P5 Q* A) q+ t$ @( Q! E; P
RowBox[{"16", ",", "7"}], "]"}], ",",
; L" a1 D+ u, _1 R+ Y RowBox[{"CM", "[", 0 {) `; K" g7 r% a2 J
RowBox[{"16", ",", "8"}], "]"}], ",", 4 ]; {( _. z" C, W7 B9 P$ c
RowBox[{"CM", "[",
X3 f3 u- g; P2 y- f d RowBox[{"16", ",", "9"}], "]"}]}], "}"}], ",", % b6 A9 W- \8 q. k; ]# @& d# x
RowBox[{"{",
6 B+ {9 {5 b" J+ y$ B2 s f- B6 ~" z/ _( ^ RowBox[{
4 W2 A" `9 Z) `- ` a$ C8 X RowBox[{"CM", "[", ' W0 a8 V% S2 H$ R
RowBox[{"17", ",", "1"}], "]"}], ",", : a5 d2 d! H/ u2 p2 u
RowBox[{"CM", "[",
* u7 y4 i/ q1 A RowBox[{"17", ",", "2"}], "]"}], ",",
# u( J% \7 P) j4 q' } T RowBox[{"CM", "[",
" j8 o1 J; M9 q2 J! K5 M1 f RowBox[{"17", ",", "3"}], "]"}], ",", 7 M; D& l3 ]( b9 \
RowBox[{"CM", "[",
& U& u3 }! E! }$ o+ F RowBox[{"17", ",", "4"}], "]"}], ",", " R* I/ ]+ \$ V& ]$ [: p
RowBox[{"CM", "[",
3 \/ W& R4 t5 X8 { RowBox[{"17", ",", "5"}], "]"}], ",", - {4 c, U8 ^% ~
RowBox[{"CM", "[", " A2 t+ H8 a y H9 {
RowBox[{"17", ",", "6"}], "]"}], ",",
% K" [& [3 n* w+ t RowBox[{"CM", "[",
( J. c# \( b1 n RowBox[{"17", ",", "7"}], "]"}], ",",
4 o* T Q% n3 c* R$ n RowBox[{"CM", "[", 2 n8 X: {2 u) }$ C4 r2 p7 X6 x4 h* d
RowBox[{"17", ",", "8"}], "]"}], ",", 5 g+ G) }$ a% Y4 l
RowBox[{"CM", "[",
& c6 e8 w5 M1 H8 C { RowBox[{"17", ",", "9"}], "]"}]}], "}"}], ",", 8 n- m/ @1 W0 Z
RowBox[{"{",
9 g! P5 o9 |* E# m5 j+ c RowBox[{, ^, d ^) v* `% B
RowBox[{"CM", "[",
1 l6 |8 j- S1 s4 z% C RowBox[{"18", ",", "1"}], "]"}], ",",
c2 Z* G, {1 [8 z0 x RowBox[{"CM", "[",
1 v S3 k" a: u1 b RowBox[{"18", ",", "2"}], "]"}], ",", % o/ d% u1 M2 H* U! b. h, b: Y
RowBox[{"CM", "[",
; ?% k- h3 V1 \ R RowBox[{"18", ",", "3"}], "]"}], ",",
1 h3 F$ Q& i( K3 u: x# ^ RowBox[{"CM", "[", 9 s; b! u: r8 [2 D( e
RowBox[{"18", ",", "4"}], "]"}], ",",
- p" M1 R4 W, U% R5 K1 J# X RowBox[{"CM", "[",
1 {' Y* i" r& N% J& r RowBox[{"18", ",", "5"}], "]"}], ",", $ m6 n3 A# X& Q* T4 Q
RowBox[{"CM", "[",
) e0 T' h' R. }5 Y/ _4 V9 n RowBox[{"18", ",", "6"}], "]"}], ",",
F2 }2 a e/ | RowBox[{"CM", "[",
; l8 K# _! p- H RowBox[{"18", ",", "7"}], "]"}], ",",
' _7 m1 B9 W3 i. b& x$ n. | RowBox[{"CM", "[",
, r" n, o9 `2 H' P RowBox[{"18", ",", "8"}], "]"}], ",",
0 s0 V/ v! l, W7 \$ d RowBox[{"CM", "[", , y) ` ?' {+ I |& i# Y5 L
RowBox[{"18", ",", "9"}], "]"}]}], "}"}], ",", $ C$ s4 ^% K3 _/ b. H/ L* r
RowBox[{"{", " N$ M* \7 P A% b5 u9 K
RowBox[{3 j( c3 ?2 ?2 X( g9 Z8 M4 s2 L+ w, S
RowBox[{"CM", "[", 4 N/ u% C8 }/ n0 G
RowBox[{"19", ",", "1"}], "]"}], ",",
: L3 K, F( C4 t3 B; z RowBox[{"CM", "[",
& i1 z5 u1 `7 Y* R8 A8 \ RowBox[{"19", ",", "2"}], "]"}], ",",
' E3 E5 b2 B/ D' @5 n# k RowBox[{"CM", "[", + `; |5 v& F: d* a& i1 J; R
RowBox[{"19", ",", "3"}], "]"}], ",",
; a5 E$ T5 q C$ i RowBox[{"CM", "[",
+ e- {: _7 H( X+ b RowBox[{"19", ",", "4"}], "]"}], ",", 4 z8 N% B4 v+ O1 N$ C4 y
RowBox[{"CM", "[", ! Z) U6 p3 a# [3 ^7 p) l4 }. V7 D
RowBox[{"19", ",", "5"}], "]"}], ",",
6 V! S8 D0 w8 G% N9 }) U RowBox[{"CM", "[", 4 t9 L& x0 o( b
RowBox[{"19", ",", "6"}], "]"}], ",", 6 ^7 g6 Y. l+ d/ y; C
RowBox[{"CM", "[", ' W7 L: b9 U5 @6 t$ ]( p
RowBox[{"19", ",", "7"}], "]"}], ",", - i( {& l$ P5 p0 b( S
RowBox[{"CM", "[", . D( |9 m+ b: }3 r
RowBox[{"19", ",", "8"}], "]"}], ",",
* q3 e* |8 H2 \, f RowBox[{"CM", "[", 4 c6 R" B% T% J9 W
RowBox[{"19", ",", "9"}], "]"}]}], "}"}], ",",
2 C' l/ V, n* z* c0 v RowBox[{"{", 5 L% k( \" d7 X$ v9 O
RowBox[{+ W' [, {/ ` F2 e+ T: ?/ r9 Y' ]
RowBox[{"CM", "[",
8 p- ]5 F. e& \0 |* W- d/ A1 T4 S RowBox[{"20", ",", "1"}], "]"}], ",", J y# M7 A8 S; M4 r3 e
RowBox[{"CM", "[", ( K. W5 x" s' Z+ H8 Q
RowBox[{"20", ",", "2"}], "]"}], ",", . a- m% A) z {2 z! S; X$ Q& I
RowBox[{"CM", "[", 0 j' N- V: p+ X+ a
RowBox[{"20", ",", "3"}], "]"}], ",", " I/ l6 ]" a6 i2 y+ ~( h& V4 C
RowBox[{"CM", "[", 2 m% g: b: J7 @
RowBox[{"20", ",", "4"}], "]"}], ",", / I4 Z; O* d2 p7 H9 O7 V- Z
RowBox[{"CM", "[", 9 ]. x1 h; S3 W" _' F- M8 d0 d& y9 j
RowBox[{"20", ",", "5"}], "]"}], ",", ! j# R1 Y; K' h8 L/ n' b
RowBox[{"CM", "[",
1 W7 f" U7 a% i0 l+ p0 j RowBox[{"20", ",", "6"}], "]"}], ",", ! W: ^7 z7 h8 n& c6 [3 |5 A
RowBox[{"CM", "[", 2 q A6 j8 C7 p! T
RowBox[{"20", ",", "7"}], "]"}], ",",
# {; ^0 F) d$ o4 n: x5 r* v9 O9 G RowBox[{"CM", "[",
% M4 J% m. y) s7 o1 n RowBox[{"20", ",", "8"}], "]"}], ",",
' n* S7 j1 l. ~/ u# M RowBox[{"CM", "[",
$ |4 b& D1 p' e. `5 Q RowBox[{"20", ",", "9"}], "]"}]}], "}"}], ",", $ l9 c& f7 f; P, I
RowBox[{"{",
) I9 l4 [% v% K8 t/ l RowBox[{
( I* c3 v/ d( u1 ~2 b RowBox[{"CM", "[",
% M4 j5 L3 `* L: C% Q% z `, a* W RowBox[{"21", ",", "1"}], "]"}], ",",
$ y# n% @" V7 J RowBox[{"CM", "[",
# @5 l% ?, h2 `6 x0 X1 k# w ^; t RowBox[{"21", ",", "2"}], "]"}], ",",
. K# N$ S) F( }. ^. Z RowBox[{"CM", "[", 3 Z2 W$ Q' o8 J. u
RowBox[{"21", ",", "3"}], "]"}], ",", ) A3 ^# q; V) \. H0 V
RowBox[{"CM", "[",
* G4 W, l- }* ?: p# `: n, R RowBox[{"21", ",", "4"}], "]"}], ",",
' q. K" _5 e) ^( P# {* j RowBox[{"CM", "[", : b4 {! V3 D0 \$ @1 Y
RowBox[{"21", ",", "5"}], "]"}], ",",
. c. p' a$ i4 @# S* J RowBox[{"CM", "[", 9 `/ ~) r+ _# f1 N
RowBox[{"21", ",", "6"}], "]"}], ",", : P% y+ q* y5 Z0 Y# K. w
RowBox[{"CM", "[", 1 m% w; j, C3 u9 i8 Y
RowBox[{"21", ",", "7"}], "]"}], ",",
+ K" h# M" Q+ R" q" { RowBox[{"CM", "[",
- V4 I3 [% B0 @ RowBox[{"21", ",", "8"}], "]"}], ",",
0 J1 F& N3 }/ H8 a0 i2 s! ~ RowBox[{"CM", "[",
( q5 d& l) E, @8 L& U: N RowBox[{"21", ",", "9"}], "]"}]}], "}"}], ",",
9 o6 x! V4 Y% {, E! Y RowBox[{"{",
, }0 X4 A; N* s1 B5 H0 w RowBox[{2 j) z$ R( c: A; P4 z
RowBox[{"CM", "[",
* W5 L% R; g3 n" \0 V RowBox[{"22", ",", "1"}], "]"}], ",", 8 s& R/ n" d1 z' W
RowBox[{"CM", "[",
* o: A& P! y+ r RowBox[{"22", ",", "2"}], "]"}], ",", # `8 S, n# c# Z- |6 D# C* k2 s8 R
RowBox[{"CM", "[", / m; S Q9 ]" }$ v4 z
RowBox[{"22", ",", "3"}], "]"}], ",",
, V/ Y" z. |. u D8 f$ i RowBox[{"CM", "[",
: b0 q! \) m& S0 `2 w* y RowBox[{"22", ",", "4"}], "]"}], ",",
; b7 n1 g7 `7 @* A: o" N RowBox[{"CM", "[",
1 A& ? j9 e+ t. |, v RowBox[{"22", ",", "5"}], "]"}], ",",
" x$ Y/ O, y9 P; b RowBox[{"CM", "[", 0 G$ r7 _2 G: Q5 \' T! Q
RowBox[{"22", ",", "6"}], "]"}], ",",
7 N- H/ Q* }) d/ @) v3 k! ? RowBox[{"CM", "[",
6 Q9 O" t+ v( |+ k0 O# S5 ] RowBox[{"22", ",", "7"}], "]"}], ",", , ]( B+ X+ s8 F6 l. I
RowBox[{"CM", "[", : [$ Q- Q1 |7 C% v
RowBox[{"22", ",", "8"}], "]"}], ",",
- a7 `' F" }% K RowBox[{"CM", "[",
: A7 W% p+ o/ L* [ RowBox[{"22", ",", "9"}], "]"}]}], "}"}], ",",
& V% H4 p9 p9 t& ~: f+ w RowBox[{"{", 4 w" z3 \, f, Z/ c2 W1 P: z
RowBox[{
; q! O( U; D( K p5 l5 a1 D RowBox[{"CM", "[", 9 [( q# G9 Q3 S+ q. j# w& w2 ]) u
RowBox[{"23", ",", "1"}], "]"}], ",",
7 ]9 _ F) H$ t9 a4 L RowBox[{"CM", "[",
5 N, s/ b* Z- I* c" u RowBox[{"23", ",", "2"}], "]"}], ",", ) l5 f6 p8 j$ o2 ~4 D
RowBox[{"CM", "[", 0 X* i0 s! E% M
RowBox[{"23", ",", "3"}], "]"}], ",",
# F0 S+ {9 W; ?8 m2 t2 j6 k RowBox[{"CM", "[", 3 v# o5 j% ]& i1 g# x0 I
RowBox[{"23", ",", "4"}], "]"}], ",",
1 z2 k3 J" `1 @3 O3 t) }0 ] RowBox[{"CM", "[", . b* ^4 r; Y3 _1 t0 X
RowBox[{"23", ",", "5"}], "]"}], ",",
$ G. H. R/ c$ X! y RowBox[{"CM", "[", + n. }+ j; O3 `) F4 R
RowBox[{"23", ",", "6"}], "]"}], ",", . k0 L1 Z- \: p% b
RowBox[{"CM", "[",
' p5 l! _) E& l7 A, K& p RowBox[{"23", ",", "7"}], "]"}], ",",
! m# h; P) [6 t7 x RowBox[{"CM", "[",
8 x* Z' G. z, I- _ RowBox[{"23", ",", "8"}], "]"}], ",",
8 |% i7 A6 t; `% i# {; P RowBox[{"CM", "[", ! y2 ~1 Q% l& R# N5 i
RowBox[{"23", ",", "9"}], "]"}]}], "}"}], ",",
. \2 N8 X; k8 Q0 y RowBox[{"{",
/ b& w2 m0 y, U6 V$ U& R- ^3 U RowBox[{3 a# p. o* Z) @) _5 b- Y
RowBox[{"CM", "[", ; ?( |, t5 U# E- ?: ]
RowBox[{"24", ",", "1"}], "]"}], ",",
8 R+ o0 t7 W/ ?+ o4 \; b/ K RowBox[{"CM", "[",
1 o# V/ e+ _8 Z v, t9 F" B( C+ D# Y3 o RowBox[{"24", ",", "2"}], "]"}], ",", u% V* j" _7 k9 v8 t9 T
RowBox[{"CM", "[", 0 Y$ v) M4 s2 O
RowBox[{"24", ",", "3"}], "]"}], ",", " P% I6 t6 ?3 { N
RowBox[{"CM", "[",
6 i- R. ]$ V( O2 b0 s) \( l9 ? RowBox[{"24", ",", "4"}], "]"}], ",",
# S; S. V/ J, b RowBox[{"CM", "[",
; A% k+ K% g( m2 f7 S. U% v) \ RowBox[{"24", ",", "5"}], "]"}], ",", % h: Z' o! R7 v+ H4 b9 b Y. z
RowBox[{"CM", "[",
: ~, K/ e& ~: m8 b# b. }4 |, r9 S RowBox[{"24", ",", "6"}], "]"}], ",", 6 M3 ?, R0 y2 Z8 r- _7 s6 `
RowBox[{"CM", "[", 9 |! C/ D* u# g, G
RowBox[{"24", ",", "7"}], "]"}], ",", A# o& m) X U
RowBox[{"CM", "[",
/ u8 c/ E# G0 C$ U/ S, L RowBox[{"24", ",", "8"}], "]"}], ",",
# X( B$ X: U2 w0 N: J! w RowBox[{"CM", "[", " f2 ^! R9 s+ v$ c1 M
RowBox[{"24", ",", "9"}], "]"}]}], "}"}], ",", 9 `) p3 \/ D( x: l2 M; e
RowBox[{"{",
* x. K5 U8 |) P5 i( f RowBox[{; s% k' n9 c5 j) c: N
RowBox[{"CM", "[",
" T$ z: h% O+ l9 r' T7 z9 M: q. t RowBox[{"25", ",", "1"}], "]"}], ",", G6 w: ^% n5 H$ h
RowBox[{"CM", "[", 8 t/ p5 L E- k1 Y- e; C
RowBox[{"25", ",", "2"}], "]"}], ",", / F2 U+ o1 ]: P9 V
RowBox[{"CM", "[", 8 N4 A- H- _0 D7 o7 x3 F% d5 N6 T, R: B
RowBox[{"25", ",", "3"}], "]"}], ",",
0 z8 v# t& j( E/ i% g RowBox[{"CM", "[", % F5 X7 R9 t3 O8 B
RowBox[{"25", ",", "4"}], "]"}], ",", ( ^5 {# R! N6 b
RowBox[{"CM", "[",
: a9 d4 N" \4 w) G: F! r3 p RowBox[{"25", ",", "5"}], "]"}], ",",
+ J- A9 i3 ?& `' w2 c4 G RowBox[{"CM", "[",
. s; }# m r% q RowBox[{"25", ",", "6"}], "]"}], ",", 4 @9 I. A4 M& b7 b7 D4 u
RowBox[{"CM", "[", : G M3 A. z8 i+ f+ P% Y5 j
RowBox[{"25", ",", "7"}], "]"}], ",", 1 u8 \+ E) K0 C6 _% S
RowBox[{"CM", "[", 3 d1 J' s, o6 Y' |9 b+ g
RowBox[{"25", ",", "8"}], "]"}], ",",
8 r0 {: `5 W; G RowBox[{"CM", "[", ! t9 I, M* n6 t% G# a. s2 Q
RowBox[{"25", ",", "9"}], "]"}]}], "}"}], ",",
5 D. D1 U# ?. Y, x7 L& N" B; M RowBox[{"{",
/ E' d4 e- W$ Y RowBox[{( f# I; Q) k. f$ ~3 J
RowBox[{"CM", "[", ) S2 D, ?1 H& X6 g- T
RowBox[{"26", ",", "1"}], "]"}], ",", ; z: J5 H( G) r* n+ B
RowBox[{"CM", "[",
5 f. A) o- F& \3 Q5 ^5 X- h c RowBox[{"26", ",", "2"}], "]"}], ",",
9 o5 c& N8 M0 U" B& r. [. t* v RowBox[{"CM", "[", / o8 A" ?: _' p0 O& n- g9 ~
RowBox[{"26", ",", "3"}], "]"}], ",",
1 `( i* _2 b/ \# P. f2 S RowBox[{"CM", "[",
9 g4 }1 H( U2 ^& d! ] RowBox[{"26", ",", "4"}], "]"}], ",",
7 K( `" }2 h9 q8 {8 a3 u RowBox[{"CM", "[", 5 H6 ?/ L% g1 i* j
RowBox[{"26", ",", "5"}], "]"}], ",", H/ J7 w9 O. n; h/ A" @5 j
RowBox[{"CM", "[",
& I' ^' z( I/ s8 n RowBox[{"26", ",", "6"}], "]"}], ",", 7 _4 P z5 X. [ R4 w, y3 F$ d
RowBox[{"CM", "[",
6 t8 ^, ~$ g# ^! t. h7 o* S; _0 Y& x RowBox[{"26", ",", "7"}], "]"}], ",", 3 m+ `5 W) |* ^
RowBox[{"CM", "[",
) o9 ~6 W! N' B3 r; R RowBox[{"26", ",", "8"}], "]"}], ",", ) \& d4 X- o7 [0 T% M3 o; H
RowBox[{"CM", "[",
^7 u/ ^+ k4 K& r5 s- s1 P4 t RowBox[{"26", ",", "9"}], "]"}]}], "}"}], ",", " E, N% i/ t9 E6 S* ^
RowBox[{"{",
( M& Q, b9 z- Z- w: [* ? RowBox[{
, |7 e' W L- v6 h! q4 T" i' j RowBox[{"CM", "[",
' G3 D% Y$ y% ~ RowBox[{"27", ",", "1"}], "]"}], ",",
: d. K! j0 I* } h5 j+ E RowBox[{"CM", "[", , w9 G2 H1 A+ Y- {
RowBox[{"27", ",", "2"}], "]"}], ",",
! L/ p2 o2 v5 v3 Z" Q" o RowBox[{"CM", "[", ' t2 o1 J' U' m
RowBox[{"27", ",", "3"}], "]"}], ",", ; j+ p D6 m: f' N) j$ ]
RowBox[{"CM", "[", | e, y+ B+ O# K, S B3 b
RowBox[{"27", ",", "4"}], "]"}], ",", 3 P, J- S2 f) h* F% ?
RowBox[{"CM", "[", 0 o( _/ U9 v, A9 ?3 z$ M# b+ ]
RowBox[{"27", ",", "5"}], "]"}], ",", / A, W9 {$ j: O- P
RowBox[{"CM", "[",
9 D0 p- T; d6 m$ t& ? RowBox[{"27", ",", "6"}], "]"}], ",",
" d$ b* ?' N# A/ ]7 f( h! v/ P- n RowBox[{"CM", "[", " g! e8 N5 f! m6 X! N; T4 q
RowBox[{"27", ",", "7"}], "]"}], ",", ) ?8 r; b+ ?# ?7 A }
RowBox[{"CM", "[",
- q0 g+ r- W& t* Q" E$ Q& ^ RowBox[{"27", ",", "8"}], "]"}], ",",
" g( n3 z7 m: `$ _! @, t% @+ o RowBox[{"CM", "[",
* s. w5 s; Y4 C RowBox[{"27", ",", "9"}], "]"}]}], "}"}], ",",
5 E; a' ]5 h5 C) a4 U/ c RowBox[{"{",
1 p1 t' o8 @9 C. m" P3 t: Q RowBox[{
/ F* F$ ^ w/ Q! R/ Y RowBox[{"CM", "[", ' X6 B/ f e5 S7 i$ p, a8 u: a
RowBox[{"28", ",", "1"}], "]"}], ",",
% b8 p, L% A5 U7 N6 R/ b RowBox[{"CM", "[", & x) \* O; ~% s
RowBox[{"28", ",", "2"}], "]"}], ",",
% A% c8 |/ M+ N' T k RowBox[{"CM", "[", 0 u* U% i5 b$ m3 [0 C- o+ J
RowBox[{"28", ",", "3"}], "]"}], ",", $ Y& T! U$ i: M) o
RowBox[{"CM", "[",
& O, U$ M3 R/ A+ m% s! N$ { RowBox[{"28", ",", "4"}], "]"}], ",", 5 n( R! f9 `- l
RowBox[{"CM", "[", 7 p' S. H% ^; X$ M$ l' z
RowBox[{"28", ",", "5"}], "]"}], ",",
: ]4 D; r( N/ l& d B RowBox[{"CM", "[",
8 K. v& ]6 ^- k" D; T. R# p RowBox[{"28", ",", "6"}], "]"}], ",",
5 |' [* H+ M# R6 b8 e; F7 S RowBox[{"CM", "[",
% k+ ?" X7 l, S# E6 @) Z8 C RowBox[{"28", ",", "7"}], "]"}], ",",
' ?6 d! E% x- L+ H+ q RowBox[{"CM", "[", ! f4 |8 R0 D2 I. p
RowBox[{"28", ",", "8"}], "]"}], ",",
% N4 y/ ^8 N/ D7 Z# d RowBox[{"CM", "[",
0 v! u P) A. C' \5 r RowBox[{"28", ",", "9"}], "]"}]}], "}"}], ",",
# `4 c1 ?- X* K+ B, ?8 k; V RowBox[{"{",
: m1 D5 Z. V" Q, U+ G- c* ?) a RowBox[{
, j E" _3 l5 g$ A# f RowBox[{"CM", "[",
; E0 b$ H! U5 x) x# |! g0 P RowBox[{"29", ",", "1"}], "]"}], ",", , v* g2 h8 p1 w" D9 y' K
RowBox[{"CM", "[", 3 z8 m7 J7 j1 o3 G
RowBox[{"29", ",", "2"}], "]"}], ",", # W) Q% l' b8 |; n% o: C
RowBox[{"CM", "[", 7 m2 B2 t8 l) }% W, B' M% S! H
RowBox[{"29", ",", "3"}], "]"}], ",", + |$ F" n! G* i0 G
RowBox[{"CM", "[",
6 S: L6 U& }+ c RowBox[{"29", ",", "4"}], "]"}], ",",
. I j& d+ M4 E. j# q RowBox[{"CM", "[",
7 e% e. v V- J( E" M RowBox[{"29", ",", "5"}], "]"}], ",",
6 {. N+ I/ l: L. J, ^* S RowBox[{"CM", "[",
: `& @7 g5 v1 z( j% I g6 O RowBox[{"29", ",", "6"}], "]"}], ",", ( {4 g5 t' {9 p; H+ h" N( M5 U
RowBox[{"CM", "[",
4 M' K6 [4 ^, J3 `. ~- f8 ?' Y" ~9 p RowBox[{"29", ",", "7"}], "]"}], ",", ( k0 [) U& I& F7 t K3 N
RowBox[{"CM", "[",
1 O: W% z1 b- e/ B# ~ RowBox[{"29", ",", "8"}], "]"}], ",",
% U+ o: _2 ]3 o7 y' H RowBox[{"CM", "[", 4 [ G1 H- N# A% |- ~& A. m: a
RowBox[{"29", ",", "9"}], "]"}]}], "}"}], ",",
' f2 m; z4 y; b% H* G/ z RowBox[{"{", ( k3 o! e: e& Z6 H# L. h: A5 I' S( S
RowBox[{8 H# C, E+ H( |2 f- I* X
RowBox[{"CM", "[", , L- t% Y0 e' S7 H
RowBox[{"30", ",", "1"}], "]"}], ",",
4 `- T' o- L" U! O1 h# P RowBox[{"CM", "[",
) j+ q( D( x, v3 K) k RowBox[{"30", ",", "2"}], "]"}], ",",
( L6 N) l, U* H& A" |7 t RowBox[{"CM", "[",
8 ^* X% I' J5 X. d RowBox[{"30", ",", "3"}], "]"}], ",", ; j7 {5 I, d& ?1 {1 J- W( `/ k
RowBox[{"CM", "[", , D v+ a' R. z6 a. o# }
RowBox[{"30", ",", "4"}], "]"}], ",",
5 t4 b% J3 o" H; A" q RowBox[{"CM", "[",
$ L' ~1 s: p; q" Q; ?7 o RowBox[{"30", ",", "5"}], "]"}], ",",
/ s" b- n- |) e6 g RowBox[{"CM", "[",
' A' W0 H2 Q9 ~* F- x3 e0 S RowBox[{"30", ",", "6"}], "]"}], ",",
; ]2 @: y# }" t2 g0 \) V RowBox[{"CM", "[", ( B! M# g: q ~) s
RowBox[{"30", ",", "7"}], "]"}], ",",
. w6 p. g0 d) W4 c RowBox[{"CM", "[", ) E3 h# |9 v6 J7 b
RowBox[{"30", ",", "8"}], "]"}], ",",
5 j9 V3 r! r& }9 k( z+ G RowBox[{"CM", "[",
! J: b- {, N6 j9 Q RowBox[{"30", ",", "9"}], "]"}]}], "}"}], ",",
' E; m1 t- B+ u( S8 i RowBox[{"{",
+ w3 Q0 @( v% t D) r. V RowBox[{( M/ u4 s O5 M# h+ v
RowBox[{"CM", "[",
$ J3 Z7 n- w. F+ V N RowBox[{"31", ",", "1"}], "]"}], ",",
1 P& o8 Z' w* ]5 x H$ m( P( z RowBox[{"CM", "[", : M4 {" }+ X& q$ y% E t; g
RowBox[{"31", ",", "2"}], "]"}], ",", ]% z S( R3 Y/ o' b7 v! G
RowBox[{"CM", "[", : M- q5 N5 T3 F: q2 Y
RowBox[{"31", ",", "3"}], "]"}], ",", 5 n9 r5 O$ E+ F9 n* g1 A
RowBox[{"CM", "[", 0 | |$ b3 X) z5 w$ i
RowBox[{"31", ",", "4"}], "]"}], ",",
! |& K' u T- _0 F- q( m7 r RowBox[{"CM", "[", 4 C# O! y) w) c L6 U
RowBox[{"31", ",", "5"}], "]"}], ",",
' \; B( G9 q; S3 e8 G8 \; E; _ RowBox[{"CM", "[",
" q2 v, h- w/ {7 r' w RowBox[{"31", ",", "6"}], "]"}], ",",
& a) m: c+ {7 B6 g RowBox[{"CM", "[",
Z. C' ~; D, ], ^& [0 ]0 u# u RowBox[{"31", ",", "7"}], "]"}], ",", : K! b& _! ^4 Y' C+ l/ C( \
RowBox[{"CM", "[",
! _$ M. {2 |( B" h" d RowBox[{"31", ",", "8"}], "]"}], ",",
* |( C5 M+ w* h w. W/ L: M* z RowBox[{"CM", "[",
" Q# \: p0 H R9 u% e: k* j RowBox[{"31", ",", "9"}], "]"}]}], "}"}], ",",
. F; f; b# Q. i! [# c RowBox[{"{", & S( E s; H. q" y
RowBox[{+ G. C7 d1 S; n" P3 Z
RowBox[{"CM", "[", " W% q. A ~: X
RowBox[{"32", ",", "1"}], "]"}], ",", . `) m% Z* U) K/ [: y
RowBox[{"CM", "[", 5 [( `5 X9 P! V4 V+ G/ U3 m
RowBox[{"32", ",", "2"}], "]"}], ",", / h* D& J! h& [& ^% u/ j) X
RowBox[{"CM", "[",
8 F+ s- O' x# t3 O `, ]( H" Y RowBox[{"32", ",", "3"}], "]"}], ",",
, p+ M* e: |& ^ RowBox[{"CM", "[",
# v5 y$ V! w: ], [! r RowBox[{"32", ",", "4"}], "]"}], ",", 9 y o8 @) w' |; _/ Y; w4 y
RowBox[{"CM", "[", ' u6 k3 _; C! V7 X- U6 q5 [( h
RowBox[{"32", ",", "5"}], "]"}], ",", 8 l( X! h2 l9 M8 P& c4 ?
RowBox[{"CM", "[", ! T- ]4 F" N( K
RowBox[{"32", ",", "6"}], "]"}], ",", ( _" s- J& E1 }9 t
RowBox[{"CM", "[",
+ d7 _/ F. ?2 z& M5 Z3 S+ | RowBox[{"32", ",", "7"}], "]"}], ",",
# ^ n' e4 N, Z% v RowBox[{"CM", "[", - q- ?4 R. A) |6 L: x/ F3 x
RowBox[{"32", ",", "8"}], "]"}], ",", % Y8 [ N/ E p2 r( p1 I& q
RowBox[{"CM", "[",
2 ~9 P+ o; r. q8 ~ RowBox[{"32", ",", "9"}], "]"}]}], "}"}], ",", % _, g7 h( |. J! n' a) [- x* |( R
RowBox[{"{", - B; J( |+ w' A
RowBox[{
; G$ V( a2 v* ` RowBox[{"CM", "[", : T: K I) c1 y$ @* i3 F3 P
RowBox[{"33", ",", "1"}], "]"}], ",",
* _! F6 @( H$ j. `+ l RowBox[{"CM", "[",
* o6 M, Q# N0 m$ I2 _% i& W RowBox[{"33", ",", "2"}], "]"}], ",", , A2 p- Y& S" q W0 p
RowBox[{"CM", "[", ) a" f) a. j6 s/ C4 h! ~9 i
RowBox[{"33", ",", "3"}], "]"}], ",",
/ \, J T* p; g: t* A RowBox[{"CM", "[",
0 m- i# M% G( ?9 z" N RowBox[{"33", ",", "4"}], "]"}], ",", + e: ?/ H) B, R' [( y! {% q
RowBox[{"CM", "[",
7 C1 c+ x4 Y: C3 y RowBox[{"33", ",", "5"}], "]"}], ",", ' C: F6 D5 C% X" Y! `
RowBox[{"CM", "[", ; C* @8 s4 v& L) d( g- L
RowBox[{"33", ",", "6"}], "]"}], ",", # a* D" ^6 g; J8 r' ]
RowBox[{"CM", "[",
' L" l. k+ T" X8 u( ^: E RowBox[{"33", ",", "7"}], "]"}], ",",
% W8 R& N% k! `7 j5 j+ x* Z RowBox[{"CM", "[",
2 O) U+ H9 {- g7 Z RowBox[{"33", ",", "8"}], "]"}], ",", 9 K2 c4 d ?# c
RowBox[{"CM", "[", / a3 u1 k$ Y3 M7 W9 a9 T% g; X
RowBox[{"33", ",", "9"}], "]"}]}], "}"}], ",",
9 V- C& T" L/ @1 v- }) r RowBox[{"{",
, I; ?9 q' m# B0 C4 M RowBox[{
, W7 I# h4 z) \6 K RowBox[{"CM", "[", 7 x5 ?! Y2 i% H0 y0 M e# ~
RowBox[{"34", ",", "1"}], "]"}], ",", ; G% P- i. z( J* |. Z3 e. v" ^- o6 n
RowBox[{"CM", "[",
- ]; E4 f- ^$ O3 t$ N( v% _& Q1 y5 V RowBox[{"34", ",", "2"}], "]"}], ",",
/ M7 \3 p/ {. m# R; F, t/ [ RowBox[{"CM", "[",
6 ]. Z0 u* K* I5 E: K }8 [ RowBox[{"34", ",", "3"}], "]"}], ",",
/ _# y& x5 U) ]' g RowBox[{"CM", "[", 5 _) e/ I4 q, G; x% ^! l: R- w& A/ Q
RowBox[{"34", ",", "4"}], "]"}], ",", ; M" S x( y' F. ]1 }4 T* x6 y
RowBox[{"CM", "[", . l+ \1 v) o7 g/ h+ B/ I0 _
RowBox[{"34", ",", "5"}], "]"}], ",",
: y$ E) K! [* v) Z( R5 j RowBox[{"CM", "[",
$ }2 s- P- Z5 O% x RowBox[{"34", ",", "6"}], "]"}], ",",
: M+ ?& p# m$ E5 n3 c RowBox[{"CM", "[",
6 d7 ]: ~% q1 Z' T x RowBox[{"34", ",", "7"}], "]"}], ",", 9 L+ X8 s5 R) U0 A1 [ ], L! o, S9 s
RowBox[{"CM", "[", 3 H; O# y. K b5 S
RowBox[{"34", ",", "8"}], "]"}], ",", + @& F! y( o/ k# ~! p' I" n2 ^
RowBox[{"CM", "[",
+ V/ L: Q1 B8 n' i RowBox[{"34", ",", "9"}], "]"}]}], "}"}], ",",
( q( \8 h6 W3 p6 Y3 _ RowBox[{"{",
4 ?# F8 X7 h/ A) N( h RowBox[{- S( s7 F! _5 r$ N
RowBox[{"CM", "[",
* i7 G; V3 g# X RowBox[{"35", ",", "1"}], "]"}], ",",
! h" ^% y4 ~- U8 J0 b5 Q RowBox[{"CM", "[", ; ^+ W- i: p! \ k D9 ~% @
RowBox[{"35", ",", "2"}], "]"}], ",", ( E" `* E1 k z& H( Q9 ~7 e/ S n ^
RowBox[{"CM", "[",
, @8 C/ N" R3 w- h4 ] RowBox[{"35", ",", "3"}], "]"}], ",", / H) D& r* T. G- b
RowBox[{"CM", "[", 8 q: G% M" @, @% j* _& k _9 O
RowBox[{"35", ",", "4"}], "]"}], ",", * c) E9 a. j/ ~# J) T9 l
RowBox[{"CM", "[", 1 J) b0 B7 j$ {" c N7 O
RowBox[{"35", ",", "5"}], "]"}], ",", / r' @5 X6 i' h' w7 ^6 b. l% E
RowBox[{"CM", "[", 5 o4 G' p# {! @( h2 |' q
RowBox[{"35", ",", "6"}], "]"}], ",", 1 W7 @; l$ n, ~0 G; w$ l3 C
RowBox[{"CM", "[",
( M0 N4 w3 W5 W s RowBox[{"35", ",", "7"}], "]"}], ",",
( f& U$ I! G" r RowBox[{"CM", "[",
$ N0 @, B9 u3 N* M: S% J3 {) [ RowBox[{"35", ",", "8"}], "]"}], ",",
% x; E& p3 I3 P7 ?; F RowBox[{"CM", "[", * u6 p% D& i* a- e( T8 z" N
RowBox[{"35", ",", "9"}], "]"}]}], "}"}], ",",
2 H. D* |" Y: x" q3 D RowBox[{"{",
2 A- R- _/ b; l; D RowBox[{* Y/ ?& s* e: S6 i6 ^% \. e
RowBox[{"CM", "[",
* l ?9 n7 ~ |9 B" q% |$ j2 O RowBox[{"36", ",", "1"}], "]"}], ",",
, V7 y& c0 ?* s6 W+ f RowBox[{"CM", "[", # J9 q& D, A: a! z8 s4 _
RowBox[{"36", ",", "2"}], "]"}], ",", $ Z. M% P8 L j, G/ o' @
RowBox[{"CM", "[", 5 J# |. R. ~, ^5 k3 b# L% `
RowBox[{"36", ",", "3"}], "]"}], ",",
$ x/ b! M$ \' ^( F: e; `; Z' N RowBox[{"CM", "[", 1 m/ ~; g5 {0 N, g' K, Q7 `
RowBox[{"36", ",", "4"}], "]"}], ",",
' f- v$ C, f" Y' G1 p RowBox[{"CM", "[",
/ f, i3 s1 U3 i: F: k6 Q RowBox[{"36", ",", "5"}], "]"}], ",",
% X6 \! ]0 o' b# a q RowBox[{"CM", "[", 4 Q$ d) q: t8 F, w
RowBox[{"36", ",", "6"}], "]"}], ",",
4 o6 S# D+ n/ j1 d5 o B7 n RowBox[{"CM", "[",
6 x7 J0 [6 d! R3 ] RowBox[{"36", ",", "7"}], "]"}], ",", 1 o/ S1 h7 I" k7 I, O3 B/ b# ^
RowBox[{"CM", "[",
, m( O2 |" @1 P' g! c RowBox[{"36", ",", "8"}], "]"}], ",",
9 g2 b) _. i' s) Z" { RowBox[{"CM", "[", / E. r7 d# J- }3 c1 X- D; d, r( w* G
RowBox[{"36", ",", "9"}], "]"}]}], "}"}], ",",
8 B' p& ]) ?- \4 c& ^+ Q! q# ? RowBox[{"{",
+ q: i' d. |( c. C: P RowBox[{1 Q6 D( {/ e7 E8 D
RowBox[{"CM", "[", , L. f$ M) M; v. B# b7 |* c1 X/ z
RowBox[{"37", ",", "1"}], "]"}], ",",
/ K3 c+ `3 K! w RowBox[{"CM", "[", 9 ?6 k# E& ^. @" U
RowBox[{"37", ",", "2"}], "]"}], ",", 5 {/ c" ]# p6 C: G0 _8 g
RowBox[{"CM", "[", 9 m+ Q+ \* ]) y! d/ s- ]; B
RowBox[{"37", ",", "3"}], "]"}], ",", ! }* T |& R+ m$ `% Z% ]" W' _" j
RowBox[{"CM", "[", & q8 P3 \( t1 I" r
RowBox[{"37", ",", "4"}], "]"}], ",",
+ c! w' i2 ?- P5 `4 k# N RowBox[{"CM", "[", 6 u* W0 m9 u0 D) D r
RowBox[{"37", ",", "5"}], "]"}], ",",
6 F3 ]( W5 n+ u- |; O8 X RowBox[{"CM", "[", 7 E/ R5 l$ V& N" r2 z9 y4 H7 H
RowBox[{"37", ",", "6"}], "]"}], ",", + B0 T+ |* f% c+ }8 `' N
RowBox[{"CM", "[",
' O" M% k$ R. U/ ~ RowBox[{"37", ",", "7"}], "]"}], ",", ! L1 J+ _& i! O1 j
RowBox[{"CM", "[",
0 Q+ }$ \# ^3 y4 E. M7 ~( O! g) C RowBox[{"37", ",", "8"}], "]"}], ",", ) \1 _% R, x7 ^0 v0 u
RowBox[{"CM", "[", / o' ]# v! B+ i. ^5 l% M/ A
RowBox[{"37", ",", "9"}], "]"}]}], "}"}], ",", . n8 N3 B: \( O3 y) `
RowBox[{"{", 6 X6 t* z/ t% s
RowBox[{
, i) k# U# G$ c- F2 p RowBox[{"CM", "[", 3 s$ A T0 G) T( T' A
RowBox[{"38", ",", "1"}], "]"}], ",", ( b+ \- X6 |5 o$ L6 z7 y" S- r
RowBox[{"CM", "[", ( a0 X3 ?/ M0 N. Z* h9 e1 ^
RowBox[{"38", ",", "2"}], "]"}], ",",
) A' t$ N' L, R# k. ^ RowBox[{"CM", "[", 6 y& Y( S7 e: ^
RowBox[{"38", ",", "3"}], "]"}], ",",
g) x4 S4 u" ?& c r: y3 { RowBox[{"CM", "[",
: [0 R+ P! O$ z. ^, Y RowBox[{"38", ",", "4"}], "]"}], ",", 7 K* I# P3 T$ H9 z( c8 w5 V
RowBox[{"CM", "[", 9 r5 ~# Q! R) r# Z, J5 B
RowBox[{"38", ",", "5"}], "]"}], ",", Y' W% h. S. A6 C& U' h
RowBox[{"CM", "[",
, A' Z6 Q% `& X2 l1 |$ R RowBox[{"38", ",", "6"}], "]"}], ",",
* W8 ]6 U8 ?: E( U* s RowBox[{"CM", "[", " d! M% K5 _( Y* `/ v
RowBox[{"38", ",", "7"}], "]"}], ",", % C, ^0 U3 c2 c: E2 w2 l g
RowBox[{"CM", "[",
7 }* b0 Y! `) K2 x RowBox[{"38", ",", "8"}], "]"}], ",",
9 l& Z( z8 D$ K8 v2 R RowBox[{"CM", "[", 3 @( d5 D6 y/ i$ y$ u( L
RowBox[{"38", ",", "9"}], "]"}]}], "}"}], ",", ; |7 @. U/ U* c) I
RowBox[{"{",
& s y, S1 C# f3 H1 H% P0 R RowBox[{9 L; H" e" k! c0 H
RowBox[{"CM", "[",
8 i" L% i' ^/ n7 C% o3 c3 U RowBox[{"39", ",", "1"}], "]"}], ",", % V; ^+ c" B E6 B
RowBox[{"CM", "[",
* I. x. g5 L) z3 O RowBox[{"39", ",", "2"}], "]"}], ",", 5 Z6 y6 N9 `$ y5 m/ Z
RowBox[{"CM", "[",
0 Y- g5 W$ ^+ c RowBox[{"39", ",", "3"}], "]"}], ",",
+ _* Z: @) [* r0 Z. G6 H( C RowBox[{"CM", "[", ) M7 D7 E f& Y3 m, W! J1 a
RowBox[{"39", ",", "4"}], "]"}], ",", / W% p; y8 l, C) ^2 V, J' F
RowBox[{"CM", "[", " u7 h8 y" E: x' O6 K' D0 ~# n
RowBox[{"39", ",", "5"}], "]"}], ",",
1 S, r7 X; E9 c RowBox[{"CM", "[",
9 N2 i$ a2 I, l- v RowBox[{"39", ",", "6"}], "]"}], ",", , M: [! C% w6 e/ ^1 o% a
RowBox[{"CM", "[", 1 }6 f, \ ^' v! J+ a& d
RowBox[{"39", ",", "7"}], "]"}], ",", 3 O( r' A8 I" T
RowBox[{"CM", "[", 3 v7 k( f* n# _0 k9 |' C
RowBox[{"39", ",", "8"}], "]"}], ",", 8 Y* x- a# E( A" v# Y! |, `$ O: ?
RowBox[{"CM", "[", / V! x; y; I1 q
RowBox[{"39", ",", "9"}], "]"}]}], "}"}], ",",
) Y. r% M1 v$ [0 ] RowBox[{"{", * n+ c$ p2 ~) f( {+ V5 s( _% U+ ?) f
RowBox[{
" J- u3 R: X" F w' H4 p2 Y# |- w RowBox[{"CM", "[", . ?$ x$ P/ A* ?# T
RowBox[{"40", ",", "1"}], "]"}], ",", / `+ W( D! d% S. V% {
RowBox[{"CM", "[",
0 E. D Q6 g# Z! j1 r RowBox[{"40", ",", "2"}], "]"}], ",",
* N# k9 N$ D* H5 o( I1 U3 Q RowBox[{"CM", "[", + a# b7 H% W; r- |- e
RowBox[{"40", ",", "3"}], "]"}], ",", ; j5 s7 Z9 T/ K" L% u: |2 ^
RowBox[{"CM", "[", R- b8 E/ b3 F% f r
RowBox[{"40", ",", "4"}], "]"}], ",",
5 n7 D+ E& H9 n RowBox[{"CM", "[", # _' `3 p" T, T# ^7 S Y
RowBox[{"40", ",", "5"}], "]"}], ",", 5 G) h) c' i+ J- U- B, Z" M' K
RowBox[{"CM", "[", 8 J, B& [" I0 s6 f
RowBox[{"40", ",", "6"}], "]"}], ",", 1 R, t9 j p5 V0 H p2 K& \% l
RowBox[{"CM", "[", 0 y, C& m) E4 g9 ? ?
RowBox[{"40", ",", "7"}], "]"}], ",", 1 N9 C' g" \& C; Z8 k) I
RowBox[{"CM", "[",
e- i" D/ t' P k: Z6 q2 q+ N RowBox[{"40", ",", "8"}], "]"}], ",", ' t: S2 H; S2 b, |; _% ?
RowBox[{"CM", "[",
" E4 ~9 a, M: x/ P; q+ e RowBox[{"40", ",", "9"}], "]"}]}], "}"}], ",",
' r. y4 ]6 |* z0 r l9 _ RowBox[{"{", 8 n) J" h* O, @% J' H
RowBox[{+ u; Z3 `; O/ g, m4 ~/ P8 A
RowBox[{"CM", "[",
5 x! A. z' b$ v0 T6 J* U2 k* a RowBox[{"41", ",", "1"}], "]"}], ",",
. S( R: W) }' s( T8 n3 T: d RowBox[{"CM", "[", & f0 g) h# j. h8 J b0 u
RowBox[{"41", ",", "2"}], "]"}], ",", # x& z4 f- d; e# i! W! M
RowBox[{"CM", "[", 6 X: T# O6 ]& Y( o
RowBox[{"41", ",", "3"}], "]"}], ",", ; P4 D7 q! _# S Q
RowBox[{"CM", "[", : `- R% h; k/ A
RowBox[{"41", ",", "4"}], "]"}], ",",
0 B4 Z1 O& k1 e. m% m7 w9 h RowBox[{"CM", "[", 2 ~) G0 r5 l5 F0 J2 [% g" K
RowBox[{"41", ",", "5"}], "]"}], ",",
3 N5 l' I8 l2 f% y. V/ U RowBox[{"CM", "[",
$ \/ E% [. v0 y: M9 a: Q: P RowBox[{"41", ",", "6"}], "]"}], ",",
# [9 w& A5 Y3 f" p RowBox[{"CM", "[", : X, J: n! e8 Z$ V
RowBox[{"41", ",", "7"}], "]"}], ",",
( b+ L& Z: j- a$ E: [ RowBox[{"CM", "[",
5 D* O' w. ^% i( }1 t3 K8 I1 X9 h: |% P RowBox[{"41", ",", "8"}], "]"}], ",",
! J* L" P9 ^' c( N: i RowBox[{"CM", "[", + z/ i' W0 S. L" u! ]1 y2 q4 U
RowBox[{"41", ",", "9"}], "]"}]}], "}"}], ",",
: O }; _/ o0 S- R g RowBox[{"{", 2 q5 V$ D6 @) @! n: j, v5 r
RowBox[{
( g! c5 u j3 V8 I9 l3 [ RowBox[{"CM", "[",
3 ~/ K0 r: q6 }. G+ Q& n2 k RowBox[{"42", ",", "1"}], "]"}], ",", , u9 H: P) O! I8 J" p6 Q! }/ W& o
RowBox[{"CM", "[", 2 {% G) F" e1 s0 f, [5 c" n
RowBox[{"42", ",", "2"}], "]"}], ",",
: K5 k- i' z7 _7 l6 m5 h RowBox[{"CM", "[",
5 h _" T3 P) [: o RowBox[{"42", ",", "3"}], "]"}], ",",
9 S5 d5 A/ d" K3 h' W/ E RowBox[{"CM", "[", + `$ ]. k6 \# x6 I
RowBox[{"42", ",", "4"}], "]"}], ",",
. I- [+ J; D7 j( n6 q6 C RowBox[{"CM", "[", ) Y+ R- I! m. s1 g
RowBox[{"42", ",", "5"}], "]"}], ",",
# j0 J% a6 D; X8 w RowBox[{"CM", "[", ' x! H1 q8 ^7 `, a5 x0 u- E
RowBox[{"42", ",", "6"}], "]"}], ",",
# v1 D- b4 H9 R3 t RowBox[{"CM", "[", / I8 _0 |+ f, s0 @4 Z9 f. f
RowBox[{"42", ",", "7"}], "]"}], ",",
: @2 W( @- u: ~1 j! i/ z- U8 ] RowBox[{"CM", "[", " M4 ?. y3 L: c, v/ n# D
RowBox[{"42", ",", "8"}], "]"}], ",",
% B. U8 D" n/ q* S/ U RowBox[{"CM", "[", * N! h+ t$ }- ?" |* e) } k
RowBox[{"42", ",", "9"}], "]"}]}], "}"}], ",", / L6 B; D( j/ d/ G' I- a B
RowBox[{"{",
?' J' n# j; f' i4 j: ]/ _ RowBox[{0 S5 L& f5 K8 g! d' s- L& N; ]
RowBox[{"CM", "[",
* n' Y6 d# U$ k g& ]/ J RowBox[{"43", ",", "1"}], "]"}], ",",
7 ~3 B- K6 N/ \6 r- ^5 D RowBox[{"CM", "[",
7 w5 V! l2 m4 l9 F& j6 W1 T; V RowBox[{"43", ",", "2"}], "]"}], ",",
, A9 F! }% l" V) O3 u# D RowBox[{"CM", "[",
/ o, H+ b: j9 A# k7 K8 t2 e4 U RowBox[{"43", ",", "3"}], "]"}], ",",
! u6 ?2 _1 s8 W7 @ RowBox[{"CM", "[", , x. l# b( d" X8 J) @5 w: h% @
RowBox[{"43", ",", "4"}], "]"}], ",", " ^( a8 U, q% R+ L; f) E
RowBox[{"CM", "[",
2 Y' p8 N0 s5 H$ J3 l RowBox[{"43", ",", "5"}], "]"}], ",",
7 V) f5 W$ k$ L RowBox[{"CM", "[", : N1 P4 @/ m- T% ]* Y; z! i( i8 ~
RowBox[{"43", ",", "6"}], "]"}], ",",
c8 K4 X6 D- n- |& N, H# w RowBox[{"CM", "[", ! U1 T& R) x6 Q2 c* [# W. U5 N
RowBox[{"43", ",", "7"}], "]"}], ",",
+ i* x) \, `' }0 _) ^+ s RowBox[{"CM", "[",
5 T2 @+ z% o6 Y7 E RowBox[{"43", ",", "8"}], "]"}], ",",
i3 v/ X8 k# G/ F; b( L RowBox[{"CM", "[",
* y& v7 J# A& v: Z RowBox[{"43", ",", "9"}], "]"}]}], "}"}], ",", . N( i5 p2 j( N/ ~$ a
RowBox[{"{", * b F0 V! Y' L3 `
RowBox[{; x( _- ^- d) i" g- k
RowBox[{"CM", "[", & I8 M& F2 b! E: ] E
RowBox[{"44", ",", "1"}], "]"}], ",",
% N+ _5 k8 w& \" _- c RowBox[{"CM", "[",
2 o' N* C5 f1 d4 m6 e$ | RowBox[{"44", ",", "2"}], "]"}], ",", : u6 M: {6 ?' \* h8 j
RowBox[{"CM", "[",
1 y) A3 I B7 U# Y/ W9 z RowBox[{"44", ",", "3"}], "]"}], ",",
3 W0 X9 \ Q$ ] RowBox[{"CM", "[", 0 {" O, F) Y. P5 J4 M4 R3 w5 P# w+ b
RowBox[{"44", ",", "4"}], "]"}], ",", , t5 ~0 X1 j" @" g& v
RowBox[{"CM", "[",
* B, u, R' m) Z RowBox[{"44", ",", "5"}], "]"}], ",",
- @" k) l' |+ | RowBox[{"CM", "[",
" t0 n7 \( }' G1 T' E RowBox[{"44", ",", "6"}], "]"}], ",",
( f4 J9 h, H( [+ b: B% X+ X2 |) l RowBox[{"CM", "[",
) W) X5 ~( U, O) ?! v$ @" g% u RowBox[{"44", ",", "7"}], "]"}], ",",
, ^" i4 D) Z' m Q RowBox[{"CM", "[", ) Q E8 p# i: \0 @
RowBox[{"44", ",", "8"}], "]"}], ",",
3 j3 l. K( D9 U" ]: J RowBox[{"CM", "[", 3 @- ^2 r( f' r0 K* z/ f, l
RowBox[{"44", ",", "9"}], "]"}]}], "}"}], ",", " k4 Z# j& E4 I
RowBox[{"{", F) K( l- [( L; R" t4 Q
RowBox[{
+ L7 h+ S! q o2 d5 @ C u RowBox[{"CM", "[",
$ I- o& ~/ ~ z+ Q' u4 ^$ v* w; d RowBox[{"45", ",", "1"}], "]"}], ",",
* W/ L, [! ], A- Y RowBox[{"CM", "[", # X5 s0 \# F9 p/ t
RowBox[{"45", ",", "2"}], "]"}], ",",
. R2 P; ?8 M0 @ RowBox[{"CM", "[",
) w3 L! b8 k2 p! w N( X RowBox[{"45", ",", "3"}], "]"}], ",", ( G5 F8 z6 \& T- D1 w, ]
RowBox[{"CM", "[", - ]! v8 B( Y6 ?) L1 \
RowBox[{"45", ",", "4"}], "]"}], ",",
- @) y! P3 Q* J& r" G9 t' a RowBox[{"CM", "[",
& K1 h8 i0 R- V3 w" J, Z; f- }! y7 J1 Y& s RowBox[{"45", ",", "5"}], "]"}], ",",
' s' d! E; T* v RowBox[{"CM", "[", & U# h: u0 O0 |! J( w
RowBox[{"45", ",", "6"}], "]"}], ",", # M5 M6 C% \. c) `
RowBox[{"CM", "[",
j+ f9 C9 e8 C, C$ @ RowBox[{"45", ",", "7"}], "]"}], ",",
; i/ f; D& t5 g4 \% {3 c RowBox[{"CM", "[",
% t, C' [% G8 `4 o5 [2 }0 H RowBox[{"45", ",", "8"}], "]"}], ",",
2 y% C! Z& G) p2 _- e% j' L: ` RowBox[{"CM", "[",
8 x8 o' |9 N' a4 C+ ^& N% v& I RowBox[{"45", ",", "9"}], "]"}]}], "}"}], ",",
5 l- e& T0 r6 F" H* a( `% _ RowBox[{"{", 0 I/ _. Q R( F% {
RowBox[{& @1 q3 j8 H5 T
RowBox[{"CM", "[", $ N6 m9 K5 {$ z: {. T6 W
RowBox[{"46", ",", "1"}], "]"}], ",",
- r o" b% k+ L! B RowBox[{"CM", "[",
- f; E' [2 |- Z+ ~ RowBox[{"46", ",", "2"}], "]"}], ",",
& c% d( |4 `! ?* e' X: b4 c9 j RowBox[{"CM", "[",
5 z4 D& d" X. }7 J/ [ RowBox[{"46", ",", "3"}], "]"}], ",",
# j, ]& z- D' _3 l" |/ v# A RowBox[{"CM", "[",
: u# B: ]3 |) P2 \ RowBox[{"46", ",", "4"}], "]"}], ",", m0 O5 s4 E) R- [+ `! G5 V
RowBox[{"CM", "[",
, Z6 |3 H D" Q6 x$ @ RowBox[{"46", ",", "5"}], "]"}], ",", & D! t* b9 w# b ~
RowBox[{"CM", "[", v q) \5 U. X8 T0 `7 i. `$ h+ g/ D
RowBox[{"46", ",", "6"}], "]"}], ",", ! H+ D# f: V0 a, S
RowBox[{"CM", "[", 4 Z N. T. |6 J2 s" B# v
RowBox[{"46", ",", "7"}], "]"}], ",",
4 D Z8 Z& Y0 O5 y- g; G, U RowBox[{"CM", "[",
+ }* ]# c" s i3 e* g RowBox[{"46", ",", "8"}], "]"}], ",",
, c1 ~4 K1 `- z& p! [! P" S6 F RowBox[{"CM", "[",
- R' @5 U) v( G! u! @- E: `- v RowBox[{"46", ",", "9"}], "]"}]}], "}"}], ",",
{8 Z* ?/ m" r5 k, ? RowBox[{"{", - V. e6 X% S0 i: C; ]$ Q
RowBox[{+ d3 w; f7 y) h$ ?0 b: `& t
RowBox[{"CM", "[", 6 P/ |% N8 E* m# Q& Y
RowBox[{"47", ",", "1"}], "]"}], ",",
1 g0 V& V3 M, Q3 K; H RowBox[{"CM", "[", ' G, J }& }' d" H
RowBox[{"47", ",", "2"}], "]"}], ",",
: ~* Z# @! J0 Z% s5 t RowBox[{"CM", "[", ( D8 A+ T, @3 W- j# U
RowBox[{"47", ",", "3"}], "]"}], ",", % C( V7 t5 e0 L6 s5 k
RowBox[{"CM", "[", 3 U8 I( {4 Z' {( R, `3 X
RowBox[{"47", ",", "4"}], "]"}], ",",
+ v/ d8 N1 A8 T" g3 u RowBox[{"CM", "[", * t0 v7 l) L5 Y. }. R* @- p
RowBox[{"47", ",", "5"}], "]"}], ",",
m3 k# @% p: u+ j/ i+ I5 N RowBox[{"CM", "[", ! O+ E- A6 ~! L" |* A
RowBox[{"47", ",", "6"}], "]"}], ",", ! f) t2 _/ _* B# |) X5 b5 W" l! _
RowBox[{"CM", "[",
8 F. t. P: V0 h RowBox[{"47", ",", "7"}], "]"}], ",",
0 w: h" ?' w+ o& z! Q3 H2 e# }4 ]1 p RowBox[{"CM", "[", 9 u! W* P k2 n8 K
RowBox[{"47", ",", "8"}], "]"}], ",",
( N6 }+ }0 A2 ]) Z& F RowBox[{"CM", "[", ! U' _( @1 w( m) q4 W$ ^
RowBox[{"47", ",", "9"}], "]"}]}], "}"}], ",",
2 j; `" v& U! n2 ]- S RowBox[{"{",
2 @; `2 W* ~1 z4 ~" R O0 Q. | RowBox[{
/ {' \+ [; s9 Q* o7 X RowBox[{"CM", "[",
4 Y) K* `! L# w: l RowBox[{"48", ",", "1"}], "]"}], ",", 0 v/ f2 g; Q; v% R) O& x4 ^
RowBox[{"CM", "[",
6 B8 Q" {; c8 h+ B' ?" z% A* ~ RowBox[{"48", ",", "2"}], "]"}], ",", 8 [$ N/ [! Z5 v" u3 \8 T
RowBox[{"CM", "[",
1 O* F. W5 e; ]8 P2 G& o" J RowBox[{"48", ",", "3"}], "]"}], ",", ! j2 \$ D- U, C3 K# Z2 [
RowBox[{"CM", "[", . x( g) ?. O3 v; N1 V
RowBox[{"48", ",", "4"}], "]"}], ",",
C, T/ K3 C% r* G2 T/ d: V0 k6 h RowBox[{"CM", "[",
9 A% ?: R) y( Y/ { RowBox[{"48", ",", "5"}], "]"}], ",", ! v# o! C* `3 P, `+ q
RowBox[{"CM", "[", / ~9 T8 i3 l0 I$ i, h K7 l
RowBox[{"48", ",", "6"}], "]"}], ",", ! D2 x- `* ~$ N4 U, J8 s9 ]
RowBox[{"CM", "[",
. K# K4 V/ z+ q' R RowBox[{"48", ",", "7"}], "]"}], ",",
y/ l! J( s6 s0 Q4 x) N RowBox[{"CM", "[", 5 i; s7 C4 @' R9 ^' l4 N
RowBox[{"48", ",", "8"}], "]"}], ",", ) h+ O: l9 m( |" t
RowBox[{"CM", "[",
+ g1 D/ R0 y; E8 n RowBox[{"48", ",", "9"}], "]"}]}], "}"}], ",",
8 [$ n' }/ z2 ? RowBox[{"{", & G5 y+ Y$ P! _& C V1 V
RowBox[{4 o4 C% _4 M- K9 P3 B3 b8 B1 L
RowBox[{"CM", "[",
/ Y9 w' V E$ L. l% l RowBox[{"49", ",", "1"}], "]"}], ",", % m1 |! C; H) K" @4 ~
RowBox[{"CM", "[",
6 z9 D3 ^3 E( l+ c3 O' t RowBox[{"49", ",", "2"}], "]"}], ",", ; ^% w$ ~+ K" V' _: }/ F
RowBox[{"CM", "[", + z6 f f+ G: s- }& L& t1 V3 E" A5 n; R4 O9 h
RowBox[{"49", ",", "3"}], "]"}], ",",
. ~" ]$ O2 V1 b5 B, a4 W" s RowBox[{"CM", "[", 0 a( N# [% v% \. t, m ?
RowBox[{"49", ",", "4"}], "]"}], ",",
/ h: q$ a5 ]# Z7 G RowBox[{"CM", "[",
, ~ u( o3 ^7 P RowBox[{"49", ",", "5"}], "]"}], ",", - b& t7 }; Q5 C+ Z' a
RowBox[{"CM", "[",
3 g5 ?# N7 D! N t RowBox[{"49", ",", "6"}], "]"}], ",",
, V* v0 E, x$ b, Y& H RowBox[{"CM", "[", 6 v" u1 X# C: u; @
RowBox[{"49", ",", "7"}], "]"}], ",", ) ~* O- n' F) F8 e4 z
RowBox[{"CM", "[",
4 H- H" K# l/ J6 M RowBox[{"49", ",", "8"}], "]"}], ",", % ^ u& V' J7 }8 Q
RowBox[{"CM", "[",
2 _% g- u& R6 w, `4 ^- [3 o/ G4 a# D RowBox[{"49", ",", "9"}], "]"}]}], "}"}], ",",
7 B' X6 B# t* C3 z% T: i RowBox[{"{", 5 u& m7 ], b: ]1 G Q4 e; K, a
RowBox[{
/ |. k& o6 b# I$ }* ~ RowBox[{"CM", "[",
1 F8 U7 G8 e4 A7 }! S! M RowBox[{"50", ",", "1"}], "]"}], ",", ) t) M- Q; o- t- b- L
RowBox[{"CM", "[", . l3 @' Y5 ?# p$ ^( ~- B
RowBox[{"50", ",", "2"}], "]"}], ",",
, P9 o2 S; ]$ P7 Z; p7 A/ ^ RowBox[{"CM", "[", 9 ?- B7 b1 S# Q* t
RowBox[{"50", ",", "3"}], "]"}], ",",
- m2 c3 n- j; P. Z- V) C6 p0 B RowBox[{"CM", "[", 2 z, U. ~/ i* h- }! p Q$ I6 _
RowBox[{"50", ",", "4"}], "]"}], ",", % C6 ?& @7 ?9 Z. o
RowBox[{"CM", "[",
. ?) _1 M9 `1 v: ?. \- o RowBox[{"50", ",", "5"}], "]"}], ",",
' ]4 {1 H* C3 A RowBox[{"CM", "[",
( J5 ~ W: ~2 f7 p4 z1 P RowBox[{"50", ",", "6"}], "]"}], ",",
! g& B! u) e! u& K' H2 ~ RowBox[{"CM", "[",
y/ @5 U I. K* x+ r' C" X RowBox[{"50", ",", "7"}], "]"}], ",", 1 k/ K* H, \5 @+ q) z. c( Z
RowBox[{"CM", "[", 0 d/ |6 z- i5 P" |
RowBox[{"50", ",", "8"}], "]"}], ",",
3 A2 u7 [" Y! ]8 U- G# v; ] RowBox[{"CM", "[", 3 R4 u4 V8 q7 ], r
RowBox[{"50", ",", "9"}], "]"}]}], "}"}], ",",
. Z& q) a% S7 U2 i( Y6 I: j; U RowBox[{"{", ( i' C& c! g7 |; p/ z- Q
RowBox[{1 }* W! G: U0 R: H o
RowBox[{"CM", "[", 6 K& V% R: l! _, r5 C- K& h' {
RowBox[{"51", ",", "1"}], "]"}], ",",
3 o1 l7 n3 a* ~/ \& s RowBox[{"CM", "[", ! g5 W+ x, g4 K3 A1 `; z
RowBox[{"51", ",", "2"}], "]"}], ",", + `4 m6 y) [; H. @( i
RowBox[{"CM", "[",
W) ~0 n% {$ D, V) z7 m K RowBox[{"51", ",", "3"}], "]"}], ",",
* d3 A' f @2 I5 L" I' z$ A RowBox[{"CM", "[", 3 Y o1 I, ^# z) V) n
RowBox[{"51", ",", "4"}], "]"}], ",",
4 c# m( F$ ?/ B" t1 L, Y+ @# ^ RowBox[{"CM", "[", 6 {( @0 @" }/ r u. p$ \% n9 S
RowBox[{"51", ",", "5"}], "]"}], ",", " K1 d P# V6 F4 y
RowBox[{"CM", "[",
# u [9 G, U; n( ] RowBox[{"51", ",", "6"}], "]"}], ",", 5 h. o6 i8 U& {
RowBox[{"CM", "[",
2 d$ P. Y; _! d/ t! ? RowBox[{"51", ",", "7"}], "]"}], ",", ) R0 m$ j. L5 [: O
RowBox[{"CM", "[",
}, j3 n7 H( O* C m+ x RowBox[{"51", ",", "8"}], "]"}], ",", & e& K0 ~4 k$ N2 I8 E
RowBox[{"CM", "[", ! H' w' B. n; p: _8 f' B9 a! H
RowBox[{"51", ",", "9"}], "]"}]}], "}"}], ",", 0 ]$ A. h7 [/ B
RowBox[{"{", , B$ W3 J% h+ s5 W& T
RowBox[{
& M$ a9 D# K! b& M, G4 F RowBox[{"CM", "[",
! B- {+ D0 Q y" b- ` Z, z RowBox[{"52", ",", "1"}], "]"}], ",",
0 m y3 y! k+ n! ~, V RowBox[{"CM", "[",
4 h. }8 [$ {4 ]0 y3 g RowBox[{"52", ",", "2"}], "]"}], ",",
( k; h2 D U, N; z RowBox[{"CM", "[",
+ f) g; O1 s/ ? RowBox[{"52", ",", "3"}], "]"}], ",",
8 c$ K5 e3 k1 ^5 y. O3 x) \8 i RowBox[{"CM", "[",
5 Y* I; K1 q! o- P$ p RowBox[{"52", ",", "4"}], "]"}], ",", " y6 u$ }9 I Y% e& u l) r6 g
RowBox[{"CM", "[",
! e N2 m0 W! B0 d( p: e2 H! d/ u RowBox[{"52", ",", "5"}], "]"}], ",", + u3 {1 d4 ]/ d. i$ b
RowBox[{"CM", "[", . _- U/ l# h% M/ x8 I
RowBox[{"52", ",", "6"}], "]"}], ",", 9 g5 d% c6 i; Z/ e2 t6 B: a
RowBox[{"CM", "[",
3 ]! ~! Y/ J' z RowBox[{"52", ",", "7"}], "]"}], ",", 6 d( }8 m. c6 W. u- j; B0 Q9 H
RowBox[{"CM", "[", . E1 t. ?6 R, o+ S
RowBox[{"52", ",", "8"}], "]"}], ",",
, j3 c! y5 ]+ W- D' k RowBox[{"CM", "[",
" S+ p& ^3 H- p1 T1 S/ }9 T4 A RowBox[{"52", ",", "9"}], "]"}]}], "}"}], ",",
5 z2 p$ ^% l: _ RowBox[{"{", - i+ p1 |" D/ s3 _ i
RowBox[{6 M: V& E: E; k% U& I. M0 e
RowBox[{"CM", "[",
7 v* i3 l/ A6 y- T RowBox[{"53", ",", "1"}], "]"}], ",",
! Q6 d- M2 {# B. a! D/ P4 d b RowBox[{"CM", "[",
9 s; E, G0 H& W: I; J& ^ RowBox[{"53", ",", "2"}], "]"}], ",",
- {- @/ k- |3 K9 i5 b# R RowBox[{"CM", "[",
! [# [+ Z! X% \, | RowBox[{"53", ",", "3"}], "]"}], ",", . r/ `7 j% f3 I* R
RowBox[{"CM", "[",
1 {# c* t# a% C/ ]" R# h RowBox[{"53", ",", "4"}], "]"}], ",",
1 R" g! J' X) Q. B RowBox[{"CM", "[",
5 U% ?8 x6 v& G6 A' d6 } RowBox[{"53", ",", "5"}], "]"}], ",", + L) W* I, v$ E
RowBox[{"CM", "[",
9 J7 \* @9 |) W4 \ RowBox[{"53", ",", "6"}], "]"}], ",", 8 P0 z1 ?, @# Y; f* L# W6 n
RowBox[{"CM", "[",
$ b$ I+ [% |* ~5 M4 e" T) ` RowBox[{"53", ",", "7"}], "]"}], ",",
8 T# |0 p5 B0 A5 V; { RowBox[{"CM", "[",
) C" x+ b( p, {6 w RowBox[{"53", ",", "8"}], "]"}], ",",
' D2 u6 o) `1 k RowBox[{"CM", "[",
2 B& F8 B6 y0 O* t0 r RowBox[{"53", ",", "9"}], "]"}]}], "}"}], ",",
! k0 o2 ?0 j; K5 N RowBox[{"{",
, s3 j% |% s1 L+ a6 U6 P# b RowBox[{
2 L3 q( v# ^ V' W: L! V$ I& S$ x RowBox[{"CM", "[", 3 t$ b2 R2 w5 I7 x8 u: x+ P
RowBox[{"54", ",", "1"}], "]"}], ",", 5 C9 `" E4 j7 f3 w- x; T3 F P8 T
RowBox[{"CM", "[", 0 ~: S6 D2 Y% A7 j/ V
RowBox[{"54", ",", "2"}], "]"}], ",",
! ~& w z" q' F0 a6 s0 S RowBox[{"CM", "[",
a; E# F% s' V RowBox[{"54", ",", "3"}], "]"}], ",", / \4 J4 e% w+ A8 D7 H5 R
RowBox[{"CM", "[", 4 X0 h0 S" T( U: [6 e
RowBox[{"54", ",", "4"}], "]"}], ",", 7 |* o$ M9 z- L& [/ G* a' G M
RowBox[{"CM", "[",
% e+ N I) G, z' s! v9 O. T RowBox[{"54", ",", "5"}], "]"}], ",", 5 Q, i# t2 x( V( W+ Q8 y
RowBox[{"CM", "[", # y5 h0 c$ S# O
RowBox[{"54", ",", "6"}], "]"}], ",", 7 J0 t/ v' r% v: e
RowBox[{"CM", "[", J X! v+ C/ d! C% [2 q5 f, I }
RowBox[{"54", ",", "7"}], "]"}], ",",
8 D- O0 ~, D3 D, z2 w% N- L* K RowBox[{"CM", "[",
4 x/ G; q/ Q( [$ n }! @" t; K RowBox[{"54", ",", "8"}], "]"}], ",", 6 n( ?& c @4 L/ m& {! b
RowBox[{"CM", "[",
. F" s9 \0 q! `4 f! L RowBox[{"54", ",", "9"}], "]"}]}], "}"}], ",", 6 g) w% Z& c1 Q; r8 X' F
RowBox[{"{",
) Q/ e; W+ W% Q# e* j: @ RowBox[{ T2 c7 k+ I5 u
RowBox[{"CM", "[",
8 T1 a/ e6 q; f3 b! h7 ?! q( c: |1 n RowBox[{"55", ",", "1"}], "]"}], ",",
- S- ^) [, a# i6 U5 I0 [8 G RowBox[{"CM", "[", 5 U2 S; @0 u: i" n5 I0 r
RowBox[{"55", ",", "2"}], "]"}], ",",
q7 }$ f0 H) v) O* _- ?! l: | RowBox[{"CM", "[",
+ T5 v6 l1 T# q; g RowBox[{"55", ",", "3"}], "]"}], ",", 5 Q& {+ b+ a2 o. t/ i" r
RowBox[{"CM", "[",
' T b9 o" Y; [7 X! M RowBox[{"55", ",", "4"}], "]"}], ",",
' c' H& f& Q9 f RowBox[{"CM", "[", 5 E% M3 @! o' D3 `% {% s9 s
RowBox[{"55", ",", "5"}], "]"}], ",",
& \) j& W# V- ^0 n9 Q RowBox[{"CM", "[",
/ t) K. W! n+ X1 M7 G; P- _& r RowBox[{"55", ",", "6"}], "]"}], ",", ) e' m" R6 j/ o1 ]
RowBox[{"CM", "[", : n7 _" l' n a# l% m {* i% W# T
RowBox[{"55", ",", "7"}], "]"}], ",",
+ r2 s- d8 O2 p* y RowBox[{"CM", "[",
j4 k$ U5 b0 [ RowBox[{"55", ",", "8"}], "]"}], ",", ; _/ m) Y' `8 Z3 O
RowBox[{"CM", "[", : X2 G2 t2 o+ i- t! @: k* F- L5 v# ^ r
RowBox[{"55", ",", "9"}], "]"}]}], "}"}], ",", : p% L1 T3 @, ~1 R$ K) r
RowBox[{"{", ) t7 B7 w, U, F2 U% E& x& e% x
RowBox[{* R4 U% i( ?- \1 O+ o* A2 _
RowBox[{"CM", "[",
2 |6 J" o5 f( |1 @# e3 r" E RowBox[{"56", ",", "1"}], "]"}], ",",
* Z# `* s+ v% H# R4 y7 h5 N RowBox[{"CM", "[", i& G6 H- Z; a1 C& G9 h
RowBox[{"56", ",", "2"}], "]"}], ",", 8 \2 m8 ]; a1 S3 ^
RowBox[{"CM", "[",
: `% f) m+ B' b& |2 w. r' i RowBox[{"56", ",", "3"}], "]"}], ",", ; I8 a& l1 z/ F9 s! Y% q
RowBox[{"CM", "[",
# q5 o* L; T* Z+ ^' g! m( } RowBox[{"56", ",", "4"}], "]"}], ",",
, R; P m: M. y: |# w; ] RowBox[{"CM", "[", 7 a- E$ A. X1 H! u6 K, y
RowBox[{"56", ",", "5"}], "]"}], ",", b0 w+ F; [( v. |# w% L
RowBox[{"CM", "[", 9 S) ~& j9 z1 q/ s4 z2 L% j8 `$ B
RowBox[{"56", ",", "6"}], "]"}], ",", 4 q4 ?2 L! y& v1 R
RowBox[{"CM", "[", 7 ]$ q' m4 M; Y* j
RowBox[{"56", ",", "7"}], "]"}], ",", + w7 p1 a8 w# g- [: s
RowBox[{"CM", "[", / D D: Q. O; }" |1 K
RowBox[{"56", ",", "8"}], "]"}], ",",
; p0 g* H( I' ` RowBox[{"CM", "[",
$ ?& f0 u& N2 l* X3 k+ T2 | RowBox[{"56", ",", "9"}], "]"}]}], "}"}], ",", ; D! w J1 n Z( ^
RowBox[{"{",
; e7 l8 q" y1 D- p$ P& D RowBox[{
+ K; H$ y, [" u0 X1 U: q RowBox[{"CM", "[", 5 G9 j7 s, { ]' F" j+ @
RowBox[{"57", ",", "1"}], "]"}], ",", 5 t; }$ v A5 ~
RowBox[{"CM", "[", ( `$ x. ~/ ~" d) H8 h. r7 b
RowBox[{"57", ",", "2"}], "]"}], ",",
' ^9 U9 _: Q F$ J* t4 x RowBox[{"CM", "[", 9 s: d' Y- M" ?0 j/ b
RowBox[{"57", ",", "3"}], "]"}], ",",
1 B% N7 N! W3 h- ^" R RowBox[{"CM", "[",
8 k0 u0 T" ]8 F/ D: x; b RowBox[{"57", ",", "4"}], "]"}], ",", " N$ y. g3 i2 H2 B \. b' y: U
RowBox[{"CM", "[",
2 H- U7 P' Q$ x5 q9 E/ u) y RowBox[{"57", ",", "5"}], "]"}], ",",
7 i* L! _& s( `* A6 h+ K RowBox[{"CM", "[", ! S+ j' w! m) S4 q& j' P% x/ S: q" h
RowBox[{"57", ",", "6"}], "]"}], ",",
/ ^8 ]/ U+ {; v. m# _6 h5 n RowBox[{"CM", "[", 4 e- @1 e. a! ~; E# w @
RowBox[{"57", ",", "7"}], "]"}], ",",
7 V( }' o8 h' o RowBox[{"CM", "[", ( j# e, T: y: A
RowBox[{"57", ",", "8"}], "]"}], ",", : Z) f0 n7 M& M" ^/ `* R
RowBox[{"CM", "[",
% L) S! w5 M5 n RowBox[{"57", ",", "9"}], "]"}]}], "}"}], ",",
7 X8 i1 \7 [6 X( ^ RowBox[{"{", . o, a5 b! _. o7 l5 P* i0 J
RowBox[{: I9 S/ L/ o2 v. I. I/ |
RowBox[{"CM", "[", : ?, a: }5 p2 ~+ s' \' X" t$ q. K
RowBox[{"58", ",", "1"}], "]"}], ",", ; @2 P1 E4 v2 q) W, V
RowBox[{"CM", "[",
- f( h$ ~8 n0 s RowBox[{"58", ",", "2"}], "]"}], ",", 8 x! W' f" X0 h1 X* I( [: `
RowBox[{"CM", "[", z* p+ }, p1 W' y& Z% V* w
RowBox[{"58", ",", "3"}], "]"}], ",", ; B/ _' }, h5 e# h
RowBox[{"CM", "[",
; E# x7 m$ E. p RowBox[{"58", ",", "4"}], "]"}], ",",
* \9 }8 g( J3 R% g3 R2 ~4 `* ~8 @ RowBox[{"CM", "[", * m& V" E$ y5 f" _5 l) `& k" ?/ o# U
RowBox[{"58", ",", "5"}], "]"}], ",", 3 n7 h, v S, M! S0 {
RowBox[{"CM", "[",
, N; I& f+ w, ?2 l: |4 J RowBox[{"58", ",", "6"}], "]"}], ",", C. s5 T5 U& y: f
RowBox[{"CM", "[",
7 O$ I- [' o- O. b RowBox[{"58", ",", "7"}], "]"}], ",",
0 i1 M/ Q* ~+ l* w5 B RowBox[{"CM", "[",
: @* H1 j; f# v; V RowBox[{"58", ",", "8"}], "]"}], ",",
0 }( j* c4 u0 _! [ RowBox[{"CM", "[", 9 U9 Z+ M) A6 h! W4 K& o6 ~
RowBox[{"58", ",", "9"}], "]"}]}], "}"}], ",",
3 e% B8 o9 K; T, J% M6 `9 Q F RowBox[{"{",
+ q k2 K# i7 X; q$ v: _3 T RowBox[{
; K% n, w" S1 C c3 M \. P2 e RowBox[{"CM", "[",
1 u7 i, P! @$ W; z4 d RowBox[{"59", ",", "1"}], "]"}], ",", & ~+ \! j9 y0 N+ j) G: p
RowBox[{"CM", "[",
1 ^* ]( }8 T: _/ G( V1 t' u8 g RowBox[{"59", ",", "2"}], "]"}], ",", 2 { _/ ?* l+ \1 J! z
RowBox[{"CM", "[",
; g8 i5 U9 [7 l0 t# x3 p+ ?9 Q RowBox[{"59", ",", "3"}], "]"}], ",",
, Z) e% V4 G; d5 t( K8 ^0 M RowBox[{"CM", "[",
, I, A) i/ P: F. L$ x( c! ^ RowBox[{"59", ",", "4"}], "]"}], ",", + [1 y4 S* p/ E8 L
RowBox[{"CM", "[", 5 F2 Q4 z4 q( N8 \7 `) B
RowBox[{"59", ",", "5"}], "]"}], ",",
) _, n5 N$ p" B% y9 o, D RowBox[{"CM", "[",
* I6 v& m9 }; \) w% j RowBox[{"59", ",", "6"}], "]"}], ",", ]- B4 w1 |2 R1 \% s
RowBox[{"CM", "[",
$ T. n6 ]8 X# ~ RowBox[{"59", ",", "7"}], "]"}], ",", ' t2 [, O; I& X/ J( R) N
RowBox[{"CM", "[", + j5 |5 f. w! m& @
RowBox[{"59", ",", "8"}], "]"}], ",",
- a6 {2 ~1 u4 C, U9 U RowBox[{"CM", "[", 7 N) z' P/ H! c9 Y* _/ T
RowBox[{"59", ",", "9"}], "]"}]}], "}"}], ",",
! C7 p0 ~; r+ }2 ?% A9 W* C N RowBox[{"{",
: J( J1 S% ?0 C8 K1 I& L RowBox[{
/ a! d/ N4 M" x: p2 j! F RowBox[{"CM", "[", ; i, ~6 d$ j( ]: e: P
RowBox[{"60", ",", "1"}], "]"}], ",", , @5 a1 C: F4 p5 {
RowBox[{"CM", "[", + Q' {* F5 G2 j8 L& G2 y4 d3 O
RowBox[{"60", ",", "2"}], "]"}], ",",
3 e% F8 P, h' w' z RowBox[{"CM", "[", 7 W, E' F5 j+ ? X' |1 K, g6 X
RowBox[{"60", ",", "3"}], "]"}], ",", ; j: K& r5 t6 E. ?6 H( j
RowBox[{"CM", "[",
$ m7 _- \4 k' K W' } RowBox[{"60", ",", "4"}], "]"}], ",", + _2 }: j5 R6 J! f4 R1 T
RowBox[{"CM", "[", / [, g% R6 @5 a5 W- D6 I: G
RowBox[{"60", ",", "5"}], "]"}], ",", : d7 W1 S0 F, u' T6 A% u: C
RowBox[{"CM", "[", ! F1 L" ?$ p# x: U
RowBox[{"60", ",", "6"}], "]"}], ",", ( f7 J w2 s+ A% f# e4 u
RowBox[{"CM", "[", 3 V7 @( ?9 Z- @3 p
RowBox[{"60", ",", "7"}], "]"}], ",", 8 }6 g. s! {# L( C' @+ [- I
RowBox[{"CM", "[", 4 o$ N @9 J' u( `- Y
RowBox[{"60", ",", "8"}], "]"}], ",",
* s" K/ J' I5 o% `; H9 z/ A RowBox[{"CM", "[", " S [' y8 F3 c2 U
RowBox[{"60", ",", "9"}], "]"}]}], "}"}], ",",
3 h5 ^9 E7 I x0 L3 i$ _ RowBox[{"{",
! G4 q( L4 b) G* A RowBox[{) }1 b" }) Q1 P$ {# d5 E
RowBox[{"CM", "[",
2 j- e& d8 @) G/ c RowBox[{"61", ",", "1"}], "]"}], ",", 0 l; f# J+ g8 C# v& S" j# `
RowBox[{"CM", "[",
% @8 I4 y. B! y! @ RowBox[{"61", ",", "2"}], "]"}], ",", 8 c" D3 r% ?, J; Z5 M) y
RowBox[{"CM", "[", ( Q( `+ a; G) z* Z, D5 R2 [4 o, Q
RowBox[{"61", ",", "3"}], "]"}], ",",
* ^# R. ]6 q+ W; E& y RowBox[{"CM", "[",
- h4 r$ p d4 M _; v RowBox[{"61", ",", "4"}], "]"}], ",",
$ k3 [- w4 M/ Y7 c q RowBox[{"CM", "[",
2 k i; g: r: B% G; |" l RowBox[{"61", ",", "5"}], "]"}], ",", 4 t$ ^" j o- h! V
RowBox[{"CM", "[",
& Y" |+ S- Z& O( ~1 ] RowBox[{"61", ",", "6"}], "]"}], ",", - i$ |) i5 H. ]' N
RowBox[{"CM", "[", 0 V s6 |( R7 ]
RowBox[{"61", ",", "7"}], "]"}], ",",
9 S+ Y0 _ h9 E RowBox[{"CM", "[",
) o7 r: \4 S* |8 t4 } RowBox[{"61", ",", "8"}], "]"}], ",", 3 B# F: s! ^# p" D% ~/ l
RowBox[{"CM", "[",
- R! p+ l. I8 t$ d" R8 { RowBox[{"61", ",", "9"}], "]"}]}], "}"}], ",",
' a. C) W. r9 q; H7 c F3 @$ B# A RowBox[{"{",
( N8 }. H; n; O9 r B# s3 b) i RowBox[{ ]8 Y- B- `8 ?/ ?
RowBox[{"CM", "[",
% ]8 d8 P% f7 V RowBox[{"62", ",", "1"}], "]"}], ",", ; j8 q7 Y1 a6 o& t4 Z# Q" ?
RowBox[{"CM", "[", ) B4 d, y% I. P" r4 [7 J% s0 h5 Q5 e
RowBox[{"62", ",", "2"}], "]"}], ",", ; ?% b9 |) b' f( w2 z5 ~
RowBox[{"CM", "[", 5 W) Z( I* p! i8 n `' Y+ [
RowBox[{"62", ",", "3"}], "]"}], ",",
9 _: i6 R9 f% H8 q B8 M RowBox[{"CM", "[",
+ `9 b8 F" m0 }5 j RowBox[{"62", ",", "4"}], "]"}], ",",
6 D9 `) ]+ Z# I" c9 S( g: I RowBox[{"CM", "[", $ H2 L" m5 g- C, Z9 S+ }% A2 B
RowBox[{"62", ",", "5"}], "]"}], ",", 3 I6 l4 L! a1 E8 C+ P$ Y
RowBox[{"CM", "[",
; K$ I1 ?# e. W) G8 A" C8 b RowBox[{"62", ",", "6"}], "]"}], ",",
6 n9 I7 g7 m8 d$ g! ~ RowBox[{"CM", "[", ) u" y. O$ r% K; Q
RowBox[{"62", ",", "7"}], "]"}], ",", , z# N! l$ Y; T" W& Q% ~* E, O
RowBox[{"CM", "[",
/ k, ^- P" e5 o$ t- j- M RowBox[{"62", ",", "8"}], "]"}], ",", * q6 M2 G. h+ q; Y/ o9 {: ]9 f
RowBox[{"CM", "[",
_1 k& E/ s* u8 t" t RowBox[{"62", ",", "9"}], "]"}]}], "}"}], ",",
/ c) B% z \- b. ^! J5 l1 e RowBox[{"{", 7 e9 W: t2 U% [# m. c; u/ y, U
RowBox[{9 ] q: e" }3 I: L( S* W
RowBox[{"CM", "[",
/ N* W f8 m3 b/ i0 z/ n& b6 y RowBox[{"63", ",", "1"}], "]"}], ",", ; U/ W8 r3 z% y
RowBox[{"CM", "[", & @/ k' g" a# H) {
RowBox[{"63", ",", "2"}], "]"}], ",", 9 `% ?+ U+ f0 R
RowBox[{"CM", "[", 1 _8 ]. L* z' A n( d% i' p: O% c
RowBox[{"63", ",", "3"}], "]"}], ",",
$ b( k: y0 t t; g RowBox[{"CM", "[",
- b6 h* n" m6 p% L6 G. F' L& | RowBox[{"63", ",", "4"}], "]"}], ",", 3 O! C) z' b, Y8 z3 P
RowBox[{"CM", "[",
9 ?6 a+ u- X! M X' H RowBox[{"63", ",", "5"}], "]"}], ",", 5 k B1 p( }3 Y1 ^# t9 D1 X: ^. u8 L
RowBox[{"CM", "[",
8 Q: X! k' o, g* Q+ N RowBox[{"63", ",", "6"}], "]"}], ",", 5 N. l" \; R& ]% O% A7 F9 E3 N' ^
RowBox[{"CM", "[",
0 K7 _- N7 s+ L0 e RowBox[{"63", ",", "7"}], "]"}], ",",
J( B& Q8 B/ ^; z8 L RowBox[{"CM", "[",
. P! j/ m3 N Z) ]. p, h RowBox[{"63", ",", "8"}], "]"}], ",",
" ?: B. k, @. K, I, U8 n! a RowBox[{"CM", "[", 8 f/ W, ]! }0 w
RowBox[{"63", ",", "9"}], "]"}]}], "}"}], ",",
$ Y( G( @( m- `4 r0 } RowBox[{"{",
( q, L& w! T. ]+ v/ m RowBox[{
! }/ u5 _' C$ E! x RowBox[{"CM", "[", y2 f4 w8 u; Z+ M4 t# K1 Z. o4 s
RowBox[{"64", ",", "1"}], "]"}], ",", ) \! I7 T+ e% m
RowBox[{"CM", "[", 3 Y9 _3 v9 \, a/ {& d
RowBox[{"64", ",", "2"}], "]"}], ",", 1 D2 o( ^' O! q% _( G9 K
RowBox[{"CM", "[",
% s4 i, u. K8 d2 y RowBox[{"64", ",", "3"}], "]"}], ",",
" d7 m$ m$ B7 K0 c4 s) V/ M RowBox[{"CM", "[", . g/ |: P8 l8 A1 x+ o) H5 Q m8 z, i
RowBox[{"64", ",", "4"}], "]"}], ",",
5 H; d' E9 C2 P( I) T6 Q: K3 E$ T RowBox[{"CM", "[", # ^! }/ ]" A D9 K
RowBox[{"64", ",", "5"}], "]"}], ",",
% }/ ^* D* m; f: F$ g RowBox[{"CM", "[",
1 H b# i2 v" u" o RowBox[{"64", ",", "6"}], "]"}], ",", % O$ Y$ g+ O( K# S# p
RowBox[{"CM", "[",
- m, `" u: K( x0 I& M% F9 g, | RowBox[{"64", ",", "7"}], "]"}], ",",
7 b# C7 r4 i( q i% W3 m1 `) z RowBox[{"CM", "[",
5 Y& z2 p3 ?& F- H- D, M RowBox[{"64", ",", "8"}], "]"}], ",", 1 o* c7 E0 e4 a# X2 p" y
RowBox[{"CM", "[", 6 s: |' |; |0 q7 y, l* Q
RowBox[{"64", ",", "9"}], "]"}]}], "}"}], ",", " y5 [! F: ]! d+ S! c/ c4 A6 \
RowBox[{"{",
* Y( U$ y! V$ x/ T7 F RowBox[{ @5 D: Y5 G. |( U; G
RowBox[{"CM", "[", * ~' X1 k( B4 n! R
RowBox[{"65", ",", "1"}], "]"}], ",", 5 }% [# z* Y1 L5 Q! H' l" _
RowBox[{"CM", "[", ( M+ Y& l3 P* q1 H
RowBox[{"65", ",", "2"}], "]"}], ",", * {, P1 ^7 D, g( u: ?1 g) V2 e# i
RowBox[{"CM", "[", . r( L* O' `$ F9 b/ o1 k0 _
RowBox[{"65", ",", "3"}], "]"}], ",", 2 m E8 V' M& K2 q. m v
RowBox[{"CM", "[", 4 n& z8 h, v+ n* ]
RowBox[{"65", ",", "4"}], "]"}], ",", ' A7 T4 d7 D8 I4 c9 t' @7 }+ m
RowBox[{"CM", "[",
' p4 R2 ?. W5 Q6 w' | RowBox[{"65", ",", "5"}], "]"}], ",",
8 i6 N& A) b8 T1 _) |5 ` RowBox[{"CM", "[", W" z: N$ I5 w# ~
RowBox[{"65", ",", "6"}], "]"}], ",",
: D' ?, F& Y. z3 D RowBox[{"CM", "[",
. [ _& i7 C' A2 K3 F0 n1 R RowBox[{"65", ",", "7"}], "]"}], ",",
. r& y! W U/ X2 U- M/ F( l$ r* I% @ RowBox[{"CM", "[", , \% E2 H$ N# ~# V
RowBox[{"65", ",", "8"}], "]"}], ",",
/ C0 [2 {) ^+ H9 o, U! m; f3 X RowBox[{"CM", "[",
% e8 |2 K2 B9 C RowBox[{"65", ",", "9"}], "]"}]}], "}"}], ",", $ A1 v$ R1 \) f5 b
RowBox[{"{", " r2 w8 D5 ]$ \9 j Z1 X
RowBox[{
: e8 C4 a+ ?& ] C8 @ RowBox[{"CM", "[",
& z# n4 W g; \ RowBox[{"66", ",", "1"}], "]"}], ",", $ r! n( U3 z4 @
RowBox[{"CM", "[",
2 O+ N. p+ b2 v* P; q4 T) A, Z RowBox[{"66", ",", "2"}], "]"}], ",",
5 o. k8 Z- S( @4 t RowBox[{"CM", "[",
) t3 t9 P/ v5 d, f2 i. u8 L RowBox[{"66", ",", "3"}], "]"}], ",", 5 x0 O$ u( J+ |4 A; _& P
RowBox[{"CM", "[", 8 L3 L; @! U* w6 ~$ V8 F
RowBox[{"66", ",", "4"}], "]"}], ",", - {9 I: o; z# h- J; m
RowBox[{"CM", "[", - c! v' \8 X; q; {
RowBox[{"66", ",", "5"}], "]"}], ",",
9 K: e9 D q; m, m L0 ` RowBox[{"CM", "[",
# H4 I8 I) X- B2 l+ C RowBox[{"66", ",", "6"}], "]"}], ",",
4 b& T( m/ ~) F: a b: ~3 l9 O, @ RowBox[{"CM", "[",
' W, `; t: ^2 ?8 F RowBox[{"66", ",", "7"}], "]"}], ",",
3 R; V, F* N0 Y1 ~% n F RowBox[{"CM", "[",
; X4 J ?# y* C" r: G7 X l- l RowBox[{"66", ",", "8"}], "]"}], ",",
- r8 i! V/ ?$ G8 |* u RowBox[{"CM", "[", 8 N. _, t; l- r. r8 h, F& X" z# l
RowBox[{"66", ",", "9"}], "]"}]}], "}"}], ",",
8 m" l& H2 e: g- w5 ]: p( S! c9 [2 D RowBox[{"{", . t- L, q1 I4 w* _ M
RowBox[{7 u/ s) i( I. ~2 b- X2 r" A7 X8 c
RowBox[{"CM", "[", + r& B) ]" m! |! Q* o
RowBox[{"67", ",", "1"}], "]"}], ",",
2 B2 ]' C* @# `, J/ M RowBox[{"CM", "[",
# N. m' {" A% y" v. t+ S9 c- k RowBox[{"67", ",", "2"}], "]"}], ",", ( g7 K7 S7 k/ h$ R) Z
RowBox[{"CM", "[", 8 I3 R% X5 w$ N8 ^" f6 }
RowBox[{"67", ",", "3"}], "]"}], ",",
. R- C/ I; T# t RowBox[{"CM", "[",
) `( E* c- I0 Q, s+ r RowBox[{"67", ",", "4"}], "]"}], ",",
6 r; {; |* b: h; ]/ A/ x5 @" k1 ` RowBox[{"CM", "[", 6 B* {; z. ^$ @$ b4 W4 c( \* ]( {# c
RowBox[{"67", ",", "5"}], "]"}], ",", + k" \4 d/ s2 e6 l# Y7 o2 S- l/ f+ f
RowBox[{"CM", "[", c/ y% y- T/ B9 e8 j9 R+ s( f
RowBox[{"67", ",", "6"}], "]"}], ",",
0 B9 o$ @" u j2 u2 ^2 S RowBox[{"CM", "[", : i; x3 m ?' H# h8 i
RowBox[{"67", ",", "7"}], "]"}], ",", 9 f2 x. R- z* Z' Y* x
RowBox[{"CM", "[", . n2 _) k$ U4 e$ v$ G
RowBox[{"67", ",", "8"}], "]"}], ",", 4 y. E+ n+ M! |+ ]) ^! A7 |, ]
RowBox[{"CM", "[", # d0 ]- `6 O. i2 L% Z2 i4 Z
RowBox[{"67", ",", "9"}], "]"}]}], "}"}], ",", 6 |" q9 _4 w/ I6 q
RowBox[{"{",
7 O( v" N$ N. @: T @& s RowBox[{
9 O8 k' ~& N" I: \ RowBox[{"CM", "[",
) U; {2 i5 G7 E" p7 f% g RowBox[{"68", ",", "1"}], "]"}], ",",
) H0 @0 [: m2 Z9 Q4 n" B RowBox[{"CM", "[",
4 U0 k, h" r! P& M RowBox[{"68", ",", "2"}], "]"}], ",", 9 i3 ]! L2 R( H0 ^; T& ^0 k
RowBox[{"CM", "[",
$ [# Q- e/ t* y' `& } RowBox[{"68", ",", "3"}], "]"}], ",", $ [2 F l& F3 j0 h" W3 N' F& o7 \
RowBox[{"CM", "[",
' G0 F! Q& W" ~- V5 N) X' r RowBox[{"68", ",", "4"}], "]"}], ",", 1 `1 ~7 @- u6 n5 y
RowBox[{"CM", "[", 3 ?* K$ {1 w, Q& ]2 F) a! {
RowBox[{"68", ",", "5"}], "]"}], ",", / F3 W4 s. h& d2 d, f2 }' \
RowBox[{"CM", "[", & P. } J' F( G7 A; m
RowBox[{"68", ",", "6"}], "]"}], ",",
1 w+ Q$ B7 s- _9 @0 B7 B RowBox[{"CM", "[", - S: r( \" E+ k1 Y5 L
RowBox[{"68", ",", "7"}], "]"}], ",", ) ~( z7 L* H8 T' \5 i6 M
RowBox[{"CM", "[", / ~1 C3 X; X; R- W5 o
RowBox[{"68", ",", "8"}], "]"}], ",",
/ ^: }9 U& N$ j) a RowBox[{"CM", "[",
3 q) @: A: z& k: W8 a) o( j0 ? RowBox[{"68", ",", "9"}], "]"}]}], "}"}], ",",
# w! w$ [6 c) M2 r/ p) ] RowBox[{"{",
5 Y% m0 f! x; u RowBox[{
4 v4 T6 L6 {2 n, e RowBox[{"CM", "[", 3 R' }: {6 c2 ^) m1 G
RowBox[{"69", ",", "1"}], "]"}], ",",
" X P) I6 {! F! |% y RowBox[{"CM", "[",
& d( r W- p6 F: L RowBox[{"69", ",", "2"}], "]"}], ",", # L, @2 ^' ?4 f, H0 G; V
RowBox[{"CM", "[",
, h1 Z5 N3 ^* p: Z/ v RowBox[{"69", ",", "3"}], "]"}], ",", 2 }3 b/ H/ u: ?- J1 D
RowBox[{"CM", "[",
; V+ H- N) K8 u" W; a RowBox[{"69", ",", "4"}], "]"}], ",",
9 h0 k( x* r, G/ h3 e RowBox[{"CM", "[",
( F, [4 h1 b+ U# C1 v* } RowBox[{"69", ",", "5"}], "]"}], ",", $ R0 P4 l. t a3 G
RowBox[{"CM", "[", 6 G/ e$ a `4 f1 P% [3 _1 Y
RowBox[{"69", ",", "6"}], "]"}], ",",
9 _5 A( g3 _" X {) O8 ~ RowBox[{"CM", "[", - q3 }, g3 R, C. @0 I! i- z, H
RowBox[{"69", ",", "7"}], "]"}], ",",
+ Y' T" }& d3 Q RowBox[{"CM", "[",
+ A( }# H; _( K RowBox[{"69", ",", "8"}], "]"}], ",", , r, F f4 M2 Z/ x5 O& e
RowBox[{"CM", "[",
( _! G( B0 Y8 N RowBox[{"69", ",", "9"}], "]"}]}], "}"}], ",", - Y3 [- J0 f" J. c% A- d* I
RowBox[{"{",
# H0 C* V# n9 F, Y, g6 w RowBox[{
" w, X% P9 M' \- b- z1 |0 v RowBox[{"CM", "[",
# B4 w* J, u0 x& E4 t2 S. f# f) F RowBox[{"70", ",", "1"}], "]"}], ",", 3 w% ^: }. k! K. ]
RowBox[{"CM", "[",
9 c0 u- ~# D/ \3 L' S9 Q RowBox[{"70", ",", "2"}], "]"}], ",", J: A4 N' r. e/ X
RowBox[{"CM", "[",
1 i& b) e6 s, Z/ T9 u RowBox[{"70", ",", "3"}], "]"}], ",", 8 |+ T( O- H5 J. E3 k, P3 Z
RowBox[{"CM", "[", " ], D' v0 F7 l5 X( a I
RowBox[{"70", ",", "4"}], "]"}], ",", $ }, }9 K: P1 }' F
RowBox[{"CM", "[",
7 c: {3 F+ i& z5 ] RowBox[{"70", ",", "5"}], "]"}], ",",
0 [( [ R# u5 {# ]' U0 q0 R* d RowBox[{"CM", "[", 1 Z, Y1 t# I* v* b4 L0 C' x
RowBox[{"70", ",", "6"}], "]"}], ",", ' w+ {/ L. ]3 _0 l& O
RowBox[{"CM", "[",
- A1 {/ p' n- _5 j3 i3 V RowBox[{"70", ",", "7"}], "]"}], ",",
. }/ U8 k, n2 b2 T& S/ i RowBox[{"CM", "[",
0 }! a0 V8 k6 k RowBox[{"70", ",", "8"}], "]"}], ",",
. \2 U! i) S6 P6 w7 W! ]1 K% |8 d9 ] RowBox[{"CM", "[",
" @# Z& b Z5 d% ~6 B# X; o$ T RowBox[{"70", ",", "9"}], "]"}]}], "}"}], ",", & @5 z+ R2 J8 ?8 t
RowBox[{"{", f* D9 ^# T: s- |! H6 ?% c
RowBox[{
- ^0 x/ N" y: }# J7 G% x RowBox[{"CM", "[", 1 e6 ^( p: p2 B0 U4 C
RowBox[{"71", ",", "1"}], "]"}], ",", . d m; K# P5 ^: @
RowBox[{"CM", "[",
7 D T3 @5 M. v9 \* X3 Q# X$ P RowBox[{"71", ",", "2"}], "]"}], ",",
, R' `. w' m4 j9 H! K- K& d RowBox[{"CM", "[", * Z% z# d1 H p/ W! j, T! Q
RowBox[{"71", ",", "3"}], "]"}], ",",
5 k( `. h' H7 ~1 j9 h$ C RowBox[{"CM", "[", " m2 s9 W2 {. w: j+ j
RowBox[{"71", ",", "4"}], "]"}], ",",
) u8 E+ ]9 J3 v1 J RowBox[{"CM", "[", + ]2 x) V& F v+ L( M4 b z
RowBox[{"71", ",", "5"}], "]"}], ",", 4 c. @9 Z( k* ~+ o
RowBox[{"CM", "[", - l; _% w: o, J
RowBox[{"71", ",", "6"}], "]"}], ",", 1 M: `6 B2 k' h$ I5 ?" z
RowBox[{"CM", "[",
- F, R2 K* b' ]( p* H RowBox[{"71", ",", "7"}], "]"}], ",", 6 r4 F9 X, ~, }$ I$ z
RowBox[{"CM", "[", / _& v6 j/ v4 T- n. E( c6 \5 H
RowBox[{"71", ",", "8"}], "]"}], ",", - o: ?, ^6 Y# h# Y0 r
RowBox[{"CM", "[", 0 L3 X2 R; C* M! k
RowBox[{"71", ",", "9"}], "]"}]}], "}"}], ",",
" ~* M, B, u" C RowBox[{"{", * a' Z) R1 t9 K3 u+ Z! r
RowBox[{
2 L* |9 b6 P' H, J% Q9 R: t RowBox[{"CM", "[",
6 [/ c: ^8 m9 a8 U/ E RowBox[{"72", ",", "1"}], "]"}], ",", ! S0 k* [+ K% m- c
RowBox[{"CM", "[", 0 o- A9 R( C7 P2 s8 V. W
RowBox[{"72", ",", "2"}], "]"}], ",",
3 p% X( M$ K7 \ RowBox[{"CM", "[", , [ t+ {1 M; \( g' P" b" f$ ^/ S
RowBox[{"72", ",", "3"}], "]"}], ",", ' p1 ~ k4 e8 ]) h
RowBox[{"CM", "[", , y$ O; C. i( L2 j9 h& I
RowBox[{"72", ",", "4"}], "]"}], ",",
0 M; o6 K0 d3 M% } RowBox[{"CM", "[", $ J7 p& H! R; K4 Q' F+ l) ]1 d
RowBox[{"72", ",", "5"}], "]"}], ",", & s. Y+ p5 X. J0 C8 a6 V- t5 T
RowBox[{"CM", "[", 3 Y; Q. R* y. ~/ i5 U- I; F
RowBox[{"72", ",", "6"}], "]"}], ",", : G, a+ D. R* x. y; o: t
RowBox[{"CM", "[",
6 f, L8 u5 w! j$ w+ T0 s RowBox[{"72", ",", "7"}], "]"}], ",",
6 r7 \ ]: @. r* g RowBox[{"CM", "[", 3 I7 {% N, H9 q. A
RowBox[{"72", ",", "8"}], "]"}], ",", : m% |+ R9 H+ m- @
RowBox[{"CM", "[",
/ `4 L/ u/ d+ O, |: O0 V, Y RowBox[{"72", ",", "9"}], "]"}]}], "}"}], ",", # A: }4 h) A8 n' N' W
RowBox[{"{",
* n7 v: f( S0 d RowBox[{9 T7 J& A; l3 i+ r
RowBox[{"CM", "[",
8 \ j1 ~) ~- m9 W) |; m& I RowBox[{"73", ",", "1"}], "]"}], ",",
" z/ ]9 [, ?9 M/ k RowBox[{"CM", "[", C: h5 E+ O& P4 u$ f8 P# E
RowBox[{"73", ",", "2"}], "]"}], ",", " ?6 X$ s. ^0 k# F2 V+ j4 s! R
RowBox[{"CM", "[", 8 H* F, E4 d c, g
RowBox[{"73", ",", "3"}], "]"}], ",",
: j$ g" C. S' O {8 K, Y RowBox[{"CM", "[",
0 g2 a+ X* \& M RowBox[{"73", ",", "4"}], "]"}], ",", - s# C; ^% d; e9 K( j4 o
RowBox[{"CM", "[",
' @! S( P1 @9 d9 D7 ?! r RowBox[{"73", ",", "5"}], "]"}], ",", 0 q! H2 k2 q: d& p( g' ]) l ]
RowBox[{"CM", "[", - G |4 v) V2 g4 r0 [$ I
RowBox[{"73", ",", "6"}], "]"}], ",",
# G# c, @+ h% I% ^* O0 V/ e RowBox[{"CM", "[",
' k- N$ R( k- U3 ^' d5 P RowBox[{"73", ",", "7"}], "]"}], ",", % U+ q) x! t @4 B
RowBox[{"CM", "[",
9 Y3 }; k4 d( [3 _/ h% U& t1 p RowBox[{"73", ",", "8"}], "]"}], ",",
% g+ R' R5 x8 N& Y RowBox[{"CM", "[", & j+ ]% T+ {( o. l
RowBox[{"73", ",", "9"}], "]"}]}], "}"}], ",",
& b o: x0 ~: q1 a3 r1 v' l l RowBox[{"{",
+ v _3 k5 E( X5 b3 q) g RowBox[{: L4 K5 h9 _/ C) b) F' g
RowBox[{"CM", "[", 9 m( o. u4 X8 k- C5 d$ G5 ]7 W
RowBox[{"74", ",", "1"}], "]"}], ",",
# F2 B* R, b2 ]2 U$ \! u- v RowBox[{"CM", "[", 1 W- K/ w" |7 j- d; |: Q
RowBox[{"74", ",", "2"}], "]"}], ",", $ a2 ^ ~9 N2 F* L
RowBox[{"CM", "[", 3 A& x# k- X3 n H# W1 e" M: z
RowBox[{"74", ",", "3"}], "]"}], ",",
/ E6 t* }. P! |. {& D2 j6 l RowBox[{"CM", "[",
/ M- E; ~1 a2 W+ T! @3 B RowBox[{"74", ",", "4"}], "]"}], ",", : A8 W# ]( j* |- }! ?: g/ J+ Q
RowBox[{"CM", "[",
* G* b/ q, m- I0 } RowBox[{"74", ",", "5"}], "]"}], ",",
; S z6 O$ P2 P" }! d RowBox[{"CM", "[",
4 ^5 x7 `+ E" G2 K7 u6 z RowBox[{"74", ",", "6"}], "]"}], ",",
9 `. m+ r, s: K8 A' @, s RowBox[{"CM", "[",
|$ f) y7 h, V RowBox[{"74", ",", "7"}], "]"}], ",",
4 Z# f: M* ]% q$ D RowBox[{"CM", "[",
+ X, W1 N, Y/ w. x RowBox[{"74", ",", "8"}], "]"}], ",", 4 T6 G9 Y) Z1 H# E1 d8 o2 R: ]
RowBox[{"CM", "[",
0 e2 z. H! c# U& \7 ] RowBox[{"74", ",", "9"}], "]"}]}], "}"}], ",",
7 R" j0 } E2 f0 e: p( H7 B RowBox[{"{", 9 b( w4 B& L9 Z& v, |
RowBox[{
4 l# D# L' e! d RowBox[{"CM", "[", ; H9 l, d2 c# L
RowBox[{"75", ",", "1"}], "]"}], ",",
% p9 I0 W2 h! }- R* ~8 A8 u5 V RowBox[{"CM", "[", . ]3 d% A I0 e( z2 e
RowBox[{"75", ",", "2"}], "]"}], ",",
0 f9 Y3 b& @! k# [5 F3 V RowBox[{"CM", "[",
2 i/ V2 U) z/ B: w& g RowBox[{"75", ",", "3"}], "]"}], ",", 7 f2 E3 S& g" Y
RowBox[{"CM", "[", 5 I2 C$ S# ~$ h" f2 c
RowBox[{"75", ",", "4"}], "]"}], ",",
o P" |& ^* ]# I RowBox[{"CM", "[", 8 H* x1 u; c4 I+ C) H
RowBox[{"75", ",", "5"}], "]"}], ",", ' I! W9 q" Q5 f; e8 ^
RowBox[{"CM", "[",
* g( j3 g8 { S2 n9 c; o! ? RowBox[{"75", ",", "6"}], "]"}], ",", ; R+ ~$ {9 ^. ~, p
RowBox[{"CM", "[",
* }4 l% D( ]5 a. o/ d RowBox[{"75", ",", "7"}], "]"}], ",", $ L& H* b! Z( S
RowBox[{"CM", "[", 5 q1 O2 t( j8 A/ f; F. \6 Z7 I1 P
RowBox[{"75", ",", "8"}], "]"}], ",", 6 P9 `1 p. |7 w i" y7 F
RowBox[{"CM", "[",
8 l/ P" u% P, T6 L9 W; Q& C RowBox[{"75", ",", "9"}], "]"}]}], "}"}], ",", % G0 r. _6 }6 p# m; _0 N1 \8 @
RowBox[{"{",
5 E& g3 V' d8 o6 ] RowBox[{
2 H, i8 t1 w1 b$ l6 b8 |% i RowBox[{"CM", "[",
, q. k ]* i/ K& K0 j7 k) W RowBox[{"76", ",", "1"}], "]"}], ",",
1 l' H2 u! ? L& r& w" B+ @, z RowBox[{"CM", "[", $ a5 ?! F( Y5 d1 m3 D0 i/ ?0 S
RowBox[{"76", ",", "2"}], "]"}], ",",
. k8 c& f5 ^& y3 Y b! f RowBox[{"CM", "[",
' J: Z# f- G0 f1 a' W+ a RowBox[{"76", ",", "3"}], "]"}], ",",
4 A) D- w [! g1 D9 p* ? RowBox[{"CM", "[", 3 O2 h+ N. U7 a9 f) }
RowBox[{"76", ",", "4"}], "]"}], ",", + q6 \1 ?; _. N# ~; }$ T" h, ?2 e& D
RowBox[{"CM", "[",
! R* o$ B, n/ e4 u+ v5 {, T RowBox[{"76", ",", "5"}], "]"}], ",", ) @) k% s: E# n7 L
RowBox[{"CM", "[", " A' O6 W+ c# v0 p4 T
RowBox[{"76", ",", "6"}], "]"}], ",",
- T; K4 k0 s5 E F0 s4 S' k RowBox[{"CM", "[", " Q# Q) O8 W3 s6 \* J4 N4 q
RowBox[{"76", ",", "7"}], "]"}], ",",
/ E% `; ^2 c, m! B4 u( ? RowBox[{"CM", "[",
; e/ Y( i' P9 o RowBox[{"76", ",", "8"}], "]"}], ",", 9 v5 O9 X4 p% j9 M" t
RowBox[{"CM", "[",
, Z! m+ J. X/ {! \ RowBox[{"76", ",", "9"}], "]"}]}], "}"}], ",",
1 k4 `- R; d; u0 T0 p, b3 g RowBox[{"{",
: [" V! a( s4 |+ O RowBox[{
* y% s2 ?$ A' K8 m& J) r9 v RowBox[{"CM", "[", ( j* n& r8 J$ d! y5 E+ J
RowBox[{"77", ",", "1"}], "]"}], ",",
, E/ O- h8 h; D4 Q7 Y0 N8 y RowBox[{"CM", "[", ) Z6 l+ @4 f" T1 X: @3 _
RowBox[{"77", ",", "2"}], "]"}], ",", 0 z" w5 k" c, B7 W0 {/ P6 k% M8 o$ T
RowBox[{"CM", "[",
- |$ [* H" M" I: h5 P4 m- N RowBox[{"77", ",", "3"}], "]"}], ",", 8 J1 z7 i) Q7 `* \
RowBox[{"CM", "[",
4 S; @# r( k9 X0 h9 W RowBox[{"77", ",", "4"}], "]"}], ",", 3 D; g( R# U9 M( l' c/ c
RowBox[{"CM", "[", # [& y% G8 Q& k
RowBox[{"77", ",", "5"}], "]"}], ",", ) H; W& D0 o2 ?
RowBox[{"CM", "[",
. _1 ^: F# H4 E4 e( m5 D: L" ` RowBox[{"77", ",", "6"}], "]"}], ",",
5 q% @8 ~2 `* }& e! c: a2 v RowBox[{"CM", "[", 8 p; W/ G& {+ r
RowBox[{"77", ",", "7"}], "]"}], ",", # A# N5 c) p0 o$ ]7 y3 ?
RowBox[{"CM", "[",
. {% d+ _: A0 i) M9 L RowBox[{"77", ",", "8"}], "]"}], ",",
$ z3 D. R7 k. G. |$ `" {; l6 U RowBox[{"CM", "[", 1 f. {( E6 `& J; p% A
RowBox[{"77", ",", "9"}], "]"}]}], "}"}], ",", f2 h: T5 T0 J' z5 g2 k
RowBox[{"{",
, F8 X5 I& ?/ o# u9 @. T RowBox[{
; V0 \+ ?0 m: i* q P RowBox[{"CM", "[",
& [4 P# n) d1 N) y3 w/ I# T RowBox[{"78", ",", "1"}], "]"}], ",",
7 l+ }/ X: m# U+ n! `1 L RowBox[{"CM", "[", ( ]4 y$ R2 w# u$ R& q7 D W- w
RowBox[{"78", ",", "2"}], "]"}], ",", . }0 ^6 @3 k j# x6 g# s
RowBox[{"CM", "[",
9 r+ ~/ n! v5 h5 _; l: q RowBox[{"78", ",", "3"}], "]"}], ",",
6 m9 q5 y* _ p RowBox[{"CM", "[",
: I$ u: ~/ ]. |; g0 n# D RowBox[{"78", ",", "4"}], "]"}], ",", 0 S3 a* M. D* C2 G/ M9 { Y
RowBox[{"CM", "[",
3 x/ S9 y1 p3 c3 K( Z$ R RowBox[{"78", ",", "5"}], "]"}], ",",
, q! ]4 V7 n3 o- |$ ~ RowBox[{"CM", "[",
% {: d9 a& Y' V6 i RowBox[{"78", ",", "6"}], "]"}], ",",
# Y) I5 U, g1 ^+ @# m RowBox[{"CM", "[",
" U2 w' I1 A( m$ Z( i RowBox[{"78", ",", "7"}], "]"}], ",",
8 l$ I- f& a( E3 g RowBox[{"CM", "[",
: {% w& n# i* o RowBox[{"78", ",", "8"}], "]"}], ",",
/ g, M* o( f9 D/ ?9 L RowBox[{"CM", "[",
$ i- q. }& Z3 t/ H- D RowBox[{"78", ",", "9"}], "]"}]}], "}"}], ",",
8 @/ l; U) A. i& s6 Z9 o6 [ RowBox[{"{",
& }8 t5 `2 z" X. }/ }# R4 z! b4 m RowBox[{
7 n: _9 j* {: f3 C5 [2 x$ Y RowBox[{"CM", "[", + X( @6 \+ X! c$ _/ l# I* H
RowBox[{"79", ",", "1"}], "]"}], ",", # X# m$ d1 h# @" R" s
RowBox[{"CM", "[",
+ ^1 m! d- G: U RowBox[{"79", ",", "2"}], "]"}], ",",
% _4 a1 K; ^2 {3 h, ?! W RowBox[{"CM", "[",
6 J- T1 l7 ~! M+ {, p7 q RowBox[{"79", ",", "3"}], "]"}], ",",
& P+ C1 B- O7 c2 S1 _; B' U RowBox[{"CM", "[",
) j' Q: F0 P0 H4 y$ e RowBox[{"79", ",", "4"}], "]"}], ",", , e4 P @' c" S" O; G' o
RowBox[{"CM", "[", 4 W9 c, ^* O& X4 ^4 a$ c
RowBox[{"79", ",", "5"}], "]"}], ",",
$ e( e4 D! U5 \2 G RowBox[{"CM", "[",
# a- [5 W' H: e% P- ?+ ^2 J9 ] RowBox[{"79", ",", "6"}], "]"}], ",", & C1 h$ m! {5 A/ O/ G
RowBox[{"CM", "[", 3 ^8 n- f7 Z+ {, L' t$ n/ X
RowBox[{"79", ",", "7"}], "]"}], ",", - d- Z" F/ o# ^2 L8 b4 t
RowBox[{"CM", "[", - v- |0 ^; @2 ?4 A b4 V
RowBox[{"79", ",", "8"}], "]"}], ",", # S+ J" K( y$ D
RowBox[{"CM", "[",
9 ?- I1 _. F N; G0 p0 E RowBox[{"79", ",", "9"}], "]"}]}], "}"}], ",",
# R' I: v/ a* M" @ RowBox[{"{", ) ?' F2 L8 C0 ?4 o
RowBox[{- k% a( I. r) h4 b x
RowBox[{"CM", "[",
K% d8 I) f) C N' e% \1 s RowBox[{"80", ",", "1"}], "]"}], ",", ) x+ e: g# i: R* n) w6 r/ W
RowBox[{"CM", "[",
2 V2 ^( C) @& m. d X RowBox[{"80", ",", "2"}], "]"}], ",", & n7 e) \3 {. u; Q% e+ ]
RowBox[{"CM", "[",
5 F9 |, j1 i; o" R RowBox[{"80", ",", "3"}], "]"}], ",", ) C1 j I1 z+ v1 ~8 y' g( N, V- I
RowBox[{"CM", "[", 2 f3 G5 e. { }; ^0 N4 L
RowBox[{"80", ",", "4"}], "]"}], ",",
! q; F4 [. ~& o H r RowBox[{"CM", "[",
' ~& E ~+ p: H7 M( G RowBox[{"80", ",", "5"}], "]"}], ",",
+ z3 s0 g2 y4 E5 {. M: R RowBox[{"CM", "[",
- b6 J* T: e7 ^) I( }0 e RowBox[{"80", ",", "6"}], "]"}], ",", ( ]. |; T. n( B: b& B* H% f
RowBox[{"CM", "[",
8 P5 B1 s2 _% U5 V& z) ^6 ^ RowBox[{"80", ",", "7"}], "]"}], ",",
' q6 w4 q) D9 Y RowBox[{"CM", "[",
4 C& X; ^2 w* _9 m5 w; ~ RowBox[{"80", ",", "8"}], "]"}], ",",
; q. {3 n6 O+ B/ o! }. n f RowBox[{"CM", "[",
, r7 a( S) S8 ~1 V" h( I \1 V RowBox[{"80", ",", "9"}], "]"}]}], "}"}]}], "}"}]], "Output",+ c( f7 b9 g; U* A! B% j
CellChangeTimes->{3.577844244140625*^9, 3.57784429425*^9, 3.577847845125*^9,
{# t! ~& e8 l. R# C1 E0 E 3.57791322703125*^9, 3.577957088820712*^9, 3.5779605002346992`*^9, + U( j, m( o5 J" d! ~6 e2 u8 U
3.578012145828125*^9}]
& ^. D1 T$ `! c: j6 k* X. D}, Open ]],
/ P" p5 Z" I$ y1 o
$ Q0 n4 ]) Q" q6 [Cell[BoxData[
* a( T; w+ z n3 Z; t6 k RowBox[{"For", "[",
& a0 D$ m/ V% x7 X- K" _4 P RowBox[{5 C5 D& h9 `! S! A; `0 N+ i; f
RowBox[{"i", "=", "1"}], ",",
+ W) R" Q. Y3 e% L U6 l& D$ P RowBox[{"i", "\[LessEqual]", "9"}], ",",
- ]( ]# S9 M8 F# J2 M0 N) q, } RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", ( j i/ L' e- @$ S- y
RowBox[{"For", "[",
# i! n! I+ s4 ~ RowBox[{# S3 n) W9 R5 |0 Z- m. q- _
RowBox[{"j", "=", "1"}], ",",
9 [# X9 j1 B. b& U/ k4 U RowBox[{"j", "\[LessEqual]", "80"}], ",", # J0 _: V! @% ~5 H2 a: Y
RowBox[{"j", "++"}], ",", "\[IndentingNewLine]",
! R8 O9 u2 `7 z* ]+ z5 v RowBox[{; t, \% i( s: k Y% D3 n
RowBox[{5 T1 L+ S( y0 s
RowBox[{"CM", "[",
+ [' }+ o6 Z O* D# Q) N# ?+ Z8 {$ o, ~* c. i RowBox[{"j", ",", "i"}], "]"}], "=", "0.0"}], ";"}]}],
& E! p& f$ f) m, h6 z "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",' G6 a8 s4 L: G5 [. A- i' [
CellChangeTimes->{{3.5779132504375*^9, 3.577913285203125*^9}}],
# q) l/ Z1 }% V% s2 \% `- Y3 Z. T$ I Z7 R7 N+ p
Cell[BoxData[7 _3 x2 q# U; R' ~& B
RowBox[{"For", "[",
{! @+ J; ~: W1 _& @4 |: m, [9 N RowBox[{0 t- Y' x! |& m! I! {
RowBox[{"i", "=", "1"}], ",", " s- o% r/ ^$ u" s
RowBox[{"i", "\[LessEqual]", "9"}], ",",
6 b- `! h- {; y S# m. _8 [ RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 9 H% x! |. f3 R6 U# r7 u7 M
RowBox[{
H+ t- T( ]$ v) G" s, q RowBox[{& d- A% w$ S5 ?6 [& p" i
RowBox[{"CM", "[",
' x5 T7 Y5 E. [+ F# X7 @ RowBox[{"1", ",", "i"}], "]"}], "=",
( K+ M% r$ [4 j/ L* [% q RowBox[{"Data", "[", $ b- |4 z7 N8 L0 a
RowBox[{"[", $ Z/ I% H+ M1 ^' r: e9 T( n% U
RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}], ' Z* c5 n+ ?" H4 J* M
"\[IndentingNewLine]", "]"}]], "Input",
; L- z1 v" V0 F) J2 K* ? CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {
: [6 Q: h' C, t 3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9,
+ j) n0 D) w& C3 R/ E0 u2 T4 I! h 3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9, ; g4 l6 k8 _) f+ `6 l h
3.57791344209375*^9, 3.5779588070933466`*^9}],
0 V$ F1 ?. C( `% T8 i
4 J3 ? k! H" e/ ^Cell[CellGroupData[{) f0 M4 C3 r/ Z+ [8 a1 w; h
% c3 @. ]1 m# Z% X7 X' fCell[BoxData[{/ `3 `: p# p' r) I% t
RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]",
* L, ^7 I9 l1 C; I RowBox[{"M1", "=", "1"}]}], "Input",
4 B$ F' |: V; k0 }5 } J% W. b8 Z; z$ X CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {
5 x" G# K& ^7 |5 V. J 3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9, ' m1 |8 W, j9 g# f) A* y
3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {" y8 \! H- ^! j6 f" Y
3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9, ! i" r2 f6 N4 E* d/ k# _: R
3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {0 y3 P+ t0 {- ~% k" P8 q n" _, \
3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {
& G* v7 T& s3 w: T( p+ n 3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9,
. e' U( `" {! U3 V2 J3 h 3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {- h. ^4 T: k3 m( f2 J% q9 G0 e4 U
3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {3 I/ Q) U1 z2 t9 W% `
3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9, ' c) g' [/ r1 ?. l+ w2 D
3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],
4 O7 k! X: q8 ]8 t5 P: `% x/ k+ N3 ~7 h. V, w# ?0 J( C
Cell[BoxData["0.2`"], "Output",* N1 [* m! H$ U; s
CellChangeTimes->{
! S& j3 a6 U3 \" _) n7 u 3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
) @, J9 S4 t" C% q- B( v 3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {$ r5 a" ] [5 N" v/ q
3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
: U; n/ [( i# g9 R 3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
8 h$ }* Z/ p" }% n. Z+ T 3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
4 \" T. P3 m# J- o4 N7 ?) _) C+ Z 3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {( u7 o6 `2 k0 f; G9 Q' X* a
3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, 9 t N6 m2 e' K- M; |
3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
( R+ m& V( d. n9 C* N: q 3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
n7 ^8 R# p C 3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
6 I5 [8 ]& ?$ @; S6 w2 b 3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, . }9 X, h. d c' I9 _) D& I/ _
3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, 7 V# D6 F6 R" E& m( d
3.577960510686717*^9, 3.578012149296875*^9}],
+ g: s2 n4 _5 t8 N% E
3 Z6 S, R7 C# BCell[BoxData["1"], "Output",
; n9 |7 N1 u9 [) C4 z. Q4 B4 F CellChangeTimes->{/ F. A" _# @, F ~
3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, ' G0 @/ [8 J% X$ P, d
3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {* ]9 T. \* `3 ~& Z0 \9 }
3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
6 ?/ X6 l, @) M. a 3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
; o4 N3 i& I4 i) w3 R1 z* S 3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, 1 ?/ z$ t/ {7 D2 G/ V* @
3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {3 o" J) o9 j0 z' O' e
3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, / \# p" P( p* r/ I! {
3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
- y& ~+ a4 @6 O8 i 3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, - I) n7 w; M) C# v6 b* z# x
3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, . ~7 G. |6 }1 U" v1 F* t
3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, 9 T# p' y$ F% W/ d1 _2 F6 `( u
3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
9 h3 o7 v0 E: d& x H7 g 3.577960510686717*^9, 3.578012149296875*^9}]: d% c+ M6 ?8 z, t* v$ Y; \
}, Open ]],! I+ ~& Q+ O0 {- O
2 f" m% s) L5 M7 I, T6 s
Cell[BoxData[: X/ D. `; E( V! Q- n6 W
RowBox[{"For", "[",
1 |1 I2 T0 t8 W0 J" N RowBox[{
u t" T7 ^* c" L RowBox[{"k", "=", "2"}], ",",
& |$ E. x; ]" P# B( v6 Z" Y% {. E9 g RowBox[{"k", "\[LessEqual]", "60"}], ",", , v: M* p3 Z1 {! M" W0 ?
RowBox[{"k", "++"}], ",", * h; }0 `1 Q$ a1 J3 k+ b
RowBox[{"{", "\[IndentingNewLine]", , @) W4 H8 C- a' U" i
RowBox[{( G* s. Y1 u- t3 P: k
RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]",
8 T6 x3 m3 d( m3 Q( C3 ?8 H. g RowBox[{"For", "[",
- M4 C2 A% n6 c$ J2 n* S RowBox[{+ F) E! M/ Y! z- m0 I9 z
RowBox[{"j", "=", "1"}], ",", 5 S" s8 n# f" u" P! z
RowBox[{"j", "\[LessEqual]", . g) T. {, P( [# B& _+ \/ }
RowBox[{"k", "-", "1"}]}], ",",
( i( m* t3 d3 U C% I0 C0 @ RowBox[{"j", "++"}], ",",
5 b2 e9 u0 H" V( t* J& y V% a RowBox[{"{", "\[IndentingNewLine]", 1 z p7 h( r) D
RowBox[{
) {. \0 E5 g3 X. x' u. \3 {" s RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]",
+ |5 S& T! g5 Q7 a; x' L6 D+ L" Y RowBox[{"For", "[", $ } {5 }5 I9 g9 S: W. z) _
RowBox[{: U! `& u! Z% }( ^. U6 d
RowBox[{"i", "=", "1"}], ",", * u" ?( S0 q. `) X
RowBox[{"i", "\[LessEqual]", "9"}], ",",
$ e9 E9 i! t" N8 q% f, ?; h( H. j, d5 q; Q RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", + ^8 ~, z; W* o7 t7 d
RowBox[{
* G0 n# T* H9 ?3 m" [6 ?3 U& M, K RowBox[{"r1", "+=", : n g: T: \/ o( d
RowBox[{- {) k$ O B% ]& G4 _8 V
RowBox[{"(", ! v) `5 `$ f! D, v% ]# G
RowBox[{; ]) E0 s8 u4 k' Y! `6 T
RowBox[{"CM", "[", a4 ?6 E# s: Q9 q; |/ ?' u; f( M- K
RowBox[{"j", ",", "i"}], "]"}], "-", / h8 u; p5 X# E q. n ]
RowBox[{"Data", "[", 1 U' c9 ?0 [5 r" d
RowBox[{"[",
) d, Q- Q, Z$ l RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
7 w% z- M/ X) O7 q0 m6 w) q RowBox[{"(", 5 f* b- N }, F% M5 x; D
RowBox[{
7 D( }% q! ?( `3 X: Q* p$ B6 u RowBox[{"CM", "[", $ ^" J, o# _6 m9 e- t# s* e" G
RowBox[{"j", ",", "i"}], "]"}], "-", 1 o/ w' j7 C8 R
RowBox[{"Data", "[",
7 Z- ~6 k" P7 P3 m$ @% N RowBox[{"[", , p1 L& T% v0 ~6 w; K4 j: G# O1 G
RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],
, \$ W1 Y! N& f/ n "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]",
0 ^9 q+ \4 T* n0 U5 Z& P3 | RowBox[{"r1", "=", T _" F$ O+ c
RowBox[{"Sqrt", "[",
3 a: f Z# H3 x% i5 y RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]",
/ w3 P V2 _( ?7 T9 x+ I1 z" U' I! G RowBox[{"If", "[", " ",
* F. l3 ~& n2 { O' G8 c9 `) O RowBox[{
8 ?5 K; n3 Y/ y3 i+ W5 C* ? RowBox[{"j", "\[Equal]", "1"}], ",", & P3 U7 d/ w) \: O& c: ^
RowBox[{"rmin", "=", "r1"}], ",", . o$ h: \. \' {$ c" x7 }
RowBox[{"If", "[", 9 [8 }+ e+ i4 D
RowBox[{
( u! ^# s. s5 R% J, Y7 i RowBox[{"r1", "<", "rmin"}], ",",
; U$ J6 Z: D/ t! { RowBox[{"rmin", "=", "r1"}], ",", b( e. i- I/ ~% s
RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}],
6 I* c7 o s' a. L" j "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";", G8 q) F% l8 e9 x/ t) ~; @1 D
"\[IndentingNewLine]",
& t& N! N% h; p! V* O& d* R RowBox[{"If", "[", & |/ ?* Z- l7 i3 C' N) O7 J- ]
RowBox[{& y* ?. r1 j1 @" F+ q8 W
RowBox[{"rmin", ">", "r0"}], ",", % B4 H/ Z, ^. J7 y. H0 N
RowBox[{"{", "\[IndentingNewLine]",
0 Q% w: ~. v/ I9 y0 U RowBox[{
0 g1 ^* X D+ V o4 @ RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]",
7 j' Z& n T+ X) L" u RowBox[{"For", "[",
: c H+ s& L* b( G RowBox[{' y3 j) l# `# ^5 a
RowBox[{"i1", "=", "1"}], ",",
4 w5 U3 [6 g; w/ e) x6 k8 e RowBox[{"i1", "\[LessEqual]", "9"}], ",",
; ?% S8 r& L' R, d' v$ Q6 d/ n$ o RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]",
# G( t2 w9 m% O! J RowBox[{) N, C+ v& V) N7 Y$ y
RowBox[{& F( O$ z- x: E
RowBox[{"CM", "[", # C# D! t$ M' a" o
RowBox[{"M1", ",", "i1"}], "]"}], "=", " C A& c& A: s6 P
RowBox[{"Data", "[",
, T4 f" b4 u5 ]- g# ?9 K. R RowBox[{"[", 6 z6 I( S: r& I8 s! S4 e. `5 x9 d
RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}], 0 y3 S+ L1 l/ ^6 L+ O
"\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",", # o4 f* P1 ?# d- G
RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}], , Y7 w/ n- m0 S: k' J3 K/ d
"\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",+ C, ?" D- s, \4 u% Y
CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {& g$ t) _! K0 K6 L
3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9, # f0 r6 z. y" @7 Y
3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {9 U- L* {9 v8 |
3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9, 9 O* y* L0 ]/ _0 f, A* a3 l+ I
3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {% A3 ^( V1 C6 ]9 u: p4 u5 o
3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9, " f$ t6 s9 H3 N
3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {5 g q8 |) G' m
3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9,
7 B8 w. Q' x! Y# s' ^, P 3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {
0 m$ p0 o0 Q9 P: J 3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
U4 O2 i6 F: _: k' V 3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {
: X9 w: o, `+ B 3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9, ; L2 [7 `+ N6 V$ I; z1 P& s$ W- F
3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {& V& ]/ V- g" {8 l# E* c
3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9,
6 @. W, x; g9 e 3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {
5 _3 q1 J1 m- [* r3 c9 n3 W7 T 3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9, 1 n% U& j- n- g1 y, P9 Z
3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9, # ~- b4 G8 D5 h7 T2 x
3.577958821991373*^9}}],
2 j* d+ t% x8 A
; b. A4 { T6 A- u7 x- I: cCell[CellGroupData[{9 ]! Q6 `1 ?9 X0 W2 y, |
% [; k3 L9 _7 r1 XCell[BoxData["M1"], "Input",
! I. g; t( ~. [' w3 t4 P& o5 } CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],6 m. R3 `- H0 R
* Q! H- Z8 c- ~, f/ t1 MCell[BoxData["21"], "Output",
x) E3 o4 T7 `: c+ V CellChangeTimes->{
4 V! Z" l* b' u( ~ 3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {5 ^: m- \3 q4 ?* A$ Q: v
3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9, ! c9 ]+ e3 a* k: ~9 d8 }% ?; k/ T
3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {' j. [- _& h5 {& X5 U
3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
' k; s; L8 r) Y: F" u9 j# X4 _ 3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
6 O6 Y, ?( ?, q! } 3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9, ; Z2 X8 J3 C" I# o5 n" _
3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {1 n- a* ?2 K9 g7 c
3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9,
& N+ U* D. D' [ 3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9, , ?/ O3 q' n1 N
3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9,
7 J; c2 r/ g, n+ } 3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9, 3 o9 A0 K; c6 Y$ p9 I2 |
3.577960515600726*^9, 3.5780121541875*^9}]
5 _9 y5 T/ ?4 R}, Open ]],) u6 }& \$ u5 o( b: _) g3 n
- c6 @1 d, X+ d/ G9 }% oCell[BoxData[6 T8 I; g# q/ ^) H2 P
RowBox[{4 j% [+ p2 L0 i; d
RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[",
( D1 } I+ l- a# b5 y$ a RowBox[{"1", ",", "i"}], "]"}], ; W0 K. E/ q* t
RowBox[{"\:5230CM", "[",
8 Y8 o) X( A( G Q8 v RowBox[{"21", ",", "i"}], "]"}], $ ?% | \* w2 K9 {& t
"\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\
5 \' i0 _! J, P\:51fd\:6570u1\:5230u21"}]], "Input",
/ j2 j$ [7 R/ U. l) S. k# w CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {+ i- h D6 t8 m+ s2 I* d
3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9, " T3 J! `. k7 o! J `
3.577960526583145*^9}}],
. I. W* }5 i; P! ^0 F
" d$ S/ F0 X, J# WCell[BoxData[
! v' z- l2 M) B' i) u5 D' }. B; R RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
; ~5 j* C( o; U+ K- D CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],
L+ M1 g0 M2 R2 [3 \4 Q# ~6 I% b, Q6 e- X s, ]
Cell[CellGroupData[{
- P! g( T h3 r3 m% x4 M, W
. `# Y" C/ \# ~Cell[BoxData[
! {0 J0 R5 v$ j' v5 W$ R RowBox[{"Xa", "=",
9 D; e' A3 A: d5 C RowBox[{"{",
& q4 Y, X9 n+ S w RowBox[{$ B* O! {7 u( U e/ |* O) Y! n
"x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7",
+ O& \6 S3 r" [. f; c. x2 | ",", "x8", ",", "x9"}], "}"}]}]], "Input",
7 m5 @! P- I* g7 C. ?8 G1 a1 S: o CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
* E+ {# }: l6 W! R; S/ A& m' }) [! H4 l" `- b: q
Cell[BoxData[. Z& I+ d! c5 z$ @: p4 n* E
RowBox[{"{", * B/ U7 L8 w1 [ \
RowBox[{
" u$ d$ t! i) ^2 V# [ "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
R3 Y0 V8 J! T6 Q& {/ o& z "x8", ",", "x9"}], "}"}]], "Output"," K& `: s, T: ]; X, g0 I% S
CellChangeTimes->{1 ]8 c+ I ^; J( q0 f, U
3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9, / D9 j- J" m- J9 j7 x9 x' m
3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
4 }( y N/ i0 [% q$ \6 Z 3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9, % d2 z3 q8 W) L9 n8 R
3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9, # Y7 @0 }: C6 g
3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {- J+ V" P5 Q! J1 b- N8 X
3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9, 6 L0 X0 U% w& ?6 Z4 [* K: W
3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9}, % `; Q6 F7 t6 d4 c
3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
) U( I, A8 W4 h 3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {
( D. }( j; o" u' S 3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9, : @% ~" w# U0 t! ]
3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
3 L& J" L/ Z5 w 3.57801215725*^9}]
1 z: K, u' \) e- l}, Open ]],
& K/ { q4 u" } O2 ^( @+ }1 o) r" j. j
Cell[CellGroupData[{/ x0 d5 w8 \7 z# q: m
; @* N+ S0 I7 v- |2 h8 S5 s8 h# f
Cell[BoxData[8 B o) Z. ?) B% }
RowBox[{"Ca", "=", ) X$ D# b/ K) g" a9 g6 T
RowBox[{"{", / v) Z9 d& o( q
RowBox[{
6 N7 R, s' {/ R4 `1 X "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", $ T. l2 c- Z; C$ N
",", "c8", ",", "c9"}], "}"}]}]], "Input",8 z, @5 }$ w, @( A" Q0 E
CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],
, u/ B, ~3 t- J7 g2 b
3 f" k1 M" [" p8 K* [( RCell[BoxData[0 v0 U% F6 X8 J! F: b9 k
RowBox[{"{", 9 |& B. P" _( i$ I- l
RowBox[{: C. ? G0 i% \. j( X. }: b8 G
"c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",! S3 K" P" F3 Z
"c8", ",", "c9"}], "}"}]], "Output",
! n# Z; g8 E/ I8 ]3 ]$ M) e CellChangeTimes->{8 t- o9 f; c, s
3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9, ) {0 y, H. m: z1 r' i$ B; x* L- d
3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
' u% Q& P% k1 P- c 3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9, 3 }5 c- ?; n/ H$ @+ Y5 g! u4 I
3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {0 z8 Q3 N8 w( I# b2 f X% A4 _
3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9, 9 u7 j, e% a4 B* ?. {, ]
3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9}, * o: B y9 U5 a0 Z y' M( U
3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9, 7 w3 v2 l1 } C% f
3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9, - A! D) j O" X- p6 ^
3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
; q% r8 d% M8 Z4 `; x 3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
+ ]3 J) \" u5 k' F) |2 Z 3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
4 H \/ k- s+ W6 Z* | 3.577961904604212*^9}, 3.578012158671875*^9}]
/ q, ]& k1 R$ |9 Z: |# h/ p2 c}, Open ]],
- y! |0 w3 q" h X& ^& {( }: a; U* v* y: \& v. A' z" M$ r, U+ q. x7 U
Cell[BoxData[3 l2 z, c- n% j* W1 [. l0 Q, G
RowBox[{"For", "[", * t* o' j4 \# \8 E- a. H' A9 e9 Y }2 q
RowBox[{" m" D$ |4 t) O& e% I1 R7 f" W0 `
RowBox[{"i", "=", "1"}], ",",
6 V0 i. ]) B: e" i& U9 X) l RowBox[{"i", "\[LessEqual]", "9"}], ",",
2 O; ?( @1 |" d RowBox[{"i", "++"}], ",",
9 z( q, J4 r$ i RowBox[{1 M8 L8 b. v$ }5 L- g4 m( v9 Z1 A
RowBox[{"Ca", "[",
5 `. v2 o% I2 X8 T6 P; ~ RowBox[{"[", "i", "]"}], "]"}], "=", + ?7 b# {4 S! q: q: Q1 t
RowBox[{"CM", "[", 3 J/ F3 }9 q2 Z
RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input"," Q; W! @: F7 N& e" k2 ]7 B% m
CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
3 P" q0 U: W" p6 Y& G, s; | 3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9, 9 E2 b: _: W* g. S
3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9,
( V: x4 ]3 O2 u8 j/ L 3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9,
4 s; x& A9 J3 {" u3 r: y 3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9, - d& p& Z7 O( \0 o% A- Y
3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9,
, q, t* m" [9 r# A8 l9 B8 | 3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9, 8 N8 }% ?) b! w6 [. O0 M8 b3 D
3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
+ _8 \% B, P9 n( D* G0 U 3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
8 q# G7 j% Q4 A" z" W' C: r ` 3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9}, # n( }# Y3 O5 N* B2 r R, B, z, B
3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
/ p- r3 n! S: S6 C 3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9,
6 V; R/ o+ c+ ^) ?1 b 3.577961906897415*^9}, 3.578012176296875*^9}],( ~4 B' J* b/ ^1 w
6 t# ^0 B% @* h4 w* eCell[CellGroupData[{: u: c. z3 B+ R3 C! y+ A! N
/ x+ g6 g. J8 T$ O0 c. f
Cell[BoxData[
( ^* a$ ?4 l3 B# ~, Y RowBox[{
. ]; c( H5 P% E; m9 x# H4 v RowBox[{"(", - ^8 w$ b! t$ K
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
3 c! `) d5 ~7 n* B7 L RowBox[{"(", 5 [. X0 |" f! q' e( u3 G( D3 X& \
RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],
4 t, C; d( h7 |% ?- N& Z$ {) U# m: l0 `$ H/ f( ~# n% B
Cell[BoxData[
& R7 S, R5 Q+ q" i RowBox[{3 x& D c/ `: K& [
SuperscriptBox[
E2 J) S# }6 P, p" ?. k* { ` RowBox[{"(",
0 ^) V! `2 v- M, z RowBox[{
1 m" [3 S _$ i$ {; d# U8 V7 r RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+",
# d/ n# o! {% X t7 S SuperscriptBox[
/ u; z. j- g( u2 p8 b; G RowBox[{"(", 5 V) S9 p8 {0 F
RowBox[{
* T1 L: D# o) q$ H RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+", $ D8 n) n) [( G6 Q6 D' E9 ^0 H% w
SuperscriptBox[* R" {) V9 ?$ a/ c# D. v4 E( ~9 w; b
RowBox[{"(",
7 o) a/ Z* {/ A5 ~2 S$ P RowBox[{
1 ~0 f& E" T3 [ RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+", . l# T6 [8 Y9 P3 V0 J9 G
SuperscriptBox[
4 Q I8 B0 y0 g/ t- b; Z RowBox[{"(",
' K1 D% C, O2 l RowBox[{
, V0 a0 _" K0 R- X2 k RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+", ) Q8 J8 C7 R/ C& V2 c- K! W+ |2 ^, s
SuperscriptBox[
# K% ]7 B0 e) ^% q RowBox[{"(",
" |) u) k. k( Q1 E* t! b T: Y: x RowBox[{
p* o1 V* }$ m( M) y/ n RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+",
7 x1 |! {, [. B: R: v SuperscriptBox[
5 n8 r4 v* q, }5 Q, o RowBox[{"(",
5 c# K% B! @$ K. z$ j7 B RowBox[{% A7 {6 E1 R. W! Y
RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
4 Z* x! |) O; N g& \% v& d; N2 } SuperscriptBox[0 ^! ^7 W; Z/ b* a) }9 ]
RowBox[{"(",
% Y* O1 ?$ \) T+ P' Y$ t3 H6 S8 s RowBox[{( ]8 d9 @" K( n5 }; S# F
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+", 2 ^+ y+ a) a1 ] |8 T2 \, V
SuperscriptBox[5 o8 K( V, |" @. f8 F3 W/ T1 W
RowBox[{"(",
B0 w B; E" [- p9 {# q( O RowBox[{2 g: r; t1 _4 I* [1 g' w
RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+", / l2 y" B* W/ C! M
SuperscriptBox[8 Z& G. i9 R3 C, G
RowBox[{"(",
5 E3 m. {1 k1 a. y6 L RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",
, R) }5 O& X8 Q, }& `6 I7 T: T CellChangeTimes->{
3 f: v8 p# T' n0 t* [ 3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, # }( i5 \. s% e" x6 v
3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9,
0 a7 G, x$ O$ o( C' u0 J" p 3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9, 9 |) j! V" `6 K1 V4 a' V4 C( ?
3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9, $ F7 k$ f& @7 s- n
3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9}, - i, R K% I* }6 x6 ^( @2 F* Q+ a
3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,
+ u2 l8 @. E* G; v 3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
) O7 a* k2 C. ]8 u 3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
2 n+ \- i; j: Y3 o I# u; ] 3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {6 {3 z! s% B9 z* }
3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {
7 W# W7 e7 i7 r7 Y0 M O 3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9, 0 A# D9 J; h3 p
3.5779618537169228`*^9}, {3.5779618846049767`*^9,
3 Z' ~3 ^- U1 O8 w* C' v# I- Y 3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]# ], V* p& L0 I7 f
}, Open ]],
9 D; Y3 c1 l: S% A: m& i. v5 J% P( L3 f4 K$ Y# @
Cell[CellGroupData[{
0 B4 E6 C ^* s2 U" ?
; @, o. c! S5 y+ {5 HCell[BoxData[
7 V6 V5 E6 n- S r* @( k RowBox[{ T$ E, S/ p* [' N+ D/ N; [- Y+ _
RowBox[{"Ca", "[",
2 b) \' C- J) E RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",$ ]- Z" @( i, z( I1 x$ d
CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9, 0 u% c! y0 g2 [, ]4 k
3.5779616465173616`*^9}],6 i' C% G5 O0 G5 Y
3 A5 u9 I& ` t3 k6 q2 C |# U% `Cell[BoxData["0"], "Output",
. c; }1 P6 K% ~$ y( ^ CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
+ Z0 A$ c2 g! S 3.5779616484049644`*^9}]+ [6 `. J+ F& |$ B
}, Open ]],
9 r% W) u- p% y/ ~: O% _3 F9 ~9 X# W0 n( Q& q1 v6 k
Cell[CellGroupData[{
; \, G& v( Y8 R& L0 I7 _ \" B6 ^! C& F
Cell[BoxData[' \: Q$ O$ ^4 S4 `
RowBox[{
, d$ ?7 [2 @$ j4 n- e4 \ RowBox[{"Ca", "[", 6 ~$ B' ?1 |9 W$ L4 P+ Q
RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",
; V% [7 L$ O w" T }7 r CellChangeTimes->{3.577957376235614*^9}],
' Z4 ~! f4 U6 d$ c
- f* v6 K0 A) X5 U/ cCell[BoxData["0"], "Output",4 }5 r1 D: [' v: F( ^
CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]" d% ^6 S" L8 Y! _/ T: M
}, Open ]],
7 H* q9 E6 Y8 n0 A3 S9 G( m( W' h, [: x: \2 ^& V
Cell[CellGroupData[{# u! a7 D4 L4 i
/ ^( ^. d% d; H
Cell[BoxData[: r' o# o+ u8 l& D: z
RowBox[{( _9 G) I) s+ c* y/ l) N
RowBox[{"Ca", "[", . G( C! j$ N2 r P) f1 s
RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",% S4 F4 K# T& L7 P/ Q! J. j
CellChangeTimes->{3.5779573112927003`*^9}],- J# C. M5 h& p% X
1 r! U( V/ G8 j5 R1 e
Cell[BoxData["0"], "Output",& Z, Y) X4 u$ {; Z. v
CellChangeTimes->{
, b7 k5 a" g- T, s% N2 ^ 3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9, $ l6 ?" y/ @$ z @! S, [1 C
3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9, # U3 Z- A" T5 m9 ]- O/ |1 v3 j' e
3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9}, ' b3 j1 I7 r* {$ B6 H. u, t
3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,
- }6 b5 r5 B3 a: e- h" D 3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9},
; X) Z7 g7 c; m c 3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
) w% a1 G! k; a/ j1 b9 g}, Open ]],6 \: f& D% O7 A6 K
" L: _3 {( U2 E* P, P/ p$ _
Cell[CellGroupData[{: S$ i) Z% M/ x3 ^* z5 z) Z) l& I$ V
( x% Q( T5 g3 |/ o# Y+ l
Cell[BoxData[
( T) c& o9 u: i6 F% x1 F: W RowBox[{' X: z# a0 m' B* l
RowBox[{"Ca", "[",
. I6 ~$ F3 o: P7 H RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
/ E1 e. H( p" I8 Q0 h. W9 k CellChangeTimes->{3.577921461734375*^9}],9 }+ X: a3 ]5 W- z# J# s1 d3 o
' i0 D# ] f5 [1 O, F$ L
Cell[BoxData["0"], "Output",
" h9 s/ \" ~) o9 [; B CellChangeTimes->{
! P3 f2 ?, X& h: Y+ V 3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9, 6 g; S2 L4 J/ }1 ?9 G
3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9}, & m; K: D# o8 Y' k* _2 }
3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
8 W8 s% {; L2 D 3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9, 8 H8 x5 Q+ U! S/ A5 A0 g
3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]
, h7 \) C9 L$ `! {}, Open ]],: m+ L1 i T4 x6 m v' Y' B* V2 H
5 B: T) A+ b) _
Cell[CellGroupData[{. v1 a5 Y3 h6 d% J+ J. `) Z8 o& w
4 p5 ?& w$ V4 y% W
Cell[BoxData[8 V9 w6 ?) ?; E1 S
RowBox[{4 \8 Y4 [( Z6 U( a6 g( f
RowBox[{"Ca", "[", & {% |: ^1 n# t7 J! O; R! W
RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
* x' _2 C' Y: H! A, f, s CellChangeTimes->{3.577957303118286*^9}],6 w# D$ l! b4 N
4 g8 r% ?6 Y/ `
Cell[BoxData["0"], "Output",
1 Z; H" Y j. q1 N5 L7 y: K CellChangeTimes->{
4 v6 a5 L( k# a9 A 3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {
! H8 G7 [9 I+ |1 p8 [ 3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
$ \" B/ ~+ t7 g) J8 u( F! @: {0 z h% i 3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9, 9 d7 o2 X2 y5 w, b8 f8 V
3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,
% A, k* s5 I- y7 u 3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
) ^, e$ T8 K, t5 g: v7 c! v 3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
7 F$ D6 F! c/ h: ?- b 3.577961889378585*^9, 3.577961912965826*^9}}]3 N. @! d( z0 k" }" f- h& D1 \' }1 N
}, Open ]],
6 Z" E! x/ Q4 I. a+ p$ m/ y# p2 D; k
Cell[CellGroupData[{
) \, a. E6 k" Q7 [! n9 P6 @6 v# C7 Q% z) K) c1 a
Cell[BoxData[3 t5 k& Y3 |/ X8 O9 O
RowBox[{
; S# ?6 c( g0 V8 W6 u e" j4 y RowBox[{"Ca", "[", 7 g0 l0 E: y( ?$ ]% o" p- {
RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",
) H1 c6 i2 Z w8 x M CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, { B' Q, v" l% l7 j- Y3 e8 ?- n1 P
3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
- D. B9 u9 ~8 K6 K+ g 3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {
5 K6 c2 s, {, z) m 3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
' n! H$ @/ w8 Y 3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {
. ^$ U' q7 g5 N+ j9 W* Q 3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
0 _( R W A) S" D 3.577921435703125*^9}}],1 H) e& K+ g- |" G) I
+ H* f& m+ [; a/ r
Cell[BoxData["0"], "Output",. n' F) Q+ G1 c1 C
CellChangeTimes->{( [, W1 ^* \% i1 N
3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {
( j$ J8 q# S& p2 a0 B. r8 H 3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9, $ G$ Q* ?- d* p5 w( r) q8 x
3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {# S" P. p' B; P2 Q% y `# s
3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9, 7 y( i- }9 D+ t6 Q. T3 S
3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {
! y Y# V" R* O" q# B* X7 i5 _* r 3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9, 1 Y3 s9 u3 E6 D/ J. Q
3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
& l9 ^6 X3 Z' [* m' q1 J9 R! g 3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9, 8 {/ E% ?1 T+ j3 M0 G4 W6 n+ _
3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
# q& j7 a' m; o2 |) Y: y8 @8 i( r 3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
, g' h; h7 m& V0 L7 F7 ` 3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {# a* v7 N c# d; D; }
3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9, 4 E/ @4 N$ U- Q! n. M2 C; V
3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
; E) d* F3 D$ U8 G% b+ W! p) @}, Open ]],
0 k- Q6 U) m' o$ ?2 n) n' S, c7 y5 U- ~# u/ C! G
Cell[CellGroupData[{& [ @; P# [' w2 f. S) R
1 Z [, u# h* S4 o2 N- n
Cell[BoxData[
0 _4 z, X ^* z# q! N RowBox[{"Delta1", "=", 7 y; N6 Q/ {8 d6 A u. K, I b
RowBox[{
9 Y" z0 f8 @2 W4 p8 o% @) N7 U SubsuperscriptBox["\[Integral]", 1 u# j9 j" d+ h6 i0 e
RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], * k. h/ Q$ ]# j4 \
RowBox[{5 _. P* J7 e/ d7 J1 s2 p
SubsuperscriptBox["\[Integral]", ! ^+ N( O3 z5 Q0 m" W5 b j2 F' \1 H
RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
) W# g6 C9 |5 j' n; {/ ^" L: S RowBox[{/ c" X' p6 _1 `% J
SubsuperscriptBox["\[Integral]",
, q+ @+ F4 `+ H- C RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
7 G) Y& }0 C0 E5 p+ o RowBox[{& `/ u# h1 r7 ]1 L& @% O" a
SubsuperscriptBox["\[Integral]",
9 v; j; f }" y4 G. v* J RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
5 H: b% v- x$ P+ o% g9 m. P* ^# D RowBox[{# x8 e1 D( v, o, S6 I9 E. d3 Q4 Y: x7 ]
SubsuperscriptBox["\[Integral]",
/ S. V* A* ]' z RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
5 O/ r* @1 T( @! R8 \9 _/ v! L( k3 H RowBox[{
5 X! J3 L1 x2 u1 ?* | {9 |# c, M# U- D SubsuperscriptBox["\[Integral]", 1 [3 l0 P9 g5 o6 E3 \ t* D
RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
5 _# Z" J# c: e, c# a; \1 A RowBox[{
: `; U7 p9 I$ b$ k7 l SubsuperscriptBox["\[Integral]",
. C! \( t" r- b8 |. ^ RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], # t7 j7 z( g8 b W
RowBox[{
7 V7 w2 Z& n8 f, g2 }8 R" q7 u SubsuperscriptBox["\[Integral]", . V6 n) d8 b' f, m' q
RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
2 A& r! F7 _# b9 O( m7 U RowBox[{
/ g' I8 r6 d# `" Q3 E* X SubsuperscriptBox["\[Integral]", % L" k+ z' t r1 W% t8 I
RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], " X6 R1 R2 n7 U# l* P
RowBox[{
7 }" f$ R2 ]3 a& f G T. N RowBox[{"Exp", "[",
* n9 a+ W5 g. E( t8 ^+ V RowBox[{
3 [) H8 K) P/ h- C; o RowBox[{: ?" c" K! j/ R6 J+ F
RowBox[{"-",
h }; h* N, U, l1 N9 n RowBox[{ b* V3 t+ Q& }+ f( z f( _
RowBox[{"(", ! L) ?4 { m6 l, A) F
RowBox[{"Xa", "-", "Ca"}], ")"}], ".", % Z. }) _1 |7 b$ J- ] M
RowBox[{"(",
- @, K3 ]- C% M RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", 7 `0 d; E8 {! ?
"Delta"}], "]"}], : ?: r& N) s& \" E) p. k Q
RowBox[{"\[DifferentialD]", "x1"}],
2 w" w3 ?( ^/ [* A6 w! m RowBox[{"\[DifferentialD]", "x2"}], & @! L: ~8 P: c
RowBox[{"\[DifferentialD]", "x3"}], . M" B- k2 ^4 g/ n3 u( O( V
RowBox[{"\[DifferentialD]", "x4"}],
, ?# P7 f9 l$ O3 ^0 d RowBox[{"\[DifferentialD]", "x5"}],
1 `" ^- a/ O9 \" x* m, t" f2 p RowBox[{"\[DifferentialD]", "x6"}], 8 {9 k+ c& l" z* S! f
RowBox[{"\[DifferentialD]", "x7"}],
; c5 |3 Y4 s. h* I RowBox[{"\[DifferentialD]", "x8"}], 0 R: U! G7 h9 x* i6 O9 Y' D; M
RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
5 a- W( u2 C8 b: X CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {# a% T- ^, m6 L& \9 J
3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9,
! P2 `" |5 I2 H- }" z4 z 3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {
. h0 h5 B: `1 V; z. j 3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9, 3 s& {) f [' S6 P
3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {
$ v9 ] d5 D" O 3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9,
( Y |* T4 c J( V 3.577918964453125*^9}}],0 c; }- s8 s- X3 y0 A/ `
- Z9 w: o! V% k$ E. T
Cell[BoxData[
% T+ Z& `3 C: i" Y. p RowBox[{"97.40909103400237`", " ",
D5 H9 w* ~/ j% l4 j" N' e/ i* x SuperscriptBox["Delta", "8"], " ", 5 m* p( H6 u( _( J
RowBox[{"If", "[", ) B: N; e* p% Q1 ^4 V. i- _
RowBox[{8 `8 P3 R" t" d; e% P5 Q& W
RowBox[{
* u3 L3 O" ]1 f8 Y M+ i3 B$ j RowBox[{"Re", "[",
1 E0 w9 i6 L7 j- Q SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
2 H4 j) g l& L FractionBox[1 Z" M* k) W; G: V) h
RowBox[{"1.7724538509055159`", " ",
H' V' J+ l( Z6 }9 I SuperscriptBox["\[ExponentialE]", " r$ M' J3 ~! Y; X# {& {
FractionBox["1.1102230246251565`*^-16",
. r/ z9 S2 u6 A2 t SuperscriptBox["Delta", "2"]]]}],
% I* B" e1 L# R5 H SqrtBox[
+ K' s+ N6 m8 o* h9 g; R( N FractionBox["1", ) o- n5 s/ S" y; s# E
SuperscriptBox["Delta", "2"]]]], ",",
8 i% f! u; T5 k0 g* G RowBox[{"Integrate", "[",
/ ~. m2 [ T5 q$ H2 m% K RowBox[{! H4 ~/ V+ y4 M0 a4 _
SuperscriptBox["\[ExponentialE]",
, F% F4 i3 _7 K8 T( n FractionBox[
" D* n2 Z5 e' f RowBox[{"1.1102230246251565`*^-16", "-", 3 Z. r5 H8 b$ f! ?& p
RowBox[{"1.`", " ", . [5 P& a' X& \1 A$ f6 g- u5 l/ u
SuperscriptBox["x9", "2"]}]}],
7 `. ?( ~4 `2 F& b+ T6 ` SuperscriptBox["Delta", "2"]]], ",",
% ^/ }" M4 ?, z6 }" w6 d! x& x RowBox[{"{", * a7 ~1 {+ O7 h. R% Z* \
RowBox[{"x9", ",",
3 Y7 k5 c4 b) ~& t X RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
$ O) p( `1 K. q2 K2 R( k# i, v' U3 f RowBox[{"Assumptions", "\[Rule]", 4 p% z) N5 Z* M6 R- x8 o
RowBox[{7 [; }9 z) l' t
RowBox[{"Re", "[", 1 J% }1 S* r# u. k5 Z y
SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
r; s' r4 j+ y2 U/ v "]"}]}], "]"}]}]], "Output",' g G' G1 f, [. f
CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9, ! r) J' t" v" S7 G, ?2 M/ _( B
3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
- y/ c0 A- P4 g( b8 M 3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9, ' I* w* D" _6 J& h. W1 O' Q
3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9, ) Y. X+ c& T# o
3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
. y+ x# N6 t0 h+ i$ l 3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
% v B" ? f% o' w* c 3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]& z9 M- r/ A" ^
}, Open ]],/ I/ l+ O( l& m; H P
$ F- l- F1 Q( b ?6 VCell[CellGroupData[{
; s7 y. L; |" c6 r; @0 I# w. t+ y" L6 n; Y
Cell[BoxData[( R- z7 u6 l+ X: W7 ?- ~
RowBox[{"Delta1", "=",
( l* ?" W$ n! u5 i+ ]* t# T StyleBox[
5 W {& I, K1 \, ]$ d! J& I( q0 y, A RowBox[{"97.40909103400237`", " ", - L1 Q4 i* f- U; E( y) g
SuperscriptBox["Delta", "8"], " ", ( f, o" B6 e: L5 G/ e9 o& T# q
FractionBox[
, O& f/ Z0 F5 N, \8 w4 p RowBox[{"1.7724538509055159`", " ", `" D$ v7 Z- D- Q# P1 G
SuperscriptBox["\[ExponentialE]", # [1 x; |* ~, S- s% Q8 E
FractionBox["1.1102230246251565`*^-16", * q3 m+ C' ^% ]$ X3 K2 I
SuperscriptBox["Delta", "2"]]]}],
0 E9 h8 x' r) L) w M7 v" n SqrtBox[& e; O3 o* H& k0 E( O
FractionBox["1",
5 W; B) D) F# D0 W) V) v3 ~ SuperscriptBox["Delta", "2"]]]]}],6 @ k- G' q3 M0 T
FontWeight->"Plain"]}]], "Input",( {. r8 c! s& L( F( V( T
CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {* a. ^- A+ ~" w F* b" n
3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9, 2 ^8 N' G5 m- T5 n: h' \( V$ ]
3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
! e8 [0 X8 f* v$ C' ] 3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
& }( ?9 j m7 W, L* b 3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},
6 ^1 B r8 L* T4 z ^, C 3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],$ M8 a# P, [9 |& o; |
. r; L V- V$ N0 gCell[BoxData[
0 S; e6 R" h+ R+ C6 f FractionBox[& M/ w a) u0 v; g4 U# p/ ^( Y
RowBox[{"172.65311851642346`", " ", " p* g7 y- v: [- K" T
SuperscriptBox["Delta", "8"], " ",
8 L3 G% Q1 c4 A7 O c: Z) X SuperscriptBox["\[ExponentialE]", ; W& m* B4 F$ R
FractionBox["1.1102230246251565`*^-16",
8 ?1 {7 \$ m0 X* l5 o9 p4 b SuperscriptBox["Delta", "2"]]]}],
4 A e! F- p" a$ i6 B8 g SqrtBox[
& r% |- t8 W: l; B# V FractionBox["1", * o- i; V" u* T9 ^( E! M
SuperscriptBox["Delta", "2"]]]]], "Output",1 |# h# y# ?: |9 J) B0 ?
CellChangeTimes->{! s K/ ]9 P9 B% a/ A# M* h; } J
3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9, 3 n; S0 D. J% q3 d6 |: h
3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9, / O/ ~ o( X6 q1 E3 S' |
3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
1 H2 W7 @8 n/ i7 `+ W3 W+ c. N 3.578012166234375*^9}]! q& B: C9 r* M" J
}, Open ]],. h$ Z& {' V; ^* T: J) L
4 T! q/ ?" T' f" w) W$ ~
Cell[CellGroupData[{# H3 @' S: u( i( V
8 d+ c# ?" W& }! J* y3 ]/ KCell[BoxData[
) d8 T; b3 ]! F, o) E9 A RowBox[{"DeltaX", "=", # D. Q7 b& l6 d$ ~ {
RowBox[{"FindRoot", "[", ( T: |' j0 I5 `
RowBox[{" N2 w5 |' N/ z7 A2 Y1 l. }
RowBox[{"Delta1", "\[Equal]", "1"}], ",", 0 z/ K' ]1 s' \9 l* M+ @; x
RowBox[{"{", 8 s ]/ P+ x s# t
RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",
" a- _1 W+ C+ X _! N4 x; L CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {
% K9 j- d, v$ y& J3 Q& N 3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9,
5 T% e1 B# f2 K+ {" l3 Q: J2 r4 ^# ~" Z 3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9,
- B p3 P3 \, @9 h 3.57791921584375*^9}}],$ B7 f8 B3 h' _
. k8 w: z- z% Y, A! H; _
Cell[BoxData[% X/ H5 T2 ]0 a/ O4 O, C2 b
RowBox[{"{", & u8 S+ a" u/ P S
RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",* g: B: P7 R/ Y2 v
CellChangeTimes->{
1 s6 r X$ H9 R9 P0 {& E 3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
: i, X4 \ m7 v# D 3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9, * z; B9 ~; E/ [; w- S- Y' w1 {3 p+ q2 k
3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
) ]& k9 u$ z9 ^$ ?% K 3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9, 9 W, | c2 e7 o
3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {$ @: m7 F* M$ G/ _1 ?
3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9,
9 G) Y. B2 t M6 @4 }' u; d3 w 3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9, 4 |9 _$ ~3 S9 Q; X: M6 m6 g
3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9, . K5 n: T" w8 ]! {
3.57796070150625*^9, 3.578012167703125*^9}]' U' N" _0 K8 _3 X3 e
}, Open ]],
9 L8 x4 j7 k& _/ Y6 q) u) u. s3 W4 y* H" Y* w L! k
Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\* }* e$ i% A; C* G" w
\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
) f8 q$ @) }8 C8 w2 X0 U* r2 x CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
+ \! N& A* ]0 Y. t) x8 L8 D 3.577960705312657*^9, 3.577960707621461*^9}}],
; x4 Z% l$ V1 _5 b( K2 e) J( y+ K! w/ q3 r2 z4 m9 r7 P2 j
Cell[CellGroupData[{$ m4 V$ D0 s6 z8 i
: K3 |4 B$ N! r: ~ W3 }- P
Cell[BoxData[8 ?* R3 t) t5 O6 p
RowBox[{"C1", "=", "Ca"}]], "Input",* E) P! W8 o# R9 j
CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],
$ y- i$ }& y8 P6 @: |7 w! @% W" t0 p
Cell[BoxData[
9 |; G$ r7 L$ j RowBox[{"{",
6 W0 f! a1 h" R% o RowBox[{) ?& h+ Q- l7 L. I# ^/ M* l
"0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", % P! C$ {# i6 A
"0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",", 8 l3 z( \: x9 \6 `3 h
"0.`"}], "}"}]], "Output",1 T" J* u8 p1 W$ f3 x# T, M; Y5 A2 k
CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9, 6 Q* X/ ?0 X: U" M1 ?- c _! ~
3.577960710273465*^9, 3.5780121855*^9}]% l5 z& q: d$ g. K5 A. F
}, Open ]],5 o2 s, j" U( F [. c
' N6 v! i8 v+ Q& I0 bCell[CellGroupData[{9 h, b) X" X0 N z# F3 x6 x2 r
) T/ F2 v2 H- g2 Q; L6 yCell[BoxData[
* o4 L. B$ A2 Q5 U' D RowBox[{"u1", "=", - q2 S t5 w' c$ |, E
RowBox[{
; I) \, e8 @5 q( e, f( t RowBox[{"Exp", "[",
0 G5 W: \5 E9 F) E- Z9 i- p RowBox[{4 y( W4 M6 r# {3 D
RowBox[{
$ ?5 B7 o2 A& `6 C7 t! l' T RowBox[{"-", - D$ L. I) ?4 y; i; P
RowBox[{
7 j6 G& V. X# U/ X W+ D2 ?- F' C$ L RowBox[{"(", # u7 u( @0 w6 Q* Y+ ?
RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 7 _6 s7 d3 X1 n8 G. }, n
RowBox[{"(",
0 Z; L( Z% ?; e' T9 I RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],0 n6 S; n! z" I
"]"}], "/.", "DeltaX"}]}]], "Input",
* ?2 F, R5 C( }, q; o$ J$ e CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {
- s0 X; M5 k0 O3 h6 ]4 Q 3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {4 ~; r9 w" P# I& D' S$ q- H8 M( f
3.577919193484375*^9, 3.5779192326875*^9}}],
7 W0 p4 t8 B- s6 p
3 ]7 v4 }% Z) H9 ^Cell[BoxData[
U$ y6 Z6 P$ x: t SuperscriptBox["\[ExponentialE]",
! W! ^$ a; q* | [% D RowBox[{"3.141592653589793`", " ", 7 ^/ I* a v) v% H' b; h4 _
RowBox[{"(",
" f; W! ?; q2 ~$ K/ b RowBox[{
6 y6 y0 j# H# c* _" L RowBox[{"-",
+ u$ l/ U/ B; Y e, o2 t( t/ u SuperscriptBox[8 h- `5 M- Q+ W8 C; o9 ? B
RowBox[{"(", 2 y0 z" L; }6 E2 d, L/ [) O6 [( f3 l( y
RowBox[{
( J; H! d; C) x: @ RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", 3 @5 h+ o! Y2 v4 D0 r% ]+ R* Y, l5 o
SuperscriptBox[ j' z/ V. }0 r
RowBox[{"(", - R6 W4 O" r1 H( U
RowBox[{
# W, ~ L; h) \% ]* T1 a- O) y5 z RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", 8 w3 q: O2 U' j( o: b- Q
SuperscriptBox[
$ P3 D& z- {: j1 g5 s RowBox[{"(", 1 ]; R' X/ j' v* J
RowBox[{! I9 O& U8 Z! C+ y/ }
RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", - X; V' |! ^; p) P- m6 p
SuperscriptBox[" y5 k/ q: H+ M! ~
RowBox[{"(",
+ N; O) N0 K7 X' |+ K RowBox[{2 ]6 c$ h, G( |8 F
RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
2 h) p9 t. M Z; J* `" X2 o4 f SuperscriptBox[' B8 z5 d( [; z/ O, F) J! Q) a
RowBox[{"(", 7 S3 k* j* }, f
RowBox[{
) D+ s W! {0 c RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-", . ~; C3 G0 x' ^6 X5 g
SuperscriptBox[: y, u* M, A6 Y/ ?' m
RowBox[{"(",
) {$ Z' _5 D+ [) V RowBox[{4 S4 h8 e: q& i# B
RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
% G9 b5 J% x/ K- T$ n: T3 A SuperscriptBox[6 {: `6 B+ o5 V( I1 X( L1 z! d
RowBox[{"(",
9 |: v/ `2 ~1 P/ `" |2 f) m5 C9 V RowBox[{9 Z# C! |, }! B
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
( }# I' c; M! j$ B SuperscriptBox[2 u! V$ T8 K6 W* i: F0 b: K1 I5 [
RowBox[{"(", : g( D# v) H* `) v/ k
RowBox[{( c* j! T. k1 H6 X3 L/ U! M! P! X
RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", 4 p* c% \$ c, k$ n
SuperscriptBox[
' O& `$ j; W1 B$ H RowBox[{"(",
$ O; ?- y8 @: D2 s$ c/ N1 V RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], $ k, n9 m |. {" R
")"}]}]]], "Output",5 j* ~' d3 x: n4 a( U
CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
$ a. e5 Y4 L2 K2 c3 t, v 3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9, 3 \+ `( K# k- K+ H( g1 Q6 ?- v
3.578012187078125*^9}]
4 I; ?+ `6 P2 B$ I5 D# ?}, Open ]],
* Z4 e1 {# w! s
' g9 E5 x2 A0 v5 |Cell[CellGroupData[{
# y: t) C r% t1 `
: B2 G4 B+ K3 {+ `Cell[BoxData[
- H% |5 P, t* v- U9 M7 d RowBox[{"C2", "=", "Ca"}]], "Input",6 {9 M5 u) |6 I/ F) d& K2 e
CellChangeTimes->{3.57792047321875*^9}],; B8 r& P9 m# G) ~. R! O: T
1 l: ]. p# h9 s$ W. a7 gCell[BoxData[( G# W+ q+ G3 |
RowBox[{"{",
3 Q8 w1 n( [# o5 Z- H RowBox[{! [3 W' n3 a1 q, C/ J- ?) S+ }
"0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",", 7 Q, c5 `, m6 ~! H1 \% ]
"0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}], 5 z4 p/ @$ Z# r3 P6 }
"}"}]], "Output",
- ~+ D- F Z" O* Q" a: x( E- p CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
2 i& ]+ `' D" l; q; \ 3.5779607401163173`*^9, 3.578012204671875*^9}]1 `2 C# ~) B. \9 ^! x! \
}, Open ]],* f5 ~. f: G7 y4 J p8 O4 k
; {) W/ L% ~3 ~% c0 q, G
Cell[CellGroupData[{% N4 I5 ^+ R% u. e9 {
% A( F8 H" T. HCell[BoxData[" Q+ C1 w. `. y1 o; C2 A9 |; F
RowBox[{"u2", "=",
: }2 _, ~/ l; q8 A) b; o$ Y RowBox[{; U' Z) E. }9 Q5 Y3 e
RowBox[{"Exp", "[",
% V. e! F0 o: A RowBox[{
- E/ Y9 {+ r1 ^ G0 \ RowBox[{/ X2 T* ]1 P6 \, W& j% d
RowBox[{"-", 7 v3 d( L( d) j
RowBox[{" E0 |! [: {* B
RowBox[{"(",
4 O/ [" U% {/ v RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
3 Z/ v* m8 ^8 A' \7 e& B RowBox[{"(", , q. t' U: S! B. D3 R" G
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}]," W. x- Y/ v5 d6 L! o0 S" L; ]
"]"}], "/.", "DeltaX"}]}]], "Input",
# i* y' M3 f5 K/ r0 R/ S CellChangeTimes->{3.577920484109375*^9}],
o6 `) S! |- o% t7 v" ?6 ^ i/ I* @* X
Cell[BoxData[
. B3 Z5 L" ?3 r# F" `( ? SuperscriptBox["\[ExponentialE]",
" M, @$ I6 m/ h# I! F- R8 {4 x, ? RowBox[{"3.141592653589793`", " ",
5 o, k2 ^2 w5 O- g/ |; d0 P* ] RowBox[{"(", # c: v& g8 v+ c' E) w
RowBox[{
) X' z" g5 G( b, P RowBox[{"-", 1 F7 K. J( Z/ _. h- g
SuperscriptBox[/ ?7 K N. m2 N) H# u' `
RowBox[{"(",
& C5 n! @2 M1 ?5 Q) a% q+ } RowBox[{2 W: k+ d# x1 Y- f T2 ^
RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", # b) m$ K; W$ t& M
SuperscriptBox[7 p; U6 h9 m3 N3 [: k
RowBox[{"(", ; D2 F9 V9 a/ x& B% t: X
RowBox[{% X. E* I. i' r( h p# m
RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
a6 @2 m$ w* m/ a5 O& l SuperscriptBox[
O7 S' S4 X7 x6 B) E RowBox[{"(", ' u* @1 Y( { s* g3 L Y
RowBox[{
4 G5 L3 c# ~6 @+ a RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", 2 \# k6 I# r0 W
SuperscriptBox[
0 _( B: q: B" c# w" Q, X0 c RowBox[{"(", ' M( @* {9 l! R9 x* ~# y0 S
RowBox[{9 ]% }1 q: O+ J! d, e3 |
RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
3 X3 |8 B. l% u' [9 M2 O SuperscriptBox[& w9 V' L9 Y% C- [. c4 y* Y' M
RowBox[{"(", " v( C9 v M$ {! [$ Q
RowBox[{
% \( m4 s! M& u* Y9 S q RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
9 _1 ?/ D+ O- J a7 s SuperscriptBox[ G1 Z9 i% Y" i2 M" m
RowBox[{"(", + ^& B: V; i1 X$ j. g* v/ P% D$ Z
RowBox[{
) O4 t! @$ b- v6 o RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", % t* k6 y" Y1 l
SuperscriptBox[
6 `! Q, `8 f4 x2 x j8 ~ RowBox[{"(",
) f) s! `5 T' ^' w RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
' {, u7 g/ {* m, c- l SuperscriptBox[
: U w8 `, r& U* p2 h6 ] RowBox[{"(", 1 S. ^# T0 _2 z2 f8 }
RowBox[{
* \/ T+ l1 _, r% H% d+ Y8 I3 \) o/ X RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", 8 X& h6 }+ ?' v+ p0 t0 _/ n% G
SuperscriptBox[
9 S1 v; P+ N' ?% _ RowBox[{"(", 9 a8 `: X, ]; F# H' ?0 z# x* N- B
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], $ J5 O. @( l p1 O9 i
")"}]}]]], "Output",6 d2 [, o9 J- [) W
CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
9 Z8 b$ b8 D8 `1 U 3.5779607413955193`*^9, 3.578012205484375*^9}]
`* V) R, w1 O* j, F2 o) i}, Open ]],4 [9 x: x. ? i6 H" K# y- V
r# h3 y1 j% X) M7 d7 SCell[CellGroupData[{
/ E% @* M4 e9 h6 p% G9 t* I8 x. X3 |% Q2 l7 I5 d
Cell[BoxData[
# _% o7 r. p; i, a7 \ RowBox[{"C3", "=", "Ca"}]], "Input",
9 x( O6 ~. }8 F CellChangeTimes->{3.57792064125*^9}],
' n6 u9 O' I) n/ P5 s* |4 h1 d1 `/ U- O2 W) q8 ^
Cell[BoxData[
- s" b0 r6 M% _$ y" U2 |# \ RowBox[{"{", , e2 \4 q2 R% G$ t# ~. ~+ i0 N
RowBox[{0 u4 F) R7 t5 [7 v; c* j3 d: }- ?7 c4 }# D
"0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
" N2 l2 v! w; o4 ]% l "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
4 L' ?: l8 x& b S4 O0 T+ C "}"}]], "Output",
4 _& {% q4 q3 \. P# W3 m CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
& Q# Z$ s2 |+ C2 z1 s) |+ w7 e 3.5779607642027593`*^9, 3.5780122103125*^9}]
4 O" S2 ?3 T+ i0 n4 d% b}, Open ]],1 F1 D: I' x$ n0 A" U4 N- ~
( a f$ s% K, v/ h4 Q, h' BCell[CellGroupData[{. x4 o7 k. w( ?( O" G' L
' H8 a+ p* N$ c+ iCell[BoxData[
2 ?6 h( m- |! i/ G RowBox[{"u3", "=",
% g) A. ~* {# Z$ s' S RowBox[{
) e, C: [' Q1 E" u RowBox[{"Exp", "[",
6 r1 S; I3 A* x/ Q4 p+ ~( L- | RowBox[{: @' l" M! |% \/ O5 R/ s
RowBox[{
+ @- k$ n$ ~ `6 t- A( B/ C RowBox[{"-",
. f; _5 `' R, F% M1 g2 x RowBox[{! m7 S* a# Q: m; V/ z
RowBox[{"(", " w+ E3 h$ K& V* z% Z% E
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
. s" u( S* g9 ?4 n- d5 K* W1 | RowBox[{"(", " K# C8 U" G: w+ ?
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
" W6 j C* s9 l! ~/ C/ d; \, X "]"}], "/.", "DeltaX"}]}]], "Input",
( O0 m5 z1 c g. S CellChangeTimes->{3.57792064921875*^9}], E' Y6 ~4 _; u
$ ~* m# Y) h3 T% ], B7 K$ l5 L
Cell[BoxData[
( Z4 V u. u; h; Y& s" K% K% c SuperscriptBox["\[ExponentialE]", . ], K9 v- W E5 r" u. p
RowBox[{"3.141592653589793`", " ", " D, [8 ?, R4 L8 c' X
RowBox[{"(",
) ?- Q7 x1 o. O; l3 [ RowBox[{( I6 X5 ~8 o2 g! F
RowBox[{"-",
% m# D5 r* G+ h1 }6 L* g SuperscriptBox[% ?# _1 K; B5 B; p) i
RowBox[{"(",
" v0 k8 {* C" c( h# N; T4 I) I) ^ RowBox[{
0 l) C1 }) x9 y4 |9 X V5 r RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", * q# h' }' P6 Y$ U% B3 j- @
SuperscriptBox[) b% ~8 X, Q8 w0 `) C. |
RowBox[{"(", 6 ?( z. H+ W6 ?& z, s7 L+ W- x
RowBox[{
+ V) G: h. M `8 t) Q$ L RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
$ O( B* z- B& ]7 ]- K SuperscriptBox[
: E. U9 y U0 k* G' W+ h4 P RowBox[{"(", 4 @& ~! z- L7 Y9 l) x" X
RowBox[{
* A' A$ U9 d% x9 r1 z) f RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
3 D0 U" [; k/ z SuperscriptBox[
8 `( w9 j& k' [9 c$ W" } RowBox[{"(",
/ A `( ~ ]3 y" M$ F, \. D @ RowBox[{: c$ w4 l5 T/ A0 B% @
RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
' S4 P5 b8 Q5 g& L6 }- }) k8 X SuperscriptBox[
' O. m, ~7 j2 _( A% V RowBox[{"(", $ V# @0 h4 p6 z% B0 ~/ ]& L
RowBox[{9 N; k) k' f* M/ [, n U8 ?
RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-", C x& y; r" g4 ^8 b& ]6 E4 n, E2 `
SuperscriptBox[
9 R5 d' E5 |! H3 v# D; F- S RowBox[{"(", ! V. D2 b; ^4 A1 u
RowBox[{8 {3 n, g) c+ `; f2 q% _0 o: S3 r
RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
: _% q j( S7 W- |2 v SuperscriptBox[
3 n. L( {$ N/ f& o/ J6 `) S RowBox[{"(", 1 E& L: O- M" _+ Q7 Z& y# I
RowBox[{
! u+ U3 Y2 L/ h6 c8 e0 } RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", 6 C* `4 [5 U# @
SuperscriptBox[
3 q9 F/ v6 j/ _* p RowBox[{"(", 5 X5 n- M1 s/ K1 A- b; J" K# | \3 S
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
+ U8 {4 x8 p) u# Z8 K3 x SuperscriptBox[
( |0 g. r1 e t( p* Y7 s( t RowBox[{"(", 5 Z7 n* `$ f0 }* U# H
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], a% I7 _5 Z7 x1 b% C
")"}]}]]], "Output",
2 u; ~0 a6 a' D1 v3 t CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9, 0 K! r& E: O* Y# Y4 Q- ]6 D. X
3.5779607654819613`*^9, 3.578012211515625*^9}]: E8 M1 b& u4 M" |, E# {
}, Open ]],! t8 |+ a0 L r7 P5 d; O5 I
% P# L* k$ J5 P* |' M6 ~, ^Cell[CellGroupData[{
/ Y( z* Z/ Q! d: ~1 l6 R6 W' J9 }# @9 j; |
Cell[BoxData[ f( i6 b9 D7 k7 u. _* U7 L$ s
RowBox[{"C4", "=", "Ca"}]], "Input",
- D: G" e( X% |* q+ G; S CellChangeTimes->{3.5779207559375*^9}],. {7 R. I& X. ?0 B* @5 L
/ P8 V) _. m, k9 M8 @. ACell[BoxData[
: @7 p8 G* C, e! s2 p$ U RowBox[{"{", # A* c Q6 j; \9 o4 k# ~, q( ]7 \
RowBox[{
8 _% T5 v9 r9 z# K5 B "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
) k/ h) t. b! q5 O$ D# `& v "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], & W1 q3 e" F$ n% e8 p% k8 c
"}"}]], "Output",2 y+ {( @8 s; z
CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9, # w: j) n+ O9 I) t
3.5779607861363974`*^9, 3.578012216171875*^9}]+ w7 K6 M+ D' M/ v6 r1 r8 G1 A
}, Open ]],& Q, c7 W. G- X, L" ~. i- f" T
* k; ^' j5 v; m4 R; [: FCell[CellGroupData[{
2 c! R3 ?' H5 j0 z
! L* {! t2 P3 s+ Z+ z& o$ sCell[BoxData[/ s3 W8 E& N. A, c
RowBox[{"u4", "=", ; u: Y8 H/ w# T9 d5 }
RowBox[{
1 L7 a" Z& u3 F RowBox[{"Exp", "[",
+ l/ V4 F8 g( o! ?( M RowBox[{
8 a6 F$ _ o% h RowBox[{
1 l8 M2 R* U, s. S" L' n RowBox[{"-", 0 {* u1 j- f* ~0 f Q3 @
RowBox[{) r% \" L/ j. U. K
RowBox[{"(",
; {# a, m9 ?9 J1 j5 B RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
, K! U& D7 V( f$ m7 I RowBox[{"(",
& Z) |. |% C: A' x RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
1 ]1 R& l9 B4 L8 ^0 r X "]"}], "/.", "DeltaX"}]}]], "Input",. o+ D) [; ~7 b8 l
CellChangeTimes->{3.57792076325*^9}],
" R, R# M% T8 c& N0 G4 c$ _0 ]) I; c d6 f
Cell[BoxData[% Z# P% v# N& t. R, X1 S
SuperscriptBox["\[ExponentialE]", 2 Y% R! d& P( o* m
RowBox[{"3.141592653589793`", " ", B: o, s, ~7 q% d
RowBox[{"(",
, ~! N" n& \7 h1 _/ z/ m# E RowBox[{" W5 f& ?: C+ X. A+ ?' Z
RowBox[{"-", 2 [' N! j0 K" O! `0 Y1 e
SuperscriptBox[
+ W8 I+ k4 H4 x; i$ Y! h RowBox[{"(", . s4 ~, d& Z& v6 O$ c
RowBox[{
: O, A# t K. K+ B2 b# d$ V6 [/ d RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
! k- n' Q L/ P6 E" R& n' d SuperscriptBox[. H2 i" J8 [/ P. N0 c
RowBox[{"(",
3 y$ }+ ?9 |2 n. `# C' _ RowBox[{* r& s0 q9 N# T5 j# D
RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
: Q! p2 C2 {, a1 Y9 k3 N% W SuperscriptBox[# C6 u$ m, ^5 |. T
RowBox[{"(",
- e) X3 f+ ^* _' o! d4 } RowBox[{. Q4 c* [6 U3 l8 f
RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
1 r8 C |' O4 c1 z6 s; ` SuperscriptBox[8 O7 ^- Q# M8 P" b4 t* x- p8 G
RowBox[{"(", 9 E) W) X7 }4 \, {
RowBox[{
0 g( x2 w4 e8 Y: K0 F1 |2 @ RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", 8 h$ b7 q$ u" ]$ M
SuperscriptBox[) c% ?$ R: D; |0 j
RowBox[{"(",
$ j9 K% K, v1 o4 \% R+ H7 s2 h RowBox[{" d( \8 Q7 B2 U- @2 ~* n
RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", 1 ^% p7 _( [& v( H+ T F) E7 L
SuperscriptBox[
c) m) n0 Z, r3 O; n# r RowBox[{"(", ' S5 S4 R! [2 W5 |, c* ^. B
RowBox[{
* J t, U6 n7 h0 K& K( H% | RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
! V/ X: f8 [6 y, z& F7 a4 M4 z) O SuperscriptBox[
1 M* Y. @9 y2 n' P RowBox[{"(",
) I a3 o# C& V- `; j RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
& z6 O$ \6 v) |$ J, B; c8 |6 t SuperscriptBox[
9 E4 E/ Q/ \+ l9 F. P# N RowBox[{"(", 5 x( \4 v2 Y6 J) I6 A: g9 j! e
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
5 z1 F6 m( l3 w7 n8 _, N, Y1 P SuperscriptBox[
; J; o- F9 @3 p RowBox[{"(", ; z# S, ^+ Q; @) Q: ]' b
RowBox[{
9 v* I# X/ Y& h, ]* j RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}],
) F2 h# E4 A1 l% a ")"}]}]]], "Output",% R5 L' H. ^% `/ w0 _, ?5 ~
CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,
, q# h/ y* P6 Y r 3.5779607873531995`*^9, 3.5780122169375*^9}]9 S5 \ z( L1 @1 ?+ Q
}, Open ]],1 }8 T6 t, u* q, K. q" i$ Z
" Z- C) \0 }3 j. D
Cell[CellGroupData[{
0 _! C E0 u! M: a! L3 G! o- R& i( z+ ~
Cell[BoxData[
4 j( u% @9 w9 [+ N, k7 U RowBox[{"C5", "=", "Ca"}]], "Input",
) t6 U, ~# K3 G: J# z CellChangeTimes->{3.577920860671875*^9}],
5 G5 c. H* F1 Y8 N; m( @$ {+ C+ W7 D4 F# v
Cell[BoxData[
* |, @2 i& v; L- \: { RowBox[{"{", 9 a( A8 Q1 u3 _' A9 v8 v6 b5 M3 m
RowBox[{
$ m. S6 Z' E" b6 B "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
/ L( W+ ]6 k* J9 i "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],
0 ]5 ~ |8 ]) D "}"}]], "Output",; r: P) w# m. m, \$ V9 q- m
CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9, : h; M1 ]( W3 e, `' r
3.5779608137328453`*^9, 3.5780122209375*^9}]
! A# Y- V' c0 I p4 D6 v9 V: ]1 n}, Open ]],
3 a' n- X* N' l' L3 u% B2 M' i9 \6 \" b& k7 {( n
Cell[CellGroupData[{3 z, a' b2 z5 Y0 ?# R. A9 C
7 Y& t6 U1 v5 o* L* FCell[BoxData[' |, S; t/ J$ z" y% M, J& L
RowBox[{"u5", "=",
. W4 I9 o. f0 x* A6 P RowBox[{ F1 S# f6 R9 S
RowBox[{"Exp", "[", - o$ `% `% m/ R
RowBox[{
1 N! n/ w: f7 `7 J) y8 } RowBox[{
/ r2 b: }8 i# t RowBox[{"-", u3 K% i, R5 s9 v5 s$ {
RowBox[{
# t/ Y# E6 T0 x9 f: V RowBox[{"(", ) B: H* f" t/ f+ b F3 X& S0 z
RowBox[{"Xa", "-", "Ca"}], ")"}], ".", Y7 F1 k- h/ Z7 Y$ g
RowBox[{"(",
/ I! G1 X* T3 a* l5 E RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
! T& g- G: f5 S1 B "]"}], "/.", "DeltaX"}]}]], "Input",; A" M- `$ }( }: _/ ?2 M
CellChangeTimes->{3.577920869375*^9}],9 ~8 v7 V% Z& k2 u0 w6 ]
1 x5 h- t: O& ^! n; N( k kCell[BoxData[( ?" d l% ?' f5 f& L( u
SuperscriptBox["\[ExponentialE]", 0 S O' ~ p& h+ D% y0 a$ _2 u
RowBox[{"3.141592653589793`", " ",
4 @" [! ^2 a7 [4 t: e8 W RowBox[{"(", 6 F- @0 J7 J" z" q2 o( Q `+ L
RowBox[{, k9 F2 a) o! S$ D n# N
RowBox[{"-",
3 c) d3 g) z3 |! I. @ SuperscriptBox[
- u3 p! W' D( z7 W RowBox[{"(",
3 s' P+ ~! N- r8 |+ |* N2 P RowBox[{
+ Q. q/ q l4 _: \/ k) K1 Z RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", ) M8 k2 c1 m2 y
SuperscriptBox[
& `$ E6 V+ _* Y5 s+ W RowBox[{"(",
5 W: G3 B2 A& v) T6 e, U RowBox[{
- c8 @7 z+ h7 a0 d j RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
% ^7 d8 Z* v$ G* ^) P. X# H/ e' n SuperscriptBox[$ @* B. z+ _, J$ F' `
RowBox[{"(",
5 n% L N) C% e7 k RowBox[{( J; F) k1 z+ E- K% c# J( ]% I ]4 y
RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", 4 l4 P' B0 F/ q; e
SuperscriptBox[
2 I2 w9 |; ?& Z& Q4 z6 Z RowBox[{"(",
' j" s# P/ d+ N RowBox[{" \: q# T# | D
RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
( [6 X I+ f x- V0 O: z5 F2 ` SuperscriptBox[9 g7 P; g( I5 N' e$ `
RowBox[{"(",
# G# [% n( d+ ~ RowBox[{% J8 V8 ]' E3 Y. Y4 S2 d: O# b4 J
RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", - x9 }, a; b5 P6 W4 \ l5 A$ @4 B
SuperscriptBox[
% F+ u5 Q- r- h5 l6 w RowBox[{"(", 2 P9 Y, d' `- `, H# v/ d
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
5 P$ n, c4 v0 k( K8 p: E SuperscriptBox[
- z; y2 s! S3 N- ~0 C" p- `" Y! d RowBox[{"(",
# m% T, h6 O2 K% R" E8 Y RowBox[{
+ _: N; i2 [: m' O RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", ( W9 V8 K, `! i. X0 Q
SuperscriptBox[
6 @# |: s$ i1 ]7 t' R" | RowBox[{"(", . J8 Y7 C1 m2 t5 z% @2 H5 K
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
0 v' |# g* s- F- b% k" l4 _9 M; | SuperscriptBox[- ]6 m8 R2 j8 R% k8 z7 z" J
RowBox[{"(",
; }. N g) ^. y b RowBox[{" @3 K! f* G" a
RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
* f# y1 M$ F2 |# K: `% c ")"}]}]]], "Output",
6 B& k! g# V- L3 u* |7 k/ r! i CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9, ( V' _7 I$ `: n, T, ^: ?$ n
3.577960815043248*^9, 3.578012221953125*^9}]9 S: h5 |4 M7 ?2 j
}, Open ]],
1 R( l: @) d7 a4 o
9 B1 x' P9 }& l& K* jCell[CellGroupData[{
1 D- O v) N r+ g$ r% g9 l* H7 \' C" J) f, Z; w9 N
Cell[BoxData[# N8 J6 k; d% Q2 l. W
RowBox[{"C6", "=", "Ca"}]], "Input",- L5 p5 g( U5 W2 y0 x" T
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],
: ^6 G4 C1 L6 u* `' h6 y7 K' |+ m& Z# `# {5 ]. v
Cell[BoxData[: G" Y- j4 B( o2 k- X$ F
RowBox[{"{", + F9 h9 r) v. L! o
RowBox[{: i# u% B' R. h' R5 j9 f6 i' F& w
"0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",", / }. } ]2 B; k$ }/ r9 V
"0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
4 V5 v, W* G7 V- d "0.494866`"}], "}"}]], "Output",
. O: S8 x4 y/ z, _ CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,, _& U o# A- L* h6 I8 Z* ?/ t3 X
3.5779608373044868`*^9, 3.578012227359375*^9}]. Q+ Y" {, }/ J7 r! r+ Q6 T
}, Open ]],7 M7 k7 h8 K, ]( _. N, D
5 z) R8 t$ L1 l! x0 L& B' s
Cell[CellGroupData[{8 ?! Q, M+ e8 e9 S
; q% j, A. v! GCell[BoxData[
1 h* u8 M K% z" s8 o% y2 z RowBox[{"u6", "=", 7 ?# M% w X& @( A* V0 S7 F) k" @
RowBox[{9 |* w S& }' \+ L" b8 ]
RowBox[{"Exp", "[", 4 {$ k2 U; G9 }6 h9 s# T
RowBox[{
( O8 |/ C/ G, \/ H RowBox[{+ Q8 N& J& |8 I
RowBox[{"-",
. g; |" w6 c+ s/ t RowBox[{
: v5 L( X& l1 e/ ?, _& { RowBox[{"(",
$ C' H* i; g1 q RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
& h6 Q4 j0 d4 g- s$ Z1 W; Z RowBox[{"(",
. E* D( \3 b7 Q; j E RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
# d( [! K- T- O5 p! p "]"}], "/.", "DeltaX"}]}]], "Input",
) S- m# p: F5 g CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],' Q3 v& @( z- c' X) u$ A4 i
! P) y6 }! R+ Z. b0 b9 U$ u! Q0 r8 T4 RCell[BoxData[
2 W' b7 Q' N/ [) n* @$ b SuperscriptBox["\[ExponentialE]",
) A+ ?# o$ \. j6 C# c RowBox[{"3.141592653589793`", " ", 5 d) I+ D8 b8 b1 b2 W7 `
RowBox[{"(",
, F; }5 M3 y& U9 W7 M RowBox[{9 B5 Z( ]# S5 g( ~0 p* g
RowBox[{"-", 9 |% {* @* ?6 i' g% l4 d8 e
SuperscriptBox[
& ~5 Z3 o8 l1 F5 v8 G RowBox[{"(", 1 V: z1 d8 I, T4 S$ c. X
RowBox[{
4 c1 J+ K& u$ c' ?& q' x. H9 {: S/ o RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
* x' R7 X& ^: [5 g9 _* L SuperscriptBox[
4 g* z1 H3 f0 n7 {- T6 u RowBox[{"(",
7 t6 E% d3 R3 a: a$ O/ z2 d; w RowBox[{' E$ L! K6 o6 z7 O% g- F
RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", T! N3 o% \+ x' g
SuperscriptBox[7 V6 u" R# s0 ~0 k
RowBox[{"(", Q$ f: a; b, M i8 d2 ^5 y
RowBox[{
( {6 L- ~8 E7 B' ~ RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
3 K5 {0 }; V* R: i- ^, ` SuperscriptBox[
' U$ p9 o( _6 `& D P8 o RowBox[{"(",
' ~& t( n. ? [+ B9 ^4 a; b RowBox[{( D* z+ ~# X5 p+ L8 R7 b
RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", 0 s5 K8 f1 {/ d/ ~& r3 t: {
SuperscriptBox[) g5 o& A% H! W
RowBox[{"(",
0 V) J' t. \. d% z7 p RowBox[{
, I( m4 I9 V3 Z/ z/ e5 ?/ K8 }2 k RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
5 Y+ F! \2 O% ^$ t- _- V SuperscriptBox[
' ]0 q) e4 G- M3 ` RowBox[{"(",
, ?* r: v, p( I7 O X% z3 h RowBox[{3 {' U4 C9 a. u4 N" j$ i& H
RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
1 P2 g, O) O. M0 s! M# L- G SuperscriptBox[
B: ^# R1 M# l, I) D- { RowBox[{"(", - q/ |; x7 N2 O0 C4 o j3 h
RowBox[{7 V+ n( Z+ X5 e1 ~1 ^* o3 t
RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
) q7 \- l% Q( t4 H2 p" v4 a0 c& e SuperscriptBox[1 f7 P$ m( `) ~) J6 h
RowBox[{"(",
! [4 ~5 e" E" f+ ?' _: F1 S$ f RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
9 ^! |3 H- u& W$ J: d SuperscriptBox[
+ B# m7 D+ T- B, v9 G& z- \ RowBox[{"(", v- z! I) k3 |
RowBox[{7 A1 h* }, w+ ?
RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], 2 z1 j+ A9 z0 l# N1 X
")"}]}]]], "Output",
4 ^' s3 |, m1 A" Q CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
" i2 g# r, P$ u: v# I1 ?! E" {' y" r 3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
$ r9 C- `6 S4 k1 T; m% @}, Open ]],
' k" P% v# _& D9 k7 r/ U& w) N: [ s' Q
Cell[CellGroupData[{" L# R! x6 \' v5 `
# L, ]& b) e( o$ C3 ?
Cell[BoxData[
+ p2 {# a9 ?1 n RowBox[{"C7", "=", "Ca"}]], "Input",, }" p: C3 T! E, X( R% W3 G# Y
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 7 M1 l3 U l7 G" H& e( J
3.577921316125*^9}],9 P! }& X" W& _: A* _
* b2 O$ {. f' M5 O. b: jCell[BoxData[9 _' j. K: W4 G* x0 z
RowBox[{"{", 8 Y; A+ n& E ?7 C
RowBox[{% l9 Y' ?+ W8 h! ?: B% I3 q
"0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",", 4 n0 }, T; }3 k% G, _) O
"0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
+ O h0 d/ f! [ "}"}]], "Output",
6 f, S8 y' L. U1 Q: c0 M& i* ` CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
; |/ P1 E B* _" @8 ?3 K6 a. n3 S% j B 3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
/ e5 y: [& w$ p0 t) v: v5 C}, Open ]],
6 B: i- l: n- }
x! @* J4 w: j! i& I9 d j# M& iCell[CellGroupData[{7 }. A# G* P# I. {# |0 D
# ^7 A8 w4 k9 O# R7 u: O! \Cell[BoxData[) j: I" B Q7 Q1 `. Q5 c* F
RowBox[{"u7", "=",
9 E" B' |' J7 y; T8 o a V RowBox[{) c& j9 g. @* _" [( ~# N
RowBox[{"Exp", "[",
9 ]- L- T @2 Q1 Q9 l7 |4 F( ? RowBox[{
4 D( K5 ?8 E0 n( i1 t' O RowBox[{* v2 [ S; B/ x
RowBox[{"-", + O! C; m' d5 H
RowBox[{: o0 B1 ?, f2 n2 x0 F/ x! e: p% B+ J
RowBox[{"(",
( T6 }: e" p, q, t `7 S RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
+ Z) S/ _! z& x8 S3 e! j% ~5 T RowBox[{"(", . T. u6 U8 k: {2 s
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}]," P$ @: m M# }+ F, @2 g& S$ F
"]"}], "/.", "DeltaX"}]}]], "Input",
: R9 \+ ^* K- F5 `8 ]* L CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
& r. P3 y H9 p7 i+ M5 o1 r: B 3.57792132028125*^9}],6 K8 W4 [, p9 a: e, K# ^
5 t( @) u* _7 d
Cell[BoxData[1 f- _$ q- |" w! y
SuperscriptBox["\[ExponentialE]", $ m: R& A* A# S" X4 h( H7 a
RowBox[{"3.141592653589793`", " ",
! i# ^ G5 V8 {0 K RowBox[{"(", 0 B2 V- H- u+ N9 |/ z
RowBox[{* f6 K/ h$ ^' w Y' Q2 @! }# d1 ]
RowBox[{"-", / Y0 C0 e: s" C( Y$ g6 k
SuperscriptBox[4 m2 ?7 Y4 O+ \" d2 ~& {/ ^8 t5 {$ R
RowBox[{"(",
1 s3 E- u2 |4 {+ R RowBox[{) t* G4 ` V X9 p! o4 @
RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
9 q' e) _* X# y! {7 r7 w/ Y2 g SuperscriptBox[
! F3 z9 [6 t) B) R) B RowBox[{"(", ' m7 I( E& }2 l; r7 J
RowBox[{
% y! g7 _! i/ }/ I+ i$ ~ RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
( Q+ ?/ E, e5 O# S0 G SuperscriptBox[
3 g( i" A) k# X( A" A RowBox[{"(",
" g; V# A7 J- h' C RowBox[{
# E; F1 b7 [1 ?, Z, v RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", # r5 y6 D+ d1 I0 k2 |
SuperscriptBox[5 N. S0 Y3 e: y8 `+ }
RowBox[{"(", " p% V( b; v- F E
RowBox[{- N9 ~- V S7 v" n* ^9 o' h4 q
RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
" J& ~9 d/ P8 M( w8 Y SuperscriptBox[2 E$ y7 t3 m m: n9 N
RowBox[{"(",
6 @& ^) ^7 e" H d$ e RowBox[{
0 L; ~! T U4 }3 U, x& ~0 F ^3 N RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
! q' x: m5 ^( k6 w; T) ~& v; z% ^ SuperscriptBox[2 P4 q5 ?- A! r3 R/ a1 I
RowBox[{"(", k7 j @/ w0 Z% V0 B
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
" k3 u$ k/ `2 o- U+ H3 U& Z SuperscriptBox[/ ~3 {* o7 K' Q/ X
RowBox[{"(",
2 S2 j T4 X+ [0 k RowBox[{
3 N: S! ?: C! j, S. C, F RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 9 U4 U3 p5 @% n* O; d- O8 R6 A
SuperscriptBox[
7 `# y8 ?3 W9 _$ x: ^ N1 C RowBox[{"(",
8 O# [( B: A- e% r- b RowBox[{
( a( u5 d0 Q4 C+ l9 e1 V RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", . a$ o# _4 |% H A5 ~! ~
SuperscriptBox[& s) T9 v, R3 g0 e, w( T, l
RowBox[{"(", + |8 B4 o2 B( x
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
6 A+ C- R" K" j" a% v, m2 W' b! u ")"}]}]]], "Output",7 i& } T3 k5 C
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, , r" M: c4 N2 F* B) X t; V
3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9, : ^) Z: X' C, b$ g& K8 F, x
3.578012251359375*^9}]
* t* P) q6 z7 x/ b/ `: |}, Open ]],* j/ I6 ]; g: I1 {# X J2 X# M8 F r
& S! Z5 J# I0 [- c+ p3 |2 zCell[CellGroupData[{
" A* }5 W3 b' B& A5 A6 u1 J$ Z6 V) [7 b9 J {8 K5 q/ g
Cell[BoxData[
. { }) B; M4 q4 B+ g% x RowBox[{"C8", "=", "Ca"}]], "Input",- E) r# |: V7 K
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 5 S7 q. y' r y% U2 x" ?
3.577921316125*^9, 3.57792141421875*^9}],% @0 C" |$ a: l9 D! D2 `
1 x; I% \, t5 `) dCell[BoxData[
5 Z" w; j2 |2 p9 a; `# ^ RowBox[{"{", * q* b: g4 i. _
RowBox[{! r" s# |6 G7 ?* @8 y5 u
"0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
7 p, K& B4 Y: b- \$ q& k "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}], * Q" l: m; ?5 H0 O% R* |0 z
"}"}]], "Output",9 o# {* ]' ?8 |; v- m# u) U
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, 3 ^+ u9 T8 ^- `8 e# Y5 F1 d/ T
3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
l2 s: _; A, Z4 |+ ]6 {# J, I 3.578012260515625*^9}]
. ]) l- d6 L- c: `}, Open ]],; e6 u' L- w* r$ u4 u* N% p% i1 {1 [5 X
. a: e; V9 B; T4 e' ~; ~3 Y
Cell[CellGroupData[{
, i! k' z4 G" Y4 Z% i! R/ l3 @' U
* B# t9 _# M9 g0 Z4 P. `: Z0 _% JCell[BoxData[
# o6 n* u7 c4 L/ P( U RowBox[{"u8", "=", / H/ n9 t; X. `% M& V! ]2 a
RowBox[{
0 N" V. O V3 L2 r( [: x$ \+ W+ T2 G) N RowBox[{"Exp", "[",
! b/ }1 d/ C" G6 Q. U RowBox[{" r, \) d/ B% Y- U
RowBox[{
, C" x8 Z" f E) n' _2 U S9 ` RowBox[{"-",
; X. G, m; p0 y# I7 M5 i; I' { RowBox[{
) f, P- H& V j% |1 E7 |2 q5 s& G RowBox[{"(",
" d* u5 c5 E6 ?! ^ m6 o$ R RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
3 G1 {1 X6 }5 p+ G" j RowBox[{"(", ) Z) I( a% X% {3 H* j0 B. w: Z
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],& s* A& o+ _# n
"]"}], "/.", "DeltaX"}]}]], "Input",0 ? q( t' U, v* v2 \5 h
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
. a( Y. `4 F: C 3.57792132028125*^9, 3.577921416921875*^9}],% {4 {9 ^5 n/ Q3 k
1 D) c2 g2 @) O# \% V+ a4 D; s
Cell[BoxData[
$ z3 M! y) \5 D+ s# K SuperscriptBox["\[ExponentialE]", ( h) I/ n# |% H$ h( p3 \1 p
RowBox[{"3.141592653589793`", " ", 5 Z$ b# D( r! Y/ d
RowBox[{"(", : D5 \- |6 w1 w! M5 o, R* m
RowBox[{
' P* A1 K1 a' X* V0 q+ M RowBox[{"-",
2 d. j+ ]5 T: w. o1 R SuperscriptBox[, x( ?0 o- |5 @! h0 W
RowBox[{"(",
) s4 G' Q- S0 I) k& [: ~* X/ Y RowBox[{
& O$ f3 M- W+ G RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
3 I3 z5 L- q6 X SuperscriptBox[
! c' M9 f8 T8 g2 }" F; Q RowBox[{"(", 1 p& s" `0 `: d, h: {- P2 N
RowBox[{
2 J. @) e5 k# Y7 I3 p RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", 8 y, G$ J4 C& r% U6 Y' X
SuperscriptBox[
6 F# \6 i, \7 N, ]. G; `. }4 A% l RowBox[{"(", . z& Q, d6 w0 c3 K/ o
RowBox[{ ~9 g; w+ G+ M2 }; J( i( R
RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", & l* V2 {( B( w& `8 ]2 h% z, ~
SuperscriptBox[
+ [9 i% J5 M9 y0 P# \4 Z& i# Q% q RowBox[{"(", 1 D. U3 f( P+ }8 n
RowBox[{& }, `5 v1 e1 ~( F
RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-", " _& x- [8 ^7 Y& B! Y
SuperscriptBox[
3 o, `5 N6 f+ ~ d+ Y RowBox[{"(",
2 \) r. i$ y, p- X! i4 D RowBox[{8 _# S5 N" q. c9 s1 K1 j- o
RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
( i! l2 Q4 |/ X6 ?0 j, @ SuperscriptBox[
% P% s. V9 s9 f) |; J; p RowBox[{"(", 4 `8 _/ ~# W2 G8 e1 J$ \/ y$ Y# N
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
# C5 d* N, m8 j/ y$ I, D1 a SuperscriptBox[
) m# e9 u/ x6 |8 i+ x RowBox[{"(", . S4 K( b0 u% `! S$ X/ n# C' k
RowBox[{5 W. i9 {6 ~4 r
RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", 9 i! {: B% X) n% p/ \8 F/ s6 i
SuperscriptBox[" m [# T2 a- `) E# ^2 E2 P
RowBox[{"(",
! K# G+ f9 P2 t, m6 x4 l. u' @. b! E; q RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ' ?- ]. @) H6 ^& A) Z" H8 d, {
SuperscriptBox[
/ I( B( ]: W" u RowBox[{"(",
7 F: z, M9 d+ w6 t RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
4 ^( i3 n. r. ~, C: { ")"}]}]]], "Output",' W+ @6 ~: O8 ] p" c& |& l& }0 R
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
8 Y# `) T* F9 q, `" G2 w2 \; ~ 3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9, 4 y- z8 x. f9 |5 g& G, o
3.5779608945565863`*^9, 3.57801226165625*^9}]
" m E$ p. c2 i! n3 v$ f9 Q}, Open ]],
; \; E- M2 l. |
: v- i* A* {5 ~0 U2 eCell[CellGroupData[{7 b* c, C6 W' N
8 T7 m/ e/ ?1 t: }* G) iCell[BoxData[
( u/ C7 Y+ H/ j, ~4 m7 v, {4 L: P/ c! I RowBox[{"C9", "=", "Ca"}]], "Input",
+ d1 x# i+ s) a CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, . S3 k! ^' S3 R$ E! d5 z
3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],3 s9 Q# i5 V% k
- O9 O9 o8 w! e8 t/ y% X# J3 x' s
Cell[BoxData[
' J6 M! z0 `$ q9 O RowBox[{"{", ( c# c& H* m0 R+ h) |% d
RowBox[{& s6 Y) a9 w0 ~0 E& y5 b! U
"0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
4 A. l! l `. h0 k5 X5 P "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}],
5 g! q2 T; O1 v* Z) o3 c "}"}]], "Output",) Y% `7 v/ E/ c# {0 V8 o7 I; J) o
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, 0 d p0 x* O" H5 h; G
3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9,
' B3 g p: T/ m% ^ c' t 3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9, 6 w* y% ^ }0 J$ t% u, z$ [& U
3.578012268234375*^9}]0 C4 _( v/ M, E7 n! I: B
}, Open ]],
6 c9 k# x0 n \
9 x% b1 H. U! jCell[CellGroupData[{3 y7 q' Q$ _, Q' W
* s/ ]. `, d5 ?2 `: f$ n9 vCell[BoxData[
+ s+ j* Y1 {3 |( y2 t9 z RowBox[{"u9", "=", # L; y: S% m9 L) W
RowBox[{4 m% u+ E6 A. N* }3 a# h; w/ H
RowBox[{"Exp", "[", ; y! u# u! [# \9 p
RowBox[{
& I, ^/ A" j" p" s( m# g1 R: n5 D3 F) L RowBox[{
6 M% |1 K- r9 w- J RowBox[{"-",
! n$ J" A* _& f f# d6 l RowBox[{3 A; B# K0 f: l/ U: g1 }+ J, t
RowBox[{"(",
. X% |+ C8 @( P- i" }. G. H RowBox[{"Xa", "-", "Ca"}], ")"}], ".", & G0 Z. H+ J4 e4 ^5 x
RowBox[{"(", 6 o& w8 q# V/ f' J
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],. Z* T; j3 \) q" ^
"]"}], "/.", "DeltaX"}]}]], "Input",8 q- j, a8 E, K2 a7 u+ P2 W/ {
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
: V/ q5 y; j" u" z 3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],1 ?+ X- d5 i" p0 V$ p
$ I( A; p' A+ A( }- ~; ]3 ]3 P8 F; p. zCell[BoxData[
1 P7 ]) W- W5 Q" f% R1 }+ _ SuperscriptBox["\[ExponentialE]",
/ J% [( F6 t& B* u9 {! M RowBox[{"3.141592653589793`", " ", / e+ w' P! Y/ {/ {, D* O2 P$ p
RowBox[{"(",
- U. W: C$ }9 r+ Q: | RowBox[{
# u0 Z7 f$ [6 ^( l RowBox[{"-",
; c7 V1 m3 G7 i" n8 q7 I SuperscriptBox[2 s9 h+ C! O1 h3 d6 ]5 T! A8 @- Y
RowBox[{"(", * y) e6 |* ] e- m9 T3 o
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
4 C4 w7 `' f- z& F. \/ j) s SuperscriptBox[ N$ ^2 p; u: f9 L, q4 o5 K! y
RowBox[{"(", 6 F& ^9 `/ @% T1 Z4 y
RowBox[{/ F! Y7 g: O! I) {8 w+ |$ D
RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", ]; x8 E1 K$ T6 j4 A; d1 r
SuperscriptBox[8 `" M4 U1 U; n! V4 G/ V6 j
RowBox[{"(", $ ?( g, r9 q5 `- n
RowBox[{
. L, B+ o, j+ F; R* M9 e RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
9 O, z( ^% a; ] E+ k# a SuperscriptBox[
; U9 x$ K6 P0 s7 }" v RowBox[{"(", - p+ C7 n8 p! k& r' M3 | E
RowBox[{
- z9 M) v& ]7 l RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-", . y6 A8 `6 |0 U* |- X4 \+ j6 y
SuperscriptBox[0 {7 {* t1 N7 V& ^
RowBox[{"(", ' S. ]/ i1 }) @* z2 M4 t" ?6 U
RowBox[{
, E& `/ R- G1 o9 d0 M1 J RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
% D2 B+ i: C+ ?( `$ h5 }9 [ SuperscriptBox[
) @- j6 y( X/ v RowBox[{"(", ' f l% ]( ~) u* l1 h$ y& O
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 7 {) ~! \8 x4 C1 w5 W
SuperscriptBox[! f; \$ s4 v2 U1 c" W4 y6 J6 L
RowBox[{"(", 4 x( | s# N3 g
RowBox[{
' P3 q$ k9 ~3 \3 F" c- n7 ?! I& G RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
2 ]5 M; a) O7 \ F. d7 v, F SuperscriptBox[
r. K+ c) ^9 Y+ {% L RowBox[{"(", G" |( H' E/ G: d
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
( L$ Q7 b* r1 t: d& \ SuperscriptBox[9 G1 ^& A4 X" D* W& N: A
RowBox[{"(", ( M- u9 m" \4 I% [9 n
RowBox[{
$ q6 g$ i+ c9 W# A. Y RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
- m% e, j" g/ i0 b( s: ^% I ")"}]}]]], "Output",
" G8 e: V& k. P* t3 u5 _/ C1 [: u) d& i CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, 1 h3 u, w( A4 \; Y
3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
7 y; s. j* R9 {, J4 l( b* l, c 3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9, ' h4 u5 b: ? t/ v
3.577961530421959*^9, 3.578012269125*^9}]
3 a8 y. X1 _* u' ]+ W% }! }; s}, Open ]],1 m, z4 G9 D! r2 q% Q
' b! A: m) B m$ ?5 fCell[CellGroupData[{
. A4 \+ |/ T6 m8 M8 @' V4 S4 I h
Cell[BoxData[{
! T- b% y+ r( A0 u2 J RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
5 y. n d- u8 H+ I- I RowBox[{"u10", "=", 2 k3 ~, h3 T7 c9 u3 \, l% o# C; _
RowBox[{
% G9 d, F S. T# B5 {2 i RowBox[{"Exp", "[",
) t' ^. J$ |: k% V RowBox[{
, B8 G0 A {3 }& \; E; t RowBox[{/ M5 I5 @" U9 ?
RowBox[{"-",
0 Q) _3 m9 }! z/ r9 W) a RowBox[{
9 N# a% ^5 m" D5 H: z RowBox[{"(",
; S. g# i7 D0 q RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
. x/ P* [( d8 b# R, `$ e/ {* M* j RowBox[{"(", 6 S# x1 V2 P* n# l0 u
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
* O* m, W, T! S0 s" G/ o6 E. h "]"}], "/.", "DeltaX"}]}]}], "Input",2 }% L7 s: p7 S9 Y
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],0 h: |3 T1 B+ ~" p1 |
' ?* |1 ] }: R+ {& W; M5 z; }% ?
Cell[BoxData[
5 w6 r7 z; |0 T$ }' s RowBox[{"{",
) Y7 D' f7 m B! T+ ]3 K5 z RowBox[{
: X: o7 {$ j5 u( I% ] "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",", ! R, z9 L: f/ t+ m* D& Z' c
"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
) F9 U3 Q* Q1 t) } K CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
. P& E" y+ v5 H) b$ I
, n( k) C" u: U/ v8 KCell[BoxData[
( R' f) C5 F( o, p0 k SuperscriptBox["\[ExponentialE]",
/ {4 y6 }0 x A2 g: Y RowBox[{"3.141592653589793`", " ",
0 W! F0 Q/ _, X- N/ r! T7 Q RowBox[{"(", : `/ S7 b u0 B/ A
RowBox[{, h! L1 J7 c5 f" z% t t
RowBox[{"-",
& I) b" V; c; o1 X SuperscriptBox[: V( |$ u! J) R U6 `7 Z' V* `. f
RowBox[{"(", # j i" V, n. t+ n3 f% Z
RowBox[{* s' h7 p0 i) h) k8 S c: M
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 \; F) w( A; i
SuperscriptBox[/ j2 U& X) W& q
RowBox[{"(", ( p9 }+ I$ C2 ^' D6 ~
RowBox[{
" {% ^# o5 F3 U# c0 M4 O RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-", . [2 |; G/ w2 ^: }9 }3 P4 R* m
SuperscriptBox[
6 b* w2 g# o, ^6 z" \ U) v' { RowBox[{"(", 3 y6 Z% t* [# @0 {. L
RowBox[{
6 z/ s8 o' N3 w7 `$ G RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", ; N- i, W |" [8 I3 W: u% Q
SuperscriptBox[- n/ ], `* j& s0 P% k
RowBox[{"(",
% U! y/ n8 \( G+ L8 y& k8 C RowBox[{8 p( i7 u& b: P: a: ]9 w; y
RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", % J0 X' A4 n* g6 A
SuperscriptBox[0 R, y3 h4 ^' f1 k% X! Z$ Y% a
RowBox[{"(",
) @; O9 O% a6 _1 {3 r RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
* c; r- Q& {( L2 l SuperscriptBox[2 }7 F v. g7 R$ D7 x- N
RowBox[{"(", , O/ c) Z4 S P8 c
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
( f- V# a( v1 P' U4 R SuperscriptBox[
8 C: S- g* a3 G+ Z RowBox[{"(", 5 B( D/ Z" G/ s0 s3 A$ e: N
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
U( t: ^' x! M6 m SuperscriptBox[3 M3 e- b A5 l# H: _) x: F
RowBox[{"(", 1 j1 S0 f! C; o" S Z! Q- n$ [/ [
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 8 [% Z6 Q* k X: @ F' W8 M7 a4 q$ r
SuperscriptBox[! l/ G! c/ }7 ?
RowBox[{"(",
6 p6 c% a6 l( h5 U& w RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
/ z3 e! D0 {! E8 b ")"}]}]]], "Output",
' c5 M. F3 L; ?5 A- S$ A/ ?3 N CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]9 }, p, U: R! R. r. ^
}, Open ]],
) o& o! q* W2 G3 ]8 o5 Z! Y; G4 O$ q8 G, y6 a- O
Cell[CellGroupData[{6 t. d. S& |$ B8 m
2 x9 _, P' _9 g; p' Q9 k+ ]Cell[BoxData[{
. W+ B' Z% J; J& I: a& @ RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]", " m" M5 |: Y; E8 ~, b8 g& m
RowBox[{"u11", "=",
! \/ J. \ u- ^2 c5 ^4 w. C RowBox[{
* d# P. U0 P" m4 U' j& s% P RowBox[{"Exp", "[",
& \4 |- \6 ?& t/ a/ L: k RowBox[{+ W( [* R' ^2 Y9 X
RowBox[{# z7 E! X" }) P
RowBox[{"-",
- D" @( C6 ?/ S9 v# a- H RowBox[{9 b- ?- S1 d. N# b' Z
RowBox[{"(",
8 s1 C2 ~6 Q# l) Y3 F) {. R& V% k RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
4 W# K, @6 z: O7 G RowBox[{"(",
8 S d& I8 B5 _) v* o% p/ H RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],# ], Z6 _ \) `0 H
"]"}], "/.", "DeltaX"}]}]}], "Input",$ v& _$ D3 y: |$ h
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {! p V6 j8 y- T& w O+ A0 B) _5 U
3.57796154237158*^9, 3.5779615434011817`*^9}}],
# M0 K, K/ x# m% q9 `) @
1 W: Z: z2 [; k& {; J1 S. C8 Z% JCell[BoxData[
1 Q. l8 |8 t7 M% X7 w8 q RowBox[{"{",
3 V1 \% Z: U; k5 g RowBox[{: z. F0 S2 Y9 X+ j$ d, X
"0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
: T! W7 I$ f; x "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
% M* s5 y: c- \ "}"}]], "Output",
: z$ E$ U- I. l& ? CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
3 S) H# ]" g9 I( a8 X 3.57801228203125*^9}],- Y& ?& a X J2 a; j ~
3 P" `& D) ~5 E( v5 n; t
Cell[BoxData[
: x& I/ b. S; V! r2 T9 }* h: ^# w SuperscriptBox["\[ExponentialE]", 9 N, r; S6 f0 x% X* V4 |* h3 |
RowBox[{"3.141592653589793`", " ", 8 I; i* t' R! Z" g
RowBox[{"(",
* w/ R- T: d: P# p E RowBox[{
9 r9 w. c; R5 k* P RowBox[{"-",
/ U0 H/ k e" a- i& f: K- { SuperscriptBox[9 `( g( _4 [: h. F
RowBox[{"(",
$ z. b. C& X5 U0 P/ s0 o RowBox[{ A* M5 u5 v- h
RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", & g+ \" b- s! V. ^
SuperscriptBox[
3 v6 I }9 J" n7 P0 q# Y: R8 _; X" M RowBox[{"(", ' ~5 v3 X* j' a1 X" I# `
RowBox[{
! H0 t ^+ Y* @' Q9 E+ F% ^/ ] RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", % i( s/ J/ ], o9 L; R
SuperscriptBox[
& s" a* X4 S* d) e2 @ RowBox[{"(", 3 R- w4 ?3 j o
RowBox[{
" c7 e6 l" Y; {* Z RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", 1 ^4 _5 w4 s0 V8 P2 L
SuperscriptBox[
3 f4 W7 d$ \% ^9 D/ [ RowBox[{"(", + G: G0 C5 u7 A1 z1 W d, j/ a7 v
RowBox[{2 ]: O1 M# A4 g7 A+ Z6 V% r
RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
- T) n5 ]! q6 ^. @7 A: P1 j, A( ` SuperscriptBox[
* w# E! k7 ?1 k8 P RowBox[{"(", ! k7 I. t5 J2 X# Z
RowBox[{
" R" F4 ?9 ? R2 T RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
6 _6 e& ~) {7 l: B) } SuperscriptBox[# g: @; D4 m- i, _: Y8 `' q
RowBox[{"(",
3 G: |5 U: a* Y) k; X& z: `' b& C9 e RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", & b7 v" T. [. b- [; j' G5 d% e6 s
SuperscriptBox[
9 k% D! r+ D- _ RowBox[{"(", 5 i; M$ z$ _. M5 z. Q, m
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", / y! d4 Y' p0 M2 S; i5 f9 C9 n
SuperscriptBox[5 Q7 B- y( C; s7 h( N, j/ Y
RowBox[{"(",
8 |* K) Y, G; [ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 4 u" M# Y, u0 v
SuperscriptBox[
5 ^' z# l X! H" H RowBox[{"(",
) k' [& S: l$ e6 Z0 B8 V RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 3 E& E6 j7 z2 L C2 K4 F. {
")"}]}]]], "Output",9 R( ?% T8 q! j# E
CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, 0 V- `4 D4 [/ k1 M7 ]0 c4 P
3.57801228203125*^9}]
1 {: D. e& g1 W, j9 U6 L# _% Q}, Open ]],
1 I0 Q: H2 E: h6 s
9 i2 e. A! i2 o/ v9 c9 QCell[CellGroupData[{; M" i+ K- R# d0 _# {/ u# z
$ [# I( n9 z$ PCell[BoxData[{
/ F& v/ G' Z+ w9 z RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]", ' v$ f% G+ r A6 ]% U3 h
RowBox[{"u12", "=",
7 V& C0 v, r( i RowBox[{
$ G4 O9 O" P) D3 i' f* A7 @ RowBox[{"Exp", "[", / Y- \1 }& x& @3 j* M) S, b& y1 k
RowBox[{0 Q$ G9 G, G# w! E; e
RowBox[{; n' U9 U0 a0 f! j- [
RowBox[{"-", : \. Z: j* L9 o
RowBox[{
. n" A! c5 u: r RowBox[{"(",
: @0 ]3 B/ ?- A8 @% p RowBox[{"Xa", "-", "Ca"}], ")"}], ".", / Q) n0 P: | Y! {* G" r, U& E
RowBox[{"(", 1 r b4 e. c/ u/ s0 F0 N
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
2 [6 {( o- X1 R" a1 o6 F "]"}], "/.", "DeltaX"}]}]}], "Input",
4 m' C+ J! I. G5 k1 L& u CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
. y( M6 a: R* \7 E( h7 ?. t& E 3.57796154237158*^9, 3.5779615576284065`*^9}}],
" I) z+ B0 a2 g* [) G& }' g* H; d
3 y$ T" P& \" R% a( i& G$ y) WCell[BoxData[
) L1 q' Z, p5 W. ^ RowBox[{"{", : M5 J1 a5 V; M5 Z$ o
RowBox[{: r& `! o0 `2 b( y% l. G- E' n
"0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
. G6 L9 P/ o5 c( l8 k "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],
' f- Y8 l, S+ @ y" }; d "}"}]], "Output",
8 J* C6 l5 Q1 }0 ^ CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],9 ]4 m; @& h! d7 k
$ \% }% A7 C% U+ V4 r
Cell[BoxData[3 e. Y% s/ L v: |( a( \
SuperscriptBox["\[ExponentialE]",
+ z% }. G- T& C RowBox[{"3.141592653589793`", " ", % j9 G3 P! v* n
RowBox[{"(",
& L7 G7 H9 n; E2 ]0 J( z RowBox[{% d- x& W" e6 {+ r% K1 v
RowBox[{"-", $ G1 a2 |1 s3 _# {7 T+ Z; E' G
SuperscriptBox[
; y- o% V+ Q9 a RowBox[{"(",
& S6 r- @ E! ^- j RowBox[{
5 a: ?( K' _4 W/ z RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
; e0 Y* c3 B7 e/ T' R SuperscriptBox[
0 Z' N0 Q" K: D/ R$ K, X9 d RowBox[{"(",
2 A7 M) `0 M% a& ~- C: u4 r RowBox[{
- }% J0 u% N" F4 t RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
1 Q/ {! i3 L4 y" h& S SuperscriptBox[+ J! V$ E9 f1 l X7 k) b
RowBox[{"(", 7 @0 D* R0 A# o/ L0 W8 X
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
- D' d" | T, |2 i5 D+ c SuperscriptBox[! S: n# l% s& C2 t! z x# ?
RowBox[{"(", 7 E* l- E h2 {
RowBox[{
1 q4 m+ z( ~; u- ]3 G' w$ b RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", - y7 r1 m& f; B9 F" U C6 Z9 p
SuperscriptBox[
. v: v! u; E4 }1 F RowBox[{"(", 5 U; ~6 ^; {1 s/ p# X* D5 K: A
RowBox[{' x" o3 n' u( Q r0 k$ f* k9 R
RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", . R6 T9 i6 M. l) @ }
SuperscriptBox[- S7 z8 |! ]/ _3 `
RowBox[{"(", 7 B. |" h: J/ H6 }. N! B& G* l: u
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 0 ` x: o" y' {2 x1 P- l
SuperscriptBox[ i' o8 r+ D O1 ^0 U {" m
RowBox[{"(", 5 e: u. I- x5 P0 L0 w" U! g! X
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
2 b% x3 J* Q6 ^% m SuperscriptBox[
9 M8 h& `' z- l' c RowBox[{"(",
8 ]5 T Y4 v6 C! O9 q" R RowBox[{
4 W% e& x2 {3 D3 J4 Y) U4 P- _ RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
: x/ A( z+ B4 ?. m! ?9 x3 ? @. E SuperscriptBox[
; L+ ?; s4 b: M& O9 y0 N7 x RowBox[{"(",
& a* D v# g) u: p1 n# B; l RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
! R: a5 I9 }) ~, V/ h ")"}]}]]], "Output",# _* }8 Y5 O8 X3 U
CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]; p. B9 z1 y& ~6 z) \% a( I
}, Open ]],
I0 U0 l9 p7 v( Y- l3 s) y, k1 N9 p- j" I" q; ^
Cell[CellGroupData[{
* ~" {/ o, L- d$ V8 `" ?
3 p0 Q/ h$ B- \/ L r" x vCell[BoxData[{/ r. }) {$ O% S. J* T
RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
+ n9 {" a! U. ] RowBox[{"u13", "=",
' X- x& _! j+ m# H* d RowBox[{
& Y! l, r4 q: X4 w RowBox[{"Exp", "[",
3 @' G9 O1 ?0 h; R; c RowBox[{
4 L7 s9 ~1 J5 Z0 V ]+ u5 u! }. o; m RowBox[{
0 F- l' `$ E h2 G) W RowBox[{"-",
8 W* z: |% @0 q; j2 z/ c4 r RowBox[{3 n- o! M" \3 i
RowBox[{"(", - `- A* B: z- l5 J- h6 ~) c+ b
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
, o# j7 C A! d$ _* G) A' J! f RowBox[{"(", : o/ P4 t* c6 s" Q% f$ ^
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
+ x3 }$ d/ {* ?0 p9 _, X "]"}], "/.", "DeltaX"}]}]}], "Input",
' C$ W" y: k+ g- c, [' H CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {* X# w7 \+ u3 p7 f$ G7 O% n
3.57796154237158*^9, 3.5779615599684105`*^9}}],
) I3 ^2 T4 u) c! ]7 [' y+ d% C1 m" r; P$ |8 B3 Y+ c
Cell[BoxData[. w$ {5 g6 Q7 ?0 o4 K
RowBox[{"{",
) O0 w* Y6 |: A: Q* F, S4 w I9 c' l RowBox[{/ p0 }( g" v) v% }# a0 D
"0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
% c: v; z$ }% R1 t- d. S "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}], * w# \" a& X p) B( F
"}"}]], "Output",
R! l. `( [: o CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],
6 i% [4 Z& r* i* p/ Y" w1 X, m- ^' ^4 A n: I
Cell[BoxData[
2 A3 O$ m% r v* N7 s SuperscriptBox["\[ExponentialE]",
/ t8 s' }, `& d- O2 U( t RowBox[{"3.141592653589793`", " ",
' z' }7 h X3 ~% S" v5 c! z RowBox[{"(", $ y5 b- v, N9 S2 Q# d. n" J2 o
RowBox[{
, w3 o7 \$ X5 X9 H RowBox[{"-",
" F$ P O/ w/ X/ K5 w0 g& O& J SuperscriptBox[
2 U& n" ]; l1 u5 t! l5 p RowBox[{"(",
: v2 o' E8 ^' W/ r RowBox[{/ Q& W& M6 Q4 d% B9 B8 @ Q
RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
0 Q+ |1 |+ c5 q0 c! \1 T; g+ y) T: \ SuperscriptBox[3 e0 P4 ~1 P$ J3 b0 i$ @) o) c( Q
RowBox[{"(", K l M# [$ ~ h! W% m
RowBox[{0 n- A( W. i1 e+ A1 w
RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", 3 q }# J8 O# o1 h8 h! `
SuperscriptBox[
9 \+ H p i) V RowBox[{"(",
, d) n2 a9 U& K' }/ H1 Y$ R0 c RowBox[{
- t5 A' ?0 T; P$ N) z RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
- v2 p9 J4 j" F- S l SuperscriptBox[+ Q: @9 S$ A e1 _
RowBox[{"(",
# y# ?" C1 j, L+ J/ M2 r& a( p, t RowBox[{5 O9 C/ Z( z5 e, ~& X
RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
+ J L- e- T% U" o) @4 | SuperscriptBox[6 n' e. T2 i2 {% A; H4 [0 p
RowBox[{"(",
' Z/ o, _; U7 h; i8 E+ J! y RowBox[{3 I7 b+ S: e2 U
RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", 8 ^: V) I3 Q, E8 l
SuperscriptBox[
* y; j+ ]* x) _. I! H! |, @, g RowBox[{"(",
' D( [, Q0 U! H0 p& g F0 R RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
8 ]% K7 J. n! l0 N' O B/ H/ j8 y SuperscriptBox[
8 ?) I1 h2 _6 b/ M2 U/ |) t/ t% E RowBox[{"(",
' S, Z% V& C) R8 ] S8 ]0 b RowBox[{4 N: V5 I7 h+ v2 H
RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
1 T" s5 {7 Z4 |4 g SuperscriptBox[
1 y8 B* t0 R2 |5 w" c2 E RowBox[{"(", + |0 {4 I& h) E& z/ ]' P/ L3 M
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 5 Z- e$ b& S! L- _1 q2 j
SuperscriptBox[
4 o4 T& y: I' N RowBox[{"(", 0 a2 C9 W R- R4 d
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
/ x! Q3 c% a9 ~3 ~* _ ")"}]}]]], "Output",
' l, r; I1 h+ A% H( ~: g CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]8 g% ~+ ^5 y/ n/ r
}, Open ]],
0 ]7 l+ a4 O, F7 ], w0 K+ W1 e- e) X7 ?
Cell[CellGroupData[{
9 R. S$ d6 C) X3 B" Z3 j
3 p' d6 y8 b8 |- J, @7 m1 ]Cell[BoxData[{
J7 a; `- K; j v RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]", # ~+ ]% Y2 K; L6 V$ A
RowBox[{"u14", "=",
( c; F% K( E2 m RowBox[{
6 N/ v4 m& j8 y% z3 I5 W. g) V RowBox[{"Exp", "[", % }; a! ]: O( V* X# p
RowBox[{
) T! T( |% O1 m+ A; |$ X0 Q RowBox[{
# v+ ]9 C9 s( k! B# L1 z RowBox[{"-",
+ d y* T: Z( q RowBox[{
( X5 Q( ~1 ~* ]* C0 T RowBox[{"(", 0 l5 G. I4 x5 c3 ~5 A( V0 z
RowBox[{"Xa", "-", "Ca"}], ")"}], ".", : a `$ Q: t) m) Q+ z
RowBox[{"(",
$ t0 f- _* t( L. \; Y RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],( }# i; q& W* B5 z9 @0 `) _
"]"}], "/.", "DeltaX"}]}]}], "Input",& A: R' G$ s. t" o$ A
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
, P" _5 `5 I2 K 3.57796154237158*^9, 3.5779615663176217`*^9}}],% o, W9 }, j. ?$ U
$ f2 a4 J. W" P! I+ a/ @1 LCell[BoxData[
5 N1 a3 @2 X8 w9 i0 D& `( l3 K: y RowBox[{"{", ! n8 A7 P% q5 g0 q. X$ i% H
RowBox[{
+ ]3 i5 S' f5 i& i "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", 1 Q b5 X) T' B" B# g. {
"0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
9 y( o9 l7 \# h7 ?( I0 A/ T3 k# F "}"}]], "Output",
1 o6 R3 z- F) [- e0 o* l, v CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],
9 ]' N" R+ c5 \, j% R! v( H7 T3 z6 F0 p7 } H8 `6 I, @
Cell[BoxData[8 E4 x6 B& H3 G9 ~. x3 e
SuperscriptBox["\[ExponentialE]",
! Y; ?! o1 H+ e+ Y) g4 H RowBox[{"3.141592653589793`", " ",
/ g9 D7 B" X. B5 v$ H; j RowBox[{"(", * o# Z7 q$ A9 g/ G! c, K
RowBox[{
3 Q: p8 y' w' e3 ] RowBox[{"-", , k- ?$ T$ ~; _+ W/ B: s5 [5 m, ]
SuperscriptBox[4 s* F9 v. y! j% E9 e7 q/ r
RowBox[{"(",
t3 l3 `* n9 c4 A1 |. g/ G: V RowBox[{( Y j. V! c+ C( p! D' t
RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-", # r3 h* \( R. h- Q- c& J. s
SuperscriptBox[
6 h9 C1 F( r) {6 o, S0 q RowBox[{"(", 1 o/ Z$ c' h& f' q. [# R
RowBox[{
% _5 d8 Q3 C8 D RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", ! [$ f" G6 ?: z X3 U/ ~
SuperscriptBox[4 k' R7 p- w8 h S0 {
RowBox[{"(", - O% a. S' f1 D* @5 q! O2 _6 B3 Z
RowBox[{, M+ ^8 d& h# l/ y
RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", ) _$ p, m7 V& J7 r' @9 O. c5 W: o$ X2 `
SuperscriptBox[4 U r; S% F9 y6 X3 f, R& Y, b
RowBox[{"(", 5 i3 g2 F4 Q. a* [( J( V
RowBox[{
* f" W- q3 A5 _ RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
7 b3 M' N! h+ U/ J2 b' z8 R' c SuperscriptBox[
! m5 M' e8 w7 O% T; v. y3 q RowBox[{"(", 0 n3 ?7 t% g, V9 i; w
RowBox[{2 z9 U1 y$ [3 W; {2 n. o
RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
. m) k1 `' N0 @ s L SuperscriptBox[9 t! [8 l7 w: c! Z
RowBox[{"(", ! }1 S; Y; u6 x( w( d
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
5 H5 e3 q2 {+ i8 s9 d SuperscriptBox[
6 N/ A' g" N3 W) r8 ?3 ~( [- ~6 f RowBox[{"(",
( }" Q2 ^( Y# F9 r8 X; s8 } RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
) i: E2 [! X* g; V6 {# T SuperscriptBox[* M6 x! I8 V7 U$ @8 o( m, @
RowBox[{"(", 9 x/ P& ?7 R; p3 g, i- O1 B
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
' g" A [/ `- o- B0 R# K SuperscriptBox[3 q. a- p H( C2 _
RowBox[{"(",
( C3 T/ B9 i7 C9 @! | RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
! C/ c' Q( u. g1 V L0 J ")"}]}]]], "Output",
; v/ ?2 @/ m/ F. E CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
# b. e4 }) _7 K4 h1 p# N; O}, Open ]],
5 ^3 S, d# q* F3 T5 L* T
" L& A& A2 }3 _Cell[CellGroupData[{
/ E8 H' [' }7 r0 j( A
% a/ n ]: ~, d2 ]' ZCell[BoxData[{/ F# W \% ?( g. h/ L
RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]", + i* E: a! [0 K
RowBox[{"u15", "=",
" j1 g& [* l, Y* W5 ~+ I5 L RowBox[{0 B2 @; l/ z* ~
RowBox[{"Exp", "[", ; x( f$ G" z/ W4 ^; [, \0 {/ A9 E' j
RowBox[{
t. q# I/ B1 }. W% H RowBox[{
) @& h! m5 C3 l9 p- I# k RowBox[{"-", ( S1 `* V& |" o2 ^: _* d& V" k1 D* M
RowBox[{
; Z7 U [! s; C/ h RowBox[{"(", 7 Y7 g; q: U" J: F. x
RowBox[{"Xa", "-", "Ca"}], ")"}], ".", / x, q8 p$ c9 u
RowBox[{"(",
! x# k% o! x3 ^6 P RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],- X; I2 _3 C+ s1 ~; r: n
"]"}], "/.", "DeltaX"}]}]}], "Input",4 B# |$ r: a1 v T9 Z* A
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
2 J4 b* g5 j* B/ m m 3.57796154237158*^9, 3.57796157098203*^9}}],
: P7 h7 @/ w' x9 w( k% R
8 y% l* g3 A5 L- n7 A2 \Cell[BoxData[) C! G' c/ E; D# d5 Q& k# W
RowBox[{"{",
0 C) p" E& x! N! \ RowBox[{
+ k9 r- o0 }$ p "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", ! i5 ?. s( d. V, @
"0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}], . a# y, R' U# ~1 t: t* b
"}"}]], "Output",
$ L0 \* J& M: E3 O+ @: A. } CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
, D3 x2 q B5 l+ _; l" h$ Q
. G8 V3 S/ ]3 BCell[BoxData[
% M& C7 U3 X' e- T) n SuperscriptBox["\[ExponentialE]",
7 Z' c a6 A; a v$ U8 w! J1 { RowBox[{"3.141592653589793`", " ", 8 @, H0 ^3 s1 @+ s4 F/ C- _+ o& B
RowBox[{"(",
7 `. h ?/ f8 h! _, K9 I RowBox[{
# y% \9 v- e5 w) Q RowBox[{"-",
, }: W9 K$ P Z: ` SuperscriptBox[
5 |3 l+ c2 \1 Z( c0 Z# O* V RowBox[{"(",
" ~* W6 [4 `, i RowBox[{. |6 F( n! Y5 h# ]8 g
RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", 9 A9 W7 F$ n. R+ r# p" U/ _! H6 h
SuperscriptBox[0 T e$ d/ G7 F# y; f
RowBox[{"(",
9 l- R/ M2 @" O7 ^7 g' U RowBox[{
3 d9 Y6 n; v! ~, e& v8 _6 ~1 k RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
: V, e; [$ s" P' U+ W8 u0 m SuperscriptBox[8 g9 {7 Z' C; I# T! B+ h+ ]: I6 e
RowBox[{"(", . i4 i0 s2 A# O7 Z. e( h. }
RowBox[{
! d1 [/ z5 J' W6 `% P, i7 Q" d RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
" X* g( J6 }% d( N: @$ v SuperscriptBox[
) @( Y. A. i# @! N2 ]' E% v RowBox[{"(",
+ y F0 r5 }1 F) w6 Z RowBox[{
8 Q5 U7 J9 o2 t* f, D0 ~7 d: M1 V5 D RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-", $ N$ _1 E* s( ?
SuperscriptBox[4 u9 U+ k( G2 |9 O( r
RowBox[{"(", $ ^+ H3 L ?9 y1 p p Z8 [
RowBox[{
' k7 G1 T7 i! u RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", 4 q1 [2 p2 o4 y' L* u. P3 Y
SuperscriptBox[& J1 W! j+ n7 E/ n" N4 a
RowBox[{"(", / |6 R) A) E# O4 m- ~7 J, H; G
RowBox[{, a3 c q* ~: z8 S9 e5 X
RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", , |4 M; m) x3 p n0 Y r
SuperscriptBox[2 g: J* O# I$ k
RowBox[{"(", 1 R- I/ k# _! D3 G, }% u3 I
RowBox[{& Z1 d! G$ a+ M
RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
9 o! ]4 g. {! i( N; @) ^& A" x' \2 i SuperscriptBox[
5 C4 d4 S$ {# w4 ]/ ^7 w% p8 E5 }7 w RowBox[{"(", - e- Y2 Z# M d
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ( O O4 Q6 s& g$ d
SuperscriptBox[
$ L/ w s Q7 p+ T8 x) ]" B RowBox[{"(", . L8 C$ Q6 D$ `; o) c' k
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
, y# o, \( B, w8 T$ x8 s ")"}]}]]], "Output",$ U7 t0 I8 o5 X; X6 U5 m5 [
CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
/ r$ e6 ]6 y; j2 c" I}, Open ]],
3 o" Y; V9 R+ i6 ^& A' U1 ?4 G# X4 j% V/ f# m/ O
Cell[BoxData[5 I) G8 R9 r/ d$ J- t
RowBox[{"For", "[",
* C5 P/ q; N; A$ Z3 t RowBox[{4 x/ Q; q1 p- b- K- B4 s
RowBox[{"i", "=", "1"}], ",", 8 G( v0 _: w; L( E$ P( w
RowBox[{"i", "\[LessEqual]", "9"}], ",", + O2 E0 f4 d9 M' d: a
RowBox[{"i", "++"}], ",", 7 g3 N: `% {7 \4 c9 u; D# H
RowBox[{4 f" b" Z* S$ W7 C( v
RowBox[{"Ca", "[", % L8 a, C3 O- r, B4 x& E6 t- X
RowBox[{"[", "i", "]"}], "]"}], "=", 6 X7 p0 |, R( h
RowBox[{"CM", "[", % q* {: N3 m# |% E& G! w
RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",) F7 `2 m+ g, p' j$ n
CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
; t% V; I. x+ M3 J2 x
/ o) B: I2 h7 \' @" e/ p$ n9 NCell[CellGroupData[{
7 ^0 t; j# D- Q) @+ G/ \
; d/ q" c5 M5 U, w) U# ~# a1 s p$ fCell[BoxData[{5 O% Y5 g0 e6 W) ]. r9 H2 s
RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",
( u8 |. |5 F$ \: E( i RowBox[{"u16", "=", , i5 u* T; o) e5 ^/ L3 n" ?4 {4 K. K3 I" O
RowBox[{# M& |$ r* [4 R3 z
RowBox[{"Exp", "[", " S/ d( m0 q* S3 C7 q7 Z# s
RowBox[{. S7 U5 H0 p/ R; p! O- K
RowBox[{! l% z* @7 \+ p. A" f2 _
RowBox[{"-",
/ m, [; r5 S% g" n6 Z RowBox[{" H2 K0 G6 T Q+ \
RowBox[{"(",
2 m- @' a Q6 X/ ^1 q. R RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
" X }8 \: i5 k% @ RowBox[{"(", 5 D2 u! I" f" a* P0 p& Z' o
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
/ e* `) Q% Q S6 L "]"}], "/.", "DeltaX"}]}]}], "Input",
i- n* M. B X! Y CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
3 F; J- r8 g+ p; X' T- Q$ k0 ^! l 3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9, 2 s+ s4 M* a2 G! S7 J- p9 H
3.5779615751004367`*^9}}],
& s+ Z6 u0 H# u7 C4 R; m, {3 L- o3 c- a! ^* Q2 X
Cell[BoxData[' Z' L* }3 D. y0 E p9 e4 {5 \
RowBox[{"{", 4 c) E% \! Z1 b4 p
RowBox[{, n: f5 B3 o* S$ r
"0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",", : r. O8 ~7 g$ p" t
"0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
$ j# h* S+ D4 M& y% g "}"}]], "Output",0 S$ C$ j& t% v) T$ O
CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],
8 i$ M: I# y* E o% P1 d" e4 i2 H, z( a5 G
Cell[BoxData[- K6 w1 W0 N. l: t, Q
SuperscriptBox["\[ExponentialE]", * {/ f, [& X# \0 W8 A& x
RowBox[{"3.141592653589793`", " ", 9 o" c# y# i! P5 y Y! G. g6 P u
RowBox[{"(",
( z& A2 W/ t- }1 y+ A4 N1 d! R8 W RowBox[{
+ s: t* q3 A# [ RowBox[{"-",
7 o% c% x4 u( q3 `/ ` SuperscriptBox[
! u' _% v& h) w0 g RowBox[{"(",
) O+ E6 y( r% J. v6 A7 r RowBox[{
2 c: i% d9 `+ }0 h8 t RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
/ M, c2 s3 f9 w' O6 D- R+ v' @ SuperscriptBox[
) x0 J4 z- G, Y- H RowBox[{"(", / g# S! f1 h' y5 ~" K( V& n
RowBox[{
. g0 u5 ]% ]3 c! s0 L RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", : D2 V8 N7 A# ~( e9 q0 Y! u: x
SuperscriptBox[% }2 Z/ ^9 F( k/ g, ?0 q& L
RowBox[{"(", 1 D/ s" R T6 c3 \0 x
RowBox[{0 O. _( x& V) w F8 S8 h1 g6 f
RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", 9 n# A( f- y( }$ R: }
SuperscriptBox[* M) _3 T8 j7 A4 S
RowBox[{"(", " m! d" M) _. }
RowBox[{
$ Q: R: r0 g) O1 a3 _7 b; k RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
. O) J5 o: \- f SuperscriptBox[1 y0 Z5 v" @4 q2 t5 Q. U1 m% |0 A
RowBox[{"(", & z+ T: ~0 A- r4 o( }- r* K" N* ~
RowBox[{1 [' u$ @' T# e' f8 E* c# q" {
RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", + q$ p! o0 _1 ]" d0 p! w/ u
SuperscriptBox[
" T5 e( i5 q) A8 a: P RowBox[{"(", 6 A A2 T& u) K6 V! K
RowBox[{$ w3 \" w( g0 m* L1 u( i0 r
RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
$ P1 q4 e& k5 d SuperscriptBox[
H0 M. W# Q e RowBox[{"(", ( e+ K1 ? c2 v4 h
RowBox[{
7 e% j% _$ h5 k; H) M/ G RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", 0 N# Q6 ^ _9 Q& f9 e
SuperscriptBox[
, `: `" M m! ~6 W$ V: }' V% y RowBox[{"(", 2 x8 [5 t) a9 u& E" X8 s- q' M# |
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
$ W. Q* |3 [2 |8 m" p SuperscriptBox[
: i3 Y2 c2 f0 ] RowBox[{"(", & o M6 d" B+ A0 C
RowBox[{
3 F; D5 \9 Y+ g# @* ?% W RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",& N5 t5 q8 s# E+ K7 R i
CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
4 o% A( Z0 N0 `! L}, Open ]],3 J; E& `. _' G+ w3 U k, A
' \7 F( K% T/ ]$ A0 c. eCell[CellGroupData[{
/ n0 ]( S6 D" w5 M2 [" `
* E& g5 k. k% A6 m; P9 RCell[BoxData[{3 O. M( q; `( z
RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]", 3 E! l a0 K8 B1 j9 m9 p
RowBox[{"u17", "=", 3 x* }. f% {- @8 t
RowBox[{9 K/ X+ j* d- M8 \: F6 k3 ^) g
RowBox[{"Exp", "[", # j4 |1 |! G4 D/ V7 ^2 D
RowBox[{! z' l2 C* {8 J) `4 C7 d: u
RowBox[{. Y- h9 k; c+ i! F, c
RowBox[{"-",
6 N; O/ T4 @: y( d: {6 u. p% z4 S RowBox[{
+ C: \' Q% a. w: X5 g/ `; \2 i RowBox[{"(",
0 k3 Q, c! L0 A, A8 v* K6 P" ` RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
, f$ U/ a5 S+ V! }. T RowBox[{"(", % l% U) ?- ~6 r. t' Z @
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],7 Q. C0 S" H5 k( o
"]"}], "/.", "DeltaX"}]}]}], "Input",
! A" S0 _! a( p7 \- h# X& H; ~4 y6 h* ^ CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
( k9 @( Y. A' G, G5 { 3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9,
9 s3 d7 D% s, g, k 3.577961578953644*^9}}],9 x, H/ O$ _0 D. E+ l4 b5 t
2 J: P3 A* h% ?& SCell[BoxData[, b. {1 P( D9 {* P8 @# ]" d
RowBox[{"{",
* g$ |5 H5 J" _ RowBox[{. `. j' @ e6 m* W# J) f
"0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", 4 [ \7 C5 w+ j, w* j
"0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}],
; @' b3 s3 a5 }) j6 u "}"}]], "Output",
3 f$ h8 J/ I1 i+ G2 L, c CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
) Y( `$ G- {0 w3 F5 s: s
, O1 e4 i$ M& C8 B; T9 QCell[BoxData[8 Y4 T; H7 N/ c& ]! w
SuperscriptBox["\[ExponentialE]", 5 A" K# S; S* f- k
RowBox[{"3.141592653589793`", " ", $ E# {9 p% J! U% R( e
RowBox[{"(",
, W" @! s7 Z" G5 i7 Q5 P RowBox[{
) V% e) g! j+ h! q5 o; o. _ RowBox[{"-",
$ g% h, R5 D- W SuperscriptBox[* p: l/ T, O* r
RowBox[{"(", 1 u$ v/ Y0 }5 x( L
RowBox[{7 L( `" S! [3 s- p: W7 j8 d9 l
RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
* b2 p! T1 r2 s; `. S SuperscriptBox[! t+ l2 o3 j; H. b2 R- K
RowBox[{"(",
/ H9 l' Y" B" t& c H- w" P RowBox[{
`( k) E( V0 ~9 {9 s4 {4 S4 o5 y RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", 3 d$ q8 ^& t; _% C/ T' k
SuperscriptBox[& Q6 n1 N9 N! O% A/ B1 ]
RowBox[{"(", & Y* ]) V. r. T( H
RowBox[{; @9 \" X* r) o/ p. D
RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", ; B0 l+ I) r5 s+ R
SuperscriptBox[8 }; `' A. n: y+ `& B6 k& }
RowBox[{"(",
' Z, O8 q- I% Y4 d RowBox[{
9 T# G6 {+ W# e$ n' b/ W RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", , u' A6 N0 [( \. J
SuperscriptBox[
8 s8 A; F9 l4 E- }+ ?' V RowBox[{"(",
a1 u0 @: {" b z$ V# W# ^ RowBox[{: N# _- a; O2 i" f1 \1 v- k2 u
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
. E8 G7 z; J- ^6 \9 x SuperscriptBox[: ? w9 i( A) T
RowBox[{"(", + W7 U7 n u7 H9 A
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ! J( Q1 N3 e& s D) } a# r
SuperscriptBox[1 @/ [2 }+ @( W/ v" V
RowBox[{"(", & W4 G. w0 o+ \. W7 \
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", : O5 W+ Q$ G: M% D
SuperscriptBox[
( K, q' f( ~; x1 _3 ^ RowBox[{"(", & L( _' U) j: i. C& M1 w
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
& ?1 v. T. S% }) P0 f; E4 R' G6 X SuperscriptBox[* L- e1 A2 F6 X4 B/ V
RowBox[{"(",
8 D$ S; U/ Y" c RowBox[{' s3 |7 ], R5 z# s% {2 F
RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}],
' n: J: @0 L: y {# `3 y7 N; V ")"}]}]]], "Output",- m7 Y% K" f8 r
CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]. ~" J8 ?; s7 _7 y
}, Open ]],5 b4 a% X U: {% t' _
; Z5 [0 f6 U8 N' V$ T
Cell[CellGroupData[{
, ]5 M% ~ [: Y* O! n; _
- x1 c9 A3 t: @. a; J+ E3 X1 wCell[BoxData[{$ }7 m9 ?6 i( a3 ?# @: C1 t
RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]", ; d3 I1 a P; p' B& ^5 K6 ]
RowBox[{"u18", "=",
1 O0 _3 S4 I) f) ]0 Y RowBox[{
: x8 W0 [# S V+ k$ |% d RowBox[{"Exp", "[",
* @$ t. g# T3 z; d$ L+ z1 m RowBox[{ N* T' I: f+ P
RowBox[{6 d1 C# ~- o* g
RowBox[{"-", 4 C$ D; s8 s7 O( H- {
RowBox[{
3 f7 _; g- \: p u- O3 U. w+ j RowBox[{"(", $ t1 |/ r5 }/ I9 G( Z
RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 2 U) q9 |. h: {+ {
RowBox[{"(", ( H( V1 |! k: { Y4 q
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
9 F {9 r, ~& h0 f" e "]"}], "/.", "DeltaX"}]}]}], "Input",
7 T J& c/ x! R4 P! t) } CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
^4 q1 h3 |4 T' y" S 3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
# ^2 j) j+ v& D. U' } 3.5779615828848505`*^9}}],
! K s' x# W2 V+ H' n& z6 R( H7 v. M* B& v
Cell[BoxData[ y9 o, O- {+ |2 D
RowBox[{"{",
0 Z- X/ [% c2 Q& }9 ~: q: x e RowBox[{
2 P8 i& B% `" J" @& e& q% ` "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", # D0 s D7 m8 n& {2 ]. w5 M3 {
"0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
4 l# F/ b; ]0 `$ y& w4 O "}"}]], "Output",9 E1 V' i) |: @- E- v& ]
CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],3 @5 x: U1 B& Z8 l
2 B8 \) c. x& R5 S/ P" h9 FCell[BoxData[5 ]4 Z, d" u& N, R! B1 x
SuperscriptBox["\[ExponentialE]", . I) W4 Y6 ^& O' d
RowBox[{"3.141592653589793`", " ",
/ j5 ^6 `( E1 H5 G7 Z/ d6 L, O RowBox[{"(",
5 F0 z5 h5 n! r8 q RowBox[{
/ _) |! E' B% G! N& p6 E RowBox[{"-", 7 c: o X7 \0 s8 v" l0 j. h2 w9 F* g
SuperscriptBox[
* `# \* O0 _2 f) j! W* D RowBox[{"(", ; w4 A& c5 T( _( P% J
RowBox[{
: C& v& H# g6 Y/ Q7 m RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", 5 D7 W2 p' C7 m2 e x! ~1 T
SuperscriptBox[
$ B5 G5 K$ I' z3 w, E RowBox[{"(",
' H5 A; |8 V* R1 c RowBox[{
% K* m% L" G/ ~: D RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-", $ A" L0 k- ?" c# ^ }
SuperscriptBox[6 e( h) S0 i$ x3 A$ Q
RowBox[{"(", & F+ X0 E/ [/ K. c
RowBox[{$ z$ Z0 e& K- H9 S" e
RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", ( S+ o, u* u8 b5 G, w# @& ?4 V
SuperscriptBox[
* r) Z" r" P: k4 v5 R7 M RowBox[{"(",
$ k2 j9 m0 }1 N0 \0 E( ~ RowBox[{
- b1 c/ y, [- B$ z! u: M7 O3 X RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", 3 D5 ^, m3 _) v3 b
SuperscriptBox[
0 T. S, m! t. t# f- b+ T. H# c RowBox[{"(",
/ A/ |7 j' v- B) r) T RowBox[{
8 g3 d2 f+ s' u4 m' R RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", ( Q8 @7 z1 o" [7 [( A# N4 w
SuperscriptBox[! ?- r1 z6 }/ o' g4 @( M
RowBox[{"(",
! q; g( G7 Y o& W RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", , G3 o! u: U! N. |
SuperscriptBox[% n7 J4 W. [' k$ \
RowBox[{"(",
" v9 }+ N! j! m+ D- b RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
, G% A; d$ r, \; h SuperscriptBox[
4 s9 B- X0 e7 E$ ?& e* t" K! K RowBox[{"(", 2 i2 r" E% k4 h7 x1 ?# Z) U5 _
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", Z% H$ I9 J. @5 |# w9 M6 m
SuperscriptBox[5 M1 F v+ m8 a9 H. ~
RowBox[{"(", 7 E; L H3 k# J( s. v* O
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], . v1 s" F! S9 W! v1 Z
")"}]}]]], "Output",
^( [+ x& m4 L8 T4 N4 q w( ^7 L CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]
+ q& h9 D7 _# c! v" T( k: r( q}, Open ]],
+ H4 [ M! T) N# F$ A/ }$ s, B& P1 |$ h% h }
Cell[CellGroupData[{
0 m' B+ i! {; r* K T/ T5 Q% V" y( k; t( a4 j, F
Cell[BoxData[{
" t$ Q& m8 M0 U3 p. s ?) O RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]", # _0 ^# Y& F5 k4 N9 o) r3 p
RowBox[{"u19", "=", * B' T' S y- f. f8 R. t
RowBox[{. U5 e$ N3 t2 L" z4 v
RowBox[{"Exp", "[",
7 W$ R. Z6 l! a% ^8 I RowBox[{ w& `8 U4 j: m2 [& o% o3 i& N
RowBox[{
( a# O% |/ w9 w% f5 [7 k( W RowBox[{"-", * N* ~$ n1 ]* |5 t- I* n
RowBox[{
; y8 J1 m) G1 o4 Y L0 A& T) [ RowBox[{"(", : W* E, d. M* T5 d+ @9 }( m* T
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
Z+ C3 ]/ V" Y2 x' t+ T RowBox[{"(", % j1 b8 v8 f/ f; o
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],( G( K& _* `- n3 R. C, |
"]"}], "/.", "DeltaX"}]}]}], "Input",
" o9 }* X5 N, f+ L9 W* ] P CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
0 G J; H, Y& ?- Y 3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9,
. ]$ C( d# x+ t% e4 l- @ 3.577961588890861*^9}}],
7 F, P' x" y* K4 i; ^
' m5 z# m5 X1 P A! LCell[BoxData[ J, I# O4 H$ ~/ D1 l" G% e
RowBox[{"{",
+ j7 \! a/ j; @% h RowBox[{
+ G1 g+ R2 y1 }$ I7 Q- T "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",", ; }2 |6 y, S; n8 H2 [; l4 d) [
"0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],
7 f7 A+ U5 k( k2 @: t8 @1 M( |) i "}"}]], "Output",
- k, G' K/ Q5 m! C5 |( x- | CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
) ]- c* u) h5 W# `
1 \$ K% Y" o6 O& `Cell[BoxData[2 n8 |5 l* }& R3 i
SuperscriptBox["\[ExponentialE]", 5 ?& _5 ~2 P& K, y& i
RowBox[{"3.141592653589793`", " ", / ?0 h# C9 D0 I0 O6 M" b R% c/ i
RowBox[{"(", 9 d# d2 C: }0 ~3 h H& Y2 r
RowBox[{
9 D9 G( @5 O S: } \" N RowBox[{"-", 5 j9 r( x4 g- |. ?; s4 E4 n H9 x% H
SuperscriptBox[
- i) V; f9 C$ |( x1 |7 z RowBox[{"(",
# A0 O; Q+ W" d- |7 q6 v5 a RowBox[{
7 f8 X6 x( B; m* F8 |7 F RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
7 o; Y+ X% v+ z" k SuperscriptBox[$ s; [; N5 h8 M6 @
RowBox[{"(",
" @% }, q; z/ m6 u- P. e2 l; B RowBox[{
5 g! A) \( q# O5 v: G, G RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", # ~' Z8 Q+ ]6 d+ T
SuperscriptBox[
8 A3 r- n$ Z; b0 R4 M0 I RowBox[{"(", 4 r/ j8 R: y# d9 Y# s2 d
RowBox[{) W' [% |4 v X5 v* E
RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
9 R( j9 k) K2 M6 e8 O SuperscriptBox[
* `" H4 w+ U' n7 T RowBox[{"(", + `" `/ V! d& C: Z5 c) P! j1 z* E( K
RowBox[{
7 }- [: d1 j& w1 o+ g9 \6 x8 C RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
3 O- g* E7 S+ m9 _7 K2 A3 k) F SuperscriptBox[/ F( O) T5 v. m, o" L+ j7 K5 A5 F
RowBox[{"(",
" ^1 i) H( {' B/ P$ U RowBox[{
- R# ~4 R/ S# {' P3 _3 Y, \ RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
4 o+ P {3 m5 }1 h# T, R% D8 n SuperscriptBox[4 ]" A1 t5 f6 M+ F+ X
RowBox[{"(", % _+ y; o9 A2 G7 B. w/ y; s* t+ K
RowBox[{
) K6 [4 ^5 b; S8 _+ W" g# n: C' t RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
& f8 P) P+ Y. L" I SuperscriptBox[
! {- r% S m5 u2 K+ `" F# O RowBox[{"(",
' p" d j- P$ m0 |6 j/ [0 d8 ? RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
+ Q4 Z# _& [+ p# X1 y0 k1 A1 J SuperscriptBox[
" G' E# p0 H2 b RowBox[{"(",
# d! K- b* k4 j& G: u RowBox[{
% z2 C$ Y3 e( R% T7 F" ~ RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
4 t6 `4 ^. v7 j+ b# x# ]+ Y+ Q SuperscriptBox[
! N0 a1 V& O* l RowBox[{"(", . U" i$ X9 h o$ t J7 a; b
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
, T2 T3 d. [1 B' W% z6 }- j2 G ")"}]}]]], "Output",9 x+ L% i4 M) U# `- D6 e
CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
% U& P% y% [0 X% Q}, Open ]],: u3 n! W5 l, Q3 j8 i
, x9 O" r! ~+ Z5 y
Cell[CellGroupData[{
, S! {% U1 z- e5 |) h: `, { ~6 l$ U: `( z/ X
Cell[BoxData[{
4 M& ?1 [+ R' t# U m* D RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]", & w/ e/ q& |, `) {" C& e
RowBox[{"u20", "=", 3 V% p. v' p( P0 n9 Q& e/ I+ |( ?
RowBox[{
( @3 q+ \/ p+ [, }% M RowBox[{"Exp", "[",
5 J0 r# n- Q. `5 ^% C f* U' P' O RowBox[{' N& m- v. w9 v" q# b
RowBox[{
# z/ N- `+ L, _, ~$ s: ]6 ] RowBox[{"-", & \( ^% _6 _6 ~6 J; g: S3 a- @
RowBox[{% p* z; g* [$ b" G3 d) `( r
RowBox[{"(",
$ C6 ]; b# V. N- X. o2 O! c' m RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
( B+ y0 D3 o" j$ k, W$ r RowBox[{"(",
$ L. ?" W. ~; `- c# J$ } RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],. B$ N$ u7 n+ S) |
"]"}], "/.", "DeltaX"}]}]}], "Input",
) N- R1 P8 p! `4 x& }4 g CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
. G6 m2 \5 h4 y% p5 z 3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9, 9 g! m( W! ^: G0 G" p# P
3.57796159382047*^9}}],
% @8 f. J2 a1 d' l) h! M: k+ X, v3 |1 R- [: T5 U
Cell[BoxData[4 v) h4 }% b; x3 N1 ~: j4 d+ M. a
RowBox[{"{", 4 e0 G8 [7 E" ]) Q9 b
RowBox[{
/ d6 O9 G- R% A$ F "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",", 9 ]1 P+ ? R& P
"0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}], ( [" |* ^4 ~) E, @% S5 o# ]
"}"}]], "Output",& {1 {6 j+ w. S$ C. v! f
CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],- ]6 z, F" C3 m" \! h
) l C- Y+ q, D% @% z3 u4 A
Cell[BoxData[. e% f- p1 [2 O. H, G$ h7 z, j
SuperscriptBox["\[ExponentialE]", 1 S9 Q/ p8 I5 m( E
RowBox[{"3.141592653589793`", " ",
6 E* x6 a; x8 V# a' X! m RowBox[{"(",
% O6 F: F+ u; d1 p- [ RowBox[{/ S0 b9 h0 v8 R
RowBox[{"-", & @# f+ c8 }& U' R' e
SuperscriptBox[
# n0 r+ R6 Z" ?7 g3 W8 M, H RowBox[{"(",
; K8 \. n5 Q. u# A2 C X RowBox[{: ~) R& n7 \/ B$ C9 p: o% e
RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", 0 z8 g- ]% \) p/ q; o: | B _
SuperscriptBox[7 t8 P7 h$ m5 b. g1 b
RowBox[{"(",
! Z4 h. L. W9 j& x' Y8 r/ _ RowBox[{/ f% g2 t$ m y- F1 s
RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
% I3 v+ R: E6 k6 {! `3 O$ X SuperscriptBox[ d! t# y2 |$ C
RowBox[{"(",
0 a- O# [1 v; A3 t RowBox[{
+ d$ a$ Z/ [& v8 [4 [+ n+ { RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
- {- ^$ W1 r: E7 ?. k SuperscriptBox[: {/ d0 `3 j7 U4 c1 ~& ]9 {1 K* }" a
RowBox[{"(", 9 J. m+ _) z- L: _2 p) U
RowBox[{; ]6 U* _* ^/ f+ `
RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", ' ~' t0 F, v% W' o( n/ {/ e. x
SuperscriptBox[
. Y$ x- f0 O' d8 n RowBox[{"(", ( G/ [* @, r. F: g6 {- e5 ?% }
RowBox[{, W: [, I2 ] F! L- o, `
RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
' g4 p( q. ~9 ?. g6 k SuperscriptBox[) p' T' b2 W4 E7 h& Z
RowBox[{"(",
& ?6 G" j( A: E, q2 g7 R RowBox[{& @8 X- k* e7 x$ W
RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", 3 Q# x8 @; j& j( ~8 O: W. a
SuperscriptBox[" [; d* ?1 c9 J2 ^" L) M
RowBox[{"(", ; t A T! S- T Z1 E1 k2 T; u8 L
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 2 b ^8 J. C+ ?0 y- b
SuperscriptBox[
' m/ \! {2 ~% f2 `+ |) G' a) _ RowBox[{"(",
: p5 W! t0 a$ r w/ C2 a2 ?4 V RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 8 U: b3 Z- i- p$ ^
SuperscriptBox[
3 p+ I+ p& {+ T4 R) \# x% M" F RowBox[{"(", ) P- t9 J2 z, A/ S% H7 v8 _1 Y% ~
RowBox[{
B2 j# q w w% O; T, O# V RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], : H* Y1 M$ B' }5 M. M; t
")"}]}]]], "Output",
3 L i- h. c8 Q7 F( Y/ X: t/ A$ P$ H CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]+ Q! m# ^6 x. J9 {7 r
}, Open ]],
% F* Q0 m! e' [/ h" N& B' q/ k5 E( O
9 R @# x- N: n& @; M& oCell[CellGroupData[{
C2 }# `( Z) M$ K/ d6 F$ R9 \ h* u/ l0 D! T3 N0 b
Cell[BoxData[{; C% {% p2 H' G2 J: Q6 ~+ S& p
RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
+ t5 Q' |" L2 Z RowBox[{"u21", "=", H& g: r G2 t- I: n1 h
RowBox[{
, D! y6 w7 x$ m# M4 j5 x* | RowBox[{"Exp", "[", 9 _ `- O& s! v) v
RowBox[{
3 h" d2 U* o( C+ G# a g) G RowBox[{/ j7 k* ^+ \5 K0 S) c
RowBox[{"-", ( q9 B1 e' Q `: F3 d! n3 {
RowBox[{
* I5 F: Y/ `0 \1 M- l2 K- l RowBox[{"(", v4 d8 U8 Y, k& U& q* k5 Y! \. Q
RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 2 N+ k% k, ^7 r
RowBox[{"(", * D1 k% |* K. Y1 J: N
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
3 a. Y# N$ v A; ?4 o "]"}], "/.", "DeltaX"}]}]}], "Input",
7 ~/ N' I! M2 _6 A! }9 D4 W CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
y& L0 P9 I) \ 3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
$ V1 r- K/ }; U7 G3 Q+ e 3.5779615991556787`*^9}}],. H: W! g* V' m( Y" a- t D4 p, B% J
M- V" m6 b2 p8 JCell[BoxData[+ I1 R u9 ?; h4 y
RowBox[{"{",
% W. _( x: j2 |: X0 r RowBox[{% u0 o. C7 P x# s2 H6 M8 c
"0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
% @ y4 q6 F$ O" i7 k "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}],
' ]& I7 Q" L' h; F- Y "}"}]], "Output",% O) I t) \" c' E9 w
CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],
& u* g- b O% X$ Y: M- U* |) n) m, d! y5 R
Cell[BoxData[
) d) L( P) ~4 X& y; W) @ SuperscriptBox["\[ExponentialE]",
* L. B9 Y! Z- h5 e2 M/ X8 m3 |3 x RowBox[{"3.141592653589793`", " ", ! q: n3 s5 A q7 q+ L/ n
RowBox[{"(",
# r# p- q U" G RowBox[{
7 y- e6 e; ?' ]( S; m# g$ ]) K- C RowBox[{"-", , U a* u. W4 z& b- j- |
SuperscriptBox[: l$ K0 L& y! ]" c+ w
RowBox[{"(",
& q& s) g' Q( |! { f4 [ B RowBox[{, `* w- B9 U* c, l6 B# Q2 P
RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
: @0 B- z: V1 A: u+ ~ SuperscriptBox[8 S, h: k7 }1 b! n0 l
RowBox[{"(",
& a& x, T1 Q7 n9 m# a RowBox[{" L! ~1 x& {$ S p
RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", - T: \+ E6 {% T: u0 s, k
SuperscriptBox[
/ w' f8 z% a3 a* i RowBox[{"(", . N0 \( e8 N; h; z" x( i
RowBox[{
$ M# L; F3 P% ?; C! b+ O: E9 v RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", ) j; m; T3 ?9 [3 s @( D
SuperscriptBox[; \- i7 L0 E0 A5 i" I
RowBox[{"(", . {3 t' }' I/ X* K! l9 b& K
RowBox[{
& e/ f U% `4 s# s7 b RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", 3 s& l+ z9 \1 e. \, l" N
SuperscriptBox[( I$ Y* F9 d) E2 _9 b# X
RowBox[{"(", $ h' u2 }) N6 [7 n) H5 X0 ^, H* j
RowBox[{
* |3 |1 g" o# H& r5 G RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", - Q0 R: C1 R% Y. q
SuperscriptBox[
8 I3 r0 H" |% N _9 H$ v) @3 S8 P RowBox[{"(",
, f- e% G |( b7 P- _0 H O RowBox[{
V3 B+ G. f9 \7 }& V$ D2 ~ RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
1 A$ G6 k8 F. H( x SuperscriptBox[
1 N w5 n" ]7 Z0 @& z RowBox[{"(", , [' |; ]+ x) s* ~ ]8 g; z' n
RowBox[{
+ v9 ?( F" l% A$ y RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", 1 {' e* r" u z$ y% I- x( _
SuperscriptBox[8 g7 ]3 j1 ^4 J, r+ C9 |/ p
RowBox[{"(",
1 b4 G+ D7 w5 ^) b3 I RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 8 g. z! V2 s2 r( X6 ]9 m2 A
SuperscriptBox[* h# q- K: x* d( x" d2 R! D
RowBox[{"(",
7 D* R: l/ j U# z# A& f RowBox[{
F$ [% q4 l) Z9 ~5 u RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
+ G5 h3 d7 v4 _9 E; T) E5 Y ")"}]}]]], "Output", M' `& e8 d6 x1 c4 k
CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]
) H1 w0 i; {2 ]+ [- G}, Open ]],; s/ C6 V# p6 a2 t$ o: t% d
. Q* o6 |. ~% h. ~) A
Cell[BoxData["\:62df\:5408wi"], "Input",
& L1 j+ t# e% f- H! Z CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],' n! p, ^% |- |8 J$ @; a1 o; I p
, U) _. P6 w1 ^! B8 T
Cell[CellGroupData[{( P) }5 ~& s8 w
& Q; O- x. z5 z' S) ]1 H# R$ h
Cell[BoxData[$ G" q( \& P3 C! \
RowBox[{"y1a", "=", : p- g- N* o1 W2 Q
RowBox[{"Table", "[", ! [ y6 F( w5 C. F' g+ B6 A
RowBox[{"x", ",", / P3 `9 v2 A1 V! v! P
RowBox[{"{", / G0 x" V: P# ?' q' @
RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",7 W, k2 k. R3 E0 M2 W
CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {) P1 T, V* @* ^9 ?! {& Z
3.5779226649375*^9, 3.5779226810625*^9}}],$ e: _1 |6 d6 R
: }+ o% w, q% P! v- \
Cell[BoxData[, e" n5 }0 m2 b; l
RowBox[{"{",
6 M7 C: t" T: i) C RowBox[{
, K4 D0 }3 D/ [5 i) _1 S$ { "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", # `8 L- V8 [7 H4 e) M* G/ x1 }
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",) t' I( z n- g! z, k7 c
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", $ u4 R; g/ v3 T: K* p
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ' [/ J+ |, Q1 q" _! T* Z4 @
",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", * D m2 d2 X3 {. ~6 i! y
"35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
9 A, n9 T; c4 y! y# g( y ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
. Z$ ^: z1 M# w, u "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", + b* n3 C& ]' [/ C4 r; |5 u
",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
# x+ t6 o+ z% g1 F1 Q) l/ R/ B8 M "}"}]], "Output",4 k+ t; ]8 G9 }8 q4 T! ^
CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
, y. R8 `+ \; E2 l9 I9 r2 p 3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]
5 W4 m: k% Q( V# U# F' ?}, Open ]],
: q8 L) [# V0 t) `- N
- g( H1 M7 O: _2 [Cell[CellGroupData[{$ A: F# A& t, ?, }5 m* b: H
3 B1 O% @. d& B4 O* jCell[BoxData[: b6 A" [3 y: _5 C$ E+ k
RowBox[{"Data", "[",
0 y8 I% [) u4 T; i) c, y* b1 x RowBox[{"[", 6 u+ a* f" q7 A5 k; q1 s4 u' Q
RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",1 \1 u, ^8 P/ Z' ~) |3 n+ d& z
CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {$ b# ]* B2 V, p; ~
3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],6 A9 H* X2 j4 d" @' V6 s! f
; [6 }0 G$ o1 k% h" r' D: ~
Cell[BoxData["0.899882`"], "Output",0 }- u. l3 P8 b, o
CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
1 d0 x1 f7 F; G- c 3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
$ R3 J& N* W9 Y$ f' Y 3.577961929080654*^9, 3.5780123419375*^9}]$ ~$ r5 ~% x5 V
}, Open ]],
/ F. h9 u* f8 @4 l& `- ^
& s1 M8 R# w8 r5 U) P1 q# w8 m( i H6 M* B- jCell[BoxData[
4 p) ^! q% H" k9 T5 w RowBox[{"For", "[", % [& d" i0 M; f c( ~
RowBox[{
/ O) z% |4 C$ B, T* ]& V! I( R6 P& o RowBox[{"i", "=", "1"}], ",",
6 f2 t# ^& |. _! t* u RowBox[{"i", "\[LessEqual]", "60"}], ",",
. _ c4 t5 ^. e; d: q* G J( G RowBox[{"i", "++"}], ",", * Y+ u5 v9 ]; K. r$ S8 E% u
RowBox[{. p; ^9 N2 |1 O0 ~+ n
RowBox[{"y1a", "[", / `- y. J' t4 L6 H+ l, V7 ]
RowBox[{"[", "i", "]"}], "]"}], "=",
; b# Y$ [# V: l, g' ?) m' n RowBox[{"Data", "[", 7 f* t+ B" n- l# Y4 |0 y; f! y
RowBox[{"[",
- ^9 M. Z" U" w! T+ P! Q RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",; ~$ I% e( F1 N3 p' R
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {! E4 {$ F# [. |
3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
7 S9 X a7 }8 u1 t( N1 ]( J 3.577922923203125*^9}, 3.5779588839702806`*^9}],+ O$ L/ x* h/ k7 f; ~2 O1 v! K
) N" B# x! f' b: y! y+ t$ r! hCell[CellGroupData[{
3 o) o, ~ z/ X# R% y0 X. }, l6 r n* r8 @) ]8 j9 x5 T
Cell[BoxData["y1a"], "Input",) U' s; K* M: T
CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],
& d. z& c2 g7 e2 t3 ?
7 T( m) S4 }) e/ [6 y6 r; g9 vCell[BoxData[8 }- s, b$ e7 h J( h2 g* u
RowBox[{"{", / {+ y- J6 ?$ X( G
RowBox[{: j, l& W" c1 p+ h7 R% O9 R4 J0 ?4 j
"0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",",
T. G. V( U! i" X$ A+ h0 g "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",", 2 ?9 m$ m/ y5 B
"0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",",
F- H% Y% r% R "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",",
9 l' g/ J- R$ O% W# Z, N# @ "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",", - H( h) Q- V! I* l/ V
"0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",", ' H R# |$ F$ m2 l+ @6 o3 ^2 v
"0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",", * v+ R& s, N* F3 {. y% o
"0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",", $ D& q; {( M7 i4 G" F
"0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",",
$ M, E% p: e) c "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",
& ]6 v- N9 n$ t6 I6 l1 K& H "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",", 5 @' g5 T9 P4 l& Q2 P. C6 @/ R: [
"0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",", : Z( D# h0 ~& X; `3 d" O6 `2 }
"0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",", # @1 o* F8 s3 G$ q$ C
"0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",",
, a' D" W! n: v6 C* _! X/ @ "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}], % w ?" Q+ O% q- X O. X
"}"}]], "Output",# `+ z+ t! X; _) j+ a( Z P' k% v
CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
& c6 L2 L, e( J, X 3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]
& u, T# B7 {: V" I% M- W}, Open ]],, P9 e9 c2 D$ n1 C: T1 M& P) Y1 Z; i0 q
9 X! P, L0 s( Z! [ g
Cell[CellGroupData[{
6 Q. Z& e+ b9 G& A% ^/ Z4 g% d. Y+ E# \" C) P0 ~
Cell[BoxData[
- `/ m6 ?" g. n7 u" m% ~0 \& S( V RowBox[{"m60n21", "=",
0 X. W. [) k6 ~0 S' l9 R RowBox[{"Table", "[", & O8 b' b7 H, a {
RowBox[{# i9 n% r$ T h i* c% g* m
RowBox[{"Table", "[",
6 l( i: k( \# }$ H* o6 p2 v RowBox[{"y", ",",
. l9 i, P' S. Q7 h( H/ N5 I* M7 W RowBox[{"{", # H8 z# Y+ G' @# @- d7 E
RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
8 i, n( R9 ~" c- ]9 U% P RowBox[{"{",
/ p$ y: d0 i4 H. p( v% n RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
8 ^* H0 F" I+ u3 v6 P- A CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
; E% N/ j. g& h& N 3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9,
" U l8 Q+ c6 Y" D) S+ O7 W 3.5779619706547265`*^9}}],
: |# d( W# i" e4 @7 ?5 Z
. y$ n$ q/ W9 d3 j/ J9 h& @Cell[BoxData[6 r0 J$ T0 t9 m2 Z! D: r
RowBox[{"{",
+ I" r0 E2 `& _; p RowBox[{
8 Z- d+ O2 w1 S8 S7 u( G! K RowBox[{"{",
% }5 m4 J$ j$ U$ B RowBox[{& i9 ?. x' @ p& e5 H
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
% C* U3 j' s h5 [ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 ~0 A* u, M: Q, {4 D
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
6 @9 w% `' n8 g' b/ x" e "}"}], ",",
: F' e1 K6 D c8 d RowBox[{"{",
$ W% Z6 C% e& h7 p: C2 M+ u' f RowBox[{
i8 z1 c- T, O8 \, f$ r "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
: U" m' R Y) z ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
% ?. A1 U4 r5 Z! j- U! O "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
5 p. E2 T$ F% S9 ?' [ "}"}], ",", v$ n a( p' _% P) t% M
RowBox[{"{",
1 }; j( f1 C; Z( T RowBox[{% V" v2 S. O( O \
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
0 r$ \( P( ]' }. ~ c8 P ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
$ Q7 v& A! l! F* y' t, q4 a. U "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
: u/ G& S9 M& O, b2 U1 ~" j "}"}], ",", 8 u$ p5 Y- r+ ]# B" d* C
RowBox[{"{",
8 ?5 {3 q$ \% Q _8 w RowBox[{
9 L3 C* V3 P2 K2 e+ g! D "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* o) J; l: z- ~3 q
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * e( ?. ^- M+ y
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
3 g1 h) e8 Y# }/ j' ?/ d "}"}], ",",
6 F6 x" ` E; h, ?/ u. a/ s1 } RowBox[{"{",
% Y* I i5 `5 F RowBox[{8 {) g) D H( i5 c. z$ Z
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
1 ?( S) v# x! ^+ f7 l: W, d ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
" E% P' h6 N9 j) a "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
+ r* J9 s* O* H "}"}], ",",
3 T" c" l6 t) |0 d RowBox[{"{", $ E8 ~% a% d: r5 O- U4 q* T3 ]
RowBox[{
( B$ X. \& a% J "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 C$ n! S3 e- |7 L+ g8 g0 K ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- V; K( v- M" p7 T2 b& Q "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
* Q( d l+ _8 {( s' \ "}"}], ",",
7 ~ ~9 S( n! J& K3 A RowBox[{"{", , f6 w6 r7 O% q7 c" p0 b: u
RowBox[{
0 J- b S: c+ b2 K% M$ [ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& f+ j0 y& O/ Q6 s
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , f9 s& j! T: E
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- `& y3 t# @- F ]
"}"}], ",", $ K4 ]. z" v; p" a- h
RowBox[{"{", ( n5 L9 y3 {) u
RowBox[{
: X. Q7 {1 B) n2 l "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* h: H% R/ }0 H. P" ]% M
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " ?% Q, T* @" E# F9 W
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) U; I2 Z s8 |. J& [ "}"}], ",", ) q( z' H* B* Z3 k; y
RowBox[{"{",
* M9 o# g: b; r# x RowBox[{
! `' F1 o# v% z2 r3 ] "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% C; A7 ?( n g# b
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & _. d! T3 ]1 D! ?3 b+ u9 _
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
* r; O$ Q: [ v5 n "}"}], ",", . D/ G/ s, W9 K! I4 {0 Z7 ~7 }
RowBox[{"{", ' o* k# t% K4 ^# \
RowBox[{
" R/ G: N: u% p+ W' W4 X- S "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 I, _" T" [2 o& c' [# O! D1 l4 K
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) V4 h7 \6 _$ X
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! a T# Y3 d( C* D" ]1 P
"}"}], ",",
6 ^, i- i. t9 @. y+ `) O RowBox[{"{", + t8 g+ Q) _8 s$ t/ R. Y8 }
RowBox[{0 s1 L/ K( l6 b% ^
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ P: @. @3 g0 B2 }" Y$ t2 E
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
$ f+ \- N4 R( x* W) A- N* M "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
4 n( C2 x$ P9 V6 K; T "}"}], ",", ' [8 f& H8 I' r6 M0 y+ _( l
RowBox[{"{",
3 s. H0 J8 \. N( u5 [5 ] RowBox[{3 I- m; Y8 \5 U0 {. V, p2 _
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 U8 ?; G& f- u& g) a
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ i3 ~9 Q1 R% q+ z
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}], \: X W' {, ?% |+ o3 v
"}"}], ",",
( l: c8 C1 y0 w6 p RowBox[{"{", * Z, E S1 A* ~
RowBox[{
8 y& g: @$ g. ]) r& w "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
# q6 Q$ b$ Y+ _$ i v7 |& D" P ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
1 w5 V9 F4 { c6 f4 ^' n3 Y "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; x) v" \3 ~: J/ E% H5 r( u3 a2 M "}"}], ",",
" O* h I& p6 }% K+ e' N+ ^3 s2 D. L RowBox[{"{", f2 I( \2 {2 O+ W& T
RowBox[{' L: x+ a9 @* l0 E3 w. q
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 Q/ ?) U/ | D8 e
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
3 S) Z6 p! o. s. K! L "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
( M9 s5 D+ V3 }4 C% Z h4 k) X; E "}"}], ",", 0 N7 A, F0 g. |4 f. ~
RowBox[{"{",
' B' s* y+ z8 g: L RowBox[{3 O6 L: K5 e5 g! K! z- n
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
6 g) o' v. c" v; L) E# o B ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
. s; r* b1 m) f# o9 l "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 h+ W% U$ Y, D( j% |
"}"}], ",", 2 J) f( T" A9 e- Y. P! n
RowBox[{"{",
$ A9 L/ {, `+ ~- v RowBox[{( [, M0 G' {7 d
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
' Z# ^5 _3 T2 O ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", B' D. Q. ]* c% i
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
. D! V9 U, y/ L) q5 k; @& g "}"}], ",",
, m4 c0 @ J6 h; h RowBox[{"{", ( u1 L2 u/ h0 A
RowBox[{
+ \) X4 x, v( y+ J2 ? z2 a "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", n' R+ O3 I- G) z9 r5 a
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 x; v* y; b0 i3 Y2 w' J! C. ^" ^6 K
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
4 ?) u: G& @; V6 Q5 X "}"}], ",",
, f. ~) }) b0 Y0 V RowBox[{"{",
7 [) ?4 ^9 f, o2 X/ z7 |& i RowBox[{
2 p, t, T T% d! j/ x0 \$ v2 e "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& J0 S: a$ X* K6 M' U
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
; Y7 @( m8 `5 p) q! E7 y "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 s) c5 e- S- q4 w
"}"}], ",",
, T: i+ K, q3 Y1 j% g6 _) @ RowBox[{"{", 2 W! V& a* K, a9 Z0 d; o
RowBox[{3 Y" }" ?/ l/ o& I8 i/ Z# P
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& Y9 C; ]/ C) F. x+ c; J" v9 y. p4 k
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
, u- P5 |0 E, b5 x "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
8 @, s+ T8 M' s "}"}], ",", : u; u# ^. C/ ^' I
RowBox[{"{", " J8 T- z# q+ @
RowBox[{
1 E- R. z9 U, q* S6 l# {/ Y8 p% A "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
7 c) E# _4 V u ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
0 A' r$ b. E- m( P- e1 S4 ?. o "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ h$ [ f& e. Z6 i
"}"}], ",",
, c6 b) m3 [ M8 F+ V. f- l7 M RowBox[{"{", # }6 c- n9 w9 L
RowBox[{0 k8 E+ S ^7 M9 g% Z5 M+ f ^7 ]4 ~
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
' V& `/ J# t# r: w0 U+ x ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " h( N% A% e" n8 g" U' W! R( p
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) B, c. A/ Z2 j2 E5 F9 a "}"}], ",", - `% q8 r S6 l0 J' F
RowBox[{"{",
b' M$ C) \9 Q" w RowBox[{0 a, K7 A' Z5 \5 x$ L
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
; `. D1 E# A( O' O2 q9 p& [) Z ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / }9 q4 `& N. W& n; E
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
% O# E6 S) G; D1 e9 p4 W" p! N" T) a "}"}], ",",
& D1 g7 z. O) l4 b$ } RowBox[{"{",
+ B6 [; |3 S+ e9 } RowBox[{! R6 Y& T# x" ~4 x' }
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
8 m b7 K- f; p4 S& p( { ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - w9 v# O- D. D' o! T
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# G& A6 V& Q4 D
"}"}], ",", - }: S$ P, D* Q9 h+ u P; |! _
RowBox[{"{",
/ L% N$ }: w; O1 b* h7 K2 m7 b RowBox[{
) X+ j; M% m1 [- j# g% Q! R7 b "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 d) y e; m& a ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
* r+ ~- f% m9 J: a "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# a! Q/ ]* D5 k
"}"}], ",", , r" O3 g1 ]4 }& g2 c1 W1 k
RowBox[{"{", ( y9 ]5 \1 {0 `6 N1 d" z7 E3 Q0 t0 j0 f
RowBox[{
$ |) q! A: F2 b) ^7 z "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% p8 x/ C9 a8 t' @7 T5 B: }
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) [# p+ F! Z$ C$ `
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ G; U1 o/ t4 P, O6 y
"}"}], ",",
$ |" x6 c# B! A0 e K6 n/ T RowBox[{"{",
+ Y2 }1 [' c. ^1 r7 P2 F$ u7 x RowBox[{
. F1 P# z# \0 P& c- n1 q. a0 Z. n "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; u* V) Z% Q H4 \. {/ ?
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % g0 Y+ R4 S2 Q, ~" q' l$ G
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
" h' R: D' m: L "}"}], ",", U4 C! a; K4 M/ n4 I# b! n
RowBox[{"{",
: `# V. w' _! V0 U- B% t RowBox[{
' o& d7 c5 j1 S "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& F9 |3 q$ v( O& o$ Q) _
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 n# K1 U8 r) }/ ~+ J8 G7 m
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) ?, ~! s; u! h# s
"}"}], ",", % F' }1 P% f. t# T
RowBox[{"{",
& v. |% ^. G$ m9 c+ Y) C6 } RowBox[{
( R8 i8 g% f; L. H8 G "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
6 k3 F+ f# E# ~ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 U/ T3 p; t. M! ]
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 U8 L9 | ~" P4 z
"}"}], ",", 7 e+ j% L. @& ^) ~" f8 M3 K
RowBox[{"{",
# b _6 z/ W6 l2 f. P3 ?6 r0 J3 s RowBox[{
3 d( x* ~. U3 }! o& {8 b/ x "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
- ^4 X9 D% X. b+ [( r ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
5 l- h9 `2 T8 g2 S# E0 Y "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* Y. y( |1 |$ \( D0 [
"}"}], ",", , `: g: L# q. f) K; a
RowBox[{"{",
; l# z) r- X2 a2 k) `; I: Z RowBox[{
5 [# r( v( p) |4 U0 k "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
0 N. |9 y$ e* v1 E7 L" c1 X) ] ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; v o9 m! m9 x; K) S) L
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 O3 v4 u( q8 k
"}"}], ",", ; q1 H8 w8 K/ v
RowBox[{"{", ! [( O6 Q; w. o9 F6 o% a
RowBox[{
7 ^. Q% g3 o$ {# d1 \ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 k$ S9 a0 r6 J$ G! h) S
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
( f9 Z7 B5 G" O) n- x) r5 A "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 C# l5 t( v, C& I
"}"}], ",", ) }8 s( }- }/ a! n( r) x; R9 i
RowBox[{"{", + y8 |/ a1 {2 g: y+ Y
RowBox[{
9 N) P; A; S) k) U& c3 U: q% o! \ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
& H0 i4 Y- ]+ g j! j ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( F& j3 m- t/ L {
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
^, k3 t2 b. G, E/ E; R3 K/ o "}"}], ",",
* I% h J7 J! V/ ] RowBox[{"{",
0 \+ q5 L' t+ l, w/ F9 ` RowBox[{
1 M, s1 g: h; D, f# ? "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# v1 b8 D q" p. r+ a
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
/ b. u7 N# P( j" V, \8 x "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
1 x7 E Y0 ?7 d( N4 V8 X "}"}], ",", , r3 @! o- \' I$ a
RowBox[{"{",
# M- T! `# y0 U" U! p# } RowBox[{3 P" V& v- r) Y( Z ]
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ o# l' {0 b h9 t2 c) y8 | ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 t+ K) }$ _" a) R1 S5 `1 F
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
: M c, O, w7 x8 F+ X7 h "}"}], ",", . Y4 `+ b7 s" U, |8 [8 |3 x
RowBox[{"{", 7 N5 u# o; M. r
RowBox[{
- |/ v6 G# W. i "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
; u. U+ a1 P) t- i, j# w% r ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 K6 B) X% y# H* p8 Y' w6 j
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 M Z# r1 M& c4 A
"}"}], ",", 3 U: z8 q7 }/ |% p
RowBox[{"{", 7 E3 s, F! d* @4 {9 `& L$ U4 N0 I
RowBox[{
5 d5 k0 \9 @! [- i6 u* _4 I4 F8 x "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; @" w. U; }' L% i0 D( q8 V
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
! W% U5 X" H3 |) P9 L0 u* ^) ]$ e "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
. b# J) K" W$ U4 g- u "}"}], ",",
9 E: h C3 a: r c' S% `% l" {) V RowBox[{"{",
" c3 [+ ~ g, E: w0 I- G" i RowBox[{# ?8 G% G% j+ Y. Z
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( {$ Q z/ \/ v7 m" O
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
2 Q% y* G& J6 y, F* J "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 _9 t' Y, B; h
"}"}], ",",
@% B3 X+ U. o3 @( { RowBox[{"{", 8 b \% i) B7 n4 `' g) x
RowBox[{
$ ~! v2 I. d9 G$ h% i' Q9 o1 z "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. b* z5 u. z' w; p6 V1 d/ j' f! B
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' s" n! U$ k7 g4 c; ~
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* Y- y ]% f& d. z2 e% j r% B1 i
"}"}], ",", ( h+ N, o$ Y ?& r2 ?! |1 c
RowBox[{"{", , `! a0 y D" ?) w$ r( q5 c" J
RowBox[{7 s" Q1 y& ~8 b! n6 {2 m( S/ m
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# I9 v" B" J2 {' ]
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
, R/ U8 Z/ ]5 s' j0 @ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- C) }' r: O. V
"}"}], ",", ' K$ G9 | ~0 D& t. s3 ?- j
RowBox[{"{", % j; V5 ]) k, l" G* J; w
RowBox[{
% w7 [! w4 u$ u6 Z8 Y "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
8 ?% b) A4 {$ N: N8 X ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
4 c* w! |$ z6 {9 S3 { "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
# ]" g5 d8 C, \/ r "}"}], ",", 5 X8 r. ]% V) E/ v' I3 M
RowBox[{"{",
8 O3 z% E# J) A7 G) \ RowBox[{
9 [' s" k/ b0 w "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 m4 ], ]3 O! ^# a8 D* y
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
: n$ p3 e0 r9 D3 l5 S "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; R! J& _7 v! p4 x, b "}"}], ",",
5 v u" c) X2 ]" M& t" A* Q8 a' P RowBox[{"{",
. H7 @: B7 ]9 m/ w9 Z* N- s* H: E' ` RowBox[{
R8 u+ |6 {& h9 l A "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
0 w- }/ r: R! R0 S( o4 A f ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - o3 `7 I1 {3 ^+ l) |
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* M0 f8 y3 O# c" m; D
"}"}], ",", 8 d" o" M2 X* z2 @' R7 J
RowBox[{"{", 6 b! e5 n9 r+ e" A. i- H( {
RowBox[{
, Z( J( `3 V, _% R "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
& y. B/ ^3 i7 F ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 R) H; O) p% f% t! _9 D9 `. O. G* I
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
8 V- C; w# I- ~4 t! x "}"}], ",", " _: v( H3 D- j+ Q" ^8 R
RowBox[{"{", ( m: N& W1 F, c" q d- X, ^
RowBox[{+ ^1 {/ ^+ U- U) a! Z
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
4 C$ r/ W" w. R% T7 ~# c# m ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 u4 |6 N; a. j3 f
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
9 S3 L( H( ^+ v) I "}"}], ",", 7 c' Z! c" T4 W, i) J6 N; J
RowBox[{"{", % r2 F/ f. c% H5 J+ p
RowBox[{9 r1 u; h. Y1 w/ I0 Y
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
% O% H( P$ W9 D! K' d ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) {$ A- r3 h- a E
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ f9 b5 h5 X( p4 ?9 `
"}"}], ",", 4 J6 j- t0 m$ G
RowBox[{"{",
( D) @ d8 d9 m3 [' ^! r2 Y e9 H RowBox[{
( G* b) P2 S( D, W "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: m t; K. x6 ]6 ~) v9 T
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & F" f; k- p; N1 R
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
5 K2 q' r4 m: m c3 y "}"}], ",", ; {) i. D' A3 _2 v7 @( c" z
RowBox[{"{", 5 A0 s: v( N- m( d% C* P# I/ u
RowBox[{
- B2 V Q- |! |' A# P, x "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* y" e) M( X7 ~1 J6 D9 u" k5 S5 ?
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
, L/ S. e# z% _- g/ `0 S( }3 T "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 i* T: \7 _. L' T
"}"}], ",", ' p7 |$ w) S O! f# P" P
RowBox[{"{", / G* ~6 k; _, }+ o
RowBox[{8 Z1 Q g+ r+ V/ z1 x3 |
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
6 Q, @; j8 O8 z: a' W8 A X ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
( j& X8 F7 c: H* ~% e' r8 ~ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
- w. Y- w2 m( e+ m$ f/ j "}"}], ",",
: I6 K* O/ c/ P% w) T; [ RowBox[{"{", % v5 s( |& E( I6 h
RowBox[{
/ r$ h0 N" t" \. f( Y, O3 C. V "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ U4 `2 T6 }" g6 a! m4 L
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . N" `9 S" c% i3 m: L0 U3 ~
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
! ^9 x# R. I$ m* W" _& G3 Y "}"}], ",", 7 b4 p& n. `5 }. R. s
RowBox[{"{", / t* r% w1 z0 Q* D H8 C A/ p
RowBox[{& H* j, G+ H `3 }3 N$ _5 {- L
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 N6 Q0 ^+ T! P1 w
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 C- P& W1 C' ~+ n- q, Q( W
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
. x' _9 R8 \# _/ a7 J. S5 t "}"}], ",", : J _' j7 J9 F+ b7 U! G% t* K6 o
RowBox[{"{",
, s' Z4 p, I9 O) d$ r( ~2 x RowBox[{! B( @1 r- u7 J! a
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* |5 f) g. \" U1 U' v$ |% Z, U& T0 Q
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
. }$ t0 [! V2 Z; j3 ]% u "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: E" S) F$ J6 a. G5 T5 B1 N
"}"}], ",", / d/ I. E% H$ S! G1 w+ d% \
RowBox[{"{", 5 {' {' |6 j0 ^ d
RowBox[{
2 [. o9 g1 c! C" }; ]; y! Y; ^4 U "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& v/ r' E+ c- `+ k
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * j, J4 W7 d1 G, Z8 P& @
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
9 [. @9 N- o1 c, f0 C5 I. U) g3 Q3 ` "}"}], ",",
- y% A7 ~8 C/ h+ O RowBox[{"{",
* v& k* Q5 D9 i RowBox[{9 a; V+ @, t6 |7 k1 I; P4 ?8 v# s
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( k+ Q: {: j- s. t% r- V
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
6 l0 r; f3 }: n9 b4 } "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
! O: }' s5 k6 C1 C "}"}], ",", # e" Z$ h- {, b8 A0 _0 G
RowBox[{"{", ) A- ]) }/ S/ I/ x! G
RowBox[{
& x A7 v0 |$ O( I1 \. J+ A$ f% ~ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", w4 K9 P! h: D0 m; U5 ^" n; J- I
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- I9 ], c5 C% q "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' r( P3 `4 c- L8 d "}"}], ",", ( L- g6 ~7 P, U) E7 ]
RowBox[{"{", . S' r0 l6 b6 G- O1 a6 |( f& |
RowBox[{; G$ S/ V! v8 n: l0 y
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 r, r5 N& s( [& p8 y ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " X! s) m4 F7 k; E1 F- E
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 }5 k1 L; }5 n' z3 d5 T- h8 r% M; @
"}"}], ",", . X5 a2 ?6 O# i, a
RowBox[{"{",
2 l, c1 g$ g( E+ \$ I1 }; U RowBox[{
6 w! d' T+ k) J( p1 m g "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
* s( l9 z0 v) w0 x6 E ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- Z2 Y7 K; P; @: u2 c "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
* X4 w, }" n1 {8 h) d- B "}"}], ",", 2 v1 N2 V8 Z, n- D
RowBox[{"{",
7 a: q- F3 P" X- ~4 M" k. z0 x& i RowBox[{
4 T, B, {- w9 n( i8 R: B6 _ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: ]; Q+ \ A Y' u) q
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
0 Y6 j, A) V7 Y9 L0 o3 r& ~" m "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- U- l- \0 F8 u+ ^2 ]( F, ]! y: d
"}"}], ",",
8 b2 d0 A- X; v- a) o RowBox[{"{", d, j$ m7 d9 p+ i
RowBox[{
- V9 n% X0 K, k9 k2 ~ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
; g+ v* _! n; H# x8 [3 ] ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + \' J3 i. J+ ?7 J
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* [: a7 \! R: k% S) a
"}"}], ",",
7 ~& r: A2 _- N$ ]* U( }& k( F, }) C RowBox[{"{",
6 a0 a" k8 o6 x5 y% c RowBox[{* Q; \$ j( Q% M2 ~/ m# s9 H
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
, d* k; w- d. j5 l. s ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 Y V. K) f/ q
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' J0 q' d/ [! C7 b
"}"}], ",",
6 h4 C$ A) ]( `, O& @, H, ^1 S- G RowBox[{"{",
4 f- f6 |5 H) k6 r8 s0 b RowBox[{2 V) F7 }9 v' a/ y2 y" t% z
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
# c8 I4 ^9 m( E$ Z6 M ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
9 c, }* w, G! r+ \ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 z& J3 p+ M ^1 Q4 P- R
"}"}]}], "}"}]], "Output",
6 L D& D0 W+ G8 H/ F. V* ^1 F CellChangeTimes->{1 `) C( M2 q# I
3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9}, ' z _* ?, V& B* `9 }
3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9,
/ c* H- n: ~3 z& c0 L; L: [ 3.5779619748823338`*^9}, 3.578012345453125*^9}]
) m% Y8 r' Z+ o4 k( Y6 I}, Open ]],
( G# C: W+ A; M" N( E! ~; v" h3 J0 J7 A
Cell[BoxData[0 b# n# ~, F# C7 W6 q7 N
RowBox[{"For", "[",
6 @& E# _* o, c+ D, ^ RowBox[{ K1 `( E1 ]+ ^& o. O+ G# Q% w
RowBox[{"i", "=", "1"}], ",", 6 u7 B, ?$ E" L2 `8 a- l
RowBox[{"i", "\[LessEqual]", "60"}], ",", 6 t" t2 k5 c6 i
RowBox[{"i", "++"}], ",",
$ J8 Q J( j5 S, I RowBox[{"{", "\[IndentingNewLine]", $ K, j- X. ?5 K) R" B% U
RowBox[{* R0 X, R2 A* A2 B8 q. o# x
RowBox[{. B/ r4 q! _! f3 u3 Q# T
RowBox[{"m60n21", "[", 6 K5 c [" l. @# z! Z: `
RowBox[{"[",
$ q: n( V. [5 z RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", . w _7 t" s0 T
RowBox[{"u1", "/.", 6 T2 G9 E5 s/ W" J
RowBox[{"{",
% v7 Y* h B- X9 H6 c7 E RowBox[{
. z, r) S g* U3 F9 b* I RowBox[{"x1", "->", # X5 p" f6 M1 i$ ^" ?8 r
RowBox[{"Data", "[",
2 h- b1 z! C3 `& B+ \7 y8 e RowBox[{"[",
7 K+ ?. a' @$ V: z* t3 {, r RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
) h1 W7 C% Z. @6 c# u4 y2 j) u RowBox[{"x2", "->",
8 I/ v, \6 c' C0 R, r6 H RowBox[{"Data", "[",
q) L; n6 D' E9 ^ RowBox[{"[",
( ]0 h4 Q" ~) @' p9 d F RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", , z! i# S0 o( J, O- }3 C2 }2 [; B0 j
RowBox[{"x3", "->",
, D/ C- W' ]/ N$ ^ RowBox[{"Data", "[", 9 O. Q4 j$ M" _5 f
RowBox[{"[",
' W' X9 H4 @) d* X RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
% ?. A1 k9 f' q) P) g/ ? RowBox[{"x4", "->", 4 n O& f5 N3 U/ M; m2 ~
RowBox[{"Data", "[",
. N& N+ i( _2 W+ m2 C/ N RowBox[{"[", ) O* p9 ]4 x4 l0 {) `( [7 D. o3 i
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 0 ?8 R9 U4 X* O4 ?% D
RowBox[{"x5", "->", R, \" L8 Y4 h! k- t
RowBox[{"Data", "[",
( a1 Z' N, m/ i5 x RowBox[{"[",
0 K5 A% m+ c4 Y5 J RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", % a* p2 W& a4 c+ }5 A* O# _4 K- F
RowBox[{"x6", "->", - p& [6 G; G0 X _; j5 t5 f- Q
RowBox[{"Data", "[",
: w& r5 F5 w) l1 M) W+ [- }. U- ` RowBox[{"[", 4 n2 u, Z5 G2 H Y1 ^# [
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", k: a* Y4 z: C4 c
RowBox[{"x7", "->",
4 ]+ ^+ r. a" U4 `$ \ RowBox[{"Data", "[",
0 ?; P; J: F/ i/ D* q3 _ RowBox[{"[", 5 N" K8 |& V' f
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ( @) J4 ?4 D% b, e. Q. p% f0 U
RowBox[{"x8", "->", % _/ U! v, A X$ A
RowBox[{"Data", "[", , }; h% O4 H* f& d
RowBox[{"[", ! Z- ]/ P, Q# ~$ O
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
. E: A6 ~) v4 J, }( D: v RowBox[{"x9", "->", 3 k; b, h0 R" g. J0 U7 L8 i
RowBox[{"Data", "[",
, k6 v# |5 B2 e RowBox[{"[",
; D$ U. }" w: b' H* I1 U9 b ~ RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
& Q( e" l; c$ e! h0 z: s% ` "\[IndentingNewLine]", . }2 H9 r1 ?: H8 p
RowBox[{& G K6 e5 M `
RowBox[{"m60n21", "[",
2 @* V6 B D$ Q& w! W4 [ RowBox[{"[",
- l& R/ x+ I/ c7 P/ {2 D: ]+ }4 H5 } RowBox[{"i", ",", "2"}], "]"}], "]"}], "=",
1 s$ V3 N3 U; i Y5 K- Y RowBox[{"u2", "/.",
6 F- ~0 Q" h4 P6 s RowBox[{"{", : Q7 m4 }8 ^0 R: n& V4 v9 a
RowBox[{; ?3 _' K( \5 Z; _% ?6 j) {
RowBox[{"x1", "->",
5 ?9 W2 E- I( z" \% O RowBox[{"Data", "[", * C7 o6 s1 }: \ H' o
RowBox[{"[", / U; L. D: |8 K
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
* X: a0 [0 P3 c1 C' s) @ RowBox[{"x2", "->",
" K: a: M7 q) T5 o) Y RowBox[{"Data", "[", ' }5 }2 F, s3 `
RowBox[{"[", 2 S! X8 W8 n7 C p; x4 k
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
! g$ r; v* n: y RowBox[{"x3", "->", & |$ b$ Q9 r: ~" i* _
RowBox[{"Data", "[", 8 O) O& d- @: B: k; ?" O
RowBox[{"[", : z- g6 x) ?0 Q4 I1 j
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ! S( k$ ~7 {5 H4 c
RowBox[{"x4", "->", ) j9 l$ m }0 n7 N! f
RowBox[{"Data", "[", 8 k9 r7 A; X s: ?' O% k
RowBox[{"[", : X0 D% V6 \6 H: |8 ]
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
5 O& H6 y" k; X, J' t6 B RowBox[{"x5", "->", 6 M: j' q6 r, v0 f& V
RowBox[{"Data", "[",
& w4 _0 o( T6 B7 C; h$ D* Q! P RowBox[{"[", ! C S& U2 Z1 |3 }7 C8 t7 {- B# z
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", + E; L! a9 A# Y$ s2 }0 ]
RowBox[{"x6", "->", 2 Y. L* j/ ?5 }$ x3 J* G' x0 r
RowBox[{"Data", "[", - O8 S6 ^2 t4 O
RowBox[{"[", 0 T; E: Q3 X( u" `, L5 V
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", . Y/ `2 Z7 _$ j3 O3 l
RowBox[{"x7", "->",
. d* `" A6 e; X7 i# A; U* D8 } RowBox[{"Data", "[",
5 e, j% c% o; ~+ r8 [2 W* b7 v RowBox[{"[", - \! Y& c( ~+ k$ C% j
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", " G3 d9 |) P. ?+ w) l
RowBox[{"x8", "->",
& V- Y/ I/ `8 z% Q+ }% D" S$ |( }& x1 d RowBox[{"Data", "[", , j. `3 D: L, z0 m# }' F
RowBox[{"[", & W& Z+ f7 w2 x a- n% B; {/ z
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
& E) K' J- ]7 t: } K' b: U RowBox[{"x9", "->",
9 {4 Q( z( i/ r* |+ i R: }# p) } RowBox[{"Data", "[", " P( R7 t1 u) @$ l% C3 r
RowBox[{"[",
1 G& t4 K% n. g0 n5 L RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
* a- R) B0 j+ i/ [' ?0 s3 j- Y; p( r& t "\[IndentingNewLine]",
! o! j2 _6 R! a9 k; d7 S RowBox[{0 p* t$ H) U$ [, w9 D7 d) v
RowBox[{"m60n21", "[", - U' D' O: k0 }$ a6 }
RowBox[{"[", ( c# W" b# k! w. q# _
RowBox[{"i", ",", "3"}], "]"}], "]"}], "=", 9 h, V, h/ U4 B0 l8 P! U8 ]# m: q
RowBox[{"u3", "/.", * l8 [! d1 T0 x1 n' i! W g
RowBox[{"{", 4 r4 p# ]6 O6 d: T( r6 g5 E
RowBox[{
( i- |7 d3 I9 F4 e0 K RowBox[{"x1", "->", : `& P% z" J) Z2 u
RowBox[{"Data", "[", / i0 j3 i& E# F! h: E
RowBox[{"[", " | ?) x' E v( M- W* z5 g/ r
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", : ^! @2 s0 ^* F5 G' e! c
RowBox[{"x2", "->",
0 s/ h' G1 Q4 p2 S7 a RowBox[{"Data", "[",
, I+ U+ D7 B( _/ W- \( r( W6 @ RowBox[{"[", ) f: b) C( A0 X# A( w5 ~2 i
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 0 i: I! }8 Q6 M% y
RowBox[{"x3", "->", * S" @( R+ P8 H: B" K
RowBox[{"Data", "[", / i3 P# c7 v& y5 t( @( A. @
RowBox[{"[",
+ Q" F' H' B. b RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 5 }1 L- b- v) a: w7 y- d9 R7 L
RowBox[{"x4", "->",
3 L: ]2 O; M; ^ RowBox[{"Data", "[", * `$ T5 v5 c8 A
RowBox[{"[",
' |" s& n& B1 K" z# r; U RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", ! Y- \% W2 ^% ]9 o/ H3 U- ]8 U0 L2 ?- |
RowBox[{"x5", "->",
7 H3 b2 D" |- @+ g5 y' n n6 K3 p; v RowBox[{"Data", "[",
& D+ Y. M: Q% s$ L( ?0 Q RowBox[{"[",
& g+ i: a: F& e8 T; a RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
) T) B0 W* i# t- D2 h% f$ ^ RowBox[{"x6", "->", # i9 C4 D2 O# s* @) ^
RowBox[{"Data", "[", * H, v A& {7 n# {3 u
RowBox[{"[", 5 T# J2 L6 `, P2 u. R, h% m$ u
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
$ l7 y7 ]6 U5 ` RowBox[{"x7", "->",
5 t- e0 _5 P! R! M( Q# E. C3 t RowBox[{"Data", "[",
, F! {( g% x$ v5 a" k; U( y2 x1 u RowBox[{"[",
- Q# h" Q6 R4 X( h b RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", / e8 h& R! l: B. i& a3 u
RowBox[{"x8", "->", + F) I/ W6 w9 H4 c# J+ @
RowBox[{"Data", "[", ' s8 `' M: p7 ~' N% v- r
RowBox[{"[", " e4 {6 G2 Q; G" q
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", % v. K7 Q4 `% K! P1 J, k
RowBox[{"x9", "->",
5 A( N6 g; X7 g RowBox[{"Data", "[", 3 |9 Q2 V6 P' ?# j
RowBox[{"[", $ V8 D+ L. Q0 L2 Q0 n' v- G* e4 _
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 1 {$ e8 V4 z% X1 J/ S. @
"\[IndentingNewLine]",
6 `! R7 G: F9 O: n7 q3 _; u/ A RowBox[{
4 c% z% o$ ?" b RowBox[{"m60n21", "[",
7 o& x- {+ F+ _+ f RowBox[{"[",
& w8 K# u( }) J" ^& t1 ?& S RowBox[{"i", ",", "4"}], "]"}], "]"}], "=",
& y7 A. }) u* d RowBox[{"u4", "/.", # \+ {- V+ \6 P7 Q; B1 m: B
RowBox[{"{",
: Y& ~' @2 S. v* A RowBox[{7 W3 l' N0 B; g8 _. e
RowBox[{"x1", "->", 4 H' |4 U6 a- T1 S
RowBox[{"Data", "[", ! c! L/ R' a: Q$ ?* h6 y
RowBox[{"[", : n% }" m1 c& x. z/ f
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
9 @5 x; l$ V# [ x4 M, e$ b RowBox[{"x2", "->", # U ?- m- Z# }% r6 S7 h/ O
RowBox[{"Data", "[", + l3 s5 d" { z d5 r5 z
RowBox[{"[", 5 k( b& \# S; |8 n, p5 k. q
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
5 ^" t$ T1 _* ?( F% ^$ [ RowBox[{"x3", "->",
1 X" g) m: k* T5 u/ I RowBox[{"Data", "[",
7 s4 w+ J* b9 C RowBox[{"[",
; ^6 Q A) n* z* ^ RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 1 N3 f" X& ?* ~% P% R7 w, t, C
RowBox[{"x4", "->", * O. ^& `& S8 I2 T
RowBox[{"Data", "[",
8 R) |& S: X' z0 ]) N RowBox[{"[", + C# P; o0 T; }( b
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
2 O6 n3 u, K- m0 e6 H6 C8 b- R RowBox[{"x5", "->", ; U. _$ @' S6 [" C/ M
RowBox[{"Data", "[", 7 D8 T. o/ f p: b
RowBox[{"[",
7 r2 M1 s3 f0 Z$ j. |" M2 M RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 2 ^* J) r6 H5 {& @5 E
RowBox[{"x6", "->", 4 m9 a( q3 D0 G# r! t9 l) N
RowBox[{"Data", "[",
1 y5 v4 x1 r9 ~4 k0 L$ @* R" ^ RowBox[{"[",
5 x0 c, c3 Z P- t t) }) M RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
7 L, r- H4 _8 Y6 p8 C$ y5 \ RowBox[{"x7", "->",
. K W& P; _2 c- u RowBox[{"Data", "[",
. W$ D/ e$ m$ z, k5 ~7 z RowBox[{"[",
3 Q: h% z) v8 I: e RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 5 H- |9 a8 p6 A8 K
RowBox[{"x8", "->",
\. @! ]$ @2 i( S. a5 X6 j- V9 ^( _ RowBox[{"Data", "[", 7 f8 i) N, G$ R
RowBox[{"[",
/ D K4 K% l' R( d RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 1 b1 q m2 Y: W4 ]! A' a$ b
RowBox[{"x9", "->",
; u' m1 E; H+ C2 L" c RowBox[{"Data", "[", ! o X, ?; ^0 U# q# _
RowBox[{"[", ( \& v' ?; m$ V$ x9 X
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
+ |/ m1 {6 r( Q) r& T% b( e( u% Y "\[IndentingNewLine]", : X1 t; [+ \0 f+ b
RowBox[{
0 Z9 ^; J# H$ v RowBox[{"m60n21", "[",
# Z7 H) }% s" m- T# w RowBox[{"[", : U" M$ Z+ ]- `7 s7 ]+ M
RowBox[{"i", ",", "5"}], "]"}], "]"}], "=", / ]! f4 \" i# }8 Z
RowBox[{"u5", "/.", 3 n/ r( a+ E' q" M3 Y( `8 J5 o
RowBox[{"{",
M( v' Z/ C) A ~( R RowBox[{
* U; u, ` b: Z2 R/ d( Y RowBox[{"x1", "->",
) I+ S7 x: {! i+ O- p RowBox[{"Data", "[",
( D6 Z- {; f( R- U7 U' L RowBox[{"[", 1 V8 M2 [0 a7 w8 ^2 }" q c
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", Y7 F5 H/ Q& ^
RowBox[{"x2", "->",
+ g! O+ I( ^! B2 D7 M2 G$ l RowBox[{"Data", "[",
0 A; `: }" b2 W0 E, A [, T RowBox[{"[",
' @: P6 p* H2 T" `( h* ?7 L9 ~; ~5 j RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
3 v; T& s9 q/ P+ y7 Z/ I- q4 Q RowBox[{"x3", "->",
; E" y& v: m# v RowBox[{"Data", "[", - @6 O9 [* N7 }$ \$ g* t
RowBox[{"[",
2 q9 h6 X& c0 ]% l% T" X6 H9 u# ~ RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
& W% D+ C! v. G/ i2 c* y3 q RowBox[{"x4", "->",
) h; k% B& W9 [" S; @; ?/ d RowBox[{"Data", "[",
, V2 O) D6 E8 D. U RowBox[{"[", + I+ p: A( H' R7 d' b' U
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 2 c/ o1 X9 C: _" ~' c" @
RowBox[{"x5", "->", & b. u: s" h4 I7 k2 z' t! M6 ~. L
RowBox[{"Data", "[",
% C) x1 e% N9 M7 j; i# p8 @ RowBox[{"[", 7 ~9 M1 r2 i0 d* L
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ( V( c/ b6 I+ s+ ]+ A
RowBox[{"x6", "->",
0 h# W4 n0 V1 j* c RowBox[{"Data", "[",
, H- i3 E+ m* B1 N* ~ RowBox[{"[",
2 F" l# V% D. a, E( A# f$ | RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
/ y1 _! M C! ` RowBox[{"x7", "->",
) n$ ~' j* \6 V w8 [ U; G RowBox[{"Data", "[", - _; U9 E3 R s4 M4 ~; Q
RowBox[{"[",
0 D5 ]9 Y; f) p RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
& ~ ~( _+ A% s0 O% D6 |1 d( { RowBox[{"x8", "->", + o# E( b2 P9 I' q
RowBox[{"Data", "[",
* t) E0 l& L9 C RowBox[{"[", / j; L& ]5 U' q( O) N
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
8 M7 B7 `8 E+ `. e7 L' R% p) h RowBox[{"x9", "->",
% L: j. O2 u3 x/ _" ]! q3 H RowBox[{"Data", "[", - z+ M e% E m
RowBox[{"[", & R1 _$ S' g# U. X K0 t2 Y
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ! v5 u- w5 I" |. R8 F, ~! _
"\[IndentingNewLine]", + D, d) @0 Y" c& g
RowBox[{; D% u- ^' ^3 ~( ]1 z
RowBox[{"m60n21", "[",
8 X' C& w* Q* _" O, s RowBox[{"[", 7 @, Z! L. K9 y' S$ r. k1 @+ f
RowBox[{"i", ",", "6"}], "]"}], "]"}], "=",
( T y3 K% K* V6 K# l* S T RowBox[{"u6", "/.",
3 U3 B3 v5 }2 M# I* l5 B2 V RowBox[{"{", 7 [; q! {) L4 l5 D
RowBox[{
7 d, D) A8 H6 S% m8 z/ I# S3 t RowBox[{"x1", "->",
& g& Y9 o: I; d' U, T RowBox[{"Data", "[",
: P6 g2 ^/ h/ V- p- [ RowBox[{"[",
h# @; Z0 `, s5 A RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
, E# N/ _( w P6 ~ RowBox[{"x2", "->", 7 A0 F/ u7 r; [
RowBox[{"Data", "[",
3 v& D( U2 D; D$ y# Z RowBox[{"[",
2 V3 u* Q8 ^% I1 ^' N R RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", , X& a p( c3 _6 A' F
RowBox[{"x3", "->", * h# y7 k+ C! _. ^. b% c" B- x
RowBox[{"Data", "[",
" z _, |0 A9 I( R7 } RowBox[{"[",
9 m0 e/ f& q4 k C' H& X RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
( X- f. \& U: D+ l RowBox[{"x4", "->",
. V; l0 t* x( Y ^3 k1 E* s- s8 V' E RowBox[{"Data", "[", 4 m( L: g; O% D. p' ]
RowBox[{"[",
- @0 p9 F5 E8 I W- W RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", + t2 w4 g ~$ I$ T! w+ j# u$ g' i
RowBox[{"x5", "->", 0 |1 Q; K- E# ^( W
RowBox[{"Data", "[",
$ q' d) s9 b- ^1 ?7 \0 J RowBox[{"[", & L- @3 c# O( a4 h
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
5 G- x1 Q& M: \* X. w& G3 r$ w RowBox[{"x6", "->", , n+ \" {) V4 Z% T/ Z( f2 m! k
RowBox[{"Data", "[",
# I" o& B% I+ v; I. r8 Z RowBox[{"[", & }; [4 n# V4 {6 E: U+ c) ?- T
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", - E7 O# b; R/ [/ M; y# A/ l
RowBox[{"x7", "->",
" T/ R6 u! a i5 B% b RowBox[{"Data", "[",
" L+ ^& ^$ Q$ L& E0 ? RowBox[{"[",
3 B* f1 {" P+ i8 W( w1 A' m* z RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", % T4 f* [* u- A- d
RowBox[{"x8", "->",
1 P7 i$ S# Z- x3 Y( s$ F, v, U RowBox[{"Data", "[", 3 Y6 ?* }2 }5 M. E5 t8 Y. c) m
RowBox[{"[", ; _3 s1 b3 k8 @- o2 P9 _
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
! T5 F7 ] t( R( ` RowBox[{"x9", "->",
6 e2 Y* u2 i' z3 ]* g& ` RowBox[{"Data", "[",
- q, w- c+ C8 {0 ^" R RowBox[{"[",
- ~" K0 V9 t: E% i% t( L: I RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
. Z9 v2 p6 a: r$ k- r: c "\[IndentingNewLine]", . r$ P- ]0 W1 e: s
RowBox[{
) j0 P, {1 o; D7 z RowBox[{"m60n21", "[",
; Y: M* |$ b8 c: e1 E; m0 L RowBox[{"[", 2 {4 C4 h3 e" U' |9 T
RowBox[{"i", ",", "7"}], "]"}], "]"}], "=",
7 D/ U) P/ b; m4 Y RowBox[{"u7", "/.",
9 H5 {) ]. s" c! V7 H' d9 ? RowBox[{"{", " H! @4 z9 f* q" P. f
RowBox[{
$ C$ g$ J$ }% T! i% F RowBox[{"x1", "->",
$ |( C' u0 }0 Y1 ^0 ]% L RowBox[{"Data", "[",
& |$ S. W" ^9 D( J4 J/ ?- K RowBox[{"[",
/ ^0 ~- ~- S; T4 }. _ RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
, ?: J3 i* q8 `( w a& a RowBox[{"x2", "->",
+ D" O# a, ~* g( H/ j RowBox[{"Data", "[", k8 k5 U/ p( @& V# a
RowBox[{"[",
8 Z( m* Y1 ?( f RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
5 ~* c3 M* F( ^ RowBox[{"x3", "->",
- l- [5 C- t: s RowBox[{"Data", "[",
8 ?$ ]* V- Z7 t! [5 E7 _: q RowBox[{"[",
1 R0 b# r6 @$ q RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", * I" c! d: a( B
RowBox[{"x4", "->", . s3 H X% I# M' H: w! a
RowBox[{"Data", "[",
% I1 j6 l$ p% ^, O$ X, h& j RowBox[{"[", ( ^8 L! G) O6 v n; }
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
( t6 t1 o$ ~4 } RowBox[{"x5", "->",
# B/ c, w5 a6 y4 K RowBox[{"Data", "[", 6 ?8 B$ y6 t0 e* m; F: `8 b
RowBox[{"[", & _5 f3 e2 Y) H- b5 D
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
# n. V0 |) h2 F7 u RowBox[{"x6", "->",
" j1 p% ? f$ O. ?( H RowBox[{"Data", "[", , ` {8 V: t" L b$ B
RowBox[{"[",
; R' f3 [; H$ ~; D6 N8 D; J RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
8 m. I( n7 f( G$ r; ` RowBox[{"x7", "->", , P! {$ F3 ?- @, B+ C% i
RowBox[{"Data", "[", 4 p) u- D( J& P! M) Q6 Q
RowBox[{"[",
' \& w0 A+ d- s: q5 `2 V* E RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 8 \7 @' [9 t: q
RowBox[{"x8", "->",
5 w- O4 j6 h: ]* l RowBox[{"Data", "[", " S' C' ^; P& n& t& N# f
RowBox[{"[", $ i# T8 b( @- G0 m5 S* I
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 7 @% n/ ]6 O# a* N9 N: s2 @! g
RowBox[{"x9", "->",
+ s( X+ Y2 W' g% h. b RowBox[{"Data", "[",
8 h7 B0 ]' ^" d RowBox[{"[", 1 |" N6 P' U4 \. u' Y
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
: \' I9 @2 A" q" a$ X% I9 V "\[IndentingNewLine]", : S/ {% k6 O, Z- p5 j/ f( T
RowBox[{! q: d' g1 ]9 W' v' u; a* X" G
RowBox[{"m60n21", "[", + l* A( s v9 I; X7 m$ `
RowBox[{"[", & y9 R% d7 H* o) q5 e0 s% W: m
RowBox[{"i", ",", "8"}], "]"}], "]"}], "=",
8 l. W1 ~! A- _# X RowBox[{"u8", "/.", 6 j, S: o Y8 A$ g3 k" W" R
RowBox[{"{", 5 i* y& i6 q2 _) h6 t& G5 _6 k! B6 ~
RowBox[{! {& ~/ z* B* p9 {4 \; V' S U
RowBox[{"x1", "->",
2 w+ J8 I8 ?$ {9 }1 V; C RowBox[{"Data", "[", 2 M/ q6 e- v+ O" i, L4 G6 q* r
RowBox[{"[",
9 r* v' U# r+ W+ E1 f; p _ RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
# q" C# Y/ y: Q RowBox[{"x2", "->", 8 D, t! Z$ R5 q4 M
RowBox[{"Data", "[", ) d' i8 E/ t; I; O/ k$ H% A+ j
RowBox[{"[", 9 }0 O" I! e+ S) X- u$ p2 t
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
9 X2 {- h4 d7 M" r8 j RowBox[{"x3", "->", $ `+ M' U( u0 Q! | v: v: k) e
RowBox[{"Data", "[",
3 F3 W3 o; v7 r @ RowBox[{"[",
; P% m+ n: R, ]' ^: H* c% \/ E- u RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 9 I% ?$ ?7 ^ C& \' _8 Z6 q7 ~
RowBox[{"x4", "->",
$ k7 V7 L V: W* k7 E3 w RowBox[{"Data", "[", " `5 r! k, o+ g6 K3 D
RowBox[{"[",
/ h, h0 v5 J. C' o: `1 \2 y& ~2 [* y RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
0 C/ M% X6 x" P( C RowBox[{"x5", "->", & R1 s8 A" D& `* j1 k# d' c
RowBox[{"Data", "[",
2 k5 P7 ]" m( a V: B+ t3 h RowBox[{"[", * A# C. C/ l) F, c7 j9 m4 ?
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
' M9 ^9 D5 a$ J7 d* P. \# p" w2 _ RowBox[{"x6", "->",
e$ ~' g5 X6 L( @) e$ P! r RowBox[{"Data", "[", & a/ b' x; L. C: _9 C ?; H
RowBox[{"[", * d% p, ~6 P4 ~; {
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
5 Y4 e. x; B" ~$ i3 l( Q RowBox[{"x7", "->", 4 V$ q- ~/ f* A, U+ @
RowBox[{"Data", "[",
# ?1 ~3 u$ Q0 }; f9 e# y. `5 ? z# b RowBox[{"[", 1 W/ Z" D2 F( ~* [
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", % c/ f6 T7 Q, O i) h" K: x
RowBox[{"x8", "->",
4 o- H. X0 P# V- o, | o( D7 q; z RowBox[{"Data", "[", " |* t, H2 P. N# B0 w3 H& R; X
RowBox[{"[",
( B% w1 R) ^: N2 t RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
2 z- w2 `# A) v/ f RowBox[{"x9", "->",
" {- P7 A5 ? B7 h' C3 o! l. Z RowBox[{"Data", "[", $ C" ?( o$ ]' y- n; I# P- N! ^( @
RowBox[{"[", . T; L4 K0 X0 y: K
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ) m. Z( E! `% q0 Q3 i
"\[IndentingNewLine]", * x7 F- G% r, ]% w) p7 P8 M: C4 X7 _9 k
RowBox[{& J" T. d# _. X2 \) D4 P& {
RowBox[{"m60n21", "[", 1 j! P; D/ H3 C% p
RowBox[{"[", . r9 g7 F: D; X
RowBox[{"i", ",", "9"}], "]"}], "]"}], "=", ) Z: v+ i/ w+ {& K+ G: F# \ r
RowBox[{"u9", "/.", , ?3 {2 x* q: H
RowBox[{"{",
; p# `1 Z. P7 ]' v( G RowBox[{+ e/ j9 @2 \( \& _& ?, e
RowBox[{"x1", "->",
3 G( \0 ^0 s4 g2 k& g0 p RowBox[{"Data", "[",
. u: N8 P3 g0 x2 x. t4 w RowBox[{"[", , e, `' t/ X8 H& n* K( M
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ) L# h, ~) x8 f# V8 y9 g
RowBox[{"x2", "->", 0 i, B; n( d/ L( ~, C, B5 _6 Z
RowBox[{"Data", "[",
8 E! p7 Z" B4 L; t& M$ o9 v4 Z RowBox[{"[", 6 @. j! l+ B! z4 b: `% D
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
; f" O# I: ?5 r5 ]; L& u" O RowBox[{"x3", "->",
0 N5 k9 V9 F# r* M2 z$ I: b RowBox[{"Data", "[",
: a/ T" \9 u6 Q7 d RowBox[{"[",
# b3 j' u! m6 T- C7 w& R! P% f: } RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", * S* L# C/ v3 _4 E
RowBox[{"x4", "->", : b0 O/ u( U v l, u
RowBox[{"Data", "[", : G% ^3 V0 l0 q; f; M! [
RowBox[{"[",
) A4 x* `! Z3 m: U RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
+ B4 V w# F1 ]. M% E/ d RowBox[{"x5", "->", . |3 G: N5 I5 S; \2 D8 I
RowBox[{"Data", "[", : E4 D; a2 o* \7 F) V" @7 b0 o
RowBox[{"[", 1 ^. V$ `( g- ~$ D+ C% d) T2 C2 [
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ! J. R. l+ U8 n n/ v4 Z
RowBox[{"x6", "->", 5 T' e# ^5 C/ M; D6 T
RowBox[{"Data", "[",
5 t- M" ?1 h; {2 f1 S( Y8 r/ ^ RowBox[{"[",
/ h! A. d0 t) z9 d RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 2 V- D6 b W6 W* |- \2 A v
RowBox[{"x7", "->", / Q/ E9 _; c1 J! u; Q& m# v
RowBox[{"Data", "[",
; h) F r. F, `/ q5 O( E. ^ RowBox[{"[",
) A; {* D; ?6 J9 ` RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 1 a. N1 V5 k S1 H5 B
RowBox[{"x8", "->",
9 c$ l8 i% W8 d5 D q2 H' g) r RowBox[{"Data", "[",
/ V9 H7 T7 z* i" E RowBox[{"[",
$ o) d1 @; e7 J7 }" r Y RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
* S2 `) z2 d/ v1 h; D RowBox[{"x9", "->",
) V: X7 J; }! k# v0 b( v RowBox[{"Data", "[",
" E' n1 ~7 r m- h2 V9 N RowBox[{"[",
7 Q0 F h- f4 A' f0 v6 s RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", # ?$ n/ v$ a( P* v1 |. k2 [& x" A
"\[IndentingNewLine]",
" u. O4 Z8 R$ V& q RowBox[{
: T7 I6 z' `6 J- c& K; {6 w( {- m RowBox[{"m60n21", "[", : {( J( B% r' x9 |6 ^
RowBox[{"[",
# c& Q( D2 Z% S$ Y- p RowBox[{"i", ",", "10"}], "]"}], "]"}], "=", " m% n$ u! P8 |7 Z! @
RowBox[{"u10", "/.",
3 Z+ k! H* _5 V RowBox[{"{",
2 ~6 e1 w4 P4 z$ c! N6 _ RowBox[{* c. q, |+ x5 X
RowBox[{"x1", "->", 5 G) w2 {+ r& L. f: @* {
RowBox[{"Data", "[",
6 _0 U- [9 ~3 C3 ~" ~5 L8 G RowBox[{"[", * k+ T" W# A" n# v
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
* S+ W d, A$ ]: L) P' r, T RowBox[{"x2", "->",
H. C+ k- W' p* { RowBox[{"Data", "[",
4 q8 Z# j$ _" U0 G' g$ z RowBox[{"[",
( H, a- Q* T) T6 d( B) U) Q5 b' Q RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
9 ]0 d9 |" a1 u! o0 k% z RowBox[{"x3", "->",
8 ~$ H& K( j3 W6 Q RowBox[{"Data", "[",
y% ]0 g# r" Y' v6 {6 d, m" `2 s RowBox[{"[", % `6 o( T/ K6 p$ Z. x( H6 J. f
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
2 K9 J) ?/ H1 e- f: D# ~ RowBox[{"x4", "->",
* n* p8 Q" q, [) A6 q RowBox[{"Data", "[", " k, A: F6 d' H4 c# d* ]+ k$ ~
RowBox[{"[",
0 e8 r) V/ _) `+ N8 x# e8 a- e; g RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
0 a5 l) G8 Y2 H: j/ l* o) f RowBox[{"x5", "->", - n) y/ p% o9 ?+ K! h0 y
RowBox[{"Data", "[", 7 ~, m7 C8 i8 Q* C
RowBox[{"[", 0 g9 v! z* g0 W8 l
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
5 F+ i$ S$ \2 u- T7 j: p- r RowBox[{"x6", "->",
' G; D& k, L8 H RowBox[{"Data", "[", 9 @ e/ E. h9 X. G+ ^$ Q: V% e9 h6 p
RowBox[{"[",
" c. s1 }2 a7 E1 {2 |+ Y1 A/ f$ g) s( { RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
; R, z, U7 ^" f/ a1 F RowBox[{"x7", "->",
5 p" o& R8 M, \( v2 e RowBox[{"Data", "[", , S! p& ~' i7 W& M) ~
RowBox[{"[",
+ G& Z* C# S5 g0 G* _' d r RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", $ E# ^. O. |- \7 O' k
RowBox[{"x8", "->",
% ]3 B8 I! f. C RowBox[{"Data", "[",
% O1 K8 W3 {5 s8 f$ b RowBox[{"[",
! B; k, q4 g( y- v( g/ Q RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
7 T2 R4 y2 O, N. m, A' Y RowBox[{"x9", "->",
: p3 s' D) ~0 K2 O* ^# V4 y RowBox[{"Data", "[",
* g1 P P q/ m" S5 n* T9 f6 e& O RowBox[{"[",
' c2 ^/ w) ~& u2 y& e8 K1 f+ D RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
/ J0 r. C6 b; ?% B; S "\[IndentingNewLine]",
% }: X+ m5 m) l' S }/ p RowBox[{$ l7 i6 D$ _& V4 c, Z3 ^7 H' Q
RowBox[{"m60n21", "[",
& a3 [% o" p' E( D# r RowBox[{"[", 4 F) f, x7 O: v( J) `6 l
RowBox[{"i", ",", "11"}], "]"}], "]"}], "=",
; W! _8 Y" X" {7 G; H! B RowBox[{"u11", "/.", : @+ i3 y( t9 Q; U( }/ |* |
RowBox[{"{",
1 O/ R% D6 x/ N RowBox[{5 c6 i5 s, C, Q9 a
RowBox[{"x1", "->",
( R% E6 J4 @5 B1 [8 M6 t- e8 D RowBox[{"Data", "[", r! u1 W: B6 R# o; e$ a B3 J- q2 G
RowBox[{"[",
- T% W4 l* |; e/ m2 | RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 5 V6 H2 Z4 P; Y* E/ h: L J+ j# w
RowBox[{"x2", "->", , p/ ?. s' ~( o6 E% M+ C
RowBox[{"Data", "[", 7 k0 j( t7 q5 l1 u) u
RowBox[{"[", ! Z9 ~* [3 {' U' H+ t! Q7 m4 _. M
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", & y( z B/ ?: u2 Y" g+ n7 @0 ^' E" y3 x
RowBox[{"x3", "->",
0 t/ E- y4 ]/ W RowBox[{"Data", "[",
- V0 f. @/ p5 b# H; O RowBox[{"[", / A/ r, X. Z1 m
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
7 y" N; b X& ^* @. h0 _ RowBox[{"x4", "->",
8 W* |4 l# C9 u5 h# e& R RowBox[{"Data", "[", ) d8 c/ J! x3 W9 C- V1 r# ~8 C
RowBox[{"[",
+ N& P1 y+ @! P/ g7 n RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", * A4 Q( _; w5 B- i, f, o
RowBox[{"x5", "->", . x2 P# e: u- h1 N \7 X* ]* l
RowBox[{"Data", "[",
* z( A. v6 R0 r2 y: t7 W RowBox[{"[",
N3 |. x, R4 [5 z RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
) }8 N6 P4 s$ d0 k4 _& L: H RowBox[{"x6", "->",
" _" Z7 v0 Y6 v9 P" Q1 J RowBox[{"Data", "[", 4 Q5 F6 k3 Y' ^! Q6 k+ \
RowBox[{"[",
- U* r& X3 M5 ~/ T RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
$ B, o, ^! C% p. q RowBox[{"x7", "->",
% T+ Z, L9 W& n* t9 b0 f. X RowBox[{"Data", "[", 4 Y Y/ r5 d% F) A
RowBox[{"[", - B* r& g0 k0 D2 W. n) w
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
; O# h8 K: J: O# l$ M RowBox[{"x8", "->", , p f) D* |1 b. D
RowBox[{"Data", "[",
+ Q! W* V) F: W1 H* S RowBox[{"[",
9 x/ i3 F5 O, I9 y! X RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
# w: W! L t0 a1 U- w RowBox[{"x9", "->", ; b; {2 |: \: u
RowBox[{"Data", "[", % j9 {, A; H$ r5 n
RowBox[{"[", 7 s- w% B& E9 _9 `8 i$ x
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ; Y: Z4 s: l z' @% _0 y
"\[IndentingNewLine]",
W: L! |% b c; c" H, J& S1 e5 h RowBox[{
' I' |2 I& w1 E2 T RowBox[{"m60n21", "[", ) J9 t9 M& g- x, C, ^" [' E
RowBox[{"[", 5 U3 u! H5 A4 L5 a" k
RowBox[{"i", ",", "12"}], "]"}], "]"}], "=", * x4 g% N: C- o
RowBox[{"u12", "/.", 9 b+ g+ C$ P: G8 f2 W, I9 R
RowBox[{"{", # o9 W7 K- y2 m# i# m7 L& t9 j
RowBox[{
* x2 ?' W! h7 f: P6 S/ S7 X RowBox[{"x1", "->",
3 ~" n M6 }* m4 _5 D/ v# T$ [1 }! Y# w RowBox[{"Data", "[",
7 q. w: \( ]& F! B. ]/ m, N RowBox[{"[",
! h4 {0 @! o1 g; W) E9 q. | RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 3 D) E" m$ a! y% V% U. a% u$ e
RowBox[{"x2", "->", 7 C, c2 Y2 o) R
RowBox[{"Data", "[",
8 l6 j# p2 Z, m" l( h4 U5 c RowBox[{"[", - s G5 j6 u$ |/ @" B
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
$ R& t- }( l0 d RowBox[{"x3", "->",
: A: \! |! W. B+ P' ~1 X% V5 E* G RowBox[{"Data", "[", 4 v! N$ B o7 l2 [/ r
RowBox[{"[", # L6 K6 }5 c, t" s7 x4 K
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
) x' D/ z# \+ x& g; `) d/ e; Q RowBox[{"x4", "->", 9 R8 ^1 `6 b/ J1 q/ h
RowBox[{"Data", "[", 4 \( o5 M" h) w! i
RowBox[{"[", + d5 R8 G r; T9 q) q. g. d
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
7 U$ W( C8 ^4 P! k; q RowBox[{"x5", "->",
9 j! `6 t3 i& f RowBox[{"Data", "[", & ^4 A9 E, \5 D$ b6 A$ ]. p6 X
RowBox[{"[",
: v2 a( b' f0 Y RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", " J9 s, v% W* X; K0 I
RowBox[{"x6", "->",
$ P% y$ S# q/ D* M, f& M RowBox[{"Data", "[", 5 t8 W! f; U4 b( m' R
RowBox[{"[", * r/ B3 s! F; i* Z. r
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
% A3 J( c5 N; ]7 v# b6 P9 }. N RowBox[{"x7", "->", ) Z8 K- t# n# Q
RowBox[{"Data", "[",
0 K$ k1 P+ K& X+ h5 |' ] RowBox[{"[", ' |5 a% t! Z6 v, o
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
' N! y0 s6 E2 W# p. s: p9 W$ z RowBox[{"x8", "->",
- B" d3 ^! y# @ RowBox[{"Data", "[", @8 f2 T2 w! H: o) A/ E
RowBox[{"[", / o* J; n& y) N: o3 Z- Q) z' w
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 3 J: U; B& x1 ? E: j6 b8 R
RowBox[{"x9", "->",
& h) H* x1 r: H: b% i! j RowBox[{"Data", "[", , ^5 S' {6 L. R' b1 u
RowBox[{"[",
_# ^% k6 a% K$ C' o8 z RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
! j) f, r+ X3 R* f "\[IndentingNewLine]", * J0 z1 W6 f; A9 a
RowBox[{
l. ]* v; T9 r0 {7 G RowBox[{"m60n21", "[",
* `4 G8 U- a$ T RowBox[{"[", 9 W: ^# }8 B o2 j$ F. x% o
RowBox[{"i", ",", "13"}], "]"}], "]"}], "=",
) R- o7 l% k: B' r" ]1 @2 _ RowBox[{"u13", "/.",
$ P% ?3 g# F* N7 | RowBox[{"{", ! c* m; ^# Y5 H& r0 D
RowBox[{0 [) h n$ s8 M4 X- f
RowBox[{"x1", "->", 0 l* \, y Q6 u( P- x
RowBox[{"Data", "[", ; r* m( b% d' f- t/ M8 w
RowBox[{"[", - Z" l" j/ A6 u7 s3 @$ p
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
- f8 ^$ b/ m" ]* [7 \; q4 L; R RowBox[{"x2", "->", 9 w; a& ?0 I# A8 M4 h
RowBox[{"Data", "[",
) b; s" a9 `+ O4 p9 N) [6 F RowBox[{"[",
9 ~; Q% T. w' H% i: x RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 7 \7 }; ?& L0 l1 T6 [" t" H( t4 W
RowBox[{"x3", "->",
% G! a$ d9 `+ r$ v RowBox[{"Data", "[",
9 `; o) k( e% w- G RowBox[{"[",
/ J2 F" m! W! T+ s RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
. I/ ~. |; P6 g7 q* H, A4 t RowBox[{"x4", "->",
, {' |5 I, o5 q0 t1 g RowBox[{"Data", "[",
7 d+ V8 ]6 q: k0 ?" J: U RowBox[{"[",
. H8 q4 P9 l* T1 A0 K RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
1 z( w$ }8 h+ n6 }5 ? RowBox[{"x5", "->",
' b7 ~' U! w; a: D& _6 s ? RowBox[{"Data", "[", 4 W0 U k0 k7 L5 c/ o/ @0 h/ n* r- U
RowBox[{"[",
& {) o$ P- f/ n RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 2 U/ V# p5 b/ j' ?
RowBox[{"x6", "->", b1 e# j0 {9 h7 X+ }0 ?1 n+ g
RowBox[{"Data", "[", r, r/ R6 ^3 |( o1 C7 d% O
RowBox[{"[",
6 b a9 j1 m ~$ t! s: W6 P RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
* K+ v$ }* S6 D4 V RowBox[{"x7", "->",
8 d# R; P* J+ k8 l* n RowBox[{"Data", "[",
5 S5 G5 @5 L6 r- @9 _' S( p# a$ V F RowBox[{"[",
3 s( K. k: z& I2 T( r- F RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 8 m2 H- W! c& r7 F# m
RowBox[{"x8", "->",
3 i) P L; K) | RowBox[{"Data", "[", 5 `: |9 X( u7 W3 m7 x# c
RowBox[{"[",
/ m; j) ?& e6 T+ | RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", % [, e; |5 Q" P% f( T
RowBox[{"x9", "->",
% B$ [+ C, |! }7 [ RowBox[{"Data", "[",
5 @" x$ e: ]2 k3 c0 R: Q5 d" c \$ O RowBox[{"[",
/ S& \# }8 I4 D% T RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
# i. ^; A2 B5 w3 s "\[IndentingNewLine]",
% O0 q' @/ y9 m% H, [: v( g) {# P RowBox[{2 V n: L/ F9 L& h2 _5 w( S
RowBox[{"m60n21", "[", : V* ^: L1 `9 M, O: v' b4 P
RowBox[{"[", 4 o Y8 R$ [8 |/ t/ g$ d
RowBox[{"i", ",", "14"}], "]"}], "]"}], "=", / O- @9 W% l9 \+ U
RowBox[{"u14", "/.",
5 r" `* P+ R" v% X8 p$ o& C RowBox[{"{", . n9 Z7 V& S3 x) w- w$ I) z5 v
RowBox[{7 X0 T- e9 A) p
RowBox[{"x1", "->", 0 O' g {8 Q# _' s2 U' v, O' r- c: [: y- v
RowBox[{"Data", "[",
; K6 R5 p3 {+ c- p" D/ o RowBox[{"[", ; c7 d- Y( q) v$ S
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
$ K1 o! d1 k, E+ v$ } RowBox[{"x2", "->", 4 Y* s7 h3 W1 O3 q" _1 w
RowBox[{"Data", "[",
$ r- |7 a0 T4 w# U& V: k7 b RowBox[{"[", . I' U9 }- }1 s% @/ b7 o- x* N
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
- w* ?0 x) |# O RowBox[{"x3", "->",
1 h3 [- Q) e4 r: S RowBox[{"Data", "[",
( y- ]. S R+ m+ L7 z9 F: [. v RowBox[{"[", % J; h" e4 |, q1 j) H2 t
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
3 q/ ]) Y- g% d0 l% S9 V# o p RowBox[{"x4", "->", , A f( }7 B- z: e, q7 z$ b
RowBox[{"Data", "[",
! z, C1 v% L% p5 Z RowBox[{"[",
6 [ I. w6 l6 Z- \ RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", + e% M3 g/ O: T2 @
RowBox[{"x5", "->",
, A' {& |( z# x0 Z/ R- W$ I8 j RowBox[{"Data", "[",
/ N6 T2 h3 k- t- o RowBox[{"[",
4 U; r6 T& h9 V9 f1 ~9 ^# c RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", & A6 i1 v1 ?. X2 A% J; c3 G1 y
RowBox[{"x6", "->", : \0 i9 I$ I) z* o+ A6 ]9 @# L/ K
RowBox[{"Data", "[", ; Y5 }* _# J3 }9 |
RowBox[{"[", , ^# B4 a, n, v6 \1 Q0 d
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
v: e9 X1 g8 f% B; B RowBox[{"x7", "->",
+ t# W7 q' R+ R' K5 I% g# P RowBox[{"Data", "[", , P* B/ V: [8 B' n6 ]
RowBox[{"[",
& m9 [8 ]% y" _/ h' [5 L RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", " o# a$ n; u( s
RowBox[{"x8", "->", 3 h5 t' [) U$ m8 j+ z' T N8 u: h
RowBox[{"Data", "[",
& w# _4 ?5 s" M+ f RowBox[{"[",
$ ~' x W+ t" u5 [ RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", $ V+ c& F: }8 o) _7 C8 a; w
RowBox[{"x9", "->", 2 s# K! N' U' q' t3 M3 {, S" p8 x
RowBox[{"Data", "[", / I. ?6 n, a8 ^# a
RowBox[{"[",
5 V) K( O# }3 ?5 } RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ) s; J: c3 W5 a$ b4 x: L- z
"\[IndentingNewLine]", ) J. K. t" k# d: ~$ d0 D& i) E
RowBox[{0 F7 {9 F- r& E4 a; h
RowBox[{"m60n21", "[",
8 e! L2 o" M! Z. L5 h RowBox[{"[",
0 Q3 ^3 f* l5 A8 c1 W0 m4 v RowBox[{"i", ",", "15"}], "]"}], "]"}], "=", / r$ P8 b0 |& k$ d8 M# A
RowBox[{"u15", "/.",
, Z& L. P- I: ]# V5 v RowBox[{"{", 7 [& h/ g6 g2 f0 I
RowBox[{$ L9 }4 b* `7 A1 T4 m! V
RowBox[{"x1", "->",
& V8 I0 s. C8 H" Y RowBox[{"Data", "[",
" l6 f' d {% U1 f9 D RowBox[{"[", ; s" f0 u, b/ Y4 C( K
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 4 b7 R' M8 r/ U3 p
RowBox[{"x2", "->",
]+ D* A: x8 H; e6 _& | RowBox[{"Data", "[", + z: `, Q' ^ `+ I( |7 J! I! \& _
RowBox[{"[",
0 Q% G4 Z: A: d RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 3 h+ v9 `" H! `3 D4 J
RowBox[{"x3", "->",
( d0 [, m+ V7 O1 r# J1 ~ RowBox[{"Data", "[", 8 s; _$ h8 ]; x5 B$ P% Y
RowBox[{"[", 1 g) k# a; H# h f' D1 Y7 C( r
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
5 [( ^8 v5 B" q5 O9 S s/ v" k RowBox[{"x4", "->", ( ^' i( g& p* W$ D1 l
RowBox[{"Data", "[",
# g( g$ A! z5 } RowBox[{"[",
3 ?4 Q g. P/ d$ C7 X3 I RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", ) O" E3 M: V1 q l( S( [
RowBox[{"x5", "->", 8 l- N. ]7 i9 r- F* ]
RowBox[{"Data", "[", F4 U- y9 @; s
RowBox[{"[", 2 ]( g& ^9 l& B% [ v$ H; r& F4 k
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
2 ` R4 C& l* m( c& G8 s RowBox[{"x6", "->", 4 t+ T$ K, R+ h
RowBox[{"Data", "[",
# [$ C. z6 b, ~1 _) M RowBox[{"[",
: j; j ^! P+ `" a RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
2 R+ D! o" ]6 e. p6 V8 I RowBox[{"x7", "->",
+ A5 q$ e2 m( Y# S RowBox[{"Data", "[", " y( E3 d" Q- F! @% R5 ^) i
RowBox[{"[", ) E0 Z; T+ c6 o! L6 m+ `/ C; c, {
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ( i+ A6 e7 [6 W
RowBox[{"x8", "->",
/ O9 Q' e& K$ J& c% \0 C RowBox[{"Data", "[", . g& P1 g' ]* t" G8 w& l" ^
RowBox[{"[",
. U& u b, A+ _8 B0 ~4 u2 O: f RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
. l0 s7 {2 f% Y RowBox[{"x9", "->", 4 x& r( y/ F) D# M5 {9 O, ^8 u
RowBox[{"Data", "[",
' a% W5 y6 j$ Y RowBox[{"[",
1 n8 F+ c! ]: \8 r' }' V& Y RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", + R- L: t4 H: r7 D }, R
"\[IndentingNewLine]",
9 H1 W4 n" T ~. i* M RowBox[{" T1 Q' r" S4 u6 t! f6 B
RowBox[{"m60n21", "[",
! B! I1 z) Y1 M+ c RowBox[{"[",
e" c8 q! ]9 W7 J8 t RowBox[{"i", ",", "16"}], "]"}], "]"}], "=", ! y; c: \# E: p# ~' n
RowBox[{"u16", "/.", . D8 I6 s8 ^/ a6 N2 R
RowBox[{"{",
0 d$ j9 m' u6 M* _1 i$ x" _( }5 p9 K G RowBox[{
+ N, P5 r v) U0 W0 }& ]% c! h; J- r RowBox[{"x1", "->", 6 q) {; _9 L% I& T! ^4 K
RowBox[{"Data", "[", ; z7 U ~3 x- O) ^. m8 L$ y
RowBox[{"[",
/ h- { s. w3 j7 d% r8 u" j RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
D, L9 w/ C. a: l RowBox[{"x2", "->", / s( P+ K, S0 O% X8 b6 j$ D+ H
RowBox[{"Data", "[", 0 K9 t8 [/ e6 C2 w
RowBox[{"[",
. q: f* w* ^, C/ p' b RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", # A1 \3 |0 S/ i
RowBox[{"x3", "->", ! e: ]. G# V3 V5 U! X+ j3 E
RowBox[{"Data", "[",
9 d3 ~/ L3 ?0 |6 j RowBox[{"[", % a, N& s; A: l! o( L( I) z+ M
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
) E7 l3 x& \3 l$ }& B, c RowBox[{"x4", "->",
: T( o$ s0 \! Q) g7 E5 z2 d7 K RowBox[{"Data", "[",
1 K. G; V$ }2 S9 M; N+ @" j RowBox[{"[",
# `7 q4 A2 f Z; ?; U& w1 M3 z RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
$ C& P8 L4 p+ `7 v* @9 ^1 Y7 d RowBox[{"x5", "->", 3 U+ o+ Q; N% [- B9 ~8 e6 q3 y% k" P
RowBox[{"Data", "[",
w! D1 I1 P; @# X: }: Z( \; Z8 r RowBox[{"[",
8 Z$ T$ ?) ]4 A+ N) F3 T3 f RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
: f# U& }5 c' G+ R$ H$ ?* A RowBox[{"x6", "->", 8 f! {/ j. ]; \9 M. _
RowBox[{"Data", "[", 6 e4 G$ s* }0 _2 M8 c' T9 N& T
RowBox[{"[", n" N, r& q m) p3 i5 |
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", - I: h8 l! h: M1 w
RowBox[{"x7", "->", . f1 D% x% v' p
RowBox[{"Data", "[", 1 k& F. n4 W! w4 ~5 I
RowBox[{"[", + K! z" S# ?% i/ }) `
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 3 T# l7 b9 z' T/ v; j! }
RowBox[{"x8", "->",
3 c" t6 {1 L; X. H: m% _ RowBox[{"Data", "[", $ z4 B0 [2 b: ?* _4 V
RowBox[{"[",
- U( [* y( E& k& \ RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", * I- ^: R5 `5 x4 J5 I: m" m* \0 D
RowBox[{"x9", "->", 4 y6 ^# F4 w" Z* z2 j) v6 ?
RowBox[{"Data", "[", . b2 B. y' z$ }. u# X5 [
RowBox[{"[", ' n3 _+ J: e; }' c- c0 B! w
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
% |( }- B/ O* x e) K$ k "\[IndentingNewLine]", 4 y# L# K% L' P3 [& f
RowBox[{; R( a" u8 C* }7 G& Q" s
RowBox[{"m60n21", "[",
3 m. m8 L* q& n) t! x$ n. Q, R RowBox[{"[",
$ |2 J9 `3 W4 z; j4 S) h( ] RowBox[{"i", ",", "17"}], "]"}], "]"}], "=", 8 G1 P( _/ t* x2 u0 P% Q" |
RowBox[{"u17", "/.", " [5 ?0 j" [' K+ u- Q$ K
RowBox[{"{", $ r5 ]% g9 @2 E+ T
RowBox[{
0 \" D4 c3 h @0 ]3 i RowBox[{"x1", "->", ; X6 O. [" u& @* b0 s
RowBox[{"Data", "[", : l7 c p k5 W- f( E+ e# _5 B' L% c
RowBox[{"[", * y! V& w3 l! v) q" V
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", " @9 ]5 [2 h8 q% A3 U0 B* y
RowBox[{"x2", "->",
0 L5 @* y2 D* [. `* d" L RowBox[{"Data", "[", ! H& r1 g W, O/ g; _
RowBox[{"[", ; a7 r4 ?% @( J. Z5 o$ \3 ^* N
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", $ g7 `1 \5 C! F: y, i* _
RowBox[{"x3", "->", * |0 y+ _( M& o; |
RowBox[{"Data", "[",
6 Y5 \4 u! B7 I, G2 t! @. j7 E RowBox[{"[", 9 v2 A% ]; U! m& h
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
7 s$ x9 E& D* w RowBox[{"x4", "->",
/ ~+ c/ \- v* j3 x. p( s RowBox[{"Data", "[", # ]% f# Z i/ d5 i" M
RowBox[{"[",
6 Q' ]3 t& d9 ^* u0 s! y, ` RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", . Y: X; ?6 x* i1 x
RowBox[{"x5", "->",
8 F6 D+ A r# D3 t R6 S RowBox[{"Data", "[", 0 q7 d9 P9 J5 V4 G
RowBox[{"[", / Y% C. ^1 v$ ]* q" _! P) `# k5 ?
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
0 a% B$ a( M0 M7 i RowBox[{"x6", "->", " e5 i, v/ Y2 s: w
RowBox[{"Data", "[", ; W: k# n8 g' [- L+ z8 v3 |7 D
RowBox[{"[", + X( I. e+ c4 u p( z) {
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
% F- T! P, G* t; t RowBox[{"x7", "->",
4 `" S/ `; ?, l6 k0 u: u/ F" ` RowBox[{"Data", "[", 4 S3 c8 K) O) G! Q; [& j
RowBox[{"[", 7 `6 r+ U8 ?4 Z2 d) E* }$ D, j
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
3 U% t! y- }3 f& p; N6 I' D RowBox[{"x8", "->", b+ D z* @( Y
RowBox[{"Data", "[",
" g- h G' T3 ^; ~' Q RowBox[{"[",
) W. O5 @/ ]: z# u7 L2 P1 ~ RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 3 D0 P9 w. `) |* t+ j
RowBox[{"x9", "->", $ ]; |& M. |( N
RowBox[{"Data", "[",
5 R. M N7 E! U& X RowBox[{"[", `, _# w& W. X: l( {
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
! j' `& L4 a/ P. N, {- [ "\[IndentingNewLine]", j# h& r6 W7 E+ n) _+ Q7 ~
RowBox[{
" f! \3 W/ ^4 i1 g" S& B; u7 u RowBox[{"m60n21", "[",
3 i; w; V4 b0 C2 X& o* i9 z( j RowBox[{"[",
+ A( N' C) y- ^9 j RowBox[{"i", ",", "18"}], "]"}], "]"}], "=", 1 h5 v# g* f$ q- B* X
RowBox[{"u18", "/.", 0 U' R+ A( x5 J% ]: {% u% u) ^
RowBox[{"{", 4 E5 c& N4 m0 J* Z
RowBox[{8 {: F) }# k& ]- j Y( N9 H5 a- Q
RowBox[{"x1", "->", * F. S, Z+ K/ \" J3 l
RowBox[{"Data", "[",
% v; ~7 b/ S8 J0 g$ ]! E1 t. e RowBox[{"[",
( S5 _8 ?* b+ n' A( s5 p! @/ k RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
9 b7 K4 _. S1 @ RowBox[{"x2", "->", 6 d' z& k1 t% g+ Z7 c1 N- Q
RowBox[{"Data", "[", 1 f6 M! n; o' o% }9 X$ E
RowBox[{"[", ) t. t( y& R; B
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
( ?' d- T( f5 H: } RowBox[{"x3", "->", 9 B5 t4 |6 |9 h, I5 v" x1 j; j
RowBox[{"Data", "[",
! |4 Y* s9 @, y0 R RowBox[{"[",
* X) _% s/ s1 w8 ` m2 b RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ! S4 I4 {/ e* a
RowBox[{"x4", "->", * X6 ?+ w9 {9 t+ I* E
RowBox[{"Data", "[",
0 v+ [, }0 s" u7 W5 z7 U RowBox[{"[",
* S# X$ Q6 m& Q: W$ g% z6 M, X5 _ RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 6 w- m9 O- e7 H# T
RowBox[{"x5", "->", ( v$ T0 j8 c1 F% L, l
RowBox[{"Data", "[", 8 @7 d. f) Z. M0 e( \: g% ~5 P
RowBox[{"[", 6 W9 K1 s! C: l2 }* y
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
* j9 L$ |- H. J$ O( V RowBox[{"x6", "->", 7 k) |& S7 s5 R7 z& R
RowBox[{"Data", "[", : d9 y N; {' M+ H5 e$ |! h
RowBox[{"[",
' @, i" D2 |/ H% V* x% B RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
+ ~# l1 p7 E% l" o RowBox[{"x7", "->",
# a* I' k. C7 h( }; ~' | RowBox[{"Data", "[",
/ x, I. }( C5 |# f RowBox[{"[",
7 ^6 k: G5 d' M8 u7 F RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
5 ]3 _) a% O( a# M2 M RowBox[{"x8", "->",
! D/ d3 p- H# m9 M0 A$ M- ] RowBox[{"Data", "[", 8 f4 n& r% g% E1 J2 m/ `
RowBox[{"[", 6 S) W6 V1 }* x+ _; {4 a
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
' G3 S# X$ t7 J. M% c+ x& F RowBox[{"x9", "->", * M6 r5 N# G* O& |! k. E; w4 J
RowBox[{"Data", "[",
6 w9 l5 Q2 f. L2 B% s$ W RowBox[{"[",
1 A+ F, ]9 N7 C4 ~8 p/ |" {" T RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
. t1 i3 x+ I7 A4 V( J% a "\[IndentingNewLine]", 1 N. G% M* N9 _5 i
RowBox[{
4 F$ G& j$ a: N3 L. k RowBox[{"m60n21", "[",
1 B+ ` K h6 P* z }/ j' Z RowBox[{"[",
9 t: v0 ^) y0 H( c! E RowBox[{"i", ",", "19"}], "]"}], "]"}], "=",
: L1 P X& }9 E( Z7 M RowBox[{"u19", "/.", 7 G" M. k- f: M9 Y0 ?
RowBox[{"{",
# m C) Q6 w/ t& `) _6 P RowBox[{
# v1 ~$ @9 x9 O# T; N7 Q6 Z RowBox[{"x1", "->",
' j3 n! C2 C9 M& d! Y( l3 o: ? RowBox[{"Data", "[",
; q! x: I+ v3 G \ RowBox[{"[",
/ W3 {% O" K# K3 q, f1 q RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
9 g. z& X$ S8 o9 [: O! ~ RowBox[{"x2", "->",
. i9 u; N) @3 e# G RowBox[{"Data", "[",
# Y7 ^" \0 s' O& z) d6 n+ p RowBox[{"[",
" g9 |! N2 m0 x' I6 u2 k) l( Y RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ) A2 d9 M- p' }/ B6 s( D9 [% k
RowBox[{"x3", "->",
1 [! Z2 N z: o: O/ |$ J RowBox[{"Data", "[",
0 ~/ ?4 k; S1 M; g# y+ z RowBox[{"[", x& B3 F7 W1 n4 p3 Y
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
$ J, Z" s9 Y" s6 G t! d RowBox[{"x4", "->",
/ Y V, }- x$ e X/ A RowBox[{"Data", "[", ; a y- N( n% a: H$ Z
RowBox[{"[", & b8 C1 W3 A% }4 p2 x/ K
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", - ~* E4 c$ ~! u0 b
RowBox[{"x5", "->",
$ H8 @' Q3 P4 P2 w! P& r2 u/ \4 [ RowBox[{"Data", "[",
$ |: d* B. y3 g" T6 F! U: W8 q RowBox[{"[",
. b% y+ h; V1 `' h X RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
6 v0 a ~# @+ j! U$ T. T: u RowBox[{"x6", "->",
+ b) V# W# A2 Z/ Q RowBox[{"Data", "[",
* m$ G& Z# y* t5 L. v: d5 h; P RowBox[{"[", . ?# Y3 |0 S; z, w# o
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
- B4 u8 s( o) y+ g3 }8 D% J! @! D RowBox[{"x7", "->",
. u" H& e+ \/ R9 D RowBox[{"Data", "[",
3 S d; e8 l6 ]. ^& H& M6 l- @ RowBox[{"[",
$ R [4 t Q0 u/ P5 ?4 Y RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
) q+ J: _" |3 O4 f; y RowBox[{"x8", "->",
; T: t7 a+ [2 c+ ]' Y4 M RowBox[{"Data", "[",
. O; ]: y* k+ t6 E RowBox[{"[", " q# D/ k% Y/ S' M9 D# Y
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 7 T/ Q" \: x1 x9 J
RowBox[{"x9", "->",
* }3 m* J4 s7 {& K4 d RowBox[{"Data", "[", $ o# x% y! b% G' ^; L: |
RowBox[{"[",
, v5 M! L: Q' \) \( A7 V p RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
- V5 n- e& p& X2 a U& I' M "\[IndentingNewLine]", ; X% T+ G3 D ^8 F8 q3 X
RowBox[{. a( o2 p! i: J
RowBox[{"m60n21", "[", 2 J* v1 f$ K( y) P0 P8 y
RowBox[{"[", 0 f" }4 _# y% ]# f+ R( y
RowBox[{"i", ",", "20"}], "]"}], "]"}], "=", 7 A0 M H& Q& x: ]% Z$ `1 |4 @, q
RowBox[{"u20", "/.", 2 {: W# o- t4 v4 x
RowBox[{"{",
- h; G* h$ c+ P: r9 i" m% p RowBox[{
$ C. x! M3 [2 e. F7 `' D9 L RowBox[{"x1", "->", + N0 w' c! N. D9 E; Q2 I
RowBox[{"Data", "[", 4 |* h$ ?: \# t% ~
RowBox[{"[", 1 A3 s% S/ o P) a2 j. l0 d4 |
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 4 J- G0 c- @% ]! k
RowBox[{"x2", "->", 6 _. a* R9 u3 [; g% f# D, i
RowBox[{"Data", "[",
: O0 q: `4 ~# F1 B RowBox[{"[",
5 o% b0 q- {0 A' b- }6 [/ H6 Y RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
2 Q* _5 q, U& L RowBox[{"x3", "->",
" }7 r S! n; N- s9 Y0 E RowBox[{"Data", "[", 4 s2 a$ ]3 |$ D' Q; l; k
RowBox[{"[", " b, Y( q& O8 f8 u& Y
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
4 `# V; a \/ F+ d: ] RowBox[{"x4", "->", ' w" p) r8 q2 v- @5 H; G1 T
RowBox[{"Data", "[",
! A) W, Z5 f0 |/ U8 n. r RowBox[{"[",
: j8 n; p4 g. s+ [; Q/ { RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 5 Z; V/ }* m) h$ G( N
RowBox[{"x5", "->",
3 [3 j+ H0 H5 P {4 _7 ]) L RowBox[{"Data", "[",
% A. q- F. R8 H0 o RowBox[{"[",
, U) y$ u7 W3 W% h& R RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
/ r% ~- |. p; T1 \1 J* J' t% P% A RowBox[{"x6", "->",
2 E" W: X" c3 m- ~* Q0 h RowBox[{"Data", "[",
. k& ^% f; t, j. |2 X* ~& q. f6 F6 ^ RowBox[{"[", - M) R9 @+ X4 K) ^; C& r* {
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", , D8 c1 d& O* N
RowBox[{"x7", "->",
' ~' ~+ d o* Y5 k8 r RowBox[{"Data", "[",
1 O0 j& J! H) |- q' ^2 ` RowBox[{"[",
' |5 k3 p2 n! X' c Y RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 5 }( w3 x$ `; {
RowBox[{"x8", "->", 9 n% B# G# z" _ }3 s* V) a* e) @
RowBox[{"Data", "[",
$ Z Z* t/ n1 Y4 D: w& f RowBox[{"[", * ] z$ @" v* I+ _0 \
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
3 E( u0 f8 [& n' [* O RowBox[{"x9", "->", , e) j# N0 T8 X. e: s6 v/ p
RowBox[{"Data", "[",
0 F/ {$ N0 |$ {9 O! ]( L w RowBox[{"[", ! U9 m* j& s0 Y: ]
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ; Y) h0 `1 a) S, L2 ]- R% ^
"\[IndentingNewLine]",
3 m8 J( W5 [ X* W5 o RowBox[{. p+ F* W- U0 [! _" Y- R/ X
RowBox[{"m60n21", "[", 7 D9 o6 m$ E, k: A. m" J" t
RowBox[{"[",
6 r- [9 `+ R) L& a- d1 B" G' c RowBox[{"i", ",", "21"}], "]"}], "]"}], "=",
+ c' ~: J% P8 t, l RowBox[{"u21", "/.",
/ H3 E- B1 ^5 W+ T9 s/ m8 e RowBox[{"{",
3 X$ s& ~0 t) S7 ? RowBox[{0 c8 Q( R4 k2 C9 e# k" v. i. V
RowBox[{"x1", "->",
7 u" u1 ^! Z& V4 X" e& Y RowBox[{"Data", "[", ! }4 K4 K+ f9 I7 n, R" Y B# Z
RowBox[{"[",
8 \3 T$ j% M- r. r8 x RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 4 `6 X) Y4 T% N
RowBox[{"x2", "->",
7 T& d$ p9 T* w' |7 V4 | RowBox[{"Data", "[",
- {' L6 r4 T% ?2 m: h& N1 W' ]% S RowBox[{"[", 4 Z1 H% F: H# x9 \0 a# c, E
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
, _* `* X( N. {7 T* q RowBox[{"x3", "->", 4 O4 s7 p2 Z5 A B$ _" M9 o2 t3 p; V
RowBox[{"Data", "[",
1 }$ x6 L" l5 U; u# D# y RowBox[{"[", ! b9 j7 G5 S. Q4 y/ Q1 I* c! `
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 7 z5 p$ j7 r1 T; u! C8 S4 \
RowBox[{"x4", "->", ! D# I: w" @* v! s) G6 _
RowBox[{"Data", "[", / Y7 L& r7 @2 ? C2 _% H5 s
RowBox[{"[",
+ X8 S) Q/ O- G( ?4 b+ F0 ? RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
2 C/ Z/ K6 U9 T& g9 F( q RowBox[{"x5", "->",
( B! ?; g0 Y$ Q( v: u* V! A& f RowBox[{"Data", "[", # P; v2 J' @ t( {$ p; V
RowBox[{"[", 4 n4 c! l4 F% e; e9 x
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
- k" X1 ?8 m1 `) ]* z+ M RowBox[{"x6", "->", # H5 P# }) x" H2 | s. Q- ?- t
RowBox[{"Data", "[", * m( {" i9 @& N5 d }: s
RowBox[{"[", . J0 I" T* G, W3 X8 w
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
4 Y5 G! x. B& q- z" x) x$ I8 u& P: J RowBox[{"x7", "->",
7 _6 u s; }4 H2 t! p/ G. ` RowBox[{"Data", "[",
1 h8 k& `& w6 ?- K RowBox[{"[", 7 ]+ \4 m8 V- y
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 6 j# e7 n I4 F3 _- Z% F( D& Z! X
RowBox[{"x8", "->", & Q. [+ B& H3 ?5 L5 r) y
RowBox[{"Data", "[",
* r; X7 h9 c) [ `1 Z" m RowBox[{"[", ; s* c1 H: ?$ J" O8 |
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 6 K# n% g3 O7 ]4 M5 O
RowBox[{"x9", "->",
4 V' j3 r/ ?0 K& o RowBox[{"Data", "[", ) Y* u' ^& \# }5 Z1 A1 J
RowBox[{"[", 3 h% `# Z q1 b0 [4 @4 a! }
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}],
1 L0 i. n* v8 W3 K' }# l+ K "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
7 X( G# A" ?- `& r* Z CellChangeTimes->{{3.5779241165*^9, 3.57792417728125*^9}, {9 o, g0 d/ J$ ?
3.57792428359375*^9, 3.577924585109375*^9}, {3.577958919491543*^9,
+ T4 l. V. N+ t1 I 3.5779589224867477`*^9}, {3.5779619825731473`*^9, 3.5779620676400957`*^9}}],0 R+ @" I" ~) K
2 j' i& o+ H$ i' w5 d# ]4 R
Cell[CellGroupData[{
; R* E) e( ^8 k8 W, E* G" ~' H" E/ a5 c; {
Cell[BoxData[
! A: z V+ g0 X* N" a) k5 ~ RowBox[{"w1a", "=", ! h8 t6 P( Y& Y1 X4 p- M
RowBox[{"LeastSquares", "[",
$ B N5 M# V; T RowBox[{"m60n21", ",", "y1a"}], "]"}]}]], "Input",
& u0 @! M$ w7 u/ b CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {
+ o2 R& D8 s6 f 3.577924662765625*^9, 3.57792466596875*^9}, {3.577962074644508*^9, # R% N1 L/ f& Q9 K
3.5779620748317084`*^9}}],
6 I( H6 k# _ c6 j$ ^ Y: S$ a9 D; l0 x0 d! i
Cell[BoxData[
: |3 r1 _9 g* J% Y RowBox[{"{",
0 n" k, e" {: ?4 `4 W3 \ RowBox[{"0.32564305572552416`", ",", "0.500820838606441`", ",", # j8 R, D$ m/ M( o% O5 N y
RowBox[{"-", "0.5945873894818967`"}], ",",
5 ?! B3 k, ?* J* y; q RowBox[{"-", "0.1999688587779198`"}], ",", "0.020180806675835994`", ",", - H& E2 O {4 R: |+ O$ T
RowBox[{"-", "0.03345934908892623`"}], ",", "0.25282438852646905`", ",", ' Y0 z9 _3 G, h9 m. Z5 J; t
RowBox[{"-", "0.17602467625404622`"}], ",", "0.3961180670900672`", ",",
: h. b' W4 `# q "0.02759193650965952`", ",",
# [; z" k6 f0 h) Z, X RowBox[{"-", "0.320472847796449`"}], ",", $ r( o7 g- |' n' `% L* P- W
RowBox[{"-", "0.07581214474544527`"}], ",", "0.4812237524557292`", ",", , V& N7 r- j- b" |
"0.7528674241482847`", ",", "0.6665374509702799`", ",",
8 Z' }& B" P; e! J/ F6 i "0.22861495086373018`", ",", "0.13092706311748484`", ",",
Y- m) I/ {5 H8 ]* e3 X "0.5252475961933538`", ",",
1 [! Y/ c6 G+ Q5 {/ D9 T) E V RowBox[{"-", "0.10599338351843157`"}], ",", "0.6670272593678526`", ",",
) Z# P) n. f9 U "0.23580523388620733`"}], "}"}]], "Output",& d: Q7 R$ u! G
CellChangeTimes->{3.577924621953125*^9, 3.5779246688125*^9, . k" t; F; k3 J+ v- K: e: F K
3.5779575884583836`*^9, 3.577958952875601*^9, 3.5779620806661186`*^9, : @6 q+ ~2 c3 D: p" R
3.578012349875*^9}]# ~: E7 ]1 K* r5 \. Y
}, Open ]],! i' D; ~+ @; _# U% F8 Y) t" d" S! ]
8 {9 ^8 n2 G6 [ F) k. H
Cell[CellGroupData[{
( W/ @8 R* ~5 f- Q9 n* w2 `& i3 u0 Z p5 n. f# w5 w
Cell[BoxData[
# p- u2 M6 {/ ^& J0 Z1 K# L RowBox[{"y1", "=", / d0 K6 z7 s3 ^' f/ s
RowBox[{"w1a", ".",
+ A( @1 i3 D$ A' ^' U RowBox[{"{",
& U, S1 O6 ]5 C, `" ]" \) f H/ C RowBox[{+ F) C( L' I, ]7 m
"u1", ",", "u2", ",", "u3", ",", "u4", ",", "u5", ",", "u6", ",", "u7",
. F% n/ u0 |: w- n! E. t) N0 _1 Y. ^ ",", "u8", ",", "u9", ",", "u10", ",", "u11", ",", "u12", ",", "u13", 8 K4 {, C1 T. @. y1 ^$ z" l
",", "u14", ",", "u15", ",", "u16", ",", "u17", ",", "u18", ",", "u19",
$ \$ f+ D' I5 i! a" ?6 w ",", "u20", ",", "u21"}], "}"}]}]}]], "Input",. k; }/ u0 G/ q7 @) Z5 {
CellChangeTimes->{{3.57792471553125*^9, 3.577924755875*^9}, {
" _ J. N- `) Q7 V' t# W 3.577924897078125*^9, 3.57792491596875*^9}, {3.577962095642144*^9, ! R0 B( J% v0 k* s4 ]; r0 P
3.5779621231449924`*^9}}],
+ X- b$ E& N! A* J2 O F3 r
/ m" z2 Y. x/ l! t7 G0 ACell[BoxData[
: T w1 C4 C$ R RowBox[{( E6 s2 N* H6 A
RowBox[{"0.22861495086373018`", " ", . Q, n& [$ P8 Q+ w {) q# y
SuperscriptBox["\[ExponentialE]", ; K, w8 ~6 y$ |# z P
RowBox[{"3.141592653589793`", " ",
) H$ p# x& j4 D. J! x RowBox[{"(",
, n& c) z; K+ X b- v& C u RowBox[{# N6 A5 Y2 B1 u7 D6 q% t
RowBox[{"-",
' L2 s5 c$ w8 V8 z. Y% V SuperscriptBox[
' J: g4 v k) Z6 ] RowBox[{"(",
$ q/ a" a0 M& N; y, ]4 A, {& O RowBox[{
/ U5 D/ M$ P6 H0 r2 V3 Y RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
: J; T* t6 r/ i# ~ M SuperscriptBox[7 r7 T- v. m1 I
RowBox[{"(",
! P3 M; s- L$ ?3 K) z4 P RowBox[{
/ w, Q q0 H& |. n RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", 4 |+ H( S/ H/ `% p$ W7 Y
SuperscriptBox[ y! d) l) e/ U/ d' i
RowBox[{"(",
- i5 o: W% h2 A- b9 e4 p RowBox[{9 Y Q, w. W; m' L O
RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
g; Z) X; K; x* T9 L% F SuperscriptBox[4 O+ |; d8 l4 F
RowBox[{"(",
$ V% M- ` y2 z( V: n RowBox[{' ]* d4 _! R. }
RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
+ A3 {/ ?: Y3 P ^$ ^9 t SuperscriptBox[% T) t3 U0 q+ f! d- J' `
RowBox[{"(", # Y; P: ~2 r2 D5 f$ l/ g0 [
RowBox[{
2 u2 Y3 i- W4 H7 N& s5 i RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", - @8 p3 h* A9 g' f; C; M
SuperscriptBox[
* v0 c/ z1 p& j1 B RowBox[{"(",
( p% M' E: S$ V9 Q0 j RowBox[{) N! u+ ]8 @. Y8 ~" ?& t7 g
RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
2 O/ C* T( r9 C SuperscriptBox[
) V" a# s1 F2 L) O K5 V, @4 s: s RowBox[{"(", 6 ?- q0 p( R B
RowBox[{5 k3 e3 ]7 F8 @8 B! m( R
RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", + Z; P! [# w1 v* n P1 K: y
SuperscriptBox[6 |: H5 ?' ~: b( o$ ?
RowBox[{"(", " p. z- t' ]: z- b6 r5 e
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
/ I$ w3 C, ?, p7 _1 f. Z SuperscriptBox[
4 B+ _/ P, }3 E x+ k8 E RowBox[{"(", : r; M0 L& }" U% R0 I
RowBox[{% m9 E1 d4 H" ^$ g" @3 U' [
RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+", 1 D) t3 \9 L' p0 G0 J, W
RowBox[{"0.020180806675835994`", " ",
8 q" X E: P/ k- n+ u SuperscriptBox["\[ExponentialE]",
) N: ~8 [0 ^1 P* c0 j) ` RowBox[{"3.141592653589793`", " ",
+ U* n9 k+ V3 H RowBox[{"(", , e& b* J( ]- ?9 n4 Z
RowBox[{7 O! w4 j4 [- e4 ]$ n* p: e) f9 m$ [
RowBox[{"-",
* \ n3 q7 m0 {0 _ SuperscriptBox[# R4 r1 s& ], z
RowBox[{"(", 2 U1 ]+ T- M. e: B
RowBox[{6 L5 D: |! S+ v
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 2 H0 \0 P0 E5 T) f& z* Q
SuperscriptBox[5 t7 n6 s4 `; F7 j. p
RowBox[{"(", 6 `+ g1 E; t: d/ Z
RowBox[{( f3 m2 ~/ \7 _. `6 L
RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-", ! Y6 q$ Z. M/ h. b. I4 R
SuperscriptBox[
) E7 Z5 Y3 k& {4 S- W, q RowBox[{"(",
. P7 I+ f: j. _6 k) Y y+ r& V v/ J RowBox[{
1 M: K3 O9 u- n* Z* \# `* U RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", ' L; Q% q2 s) m: o, j
SuperscriptBox[
! F4 M# I+ b. X1 H! \/ U RowBox[{"(", # ?$ ?' d6 g) {4 F1 s* ~$ O( ~3 W
RowBox[{
6 _% g9 T* I/ v( l RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
: W4 b( M7 \9 c+ U k# V" r SuperscriptBox[
- g" U- P" a* ]) G$ d2 S2 U RowBox[{"(", ! X! r5 P$ D2 L; N/ Z: {% X1 c: E) q
RowBox[{
( q8 v H& e& W" \) h. Z1 L RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", ' H3 } ?" m% P/ {. I h k5 X
SuperscriptBox[
; E" A$ x# M) o) X7 c8 R/ b RowBox[{"(", ! k9 S2 H: {9 X: i* I. `
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
5 |$ g- s+ ^. r6 t) u SuperscriptBox[
6 d/ Q! g: ~ K# A4 y- z/ o RowBox[{"(", ; y. _1 L) z" S$ o* U" v
RowBox[{
8 b: i, z) y5 M5 L% x1 P RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
" I' A. j G. G7 C! [ SuperscriptBox[5 Y9 {4 O0 q' W: X4 L, r* A
RowBox[{"(", : k; S* D, ?) J3 L( Y; l
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
: J. L6 {# W# Z SuperscriptBox[
- {; i8 w" u+ d9 [1 F RowBox[{"(",
! u! L1 b8 F3 N5 f! f, ~ RowBox[{
3 A/ w( k7 A p$ c. \9 A8 O RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
) J/ M% U$ `. b) G. { "+", 1 w$ @0 m. z; p7 W
RowBox[{"0.13092706311748484`", " ",
! I- O' m* X, L( A2 g8 q8 o( S SuperscriptBox["\[ExponentialE]",
3 c( n7 m2 w( p% @5 y RowBox[{"3.141592653589793`", " ", " e8 I' Y( m9 G& ^; S
RowBox[{"(", 9 Y) z/ G7 i3 e5 ^! p) x) U. W
RowBox[{
, ^0 \# H; N3 N* e; s$ u5 I RowBox[{"-",
) `4 X2 k* s& |7 A* F4 R SuperscriptBox[
5 U2 l( A6 K& N RowBox[{"(",
( _! f1 o9 M2 L3 C6 x RowBox[{
% l! p1 h$ [% @- d7 A1 \! e! e RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", ! Z" a9 P# i" h5 ^9 w- ]0 r* [
SuperscriptBox[
8 ]- m4 B5 S2 J" N+ y! _# Y/ A RowBox[{"(",
% x+ P4 D _5 i6 K2 F RowBox[{
* i5 [- q# d* G+ q$ @ RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
: ]' Q0 T& m9 e SuperscriptBox[7 _( `' I' y* M$ ]
RowBox[{"(",
( S3 j1 E: ?' J/ v' s7 T6 a RowBox[{
+ ] y- A& q0 J- N RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
! C `9 b; j0 W2 m& i SuperscriptBox[
4 x/ y/ c9 `. ~* Y9 _7 E RowBox[{"(",
& M+ j. T, O0 V4 b RowBox[{
6 w; w- Q' F4 Q; F& u1 E* \% B RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
& R! Z; w/ }7 @2 B2 u+ @ SuperscriptBox[& N" N$ }5 ~: y0 X$ D/ x8 t. z
RowBox[{"(",
2 M; U- K9 ~$ R! \: M/ T9 B RowBox[{! e1 x* p7 ^* \1 ~2 w9 {! ^
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
2 }' c2 H5 O4 {1 u SuperscriptBox[5 H. ?: C) f2 L* f, ~
RowBox[{"(",
+ u% t2 R; o$ g2 A5 s RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
" w. { U3 q9 G; q; h! u SuperscriptBox[3 Q. ~& [ }6 N: P
RowBox[{"(", - A. ]% w6 [, h& p+ D' w
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
. f" @/ W: l% C0 }% m/ s SuperscriptBox[) n4 g1 m5 J1 m0 n0 K- u
RowBox[{"(",
: i7 E& P& ^& R" u: G$ ?* H9 T RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
: B: w3 w; _( n. I, K: R8 R SuperscriptBox[5 I1 v7 u" j4 N+ ^8 ~/ q
RowBox[{"(", ! d, Z1 U" m* x8 b4 R
RowBox[{
( \: I" k) X3 `. I Z RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
- ~- }1 T- p# D) [( @" \3 a "-", 8 {) h9 M/ d' g) e3 z+ W
RowBox[{"0.03345934908892623`", " ", 0 d; r" \0 l# o7 k, v; B6 Q
SuperscriptBox["\[ExponentialE]",
' h& B9 H! p" F RowBox[{"3.141592653589793`", " ", 6 A- T( ^7 b) g+ G# F% y
RowBox[{"(", Z. {7 J& z U; H8 y: V& W( f
RowBox[{
& ^5 L! Q0 o- L. o2 W RowBox[{"-",
; R k X) [! B; I SuperscriptBox[2 E" \. n; _! B$ ^3 \. A$ z" p
RowBox[{"(", 9 O0 h1 m- X' i6 o# G5 {/ e5 z, _
RowBox[{9 B7 ~# c* J1 U
RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
1 w. X/ c( N1 y$ j2 W SuperscriptBox[6 {1 z" o: ?1 N7 x
RowBox[{"(", ( Z; |8 k% S/ \$ _- F
RowBox[{6 Q" I3 {: ^6 M$ B9 @; X( {
RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
" z% V6 Y' `' N3 _ SuperscriptBox[, l! T" N( O7 Z4 \" V% q( b4 r6 Y9 i5 p
RowBox[{"(", 0 `5 g8 Y; k0 k; C& [: w
RowBox[{1 x$ M0 ~; \2 D$ n0 n5 O
RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", ) p' l- L) s6 ]' \
SuperscriptBox[- K% j4 |$ b; g* R$ E1 i7 W3 L
RowBox[{"(",
/ h4 R8 W- c% ^2 q# V RowBox[{
# L* ?3 C+ T$ d- K5 e3 A8 H RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", : Y5 ~" G/ i' d- j/ x
SuperscriptBox[- ?+ T2 B& e( f+ a( d
RowBox[{"(",
% [$ |3 L, v- k7 b+ K( P RowBox[{6 A9 E9 q1 u: M3 j4 L
RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-", 9 D9 N" q+ e. @' F6 T% \: v
SuperscriptBox[
3 r9 \. i2 p) F4 S0 j; a4 X RowBox[{"(", , @: D. V: T H/ k! {3 u' r: ~( C- ?
RowBox[{* G9 G4 Y: u& T3 f" s
RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
& ~, M; f' v% u$ s SuperscriptBox[5 `4 |$ B: d/ r9 p
RowBox[{"(", & ]+ k' ^- V, E1 H
RowBox[{
* ^; S: e* Q9 k4 z4 e RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", ' ^( A( {9 O5 ]9 \' b$ h0 C7 Q
SuperscriptBox[
: t2 J) ^, d* m3 G RowBox[{"(", : R& P! v: r; n& f8 d
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
/ N; B2 k2 W E, P( m SuperscriptBox[" ?% I# ] b. P( U H5 n
RowBox[{"(", 1 x J0 n T; N
RowBox[{9 O% L* o, }3 o2 N+ b) w- \9 v5 i
RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], / u0 e% g' W% U. I/ A% E
"+",
* S5 [# N: I; z; K6 Y( P, }$ N RowBox[{"0.3961180670900672`", " ",
. z3 g0 P0 X' e, E SuperscriptBox["\[ExponentialE]",
; g4 x& c |3 V- h: u" T RowBox[{"3.141592653589793`", " ", 6 q& A7 h/ S7 m* y& U5 K! A) G
RowBox[{"(", ' P7 ~" D2 T/ @) F5 @" Y
RowBox[{: Z- o' h8 u* @+ N
RowBox[{"-",
9 X0 U' N: B) ^2 m* h% [ SuperscriptBox[* ^* v k# t, F! S6 {' a* b
RowBox[{"(", 2 B2 Y/ {# u$ ]- o2 |; z# H. n7 r
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", 4 _) R. ~- f* u4 R
SuperscriptBox[1 b: t# A4 @$ }! [& ?/ u
RowBox[{"(", * o) y7 i7 t' \% y% i6 R4 {& d. {8 ]
RowBox[{
5 ^! H s' H' n RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", " f( Z' i( w( |
SuperscriptBox[
+ D4 m, Z% p% a3 ~5 J" R& f RowBox[{"(",
' t. s9 M8 [2 I) K/ M! n RowBox[{
! V7 _8 o6 d% p* C+ C RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", ) ~# l( m' C9 D2 a) ^
SuperscriptBox[1 k# v) X9 `$ s0 }! G
RowBox[{"(",
1 u3 B( c) @$ E RowBox[{
6 w! v. w& e1 t; V+ ^( ^( b RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
$ G# U7 o4 D" m SuperscriptBox[) }2 [9 q- P |( q8 Z5 E8 j
RowBox[{"(",
$ \; A; F: c. V( f RowBox[{' X1 h, D1 b; l
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
7 ?% d, D" b0 ^ SuperscriptBox[
" t2 f2 R( z* ^+ y. H RowBox[{"(", * q5 n$ @4 v; V) o
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
% E7 w5 `+ l5 M* F$ X0 O- m% j SuperscriptBox[
) g- S3 b F9 r2 [ RowBox[{"(",
( u- G- F1 \8 K6 h7 L/ Y6 `$ K1 T RowBox[{
7 P% U6 l& ^; k; H$ L% ? RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
; P7 J# }# D- F- G B7 y8 w SuperscriptBox[
, q7 F8 C3 |( }9 z! R7 r3 d% M7 ~ RowBox[{"(", 5 O2 h- t6 `' n
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", & Y1 C7 g3 O) d9 q
SuperscriptBox[
& Y6 `+ E. l# P0 | RowBox[{"(",
$ Y' m( y# f" R0 r$ D% T RowBox[{
) i2 S6 s7 } T) i" q% } RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
" a9 M7 |3 r+ c" Q% |7 l. ^ "-",
$ U$ ^/ \0 p) [" R7 K0 N RowBox[{"0.1999688587779198`", " ", 0 a; C2 R4 q% {3 Q+ Z- v; l) A9 g
SuperscriptBox["\[ExponentialE]", * d' J. G! I; B2 f
RowBox[{"3.141592653589793`", " ", 0 v5 W, ?8 i6 I) u
RowBox[{"(",
2 r' l: M3 {: W RowBox[{
: }; V2 A7 z+ r/ [/ i; f RowBox[{"-",
! s) l1 H; A- r, ^ SuperscriptBox[
6 F7 e, B, d5 D# F+ | RowBox[{"(", ) r6 B" |) [. j: v4 w+ t: S
RowBox[{, X% g L* C5 S! J6 i) L. }
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", ( l+ c* Z4 e, h! Y5 T5 g: D
SuperscriptBox[) t. G! K4 ~3 G! t; g, B' c+ b
RowBox[{"(",
" ]) u' n; f* i( } RowBox[{
) G0 C$ ^2 }$ A( V. N8 T E4 ] RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
; @, t3 L1 L3 o9 Z SuperscriptBox[
' U; K2 d( @! P& K$ ^) l) h* Y# c! c RowBox[{"(", ?) a5 l. r7 k5 b A5 b! k% c q
RowBox[{* @: N, s+ {6 A7 W, u8 [' c
RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
( B" |" V' _4 f8 \( Y SuperscriptBox[
) S+ C& M- B+ Z1 V# O RowBox[{"(", / X3 Z$ `" @: h
RowBox[{1 x8 h* E2 l/ L/ z3 N1 I- {3 z
RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", ) h! z( Q4 P" H/ F
SuperscriptBox[
- f- B0 V1 ]: t% a- D/ h RowBox[{"(",
& ]3 z5 Q* W7 I: @ RowBox[{
, Y- k5 K' x" _4 d) c e RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
& S. d- { x6 Z, p. W SuperscriptBox[
- f: I$ h: ^- ], w RowBox[{"(",
/ q2 d D% o$ `4 l) N+ r RowBox[{
( Q# y* k3 y- B6 v RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
, W$ |0 U/ s! N1 B& j SuperscriptBox[
# {3 B9 O7 T, W RowBox[{"(", 8 U7 a2 v1 E5 V, E
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 8 x6 \( R! e* k: T1 @3 t, T- ?
SuperscriptBox[
3 \, O) {, l: `9 g# u4 S RowBox[{"(", 1 v5 E0 x8 B# r: t6 u" `3 ?
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 3 z9 _- N+ K/ G3 @" b* R
SuperscriptBox[
3 J6 M# f3 T. p9 b2 E RowBox[{"(",
, [* e5 v$ B* S% j6 x. \9 `! I1 i RowBox[{; {2 `6 ]% C; B! U# h4 v
RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
" q+ K4 Z$ Q, k; e "+",
* l8 {) T% x7 n+ t. Q8 L" } RowBox[{"0.23580523388620733`", " ",
' y7 v( \' A. J+ C' H. F SuperscriptBox["\[ExponentialE]", ' J( p5 x' O; |3 \7 K# w
RowBox[{"3.141592653589793`", " ", 8 B/ t% H( ^+ b+ C
RowBox[{"(", ' p- t1 R$ P" t( h
RowBox[{
; ]" w5 d2 s) c- J) @5 `) N RowBox[{"-",
# G+ e9 Q3 o, u" D. M% n# y SuperscriptBox[0 r: C* M+ `0 |* i+ ]
RowBox[{"(", + `/ F/ G/ }: @. c7 W( u6 P7 u( h
RowBox[{
4 V; M. G! y3 i" H RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", : k3 R w8 d: {+ L+ |" O! ~
SuperscriptBox[
% a+ P- I# `' ^0 l5 j RowBox[{"(", 8 ~8 ^4 O3 K# c4 b/ j
RowBox[{' e4 R& f% W0 N' G* Y, z4 }: j
RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
( h- [7 K( V. _" F8 @ Z; U; K, | SuperscriptBox[
3 i# r2 w( w) A6 D) {; q& T/ u' o RowBox[{"(", 6 {) V9 _3 g k" l5 G9 C9 O+ `
RowBox[{
' R) C9 S3 g" ^* e1 h& Z RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", , ]8 _* ~5 b- H! O/ r
SuperscriptBox[1 x* s; Z2 _! x, T5 |1 H% S
RowBox[{"(",
) j- b# ^6 c( E" N2 v1 t0 L RowBox[{9 A( _& B' P0 I( a* A
RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", * x p7 _4 ~+ K5 I: I
SuperscriptBox[
0 ^8 _: b# e9 m. S; v& m& J+ H* d RowBox[{"(",
6 l) k9 W! c4 k) I0 y. `, I3 n RowBox[{0 C/ B! l6 L3 Y. b' a4 z
RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
2 d d1 G) ?) z! y. p/ r7 P SuperscriptBox[8 D4 F6 P& ^, X
RowBox[{"(",
2 D) Z" L) n6 A) f RowBox[{8 _) {) C0 U+ b" ]
RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", * U" K$ n( u' [) R
SuperscriptBox[
$ R4 {& X$ w& n RowBox[{"(", , Q4 _! Y# W. B3 }6 A# D; Z
RowBox[{/ y' X0 q4 h+ T8 I
RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", , D+ O1 p$ W9 a i- |& ], R
SuperscriptBox[9 D/ A* G& x0 H+ w# _1 n; [8 Z3 H
RowBox[{"(",
% u$ i% r# Q! n9 ~# h! q7 w RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
0 v; D: l6 Y4 Z, a SuperscriptBox[! T" m. k0 `5 _* h6 u0 J7 m
RowBox[{"(",
7 T+ f2 r7 [* o5 X& k RowBox[{
2 U4 f; {1 s7 ~9 | j9 s RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 8 A6 h g5 a4 M# F5 W% b6 l
"+", r8 L e' W4 L2 O) ^) Z9 ~: u
RowBox[{"0.6670272593678526`", " ",
0 ^5 _ q* N9 w ^ } SuperscriptBox["\[ExponentialE]", # v) G0 i4 A. \8 j7 O7 W
RowBox[{"3.141592653589793`", " ",
3 U) [: o" F2 n4 T* e5 z RowBox[{"(",
" @- ] _0 R, c5 A& c RowBox[{
' |+ s% A L7 Q* l! |: L: S RowBox[{"-",
( u) x: y" S5 c5 v: d: D SuperscriptBox[1 }" u- r$ M+ }; ~0 ^
RowBox[{"(",
' r( b6 ]' F3 r) U$ {9 v. _/ W RowBox[{& p4 G: ?& T e
RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
$ D2 X" O1 T: p! S5 L SuperscriptBox[* c6 Y( b0 Q/ b7 o2 _: f
RowBox[{"(", ' a$ g, F3 h' Y2 J F# ?
RowBox[{& G% z5 q5 F! O8 Z
RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-", * V; w! G5 b$ r. i
SuperscriptBox[
% N5 C' S% w6 x9 X4 n2 }( y1 D+ K RowBox[{"(",
! U( g; z, ?8 w& Z! g. N- C RowBox[{
$ c {: n8 x. ~ RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", 8 M* J/ }$ d; K& d3 Z5 U2 _1 G0 ?
SuperscriptBox[6 f0 |4 l: S- J9 d+ [4 y9 b2 [
RowBox[{"(", , f. B! r1 s0 A3 m: b0 j5 h
RowBox[{+ b2 [, b! f$ u
RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", * e& x0 O$ L1 q8 r! b/ \2 x
SuperscriptBox[
: Z* Y/ q) o& H; H RowBox[{"(",
" A8 K9 a6 E# F; @# X RowBox[{
) x6 i/ S6 }% j9 p0 R RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", % J# ^4 ~* ]" A3 F) K/ B1 W4 _
SuperscriptBox[
5 k* m$ m6 o8 A/ d/ Y: _ RowBox[{"(",
G& k: a" n! C |+ X, h" { RowBox[{' \* D5 }. |! F+ g! J# j& [$ p
RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
4 A0 S$ J, t! v" o( r SuperscriptBox[: s3 y' w6 [- d$ D6 y% D
RowBox[{"(",
" m, G3 g2 O& z! N \ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
8 I6 I5 Q. K6 [3 b5 V) Y SuperscriptBox[
2 F6 n3 ?4 t8 n; Q: } RowBox[{"(", * |9 g" `- |- r) w P" c9 S
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
; U$ q. L- y& m5 F SuperscriptBox[
, S _+ O2 V+ b% x RowBox[{"(",
) f) K7 d+ n/ p RowBox[{( u" H2 `: E% V( N/ n
RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
9 I% U: i, L* R9 A "+",
: V3 t8 }) g2 I. s RowBox[{"0.25282438852646905`", " ", % m2 i% n1 O# o8 p
SuperscriptBox["\[ExponentialE]",
8 }% B% C5 A. p! R RowBox[{"3.141592653589793`", " ",
$ D; E1 K# q, c. m8 H* a; D% X$ e RowBox[{"(",
7 ^ {7 L/ m; ]' W; N2 w( x% f RowBox[{
8 o$ x7 V% A {! o4 Q RowBox[{"-", ; q# O x. x: n4 t0 _3 }' I
SuperscriptBox[8 M6 H# n, d' u2 [8 k2 O/ i8 _
RowBox[{"(",
! D- c& d" E& ?. Y2 ~- U RowBox[{
. c, S" x* g. T& Z" l2 o* W5 N RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
) h- I/ e- ^; L. L SuperscriptBox[1 [( b+ Z6 o \9 b+ j
RowBox[{"(", 3 B& v" W5 U: o% U7 x. j |6 c
RowBox[{) ~; i$ @" _3 X# {9 J+ c
RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
7 Z) b: G# ^2 _. X5 v" @ SuperscriptBox[
1 ]3 ~; ?2 X1 I6 |4 T RowBox[{"(", 7 A: q( A. w- ~' G$ T
RowBox[{5 B4 \; R- M+ e& M
RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
: J8 e" p, Y6 N: p5 l8 e4 F* C SuperscriptBox[
2 c+ q2 _6 j( T RowBox[{"(", $ D e( N2 Z4 [2 M# q* q8 b2 P& t
RowBox[{- q% `+ d0 Q g- Y
RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
* n! r, b$ n/ s6 w- }& L; B# J0 y& S SuperscriptBox[
7 q& v& |. A; g8 P: Q RowBox[{"(",
" P5 p k9 D+ q W( L9 [' n RowBox[{9 _" e; R8 |- {' R; A
RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
& W# Q2 e* Y; [! A: o) i- ^ SuperscriptBox[
: L/ I: C5 l! _3 G' R: @$ ?% `- s. q. T RowBox[{"(", * F4 z" ?0 W% j
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
( I; w& V% k. ?% C2 N' }9 Q: Z SuperscriptBox[7 n2 _" s- I+ K, \. u- y: c) h' S
RowBox[{"(",
, c3 _/ J0 }4 B' c/ a0 y I RowBox[{
1 N. [' { {0 Y! [) a RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 9 B8 W* q, O' h- `* u+ [& j
SuperscriptBox[
' F e/ a' r& L2 v" Y. o4 W RowBox[{"(",
! Z, s! h P3 g) i5 B& h RowBox[{# `1 C- i( W$ [( ]+ M
RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
1 J* u8 N0 q1 f. V% o3 [ SuperscriptBox[
0 U- Z- x2 y/ N5 O9 c RowBox[{"(", 7 @5 d3 W' b" r- w0 Q8 [. ~' K6 l6 j
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
/ h& @" a8 W5 \4 B* y ")"}]}]]}], "-",
$ t0 s5 L9 B9 e; f7 @) x2 i" l7 P RowBox[{"0.07581214474544527`", " ",
+ b& r3 C5 J/ j& _1 g SuperscriptBox["\[ExponentialE]",
- i9 Z, h* C: e" x V9 v RowBox[{"3.141592653589793`", " ", # l0 ~' U$ M8 F2 @
RowBox[{"(",
# I- h9 [# V) F7 C {( |4 p RowBox[{
/ m S: R1 m% } RowBox[{"-",
: L+ \! m4 P9 B* d SuperscriptBox[
% N7 g0 D4 y; r7 n' j RowBox[{"(",
1 Z; x: P3 g3 T' {" z RowBox[{+ ] e) y5 _0 H5 X E
RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
4 w- Y3 t! [( i( m$ J! [ SuperscriptBox[4 w. }) C1 R) a; W, z
RowBox[{"(", 9 P# P" r$ F% _) _0 L
RowBox[{1 |+ q4 ~& e3 P# G* U! u/ Q5 C
RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
7 t/ A! j/ u/ k# q: U% l SuperscriptBox[' U& q7 V0 B9 ?* O1 r7 R* F
RowBox[{"(",
) x/ L0 q$ Y) Y& L A9 X RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", 7 n' G; e* J: }4 D1 x2 g! N8 i# m
SuperscriptBox[
/ Q! G7 @4 _. z RowBox[{"(", % H! b: O/ w5 i8 a
RowBox[{
) s- m7 O* r6 g, m) j) [ RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
m- ?3 {1 n. K SuperscriptBox[. c2 ?1 R7 _- z6 I( X$ A ]+ b0 u
RowBox[{"(", " y* c& F" V# t, x+ m
RowBox[{8 C8 w2 s: y; {% w6 {" S3 F
RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", : }$ {$ |1 L+ F. H
SuperscriptBox[. R( O* I. l" s
RowBox[{"(", ' a% [6 x, X& N4 w
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
- U5 y) a, M/ m0 w! e SuperscriptBox[5 I- ]% p: k& d
RowBox[{"(", $ X& ?' Y: A" Y* J4 a: @6 Q' `
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 9 T$ e O" h5 ~$ Y1 @- P
SuperscriptBox[
* W" {( f; o% D; r! W2 }' @ RowBox[{"(",
" E* P( b J. Y2 t" c* b! G. |& t% Y RowBox[{
8 Z' t2 ?# }4 y$ [* J$ t. f0 N RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
3 o! U/ p% a3 }9 l I- ~# b SuperscriptBox[
1 P) F' ?/ q8 |6 l5 G RowBox[{"(",
& [ \2 D% E, h% o" B RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
1 `: h: P2 z. l* Z ")"}]}]]}], "-",
% g8 n* H4 \/ A+ U! s RowBox[{"0.10599338351843157`", " ",
" S/ R- f* u5 ?; n1 I SuperscriptBox["\[ExponentialE]", . s3 l3 Z- V. G; R, a% `0 p
RowBox[{"3.141592653589793`", " ", $ O( Q) U/ C0 j8 S
RowBox[{"(", 0 Z9 i3 h: Y! R1 o5 y
RowBox[{9 f' k& Q& i+ |1 J
RowBox[{"-",
7 E; L6 _( b& {3 p9 c SuperscriptBox[
: R- I4 U+ C: T8 \2 z7 ^ RowBox[{"(",
8 q* Z. {( a8 e& Y" U2 h RowBox[{ S; R% j1 b- U, j. X. P% h
RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", [7 S D6 J3 s8 A9 o+ ^
SuperscriptBox[ _- H* @9 ~3 j
RowBox[{"(", 1 X* e; T* C0 U4 N6 m S/ n: @
RowBox[{
B% x& M# Y! c& O- I& Z RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", 1 W* E; q. m0 ^6 e
SuperscriptBox[
& O/ S& f1 |8 o8 u RowBox[{"(",
& C7 i$ p2 d6 n% @ RowBox[{
- | d9 W T$ E6 k9 g& F RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", ! ~. O/ f0 o1 y! H% X" u
SuperscriptBox[- w7 e# M9 `' ^
RowBox[{"(",
8 G. a$ U2 N7 h# L. ~$ g8 l& ` RowBox[{
3 j# G1 l9 w" Z1 U RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
- k! W; x+ j# m/ N# S+ s5 h0 p3 u5 M' D SuperscriptBox[$ v# a6 L, R. h2 E, } n$ \
RowBox[{"(", , ~' y: }$ s3 b) p4 n: Z% T
RowBox[{) {2 \4 N9 o0 y( ^) k
RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-", ( N [3 T* m( ]3 x- O
SuperscriptBox[
9 K! s( N8 y) j% G" f" S RowBox[{"(",
6 v- x$ `4 N7 } RowBox[{
Q2 ]0 H; _2 s, ] RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
, \1 H5 H& C; V2 D3 a) G/ c SuperscriptBox[) g2 N- d) [* V' R) E
RowBox[{"(",
: \" \5 o @; u9 {* h$ S+ s5 v RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
6 A; \( \" K: J1 a2 w SuperscriptBox[
, G7 ?$ b# x6 E7 B! g3 h RowBox[{"(", % i/ y0 F; }" `4 b8 C
RowBox[{. B0 K" t: _, @2 @
RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
, a. Z3 {+ R8 {: ~4 z9 @. t SuperscriptBox[
) B7 g p2 V2 Z! X RowBox[{"(",
. t" ~% d, R) ^7 c; c& M* [% M RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], # [* [ `) X t4 S3 B8 X D
")"}]}]]}], "+",
; {# [; ?; b9 T9 R RowBox[{"0.500820838606441`", " ", : [8 f- b/ l: e, h
SuperscriptBox["\[ExponentialE]", ) z) K) y$ W- m& p `$ o
RowBox[{"3.141592653589793`", " ", " f+ n8 L* z( t1 h" H1 G; O0 [
RowBox[{"(", . p" _% a2 m. C1 O5 M
RowBox[{
1 Z. R, m& t2 i( |4 m RowBox[{"-", 9 Y0 n; Z {: r8 F& u
SuperscriptBox[
# ^/ X- N' e2 E+ d& Q+ Z1 y' l& [ RowBox[{"(", : ^2 v' N1 y( E$ {% d
RowBox[{
1 G* U! V. m. i* h! ^! v* S RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
3 z& d4 h, `" M/ K! _ SuperscriptBox[) Y& ~, m: a+ [* W# S
RowBox[{"(",
5 J- t% s& L, B* W RowBox[{6 x# N6 E+ x& ?& U. g
RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
3 t @- L; i# @0 Q, ?- y SuperscriptBox[" F! j& t1 e) V2 l' @2 Z( B* k3 m
RowBox[{"(",
5 y9 T/ C& e; Y# I5 ]% |3 Z: J& z RowBox[{
5 u2 q0 n7 v& i( O! f1 U: y RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
& d6 `5 h7 M$ z0 O) j3 v SuperscriptBox[
+ J8 e/ q" f& j( ~7 E0 c RowBox[{"(", 6 Y* @0 p* E2 E0 |# A( ]% n
RowBox[{
2 A5 Y' z: e1 a! V. b5 j# _' D5 c RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
0 Y f( z, J; [% J SuperscriptBox[/ o5 T) g! g" ^/ X
RowBox[{"(",
Y( D$ O% ~, d- @* c RowBox[{# D- L" v/ R/ z& `7 X
RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
+ H- R2 k! h: T0 h1 w SuperscriptBox[3 d6 H' G* d' N6 W. `# Q3 a
RowBox[{"(", , J1 k2 b4 U4 `
RowBox[{# {: G2 B% g& K& q2 r+ L
RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
- `" W7 e) j5 s: y2 Y! T( A8 K @: |! D SuperscriptBox[# l6 E$ s) |+ S5 r2 K- ^% W' r0 B
RowBox[{"(",
, I; Y$ Z# l' _9 W" L0 T RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
4 |6 ?0 L. q5 B" ~ i SuperscriptBox[
" n# ?2 b& w: k3 e& _7 d: y RowBox[{"(", 0 f/ ^" W S2 c* i4 g
RowBox[{3 z& \+ P/ J8 ?5 S8 r4 W. l
RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
7 G7 W+ l8 W) n6 o; F SuperscriptBox[( Z! B- K( U4 [3 z4 j
RowBox[{"(", & d% f, p- G3 _2 q# Z* F' F' R1 [
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
9 Q$ ^! @" j. I& {" p' j2 Y+ } ")"}]}]]}], "+",
# O1 i3 E/ N2 s. a' ~4 s RowBox[{"0.32564305572552416`", " ", : H/ h1 S9 c% o, o
SuperscriptBox["\[ExponentialE]",
* y" l4 W, [1 _/ M) D RowBox[{"3.141592653589793`", " ", 8 z6 }3 t! U, M* p' `* N8 }
RowBox[{"(",
: y$ c3 t% t7 m! H2 t5 m- h' v RowBox[{
q: b- |. j, C7 Z6 }5 c. ^, [2 f RowBox[{"-",
7 Q/ h+ l) P* H SuperscriptBox[# b3 N$ ^- _( T/ N! T- W
RowBox[{"(", * F- [) Z. [. c5 L
RowBox[{
( ?8 ^. H, S1 D- Q RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", - D% |9 I3 y$ c* H
SuperscriptBox[
' O! [/ R# ` W' t3 |( v RowBox[{"(",
5 P# T W: t! }9 N! c- T RowBox[{
/ r* N1 _8 U' d( f4 z( E5 h RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", : b4 a# w9 d1 v% W, b m
SuperscriptBox[
9 W: H" y' ]1 o RowBox[{"(", ' w( S" o( J: n* K+ _( j) D6 @ \# Q
RowBox[{+ L) Q' q$ H0 U; L+ h% x3 ]
RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", . S$ @" \* |* \7 D' C
SuperscriptBox[
1 H6 s' X. o- c RowBox[{"(",
# j7 |6 A- j% H0 \ RowBox[{/ `6 x- K2 ~% e0 e
RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", " ?5 F9 N% Y) W8 F7 G
SuperscriptBox[9 D3 ]+ r' c+ h6 G! u# K: ]6 |9 r/ i" }' w
RowBox[{"(", 8 t+ ~ D( g* n- H3 B a
RowBox[{
3 G% y( M3 u& S( D RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-", z% H l. R/ P; n7 \5 B
SuperscriptBox[
5 ~1 K" }8 o! r$ v9 k RowBox[{"(",
" e& I, L$ D- D. p# Z RowBox[{9 @7 N0 f0 Y9 S8 k' Z( M
RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", " u6 C P t0 u" H2 {6 g) W
SuperscriptBox[4 v( n$ u1 R9 j# D0 F, |' H
RowBox[{"(",
0 J9 |0 t# L1 Z# ]: R) H8 B4 Q RowBox[{" M- V- c; _, v* E) i0 ~ z
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", ; L" n! T( j$ J( }0 D
SuperscriptBox[
6 G% B x6 M# T' \/ @ RowBox[{"(", # I! V; H( |" l0 m- h. N" E1 i) t/ M
RowBox[{4 o6 M5 S8 }' Z2 ~
RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
& ~5 l- d0 L4 V/ b SuperscriptBox[5 }6 W( X8 X" J
RowBox[{"(", 9 e8 `+ f! x* J+ z0 r
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], % x9 H+ @8 R/ `$ ]
")"}]}]]}], "+", . G; K6 n, |) N" M/ l) E* Z
RowBox[{"0.6665374509702799`", " ",
6 @# M4 M' f3 {' Q9 K1 g SuperscriptBox["\[ExponentialE]",
6 |% B8 ~. R- a; D% w2 Q7 A8 X RowBox[{"3.141592653589793`", " ",
2 T) `$ z! r) v, e4 T6 z RowBox[{"(",
+ J, P, A Z! ?* X0 ` RowBox[{* h1 J. A! ]* o3 F: g4 F
RowBox[{"-",
. O0 f; m! A% u& ]3 g SuperscriptBox[1 ~6 V4 ~, W- r7 v$ n
RowBox[{"(",
, @" l3 V2 \, x8 J$ E* ?) ` RowBox[{8 F4 o* E7 L# Z" e7 m% b5 M4 Z
RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
* }- D8 G" B3 _ SuperscriptBox[* ?. L( y1 U4 ?8 P2 D
RowBox[{"(", 8 Q! j- N. S4 \3 H
RowBox[{6 B% ?( i3 g# a" H4 e
RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
3 y( y" k+ C% ^% n! B2 T2 j; b SuperscriptBox[2 O2 C! L+ e: ^0 |/ _4 ~9 L8 c
RowBox[{"(",
7 S0 `7 a3 M1 M' J# L; L Q RowBox[{
# z4 R, G" p$ I$ g" N. M1 W& N RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
9 W' R6 H& O" l) { SuperscriptBox[
9 T: L& j1 i3 ~+ h: `+ q RowBox[{"(", 2 c7 I! K8 }& N# O, R
RowBox[{* y- C. I# e, V. ~/ G0 |; g8 t* q
RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
% s* @" L" \: z6 n1 m+ [9 C0 y SuperscriptBox[% M7 j$ G! d4 Z; F9 n( F) i
RowBox[{"(", 0 @' W- [- s8 M* G
RowBox[{
. k3 g" {% n9 \. ^ RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", 2 z4 M3 R2 i- F5 u' }9 v
SuperscriptBox[8 s: o; Y# ~; t# ^6 L9 V( V) o
RowBox[{"(",
4 c$ K# o2 T2 u: z L. f+ l" Q% J RowBox[{4 Y) I% } m2 q) ] P
RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", 7 S. i; W. B: K, t! k
SuperscriptBox[) I8 d: y/ S% }/ P/ \
RowBox[{"(", 7 L8 k1 F( d/ C
RowBox[{
7 g7 g* O7 K4 {$ X7 |+ `; J RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", 1 {+ f3 x2 u1 U% B" X5 Z& `4 k- W
SuperscriptBox[) Y0 p v* b4 A
RowBox[{"(", : ?% r: T% m6 z3 i) }
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", + [2 D- g, |3 A* J5 M' m& J# V7 r
SuperscriptBox[7 q; P$ n' z6 A9 i" \# \8 Q
RowBox[{"(",
7 A) x; A5 @4 N, n6 P RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
7 Y- x- ]* W2 y$ D, K- f ")"}]}]]}], "+", $ A+ l/ W% M8 ]# I6 ?* B& x- q
RowBox[{"0.4812237524557292`", " ",
, v; X# Y! [% Z' E4 W SuperscriptBox["\[ExponentialE]",
: M' }+ _8 C8 |4 } RowBox[{"3.141592653589793`", " ",
& e$ t6 k8 p- Y6 G9 W6 f- y( t RowBox[{"(", / W7 M' r. }7 N# w* N! c& t
RowBox[{
+ D2 d4 h% h( |" m RowBox[{"-",
. w1 I, e. ^: S; Q3 S; t" u5 h SuperscriptBox[
1 ?8 d3 m# \! ^- { RowBox[{"(",
2 x8 Q% S/ N- N, f3 n( T RowBox[{6 r* |% z' K0 h+ Y U
RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
$ M6 U( T1 R4 ]0 v9 q SuperscriptBox[: V* R' Q) Q% z1 A2 j K. u' X
RowBox[{"(",
+ ]2 S0 X$ G, i0 K Y RowBox[{
, W `' R9 C, } RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", . Z" }; e8 j( ~, a. [3 [4 J
SuperscriptBox[
3 K* ~9 H7 k5 L5 b RowBox[{"(", $ b" b0 e" q* @5 |' d: Q P9 u& ?0 m% c
RowBox[{! u( k" o1 c3 r
RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", & X5 F0 W$ E9 X: e2 N# X
SuperscriptBox[& z1 h6 u7 ?; C4 ]
RowBox[{"(", 8 N4 d. o& i; S# w+ `: f
RowBox[{) r# o* H% `* r' }/ z5 V$ T
RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-", + d- R8 G6 R4 {# _
SuperscriptBox[! A; s4 D D7 r
RowBox[{"(",
X% P* A: @" T5 _ RowBox[{
. m; D1 b! |, {% F' P2 N, } RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", + q9 |) H+ F% }4 o. q& n
SuperscriptBox[
( N5 l" Z0 x8 g% ~) ^ RowBox[{"(", " ^: ]2 [2 S) Z
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
' j# R1 L5 h8 b$ I3 N SuperscriptBox[
' y2 R; K' | m RowBox[{"(", ; y2 r- d/ \! \9 n
RowBox[{ H% H# h. `+ w5 q0 q1 f7 ]
RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", - @ ^) ~5 N# i4 k3 s L
SuperscriptBox[
) \# X& o+ J: v x4 M6 i RowBox[{"(",
0 y- {$ C& y' W+ r2 u/ V) H! @ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
% }! D- _6 e% F, n) W SuperscriptBox[0 e% r$ D# V2 c' p# q
RowBox[{"(",
" h9 `* U* j3 r# Z- B* j& p. u RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 8 a8 f+ c0 E/ q/ r
")"}]}]]}], "-",
# w3 S) R+ e) m, Y/ |; ^, d) F RowBox[{"0.17602467625404622`", " ",
8 e8 y) T! V# u5 A* ^ SuperscriptBox["\[ExponentialE]",
8 t) U: M* _: U" E# ^7 ~( `* o i9 G RowBox[{"3.141592653589793`", " ",
3 O" w0 z) U1 {8 r! E0 Q3 m/ J: }8 O RowBox[{"(", ; o i6 r/ a! b
RowBox[{% t& z; [) z& v" V. J! O& b
RowBox[{"-", 5 q* G& k k5 [. `3 ?( H+ `( I
SuperscriptBox[
, G+ n0 L& x" f: b RowBox[{"(",
7 N! t" M4 x5 _3 g2 G; H8 e0 L$ S RowBox[{: L3 G( N6 U* ]! P1 ~, {& V8 o
RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
$ H* J) u, ^5 s' J8 f SuperscriptBox[. c/ z. e# u( [' {
RowBox[{"(",
, Z0 O% M6 B, `- p RowBox[{
" P, Y( n" K( A" ` RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
. Z! o4 d; I! w0 d! H SuperscriptBox[$ G0 [1 ]8 ~! A# }0 j) i& e
RowBox[{"(", 9 V: M; k- _& I4 ^
RowBox[{
' U: @$ ^6 B( ]4 m RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
' B# @( x5 P( V; S/ _/ L SuperscriptBox[7 X! ~/ ~0 x3 d% j- p }+ H
RowBox[{"(",
7 F4 c3 U- R1 U( S( b- ] RowBox[{
. p o- F5 _! M2 u% I; b# N, Q RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
1 B1 X1 F+ @; h5 {. c& V& h9 O SuperscriptBox[
, K" k/ P! S" H$ \& n1 d RowBox[{"(", . _9 \" j# U# v& t
RowBox[{; [$ y' H) h( o. ~6 @- t# b
RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", $ y6 s7 K: o7 `: v# Z3 I8 ]
SuperscriptBox[
/ ?) ~' h) m2 y4 x3 v0 x" j RowBox[{"(",
" D/ n# |4 X/ J& f8 K) V& d RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
3 h# `5 a+ H- i* ^. l SuperscriptBox[
0 k- R" T. T- H+ g RowBox[{"(", : f, ~) b) @( d- n* n) k6 Q0 G( y! m
RowBox[{4 X$ ~% B$ D( w) ]* h3 h# E1 I
RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", 2 U* z/ h+ n* C. S
SuperscriptBox[
1 K7 \% M! o3 D& p L, u RowBox[{"(",
4 s! ?# K# ?5 l6 v RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", . j$ z$ ]5 |, N- C; v+ v+ @# }/ a5 N
SuperscriptBox[8 z! I# `) L# P0 K/ _4 C$ L
RowBox[{"(",
0 {6 m8 B( O' K6 U RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
0 t$ ?6 k F% g! E6 `& } ")"}]}]]}], "-", Z7 @* }% K! W
RowBox[{"0.5945873894818967`", " ",
: A" ]# E4 r2 C* L SuperscriptBox["\[ExponentialE]", : W3 G5 j" Q% g
RowBox[{"3.141592653589793`", " ",
( p2 a1 z, y0 J; \! n* B8 f RowBox[{"(",
" V' W$ [1 _1 Q8 P" K2 o RowBox[{
& l; x6 Q! F9 i RowBox[{"-", ; c* B/ }$ R- o. \% o
SuperscriptBox[
/ ~0 s D( I( ] H( D* E! z6 }; c RowBox[{"(", 5 O6 A1 d2 U, b: k. ?8 q
RowBox[{
& b9 r( a Y4 b, `! d5 g RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
1 `$ `& P5 D4 l- a. E% @ SuperscriptBox[
3 ?4 U# t0 |$ D0 k* v RowBox[{"(",
# } q" t. ]# \* y+ s5 Y4 ^ RowBox[{
0 |9 b* J7 z/ G# l4 _( G5 m8 i6 G5 P5 O RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-", , w0 _ }7 f: L; D2 v: f3 B% B
SuperscriptBox[
. s1 P, [, H1 E! | RowBox[{"(", $ r0 D, @+ o$ N2 z& F. [
RowBox[{
" x* X% [1 i0 _' g7 M RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
' _% ^/ D# @' ]; b6 d( z* Q2 N SuperscriptBox[
: @7 q$ i0 A4 k. q RowBox[{"(", ' L S/ B1 M& e
RowBox[{
& p- q; [5 ~0 W6 @' R% r" l. F RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
% g5 L, ~; m: J6 C; j0 R2 y Y, E SuperscriptBox[$ f! ~0 J2 l' K- i0 F/ p2 N
RowBox[{"(", # X7 i$ R5 A& U, v0 R0 {$ s
RowBox[{
0 D( c# v) l$ Y RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-", 6 F" Z. ]$ K$ \1 V* n+ o7 O+ b
SuperscriptBox[
0 h# m# X3 T5 Y5 K RowBox[{"(", 8 [/ D; @% E1 q% d+ U4 q+ f x% r
RowBox[{, s1 ]( r' {7 M/ p) A: X
RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
7 S& ^- r+ C$ A6 G+ M SuperscriptBox[
9 ^; h2 g# F" A" C8 c, r2 a3 ]8 g RowBox[{"(", * K! v; R) p1 ]) e
RowBox[{
! s7 ~! F+ T8 A$ o M RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", 4 z- {% R* M5 [5 ~0 x0 _
SuperscriptBox[
2 x! U- r% T2 ?/ j7 D RowBox[{"(",
6 w/ V/ r5 r% q$ y* | RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 4 t, T9 B5 K. t; _ ]
SuperscriptBox[7 F5 R0 i w1 e
RowBox[{"(", ) A8 A, w F) w4 m4 f
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 7 p7 R; ^ c" {
")"}]}]]}], "+", 2 k% ]# c1 l, h3 P4 I. V
RowBox[{"0.5252475961933538`", " ", ' K2 F) ]7 d/ Q/ k+ v
SuperscriptBox["\[ExponentialE]",
% T" T2 l& Y0 E' m RowBox[{"3.141592653589793`", " ",
+ c+ b5 z. f6 B/ U! a' G RowBox[{"(",
( n/ V+ W9 R: }$ j5 l RowBox[{9 c' t: h6 X: g9 o, V% Y: _
RowBox[{"-",
/ E& f! V; z% \/ }( l4 [" A SuperscriptBox[
$ `4 {4 f/ R$ a1 R9 _% f" r }' ~8 E RowBox[{"(", ; x8 v+ _: l# v& p4 A2 A' ], C
RowBox[{+ `$ U. f* l5 b) h7 }0 K( `' N) b/ P3 |
RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
. t& L1 l/ E) ?: F2 g SuperscriptBox[8 \8 Z0 t* ~; N* A3 K, [
RowBox[{"(",
3 Y7 n4 U( G9 P0 _ RowBox[{4 A1 W, X! y# n
RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
* r, I4 ^' P& l" s# D# k SuperscriptBox[
7 O" p0 c; M0 H# U- J* v" W: B1 m7 d' b RowBox[{"(",
$ n& j4 i2 H, u% j RowBox[{
2 y& n& L5 J* g& x. U RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", , u2 X; p: p% R! i1 I: {
SuperscriptBox[
( u1 x2 H9 Z, x4 U5 C RowBox[{"(",
2 L2 t# K; N/ ` RowBox[{1 f# S! J+ V2 ^0 D3 R* [7 }
RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
3 _: C/ g; P. B( c1 _ SuperscriptBox[: {0 R s' G( c+ n" }
RowBox[{"(",
- e; c9 {- p5 V! N' O! h( p4 }6 S RowBox[{
* {6 ]2 B/ ?9 u& P1 T% X RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
7 L; S' l G7 k3 r) q3 k% v SuperscriptBox[7 a/ d8 ?8 U# ^6 `3 {1 H0 I4 U
RowBox[{"(", " L& C6 X* P9 P4 h1 h! T7 ^
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
7 e2 k+ _ G: Y: Y5 M ]) ] SuperscriptBox[
7 {) _4 F8 Q$ q+ s6 w RowBox[{"(",
. A/ x! @5 L. h' h3 B3 Z RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
2 Y% |% D* [2 Z# c! A SuperscriptBox[
- |* o3 V; [( v. o$ {& X1 j i RowBox[{"(", 1 i) a6 U2 c( I5 s
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
* I# ^/ c" r y& N SuperscriptBox[, k' }7 R' a* X7 O- X8 B1 [8 ^
RowBox[{"(", 6 J& ~1 |* w! T9 A' ?& {
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
4 Z( e) K4 V% }8 H ")"}]}]]}], "-", 1 X& T" V, q* _8 n8 P6 @
RowBox[{"0.320472847796449`", " ", ! }; I! Z( f9 I2 z
SuperscriptBox["\[ExponentialE]", $ r# \; G8 W+ w5 {6 M4 D; @+ X
RowBox[{"3.141592653589793`", " ",
0 V8 {" p( f G& p RowBox[{"(", B7 w/ }- Q' ?; g2 v$ V9 S* o
RowBox[{0 x9 m( [' S* ^9 N8 ?5 _6 b
RowBox[{"-",
o" I7 @7 e" E5 z SuperscriptBox[
3 o4 h/ `( j/ Q. d RowBox[{"(",
+ V( B* {3 N( t; f0 \ RowBox[{4 b: q" M3 h( \0 f3 E' w
RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 b$ b$ h m* Z" W; H
SuperscriptBox[
5 I- X7 F% R9 v2 n8 ~/ m& f2 } RowBox[{"(", ( d6 |& w; ?: G- X' k8 M) r0 `0 g
RowBox[{
" k0 v: |+ M Z- P( a RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
3 ?( E) ^7 R; L( n' U SuperscriptBox[
/ e2 }* Q5 b, H1 m RowBox[{"(", - R2 i _- p1 m
RowBox[{
_( J$ u) N9 x4 J p' c2 ]5 t RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", ( q1 r9 ~- S& \5 |" Y. m/ \
SuperscriptBox[
. w) I8 p {$ B4 v RowBox[{"(",
) L& l6 G- J4 _. q5 E4 I2 g- ~ RowBox[{
4 q) T% ]0 p# K, f) } RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", 0 D: z! z. q' \
SuperscriptBox[
6 m: s4 \* o+ s& {' n7 ^- w" U RowBox[{"(", & L! E- n/ o: ]& n
RowBox[{/ [. b: _& U5 C$ |" p8 z8 [
RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
# @& d* _- a. ] SuperscriptBox[
: Z0 I/ P( z4 I. a x5 b2 S% ? RowBox[{"(",
0 _( J( v; i5 p+ V RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", " S' C$ K" T4 H3 I
SuperscriptBox[
" g' m* v! d& K* r* s8 x4 ` RowBox[{"(",
! X( {" a1 @# N( ` RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
: `" x1 B# | f/ } SuperscriptBox[
4 w& ~! U# P9 ~$ S( c! a RowBox[{"(",
& A- G- }1 P! W {! y RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
3 c. T' w$ v, b: p SuperscriptBox[
4 \5 A% j2 |4 W B3 d% ~+ o# L RowBox[{"(", 5 k' e1 D/ M( [
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
/ z& _% g. L" @* S5 f4 g$ w ")"}]}]]}], "+",
5 [3 K8 B" x4 V( @" @ RowBox[{"0.7528674241482847`", " ", - n+ b; b% e0 @9 _6 }
SuperscriptBox["\[ExponentialE]", $ l7 m' L4 B8 c8 u- n
RowBox[{"3.141592653589793`", " ",
& V1 X0 z% Y3 o! E7 B0 i' c s( S: l RowBox[{"(", $ X3 ?3 {# ^4 u q" e9 U# J/ c
RowBox[{
7 @( n) G- Q% G! G1 I( B5 a5 X RowBox[{"-",
& L4 S' D6 _; ~+ j, L3 U SuperscriptBox[2 k$ G0 A" V/ H* W6 \7 a7 f/ ~
RowBox[{"(",
. l9 ~8 w' |& e RowBox[{: H& ?( t3 [, ^7 m1 A. |7 y
RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
' _8 w& ~4 V, g3 Q% ] SuperscriptBox[# A1 u9 C8 Q* f9 ^# f* x
RowBox[{"(",
1 ]3 p' \$ w6 H3 o" e. s/ x/ k RowBox[{
9 M% Z1 J& Z& |9 T8 G0 u* M/ | RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
: v+ b. R9 U$ k SuperscriptBox[6 |! g7 O( ]( p5 ^+ e2 A
RowBox[{"(",
8 X+ J9 j7 u% ^/ N% F# Y RowBox[{; V% G8 X0 {' L) F3 y
RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
! Y( J6 ~6 w; G8 O9 ] SuperscriptBox[
) G6 K8 v8 l( m7 M6 U$ P RowBox[{"(", 0 M' q0 L. A4 u% L6 c
RowBox[{
( {; K5 g4 E- d# @) I) ^9 Z1 M RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", : z t4 U3 j s; U R
SuperscriptBox[
% Z1 G3 f8 W7 x9 J. }+ r; ?8 c RowBox[{"(", 4 k$ I9 `7 L) e) }" @9 ?& m8 v
RowBox[{
' M; o/ g$ x: C! @7 m$ q p RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
+ j% z1 u3 ]" X# l SuperscriptBox[4 o; B- V v; u8 G7 E2 t5 Z
RowBox[{"(",
" _* L& g3 W8 X2 a6 x# @# H RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", & d- z8 Y- t$ q, e0 d: [
SuperscriptBox[- D$ c" G, o+ A% S0 ]
RowBox[{"(", 0 a+ R8 l! ^% g$ k) c
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
' l2 d& {2 M0 L9 Z% c: D1 S SuperscriptBox[
6 a, y4 M" A' m& A2 b# N! j RowBox[{"(", 7 D1 z, C6 q7 o3 [
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
$ [. R0 q! t3 \% A D- R1 ] SuperscriptBox[! |4 B% M; U- K
RowBox[{"(",
7 }8 u& ~7 U0 c2 I; ]# a' G* z RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
& M7 b P' t/ f7 h ")"}]}]]}], "+", ?; n* D5 _; m& K8 k
RowBox[{"0.02759193650965952`", " ",
8 }2 W7 @! ?, l) X SuperscriptBox["\[ExponentialE]",
# e3 k3 q. h: R( b RowBox[{"3.141592653589793`", " ", : j$ f2 S3 S) f8 t% l" x, c
RowBox[{"(", ; n# q+ n1 o/ @9 Q1 p4 l
RowBox[{" v) H, s3 q: I1 f; Q
RowBox[{"-", 0 d5 d* V: I* |- G% D- z
SuperscriptBox[4 J e7 z: C! n# r+ j& o
RowBox[{"(",
3 a5 c4 p& N* r RowBox[{: M' B+ `/ u* u9 H
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
6 @3 w8 S$ q. a/ S, E SuperscriptBox[
5 C C- S' I+ f9 @( D- R RowBox[{"(",
# {9 Y1 F3 h+ b5 |. X RowBox[{
- ] e! ?1 w. ^5 {5 P( e0 i RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
9 [1 [3 H3 V5 R! k) J* c SuperscriptBox[
% c9 a9 z, Z" Z8 E RowBox[{"(", ! ~# }9 Z, ?: T$ Q
RowBox[{
: k i+ Z. m$ M6 P" f$ v RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
6 i$ G9 i" K+ |, x [4 m0 Q SuperscriptBox[
2 B1 |. b7 y0 G$ W. i! L4 |5 g% { RowBox[{"(", : l% X2 u. \, e5 k
RowBox[{
q8 O9 U* o+ H' g5 b" w! t RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
, a* m3 }6 T% |7 q2 @2 O SuperscriptBox[1 B. c0 E/ Y" F6 p: ]
RowBox[{"(", - k4 K1 B, `; p; ?
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", ) c. v3 m! C% N4 N4 t1 `" E9 p
SuperscriptBox[
6 W- f8 o: ~7 a1 m& s* s4 { RowBox[{"(", ! S$ P, _( A1 P, L1 a* W3 u9 [
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
2 P; e8 g$ O$ O3 l2 j; @ SuperscriptBox[1 G J8 G2 M b m; I
RowBox[{"(",
- f T" S K; ^' M- x" W RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", " K! L* |: @" T7 Q
SuperscriptBox[
: u! p7 L& ^: C a% _1 t RowBox[{"(", 7 G& J/ @2 ~5 S) T- U/ s4 E# d* }0 F
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", : }: c2 N; _; p+ H" Q+ a
SuperscriptBox[
* ~) K( A1 Q, ~0 \7 F2 A @9 K RowBox[{"(", ! c# h3 h* ~/ _7 Z) y
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ) k7 h1 R( h& M
")"}]}]]}]}]], "Output",+ A- b5 E: T9 \3 |# J, E
CellChangeTimes->{3.577924759875*^9, 3.577924921203125*^9,
! h _2 _( i% ?+ d1 F; ^. u6 e5 J 3.57795759203079*^9, 3.5779589554964056`*^9, 3.5779621253913965`*^9, * z- A/ J" t# d; J6 Y
3.5780123515625*^9}]: k" W2 P4 u |2 Q( C9 i' g2 L+ w2 y) M
}, Open ]],* e% M* g3 q9 Q8 _ n& g
, [5 @. ^) @# O& n' p- v: v
Cell[CellGroupData[{
* r8 ~: W3 f5 C9 o8 e# @7 q ]/ }6 S4 q1 A i' D
Cell[BoxData[
& t; X# a7 b6 [ RowBox[{"y1fit", "=",
# |& C: } ]! F5 V. F$ k RowBox[{"Table", "[",
+ X$ N- @3 f' u$ j9 s# z3 D/ w RowBox[{"x", ",",
) [ ~+ ~: ~& [% U, K RowBox[{"{",
% z0 ] c9 U6 B% P( r5 [" n; W5 C RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
1 @# E. s. {/ `# i- U' V1 G9 q0 v CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {
. a5 M% A5 \ \" g% b7 x/ R" f7 d/ O, w 3.5779252768125*^9, 3.577925277484375*^9}}],! s" q& ]" D; F- _( y' q- Q
1 Z y3 t C) z9 e3 ?7 O
Cell[BoxData[$ N& W/ V7 E9 W
RowBox[{"{", + J& N4 R' M/ |! |! j& C
RowBox[{# ?: n# N- O! k& x% ]" S; {# ], K- K" C
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 7 w6 `5 o5 y' G" S" j
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",3 X5 k# T7 U7 L0 `! q" f; H
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", ' k0 i; Z: f+ W; e: x
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", " E0 C1 U N, a" e! D! q
",", "29"}], "}"}]], "Output",6 J, i) N% {$ V) y+ y
CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9,
# f& A+ s* n" n8 c% k6 K( o! | 3.577957594916795*^9, 3.5779589579612093`*^9, 3.5779621294942036`*^9, ; g- v: U9 h$ J0 e
3.57801235340625*^9}]% |( Z& `2 M% [2 u) @# ^
}, Open ]],& x5 U/ L D2 M4 }& o+ j5 V
7 `) o& U5 i* j% o% G DCell[BoxData[
2 e" U3 i+ ~* d- a; m5 P/ o RowBox[{"For", "[",
9 d9 I5 f& V" }1 G3 A# z RowBox[{. d8 l. M, q$ y- j1 l# M
RowBox[{"i", "=", "61"}], ",",
8 }7 [1 j [. m! D/ g+ y RowBox[{"i", "\[LessEqual]", "89"}], ",", : l3 o: r% @' ?4 Y1 i
RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", / ~+ {8 S& Z; A- q4 n/ A
RowBox[{; x e1 T+ {) q/ ^ H
RowBox[{- p: F9 z% [8 p2 \4 `
RowBox[{"y1fit", "[", . r+ T, K3 B4 L0 E m; r9 q
RowBox[{"[", ; }" T8 P& F& |8 ~/ |0 @' u
RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
* a* ]7 ], n' U3 B2 @. f. p4 E3 b* L RowBox[{"y1", "/.", ' @: ]; h) a$ d/ n; i# p
RowBox[{"{", 9 W1 _6 r- l2 U
RowBox[{
$ U+ i! o" ]2 |3 V RowBox[{"x1", "->", ) Z/ x7 r% c! P' X: \
RowBox[{"Data", "[",
! h M- I+ J' o" r RowBox[{"[",
7 H2 _2 z! K* B7 K1 O8 l RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
7 F. U& ], w0 E* F RowBox[{"x2", "->", P; w3 e3 n7 ~5 y$ s3 f; z( ]
RowBox[{"Data", "[", ! R2 k) T u( f3 p& Q/ ?
RowBox[{"[", 5 R9 x7 L) L+ B; @
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
- b6 |* @ O( S' u& J; P1 j" u6 ] RowBox[{"x3", "->",
4 E6 g) u, W+ C( R- w. l/ B. S RowBox[{"Data", "[", ) W$ J5 ^+ r# g/ f
RowBox[{"[", 6 M! \& ^2 i2 a9 l u
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 6 ~+ j E) J# v' e& ?( o' n& W' ~# g
RowBox[{"x4", "->", * A1 k) ]9 ^; I/ O: Y9 ^: [
RowBox[{"Data", "[", ; |: X Q$ l9 ` ]3 b
RowBox[{"[",
4 \8 e+ E' ~: a$ ~- e; W% E! I RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
?4 J9 n# J7 e3 J$ p9 j$ v RowBox[{"x5", "->", 0 g% @4 L* P7 o- |9 d8 J2 C
RowBox[{"Data", "[", & R; j* c |. u: s8 T6 o6 p
RowBox[{"[",
3 f, c3 z5 b$ L RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
0 F j2 v9 v( b; s. Y% J RowBox[{"x6", "->",
6 x; O) T* ~4 H. f! [ RowBox[{"Data", "[", , J2 U9 }7 K$ _
RowBox[{"[",
' p' t# E$ f/ W! a7 Z8 c) J; G RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 2 F7 p' A3 |# [9 a: M8 ?% q
RowBox[{"x7", "->",
* B8 `/ O9 f1 j! u RowBox[{"Data", "[",
) R) l {) ^) s9 l5 g% e H% [8 T RowBox[{"[",
+ m& V9 C! E0 P RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
- e. ^6 w8 p# W y) E RowBox[{"x8", "->", 8 O. ]/ N5 F+ R* o' k7 p
RowBox[{"Data", "[",
! N% l$ ] w* F, [5 |7 n0 s/ U v RowBox[{"[",
" ^2 U; y: k! W1 R RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 1 t8 }$ r6 H) x( J# [
RowBox[{"x9", "->", 1 A" A) G8 n) u
RowBox[{"Data", "[", - ~3 D7 d9 O" ~& e5 }/ o& B, x2 T5 k
RowBox[{"[",
: _- R+ W& q7 o* b7 | RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}],
* w4 |8 N+ k' t/ ? "\[IndentingNewLine]", "]"}]], "Input",
- J4 Q$ z! g# Q! X, K4 E! Q/ h CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {
* I+ M, ~; B2 E2 a" N2 S 3.577925286140625*^9, 3.577925306765625*^9}, {3.577958922517948*^9, & y C% k+ ?/ w0 `2 Q+ R
3.577958922549148*^9}}],
& ?! ?. \* s3 y% ?* L5 w5 X1 q; X2 _& P! o" K& y) T S" a
Cell[CellGroupData[{( C5 {7 m& i% W& ]+ h
7 _9 ]# ^( A' TCell[BoxData["y1fit"], "Input",4 E1 E% r/ C/ U5 {
CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {
: c8 h8 S( {+ y* C 3.577925040484375*^9, 3.5779250440625*^9}}],
# `1 P8 g6 A6 [2 a4 p
. x8 P% w" Y4 `( S2 l( C; O( a% fCell[BoxData[$ } a. s' N6 c& B2 ?
RowBox[{"{",
9 c, \! n, x8 n9 O) w RowBox[{: D, A$ `4 m& z/ ?' V
"0.43193416525930517`", ",", "0.4501634853493982`", ",",
( Q/ w. Y. P& N2 _: U "0.33336034768525247`", ",", "0.4418609896858925`", ",", ; V7 z; Y& v+ T1 S
"0.41030378932283024`", ",", "0.516814798191575`", ",", 4 m0 M& b$ A) t& e, F$ O# P
"0.4476631213729994`", ",", "0.3016552978696669`", ",",
2 g& d5 p E* L1 ? "0.378122167437847`", ",", "0.020339844919720733`", ",", 8 f3 u6 t( B; x2 e4 r& A
"0.018745375782087376`", ",", "0.2919925992695025`", ",", + l' @1 P# l3 z0 R0 p1 `
"0.2649067959681263`", ",", "0.16343444284525593`", ",",
7 k; f* X' ?3 [+ |) ]/ b" D "0.4182466778551563`", ",", "0.27347752211364934`", ",",
5 S) y* {9 B/ h. t# \ "0.38554057386385654`", ",", "0.35253160453718047`", ",",
" }( H. D% `) P! N/ `7 | "0.2054745841100774`", ",", "0.45504377112716676`", ",", . {2 e. P$ R6 W1 G: F: v" U
"0.1598805094678612`", ",", "0.18662509982279485`", ",", % {/ n# Q( @' i7 e
"0.10684797493248213`", ",", "0.013349212673286828`", ",", , z3 j$ X9 B) t- M; X2 a
"0.08215836003004297`", ",", "0.2979041599362813`", ",",
~! M% H/ d0 J8 A S# M "0.05995976512343641`", ",", "0.3884793499104568`", ",",
9 |8 p; J4 _/ \. q "0.5361889337034293`"}], "}"}]], "Output",, h+ G5 h/ m: z/ U% t/ x
CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9,
1 `- o% ~9 W7 b+ j, r; k 3.577925312375*^9, 3.5779575978808002`*^9, 3.5779589654960227`*^9, & m( J; S1 l4 s
3.5779621416934247`*^9, 3.578012355546875*^9}]
4 N. c+ Y1 o3 R7 V* B Y. k}, Open ]],
% R5 x" N; `- {- p9 r7 P# J
% P2 y, y+ ~4 H) o+ cCell[CellGroupData[{. G2 c$ F6 l5 ^3 t5 \
9 X) _/ w: _ }
Cell[BoxData[) l* U" _- ?9 |' r* j
RowBox[{"y1fit", "=", ; H/ b, a2 l0 l2 P
RowBox[{"{", 2 \" |+ r* u9 U* F! |* F1 N
RowBox[{$ E5 t* Q8 {' y1 f$ e
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
& f6 c2 m2 Z; ?0 T/ g ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
4 a. {# X! T1 D' f6 C( c- U# V "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", $ n: Y6 t* @% F8 Y
",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", % v* Y8 {- z, l% w1 ~4 z) H) v
"28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", : e2 n) a6 [: \9 [
",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", 1 J# g5 ?9 F9 R: z. j: e- v
"41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
8 A2 u( _- D* l0 ` ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
3 y% x# S, _' n3 K6 S+ L9 H) Q "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
! F9 B2 C- O8 @3 b& k "0.4319341652593058", ",", "0.4319341652593058`", ",", W: A* @, C$ u7 _
"0.45016348534939865`", ",", "0.3333603476852527`", ",",
) j+ X# s. N9 O2 O "0.44186098968589294`", ",", "0.41030378932283074`", ",",
+ `3 |. x Z$ m7 } "0.5168147981915754`", ",", "0.4476631213729997`", ",",
9 Q7 [+ s8 l. X: [ "0.30165529786966755`", ",", "0.3781221674378473`", ",", 6 q9 C& B U/ E! }3 }
"0.020339844919720775`", ",", "0.018745375782087393`", ",",
. y% o; |3 _* {: u "0.2919925992695026`", ",", "0.26490679596812655`", ",",
* z8 i" Y( y) t" T, f "0.16343444284525593`", ",", "0.4182466778551567`", ",", ! v, W" Q5 m2 S1 u+ @
"0.27347752211364945`", ",", "0.385540573863857`", ",",
7 f k) t& D; l$ x "0.3525316045371807`", ",", "0.20547458411007796`", ",",
* j3 d2 f- n$ [! l }" \: E "0.4550437711271672`", ",", "0.1598805094678611`", ",", ( W3 w4 Q) ~( P8 S9 k
"0.18662509982279502`", ",", "0.10684797493248224`", ",",
5 h) I2 D3 X* B y "0.013349212673286806`", ",", "0.08215836003004302`", ",", 3 D1 @: R% D' ?7 s
"0.2979041599362817`", ",", "0.05995976512343637`", ",", # H4 A7 O& j, }- r# f1 w
"0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]}]], "Input",
+ a2 F3 `3 L1 X; S CellChangeTimes->{{3.577959701349306*^9, 3.5779597161381316`*^9}, {7 z6 a: E/ [8 g- |
3.5779621548286476`*^9, 3.5779621618642597`*^9}}],+ b6 e1 L$ ]* V. i" `" z
5 U. m5 W0 z$ K) p* q
Cell[BoxData[
) W- u; M, @% v RowBox[{"{",
/ S. b2 i4 y; A+ @) O" [0 M" w, S+ W [ RowBox[{
3 [: a* t: n0 t "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
1 b0 D- ^7 R- \# @# L ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
$ K: D2 ~4 | P& a1 ` ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 8 Z) V( X: v8 V: o8 j3 E! ^( d
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ! ^: \/ ?* Z1 E* `
",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", ' g% T# |6 m3 C, x9 _5 U2 ?$ i- w9 m4 U
"35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 0 [0 ]7 N) {3 J7 f* L0 S
",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
2 I. }6 T t) d+ n2 T "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", ; x/ Y" N' @3 E* x; J
",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
( H, u& G/ P" q" r "0.4319341652593058`", ",", "0.4319341652593058`", ",",
L3 S: G" H8 _$ Y1 K7 H8 x" k& [9 M "0.45016348534939865`", ",", "0.3333603476852527`", ",", 8 J7 M/ X% r5 p2 h" h2 y, b
"0.44186098968589294`", ",", "0.41030378932283074`", ",", . H; X% ^- J+ s& \) v7 h
"0.5168147981915754`", ",", "0.4476631213729997`", ",",
, c' l+ I6 L2 x. C4 x "0.30165529786966755`", ",", "0.3781221674378473`", ",",
$ x9 q6 k2 E7 |" o8 j "0.020339844919720775`", ",", "0.018745375782087393`", ",",
/ G4 @1 G, Z+ l7 } "0.2919925992695026`", ",", "0.26490679596812655`", ",",
2 M: S$ I8 w, v- a. e- { "0.16343444284525593`", ",", "0.4182466778551567`", ",",
. y0 z4 N& Q+ T& J& L "0.27347752211364945`", ",", "0.385540573863857`", ",", + o" r3 }6 P2 R* p5 a; X% Z2 w, |
"0.3525316045371807`", ",", "0.20547458411007796`", ",", - Y5 u' j2 G6 c6 R
"0.4550437711271672`", ",", "0.1598805094678611`", ",",
& O/ z3 s9 l: H2 x; i: a "0.18662509982279502`", ",", "0.10684797493248224`", ",", 4 Q: T' P5 L- ]0 |
"0.013349212673286806`", ",", "0.08215836003004302`", ",", + V! n2 ~7 `2 c" z# l5 ]
"0.2979041599362817`", ",", "0.05995976512343637`", ",", 6 I4 h1 ]1 F7 |( Z+ y# _. K# p
"0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]], "Output",
) ~; \/ O' }5 w7 D# h8 r- a9 A$ h CellChangeTimes->{3.5779597200381384`*^9, 3.5779621650778656`*^9, 0 ~2 b! v* O/ o3 _2 P; b
3.5780123569375*^9}]
2 Z4 _3 a6 y, s* u. a# {}, Open ]],3 I0 R" Q! B4 b1 V! i; n
0 L3 o: ]/ z9 w
Cell[CellGroupData[{
/ N: U4 q" F: y9 E2 U0 v; p. B2 |
Cell[BoxData[
/ Q: j8 q( Q: a: r4 u RowBox[{"y10", "=",
1 X5 M* @1 z7 a* k4 r RowBox[{"Table", "[", ' a; d- S8 q3 b, E* A
RowBox[{"x", ",", # p: `, }$ N- e y9 {# l
RowBox[{"{", & Z# v# X! M [9 h3 k; ?
RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",. U" R) O* m: {0 o) U, k6 v( z
CellChangeTimes->{3.5779253628125*^9}],, r+ c2 B* a$ e3 p0 D
/ X# {7 `* D: ~( G. ]2 rCell[BoxData[7 D. X9 v' R0 N
RowBox[{"{",
5 A8 |, O# } ^6 F: R: D RowBox[{3 `1 P: h7 R9 n
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
, y5 U0 Y. \1 N! \1 H6 W ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
4 F$ d% I, X2 d2 i. [7 [ ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", y9 y8 F+ _, O" `' j
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
/ }$ F m2 ~* Z ",", "29"}], "}"}]], "Output",
8 V/ E+ Q' Z% C3 I! I1 B, k) Q CellChangeTimes->{3.57792536553125*^9, 3.577957599565603*^9,
+ B' W$ Z9 B# c! o/ r 3.577958967383626*^9, 3.5779621678858705`*^9, 3.578012358609375*^9}]: F2 [: d+ m9 x2 Q3 X# a
}, Open ]],1 T8 ?- H; ~. i% z
: T! q1 @, p! t% q, Y# e
Cell[BoxData[
6 d- e9 w* @/ ^* X RowBox[{"For", "[", ; i; L( U, Y8 K
RowBox[{
7 r$ J: g6 Z$ V' _6 X RowBox[{"i", "=", "61"}], ",", ; s$ o7 _8 c* U6 o# @$ V
RowBox[{"i", "\[LessEqual]", "89"}], ",", , F ^5 k; ~5 o. m' J
RowBox[{"i", "++"}], ",",
' u. s/ l: s) w3 e" K7 F- _6 ~/ c! @: c RowBox[{5 |* u5 H% w/ |. j6 M8 k
RowBox[{"y10", "[", 9 J1 H6 F1 ?2 w# | b% M
RowBox[{"[", 2 Z% G& Y! Z1 r! g' ?# ~
RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", 1 j$ ` a9 V% N/ s
RowBox[{"Data", "[", + O$ i7 t: A& o( |+ d6 f5 w
RowBox[{"[",
y7 }: y8 J) Z% t3 p$ [ RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",4 T* W! v. _0 b: N( D. }& h+ K
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {5 v1 E2 S- y: C
3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
" b' N# ?$ h/ h1 B7 ] 3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9},
' {8 ?1 `" |; `6 h 3.577958922549148*^9}],
) a& @- k( ?! u$ Q5 u$ U- j0 M$ }- _/ F% H
Cell[CellGroupData[{
' q3 r4 O- Q! Q) S4 S8 L6 Y \* J. Z
Cell[BoxData["y10"], "Input",0 I' C9 N, @# L: v
CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, { J; B- p" Y* X' E9 S0 g
3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}],
. }* T" k/ A+ b2 s* g: q b8 v* g
( `: ~- }8 ?- @; s; s/ ~Cell[BoxData[9 z: c( Q- @: ?
RowBox[{"{",
& u: I2 s+ Q/ M8 B4 W RowBox[{
, i5 p/ l5 i. H+ v$ k. C "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",",
Q# @4 v0 f) G0 _" o! ^" n1 J "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",", & L$ x. ~. M3 j" e
"0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
; u. ~& v C, i; [' f' u, v "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",", ! g, d) E2 H# F/ O
"0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
) v T' d% B; {7 }" r' O "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
! e' F6 y6 S& t$ N9 I1 x! I7 \ "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
0 Q; y3 F+ e' P1 n* n( ` "0.694935`"}], "}"}]], "Output",
" k2 g! J" Z1 X# Q" c" p CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9,
& l5 \3 u. D. Q 3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9, : C: ]; L/ F( R' }
3.5779621736734805`*^9, 3.57801236071875*^9}]
" ~6 | \: j1 d7 ?# H5 f6 E}, Open ]],
% B6 j( D; ~5 {4 S A/ Z- l; R& Y' \! W+ c
Cell[CellGroupData[{: V; [2 p. x1 v; _; z+ K- `1 b
8 ^& S+ s1 l* wCell[BoxData[
: d. v+ N2 b/ e. a `7 V RowBox[{"y10", "=",
: D0 L/ @7 l% {2 Z% o RowBox[{"{",
# L5 {: J. b; x. u9 e& s4 K RowBox[{
- h+ u. s& z7 T/ u& T" |% o# ~# h9 P4 z "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
% m" I& k# X# k7 r ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! {( A7 w" G7 [- Y
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", 6 J7 C% ?& f8 j7 [! p' [
",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", $ G1 ?0 C8 j0 c& n
"28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
1 Y1 k: f' q9 x" q3 I ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", # @$ ^% d' A& Z( F) x& F, ?
"41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", * D+ F& K* N8 b6 c& H
",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", \- H# A: C- Q. e& W
"54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", ' v9 o9 @6 p/ j5 @
"0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",",
: v4 [( u% K" L8 E8 Y6 b "0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",",
5 l0 k5 W( y2 k$ w' P "0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",",
% M5 R+ i+ X0 [. Y; j% ]. r "0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", % w9 ~5 p$ Y% y$ u3 _" C; E2 b/ I2 s
"0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",", : H7 ~- f4 G7 x8 r
"0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",",
' j- k* F5 F* h "0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",",
" u+ L+ ~( p4 [) P" W "0.390754`", ",", "0.694935`"}], "}"}]}]], "Input",
+ w4 r, ?" g/ M9 {$ _, B CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],+ Y6 d" e' s, _9 _
3 }# J- l3 r8 ?* V6 K1 |
Cell[BoxData[
6 a: P, V" K) f8 I9 a+ ^* o RowBox[{"{",
" B' v; ]( Q8 e# V' J6 b RowBox[{8 L' z' \9 Q0 k5 G
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", o( x, P2 D2 {
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
9 F! d/ T6 E7 W9 l7 D ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
/ i0 L- B% r3 T4 x' _7 s, W, | "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
2 M' _. ^. n# I# m ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
3 L9 S0 B9 H' _4 H "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
+ Q0 U; z$ L c8 { ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
8 {" Q9 B: s1 Q w7 \& v# p "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
1 w0 }& p% e5 p8 Y8 @! n9 ^& V' l ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`",
& }1 R$ @9 q) v6 O% ]9 K ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ) Z! }7 z8 E0 S- h
",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`",
$ O" Y# D& D, ]8 }0 S* _2 P2 K7 }) ~ ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",$ `+ Z; S2 u+ i W' r
"0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",", : f( A% b0 B! C' p/ v/ m9 o7 ?
"0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
; B- d; @! ]! ]8 V6 E, d( t "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
# R8 n6 W( T. s "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
0 G7 x6 x4 ?. `/ B) M) { "0.694935`"}], "}"}]], "Output",
. ^6 x- N# k2 Y* c1 C CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9, 0 {- s! x0 ?) |! z
3.578012361734375*^9}]
* T& M) e# H& ~* {4 j% i}, Open ]],
8 H( s* i0 i/ n! J0 j* x5 G* Z, z4 Y0 m: Y
Cell[CellGroupData[{9 z* H9 r! U. C# k4 m
$ A% z Q$ ~4 V( D, A7 YCell[BoxData[
7 M. K) d" J! | RowBox[{"p1a", "=",
4 L0 ?' P$ r' E- F& \% I RowBox[{"ListPlot", "[", % t, v* t4 M9 J, F
RowBox[{"y1fit", ",", , s& s) k5 |, @- f) E
RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", 2 X! a" _9 ~& o. V3 d
RowBox[{"PlotStyle", "\[Rule]", + n3 Q) g% N! }: m$ Z
RowBox[{"{",
x. \3 Y- [' j8 r+ u RowBox[{"RGBColor", "[",
1 ?3 Y, ~: B% v/ d" u6 y RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
5 Y! e- v+ N. p! X) J( i0 r8 C5 p RowBox[{"PlotRange", "\[Rule]",
+ `6 b" Q9 X) @! b9 @) ^$ @ RowBox[{"{",
+ c) Y1 z" Z1 @8 i p# T! w+ j( ~ RowBox[{: a+ o7 {' E* \& ]7 i
RowBox[{"{",
# ?% s6 R# S6 l6 i RowBox[{"61", ",", "89"}], "}"}], ",",
6 T7 ?+ p% |1 Q0 q9 O RowBox[{"{",
/ d9 E7 J+ |7 ~7 q0 y( ~ RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", ) G2 N. K; ~( x" \0 o: I
RowBox[{"AxesOrigin", "\[Rule]",
. }. _/ | Z/ _; ~' B E# g RowBox[{"{", ) D7 B u5 {1 J& z. H" @4 c. H1 M1 b
RowBox[{"61", ",", "0"}], "}"}]}], ",", / z( K5 d) q& i& x7 q( U M
RowBox[{"Frame", "\[Rule]", "True"}], ",", 6 Z7 u( _) T9 z
RowBox[{"FrameLabel", "\[Rule]", % j: ^ O4 C, Z* b- J- g5 ?
RowBox[{"{",
# X0 f) i- V5 V9 O RowBox[{4 b1 ?5 |# }% Q! I% S+ R
"\"\<\:7089\:6b21\>\"", ",", ! J3 Z9 g) B7 Q) [8 u# Q* ~
"\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
. r( _3 @8 e2 }9 e U1 p1 z( v2 g\:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",# }' |& X( s- J, o, B, l
CellChangeTimes->{1 ~! l0 V" W/ O4 X; Z
3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {; c# K0 e( v4 b2 v) v9 y
3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9, + a( Z; Y* x: y9 z0 ~8 P/ z
3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {1 P6 u. {& W& W, w
3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],. V; R2 a0 C& J7 K3 r9 T& A$ N
3 a% [! @0 }# X& WCell[BoxData[( s" @- k# k( C( t5 m) s* N+ H& R$ B
GraphicsBox[{{}, {},
* E5 ^" s K* g; \ {RGBColor[0, 0, 0], LineBox[CompressedData["
* n9 l! l) M3 @( B6 r( o9 o& [1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
' }( {" Q) N0 }% S% r, X8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
6 W0 @" t* o, R8 u B) p2 s- BD3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
/ ]% q) Z0 Z* L7 H7 J1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX2 d7 K; Q5 x9 ~
C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN p" U8 K! H/ _) o; R
a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
# Z9 b6 u; i- E) zyqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb9 W& B. `0 N- W" E+ Y& s% F
wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59" {5 ~" @: \) C+ ?) x
Y6nGQ3sAieueIw==, K0 L `6 T- J+ ^1 @
"]]}},
' d# ]) {, m( }: a* B AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],8 y, {: B; j4 X) K6 l! A- N$ a
Axes->True,3 \5 b% G, P1 J. w3 U
AxesOrigin->{61, 0},
+ D, ^; W8 x4 j- H6 T( k Frame->True,
7 I. j; M0 h2 @ FrameLabel->{' E6 v# J- E0 [
FormBox["\"\:7089\:6b21\"", TraditionalForm], / H& a2 n8 N1 A) c7 J
FormBox[( t5 ^0 m ]% v
"\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\' y9 F+ f2 s! D7 R- {
\:ff09\"", TraditionalForm]},+ n/ z: ?8 e1 K& X4 T6 i
PlotRange->{{61, 89}, {0, 1}},8 { f. u* l7 t O1 n
PlotRangeClipping->True,% d/ `6 d2 z9 p% e
PlotRangePadding->{Automatic, Automatic}]], "Output",9 ^% p# [$ ]1 Y7 S; u) `* c
CellChangeTimes->{7 w3 L: f& H4 A, y4 q9 C
3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9,
% L% R* h) O A' ^* t6 ? t1 R) t 3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9,
9 H% S- Q7 @! p2 R 3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9}, . j, ?0 U" U/ J" u# K; W
3.577962187510705*^9, 3.578012396921875*^9}]/ f9 u' k5 @0 g. E
}, Open ]],3 B5 g9 E; B( o5 _) T1 X
4 r0 n2 E3 N! W/ i3 UCell[CellGroupData[{" w0 ~/ V- C! ~" ?7 T1 ^3 U |
# c8 z) b+ x rCell[BoxData[
2 x* e( D# a) G( O RowBox[{"p1b", "=",
! D- [7 w$ G4 A' f1 _. Y RowBox[{"ListPlot", "[",
9 x2 z* E( |$ p! D1 D1 ? RowBox[{"y10", ",",
8 k! D# Z0 A* ^% j RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
6 {& B/ k' H/ s5 S! h. T RowBox[{"PlotStyle", "\[Rule]", 9 Y; k7 ~" T" W- E( W
RowBox[{"{", U' }. d# s* e: G
RowBox[{$ O& Y3 @: v; A; w8 U3 Q$ ~
RowBox[{"RGBColor", "[",
' U8 O$ M& r8 j x% |, e RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}], , B# p2 b5 ^+ d; ~) N+ J. ^* ?
",", + \& W7 l D: A
RowBox[{"PlotRange", "\[Rule]", 6 r. O' |3 t; ] j8 T& H( H) D" B
RowBox[{"{", & V9 M* x( @: b2 I2 @
RowBox[{8 W2 D/ n& P9 H. E `- Q+ T
RowBox[{"{", / i6 J1 l# w" n3 g) K. x, G3 I: R
RowBox[{"61", ",", "89"}], "}"}], ",",
1 `, U/ R3 }9 M, E, F- R RowBox[{"{",
$ r C4 W+ `( B9 I* y: r RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
2 G5 Y+ A3 v) }# _; s$ r RowBox[{"AxesOrigin", "\[Rule]", ; p9 s2 |5 n- E
RowBox[{"{",
: w& Q, p1 {6 ?5 F r% J RowBox[{"61", ",", "0"}], "}"}]}], ",", * f! p( U9 r( G. f2 d% \( r
RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
2 n7 ?' l" a+ t6 e) t, C CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9, ' w& Z3 ~) h! K( c+ ]
3.5779597764166365`*^9, 3.578012409265625*^9}],/ R0 c, R/ g: A9 w
8 U" e) \& g9 i R8 B* aCell[BoxData[
' U- h" r/ ~* _$ F# d0 g GraphicsBox[{{}, {},
7 M" E( P$ v& r- d. } {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData[", Z" T! G, b, ^
1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ3 o1 V+ Y2 `; C. q: N
/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
% I4 i) O ?& `9 ~: U' N! f+ @: q lGwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
+ ] z( H0 ~# [9 A# AGFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
/ U# E- ?, ]) H7 ?7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
8 ]+ C8 s' |+ N( BQu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri) C9 Y4 O3 j% R) O8 _
H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
* p3 w0 z( J3 L/ n. g: o+ j) D4 ?rQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
2 ?9 Z7 {' ~7 d6 SvA==
1 a! ~. h' u0 C& j "]]}},1 x& z6 j8 S) \! d! ^% t
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
3 F2 r) V. Z; ^0 t0 E$ n Axes->True,
/ ^& t, D5 T2 p" g2 q AxesOrigin->{61, 0}, ~' P. e" S% S8 l
Frame->True,2 `- `9 K# s: [2 z$ {& w
PlotRange->{{61, 89}, {0, 1}},
, d6 v: K2 g6 z; n6 @ PlotRangeClipping->True,; x: n8 E% ~5 }% m. w# ~
PlotRangePadding->{Automatic, Automatic}]], "Output",/ i0 w! Y. M0 `% a8 r
CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9, / P. n% d$ k, f6 _3 g; n" f
3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9, 5 k, \' e6 g* j3 {- y
3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]
0 ?/ T8 s, [# r5 g Y}, Open ]],
* Q; P8 }4 n; P0 z; @; a- n! y( M
Cell[CellGroupData[{# h) F' J! W; ?7 k8 N
; j- U0 _) ^0 Z. ]& `" QCell[BoxData[! O" u: h$ D: T- t% V* o4 ?9 o1 F
RowBox[{"Show", "[", 4 g9 q* ?6 @5 H9 I1 D# ~4 E* ^
RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],2 @$ p5 N+ x. U( W! v# @
~% I( P1 c, H( K" z
Cell[BoxData[0 X& O) ^5 W/ q, B3 H" D
GraphicsBox[{{{}, {},
8 Q! ?( I3 o* C5 S- Y- O' h0 j" q {RGBColor[0, 0, 0], LineBox[CompressedData["" S. t/ d d+ z5 V$ V8 @& q
1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn; d; Q6 M* b# [" J# u! P U
8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq; u' ]2 Z* U: }; a3 ~
D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B7 o4 Z- K( l9 R: Y
1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX* k% i3 d, n$ e D1 ?4 h( |
C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN! N8 I' e5 M. v
a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff X$ k0 Y/ q( V, ?
yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb! ~; M5 q& W, S, m- }" z8 Y/ v, v/ ~
wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
. G$ w( G6 g5 s1 PY6nGQ3sAieueIw==
& @( t* T J( L "]]}}, {{}, {}, P- X0 F1 f+ |5 J: q
{RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
* H# `' s! y5 K' [9 y1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
8 H s+ X* r% @8 g( |! S/ f/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy9 e7 K' [. z1 N4 W! S! K- q& H
GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
0 j% v; U6 E8 j( p5 @GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy- ]% d5 ?! o8 d9 D* T
7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/& Q( ?9 x7 E( P+ x
Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri1 g! E- Y3 t) H
H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV6 Q. m3 x; \0 M/ H( [
rQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
) Z, `( ^- y/ X$ JvA==
1 A2 O o1 }5 j+ |% x3 o "]]}}},
3 p4 S: u6 c b AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
; k" z7 e7 v9 e$ c Axes->True,
2 j0 f; \8 r9 g' p" N1 M) S AxesOrigin->{61, 0},: i6 S$ y: Z1 w. X( M$ s/ @
Frame->True,, G3 D) m+ O0 H( W4 S
FrameLabel->{2 w- T: p/ j! s, f* J0 B7 |
FormBox["\"\:7089\:6b21\"", TraditionalForm], % ~2 ?+ x6 q# V* l! N, ?
FormBox[
o. m9 N& |+ m. b "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\( S+ V- N* _' f- S) c9 P
\:ff09\"", TraditionalForm]},6 ]8 {! D& B8 y. {2 a' y1 x6 I
PlotRange->{{61, 89}, {0, 1}},
: S. l6 [% Y) P& v PlotRangeClipping->True,
7 f! q$ s! V- E, u: W9 S k PlotRangePadding->{Automatic, Automatic}]], "Output",
3 x8 o9 {0 q9 M" ]; h# W5 d6 E CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]
& u0 t& A5 Y9 K" n& Z0 Q2 b5 a}, Open ]],
I& m7 {3 S4 q7 m/ t3 D( A" i
, T# t" V6 v0 `8 SCell[BoxData["\:62df\:5408wi1"], "Input",
( \7 ?" t) I9 l3 h: m CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}, / a9 a: j. D# {9 Y9 Z) G1 s
3.577959662349238*^9}],
7 r( a5 V7 z' G) }( R; {
3 f: l( Y# h! a1 j) ?" z+ Z3 lCell[CellGroupData[{1 w; L- L8 e7 Q2 ]9 G3 ^& G) H
* v" l, k* r+ r& Q
Cell[BoxData[
/ ?3 w3 ` |1 g6 p4 b8 Q9 p RowBox[{"y1b", "=", O) v6 O: h/ K
RowBox[{"Table", "[", ( Y# e( O) Q! V& b
RowBox[{"x", ",",
" Q$ O$ t# Z- Z6 Q; p RowBox[{"{",
, k! h, J: C$ _/ b0 O+ o RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
$ @$ Q. H$ K/ o& i& o CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
7 m% ^9 z' L3 J6 n: ?: w 3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}],
1 H2 H6 f8 A: X/ T" c3 v% J
8 ]$ Q( S. K- ]: g0 N0 @( a7 ~Cell[BoxData[
$ l ~3 I3 r/ ~ RowBox[{"{", ; q$ j2 N% n2 b0 Y0 ?
RowBox[{# v R( Y8 E; V7 l2 N I$ \
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
! b7 I O) }3 X% I! t ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
" C' p) \9 r5 ?" i6 A" ]2 m4 i ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", / x" q: Q) a+ T% V
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
6 t( u& P" W* J3 L ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
# u+ C" l, m6 _! O7 l "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
" p, q1 p+ V. ?: X ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
0 m5 e6 \# K* ?% Q "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
5 G8 M4 v2 s2 w& O% B# Q. K2 X ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
* R* D' h' M% y& a' w "}"}]], "Output",
- G5 r9 p+ v3 H9 D: X2 K CellChangeTimes->{, P$ s! b- S8 i4 O; B+ a+ j
3.577922682296875*^9, {3.5779582291435394`*^9, 3.5779582351339493`*^9},
. c2 T8 W& N. k 3.577958478041973*^9, 3.577959010205701*^9, 3.5779622225483656`*^9,
6 s: I' z n7 W* B6 {+ p2 x 3.578012438953125*^9}]1 o( \3 v+ y- n
}, Open ]],
( j4 g* E P: U8 W9 p
3 \+ [9 N+ ]9 W* lCell[CellGroupData[{
% n3 O& n& x! M; a% k$ j% l% f* t2 z, M- B# r' |$ |% U
Cell[BoxData[
) v6 R8 f& w: z! i RowBox[{"Data", "[",
+ _9 x% J9 }1 g5 r RowBox[{"[", 4 i- R9 a7 `& {4 ]$ O- c
RowBox[{"3", ",", "11"}], "]"}], "]"}]], "Input",
2 y+ L: t, d2 P3 t& q CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
% Q& L+ ]# N1 C4 u6 K1 l( Q$ _ 3.577922912015625*^9, 3.577922912171875*^9}, 3.5779582414831605`*^9, {
/ R9 Q% {' N+ I3 v* q. I 3.577959014090108*^9, 3.577959016040111*^9}}],
. q- ^; l; _# E9 C; M& { A3 P& C5 ~5 w" [
Cell[BoxData["0.492958`"], "Output",4 E; B3 R9 H: Q# d6 o5 M' O$ e
CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, 5 \1 D- ]. x3 z- j5 e3 v& H( U
3.577922913203125*^9, 3.577958242809163*^9, 3.5779584790403748`*^9,
* j+ `" t4 v% X% J* p 3.5779590175689135`*^9, 3.5779622239523687`*^9, 3.578012439828125*^9}]4 V1 o- L; D. n- P6 P: ?8 E$ i! o
}, Open ]],1 n& H* J! X1 _' `3 m5 }" e
5 J } Y* D8 `# kCell[BoxData[
0 ]+ E% w8 N# @8 s* q5 @ RowBox[{"For", "[", ! S$ S+ C* C. F# L0 T' m1 x$ h
RowBox[{6 G V L7 i: C/ L( `4 j( A& d
RowBox[{"i", "=", "1"}], ",",
* _' }: \/ e/ \/ n4 P, D- k* n RowBox[{"i", "\[LessEqual]", "60"}], ",",
+ Q0 k& y$ o% V" o8 K+ B RowBox[{"i", "++"}], ",", ) j# l& n& T I9 E$ P! m5 T
RowBox[{
9 U( K$ o1 z7 i+ A0 I RowBox[{"y1b", "[", ' |% u' |, a0 \: u4 T
RowBox[{"[", "i", "]"}], "]"}], "=",
+ z) p0 `. c' D0 P4 t+ I7 |) F RowBox[{"Data", "[",
$ t/ R5 E- p3 x( L/ G: C6 w+ } RowBox[{"[", % n* J9 P; s T6 T, j8 ^+ ]
RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
Y6 T2 w, C) j) s& H CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {, K, n; w) f% ]: j5 z' p
3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, 5 V' G, X7 H {8 Y4 g3 S$ |) S
3.577922923203125*^9}, 3.577958246272369*^9, 3.5779584755771685`*^9, {
; q8 R0 B$ D. U& Y: S4 u. F" i4 l 3.57795902089172*^9, 3.5779590227793226`*^9}}],
- b* z0 A! t) a$ d& z e' v; }3 ]; e/ [: [
Cell[CellGroupData[{2 u2 q! l; X9 o* ^4 J! b
- v; f1 ~4 Q- p% m) `5 P7 V" ?& g9 q
Cell[BoxData["y1b"], "Input",
( i( Z& J+ F! I; r7 b# i CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9},
* l( F- g9 y( p5 Q* u1 Y 3.577958484172784*^9}],8 G4 g- G6 |3 F1 S* K H
' ~3 G4 p, o: B+ x+ e1 \ F
Cell[BoxData[* o( ~9 Y0 C4 j- W6 Y$ K Q
RowBox[{"{", 7 s' t b- Z' D
RowBox[{
4 i1 N6 C( @. O$ q C0 {; M "0.873239`", ",", "0.464789`", ",", "0.492958`", ",", "0.774648`", ",",
9 F! Z- o& A" R( l" L9 s9 x/ g: { "0.380282`", ",", "0.647887`", ",", "0.56338`", ",", "0.295775`", ",", ) M b) a8 R6 ~6 D( t0 k. ]# r
"0.338028`", ",", "0.211268`", ",", "0.690141`", ",", "0.43662`", ",",
4 I: J8 T( K0 [7 | "0.`", ",", "0.267606`", ",", "0.211268`", ",", "0.408451`", ",",
% c& V& O9 s! X4 j+ k6 A "0.478873`", ",", "0.380282`", ",", "0.211268`", ",", "0.43662`", ",",
( Z! V3 N1 \/ B "0.478873`", ",", "0.295775`", ",", "0.028169`", ",", "0.43662`", ",",
7 U6 R4 ]) ?6 Z4 J! b "0.394366`", ",", "0.295775`", ",", "0.830986`", ",", "0.169014`", ",",
: D W2 H# Q( |( M! W2 K3 E5 B "0.366197`", ",", "0.309859`", ",", "0.352113`", ",", "0.309859`", ",", & {3 U; D9 J& B; D/ s# Y- c
"0.774648`", ",", "0.422535`", ",", "0.887324`", ",", "0.887324`", ",",
8 j4 u/ l4 U7 ^2 t2 Y" ` "0.859155`", ",", "0.239437`", ",", "0.295775`", ",", "0.746479`", ",", ! f0 ?) ]/ g% u/ Y
"1.`", ",", "0.549296`", ",", "0.366197`", ",", "0.549296`", ",", 2 e! @' m Z3 Y% L9 U
"0.577465`", ",", "0.690141`", ",", "0.71831`", ",", "0.521127`", ",", 3 _0 d2 O+ b- j. |
"0.929577`", ",", "0.521127`", ",", "0.338028`", ",", "0.380282`", ",",
7 i4 F# _. h7 @5 F' e3 j "0.676056`", ",", "0.591549`", ",", "0.464789`", ",", "0.295775`", ",",
& V% Y! o/ N/ f- E6 Q% z "0.380282`", ",", "0.211268`", ",", "0.253521`", ",", "0.28169`"}], + R3 ]; G- K# g6 [
"}"}]], "Output",; b9 C- X$ Q# N9 ?4 z
CellChangeTimes->{3.57792293246875*^9, 3.5779582549771843`*^9, : }; {) ] t' c* l# g4 Q0 L
3.577958485420786*^9, 3.577959026460929*^9, 3.5779622288195767`*^9,
- N5 K4 G* W4 c! a: s) } 3.57801244275*^9}]
$ @$ ^6 D3 S9 ^1 L% R}, Open ]],
6 v J1 ?" O% B% ?4 i, s; g7 E6 n+ }" |2 Y% j$ A1 _7 n
Cell[CellGroupData[{
! h! [; R% d( X+ S0 ?1 I4 }3 h* Q) t/ @3 c+ s4 ~6 `
Cell[BoxData[" f* O# R L* F" y+ v
RowBox[{"m60n21", "=", 9 ^0 [ {5 [; s( p: H0 m4 G2 s
RowBox[{"Table", "[",
5 `2 T" f! H9 j RowBox[{
! S' u+ i8 P4 L' b" A, C RowBox[{"Table", "[",
7 C2 D0 ]5 [+ W RowBox[{"y", ",",
' }, O& s# n8 `( e0 n" Q RowBox[{"{",
$ l% y5 K, O- c$ r) U! x RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
+ |6 s# I5 P7 y' D+ x2 w8 D( y RowBox[{"{",
% g3 F. Q5 u' i6 q/ L3 \ RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
+ Z1 @; z: X( ]1 a CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {' u5 i; r! g( Y* a
3.577924052828125*^9, 3.577924101671875*^9}, {3.577962237961193*^9, ]; ?2 e6 n9 I4 {, |- i; \! e( b
3.577962240082796*^9}}],
4 M: G8 C/ C6 |5 x: r1 U, D0 ?4 N; ~& ^- L
Cell[BoxData[2 Z0 s2 w- c1 p: {1 u6 o8 x
RowBox[{"{",
5 G5 b4 ^+ v: W) E1 I6 J RowBox[{
$ @; b# c L4 P- \( w RowBox[{"{",
" D$ G. N4 @% e8 n RowBox[{/ ~9 z; s) g8 _6 W" ?
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
* F8 ~: Q4 ]6 A6 {& B% D ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
" ?( Q9 @4 a+ |) \3 p "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
4 W" z3 t* P X% n. J- w" ]3 k! ~+ \ "}"}], ",",
( z5 g+ ?3 k$ ~1 O- I8 u RowBox[{"{",
5 t. K; h+ q8 T1 u" r0 s; ^: g+ V# U RowBox[{' N* Z8 P4 Z5 d2 q
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
! i; ~$ V+ M* P ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 u c2 Z' {! u2 ?& i/ ]& D P
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
7 ~7 u5 ^4 ?, Q w) ] "}"}], ",",
: m0 O; A7 p- e. \ RowBox[{"{", 6 a8 j+ E3 _0 w) C, w4 ?5 L
RowBox[{/ H. N4 ^& f, R% n
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. Y S0 K1 r( x. }' g/ ]
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 T9 ^- s7 e( s" _& a4 p+ m
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! ?+ J6 z: H( u/ f% F% I# }" Q
"}"}], ",", 9 |2 o6 r: \% F, T' B" D
RowBox[{"{", 9 O% t) F0 A! k9 q$ F9 k7 M4 P
RowBox[{, \$ }! ~' N% S$ H7 }3 P2 k3 Y
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: u4 Z" l- j0 f
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . G& b/ @5 F2 t6 W& ]
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
/ c0 R) O w5 s% F' h! {" J5 k% K0 _6 m "}"}], ",", * D/ B5 @5 R; M2 H& q
RowBox[{"{", 0 o' I" w1 o+ D' Z( c
RowBox[{
/ G9 ?8 q' k& [# H6 p "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 c9 c7 k5 Q# n. ] ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
0 f! M+ w% ]% b& P "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
6 m2 W( J; |% G2 K7 _ "}"}], ",",
4 i6 V( n0 C* u$ b RowBox[{"{", # R B0 u6 ~, t6 L9 q
RowBox[{
! R: n/ L5 N0 @ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 P$ h5 `3 W" L
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
% S+ @( T/ ^' E& P5 F. D) E/ w5 Q "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ q4 J3 O& |4 r- D Y
"}"}], ",",
7 @/ z4 [# n# o2 ^: v RowBox[{"{",
1 ~) P1 ]! M+ m, I RowBox[{
1 e: e1 n. F: k. P9 N5 N# t% I "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& S7 F& Y) G0 F/ r& ?: D5 t
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , f9 S1 I& w& F. R8 P
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: P" {% i/ X1 f, B
"}"}], ",",
+ J0 v4 [$ i) ^ RowBox[{"{",
2 B/ \$ h& L( R RowBox[{" z# X7 W+ U! [- S7 W6 A* M
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
6 w: }/ O2 G$ }4 @( H! q ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , o, @* T9 V/ x/ B
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
2 ?9 q( |8 F' r: f8 q2 x' u "}"}], ",", - j" k& d; X5 ?% u
RowBox[{"{", . k4 a; X7 I$ T3 h8 m$ J" U
RowBox[{* _. |. }/ Z: G& F
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 V) ]) q$ U0 }5 @" E
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
8 p; s" @" I5 D) x; v "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
: _2 X' n4 j; e2 E. D) e "}"}], ",", 9 a* k H8 b% s
RowBox[{"{",
, W# X; h; V# l1 O5 e: g4 p! z! `1 g RowBox[{
7 o4 h, |1 q' s9 T) f- } "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
0 J: p* B9 y6 W0 ~4 T8 A. u4 ? ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % C; a* T, d7 i( @% M0 b6 [
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
+ s1 D. f$ w D "}"}], ",",
; z% n& c8 |& D# u/ ^1 j" H1 e5 I RowBox[{"{",
3 B$ j& a) u2 M; [4 X! v* b RowBox[{3 O( Z8 L$ ^$ u* o6 M9 {- W; Y1 z
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' y8 g$ m* p% q/ X( F2 }% Z# G
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
/ M1 J% _* ?0 _$ C "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
5 ?: v3 R( X% Q; X "}"}], ",", 7 s8 O0 @4 p) r8 t% K
RowBox[{"{",
6 l" B" M5 l& ]" l# G9 d3 Q RowBox[{% Q3 c! q5 m* J' B) u m0 X9 R$ h5 U
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- G7 l, A8 {$ G! P
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , U+ @- Y2 b1 z; R" f+ r- t( U! E8 s4 a
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
& {' W# N9 q6 H) W/ h/ S: L "}"}], ",", ( |" }4 F$ [5 l2 H4 e4 f7 o
RowBox[{"{",
& o7 [& ^& Z7 s& ?; C- K% D RowBox[{
3 b6 s3 |7 O2 N "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 q4 }9 p/ s. m1 ]
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
% E$ A& E( C% b9 D "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
/ L) G4 y2 x( D2 W0 _: ] "}"}], ",",
7 \1 |& ?1 |0 ]9 |6 Z, I RowBox[{"{", 7 b# P- e+ P0 f( |* E
RowBox[{
& m9 k- |6 g, x4 u- T% D' Q/ C "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
! l- ]) n) L8 L. T7 k ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
% S- M" {8 e- i "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 m; I8 a9 ^7 K: j {
"}"}], ",", I3 D5 y7 A& I4 L; L
RowBox[{"{",
, e5 Z) k3 v5 p- J: L RowBox[{! l$ ?, U/ M. r3 k
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; g; K3 n. `0 h' O1 ?' K9 B
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " w) m( k' F Y8 }0 J
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
0 y" D% L9 b8 T+ U& _* i "}"}], ",", * |) n2 f u Y) f' w7 Y6 t; c% Z
RowBox[{"{", 4 o% }' Q% W' t% d' j( F6 x9 m
RowBox[{/ }0 N- T. h6 S3 r) V
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 d9 z$ w* y3 M' z+ m" i
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 \/ \# y; G! E9 _
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 p5 B/ |$ t& V; n4 E4 n
"}"}], ",",
|1 J' `: H2 _6 X' O6 {: { RowBox[{"{", 3 W1 f3 @' m! }8 J
RowBox[{" ~- k/ i' i8 N% i$ S" Z
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ W1 V* `: x1 Z9 p$ |
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
0 U% I8 g- }1 o) ? "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 j7 k5 E) o+ [+ l O7 g
"}"}], ",",
. Z- q' X% l& g5 M RowBox[{"{",
$ O$ n. {1 ^' ^( k9 N2 B: N- r RowBox[{' F- c' @% K, a0 r0 z) h! E
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ f4 { U# n$ H ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
& \- R! D3 l {0 E C0 Q- U "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' w$ M$ o/ x! k+ M" Z7 p U% x
"}"}], ",", $ E: x$ e0 q4 k" a( W
RowBox[{"{",
! k% ?. K% d6 A" H RowBox[{
) m9 c8 M; M4 n2 O "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
' k1 t# G: g" x/ {" i( { ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
9 u/ G) n1 R1 @! J- L) i- w "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& y, T2 ?% s! T1 l! |6 u$ ~5 Z
"}"}], ",", 1 w _5 y+ m% m2 |
RowBox[{"{", 8 E( x3 I1 O6 m7 _" D! S o
RowBox[{
( m' Q, d9 K+ M9 d) X; i) y8 D "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 V3 e1 V1 d( c# v7 F9 x- u! u& B1 w ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
0 r# H! L# z: n( |8 P7 h& m "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
6 w4 g; u! q) h "}"}], ",", ; `, ]- X# {, |1 T
RowBox[{"{",
% M) G$ |; r, _6 u RowBox[{
/ v" g b6 W9 s- f5 Q. g1 F ?4 i "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 \3 J2 l5 M$ Q/ v8 S
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
) {6 E) v- u, C( Q "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: O# x5 x1 h( s) H; \- x/ G; n9 P
"}"}], ",", # R. m" S. i/ l' R4 j6 e
RowBox[{"{", 0 _+ h* q3 d. G8 W+ R; |
RowBox[{
4 n: w% P; }) B/ E% a "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 g$ t7 _' p6 X7 W6 K/ u ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 c! W d1 u1 O. ?" `7 }! ~' C
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
- o0 {1 \' q; ? "}"}], ",",
3 f; ~# B3 m7 a/ O" i$ H RowBox[{"{", ) a. |" O/ u7 Z& G N, {' n
RowBox[{
+ k# r; l7 D4 H/ L+ c( d. k- C "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) S+ G2 [% k: L/ P) t
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( B& [) F; T% p9 G: I
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' q/ ~5 w' I; K- {! F9 r/ X8 O "}"}], ",", 6 j. c+ C& k. T' c& j4 q
RowBox[{"{", 1 K) p0 H( h2 C
RowBox[{( M0 B( e! r2 R5 l! K4 [3 ~+ |0 J
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
! \3 U. }! X5 z8 Q, D8 [ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
, q5 b4 N7 A9 U" ^' v; O; Q "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
2 @3 X# ]: @& ]6 v: V2 u" R "}"}], ",",
* r! e O4 c* e/ I RowBox[{"{", 4 V2 G+ J3 _' R9 G( ^- O/ f
RowBox[{+ Z$ _( a) v. S
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
8 k1 J' j7 c) c: l ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . s: W, V" B( y( g" N# P
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; W' z- f2 |* U2 @) q "}"}], ",", & c$ K8 y u" `0 v' e
RowBox[{"{",
. I/ ~. ] v$ C RowBox[{& `3 Y9 Y m( \* |- u9 g, k' a
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; Y' h) \) j' t2 b" o
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ Q/ t: V$ C5 S2 w. {
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 I; D' }% a5 w: a( b- I
"}"}], ",", ( l- m3 h0 Y" g0 @9 { B# x
RowBox[{"{",
9 U' [! Y9 R5 z$ W" B1 ` RowBox[{3 j- M# \% _+ J7 z$ O
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ K, l6 p7 f" S ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 V2 d; ~; W. U0 P2 I$ X5 L
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
5 m, W$ B" B( _2 j "}"}], ",", M6 Y8 W4 L$ a r7 k0 C! o$ d
RowBox[{"{",
2 K( o* |8 V: A RowBox[{
; e9 s$ ~8 w; c* m5 p1 k) N "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
7 b7 c% I1 J; M8 t( @) r6 o4 ~7 c ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
U; G1 m4 A) D, g "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
0 `3 O5 o+ ]1 S! X* o "}"}], ",", 4 I& g& E: u0 c. e$ \- R
RowBox[{"{",
1 t, d6 O9 I \4 K; p4 {7 U3 U RowBox[{
" a, M" E* |1 `8 u1 e. { "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
6 ^7 J( M' U# \, | ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
# Y- C; g4 C: R% M5 X5 |$ G "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' `3 @# ~6 Y6 Q! s9 ^ "}"}], ",",
: } U- ~ W+ M6 X% s6 E; } ? RowBox[{"{",
2 F! ^% V3 y6 f. E) w$ d1 J RowBox[{1 x7 A$ o, ^- n* X
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
) Q' f7 |: k+ n9 ~1 b4 j1 g ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 x$ G6 |( v8 G9 {5 ~2 O
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
+ b4 u: X: t. J' P "}"}], ",", . W, y5 p" A! W' G' P: C
RowBox[{"{", , e8 S9 v7 S: j# a9 m+ O
RowBox[{- m7 l, r' e0 q9 j, r. ?
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ R. z, M, ]. |! D# S- A% i* j5 i9 @
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % r; C7 X5 ? {6 h" N
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
& L7 I( ?- x+ g3 }+ W "}"}], ",", * F+ R. Q3 b! O+ w
RowBox[{"{", / J1 d3 [9 V. J# z
RowBox[{: O: t! ]1 [; f0 c. e
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
, ~0 \ G) N4 T- j5 m. S3 j ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - _! O- F9 w6 l& g0 F, i8 ~0 y* ~1 Z
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 d2 L# i+ C! r% l* u
"}"}], ",", ' W# q2 \9 D3 T7 Y
RowBox[{"{",
+ b3 ]6 _, l7 i0 u9 y8 Q. d RowBox[{) ~4 f# V& Z* T
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ d& Y. l Q! o8 ?1 Q) n
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / x2 A, L: X% H9 l
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% l; n' ]; P, p7 c/ F
"}"}], ",", t' G0 T6 h1 |) `- f) Q
RowBox[{"{", ) s' r, V$ s* o, j7 d# q
RowBox[{
) `2 N* J' m! c- X5 H "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 n M% R( U1 {4 R1 D( _! c: ~. ~
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
0 P! J& k' D2 @) \1 A) Q "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
2 S5 u' h" R+ p2 Y( L# N "}"}], ",",
6 q8 i% J- Q6 D1 N0 p RowBox[{"{", # |7 k: S1 g6 T6 F+ N# P0 G' [
RowBox[{
% Q: i. p1 J" g; `* w "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
z0 c, q. u$ ~( ^/ x Q" l4 z ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
9 f. f, D. X1 }( C/ e) P "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ G h6 u. d. ~+ Y: q- D, B
"}"}], ",",
# G* s- B' T7 x2 v [# i RowBox[{"{",
X+ K& E }0 W1 f1 M2 @4 Q RowBox[{
; a a- a: x9 o% c "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ N8 M4 s# d- u% c9 m, e( O1 f
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : ? q) a. E" Z, L% p; ^1 N
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
5 C1 Q; b! G0 [+ [8 w& c "}"}], ",",
* }! I2 Z. }& f& x RowBox[{"{",
2 a+ j8 J' R, K+ A- y RowBox[{
* P7 T: n9 R, v- T7 V "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) U# Q2 h7 ^4 s8 ?
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
4 b4 x- h6 o8 Y8 P1 y0 Q7 m8 y$ {5 Q( [ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 i8 J' T1 e: U* w
"}"}], ",", , {+ L% @. L! X3 J5 E
RowBox[{"{", 0 J! Z8 k! N U6 x) y
RowBox[{5 D/ [$ X+ k7 z* i7 T7 h
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
1 V4 }! a5 o6 S$ @4 _ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
3 q, C2 ?: R$ W0 _4 k "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
1 C' f+ A" W( [ "}"}], ",",
, d- S2 q7 q O RowBox[{"{", ! a, V# n3 p v' z- J* q
RowBox[{3 u b1 ?* H i
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& B s' x8 h, v8 z4 ]
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
! A9 ^4 L; ~9 ]( l "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; f* m! n2 j' ~( Y5 H "}"}], ",", % S# B! {, Y5 X' k& i! ^2 p$ n( ^
RowBox[{"{",
2 ^/ G0 ? `! r4 F' _) r1 k RowBox[{
5 E/ E8 I$ P E5 A9 G3 M4 s "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# l3 c+ W, i; ~) x
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 Q# F" {; q% w
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: Y( B' R9 s2 V
"}"}], ",", : N! u3 T/ B1 \; F. ~6 P- v
RowBox[{"{",
# J3 @: c- |0 p* G8 z3 Z/ M7 F* Y$ @: h RowBox[{
2 ?" e0 E- B3 Z. Q "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 G& z& M$ ^. q* b$ u9 a+ D
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' G3 O3 a( D- @; W
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) k/ N3 i) v4 N0 o! s: K* b( ? "}"}], ",", * x4 Y% L# r3 c' D" ^; O
RowBox[{"{", 4 m; T' u9 d9 Q6 T6 M$ ~
RowBox[{
: A7 L# c( D$ c2 N9 F3 ~ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
: a- T+ O& K4 c6 o ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
2 f# U1 _# c! l5 L "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' h8 @% f p7 l' E7 \3 o; D6 t "}"}], ",", P8 D5 N7 Q2 { i5 w
RowBox[{"{", , N: w; v7 t0 L
RowBox[{
7 g& |; H. R' N& l7 _7 H "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 U! N: J; `* |' X+ J& W& C ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - ]3 ]4 R* w8 T" Z) }
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
0 i& h N6 Z: N' O/ D8 d "}"}], ",",
9 ?, F: W& h; i" H' j' R9 S2 B RowBox[{"{",
6 B; ^1 j6 h7 M2 D, e" u RowBox[{: u$ O8 |: T/ T- S9 h
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 P) L! s7 o/ o, b8 O2 c3 O- i3 W
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) q+ h0 D- R) z) y( e5 v1 L* J2 @0 ^
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% e! ?' {: Z7 x
"}"}], ",",
/ }% O$ p/ l q0 y; K; t3 H$ h RowBox[{"{",
4 j0 I7 t B+ u: ?6 P RowBox[{' W9 h1 `) B% }: J
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
' s" o( Z. f2 |3 n* i. ?7 `6 w2 t ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 D9 `- c7 ~6 O# T* {9 v5 p
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 h2 {' x/ [: o# L5 I: P% f3 q
"}"}], ",",
; T- R7 T/ ^, P* D RowBox[{"{",
' g# Y6 h7 r3 O: R RowBox[{
6 f! ~+ u- A0 w3 A" g "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 E+ U) ~# S, [! ]& L$ m# ~% X
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & `. U, }5 f* l7 k
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
$ J; g. W# u0 }% ]# w "}"}], ",",
* b- |' v) |/ o. s, Z k Z9 q) k RowBox[{"{", , P3 o9 y+ I7 F3 x
RowBox[{0 r3 ]- j7 @8 z4 x3 E
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 M+ Z4 J0 N# U" g, w7 M
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - v% {2 W- ]: }
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
. @5 x3 L8 E# d0 G4 X "}"}], ",", 8 R3 {, m3 p$ E. s) l: k# |& u
RowBox[{"{",
- C' H# S$ X- ?. f RowBox[{
6 J# Q" X" E0 P0 u. P9 m# B; U "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. D* g+ [; M7 _. l4 E0 k
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
* @, y/ k0 |: ~ U4 H "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
$ |; J3 f/ o& f8 {2 H "}"}], ",",
# k' T: o+ |! Y4 @" i0 S RowBox[{"{",
4 A X7 L% a/ t6 ~' ? RowBox[{$ r+ x5 Z9 o6 T5 b
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 u& p! _1 f+ h4 A1 C2 f. m$ E
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; ~7 _. f$ _. v, J" F! }% m
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 s: y+ q4 q- x1 }9 M7 ^1 p
"}"}], ",",
: ]! ~4 D( _- q, d5 ^6 g+ ]. } RowBox[{"{",
` H, W$ b! i/ U5 E, Y5 Q( D' h9 { RowBox[{# t8 u3 F5 F9 ]) v
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 H' j# v% l- Z$ A% h
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
& s8 a6 h, V5 ]1 @8 l6 `0 m9 \ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 s( a5 F/ z7 M8 y& G
"}"}], ",", ( c, I- d/ L. G, I. R
RowBox[{"{", 5 s2 h( s& j I4 f1 R
RowBox[{
2 i4 {" Y n$ s "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
- U* T, b. _% p8 ]% `, c; q! x$ [' d ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / R! ~# ~" O6 U, @! q J! S
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 z4 l4 r4 T; ^5 O
"}"}], ",",
; F- J4 W& z& j1 B* g6 @* W E& K& ~ RowBox[{"{", ) R( Q" q' X n$ R, x" ?) b+ s! i8 F- D
RowBox[{
! q3 [, h7 }3 v/ y "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 K. p* [' b( n: O
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 b1 e# T" o) m X8 |! e
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; ?4 V8 c( ?% m8 R "}"}], ",", 2 |4 t+ s+ F/ q- S
RowBox[{"{",
6 u8 O3 a+ p3 r) v' N' a RowBox[{& w1 U6 z* I4 |: Y# I
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 {/ v4 r& r8 ]2 z8 `- o) j
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 n/ W4 P% o# V; l) [2 t6 S# m4 w$ @( A
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; k7 e# J% ]2 E: Q8 `* l5 X "}"}], ",", \' }' P9 Z! Y( i j
RowBox[{"{",
" v! ]# c: M3 Q RowBox[{ X8 O5 O. a c+ U- Y
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
: C t7 K6 }4 w- G5 k ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / N+ _3 H# n3 p- t* Y0 N! e j
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
: i8 f- c3 x( B. M& e "}"}], ",", D3 `2 p9 }9 ?2 _5 v
RowBox[{"{", 9 G/ s5 u6 `0 V" c- n
RowBox[{& F0 [; f6 x+ @/ Y( i9 v- K$ Y
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
# n$ U C% ?+ M( N ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 Y4 k+ e! Y6 s/ z6 I) T1 J# u( N
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}], \- k/ q7 d. j# [' w$ P
"}"}], ",",
; A; d& x6 j, T- I RowBox[{"{",
; S0 @0 s& o: O" E$ } RowBox[{+ s- P1 ^) F. r( J
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
% Z9 y+ k# p: U2 F# \ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( C8 D/ W; v: c* x. g0 P h
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) U1 A3 \+ v4 b6 G% r3 h6 D: Y "}"}], ",",
+ r2 ~( {3 @6 s" } RowBox[{"{",
) o% d9 f2 t# A c RowBox[{% \) N% B' t. R! P
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( }6 y! v9 d' m4 a
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
9 r( A' D& ]( d& J( `2 o "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# l4 i/ b3 U( `
"}"}], ",",
" b) Z! k9 O; l( i8 x r RowBox[{"{", 6 J. C I1 K+ }5 x
RowBox[{4 ]4 Y+ |% F3 k, H p2 o
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! f9 Q( g+ W C* c! P8 Z! L
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + N8 v+ a+ y( w# t9 _; g
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
6 F1 W) {, @2 @5 \/ v$ ` "}"}], ",",
+ [/ d7 A0 J+ H4 J; q. d& A RowBox[{"{", 6 l& M8 l3 _3 {1 A! ^! Q: V
RowBox[{
+ a8 ?& q% ?' b# y3 b* G "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 A$ N" }" |" V; z8 m0 L ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
, K: p- ~+ Q9 {! I! i9 w+ ` "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 C% ~( A! k+ y B
"}"}], ",", ( t2 Q# h$ b l9 B5 [. G" I; P( F
RowBox[{"{",
7 B- `) S, F Z U7 |; z RowBox[{1 m& W- H6 |9 z7 w0 L. j( U9 u! @
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 }& F+ ]! |- d+ J
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : v$ N) i* d- B, {+ Y
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' z# }4 t: J; y! i
"}"}]}], "}"}]], "Output",
- w' G+ m* H0 i% H) l6 d CellChangeTimes->{; j0 e' H. r5 I0 S5 x3 s
3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
( |# \2 S$ M+ {: W. o1 O! B" } 3.5779582609987946`*^9, 3.577958492393998*^9, 3.5779590297369347`*^9, , y6 E' i$ o2 h
3.5779622422980003`*^9, 3.578012443890625*^9}]& L4 q! d& X. {5 L+ t
}, Open ]],, c: F& H: L+ F' `% h
A) Y- E ]2 M2 B
Cell[BoxData[
; v+ |1 _4 W% d9 G& |" g# _6 ` RowBox[{"For", "[",
, X% @5 v3 C2 U1 e5 u+ @ RowBox[{* K5 i" z, w. |; N4 S9 v5 L
RowBox[{"i", "=", "1"}], ",", . V; ~+ d% C v; d2 [4 {, k" v, I
RowBox[{"i", "\[LessEqual]", "60"}], ",",
' y3 F2 P S; a0 m+ e Y RowBox[{"i", "++"}], ",", 3 w1 c) ~( o0 B3 }+ g
RowBox[{"{", "\[IndentingNewLine]",
1 d; c3 V* m4 [ RowBox[{
' b5 P, A5 P5 e( ~5 }2 ]! \& l RowBox[{
N3 G- F/ J, p' q" i- b% g RowBox[{"m60n21", "[",
5 d/ v: b; E" M7 k; [ RowBox[{"[",
* m2 S! o" s6 T; c0 x' r, D) t4 { RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", 6 d P) y5 P+ H! v' g: }$ b
RowBox[{"u1", "/.",
2 ^ [& E& [% ~: A$ V n RowBox[{"{", " M# [: W( h# f2 x
RowBox[{
; {8 E& q9 d' n1 h) g b$ ~ RowBox[{"x1", "->",
$ i7 ~) g7 I; d/ w. z. g# L5 c% D RowBox[{"Data", "[",
7 |; S$ O5 E0 I, [! u# s RowBox[{"[", ' U; q, n }" s. |
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ! Q! W8 u" b6 S4 L" l
RowBox[{"x2", "->",
+ V6 Y! P! W3 { RowBox[{"Data", "[",
7 |) G$ i. Q8 d" M! ?$ d RowBox[{"[", ]; O6 P) {5 s9 n3 `
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
# R/ h% `5 i& A1 ~ RowBox[{"x3", "->", 6 |- ?7 h; k! J V% F9 [! ?8 Y
RowBox[{"Data", "[", 2 j" z3 Z; }' L
RowBox[{"[",
. [8 l1 E* \6 T0 U7 u; M" e RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", & e+ G, `, Y: `
RowBox[{"x4", "->", . y, _5 n n+ U1 z2 D/ d" J
RowBox[{"Data", "[", $ l" D- R0 _5 [/ t
RowBox[{"[",
" a7 o7 H* M) \* D; K RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
+ d8 W5 S/ j! ^2 W RowBox[{"x5", "->",
4 d; U. @3 E, l. u, @. o RowBox[{"Data", "[", 7 d. e, I, f2 v- @
RowBox[{"[", g8 V, I8 T- ~
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", : `7 l2 w1 ?7 c
RowBox[{"x6", "->",
- w* c4 t! C9 l: s( E RowBox[{"Data", "[",
; V/ Q9 @5 z5 J; E% ]* V3 p RowBox[{"[", ) Y$ x8 v9 }" j
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
8 F, d, W. z% y t' ? RowBox[{"x7", "->",
% m# _9 _1 ]+ A RowBox[{"Data", "[", + g0 l8 b+ m4 q0 q0 B
RowBox[{"[", 0 n: v5 V5 o% _
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 8 c4 k6 u9 Y' j) `/ F8 P# l" y% Q
RowBox[{"x8", "->",
3 v0 x' Q' `& i' n8 K RowBox[{"Data", "[",
4 ?8 H, s6 k% E% e3 S1 | RowBox[{"[",
& T4 `: F2 u. m; H/ i RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
. p) S) i9 G; V. H* f9 w( B9 I& P) x RowBox[{"x9", "->",
E6 G8 y0 W% x( w8 M1 } }- b RowBox[{"Data", "[",
1 r/ v, i. g1 d/ P; |" E4 h: V' V RowBox[{"[", 7 |" j1 d4 A' C! J$ R4 ? }
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 8 S+ ~+ T# N0 v7 {' m1 ]- b7 U/ f
"\[IndentingNewLine]",
" q8 S' B4 I' o0 I! { RowBox[{* _6 C+ |# U& L' r- `! K, h
RowBox[{"m60n21", "[", 5 C$ z5 l6 v5 @
RowBox[{"[", + j; F, L; Z! g5 N
RowBox[{"i", ",", "2"}], "]"}], "]"}], "=",
+ e! }. ^; c5 y RowBox[{"u2", "/.",
5 x2 _. R- {5 j- e6 c$ z RowBox[{"{", ) z4 \8 l. ]9 o; H1 r" P1 r
RowBox[{; J$ D# q5 [* |+ B+ b. I: i6 D
RowBox[{"x1", "->", 1 H3 ~4 |/ n( e2 |# ]
RowBox[{"Data", "[", ; I' D7 ]/ v/ @) e- d, {. p5 A" c
RowBox[{"[",
' S7 J V, \1 |* |9 u RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", . I. ^. m' H/ ?
RowBox[{"x2", "->", , }" U. k' q0 V
RowBox[{"Data", "[", % v7 L" X& Y8 a6 P. w5 C$ }
RowBox[{"[", 5 V3 y+ G# ?( h9 Y {0 Z! i% V9 g I
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
) p% j. f1 Q! `* ~' M RowBox[{"x3", "->",
+ `/ {$ Z& T6 Z RowBox[{"Data", "[", 6 K! T, U* z, K0 N# u: O& d' H% w1 \: B
RowBox[{"[", 5 V3 f2 p r& j" D
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
" X1 ?! d7 B) k- P$ C7 s RowBox[{"x4", "->", ) S7 j6 V: Y, t; a+ r
RowBox[{"Data", "[",
7 O: U) [! a! F+ l8 Q RowBox[{"[", {1 p2 B3 p/ Z0 B6 M( K6 V
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 1 p( I3 N$ c- T3 K* g
RowBox[{"x5", "->",
! ~" e) W9 s" Q7 a( ]( C RowBox[{"Data", "[", / z m: u' ~0 m; Y2 Q7 [
RowBox[{"[",
" a6 o3 _8 v% l/ a5 X RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
8 m8 y Q$ p( j RowBox[{"x6", "->", ! j. I2 G H5 D( V3 k
RowBox[{"Data", "[",
3 ?+ S: n* e4 L RowBox[{"[", & c2 r6 G8 c) ^- q2 G: o3 h
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
' z" t( R- P0 }3 t3 n* Y RowBox[{"x7", "->", 1 X5 {' t& o. Y% R" z" C
RowBox[{"Data", "[", 9 q2 i3 Z! E7 t8 J) t, J
RowBox[{"[",
8 a4 @. V6 ]6 e* t3 ?; l3 y RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
9 s# q! O' N: q# i RowBox[{"x8", "->", ; s1 ]( j! @& z6 F; v4 t
RowBox[{"Data", "[",
, m5 `; T; N& ] RowBox[{"[", * R2 X; T9 `: C. C5 q5 p% K
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 0 z5 I- B% B; {4 r* u+ _% }* r
RowBox[{"x9", "->",
: A- D6 H8 D2 @1 M* l9 V6 }. a RowBox[{"Data", "[", + n$ }0 c8 h" `
RowBox[{"[",
7 [+ E0 k/ u. ^- l( r0 C* t# v RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 5 h% I$ b$ H! c- f
"\[IndentingNewLine]",
" k: g1 g7 \9 {+ g( A( s4 i2 { RowBox[{+ ^ z4 [; z" Z8 s" a
RowBox[{"m60n21", "[",
- b3 R( V R8 u5 u c+ o4 \ RowBox[{"[",
5 s" D! ~3 Y3 H! Z3 Z% q) X6 t; r RowBox[{"i", ",", "3"}], "]"}], "]"}], "=",
9 `% z5 }% O/ H# _, |' ~ RowBox[{"u3", "/.", / D% E u3 p' ]6 G; {
RowBox[{"{", 1 U5 ~! Q% \9 J9 W c, }- \. S
RowBox[{
7 J$ }- T, h0 S/ ]' [4 V5 C RowBox[{"x1", "->", 9 L1 p+ P. Q z( _/ Z; m
RowBox[{"Data", "[",
* a9 i" e0 ?& G$ v1 c% c7 H/ O RowBox[{"[",
2 ` k) i, z6 }# `/ r$ b RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
3 B, K: E: j7 X- E! H RowBox[{"x2", "->",
5 v4 f4 L* g: I6 c( I( H) m RowBox[{"Data", "[",
' g. }8 B4 L% k# f RowBox[{"[", 8 d. O. z! q q: k1 T
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 9 w! k5 Y1 Z+ S2 i9 F4 T& A
RowBox[{"x3", "->",
+ N: N) y4 H2 _8 T; q RowBox[{"Data", "[",
( E3 K4 H0 \4 u% q( z% S RowBox[{"[", , W7 g2 j5 T" I4 C9 ]
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 1 [7 |4 v) k3 n) L1 f$ r: }6 T
RowBox[{"x4", "->", 9 O8 o( X0 M9 ?! i
RowBox[{"Data", "[", " d2 U0 H C2 J; \% ~4 S" S
RowBox[{"[",
( T7 K; J7 V* q: e) }, t RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", % _ e/ r, P+ m" f8 s+ D
RowBox[{"x5", "->", 7 K0 X: X! E# [9 k# q* | o
RowBox[{"Data", "[",
1 r0 M% k. R9 j RowBox[{"[", }; j2 J X, {" ~( I7 G/ \. o
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", % ?; k% @' l7 f1 z
RowBox[{"x6", "->",
$ Q3 f, W; m9 r" I6 W RowBox[{"Data", "[", & L! D9 @* e) p% X
RowBox[{"[",
$ U% o8 Z2 N8 p3 N+ e: d5 C RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 6 e2 b7 z5 `( v- M) b
RowBox[{"x7", "->", $ J8 g5 @2 `, _; c/ a2 i6 r
RowBox[{"Data", "[", 1 G9 A4 k* W1 J4 k7 ?; N/ U
RowBox[{"[", ; Y2 a: x8 F6 O% `! Y: v& s4 m
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
+ N" z% ?. g7 R" D. | RowBox[{"x8", "->", 2 j2 D) }, A% x! B( G9 X
RowBox[{"Data", "[",
, w' h; t2 l% r# T" k& V* r3 h. J6 P RowBox[{"[",
0 A. s) u; ]# ^% T! |' c3 D RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
; x% G6 D/ p1 J( g( R3 Q1 i RowBox[{"x9", "->",
* `& |# b. Z' a+ l5 a RowBox[{"Data", "[", $ \- v. g/ f* g0 x9 P G4 D4 b
RowBox[{"[", 6 A6 Y1 i. w4 P- ^- u) t# u0 w5 Q
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
8 Q. o5 i- R& c, f3 {: h "\[IndentingNewLine]", 8 R* J1 R3 Q* e j9 I. p
RowBox[{! J8 B. E5 Q' T) a
RowBox[{"m60n21", "[", * ?! {# G$ F9 P
RowBox[{"[", ' K' C: ~6 [% a/ B2 I
RowBox[{"i", ",", "4"}], "]"}], "]"}], "=", ; E; ~8 Y. }( v8 L3 M
RowBox[{"u4", "/.",
" C* K R3 N) b, r RowBox[{"{",
9 n8 \* W p: ?0 V2 r! ^ RowBox[{3 X! Z4 y+ D8 y1 y1 w+ u' l
RowBox[{"x1", "->", " _) |# V6 Q6 O9 H$ C- A9 h: n; e0 |
RowBox[{"Data", "[", 8 ^, M* {$ f a9 q1 j
RowBox[{"[", ' k. Z6 b/ T8 B+ @: }1 J
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
2 C; a3 I- z6 K: K. P& J1 n RowBox[{"x2", "->", * s' V" F6 [/ q2 L+ _
RowBox[{"Data", "[",
" u* U# G# ]4 _ RowBox[{"[", " D V( [# v8 e6 B, `# Y
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
4 n# F$ X P3 T8 f" M' } RowBox[{"x3", "->",
) s9 K& G( |! [$ O/ h3 \ RowBox[{"Data", "[",
3 p$ ]5 c0 T9 ^. A7 l RowBox[{"[", " B0 C! b7 ]1 K2 o0 h
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
: _" z4 L- [- W7 v3 T; O* } RowBox[{"x4", "->",
4 ^+ V% j: W3 R, t RowBox[{"Data", "[", $ w P- G0 N% D7 N5 ?# ?
RowBox[{"[",
1 s' N# U/ H; n' D RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
/ R5 p) s2 }& h2 d L& E RowBox[{"x5", "->",
& {2 @, p& J5 T0 F RowBox[{"Data", "[", 4 G3 h/ r3 i( B# y' x
RowBox[{"[", + B0 f; t3 _- l2 X3 E! X6 l3 B' g
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", + z$ D3 }4 X9 j/ L( [2 o
RowBox[{"x6", "->",
. u$ Y, \- {- m" H$ h' T RowBox[{"Data", "[", # X/ Y1 m/ i0 L9 O
RowBox[{"[",
& t7 @( a7 D, K( m* x RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
& _2 {2 X9 j; Y6 C: \ RowBox[{"x7", "->", 6 f3 U- R, a$ }$ @+ T7 |
RowBox[{"Data", "[", 8 ?( H5 l+ }" d- }0 [" V# h
RowBox[{"[",
4 Y+ J% R u; N Y RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
2 a& e4 y. J+ ?! L1 r RowBox[{"x8", "->",
, Q' H+ e# q9 z+ W$ l' B" [7 T+ O. Z RowBox[{"Data", "[",
# e$ Z5 H* r/ b- P( i+ P8 m! r E RowBox[{"[",
( p H/ G, p4 n RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 7 K8 j' A, D8 J/ {& [- ^. m; w+ W- ]. R
RowBox[{"x9", "->",
, y( v D2 [9 ^- R5 G8 S9 { RowBox[{"Data", "[",
+ Q. {7 h; p; A) s) {* E RowBox[{"[", ' v% w* |! i5 @$ z9 s+ a
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ; W% z- ^0 U! m4 n! V( g
"\[IndentingNewLine]",
% n# A9 i6 w+ r4 |4 s" V3 l RowBox[{
$ N0 \( ]1 ?# I' ]! V/ Z& c/ w6 U RowBox[{"m60n21", "[", ; R J% R' S4 z& z
RowBox[{"[", : ]7 N V) Z$ r
RowBox[{"i", ",", "5"}], "]"}], "]"}], "=",
+ H9 U1 O3 N5 y$ [; A* P RowBox[{"u5", "/.",
. K' K. I3 u. a' @. w8 M0 s3 S RowBox[{"{", ' p5 }* z7 ~, l4 z/ ~
RowBox[{9 h* z h3 y/ N
RowBox[{"x1", "->", - B! ]6 \7 P) C w; i+ n+ l+ U. M
RowBox[{"Data", "[", 3 ~& W! R3 O8 i3 V4 [3 Z$ z( u
RowBox[{"[",
2 t9 E7 U* j& f! m6 `, A( B$ K RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
! k- Z D& h) _( U9 l! D/ S RowBox[{"x2", "->", # P( C7 u2 c' [
RowBox[{"Data", "[",
( f! v& X( @. u: N* P% z1 T1 n RowBox[{"[",
, d. Q- K% Z+ t4 z6 J RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", # T/ ^. U* z1 N! ?$ B
RowBox[{"x3", "->", # T1 |. m0 u9 Q2 ^ c: f5 p5 K+ i
RowBox[{"Data", "[", 7 V/ R3 n; h: _' @1 @; U0 ? {1 G, n
RowBox[{"[", ! ]* Z% d* R" d x, ~4 {5 W
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
! K b0 ]0 g) B# a _8 U( q RowBox[{"x4", "->", 0 o& |. U' a! `: ]5 S3 x( P
RowBox[{"Data", "[",
7 U, V8 u6 S+ E7 f' \; K4 O RowBox[{"[", ) V) x% W( r- b: A' Q$ _( E
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", ' B- d3 k+ F/ V" W0 i2 f; t
RowBox[{"x5", "->", & I/ Y# Q+ r0 l* I, Z
RowBox[{"Data", "[", ; ~" G2 k8 v* a9 s
RowBox[{"[", N- T5 x8 z/ ]& V. J- c9 }- V
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
) ^% w6 f8 p. ~* z: g RowBox[{"x6", "->",
- c, [& u A* I RowBox[{"Data", "[",
5 p: ~" B) _2 |8 M RowBox[{"[",
: F# f+ e+ G5 W8 e3 }- z RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
2 K- x( R$ f7 D" m RowBox[{"x7", "->", ) M; [2 ^8 X) S& O! g
RowBox[{"Data", "[", 0 ^+ p- d/ z! y {5 Q
RowBox[{"[", , ]" _$ T6 n+ k: _" u0 { k; f
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
2 q/ i/ N! \1 {# d% t& @2 k RowBox[{"x8", "->",
. F; N/ i: d2 Y) Y- t RowBox[{"Data", "[", 6 A% b% b9 b7 o( D* l- u
RowBox[{"[", ; C' O$ k9 e2 W3 U$ O( t9 ~
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 7 `4 Q n4 M! S1 _' a: V5 v, F! J
RowBox[{"x9", "->", 9 U' ^' S# G* F5 [, _- D
RowBox[{"Data", "[",
% ]5 z0 w/ I& K8 A5 A RowBox[{"[",
9 W# l& E0 J) Q! C RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 5 ]/ n8 X% R- w
"\[IndentingNewLine]",
8 N% @2 T: o* z8 Z9 h+ m; W6 I2 I RowBox[{- E% w9 i1 @5 i. _* V2 L Q6 Z
RowBox[{"m60n21", "[", 6 Q7 e. S, w$ c1 ]
RowBox[{"[",
( [- R/ e' @* W! l) {5 G- } RowBox[{"i", ",", "6"}], "]"}], "]"}], "=", / l: m* c# X* O$ O6 U6 W
RowBox[{"u6", "/.", % N$ A0 l6 q. P; K8 s
RowBox[{"{", # {7 k- W$ x! G7 F _ X
RowBox[{1 c' r! x: Q- N3 y: b% q" S# L2 X- T
RowBox[{"x1", "->", ( m( @4 X- l0 j, g% c7 d( D7 a
RowBox[{"Data", "[",
4 D+ ]. J4 }, ]9 @1 |! v& x, {0 _ RowBox[{"[",
! F+ y: B- P7 w1 P RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ; O1 T& `- w$ y# g' U
RowBox[{"x2", "->", 7 z" _* h4 C9 }! I! @' ^7 V- R
RowBox[{"Data", "[",
- D) |3 \. X% c RowBox[{"[", . ?6 T( N. d" E- h& H
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 1 h4 O0 p, t# r+ U: t4 L
RowBox[{"x3", "->",
9 K& ?, |6 o% f1 p1 {) M- i RowBox[{"Data", "[", - v5 \( M( i% w& _- W4 {
RowBox[{"[", 2 k( Z* t4 u: M1 M; n& t& I' b+ R
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 6 ?! j7 a% r3 A
RowBox[{"x4", "->",
) g' r8 Z4 R! i# C RowBox[{"Data", "[", $ }6 ^% L1 K0 Q2 u' V
RowBox[{"[", $ F+ T8 U6 @8 ^# [9 a! Q
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
. N( R" j9 h2 X RowBox[{"x5", "->",
; S' F# ^+ v9 ~4 V% r: b) {' j. g X RowBox[{"Data", "[", : \; B. @* W# m" K& r! d5 p7 _# @
RowBox[{"[", - w' G4 q! Y" z j6 r# I! [
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
6 Z: R, m8 d! H$ t4 E$ N( o. w RowBox[{"x6", "->", + Q6 h" ^* Y% z' [
RowBox[{"Data", "[",
2 ]5 w0 G& V- D Z) a- u* w: a RowBox[{"[",
" x* R) \1 ?5 y& [ RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", - w+ {$ R* e/ O" B4 s# h
RowBox[{"x7", "->", ! S( V+ J3 I I4 |; c* T9 G
RowBox[{"Data", "[", - m5 H9 O# _8 v/ g
RowBox[{"[", 9 s# _' W/ A5 [
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
* y' m$ P, _% A RowBox[{"x8", "->",
$ O1 y8 J1 G0 |: z! x' V- g RowBox[{"Data", "[", ! l: }, Z( D; f! M
RowBox[{"[", : U5 v/ x- ?0 j9 E' B: j5 p
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", % v5 C' P! v/ [
RowBox[{"x9", "->", . f( T0 j7 O) s) ^) l* N9 K
RowBox[{"Data", "[", $ B% i" K3 Q H) ~6 W
RowBox[{"[",
. a/ j. t% C' s& |7 ]; q- N) G8 d" D RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", # s+ d( ^8 A. B( x, r8 k
"\[IndentingNewLine]",
! B) Q; d1 I4 u RowBox[{
8 [, Y' L# e w6 k# M8 d6 A RowBox[{"m60n21", "[",
* o/ A4 \2 N' [. r7 H# H/ s RowBox[{"[",
/ ~9 j; ?3 j. w: K$ A5 ~ RowBox[{"i", ",", "7"}], "]"}], "]"}], "=",
8 X. n2 [, G& [5 q8 R) c! W% `$ t$ [ RowBox[{"u7", "/.",
! L8 W4 P# A/ e% l0 z$ q1 O6 @ RowBox[{"{", 5 N- t' `; |) m- `) n# s. Y9 O! m
RowBox[{9 }* @4 [' u8 ^4 g
RowBox[{"x1", "->", 8 f; p8 v8 D! v2 s$ F
RowBox[{"Data", "[",
( U8 R" d( L- c* z( y: d RowBox[{"[",
( ^$ s/ O3 {' g2 E( D RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
* i" Z0 c; r7 |, m2 q9 I RowBox[{"x2", "->", % [6 k" J! [6 p6 w
RowBox[{"Data", "[",
, O% w# L2 u9 i+ m0 p3 S- G3 G RowBox[{"[", ' r5 u2 r- q% F D2 V' Q; E) Z
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
5 P: Y* d/ ]: Y: m0 F RowBox[{"x3", "->",
* a3 h8 E( v. {, ?- F RowBox[{"Data", "[", 9 `3 w2 V1 n# ^! Y/ A; [
RowBox[{"[",
& Z0 h7 ]5 n6 |5 y RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
2 q' [- V1 d. u6 h RowBox[{"x4", "->",
7 j6 }& F, p0 I _# v RowBox[{"Data", "[", O v" J2 Y, S6 j" h/ R6 z
RowBox[{"[",
* z6 Y- n+ }0 v/ A1 I RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", + N1 L* m$ X# y
RowBox[{"x5", "->",
' l2 x, s9 m. \: R6 e; D8 P RowBox[{"Data", "[", . z" d+ g3 L5 L1 N3 B1 d5 B8 J {
RowBox[{"[",
; B6 F Z# Y$ I- d6 I: [/ P RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", , p9 `+ ]; ^4 C' K
RowBox[{"x6", "->", 8 ?! D5 N5 Z" s! D
RowBox[{"Data", "[", ; c* Y2 m6 z$ }4 {. g" ?
RowBox[{"[",
3 @$ S B+ M( _9 n- ~ RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
* {: t1 g' z, K# O$ A. g: i RowBox[{"x7", "->", 0 J P/ E( U7 v5 P3 t
RowBox[{"Data", "[",
$ s5 w. ~( _$ l( `# f RowBox[{"[", * t Z- i1 F- f2 a
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ( d2 k/ M8 d3 T F! Y; p8 ~' F
RowBox[{"x8", "->", 9 ?3 ?& t/ ]2 i+ ]: U) f
RowBox[{"Data", "[",
. X; O2 F `) g) u4 n7 X: |) X$ n RowBox[{"[",
% s1 \5 r+ E+ ^& q8 x RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 5 b& K' h1 m, z+ c7 j$ I D6 B
RowBox[{"x9", "->", 5 W A2 U' q, X+ r
RowBox[{"Data", "[",
* i6 V3 V( A7 c2 W! @ RowBox[{"[", " m9 L: R1 g$ k% T! V
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ! D# i# @+ G: |$ s! C( Y
"\[IndentingNewLine]", - \. U$ B7 z8 _4 r: H
RowBox[{
( c& n* N/ M1 G& G& o RowBox[{"m60n21", "[", : V4 O# b) e/ B' E) q3 U/ |
RowBox[{"[", 7 M [/ j% d1 n; X* x8 D
RowBox[{"i", ",", "8"}], "]"}], "]"}], "=", ' B; `6 J! c5 H7 F- \0 n5 H
RowBox[{"u8", "/.", & ?7 \2 a! r& P0 R
RowBox[{"{", % z1 O% q9 `+ z( r3 z; ?
RowBox[{
7 |9 M R+ U- z RowBox[{"x1", "->", 0 x* [" @, r q& b$ c
RowBox[{"Data", "[", & B) [. j, t% n2 r5 |& E
RowBox[{"[",
7 G6 y: s- E1 x RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
5 g0 I. L$ E% Y% H$ t RowBox[{"x2", "->", % Q) H9 Z' }7 P; y1 q+ i
RowBox[{"Data", "[", , M! u2 K/ S! n) u; K w
RowBox[{"[", . r& T/ A2 m4 f, l7 J- b
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
A/ C0 w, G" [" m0 G8 v RowBox[{"x3", "->", ! G7 e B2 C# s$ ^0 ]
RowBox[{"Data", "[",
5 S& I" w3 a/ ]( h9 G RowBox[{"[", ) n* k3 C" k( @
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
% s( X5 R9 ~1 ^5 v, P# v- T* h8 ]3 Z RowBox[{"x4", "->", & ?9 C1 _2 z* y' P3 g0 Q
RowBox[{"Data", "[", , Q6 q- t6 O. e- ]
RowBox[{"[", L% i" w o0 S: i1 [
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
) P3 W: K3 W5 `* x; h$ t. m RowBox[{"x5", "->", 3 c5 g) W: [& C |) v7 O
RowBox[{"Data", "[",
% ~. [6 C$ M' `1 u! c8 J- [/ V RowBox[{"[", . [0 V) }3 D. y! S$ u# C' }- G
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ! [5 |+ C2 q" g
RowBox[{"x6", "->",
$ M/ e0 F6 Z' w. a+ R5 b: x8 W RowBox[{"Data", "[",
0 T4 |7 Z9 w3 n RowBox[{"[",
/ c8 p, n( d5 `: s4 P, |5 B RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
6 k. F/ Z* ^9 M RowBox[{"x7", "->",
, F: C! U* c* S; ^& X$ A+ j0 x ~ RowBox[{"Data", "[",
# z2 \4 U! \# { ~5 G' A RowBox[{"[", 4 b1 d3 u0 G2 f4 Q
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
D. ^3 Y5 @2 L Q! H RowBox[{"x8", "->", ) R8 E7 {- Y$ _+ k' ]5 j( C
RowBox[{"Data", "[",
0 n' X+ ?" B# {; Z$ c6 K RowBox[{"[", 4 w3 U u+ u8 D2 h$ u
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
3 A+ z% L$ X; ` RowBox[{"x9", "->", ) \+ W$ b% O& a2 Y9 v: `# Y1 a
RowBox[{"Data", "[", " b+ a# p7 c# W* d/ |. x/ X
RowBox[{"[",
3 ?9 X7 ~3 e$ ?+ o: U RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ; c& d% n4 C) w. a: H) ?
"\[IndentingNewLine]",
0 x2 v6 h9 M/ [& Y" ~. s" f# W4 K RowBox[{
4 G$ D7 W/ F. C2 l, ?) j$ V RowBox[{"m60n21", "[",
2 j6 G% n5 N( {4 n RowBox[{"[", ) q1 C6 t$ N/ }. b) t
RowBox[{"i", ",", "9"}], "]"}], "]"}], "=", 6 |# ]1 G3 J& d! M, Z5 l
RowBox[{"u9", "/.", & m$ X1 m& }$ E4 N0 |
RowBox[{"{",
4 b0 Q* r3 h8 f RowBox[{
9 s( a1 d1 Q; o( Q" d8 a$ {5 i. q RowBox[{"x1", "->",
6 I. Q" Q& A4 P) C4 m1 e RowBox[{"Data", "[", ' e |. X2 l7 Q8 @( \% ?5 I" [
RowBox[{"[",
: w9 w6 I( r5 F3 g* K& g RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
1 x2 _' ^* k' f e6 h- s RowBox[{"x2", "->",
$ {% X1 x, C2 }: p6 v+ ~ RowBox[{"Data", "[", 1 B2 a* D" i" c; J3 n* f5 Q# q
RowBox[{"[",
6 D5 Z# I( m+ b. \ RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
4 P2 b# A9 N Y1 u RowBox[{"x3", "->",
& ^+ `/ f) [. f- g& c RowBox[{"Data", "[", 9 \7 B! A9 Z" ~
RowBox[{"[",
- I$ T) w F9 z' q1 F q RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 9 X. s0 U1 \; H7 M/ Z
RowBox[{"x4", "->",
) }) \3 {2 y* o% j" e8 j RowBox[{"Data", "[", % F! g& N. ?3 g2 P$ v) F3 s
RowBox[{"[", - P8 g' h! q. R- X# k9 W( L
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", . m% a5 A, P* w0 r ]5 _
RowBox[{"x5", "->", " u# R# }- p& M) G) V6 o+ U
RowBox[{"Data", "[", 1 z: t- X* c8 S3 \& c6 ?9 w
RowBox[{"[",
9 I* u1 y& M6 f2 R# | h RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
( R/ p. o$ P7 F RowBox[{"x6", "->",
* f# _7 R6 O; \" m I3 o% \& N/ j RowBox[{"Data", "[",
; Y# y5 h4 p$ B4 J& T- _ RowBox[{"[", : x# r" @( a# D
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
- A, d! j& H1 V( K! i& x" K RowBox[{"x7", "->", " S' d7 G6 I/ R; ~& \1 S, x
RowBox[{"Data", "[", 2 s# ?% u2 `. E) d0 u9 }9 W
RowBox[{"[",
2 H( `& G! x8 M, w1 D& C RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
2 n, x; Q8 e1 H+ `6 K* C) p RowBox[{"x8", "->", 3 Z. E+ t2 d7 [) w
RowBox[{"Data", "[",
# u) @1 }# @8 s6 P RowBox[{"[",
- {9 i3 @' m' ]) U; G9 A9 e+ J RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 9 r7 u* G/ ~4 _; q0 d2 O+ ]
RowBox[{"x9", "->",
/ g; E3 E! t* g RowBox[{"Data", "[",
9 U7 R- P. n, _; o' P RowBox[{"[", 1 }% t, t3 F& f1 o( T
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
3 o( y- t( I2 q "\[IndentingNewLine]",
8 g& L$ ~* o4 f+ W7 \ L RowBox[{
6 h' C5 K! c- m- Z" ^7 R2 s- H& q RowBox[{"m60n21", "[", 0 F2 C% z* o/ J/ Y4 X1 _
RowBox[{"[", ; U* V4 {9 U6 [% S$ S' E( L% }
RowBox[{"i", ",", "10"}], "]"}], "]"}], "=", 5 E0 k* l; q- J1 j7 I) ]' X0 F
RowBox[{"u10", "/.", 9 `' t2 Z8 n q0 q; ` y( Z
RowBox[{"{", , T0 R9 E( k3 X3 c0 o
RowBox[{+ e4 U9 W3 `2 m$ w
RowBox[{"x1", "->",
5 Y! ?6 E/ S9 a U$ Y RowBox[{"Data", "[", 1 g/ [8 u8 T& N+ y- O
RowBox[{"[", 7 Y7 ?8 ?$ c4 ^: _
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ) [4 l! ~" U4 x* e9 B' G
RowBox[{"x2", "->",
{1 _8 @8 b( u: h2 v RowBox[{"Data", "[", 9 L+ C3 w$ G. I( j1 Q
RowBox[{"[",
2 S/ ?5 Q( J: S+ ^" Y RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
1 b3 Q7 f- @ y- |7 u' b RowBox[{"x3", "->",
8 f/ e) i! w; e' f% ] RowBox[{"Data", "[",
3 y" R" Z$ u/ f+ v RowBox[{"[",
1 f: ~/ s# M3 M6 A2 T RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
( j2 r9 @3 q( o RowBox[{"x4", "->", 2 b7 u4 ?4 {0 D/ l5 ?) S! L; s6 G( Z
RowBox[{"Data", "[",
0 m3 j1 A4 q) G: t8 W+ Q, w* U1 r RowBox[{"[", $ u1 |) _$ v: A3 I2 x
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", % y% j4 h# D; }- d/ C- c( u
RowBox[{"x5", "->",
% I9 l: ?% l, ]& R RowBox[{"Data", "[",
0 ~3 P! f; |* g' { RowBox[{"[", 0 R4 P* x1 L) [6 w5 x! Z
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 9 L! ~5 e3 U' Y7 ]- d; T9 `* g) K
RowBox[{"x6", "->", - i- B# f9 j$ ^8 l+ W
RowBox[{"Data", "[", ; J9 e! ^; o& ?4 u; H& M
RowBox[{"[", , J, Z4 E5 ^ b1 Y# p( r
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
! y+ O' g! q; H, x RowBox[{"x7", "->",
) ?9 m e ]7 m- a r* Z* L( S RowBox[{"Data", "[",
6 ^5 n" s! o* C( j RowBox[{"[",
5 {5 V: _, D9 ] RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", - i4 q; r' [: j% B# j, l
RowBox[{"x8", "->",
& l# E! `7 W B! e) m RowBox[{"Data", "[", 5 ]. f7 `5 w, { ?1 W$ g; x E
RowBox[{"[",
3 g& a7 O4 h' N# S RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", : a. N9 d2 v" y
RowBox[{"x9", "->", # W6 V# v/ T; R0 H; g* S6 g) s
RowBox[{"Data", "[",
. u- K" R! E1 W/ P; C RowBox[{"[", * Z8 J9 k7 N' p
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
3 o @) l' H' H8 N1 _ "\[IndentingNewLine]",
) t6 t( {: x. j6 `# [; h$ j RowBox[{, U1 Y8 q8 l, m3 I$ j
RowBox[{"m60n21", "[", 4 a. Q' b' E. W6 S
RowBox[{"[", 4 G& {! i( ~9 [1 \9 ]" h: W
RowBox[{"i", ",", "11"}], "]"}], "]"}], "=",
1 |- b, ]; P+ b1 b RowBox[{"u11", "/.",
, N% J N( f" v RowBox[{"{",
& K# Q( e0 `4 K9 K2 x% i4 Q RowBox[{
, V5 F: i4 ]- J- N RowBox[{"x1", "->", # M% H# ^4 X6 D
RowBox[{"Data", "[", ) R+ b$ J/ v- n! H3 d
RowBox[{"[",
; c3 e: h( {# {3 E RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", % n) [1 p0 `! X. T) {/ y
RowBox[{"x2", "->",
# |' O8 J$ Z# P8 H8 W RowBox[{"Data", "[", * w" h$ T& X1 h- `9 y" X& a
RowBox[{"[",
8 f1 a% u8 q# K RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 3 x9 D# q M1 w' i2 l- z
RowBox[{"x3", "->",
0 A3 Q$ h& d" t, x3 Y- l. ^' g RowBox[{"Data", "[", 4 E- H, x- Z* @& I$ S
RowBox[{"[",
) u& L" Q7 w! E, ?% ], Q4 A, X RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
" k2 M/ O& u( C/ P/ x$ I3 J RowBox[{"x4", "->",
0 W+ G7 n$ c4 k+ d/ _ RowBox[{"Data", "[",
- j& m+ j5 B$ g0 Z" S RowBox[{"[", # s( H7 V+ Q2 V* n% x
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 6 U4 [- Z3 b, t1 x
RowBox[{"x5", "->",
& g/ L! A. x; L4 L4 Q; e# p' n RowBox[{"Data", "[", ; f8 e, [: {9 l. v- J) I
RowBox[{"[",
, Y: [2 q1 ?6 E' W) o RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
% p" R: g' s; m" L RowBox[{"x6", "->", 8 R5 {" h0 a1 @# m; D
RowBox[{"Data", "[", 4 e7 Q& }/ m% e1 }' i) L
RowBox[{"[",
2 Y8 i1 ^1 L# `) _! l RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", , a' L, M" q) O6 e
RowBox[{"x7", "->", 8 _! ^' Y7 n9 M" N, I1 A1 d
RowBox[{"Data", "[",
2 w; v5 z; W0 X* P RowBox[{"[", # A, Y7 Q$ s) v! a$ J# |/ J9 M
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 6 @/ U; Z& \0 C& c& ?# Q2 E5 s
RowBox[{"x8", "->",
* X2 A7 o- ]5 P! f) e3 F RowBox[{"Data", "[",
/ @* c# G: F, `! W8 i" T RowBox[{"[", 6 d- t5 m" E4 P: y9 S8 h
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
1 p$ S) c1 r/ d$ c7 F RowBox[{"x9", "->",
" @/ D! Y4 {8 j$ T, k. C RowBox[{"Data", "[", + m& m$ M; [/ A& F% I
RowBox[{"[", 1 G3 D; G0 A- M2 g! s: v# F! R$ O- P
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", + p6 s0 m* n0 O
"\[IndentingNewLine]",
* H6 ^% Z8 ]' P$ ^' y# v8 y* q RowBox[{
; Z- M2 B' {3 E1 N$ W RowBox[{"m60n21", "[",
S! ]8 f; G! z7 ?, l8 o RowBox[{"[",
* k8 @2 I6 k9 v, m! K RowBox[{"i", ",", "12"}], "]"}], "]"}], "=", $ J% H8 T% Q) j: J0 }! X2 f
RowBox[{"u12", "/.", , _ i8 J# T2 W! [# M
RowBox[{"{", 1 n+ u# d6 `# H) T- V
RowBox[{
% ?+ T% L! [" ?5 a RowBox[{"x1", "->", ! i1 e( U, k2 q: @
RowBox[{"Data", "[",
) i) j# ^' M* b. R) Q8 } RowBox[{"[",
& s' P3 B8 @/ Y+ J RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 7 a& w7 X' w6 i4 n! E4 K% U8 E' O
RowBox[{"x2", "->", $ ^( w4 T9 ?- l l0 {
RowBox[{"Data", "[",
" M6 l# U0 I) M( A7 ~& d( U0 A RowBox[{"[", 7 `3 E6 e3 _, u* v
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
k; H7 Y% H2 L0 H. O; f6 f5 f RowBox[{"x3", "->",
# k0 p2 s/ a1 _2 }6 X RowBox[{"Data", "[", % _: @0 X* c$ _0 N0 |0 h- G& N
RowBox[{"[", ! \5 x/ ?3 T5 K$ P1 ~- J. t. e0 o9 n9 v
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
5 X7 I8 j; S: M2 z5 s RowBox[{"x4", "->",
7 Q7 ~, D- H! r6 h' v( K. t* p RowBox[{"Data", "[", & B% B6 }6 b7 Q( H9 }4 l
RowBox[{"[", ) N/ J! R1 Y' A7 ? }
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", ) o @- d3 m% \$ }
RowBox[{"x5", "->", & q0 Y+ t) G0 W$ r
RowBox[{"Data", "[",
: ^; d. Y" ~$ M4 J* S W; ^ RowBox[{"[",
& t; k- f) j: G" Z# p RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 9 o# ^0 x$ k' _& _/ l# u1 I2 e& f
RowBox[{"x6", "->",
) k! c8 g7 J8 F) h( W RowBox[{"Data", "[",
% \4 E! c; g2 y P RowBox[{"[",
) Z2 r; m4 _5 l* M9 A! E RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", $ g a7 T+ n2 N4 S9 t% _' m
RowBox[{"x7", "->",
?8 S1 O- I/ w! {, \' ]$ ^ RowBox[{"Data", "[", 1 N T9 g7 M4 ]8 |& S* y v
RowBox[{"[", ! }3 U! Y7 U0 v0 g5 x0 N( d
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", " S. r @9 D, s: m s" L$ y
RowBox[{"x8", "->", 4 q+ y% @2 m5 N0 t h) F: g
RowBox[{"Data", "[",
5 T) X0 h/ V7 i4 z3 Q RowBox[{"[",
# s$ ]8 t/ h! T$ N1 ~4 G# W: v7 X' M RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
, c3 W" z& L( ^. m3 T RowBox[{"x9", "->", 2 H. ^, j+ ^. O
RowBox[{"Data", "[",
: P+ f. U9 b- g RowBox[{"[",
8 ?* Q8 D8 j2 }; ~) J! q$ s RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ( J5 u% \' \% W& s
"\[IndentingNewLine]",
1 U3 z6 r& s9 h/ A. h RowBox[{2 |1 I' [& O s# p% e7 x; w
RowBox[{"m60n21", "[",
/ c, U3 C: c3 \# m; A( b RowBox[{"[", , N' q& N' ~" o1 P4 H, V5 _% S
RowBox[{"i", ",", "13"}], "]"}], "]"}], "=",
3 O; C! ?* U8 ~) h( V RowBox[{"u13", "/.", 2 O& W: U( U' C# v7 U% ] ^5 s
RowBox[{"{",
% S/ d9 N4 b/ s% t8 X. m6 T RowBox[{
$ L+ q9 w! {, m, [& b RowBox[{"x1", "->",
/ [$ }; V( @0 W P RowBox[{"Data", "[",
2 `2 G' h D* H1 h RowBox[{"[", 3 k0 Q, F; @0 z
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 0 N' L; x) V$ K. S) u
RowBox[{"x2", "->", u; t# V, ^- q1 |0 p B7 N
RowBox[{"Data", "[",
. q% u D9 w f8 z# ]% N/ G6 p. ` RowBox[{"[", g* L% i/ \. o: k! n% v- h D
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
+ Y2 w) {4 u( ~2 C4 t# T" k; _) e RowBox[{"x3", "->",
) [$ v1 a$ Q8 ~) @$ |/ Y# b RowBox[{"Data", "[",
2 R7 U" H( g; X0 n2 o j: o RowBox[{"[",
! F! V% s! |% i. y* y RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
# A* |, n/ o: z2 F }+ X RowBox[{"x4", "->", + \0 i1 N9 K8 v, \
RowBox[{"Data", "[",
1 e e9 _( n$ I1 Z1 B& A RowBox[{"[",
2 `0 X8 l, C% s% I' Z; e+ u RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
) i' u J- W" U3 Z RowBox[{"x5", "->", 8 C% @8 O1 m4 A" V" Y( L# m
RowBox[{"Data", "[",
# V: A8 b; f$ _4 ]- E" k; Y RowBox[{"[", % ?& Q/ `- d1 M! Y/ ?" F& y3 T
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ! c2 H2 n# z% D1 T! D6 j: m
RowBox[{"x6", "->", " D; q, c5 i! F, d7 H. v( C' m) |
RowBox[{"Data", "[",
, J3 r$ d0 h$ U2 {8 O9 }1 ^ RowBox[{"[",
4 S4 u! C& Q6 k9 [ RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
9 V' s9 K( Q" i RowBox[{"x7", "->", 3 G% Z9 N- e8 ?5 n
RowBox[{"Data", "[",
! j0 C2 Q, \5 \4 l4 Q' P3 n RowBox[{"[",
# h& f$ P H8 o. Z. K* V RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", : N; r+ |: [5 B& X
RowBox[{"x8", "->", / k' r1 E8 }- N; a+ _, [
RowBox[{"Data", "[", 8 c( P4 N: T8 s: O' A. S, ?% x
RowBox[{"[",
0 e9 }8 B1 b5 m# F: S7 G RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", + j9 `5 ~6 P8 }
RowBox[{"x9", "->",
& _! b) Q) @9 j" Y: i RowBox[{"Data", "[",
5 y" z! {, @( K! n RowBox[{"[",
! m4 j g8 f/ F) {, L7 G, }, s RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
# V' } h5 J4 C' l3 ] "\[IndentingNewLine]",
7 A( O6 }% v( q% S RowBox[{2 U* J: o# o& |) \8 T
RowBox[{"m60n21", "[",
5 U% `. Y5 C. O" n. j RowBox[{"[", 1 V5 T! \( e; ]+ g- @ x
RowBox[{"i", ",", "14"}], "]"}], "]"}], "=", 2 i4 M R* \& C
RowBox[{"u14", "/.", " G6 Q4 ]7 x: L
RowBox[{"{",
) |5 k. r8 ?0 ~0 y1 v$ Y: a0 a RowBox[{
: y; n1 i I$ X9 p9 B: Y RowBox[{"x1", "->", ! k; {' m2 V3 \" U0 m7 t0 J Z
RowBox[{"Data", "[",
' Z$ f0 g3 q+ Q* c RowBox[{"[", ) H8 K$ O$ |2 k, V
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
! e, x+ ]( T Q1 N3 u RowBox[{"x2", "->", " v" H& s, w/ z6 E/ H9 _6 b' @, S! U; G
RowBox[{"Data", "[", & P3 ^+ J& S. h1 G7 H
RowBox[{"[",
! Q! N+ Q& R# n: t% s3 t Z RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", . A% U6 Y' G9 b: k- C. V
RowBox[{"x3", "->",
5 m* E5 c6 y& U* H6 } RowBox[{"Data", "[",
' p9 E* E: ?% I4 p RowBox[{"[",
4 I; b( V2 P" n8 L" ]" K+ u RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 9 E z6 f$ G2 o8 o: O# s, u; U6 c
RowBox[{"x4", "->", 5 H7 x9 W) n0 G
RowBox[{"Data", "[", & H. A9 ?4 |$ [ C6 Y
RowBox[{"[",
* ~- V4 M0 J3 e( I# ~& G RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", . s" T B( Y/ }8 Q/ r+ c6 f
RowBox[{"x5", "->", 1 A/ f R5 r; ?3 z$ l5 h
RowBox[{"Data", "[",
# ~3 V$ U! ^1 V' L; e RowBox[{"[", 9 i4 i3 N$ N! c! G& f3 }
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 0 o0 [& n4 W( ~; f8 U9 Y L
RowBox[{"x6", "->", / m4 N/ S# S- `% B
RowBox[{"Data", "[", 6 C9 u* V- z% G. T& u; m+ ~. f
RowBox[{"[",
1 Q/ V+ w& d. B+ E) b+ l RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
* D2 P" P1 h2 [1 T1 ]& q RowBox[{"x7", "->", # o8 z6 ~) f2 _5 v4 o
RowBox[{"Data", "[",
, |; X) \4 O& h RowBox[{"[", 4 N2 g* W% Y6 V& q# y. }6 J- r
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
% u- N' a3 t7 S3 c* ?( K" ` RowBox[{"x8", "->",
2 v; r' V7 C; K3 K$ k9 k RowBox[{"Data", "[", $ |! ]. f% V" ]9 o- G$ ?( V
RowBox[{"[", 5 H) k$ E; ]1 d4 M7 u7 H
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
2 z D2 ]! z/ |. S6 p RowBox[{"x9", "->",
3 m7 D5 Z& C! R; \( e RowBox[{"Data", "[",
3 Y) }6 B1 f5 o" i7 E4 X3 y RowBox[{"[", ( ~/ e/ h1 |9 b" {( Q0 k
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
( F! [, L# Z% |! O9 ` "\[IndentingNewLine]",
* r. e$ L6 q7 f+ D RowBox[{* q! V: U0 F" S
RowBox[{"m60n21", "[",
: E- M- }$ \! G6 \; A RowBox[{"[",
& u; T+ f) }* N% B( I& Z RowBox[{"i", ",", "15"}], "]"}], "]"}], "=",
( y0 ~2 @# A* c7 w) f% @/ w RowBox[{"u15", "/.", # x- l' `) q) c
RowBox[{"{", T: h5 Q9 R2 E. q
RowBox[{
$ a% B# \8 f9 F N' r RowBox[{"x1", "->", 9 Q# D: P7 J6 V- M& i! s
RowBox[{"Data", "[", ; p2 [1 s, Y3 ?
RowBox[{"[",
9 x" `' {! r) |4 _9 S% c4 ] RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
# N1 H n* ~+ G2 Q7 o/ ` RowBox[{"x2", "->", , d8 U+ H9 O H; j, l; F& |" A" m
RowBox[{"Data", "[",
! j! z! h. J" j" s& k RowBox[{"[",
+ {8 j' P* N' c6 y RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
5 Z0 `% d- l6 E- I( U; ` RowBox[{"x3", "->", # F/ v: L! }& P; Z! @* k) u
RowBox[{"Data", "[",
) r+ G4 N1 U" o; W% Q: S RowBox[{"[", ; l6 g6 L9 f5 J0 e1 Z" \, ]; I9 N
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
0 [5 G. D3 p+ ]1 t2 Q3 G RowBox[{"x4", "->",
L# g$ ~8 ?0 i" N8 Q RowBox[{"Data", "[", 2 d/ k. A$ c9 L7 y; }) m/ X3 J
RowBox[{"[", 2 S* W3 P% t& J/ w& ]+ T
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", - e# |) f, \( T, }3 K& L
RowBox[{"x5", "->",
+ c0 z. j2 V, h: O* O M( ~6 [/ F RowBox[{"Data", "[", ; U0 H) @& G& ~ U! g
RowBox[{"[", g# K, W" S; X. v
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", . v7 r# c8 W2 Q5 Z Y! O! v" q
RowBox[{"x6", "->", ; p5 p6 z/ K0 i& L: M3 [5 v
RowBox[{"Data", "[", / Y7 s5 f7 u7 v; ?1 ^3 s2 X
RowBox[{"[",
1 O/ c+ n" n$ T, u4 }$ ` RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
5 m7 D0 g: r" } n RowBox[{"x7", "->",
2 Y( l- v3 C& u) `% r RowBox[{"Data", "[",
0 f2 H e; S Z6 \8 `3 G RowBox[{"[",
& T" S! a% h7 f1 U" o) o3 g- n RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
+ z2 g; |6 O9 K# j* @% d RowBox[{"x8", "->",
" Z3 O- D: O; A0 d RowBox[{"Data", "[",
4 e* I% a9 x/ k: K- J RowBox[{"[", % E* {2 c$ E0 z( q- h8 z( @. N
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
$ x* u) [: a& _& t RowBox[{"x9", "->",
3 v( H6 N% \* ]2 ~2 V' b5 I RowBox[{"Data", "[", 5 p$ G" D2 Y* K
RowBox[{"[", " Z4 y. i5 R. K6 ?$ V) M% p! U# Q
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
3 |: h( e) Q) O2 X9 u- \, ` "\[IndentingNewLine]", 1 l' j( ?$ ]9 A% |: I2 a+ C
RowBox[{$ Q& w1 a( H, a7 K5 G( v7 e1 p. v
RowBox[{"m60n21", "[",
+ ]3 j( K0 j8 {0 }: x RowBox[{"[", " w( T7 R1 m" f; z) P, N# m
RowBox[{"i", ",", "16"}], "]"}], "]"}], "=", $ s6 T+ d z! x: _* G) K% s
RowBox[{"u16", "/.",
& o' }% l; T: }" E' v! x3 ^4 K RowBox[{"{", 1 o# L9 b3 Y8 I) ~
RowBox[{
7 g8 T5 u+ f0 b# z RowBox[{"x1", "->",
( d1 \( f2 Y4 \# h( g- u RowBox[{"Data", "[",
/ \4 M+ L5 U4 v: h/ E RowBox[{"[",
3 n# t0 z M! H: M' P* X RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
% B* H6 q# Q* k# `0 S RowBox[{"x2", "->", % x8 s4 [+ T; V$ F* Z& S( `. g
RowBox[{"Data", "[", . P7 O9 Z% r+ t; s3 e8 K
RowBox[{"[", , ^, H* d+ U: z
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 9 G3 e% K- f+ u
RowBox[{"x3", "->",
. r' F" F; G: S2 V D RowBox[{"Data", "[",
$ j7 }! l% C! k: g RowBox[{"[",
0 R" ?, V6 w( ]) \) r RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ' v8 L2 E( f" m& ?
RowBox[{"x4", "->",
2 T7 S/ A: x+ w5 s% w# R RowBox[{"Data", "[", & ]0 Y- C0 `7 `9 q7 p" P/ e
RowBox[{"[", $ j) i+ C7 A: J5 }! v# C
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
" N0 I9 I8 K2 o1 z RowBox[{"x5", "->", 1 J" |# r% t W
RowBox[{"Data", "[", ! U T7 d. ~- s7 W3 x
RowBox[{"[", 3 Y. y8 Q ~; @
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 9 O+ {% f6 ^* l1 x
RowBox[{"x6", "->",
0 J1 @; E$ |" I" v3 { RowBox[{"Data", "[",
+ J/ B% b X9 m* F5 X RowBox[{"[", 9 Z7 s+ z, f; c J9 r6 w$ i/ d! ?
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
3 |0 t3 q/ @5 ^% V3 N. n RowBox[{"x7", "->", 7 b. V2 B, r2 |7 X4 [) y
RowBox[{"Data", "[", % e0 N' \! n# `& l, N# f$ M
RowBox[{"[",
9 ]/ i' n: H" ~& l0 s$ x8 [( C RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", + @9 o) }: G+ j l: r0 \3 y6 G
RowBox[{"x8", "->",
! g" A7 b8 x* S( V RowBox[{"Data", "[", # v; u/ U1 G( {, `, g! }
RowBox[{"[",
6 G% }+ [/ R0 S1 q, q& Y RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
$ H( T/ h& ^; D2 S* C RowBox[{"x9", "->",
! ~ E* |* ~6 G0 V' l3 q RowBox[{"Data", "[",
9 G5 `6 X. T- q1 `* M2 T8 E& _ RowBox[{"[", ! n: k: u4 s5 N% g( ?
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
- q! f" P) ~0 @6 L8 ?5 ~0 O "\[IndentingNewLine]",
. W( O- Q j! p# d RowBox[{
# M2 b+ o3 _: ~: T RowBox[{"m60n21", "[", , R& q/ V( [5 W/ b& `2 g) q8 j! n
RowBox[{"[", 7 G" I5 F" O: t! y
RowBox[{"i", ",", "17"}], "]"}], "]"}], "=", : F- s$ V* _/ w( _/ X2 F/ p" N
RowBox[{"u17", "/.",
/ D$ t6 e. u" a, A8 P RowBox[{"{", : t: o* _- q: e: k+ }
RowBox[{
5 c% P7 s3 H9 M8 Q- Y$ n RowBox[{"x1", "->",
* v0 U4 c3 m0 I. N" Y; ^! q RowBox[{"Data", "[",
- F6 ?) W- j0 a! ^! [9 C0 [/ ^ RowBox[{"[", # N5 x, o' ~! m
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
/ D/ l( ?* Q' x# [5 {2 \" w RowBox[{"x2", "->", x. T# Y! [" ^, J7 |, Z
RowBox[{"Data", "[",
% R+ ^$ h# }. E% p' k RowBox[{"[", 1 T: Z' }& R" X
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
3 {7 t) G8 i6 a8 s RowBox[{"x3", "->",
: R5 H3 w# X' k8 d2 k RowBox[{"Data", "[", ! _4 h" O0 F4 Y
RowBox[{"[", 8 s% n* S) H5 \, h5 E# o' o- ^
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
9 i9 }$ | b) |9 \5 h3 u RowBox[{"x4", "->", ! |% |7 }- [! G; M
RowBox[{"Data", "[",
6 g1 r8 v X& f RowBox[{"[", 1 j% P! b5 Q. |( w3 k( I. b
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 0 k5 a8 ~3 a' O7 K. M7 E
RowBox[{"x5", "->", 6 I0 X! c3 l! t1 r* j
RowBox[{"Data", "[", 0 k0 N8 r$ e; @* Q+ ~
RowBox[{"[",
/ O$ r2 {. L& o- z! x2 d RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ) {; I u; ^# s h/ D
RowBox[{"x6", "->",
+ p) |5 o: d7 {6 G5 `# { RowBox[{"Data", "[",
& J# [. f+ P+ F% G5 m3 ^ RowBox[{"[",
5 b0 L+ _1 ~; _7 P RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
! ~: c9 h4 C }) E# `% N t RowBox[{"x7", "->", n" {% G* q$ o
RowBox[{"Data", "[", 6 `& \4 X; t% c$ ~4 Z
RowBox[{"[",
1 v$ Q1 E' n2 c. ~% R9 f RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 6 g1 x9 C2 m3 ~! T
RowBox[{"x8", "->",
! z% j* p- O2 I" J2 Z RowBox[{"Data", "[", 9 z9 t1 K& u. O9 z0 ^3 M1 s
RowBox[{"[", ( S1 P7 ~+ Y' q" P
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
; L6 m) m* ]4 z- R% a9 j+ R6 F' j RowBox[{"x9", "->",
9 q! t' `- @8 {9 w4 s+ i RowBox[{"Data", "[",
* |. v& k7 x& F0 s7 x/ Y RowBox[{"[", 3 G9 C. u/ s/ o+ L6 T
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 7 s9 J& N# c3 M' b8 e7 _, x4 v
"\[IndentingNewLine]", ( P! P& K, W ?; ^6 `& ^) J% l4 o. Z
RowBox[{
1 U9 |# s; t, Z5 Y+ D& F2 K RowBox[{"m60n21", "[", 4 u B" t! N0 x& F! ^: J" o, l
RowBox[{"[", , o: {9 m) x2 t+ W9 Z1 K
RowBox[{"i", ",", "18"}], "]"}], "]"}], "=", 2 W) Y+ Q: v3 U) ?; l
RowBox[{"u18", "/.", 6 @7 G* y+ u0 k9 S% a+ A- b
RowBox[{"{", 3 y( U; {" V) c1 q, a
RowBox[{
/ d% t! b- B6 M( a6 ?. S! d2 i+ k RowBox[{"x1", "->", 7 ], x% @9 d' W1 S" } f
RowBox[{"Data", "[", 1 U# L( h9 ~4 h6 }9 e
RowBox[{"[", + T# j) J' Y$ y# ?; t' v
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 9 t; e3 a/ Z4 s/ x! Q1 ]! \4 m
RowBox[{"x2", "->",
2 v0 P0 d& U7 R/ ^ RowBox[{"Data", "[",
/ p% E) M8 m( J+ \; Z; D2 i9 k RowBox[{"[",
. ]: |3 J- T+ b9 M RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
3 W$ }) R* r# H, `! E( R RowBox[{"x3", "->", 0 Z5 {8 L' Q3 y+ X3 V
RowBox[{"Data", "[",
1 g% f! s, H& d+ R9 P. O RowBox[{"[",
+ n- U ]3 M! ^. m RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
6 ^' E& H0 {; h+ F RowBox[{"x4", "->", # G# x. O0 b+ r2 w5 I" C" Q
RowBox[{"Data", "[", 7 a2 s/ ? r; V% @( ?' L {
RowBox[{"[", ' D" @/ }4 y- N9 {8 D+ B, s! Q
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", " n3 c/ v/ m8 Q H* F' L# G) C
RowBox[{"x5", "->",
- T# [5 w2 J4 y: u* e RowBox[{"Data", "[",
! i. A3 W, o/ B2 o RowBox[{"[", : d1 ], g% a, H0 C
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
9 R: w. n6 V4 s! }& C RowBox[{"x6", "->", + U( k ^+ v/ e6 c: O$ G N
RowBox[{"Data", "[",
; [4 A, C' Z# ^! V1 H RowBox[{"[", 0 O( w/ r2 U E7 Z, E
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
6 e2 p3 x5 p r- v6 s RowBox[{"x7", "->",
& ^9 R( j. A7 j% e: d RowBox[{"Data", "[",
2 D0 D& O% L( t: m, n# l RowBox[{"[", ' z6 M6 |" b9 t6 s( j
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
& @ O1 @4 n m( M& O" U( f8 A* t RowBox[{"x8", "->",
/ g& X2 N: {/ C0 k4 V RowBox[{"Data", "[", 2 m9 o4 X/ F& R* m# T2 t4 m
RowBox[{"[", # ]1 z- `6 k6 A' d8 u. V Q7 N
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
# s0 i; ~6 i. X1 Q' ~ RowBox[{"x9", "->", - ~0 u. W9 J1 C$ d9 A8 s# D
RowBox[{"Data", "[",
7 C, W" ]7 n0 v6 g' z- p9 ] RowBox[{"[", 0 Q0 P% p+ d% m0 s7 p& _
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
% ~& O- V8 e4 `# ]9 ` "\[IndentingNewLine]",
3 r5 W! _5 g r RowBox[{; j. O2 x( x; B: D0 h
RowBox[{"m60n21", "[", 2 N4 @7 O2 c( t: O m1 L; ?) k
RowBox[{"[",
' u: Z, J# ` j( k- c: n RowBox[{"i", ",", "19"}], "]"}], "]"}], "=", 2 @4 a& F$ z9 @1 A1 P) k9 K
RowBox[{"u19", "/.", ) h& A! r! |6 [' r0 R+ v* T
RowBox[{"{", / ^" }; y4 u9 x+ w/ O: g
RowBox[{
1 I S+ c; D# w: O RowBox[{"x1", "->", 8 l9 S2 H9 [, p' N: Y( }
RowBox[{"Data", "[", & x% y9 ^8 Q! M- S8 C3 b: L% U
RowBox[{"[", " m w1 v: ?: ]5 k( y: f# A/ Z
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", / B0 g2 {" A3 X3 X6 E
RowBox[{"x2", "->", & U- @6 x1 o g, F! z: u' O
RowBox[{"Data", "[",
; K0 l& ^5 b0 m% l6 V RowBox[{"[", : I! o8 V) B4 c: [
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", - s, _/ x4 _0 p+ x/ v, \; u% U
RowBox[{"x3", "->",
+ \7 q' o+ `) e) g& o5 g: { RowBox[{"Data", "[",
9 W% h3 q# D( S$ [% ?0 t RowBox[{"[", W; B2 i8 }- s" r: V, \( R
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ( i# b4 J$ Q* k# m5 G2 V
RowBox[{"x4", "->",
# O: s2 Y% H8 C RowBox[{"Data", "[",
) b+ l$ B# B, g4 c RowBox[{"[", & o& [+ }( K; J, k V
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
: E7 K0 Y5 u8 i0 o" x; q& _0 b RowBox[{"x5", "->",
Z, z1 V5 l2 R# d' w- A8 ?& m RowBox[{"Data", "[", ( b9 A; t3 [3 I
RowBox[{"[",
" S# s7 p8 c& R4 [$ \4 {" L RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ( U/ j3 Y2 k# [- z( @! W
RowBox[{"x6", "->",
7 C/ ?, K. r# P5 m# a RowBox[{"Data", "[",
' I! [. l, E, n: e RowBox[{"[",
; s7 V! a2 g5 j+ C% _! Y( N RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
2 O: e$ s, s) W) v9 C' `) e RowBox[{"x7", "->", 4 C2 I. j0 V" t
RowBox[{"Data", "[",
! L. F7 F8 c- t RowBox[{"[", / N! P X& [' ] ^8 v! s
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", # G2 a4 s+ \3 j# ~$ Q
RowBox[{"x8", "->", 3 R5 A2 K/ ~6 x# m: ~% w
RowBox[{"Data", "[",
# t( t1 m. b! s2 J5 b& \- P+ P RowBox[{"[", . R- C$ V ]0 b8 I' b; I% f
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ( [; u: T: T: G. G3 |
RowBox[{"x9", "->", 2 H3 ^; W+ w" X. I
RowBox[{"Data", "[",
$ k# q# U4 v1 u7 _- n O RowBox[{"[",
0 z3 g% \) E! M3 h$ ~ RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", * S9 \# m: j' w2 X8 v' C9 ^: l8 q) ^
"\[IndentingNewLine]", : d; F; R- r3 K; O! N# e, [
RowBox[{
! |& |& o. h) R6 @$ v RowBox[{"m60n21", "[",
+ m o6 R; H; A: m) q7 g# b RowBox[{"[",
6 @0 q& ? }* ?- G6 e RowBox[{"i", ",", "20"}], "]"}], "]"}], "=",
8 S3 X& x# \% N3 I RowBox[{"u20", "/.", - S. W% _: C o Y; I) x+ F
RowBox[{"{",
) N8 A9 o, D' K1 f! p6 {- e' T RowBox[{1 f9 `) u3 y% k4 u7 a1 ]& S8 S
RowBox[{"x1", "->", 7 _& R% _5 ^4 {; m
RowBox[{"Data", "[",
/ ~" l3 T) H) y' W2 r, d RowBox[{"[",
$ ~/ [' C5 a; G% L RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ) c+ n. u) B! ~* o2 @$ z4 k9 {
RowBox[{"x2", "->",
# d6 [- }9 x$ Y( x RowBox[{"Data", "[", & I4 }- ^" `$ g6 n l' \! a, d
RowBox[{"[", 8 n2 i9 r3 e: K! [9 K8 J" }
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
, Q" B* t8 x* v1 ~0 F1 v RowBox[{"x3", "->", K8 ?2 R" J2 S, e" W" O( G9 K$ o4 h
RowBox[{"Data", "[", X# Y5 r. r3 a& I- ^
RowBox[{"[", ! H5 w' J& X" L7 U: M
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
. M0 H8 i& \+ w/ e" P& o RowBox[{"x4", "->", 3 q+ j$ R2 R2 p; t4 P, i
RowBox[{"Data", "[", : g/ H% l ~& l/ r% q2 I) E
RowBox[{"[",
, Z; |- r8 t& K: ?$ X4 I0 [; {0 ` RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
7 S% I0 ?) d; o# f. p RowBox[{"x5", "->", % M2 k( |; ~7 t3 |) o' f# u- B: O
RowBox[{"Data", "[",
+ F5 W8 G) |) L3 P. O RowBox[{"[", - u+ w4 l; J& ^6 b
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
1 k, t$ K1 z- @# @/ f RowBox[{"x6", "->",
0 \% ?% v8 I' {4 g- S' W& U- R RowBox[{"Data", "[",
$ N6 j! F* R* Y( o# u# p RowBox[{"[",
0 Z# @2 d3 J% F: L( y RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ) l+ |" [% G8 _# y3 g0 \# j$ H
RowBox[{"x7", "->",
% d1 j: _+ w8 n+ G/ X8 v/ @& ] RowBox[{"Data", "[", ( ?- |) d O5 E' ?9 ]1 e
RowBox[{"[",
9 z' c- _% X+ p RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 4 F. N$ K! T s
RowBox[{"x8", "->", % O! P2 j& `9 a' f: z) P
RowBox[{"Data", "[", . _: w! z1 _9 u9 R0 ?
RowBox[{"[",
5 s! l3 X" e# q! {. a/ z' c4 O RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", " l8 i( N) H$ k" |6 N, P. l- v
RowBox[{"x9", "->", 6 b- W4 E i- m* t p2 R: y
RowBox[{"Data", "[", - u" i! l0 A4 r& P
RowBox[{"[",
5 F" J7 S! i. P0 x4 [ RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ( r8 q7 D% K0 [, P0 ^# i( ?
"\[IndentingNewLine]",
. T# i% g3 B' L( {0 C4 R9 m4 y7 B RowBox[{
: e* @: E4 c" b0 {' @/ m6 l2 J RowBox[{"m60n21", "[",
0 H9 g( t( [5 y; H1 \ RowBox[{"[", 3 p3 g6 I8 T/ p6 M' H! v# ]
RowBox[{"i", ",", "21"}], "]"}], "]"}], "=",
! F3 \! d5 f8 T, B+ W. w- D+ ]/ P RowBox[{"u21", "/.", : X G! j0 S5 J Y: {
RowBox[{"{", % o, h, G: v- ?. G
RowBox[{7 x" J: C6 P2 `7 r& P
RowBox[{"x1", "->", 1 Z" [2 e' h+ J) e8 e% D' u7 N
RowBox[{"Data", "[",
# s5 {8 a4 [6 i3 g7 j7 ` RowBox[{"[",
0 V1 @' v& ]3 M6 Q; A5 f RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", : p! W- P% E5 ^8 U) Q4 F) k4 R; l% H
RowBox[{"x2", "->",
$ [) x1 v* Y" o RowBox[{"Data", "[", , ]' W$ J1 k9 k
RowBox[{"[",
# G2 M! h o! v a; ~+ z RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", # g: l/ R: S2 ]2 J
RowBox[{"x3", "->",
: I0 f' m6 P- D" I' B4 E RowBox[{"Data", "[",
+ ~8 B. _, p9 S4 o; _4 P0 e RowBox[{"[",
& T% X: M% `5 k; B3 b M RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
# z, \8 O0 u' w8 a) f RowBox[{"x4", "->",
( u1 M) [3 |* ?1 I$ E RowBox[{"Data", "[",
3 q% x, C# L+ ~8 b2 |' I' P9 U RowBox[{"[", % h: {' |8 f$ N' H; z- E
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 8 B. b1 l2 ]3 I# O
RowBox[{"x5", "->",
, U/ G! j, n9 N! |' p5 e RowBox[{"Data", "[",
( N# u! I- ^5 r* i, w RowBox[{"[",
; \& W0 j5 Z+ a RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 5 i( i; N0 x2 w% k6 o
RowBox[{"x6", "->",
5 c" [. j# D3 ?" I: V RowBox[{"Data", "[",
; q# r4 Z' H; t1 I# y, N% T# L RowBox[{"[",
; s- h _8 D( ~# | RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", - Z4 G4 V) D1 X8 t
RowBox[{"x7", "->",
4 X) j* f1 @: l, H RowBox[{"Data", "[", 6 y7 H; l1 q6 i+ E3 j; B, U& o) G) w
RowBox[{"[", : }$ K6 _3 {7 M( a- }- z
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
7 B7 X6 L1 V% t) v; n RowBox[{"x8", "->", + ^) w, ^# _ U* f w1 m
RowBox[{"Data", "[",
! C, N5 b" s4 \7 t' `( S RowBox[{"[",
! S9 `$ k5 \6 q; _' W6 e RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
9 l; h" K* S4 Q$ K4 p4 ?6 O* x RowBox[{"x9", "->", * q3 r8 ~3 k/ j% a2 K* G
RowBox[{"Data", "[",
& `3 P" ^# a p0 I, Z$ N6 y3 g# ` RowBox[{"[",
/ c5 y" Z! B! b9 t9 ]* S1 g2 V& r+ e RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}],
, A& p" ]: V% a o) V5 _, W4 p "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",. p: g+ u% b; t) P5 N x
CellChangeTimes->{{3.5779241165*^9, 3.57792417728125*^9}, {
1 g1 _5 a/ q3 b8 p2 m 3.57792428359375*^9, 3.577924585109375*^9}, {3.577958919491543*^9, / c7 p0 @9 a+ R
3.5779589224867477`*^9}, {3.5779619825731473`*^9, 3.5779620676400957`*^9}}],
! `* N, c& t7 M; O2 F" H
+ L O+ ^0 R' x- d. PCell[CellGroupData[{
4 z: P8 r J) e& \6 X/ R, i" `
9 N4 W6 }3 \9 Y) A' NCell[BoxData[
0 e: C3 M9 j" e1 V RowBox[{"w1b", "=", ' y8 U+ c5 [3 o5 {
RowBox[{"LeastSquares", "[", 3 E7 O7 i C, ?# B: |
RowBox[{"m60n21", ",", "y1b"}], "]"}]}]], "Input",
1 l/ j+ b7 D; l2 }3 T3 R* q CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {
: {7 q5 }# P& N6 U 3.577924662765625*^9, 3.57792466596875*^9}, {3.5779582865360394`*^9, & Z' A" w0 D4 F' o2 u j
3.5779582963172565`*^9}, {3.5779622900808835`*^9, 3.577962290377284*^9}}],
& a/ d, ^) P4 b* [3 j4 A; u% u% |" i8 k2 d6 R( p
Cell[BoxData[- B& J7 L3 P- v$ B) t: D- r4 V( C& P
RowBox[{"{", ; q. f' Q% m5 y) o
RowBox[{' ^- v7 { H, I
"0.48228184971363947`", ",", "0.16041393254115022`", ",", , d6 }) Y. K5 I" ?, |- U, N
"0.3741982811661129`", ",", # C. |+ c& Y; }! G& e& L2 a
RowBox[{"-", "0.12620581913715245`"}], ",", "0.28831860112966734`", ",", 4 }( \% T) ?% N
RowBox[{"-", "0.2282993884666894`"}], ",", "0.3207174990295839`", ",", 5 T! D+ H# v% m% I1 r+ _: s
RowBox[{"-", "0.4666313851213302`"}], ",", "0.27551257162880227`", ",",
; T8 Z: u/ l# W RowBox[{"-", "0.025873988843993667`"}], ",",
: ?5 r t4 n- M3 e7 n! Z RowBox[{"-", "0.1339854044819916`"}], ",", 1 ^; r- E- F: `
RowBox[{"-", "0.15852708848338315`"}], ",", "0.3129687276967983`", ",", & ^8 x! l. T E# Q- c8 e
"0.45723850991134063`", ",", "0.2954923840077215`", ",",
8 \. }$ Q7 ?0 [# a5 [4 q2 \ "0.9125798890455868`", ",", "0.21159052285983104`", ",", ! h0 a9 @( P$ ]+ J7 m N# i
"0.5575503376854456`", ",", "0.6019775648968265`", ",", - @% I/ v- [3 K t) Z
"0.2361524780938108`", ",", "0.12782130225993923`"}], "}"}]], "Output",
. B y' ? h7 h5 Z" n3 C7 H CellChangeTimes->{
! Z) _/ ` v' J" h' V: Y 3.577924621953125*^9, 3.5779246688125*^9, {3.5779582894220443`*^9, # e, H8 Q G/ Y- s! P8 L. j4 g
3.5779582992968616`*^9}, 3.5779584995700107`*^9, 3.577959040157753*^9,
4 L7 ~' ?! F$ k 3.5779622919996867`*^9, 3.578012447734375*^9}]' K; ^8 u1 Y5 C1 _# }
}, Open ]],
: u" o6 w% x5 m% {4 d* S5 ]9 v; G8 ]0 s, W9 f
Cell[CellGroupData[{( K% N% u9 O/ H E& j: Y! B3 w
( c! b' B7 v- K6 d' B; `
Cell[BoxData[& G" |# {: v4 z; y, t
RowBox[{"y2", "=", 2 Y5 @7 S0 @5 k& Y, u
RowBox[{"w1b", ".", . d9 y- a4 M* ]# t
RowBox[{"{",
s1 Z* e$ {' i RowBox[{
# i( x% X) Q6 Z- H# O& V9 r "u1", ",", "u2", ",", "u3", ",", "u4", ",", "u5", ",", "u6", ",", "u7", $ u( c! D; d3 T& I
",", "u8", ",", "u9", ",", "u10", ",", "u11", ",", "u12", ",", "u13", - Z9 F% b2 r, I( b B4 x+ s
",", "u14", ",", "u15", ",", "u16", ",", "u17", ",", "u18", ",", "u19",
1 B- r# u0 x) S9 Q7 ] ",", "u20", ",", "u21"}], "}"}]}]}]], "Input",5 C8 S4 U3 x% a( _7 ?
CellChangeTimes->{{3.57792471553125*^9, 3.577924755875*^9}, {$ I4 b1 E: U! ^
3.577924897078125*^9, 3.57792491596875*^9}, {3.5779583101856804`*^9,
" a9 M! y& S6 g% `& U. _ 3.5779583178920937`*^9}, 3.5779623163513293`*^9}],& k2 ^+ X: t3 j
7 s3 i) c( @0 b% L+ D6 Q5 t- TCell[BoxData[
6 u' i! c& j+ `1 i8 \! E RowBox[{/ l" @3 k: q. h4 z
RowBox[{"0.9125798890455868`", " ", 4 Q3 @. e' G0 t5 W( i; n& Y
SuperscriptBox["\[ExponentialE]",
/ M& @" X$ |; S! K9 M" K, L RowBox[{"3.141592653589793`", " ", % s0 S, T6 y& V- O4 c6 P
RowBox[{"(",
' ^( l- K8 z7 F7 |" ~ RowBox[{
7 S9 J- M- k, @# G+ v RowBox[{"-", ; z8 j: }$ L" O' X" d
SuperscriptBox[
# S, C- ?" T, b6 j RowBox[{"(",
) p4 [" R/ Y1 }8 i" m$ \ RowBox[{$ A2 Y5 [+ y& B R
RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
1 j$ n. L; {4 J7 A SuperscriptBox[& _9 t% D1 w- V9 G2 |& v* v! e
RowBox[{"(", / K: Z, C a+ N% d6 O8 S
RowBox[{
) h$ ~5 Z- z/ ^' P f( x* D9 X RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", ; A( ]" w; W! f! b
SuperscriptBox[
6 }8 F3 W$ r3 a) O RowBox[{"(", , D! P; Q7 h+ l6 n
RowBox[{
l0 [: P6 T9 c RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
" ^- R, @ U2 N) o b" w SuperscriptBox[# j- |1 A0 Z# T1 f; o7 [
RowBox[{"(",
0 n( D! J# F) L% n' y( L% w2 s/ H RowBox[{8 ?- V) _' S8 c! o* s, P3 {. @6 P
RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
" Q3 e. u1 `# V" s0 D SuperscriptBox[5 _- J5 S& M6 U! r
RowBox[{"(",
4 D% ?, o1 B4 h/ ^( K7 O1 `3 a) Q RowBox[{
& ^: Y* }% i6 f; _8 E ` _ RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", / Q! i/ J( y6 P4 v
SuperscriptBox[
3 w5 Z7 D% p6 U/ r% ^. H5 v3 f7 H RowBox[{"(",
8 k* }. A# A' W' r& K RowBox[{
. F C" W7 J' |! g7 ] RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", 9 h3 j+ G9 }5 d s3 n% W' n7 Z& F
SuperscriptBox[
3 B+ \# G5 H! K+ ~9 ?7 ~ n2 e2 J9 o RowBox[{"(",
" _+ a. h3 M4 ~5 e6 L: U! v RowBox[{! C+ z2 W: p' _6 a0 A5 q3 ~1 L
RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
" K- F! _: G" @1 } SuperscriptBox[
; Z# U! {) V& C; u RowBox[{"(", 6 } i/ n5 f, [) r2 }/ j0 c
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 7 X- N- |: ?+ X+ I6 \0 r+ s
SuperscriptBox[
& k* j# S/ q) r- F4 R6 \$ W RowBox[{"(",
. k; `& Y: j) _. s0 v2 J9 U RowBox[{
) |/ w4 D8 m" k0 V& q5 h3 J RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+", / \! f8 D/ Z+ i& O! m2 B
RowBox[{"0.28831860112966734`", " ",
% Q0 M6 w/ \- } d( Q SuperscriptBox["\[ExponentialE]", 2 H; e* i2 ^* ]$ ~- [
RowBox[{"3.141592653589793`", " ",
5 Q, d6 L8 e& c, A, ^$ D9 _- e RowBox[{"(",
+ Y. J2 |6 `- p/ f$ m0 l( D RowBox[{' M* o8 j: q3 o4 p7 y
RowBox[{"-",
- ?) |: v6 I! r7 g) b4 _ SuperscriptBox[
9 D$ a* [( G6 M* ?: I1 F1 b' W RowBox[{"(", 8 z. `( [/ E) D/ s3 j3 K
RowBox[{% e" c- z. T2 c' N9 T
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 9 E: j4 O* o: s9 V* S2 L7 Z
SuperscriptBox[
1 y( W+ J3 h. [4 n RowBox[{"(", 0 y/ Y+ }& @* p$ l4 \
RowBox[{
. p; t9 i; E8 |% k RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
* \6 J1 ]$ X' C8 B2 l1 @ SuperscriptBox[
) i8 Y8 y) R/ h+ d9 g+ d RowBox[{"(",
& z. Y6 _! N* e& K x RowBox[{
4 m9 J1 b0 ]3 \5 W: x RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", / X! q% [. W2 {; a- @& [5 `! x
SuperscriptBox[2 p5 t0 w P$ \: x+ o
RowBox[{"(", K* ]* g0 J8 f J! _9 ~. v, ^5 L
RowBox[{/ ?* b9 X' K) M- w m. {8 C4 _
RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-", . n/ x" @: Y+ @. e
SuperscriptBox[
( c& \! K4 h8 y( N; j0 ]$ K% O% P RowBox[{"(", 0 F4 Z" [' K2 x" W
RowBox[{
! q1 X, l; A5 b; J RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", 7 v1 A1 `# r1 N! O& R' Z! ]5 V
SuperscriptBox[
+ X z3 \2 k' Z! a$ ] RowBox[{"(", 1 `5 _# F7 G6 f7 N9 k ^& B
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
3 u3 b7 \# }+ O* g! T SuperscriptBox[
# L N6 e* V: x& k: x# K' X; G RowBox[{"(",
( z; a6 U' T$ n# C/ w8 C RowBox[{# r! c+ l5 g7 m; X& i, b
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
4 s4 K$ e! S) y# O+ V% J SuperscriptBox[4 C8 Q* q* S% A. T% S; X
RowBox[{"(", - ?8 E7 _4 W9 J1 F. W
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ; l2 D2 \! T) `# Q3 H8 h
SuperscriptBox[
9 W3 T' E* p; L" y. w8 a RowBox[{"(", 3 E0 e/ Z( K9 C9 c0 B* Y: Q+ P
RowBox[{
: p$ a. f' e0 e RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ) y$ i; O" p6 k; W$ ?! z$ E
"+",
: v, Q6 S' u7 E) R: S) t* d RowBox[{"0.21159052285983104`", " ", 5 ^- S# H% s4 C5 P7 J2 F
SuperscriptBox["\[ExponentialE]",
; ]* X$ P; }, f RowBox[{"3.141592653589793`", " ", 8 c+ b( N4 j2 s! W! {6 w C+ G
RowBox[{"(",
4 ]/ s/ l# n M2 J8 U7 j RowBox[{3 H8 z) I" R5 S( C9 v0 b' v# ?
RowBox[{"-", # U! d! X" ~3 Q2 r8 u- `9 p$ k
SuperscriptBox[1 e5 l+ i1 k$ L6 m7 ^+ f. P
RowBox[{"(", # |! _! ~6 I* `$ G5 Y* M
RowBox[{5 ?& J& Z+ S9 e1 z/ E1 {2 N2 C
RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
' [5 Z; M# ?; Z3 f/ x2 T SuperscriptBox[, V$ @3 g- b6 }7 w/ j6 r+ {! ]9 p
RowBox[{"(", 3 b! B+ W$ f5 O
RowBox[{
' T7 E2 h5 K& U' ]+ O. f RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
) ~, W+ e3 Y' I: ]8 V5 [ SuperscriptBox[8 \4 `, ?6 x3 P) A
RowBox[{"(", # h; @4 C( @# h% r/ S
RowBox[{" O+ B+ y$ c: g: u* P6 b
RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
7 m l$ l* H* ]5 y f! f SuperscriptBox[7 T1 z" h# J. m" f$ N3 ^7 ^
RowBox[{"(", ; b9 v7 W' ]3 R% ^" z$ N# ^
RowBox[{$ h, @! E1 V& E1 T/ i6 x* X
RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", / ]7 Z. o' q2 v
SuperscriptBox[
* C& g' A0 }. o# m RowBox[{"(", ! }) D" L: f; u3 O
RowBox[{
+ M/ |% K$ C5 [: r' b RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", . @2 W% y% H/ M/ g' {2 A
SuperscriptBox[
5 @: C2 z; _ y1 g4 m RowBox[{"(",
, G0 ^4 Y1 e9 U4 E RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", - a! x7 s8 \$ L; O& ^
SuperscriptBox[
) w% w4 r" f/ x) r RowBox[{"(",
, W5 R3 w2 }* k$ c, Z RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
: d3 _& K" J) V2 R7 o: S SuperscriptBox[/ \0 _& `8 F, x+ d" i( d
RowBox[{"(",
^6 r: d3 ~7 b+ j RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
5 F8 O2 { x: @. y SuperscriptBox[7 B0 \9 S* W3 O& V- u i$ b; |! y
RowBox[{"(", 3 T% Z' _: q; }; y) e. u6 a% W
RowBox[{, A) A5 M( c8 W+ M! p7 O$ H7 e
RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
+ y: ?4 |2 Z: \6 V "-", # J g. l$ d0 x. v
RowBox[{"0.2282993884666894`", " ",
: P. k. y4 J" T7 g+ O. R6 X* [ SuperscriptBox["\[ExponentialE]",
6 n- @( c( o: Y: J- p j7 ~ RowBox[{"3.141592653589793`", " ",
. Y0 `0 B) L2 M+ ? RowBox[{"(", 7 D8 R/ Z6 I: N
RowBox[{$ x+ S+ }8 Z3 l' N
RowBox[{"-",
! ?' v5 \# e, J! k SuperscriptBox[9 z# Y# B; u7 B
RowBox[{"(",
8 B3 v6 ~9 I" S5 j/ B RowBox[{
/ o! D# K# d! |1 M" B f: J RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 l( Z. Y. u: P# g& Z
SuperscriptBox[
2 M9 P4 S: X- D( q RowBox[{"(", 5 |! @( R$ C) e) k* l
RowBox[{
; e+ D% a* Z; C RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
5 i( M6 q0 ]- a6 r SuperscriptBox[
2 N6 A6 p; f, P- R, g( h* M! E RowBox[{"(",
* a6 p. v2 A4 A' v" a' v RowBox[{1 q! F7 N* ~8 [& l1 P
RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
% l/ ~* e3 d8 X3 P1 Y$ }( m7 @ SuperscriptBox[
- c2 c$ b+ U3 g2 u0 d& C9 { RowBox[{"(",
" p* z1 b3 |. @- P# V RowBox[{
3 n& o. C& k1 z: j. {# Z4 Z RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
$ G3 z9 M& D7 o; w8 s' @: y+ x K SuperscriptBox[
' v. L; H) Z( B/ l RowBox[{"(", 7 O* X" z2 W) Z& v
RowBox[{
+ R5 u! M0 n% I RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-", : G6 E9 w' m$ ` z! N3 H
SuperscriptBox[0 E; a0 Z' G& Q, R% o9 @2 v
RowBox[{"(",
" l( {7 y5 d- [1 J2 g* k RowBox[{
- P8 J: f' ~( Y4 U, s RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
C5 G5 s% A3 K/ k SuperscriptBox[) }5 u6 v# C) P$ D6 K+ N
RowBox[{"(",
+ s( X' _8 Z) b6 L RowBox[{
0 }: D- M" J( _. y+ J; C& K RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
6 L2 d5 \+ J- ~( c) n/ P5 @+ L2 a SuperscriptBox[
" }' T7 V$ S: J9 T! Y, [+ O RowBox[{"(", ; N& A4 \- u, z7 C; d
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ) d# I) q1 P7 ?" X+ i# \
SuperscriptBox[: R6 L! M6 h" n/ y! L; w% V4 t
RowBox[{"(",
7 v# \5 l+ v# J K RowBox[{. p A' M w# W% G' ^4 _
RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
! A, c' g/ t( I! p+ M! S3 {! w, U "+",
& O9 m, W9 y: _ RowBox[{"0.27551257162880227`", " ",
7 `2 h2 ]) C4 F: V4 x0 \3 h( t SuperscriptBox["\[ExponentialE]",
) U. @2 R3 o, N" ?" c! D- I8 w" N RowBox[{"3.141592653589793`", " ", ! b8 J- @4 S7 m
RowBox[{"(",
* G; n5 [7 v* F9 C! X RowBox[{
4 }& J( S& b; V RowBox[{"-",
. ^1 K P9 o b# Z! G SuperscriptBox[
+ N5 m( L. K: i) Z RowBox[{"(",
# ^! R: A9 V* ?' j& U- G RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
) K$ a% d" ?' P0 v6 Q9 A5 c SuperscriptBox[
$ x' a* o6 ~' q. Z* Q- C RowBox[{"(", ' Z2 s& Q, E# Y. r' ~
RowBox[{$ X; ~+ Q) P) c/ R2 Q( s$ N
RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
4 {% V$ C0 ~7 B0 N& q$ C: _& M, W SuperscriptBox[
6 c4 I1 [0 }7 ]9 O x' n$ R7 L' {# l RowBox[{"(",
# B! X" u. f: A K; A3 g% o$ W RowBox[{
$ l" {# W& k- ]7 a" X/ D2 B RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
1 @ H; P; u' o: {/ R6 j9 h6 a SuperscriptBox[
$ O( X5 \$ x1 s/ N7 n RowBox[{"(", ; u6 q9 ?- v1 w& I. P" ?! J
RowBox[{) L: S' ^- V- Y& O: d( f
RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
) o0 x- u3 c U5 R SuperscriptBox[
1 a n) P% U! l RowBox[{"(", , r5 F- A& G B1 Y, O2 w4 H1 R
RowBox[{3 Y' l4 W# X/ k h7 R
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", ' }- ~6 K3 t0 |' ~( ]% [
SuperscriptBox[# G/ a6 [1 \$ o, n8 t% G
RowBox[{"(", * h v1 U( S% P, b2 X. {
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", * t g, |: @+ p" ]
SuperscriptBox[
" Q' P+ F7 b. P3 H, | o( H, \8 B) g RowBox[{"(",
7 x7 z3 h9 P4 Y9 l D. K. v RowBox[{3 o F n8 @( S
RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", * n- d# j$ v$ C: M
SuperscriptBox[- t, z( G7 s* H7 G" [
RowBox[{"(",
D4 i+ f- j6 H+ N& C RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", $ v/ W# |* D2 F+ K3 F- a
SuperscriptBox[
& E/ _) X; m# b" B RowBox[{"(", + p7 M0 i$ [' h, W( F5 z
RowBox[{
' W3 ]+ S. c* L" K4 w) g/ w RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 6 @; H: v/ v* L
"-",
) Y* Z& \( Q! w# ^2 |: H. } RowBox[{"0.12620581913715245`", " ",
( D' t* m3 z4 R* E, x- R1 A' c# m SuperscriptBox["\[ExponentialE]", 0 X& p# V' [) P
RowBox[{"3.141592653589793`", " ",
+ S% T+ j" \: f3 k: G$ b0 m: X RowBox[{"(", d/ M6 p( F8 l7 ]; @. o0 s: Q
RowBox[{, @3 f9 \6 t5 I7 P
RowBox[{"-", 9 v; v4 Q. o- k9 R5 M* M
SuperscriptBox[
3 F: ?$ S* `4 A D. b! ] RowBox[{"(",
& t& q0 }/ }/ C/ v9 e' A6 M RowBox[{+ X; I+ Y# f5 c! B2 x; T7 \. |
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
0 n9 r" ^* L# |, ^" N SuperscriptBox[6 W/ I3 F7 X2 A8 ^3 \1 u
RowBox[{"(",
6 `8 k/ U# b; c1 ?! r RowBox[{, L: x+ v2 o# ~9 I4 W9 ]1 E
RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
8 ?4 n4 X) E/ \# b8 Q0 X( N/ g SuperscriptBox[
6 `. `6 x9 K7 _- A1 E8 G7 b RowBox[{"(", # X, { [. k+ O
RowBox[{
% Z! w, T0 M+ X) n RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
% d' ?, o. B. ?, E SuperscriptBox[ c& H5 C" V" d& O0 f+ g
RowBox[{"(", 4 P4 |9 r! A' W% }* T$ y
RowBox[{) e& Y/ e) o2 E9 ?) N
RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", ) k+ A3 e9 T! X0 W6 Z
SuperscriptBox[
! r9 b/ I5 [, b* B- Y5 F RowBox[{"(", + a4 m' O8 k3 v+ \
RowBox[{
+ O1 F& k" [! z: ^ RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", 2 p6 g% H+ A' Q- g- t3 Z
SuperscriptBox[
; Z$ \2 f3 f8 B+ a, B7 A RowBox[{"(", : h5 i! t! ~1 V5 e3 v
RowBox[{$ X. T9 B7 |, y
RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
4 T. k6 {" a. j) P SuperscriptBox[! O& B3 C6 y* }. O3 \5 V1 a
RowBox[{"(",
: V2 U% O; {3 _+ ~" l" q2 H% [! V RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
1 X" m3 [2 L4 }' ^4 j SuperscriptBox[
. E3 U3 p2 G5 ?6 Q; z p RowBox[{"(", 6 ^9 g2 I& m& B) O9 M" |
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", T- f2 O: y5 w7 m _
SuperscriptBox[
4 ]' p/ K0 W5 `" z7 x" j5 x RowBox[{"(", ) Y" m& d' p; D% @
RowBox[{
4 S2 B7 N3 d e0 N/ H* J# E: G, h RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], + N0 o8 |' m" J: q- J3 ]
"+",
% J7 \! n; K1 l% ?2 ]% [ RowBox[{"0.12782130225993923`", " ",
; _" |; u7 B7 K4 O SuperscriptBox["\[ExponentialE]",
% E/ H, _ A: P: a RowBox[{"3.141592653589793`", " ", 3 X' Y- o: F4 N) h* L& g8 X) ]
RowBox[{"(",
, v4 ~& p8 F/ |7 \) ^/ _ RowBox[{
: x8 Q/ K5 H3 i% Q Y RowBox[{"-", 7 v" o1 A4 [- s: j$ ~
SuperscriptBox[3 v5 n; z: l) a6 [
RowBox[{"(", : @4 M1 t W# x+ [8 u
RowBox[{- B1 @1 q1 A4 n% Z& d4 H C9 ^
RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
% L# P( y* ?, U; E K) V3 y SuperscriptBox[$ `+ A. U: ~ e" ?7 C
RowBox[{"(",
6 X) i9 t8 @0 w# Q RowBox[{
9 X0 X5 C. G( L+ d3 b) X, k, x RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
8 d# a( @2 l8 Z, N SuperscriptBox[
4 Z4 c2 ^8 A) K. Q2 f RowBox[{"(",
: R& ~& a0 z' H4 \6 I. e! i1 b RowBox[{1 l* ?( K( a- y6 t* v+ z- P
RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", 5 l# o" l# ^5 I: j- ]
SuperscriptBox[! R4 n% ?2 t" E0 x( M! f. M
RowBox[{"(",
$ Q0 A, r8 Y. Q RowBox[{
* v* \: a; c9 p! X3 ` RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
- S" y. C! B. a" E9 ?9 v. d SuperscriptBox[1 y9 h* O) U4 ^2 C/ R
RowBox[{"(", $ Y! D( t! M( W6 q" c% P
RowBox[{
- R$ o7 |! P l' H7 {8 T3 w RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
: {8 e$ Y! U2 j SuperscriptBox[
+ B$ B( c+ H5 W RowBox[{"(",
% _. h4 E1 k0 _- a RowBox[{3 e! l0 C7 M |
RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
7 Q1 w/ F' w" ~2 v. M SuperscriptBox[
- g8 N" o% ?' v# s6 g9 h& B& G RowBox[{"(",
5 j- n6 n$ h2 x3 o) R# M# l RowBox[{
) `0 I% E1 M0 ?+ r. J. ^9 ^* M RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", 4 i( D" a' w# m+ @
SuperscriptBox[/ E7 `3 }& Y5 |) w4 p
RowBox[{"(", ' N9 @- N4 t7 l0 x6 P }7 F* f
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", * v: m! L- z# y/ p0 D
SuperscriptBox[
1 Z1 y( q0 v( A, c RowBox[{"(", 9 N1 |, G4 K J. D2 ^7 x, N
RowBox[{, G. i+ k9 ^ X/ L4 @+ |3 Q; \$ e
RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], : l/ G4 M' h4 w ~( d h- _( f
"+",
' @1 R1 `: l# x, X. o7 g RowBox[{"0.2361524780938108`", " ",
2 F ^& J, f- N P SuperscriptBox["\[ExponentialE]", $ n/ A! O+ k4 T% o
RowBox[{"3.141592653589793`", " ",
. W) H! g) _7 q. O2 _0 w- d+ n RowBox[{"(", ; I9 Q: M' T+ J: n; s0 H
RowBox[{9 I' T. ] R0 J0 F0 f
RowBox[{"-",
, o9 C) L! }! E" O% y% f5 B SuperscriptBox[
8 U4 w; w( W; T; ?0 _. D RowBox[{"(", 7 h: M5 d. T& h; Z0 @* I$ z4 i7 J( y
RowBox[{ Q9 R! l) i6 Z/ P4 V$ q/ z0 A
RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
+ ^0 J( m- a0 X# v1 v( ]. `( q SuperscriptBox[
& N+ l* z8 i- c$ N1 _$ o# H RowBox[{"(",
d4 F1 ~5 m' n2 }1 D7 y6 N. X0 Q RowBox[{
* Z5 [+ M" `: d V8 e RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
) O) j- N* M9 c1 \2 P: p SuperscriptBox[
. X; r+ c* G3 `, E. N5 U RowBox[{"(",
) V$ x3 d k+ Z; ` RowBox[{
; E3 Q1 U# h) b& g$ z% T RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", 4 g4 ^! m& m& ]! s# i
SuperscriptBox[4 g* t Z$ ~9 a
RowBox[{"(",
2 d' i9 ?$ I4 G" C% j! k) A RowBox[{$ a2 G- M B; H7 P6 v9 q4 u, `
RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", * w+ k& X8 e4 H l* k* k
SuperscriptBox[
4 j; ], U- u( }, s m RowBox[{"(", * `7 v! _* a& V" M; [7 H* x- J
RowBox[{6 I* D- ~3 N3 I) |5 A
RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", 3 \0 y1 f: W0 A9 Z
SuperscriptBox[
) Q: A: j7 A* O RowBox[{"(",
2 J) P8 a& h1 k& ?6 R RowBox[{. g# ^; [1 ? y+ s; Q* ]9 i9 C% T9 D
RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
% H @9 S( O: L5 z4 I SuperscriptBox[
% n _ O$ k# d5 O& l( Y* H RowBox[{"(",
" V6 i0 p+ W1 \9 Y6 u( H5 e RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", * ~' K: o# T* \( }$ {
SuperscriptBox[6 k7 I1 f& j4 j0 X- y6 I! h
RowBox[{"(",
* H- j N9 s4 ~9 q6 v4 T$ J RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 5 I% }! a! z; K% [' b2 G5 y" Y
SuperscriptBox[! ]5 f8 C: i$ V5 g
RowBox[{"(",
, H5 o% N5 J D: ]4 S RowBox[{" }9 s, e6 }! {2 N1 n& q# x
RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
7 M, y1 A ~& ~. D! W "+", ! n" e" S& x" U: Q
RowBox[{"0.3207174990295839`", " ",
" E" Y+ g7 w; @ SuperscriptBox["\[ExponentialE]",
- o: y. I1 d: A; c* s* D RowBox[{"3.141592653589793`", " ", ) U: |1 W, n3 A2 t' J
RowBox[{"(",
6 z* a) Q+ z h0 y1 G+ r: T RowBox[{
' D1 i5 x, ]$ Q% e RowBox[{"-",
0 w' n+ w' @) O SuperscriptBox[# x7 V$ u: f2 [3 P: {
RowBox[{"(", 6 x- p2 z, s* B6 ]
RowBox[{- h5 c. Y- {9 C! o: \/ Q
RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", ) ]: L5 u. e. \9 C. U
SuperscriptBox[5 J' R7 A5 t/ j k4 `" s
RowBox[{"(",
3 s2 T' k d& V% H. S7 r RowBox[{
/ E5 ~- O1 V6 s' U9 C RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
7 {/ c) v8 L# i0 r9 s SuperscriptBox[
( S& D, J1 Q& l+ _* ] RowBox[{"(",
7 E+ u& f" j: t RowBox[{
, f* T: k+ R* z& D6 F8 D* ^ RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
! d# M* j9 f8 J( L8 F SuperscriptBox[
, |, G) C# x( f; g) c } RowBox[{"(", ) V4 _/ F$ D( {+ A2 T# M
RowBox[{
% _ B4 j4 }$ b2 w3 X8 z RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
1 i$ d" v; b) x SuperscriptBox[2 m* ~; K- ?1 i& }
RowBox[{"(",
) I" I8 Q, M, I RowBox[{: Z7 v9 v7 C1 s2 [
RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-", 6 c7 X& z: R( M7 p/ ?7 K
SuperscriptBox[9 h. j) {6 u/ w
RowBox[{"(",
! {3 B% d+ E2 V7 c' x. O% }. \ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 8 ^% |2 ~4 R l0 x+ G4 C
SuperscriptBox[
. R& C9 {/ E4 P! |# `; l7 v RowBox[{"(",
; r7 V: c* C9 n$ B( B7 ^) l/ Z" ] RowBox[{
# b2 d3 S* I; ~' c& m( D RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
8 N9 [2 w% {2 c8 G: h7 } SuperscriptBox[
, ^9 G0 ^& b, s0 B2 Z! I% Q' R RowBox[{"(",
% ]" ?, a. a8 Q2 i- } RowBox[{
; k1 i7 a1 r7 v9 M# Q- s RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", ! g0 u5 w5 }: Z. C6 F
SuperscriptBox[
( r$ J9 \- p9 s/ [+ ^! g* y RowBox[{"(",
( R* I _* |& s& z& g RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
2 t$ ^3 P$ H1 W- H, I ")"}]}]]}], "-", & @4 u: u7 P, w3 [6 J. @
RowBox[{"0.15852708848338315`", " ",
! W u1 m, F3 F6 s SuperscriptBox["\[ExponentialE]",
/ M3 e z: U; ~& g RowBox[{"3.141592653589793`", " ",
# U! Q' W& `1 n/ a1 u RowBox[{"(", 5 D" b* _* H" O- j: C. D( H+ |
RowBox[{
* z. p; G/ ~* _! Z s. Q! K RowBox[{"-", : I3 w. u5 j7 l9 ^: v* K! S
SuperscriptBox[
1 u9 M+ n9 v' t+ [* c( { RowBox[{"(",
+ R% q K4 M( t RowBox[{' m. \6 g3 j1 T: c* G4 F
RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
8 L# K% ~# q) T! Y- q. E SuperscriptBox[
: K! F, L9 `7 m* X/ Q, q, Z RowBox[{"(", , S3 j9 U3 X' L2 z0 R( @% A
RowBox[{
" W0 w' k& y! y, F; O, F/ }* _ RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
& e+ T: ^( o. N4 ? SuperscriptBox[
9 S8 D& Z- q9 P& x RowBox[{"(", 0 q- _/ U* @. L
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
1 B4 z6 t4 L7 { SuperscriptBox[; B. n/ L' e$ F$ R
RowBox[{"(",
; s1 y$ z3 o+ W; i RowBox[{7 @ O, ^% ^, U" G# L/ B# b
RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
U+ _" W$ I9 R5 h l, _# i* z/ ]# h SuperscriptBox[
$ Z" t/ S, J: H" x RowBox[{"(",
) J7 g! p1 g! c0 ` RowBox[{
; h$ L% d8 P- I% _7 j RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
% ^% }3 {3 N- P! Y SuperscriptBox[. o+ @. g# j# y8 Y6 _5 G2 T
RowBox[{"(",
/ i" ^- R( e# N2 ^! ~7 n RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
/ R; @+ k; a( `* }" e8 ^5 w SuperscriptBox[; A( [5 n$ R7 O& M1 I, ]
RowBox[{"(", " W2 x# w7 W1 Y3 Y- [) ]
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
1 z l- u6 r8 D1 E9 S! y SuperscriptBox[# T! ]5 H# j# X4 v) n
RowBox[{"(",
M2 T7 x) c5 O8 u- V1 k RowBox[{
6 v8 [ [0 p& Y( U RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", ! v2 ?/ H$ l% c. E. p) h; d7 H
SuperscriptBox[
7 H2 Y6 y$ c5 h+ x+ t: ] RowBox[{"(",
/ V# P7 ~1 k/ ], y RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], & N7 l0 z9 ?) d1 V/ f. K+ ?
")"}]}]]}], "+",
! e2 g+ m0 w h. u/ Y4 u0 h# Q RowBox[{"0.6019775648968265`", " ", 1 l( e7 j/ Z, j5 t! M
SuperscriptBox["\[ExponentialE]", 0 u' e2 a4 I4 E& F! u3 L) Q
RowBox[{"3.141592653589793`", " ",
: _$ d7 m8 W' H9 |4 W+ _8 P- k RowBox[{"(", * g! e: F7 X) X
RowBox[{" g2 Z# L: t% [* D$ D- G( v
RowBox[{"-",
2 G" \+ l/ z* P' p* q) J9 k) ` SuperscriptBox[# U4 o$ } K. Z B A
RowBox[{"(", ) v; n+ s$ H1 ^5 k" c$ i2 e: w
RowBox[{+ V5 q% H& @) z
RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", % @; I3 ^1 e( n |# j' p; D
SuperscriptBox[) M6 H/ ~' M$ t k
RowBox[{"(", ; j5 Q- Q4 i( m3 g s% _4 @% a V; }
RowBox[{
& G& G/ t: g( d" s- p" v RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", ( k3 e; y. O, K9 a
SuperscriptBox[
9 ?' U; h/ ^( t W( c RowBox[{"(",
* T' J4 c& x5 B$ {$ i& ` RowBox[{' H3 d( Q2 S$ c9 J) M
RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
, ~9 E2 Q. B& S o6 A. G7 w5 @ SuperscriptBox[
$ U' w4 {' V, @ RowBox[{"(", 7 d, V; O y7 @' ~) X
RowBox[{4 q# w1 \& K* P k, F- G2 Y
RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
f1 ~1 P) }. ]9 y" p9 o. Z/ X7 i SuperscriptBox[
9 Z/ K$ F; I* n$ f RowBox[{"(",
4 K% R. r+ G" x k RowBox[{! O2 P- `0 C" i! K% Z5 I+ W$ I
RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
' u+ N9 c0 u# b9 M6 q) i/ a SuperscriptBox[
; y3 m0 S8 b. b+ j RowBox[{"(",
0 `9 w/ i$ U$ V RowBox[{
# r W- m- V& ?8 j0 S RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
4 I, e: J9 m: l SuperscriptBox[) |: u2 U0 m0 }. i0 t' a! Y
RowBox[{"(",
7 ^4 }; ~6 D# w& e+ w5 j RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", / D- R' }/ `6 H% C
SuperscriptBox[
6 `6 l7 G) x1 r0 B$ z8 E; s RowBox[{"(", ' y8 t: ^, L& t7 }# V2 j- r. U
RowBox[{
! h/ f% b# @ U" x3 \8 v; i RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", 9 N/ P e* [7 {' q$ }! {/ q
SuperscriptBox[. Z% ]) e Q/ c4 ]5 F1 p7 V/ J
RowBox[{"(",
" z' T2 ?# b6 @ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], - i' m: `+ S3 l y9 C0 t! b
")"}]}]]}], "+",
2 c7 v$ k5 w u RowBox[{"0.16041393254115022`", " ",
4 h7 B3 P0 T% ]0 x+ Q( j5 O( E SuperscriptBox["\[ExponentialE]",
9 ]0 D* l8 {7 W8 T6 O RowBox[{"3.141592653589793`", " ",
/ A: K& F% V1 c. D+ a2 a RowBox[{"(", % A z) A* K4 f! {4 `0 d
RowBox[{
/ e! V* n# Q1 x2 A: ?, D RowBox[{"-", K6 G% P- }5 U0 ]
SuperscriptBox[
$ Z# E; Z0 {6 y2 @$ x RowBox[{"(", 8 O: {( P- e# B& M- L* z, S
RowBox[{
7 B. p" Z8 t+ R, s" Y( D RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
7 {4 w' l! j, B/ I; n SuperscriptBox[8 L! Q/ u5 k- ?7 Q8 D
RowBox[{"(",
" v0 E5 h- ?% D1 T- r- g( G RowBox[{$ ?) R9 d- L" ?1 Q( j7 k9 P
RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-", / X; D; E* s5 O w" E7 j
SuperscriptBox[
) ~. n& i0 n+ R% s5 u/ y RowBox[{"(",
$ H5 ^, |; A- A7 v. Z; ] RowBox[{2 f2 i1 W! |( I5 ?" s3 A
RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", 8 Z" S; g& Q2 g7 W4 c% H
SuperscriptBox[
- V- I% Y6 z+ E- ^+ @" G+ U RowBox[{"(",
! |, w8 Z7 V9 u9 u3 f: n RowBox[{
" O1 c! i/ V' N# q RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-", 1 N: f0 |! k: ^5 P
SuperscriptBox[# J' F0 U( L+ h; }- f; i1 a6 Q
RowBox[{"(",
9 a/ u- g5 b' R& u# r+ ^( U9 a; [ RowBox[{
9 E0 |; ?, l/ G: O9 s7 H6 O RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
6 s8 r+ w7 Y# v) q SuperscriptBox[3 _0 R& a% X2 A; C1 D8 }
RowBox[{"(",
' Y+ C9 N3 k/ ^7 z: v; r RowBox[{' Q) b* E* K( O$ R. Z) D6 h k0 \
RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", 6 Z: f% n7 M# _$ L) c
SuperscriptBox[
: v7 a" j! D# r0 J1 b RowBox[{"(", + o: L4 Z/ ?9 v
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
4 `! s2 W* Z3 k5 K) j( x SuperscriptBox[
' @/ [, N* ?0 b$ t$ D RowBox[{"(",
9 |2 ]9 s* Z1 O H; P7 b RowBox[{& A0 ^$ j9 i$ D
RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", ' ~1 b5 {! L. k" A! A
SuperscriptBox[
% ?) M- W2 Q2 A% u7 i RowBox[{"(",
5 y+ R$ c; k% w4 r- V3 R9 b2 X RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 8 K7 v4 E y. C; X; {" n
")"}]}]]}], "+",
5 M" Z" U+ n/ l6 f( b. e$ T RowBox[{"0.48228184971363947`", " ",
* F& L, i/ T5 |! j" C3 g# N SuperscriptBox["\[ExponentialE]",
, C) J/ N, \4 n/ x; ^ RowBox[{"3.141592653589793`", " ",
. H9 L8 b3 {! c" ~ RowBox[{"(", 7 G: h, K4 l# g+ L
RowBox[{
8 B, |$ Y4 A/ s' i RowBox[{"-", 4 v$ Y4 n: |2 n& B" P$ _
SuperscriptBox[; h: }6 z, @% s1 R& c+ |$ o
RowBox[{"(",
K, i. l: q2 u: I% b# P& n; | RowBox[{) }, w+ \; F# ~3 d2 A
RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", ( w2 @+ O6 Z1 H: C- ?4 B
SuperscriptBox[
3 r/ u% a% _. ^ U' w2 I RowBox[{"(", % |1 M8 I. {: G( v* @, P/ ]+ O
RowBox[{
$ b e0 C0 D0 x0 F* |- |; [ RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", 4 B$ z+ J7 k( F+ `
SuperscriptBox[# Z% h p, E/ Z$ R
RowBox[{"(", . g* A8 i6 v. B0 f% p3 z
RowBox[{
% X( Z# w, ^$ n" R. I' [1 S RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", ' c7 y* A* M# O
SuperscriptBox[; ^- a. b7 K& H9 R3 H
RowBox[{"(", 6 K! A9 Y. m3 l% x7 n
RowBox[{
. X7 ]3 J, T# X RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", 1 k, X' e: {+ u" @
SuperscriptBox[
1 P/ O0 G- a* u% J RowBox[{"(", 9 r0 g6 I5 X# i
RowBox[{
, N- y) }, |, Z3 h& K: p# K' ~ RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-", 3 S/ [2 c+ k# P
SuperscriptBox[# ^- H6 C8 W7 `2 w
RowBox[{"(",
, L$ E5 H- f$ h/ v, q RowBox[{
& s! \1 p1 b3 E8 u4 k# e" H RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
& H' P) o4 `6 e/ r5 A' P$ g SuperscriptBox[
; z# n) W. |% f3 B. z6 z$ l RowBox[{"(", 2 ]3 B4 f, W; p, n, _# s
RowBox[{
+ D4 Z, N, P* x! j3 } RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
5 X8 t a/ L( h# _0 L( j" A SuperscriptBox[
: O$ G; g4 m \7 O RowBox[{"(", . {: ` p5 |2 K! }. h7 {. r
RowBox[{
; b0 ~/ K+ w1 P \0 { RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
1 ]! @4 ~: G* A! ` SuperscriptBox[7 F6 t& @" T1 V2 R( `' I
RowBox[{"(", ( [8 Q6 E+ t( p7 _* Y) P8 Z' a9 S
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 2 h: c- k9 ]) k
")"}]}]]}], "+", . S6 E* Q: i) t* \( t3 C+ D* q9 c
RowBox[{"0.2954923840077215`", " ",
1 ]7 |- f; z; l1 L+ p t SuperscriptBox["\[ExponentialE]",
& ?2 n" P- \9 C B: \ RowBox[{"3.141592653589793`", " ", 5 q! i6 @& e; h& Q! A6 q/ W. ^+ m: a
RowBox[{"(", ' ]/ J: h/ B/ l+ H9 ]" K4 W$ I
RowBox[{( b5 g$ p, R. ]* a. h( ~* n
RowBox[{"-",
& S# F& s# U4 g6 n( e: }, i" } SuperscriptBox[
1 w% Y y8 E5 r- [2 e; L4 _* @ RowBox[{"(",
7 r8 N" n N( r7 l# u$ @5 r' E RowBox[{# z7 q% _) D' b: p
RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
5 `9 Q* }7 \; C% Q SuperscriptBox[) ]2 K8 K# K9 d# `5 s5 T" f2 ^
RowBox[{"(", * \( [, t @0 C) y
RowBox[{
" c4 c; K/ o: d! e RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
& d( `$ v r+ I# K, z SuperscriptBox[1 L& k n& Y$ i
RowBox[{"(", 6 A: e6 d+ _& H( f0 E+ F2 j2 d
RowBox[{
: p2 Q5 Y3 H0 h! E0 W( y1 q RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", 8 I9 b+ g% I/ ?2 I7 S) J
SuperscriptBox[
1 s% ^5 p" Z, H" F, j8 Z& }) ^ RowBox[{"(",
/ R3 Q% F4 R9 E( g7 `4 X% k RowBox[{
D. a7 } ^8 Y' J& M5 ? RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
2 ?! Q: Z$ l9 i$ S5 I* f SuperscriptBox[
3 C2 y; S$ B0 p RowBox[{"(", / o: V1 x# d" Z' P6 E
RowBox[{
- b( T ]* s, X8 y0 ], n RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", 3 M. X y o! @& T
SuperscriptBox[
7 L9 G) R% N8 w/ u RowBox[{"(",
+ j/ B4 F' Q8 f# U3 z' C RowBox[{9 G/ h! V- j4 ?. b6 j/ q
RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", ! ]8 H B' K# r9 Z
SuperscriptBox[3 ^5 T$ E; p# {1 c: S) k( z
RowBox[{"(",
- D4 H( b8 g0 F RowBox[{
1 P7 a3 y! C0 _* T! s. t7 Z RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", * d) R* E+ u( r! r/ t& }' J
SuperscriptBox[1 W+ `$ \1 R) H2 ]4 C
RowBox[{"(", : o% o) F0 l8 H
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
" e) l4 O, {5 o9 G% d$ N SuperscriptBox[3 j' e: h% [' S6 g
RowBox[{"(",
3 D2 x/ t! s$ J! [( Z) ], V% h RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
5 B7 x, b+ J, h% C6 R9 O! ^$ {7 L ")"}]}]]}], "+",
6 Q+ A D, d Q/ E: |$ l& |1 z, o& _ RowBox[{"0.3129687276967983`", " ", 0 \- ~) v6 J* O, a: `" T; i/ K
SuperscriptBox["\[ExponentialE]",
2 O' n) N4 d3 r. @ RowBox[{"3.141592653589793`", " ", ) u) ^- c5 k% a: y9 t3 @
RowBox[{"(", ! V! c; N) G8 ^! h
RowBox[{( m) u0 A3 |, X; t0 g
RowBox[{"-",
* `7 K" n' Z8 Q! f SuperscriptBox[# N! T8 C5 P# J3 R; Q
RowBox[{"(",
6 T6 r# D- \+ u6 Z2 d RowBox[{
; a9 F' Z! ~9 b3 c( A RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-", + k5 r! ~% O7 K5 M x4 {
SuperscriptBox[
9 l$ o4 c3 ~7 c% k& P' j2 `+ j RowBox[{"(", " M3 V8 r) W" A h
RowBox[{
: A( j& N. ~* p* Q& Y" e RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", 9 c3 f5 U* g* S) u- o
SuperscriptBox[% m4 v+ t" O; J& x; L$ ?
RowBox[{"(",
: {7 }2 Q9 h5 D8 U; K RowBox[{! t. f8 B- I+ S; P k
RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", - Q) f6 ~9 h/ e( I+ n5 l
SuperscriptBox[
: l( i# R1 v# b$ N N4 ?' B | RowBox[{"(", 5 g g) z0 `- d
RowBox[{
- ~2 T& J6 O, ?9 }& Q' p. R" | RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
' L. F& h* ~% D+ [ SuperscriptBox[
2 b6 a( b) y& r RowBox[{"(",
/ L+ X( g$ C; K. } RowBox[{, ?5 Z2 t4 ]# O6 e
RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", $ J c( K7 o) }) T. S
SuperscriptBox[
, W# q7 {) C2 J' z8 \+ q$ o$ U RowBox[{"(",
3 K) ]* [" |0 d* G9 X RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
$ P5 C0 @+ p8 e( w! B# x7 l SuperscriptBox[
0 Z; P: ~ W7 \; S7 o& B RowBox[{"(",
/ E& Q' c* `" `, K- R5 }5 [7 M RowBox[{
4 L% ~% c( G0 f8 _6 I RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", ' q3 |: [ J$ a; j
SuperscriptBox[4 H" R! }2 P5 b- m
RowBox[{"(",
& c7 o# r3 S4 L E: Y9 n7 Z: _6 F2 A% _; S RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ! \. j% B1 B' I9 a0 y* R
SuperscriptBox[8 d( G y* c/ _6 T
RowBox[{"(", # n- _! x5 u; b( p0 z* m" F" u
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 4 C$ u1 g) C, s Q7 h$ s9 [
")"}]}]]}], "-",
" O9 h, c, _7 d8 ? RowBox[{"0.4666313851213302`", " ", ' C7 M& g5 {7 ^$ i; j9 A
SuperscriptBox["\[ExponentialE]", & t/ g- E6 {! d+ l6 m1 q
RowBox[{"3.141592653589793`", " ", 2 x3 A/ d* e' S# O
RowBox[{"(", ; `" k+ t. x* o0 ~+ Q3 ]
RowBox[{6 h1 Q: F+ F4 h( `, ^! h1 W
RowBox[{"-",
4 O6 {( K, k z) _) ^: l SuperscriptBox[
0 |' o1 h- Y$ K- g. I RowBox[{"(", * q( ], S# w+ Q1 r
RowBox[{
1 U4 U1 E) U5 p RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", ( W1 V$ ]$ A9 M; ]+ H' [
SuperscriptBox[" `# Q2 M# \3 I& i( |( `/ H
RowBox[{"(", + Z9 `' ?- a: T6 t' x) @
RowBox[{' ^+ M. w- j5 |+ ]% T e$ M) h
RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
" o6 Z) N/ ]3 E SuperscriptBox[/ h) Y' `) c, |/ n/ x, L
RowBox[{"(", / f0 f- F5 h$ y5 X
RowBox[{7 ^5 f( [! m( x/ S
RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", # r' o( o" x7 {* m% N& i
SuperscriptBox[
" h. G% @$ e8 m RowBox[{"(", ( U) [9 I0 r, U- i h) B
RowBox[{- O' [: ], t5 R+ _9 P' d
RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
; Q+ r) Y. P3 f" ^, m Z2 _& v" ^8 Y SuperscriptBox[
( k u* z$ [+ G2 T _# [ RowBox[{"(", 9 h9 J8 T8 v! Z9 p
RowBox[{
; N; J; Y4 @5 _" F. W, i RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", - }/ {7 h) m6 J5 {" Z5 a
SuperscriptBox[7 A8 J d# t7 |" b1 X
RowBox[{"(",
8 y8 m" i) m( E8 s5 l; M' V RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
( Z1 B( y8 T2 ?4 v; {( S SuperscriptBox[ ?# c4 f. y2 L$ {9 ?1 E1 q
RowBox[{"(",
: S) a3 i8 W9 L1 w RowBox[{- j/ j7 p+ R) ^) m r6 H9 e
RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", " s. r% o- B$ W8 ^* ^9 U7 I; q# G8 I
SuperscriptBox[9 Z) u( M+ W8 V6 f; o% i
RowBox[{"(",
! g. y+ T6 N X8 i2 N; F2 Z S8 D# { RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 9 l( l% N/ n! g' S. h5 K
SuperscriptBox[0 N0 |3 @' x! u/ @9 X- @
RowBox[{"(", * H* x1 E! B" a
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], - O7 w! j5 `8 F% M, j" Q
")"}]}]]}], "+",
4 c8 i/ y; P. L; \2 m RowBox[{"0.3741982811661129`", " ", v' }/ A4 t. n- r' T0 N1 _; E
SuperscriptBox["\[ExponentialE]",
) e+ O+ [ R1 D! F/ j! e! `% q( \ RowBox[{"3.141592653589793`", " ", : \3 E( B$ ^% K, c0 |: a' V3 V; K
RowBox[{"(",
) x8 \" T. I) s3 ]3 U- v RowBox[{- \# S2 K G9 z; h: N
RowBox[{"-",
2 M! f1 @* ?" P6 c SuperscriptBox[
1 u& P4 O$ K' }6 b RowBox[{"(",
8 E0 N/ L/ ?3 N( T/ o& h+ G+ W5 { RowBox[{
) u* n: c$ ^. Q4 V RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
* u. S; T" T$ X/ Q, }5 S SuperscriptBox[
1 A$ }, [0 o) Y. I7 R4 I! F RowBox[{"(", & N% M4 f4 p6 L' i7 X6 C$ v/ F) Q
RowBox[{5 T( G: k0 [, K* ?
RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
( @. g2 r# F6 Q% b% i1 z SuperscriptBox[! n; s1 B* w" Y! E6 B M
RowBox[{"(",
, f+ x. Q/ m: k; w2 c! K; t RowBox[{
3 x3 _4 J2 q% |1 [5 c RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
% |3 f: n1 j9 `# N6 c+ b SuperscriptBox[3 H. j0 m4 | T. ]/ z
RowBox[{"(", ! l9 y0 m/ r/ a# D6 h ^! w0 {% r
RowBox[{
1 ]9 O. Q' Z. A( ?+ r _2 [. I. q RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", ! j8 `2 x& }$ t/ Q7 i( {" F
SuperscriptBox[
7 }; c0 w3 J, S- x3 z" O4 v RowBox[{"(",
( @7 n+ }1 D) M: s8 r% |: |$ | RowBox[{
2 M5 }4 L+ _5 j' \; z! M8 x5 j RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
" H, K# h% u* P& B! R8 M: v2 t/ K SuperscriptBox[. a5 g/ q7 B2 e* R! j3 m
RowBox[{"(", m. i2 w" p. p4 i
RowBox[{' T/ J% M* j/ w8 z2 W7 E: K
RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", , u7 r) N' y5 g5 ^( c
SuperscriptBox[
0 j% T5 x8 ?4 [) U; N& ? RowBox[{"(",
% D2 R/ k/ b! X! N0 u! O' {) a RowBox[{2 r0 s; _. C# r% t: }( }7 H
RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
7 Q2 Q/ u* t% S D) L2 m% G SuperscriptBox[
' a6 D+ q T" D/ _ RowBox[{"(",
1 @ q$ K1 n$ E% d ?. P* f- r- B RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
( }% x" y* n. Y. ^4 K SuperscriptBox[
- r! F+ Z. n& B# F0 p RowBox[{"(",
' q/ X- S1 k; o/ u1 t# @4 C. H RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 3 j- ]5 U) W- k8 _
")"}]}]]}], "+", 1 ~ f: ~, x4 J" `& L# B0 p4 U
RowBox[{"0.5575503376854456`", " ",
7 t2 i( r4 R( E; K8 M g SuperscriptBox["\[ExponentialE]", & D+ b& f" {6 `6 {$ A! y& j
RowBox[{"3.141592653589793`", " ", $ Y& f# w; l1 D# f
RowBox[{"(", % e( a/ G) f: ^ [2 Y
RowBox[{' g f; A8 u( b! ]# ]- k
RowBox[{"-",
& i" O. {% @8 w+ E& m& |3 | SuperscriptBox[
6 c. _+ I$ c' Z& o3 z) [( E' `' g RowBox[{"(",
& K. L2 E# E# z$ z9 ^ RowBox[{8 ~- V$ `5 n3 A5 \- a3 z+ @
RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", ' c. l# g# E8 F
SuperscriptBox[
- H/ D" Z; h: f$ A3 [ RowBox[{"(",
' `1 Z* K+ A5 i c; V RowBox[{" C: w/ ]) |' k2 z# x
RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-", ) f8 y1 q" X0 G+ s* B% x g5 @
SuperscriptBox[
4 Z9 c& [, ]0 M9 ^ RowBox[{"(",
+ ?1 K) D# c) e7 J: s RowBox[{
; b2 w8 n7 b8 Q7 _7 f7 I4 z, z RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
+ J2 G" Z$ @4 L+ J SuperscriptBox[
! V2 [) e& k: r" U. \ RowBox[{"(",
, o3 D7 K( `& V RowBox[{
$ }4 V, L& f3 Z) P RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", 3 ]- o9 N; r' x! g$ ~
SuperscriptBox[
! V; j5 R x3 e( W" Q8 ` RowBox[{"(",
8 i7 y+ B) }' E9 N RowBox[{
9 W: E4 f% d8 X! z RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
3 d7 Q. f, z* v/ J* {' s$ K SuperscriptBox[
& G. _3 p; K* |% x" d6 V" ` RowBox[{"(", " ?& p3 g( u; A A$ V' ]. h2 T8 z- y
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", : V3 v: |3 p; b( w* Q
SuperscriptBox[6 C" y% ~1 b# I! b5 |4 g# d
RowBox[{"(",
1 v8 }) I3 q& t. Q RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
9 b% k' R! K- d I/ s- w SuperscriptBox[
! F f3 \, p3 Z" h' M3 M6 t RowBox[{"(",
; v. z5 D) @, ^) q' Z5 j" r, l RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
0 K" Z& _6 v1 }- m- F( b, X SuperscriptBox[
5 i1 ~ U! w: `$ i* X: h RowBox[{"(", 0 o* s9 F2 P. [0 E
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ) {2 d- [1 Z+ i4 Q
")"}]}]]}], "-",
+ n% y8 E0 ^; O3 ]- O RowBox[{"0.1339854044819916`", " ",
* ^. A! {* Q! { SuperscriptBox["\[ExponentialE]", 1 q0 Y: @: @, x7 t7 [
RowBox[{"3.141592653589793`", " ",
[6 u* w: i/ u0 @+ e8 k RowBox[{"(",
. R4 c! i) Z# M8 k q7 F7 C RowBox[{
4 y9 c* S! G& k+ l% f1 O RowBox[{"-",
% D' Q7 s: F# T: s SuperscriptBox[# u7 M6 e0 g7 j* {
RowBox[{"(",
. w. M: Y, a2 L! N7 d, c RowBox[{% c9 B1 G4 Z" C+ Q6 ~
RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", 0 u8 X( y! i( R5 m4 n' Z! Z+ n
SuperscriptBox[3 M# z! i% e% ?- S
RowBox[{"(", % f5 V$ H4 c# S
RowBox[{
' _" ?# F; [/ W$ F: V/ S& Y RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", 4 Q$ ~ D* B" f3 X
SuperscriptBox[
5 g. ~' c0 X! \ RowBox[{"(", - `3 T: Y7 [: k9 J8 q8 m0 c! |6 r
RowBox[{
% ?# M9 u. i# C+ b+ P) y" K' v RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
5 b5 W' a0 z6 d. P4 w1 M1 z SuperscriptBox[
4 J& v6 t/ C% W) @8 p+ j0 x RowBox[{"(", 5 ]1 v$ s, b7 K" a* y
RowBox[{. [/ P5 [/ A' Y# |1 d" [
RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", 0 h" f; z& Q4 Y5 n& g
SuperscriptBox[7 t! N0 R4 c- ~0 R" [
RowBox[{"(", . _) `- b4 r( U. c
RowBox[{
5 N; l+ m. p0 Y' D- d$ F2 p RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-", ' a9 `' x" e3 m0 E+ s8 ?4 Q
SuperscriptBox[
7 H2 J9 f5 S) _; ] RowBox[{"(",
/ [; m U! C8 i0 w, r6 P( Q RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", , s/ k; S# @' t9 j% v0 X
SuperscriptBox[2 ]1 d r3 a5 g* P
RowBox[{"(", 2 U, r8 p1 Y6 ?: P/ {0 X- y
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
p% |% R$ `. I* F9 L. W SuperscriptBox[: v" R# \$ I( `$ c
RowBox[{"(",
! J. l" D/ h4 b# l' e5 y RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
$ j1 J/ y% B1 y7 Y, ]% j; Y SuperscriptBox[7 d& N5 p" X$ c- _( ?* r+ E2 P
RowBox[{"(", ; ~5 J. k# ]7 C/ N! ]* X
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], - a* G- [8 i- ^6 x3 y2 R, w
")"}]}]]}], "+", " |7 B* r& C: M' s1 A
RowBox[{"0.45723850991134063`", " ",
! N! D4 A% ?- D! j- R SuperscriptBox["\[ExponentialE]", 7 ~+ c2 {( Q; h! Y! V9 `' k5 S2 A* e4 c
RowBox[{"3.141592653589793`", " ", , F; P' T* I3 C
RowBox[{"(",
% w( W( O$ }+ N" A# K RowBox[{2 u3 F2 W& q) e4 r+ z; O- l* y# M
RowBox[{"-", 1 X& Z9 d0 q- n% S
SuperscriptBox[
! U, x* z! K2 ]% B) d2 L% E RowBox[{"(", # l, p+ {. z2 M% V2 M# V" [1 c
RowBox[{
4 R3 r, ` I% H$ G2 y RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
9 E6 E0 @# `0 o1 N* T; [7 J SuperscriptBox[
/ w9 W) t0 R3 g" r" | d RowBox[{"(", 3 Y2 E5 s. y) g# K
RowBox[{
p5 T: j( A4 h" A RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", ! V1 ^, Q5 S% m# q7 V2 ]
SuperscriptBox[
. X( N% z: H+ f0 M( s& o RowBox[{"(", 0 ~/ x# O4 ?4 w9 u2 r) X
RowBox[{
2 i, F! ]3 u# }8 _( ^& D$ Y, D RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", ' U) f- h5 |! e: D
SuperscriptBox[) l2 i/ s' h: K
RowBox[{"(", 0 ~4 P" o- ~: P/ j2 v$ U
RowBox[{0 J: W& l0 z: y+ G& J- E2 i
RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", ' F" T5 Z# i( b6 K5 ^4 p
SuperscriptBox[* @: t2 Q2 H1 @+ D. j
RowBox[{"(", * k2 o. q* l8 Y
RowBox[{1 x: C4 O! ~! u+ f" C
RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-", " B/ \" j8 `, V7 p5 D4 K
SuperscriptBox[
: F8 u, ^- P3 E8 ^7 f& G+ y6 W RowBox[{"(", : _& K! q8 J# |3 Z+ b
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
8 r2 w9 u5 R4 f& b SuperscriptBox[
+ f$ m' r6 k( ^ RowBox[{"(", ! O/ `* \2 E( A. @: ~# a5 `
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
+ D3 ~! e3 E" F1 T N SuperscriptBox[, h* H6 c' a# x- h' G1 P+ x
RowBox[{"(", 9 U, b Y- ^* g* N: d' f1 B5 @) @8 s
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
% n5 \- q8 `6 q% b8 o, t6 n' Y SuperscriptBox[
9 ]6 C5 a% c3 b: c RowBox[{"(",
4 l8 p6 V6 k% e3 G( N RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
7 t3 @: G- d3 r# T7 @ ")"}]}]]}], "-",
% ~* H$ A6 x: B+ d RowBox[{"0.025873988843993667`", " ", 4 |9 X4 h$ Z' w1 J( E/ B
SuperscriptBox["\[ExponentialE]",
3 \1 M% n& s k+ q3 h! g RowBox[{"3.141592653589793`", " ",
4 M2 h/ ~9 Z7 x3 t6 C RowBox[{"(",
- \& q1 T9 f7 w; ` RowBox[{) W2 ^$ I8 n! M6 y
RowBox[{"-", # a2 r% b; O/ a/ d7 N8 H/ f
SuperscriptBox[
a7 V% F+ i& P# d# x. I6 o RowBox[{"(", - ]/ k6 d& T/ G& Z$ ?5 h- i, G! s
RowBox[{
; }* r+ s% ^' g }. e RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", - a! M. S9 K2 {- m" E8 ~9 b+ G- D
SuperscriptBox[
/ R5 M! h) l1 F1 Z* E: W" m RowBox[{"(",
) M8 j, k) t- n# F RowBox[{- ?8 y/ Q* A1 }- U" Q4 n1 Z; }6 I6 x
RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-", ! z# H R ~ x" D' S
SuperscriptBox[
+ `. T& ~: ^8 K5 K$ K$ O RowBox[{"(", , k6 }1 Q, L/ k! B4 e0 _+ q( Z) ~6 U
RowBox[{2 i9 g. V* S9 M4 K2 \
RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
1 m9 W; o- v) V* ? SuperscriptBox[
3 ?+ s7 c5 u: Y6 K6 K RowBox[{"(",
* P2 w" Q8 [5 \- z RowBox[{' y0 Y6 M/ w4 l, ]& T+ \
RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", ; Q+ J$ j, r+ I; c
SuperscriptBox[. i/ J, X9 f& q
RowBox[{"(",
! ~$ u( h9 ?1 s4 j$ z RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
+ K* z M) Z } SuperscriptBox[
& E9 E" M+ n' @+ r3 m9 k& Z RowBox[{"(", S! p' s/ a8 J* v
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
! a+ p& p& W* q( H: } SuperscriptBox[$ v6 p0 L4 ?4 c5 h* ^
RowBox[{"(",
4 G; o2 w0 _+ `: o) \0 k RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
2 K# [& i6 b( w. ]5 a) H SuperscriptBox[# D- a4 @" }: ~ B1 X. K+ }$ B
RowBox[{"(",
) f3 ]' [. Q) }0 D RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", * G' r& c6 R. l* B
SuperscriptBox[
4 P( Y* A- I" A r2 G! V7 k, M% Y RowBox[{"(", 7 j' u- J: S. E% O- H; D
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], & R/ F Z4 z4 _- V0 H, p
")"}]}]]}]}]], "Output",/ J/ e2 q/ Q v/ C/ i
CellChangeTimes->{3.577924759875*^9, 3.577924921203125*^9,
: W/ B6 l) U5 r! W* `* a 3.5779583210432997`*^9, 3.5779585060284224`*^9, 3.577959043308958*^9, 9 I& a9 o* e: L
3.577962317973732*^9, 3.578012448875*^9}]* x# V6 ?9 M; \& {, `5 r
}, Open ]],
. U( C; _" ^4 q2 s$ g* h0 P$ b$ X' T. S! P1 d6 p9 j$ m9 | H
Cell[CellGroupData[{" D0 l8 l4 ~$ ]
' j T1 ]; _6 V# W
Cell[BoxData[
1 g* A; B. E" n+ c8 _$ W, E RowBox[{"y2fit", "=",
& V/ H7 b. V# W0 k: \3 R RowBox[{"Table", "[", 5 b5 w# n4 S! `3 l2 M
RowBox[{"x", ",",
7 d) `4 D+ Z" y' P7 b5 I! g- s* ^ RowBox[{"{",
# [8 o/ X+ g. ^7 N RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
$ \# b$ B% ]9 ?- x CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {- Z5 s3 Y, S4 B) \* ^
3.5779252768125*^9, 3.577925277484375*^9}, 3.5779583246625056`*^9}],( T: |6 t" v! x9 T( f
& d( A9 ^: G, o* ]
Cell[BoxData[
2 C! g6 }7 w" V( [7 n5 \ RowBox[{"{", & B/ d" C2 K' ^' N. c; Z: Z
RowBox[{
* C6 E2 q! f% j5 I& K! O/ [ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ' Q [' l3 W- X; e+ z% [8 M! }
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", o, k6 n. j2 N( |1 I* s+ m5 J0 }
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", + f5 @8 W- @# o1 S- c: S
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
( n# A5 D. Y1 u: {, L9 J ",", "29"}], "}"}]], "Output",& ]' i! J+ Q1 `0 t7 _, z9 d; V
CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9,
; m2 ~# p) Z; c6 W, j 3.5779583268153095`*^9, 3.577958508118826*^9, 3.5779590470685654`*^9,
. t* x) ^: N& U" g5 K4 B' V 3.577962320173336*^9, 3.57801245028125*^9}]% c) f( h# V6 N/ z7 N
}, Open ]],
; B) M& V, J+ Q S$ ~; v" ^$ i
9 Z. y& q: E: M8 D* H6 c8 BCell[BoxData[& l/ b" w% y+ q1 B( h2 z
RowBox[{"For", "[",
Z% A* v9 `2 B- O RowBox[{
+ }5 r( t9 V) v5 z3 j& P RowBox[{"i", "=", "61"}], ",",
: z* v) V& D2 X RowBox[{"i", "\[LessEqual]", "89"}], ",", : v$ k& X# N! a
RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
4 d5 ]& b8 c! [% ?9 D7 e6 A RowBox[{3 Y6 S6 }. F) \1 q3 q$ a2 I
RowBox[{
$ T" l6 X" u/ `1 s# B RowBox[{"y2fit", "[", % w2 K2 c( j$ [( j8 ]
RowBox[{"[",
/ k& i& I( f0 L4 x RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", & ^. f y9 c! v" {. h1 K3 L
RowBox[{"y2", "/.",
. Z0 Y0 \, X. L RowBox[{"{", ( M) W: ?! k" T9 f9 d W8 X
RowBox[{) Q7 d2 H, G& m C. k1 J
RowBox[{"x1", "->", & @% W% ]5 i' n/ h
RowBox[{"Data", "[",
8 E f; F; y1 f& s. H- f+ D RowBox[{"[",
3 u3 u( } A* y8 A, m RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
5 P" K1 f( Y5 u5 I7 M: ~' @$ Q* v RowBox[{"x2", "->", / ~* T( k# _4 B( W- Y6 n. l. O
RowBox[{"Data", "[",
* J/ R, X1 {5 q2 G% v+ t c* s, [( A RowBox[{"[",
6 w: J: I( U9 M& |* d, J, t RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
$ l6 B e5 w; g9 d RowBox[{"x3", "->",
& [2 d% j+ N9 J, Z! E RowBox[{"Data", "[", 7 \: j7 y& K/ J2 M) `
RowBox[{"[",
6 w, f- w/ P8 O, u& Z- X$ u RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", + b* y8 M# e9 D
RowBox[{"x4", "->",
/ ^. s6 s& R9 |- F( E3 n# q) Q RowBox[{"Data", "[", % H$ }+ F! b8 W8 M
RowBox[{"[", % N3 K+ o1 |* A; u/ E7 R
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 9 Y" d$ H3 u8 m9 x2 v) K
RowBox[{"x5", "->", # W8 e- l$ u0 h' v; a0 [3 y
RowBox[{"Data", "[",
1 t4 k/ O4 W3 {! j, k( K7 C RowBox[{"[",
' {* P$ y" w- G- K w/ |2 o RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
/ B" Y7 \* K- P# m RowBox[{"x6", "->",
; p; B0 V: x7 p0 W+ r( q RowBox[{"Data", "[", & d9 B9 T( \; a+ K6 Z
RowBox[{"[", . Y5 x# {) h; x+ B
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
0 T4 M3 y; q1 f5 A6 ^ RowBox[{"x7", "->", ! K# z- r) q# i" U5 H4 I
RowBox[{"Data", "[", $ h/ h. r5 f2 B) F# V8 x
RowBox[{"[", ' e; i C( P8 e' m3 k7 X
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
' R2 w# }. F3 Q$ n7 K4 ^0 o RowBox[{"x8", "->", 8 e" M( M: ^$ l' o+ O# K
RowBox[{"Data", "[",
. O' b0 `7 A3 c o/ Z0 k3 d RowBox[{"[",
# V$ U8 K0 X, t RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
' A( v$ B3 t# E' C. }3 ] RowBox[{"x9", "->",
% N$ I. X5 r( a/ l( W RowBox[{"Data", "[", " y' p, b, S L. d; N( p
RowBox[{"[", ( N' _, {3 L6 |* ^5 _+ C& [
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}], , s* V7 A% {$ V: {# F
"\[IndentingNewLine]", "]"}]], "Input",0 `8 v4 s/ W3 b! o' w' `; q
CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {9 `9 ?! e( |5 Z" Z$ X1 H
3.577925286140625*^9, 3.577925306765625*^9}, {3.577958329919715*^9, : R, C+ g' |+ l% K
3.5779583326341195`*^9}, {3.57795892351635*^9, 3.57795892354755*^9}}],
, |5 N! r; b4 V$ }
) P% {- Y6 b d: g4 N$ z2 d4 ?Cell[CellGroupData[{/ b) ?4 c- R; }' P7 W4 ]5 ?+ R, m
! ?6 d/ u2 f) I7 JCell[BoxData["y2fit"], "Input",
# V: A$ ?# Y6 Q" Q7 A, S CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {
; H& ?% m+ h5 m0 J8 f 3.577925040484375*^9, 3.5779250440625*^9}, 3.5779583419785357`*^9}],
2 S: r/ d7 E0 h, V3 z: B# c3 z6 }" H* y$ q/ r
Cell[BoxData[0 ^3 P: n9 R6 j# E3 g5 S
RowBox[{"{",
0 o; t9 R2 m* V RowBox[{
; J4 B! j( Y O! k p } "0.4853171132859182`", ",", "0.4508635216665074`", ",", 3 _. b s; h" h: z$ b) _
"0.3642119241752518`", ",", "0.42852077425595436`", ",",
: O* s+ v6 ~9 i" P "0.4712694272667798`", ",", "0.5257533056184774`", ",", 8 U% @3 M( {# C; Y5 L$ [5 ]& u, c8 N
"0.48620658140716133`", ",", "0.41106838915591876`", ",",
5 ]; G; A0 b; T "0.5486894206610674`", ",", "0.007731168540073459`", ",",
: i; G) z3 B- L5 ^5 ~& J9 w- m "0.013872406140339109`", ",", "0.3956995051659558`", ",", 6 n: E+ q! ?4 S4 C5 [) a# p
"0.3663118256142708`", ",", "0.29094217358055163`", ",",
! [* Y: q1 Q. |# R+ X5 u1 |% i "0.5453093690736555`", ",", "0.44138898880777927`", ",",
; Y+ i# w* R/ s* [1 N! X: k: D "0.42944922031163496`", ",", "0.43092890556748836`", ",",
! c" e; F8 S! s* C' b "0.5942402821739969`", ",", "0.330046090785457`", ",",
8 T7 B2 p+ |, E2 M$ M5 l# c "0.18938658036630585`", ",", "0.4263720292858679`", ",",
8 `1 [) g5 y9 J# a; k7 L/ \ "0.23377136184738775`", ",", "0.02232858193309988`", ",", + h1 r" u% N+ E. ?' e+ [
"0.244364200084268`", ",", "0.5562383565309971`", ",",
0 f; h* _& p' r$ J* F& O+ P: w h5 c* A" X "0.13114103402954333`", ",", "0.5815052048989465`", ",",
# \ t5 C' @/ n. W, S/ I0 `: Z "0.4253455966293501`"}], "}"}]], "Output",
M% b* Z0 x) J CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9, - s, `) Y) @( a/ @$ S
3.577925312375*^9, 3.577958343257738*^9, 3.577958511784832*^9,
2 W ^: t6 Q" s1 X6 n 3.5779590518421736`*^9, 3.5779623249157443`*^9, 3.578012452421875*^9}]! R9 P: T5 p/ f# y: B, V( N5 G
}, Open ]],
1 ~& j5 A8 A, B3 O
; r V8 t5 }/ Z( w ~9 h5 uCell[CellGroupData[{
/ v. K* G3 Z$ i7 C' w/ }1 A) l* d% o- I. ?$ X
Cell[BoxData[+ d i- ]( A, ^$ n4 v( {% [- q# K
RowBox[{"y2fit", "=",
' ^( V: V0 ]& K" N" C% ? RowBox[{"{",
0 h' j* `* `' }5 D" G RowBox[{9 F" a: o4 Y9 h7 C; @7 |
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
9 \# [1 u7 l0 Q" O% I ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % ?( W2 Y2 l k; W3 u5 F: X3 E
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
% `3 {" W' `+ m ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
" Z: h6 D: }' ^4 Y- W) P: l "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
7 { M5 o0 g7 H6 v) Q$ x ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", 0 W4 b% G8 V4 [8 q5 A, d
"41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
# n8 \ q' N5 h- @/ X% C7 |) e7 ] S ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
, U$ S8 @/ `9 J u |- l "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
, U4 G; x4 ~3 Q/ Y+ D$ Z; R1 v "0.48531711328591953", ",", "0.48531711328591953`", ",", " m' K; z5 u3 p0 B0 s
"0.45086352166650845`", ",", "0.36421192417525217`", ",", ' ]' d0 }" t: |9 @2 B+ y
"0.4285207742559556`", ",", "0.4712694272667811`", ",",
C" h" W6 Q) A& @+ S. U0 O "0.5257533056184786`", ",", "0.4862065814071623`", ",",
& g0 I, [" s, S. C* L! O0 P "0.41106838915592014`", ",", "0.5486894206610683`", ",", - Y7 T- }; U. t
"0.007731168540073532`", ",", "0.013872406140339166`", ",", % P" Q- v6 R2 {$ ~
"0.3956995051659565`", ",", "0.3663118256142717`", ",",
* u, i3 p0 B! J' L$ d3 [ "0.29094217358055185`", ",", "0.5453093690736568`", ",",
6 o Z% [. G$ S" e3 p- g "0.4413889888077799`", ",", "0.42944922031163585`", ",",
! D7 { s$ g. F. c( v "0.4309289055674891`", ",", "0.5942402821739983`", ",", 7 u& r2 e: L; d- L& k
"0.33004609078545805`", ",", "0.18938658036630632`", ",",
7 h/ a* f4 k) \+ G7 |5 t! A "0.4263720292858688`", ",", "0.23377136184738778`", ",", 8 {4 y, D+ ~ ?8 Q" b: ]6 x
"0.022328581933099827`", ",", "0.24436420008426807`", ",", 1 f. n/ ~# j4 r# Y* }( L8 o
"0.5562383565309981`", ",", "0.13114103402954314`", ",", 0 w/ ^$ ^5 ? z/ [, G' W
"0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]}]], "Input",
& q5 L& K* y3 { r7 A2 Y+ @ CellChangeTimes->{{3.577959355746303*^9, 3.5779593854019547`*^9}, {
$ A1 S0 t, X9 e1 U9 g& E8 C+ Q8 \6 I 3.5779594223272195`*^9, 3.577959425104024*^9}, {3.57796233399496*^9, 4 m: x% H. V: i* B3 X
3.57796233957977*^9}}],
' p" B- c( `# {3 ~7 L; e
2 x/ m* B$ \- }# Z+ u+ A+ ]Cell[BoxData[
1 z' k! g! p( u* I. a RowBox[{"{",
7 i: v1 U6 L+ X# ]) d RowBox[{. N) P3 B; ]1 y
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
1 u# m7 Y4 I# r0 e! V, I ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
+ o& |! \$ H$ [1 z. j+ Z ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 6 n4 t7 e, G4 n. h& I6 h4 h9 r
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 5 [& x# E- v( M( [
",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", 0 t% S* d9 k L! ?& A0 S3 v
"35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
: E& y% j' O$ N ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
% x ~/ h& E% g# A& v "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
4 `' C7 k$ v* _ ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", 1 j' h3 p2 ]9 P9 }
"0.48531711328591953`", ",", "0.48531711328591953`", ",", 5 x1 }: [; [+ l2 r2 ~" \0 b$ I
"0.45086352166650845`", ",", "0.36421192417525217`", ",", 6 p4 M$ ~) W2 [7 K7 f1 J( ~
"0.4285207742559556`", ",", "0.4712694272667811`", ",", $ ^* F4 d0 H6 T! b
"0.5257533056184786`", ",", "0.4862065814071623`", ",",
, Z0 w3 L+ u) V2 ~$ K "0.41106838915592014`", ",", "0.5486894206610683`", ",",
' o3 T' h9 ?- h: p "0.007731168540073532`", ",", "0.013872406140339166`", ",",
( N5 [/ s# V U& |5 y8 i5 D "0.3956995051659565`", ",", "0.3663118256142717`", ",",
0 E% k& A: p" n X9 y "0.29094217358055185`", ",", "0.5453093690736568`", ",",
8 Q- n* v/ x$ B, Z "0.4413889888077799`", ",", "0.42944922031163585`", ",",
2 q8 Q1 x- Y5 [4 a( C" d. ?0 {8 P "0.4309289055674891`", ",", "0.5942402821739983`", ",",
2 L9 {8 q/ @# |9 x "0.33004609078545805`", ",", "0.18938658036630632`", ",", " U1 D4 W! Y6 w% I: K# k
"0.4263720292858688`", ",", "0.23377136184738778`", ",",
- v6 {7 c0 N( _/ A8 r/ r( e "0.022328581933099827`", ",", "0.24436420008426807`", ",",
2 o: l: ~0 N5 l" V# P "0.5562383565309981`", ",", "0.13114103402954314`", ",", . g% ]" ]7 |9 q: Q# n( k* }
"0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]], "Output",: p' r4 f& \/ d( C# [: a( U$ x
CellChangeTimes->{3.5779593961191735`*^9, 3.5779594268512273`*^9,
2 }: O: G5 l2 o4 { 3.577962342060174*^9, 3.57801245340625*^9}]
0 U2 Z& n5 c" k# u! \}, Open ]],, w9 G! r5 k6 W. G
: @0 T- R; H9 |: ]
Cell[CellGroupData[{
2 o' Z9 _1 a0 r
/ r& z1 {4 m; d; R$ O, SCell[BoxData[4 L; R( {( N+ y0 O. z4 Z
RowBox[{"y20", "=", . W8 P; h0 E! K4 k1 A! L: \! P
RowBox[{"Table", "[",
9 L9 u1 a5 ^! }; t% d' v RowBox[{"x", ",", $ ~% L9 F* B% Y
RowBox[{"{",
0 L& h, b8 X* d( K* n" ]6 k RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",; t5 b. M, D, B; _
CellChangeTimes->{3.5779253628125*^9, 3.577958351198152*^9}],8 Z3 i% l. z* d) W6 \0 V: M
$ f5 s! N5 i9 W0 T1 ZCell[BoxData[
0 p9 i! v2 v% a RowBox[{"{",
' r* V' g$ y0 j2 |( w8 ~$ [* X RowBox[{
! a5 ]6 `/ i7 F& A" |/ p: g) z "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", " k ~1 C% ^( @) `# U4 L0 Y, P
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
1 T1 T( m0 }& H% I* } ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
B( [. J6 s3 r5 F "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
! q5 x( c- q# t: Q" p; f) N ",", "29"}], "}"}]], "Output",
+ ~. _ c+ f: f0 m5 C a1 b0 u CellChangeTimes->{3.57792536553125*^9, 3.5779583535225563`*^9,
}: C- {3 J6 a* c) `, ~9 @3 g. a 3.577958515653639*^9, 3.577959053714177*^9, 3.5779623443065777`*^9, - s* A/ `, }% u x; f. M
3.578012454875*^9}]
& ?' V, v1 m8 b% J. |8 w. U}, Open ]],
: a3 T$ N5 V& k/ |' `7 M/ y( N
: P7 P' D1 B' x- [& \2 B& Y9 F/ DCell[BoxData[' a0 S/ \3 F h ]9 Y \/ I' P* s# X% x
RowBox[{"For", "[", 5 v% z7 C/ T/ S d) {
RowBox[{$ l; K( J4 E! T6 w
RowBox[{"i", "=", "61"}], ",",
7 w$ b$ Q, e! g) Y. E; j RowBox[{"i", "\[LessEqual]", "89"}], ",",
: q' J3 V9 y* S% Z" J5 h5 z' x RowBox[{"i", "++"}], ",", 9 U* ] j; a3 a4 i; o3 m
RowBox[{4 Q& ?1 Y, z+ w2 C! ~
RowBox[{"y20", "[", 7 M6 @1 |2 @. ?- t5 H& H
RowBox[{"[",
1 N2 X$ c' T& d3 d3 Q RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
- F: X( U/ |% y& ~$ \5 T3 `/ b RowBox[{"Data", "[", - R6 k# Y+ G6 j6 i* {$ {7 ?2 j& A3 x
RowBox[{"[", . ~# G- Z' R, K* `
RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
) ~$ g+ `& P! N3 I8 c5 Y7 q. ^ CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {1 A5 {# {: |! E0 L( S& x8 T
3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
9 l' g% p# l4 F& F8 p2 N 3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, {
: y% G- M* C# H. G; { 3.5779583574225626`*^9, 3.5779583606673684`*^9}, {3.577959056849782*^9, 6 u" \: U( f1 m# P! Q- s, {+ B' j S4 s
3.577959058690585*^9}}],
& o. ]* f* K8 ]! g/ y8 Q7 V( F- ?: T$ Q8 c$ f
Cell[CellGroupData[{2 D+ U8 \: t# I$ v
2 R4 W& f" m C0 k" m
Cell[BoxData["y20"], "Input",
( b2 _! C) [0 p5 B8 D* M/ W( B9 b CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
5 s2 }3 d' Z3 l' k" z3 e6 s2 _ 3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9, $ Z5 D1 e0 r# _; S
3.5779583657841773`*^9}],
8 U* s: t4 }4 ]( P2 r% g# M3 Q9 {) `- M; A' S, p
Cell[BoxData[5 ~5 `) l+ h, V+ h2 o: A
RowBox[{"{", ( d3 T9 i `/ x2 N$ B
RowBox[{
5 m( h" A# S; W# w "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", ",", * [1 [0 ~! R5 l( T; v
"0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",
' u+ h" d' Y7 i/ Y* Y7 l "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",", / @6 a8 {2 Y8 B1 e: ~
"0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",", . Y+ A3 p2 n* x- J
"0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
3 O. ^( _6 q. @8 M! X. n "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",", 7 E! e4 y! }/ {2 m: O0 N% Y6 }
"0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
1 h# J& X$ Z2 {% H0 I+ c "0.323944`"}], "}"}]], "Output",) u( ]& q- @" s' [
CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, 7 ~6 F& q0 W+ l0 s
3.577925393046875*^9, 3.5779583678277807`*^9, 3.577958517946843*^9, / d6 z7 x7 f* J" l" y
3.5779590634017935`*^9, 3.577962347629384*^9, 3.578012456484375*^9}]
( ]- s3 l# r& ]% o}, Open ]],
5 O7 V# h% @; i% E' R; B) Y' c" Z w0 T) [0 @
Cell[CellGroupData[{
, O* k1 t7 B% K6 b' ~- D' r% I1 F1 N: v6 H! l r$ [7 S
Cell[BoxData[. d8 l( f7 |. ^% P
RowBox[{"y20", "=",
7 Y' f" f8 W* W, S RowBox[{"{", 0 H3 b9 L- B+ y
RowBox[{
: w- \; W- d1 v# C "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
. v: b/ A' s# I: Q1 {' a+ @7 F ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
9 U+ }1 O4 I- Y "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", / l5 p& e: l% _" @% Z7 S
",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", ) O" W L+ f5 f! g: r7 h
"28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
$ N5 }4 n0 U6 x9 A, d' r( y0 O ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
1 M0 |3 K3 R# i "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", " C, l' W9 P8 z/ J( [6 \. Y
",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", # r' m0 G- Q. {9 A$ s
"54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", ' j% ^ g/ j. a) M' p
"0.507042", ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", # ?1 ~9 ^3 G8 }# c: X Q$ I
"0.338028`", ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",",
+ A# ]' {5 @0 X, h* ]2 E- M "0.408451`", ",", "0.295775`", ",", "0.661972`", ",", "0.774648`", ",",
, o% c F0 a- p o7 E8 j7 Y# f "0.746479`", ",", "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", ! B, Z, u7 i1 A/ o* d/ z8 h
"0.760563`", ",", "0.43662`", ",", "0.633803`", ",", "0.422535`", ",",
v* v- n+ L9 a: ?' w "0.295775`", ",", "0.309859`", ",", "0.408451`", ",", "0.197183`", ",",
0 a! B a6 y B& Y \ "0.732394`", ",", "0.802817`", ",", "0.746479`", ",", "0.380282`", ",",
9 n+ o# s/ r: i" t "0.56338`", ",", "0.323944`"}], "}"}]}]], "Input",% W7 q+ j- ?4 X5 E9 l
CellChangeTimes->{{3.577959534959416*^9, 3.5779595573142548`*^9}}],
5 }' P g9 V2 U' [7 `& `$ N+ H/ y8 b6 g: N( u% C
Cell[BoxData[+ M5 b) [' y L3 q6 B e, U" P' [
RowBox[{"{", 7 v' `$ i% Y5 k- s
RowBox[{ n3 c6 m1 o3 O, c U1 @8 H
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", {- O. @) V& @6 a9 R
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",3 |+ c, R" G: o# W. t+ v4 c
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
& v; t3 {% D4 t) P; A "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
0 i, d- z5 Z' N& r ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
& s8 [, e( W: d8 l, O, _3 \- F "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 3 k& a; p1 h* B! P
",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
! E; }) \9 t7 E, M* t8 O) G "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 3 W4 ^, B, S# i6 Y6 H( P1 F+ N L4 l
",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.507042`", & Y: }9 p7 S F! K5 c; I
",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`",
+ t8 A" u9 Q& t. M+ u ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ","," M' a, d# t) ~1 M4 E7 J
"0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",",
& U" i1 n0 J3 w& _ "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",
/ h( d& ]9 c$ L; S; k5 Z "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
1 ]0 I+ j6 o, B" _8 e" V- x8 I9 } q6 i "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",
, E9 N4 [9 X+ ^6 C" H "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
2 A, f0 M- {* \7 a* {7 O# s "0.323944`"}], "}"}]], "Output",
7 a0 S5 }/ o2 U7 { CellChangeTimes->{3.5779595594514585`*^9, 3.577962351778991*^9,
& ^ I% v. }6 w( \8 `! K; Q 3.578012457234375*^9}]! c& H# D- B# \8 D0 \1 p* y
}, Open ]],
* V' I3 l8 O6 d7 q: c+ e& j" L" j
Cell[CellGroupData[{
# `# I# t o/ t2 Y
% }( r. h1 {2 T/ q$ X3 O. H0 G2 V+ wCell[BoxData[, R0 G/ K f, D! K. G3 }
RowBox[{"p2a", "=", ' C0 J6 f+ u( ]9 ]
RowBox[{"ListPlot", "[",
- @5 B6 r" _2 h+ _ RowBox[{"y2fit", ",",
% x, [- O: G4 g; m RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", 4 l/ g4 N% w0 s! x
RowBox[{"PlotStyle", "\[Rule]", 7 L! D/ C- a o1 n4 }
RowBox[{"{", ~/ j4 m( I8 W% Y, i" V+ w! R
RowBox[{"RGBColor", "[",
& W5 K1 C8 w( d RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
- P8 u; C p4 R0 s% U7 Y* ?" U RowBox[{"PlotRange", "\[Rule]", # ~: X3 b7 n4 i2 s2 g/ |+ o/ l
RowBox[{"{",
W ^/ |$ ~8 e# g RowBox[{" {# h$ @; V9 K/ H2 z R
RowBox[{"{", $ R) l: c5 K. j$ J
RowBox[{"61", ",", "89"}], "}"}], ",",
0 o# b3 B! R5 d8 W; K" S5 s' p. }# [ RowBox[{"{",
4 [! W ^& r9 I m+ } RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
( g+ I- k# A- A l2 B6 v+ ?7 A RowBox[{"AxesOrigin", "\[Rule]",
6 J- d* {0 v/ b q9 q; S- ~1 q+ v RowBox[{"{", ; S& s" S2 D6 l' O
RowBox[{"61", ",", "0"}], "}"}]}], ",",
$ C" r4 F/ s2 t& r RowBox[{"Frame", "\[Rule]", "True"}], ",", * @% [6 e" T- e# I$ }
RowBox[{"FrameLabel", "\[Rule]", $ q& ^4 v8 h+ h. `9 T, [. @
RowBox[{"{", " n' w& x! {% ?7 [0 [
RowBox[{
' A/ U' p# _9 V) \ "\"\<\:7089\:6b21\>\"", ",", 6 `( C2 ]8 t# M. P' r
"\"\<\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\
7 U- m, h( X+ t! @* o {& T\>\""}], "}"}]}]}], "]"}]}]], "Input",4 Z. c. ~+ d& S; H4 _
CellChangeTimes->{
, R8 e7 @! D6 }7 C3 I' A 3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
/ ?6 ?+ S- r. G4 Z: u9 D 3.5779583712597866`*^9, 3.5779583781393986`*^9}, {3.577958536604475*^9, 5 f$ z4 _6 n6 {; Q/ d, ]
3.5779585491624975`*^9}, {3.5779592802577715`*^9, : A& d- S: B2 ]% H+ t
3.5779593014270086`*^9}, {3.5779594039971876`*^9,
/ p6 {6 e# C1 s. F2 I 3.5779594059783907`*^9}, {3.57795949706695*^9, 3.5779595174717855`*^9}, {
3 x& m0 S+ M8 i5 @$ F+ s1 q 3.5779604302529774`*^9, 3.577960442311798*^9}, 3.57801246978125*^9,
7 c9 n* K% D' s! @, y j' |3 m 3.578012920859375*^9}],- y+ z2 ~6 @$ S j
; O4 w+ b3 _6 o3 s- t$ Q
Cell[BoxData[. k' N; R2 w6 J2 N
GraphicsBox[{{}, {},
2 t# B* u4 S% [5 M9 d1 X {RGBColor[0, 0, 0], LineBox[CompressedData["
# X, [* n2 w/ c0 M, G9 h( x1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
, \ h* s K7 r& d% [7 x& E E/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
, J. W/ W$ j# d8 @9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P/ ^9 L0 c, \: P. Z& J0 ~6 i
ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC+ Z! X' o: s- L
qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
. }! D3 ~' F' s: s1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx% N3 R- |. A6 B8 }$ ?
0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
1 A" b/ t: E) gsPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH6 q+ K1 }. F0 n
99yxuG0PAHw7nyU=
1 _% M( D( X t; j5 f "]]}},' f! n# @0 J5 ~# T1 Y6 z
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
- h9 e5 {2 o9 J) T) u; J! [% J Axes->True,9 w8 k9 v" } F0 f* L+ A) Q
AxesOrigin->{61, 0},4 L+ w( }7 r# d& b6 V! ^ R
Frame->True,8 K% @( b F+ e2 F9 W
FrameLabel->{) E# v# A7 o6 q& E1 M5 X
FormBox["\"\:7089\:6b21\"", TraditionalForm], & Y% F8 n r& W( g* ~
FormBox[) |' S& T5 m# F+ H4 M
"\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", 9 m/ v; q4 X; Q+ z2 j P
TraditionalForm]},7 m) P: v1 Q" k# i3 J
PlotRange->{{61, 89}, {0, 1}},% `, u2 [5 c* i/ [! ~
PlotRangeClipping->True,
; D+ e; S$ |: I$ M4 q, w7 A PlotRangePadding->{Automatic, Automatic}]], "Output",8 ?: H" S! s" s& k7 D
CellChangeTimes->{
+ q' a' t0 k- V" |, b; _ 3.577925144625*^9, 3.577925396578125*^9, 3.5779583797150016`*^9,
7 y. N C' g X2 y 3.577958519990446*^9, 3.5779585510813007`*^9, 3.5779590670678*^9,
# _; y# X6 H; _6 l9 F 3.5779593035642123`*^9, {3.5779594075383935`*^9, 3.577959430158433*^9},
7 Z3 H* |1 t) A) e 3.5779595184233866`*^9, 3.5779604438874006`*^9, 3.5779623548833966`*^9, 1 x- o* ?2 M% S7 z" r& i
3.57801247209375*^9, 3.5780129225625*^9}]$ ?. T; y. B% H# t! I
}, Open ]],
r" e$ f; r" {# `/ F$ G% W# m) N9 n6 B4 \& P' V2 ~
Cell[CellGroupData[{) ]2 q: u1 e5 X( t/ b
. j* U3 T. }1 ^
Cell[BoxData[: I" u) c V2 \8 J: ^# k
RowBox[{"p2b", "=", : w5 T1 ^+ L; y* k4 O
RowBox[{"ListPlot", "[",
1 v x+ S a* Z* D, ~& I, k" |7 x RowBox[{"y20", ",",
0 d0 k- t$ Z, W) K/ y, s7 _ RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", - c- M1 Q# P: ~( ~. Z
RowBox[{"PlotStyle", "\[Rule]",
% D) ]8 X: f, ?, o3 { RowBox[{"{",
" ~+ g# u [ W" } RowBox[{
4 D4 E/ k w) {# C RowBox[{"RGBColor", "[",
! ]+ T6 s! b% F) J: W. K/ W" c RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
3 J$ X$ X1 R0 M" y* v6 W! O% z ",",
/ Z( V8 ^+ I! Y RowBox[{"PlotRange", "\[Rule]", ) e$ b0 h! _) c& j7 u0 [) K4 ^, [
RowBox[{"{",
- \# I$ C7 A2 _7 d RowBox[{, f3 Q6 @- \9 v+ ^3 {
RowBox[{"{",
- }, {6 t) Z& M' G- l* T: V RowBox[{"61", ",", "89"}], "}"}], ",",
) A% u3 t8 m& R9 e$ \ RowBox[{"{",
5 E' h! E" X# ]: |' t RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", & v0 E( C9 g" c% x
RowBox[{"AxesOrigin", "\[Rule]", 8 w O# B+ X) D( a# z6 ^
RowBox[{"{",
/ h) L! N2 U. x6 ?! b$ ^ RowBox[{"61", ",", "0"}], "}"}]}], ",", ' U* N @' G1 [! ~* p5 Q7 ^
RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
* D2 a6 {' q& o9 p CellChangeTimes->{' f* H- D0 ^) o$ r
3.5779253991875*^9, {3.577958382429406*^9, 3.5779583843326097`*^9},
- R! z) C# L/ B6 z0 E 3.57795855655691*^9, 3.5779595724462814`*^9, 3.57801248346875*^9}],
& M; N* B9 E$ _0 o9 t7 {- O9 `. A
. }* ?, T- \/ SCell[BoxData[4 q1 G6 w) I( _3 x* t; q
GraphicsBox[{{}, {},
$ P. Q4 b4 b1 P* e0 I6 h, v {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
. D5 p: u$ Y3 B0 I1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
# ^6 F) ]# G& o# h$ G I6 H8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV7 X/ G% w- s5 ^) G7 H
c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc8 M$ t* [# \% Y7 `) M
iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
8 i- V& d, }5 j6 \. |TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO$ W k5 Q Q4 s6 b" N
fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
" j n0 j" S9 K0 Y8 D: G' hTWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
1 A5 U, _, Y6 K, E' Ap0OYg4Fg/tz63VfsAdsCnzU=* B9 b8 _8 ^, v' c* J" O4 {
"]]}},
0 |; T: E% g8 `* q, m/ v AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],7 P6 X4 [3 c8 x
Axes->True,$ z+ ]( c- ^: a; J
AxesOrigin->{61, 0},: r/ D6 F( O8 V. [: Z3 M+ _- \
Frame->True,
6 d/ N1 C- O* S9 ]5 \ PlotRange->{{61, 89}, {0, 1}},
- s5 @4 m. L" M5 D0 @" p PlotRangeClipping->True,
- u- q% X6 `. I PlotRangePadding->{Automatic, Automatic}]], "Output",$ Y5 ^( c P2 v* n" r. j
CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9, ( e% N% L% A, ?! Q
3.5779583861890125`*^9, 3.5779585219092493`*^9, 3.577958558132513*^9,
- X; F/ ~9 X8 ]$ O. X 3.5779590691114035`*^9, 3.577959577906291*^9, 3.5779623569426003`*^9, 6 M; T' l9 e W5 L8 O# l. l( q4 ~
3.578012484703125*^9, 3.578012925875*^9}]( L' K4 F: o7 S, l0 ]* O3 E
}, Open ]],
0 U x2 K* X4 W, j
0 O! o4 v5 Z+ p( A" B* ~Cell[CellGroupData[{
. V" j' @3 y1 V; _
- U T; T: ]4 r( @! }1 oCell[BoxData[% f$ U0 w' h6 e U y% N
RowBox[{"Show", "[",
$ G, n4 M5 ^ h% E% d+ Y" | RowBox[{"p2a", ",", "p2b"}], "]"}]], "Input"],
' e- }9 o# H- g0 c: g; z# `) I" l/ G4 a% X& j
Cell[BoxData[2 w+ n1 O3 h# I
GraphicsBox[{{{}, {}, # w4 M( O% J& O8 l: K, _! } f3 [
{RGBColor[0, 0, 0], LineBox[CompressedData["# M3 h V) Y' h* M7 X0 ?
1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
5 @8 ]/ L- M+ V1 u$ X& s/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
$ M8 l5 u- f; }6 V6 r9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P
2 e- W& v6 z0 \ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC; P1 _! Y0 e& }* L3 `
qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
4 [3 a+ Q% _ V3 W1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
5 ^" C; n1 b! y! [' W/ `0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p17 I3 I0 ?) o' k- t0 g( u
sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
9 e( v$ W/ J- l$ ~- [ ~$ `0 [. A3 f99yxuG0PAHw7nyU=
4 }2 R( s, j: ], I% `& E "]]}}, {{}, {}, 1 H, b% K; ^3 B& p3 `
{RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["; o1 G" O5 ]% e& w7 D0 _
1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn9 W1 ^) H% k* r5 k3 H
8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV# i3 o, {$ `3 L! o) Y& U0 N6 n
c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
Q. o# ^& N! ?3 {3 siX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4' E+ ?! b# F3 [& t* a
TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO. P' k2 F; _0 C* N9 U
fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
' y6 b' `8 i% P4 A* K% m0 {0 ?7 iTWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
+ _2 s- p$ A9 Y" Jp0OYg4Fg/tz63VfsAdsCnzU=
" m& m7 V$ Y+ F2 w5 A9 ~4 ? "]]}}},
3 I* F" J1 e; H! K" r" l7 V AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],2 \& t! n |7 h7 t* A; j9 `
Axes->True,$ _4 k4 v- ]- Q z l+ S
AxesOrigin->{61, 0},
" `% c: h/ W5 b2 n) } a, n Frame->True," q7 [/ P+ W/ l! t c' M
FrameLabel->{
. k; @, a& z/ |9 @3 ? FormBox["\"\:7089\:6b21\"", TraditionalForm],
4 x! P$ S) e" ^5 m* e* d FormBox[
7 X9 \* d% m. O0 h* K "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"",
6 F; o4 W: o9 }0 H TraditionalForm]},
$ p1 q, j/ V2 p8 o# V PlotRange->{{61, 89}, {0, 1}},
3 c/ P+ R! x1 p; _- y PlotRangeClipping->True,
$ n; T/ X$ G0 }9 H, y0 P PlotRangePadding->{Automatic, Automatic}]], "Output",
% e2 M) `: _1 Y$ g8 T2 D; n CellChangeTimes->{3.5779623624182096`*^9, 3.5780124863125*^9,
# T$ J$ h0 [. V5 E- H9 h 3.578012927734375*^9}]/ d9 D4 n- O# N+ R4 ]0 b+ `' L' c
}, Open ]],
0 V# [' ?0 q, P! \8 Y
" @0 f# H8 R4 p2 h- B! QCell[BoxData[
e1 q' D& j( p RowBox[{"\:ff08", + ]) Z/ y& g- t; L h7 S
RowBox[{
- Q: G" b' X. ~3 s8 H "\:5df2\:77e5\:521d\:59cb\:94c1\:6c34\:8d28\:91cf0", ".7406", 3 M- |* T$ A- E5 g
"\:3001\:5e9f\:94a2\:8d28\:91cf0", ".4621",
5 V5 g a$ G% h9 C: O& V "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea60", ".5208", , Z, x4 h" i1 R0 q8 A
"\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:542b\:78b3\:91cf0", , T% A! t4 T* W
".2221", "\:ff1b\:76ee\:6807\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\9 p, }$ ]: C' N+ b. |6 |
\:4e3a0", ".6224", : ]4 v# C2 v& X
"\:3001\:76ee\:6807\:94a2\:6c34\:7684\:78b3\:542b\:91cf\:4e3a0", ".2521"}],: i. k3 m" m0 l! u U
"\:ff09"}]], "Input"],9 o# [) N. L# b# Z# b; Z
% A9 ?) ^, V7 {1 |3 N, Q" l4 i! k! N
Cell[BoxData[
& D4 C3 w7 `8 W8 }; A RowBox[{"{",
3 y, Q* S1 b! e. C* A! G# h RowBox[{
. R- [% v- _$ s5 }9 l "\:94c1\:6c34\:8d28\:91cf", ",", "\:5e9f\:94a2\:8d28\:91cf", ",", 1 } Y+ A: ^/ G9 U# |2 H
"\:5439\:6c27\:91cf", ",",
2 T d( b! K& \ "\:4e0b\:526f\:67aa\:65f6\:7684\:542b\:78b3\:91cf", ",", # Y w. G5 z& X$ g. @5 `9 Q
"\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea6", ",", . W/ J) p. c) f0 {; C6 e
"\:5757\:72b6\:77f3\:7070", ",", "\:8f7b\:70e7\:767d\:77f3\:7070", ",",
* [. n0 {9 T% U! c6 h$ A "\:83f1\:9541\:7403", ",", "\:5757\:72b6\:767d\:4e91\:77f3", ",",
6 D7 U) A9 f# n "\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf", ",",
+ i9 g0 j5 R: p3 l1 \5 `3 B "\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6"}], "}"}]], "Input"],' X: d2 P, L' E6 H v. X
# u& D8 W% ]6 X1 _# wCell[BoxData[" "], "Input", o. ~0 ?5 B# }: O _& E
CellChangeTimes->{3.577962834553033*^9}],
( `6 f! D1 R, P$ p N, w, A
7 b! a% c) P( k& [; BCell[BoxData["\:94a2\:6c34\:7684\:78b3\:542b\:91cf"], "Input"],
% P' m: b$ T. S8 Z6 z0 ^8 |, V" k' g. G- R7 t4 O, @# f( e) ~
Cell[CellGroupData[{% x+ ?/ n& Z" H- d4 S4 R6 P% {
& J/ ~0 A$ X; V/ H5 a9 l+ f0 bCell[BoxData[0 ?2 L% ]0 R! m; B! Y' J$ \( v( n) S/ U
RowBox[{"y1", "/.",
) q$ A' w @: }$ L* q4 | RowBox[{"{",
6 T9 B/ L) [6 M RowBox[{
3 w3 P7 m/ s4 u" ` RowBox[{"x1", "->", "0.7406"}], ",",
/ f) P/ \, X7 R RowBox[{"x2", "->", "0.4621"}], ",",
3 B9 t( i" w: M: f1 b RowBox[{"x4", "->", "0.2221"}], ",",
6 I6 Y; c5 L8 n: V+ I! R RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input", w; J3 i0 C8 @; a# l! \$ |: C: Z
CellChangeTimes->{{3.57796267209435*^9, 3.5779627224200373`*^9}, {9 D2 C. C$ d5 b* e3 g" D- B6 Q0 R
3.5779627663029137`*^9, 3.577962774820529*^9}}],* B; A% H7 `* Y/ S3 ?' A
. k' |: k9 L/ j) _) D9 j+ y* f+ U
Cell[BoxData[
5 L. {6 Y; N& m0 r! |( U. o1 t' S RowBox[{
* X" T+ L3 ?- k: W RowBox[{"0.2286149508637297`", " ", }( S4 K) @% d4 \, C
SuperscriptBox["\[ExponentialE]",
: E" q3 D' y: E @& z RowBox[{"3.1415926535897936`", " ", 0 q7 v3 U7 x G& k; O% Z
RowBox[{"(",
( Q- B9 G' Z) P5 T T& N* P RowBox[{ w6 z$ ^$ E p& @5 E& \8 Q
RowBox[{"-", "0.17911224641499998`"}], "-", T3 p" R5 P$ C- V
SuperscriptBox[
- p! O y1 \: B: a; A3 j RowBox[{"(",
+ a2 ~! n" P$ C# P- U RowBox[{
$ W% g* b9 Y# I; j4 o7 Q5 X RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", , r$ y# G- E D% [' H
SuperscriptBox[$ Y' `) V, r% X f2 Z
RowBox[{"(",
. |% E, w" {% h \ RowBox[{
* l `4 z6 |8 [% D/ O3 F" Q RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
4 K" L' A( O Z) e& R9 ? SuperscriptBox[
( n$ K0 D5 N; d0 V: c. E; q! Z RowBox[{"(", . }$ ?. a$ k# D6 U- Y1 S
RowBox[{
" X" g$ `, x6 `7 F' Q& x RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
" k, n6 M( t7 e/ I6 ~, B, m6 y5 \ SuperscriptBox["x8", "2"], "-", 6 x" C5 ?8 V3 l& o. Q
SuperscriptBox[9 P% q- L+ M5 s$ Y
RowBox[{"(",
9 U0 f) b5 ?, S/ d RowBox[{$ l$ y% E5 t' ~( S( S
RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+", & f! O6 \( ~- p
RowBox[{"0.020180806675835994`", " ",
# Q# A9 Q, O( m/ E' ^. o SuperscriptBox["\[ExponentialE]", : e4 a2 c6 Z5 Y6 h) A* n
RowBox[{"3.1415926535897936`", " ", # M6 \7 \# j6 U, i+ y
RowBox[{"(",
$ v' d- }4 t4 g$ L5 L0 A' s RowBox[{+ }+ n5 l# `" L s. R! P1 Q
RowBox[{"-", "0.105619387859`"}], "-", 7 `) ?$ s% p( O6 G; n' N1 l
SuperscriptBox[; l3 a. w: p( G! T6 l
RowBox[{"(", / H! Y( o4 h8 c9 n8 Z
RowBox[{
/ j4 e4 s- }" y4 N6 T6 v RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", 6 m6 C- Z& Q Z! b7 m2 E0 n
SuperscriptBox["x6", "2"], "-", 7 ~; j, i% V# S+ A7 e8 y
SuperscriptBox[! P7 k# a! b; X9 C( c6 v2 A
RowBox[{"(",
5 r% c. Y* Y7 S7 L RowBox[{+ \# p6 N6 `6 E! J+ _
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", % k& S/ b) f) I* q& Q
SuperscriptBox["x8", "2"], "-",
! Y/ k' x( F* C; F6 F SuperscriptBox[0 B( Y4 w# l2 Q* b& [! e" M! F5 L' T
RowBox[{"(", 7 [+ S, z6 s1 ~1 C6 ]5 L
RowBox[{
: d$ e( ^- P( ~) J5 I. A6 V RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ' @( K. t& q" m6 H
"+",
, N, P4 O9 B# V6 G7 o RowBox[{"0.13092706311748437`", " ",
: K; w! p& [ o2 { SuperscriptBox["\[ExponentialE]",
. ^4 N2 P+ T+ { RowBox[{"3.1415926535897936`", " ",
( w$ z9 F) R: {5 f RowBox[{"(", ) W& W) W; P0 s& K. g
RowBox[{
: [) i! `$ O( R, j" a+ u* f2 q ] RowBox[{"-", "0.236605670085`"}], "-", ) W# U0 V' ^1 v7 N
SuperscriptBox[# m6 K4 m4 T6 s* \" Y
RowBox[{"(", 8 g, {0 J' m* T8 u6 c! c! C t
RowBox[{
+ u; d+ z) P3 y" L4 d' [9 l( D- {3 F RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
1 b2 a8 U0 `5 A0 `8 J SuperscriptBox["x6", "2"], "-", , O) `& l" B- U4 e/ ]* e
SuperscriptBox["x7", "2"], "-",
9 k. Z% x5 g4 A# O SuperscriptBox["x8", "2"], "-",
" D1 d: ]( R4 ?) Z SuperscriptBox[$ Y- @4 B9 v1 Q+ K- n
RowBox[{"(", 5 m/ O7 K3 U: o, B
RowBox[{
) O- E( H4 f4 P8 h, U5 E! _' x RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 9 Q; x$ V- @4 e$ ~/ E4 S! o {. K/ _
"-",
9 R1 F, w/ q2 g RowBox[{"0.033459349088924784`", " ", 9 M8 K7 |$ Y* x# n% ^. \% ]
SuperscriptBox["\[ExponentialE]", 1 ^3 j2 G# `% n9 {6 m% F
RowBox[{"3.1415926535897936`", " ",
9 u2 l# g. \2 y B+ d5 z( l* P# O RowBox[{"(", ' h# |8 u1 s+ T
RowBox[{) Y0 O' f- Z, F& @# Y+ Q0 n
RowBox[{"-", "0.46221081830200006`"}], "-",
- k6 T9 d& B& ~ i& n SuperscriptBox[
6 C8 F- H7 X8 ` RowBox[{"(",
8 }" `) m. \$ ~/ k3 H1 s, R RowBox[{
& R/ B- ~( O% d RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", . ~& N" m3 o; Z2 W
SuperscriptBox[
! O7 {1 J& r4 L" F0 x4 c, W RowBox[{"(", 2 r( x* S8 g$ G, o2 {8 x
RowBox[{
$ c1 {$ @6 k4 m0 s% Y! L RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
. z9 L1 {, Y) l. j! b SuperscriptBox[
( I( O9 P4 |2 T$ f- v RowBox[{"(", $ d+ Z$ A: D7 n% {
RowBox[{8 ^- b1 {- [9 J/ Z
RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", # u8 o3 v. V q! L+ |
SuperscriptBox["x8", "2"], "-",
' G& t* ^7 K8 b5 U6 Q SuperscriptBox[
+ s9 Y5 y4 Q: y7 S% T- B RowBox[{"(",
+ u8 p4 {! ?6 D# |/ m RowBox[{* Z& B1 `4 p4 K3 Z3 b# Q
RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 5 ^' `' a" d: H* g
"+", % Q" U& H W2 f& A
RowBox[{"0.39611806709006653`", " ", . O5 s5 k. j/ R, r" D0 {0 v: y0 H
SuperscriptBox["\[ExponentialE]", + {( z* Y2 `* W, `" @( R
RowBox[{"3.1415926535897936`", " ", 1 ?1 f' g* H- Y# s0 w
RowBox[{"(",
3 P( W$ R) P4 d7 R5 i, I; A; E/ z RowBox[{3 ` ^6 f v7 J6 m; Q; _, `
RowBox[{"-", "0.5837889295140001`"}], "-", . E: ~3 K- v7 I. ~4 T
SuperscriptBox[
8 ]" D* c9 F1 E8 k; d6 G1 I4 h RowBox[{"(",
6 m' X: p1 A" u' z* |3 K0 P9 A RowBox[{- X* v0 ?/ n( V. u9 a
RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", ' J& [& b7 T" F$ d; G6 Z; {
SuperscriptBox["x6", "2"], "-",
- @" ^9 R7 R: O+ j7 ]6 u) o( ] SuperscriptBox[2 v, e% B( o% O: x9 j# B/ {
RowBox[{"(",
5 Q0 p2 U- @6 n2 N) K RowBox[{" ~5 T0 z% m/ _
RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", ; N- j& |$ h& u" j" r$ M4 f+ X
SuperscriptBox["x8", "2"], "-", + d( Q, h3 A0 L& p F) O
SuperscriptBox[
3 ~# x/ r: F9 K! O. b4 x+ p RowBox[{"(",
7 ^& a& G4 @" V3 A+ s/ V2 i RowBox[{
. ?; N0 c8 G4 [ RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 4 k" B/ u4 [/ `4 ~
"-",
2 u( r$ S9 F) g X# m RowBox[{"0.19996885877792045`", " ",
0 v0 ^* g+ O. R' n SuperscriptBox["\[ExponentialE]",
& |& y* p! ^" Y$ e" J( I RowBox[{"3.1415926535897936`", " ", % k# K" I$ U- N# ?
RowBox[{"(", ! E- R; J, h5 Q6 t" a- T
RowBox[{/ S$ r' q1 ^& P6 q& e G! v" _
RowBox[{"-", "0.19030188470200005`"}], "-", 8 h. W& M. ]: g- `' D1 f4 p& b
SuperscriptBox[/ u4 d% P/ `* R9 ^/ [7 u" a
RowBox[{"(",
( E' ~! O6 e! L; {( q+ U/ F8 | RowBox[{# X: @ k1 T! Y% V. M5 x) a
RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
' C6 R9 |1 o1 l3 |" z SuperscriptBox[
4 ?! ?9 K2 ]4 K) q1 }8 t* I RowBox[{"(", 2 V/ `1 _4 q& B( X1 A9 @7 A6 B5 a
RowBox[{
3 C& H) L: W: S: W& D RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
2 c+ v: m4 \6 e) x1 ? SuperscriptBox["x7", "2"], "-",
" a. R% |2 `; M) m! m, x* m SuperscriptBox["x8", "2"], "-", 9 E& H2 [4 L! @
SuperscriptBox[8 y6 @% y9 ?+ B& U+ b
RowBox[{"(", 6 O! o7 F9 @! l5 q- w6 V
RowBox[{3 m* x6 V) F; N% @5 u. A. N' A2 T
RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 9 [. f' Q7 r# n6 o2 l6 j
"+",
5 m/ b1 x* ?! h5 {$ r* O2 O7 B o0 u6 | RowBox[{"0.23580523388620744`", " ", 3 s# [- q& x9 M+ E" G* o7 @
SuperscriptBox["\[ExponentialE]", Y% h7 n# |$ |; O; a
RowBox[{"3.1415926535897936`", " ",
- M; S5 B; P2 N5 P' f/ s" _4 t RowBox[{"(", ; f1 d5 f& Z `+ i9 C! s; Z
RowBox[{
% z, j/ h. m2 }' K* t RowBox[{"-", "0.28518780882`"}], "-",
6 H9 y8 h. B; X* Z: c SuperscriptBox[1 ? ]( m5 {, Z% k$ x* s+ h
RowBox[{"(", ; S+ l0 a0 h: M: i; x
RowBox[{
2 J; T J0 y3 f& T RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", / L/ X+ R7 h4 U/ J2 p F( r
SuperscriptBox[. @6 g6 q6 u: x3 } u
RowBox[{"(", - |: D+ Q' e; X) Q9 ^
RowBox[{# i, c( ~6 B/ L) ?
RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
: T) {6 }7 {% b6 n) j SuperscriptBox[" F A/ ?/ p6 R% N
RowBox[{"(", / K: K: y% [! q- a
RowBox[{1 H; Y& _ R4 ?% Y+ Y
RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", ' Y7 R+ s" Z5 l
SuperscriptBox["x8", "2"], "-",
* D3 T) w- |8 m) A SuperscriptBox[
& \& I1 ~0 V" A7 `; V8 U* g1 f RowBox[{"(", 5 s7 W& T' y! r1 ]0 y4 w3 j
RowBox[{
* A$ x- K8 g& o* h RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
* }8 [% N" @6 X4 ^ "+",
5 q. f1 S, Y9 k+ K RowBox[{"0.667027259367853`", " ", 7 m, {2 u! I. y- X
SuperscriptBox["\[ExponentialE]", . E: @: ~8 ?+ o4 X
RowBox[{"3.1415926535897936`", " ",
7 r+ c8 T. X1 t7 m# x3 w9 {4 L1 k5 t8 u RowBox[{"(", , J6 K+ s4 G: W# }9 e2 l( ~
RowBox[{
% k( o1 I& t& n9 k RowBox[{"-", "0.11387365200400001`"}], "-",
) J9 B1 t- i6 w$ l SuperscriptBox[) l9 x! b+ ^: ?# M
RowBox[{"(", 6 ?5 i" h. G7 x J4 `
RowBox[{6 N9 B& `. S* @# E4 P4 B4 f$ X
RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", - Y( J- h5 C! m3 Z! y$ @6 i$ k
SuperscriptBox[ q/ O, M8 Z O
RowBox[{"(", $ E. c% B, |3 ~$ }8 e) B/ y# M
RowBox[{5 J+ ]/ i( V, a/ ]6 \
RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
% b1 X( {4 e0 ?6 P' r% h8 X5 Q SuperscriptBox["x7", "2"], "-",
; [" M5 V2 Q K3 W/ Z+ n: t5 A SuperscriptBox["x8", "2"], "-",
& ]( G" A% F7 b, P7 X& Z9 r SuperscriptBox[: x- |7 R8 k& b/ F7 R9 z
RowBox[{"(",
( ~! c, I4 r5 i RowBox[{
8 M& P$ b1 ?0 U' ? RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 7 k0 j( j) U( z( @. l2 z) W
"+", 9 @+ L2 y8 @5 C4 R( q" G! z
RowBox[{"0.25282438852646905`", " ",
6 x2 y! u% ~4 E( \+ v SuperscriptBox["\[ExponentialE]", * V: ~, \( S4 w: [! c6 F1 z' e
RowBox[{"3.1415926535897936`", " ",
* V6 c8 e6 P9 _( B0 S$ m4 p RowBox[{"(",
* u/ F6 P, N6 A7 u/ e RowBox[{
" J7 F# X( d$ ?/ f# M3 P7 a RowBox[{"-", "0.11442644782500001`"}], "-",
4 @* o* R3 r7 P7 |5 e% k, \ SuperscriptBox[0 g2 V" k/ V1 D8 c6 k* _3 w' V- S1 a
RowBox[{"(",
+ @, R) W8 {# I% _9 y6 V RowBox[{! K. V; x9 d6 \! k$ K
RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", 2 w3 S- u" V, j- o8 e+ l
SuperscriptBox["x6", "2"], "-",
* Z6 h! p. A) D' c; }4 y# [ SuperscriptBox[& @/ x2 h5 ~( F# o: s, }5 {5 g5 x$ `
RowBox[{"(", ; ~ M+ G m7 {* D+ \+ V
RowBox[{, C- _4 h* S+ v3 L
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", ! \ t0 Q( j0 }' l2 |
SuperscriptBox[! h& w, [, U" Z
RowBox[{"(",
" K0 u9 T3 O. G* L! E1 ^ RowBox[{
3 x. c" Z4 c* g: n# k RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
5 ?. M9 @8 \. [. b! v" `. a SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", # f& K$ Z z% W7 ^3 b0 u6 _" S) k
RowBox[{"0.07581214474544536`", " ", O' `+ d% q7 K
SuperscriptBox["\[ExponentialE]", 6 f* G2 }, ~9 l Y4 N5 W3 v2 R
RowBox[{"3.1415926535897936`", " ",
! t9 m" U7 m$ U4 D: c RowBox[{"(", 1 g: I. e) _( c
RowBox[{
" _7 z& N$ Y2 `( V+ N RowBox[{"-", "0.21008576609800003`"}], "-",
' x) M/ Q, M. [ j% X SuperscriptBox["x3", "2"], "-", ! Q1 @! b2 U& C0 `3 z
SuperscriptBox["x6", "2"], "-", 0 {) e1 @' Z& U- |9 {8 r0 u
SuperscriptBox["x7", "2"], "-",
+ I4 g8 o) u+ D+ Z& t" I8 H SuperscriptBox[
: z' A* b/ g; g! ] RowBox[{"(", - e/ w; ]9 p" B3 J& J' S$ [4 |
RowBox[{
, _% d" x2 B# r RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
/ i$ V) h* @6 z0 a SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
- |* \$ l t/ g, Q RowBox[{"0.10599338351843121`", " ",
7 n3 N6 h a+ M- b- p+ e SuperscriptBox["\[ExponentialE]",
$ E" z$ j; u* i+ G0 h4 u RowBox[{"3.1415926535897936`", " ", ' ]" E1 L# y% b* L* x2 X
RowBox[{"(",
6 o3 e, Q. }7 p) p+ [# T$ X RowBox[{
- @; z# e* `& b5 K3 }5 H M3 w6 z RowBox[{"-", "0.4481471925460001`"}], "-", . e, n; d3 v7 q' U
SuperscriptBox[; u$ ]9 z0 _! d% A! Y/ |" c
RowBox[{"(",
0 J! ?3 D' L* m# T" z- b RowBox[{3 _+ M9 v. ~& X+ |1 C
RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
/ Y" _9 S) ]5 d SuperscriptBox[5 {- k+ d, J/ v& w$ E+ X [; e
RowBox[{"(",
- M- I8 \+ c3 B. Y- h RowBox[{
( Z2 ]. U5 J5 i RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
5 j1 c9 ~7 `4 j2 ?: O" y SuperscriptBox["x7", "2"], "-", % M5 \3 n4 {& j" a
SuperscriptBox[
2 l: F9 j" K. V' L7 F. `4 y; ? RowBox[{"(",
7 w6 K$ T$ U6 i. W RowBox[{
. z/ h, q! H5 o# d" o) k' Y+ }5 s RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
1 M' C6 b/ ?; V% D& m/ q SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", ; k8 ]( Q$ J1 I
RowBox[{"0.5008208386064421`", " ",
. ^; \# {6 p, Q0 f& K8 H SuperscriptBox["\[ExponentialE]",
& F/ C6 a9 {/ @' l; v8 Q RowBox[{"3.1415926535897936`", " ",
0 C$ P* t Z/ U$ b. c5 q8 v RowBox[{"(", - b% Z0 L A' M( B: a
RowBox[{2 m# _3 m' I2 i. d& A4 i
RowBox[{"-", "0.08722659614000003`"}], "-",
# ~. u: @( j6 m' R SuperscriptBox[5 k' k) W- i3 `. d Q2 M
RowBox[{"(", C' {0 n" I5 @% v; l- F7 _/ q
RowBox[{
9 h l0 I9 G. n5 Q" ^; O, I RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
! n5 b! ]3 W* f$ n1 S' q, a7 Z/ k# t SuperscriptBox[
' ~- _1 J1 l3 V0 I RowBox[{"(",
3 G: ?1 K" k5 d) D5 ~- h% H RowBox[{- u5 R- c8 d* ~) Y3 o% o. K
RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", 6 @9 i0 a! G) D* H- ]" c4 T# O
SuperscriptBox["x7", "2"], "-", 9 H7 x' k4 ^+ N7 \
SuperscriptBox[
4 K0 f$ s1 n) ?+ E3 X d: M RowBox[{"(",
: |- T8 f9 t7 R# K/ }3 c RowBox[{
0 Q4 X$ l7 `# d( Q- N" x RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", 3 l8 Q, q7 ~4 a; c5 q
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
- M. ?+ E. Q5 M5 b! R. P RowBox[{"0.32564305572552343`", " ", 5 k- I! M2 I4 u; {/ V
SuperscriptBox["\[ExponentialE]", , J; m4 V( S; U8 z, U. t
RowBox[{"3.1415926535897936`", " ", 2 D5 {7 X& {/ E4 m
RowBox[{"(", + g) U8 n6 X6 R
RowBox[{
/ m' b( ^3 H- c5 {& X' ]) l" s RowBox[{"-", "0.23738217000100004`"}], "-",
2 \) T4 K$ V: ^6 ^4 O SuperscriptBox[
5 G! T2 |4 U1 J# g6 B I. b RowBox[{"(", 0 |) ?, N: D7 Z# ~1 ~. Q
RowBox[{' |6 y) a& J2 ~2 X3 x) L
RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", / G7 q2 U$ N8 c; |: z
SuperscriptBox[9 k/ |) }- ~) W; [) X7 Q2 G( k
RowBox[{"(",
' o9 b, V# w" a( M RowBox[{
8 n5 q, ^2 J, `' d: K. T RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
) D" }/ @7 V# O: h4 T SuperscriptBox[
) A/ P. S5 `! F RowBox[{"(", 9 ?7 k( g1 d1 n+ ]! e
RowBox[{% C- L2 R( j: r& g
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", + r7 y/ T7 b3 Y3 }) c
SuperscriptBox[+ T5 S6 a# |3 ~/ p7 e: u4 K/ Y3 s
RowBox[{"(",
! M# t- j/ @& K5 D RowBox[{; \" I9 l4 Z( u+ S2 ]; T% B( `
RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", 5 E! v' |% c' a' t: B0 {' Z
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
7 O' O1 \9 i' P" \2 c RowBox[{"0.6665374509702793`", " ",
8 f4 w `; H6 k @" K2 G SuperscriptBox["\[ExponentialE]",
) U- N9 c* _$ N' \! r RowBox[{"3.1415926535897936`", " ", 6 _ m! l; W0 U3 u* m; I6 N- `) ]
RowBox[{"(",
, t6 N+ e' f; l: Q; V RowBox[{
9 q2 w/ p) Y, e$ n! q) } RowBox[{"-", "0.19162171876400003`"}], "-", ! u; B6 r# w9 M
SuperscriptBox[. @, J! E4 h; {0 N; O# h
RowBox[{"(", 1 K& g- F& | K# A' d) a
RowBox[{& ~+ ^9 P- k- r! E; y! t" w
RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", # Y3 Z/ ]% s: [- D- V. ^ e, u
SuperscriptBox[; {) {8 V. M r5 Y3 a# F) u5 u
RowBox[{"(", * b; p6 l! h' t
RowBox[{! ?. r( k$ p! V. C$ G3 y; ?. @
RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", & s1 n( e8 ?" F- z3 Z* {8 h
SuperscriptBox[0 |4 \+ A# @; n
RowBox[{"(",
' k& D# ]2 c: f RowBox[{
* F4 d+ U& u* P# \; v1 A1 w9 W& t0 b RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", ! X; m; H8 w' p* b
SuperscriptBox["x8", "2"], "-",
0 y" w3 z+ o, g+ i" m/ l SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", 9 @0 s) g$ L) P1 s
RowBox[{"0.4812237524557293`", " ", $ ~* ], j, S3 b/ n4 m! i: B; H+ ?
SuperscriptBox["\[ExponentialE]", ) q9 X* Z: C2 O" Q
RowBox[{"3.1415926535897936`", " ", ! ~ K% u' Y" D4 f
RowBox[{"(",
3 i1 F# T+ d: c! o! ] RowBox[{
2 e1 d3 _6 ]3 h( r/ ?0 ]( Y RowBox[{"-", "0.109748954594`"}], "-", & L: J+ Y' X0 N1 E0 r3 i
SuperscriptBox[
9 ~- F& |1 r0 l8 o" _- A. c7 ]2 R- d( L RowBox[{"(", * \ Q m# t* V
RowBox[{
* X( i3 }+ q J% J2 g2 o RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", 7 z- f# |/ f* v9 W8 q4 J- m( U
SuperscriptBox["x6", "2"], "-",
# {+ v8 ~/ Z2 t1 V, C6 j0 U SuperscriptBox[% r) c" U$ [# C3 C
RowBox[{"(", 9 o" K( a& W) V9 Z" s6 U
RowBox[{6 B* ~& c$ r" H
RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
! s- T5 ?+ O, t$ S ^4 N SuperscriptBox["x8", "2"], "-",
+ p4 d; F; b7 D# K h SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", ' o% ?4 G9 |! }$ T D
RowBox[{"0.176024676254045`", " ", 7 a' u( r% b; m5 R! @( C
SuperscriptBox["\[ExponentialE]",
G$ t! h" s5 A& j2 t RowBox[{"3.1415926535897936`", " ",
" q6 Y, L% X: m/ {. v T4 B2 S RowBox[{"(", " }2 {7 ^$ D, p8 m3 s6 U0 I! @
RowBox[{- V# D+ v# g" M! B
RowBox[{"-", "0.14616677062500003`"}], "-", . R5 F+ ]) \$ W5 n
SuperscriptBox[
2 i7 ]# @3 o8 X l/ ]! S RowBox[{"(",
" X" \7 b' h& H9 S H& A RowBox[{% d* ^1 j4 W6 C/ f: U2 e- X
RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
/ N2 F! c- n+ C0 o2 ? SuperscriptBox["x6", "2"], "-",
* j8 H- D% \- e/ R* `$ q2 t SuperscriptBox[
, e O U8 H) ]( ^ _: U RowBox[{"(",
! |# [2 ] \0 _# D5 H7 d RowBox[{4 v! E9 ~/ b# R+ M, Z/ Y
RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
& z, B6 X* v9 Q2 f: t! }# I SuperscriptBox["x8", "2"], "-",
* ^/ j% U1 a1 n* ~ SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
7 }7 G4 K& c J8 n. b) l RowBox[{"0.5945873894818965`", " ", . O/ X) |: A# O. v$ P. g
SuperscriptBox["\[ExponentialE]", , D& K( I3 k, Q6 U
RowBox[{"3.1415926535897936`", " ", 7 V; ?% G" ?! j0 o
RowBox[{"(",
3 J. q) J6 a& u, H1 k% P RowBox[{: T' |" F7 y# e7 e1 P8 m
RowBox[{"-", "0.10407011464100005`"}], "-", ; B( Q: n: q) U8 R$ l& ]: A
SuperscriptBox[
% T" Q: S7 ?) J1 N# u1 p RowBox[{"(",
R1 Z9 @7 G, z! q RowBox[{
/ Q$ A7 S+ N! a" m RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", ( \" a) \4 m+ W" n$ e% _
SuperscriptBox[
: M, g; Z! s; L, @/ m* z RowBox[{"(",
7 n4 Q$ _; C4 p; A; ^1 c6 `1 c RowBox[{1 g# t' U1 W3 L7 j2 } L- `. H! H
RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", & g5 A, o9 e$ y8 D* W3 W/ w; D
SuperscriptBox[
* I# t1 Q) c9 k6 i$ x) ]: x RowBox[{"(", 4 O; X6 w, ~* f( N8 L" G! a/ w
RowBox[{+ g- A! }8 }4 p* X" s8 ]" o1 P4 i
RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", , o/ B* E1 x- z4 | g- L" }; ?
SuperscriptBox["x8", "2"], "-",
. n" C: k9 L: I& \3 P t) j# ^& p2 N* [ SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
$ f2 p& H3 b4 x- Z' u RowBox[{"0.027591936509660075`", " ", ' I( Q# s0 K) t" t7 _7 k8 g
SuperscriptBox["\[ExponentialE]",
$ [ l5 B+ e7 W RowBox[{"3.1415926535897936`", " ", e7 y- Q) D" C9 e. U
RowBox[{"(",
" I* x K R3 t7 F RowBox[{
6 _: j8 @, a7 W7 U5 V2 n \ RowBox[{"-", "0.31770463544200006`"}], "-", ( d9 v2 O# R8 M3 G( C
SuperscriptBox[3 B3 @ i. j6 ?6 H/ ^2 E
RowBox[{"(",
' j* t7 ~; V( }" E% Y& R9 B: @ RowBox[{( x$ v( X) f+ R, P6 P, Q( v
RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
# U9 U4 N2 O) X4 c7 R7 K- I7 X5 S$ r SuperscriptBox["x6", "2"], "-",
' U) C& c) G1 r( Z, O/ T SuperscriptBox["x7", "2"], "-", U' O. x8 C" p
SuperscriptBox["x8", "2"], "-", - V! I& M. {- p7 _
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
4 E7 T% W, G/ e RowBox[{"0.5252475961933536`", " ",
$ o+ [* y2 f' Q SuperscriptBox["\[ExponentialE]", , C4 Q# K2 x7 Y1 c3 e
RowBox[{"3.1415926535897936`", " ", 0 L. j. P/ O- D5 p9 q7 O
RowBox[{"(",
" j/ J) J# y0 M, K RowBox[{
% h7 e B; g- d1 {4 m RowBox[{"-", "0.6410867660730001`"}], "-",
" [1 G5 B" I7 n! n7 c/ | SuperscriptBox[, d# J& B& T. m; l" s" q7 U2 i: G' c
RowBox[{"(",
; ~# F* S& Z; K6 S3 ` RowBox[{/ x* w1 F4 \ o* F8 ]2 a& Z: t
RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", * M: q4 L; B7 s0 P- `
SuperscriptBox["x6", "2"], "-", 4 g+ _! n- J, }
SuperscriptBox["x7", "2"], "-", " {. k5 q# S# ~' h2 B9 ^
SuperscriptBox["x8", "2"], "-",
8 W5 h0 b. u( Z2 ^, a9 A1 R SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
& r- ]% g) n4 ?, U RowBox[{"0.32047284779644936`", " ", - }% q! |) N; I5 p' g
SuperscriptBox["\[ExponentialE]", ' \% o% o( R: ^( _! S5 j/ o
RowBox[{"3.1415926535897936`", " ", , M4 ^2 [+ O V* J
RowBox[{"(",
& L8 t' M }+ O. g) O8 H RowBox[{( ~, Y2 W# O- @, a6 c$ V
RowBox[{"-", "0.155663887074`"}], "-", 6 R+ J2 j$ O! f
SuperscriptBox[
0 y" H" L7 H8 T$ r# o: N/ L/ u! s! { RowBox[{"(", - O8 |5 u, ~- ~8 N3 u8 s, X4 d
RowBox[{
6 S' h; F q# S; g, ? k( d RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
3 c6 u5 T4 I* X& P, K6 I, N( O SuperscriptBox["x6", "2"], "-", 6 t& S- I( h9 @" _* F0 t- @3 p2 t |
SuperscriptBox["x7", "2"], "-", - W' X( I6 q3 v& E& c
SuperscriptBox["x8", "2"], "-",
1 L7 f- v' w0 V' T( d) G5 b SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", 8 X- d1 p8 ]0 F, a: W: z# V4 @
RowBox[{"0.7528674241482847`", " ",
2 j1 d+ h& M4 o7 @* Z SuperscriptBox["\[ExponentialE]", % w" q# A9 U% t) E0 D9 x
RowBox[{"3.1415926535897936`", " ", # p; K+ c2 ]2 c) h& ~8 [! y
RowBox[{"(",
9 A. P6 j1 V) ^" i RowBox[{
! p+ o' F8 T- Q. O2 p8 n RowBox[{"-", "0.14151232428600002`"}], "-",
/ T7 Y) i; ^/ [ SuperscriptBox[
- v* G# B6 P9 k& S2 {% M" X RowBox[{"(",
$ y: ?2 Y/ O8 G RowBox[{# I! |* ^, ], d7 e3 ]/ W3 ]# \3 H. S+ m8 S
RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
, Y& v7 B' G, H" P8 k5 L; p SuperscriptBox["x6", "2"], "-",
+ Q. ]. e8 i0 ?6 ~9 k6 }3 z' F& m( w SuperscriptBox["x7", "2"], "-", 0 S6 I& U2 z' w1 `# M w( K Z. Y
SuperscriptBox["x8", "2"], "-", $ d) j1 m: A7 \9 x: L5 f
SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",( W: o- f, |5 [- _0 |6 x, A
CellChangeTimes->{3.5779628386090403`*^9}]0 K+ T' u: J6 ?/ S# M* u; O
}, Open ]],# t2 h9 w7 L; E4 V$ Q% R) q9 C
+ @6 C: h1 U( D
Cell[BoxData[" "], "Input",7 n, @; l% I( f3 T6 f! D$ N5 @% ^! [
CellChangeTimes->{3.577962835879035*^9}],( s" y& r0 o# J
6 R6 h- ]& s4 B" A1 ]7 b4 x6 Z# e, N
Cell[BoxData["\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\:4e3a"], "Input"],$ t; }' B" y& I1 r
3 E; ?1 q" z, R" z+ {8 U0 tCell[CellGroupData[{7 [0 S: _; J, C. r( `4 l8 q2 R2 ?6 \
/ l8 ?( ~+ V+ p: p; dCell[BoxData[
8 q+ p' N& [3 Q' I4 }! q RowBox[{"y2", "/.", % _1 L- h0 x3 d' B
RowBox[{"{", 3 t3 P3 b) ]4 b) |* m/ P5 l
RowBox[{
; q/ s0 A/ x- f& `" A2 y RowBox[{"x1", "->", "0.7406"}], ",",
) o+ C& `# S5 L; ]; i/ e) Z8 O RowBox[{"x2", "->", "0.4621"}], ",", 0 h/ ~, l, x4 r
RowBox[{"x4", "->", "0.2221"}], ",", P' c( k. T5 G. r& H7 K- V9 N1 p8 j
RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",- ]5 v+ y, X4 I3 {! n
CellChangeTimes->{3.577962787784151*^9}],' G( ?* m* R$ H- }
/ x" V l; f% H8 j6 n) i1 ?- h8 T+ {
Cell[BoxData[
! l4 R5 o3 w9 i- m5 B4 d. G, w RowBox[{* ]; v4 ~. ^6 q% P$ w ?* [$ V/ N
RowBox[{"0.9125798890455848`", " ",
; e0 x! T& g; [9 ] SuperscriptBox["\[ExponentialE]", 5 N7 E/ [" v% K
RowBox[{"3.1415926535897936`", " ", 8 J" E* {3 I- g0 s q: s3 a/ J/ f6 N
RowBox[{"(",
( U3 x1 f) v {. b9 b RowBox[{
* X" d6 h) T9 Z! h9 ~ RowBox[{"-", "0.17911224641499998`"}], "-", 1 C! W$ Z! ]) x4 n$ R1 c
SuperscriptBox[
4 K! m9 a2 H- F( y, X, ]2 b$ i6 X+ l RowBox[{"(",
7 M+ }9 l6 c3 O2 {( _! o8 D- m RowBox[{7 \: x3 [( p% P: k, T% e9 U
RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", * @: w, C7 H) ^5 N
SuperscriptBox[
* Y, K# A9 P! u; N7 e RowBox[{"(",
. M1 F3 J2 b0 }% } RowBox[{
* N' _) e7 ~* Q: d& P4 n RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
/ u5 Y, h) ?/ F5 b, g- W& @! y( r SuperscriptBox[: w# Z2 s# J! X6 ]! Z# l% ~
RowBox[{"(", 1 C: u6 ]1 ?. B; S3 {
RowBox[{: m& c/ D& a" ?! Z8 T' q% ^
RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", 3 V8 f8 B5 D1 C, |; R7 X# ^# v) h( }
SuperscriptBox["x8", "2"], "-",
: I; s) x% Y2 t+ l6 s& ?/ G SuperscriptBox[( L( g1 \8 Q. \6 i6 S- Y
RowBox[{"(", 3 m$ Z5 B) N' ?. A3 t
RowBox[{
8 G( n. c K1 s RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+", Q3 v8 m* o) N
RowBox[{"0.2883186011296682`", " ",
* `' F. [: l R SuperscriptBox["\[ExponentialE]",
. n0 E/ ?( R4 a! a3 |4 U4 } RowBox[{"3.1415926535897936`", " ",
R4 l6 e/ O# I2 _) j( o7 v* l RowBox[{"(",
. F" z u( g: J6 b; w+ l7 p RowBox[{
0 S- M7 s3 F- i3 M# `) C& T5 n RowBox[{"-", "0.105619387859`"}], "-", 2 ?) M% F6 [/ m. s1 w8 `( _4 F
SuperscriptBox[7 }9 x$ A+ L; r- Y' x
RowBox[{"(",
1 v/ K# V5 j/ G, ] RowBox[{2 G- `5 I6 y* ~2 W* V. ?/ q0 h
RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
& s) o4 r% n: r SuperscriptBox["x6", "2"], "-", 0 }, {5 M- r$ H2 N) m
SuperscriptBox[
3 @# [$ A3 Y2 w RowBox[{"(",
% E$ W- }6 i0 X) M3 y RowBox[{, g& b0 d7 p6 T% |* i3 I! b
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", % f. h- ]) E* j: s& Q' j5 t; |
SuperscriptBox["x8", "2"], "-",
: `3 E' u0 R- L$ H) l8 E: A SuperscriptBox[/ w$ g f4 Q6 D
RowBox[{"(", - S5 [- k( @, u# D
RowBox[{( }8 z3 C1 u# j! ]0 L1 {
RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], , i& R6 ` q' k1 K$ ]5 w. d3 m/ Z7 t
"+", * h3 k! L4 M( q8 ?5 d- V! Y( g
RowBox[{"0.2115905228598317`", " ", 6 n+ r3 g# p6 P
SuperscriptBox["\[ExponentialE]",
% m. T" E) B! K9 S w ^ RowBox[{"3.1415926535897936`", " ", 3 s) \: E5 R" I h6 w3 L
RowBox[{"(",
" c' M, z* ~" c RowBox[{$ ?% J( m! m$ p+ ^/ J4 B
RowBox[{"-", "0.236605670085`"}], "-",
- \) Y( E8 A v- ~2 u+ v6 [ SuperscriptBox[
, f: x/ o, k. v RowBox[{"(",
" M( F6 e" n% U4 [( Z RowBox[{
% M! x4 h! W* I9 {' S) l RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
! i9 Q- H5 a; `* V% C" z- Y SuperscriptBox["x6", "2"], "-",
5 N/ w8 N1 t8 w SuperscriptBox["x7", "2"], "-",
( q {. R7 ]4 ?! H2 }; l, `+ T SuperscriptBox["x8", "2"], "-",
, H+ q* s0 E( c SuperscriptBox[
, i7 E. a- _0 o3 D8 W( ?" |# V3 O RowBox[{"(", , U4 X0 G' g/ Z
RowBox[{
2 K1 ]" J7 h' n RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ( \! J' n; A+ X
"-",
8 k5 q8 c" _" }4 v9 q3 B RowBox[{"0.22829938846668896`", " ",
. {+ ?' W2 ^& Z SuperscriptBox["\[ExponentialE]",
: `7 m1 S. Y! _/ j4 B RowBox[{"3.1415926535897936`", " ", 3 s& m& ^. T, r) b3 ^" s
RowBox[{"(", 0 l6 i" i3 o: ]- Y+ g5 O6 ?3 ^! ?
RowBox[{
* C$ K7 _0 H6 ` RowBox[{"-", "0.46221081830200006`"}], "-", 6 n! D! Q( P$ Z1 {# P. d* g
SuperscriptBox[8 K+ M* Q4 q2 {) d8 O, s2 {
RowBox[{"(", 5 X* D0 Y( A% G- V4 l5 p, m3 s! p
RowBox[{$ a: Y$ n( y* m- S9 L5 J' q
RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
, e; H( m" u5 E SuperscriptBox[$ r: {7 g5 k% y
RowBox[{"(", $ a& {/ ~# l- a- _7 N, T; x# I- |
RowBox[{
4 T2 s( \" n' I! k9 I- k$ u RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", 2 y! S! F* w9 |7 {9 a% @$ P' y* c
SuperscriptBox[
: N, z3 [( Y d RowBox[{"(",
. |" u. A% \- f0 H RowBox[{
; {" L3 G! F; g) h { RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", ) c$ B# F/ ^! V( u9 P
SuperscriptBox["x8", "2"], "-",
, f7 N3 g# E9 i SuperscriptBox[
# L+ j0 ]! Z! v$ e; \6 p RowBox[{"(",
. _! p; b' m# h9 K8 j7 h RowBox[{
# I! U4 B: y8 J; B0 U RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], / D# s$ x; M* H) Y' n7 [' }
"+", / s* E6 l6 w9 H1 ~
RowBox[{"0.27551257162880105`", " ", 7 X; U$ q0 `2 x3 a! }& a
SuperscriptBox["\[ExponentialE]", ' t# ?: S+ S! J: K2 F- I3 b' p0 G; y: Z
RowBox[{"3.1415926535897936`", " ",
6 y3 I4 e4 H2 x; }, _ RowBox[{"(",
% T" Z0 x9 y9 d3 b& K8 C. B/ D0 | RowBox[{/ ^8 y' w: X/ X% S: }
RowBox[{"-", "0.5837889295140001`"}], "-",
' Y. ?8 f* Q6 ?3 i7 b SuperscriptBox[
5 v! k# f6 q- l" ^ RowBox[{"(",
1 U! \7 f+ h/ J- y+ w0 |) s) W RowBox[{
% S4 ^* p$ X7 t. q RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
" T+ v) I$ u5 n W8 C. ?. D SuperscriptBox["x6", "2"], "-", " \$ g" N2 u$ r$ J" U8 b8 Y
SuperscriptBox[
1 d4 {/ _0 R4 s% K2 y RowBox[{"(", ' r* Z" W* {( U( o
RowBox[{
4 P4 U9 V0 N* A8 \" e# D) } RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", % C/ k1 N- I# j1 a: X# H) V% g" ]
SuperscriptBox["x8", "2"], "-",
% [; F9 w9 f! S7 W5 `5 L& G4 J SuperscriptBox[
" v+ T% z0 W E8 w) P% V RowBox[{"(",
: W$ J7 }) w- y! |4 b" b RowBox[{
& @/ X5 s. J$ ?! R RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 1 C- |, s; D' K
"-", + \7 h9 c+ N/ T* _. R/ t; E
RowBox[{"0.12620581913715256`", " ",
/ u, S M+ M0 K( h SuperscriptBox["\[ExponentialE]",
9 f) A. D$ V9 o8 }4 N3 c9 h4 p RowBox[{"3.1415926535897936`", " ", ; }( U3 j: t1 I) o) z6 s" Z8 A
RowBox[{"(",
) R, o- y7 q! O ~2 d, x" ] m RowBox[{
: E* l4 u5 J0 Q" T RowBox[{"-", "0.19030188470200005`"}], "-", " _6 |: K- n, ?4 p5 ]) K0 J4 @
SuperscriptBox[' p, f g4 X8 m: t% w. u0 _
RowBox[{"(", 0 p, o. X+ W+ W$ ~; i2 u Z6 @2 p3 D$ w
RowBox[{
+ K$ v. l0 Y( t, z0 r2 V RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
& i9 u% I; q+ j7 y SuperscriptBox[& @& w: b( N* X
RowBox[{"(",
. Q- N. M8 p9 P1 _& U RowBox[{
1 I" U$ \4 \' h% Z1 @5 X9 {0 R RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
0 k a3 @& k! f SuperscriptBox["x7", "2"], "-", $ I( Z' r9 Q* L$ C" ?; i
SuperscriptBox["x8", "2"], "-", 8 a, v& v( X2 }( p0 }$ c+ @
SuperscriptBox[
, @# Z7 k. H9 w0 D4 h8 s RowBox[{"(",
2 y1 ]/ k' k3 L3 J RowBox[{
# N# @9 t6 n2 e+ k( @ RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], - {# o. r# r/ }
"+",
% N& @, G9 x; l: E5 @8 W- L RowBox[{"0.12782130225993898`", " ",
- ]1 a h# D6 y# q3 c SuperscriptBox["\[ExponentialE]",
6 R( b! d% J% u% A RowBox[{"3.1415926535897936`", " ", 7 x" D8 }5 E+ q& @$ z# Z3 r2 A) i
RowBox[{"(",
' X8 ~8 L# y( [$ s$ p4 F v RowBox[{: ^. Q% z- m5 c( @
RowBox[{"-", "0.28518780882`"}], "-", ) D/ I* J$ j u; _
SuperscriptBox[
* ~8 T+ R# J) N4 a; X RowBox[{"(", 7 n7 S! e2 h8 q; V; u
RowBox[{) w+ q5 c$ _& c7 r; P3 n
RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
+ L2 r6 U, O. j( e+ }: _ SuperscriptBox[; a6 z0 e- B6 e% L3 S+ n5 N
RowBox[{"(", T3 ]/ Y6 F) m* t* {
RowBox[{
/ C$ w4 a V6 y: E RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", 0 Q8 Y5 K1 P& t$ b) G' _
SuperscriptBox[
+ o Y! U Q- {% t6 q& v1 b9 T RowBox[{"(",
1 H9 ~ u: D% F3 a) i0 K RowBox[{
( m# w' H" C+ ]. a& u. Y2 M( | RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", 9 v! m: @% [* u
SuperscriptBox["x8", "2"], "-", . S( K9 m% J+ \, U. e
SuperscriptBox[- B2 f2 k+ R) d H& w. y1 Q: g- I
RowBox[{"(",
P" x& r4 ]' s1 Z/ N4 o8 ? RowBox[{
8 |7 i7 S7 u; i; O- A* t; F RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 8 z0 P! p0 O7 A0 Q! _* n7 @ V
"+",
5 M5 U; S5 w; Y( j1 C$ g8 D$ n RowBox[{"0.23615247809381104`", " ",
! ?: X8 q: g3 H0 x5 _& s SuperscriptBox["\[ExponentialE]",
& F6 w! Y& _4 B. }- ~2 C RowBox[{"3.1415926535897936`", " ",
% n6 f" D- g3 U6 E- |) K5 Y RowBox[{"(", 5 V9 S; d" Y6 S, x( B& _9 N
RowBox[{* W4 d9 _' r- W, h9 [6 m
RowBox[{"-", "0.11387365200400001`"}], "-",
/ y# `$ P" a! O7 M t: _% S SuperscriptBox[
6 Z# B- L$ C D. H9 x# ?1 e# _ RowBox[{"(",
; y$ u3 V) X N7 m5 r RowBox[{
8 @# `1 W$ ]1 F: \ R RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", " ]8 T. O/ Y9 _& r/ m& Q
SuperscriptBox[
/ L# n' u# ^$ e# D: i$ z RowBox[{"(", 9 _) ~* E1 |! ]; x( c8 ]8 }
RowBox[{
# \/ M& P, |( E7 i4 z RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
4 C& j- y/ p1 X# ^3 v p2 p; G SuperscriptBox["x7", "2"], "-",
" P' o& d# t7 ] SuperscriptBox["x8", "2"], "-", ) H0 U/ i! l! A' N7 p
SuperscriptBox[
9 i) Z' F3 C) t8 J" Z RowBox[{"(",
" n0 a6 B+ D! K+ h RowBox[{
, A5 _4 m8 k% l g9 r7 U7 l& e! O. { RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], * i8 R1 m& H. x9 D; W# J1 ^
"+",
% W/ E& }) [% g, y1 i RowBox[{"0.3207174990295845`", " ", " D, e9 t2 L! ~8 Z
SuperscriptBox["\[ExponentialE]",
" [: l4 o4 ]1 `. t" s; d) s RowBox[{"3.1415926535897936`", " ", 2 v/ U- c$ D e) I# X3 j1 B
RowBox[{"(", " p8 F5 S7 z/ B3 @; n1 c
RowBox[{" U: Q+ B% Z' j4 u, z/ ]8 P# T6 F
RowBox[{"-", "0.11442644782500001`"}], "-", / ]6 x( N( x: z
SuperscriptBox[
2 Y5 W& e/ c4 ?: j) M RowBox[{"(", 7 T" k$ K |' |, {. A+ ]
RowBox[{
# f* p5 r. i+ U- _5 `/ ]/ W" J }# R RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", 0 }' ]8 W: [# h+ N# k3 N- W5 m5 j. J; Y
SuperscriptBox["x6", "2"], "-", # J- ]. m& ^) s4 v( `" L
SuperscriptBox[
: k( u2 C8 b" z RowBox[{"(",
6 [$ E/ S5 m1 X* E) L/ y3 W- z) Y RowBox[{' b. G& W- y4 ?6 u+ U
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", ! o o# N2 k E6 Q7 P1 v
SuperscriptBox[
% m, L$ f' [. S8 b1 t RowBox[{"(", . O# _: b) O4 R9 Q# X' l& q$ C
RowBox[{
9 b! j0 k9 L$ o$ @ RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
- r, X4 i+ t- w( Z) D3 P SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
+ U, {2 Z0 O, f RowBox[{"0.15852708848338293`", " ",
$ Y( `# t+ f" X, F( k SuperscriptBox["\[ExponentialE]", ) _, {0 i- A& i8 n# J
RowBox[{"3.1415926535897936`", " ", 2 G' A/ n* d& ~! [" j# \0 X9 b' B7 [' c
RowBox[{"(", ' v8 @ h% J! M$ G* X' B
RowBox[{5 u( K3 H F! E& }" E* J( b% O$ X ]
RowBox[{"-", "0.21008576609800003`"}], "-", 0 D" C. r2 O7 [: x- F, E
SuperscriptBox["x3", "2"], "-",
7 G. |+ n) Z, u" M! M I' @ SuperscriptBox["x6", "2"], "-",
/ n/ ~/ q& s1 c0 Z SuperscriptBox["x7", "2"], "-",
$ ~1 l2 e# h4 G) O+ u SuperscriptBox[7 a$ E) [7 Y( d9 b2 m& {* P8 c
RowBox[{"(", ' k3 J7 z% p- [' j; N) e6 `% G
RowBox[{
6 z- B$ S: N" a* x, l$ J' X# a RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
& }2 u: Y4 I% r6 p SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", 1 ?- f7 x3 U& M% l8 j# f2 x% u% e
RowBox[{"0.6019775648968266`", " ",
5 ?: L) B( F. n5 x SuperscriptBox["\[ExponentialE]",
9 o/ F8 a5 U$ H, p% q; K RowBox[{"3.1415926535897936`", " ", 1 _" f& R. Z6 H3 \# E, ?1 H. X- V
RowBox[{"(", - Q6 b- z8 h2 X% H
RowBox[{% k+ U) V/ Y/ p* \
RowBox[{"-", "0.4481471925460001`"}], "-", # q9 n* ~: q4 u% {
SuperscriptBox[3 q; P& T; A; J. u: `3 s# K1 Q# l3 `
RowBox[{"(", 0 f6 U b0 ?7 _0 O
RowBox[{2 C. q) h0 n5 o/ H& |# E. j
RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", $ v8 ?/ R3 i2 i" p: @6 k$ a
SuperscriptBox[$ o4 N3 ~8 ~" Z& L" x8 C
RowBox[{"(",
# E7 d0 c8 A) Q* E RowBox[{: w. k0 w( x6 k# z* u+ I* \5 m
RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", * x) |- K @9 a+ k- \& d; ?( k
SuperscriptBox["x7", "2"], "-",
" P' `" x! g i1 a9 S/ C+ k SuperscriptBox[
& e' X; V! }1 o( ^7 V9 M- x9 N RowBox[{"(", # ]+ G* X! p- b% y% U0 @
RowBox[{( I. \& Z3 _3 C" v8 E/ ?5 o
RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
6 E5 A2 `7 j) |( w* s/ ^) q j4 A SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", * _ \2 C9 G' q2 D* W
RowBox[{"0.16041393254115266`", " ",
; e; D6 Z, G: F SuperscriptBox["\[ExponentialE]",
" U, L& u* u9 Y0 r; m RowBox[{"3.1415926535897936`", " ", / `5 I2 E/ e& v
RowBox[{"(",
- ?& s7 J/ J' m' z! _ RowBox[{' O) T+ @7 h m7 W
RowBox[{"-", "0.08722659614000003`"}], "-",
) e6 l# y+ w t! M. B: s; O SuperscriptBox[ B/ y! p) T* p2 `5 T$ f, S' N4 F
RowBox[{"(", 5 Z+ B# Y9 K( v
RowBox[{% M$ \! i8 O. Q' O( G2 D& M* S
RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
2 Y }7 J+ |4 a( ]1 { SuperscriptBox[
3 D$ B) H8 W- w RowBox[{"(", . C o+ O' Q7 O
RowBox[{
( L' D4 W! x1 i RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", " i; G6 h! s1 e( v- U' l O% p
SuperscriptBox["x7", "2"], "-", / H/ x9 H, Y1 R) b" C; T% ~: G
SuperscriptBox[' S7 E$ Y& e" y1 W
RowBox[{"(",
# I+ [% P1 `, _- D, k+ j. I6 n0 Y+ U RowBox[{8 `/ M/ ^& L. {1 I
RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
$ s- X2 v. T$ T( S5 O* M( U SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
$ x' q9 f) w! k( Z/ z& i RowBox[{"0.482281849713638`", " ", 4 x6 C- ~, R* Y
SuperscriptBox["\[ExponentialE]",
5 Y( P: ^7 }" F2 E- G8 u8 n RowBox[{"3.1415926535897936`", " ",
: F& @4 ]+ J( c% K0 F% n9 x C: ` RowBox[{"(",
5 u1 ? S+ ?8 P- ^0 \3 P RowBox[{
7 X4 Z* V' k: ~# [+ N0 } RowBox[{"-", "0.23738217000100004`"}], "-",
: h W( U$ |$ K" g8 g, S SuperscriptBox[4 H7 S2 ^; \# B* l
RowBox[{"(", 1 q- ^: o2 R- e9 t
RowBox[{% I z p4 _9 C: r, m
RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", ( P0 a5 }8 z- Y/ K1 K. T" l
SuperscriptBox[
4 D# w$ q, M5 u RowBox[{"(",
- E: H+ R! V3 k1 Z. w$ | RowBox[{( d T9 G* B- K
RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", : `2 i3 y+ f$ M+ s6 }, P' K
SuperscriptBox[
9 j$ C& _: ]% }+ V5 T RowBox[{"(",
* `; s0 e- C- y! D; ]3 F RowBox[{3 y8 Y8 w0 Z0 S% X
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
, h, V+ Z7 w6 @. e" I4 x* ^ SuperscriptBox[
. H3 b9 {5 o+ C& f. o0 _3 Z RowBox[{"(", " ?3 |2 X6 z/ S% X
RowBox[{3 A9 q# X! ?5 h1 T C. N
RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
/ f& ~. z/ p( I1 Z' A# _- ` SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", M0 K* j) J. F+ e6 G
RowBox[{"0.29549238400772093`", " ",
# a7 I' Q0 E0 _5 o) U9 q SuperscriptBox["\[ExponentialE]",
9 x S" h% F: c# g RowBox[{"3.1415926535897936`", " ", + T! _& I1 H" a. v( O1 k6 M; C
RowBox[{"(",
: w: v9 |8 v3 `: u6 a RowBox[{2 t5 O8 j: S7 b
RowBox[{"-", "0.19162171876400003`"}], "-", 0 t+ ]. |4 B- R. ~5 g* ]
SuperscriptBox[, ?$ d; v$ W' R; m, P
RowBox[{"(", ( `) o" Q( a4 k* @% W
RowBox[{. @ {1 D. }! c8 d& [
RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
8 e$ i( u: a' u8 f" F6 D4 \% S SuperscriptBox[# y( v1 r4 d4 m( s W+ w* `. [
RowBox[{"(",
8 w" i) R# H/ T( C/ Y! W RowBox[{
% i) l* N% y) [. R( G ~$ | RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", ! I1 {, S5 A& H k; G
SuperscriptBox[) b0 q- A2 G& C: c' D1 Z
RowBox[{"(",
5 ]" v# f% y7 O8 K RowBox[{" d4 ]0 Q k/ ~ V' [' H4 a/ d' T
RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", 8 O% I2 C# ^" W$ H
SuperscriptBox["x8", "2"], "-",
! U2 A5 h3 N" k- | ^( \ SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", - g$ B( u0 J# i( _" g8 h; U
RowBox[{"0.31296872769679895`", " ", 1 U8 s& c+ T: g; R3 D. W
SuperscriptBox["\[ExponentialE]",
6 A- S8 |& p9 T3 x, P m6 Q RowBox[{"3.1415926535897936`", " ", 9 T; Q, w, _% _5 a$ [
RowBox[{"(",
. W0 Y, e5 Q* u2 S RowBox[{7 C7 _# x% d3 E5 i
RowBox[{"-", "0.109748954594`"}], "-", 8 L$ V, c9 m8 v
SuperscriptBox[
' C# ]4 A4 J9 x, R# F. ?6 Q RowBox[{"(",
+ M6 r& I# q- E5 ]% h/ V RowBox[{
6 a( H5 R$ ]) t! ^1 L9 L# z9 |5 d2 O8 Z RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", . C$ U H( v) ?$ q1 m
SuperscriptBox["x6", "2"], "-",
+ s/ v1 E$ d2 F0 | SuperscriptBox[4 O2 N' I' `8 s3 l: b W
RowBox[{"(", 7 q3 @) D9 ~% O* b2 t% b" W. \1 Y
RowBox[{( W4 b3 S$ U- G: C2 G q
RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", - V+ s7 P2 R1 G; z ^" B# n
SuperscriptBox["x8", "2"], "-",
( c$ @) z* ~3 m8 R SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
1 Q9 ]! E7 s3 a: f$ O RowBox[{"0.4666313851213299`", " ", + r N/ x% d. ?6 q) Z4 W. x, V
SuperscriptBox["\[ExponentialE]", . s H8 U1 L- U L; W* F0 d
RowBox[{"3.1415926535897936`", " ", 9 p7 {( r; W# X
RowBox[{"(", ; S7 e Y! e0 U3 y! a5 q
RowBox[{6 B* ?7 K! ?8 r( ~& a4 h2 O- W& M0 A
RowBox[{"-", "0.14616677062500003`"}], "-", $ _% l1 H, y7 Y, D9 T3 z7 Z; t
SuperscriptBox[ L7 `7 a. g: m0 Y* C9 P
RowBox[{"(",
4 n( I7 N0 Q* A7 u4 ^+ e% i) Y RowBox[{
( L' }5 p# n& A6 e; C, g4 n4 g+ p RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
8 C# q' U' S) m3 H, v) h SuperscriptBox["x6", "2"], "-", 1 c' u+ \/ p# P
SuperscriptBox[
7 `1 r/ x) v9 X! @) \ RowBox[{"(", ) @* o* D" W+ |" O3 w* L
RowBox[{! L6 ^/ V0 z) O% |+ V6 T2 a ^
RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", + f" a+ a- N( J- |3 p% a: \5 c$ e
SuperscriptBox["x8", "2"], "-", 1 F- z. |$ B* Y0 }1 j
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
. i/ x1 a7 }/ R6 a$ ? c RowBox[{"0.37419828116611387`", " ",
; H( K* |0 D' x SuperscriptBox["\[ExponentialE]",
3 T z8 A3 B _% f- }! }/ A RowBox[{"3.1415926535897936`", " ", & \1 x' A& |! d* Q0 s- L- j. B
RowBox[{"(",
7 G M- C" y- l/ u/ n5 }7 B# P RowBox[{: a" v' P1 D! q6 M& U+ q
RowBox[{"-", "0.10407011464100005`"}], "-", / f3 Z! K* q+ U
SuperscriptBox[- c# k5 V! @- L
RowBox[{"(",
+ t* u$ q. Q/ Q7 J8 U5 F3 Z6 B5 v! m RowBox[{
: P! R. z2 Y7 l) h2 M! D$ q0 f RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", 7 o- t" E( @4 J" l* |0 J
SuperscriptBox[
: n0 Z$ Q5 [' s3 {7 p: A RowBox[{"(",
- C% \% j ?0 X* D: f% U$ n2 G9 W RowBox[{
$ b! w; y+ `: `( T4 z$ l+ m* N* m RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", ) j8 o3 }* p1 f( e
SuperscriptBox[
8 u/ m( p7 S' {$ T2 M- H RowBox[{"(", : ^! u0 O$ I t9 r3 ]# U
RowBox[{
! V4 t( {' h+ ]. J- G* M$ S3 y RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", / D0 I* j# d, k% H O2 E0 P$ q
SuperscriptBox["x8", "2"], "-",
$ L( ^4 o( N0 J3 v; B& v SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
$ v' g$ ?$ R( ?: L% d: x3 e RowBox[{"0.025873988843992612`", " ", * L( g+ W. j7 h5 N) T5 Q# O% _
SuperscriptBox["\[ExponentialE]", * | R+ V9 V% T: ?5 T
RowBox[{"3.1415926535897936`", " ",
2 H x# j7 i' |( ` RowBox[{"(", $ o/ w a0 d4 ?+ S; }! [' K0 ~
RowBox[{
" `6 O2 W% l0 L, c6 H F RowBox[{"-", "0.31770463544200006`"}], "-",
0 d! i2 r9 m- Z& O SuperscriptBox[7 r) c4 {( m+ P9 j+ a4 {8 q+ N
RowBox[{"(", ; H+ f! U8 K' i! K. X
RowBox[{
' O, J" D0 s% I& w+ R2 i RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", 4 l* c: k3 z. V$ C# m
SuperscriptBox["x6", "2"], "-", 2 |: c3 P, ^7 F8 ?
SuperscriptBox["x7", "2"], "-",
) \, u4 N( C- S! i+ d ]% J SuperscriptBox["x8", "2"], "-",
W0 m% O$ g { t6 z% P% F8 k SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
) [4 I" \& \; o% t: r3 N0 _ RowBox[{"0.5575503376854455`", " ", " K* B' ]5 b+ Y2 F& P7 v
SuperscriptBox["\[ExponentialE]",
( l6 \7 H3 }; f RowBox[{"3.1415926535897936`", " ",
- P7 l5 s1 B; p5 M RowBox[{"(", 7 n% h) C* W, k) A+ T5 Z x2 s- }2 p
RowBox[{1 ]; _& j1 I' Q8 {
RowBox[{"-", "0.6410867660730001`"}], "-",
- Z' s. J# O9 Q( h" ]" e+ J- D) ~ SuperscriptBox[1 h3 r- X( p8 a) E |# l
RowBox[{"(", 8 O+ e; E: ` B+ q
RowBox[{
$ T( q9 D# `0 x RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
9 [& b* s. Y+ I3 x% _ SuperscriptBox["x6", "2"], "-",
5 Z/ R% x5 H7 k5 b: o SuperscriptBox["x7", "2"], "-",
0 s( x5 i+ |& B5 M: H$ i# S+ L( | SuperscriptBox["x8", "2"], "-",
* C% ~5 x/ |3 }0 Y1 ]! K9 | SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
$ T; q9 k# P3 M# t0 |. T. i9 k RowBox[{"0.13398540448199214`", " ",
% s- w2 K* q& V9 j" U SuperscriptBox["\[ExponentialE]", * v' x: K+ i/ Z( S' ]% _
RowBox[{"3.1415926535897936`", " ", ) M6 |) h. t3 ]" X) \5 T0 H; T# u
RowBox[{"(",
/ r% A! R# Q% b' O1 s# S RowBox[{- p5 R1 ~- }4 G0 O
RowBox[{"-", "0.155663887074`"}], "-", ! z+ }# m! j+ o" q
SuperscriptBox[
5 w1 f! r# F T. K1 r RowBox[{"(",
' ^: r; U( m( i RowBox[{
( _# d" ]) r* ?# G8 } RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", / G+ v6 z! r& O2 ^3 {& P
SuperscriptBox["x6", "2"], "-",
- D. ^/ x( i1 |2 Q }. ~7 w SuperscriptBox["x7", "2"], "-", $ b. j4 a. p7 ^. F- F: r- m
SuperscriptBox["x8", "2"], "-", + h& d. C! a- _( I0 ?. x+ o! H+ q
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
! B/ b$ h, b! c RowBox[{"0.4572385099113415`", " ",
# G) w; A: @* q/ i+ B SuperscriptBox["\[ExponentialE]",
# [* }, d {6 Z RowBox[{"3.1415926535897936`", " ", + P: K% p4 g- E7 {! H" [
RowBox[{"(",
5 i; X- W1 d: ]* H RowBox[{
2 D3 n9 l( X1 _: J% z* b9 |9 e RowBox[{"-", "0.14151232428600002`"}], "-", 6 b+ X$ I5 Q1 X0 y7 g: c
SuperscriptBox[# b4 M$ A5 Z2 W. u
RowBox[{"(", ! q9 x) @% `9 ?6 R& x( b3 I' w
RowBox[{' @2 i: A+ g. y7 l* J& D2 z
RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", ! p* `: |+ V4 Q6 t/ X
SuperscriptBox["x6", "2"], "-",
% N* s: B" I4 Z1 w) H( Q7 { SuperscriptBox["x7", "2"], "-",
6 o: J/ D* y) Y% y SuperscriptBox["x8", "2"], "-",
* \: ~0 e2 D9 @5 O( n8 s1 o SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",
4 w" ~; ~# x! E* H- J CellChangeTimes->{3.577962841401445*^9}]) g. ?- C1 i: Y% c
}, Open ]]$ D. {( p u0 v6 E, W( c
},1 L+ z( i g+ K9 A
WindowSize->{1093, 659}," y' B7 C" u3 j y7 x3 C3 C( j
WindowMargins->{{61, Automatic}, {Automatic, 15}},
, Z; `* V: a& P& h' a2 G5 x" cFrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
w8 y) Y) ?6 b& g$ K b. F& fStyleDefinitions->"Default.nb"
! ^2 r6 t2 L4 Y) R2 z]' ^1 ~2 [, M- }
(* End of Notebook Content *)
: A S# s: ]- u8 Q2 {7 N8 {- k8 ]9 u+ b) P- Y
(* Internal cache information *)
1 J' W5 E2 ]1 ?6 i+ q, D; J4 u( \) ^(*CellTagsOutline' `& i5 T( M- c8 @( g) o7 s) j( U9 o
CellTagsIndex->{}
! c" E$ D2 _( ~. p3 C*) T7 S& v8 E* C7 R: I
(*CellTagsIndex
" S+ h, Z, J- rCellTagsIndex->{}& e4 H' ?2 N; x( E
*)
2 M' L) n# }3 ^ z2 c(*NotebookFileOutline
' y4 g6 l- }# @; J: R: tNotebook[{
$ h; L2 Q6 K3 R1 X, ICell[CellGroupData[{! L! ]. B. u0 b+ X3 k7 t1 C6 T
Cell[567, 22, 22639, 450, 1792, "Input"],$ Z6 {$ u* a' V j( f* p: Q# W
Cell[23209, 474, 21281, 449, 1703, "Output"]
: }) s% I: b6 d' i$ q6 P}, Open ]],
: m! i/ \$ v x: fCell[CellGroupData[{
% X' W8 u# Q2 ]; NCell[44527, 928, 198, 5, 31, "Input"],
' n) P8 m- i3 c$ j2 rCell[44728, 935, 53666, 1605, 1532, "Output"]0 q Q/ Q9 _7 }
}, Open ]],
( l; {/ x) c- u1 F I+ ACell[98409, 2543, 614, 16, 112, "Input"],; A( B$ @6 ^- }6 l
Cell[99026, 2561, 667, 17, 72, "Input"],
! C! t. N! l' h* gCell[CellGroupData[{4 t2 A2 c; x1 R- J! M
Cell[99718, 2582, 885, 13, 52, "Input"],! d: s3 A# {( U1 \
Cell[100606, 2597, 935, 14, 30, "Output"],/ {2 |9 K7 J8 ~1 f+ z9 J7 }- C- u
Cell[101544, 2613, 932, 14, 30, "Output"]
1 Q+ ?# |% M$ Q8 G/ D+ O}, Open ]],
) p, B2 }& B4 T( w8 a. B1 _: jCell[102491, 2630, 4236, 93, 412, "Input"],+ s, P3 ?; U" d& P* x" h; j) e- G, L
Cell[CellGroupData[{; ]3 A3 k; |* q" ]+ c# H
Cell[106752, 2727, 90, 1, 31, "Input"],
& v$ W% i8 h% B) \4 I; A ZCell[106845, 2730, 872, 13, 30, "Output"]4 D. e5 t, S) H |- n/ X& c5 s8 @% w
}, Open ]],
* V1 X" a' \: l4 OCell[107732, 2746, 458, 10, 31, "Input"],6 o5 H7 J. Q8 V8 D
Cell[108193, 2758, 126, 2, 31, "Input"],
. S7 @. V6 e7 N& J% kCell[CellGroupData[{8 J- c& I- h( b6 d [" T. Z
Cell[108344, 2764, 248, 6, 31, "Input"],% r0 b1 A( O- u" b7 c& B
Cell[108595, 2772, 1007, 17, 30, "Output"] w- k# \- F5 s. M8 f" C4 Q
}, Open ]],% b; [0 f( y. U
Cell[CellGroupData[{
* d& W: V2 M* r: NCell[109639, 2794, 251, 6, 31, "Input"],
4 ]7 N/ U4 B" ACell[109893, 2802, 1013, 17, 30, "Output"]0 x" J9 l+ X6 h% b
}, Open ]],
$ c" r# D# [) F+ B L7 B# y9 W, ~Cell[110921, 2822, 1232, 23, 31, "Input"],
7 X% w- h A; ~' T! X; X7 WCell[CellGroupData[{
& I& z9 Z( G& BCell[112178, 2849, 147, 5, 31, "Input"],
% p1 y* O. q6 z* a V4 @; O! z: nCell[112328, 2856, 1979, 50, 50, "Output"]7 t& @$ D- Q; H! i5 t2 p1 e% R
}, Open ]],- Q- J: r& J; X) i: ?
Cell[CellGroupData[{7 }8 T& L9 j" z, z6 v- @
Cell[114344, 2911, 195, 5, 31, "Input"],
! x1 A7 [/ c& h( RCell[114542, 2918, 123, 2, 30, "Output"]
: m8 T( `9 n5 o$ M}, Open ]], N: S( e0 O1 c3 {! F- R; R
Cell[CellGroupData[{1 b' E" j/ Z9 M- h+ j
Cell[114702, 2925, 144, 4, 31, "Input"],* ?2 n2 C/ S7 |: E3 a: e
Cell[114849, 2931, 96, 1, 30, "Output"]
; p* Y; e1 A+ Q6 |1 N}, Open ]],
: f) {$ R; n1 n6 s4 ?Cell[CellGroupData[{
! Y- k" K& N+ [" d q; F1 _Cell[114982, 2937, 146, 4, 31, "Input"],
* R4 q4 l8 E, e1 T, VCell[115131, 2943, 495, 7, 30, "Output"] Z C8 [7 A3 I) y8 g
}, Open ]],
, w. }8 H5 T9 N: GCell[CellGroupData[{
8 d+ ~+ o! w" ~& f+ BCell[115663, 2955, 144, 4, 31, "Input"],
|, m4 \# q6 q( U, I2 X! UCell[115810, 2961, 418, 6, 30, "Output"]
$ y1 z7 E& S, z6 b. f) @}, Open ]],
1 _6 ]8 y& y$ M1 p1 Q! |Cell[CellGroupData[{
; Q, ]) ]1 j3 u' M! TCell[116265, 2972, 144, 4, 31, "Input"],
, x7 k }8 A, J) z2 U- f r- VCell[116412, 2978, 549, 8, 30, "Output"]
+ }! b0 C; W6 D( \ @! r% Y# l}, Open ]],% w/ n0 ~3 H& y& P5 Q4 H9 M
Cell[CellGroupData[{
3 {( v/ ~. | `/ [Cell[116998, 2991, 537, 10, 31, "Input"],4 b6 e- h) F9 N& ~7 h
Cell[117538, 3003, 998, 14, 30, "Output"]
( X- ~/ m, \0 j! ^; r3 z2 r# X8 D* I}, Open ]],8 ^0 n2 z: r1 m! Z
Cell[CellGroupData[{
9 ~8 j7 a: x9 O" B4 e+ F* hCell[118573, 3022, 2321, 55, 44, "Input"],
6 H% S7 j1 f) e. v$ S4 J- i' fCell[120897, 3079, 1541, 38, 91, "Output"]" q2 u/ r" i2 l, R
}, Open ]],
6 G2 V/ D0 \/ v* gCell[CellGroupData[{
8 J1 d: V' r# |/ `! vCell[122475, 3122, 856, 19, 87, "Input"],
# u/ P8 G) C' J* ]! ICell[123334, 3143, 568, 14, 91, "Output"]- K$ [" z ^$ ?7 o R
}, Open ]],+ y/ y6 U$ e4 J3 P5 F7 ^
Cell[CellGroupData[{
' T+ ~0 }7 `" h) c9 wCell[123939, 3162, 437, 10, 31, "Input"],
" Z5 A3 m. ~1 XCell[124379, 3174, 739, 12, 30, "Output"]
i# G& v4 z0 ^; k}, Open ]],- @% I7 z3 {6 ]) E3 {5 v* J3 l
Cell[125133, 3189, 242, 3, 31, "Input"],
9 Q/ o% a4 b1 h! l! J5 KCell[CellGroupData[{: X" \* p) t* a9 ]8 k* E H
Cell[125400, 3196, 109, 2, 31, "Input"],
' t* V3 N! g- K3 Q" K4 V. aCell[125512, 3200, 323, 7, 30, "Output"]! P' ?% M* z6 I9 E0 d1 x
}, Open ]],
, R- ?3 p1 x+ i2 z" JCell[CellGroupData[{
+ m2 x* |& `2 h6 J2 fCell[125872, 3212, 526, 15, 31, "Input"],
0 ~& m7 W9 A3 N1 ICell[126401, 3229, 1436, 44, 36, "Output"]
2 f( F- w9 h& V8 W}, Open ]],
, c5 _3 E) f0 P) [4 uCell[CellGroupData[{
1 N, f5 g7 C: P/ W* bCell[127874, 3278, 92, 2, 31, "Input"],
+ O2 ?/ k, x/ @8 y1 A& f9 B& y- jCell[127969, 3282, 326, 7, 30, "Output"]
8 Z8 v; h" L. Q% l& m7 w+ O! {6 n}, Open ]],
3 P2 g7 a" R" ]) GCell[CellGroupData[{
) }' C" L$ A" F u6 O4 ~ a9 @' ]; q( vCell[128332, 3294, 388, 13, 31, "Input"],
3 N* Z8 }; _( [3 r% a5 s* vCell[128723, 3309, 1381, 42, 36, "Output"]9 E1 i1 }7 Z% e* g
}, Open ]],; ?6 z: Q+ y: d
Cell[CellGroupData[{8 ]% X. ?6 V1 U5 K0 g, D( ?4 ?
Cell[130141, 3356, 89, 2, 31, "Input"],7 f6 q7 c& L( G8 e" G
Cell[130233, 3360, 320, 7, 30, "Output"]% E" e$ X, k! D: l F9 j/ B# K
}, Open ]]," V& G4 l) O3 H/ d* K3 h
Cell[CellGroupData[{
6 E5 l$ A& l* s* G n+ LCell[130590, 3372, 387, 13, 31, "Input"],
9 q' e6 A4 Q" L% M9 F6 RCell[130980, 3387, 1381, 42, 36, "Output"]/ }) ^ S$ O9 O1 {& d# e( V
}, Open ]],: w ~2 A9 |% U$ U! y S
Cell[CellGroupData[{
( B/ z+ [. _6 ~Cell[132398, 3434, 91, 2, 31, "Input"],
0 P( S7 g9 T- u! A/ w8 l- v9 BCell[132492, 3438, 328, 7, 30, "Output"]. C+ }# L; ~" {. h O
}, Open ]],* X6 l0 Q' n; g1 V8 Y
Cell[CellGroupData[{, F4 X: E& C# h% m/ x5 v; a" D
Cell[132857, 3450, 384, 13, 31, "Input"],
) u9 h+ O8 C, ECell[133244, 3465, 1379, 42, 36, "Output"]3 d- {3 O# f5 |* ]5 E' \: B" `
}, Open ]],% T) W+ t# r& F
Cell[CellGroupData[{& Q; I6 f2 x. v2 j8 J3 F. m8 Y
Cell[134660, 3512, 93, 2, 31, "Input"],; h& |8 X; [/ k3 j- R8 C
Cell[134756, 3516, 322, 7, 30, "Output"]
/ h3 P, U3 }1 Y: y2 Z# Z+ i/ f- Z! |}, Open ]],8 c9 _, V4 b' z- v' Z% x: u: @
Cell[CellGroupData[{; J1 D8 \6 t/ F" N
Cell[135115, 3528, 385, 13, 31, "Input"],' W1 O$ I& j! F0 a3 f0 u" ]% Y
Cell[135503, 3543, 1379, 42, 36, "Output"]
{8 H, W F9 U! o0 O}, Open ]],
o: V* R8 M2 n# a6 lCell[CellGroupData[{ B+ C+ T9 J2 l6 a
Cell[136919, 3590, 113, 2, 31, "Input"],
' w4 @9 _* n( R+ gCell[137035, 3594, 348, 7, 30, "Output"]- r, M/ c6 d A" s# N8 _7 p2 Y
}, Open ]],8 p0 O3 c! B' u: B' g
Cell[CellGroupData[{
5 u, u( G4 d) X8 l" {Cell[137420, 3606, 406, 13, 31, "Input"],: w" l/ i- j7 F4 K5 ~
Cell[137829, 3621, 1414, 43, 36, "Output"]
V3 E a% f8 Z, {, s}, Open ]],4 r4 j- l1 w/ k1 U% A: h
Cell[CellGroupData[{. g5 A: N+ j5 |$ } ^7 b6 ?% A, D- T
Cell[139280, 3669, 135, 3, 31, "Input"],
+ a6 O( w5 Y3 ECell[139418, 3674, 358, 7, 30, "Output"]
8 l: u# ^/ _, p e% {5 y9 q/ E2 S}, Open ]],$ c; a5 a0 r, ^
Cell[CellGroupData[{
1 E% Y6 A8 Y$ bCell[139813, 3686, 430, 14, 31, "Input"],
8 |5 ?' l/ {: M$ ^& mCell[140246, 3702, 1426, 43, 36, "Output"]5 j- b# v- i) j: C
}, Open ]],
( H3 r& u# A y+ `. s) uCell[CellGroupData[{1 i( @/ ?7 N# j- g$ D+ ^
Cell[141709, 3750, 156, 3, 31, "Input"],6 H; ^8 I( _% W4 o7 P. o# S
Cell[141868, 3755, 377, 8, 30, "Output"]4 |: `3 F( {! W n) [2 d" K) i- c
}, Open ]],
0 d3 M2 G4 g& w, X+ sCell[CellGroupData[{
+ r$ T! @1 w! }0 O+ U1 b# ACell[142282, 3768, 452, 14, 31, "Input"],
# N) K: G/ K9 |/ D oCell[142737, 3784, 1440, 42, 36, "Output"]( `+ D: \' d* e- M* D* I
}, Open ]],, D# |: E% V) t; d* E
Cell[CellGroupData[{
6 U: ^) L7 Z& w$ ICell[144214, 3831, 178, 3, 31, "Input"],
: s" `0 s2 {# I5 L' F- z0 K* mCell[144395, 3836, 448, 9, 30, "Output"]
9 r8 u9 ^9 C; v! ? I}, Open ]],
. J) R/ c" Y- Y) yCell[CellGroupData[{" R2 K! Q! l& o. t; B8 B
Cell[144880, 3850, 474, 14, 31, "Input"],
! N6 d) J" b$ R( [Cell[145357, 3866, 1510, 43, 36, "Output"]
3 G9 D/ c4 \1 g6 v S4 G) ]}, Open ]],6 s6 a# [2 w* Q0 U0 g" I
Cell[CellGroupData[{
, p$ N; L& n4 Z B4 |Cell[146904, 3914, 470, 14, 52, "Input"],
9 B6 i# q/ s3 R W# x" UCell[147377, 3930, 257, 5, 30, "Output"],' g! C& s9 M! i) f1 E
Cell[147637, 3937, 1310, 38, 36, "Output"]
+ H9 Y. |! e( f. a; \}, Open ]],' A/ H4 }$ c( m5 _) i
Cell[CellGroupData[{; k( E) R2 m: \$ x7 Q
Cell[148984, 3980, 520, 15, 52, "Input"],, r( V: k. }4 }
Cell[149507, 3997, 293, 7, 30, "Output"],- I; {5 Q" i8 d4 s% u' I y& t" u& u7 Q
Cell[149803, 4006, 1345, 40, 36, "Output"]- Z0 X) Z3 w* ^$ n6 s
}, Open ]],3 g4 T& k# p( _0 i, Q+ {
Cell[CellGroupData[{
% ~8 n. Z& ?7 |: z8 DCell[151185, 4051, 520, 15, 52, "Input"],
( f4 v4 P* U- d; N6 PCell[151708, 4068, 266, 6, 30, "Output"],' D. `/ E4 G# _3 Y6 ?
Cell[151977, 4076, 1319, 39, 36, "Output"]& _: K# i' l! ^& Y' R9 }9 s
}, Open ]],1 z& \; M1 {, P
Cell[CellGroupData[{
' A% `4 M5 q. S( U; `% bCell[153333, 4120, 520, 15, 52, "Input"],: U0 y2 z5 k4 E
Cell[153856, 4137, 272, 6, 30, "Output"], j3 m! L% A" A8 T" c* v* K
Cell[154131, 4145, 1327, 40, 36, "Output"]
: M' [7 C% j1 t3 b1 @8 C}, Open ]],
5 Q, S9 d' v% v+ SCell[CellGroupData[{/ ^$ i. `+ o5 B$ {5 i
Cell[155495, 4190, 520, 15, 52, "Input"],. k! \9 r2 L7 l' b
Cell[156018, 4207, 265, 6, 30, "Output"],+ i4 N$ N. i4 D3 `+ I V, a4 d7 D
Cell[156286, 4215, 1318, 39, 36, "Output"]
; Y$ H2 T4 L' i7 N}, Open ]],
) n' D4 D* o a9 }- f* OCell[CellGroupData[{
9 Y8 f k/ `7 K- ~/ C& u$ TCell[157641, 4259, 517, 15, 52, "Input"],3 V L2 E% s8 l+ |! l
Cell[158161, 4276, 275, 6, 30, "Output"],. I: ^' k4 ^+ Y% L& @
Cell[158439, 4284, 1333, 41, 36, "Output"]7 v$ v; n/ \2 D1 N( L
}, Open ]],3 o- |9 }" [ w$ i1 A* j0 e+ J8 H
Cell[159787, 4328, 381, 11, 31, "Input"],& e3 O- K/ ]+ G1 T) k( s5 b0 h& @
Cell[CellGroupData[{2 D5 P3 _: `9 V$ o/ E) S0 |+ K6 R* L
Cell[160193, 4343, 573, 16, 52, "Input"],
' c8 F7 u) I5 C4 X7 [2 L6 TCell[160769, 4361, 278, 6, 30, "Output"],
' G; x! N' f$ w* w9 E- J" h, LCell[161050, 4369, 1328, 41, 36, "Output"], m' b4 E% P7 X t" _9 n% M- O
}, Open ]],
7 o' S7 _# f- B' J: E8 S( W$ [) M4 E/ DCell[CellGroupData[{; A e/ J m( u- V( y2 D9 Z# ^
Cell[162415, 4415, 571, 16, 52, "Input"],
- E! h! c' n- e! k0 {3 a" ~Cell[162989, 4433, 270, 6, 30, "Output"]," n# Z( B" \6 c& r, j
Cell[163262, 4441, 1325, 40, 36, "Output"]8 @' Q* v( M M' d3 e1 ?
}, Open ]],
, `4 S# T6 C- D8 e v. XCell[CellGroupData[{6 }/ {$ B$ z! k5 B c
Cell[164624, 4486, 571, 16, 52, "Input"],. M6 I3 s/ l0 P- d3 e/ ]7 r" U
Cell[165198, 4504, 264, 6, 30, "Output"],' V; @) L0 d% J0 A% }$ ~; w4 Y+ Q$ S
Cell[165465, 4512, 1316, 39, 36, "Output"]
3 f& c' G: O, G0 j}, Open ]],
- l! `# o% p' T# W U1 M, x; tCell[CellGroupData[{
2 K6 m1 a# b" g9 Z4 f/ \Cell[166818, 4556, 571, 16, 52, "Input"],
8 l" V8 A7 h. v, [, `Cell[167392, 4574, 271, 6, 30, "Output"],9 q% X6 W9 [! O& O+ M- a
Cell[167666, 4582, 1329, 41, 36, "Output"]+ J8 \( L2 Z, L. F; E* ?1 N
}, Open ]],$ n9 q# ~6 x& ~1 l) }. Q* i
Cell[CellGroupData[{
; V& X4 u l. }4 g# k8 H6 HCell[169032, 4628, 570, 16, 52, "Input"],
8 j5 S* y+ [7 zCell[169605, 4646, 277, 6, 30, "Output"],
0 M. Z# l, U! X8 b0 t# N |Cell[169885, 4654, 1335, 41, 36, "Output"]* f. ~3 b- R+ O2 r- v N
}, Open ]]," J+ d; R0 O4 h$ {
Cell[CellGroupData[{5 ^5 d7 h* F; M
Cell[171257, 4700, 571, 16, 52, "Input"],
$ W+ A7 S$ `. L& eCell[171831, 4718, 274, 6, 30, "Output"],
% S+ C: _7 @6 {1 E+ N X+ [Cell[172108, 4726, 1335, 42, 36, "Output"]
2 U# @! b- g$ p# a% e% `9 H5 T5 ^}, Open ]],% f8 ~. g, k' G/ D3 i9 H
Cell[173458, 4771, 104, 1, 31, "Input"],
! }: z- r4 W, n" a& @+ m" \Cell[CellGroupData[{5 r" r; i' {3 F1 \( }) y
Cell[173587, 4776, 279, 7, 31, "Input"],
; n* _) z& \7 F6 l, T( v: O( HCell[173869, 4785, 878, 14, 50, "Output"]" Z% w8 v5 |2 V; a% E1 A' U8 S, ~
}, Open ]],
7 a _* Z& K7 ?1 l. wCell[CellGroupData[{
# p" k) m: e+ ~ Q. v( mCell[174784, 4804, 243, 5, 31, "Input"],
; v; J- m9 ^) A9 M' Y& oCell[175030, 4811, 216, 3, 30, "Output"]* U: Y1 d: z: k( d
}, Open ]],+ a& Y% ]- a; p6 I
Cell[175261, 4817, 537, 14, 31, "Input"],' ^ M/ W, \ j; W9 Y8 A
Cell[CellGroupData[{# g: Q0 J2 H1 i, S& A
Cell[175823, 4835, 94, 1, 31, "Input"],/ e9 H. h$ f" D! ~+ a2 @$ N& `
Cell[175920, 4838, 1319, 20, 107, "Output"]1 D5 x& }2 R: n& a ~; l- g- q7 r
}, Open ]],
. B" o; ^- z* E; F2 rCell[CellGroupData[{
: M( G: t1 [3 T4 d+ x$ b1 s' t2 qCell[177276, 4863, 464, 12, 31, "Input"],6 t- Y0 Y% S: }0 X1 w I3 ~
Cell[177743, 4877, 17248, 366, 582, "Output"]: @, Z/ s9 \3 r- n, N
}, Open ]],! q! u9 r; r# t H/ p
Cell[195006, 5246, 32810, 934, 912, "Input"],; u9 r8 D. Y, y
Cell[CellGroupData[{
3 Q; q2 z+ ^9 T3 K' k% i' aCell[227841, 6184, 284, 6, 31, "Input"],
9 c& w; N {( j/ K' Z0 ]Cell[228128, 6192, 961, 17, 50, "Output"]4 i) r! p3 ]3 h* k6 c1 h
}, Open ]],
, B, z: \+ m0 V9 ^; q q1 sCell[CellGroupData[{
" q: w. v* A9 Y& [2 ^Cell[229126, 6214, 531, 11, 31, "Input"],8 w* W- a5 N3 x
Cell[229660, 6227, 28858, 853, 537, "Output"]) w: n' ]- L$ d. q: D4 G, b6 V
}, Open ]],1 n( w. o- F# Q' m. m" U5 S
Cell[CellGroupData[{
9 C1 b. j. G' vCell[258555, 7085, 281, 7, 31, "Input"],8 }% i, H' A) _( Y4 H: ?4 a3 i
Cell[258839, 7094, 540, 10, 30, "Output"]/ d5 f1 F" I+ Z& S
}, Open ]],, e' e8 d) C& G* o7 ?2 w4 \
Cell[259394, 7107, 1869, 53, 92, "Input"],
( m! i5 s/ R0 O1 O& }$ ZCell[CellGroupData[{4 O# J. D, p ?
Cell[261288, 7164, 138, 2, 31, "Input"],
% }3 p9 z$ ?0 ?3 g( {Cell[261429, 7168, 1122, 20, 69, "Output"]3 [8 \# q; _) i, E! l& M
}, Open ]],
3 W0 s: l3 m# V- O# T/ BCell[CellGroupData[{1 ~' B8 U: Q0 N) X! \
Cell[262588, 7193, 1816, 29, 152, "Input"],* ?4 o0 o% V3 i5 Y- K! u# n
Cell[264407, 7224, 1736, 28, 88, "Output"]
- ?3 a" t0 o1 \& G) Z1 g7 V9 B}, Open ]],8 S# j1 g( T- s9 g/ V4 z
Cell[CellGroupData[{. }5 [' q) C( t
Cell[266180, 7257, 209, 6, 31, "Input"],& z1 w/ a J7 Q+ i/ y7 B
Cell[266392, 7265, 516, 9, 30, "Output"]
$ e4 R" Y% J5 i4 { J" X}, Open ]],
$ t6 n' K: `; vCell[266923, 7277, 613, 16, 31, "Input"],
7 x+ v3 } R3 c- L% nCell[CellGroupData[{1 \0 U- e% f# r+ d4 c
Cell[267561, 7297, 157, 2, 31, "Input"],! @0 S/ P- `1 P
Cell[267721, 7301, 776, 13, 50, "Output"]
1 K" ]! o1 k) {7 F/ S2 \. P}, Open ]],* ~4 T: `7 A: h
Cell[CellGroupData[{- z$ C$ H9 R$ f- ?. `, D8 F
Cell[268534, 7319, 1397, 21, 112, "Input"],
* U. q. ^4 Y8 S7 a: ZCell[269934, 7342, 1384, 21, 88, "Output"]0 n& z. N u+ Z5 M+ g7 [4 M3 M2 O
}, Open ]],0 D, {4 u1 H% |9 I; G
Cell[CellGroupData[{3 t" ]) n6 C4 p) I" G" w( y5 R t
Cell[271355, 7368, 1208, 30, 55, "Input"],
, ^) y+ \$ `: Q& W) ^Cell[272566, 7400, 1299, 29, 256, "Output"]
; `2 [* H/ s1 O. @( O& D}, Open ]],- s6 z# c5 G& p
Cell[CellGroupData[{5 o1 \5 n2 O- U/ F/ h: z/ Y6 {
Cell[273902, 7434, 829, 23, 31, "Input"],0 B. g* G" @% K
Cell[274734, 7459, 1053, 22, 249, "Output"] u1 J+ ~% z& ?! O' c
}, Open ]],
0 v0 B) w# v: r& N/ |$ HCell[CellGroupData[{
. j9 C4 s, Z0 B6 y! q1 B# ^Cell[275824, 7486, 84, 2, 31, "Input"],
, A K+ a) A+ i& |7 S% C: }Cell[275911, 7490, 1675, 36, 256, "Output"]: c. [1 w$ t$ k
}, Open ]],
/ f9 c, D# H$ W4 fCell[277601, 7529, 131, 2, 31, "Input"],
) Z8 z* ?8 i' W1 I/ _( h. \" D: ~Cell[CellGroupData[{- f6 _' B( U& K+ t! p1 |
Cell[277757, 7535, 302, 7, 31, "Input"], A7 {" G5 F. z$ w. d; X* x( E; z0 z5 ]
Cell[278062, 7544, 935, 16, 50, "Output"]
6 b1 r2 |; w2 m}, Open ]], |* ]5 D! H4 j: H
Cell[CellGroupData[{. L' s" x) l) Q8 F$ l0 G: [
Cell[279034, 7565, 295, 6, 31, "Input"], m' N! N, Z: T5 X1 |" G3 R. ~
Cell[279332, 7573, 244, 3, 30, "Output"]4 ] p: N2 m4 w: |4 }" S2 S
}, Open ]],2 D; S9 c( f( i
Cell[279591, 7579, 610, 15, 31, "Input"],- S7 M- \; M' ]
Cell[CellGroupData[{
5 V5 W" \5 E6 V7 P0 K yCell[280226, 7598, 120, 2, 31, "Input"],
+ ?' Z% |$ `/ o# [) ECell[280349, 7602, 1334, 21, 107, "Output"]! f6 i- j0 ?- ~8 F6 q
}, Open ]],# r; j( Z% [, l6 ^; ]7 e
Cell[CellGroupData[{+ `+ @" h$ ^' ^+ U* ?8 y" f; \' y
Cell[281720, 7628, 460, 12, 31, "Input"],
' O% W" g) Q! G9 n8 [8 h# ^6 qCell[282183, 7642, 17248, 366, 582, "Output"]3 z: |" C% V# O
}, Open ]],0 E7 L8 c- F2 E& ], @
Cell[299446, 8011, 32810, 934, 912, "Input"],
, N' j, W! t2 k. e- LCell[CellGroupData[{
5 |/ | v) S, S& l* V9 A" ^' QCell[332281, 8949, 334, 6, 31, "Input"], Y0 v9 N2 Y0 n9 O: x/ I- N
Cell[332618, 8957, 1004, 18, 50, "Output"]4 x+ v$ [* T N- S$ [
}, Open ]],
! y8 s9 q4 a o+ O- LCell[CellGroupData[{( Q' }0 z# W0 G8 |9 L, [' Q
Cell[333659, 8980, 559, 11, 31, "Input"],/ r# X# S$ S- ~6 U& v
Cell[334221, 8993, 28881, 853, 537, "Output"]. ?' h% j1 Q5 p. i# [' l z
}, Open ]],7 k4 V7 y8 p) w5 c2 x
Cell[CellGroupData[{1 [/ i2 J* `$ d& p5 K( g
Cell[363139, 9851, 306, 7, 31, "Input"],2 Z( P6 V7 [! v/ T8 g
Cell[363448, 9860, 562, 10, 30, "Output"]
5 f/ ^0 f6 I4 X% S w" v6 v' X}, Open ]],; Z8 ^$ A5 h% V& U. ^8 \& @+ ?
Cell[364025, 9873, 1915, 53, 92, "Input"],
" c/ j- P y9 `0 O* e/ w% b+ @ }Cell[CellGroupData[{
% R1 _8 @/ K5 _! G) K g# UCell[365965, 9930, 163, 2, 31, "Input"],
; F5 l5 d. F3 f- n# F& vCell[366131, 9934, 1139, 20, 69, "Output"]- W0 \0 U8 D% y; G2 Y! q8 {& {
}, Open ]],
1 Z7 q2 v/ s Q+ [5 L& P6 LCell[CellGroupData[{( D8 v) ^' `* _+ M9 K% a
Cell[367307, 9959, 1863, 30, 152, "Input"],
, I, c+ O. e/ j A3 SCell[369173, 9991, 1761, 28, 88, "Output"]
, \8 {. k9 C" t' t. F1 M' @}, Open ]],
( ]/ d5 Q/ j2 g. TCell[CellGroupData[{
# R) {6 [4 W' \" P1 Z. TCell[370971, 10024, 231, 6, 31, "Input"],
$ T/ b; \- j+ ]1 e4 u* bCell[371205, 10032, 540, 10, 30, "Output"]: |: n! H2 g. {; K5 }% m
}, Open ]],
& w: P; D0 o$ ]. W0 a% E: X; U ACell[371760, 10045, 687, 17, 31, "Input"],6 P O9 _: d. l
Cell[CellGroupData[{: ?5 P: N N- \* m
Cell[372472, 10066, 185, 3, 31, "Input"],
7 y/ V" L+ E- |( H; H& ~, b0 |Cell[372660, 10071, 804, 13, 69, "Output"]- i% W3 {8 s& X
}, Open ]],& a. }& @. ^ Q( f' I' _
Cell[CellGroupData[{: s" F$ C0 l5 ]( Z: u$ \
Cell[373501, 10089, 1405, 21, 112, "Input"],
' w2 K/ u& Z6 s. A. U" o# h. Y! cCell[374909, 10112, 1387, 21, 88, "Output"]
1 |+ K# n1 J* G0 ]4 ^ I( \}, Open ]],! z, }- w% [# Q% n, }3 P! t0 _
Cell[CellGroupData[{$ \; Y- a3 f$ u+ e# r! k
Cell[376333, 10138, 1339, 33, 55, "Input"],; r+ e: o% y) a. q1 b! l3 Z
Cell[377675, 10173, 1370, 30, 256, "Output"]
; b' ]+ K, l# O5 j}, Open ]],
; h9 v* @: C- ~9 ?Cell[CellGroupData[{
7 h( t% Q0 Q/ ]8 }/ I" oCell[379082, 10208, 877, 24, 31, "Input"],( t& t: V8 w8 E* \* [) {3 c
Cell[379962, 10234, 1058, 22, 249, "Output"]
. O- Y h5 o- S- F- H- l}, Open ]],
( S, q5 g0 k1 l8 }2 HCell[CellGroupData[{
* S) t3 m4 c* m! Q4 ~# r3 ^8 aCell[381057, 10261, 84, 2, 31, "Input"],7 z Y' Y4 k5 H' [8 S2 ~: w
Cell[381144, 10265, 1659, 36, 256, "Output"]
: w1 |" H% Q+ b! V2 K+ g}, Open ]],
% Y8 E& b# i+ g. K9 h. ?4 _) b9 T4 O; UCell[382818, 10304, 509, 10, 52, "Input"],
. h- \. e% `) S( A" JCell[383330, 10316, 530, 10, 33, "Input"],4 v' z+ i+ D+ P( r
Cell[383863, 10328, 69, 1, 31, "Input"],* S6 H! H; U$ Z! \; Y) Q% P; g
Cell[383935, 10331, 62, 0, 31, "Input"],
\& W" n7 b% d0 A' h8 N- UCell[CellGroupData[{0 v+ p7 d- U% z& c
Cell[384022, 10335, 364, 9, 31, "Input"],6 E+ C+ z8 k5 T i5 L
Cell[384389, 10346, 13864, 402, 287, "Output"]
: U* `7 B+ d2 q) H6 b t" @}, Open ]],
2 v/ Q" _0 w7 f- a5 {Cell[398268, 10751, 69, 1, 31, "Input"],
J& U2 S* P6 c! @Cell[398340, 10754, 74, 0, 31, "Input"],- K" B$ t1 |8 C# |
Cell[CellGroupData[{3 g( d3 o# { ?2 K% l7 g
Cell[398439, 10758, 288, 8, 31, "Input"],& ]3 U7 p5 s1 b
Cell[398730, 10768, 13861, 402, 287, "Output"]
8 n5 q- S1 [+ n2 t& n* C, y}, Open ]]
6 G7 Q, @6 i/ ~/ l}
( I! i3 c- V$ t3 G/ S* L0 r]+ ]+ f. o) N6 {$ z
*)
& Z" I! {2 E5 J4 ~
0 C( c1 _. R- t& B+ q+ ^- t0 [- u) A(* End of internal cache information *）
4 ]( ?1 t- C: J
( t# K- t( g" L" Q- G0 a! z这个是用mathmatic做的神经网络，能导出最后的权值，就是可以写出表达式，我想用matlab做，却不知道怎么做 |
IP卡
狗仔卡
发表于 2013-7-29 20:37
转播
淘帖
分享
收藏
支持
反对
微信
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
显身卡
