涳夢 发表于 2013-7-30 20:31 ![]() # e; \8 d3 I9 J" O3 \! w5 P9 r
神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗
(* Content-type: application/mathematica *)5 o8 f; r9 _2 u, v
! o) p( h- C# |; o+ J
(*** Wolfram Notebook File ***)
' K9 P3 ?& {+ L! Z' ^) P(* http://www.wolfram.com/nb *)8 G+ [8 D- J: G6 z9 ?
4 i) E6 l; \7 S! e/ w5 ~& A
(* CreatedBy='Mathematica 7.0' *)! [2 b$ @. y: j" P( L! I. S
2 z6 {8 `: X" U- y8 y1 m0 s
(*CacheID: 234*)
/ X# R, R5 r: l6 Q; u(* Internal cache information:
7 x. B' ~2 Z% ~' E$ E {NotebookFileLineBreakTest
& K4 x# M: y5 z/ n3 c8 Z1 s0 T2 XNotebookFileLineBreakTest; b: l8 t) a4 v% ~- A$ K
NotebookDataPosition[ 145, 7]0 c' E: X" D, W1 G3 P! O
NotebookDataLength[ 423629, 11534]$ }2 p# s# y$ _+ M2 R
NotebookOptionsPosition[ 412607, 11173]
' @8 A' w* ?2 O7 j- l1 C. YNotebookOutlinePosition[ 412953, 11188]
3 G7 D% Y1 l. z7 ~1 H' W) d* |CellTagsIndexPosition[ 412910, 11185]( u$ g: F! q3 J$ f$ L+ q
WindowFrame->Normal*)
! H5 X! O5 M) h; m7 C
7 X0 \1 M' t3 B0 L, C2 ~( Q(* Beginning of Notebook Content *)
. P' i: k' a4 W- PNotebook[{
0 ] ~, @4 U2 Z0 R; q6 z ]% r+ p% T6 X% l
Cell[CellGroupData[{
) @7 z A) V* `$ r/ z& v4 J! R2 K/ RCell[BoxData[
* e. K: m2 I) e. | RowBox[{"Data", "=", 8 X6 j2 l/ x- L' i' N I! ~# y
RowBox[{"{",
+ r* M5 ]+ X% _' ?& F/ {1 W$ l RowBox[{( m6 s; v% ~1 U7 Q
RowBox[{"{",
# b4 L# h$ c. g$ y( G+ C8 T9 h RowBox[{
1 h$ J: Y [" H' s1 y "0.304348", ",", "0.552818", ",", "0.330370", ",", "0.025823", ",",
- s5 J; ]; D4 o: n$ K# z1 I3 w; M; m4 _ "0.538462", ",", "0.752072", ",", "0.408943", ",", "0.504532", ",",
3 d/ \" ]6 b" d9 d "0.000000", ",", "0.277091", ",", "0.873239"}], "}"}], ",", " ",
: l) }3 i8 }/ C" R RowBox[{"{",
/ s/ C( W2 |% h* U( w RowBox[{" D$ W5 ^: q6 _2 w8 }* Q9 u
"0.565217", ",", "0.346857", ",", "0.393585", ",", "0.118785", ",", 4 m3 B+ s+ R- y3 X
"0.349650", ",", "0.370761", ",", "0.413008", ",", "0.502518", ",",
; o. B7 v6 B2 o "0.000000", ",", "0.220259", ",", "0.464789"}], "}"}], ",", " ",
6 b% y2 D/ e: h* G- ]3 d# D RowBox[{"{", . ~, w1 A3 |. A# Q% W$ V7 f
RowBox[{
# Z' |9 K. s2 M6 e @1 X* I "0.608696", ",", "0.339186", ",", "0.494300", ",", "0.099338", ",",
- V* s0 t( f$ `& ? "0.321678", ",", "0.375283", ",", "0.000000", ",", "0.505539", ",",
1 m1 G3 a! J( p ~4 b# ~ "0.000000", ",", "0.899882", ",", "0.492958"}], "}"}], ",", " ", ( R2 B! T: k5 ]7 c, E- ~
RowBox[{"{",
4 |& R: h6 w' Y5 s& f# s: r RowBox[{
0 \! Y; G0 q1 ]+ w "0.521739", ",", "0.334022", ",", "0.355500", ",", "0.025156", ",", & H3 p: H ~2 W6 Q# ~ ~" s* Z
"0.489510", ",", "0.376790", ",", "0.411382", ",", "0.000000", ",",
5 |7 s- x2 s0 ]! G "0.000000", ",", "0.265607", ",", "0.774648"}], "}"}], ",", " ", 4 _1 q& Q. G$ ^8 B/ `, f1 i
RowBox[{"{",
" e% }( A& U; o- Y+ B5 j2 I RowBox[{0 x4 B" V' W9 k( V. e
"0.565217", ",", "0.346931", ",", "0.218229", ",", "0.043639", ",",
+ h1 R- G: Y2 L" s' q: k "0.503497", ",", "0.761115", ",", "0.415447", ",", "0.503525", ",",
5 c4 K" A5 M4 N "0.000000", ",", "0.642226", ",", "0.380282"}], "}"}], ",", " ",
z$ O2 Y5 }8 M; C; L RowBox[{"{", : _. \( r, i: k! }
RowBox[{
+ v$ d% Y6 S3 d5 c$ _6 g8 J9 h "0.478261", ",", "0.293154", ",", "0.259368", ",", "0.026688", ",",
& f2 z3 b9 z0 ?* P ] "0.587413", ",", "0.755840", ",", "0.409756", ",", "0.498489", ",",
+ u; {0 k3 K7 p! C3 | "0.000000", ",", "0.306243", ",", "0.647887"}], "}"}], ",", " ",
t1 |+ r* y' K RowBox[{"{",
: {% x% j m( L6 p& s A- Y4 Y RowBox[{
' D8 z1 a0 G! H2 Y9 P9 G "0.347826", ",", "0.359693", ",", "0.614393", ",", "0.081521", ",",
1 }( H/ S- C2 Y* T, x5 H "0.258741", ",", "0.367747", ",", "0.410569", ",", "0.499496", ",",
5 h7 ]7 N8 J/ K u& g "0.000000", ",", "0.186985", ",", "0.563380"}], "}"}], ",", " ",
; P. e! }5 N0 J' F' `; d RowBox[{"{",
7 L- z7 u1 n8 p. Z# M: H1 L% T3 ] RowBox[{* h/ F1 N3 W- }& o8 x( \3 A
"0.565217", ",", "0.705518", ",", "0.510223", ",", "0.066892", ",",
; s; U) G7 d# s | F "0.244755", ",", "0.748304", ",", "0.000000", ",", "0.000000", ",",
" P( r; _' v/ r& E l V "0.243032", ",", "0.175501", ",", "0.295775"}], "}"}], ",", " ", 9 C8 }" q& h* v; T" q9 Y
RowBox[{"{",
1 C" a0 X$ n3 b& r1 ~; A8 v1 X RowBox[{9 A `9 U' v+ b+ C# ]$ V4 @
"0.565217", ",", "0.710460", ",", "0.649730", ",", "0.119897", ",",
C: L9 [2 o o& x; q( X: V; G8 J "0.468531", ",", "0.000000", ",", "0.636585", ",", "0.000000", ",", p G! c- H( N0 W, Z
"0.766748", ",", "0.147821", ",", "0.338028"}], "}"}], ",", " ", 3 z E ]8 {$ B+ a. N! ^( S
RowBox[{"{", ' g8 F: D/ I3 j
RowBox[{
& D; x; D" D; x! x p2 ~& { "0.565217", ",", "0.697772", ",", "0.171587", ",", "0.028566", ",", o9 {! K! K I* U% g4 @5 m
"0.363636", ",", "0.449887", ",", "0.408130", ",", "0.000000", ",",
7 u/ F2 `+ e7 L "0.000000", ",", "0.352768", ",", "0.211268"}], "}"}], ",", " ", + L S7 v- s! |# @; W9 D
RowBox[{"{", 2 }, Q4 R/ T% ~; L7 l: b; T. V
RowBox[{
r3 N8 D4 j; Q+ q "0.282609", ",", "0.660888", ",", "0.460064", ",", "0.110334", ",", 8 l0 q8 y% L2 {* ^2 z0 H- C
"0.475524", ",", "0.000000", ",", "0.545528", ",", "0.000000", ",", 1 `6 G0 u, Y1 A1 I: u* _0 S
"0.551100", ",", "0.238810", ",", "0.690141"}], "}"}], ",", " ", ( I; M, } P* G" n
RowBox[{"{", . M+ G2 L4 B( n7 z+ D/ X# Q6 p. r
RowBox[{
& W" B- K6 e4 h- g: r( A. d "0.130435", ",", "0.682724", ",", "0.258697", ",", "0.019299", ",",
3 c& t: ~& [0 a6 v5 n; b "0.510490", ",", "0.420497", ",", "0.535772", ",", "0.000000", ",", , ?4 P* ?/ s" ?
"0.494866", ",", "0.095701", ",", "0.436620"}], "}"}], ",", " ", . a6 L% F& E3 n0 r( d/ D1 C
RowBox[{"{", 4 ^' p; l& ]1 F9 B+ S
RowBox[{
g1 T+ P& @" h9 }, `' P "0.347826", ",", "0.697772", ",", "0.108288", ",", "0.022413", ",", $ e7 e, V9 p) X2 c4 r; v
"0.356643", ",", "0.247928", ",", "0.908130", ",", "0.000000", ",", ) C4 m5 A5 q) @0 a7 j
"0.383374", ",", "0.162839", ",", "0.000000"}], "}"}], ",", " ",
0 {+ s! i- F; p9 ~, u RowBox[{"{",
- R0 O% r& T" k7 R L RowBox[{, h$ k. h* o9 C6 m
"0.695652", ",", "0.718280", ",", "0.339730", ",", "0.110285", ",", 6 s+ H8 X8 }3 V! t
"0.335664", ",", "0.000000", ",", "0.636585", ",", "0.780463", ",", " K# @) c' G1 ~+ Q
"0.000000", ",", "0.335395", ",", "0.267606"}], "}"}], ",", " ", & `7 d/ I3 `5 C! A, ?/ @
RowBox[{"{", - j$ c/ @# G+ ]" k1 o, m+ y
RowBox[{* s( B% Y5 a% g+ [: `
"0.652174", ",", "0.569711", ",", "0.414297", ",", "0.175398", ",", : R3 M' ^) P0 v$ T: V& c
"0.167832", ",", "0.000000", ",", "0.544715", ",", "0.000000", ",", 2 K/ G5 [. r: L- m! ?
"0.000000", ",", "0.160483", ",", "0.211268"}], "}"}], ",", " ", 2 \1 T# }7 c) v9 x( @
RowBox[{"{", / |: [) B; M5 n/ I$ i# C
RowBox[{
1 ~6 ~4 Q9 p/ M* M: j, J O- M "0.000000", ",", "0.395544", ",", "0.027011", ",", "0.048087", ",",
) K* W9 D; V1 j, E "0.496503", ",", "0.000000", ",", "0.452033", ",", "0.000000", ",", ' N2 O( ]: ?2 S6 m* K
"0.278729", ",", "0.398115", ",", "0.408451"}], "}"}], ",", " ",
, ?, q+ o; J. W# [' |0 W% c- |/ ` RowBox[{"{", 8 u( b0 @7 B- q' a* s% g& N7 v; e0 h
RowBox[{
9 J+ W7 d; m7 \. D. N$ L "0.608696", ",", "0.425199", ",", "0.012979", ",", "0.000000", ",", / x) q! S4 H7 z8 p# {+ C$ Y
"0.482517", ",", "0.509420", ",", "0.406504", ",", "0.000000", ",",
4 M s9 |' K3 g "0.000000", ",", "0.157833", ",", "0.478873"}], "}"}], ",", " ", - _' I# M$ d+ c
RowBox[{"{", ' Y0 P! g; O7 Z# U! {0 }
RowBox[{
0 D5 ~, k3 R, {$ I6 y2 J3 d3 S "0.608696", ",", "0.577973", ",", "0.213587", ",", "0.030889", ",",
6 b% ?0 t0 q2 c "0.370629", ",", "0.000000", ",", "0.452846", ",", "0.000000", ",",
0 b' Q$ x3 X' H, R' @/ \ "0.000000", ",", "0.315665", ",", "0.380282"}], "}"}], ",", " ",
- k6 i% S. s0 l" i RowBox[{"{",
; b' b& x7 n* [( v9 F6 b9 [, m% _ RowBox[{
! ~) P, _/ A }& K, H) G& P) Y5 \ "0.565217", ",", "0.572293", ",", "0.655012", ",", "0.281852", ",", u9 [( o6 S' X; t4 r/ O
"0.000000", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
+ I2 N- u. n8 o "0.000000", ",", "0.492344", ",", "0.211268"}], "}"}], ",", " ", 6 a4 Z6 S( |, t" U3 p
RowBox[{"{", * M. R" c! p# g5 s% @) e Z5 J! J7 ~7 v
RowBox[{
5 O! v1 D+ J# ?/ ` "0.130435", ",", "0.562039", ",", "0.331662", ",", "0.032643", ",", 1 u' [8 J( C4 o2 Y% U
"0.314685", ",", "0.414469", ",", "0.275610", ",", "0.000000", ",",
9 f: z6 c, D! s: \ "0.000000", ",", "0.638398", ",", "0.436620"}], "}"}], ",", " ",
$ u/ D6 C" G0 r RowBox[{"{",
' h* `* ]* O$ a; l RowBox[{
# C X1 R$ g ]1 ]$ _8 L "0.717391", ",", "0.736205", ",", "0.267704", ",", "0.036152", ",",
1 h4 J) Z& q2 i! g! d# q "0.307692", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", $ z p$ q' R& D. l+ N' H% r* d/ ]
"0.000000", ",", "0.392521", ",", "0.478873"}], "}"}], ",", " ", 5 X s# x+ ~) h. b/ ~$ v; o
RowBox[{"{",
2 [4 w& N/ [* D7 x w- p/ q3 ` RowBox[{
) S0 O' Y" S8 Q' j "0.608696", ",", "0.769475", ",", "0.289283", ",", "0.022882", ",", % M' w) D% V* T+ J7 {
"0.321678", ",", "0.000000", ",", "0.274797", ",", "0.333333", ",", ' Q4 A9 M4 e/ K3 n! b' ^1 L/ f
"0.000000", ",", "0.362191", ",", "0.295775"}], "}"}], ",", " ", - I0 _' i8 ^3 n* n6 [1 r
RowBox[{"{", 8 i3 i- j/ q& B, l4 {8 w
RowBox[{! P7 D# {, C. \
"0.913043", ",", "0.170478", ",", "0.000000", ",", "0.012973", ",", # u- w4 V- q2 P/ }
"0.293706", ",", "0.000000", ",", "0.000000", ",", "0.672709", ",", 5 E( ?/ D9 z" Y7 P3 g( o7 Q! h8 f1 p
"0.000000", ",", "0.114252", ",", "0.028169"}], "}"}], ",", " ", # U, X( r `: n6 F/ N$ j K- x
RowBox[{"{", 1 ^- u5 D G% p) \" ` E2 r9 F9 C
RowBox[{
5 R3 {7 C; n& R1 `9 z0 _8 e "0.739130", ",", "0.193199", ",", "0.160584", ",", "0.037907", ",",
5 R4 V5 R$ ~' C1 f3 ` "0.461538", ",", "0.000000", ",", "0.684553", ",", "0.000000", ",", & w# {8 c( K; |
"0.000000", ",", "0.401355", ",", "0.436620"}], "}"}], ",", " ", 4 T# N9 e C7 b$ H1 j
RowBox[{"{", 7 d2 _7 H0 I: u) T
RowBox[{* f; R' p ~: o8 [# W1 K
"0.826087", ",", "0.203969", ",", "0.234619", ",", "0.272240", ",", ; i- I A7 Y7 z9 k A
"0.265734", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
, ^7 O) C# d7 w+ G; w. [- y9 ] "0.000000", ",", "0.827444", ",", "0.394366"}], "}"}], ",", " ", ! Z) f0 w0 g& ]7 h0 O4 r
RowBox[{"{", , Z' {9 ~+ m1 J6 e
RowBox[{
( B6 ?. T+ d) P( R) H, c "1.000000", ",", "0.199248", ",", "0.295044", ",", "0.041613", ",", 5 p, i$ m4 w1 J7 C
"0.209790", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
c4 Q) t, U' w. A" G: Z2 V8 a "0.000000", ",", "0.676973", ",", "0.295775"}], "}"}], ",", " ", ' d* I, C Y7 C0 g0 q5 b
RowBox[{"{", 2 T4 l0 I' F5 }3 ]+ K
RowBox[{
6 C& m& k# n+ h6 T5 V "0.869565", ",", "0.180363", ",", "0.243056", ",", "0.098349", ",", 8 N( w( `( r3 J0 {6 p) L
"0.265734", ",", "0.503391", ",", "0.000000", ",", "0.000000", ",",
( N4 ?! U, r3 c/ [" D, O: B "0.000000", ",", "0.331272", ",", "0.830986"}], "}"}], ",", " ",
I2 c9 Z( p; e% I } RowBox[{"{",
. K- B) P2 g% t- w RowBox[{: T6 e4 }/ H3 ?( _* Q! T J2 b! Z4 Y
"0.695652", ",", "0.551785", ",", "0.326201", ",", "0.253608", ",", ' K1 k4 l, p% c+ l
"0.195804", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", " M/ W# e! U5 T( G& @
"0.000000", ",", "0.845701", ",", "0.169014"}], "}"}], ",", " ",
+ ]+ [) M6 k( Z' ?+ |* c RowBox[{"{", ) t% _ G. y% Y& n, C
RowBox[{! |" N' _3 |& C( f3 m6 ]1 C4 ]8 H
"0.652174", ",", "0.572293", ",", "0.111511", ",", "0.035584", ",", 8 j- N# F! n1 Q
"0.405594", ",", "0.249435", ",", "0.544715", ",", "0.000000", ",",
6 F- x: r, o0 Z) \0 j "0.000000", ",", "0.287102", ",", "0.366197"}], "}"}], ",", " ",
4 ~6 y: N* |) \: q1 L+ u* g RowBox[{"{", 8 r; u* n5 K) _7 q
RowBox[{
3 i- {: H; K0 H' ]/ W "0.652174", ",", "0.562039", ",", "0.336155", ",", "0.014604", ",",
+ W) C$ o3 R8 r! d! f7 i "0.174825", ",", "0.244160", ",", "0.000000", ",", "0.000000", ",", & G3 L, x, Q1 K/ V7 w
"0.000000", ",", "0.000000", ",", "0.309859"}], "}"}], ",", " ",
. N; t1 B- ^; a D" n RowBox[{"{", 1 M Q2 C8 Q3 \* Q0 m( [
RowBox[{
7 |7 v& j! O, ?+ o; ~& F: ] "0.565217", ",", "0.577383", ",", "0.155870", ",", "0.030963", ",", & ~5 p( y. F/ c3 U- M0 h" S" H3 ]
"0.258741", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 1 P+ r* W" u, X( e( R
"0.000000", ",", "0.050059", ",", "0.352113"}], "}"}], ",", " ", + |8 k; d _# c* ]
RowBox[{"{",
8 z0 S4 o0 L- ?* ~4 S8 P! H RowBox[{% H5 B* Z3 U: y
"0.565217", ",", "0.613234", ",", "0.232956", ",", "0.053870", ",",
- U8 ?4 }* H, }, p# U, l4 o5 Y "0.230769", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", ! i, [" P6 o+ ~. E
"0.000000", ",", "0.254122", ",", "0.309859"}], "}"}], ",", " ",
" `1 j5 v: _+ I d RowBox[{"{",
# p9 I5 n! o7 }# q4 z0 X RowBox[{
0 }6 C: x6 d* r9 e" ~1 P% p "0.565217", ",", "0.559531", ",", "0.493262", ",", "0.046209", ",",
' N& r% s7 D/ O1 Z* d4 x "0.293706", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
; |- k4 Z: f6 q9 t "0.000000", ",", "0.086867", ",", "0.774648"}], "}"}], ",", " ", & W* b3 D# o/ |6 x7 o& _- s0 c
RowBox[{"{", : S# E; F* b" R" Q4 P
RowBox[{
+ P) {9 P7 Q) G) b4 g+ l "0.608696", ",", "0.569711", ",", "0.111932", ",", "0.013542", ",",
* o+ N# B& @4 R$ N+ } "0.335664", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
x E! @$ G) X: v# O8 K "0.168704", ",", "0.659894", ",", "0.422535"}], "}"}], ",", " ",
! z0 @4 n1 [, {( l9 |9 l/ a% v; z RowBox[{"{", $ G9 |& ?! j, V5 D' m: l
RowBox[{2 N( o: e# a! Q5 u) y. w; E/ o# A' b
"0.608696", ",", "0.564547", ",", "0.329844", ",", "0.202036", ",",
' `# K3 f) J( C "0.510490", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", / L! {2 B S E8 v
"0.000000", ",", "0.317138", ",", "0.887324"}], "}"}], ",", " ", ' _2 j! K& U+ y1 R8 F* f
RowBox[{"{",
6 Q e h# c$ R( M2 Y; _1 y RowBox[{, l+ g. ]6 g7 W5 n: s* K# Z
"0.521739", ",", "0.546695", ",", "0.165788", ",", "0.029431", ",", & X$ \) G* |# a X) @$ N
"0.510490", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", . j/ h1 ?) \9 H' t- ~
"0.000000", ",", "0.605124", ",", "0.887324"}], "}"}], ",", " ", p1 g- A, b6 b
RowBox[{"{", 3 T) q' [9 v, z( L0 k; s
RowBox[{5 g; y* R( R' g& z# G0 B# N
"0.521739", ",", "0.564178", ",", "0.400518", ",", "0.045023", ",", & z; w6 X' N% N2 l A" L
"0.615385", ",", "0.368500", ",", "0.660163", ",", "0.301108", ",",
! I7 ?& D& u. p2 l! W "0.000000", ",", "0.321260", ",", "0.859155"}], "}"}], ",", " ",
3 i: X8 n. Z6 [/ @$ N. _) b$ Q RowBox[{"{",
, M' X) ~7 J/ y: l2 Z RowBox[{
* e- h: K& f7 z. q5 e! K4 v "0.413043", ",", "0.551859", ",", "0.544826", ",", "0.230503", ",", 9 `; {! q! o' ^* |& d1 w
"0.244755", ",", "0.530520", ",", "0.819512", ",", "0.000000", ",", 1 }9 W Q5 I, s# }4 f% a% C+ Y
"0.000000", ",", "0.595406", ",", "0.239437"}], "}"}], ",", " ",
9 Q: Z) B% |% L y$ U3 J RowBox[{"{", $ N9 g$ {5 i1 N/ y, E
RowBox[{
$ g$ n# n# B% l& k- A' } "0.652174", ",", "0.549277", ",", "0.257578", ",", "0.058688", ",", . r; y( _% R( a
"0.356643", ",", "0.000000", ",", "0.817886", ",", "0.000000", ",", 8 F8 _& j* m4 ~5 Z" J( Z+ t
"0.000000", ",", "0.555359", ",", "0.295775"}], "}"}], ",", " ", 6 q, h, b% f# d9 o% W1 I
RowBox[{"{",
1 y" q) \, v2 R; S1 ]+ S% m% s' C RowBox[{6 U/ m$ l' U& }& _# e
"0.695652", ",", "0.549277", ",", "0.572308", ",", "0.082411", ",",
( r1 C f, ^5 r2 G! U% r- u& z "0.461538", ",", "0.528259", ",", "0.819512", ",", "0.000000", ",",
" Q% t: M; B6 h% N "0.000000", ",", "0.333333", ",", "0.746479"}], "}"}], ",", " ", : V/ F6 e% R8 b3 |2 |5 V
RowBox[{"{",
' B7 _: _* Z4 J& e2 _2 M8 h RowBox[{, Q+ j. u. P& g1 K( q s% e8 w, @
"0.434783", ",", "0.551785", ",", "0.530346", ",", "0.151651", ",",
8 m0 f3 Z2 Q& x "0.790210", ",", "0.529013", ",", "0.409756", ",", "0.000000", ",", & ~' T0 O7 u6 ?
"1.000000", ",", "0.149588", ",", "1.000000"}], "}"}], ",", " ", 2 a; z) ^% O& a h( P8 f
RowBox[{"{",
" J7 H) c2 g! O; {4 S4 e. s3 \6 g RowBox[{4 N9 d7 A/ T- I2 @& p/ `
"0.282609", ",", "0.531278", ",", "0.321428", ",", "0.228625", ",", 7 u) h- g0 l( @5 A
"0.594406", ",", "0.530520", ",", "0.410569", ",", "0.000000", ",",
# i! ^! q& p# f- J "0.757457", ",", "0.493522", ",", "0.549296"}], "}"}], ",", " ",
4 j2 [9 r7 {5 D$ G) x9 U RowBox[{"{",
! C. W* o& b: t' P RowBox[{
$ T* t( }( U% u "0.347826", ",", "0.705444", ",", "0.109343", ",", "0.072008", ",",
Q% o6 d* e4 a/ j b1 a "0.496503", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
: y0 M0 @) t( m/ @. K5 | "0.752567", ",", "0.224676", ",", "0.366197"}], "}"}], ",", " ",
7 C7 j$ r* U0 k3 a& E5 D& j% H RowBox[{"{", % M# l7 Q: \- P4 R. @6 N% y
RowBox[{
& A' [8 T x" y& b "0.391304", ",", "0.705444", ",", "0.045908", ",", "0.073120", ",", . e0 W9 D# X' Y& ?$ s* k4 m
"0.622378", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
9 a9 N5 i7 F6 k3 _% i "0.496333", ",", "0.410188", ",", "0.549296"}], "}"}], ",", " ", : u t0 C; Z. R# o
RowBox[{"{",
* Y' ~; h1 W9 b; E! J& j RowBox[{
% i0 i s3 F* J3 G: B4 @ "0.282609", ",", "0.661921", ",", "0.344992", ",", "0.085178", ",",
* q' t7 [: V! a8 } "0.293706", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
% _- P9 \; h6 p$ C, d "0.000000", ",", "0.668139", ",", "0.577465"}], "}"}], ",", " ",
& F) [8 q: r1 P! ]/ W1 @ RowBox[{"{",
3 c3 V1 ^8 Y( ^ RowBox[{8 k; j: n2 ^, d1 ~
"0.478261", ",", "0.661921", ",", "0.644209", ",", "0.077296", ",",
$ ^3 P0 T% g& G "0.412587", ",", "0.000000", ",", "0.413008", ",", "0.502518", ",", 8 V- z$ j# g; X/ D( D8 L
"0.000000", ",", "0.102179", ",", "0.690141"}], "}"}], ",", " ", 9 E5 F/ u- v0 k
RowBox[{"{", $ U0 L: N3 J) a; E3 i: N# f2 {8 f9 L
RowBox[{
5 ?' z+ a8 p0 P "0.173913", ",", "0.984656", ",", "0.420753", ",", "0.137022", ",", + g9 C' i) K" B% F+ b, k
"0.321678", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
5 r7 Q8 j2 y& ]1 D "0.000000", ",", "0.380742", ",", "0.718310"}], "}"}], ",", " ", & ^; X6 c' M' X1 j3 \
RowBox[{"{", 0 b: O7 R1 b- x0 p3 Z, E
RowBox[{
" s. W/ Z- f/ ^! e) B i; O1 A' g J "0.500000", ",", "0.984656", ",", "0.288432", ",", "0.047692", ",",
3 r5 }+ j( \/ @0 q: Z "0.279720", ",", "0.000000", ",", "0.821138", ",", "0.510574", ",",
9 ?3 }! I/ a. v& D "0.000000", ",", "0.319494", ",", "0.521127"}], "}"}], ",", " ",
) |0 @# n7 ?) V* p% O$ k4 e RowBox[{"{", ( `% P6 ^6 S7 P( O' v7 F
RowBox[{
( ^" P, U$ B2 E9 o2 u( Y "0.391304", ",", "1.000000", ",", "0.452931", ",", "0.150909", ",", $ e( C) }# F4 f+ @: r& B
"0.342657", ",", "0.370761", ",", "0.000000", ",", "0.509567", ",",
E4 u' S, y, ^; u7 \ "0.000000", ",", "0.031508", ",", "0.929577"}], "}"}], ",", " ", 2 J/ m3 T, b( Z! q. Q& {4 F
RowBox[{"{", # `1 x1 a( z: K/ N' ?# @. S
RowBox[{) V9 O; L: _$ X3 \; x5 r6 j7 W
"0.739130", ",", "0.774639", ",", "0.175120", ",", "0.036498", ",", & \4 q- ]3 Z6 o `
"0.391608", ",", "0.739261", ",", "0.408943", ",", "0.553877", ",",
! _9 k, K5 u" v* Y9 q, M7 v& D "0.000000", ",", "0.292108", ",", "0.521127"}], "}"}], ",", " ", 4 W; `- P: g( i. {4 M2 b
RowBox[{"{", E" U$ T) W d- y* u$ i4 V* r$ p
RowBox[{9 F+ L/ j0 Z3 T& e
"0.586957", ",", "0.982074", ",", "0.158462", ",", "0.063902", ",",
0 ^2 n) w4 ?$ ?) X2 m9 C "0.321678", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
7 h9 ~+ l$ W2 j# m/ f, S "0.000000", ",", "0.329505", ",", "0.338028"}], "}"}], ",", " ",
% R' s: Y5 f7 }# a! ~6 L RowBox[{"{",
, U) R- s( U* K$ J RowBox[{
7 t* }, d4 Y8 z "0.543478", ",", "0.982074", ",", "0.306872", ",", "0.041934", ",", . @0 X, K) g* H
"0.426573", ",", "0.380558", ",", "0.414634", ",", "0.506546", ",", ) `9 w r. y, F' {
"0.000000", ",", "0.337456", ",", "0.380282"}], "}"}], ",", " ", n6 f3 x8 I9 A" t0 g* s
RowBox[{"{", $ I, L( M! O! F/ l. W- P# s3 P
RowBox[{2 W2 `' k! @7 P1 r- i
"0.739130", ",", "0.997418", ",", "0.170143", ",", "0.058268", ",",
5 L! V" V1 |! ? B T5 z0 [ "0.538462", ",", "0.248681", ",", "0.000000", ",", "0.339376", ",",
3 ~, M/ J$ J' \4 G: C "0.000000", ",", "0.766784", ",", "0.676056"}], "}"}], ",", " ",
g e! _( ?1 p& U0 D' }- f9 H; p RowBox[{"{", $ r2 Q3 E3 Y1 I6 B; t+ h% }
RowBox[{- Z/ Z: F( ^! j
"0.695652", ",", "0.700428", ",", "0.139361", ",", "0.182169", ",",
; i% \) Y2 b( Z. s+ _ "0.412587", ",", "0.243406", ",", "0.000000", ",", "0.000000", ",",
$ x' x0 T0 G! R6 o "0.136919", ",", "0.676678", ",", "0.591549"}], "}"}], ",", " ", 2 s% U, _- E% N4 W% |# \: E
RowBox[{"{",
2 }5 c2 R1 P- z/ k3 T- w& x' `3 k3 e RowBox[{! F2 s5 Z# M4 |, }0 {
"0.782609", ",", "0.751623", ",", "0.177646", ",", "0.350845", ",",
" i/ l$ y2 |0 B9 o* T5 ? "0.412587", ",", "0.502638", ",", "0.000000", ",", "0.000000", ",", 1 f3 I, ]& Q: T) g) {$ S5 t
"0.178973", ",", "0.541519", ",", "0.464789"}], "}"}], ",", " ",
8 n# [& a/ Q. s% ~5 { RowBox[{"{", , G7 B; M* c( y+ ~% Q+ y) B
RowBox[{
0 T1 _$ B* U, R% i7 [1 a/ b8 L9 g0 h "0.652174", ",", "0.751623", ",", "0.355593", ",", "0.039883", ",", 7 C& a* v& M* c! H
"0.195804", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
$ ~5 W% f: j R2 ]: M9 `, y/ o @# e "0.000000", ",", "0.064488", ",", "0.295775"}], "}"}], ",", " ",
- J0 y$ n" L! C* m# C RowBox[{"{", 0 D* {8 ~1 e s: k- E
RowBox[{$ T; Y- B$ j7 ?2 v3 W
"0.521739", ",", "0.679847", ",", "0.152375", ",", "0.030048", ",", " {* ?3 z3 N! _: @9 q+ E' H! B
"0.363636", ",", "0.000000", ",", "0.271545", ",", "0.000000", ",",
$ D% l1 ?' c6 d7 q% Q" O% u "0.000000", ",", "0.463192", ",", "0.380282"}], "}"}], ",", " ", 0 {7 b: Q c) D$ h9 M, Y' D
RowBox[{"{",
- `" X: P3 T5 e" o2 z3 F! \ RowBox[{
% A& U1 t) C/ X& v9 r, I- q% @ "0.434783", ",", "0.728533", ",", "0.186830", ",", "0.129510", ",",
$ X. I# r3 V) r3 h# l+ l) N# ^ "0.195804", ",", "0.000000", ",", "0.269919", ",", "0.000000", ",",
$ @& M: c3 h3 a "0.326650", ",", "0.388398", ",", "0.211268"}], "}"}], ",", " ", 5 J ]+ ?5 I( I% Q9 T! t
RowBox[{"{",
, n) O5 g, W* l6 X' E RowBox[{; h6 h+ W5 v9 {8 p* \) U* s
"0.608696", ",", "0.606152", ",", "0.158058", ",", "0.090170", ",",
- a7 ~0 d4 T p0 c+ `$ l "1.000000", ",", "0.166541", ",", "0.278049", ",", "0.000000", ",", F9 ]9 {* F* B% y7 B
"0.236675", ",", "0.262367", ",", "0.253521"}], "}"}], ",", " ", 1 {% O2 B0 b) W4 |2 B
RowBox[{"{", 1 ]' W3 l4 Z; k" T: ^/ g* R
RowBox[{1 c3 H7 S# l) e W; \( i" \
"0.608696", ",", "0.633742", ",", "0.322697", ",", "0.068597", ",",
% \2 Q- f, i- P1 O- U9 } "0.328671", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", % p, s8 { Q4 P0 X
"0.287042", ",", "0.290931", ",", "0.281690"}], "}"}], ",", " ", % z( \' T' e* T5 ~% V
RowBox[{"{", 9 i. s* b2 p2 N: d
RowBox[{7 k) P1 Z# z, R, X# H8 b
"0.478261", ",", "0.539023", ",", "0.412108", ",", "0.107566", ",", / U/ V' d7 u, [7 D4 E1 ?
"0.237762", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
% q! }2 z7 T' g$ K: }" L" |2 @ "0.000000", ",", "0.380742", ",", "0.507042"}], "}"}], ",", " ",
0 J& T M+ E& t. T' j RowBox[{"{",
% t+ B9 r% o$ _ D, V1 D" v RowBox[{# ^) X' T6 ?/ ], w
"0.608696", ",", "0.551859", ",", "0.176821", ",", "0.076332", ",", . Z3 Y7 Q- G; f. `- a9 g1 f
"0.265734", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", . N/ O0 P. Z/ w
"0.000000", ",", "0.429034", ",", "0.239437"}], "}"}], ",", " ", . C1 R9 U# c) ]' f/ t6 I
RowBox[{"{",
% F2 J; T' m0 o! W6 ~7 Z, S RowBox[{
6 V' o. k7 y( W2 j1 U# a "0.652174", ",", "0.551859", ",", "0.033549", ",", "0.018459", ",", % G; R& D7 C, p9 q6 C Q
"0.573427", ",", "0.000000", ",", "0.553659", ",", "0.000000", ",",
* m8 _, [9 _/ [, Q" X0 l8 s9 v "0.404890", ",", "0.193168", ",", "0.394366"}], "}"}], ",", " ", 9 W% C7 t; B- x, q- ~
RowBox[{"{",
) n- ^$ _8 }+ b1 Y; a8 V6 n RowBox[{
5 t2 r* M* M$ s i: @8 h2 | O. c "0.695652", ",", "0.595382", ",", "0.277493", ",", "0.100326", ",",
# ^! d5 ]+ R% n; G0 X1 ^! `7 s "0.286713", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", : Y! J% D. T7 p1 L- E$ U' D5 K! F
"0.000000", ",", "0.448763", ",", "0.338028"}], "}"}], ",", " ",
; N6 F x0 b3 \, _4 @ RowBox[{"{",
6 r+ j8 r; q' m) F, R$ q% |# ~ RowBox[{
1 R6 d' `7 e$ L "0.565217", ",", "0.559531", ",", "0.422669", ",", "0.078111", ",",
. ]9 L: N' f9 B6 w. ^& U( W3 w "0.286713", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", & {" H8 c% i' W
"0.000000", ",", "0.442285", ",", "0.394366"}], "}"}], ",", " ",
2 l1 F n" `9 d9 b0 m# n RowBox[{"{",
5 [5 x. ~2 q4 v6 i% [; {8 h RowBox[{
* S& Q6 w# T% n2 i6 o/ X "0.586957", ",", "0.398126", ",", "0.140619", ",", "0.069116", ",",
/ u" ^! u2 ?( l& w "0.461538", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", $ R* Y5 _6 q+ n( y2 L
"0.000000", ",", "0.575383", ",", "0.154930"}], "}"}], ",", " ",
1 H c7 L, T0 y7 T0 n RowBox[{"{", 6 I' A: B5 x/ d# h' F7 ~/ C
RowBox[{. z0 Y5 ^" l0 {2 Y) Z
"0.695652", ",", "0.398126", ",", "0.019829", ",", "0.041366", ",",
6 b( ]8 B7 P1 `- S: I: x& N" A "0.552448", ",", "0.244160", ",", "0.000000", ",", "0.000000", ",", , P" @4 ^8 v3 Q7 y
"0.000000", ",", "0.515607", ",", "0.591549"}], "}"}], ",", " ",
9 ^# }6 E( w3 Q& p* {( D) I! w RowBox[{"{", 8 e4 p/ T; `# v2 Z
RowBox[{
& N! \& m9 M' s "0.695652", ",", "0.700354", ",", "0.422467", ",", "0.068128", ",",
% Z$ l# z3 P- H: y4 I% K: P8 o: D0 M "0.209790", ",", "0.000000", ",", "0.000000", ",", "0.500504", ",",
7 l0 t! ~% @. G( @+ W# e "0.000000", ",", "0.057715", ",", "0.408451"}], "}"}], ",", " ",
d1 e" t% q- e0 t3 R' f3 J d RowBox[{"{",
( S5 B; }- l/ h+ a% r RowBox[{# c) K$ J' ~( V0 V+ z
"0.521739", ",", "0.193125", ",", "0.210582", ",", "0.110433", ",", 0 ^ i2 v T( X7 X
"0.447552", ",", "0.382065", ",", "0.413008", ",", "0.498489", ",", ) J9 m1 F6 y8 r) b: y* w7 v) M8 T
"0.000000", ",", "0.174617", ",", "0.295775"}], "}"}], ",", " ", $ N% ]! F* s: D* v0 J# b
RowBox[{"{",
. A6 |3 `) F2 N0 M4 v RowBox[{
2 w+ T( Q3 l" f' G "0.347826", ",", "0.063588", ",", "0.830527", ",", "1.000000", ",",
) W& d' c. R# i8 [6 ?3 g1 R "0.111888", ",", "0.000000", ",", "0.410569", ",", "0.000000", ",",
) {) l+ t$ u6 a) R$ Z+ N1 T "0.000000", ",", "0.667550", ",", "0.661972"}], "}"}], ",", " ", / f3 y& p+ }2 z! }) R6 x; O
RowBox[{"{", " X. x) `# v" p
RowBox[{
+ m+ [6 v) k1 e4 {( G# I9 P "0.521739", ",", "0.188109", ",", "1.000000", ",", "0.785485", ",", ' v! j8 _) }) `) D8 g5 Y5 L
"0.342657", ",", "0.373775", ",", "0.406504", ",", "1.000000", ",", 5 v+ }! J& O+ _
"0.000000", ",", "0.371025", ",", "0.774648"}], "}"}], ",", " ",
o4 c1 e! K; r. z RowBox[{"{", 0 q+ Z+ q- l% N# a! o1 ~8 \" _1 a
RowBox[{
6 o& @- a+ w w3 ]( c "0.695652", ",", "0.188404", ",", "0.088836", ",", "0.059504", ",",
5 a* F8 y9 \( v( Z "0.706294", ",", "0.376790", ",", "0.000000", ",", "0.000000", ",",
- z6 w1 s6 c; T( s# H "0.000000", ",", "0.570966", ",", "0.746479"}], "}"}], ",", " ",
/ c) ]1 M' _* W9 S. g RowBox[{"{", 8 q6 W" r- F: B
RowBox[{
9 V; R9 z0 G$ [# [( T "0.695652", ",", "0.057465", ",", "0.316316", ",", "0.151280", ",",
+ ]( H, c9 F3 a+ \' _% ^ "0.615385", ",", "0.371515", ",", "0.412195", ",", "0.500504", ",",
) M" L# ]$ e0 |* s4 T% w "0.000000", ",", "0.468198", ",", "0.887324"}], "}"}], ",", " ",
) _* N& l5 ?9 d RowBox[{"{",
, ^% z7 _5 J# M* k3 A; e) u RowBox[{
1 q! j) B* J9 o% u "0.608696", ",", "0.011360", ",", "0.295586", ",", "0.113892", ",",
! _5 ? Q( F8 @! B. C* A7 J "0.580420", ",", "0.746044", ",", "0.405691", ",", "0.501511", ",",
6 Z- a; @. _5 s( U "0.000000", ",", "0.414016", ",", "0.845070"}], "}"}], ",", " ", & Y( Q- m1 }% V
RowBox[{"{", , {- R$ z2 a! y2 {' S0 u
RowBox[{8 w5 H2 j+ n, Q0 b
"0.608696", ",", "0.364783", ",", "0.130582", ",", "0.020214", ",", ! ?% o2 ?$ o4 E6 J! u; N2 ^, F
"0.356643", ",", "0.379804", ",", "0.000000", ",", "0.000000", ",",
# @- \7 M1 V z8 A- `6 F "0.000000", ",", "0.186690", ",", "0.704225"}], "}"}], ",", " ", ( L+ Q! e" |/ l }$ F+ ~
RowBox[{"{",
/ A7 V% C0 J7 [' J( y" C7 e [ RowBox[{
. L5 W: k5 Y; D3 c/ @ "0.608696", ",", "0.193199", ",", "0.112690", ",", "0.036152", ",",
' M$ ]2 z* @: m; k" d "0.636364", ",", "0.382065", ",", "0.409756", ",", "0.495468", ",",
1 X1 o1 D$ i9 E6 M0 w "0.000000", ",", "0.442874", ",", "0.760563"}], "}"}], ",", " ",
4 G* i5 J2 ~7 d( Y. B. B RowBox[{"{", + ^6 A8 {5 j2 a$ w
RowBox[{- G# e; j% l9 I. n
"0.739130", ",", "0.328932", ",", "0.246779", ",", "0.126520", ",",
! ~5 t- x4 z9 B; [ "0.454545", ",", "0.000000", ",", "0.495122", ",", "0.000000", ",",
$ u* h0 a2 F5 S) h; f& | "0.414181", ",", "0.686690", ",", "0.436620"}], "}"}], ",", " ", : H# I7 U* _; y9 ~
RowBox[{"{",
: ^7 K' x- S% o2 ~# A4 t- `( F; w RowBox[{3 k8 f& K8 I3 W2 Y
"0.739130", ",", "0.341767", ",", "0.362090", ",", "0.183528", ",",
5 a6 [$ O9 `: ]( N! _, @0 X. [+ G$ `3 y "0.573427", ",", "0.413715", ",", "0.454472", ",", "0.661631", ",",
1 h# v( N( ?; x, ? "0.000000", ",", "0.244111", ",", "0.633803"}], "}"}], ",", " ",
. _& d) B# h2 l% `! v RowBox[{"{",
' o% K; e2 ?" w/ {2 c# u1 ?, T RowBox[{
8 V4 O p6 [7 Y2 N/ d# N2 {' \& u5 I. L' [+ O "0.695652", ",", "0.187076", ",", "0.279724", ",", "0.006252", ",", - O% M8 ~8 |( |; [& x
"0.405594", ",", "0.418237", ",", "0.544715", ",", "0.000000", ",",
2 H) u& W4 o4 E0 r! v2 o "0.000000", ",", "1.000000", ",", "0.422535"}], "}"}], ",", " ", 8 K- Y( j8 K- e* {" ` @6 s" `
RowBox[{"{",
# Z1 A9 I9 K8 j5 S# W RowBox[{
9 c+ ]' T/ G9 }% P$ C2 \' D5 E5 m "1.000000", ",", "0.333948", ",", "0.064750", ",", "0.065855", ",", * _$ h, S% h- z! J
"0.342657", ",", "0.000000", ",", "0.408130", ",", "0.000000", ",",
0 }) \5 ]; P9 [, Z "0.000000", ",", "0.957892", ",", "0.295775"}], "}"}], ",", " ", ) R1 [ @+ m7 d7 u
RowBox[{"{",
0 I, H& [' O- ^" U! Q8 j RowBox[{9 b- n3 }; l$ O, v0 O/ A7 L
"0.739130", ",", "0.305400", ",", "0.374567", ",", "0.132870", ",", ( K$ Z5 A, v/ x1 i! I
"0.258741", ",", "0.834966", ",", "0.000000", ",", "0.000000", ",",
6 m' z; m1 G& U* z2 w "0.272861", ",", "0.266784", ",", "0.309859"}], "}"}], ",", " ",
2 K' p" Q- u& H7 y5 V) l1 I# o { RowBox[{"{",
O5 @! m1 B l6 e0 F. W RowBox[{
2 n6 Y* C) n( q, g "0.826087", ",", "0.151962", ",", "0.360280", ",", "0.221632", ",",
6 v \( i9 D# _7 b" b# t0 F( K) T "0.447552", ",", "0.584778", ",", "0.457724", ",", "0.000000", ",",
! D, _6 U: n" ? "0.000000", ",", "0.826855", ",", "0.408451"}], "}"}], ",", " ", 6 t8 o2 K n3 e7 R3 J! h
RowBox[{"{", q2 D- t. Q( K+ o1 ~2 R: O
RowBox[{, G0 E% ~+ s L8 M6 ~
"0.565217", ",", "0.047212", ",", "0.233154", ",", "0.121528", ",", * m* q1 K" K* `( d
"0.314685", ",", "0.417483", ",", "0.546341", ",", "0.000000", ",", 9 S0 N" j n1 ]6 D
"0.669438", ",", "0.341873", ",", "0.197183"}], "}"}], ",", " ",
% R& Y2 a9 e$ g' K6 f3 s Z RowBox[{"{", 1 g5 b3 @. w& i _
RowBox[{3 d3 y/ f q J* ^0 R" C2 Q
"0.826087", ",", "0.034376", ",", "0.690349", ",", "0.512380", ",",
* J1 x' _ I- x* t "0.685315", ",", "1.000000", ",", "1.000000", ",", "0.000000", ",", / \: S4 o# C' r% ^% @
"0.556479", ",", "0.412544", ",", "0.732394"}], "}"}], ",", " ",
% O2 C1 g7 ^7 {; b RowBox[{"{", ; |4 v0 [4 `9 M
RowBox[{
3 q& Z7 z0 l+ B, O& E+ E "0.652174", ",", "0.000000", ",", "0.374417", ",", "0.188075", ",",
& t, Q& S h6 S: f "0.706294", ",", "0.498116", ",", "0.729268", ",", "0.000000", ",",
! m5 J& P8 e7 F z' J" J% m# c "0.454279", ",", "0.322144", ",", "0.802817"}], "}"}], ",", " ",
$ v8 t2 m( ?# q m% ~4 k3 K! U RowBox[{"{",
9 c1 P* \3 Q* K# r+ T RowBox[{% R$ u; v& K7 D/ ~! n' m/ |
"0.782609", ",", "0.180363", ",", "0.237142", ",", "0.054809", ",",
8 j$ n6 B8 ~! ~/ _3 s; Z, T$ f "0.629371", ",", "0.373775", ",", "0.247967", ",", "0.000000", ",",
2 t8 A+ s. W( \, M4 _ "0.163814", ",", "0.370436", ",", "0.746479"}], "}"}], ",", " ", , ~9 X1 s- w4 s+ ^5 o8 m
RowBox[{"{", " o% R. b" F) z: ]. w0 m
RowBox[{
, h' ^' ]3 q( G0 F "0.608696", ",", "0.169150", ",", "0.368148", ",", "0.393768", ",",
0 u0 g5 P( g8 m; O' v" G* p; X "0.440559", ",", "0.995479", ",", "0.545528", ",", "0.000000", ",", % Q4 _7 R/ _' Q+ u/ l
"0.565770", ",", "0.333039", ",", "0.380282"}], "}"}], ",", " ", 8 U5 T6 t) x) g6 Q. @4 ]1 A% X9 [& R7 t
RowBox[{"{",
" W. s2 L+ @+ y( U/ M RowBox[{8 M" u) ?: p6 ]) |* i% _/ [ t
"0.695652", ",", "0.390454", ",", "0.186683", ",", "0.039439", ",",
2 q( u; x. K7 v+ h4 ^: B "0.482517", ",", "0.497362", ",", "0.415447", ",", "0.508560", ",", G8 F% Q2 z! y# x
"0.000000", ",", "0.390754", ",", "0.563380"}], "}"}], ",", " ", , p7 C2 P# U, n; l! y
RowBox[{"{", * Y- \' A$ M6 k% L1 e' P
RowBox[{
, X; K. d: C$ `6 h! a, r. { "0.739130", ",", "0.428888", ",", "0.082728", ",", "0.070154", ",", i( c5 b8 g$ |& x6 v3 }* a
"0.279720", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", # e- [: z5 o8 L. e6 N; t- w3 n
"0.000000", ",", "0.694935", ",", "0.323944"}], "}"}]}],
% }0 W. v4 K& H* r; Z: Z "}"}]}]], "Input",
1 `# c' e+ Q) Z CellChangeTimes->{3.5779587825701036`*^9}],1 T9 T0 ]9 E/ c7 I) a# x
: M1 U i; u8 bCell[BoxData[0 P0 K H' D6 `2 y
RowBox[{"{",
% q5 I* [" I! ~* W$ x5 F6 H RowBox[{+ z7 u3 _. ~" j
RowBox[{"{", ; e" G8 e+ [& q
RowBox[{
) N3 A, g' Y. F8 W+ ? "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
8 p9 x4 c5 S1 d; _6 u* f! r% y "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",", * N$ x) _0 c* G8 p
"0.`", ",", "0.277091`", ",", "0.873239`"}], "}"}], ",",
7 I' o: r- Y; j% ?( h RowBox[{"{", 1 P2 A6 R/ |9 R* w, L* r" U1 g
RowBox[{5 h. N3 t7 ]- G! p4 \
"0.565217`", ",", "0.346857`", ",", "0.393585`", ",", "0.118785`", ",",
) o6 ?+ R% v; ]6 y. O "0.34965`", ",", "0.370761`", ",", "0.413008`", ",", "0.502518`", ",",
" n2 c( A l2 D; P6 p/ T9 B "0.`", ",", "0.220259`", ",", "0.464789`"}], "}"}], ",", 7 | T" @2 g9 Z8 g% ]
RowBox[{"{", ! ?+ C1 V. ~9 G' t
RowBox[{
6 }! p; S0 E* v9 M5 G "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
+ ~- N* y. l: v N7 O2 s6 ^5 ?' h "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`", ; W9 @( I3 K2 h. G! Y' \$ @% N
",", "0.899882`", ",", "0.492958`"}], "}"}], ",", " z( @' J5 b) E
RowBox[{"{",
, j! M1 { i% Q+ A RowBox[{
' B; N; R8 F. s. \% W9 k "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",", 3 i& s! ~7 l% O
"0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`",
# ?( D. _' ]+ v0 V5 }2 o) n ",", "0.265607`", ",", "0.774648`"}], "}"}], ",",
. O* z) V, X$ v: D r8 S RowBox[{"{", - R# A9 [! f9 Y
RowBox[{- \0 t" p' b8 l0 X
"0.565217`", ",", "0.346931`", ",", "0.218229`", ",", "0.043639`", ",",
: _- E; Y# i" x6 g4 x) f "0.503497`", ",", "0.761115`", ",", "0.415447`", ",", "0.503525`", ",",
& {3 ^4 e3 l# Q3 f: | "0.`", ",", "0.642226`", ",", "0.380282`"}], "}"}], ",",
/ y& j9 B8 E8 U$ | RowBox[{"{", + d. B. u; r8 k0 w( q
RowBox[{
# h" f+ v2 X0 w# d0 b- H! C "0.478261`", ",", "0.293154`", ",", "0.259368`", ",", "0.026688`", ",", $ y. G& M% A) G% I
"0.587413`", ",", "0.75584`", ",", "0.409756`", ",", "0.498489`", ",", ! |& N2 t: [8 m2 S) q" J
"0.`", ",", "0.306243`", ",", "0.647887`"}], "}"}], ",", 6 E; I3 q1 W8 F6 Y( ]* k; L. [, J# Q2 S
RowBox[{"{", / G: Q1 P# }7 O' U& t
RowBox[{
2 v `% ~3 u( T4 w/ o* c/ o! ] "0.347826`", ",", "0.359693`", ",", "0.614393`", ",", "0.081521`", ",",
( d: a0 l" y% Y$ Z$ @/ L1 j "0.258741`", ",", "0.367747`", ",", "0.410569`", ",", "0.499496`", ",", ?* ~3 F* j. i: K: ^+ T
"0.`", ",", "0.186985`", ",", "0.56338`"}], "}"}], ",", 8 d) |% D& @8 m4 W
RowBox[{"{",
( J3 ~& F2 Z0 ~+ p; e( H RowBox[{
# ~% U+ q1 R/ L! v "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",", * f6 @. X- C( W8 T Q3 r8 P& F- T
"0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`",
; N* B2 v6 q" X' s9 C: ? ",", "0.175501`", ",", "0.295775`"}], "}"}], ",", % J. v5 \3 h' X0 v$ a
RowBox[{"{",
$ a$ P K7 g- G9 q* I RowBox[{6 {6 D( C5 `: V5 O4 S2 H
"0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",", 1 M+ n# ]+ q! r+ a2 Y5 S
"0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`", : l0 l6 l: ?% B4 w O! O& r% f1 T
",", "0.147821`", ",", "0.338028`"}], "}"}], ",",
- @3 i0 \2 M2 S# } RowBox[{"{",
, ~$ N8 b( I! Z# \. T RowBox[{' I# v( p( V: R6 K" x4 g1 g' {# N4 P
"0.565217`", ",", "0.697772`", ",", "0.171587`", ",", "0.028566`", ",", 5 g4 { K$ A# o) c+ `
"0.363636`", ",", "0.449887`", ",", "0.40813`", ",", "0.`", ",", "0.`",
' z$ R( [ D: Y9 l2 F' t$ i ",", "0.352768`", ",", "0.211268`"}], "}"}], ",", ) W# Q6 U+ u3 p- k0 d
RowBox[{"{",
: N/ c8 G9 m2 ?* F- l9 b' W( { RowBox[{& h( e9 {0 Y1 M! o7 N
"0.282609`", ",", "0.660888`", ",", "0.460064`", ",", "0.110334`", ",",
# r4 r2 u+ p) {0 y9 W, V "0.475524`", ",", "0.`", ",", "0.545528`", ",", "0.`", ",", "0.5511`",
1 O' U0 B$ H3 Z. { ",", "0.23881`", ",", "0.690141`"}], "}"}], ",",
- b0 s4 h. m# |3 f" H+ S" W; C* l" n RowBox[{"{", 4 O* k" W, N: D1 B% q" O( w" y
RowBox[{2 X/ c: E' ^& C4 w6 e
"0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",", * x' d, B- T) h* q% }
"0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
$ B! v0 v9 i! x+ G; @" [ "0.494866`", ",", "0.095701`", ",", "0.43662`"}], "}"}], ",",
5 |( z8 [/ X& l3 a' p+ l5 E RowBox[{"{",
0 q @# |! K* m* F- @ D$ J RowBox[{' T+ Z) l D( b$ J
"0.347826`", ",", "0.697772`", ",", "0.108288`", ",", "0.022413`", ",", 2 Q% m( p7 }: O8 e3 Y+ Z4 T
"0.356643`", ",", "0.247928`", ",", "0.90813`", ",", "0.`", ",",
6 ^8 h) `; c5 }, } "0.383374`", ",", "0.162839`", ",", "0.`"}], "}"}], ",",
7 w; _' Z: [2 A RowBox[{"{", ; a0 `3 t* `( [5 A$ ]
RowBox[{
( `4 }& K' ~; F$ ?- B+ f# Z/ G, N "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",", 6 @. K& p8 q. U# b2 G% |6 |
"0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`", % Q1 N. ^9 |6 W/ ^* q2 t
",", "0.335395`", ",", "0.267606`"}], "}"}], ",", b( o) W0 ^+ M" L- }9 I' r7 j' }# W+ E
RowBox[{"{", 3 }5 E* o8 Z8 L4 j7 \, \) X- B
RowBox[{, I0 L# p* p- s3 l# {: @; ]
"0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",", 5 x: Y3 f1 I; ~. U c/ A
"0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`", ",",
$ P& Q% O/ G5 X "0.160483`", ",", "0.211268`"}], "}"}], ",",
/ {. [$ |" r' E8 y RowBox[{"{",
) P2 a5 ]. k3 Z RowBox[{
7 i W" ]; H: X "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",", & C) @+ ~+ q/ X1 U3 }
"0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`",
1 \3 D- N: @9 f; u+ y ",", "0.398115`", ",", "0.408451`"}], "}"}], ",", " n: x {) ~! C; {) ~& _
RowBox[{"{", ( `; t: e3 {" p; _/ s: ?
RowBox[{
. \/ ]; V. Q+ F5 X( E r: I$ b "0.608696`", ",", "0.425199`", ",", "0.012979`", ",", "0.`", ",",
9 w+ M9 u6 G7 g$ `& t; r "0.482517`", ",", "0.50942`", ",", "0.406504`", ",", "0.`", ",", "0.`", * @& h! X/ o# a6 e7 D
",", "0.157833`", ",", "0.478873`"}], "}"}], ",",
8 _, Y) |' A. @0 ?- R% j RowBox[{"{",
7 |! ^' s7 x& |$ E/ A RowBox[{
) k" H& w5 p' ?9 j2 o: W. Z# r "0.608696`", ",", "0.577973`", ",", "0.213587`", ",", "0.030889`", ",", * [9 _* m0 U! R- \ C
"0.370629`", ",", "0.`", ",", "0.452846`", ",", "0.`", ",", "0.`", ",",
. V& `2 s8 [* k) d "0.315665`", ",", "0.380282`"}], "}"}], ",", c( U5 ~% ^8 a! f& Y) Y8 b# C; D" Q. i( O
RowBox[{"{", 7 i' C0 ^7 k$ J- \3 W
RowBox[{ O; G, ?0 P @
"0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
6 @( \8 F& G6 u4 F* |2 }8 z "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.492344`",
& m6 C' G' I' |. R( ^ ",", "0.211268`"}], "}"}], ",",
* ^: n3 Y: n4 E RowBox[{"{",
" X8 `0 @3 J8 v% G RowBox[{
/ L9 F- l7 @+ N* Q3 j N "0.130435`", ",", "0.562039`", ",", "0.331662`", ",", "0.032643`", ",",
, \" T1 N6 g/ l' G, O3 ^ "0.314685`", ",", "0.414469`", ",", "0.27561`", ",", "0.`", ",", "0.`", 6 a- S# ~0 G+ f1 x" i0 G8 R
",", "0.638398`", ",", "0.43662`"}], "}"}], ",",
4 k! G: z( A% E RowBox[{"{",
% i% u) I) m+ V7 y RowBox[{
& s5 y7 ~! x" i6 c" a% h# [ "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
) [$ P6 _1 g/ ]& E$ h( k "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
# S8 A3 r7 R/ m$ H( d/ y* D "0.392521`", ",", "0.478873`"}], "}"}], ",",
1 Q8 h6 a$ ^% Z% L7 E' N RowBox[{"{",
: J0 r* P3 J+ [ r/ ?" x* { RowBox[{ z+ d9 S6 T. H( Q# {6 C6 U
"0.608696`", ",", "0.769475`", ",", "0.289283`", ",", "0.022882`", ",", ' F5 y6 s( G. A1 c2 q
"0.321678`", ",", "0.`", ",", "0.274797`", ",", "0.333333`", ",", "0.`",
5 M% t' R/ L5 d1 S& n ",", "0.362191`", ",", "0.295775`"}], "}"}], ",", ; z6 E& _ l' c$ e4 b1 @
RowBox[{"{", $ @& U% i% P- a% ~* }4 A
RowBox[{5 B" P0 C4 e7 C2 ~3 q" x
"0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",", ) a) J3 D7 e* R# G" j
"0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`", ",",
& o, Y# o, D" } C "0.114252`", ",", "0.028169`"}], "}"}], ",", * Z! G" G4 a2 _2 h3 F
RowBox[{"{",
8 _# c, \7 o/ M+ _0 ] RowBox[{" s: v! @0 X2 h
"0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
4 O) w- D; Z0 x7 ^5 A2 U! i3 ~ K! \: q7 n "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`", ",", + Y9 m1 Z% ?# d, |2 [" p2 ?
"0.401355`", ",", "0.43662`"}], "}"}], ",", " ]2 p- p2 V5 A6 a0 ^3 Q% L
RowBox[{"{",
. N8 q9 ]) k- q RowBox[{% E# e8 X q( m
"0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", 4 ?" B+ Z2 q) V" S6 u' L
"0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
8 k! B( C6 @& Q3 b) L7 P "0.827444`", ",", "0.394366`"}], "}"}], ",", ; }( ]$ O2 L- \: P; g
RowBox[{"{", ( _+ [/ g: v1 r" a
RowBox[{* c/ {% L# p" b! c# A k
"1.`", ",", "0.199248`", ",", "0.295044`", ",", "0.041613`", ",",
/ k. B. c% R% X: [4 U2 s "0.20979`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
" F) o; J- x D- L "0.676973`", ",", "0.295775`"}], "}"}], ",", 4 w( F6 |9 t0 F
RowBox[{"{", 0 _! g5 T9 u! z [
RowBox[{
: @, H# u7 d" p# E0 j "0.869565`", ",", "0.180363`", ",", "0.243056`", ",", "0.098349`", ",",
4 J" P+ L! ^) w6 y( s Z( Q8 ?1 y; ~ "0.265734`", ",", "0.503391`", ",", "0.`", ",", "0.`", ",", "0.`", ",", ( ?6 b: w, `7 [. L
"0.331272`", ",", "0.830986`"}], "}"}], ",",
; ~+ Y1 p& R5 s6 H3 C RowBox[{"{",
9 ] G8 @# q0 z$ G1 O! F# w RowBox[{
7 t; S1 q% |/ ^4 J! J& w ?4 w "0.695652`", ",", "0.551785`", ",", "0.326201`", ",", "0.253608`", ",", - r8 S- N" E+ T( ]& S7 e
"0.195804`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", ' e# _5 r$ b' {* n+ U, n/ y
"0.845701`", ",", "0.169014`"}], "}"}], ",",
! w5 d. }4 D0 _ RowBox[{"{", / N1 Y+ y# i, G4 B- {
RowBox[{
5 x# y/ @+ J" v1 S. j3 m "0.652174`", ",", "0.572293`", ",", "0.111511`", ",", "0.035584`", ",", 8 }* C' I' e' B5 B: X ^3 E/ m: V! h
"0.405594`", ",", "0.249435`", ",", "0.544715`", ",", "0.`", ",", "0.`",
, R- `" t f7 L* A ",", "0.287102`", ",", "0.366197`"}], "}"}], ",",
6 v- D! h9 U0 C8 U! A RowBox[{"{", 8 {$ m! q5 w* p! F( l2 t9 I
RowBox[{, K) A! I8 N' _( _! w6 C7 l! I4 m
"0.652174`", ",", "0.562039`", ",", "0.336155`", ",", "0.014604`", ",", $ I' h0 \4 d: P: E
"0.174825`", ",", "0.24416`", ",", "0.`", ",", "0.`", ",", "0.`", ",", - p. W) u+ K* ^$ {
"0.`", ",", "0.309859`"}], "}"}], ",",
1 F" e9 }! Q$ G# j' u4 [: | RowBox[{"{",
! v& w4 H# ]$ q RowBox[{/ K( F1 l0 a2 |2 P
"0.565217`", ",", "0.577383`", ",", "0.15587`", ",", "0.030963`", ",",
: l4 W. S# r% n" r- S# p "0.258741`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
- F: v1 `$ B6 N9 [6 {; @ "0.050059`", ",", "0.352113`"}], "}"}], ",",
1 U. W+ r8 W, O' N2 Q RowBox[{"{",
/ c/ j! R. D# G RowBox[{1 s( J c2 C2 U L8 x/ n& `4 v
"0.565217`", ",", "0.613234`", ",", "0.232956`", ",", "0.05387`", ",", ' u# P* T* J8 {8 }# ?' z
"0.230769`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", " |6 Z/ }7 y; O8 o
"0.254122`", ",", "0.309859`"}], "}"}], ",",
; ~0 n% q j/ o RowBox[{"{", - v$ [) I! Z$ p( ?- u4 Z
RowBox[{5 K! x6 @; i' T" N% d+ _' X
"0.565217`", ",", "0.559531`", ",", "0.493262`", ",", "0.046209`", ",",
. p5 k& \2 W3 [8 k5 {5 q- T$ O "0.293706`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", & g: Z4 c; R" ]3 | K: l
"0.086867`", ",", "0.774648`"}], "}"}], ",",
% _7 r8 H! x' O" U8 Y4 F4 \8 w F RowBox[{"{",
) p; q. B# k7 O4 H: n RowBox[{
9 |; S! C8 u+ d "0.608696`", ",", "0.569711`", ",", "0.111932`", ",", "0.013542`", ",",
- e; F3 J% m7 i) O {, @! y! ?6 ? "0.335664`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.168704`", ",", . ]7 C- }6 c0 W% R+ E# A. ?: J2 y
"0.659894`", ",", "0.422535`"}], "}"}], ",", ! L% r! u$ x5 F- y8 B+ o
RowBox[{"{",
; i H0 r! M4 W; j( _ RowBox[{& s, r" E; o# F4 t+ {
"0.608696`", ",", "0.564547`", ",", "0.329844`", ",", "0.202036`", ",", + G1 y! ]( f" v; r0 o# M# e6 U
"0.51049`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
9 b- j7 Q8 p0 L% w/ e "0.317138`", ",", "0.887324`"}], "}"}], ",",
. f0 A b) N8 f/ H0 k+ }( _ RowBox[{"{", * Z1 D& ?; g- F& ~5 ]; A) ^& h
RowBox[{
4 ~/ m" A) S3 C; J "0.521739`", ",", "0.546695`", ",", "0.165788`", ",", "0.029431`", ",", 5 E6 p7 E" M1 i8 i8 p& r; A
"0.51049`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 4 j% ^4 Q' @: @% O1 G) e: H
"0.605124`", ",", "0.887324`"}], "}"}], ",", * y2 a+ S2 b* \8 h5 D3 [
RowBox[{"{",
, u2 ?0 \( U: B4 i8 L RowBox[{
. K4 O1 S4 _' g$ {2 a- T- V% U "0.521739`", ",", "0.564178`", ",", "0.400518`", ",", "0.045023`", ",", % n( ~: S- Y: ~" C% J: m- F
"0.615385`", ",", "0.3685`", ",", "0.660163`", ",", "0.301108`", ",", ) F0 Z4 J& F& ]5 U& j, T; _
"0.`", ",", "0.32126`", ",", "0.859155`"}], "}"}], ",",
' z8 U# L0 [8 h* C& V RowBox[{"{", + R9 h4 D; s4 c F5 f' n& t# x, o
RowBox[{/ H& R7 x t5 C. J( ~1 _2 x5 i8 ?$ O
"0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", 7 m' A: T1 f6 d* W" A
"0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`",
" s3 a2 t' z7 _ ",", "0.595406`", ",", "0.239437`"}], "}"}], ",",
8 m" W2 w1 z+ | RowBox[{"{",
) E* N/ P& g, ~/ r RowBox[{ l% x7 n4 i- R6 s- z" A8 O
"0.652174`", ",", "0.549277`", ",", "0.257578`", ",", "0.058688`", ",",
3 H8 u& d/ e( m "0.356643`", ",", "0.`", ",", "0.817886`", ",", "0.`", ",", "0.`", ",",
1 _/ l Y) J, s0 X7 a. ^ "0.555359`", ",", "0.295775`"}], "}"}], ",", 5 R% J5 N0 `6 f* g4 t
RowBox[{"{", 7 f( @ J: {: Z$ j% e
RowBox[{
6 k' i# r. h: Y0 z* D, e3 ` "0.695652`", ",", "0.549277`", ",", "0.572308`", ",", "0.082411`", ",",
3 e( q& s& _) t0 F# Z "0.461538`", ",", "0.528259`", ",", "0.819512`", ",", "0.`", ",", "0.`", + H* m. R6 k0 o6 j* L/ P+ w
",", "0.333333`", ",", "0.746479`"}], "}"}], ",", 4 A, ^6 b; S# C/ d
RowBox[{"{",
( o" V. V9 T+ T7 d' w8 A% d+ n RowBox[{8 D7 J. I% |4 p. Q8 x, V5 ~- b
"0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",", 9 H: F- z# k& r, O" A; T/ t
"0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`", ' X) n& q& }% r8 b5 Q/ ]4 Q6 c
",", "0.149588`", ",", "1.`"}], "}"}], ",", 5 N; V" G! ]5 M' j8 P/ B+ }
RowBox[{"{",
0 k5 M& }$ t+ J1 C" s RowBox[{
5 q9 q- h9 o4 t6 r; l "0.282609`", ",", "0.531278`", ",", "0.321428`", ",", "0.228625`", ",",
0 Y; L# a: {3 H6 u' C6 l+ M "0.594406`", ",", "0.53052`", ",", "0.410569`", ",", "0.`", ",",
. F1 r* w# S. G: ]$ X" `3 s) S+ m "0.757457`", ",", "0.493522`", ",", "0.549296`"}], "}"}], ",",
, D" q" P2 [0 \' i% i RowBox[{"{",
3 r: P- A" z1 {# K RowBox[{
; H; d( ?( G$ \/ V/ l8 ]9 j "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
+ A3 I! b0 d2 B( ^+ `- ? "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`", ",", 7 e! J9 q- q5 ?/ C* r$ d c: [) h
"0.224676`", ",", "0.366197`"}], "}"}], ",",
6 ]" l4 u+ K( p4 A9 K7 k F1 \ RowBox[{"{",
, P9 g4 D9 z$ w; h: J5 j( [- W RowBox[{. {5 z8 A6 P5 @: {: J
"0.391304`", ",", "0.705444`", ",", "0.045908`", ",", "0.07312`", ",",
9 h \' Q; \5 b' t+ r "0.622378`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.496333`", ",",
2 M' Y! C$ `6 q" l "0.410188`", ",", "0.549296`"}], "}"}], ",",
( Z1 L* L( B) } RowBox[{"{",
0 n. Q. W/ e! ~4 r& V( ?+ L RowBox[{/ M$ ]1 a7 ^+ A3 E8 l+ v
"0.282609`", ",", "0.661921`", ",", "0.344992`", ",", "0.085178`", ",",
3 h8 }, Y( [! m' a8 G, } "0.293706`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", ' S. M @& N6 S7 O
"0.668139`", ",", "0.577465`"}], "}"}], ",", , v. }; l" }6 H
RowBox[{"{", + r2 c+ [# Y) i, G: A$ P
RowBox[{
; a$ f) {4 Y5 z4 s( M& o "0.478261`", ",", "0.661921`", ",", "0.644209`", ",", "0.077296`", ",",
3 t4 V" r8 V% | "0.412587`", ",", "0.`", ",", "0.413008`", ",", "0.502518`", ",", "0.`",
6 e/ t: N8 a, @7 z ",", "0.102179`", ",", "0.690141`"}], "}"}], ",", . P! }! `; h# [
RowBox[{"{", + A8 X b3 x7 B0 V/ L" X6 T9 N
RowBox[{
: g' c+ `7 f# E6 J$ m6 H2 Y2 ]3 R "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", % \& B. i) Y. `3 f
"0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", ; \ g* ^, g$ O9 a" D/ O9 ]
"0.380742`", ",", "0.71831`"}], "}"}], ",", / r, s/ p: C! n! ]1 X, @
RowBox[{"{",
: W0 Z* \4 K7 w: k. c% E+ X RowBox[{
# n R$ b* T7 y "0.5`", ",", "0.984656`", ",", "0.288432`", ",", "0.047692`", ",",
1 Z# g' t/ W$ P5 q6 r "0.27972`", ",", "0.`", ",", "0.821138`", ",", "0.510574`", ",", "0.`", # Q, s( \# a( t+ m0 l' T9 |: r* f0 ]
",", "0.319494`", ",", "0.521127`"}], "}"}], ",",
# o$ ?- _* U. W RowBox[{"{",
$ p: f* y! j6 B0 o/ o4 \% q RowBox[{
, k) Q I6 K5 U8 o "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
/ q# {. e$ O" a+ e "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`", ! S8 \; ~7 a: P! {* c4 A; f# t
",", "0.031508`", ",", "0.929577`"}], "}"}], ",", * C# J+ _* d- d2 ]+ _
RowBox[{"{", 0 g* ?1 C1 Y3 [, j* n+ v1 Y9 b
RowBox[{ k! p3 r) G) f3 a% }- y6 u/ F) a
"0.73913`", ",", "0.774639`", ",", "0.17512`", ",", "0.036498`", ",", - m8 E3 A8 L& x3 ]; V# c
"0.391608`", ",", "0.739261`", ",", "0.408943`", ",", "0.553877`", ",",
8 R3 o+ y6 j+ I3 c$ _8 h "0.`", ",", "0.292108`", ",", "0.521127`"}], "}"}], ",", \4 R3 u! Z' U' R, t) a7 Y4 s
RowBox[{"{",
6 B2 j2 y. b2 v# k RowBox[{
9 k& W) p7 h6 h3 m+ ~% p; t4 b "0.586957`", ",", "0.982074`", ",", "0.158462`", ",", "0.063902`", ",",
( b/ ~" k4 ^1 V1 }" E" s# y "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
0 E d) L- }4 y# O2 L "0.329505`", ",", "0.338028`"}], "}"}], ",",
; o& _+ S4 F0 n. |+ ?1 h RowBox[{"{",
" y$ d' h. l# r2 n4 O/ D f; j RowBox[{
- }3 o- @" l- S) {1 B "0.543478`", ",", "0.982074`", ",", "0.306872`", ",", "0.041934`", ",",
4 ^0 c$ p9 r3 ~' H0 L "0.426573`", ",", "0.380558`", ",", "0.414634`", ",", "0.506546`", ",", 2 G) s6 b( F+ {( Z' Y( p( E
"0.`", ",", "0.337456`", ",", "0.380282`"}], "}"}], ",", ' Y8 h/ `. W7 q2 `1 a
RowBox[{"{", - `& F) c; v5 `5 f' Q7 l3 e ^
RowBox[{8 L' }0 A c$ N0 P* J! b
"0.73913`", ",", "0.997418`", ",", "0.170143`", ",", "0.058268`", ",", 9 o! N* M4 E, }' [# n
"0.538462`", ",", "0.248681`", ",", "0.`", ",", "0.339376`", ",", "0.`", # M* |4 i7 ?- X7 C& S* j
",", "0.766784`", ",", "0.676056`"}], "}"}], ",",
6 n# `* j4 }6 Z* N6 f/ Z7 h/ p RowBox[{"{", " Y: o9 ^6 q' G6 k( t; {& D" _
RowBox[{
5 M' |$ E& t9 V ^2 j& Z( v0 ` "0.695652`", ",", "0.700428`", ",", "0.139361`", ",", "0.182169`", ",", , S1 |, a( o/ R% z- R
"0.412587`", ",", "0.243406`", ",", "0.`", ",", "0.`", ",", "0.136919`",
$ S' H; `" x( b5 I ",", "0.676678`", ",", "0.591549`"}], "}"}], ",",
! [; m( Z% w: q$ b RowBox[{"{", " Q" O- b: p& ~
RowBox[{
+ a- X+ S1 P9 P1 ^7 O$ _ "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
; l7 ?/ U0 i! ], _ "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`", 3 H; ~" m( _' h5 c! |' y" l
",", "0.541519`", ",", "0.464789`"}], "}"}], ",",
' I4 ]1 t, l R5 u) G- O7 r3 G9 W RowBox[{"{",
' t& v' o' M9 u! j N+ ^ ~$ u RowBox[{
+ J7 K( \& ~# Y% Q6 t' O "0.652174`", ",", "0.751623`", ",", "0.355593`", ",", "0.039883`", ",", 6 j/ w) D9 @8 v! u/ ^8 z8 v
"0.195804`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", $ G, r* g% i6 N5 O
"0.064488`", ",", "0.295775`"}], "}"}], ",", ) v/ ?; n0 _7 _9 n: ~ g( { e
RowBox[{"{", ) w+ h& m8 G, H" Y& c0 P7 S
RowBox[{
$ u, K% T+ i. r0 ~8 ` "0.521739`", ",", "0.679847`", ",", "0.152375`", ",", "0.030048`", ",",
# A+ k( R F) k9 I7 b "0.363636`", ",", "0.`", ",", "0.271545`", ",", "0.`", ",", "0.`", ",",
) O( D' X( u3 v; C# p8 L7 t1 u "0.463192`", ",", "0.380282`"}], "}"}], ",", , c' o; g: B5 U
RowBox[{"{", ( Z; O8 d. g) l
RowBox[{
2 ?- L0 G* O x/ Y4 W% S "0.434783`", ",", "0.728533`", ",", "0.18683`", ",", "0.12951`", ",",
" h4 Z1 ~" }9 I3 R% J0 g "0.195804`", ",", "0.`", ",", "0.269919`", ",", "0.`", ",", "0.32665`", . a; A4 C' ~, F9 g
",", "0.388398`", ",", "0.211268`"}], "}"}], ",",
2 \! M" `: F$ V* y/ I: Z8 Z RowBox[{"{", 2 h7 x% b- D b2 e
RowBox[{! u: L, C) y; Q0 E8 t
"0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",", . c: v4 q. Q% C& C! T5 c
"1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`",
5 m- [7 @8 s! u8 u' U! w' I! g. n ",", "0.262367`", ",", "0.253521`"}], "}"}], ",", 6 d1 U4 x3 |6 X
RowBox[{"{", ) w' \: g: L1 S- w% B- k
RowBox[{
0 S! M2 z, r9 ^$ k( a+ I "0.608696`", ",", "0.633742`", ",", "0.322697`", ",", "0.068597`", ",", + {! \* g j4 A" K8 A) Y1 h4 w* k
"0.328671`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.287042`", ",",
# f) l$ C: X0 W+ ?; J7 W! p "0.290931`", ",", "0.28169`"}], "}"}], ",", 2 L- ~3 a3 z5 }3 `: H
RowBox[{"{", 6 _ t5 ~4 M9 ^5 B" C
RowBox[{/ G( q3 d2 j8 @: N
"0.478261`", ",", "0.539023`", ",", "0.412108`", ",", "0.107566`", ",", * C; V$ d: X: t0 [% T! I
"0.237762`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
7 ^8 p$ r3 N& r# J _ "0.380742`", ",", "0.507042`"}], "}"}], ",", U+ i4 ?# n% b8 B4 G8 N
RowBox[{"{", , [( e y, o7 [/ i
RowBox[{
( ^. q0 ?) s5 h6 U" Z! Y7 e) K "0.608696`", ",", "0.551859`", ",", "0.176821`", ",", "0.076332`", ",",
# f4 K* Z5 ?/ b1 G7 X/ O "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
' J' Q5 E% n0 b/ n+ D "0.429034`", ",", "0.239437`"}], "}"}], ",",
0 T" z( j4 C2 [ RowBox[{"{", 4 o- |. \2 i& @, |
RowBox[{
! e [. O, X- r' |* Y1 W3 c2 J "0.652174`", ",", "0.551859`", ",", "0.033549`", ",", "0.018459`", ",",
& }/ e! K3 b5 C" ~9 `. s+ [ "0.573427`", ",", "0.`", ",", "0.553659`", ",", "0.`", ",", "0.40489`", 4 _) e; I6 e$ M
",", "0.193168`", ",", "0.394366`"}], "}"}], ",", 7 Z5 c- j& m" a6 @# S2 Y
RowBox[{"{", 0 H5 Y! o3 \' [9 u# n1 n5 g
RowBox[{
1 W1 J/ @. ^) c3 p( N "0.695652`", ",", "0.595382`", ",", "0.277493`", ",", "0.100326`", ",", / D" T4 O4 \: O! }! T) G
"0.286713`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", , z& H2 H; D4 y
"0.448763`", ",", "0.338028`"}], "}"}], ",",
' A6 \# @# m$ z) S! h' S! d9 X; ] RowBox[{"{", $ e# U+ b. f! W
RowBox[{; R2 s. k4 ?3 Y$ F, w
"0.565217`", ",", "0.559531`", ",", "0.422669`", ",", "0.078111`", ",", : o& F. b) v/ u; i8 s5 t( R! u$ Z
"0.286713`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", - v. H- H' n X$ q
"0.442285`", ",", "0.394366`"}], "}"}], ",",
% w1 ]9 ?3 d0 c" B2 d RowBox[{"{", : i2 E9 \2 h W, v
RowBox[{
' V# H" x# V4 w8 e, L( M "0.586957`", ",", "0.398126`", ",", "0.140619`", ",", "0.069116`", ",", 9 J% `8 E. O' e# N
"0.461538`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", / S. ], O1 N, W; m8 M* _8 l/ R
"0.575383`", ",", "0.15493`"}], "}"}], ",",
+ S3 @/ m# K$ B/ e: K+ T2 }7 R RowBox[{"{",
! l+ [: u3 Y7 K: _$ z RowBox[{
! z# t- b1 G) C K: y "0.695652`", ",", "0.398126`", ",", "0.019829`", ",", "0.041366`", ",",
& |! {# T7 O$ s: T% ? H# g M1 z "0.552448`", ",", "0.24416`", ",", "0.`", ",", "0.`", ",", "0.`", ",", # f( l0 O) H9 V3 U
"0.515607`", ",", "0.591549`"}], "}"}], ",",
, p) V0 B; I9 u; R$ z: j& w+ L' w RowBox[{"{", . m) `) }( n/ ^% U1 @$ s# B
RowBox[{
9 z0 i7 S+ B, l4 K9 z( t# Y "0.695652`", ",", "0.700354`", ",", "0.422467`", ",", "0.068128`", ",", % Y4 N! G2 \2 F3 V: K+ d3 U4 v+ M( a$ d
"0.20979`", ",", "0.`", ",", "0.`", ",", "0.500504`", ",", "0.`", ",", ]. K! e3 [0 |" R
"0.057715`", ",", "0.408451`"}], "}"}], ",",
" j6 \$ B9 @1 _9 m( ~ RowBox[{"{", 0 Z: y7 X; L) {, s: D8 e# N
RowBox[{
2 ~9 w" M: g: `9 T' M2 A9 @ "0.521739`", ",", "0.193125`", ",", "0.210582`", ",", "0.110433`", ",",
6 q# ]- }0 N. B# ]" @0 H# L "0.447552`", ",", "0.382065`", ",", "0.413008`", ",", "0.498489`", ",",
4 [+ P- v. B% F9 H "0.`", ",", "0.174617`", ",", "0.295775`"}], "}"}], ",",
# n9 T; l6 O0 s! ?& \: g* F: j9 l RowBox[{"{", ) s: u( L$ \$ O( X- I2 R" m
RowBox[{
2 ~) Q7 ?% o5 E( l( e& f. P7 a "0.347826`", ",", "0.063588`", ",", "0.830527`", ",", "1.`", ",", / V6 |8 ?, p) o$ H
"0.111888`", ",", "0.`", ",", "0.410569`", ",", "0.`", ",", "0.`", ",",
: S% e" @, B# |0 i& D0 @9 Q "0.66755`", ",", "0.661972`"}], "}"}], ",",
9 O# T& S' ^; t4 J RowBox[{"{",
) m G) Q6 i( V3 y3 ? RowBox[{' N3 Q# M! C7 |$ p5 _
"0.521739`", ",", "0.188109`", ",", "1.`", ",", "0.785485`", ",",
! S$ U! E w! @4 l! d, a, f" O "0.342657`", ",", "0.373775`", ",", "0.406504`", ",", "1.`", ",", "0.`", + I7 V: g: e6 I) d+ p" J1 t
",", "0.371025`", ",", "0.774648`"}], "}"}], ",", - i# h+ Y( r* V
RowBox[{"{", / @6 e0 z; [ c$ l* o" W# A
RowBox[{$ J. Q% v6 ~" @1 d# R
"0.695652`", ",", "0.188404`", ",", "0.088836`", ",", "0.059504`", ",",
9 J1 |( Z7 a; g% T, u! n+ a) h1 V2 o "0.706294`", ",", "0.37679`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
: ~. r- r' g: d. Q) s; a- S1 S l8 W "0.570966`", ",", "0.746479`"}], "}"}], ",",
4 u5 V- U* Z9 \3 P9 g3 R RowBox[{"{", 9 ?+ M m5 F4 p
RowBox[{9 W0 S3 B- @2 k" K$ D+ o( p
"0.695652`", ",", "0.057465`", ",", "0.316316`", ",", "0.15128`", ",", 3 I% }& T0 _* T& J2 N; D
"0.615385`", ",", "0.371515`", ",", "0.412195`", ",", "0.500504`", ",",
( i" O' w R" k. C( s% } {' \, ? "0.`", ",", "0.468198`", ",", "0.887324`"}], "}"}], ",",
6 ~9 H9 R2 |& j9 V0 N6 i RowBox[{"{",
7 Z, s* @* h: N8 W8 Z RowBox[{
- \! ?; V/ b, c+ f/ V1 _ "0.608696`", ",", "0.01136`", ",", "0.295586`", ",", "0.113892`", ",", # |8 u* X7 `1 Y2 v/ \
"0.58042`", ",", "0.746044`", ",", "0.405691`", ",", "0.501511`", ",", 7 m7 B: e8 j7 _5 k
"0.`", ",", "0.414016`", ",", "0.84507`"}], "}"}], ",",
" C( ^, S: \3 v) t RowBox[{"{", 5 L u4 X. O& ^* I
RowBox[{
" B# X8 k3 K' P+ ^) J+ ` "0.608696`", ",", "0.364783`", ",", "0.130582`", ",", "0.020214`", ",",
' [' f6 J. ]0 \/ h/ D; y "0.356643`", ",", "0.379804`", ",", "0.`", ",", "0.`", ",", "0.`", ",", / z9 V1 H1 s: U+ m& I7 s0 p
"0.18669`", ",", "0.704225`"}], "}"}], ",", 0 t5 Z! ]/ ~3 [, ~: i, W2 L) K
RowBox[{"{", 6 G& x5 v0 g) x% d+ `. s" s
RowBox[{
+ t. d& {& Y7 x "0.608696`", ",", "0.193199`", ",", "0.11269`", ",", "0.036152`", ",", / `; A' Y6 n; ?/ G' y
"0.636364`", ",", "0.382065`", ",", "0.409756`", ",", "0.495468`", ",", 5 {7 I6 B1 v* ]. X
"0.`", ",", "0.442874`", ",", "0.760563`"}], "}"}], ",",
: Y. O7 ] q% x RowBox[{"{",
& r A" Q3 \5 B8 q7 Z; N( L, A5 t RowBox[{
8 n; V) H* X5 v. f, e "0.73913`", ",", "0.328932`", ",", "0.246779`", ",", "0.12652`", ",", 7 Q* B1 j7 _- j! P# `: r7 A
"0.454545`", ",", "0.`", ",", "0.495122`", ",", "0.`", ",", "0.414181`",
% _' Q; [+ ~* ?. P$ ~0 [& ] ",", "0.68669`", ",", "0.43662`"}], "}"}], ",",
. w8 V5 i6 N, N+ ?3 q: X1 Y+ f RowBox[{"{", - Q- a" Z5 S6 \2 q3 h
RowBox[{
8 h) E8 X% G% y ]7 n9 d "0.73913`", ",", "0.341767`", ",", "0.36209`", ",", "0.183528`", ",", 5 {( R. K8 l" k+ M) t% y) G- G
"0.573427`", ",", "0.413715`", ",", "0.454472`", ",", "0.661631`", ",", ( g; W" i! n* Q7 K3 ~8 @; l' r
"0.`", ",", "0.244111`", ",", "0.633803`"}], "}"}], ",",
* l+ @9 B5 E' ~! }; X RowBox[{"{",
6 T7 ~( f) i% v: |0 r0 ~. ^6 F' j RowBox[{
0 z. B" k: e( c+ ]" i "0.695652`", ",", "0.187076`", ",", "0.279724`", ",", "0.006252`", ",",
3 P9 R$ n# e" G0 J "0.405594`", ",", "0.418237`", ",", "0.544715`", ",", "0.`", ",", "0.`", : F5 ?0 @* u" R! m% M
",", "1.`", ",", "0.422535`"}], "}"}], ",",
, b, ]; Z6 t6 M# q4 `, X$ o RowBox[{"{", . C% c5 C9 }' r& v
RowBox[{
" q& O: L, v/ }+ n; V2 ^ "1.`", ",", "0.333948`", ",", "0.06475`", ",", "0.065855`", ",", $ Z6 t5 t9 t; u9 g1 f
"0.342657`", ",", "0.`", ",", "0.40813`", ",", "0.`", ",", "0.`", ",",
. Z7 F S; f8 f+ M \5 ] "0.957892`", ",", "0.295775`"}], "}"}], ",",
' u6 ?% K& p7 f/ n) ]! b0 ~% K2 v+ T RowBox[{"{",
2 n& J j; O/ ~; } RowBox[{
8 }( W' @% X. R N) z "0.73913`", ",", "0.3054`", ",", "0.374567`", ",", "0.13287`", ",", 6 s" h+ n5 Y- j! B
"0.258741`", ",", "0.834966`", ",", "0.`", ",", "0.`", ",", "0.272861`",
) V$ b }/ y! ^% T6 S ",", "0.266784`", ",", "0.309859`"}], "}"}], ",",
+ Z: q5 H6 k% s RowBox[{"{", 7 B8 X- g4 w5 J* X* V* B
RowBox[{' k( x2 |6 U8 T8 R: {5 S; ^
"0.826087`", ",", "0.151962`", ",", "0.36028`", ",", "0.221632`", ",",
! P5 z4 U4 Q8 ~3 \, h$ | "0.447552`", ",", "0.584778`", ",", "0.457724`", ",", "0.`", ",", "0.`",
2 J+ X3 m7 T( T% c3 I: Y ",", "0.826855`", ",", "0.408451`"}], "}"}], ",", , X* @3 I+ ^& @0 w" d
RowBox[{"{",
9 b: ?) S2 s9 {# G' J RowBox[{( s4 a3 |9 [6 T! @3 L7 T* f
"0.565217`", ",", "0.047212`", ",", "0.233154`", ",", "0.121528`", ",", : u# N! }+ o6 v1 ^
"0.314685`", ",", "0.417483`", ",", "0.546341`", ",", "0.`", ",",
, B+ |9 @0 P% ], j$ i "0.669438`", ",", "0.341873`", ",", "0.197183`"}], "}"}], ",", 7 T. k/ _0 ~ @8 K5 e2 S+ t' t
RowBox[{"{", 9 K6 ~. M9 ~/ z- S/ e) B
RowBox[{% x; G S% [3 ]& l+ @
"0.826087`", ",", "0.034376`", ",", "0.690349`", ",", "0.51238`", ",",
2 v3 C' _2 v" _% d: l, H "0.685315`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.556479`", ",", : Z/ Y' Y( G/ i( S
"0.412544`", ",", "0.732394`"}], "}"}], ",",
. v$ K. x! U' [& ` RowBox[{"{",
1 ?! [6 B) n6 R4 J- d0 P RowBox[{7 e5 ~2 T8 \0 R5 u3 r6 K/ C
"0.652174`", ",", "0.`", ",", "0.374417`", ",", "0.188075`", ",", 2 o# P8 U% }. U; x; ~3 C+ p6 R
"0.706294`", ",", "0.498116`", ",", "0.729268`", ",", "0.`", ",", , N; t6 B6 b6 O7 R! o& `! d
"0.454279`", ",", "0.322144`", ",", "0.802817`"}], "}"}], ",",
" g& l6 _5 I/ M) j" U+ F1 ` RowBox[{"{",
; A$ j _* r, i$ K: s RowBox[{
/ N5 g& w- d) E: O2 `, x "0.782609`", ",", "0.180363`", ",", "0.237142`", ",", "0.054809`", ",", - L2 z" L# Z! e& k) a
"0.629371`", ",", "0.373775`", ",", "0.247967`", ",", "0.`", ",", $ g' O" E8 _: u% V) Z3 p
"0.163814`", ",", "0.370436`", ",", "0.746479`"}], "}"}], ",",
: R$ S# D$ m! y; g0 {0 P/ r RowBox[{"{",
; x( _4 A; M) A7 b RowBox[{) I& w" S: x3 z2 S" p# e, T4 G0 a
"0.608696`", ",", "0.16915`", ",", "0.368148`", ",", "0.393768`", ",", ' s+ ~+ B! y, @' o
"0.440559`", ",", "0.995479`", ",", "0.545528`", ",", "0.`", ",", ' X1 y) i+ f2 X( C# x6 ]9 n- } N
"0.56577`", ",", "0.333039`", ",", "0.380282`"}], "}"}], ",",
1 V# x- q' d2 q9 w6 V$ ]% ?# c RowBox[{"{",
, |0 ]- ?& a3 g RowBox[{5 b0 m' y* o! _: o
"0.695652`", ",", "0.390454`", ",", "0.186683`", ",", "0.039439`", ",", , c1 l+ w+ K% N- Q4 \6 }& J% ~
"0.482517`", ",", "0.497362`", ",", "0.415447`", ",", "0.50856`", ",", % v1 P) q3 e) y; ^. @
"0.`", ",", "0.390754`", ",", "0.56338`"}], "}"}], ",", + N+ R7 x D& E
RowBox[{"{", * B* c8 v K6 Z; k6 _1 l5 q! ~
RowBox[{5 O' c* s) d1 n* t; D
"0.73913`", ",", "0.428888`", ",", "0.082728`", ",", "0.070154`", ",", $ E4 N, }. `9 z
"0.27972`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
b Z* b5 l2 _& {/ { "0.694935`", ",", "0.323944`"}], "}"}]}], "}"}]], "Output",( F' A8 Z" a& g! R
CellChangeTimes->{3.57795879182092*^9, 3.5779604974578943`*^9,
0 e! w1 n% E4 k, w 3.57801214396875*^9}]' h# ?: U. o$ A! g ]' l
}, Open ]],
( R" ~5 ~+ N& T, B" ^1 q/ _1 b6 X1 Y7 e
Cell[CellGroupData[{
9 U a. x4 `7 |5 Y9 D8 O2 W3 N( v# E7 u, {! ?* J* X
Cell[BoxData[
2 J" v: \& |) v$ J M+ m RowBox[{"Array", "[", 4 i: D' n1 b0 X" @& I
RowBox[{"CM", ",",
2 E$ g M4 ]. H! _( P RowBox[{"{",
5 v; l8 p) S! i RowBox[{"80", ",", "9"}], "}"}]}], "]"}]], "Input",
; _; d. o: P c# j0 j& i CellChangeTimes->{{3.577844235859375*^9, 3.577844291953125*^9}}],, k' v# o5 k! {. T* ]' I( Z( P
7 W8 `3 e8 y7 h9 b# wCell[BoxData[0 ~0 V/ a+ j$ _7 ~
RowBox[{"{", 6 A/ j5 M! O2 ]% ~5 Y. x; m0 P
RowBox[{
( ` k) M- [7 u5 G RowBox[{"{",
! D' [4 i1 Y6 b3 [ RowBox[{ F$ j# \8 H. v s0 M
RowBox[{"CM", "[",
% A! l4 y! l& m1 D RowBox[{"1", ",", "1"}], "]"}], ",", " Z) H/ {7 h) K$ E: a6 P2 _2 f% F
RowBox[{"CM", "[", 4 s1 r U# E1 b( _$ _% t
RowBox[{"1", ",", "2"}], "]"}], ",", # g2 f0 }7 z! `% |/ S
RowBox[{"CM", "[", * G- F% X( N- `0 a
RowBox[{"1", ",", "3"}], "]"}], ",",
?; H' R# D. L0 R) w6 \ RowBox[{"CM", "[", $ o) |. G$ _% b1 Z& M$ \7 |, |% {
RowBox[{"1", ",", "4"}], "]"}], ",",
9 E4 R$ K9 ?# ^) ^4 i RowBox[{"CM", "[", 0 V" C; E+ A' {5 J! h! b
RowBox[{"1", ",", "5"}], "]"}], ",",
k7 S9 e/ [. f RowBox[{"CM", "[",
0 s+ f" _2 _6 E8 Z/ E n, G RowBox[{"1", ",", "6"}], "]"}], ",",
, V8 M4 @; Z7 w- D2 w" U1 c' V- W RowBox[{"CM", "[",
" I3 U+ u1 \0 ` b2 q _ RowBox[{"1", ",", "7"}], "]"}], ",", 9 E# ?7 S. g+ `: x- A0 z
RowBox[{"CM", "[", 9 j/ K ^% |3 f0 [- |' g: ^
RowBox[{"1", ",", "8"}], "]"}], ",",
4 y8 L4 j4 V: u, e* p! d RowBox[{"CM", "[", 4 F; |8 {0 s' ]. E e$ `' e: d
RowBox[{"1", ",", "9"}], "]"}]}], "}"}], ",",
& A2 F2 V% C" X1 e$ T& u4 O2 W2 H RowBox[{"{", # D2 z* V& h) ~. l
RowBox[{, x( S0 h& p# ~5 t& @ `9 q
RowBox[{"CM", "[",
% C T% U6 v$ a8 n: E RowBox[{"2", ",", "1"}], "]"}], ",", i8 v4 m* ]$ p
RowBox[{"CM", "[", $ U% T+ X) @7 l; r3 P" f
RowBox[{"2", ",", "2"}], "]"}], ",",
/ q2 J( }' S! R- f7 Y; l1 l RowBox[{"CM", "[", 2 X8 [/ P w% t) P& }0 o# [! @
RowBox[{"2", ",", "3"}], "]"}], ",",
$ Q( d. @" Y1 W( |* Y0 G& U RowBox[{"CM", "[",
+ }; r6 n- K4 J- K& u1 ?8 f RowBox[{"2", ",", "4"}], "]"}], ",", ' r4 V0 [; {7 Y0 b
RowBox[{"CM", "[",
3 Z( O) w6 r" C7 ^& F RowBox[{"2", ",", "5"}], "]"}], ",", + K, Y1 [) D, c& B$ |
RowBox[{"CM", "[",
0 N H# y" K/ ?: t9 v% M RowBox[{"2", ",", "6"}], "]"}], ",",
8 V* {! o: G! J! W* @ RowBox[{"CM", "[",
( ?' l1 E0 i4 Y RowBox[{"2", ",", "7"}], "]"}], ",",
7 a1 A, h9 |* n/ p: I: n* f RowBox[{"CM", "[",
/ {2 Y8 M, `- }8 D2 c% V RowBox[{"2", ",", "8"}], "]"}], ",",
6 K5 E: ]0 O! g/ E0 K0 e RowBox[{"CM", "[", 8 E* X0 k& ~6 @2 o* \- s3 h
RowBox[{"2", ",", "9"}], "]"}]}], "}"}], ",", . P0 t* I5 ^& l4 @# ]
RowBox[{"{", $ _# D' G! ^$ i% U" D
RowBox[{
" n' G8 \5 \3 z$ D/ i5 Z- K RowBox[{"CM", "[", , y' u! b" P9 W- B
RowBox[{"3", ",", "1"}], "]"}], ",",
/ m0 G8 u y) v* n5 J RowBox[{"CM", "[",
6 v6 j7 Y# h1 f! T, D RowBox[{"3", ",", "2"}], "]"}], ",", ) j+ f; L" G" |7 r6 M' Z+ B
RowBox[{"CM", "[", 1 u: T: R( \" S. n. Y8 q
RowBox[{"3", ",", "3"}], "]"}], ",", 0 p1 D2 s0 w) D$ ~
RowBox[{"CM", "[",
' ?4 Y5 F0 O5 W& ^# Y RowBox[{"3", ",", "4"}], "]"}], ",",
9 @, p: v+ s2 [- A* | RowBox[{"CM", "[",
+ F M5 U1 y1 ?& d RowBox[{"3", ",", "5"}], "]"}], ",",
$ H5 S, o4 A- D* Y8 {, L' f RowBox[{"CM", "[",
[& {5 {5 |! S RowBox[{"3", ",", "6"}], "]"}], ",",
/ T7 C; q- j8 O- Y y# c: d% Z+ X RowBox[{"CM", "[",
$ h4 m" T- X; v: ?0 w RowBox[{"3", ",", "7"}], "]"}], ",", ' A9 K# N: Z1 a8 K6 P. m" S
RowBox[{"CM", "[",
4 Z5 Z: q: I2 Z5 N5 x/ \ RowBox[{"3", ",", "8"}], "]"}], ",",
: i! X; c1 {. |1 f) n RowBox[{"CM", "[",
: j* N- H3 I9 Y- {9 w* f8 z! C/ `) J RowBox[{"3", ",", "9"}], "]"}]}], "}"}], ",",
* H+ H" g) _" \2 K9 \$ [0 j RowBox[{"{", 5 h& T6 {8 h, O1 R9 A4 s
RowBox[{5 y$ M9 L7 e j& ~- Q
RowBox[{"CM", "[", + K2 |& i l* h; `
RowBox[{"4", ",", "1"}], "]"}], ",",
5 Z/ d1 m6 r* U. ~* x2 y RowBox[{"CM", "[", ; _& g" V- A9 p& H* t' @$ t; V
RowBox[{"4", ",", "2"}], "]"}], ",",
4 _ d6 Y& C. q% _0 U5 J) |4 ^ RowBox[{"CM", "[",
+ U( I/ P; n" W+ C2 V! H2 \# T& H RowBox[{"4", ",", "3"}], "]"}], ",",
) s- q' `) W2 ~* S. v) k9 f# Z RowBox[{"CM", "[", 3 Q3 O: G( j) u- F
RowBox[{"4", ",", "4"}], "]"}], ",",
0 t: L$ G/ x/ t( u RowBox[{"CM", "[",
8 W n- I" k5 O. e; y RowBox[{"4", ",", "5"}], "]"}], ",",
7 a0 m/ c. n* s+ Z) ? RowBox[{"CM", "[", 9 k K7 c3 B5 n- C8 \& L
RowBox[{"4", ",", "6"}], "]"}], ",",
; [' a0 J$ s' L RowBox[{"CM", "[", 9 q* |; w+ `; m: e0 ~
RowBox[{"4", ",", "7"}], "]"}], ",",
B8 y0 X8 D$ [; _' d m RowBox[{"CM", "[", 7 ~6 @/ r0 _$ | R' q) o
RowBox[{"4", ",", "8"}], "]"}], ",", F k# ?% g: Z' k
RowBox[{"CM", "[",
: O! c6 O6 ?0 o7 J RowBox[{"4", ",", "9"}], "]"}]}], "}"}], ",",
2 r" @+ h% m' e6 ~) p RowBox[{"{", ; x% }( s+ i" \! e
RowBox[{
3 f' F4 z; q2 w1 E8 c! N RowBox[{"CM", "[", C# |1 z3 e6 j6 V! f/ L
RowBox[{"5", ",", "1"}], "]"}], ",",
9 ?9 a- s% q& E- d) D- { RowBox[{"CM", "[",
. c- C( k8 ]. G- F2 A* M RowBox[{"5", ",", "2"}], "]"}], ",", # Y- H* P6 k1 q+ s
RowBox[{"CM", "[", 8 K& l2 y8 a, `$ `$ R" n; f5 c% M
RowBox[{"5", ",", "3"}], "]"}], ",",
2 E( E& [ \' t' r W! ~- F! K6 S RowBox[{"CM", "[", ) i3 z1 V+ K" ^6 Y" w- ?, g; Y
RowBox[{"5", ",", "4"}], "]"}], ",",
* d* W+ q7 g5 o% E$ W- e RowBox[{"CM", "[",
- j) \- n. l% y" y+ J RowBox[{"5", ",", "5"}], "]"}], ",",
! T+ V$ k1 P- m7 F9 E5 ] RowBox[{"CM", "[", ! q# a( M( U# r- W& R
RowBox[{"5", ",", "6"}], "]"}], ",", & C) ]$ j2 H+ i1 T' N ?
RowBox[{"CM", "[",
! v- O5 h! k/ L$ m( U# ^ RowBox[{"5", ",", "7"}], "]"}], ",",
* x% m% G' A# Y" X7 M# f2 A RowBox[{"CM", "[",
|8 r( ^' g2 ` p RowBox[{"5", ",", "8"}], "]"}], ",", 2 m! X# {. }9 y% `' ?, y/ r3 A
RowBox[{"CM", "[", , W% B# A( S8 x% U+ L
RowBox[{"5", ",", "9"}], "]"}]}], "}"}], ",", K) h2 d! a$ A- {/ j) |
RowBox[{"{",
" e( I% V5 L& v' A$ J* U RowBox[{
. o8 k/ u- g3 M0 q RowBox[{"CM", "[",
7 D+ m3 p9 h# a% d5 u; X RowBox[{"6", ",", "1"}], "]"}], ",",
% H4 H7 M# T' j RowBox[{"CM", "[",
l" V w- e( d, g& a* v RowBox[{"6", ",", "2"}], "]"}], ",", - r. M* }: H$ B G
RowBox[{"CM", "[", 4 {- J8 G# _5 x9 i4 K! s
RowBox[{"6", ",", "3"}], "]"}], ",",
: L; B; H9 M( Q& d' s E RowBox[{"CM", "[", 0 \! s& x0 ?" _* M q( u0 Z
RowBox[{"6", ",", "4"}], "]"}], ",", 9 t0 o5 Q( i" B T3 w8 O
RowBox[{"CM", "[", 2 D* ]* |8 I' ?; L+ D# Y
RowBox[{"6", ",", "5"}], "]"}], ",", ; B( E3 ^# |3 Q; {. {
RowBox[{"CM", "[", $ T! P9 B# w+ V$ ^" Q( a2 I3 O6 I+ ?
RowBox[{"6", ",", "6"}], "]"}], ",",
% u4 o! y- A" b. L RowBox[{"CM", "[", / q, N* x5 Q5 v% p% U3 e
RowBox[{"6", ",", "7"}], "]"}], ",", 8 H" N5 S9 |: u1 c7 ]( D% ~% X7 f
RowBox[{"CM", "[", - o7 d# A/ _ v- Y0 w3 {
RowBox[{"6", ",", "8"}], "]"}], ",", - Z) [3 h0 m7 q* S
RowBox[{"CM", "[", 8 c. U" |8 C' [% ^
RowBox[{"6", ",", "9"}], "]"}]}], "}"}], ",", 6 }* S: o% j8 @$ m* @7 ~
RowBox[{"{", 9 t/ s9 B! a/ A: ]
RowBox[{
+ _- k. g% Z& u9 i1 V6 X7 n RowBox[{"CM", "[", 2 ]: f8 S# \( s$ o4 f; \! Z/ c
RowBox[{"7", ",", "1"}], "]"}], ",", ' a$ p4 n+ @6 @
RowBox[{"CM", "[",
1 w. v0 y# B1 }+ C3 y( a* Q2 }& o RowBox[{"7", ",", "2"}], "]"}], ",",
; C8 y/ ^4 e O% j; \ RowBox[{"CM", "[",
. P g, N# g7 ~+ o2 v O RowBox[{"7", ",", "3"}], "]"}], ",", 4 F2 b# R$ X/ s; g- R+ `6 S- C
RowBox[{"CM", "[",
+ K1 d9 X# ^3 ~* q6 I+ _9 D RowBox[{"7", ",", "4"}], "]"}], ",", . U+ G. J* \" J8 z
RowBox[{"CM", "[",
k# P L' L% q# O! N6 E+ n' a$ H2 _. I RowBox[{"7", ",", "5"}], "]"}], ",", , f( {' w A N, D+ O3 q% u, r
RowBox[{"CM", "[", : ?+ q: ]( _0 t) e! s+ g2 }0 L
RowBox[{"7", ",", "6"}], "]"}], ",", ) @2 A( {7 W; w/ T( e
RowBox[{"CM", "[",
! F/ g8 P- i2 r. O3 n ?& P RowBox[{"7", ",", "7"}], "]"}], ",", 7 n3 A" x6 U% p7 x
RowBox[{"CM", "[",
; t3 h2 k5 ]$ k/ l! d: ^5 w RowBox[{"7", ",", "8"}], "]"}], ",", : [4 S/ `0 j" q. K$ M! t6 c
RowBox[{"CM", "[",
# A) n8 b+ ^5 i% D RowBox[{"7", ",", "9"}], "]"}]}], "}"}], ",", " Y. Y# i' z7 E& E! }
RowBox[{"{",
+ k8 _4 ^1 k$ }9 M: J6 ^( E0 o RowBox[{
9 f5 M+ V; Q$ j" O8 D RowBox[{"CM", "[", * `+ N9 M8 h4 A
RowBox[{"8", ",", "1"}], "]"}], ",", G6 O1 j3 m* y" g
RowBox[{"CM", "[", ( g9 Z( I0 c6 s6 a
RowBox[{"8", ",", "2"}], "]"}], ",", & q6 r* w, d5 ~7 U! f, f6 C
RowBox[{"CM", "[", 4 }" @) W9 L" f) U' C4 Q
RowBox[{"8", ",", "3"}], "]"}], ",", ! A [. Q+ R! j7 E. v f. o
RowBox[{"CM", "[", # R0 I) P. a4 p V& F- D5 e. n& e! y
RowBox[{"8", ",", "4"}], "]"}], ",", & Z; l) F% K( d
RowBox[{"CM", "[",
* B: y: m: W# M/ C4 i- e( V RowBox[{"8", ",", "5"}], "]"}], ",",
5 Q7 H& a/ I) i RowBox[{"CM", "[", ) |$ @4 |4 Q4 a
RowBox[{"8", ",", "6"}], "]"}], ",", c. w8 R* O2 B7 b2 k
RowBox[{"CM", "[", # f) A. v8 J* h: M- d0 T& j, E
RowBox[{"8", ",", "7"}], "]"}], ",", 6 N. F, q; G( z7 @: w6 w: T1 U
RowBox[{"CM", "[", - o+ U0 Z/ s/ ^* g3 A
RowBox[{"8", ",", "8"}], "]"}], ",",
/ C! x" ?% b8 p RowBox[{"CM", "[",
7 i( a1 R1 d9 X) h RowBox[{"8", ",", "9"}], "]"}]}], "}"}], ",", + N* y6 G4 q6 T+ C3 y" B
RowBox[{"{", 5 h7 d. y* a: P7 G" A9 s& `
RowBox[{8 L- C2 T/ T8 d) q4 X, M2 _$ B8 @( {
RowBox[{"CM", "[", 9 e3 R- p+ e" k$ e; L# ~5 E- a' j6 f
RowBox[{"9", ",", "1"}], "]"}], ",", , N. q! @+ ^2 {8 Q& O( @/ |: R
RowBox[{"CM", "[", # H- M3 `( J1 A. v0 P2 ]- k1 I& C1 G
RowBox[{"9", ",", "2"}], "]"}], ",",
; `# b% @! E4 g4 V RowBox[{"CM", "[", ) U: R1 k' C- K u4 t2 F0 ?& y7 Z
RowBox[{"9", ",", "3"}], "]"}], ",",
7 Y. d5 D) n% }& Z5 U- t5 j RowBox[{"CM", "[", 5 J( p0 M: m0 W* ]( s9 a. F
RowBox[{"9", ",", "4"}], "]"}], ",",
9 {) }8 g& a" z; E4 d& q RowBox[{"CM", "[", % L0 t9 j) u0 ~6 J- B
RowBox[{"9", ",", "5"}], "]"}], ",",
" v6 g9 P4 b/ ~) w* d* b RowBox[{"CM", "[",
; y% w. H2 Y3 J/ D! T RowBox[{"9", ",", "6"}], "]"}], ",",
% Y( q) p( F% H1 ]4 J9 e RowBox[{"CM", "[",
. |2 x& y X% b( @, l& ?4 W RowBox[{"9", ",", "7"}], "]"}], ",",
m% B& l U- h RowBox[{"CM", "[",
2 |& Y' b. [# b6 D: Z+ U9 f& \! P RowBox[{"9", ",", "8"}], "]"}], ",",
; J, ?- I' }; X RowBox[{"CM", "[", : M+ ^5 _9 P3 e9 x9 }
RowBox[{"9", ",", "9"}], "]"}]}], "}"}], ",",
4 Y1 u$ j7 z0 T RowBox[{"{", 0 q5 S7 R: ^9 D! e5 v
RowBox[{( p: E3 R3 X$ _1 V# U$ T+ T
RowBox[{"CM", "[",
& b7 E( W$ G# P( s5 q, Y RowBox[{"10", ",", "1"}], "]"}], ",", / p; P9 ~$ W# v! W( p: U5 b1 m7 v
RowBox[{"CM", "[",
8 L3 Y9 X! p5 R( q- t RowBox[{"10", ",", "2"}], "]"}], ",",
- t! m Y2 r4 Q, ]8 `/ I- H RowBox[{"CM", "[",
9 X2 G) q' r/ o7 I% Z RowBox[{"10", ",", "3"}], "]"}], ",", , q9 k# C/ R# S* q5 M- {# s" l' U8 u
RowBox[{"CM", "[",
% D/ L; B- E( K( H" y q: ? RowBox[{"10", ",", "4"}], "]"}], ",", / U: H# H% ~( e
RowBox[{"CM", "[", + M F8 e1 k1 |. O) F+ |
RowBox[{"10", ",", "5"}], "]"}], ",",
* c; j5 K$ u% Z" W2 q9 _ RowBox[{"CM", "[",
) w* X6 x2 q' q5 c2 W/ Y RowBox[{"10", ",", "6"}], "]"}], ",",
3 ~; N, @9 W `0 l$ I RowBox[{"CM", "[", * X$ y- ]3 b3 t0 ~
RowBox[{"10", ",", "7"}], "]"}], ",", 2 s* c1 \2 O& a& ~$ l0 k
RowBox[{"CM", "[",
w& L3 L6 c* y! {' k9 ]. J RowBox[{"10", ",", "8"}], "]"}], ",", ' d W# X0 \, @7 R$ y: o
RowBox[{"CM", "[",
+ z5 {- D) n; L/ _ y8 U, B RowBox[{"10", ",", "9"}], "]"}]}], "}"}], ",", " f m$ r/ ]" J! {+ w- ?& M: E
RowBox[{"{", 4 p" c5 x( x' S5 O" U& Z# n- d
RowBox[{' c, }1 A' \% c. d B
RowBox[{"CM", "[",
( H8 G1 h6 J. Q* l. W4 { RowBox[{"11", ",", "1"}], "]"}], ",",
# X1 \" m ?! O0 ? RowBox[{"CM", "[", . ]8 {& k3 M7 n0 I* f2 C
RowBox[{"11", ",", "2"}], "]"}], ",",
& K l) z5 ^# @7 w RowBox[{"CM", "[",
: M! K+ @) y; b! Z% P5 n RowBox[{"11", ",", "3"}], "]"}], ",", 3 X5 x- s9 ~3 N4 N8 n
RowBox[{"CM", "[",
& y |/ m0 X9 ^5 N RowBox[{"11", ",", "4"}], "]"}], ",", " O2 D1 @4 u: l; o3 c4 a2 A
RowBox[{"CM", "[",
+ a* u6 Y0 y. |) p1 y! P1 u% ^ RowBox[{"11", ",", "5"}], "]"}], ",",
4 j7 s% g: Z. O1 t8 ~ RowBox[{"CM", "[",
: s+ G8 G; K ~. Z7 K* u RowBox[{"11", ",", "6"}], "]"}], ",", 2 A1 ^7 P( _0 p% Q) @
RowBox[{"CM", "[", 1 B! k" h1 j$ E; L7 S; l; v
RowBox[{"11", ",", "7"}], "]"}], ",", $ X) z8 q) h& N V! N5 v! y
RowBox[{"CM", "[", * R8 ^' Y9 u( J) Y* W: n: P4 \, A" z1 T
RowBox[{"11", ",", "8"}], "]"}], ",",
* ]3 N8 d, a3 d# Y* \4 e$ S RowBox[{"CM", "[", 6 h+ S5 i# z* Q8 T
RowBox[{"11", ",", "9"}], "]"}]}], "}"}], ",",
" x" t b' ]- }' |; R x RowBox[{"{", D' q7 D6 t- U& q9 Q% d# v. o
RowBox[{
& y J' b Q2 Y; I$ v RowBox[{"CM", "[",
: m& n$ |' e0 v' s- Q6 X$ F k RowBox[{"12", ",", "1"}], "]"}], ",", : w( R: S# q$ W3 n- ?) x
RowBox[{"CM", "[", 7 K6 ?( H9 V4 `* O
RowBox[{"12", ",", "2"}], "]"}], ",", % y/ T8 s. E- Q3 Q" a
RowBox[{"CM", "[",
, Y4 I2 \9 K- G RowBox[{"12", ",", "3"}], "]"}], ",",
; b5 K2 ]$ Z1 g0 ?5 t' p, W6 p7 C RowBox[{"CM", "[", 9 [0 {1 `) g" l1 P- e5 `
RowBox[{"12", ",", "4"}], "]"}], ",", ]* K- r$ C, ~7 o
RowBox[{"CM", "[", & ~4 f8 C) S& `9 ^
RowBox[{"12", ",", "5"}], "]"}], ",", * S8 `/ }( a* H! w9 C
RowBox[{"CM", "[", 0 G6 x: }, O! g/ A( @
RowBox[{"12", ",", "6"}], "]"}], ",", % a) v* }, Z& h+ o$ E
RowBox[{"CM", "[",
9 v9 g2 `6 \' z4 N RowBox[{"12", ",", "7"}], "]"}], ",",
# D& n5 l$ e j& m1 k: l* ^( p RowBox[{"CM", "[",
! R+ m4 L* d+ c, [# V# h- R' W RowBox[{"12", ",", "8"}], "]"}], ",",
- w# ]0 E; P9 T7 T5 V RowBox[{"CM", "[",
3 T; z( R) e9 c+ s RowBox[{"12", ",", "9"}], "]"}]}], "}"}], ",",
) }( f3 X- }6 p RowBox[{"{", - k' Y& G) w4 M+ N2 I
RowBox[{
7 [( g: v' i- E" o1 \% N; R3 \ y- H RowBox[{"CM", "[", , l( i4 C" h9 ^- ]
RowBox[{"13", ",", "1"}], "]"}], ",", / z) S# w1 V0 \+ } h* N
RowBox[{"CM", "[",
; \. j# o% R/ G8 _9 o8 K; \/ V RowBox[{"13", ",", "2"}], "]"}], ",", w! f* S, y. Q7 E/ u& n1 f5 ^
RowBox[{"CM", "[", / k1 E/ w, J6 N
RowBox[{"13", ",", "3"}], "]"}], ",", ' j5 i5 F3 U: ], t& `# N
RowBox[{"CM", "[", 5 N' g" o, ^$ _( A6 X. e V4 R
RowBox[{"13", ",", "4"}], "]"}], ",", 7 b0 @; P) U4 s% H
RowBox[{"CM", "[", % a5 |: v7 V! T0 p8 k( d" Y
RowBox[{"13", ",", "5"}], "]"}], ",", * F- |% Y2 N8 c' V6 s; [
RowBox[{"CM", "[",
) y) v1 h- `4 i* f& ^% {' i RowBox[{"13", ",", "6"}], "]"}], ",", / f3 s2 M7 b$ [' `* \
RowBox[{"CM", "[",
z$ Z( Z% }/ J7 a RowBox[{"13", ",", "7"}], "]"}], ",",
4 K9 |: L) ^+ T- x# ~( T5 {- A* c3 e% [ RowBox[{"CM", "[", & D" B( u- S0 G2 ?2 x1 n" a
RowBox[{"13", ",", "8"}], "]"}], ",", " j) c5 Q) S# @3 t) N
RowBox[{"CM", "[", 3 q; y. \# k2 y9 X. F
RowBox[{"13", ",", "9"}], "]"}]}], "}"}], ",",
6 P, L& l8 v; T RowBox[{"{", $ ~* @) w7 @: d
RowBox[{
) [& c2 N8 e. E$ z" o9 ] RowBox[{"CM", "[",
! O/ U. W3 ^! s# N6 |# z RowBox[{"14", ",", "1"}], "]"}], ",",
2 c! R5 d6 ^4 w- q! D# L RowBox[{"CM", "[",
$ v$ P% s! w8 i. P. _ b& p2 T RowBox[{"14", ",", "2"}], "]"}], ",",
& J6 \2 J# R( M/ x X RowBox[{"CM", "[", ! e; [+ ^' H9 ~: \
RowBox[{"14", ",", "3"}], "]"}], ",",
) z! h& x, f/ g! z RowBox[{"CM", "[",
3 U) D3 I- F+ {% V) R RowBox[{"14", ",", "4"}], "]"}], ",",
2 p' Q9 ]6 p( `$ u0 x0 C RowBox[{"CM", "[",
6 |; S/ G- K$ x% h& \$ \ RowBox[{"14", ",", "5"}], "]"}], ",", 3 f# @+ i' {6 x1 N- L7 z9 }
RowBox[{"CM", "[",
2 }+ `% ?8 d3 x( i9 y! P RowBox[{"14", ",", "6"}], "]"}], ",",
2 x0 X0 t( h0 j, O: U6 C RowBox[{"CM", "[", 7 h' Y# A; I9 I+ B. ]; c% I* \
RowBox[{"14", ",", "7"}], "]"}], ",", 5 |; z* s- L* T1 x# T" Y
RowBox[{"CM", "[",
$ E4 O/ B. j( C) o) N& Q ` RowBox[{"14", ",", "8"}], "]"}], ",",
7 V1 A1 |9 a5 m% w3 U9 ~7 T RowBox[{"CM", "[",
8 i% k2 @+ l7 H$ b' ]; O0 \' M RowBox[{"14", ",", "9"}], "]"}]}], "}"}], ",", 8 G/ x/ j" F5 A# O
RowBox[{"{",
7 O: O1 W9 Q3 o4 j" v RowBox[{
" u* n; V$ H% b RowBox[{"CM", "[", / t) D. N8 N E# Z
RowBox[{"15", ",", "1"}], "]"}], ",", ) O1 s: R, a' p W: |: o! x
RowBox[{"CM", "[", " R" k( V% N8 N7 p
RowBox[{"15", ",", "2"}], "]"}], ",",
7 w: V. S3 @& g; {; K4 _) X! q% y RowBox[{"CM", "[",
1 t- g2 [: Z* r1 g- v& o, O2 W( w RowBox[{"15", ",", "3"}], "]"}], ",",
4 ~ M8 c" C6 k( _$ c RowBox[{"CM", "[",
. o/ V, [9 N, W$ Y RowBox[{"15", ",", "4"}], "]"}], ",", % I. j2 s) F- n; x
RowBox[{"CM", "[", 9 I& _' D& `6 W
RowBox[{"15", ",", "5"}], "]"}], ",", 4 K7 u% j) n4 c4 _9 k5 X
RowBox[{"CM", "[",
7 Q/ Q+ w% M3 d RowBox[{"15", ",", "6"}], "]"}], ",",
1 X# d- w$ U( I m, Q4 O, H RowBox[{"CM", "[", 7 L8 K- ?3 k p' f
RowBox[{"15", ",", "7"}], "]"}], ",", : C) _% |: d2 U; o* g
RowBox[{"CM", "[", H4 R2 y$ V B, B. `
RowBox[{"15", ",", "8"}], "]"}], ",",
: s+ U8 F8 F$ a/ `0 |. B RowBox[{"CM", "[", b9 j X$ N% [! V. A$ V4 [
RowBox[{"15", ",", "9"}], "]"}]}], "}"}], ",", 1 V3 S( o, Z+ N6 Q( J5 D
RowBox[{"{",
4 Y& O( Y! x" a( R" o+ |! y' x2 I RowBox[{
% H7 |4 [4 | |$ `5 R$ f0 g RowBox[{"CM", "[", ; k T! q# _8 e
RowBox[{"16", ",", "1"}], "]"}], ",",
; b5 j( L7 _( k/ P! F! k8 N! X* e RowBox[{"CM", "[",
- h0 ]6 @6 U5 p RowBox[{"16", ",", "2"}], "]"}], ",",
* R1 S R- ~; J5 o! |' D" s. e) u' S RowBox[{"CM", "[", / Q% D6 X# s: @3 j: G2 @
RowBox[{"16", ",", "3"}], "]"}], ",",
u0 T. m/ s4 D8 f% e( ^8 j RowBox[{"CM", "[", , c) ~8 f0 V0 z9 D" w0 V" A; N
RowBox[{"16", ",", "4"}], "]"}], ",",
6 p% D* c2 g p RowBox[{"CM", "[", ( Q# D# f1 Y& z5 |* O6 U
RowBox[{"16", ",", "5"}], "]"}], ",",
- ~4 y: a4 _- M" W' ~( S RowBox[{"CM", "[", " s3 v# D% _9 v9 J: ^) d" u+ n
RowBox[{"16", ",", "6"}], "]"}], ",",
/ W6 U, w4 W* ]7 K# K RowBox[{"CM", "[",
) L& X3 ]6 B& v5 I' S6 ], Z RowBox[{"16", ",", "7"}], "]"}], ",",
( `) D2 T4 }: z g RowBox[{"CM", "[",
- m& S O Q9 \) _- s, [+ V RowBox[{"16", ",", "8"}], "]"}], ",", $ V9 V$ W/ s' |5 q; v/ N
RowBox[{"CM", "[",
" ?+ t3 ?, }1 t, n e+ s% r4 @2 B, J RowBox[{"16", ",", "9"}], "]"}]}], "}"}], ",", - Y4 \# g" E- A/ n2 Y5 @
RowBox[{"{", & x4 h, Y |# J! q
RowBox[{) Z# \3 W" y2 R* \# ?" L/ R
RowBox[{"CM", "[",
* z' E+ k0 L; x7 O1 q RowBox[{"17", ",", "1"}], "]"}], ",",
4 h0 ^9 ^: ^9 k RowBox[{"CM", "[",
/ I3 I. ~+ P3 S3 H7 q N( ] RowBox[{"17", ",", "2"}], "]"}], ",",
5 p5 c5 Q' v: G( L RowBox[{"CM", "[", & I' V- K# p2 V; t+ r1 g: y
RowBox[{"17", ",", "3"}], "]"}], ",",
: E& \0 ?9 Z( R5 L8 o RowBox[{"CM", "[", & T$ v. I7 E0 {6 o8 L; o
RowBox[{"17", ",", "4"}], "]"}], ",", 2 g o6 Q& v& T; c" J* c& r! D0 w/ d
RowBox[{"CM", "[", & ` a+ C" e# h$ Q2 \
RowBox[{"17", ",", "5"}], "]"}], ",",
& J( R% r4 J9 z$ O6 C. L RowBox[{"CM", "[",
( l1 q, ?( j: Z! X& U5 G, | RowBox[{"17", ",", "6"}], "]"}], ",",
& k! B& X- ^: G, c+ q2 \. A RowBox[{"CM", "[",
- Y. g, h/ m, `+ m RowBox[{"17", ",", "7"}], "]"}], ",",
( ?$ R0 T: N( w2 X" c RowBox[{"CM", "[",
6 H! q# f' e: ~4 k0 k- h, d RowBox[{"17", ",", "8"}], "]"}], ",",
% H; ?4 v* o& u' o4 s# W RowBox[{"CM", "[",
3 a! s" i6 O- F4 N, C( _ RowBox[{"17", ",", "9"}], "]"}]}], "}"}], ",",
" d3 n7 d X' ~1 T0 |- E RowBox[{"{",
5 j8 o' W/ ]# \$ a( r7 V) F& f RowBox[{
- S, z: U9 E7 @ a. @7 H$ [6 h RowBox[{"CM", "[", 7 c- {0 ~7 Z- s/ R
RowBox[{"18", ",", "1"}], "]"}], ",",
* D0 m+ x0 l6 ? t* K: q! T RowBox[{"CM", "[",
$ e1 d3 N( c* t RowBox[{"18", ",", "2"}], "]"}], ",",
; Z1 V( }7 H% a- T1 Q' z5 q RowBox[{"CM", "[",
' b" |2 P: U, `* L, x; f RowBox[{"18", ",", "3"}], "]"}], ",", 5 `" q) b. M* z( t$ G% S! C
RowBox[{"CM", "[",
9 w+ p, o1 I$ A8 E$ s- v RowBox[{"18", ",", "4"}], "]"}], ",", : d' m- L6 T* {& V8 Q$ w1 Y6 E0 E
RowBox[{"CM", "[",
7 d: A5 l* u) S" ?+ c+ ?0 b+ G9 r RowBox[{"18", ",", "5"}], "]"}], ",", * w R7 y' Q" x- B9 j
RowBox[{"CM", "[",
; i% f- W$ d. ?/ t, e9 P& h RowBox[{"18", ",", "6"}], "]"}], ",",
. B+ i; |% i, K8 n! `9 E/ j RowBox[{"CM", "[", 9 x$ Y. e8 t' @* R7 c% z
RowBox[{"18", ",", "7"}], "]"}], ",",
8 U$ |) P8 u5 x+ r( `! f; }3 j RowBox[{"CM", "[", , X3 A# x4 ?7 h% X7 r: J8 U8 U
RowBox[{"18", ",", "8"}], "]"}], ",", 4 E! L \; Z( O* [
RowBox[{"CM", "[",
- k( D8 q9 M( r% @9 U! a; j RowBox[{"18", ",", "9"}], "]"}]}], "}"}], ",", . C2 `+ D. V/ }8 l9 H9 S* }
RowBox[{"{", : w s2 K& i2 O
RowBox[{
M; l% y$ N2 P Q RowBox[{"CM", "[",
$ { v$ h! H% I$ d" z RowBox[{"19", ",", "1"}], "]"}], ",",
, K4 z0 h+ ~; }* u3 y RowBox[{"CM", "[", 7 o U3 O7 q. ~! {5 N
RowBox[{"19", ",", "2"}], "]"}], ",",
9 i# E: R9 y- V; \6 w3 P7 X9 K) k# n RowBox[{"CM", "[",
, D$ k4 {! S$ I# o$ [+ {; P RowBox[{"19", ",", "3"}], "]"}], ",", - i) Q6 m' u; O5 f% `
RowBox[{"CM", "[",
S( U, B, ^7 F0 j RowBox[{"19", ",", "4"}], "]"}], ",", % A6 f. X& W5 Z! I, s
RowBox[{"CM", "[", 9 n: G [5 X' K7 `3 v2 f6 c7 C& g
RowBox[{"19", ",", "5"}], "]"}], ",",
/ R0 T# V9 M( x) b% |( x( { RowBox[{"CM", "[",
% l9 V! S# Q6 i) r# U" M( I% V RowBox[{"19", ",", "6"}], "]"}], ",",
$ f3 s; `9 \1 A RowBox[{"CM", "[", + Z0 A) X# C/ h/ K; E+ Y
RowBox[{"19", ",", "7"}], "]"}], ",",
6 Y( V& k6 D& b9 |! c! u RowBox[{"CM", "[", 9 ]- l6 P5 b( m4 e6 f; t% |1 v; h7 I
RowBox[{"19", ",", "8"}], "]"}], ",", 5 b" ` F* g0 [2 U) W9 n
RowBox[{"CM", "[", ! l; P" R7 P# Z
RowBox[{"19", ",", "9"}], "]"}]}], "}"}], ",",
0 ^+ S9 `" A8 n3 }8 A RowBox[{"{", 3 _4 ^1 ]) o, ` c
RowBox[{6 S- X6 i8 J/ ~( D9 \4 {
RowBox[{"CM", "[", 2 ^* Q2 ^: J: ~ g7 D# u
RowBox[{"20", ",", "1"}], "]"}], ",",
6 n/ c/ E& E/ o- l4 l7 C3 a RowBox[{"CM", "[",
6 x- k3 [: {' U+ M: R {; X RowBox[{"20", ",", "2"}], "]"}], ",", + `. \7 n+ ?( k r$ e/ m
RowBox[{"CM", "[",
9 k7 f" c1 P6 P8 K, A1 n7 P RowBox[{"20", ",", "3"}], "]"}], ",", 7 Q- R# A m: w3 P9 n8 r
RowBox[{"CM", "[",
/ A5 s5 ~1 ^2 |. L RowBox[{"20", ",", "4"}], "]"}], ",", 9 o1 V; F5 A$ ^$ ]4 P, l/ j
RowBox[{"CM", "[", ! ?) B# ]5 v+ [" u. ^' G
RowBox[{"20", ",", "5"}], "]"}], ",", 5 g2 X0 D3 ]( w: u. j
RowBox[{"CM", "[", 4 J3 g- d/ l8 K8 t$ u1 o
RowBox[{"20", ",", "6"}], "]"}], ",",
0 e- w, L1 N9 k1 K) i RowBox[{"CM", "[", & z) a* Q+ ^; H
RowBox[{"20", ",", "7"}], "]"}], ",",
! @1 l! P @+ }1 T3 @. x- | RowBox[{"CM", "[", 7 W1 g. y, L S8 S
RowBox[{"20", ",", "8"}], "]"}], ",",
, Z0 o: l, K2 m6 d2 b3 V3 J2 N! F RowBox[{"CM", "[",
' Q/ `7 e, q$ v RowBox[{"20", ",", "9"}], "]"}]}], "}"}], ",",
$ z4 n" S' w. U) Z+ F8 q3 s# A" A RowBox[{"{",
, Z4 Y: U, A* q& l2 r RowBox[{8 Q M$ n. E. u
RowBox[{"CM", "[", ! R% u" Y2 F5 N- M% G" C, d
RowBox[{"21", ",", "1"}], "]"}], ",", ; J* l0 ~* p' _7 G5 x/ G" H% S
RowBox[{"CM", "[",
W7 L; G; G( `1 [ RowBox[{"21", ",", "2"}], "]"}], ",",
! ?$ k9 z7 q/ P RowBox[{"CM", "[", & c* d, y+ q7 a* A2 `, s! o- _
RowBox[{"21", ",", "3"}], "]"}], ",",
% D7 L$ k- D- H- }+ r RowBox[{"CM", "[", : M7 Y$ e/ J3 D7 f0 n {+ F: v, B9 t0 D
RowBox[{"21", ",", "4"}], "]"}], ",",
- T* C9 ?6 J( ~( l! U7 s) ~: ] RowBox[{"CM", "[",
; C- T8 J7 }. u. U9 i; G RowBox[{"21", ",", "5"}], "]"}], ",", " o7 D3 d/ u: H
RowBox[{"CM", "[",
7 \& v* s- y6 w- g' b RowBox[{"21", ",", "6"}], "]"}], ",",
$ g' y' R1 \* S! r8 ]7 n8 V RowBox[{"CM", "[", 9 G9 ]! r* m1 k
RowBox[{"21", ",", "7"}], "]"}], ",", / X, ^' N; {6 Q: O4 B; z- M
RowBox[{"CM", "[",
0 c- H; b- P4 K5 H7 A. K- l* N RowBox[{"21", ",", "8"}], "]"}], ",",
3 _' u) C/ x1 d5 ^& T8 x/ y) q RowBox[{"CM", "[",
! t, ^$ D- N- U' p. M+ V RowBox[{"21", ",", "9"}], "]"}]}], "}"}], ",",
( L N" h- h6 m0 F RowBox[{"{",
" `9 z) t t- P3 ^9 X+ [ RowBox[{
1 v& _- ~8 \) `# m! T. Z) s RowBox[{"CM", "[", 6 C2 h$ |1 U2 L2 Q: x4 ~
RowBox[{"22", ",", "1"}], "]"}], ",", + n4 V5 a M6 @; l$ g2 C( C
RowBox[{"CM", "[", ! o! L6 V9 M/ _
RowBox[{"22", ",", "2"}], "]"}], ",", ) e( a9 u& ] I$ v3 R- e
RowBox[{"CM", "[", ; X5 \- h N1 R4 K& q8 c# I. U& U
RowBox[{"22", ",", "3"}], "]"}], ",", % h8 y+ P: b, y# f! k: g* v4 b( E$ o( S
RowBox[{"CM", "[",
& k8 K) D1 D/ G" I0 e) c RowBox[{"22", ",", "4"}], "]"}], ",", * P# Y& u- U1 X( o8 {& R( O+ E
RowBox[{"CM", "[",
7 q6 y( h$ W O# ~" l/ J1 Z: ^ RowBox[{"22", ",", "5"}], "]"}], ",",
& K% q& R7 Z2 K- @5 q2 T2 y RowBox[{"CM", "[", $ O: Y- @+ k- a, W1 \
RowBox[{"22", ",", "6"}], "]"}], ",", ' Z* u9 d2 h/ k# q
RowBox[{"CM", "[",
& ], [3 e6 ]1 \5 T5 }4 q RowBox[{"22", ",", "7"}], "]"}], ",",
: V P8 c, Q2 E! ^' y4 C4 D0 e RowBox[{"CM", "[", # z% S1 W) p& y; m; X( C
RowBox[{"22", ",", "8"}], "]"}], ",",
* @. J5 R1 x7 ]7 e) T RowBox[{"CM", "[", 2 H( l- Z; |% h: E% Y2 J' K& h
RowBox[{"22", ",", "9"}], "]"}]}], "}"}], ",",
1 D# D4 {# s0 w6 f- p _ RowBox[{"{", + k0 t9 V$ P9 s5 j1 W0 j0 v
RowBox[{
- ~7 a" D) L) G* z RowBox[{"CM", "[", % [+ T: Y, i% d) C" B7 i6 G3 e& w& I
RowBox[{"23", ",", "1"}], "]"}], ",", 3 _! L0 @/ `3 A5 d1 C
RowBox[{"CM", "[",
5 R/ N3 s p6 g4 X/ h3 {% N RowBox[{"23", ",", "2"}], "]"}], ",",
& P) Y7 |! n3 y7 ?. z, N: A RowBox[{"CM", "[", e. h- f+ o: b' b5 @
RowBox[{"23", ",", "3"}], "]"}], ",", $ F2 Z7 _& e; v6 R4 T' I0 s
RowBox[{"CM", "[",
2 r; ?; |9 }5 Z RowBox[{"23", ",", "4"}], "]"}], ",",
5 [4 ?; w4 b$ t& @" g/ [8 `* L }) r RowBox[{"CM", "[",
2 Q* x! F9 m' I. n3 G* j RowBox[{"23", ",", "5"}], "]"}], ",",
7 { @0 G, ~7 s1 ]1 G4 N0 ~4 F+ x RowBox[{"CM", "[", ( F% l; u! S |3 w
RowBox[{"23", ",", "6"}], "]"}], ",",
; o1 L2 |9 k) |+ g4 _4 C RowBox[{"CM", "[",
- H' h9 c# w& t" q: M6 r RowBox[{"23", ",", "7"}], "]"}], ",", 8 Z: ~4 C) C7 p$ R4 J& u& p
RowBox[{"CM", "[",
2 K/ T; U8 g$ k3 M! Y7 K+ w; N. a RowBox[{"23", ",", "8"}], "]"}], ",", & @% E1 u) {, T' c6 E+ }
RowBox[{"CM", "[", - O" Z) T% P; s2 j! i8 k/ k
RowBox[{"23", ",", "9"}], "]"}]}], "}"}], ",", % y! ]* o1 u% o* J6 [
RowBox[{"{", $ X" B9 |; \% k
RowBox[{7 _* q0 C8 u. c
RowBox[{"CM", "[",
f8 U! }; `7 \# ]8 k; R6 B RowBox[{"24", ",", "1"}], "]"}], ",", / h; \# `9 R. l/ I' H
RowBox[{"CM", "[", + ~5 {9 |* J3 Z1 l6 [% y
RowBox[{"24", ",", "2"}], "]"}], ",", , A1 W6 A S& R* m/ q
RowBox[{"CM", "[",
1 _5 V; [. |5 z" K* Z/ U7 _1 }; C RowBox[{"24", ",", "3"}], "]"}], ",",
) A1 f4 w f, f ^0 v RowBox[{"CM", "[", ! ^+ p) J4 h2 c& t9 e( X4 Q: H) [( Y
RowBox[{"24", ",", "4"}], "]"}], ",",
2 K- Y9 u" A8 p& m' I4 t RowBox[{"CM", "[", . S4 a' q1 H' S- L- V( O. u4 a
RowBox[{"24", ",", "5"}], "]"}], ",", ( G# l, n& H- c2 h. L$ t
RowBox[{"CM", "[", " c% l* O8 s3 X& v0 b7 T/ K
RowBox[{"24", ",", "6"}], "]"}], ",", 6 t |. X4 ?. J5 D
RowBox[{"CM", "[",
/ e7 s0 [6 b# m- ?! E8 o+ h RowBox[{"24", ",", "7"}], "]"}], ",",
) f5 {; x8 [6 {- u2 N% @! ^9 ^" a( { RowBox[{"CM", "[", Q# `3 e# d' g& `
RowBox[{"24", ",", "8"}], "]"}], ",", 3 J+ D% ?/ i* X
RowBox[{"CM", "[",
9 x2 Z$ o Q% G# n2 W RowBox[{"24", ",", "9"}], "]"}]}], "}"}], ",",
' n9 k6 }/ y. A RowBox[{"{", , J7 |! I9 J3 v* r
RowBox[{
4 H/ Y" K$ T+ a8 K# P RowBox[{"CM", "[", 6 l0 r1 r5 e& B9 j+ h% `
RowBox[{"25", ",", "1"}], "]"}], ",",
0 Y. Z/ P3 D$ R" s7 i; p$ j RowBox[{"CM", "[", $ |) }! ]! B, g. _- `
RowBox[{"25", ",", "2"}], "]"}], ",",
: I" R4 f& l, O& A* v RowBox[{"CM", "[",
+ w$ y5 H; y) M, }. w0 {6 ] RowBox[{"25", ",", "3"}], "]"}], ",", 7 h2 [2 f8 q% G
RowBox[{"CM", "[",
! ?3 F4 l2 z1 `# j; y) G5 j RowBox[{"25", ",", "4"}], "]"}], ",",
. ]' s- U9 J7 R3 Q9 Q7 f9 e RowBox[{"CM", "[", $ A6 h% @( @8 W- g
RowBox[{"25", ",", "5"}], "]"}], ",",
! b0 V! h! O( P4 ?) p* t RowBox[{"CM", "[",
+ _5 ]" M/ N0 t, B6 C# K/ Y- |) W RowBox[{"25", ",", "6"}], "]"}], ",", 4 |3 [5 r' P) g
RowBox[{"CM", "[",
0 v% b' M; |$ ?7 g" C, ^ RowBox[{"25", ",", "7"}], "]"}], ",",
9 O% f9 o2 p+ v e RowBox[{"CM", "[", % s' N/ Z( d1 O5 x
RowBox[{"25", ",", "8"}], "]"}], ",", I) E' O3 h8 N5 J; u# J: c
RowBox[{"CM", "[",
# z/ }$ Q* D* F1 h* E w/ t RowBox[{"25", ",", "9"}], "]"}]}], "}"}], ",",
* s' U9 p6 N- _ b& N$ m RowBox[{"{",
; J' F* o2 Y/ ?# ^4 R# d9 t RowBox[{- ?( i( D+ l) Q4 T
RowBox[{"CM", "[",
5 r" S+ a$ \2 o8 m. S k RowBox[{"26", ",", "1"}], "]"}], ",", 0 G9 b9 ~! X$ g9 M* {
RowBox[{"CM", "[", ) P5 h% F& ?* m+ @# _8 L
RowBox[{"26", ",", "2"}], "]"}], ",", 2 F: @/ m! E& n5 r. U
RowBox[{"CM", "[",
) v8 N& j6 H, J5 B: L RowBox[{"26", ",", "3"}], "]"}], ",",
/ }' [3 b. w$ c! V+ Q2 z RowBox[{"CM", "[", ; Q2 v0 b( C% s! S/ U% u) _1 R% [# k0 [
RowBox[{"26", ",", "4"}], "]"}], ",", ) w" T' F% \& y8 G
RowBox[{"CM", "[",
3 L& G# P; w$ C7 d; ^& Y* \ RowBox[{"26", ",", "5"}], "]"}], ",", 3 Y |" {7 f& e/ X3 \2 Q+ U' o1 U8 ~
RowBox[{"CM", "[", 9 Q/ J3 }, `" m
RowBox[{"26", ",", "6"}], "]"}], ",", * k3 F3 b5 f) i7 Y0 @! x
RowBox[{"CM", "[",
& b+ G7 x- H, \ i- e RowBox[{"26", ",", "7"}], "]"}], ",", ( ]" F' P8 d' h' j
RowBox[{"CM", "[", % B& l. I# F/ N- C4 k
RowBox[{"26", ",", "8"}], "]"}], ",",
. O/ }. w: F5 a# q RowBox[{"CM", "[", 7 F/ E( O2 J# ]7 m& Z' c
RowBox[{"26", ",", "9"}], "]"}]}], "}"}], ",",
! W+ d* G, u8 V: I9 @6 G" X RowBox[{"{",
8 z' d1 O q& f7 _! l RowBox[{( k- m" R# v+ } U
RowBox[{"CM", "[",
* P1 H4 \# W& d H/ W RowBox[{"27", ",", "1"}], "]"}], ",", * f( W- Z$ G |
RowBox[{"CM", "[",
8 p n( ^, _2 v1 d RowBox[{"27", ",", "2"}], "]"}], ",",
. p7 V3 {5 m/ P2 F5 f RowBox[{"CM", "[", 6 B+ f" ~ W; a4 [2 m
RowBox[{"27", ",", "3"}], "]"}], ",",
/ m1 x Y1 P. b5 y5 B2 T( M$ j9 l, C RowBox[{"CM", "[", $ ~6 y- b8 Y. K1 s% y
RowBox[{"27", ",", "4"}], "]"}], ",",
" O I9 N" N. B+ J" H RowBox[{"CM", "[", % g- l2 m, c5 _8 G9 b( f
RowBox[{"27", ",", "5"}], "]"}], ",", ) }1 w6 W3 a' |- l. n
RowBox[{"CM", "[", 8 T( d& f% z- C8 f/ A: c3 Z
RowBox[{"27", ",", "6"}], "]"}], ",", ! K! K# _6 s0 G; w- I
RowBox[{"CM", "[", % A4 E: T; F7 S8 U( }
RowBox[{"27", ",", "7"}], "]"}], ",",
R8 U# j6 |" L3 q' m) q RowBox[{"CM", "[",
7 S* a7 \: N# }4 V) C* J RowBox[{"27", ",", "8"}], "]"}], ",",
; e7 @/ ?/ n8 e; T# |. ^& p4 }0 _; K RowBox[{"CM", "[",
7 F' R: o; G& ^" G v RowBox[{"27", ",", "9"}], "]"}]}], "}"}], ",",
# g! u5 g2 Q" l# p% N! G9 p RowBox[{"{", 2 \' i- q3 r+ A+ N$ A, R
RowBox[{3 k+ O! W5 M3 c! [- ~& [
RowBox[{"CM", "[", 4 O" A) h. W* S
RowBox[{"28", ",", "1"}], "]"}], ",",
9 t1 z6 ^, f% ^2 L RowBox[{"CM", "[",
/ l3 x* ]2 ?& G/ f5 y RowBox[{"28", ",", "2"}], "]"}], ",", # q8 D0 ^7 Z9 _2 K% Q* \9 T9 ~. L5 L
RowBox[{"CM", "[", , K' P3 L- ~" y% h5 }
RowBox[{"28", ",", "3"}], "]"}], ",", $ q8 b& W8 B9 _
RowBox[{"CM", "[",
9 f2 F3 ~$ R" J2 I RowBox[{"28", ",", "4"}], "]"}], ",", & R( _- ~+ u% L7 y, ~
RowBox[{"CM", "[", & w' A& b8 _* J
RowBox[{"28", ",", "5"}], "]"}], ",",
/ i4 A/ z+ }: B+ Y RowBox[{"CM", "[", 4 M+ ]5 g* C" T$ G# O5 s/ e( K
RowBox[{"28", ",", "6"}], "]"}], ",", 1 C6 _. Z$ u9 ^
RowBox[{"CM", "[", - f+ O/ }2 |% u: A4 S
RowBox[{"28", ",", "7"}], "]"}], ",", . I2 }& x1 k+ ?( Q* z5 ]' f
RowBox[{"CM", "[",
* {" F+ x9 a# i# X RowBox[{"28", ",", "8"}], "]"}], ",",
+ ~% }* p6 c# H$ h RowBox[{"CM", "[",
2 `: R7 K! j8 ~/ [0 ]3 ] RowBox[{"28", ",", "9"}], "]"}]}], "}"}], ",", , o! w$ m& H+ O# |' ?5 X& s
RowBox[{"{",
# E ?( f2 e4 Y/ `- e" L RowBox[{. M- ~& ^9 `3 S& Z: X
RowBox[{"CM", "[",
& Z; g3 o6 m2 I6 d1 S( o6 E RowBox[{"29", ",", "1"}], "]"}], ",", * d, i# ^% p: P
RowBox[{"CM", "[",
( G8 }$ z/ t( S4 a/ ^! ` RowBox[{"29", ",", "2"}], "]"}], ",", ( l: H: \; D0 w! ]. M, L
RowBox[{"CM", "[",
& q6 a" E4 }* }9 {, ^ RowBox[{"29", ",", "3"}], "]"}], ",",
; K+ F2 M; N7 y8 ?0 w' U RowBox[{"CM", "[",
. g0 r2 B8 |3 V) e+ F7 ^- i5 P9 m+ [2 E RowBox[{"29", ",", "4"}], "]"}], ",",
0 S% H8 B" W% @( c# r RowBox[{"CM", "[",
1 P7 v' O: F# | RowBox[{"29", ",", "5"}], "]"}], ",",
) t; Z( W, ^$ z RowBox[{"CM", "[",
. A6 D/ C: P1 K9 c$ p5 u% O( d RowBox[{"29", ",", "6"}], "]"}], ",",
2 R; g [5 P3 R+ s* X# q& ], K0 M RowBox[{"CM", "[",
9 H1 `4 }" P6 [" }- V6 Q3 ^ RowBox[{"29", ",", "7"}], "]"}], ",", + f4 o. f% S, j, Z- l6 w
RowBox[{"CM", "[",
# m( F9 [! z7 J4 N# ~ RowBox[{"29", ",", "8"}], "]"}], ",", ' `0 `( G! D4 `% d
RowBox[{"CM", "[",
1 T6 f' ~2 \! u ^# w' n6 a( G RowBox[{"29", ",", "9"}], "]"}]}], "}"}], ",",
9 u1 K/ o' d C% {8 H8 y z RowBox[{"{",
* b+ k4 O: e Y. n, W RowBox[{; R0 e0 e! c& X7 k# a. ?
RowBox[{"CM", "[",
) B, k* M8 V E# Y. r RowBox[{"30", ",", "1"}], "]"}], ",", & l6 c A# m, q; H( o( j
RowBox[{"CM", "[", % O6 p9 E3 i+ K5 v6 `5 e
RowBox[{"30", ",", "2"}], "]"}], ",",
; N$ S: l3 f B5 ~" V) a RowBox[{"CM", "[", , g& P2 K6 i+ C/ O5 o
RowBox[{"30", ",", "3"}], "]"}], ",",
# h2 M" @2 Y$ P/ F% _" f RowBox[{"CM", "[", ; Z9 u3 w) H r# m; ?4 b
RowBox[{"30", ",", "4"}], "]"}], ",", 2 a# Z: @; _2 P4 R: y+ M
RowBox[{"CM", "[", 4 r" s1 S' R& ]! |8 A9 g
RowBox[{"30", ",", "5"}], "]"}], ",",
: A9 p/ [2 @; V8 }. |) R RowBox[{"CM", "[", 7 \' j, ^" |0 z1 z. m6 N
RowBox[{"30", ",", "6"}], "]"}], ",",
$ I% R$ s, G2 M+ \1 S' S" k2 } RowBox[{"CM", "[",
1 C4 J( d% c. q8 k( t, n9 C4 l RowBox[{"30", ",", "7"}], "]"}], ",",
3 z: f# ~/ n% u6 Q) `& {( j RowBox[{"CM", "[",
, u3 [( W1 q. o! ~% f3 f, R RowBox[{"30", ",", "8"}], "]"}], ",",
2 C, w' T* W; q RowBox[{"CM", "[", : |/ R4 A* W( W/ c9 Z; E) E& @, G
RowBox[{"30", ",", "9"}], "]"}]}], "}"}], ",",
6 @' J# m7 Q) c" n0 o RowBox[{"{",
) @+ U, c" |) t+ `3 C" Z RowBox[{
$ `6 w+ w3 l" ~ RowBox[{"CM", "[",
8 V; x6 ?" W4 C) ~$ ~4 ^% d) M RowBox[{"31", ",", "1"}], "]"}], ",",
& E1 b2 m4 s+ e* r# Y, U RowBox[{"CM", "[",
5 n. P: k5 d% l; Z RowBox[{"31", ",", "2"}], "]"}], ",", " p* M0 t8 e3 Q3 H" K% }# r; O
RowBox[{"CM", "[",
% I5 v8 A9 p) C4 }! A. ] RowBox[{"31", ",", "3"}], "]"}], ",",
+ j' H* s; T/ `& g RowBox[{"CM", "[",
# v9 |- y7 v' y RowBox[{"31", ",", "4"}], "]"}], ",", ( n( ^ J" W* A' T
RowBox[{"CM", "[", / H- X. T0 u, C
RowBox[{"31", ",", "5"}], "]"}], ",",
9 Y# m9 \+ v a" y9 c3 x RowBox[{"CM", "[", : L3 u9 i$ F9 H% |
RowBox[{"31", ",", "6"}], "]"}], ",", k% ^, ^3 a5 s: ^& {6 S' V/ E
RowBox[{"CM", "[",
/ G, N( L, d( Z3 o) G RowBox[{"31", ",", "7"}], "]"}], ",", - v! ~) E7 v$ G* ^8 c" Q( [
RowBox[{"CM", "[", , b( C' O0 i, m: s" t% R
RowBox[{"31", ",", "8"}], "]"}], ",", & e6 d) D8 A' p& u
RowBox[{"CM", "[",
3 x$ T$ h2 P* `2 v0 T N RowBox[{"31", ",", "9"}], "]"}]}], "}"}], ",",
+ h4 B- P. C/ v# G4 f( G RowBox[{"{",
, z" |, ?4 e+ v6 t4 b8 P: n0 T RowBox[{
* s. j& \& O) ]+ L! |# O) G. w RowBox[{"CM", "[",
4 a" Y2 k0 D6 w RowBox[{"32", ",", "1"}], "]"}], ",", 9 A. v3 y- B8 g" S! w9 i3 o
RowBox[{"CM", "[", * d- l' K- b) y3 ?1 J
RowBox[{"32", ",", "2"}], "]"}], ",",
0 O) H7 i; R' P3 T RowBox[{"CM", "[", - w/ c5 u8 X/ B! z" {; O1 F5 d: I
RowBox[{"32", ",", "3"}], "]"}], ",", : N% j/ [- a8 }# a) Q" f
RowBox[{"CM", "[",
! W$ Q, Z5 P* J0 p6 x. i% t+ h RowBox[{"32", ",", "4"}], "]"}], ",",
( f4 v7 N- h$ P) i5 Q8 c4 ~& {1 z RowBox[{"CM", "[",
* J! o- m% S8 E& d RowBox[{"32", ",", "5"}], "]"}], ",", 6 q# c) s* A( C# m( P# t
RowBox[{"CM", "[", 4 J$ v- D/ ]: S W! G$ a+ c
RowBox[{"32", ",", "6"}], "]"}], ",",
# X" x7 k# V7 S RowBox[{"CM", "[",
" J& H2 K0 z. d RowBox[{"32", ",", "7"}], "]"}], ",",
1 l8 V) }+ x+ V RowBox[{"CM", "[", 3 O/ K! s4 z" J6 Y. o" Z" O
RowBox[{"32", ",", "8"}], "]"}], ",", : r: r6 `7 s+ o5 _$ x" c
RowBox[{"CM", "[",
) G2 |/ o6 S" P3 x. v RowBox[{"32", ",", "9"}], "]"}]}], "}"}], ",", s5 F4 A% Y- }) q- x1 X4 b/ ?
RowBox[{"{",
8 l( j% P8 Z6 A l6 R- P$ j RowBox[{
8 A$ Y$ s- j9 [: n8 } RowBox[{"CM", "[", 4 R( |5 _; k2 W" B* U
RowBox[{"33", ",", "1"}], "]"}], ",",
+ Q) Z6 o! C3 l! n RowBox[{"CM", "[",
( c6 M) G) l- g K% F3 @* L2 t RowBox[{"33", ",", "2"}], "]"}], ",", 1 U. I( S/ n0 V) W9 e0 c& M" [0 b
RowBox[{"CM", "[",
$ C7 h' b/ P+ H4 U+ j% w- X RowBox[{"33", ",", "3"}], "]"}], ",", ) ~. Z) z: B9 f1 F8 S3 l, J* F
RowBox[{"CM", "[",
4 ]. w% j& }" i" `0 f. p. F( _ RowBox[{"33", ",", "4"}], "]"}], ",",
% ^* v" g* |$ r6 L9 O4 J4 s RowBox[{"CM", "[", $ N8 x: t/ x. @' i
RowBox[{"33", ",", "5"}], "]"}], ",", . z) I/ c) p: f% W' T( ^( T: a9 [
RowBox[{"CM", "[",
+ q' S+ Q' O4 W+ ? `( c RowBox[{"33", ",", "6"}], "]"}], ",",
& }; h3 h( @- a0 S7 J0 W) H( _ RowBox[{"CM", "[", ) w& l4 S8 d% Z) K& z# t
RowBox[{"33", ",", "7"}], "]"}], ",",
) ]2 p: B q% G( _# b RowBox[{"CM", "[",
7 e# U) ^6 c# ?* g' F RowBox[{"33", ",", "8"}], "]"}], ",", & O$ \7 Y# {' l
RowBox[{"CM", "[", 5 r& Y3 I7 @! q% e1 Q% T$ L6 m
RowBox[{"33", ",", "9"}], "]"}]}], "}"}], ",",
; \9 D3 @% J7 k/ I, I RowBox[{"{",
6 X: x B7 Z# n0 U9 y9 k- ] a6 Z$ ?9 G RowBox[{ m+ [: u/ n' u/ E
RowBox[{"CM", "[",
1 W+ [4 ]: P6 X; `6 J RowBox[{"34", ",", "1"}], "]"}], ",", . I! D. y- W3 O
RowBox[{"CM", "[",
" y! e0 z7 z+ U5 [; d, i3 g! X0 \% E RowBox[{"34", ",", "2"}], "]"}], ",",
, r" b* C: o+ h8 {# \. s# q& G RowBox[{"CM", "[", 9 [# Y0 z: u. t$ i# L4 i
RowBox[{"34", ",", "3"}], "]"}], ",",
9 r' Z6 B6 E. V7 s+ W RowBox[{"CM", "[", & ^& }7 h4 {( [3 r5 t1 l2 }
RowBox[{"34", ",", "4"}], "]"}], ",", * Y$ P9 p4 R' @9 c! {. j$ |
RowBox[{"CM", "[", : T4 G% z4 k3 E8 Y! E, F- _ p
RowBox[{"34", ",", "5"}], "]"}], ",", . V) I6 |$ C% R, V. p6 |
RowBox[{"CM", "[",
4 A( l& k3 K, x7 i/ _. Z: b6 i RowBox[{"34", ",", "6"}], "]"}], ",", 7 X* \, P5 L. E$ E9 G9 n, u
RowBox[{"CM", "[",
/ q9 _9 i) Y+ s7 s/ D/ y RowBox[{"34", ",", "7"}], "]"}], ",", 4 R# p1 X$ b( _% n: H
RowBox[{"CM", "[", 1 z" X6 k' f$ r' f! f6 ]
RowBox[{"34", ",", "8"}], "]"}], ",", - n' M1 y. J6 [
RowBox[{"CM", "[",
* g8 P. u9 f% S, n RowBox[{"34", ",", "9"}], "]"}]}], "}"}], ",",
( j8 ^3 C# T& w3 v. u RowBox[{"{", # G# W# z6 K1 i: b* w) \& h
RowBox[{
& X1 m! [$ [ l5 m/ s7 `, y RowBox[{"CM", "[",
0 s) }0 Z6 [- H& Q: [& T RowBox[{"35", ",", "1"}], "]"}], ",",
- a$ m( X2 D* L( K9 X) x RowBox[{"CM", "[",
4 Q7 z) z5 V0 N% H4 [8 J RowBox[{"35", ",", "2"}], "]"}], ",", 2 `& J$ R1 S1 [0 S
RowBox[{"CM", "[", ' V0 k6 k' \! h7 n) X
RowBox[{"35", ",", "3"}], "]"}], ",", : f; x, a" `( t; f# v8 ?
RowBox[{"CM", "[",
% z. T( T5 t0 u. ^* A RowBox[{"35", ",", "4"}], "]"}], ",", ! ?- R% G* f$ s {5 f
RowBox[{"CM", "[", 6 Z0 J5 u9 m# J
RowBox[{"35", ",", "5"}], "]"}], ",",
; h8 f- _! Z7 E( U# V* j RowBox[{"CM", "[", 1 z: B* R- m, h
RowBox[{"35", ",", "6"}], "]"}], ",", 5 T& f' n7 r5 W, D/ R
RowBox[{"CM", "[",
4 Y5 W9 f# I9 I U4 W7 B3 K+ V0 ? RowBox[{"35", ",", "7"}], "]"}], ",", ' U- s* ]1 s E( ] ?
RowBox[{"CM", "[", 6 s3 g% _+ Y0 I; j5 s. e, d0 R
RowBox[{"35", ",", "8"}], "]"}], ",", ' @% D( x1 ^ X4 i, n' ]
RowBox[{"CM", "[",
$ C( {+ [2 Z) E, } RowBox[{"35", ",", "9"}], "]"}]}], "}"}], ",", p& i% n6 _ C: i5 f: F9 W
RowBox[{"{", 2 v7 o8 F" b4 ]7 R, g) A, J( J
RowBox[{
- Y/ t7 R" I- F7 u RowBox[{"CM", "[", 8 p5 e: {( _, n# c
RowBox[{"36", ",", "1"}], "]"}], ",",
' n# Z1 h8 T7 [7 M! @2 F RowBox[{"CM", "[", ! M* l2 @. F0 C
RowBox[{"36", ",", "2"}], "]"}], ",", 6 @0 ?# \! A3 t2 g0 O
RowBox[{"CM", "[",
, i: p0 L& y$ @1 D8 n( A% u RowBox[{"36", ",", "3"}], "]"}], ",", & |9 ?" w7 N; o% f0 P+ Y* \
RowBox[{"CM", "[", ) H n$ q4 q( ~: W. [; v
RowBox[{"36", ",", "4"}], "]"}], ",", 2 r; o) r) B2 j5 D1 h9 W" R y! d% t
RowBox[{"CM", "[",
# Z. [; T* v5 G% N3 ~ p( { RowBox[{"36", ",", "5"}], "]"}], ",", 5 s6 s0 T4 Z- d
RowBox[{"CM", "[",
/ \9 E0 K0 |% r RowBox[{"36", ",", "6"}], "]"}], ",", ; q& b8 h7 A9 X T
RowBox[{"CM", "[",
4 ~) ~2 q5 |9 U, C- P2 r$ h, E RowBox[{"36", ",", "7"}], "]"}], ",",
1 n7 D. N1 ~ a; H' |4 E RowBox[{"CM", "[",
0 S0 Y0 o7 ?- C' z3 m9 N/ i9 ] RowBox[{"36", ",", "8"}], "]"}], ",", % l5 {. k s4 w, T
RowBox[{"CM", "[",
/ z$ }3 d( o& u, } RowBox[{"36", ",", "9"}], "]"}]}], "}"}], ",", 8 y& `: L# L) Q7 i. L: O
RowBox[{"{", ) z& b$ d/ h2 ]1 S8 f# ^. W- p
RowBox[{
9 e+ y2 M9 V- T* j! E2 ^6 v RowBox[{"CM", "[",
4 T" |" ?/ W) t! M. o. Q RowBox[{"37", ",", "1"}], "]"}], ",",
# I7 d; ?2 l4 `( G" n% H4 p7 I RowBox[{"CM", "[",
6 n! S4 n; @) y3 { RowBox[{"37", ",", "2"}], "]"}], ",", + P+ a; e" V) Y; H
RowBox[{"CM", "[",
% ~. ?8 Z! Z" t- Y( o- S4 F RowBox[{"37", ",", "3"}], "]"}], ",", & Q# X0 A9 w( p
RowBox[{"CM", "[", , q+ v) {. v5 H8 _, N6 w
RowBox[{"37", ",", "4"}], "]"}], ",", " ?9 F8 W# D& z, d/ C
RowBox[{"CM", "[", - b$ t1 c+ C/ h6 P, Y" M
RowBox[{"37", ",", "5"}], "]"}], ",",
' n$ K8 o: d/ o" u# g RowBox[{"CM", "[",
6 D3 Y' @3 `* C3 I RowBox[{"37", ",", "6"}], "]"}], ",", ; o# C; K: q8 N* B* v7 g
RowBox[{"CM", "[", 5 o8 ~, A& B; ]6 V1 X- A; f' q: S0 E
RowBox[{"37", ",", "7"}], "]"}], ",",
" a) r. J' M+ s3 w% }5 q, Y RowBox[{"CM", "[",
8 Q- |. `" H T: A/ v g2 D RowBox[{"37", ",", "8"}], "]"}], ",", : d! ]" \) i! a; x8 p2 o1 h" T' V# m# A
RowBox[{"CM", "[", H9 I& w4 x% Y& K' \0 {
RowBox[{"37", ",", "9"}], "]"}]}], "}"}], ",", $ u+ T4 f! P0 F; _
RowBox[{"{", * [3 e5 M' `5 u8 K& x0 i
RowBox[{
! N8 Y" N8 s$ ]7 a) f' R9 ?0 N% d RowBox[{"CM", "[", * Q3 ]/ s( t6 ^. @5 z& p
RowBox[{"38", ",", "1"}], "]"}], ",",
' i! H) E: v* c( \' s1 a RowBox[{"CM", "[", 8 d* Y5 E; }0 @0 W
RowBox[{"38", ",", "2"}], "]"}], ",",
' p8 J9 C3 a$ r. N9 N& ?- F3 P: H RowBox[{"CM", "[",
, G9 l& ~& k: Z3 k7 Q t RowBox[{"38", ",", "3"}], "]"}], ",",
# x$ P. ^( O$ r& Z( O RowBox[{"CM", "[",
0 N% {' V) ^/ k RowBox[{"38", ",", "4"}], "]"}], ",",
: n* G) \5 {% n, \ RowBox[{"CM", "[",
9 ^. B; S( D' X7 ?" X1 V5 N0 s RowBox[{"38", ",", "5"}], "]"}], ",",
5 Z2 E' g$ ~9 A9 o! o$ r RowBox[{"CM", "[",
" |" a% C4 b) ^" m0 I' z& R RowBox[{"38", ",", "6"}], "]"}], ",", ) |" _, p, o$ `6 Y$ E9 c2 s3 T
RowBox[{"CM", "[",
4 f* d" i6 d* {% `1 f7 o# C# ~$ ` RowBox[{"38", ",", "7"}], "]"}], ",", ! s' u' b+ ]; }- d; w( P% I
RowBox[{"CM", "[", % s9 `: T" V) _+ |5 t* g1 U
RowBox[{"38", ",", "8"}], "]"}], ",",
, Z. K8 G0 o$ m3 ? }- y8 ?5 ] RowBox[{"CM", "[",
/ G+ v6 E; i# ]" Q: Y+ F1 K. t" e M+ r RowBox[{"38", ",", "9"}], "]"}]}], "}"}], ",",
3 X7 m' a- w7 G! Y$ T P& i RowBox[{"{", 1 u) R3 f% o% ^
RowBox[{2 W, o* r6 s2 P. `( r- `
RowBox[{"CM", "[",
/ g3 V6 R* A& L( Q6 k, z RowBox[{"39", ",", "1"}], "]"}], ",",
6 _8 d+ u+ \0 g RowBox[{"CM", "[", / l+ a9 S2 C) g$ |6 C/ P& t
RowBox[{"39", ",", "2"}], "]"}], ",", / q: a! ]1 I' Z, }7 O3 T' q
RowBox[{"CM", "[", , V% ?2 e) e# y' D! T
RowBox[{"39", ",", "3"}], "]"}], ",",
: f& m9 J& W& e$ S! t8 f RowBox[{"CM", "[", $ w+ K3 r* [/ @. ^- l' w
RowBox[{"39", ",", "4"}], "]"}], ",",
7 G7 Y2 n: j/ c) i7 L& k RowBox[{"CM", "[",
! ?9 E0 S3 s& A" G( S, D8 z' U& i, c RowBox[{"39", ",", "5"}], "]"}], ",",
6 o3 y- n+ `! V: ^- _ RowBox[{"CM", "[",
: L/ N# h# n+ y% w/ ~ E" i) z! T RowBox[{"39", ",", "6"}], "]"}], ",", / I7 m, O' r* \0 |: h9 \8 ^6 @
RowBox[{"CM", "[", # H8 u ^% R! L& z- \; y4 x
RowBox[{"39", ",", "7"}], "]"}], ",",
' m8 r% @! v E8 l, }3 U8 J# T7 s RowBox[{"CM", "[", 3 l7 \' F/ B4 S2 ~0 h
RowBox[{"39", ",", "8"}], "]"}], ",", 1 I' `5 ~( w; o" T1 V
RowBox[{"CM", "[", ; s) z5 f* e9 x9 o# M* f* K& f
RowBox[{"39", ",", "9"}], "]"}]}], "}"}], ",", ! e& [& x& z9 ]7 z& o8 U
RowBox[{"{", * f8 ~ X" @5 C" Q1 Q6 j
RowBox[{2 Z) X( |3 ~( r. s
RowBox[{"CM", "[",
! ?, j- A% n" J1 O1 m4 o- N: [ RowBox[{"40", ",", "1"}], "]"}], ",", ; a; S; A* z$ F/ H: R+ {
RowBox[{"CM", "[",
9 Q U' F5 c. v5 T RowBox[{"40", ",", "2"}], "]"}], ",", % D9 x* h8 z5 m0 E* S }4 i- H) `
RowBox[{"CM", "[",
) R- Z& \- e( u) j: g& V* T RowBox[{"40", ",", "3"}], "]"}], ",", * P- a3 Y9 K' H0 Y8 N) L/ O
RowBox[{"CM", "[", , I6 F% Y* v0 g* z% w7 a# x7 c
RowBox[{"40", ",", "4"}], "]"}], ",",
. x- S- i* c V( D2 e# x RowBox[{"CM", "[", 4 X) x2 e5 T2 s8 J. `1 b* ^6 @
RowBox[{"40", ",", "5"}], "]"}], ",",
( v$ D9 G& N' X' ]2 i RowBox[{"CM", "[", / T2 L! l2 O" F: Q
RowBox[{"40", ",", "6"}], "]"}], ",",
* b# d C4 i b9 A: F RowBox[{"CM", "[",
) Z- ]4 r# m) K5 L RowBox[{"40", ",", "7"}], "]"}], ",", / L$ h* E3 ]6 b! k
RowBox[{"CM", "[", 3 j5 y- M$ l" {0 M) k7 ~' H
RowBox[{"40", ",", "8"}], "]"}], ",",
0 J; _# k. i0 M6 R+ F. V/ R2 d RowBox[{"CM", "[", ; g) ~- r* b: |
RowBox[{"40", ",", "9"}], "]"}]}], "}"}], ",",
+ k& i3 Z; G# Q5 }( j& ^/ G RowBox[{"{",
- E' l9 @% ~2 R7 ^) U4 k$ h RowBox[{
9 a9 ` U2 Y. Q) d" o% d# p RowBox[{"CM", "[",
* [ ~% m' F' V2 ?2 ?- g- J; I8 s. S RowBox[{"41", ",", "1"}], "]"}], ",", 3 ^; F& k! w7 x/ i( D
RowBox[{"CM", "[", ( O( z4 P" p& `. w G
RowBox[{"41", ",", "2"}], "]"}], ",",
/ }# ~6 e( Z' E' Z9 ^' F/ s RowBox[{"CM", "[",
9 H0 h: t1 O! ?) ?% [4 B RowBox[{"41", ",", "3"}], "]"}], ",", ) ]' k; \- D& Y* K
RowBox[{"CM", "[",
4 w3 S2 k) Y. W: s) w RowBox[{"41", ",", "4"}], "]"}], ",",
% H+ ~. b% @& }5 Z) B# K0 B' M RowBox[{"CM", "[", * z- ^# d! |2 u1 {; @9 l& ?
RowBox[{"41", ",", "5"}], "]"}], ",",
3 e" t7 H( T" J6 z ] RowBox[{"CM", "[",
/ h2 V. c: [/ ~6 e RowBox[{"41", ",", "6"}], "]"}], ",", / Q- Y0 L0 J7 a3 T, i3 t/ H& w
RowBox[{"CM", "[", $ u+ ?3 A# }3 y$ r: `7 T$ z, g) t4 r
RowBox[{"41", ",", "7"}], "]"}], ",",
% N( z4 x/ k" D4 F. n RowBox[{"CM", "[", , l s' K, v7 j& i1 k7 |+ x6 S
RowBox[{"41", ",", "8"}], "]"}], ",", # V6 U5 X+ @, a3 D2 T* S3 b. o. ^
RowBox[{"CM", "[", 7 }0 l6 x) b0 S( Y' S3 W
RowBox[{"41", ",", "9"}], "]"}]}], "}"}], ",", 6 T; E& P+ s* l
RowBox[{"{", * W7 i* _2 [3 k; [% f2 M- t
RowBox[{2 T; d' y0 C' p7 ~4 E# g, _
RowBox[{"CM", "[", , v$ P% l8 T& ^' S
RowBox[{"42", ",", "1"}], "]"}], ",", 8 z1 M1 U) G( y8 ?$ Z
RowBox[{"CM", "[",
r2 \4 l/ S+ K- S RowBox[{"42", ",", "2"}], "]"}], ",", " c1 f$ T+ T) ?8 O' h6 A& Y
RowBox[{"CM", "[",
; ?2 v) Z( U* u0 n' { |8 |* b RowBox[{"42", ",", "3"}], "]"}], ",", 4 ~, h# b6 d/ s& ~
RowBox[{"CM", "[",
1 E: X- A# K5 {% V! A0 v RowBox[{"42", ",", "4"}], "]"}], ",", - V' n$ i. }" f; o3 T
RowBox[{"CM", "[", 8 z8 g5 E* g; ]5 d
RowBox[{"42", ",", "5"}], "]"}], ",",
" k; l7 R5 E1 k+ ]8 P' g RowBox[{"CM", "[",
+ h y% n ~$ q2 t RowBox[{"42", ",", "6"}], "]"}], ",", 6 p0 P% C9 w9 p2 x1 W: Q/ t
RowBox[{"CM", "[", + ]: k+ u6 {8 K3 M1 L
RowBox[{"42", ",", "7"}], "]"}], ",", / }1 h7 e, R5 L V9 t9 z
RowBox[{"CM", "[", " Z H# h; F2 q0 k7 \7 Q2 ?1 @# t
RowBox[{"42", ",", "8"}], "]"}], ",", 0 o; D/ ]* ^8 x
RowBox[{"CM", "[",
: x4 X3 X4 t4 U6 I9 G4 ? RowBox[{"42", ",", "9"}], "]"}]}], "}"}], ",",
& b1 ?+ S6 ~! p6 } a$ }! n RowBox[{"{",
, L5 A6 ^* L3 y. s0 `8 {" R RowBox[{ H. c* d y E/ t
RowBox[{"CM", "[",
8 |& A( f8 e7 D RowBox[{"43", ",", "1"}], "]"}], ",", ' ^ h/ T* M# S' |& s
RowBox[{"CM", "[", 3 x: M' j) M' Z- }. F% X
RowBox[{"43", ",", "2"}], "]"}], ",", ( [0 O( m3 r* {6 e, x+ C ]1 K
RowBox[{"CM", "[",
4 N7 _2 C8 [. m) F RowBox[{"43", ",", "3"}], "]"}], ",", 2 T% B5 a' |* I1 C1 Q8 x& \8 [
RowBox[{"CM", "[", 5 J: Q1 _5 C, q, r! W" k9 f. U
RowBox[{"43", ",", "4"}], "]"}], ",",
% a; x- z7 g8 T2 a8 q `- Q RowBox[{"CM", "[",
: _& V$ c) B" D6 r RowBox[{"43", ",", "5"}], "]"}], ",",
0 u3 G5 X, J; S, v! f RowBox[{"CM", "[", " i2 X, q7 J' o
RowBox[{"43", ",", "6"}], "]"}], ",", , ~7 F! h& ]6 O: u8 m$ G
RowBox[{"CM", "[",
L* t2 |( |& \ RowBox[{"43", ",", "7"}], "]"}], ",", ; c% ]8 P+ c) f: @ V3 Q4 R- o4 ?
RowBox[{"CM", "[",
) u$ T" l# o8 {/ Y8 {" E- `5 L" N5 y RowBox[{"43", ",", "8"}], "]"}], ",",
, d5 b- t% y! {8 p& v0 L RowBox[{"CM", "[", ; d+ d) f. W) q+ a& h
RowBox[{"43", ",", "9"}], "]"}]}], "}"}], ",",
3 [; m9 |, a8 J0 W" ` RowBox[{"{",
3 i: ], l! h/ ] RowBox[{5 q' ?# u0 P2 p+ B' D, B
RowBox[{"CM", "[",
1 D8 h3 t; P' g9 Q9 N! C RowBox[{"44", ",", "1"}], "]"}], ",", 9 ~3 [+ N) P. t8 ^/ K
RowBox[{"CM", "[", 5 T4 Q! A) X! U: N; L
RowBox[{"44", ",", "2"}], "]"}], ",",
" Q0 f9 Z F) v R% I RowBox[{"CM", "[",
1 z5 o& a$ D9 ~9 O3 ~ RowBox[{"44", ",", "3"}], "]"}], ",", : m( [) L; ~7 h" }
RowBox[{"CM", "[", $ q' Q& Z% w0 L0 C7 p! {
RowBox[{"44", ",", "4"}], "]"}], ",", # n% b) r7 P& S& g5 c+ Z# Y8 W
RowBox[{"CM", "[",
+ e3 i* Q! o! p. H8 |6 D7 C RowBox[{"44", ",", "5"}], "]"}], ",",
: J0 N' v9 q/ R# `& x w RowBox[{"CM", "[",
( Q! l6 H+ c& M+ O8 c+ Z( \ RowBox[{"44", ",", "6"}], "]"}], ",", 7 ]4 D+ X4 L. M- B4 I% x' l
RowBox[{"CM", "[", 3 `; H5 u" I( h8 A/ E4 @
RowBox[{"44", ",", "7"}], "]"}], ",",
1 F2 z9 B1 r7 l( I1 f- [ RowBox[{"CM", "[",
" t, a e) ]6 Z1 c" P: W RowBox[{"44", ",", "8"}], "]"}], ",",
( J) v. L/ `1 E7 z RowBox[{"CM", "[",
3 J; K8 a+ F6 w& v* Z RowBox[{"44", ",", "9"}], "]"}]}], "}"}], ",", , R! F; j# _2 L% O9 i& g* a
RowBox[{"{", V& m, g0 p# m
RowBox[{
1 b- f: b, Y6 j/ Y- t RowBox[{"CM", "[",
- |/ b: d; y: m/ L RowBox[{"45", ",", "1"}], "]"}], ",", , {$ M$ G: G' k$ h }
RowBox[{"CM", "[",
/ _5 H' f$ Z/ R4 Y- ]+ U+ } RowBox[{"45", ",", "2"}], "]"}], ",",
+ B( A! Y% X) o$ m6 I/ l+ M; i1 b RowBox[{"CM", "[", ! y/ a( L( o# Q
RowBox[{"45", ",", "3"}], "]"}], ",",
8 a; V, W, R$ L) m" T RowBox[{"CM", "[", * E$ B! k4 L# k' i6 M% D' X0 K% j
RowBox[{"45", ",", "4"}], "]"}], ",",
: a' g1 B! S/ K2 D1 K RowBox[{"CM", "[",
+ {. L2 `) x6 w9 S7 a RowBox[{"45", ",", "5"}], "]"}], ",",
4 S. O) L) N% ] RowBox[{"CM", "[", 7 j3 p& |6 x6 s# N: o5 J2 t
RowBox[{"45", ",", "6"}], "]"}], ",", % f4 i" J! X" {) z2 {6 j
RowBox[{"CM", "[", 8 ?, Y7 Z1 _0 Q/ \
RowBox[{"45", ",", "7"}], "]"}], ",",
/ T6 M! a0 h$ U, v1 H/ x RowBox[{"CM", "[",
. |# {/ V+ d% d. A/ n" t( | RowBox[{"45", ",", "8"}], "]"}], ",", 0 g! x) f9 ~" U' P% T' s
RowBox[{"CM", "[",
8 K6 e% e) Y! a: Y6 A0 V) u RowBox[{"45", ",", "9"}], "]"}]}], "}"}], ",",
8 {9 f+ F: F6 O5 g; X4 Q RowBox[{"{", 4 ~) r+ @5 ^( \
RowBox[{
- g/ U( Q2 d4 a) P, e RowBox[{"CM", "[", 5 e/ c6 @: w5 |1 k$ |7 F
RowBox[{"46", ",", "1"}], "]"}], ",",
) T0 V$ g& C, i. W. X* ?" W RowBox[{"CM", "[",
/ C$ }6 ?7 |7 M% w, M+ F) ^ RowBox[{"46", ",", "2"}], "]"}], ",",
; x2 m* T) _" W RowBox[{"CM", "[", 6 g9 g$ Y$ a v4 ~ n
RowBox[{"46", ",", "3"}], "]"}], ",",
! h' h# M n( H: ~' y1 d4 z RowBox[{"CM", "[", : |. F% N6 X* ^ P
RowBox[{"46", ",", "4"}], "]"}], ",",
5 U" [! _% m% C9 e, n9 P RowBox[{"CM", "[",
. f$ ~/ r4 N+ k RowBox[{"46", ",", "5"}], "]"}], ",",
. r4 n- A) z$ _4 U7 q' G7 k RowBox[{"CM", "[",
# c( V( v( Z" [; b0 Y( H RowBox[{"46", ",", "6"}], "]"}], ",", ' z- @/ D+ P* t) |: d9 q1 m; t/ I6 U, \; f
RowBox[{"CM", "[",
2 `+ M; I U( r% L3 A0 B RowBox[{"46", ",", "7"}], "]"}], ",",
l) c5 Z S4 f2 ]4 h! O f RowBox[{"CM", "[", & A S" R% }) N# Q) v( M0 N' s
RowBox[{"46", ",", "8"}], "]"}], ",",
5 N3 e1 \% O% U) q: X RowBox[{"CM", "[",
0 d) F: a9 G6 b# N% s RowBox[{"46", ",", "9"}], "]"}]}], "}"}], ",", & L* u' J" Q) P8 r5 h1 f0 T a3 u
RowBox[{"{", ' w4 Z6 Q0 ? ]5 R; f; h1 Q
RowBox[{
9 N) L. e8 ^1 ]; o9 D3 ? RowBox[{"CM", "[",
! V$ S8 E" X$ c; p) x' r* | RowBox[{"47", ",", "1"}], "]"}], ",",
/ X3 Y, n' c" v( `4 @, ^ RowBox[{"CM", "[",
2 `8 v7 I0 ?# n; \3 P9 U RowBox[{"47", ",", "2"}], "]"}], ",", / Z/ T/ H- |: U/ h4 V6 y! w) [
RowBox[{"CM", "[",
4 A$ i& G0 B4 s* ~) P& i; s- f9 y RowBox[{"47", ",", "3"}], "]"}], ",",
5 @0 C% y* A9 Y. Q; l( V @, w) o5 G RowBox[{"CM", "[", 5 F& t+ H0 P% I9 T& V! v1 `, `9 L& F
RowBox[{"47", ",", "4"}], "]"}], ",",
8 Z8 |/ j/ h* r! _9 g+ D* b+ d RowBox[{"CM", "[",
5 e" R; L6 ~. | RowBox[{"47", ",", "5"}], "]"}], ",",
, X9 \4 _: {0 K RowBox[{"CM", "[", % [+ I* _# M3 ^( [6 Q
RowBox[{"47", ",", "6"}], "]"}], ",", ) c8 N$ N) w5 i, w8 y
RowBox[{"CM", "[", 8 y" K/ \9 E: r
RowBox[{"47", ",", "7"}], "]"}], ",",
" }) x* O4 J. n2 [3 L9 Z) K RowBox[{"CM", "[", 0 d" Z% v2 x2 y( l; R g
RowBox[{"47", ",", "8"}], "]"}], ",",
+ K% z a V4 n- ~ S& E RowBox[{"CM", "[", 2 p2 P% S# C- f4 o7 T! R
RowBox[{"47", ",", "9"}], "]"}]}], "}"}], ",",
7 N5 E8 ?8 w' B5 B6 a& ]! ` RowBox[{"{",
5 V3 B$ q6 Y1 c k9 B RowBox[{6 o$ f& m8 h7 w7 Y
RowBox[{"CM", "[",
1 ~/ M5 @/ N& @* G2 C1 g RowBox[{"48", ",", "1"}], "]"}], ",",
6 }' Z, Y# R3 X! t# z RowBox[{"CM", "[",
7 [- k" ]' C0 w3 j5 C1 L RowBox[{"48", ",", "2"}], "]"}], ",", 8 z: }/ D2 e5 j. h9 g; f
RowBox[{"CM", "[", # a6 [6 m$ H- y8 [( ^, g. j
RowBox[{"48", ",", "3"}], "]"}], ",", " }4 H a+ t, A3 D: v1 m" Y) T
RowBox[{"CM", "[", ; f( c3 t5 _ R( V0 T
RowBox[{"48", ",", "4"}], "]"}], ",", 5 o; l& C, g9 t5 z' @
RowBox[{"CM", "[",
) Z6 L, W- r! A) o2 ^ RowBox[{"48", ",", "5"}], "]"}], ",", " p, H0 h/ X3 S$ c; L$ g
RowBox[{"CM", "[", 7 X t! D. G- c/ @0 Y" P. F
RowBox[{"48", ",", "6"}], "]"}], ",", T9 U( L$ E7 O. {3 f
RowBox[{"CM", "[", / t/ Y0 [1 ~7 Q, n4 y
RowBox[{"48", ",", "7"}], "]"}], ",",
9 u, a) Y/ p$ w9 I RowBox[{"CM", "[", * k& e7 L- g+ c( R+ O5 V1 n- l
RowBox[{"48", ",", "8"}], "]"}], ",",
% u# V6 m, O7 u8 t/ L0 Z RowBox[{"CM", "[", & [1 K' @, Y' h! Q# |
RowBox[{"48", ",", "9"}], "]"}]}], "}"}], ",", : D r! I) C% s0 S2 P
RowBox[{"{", ) O1 a6 Y* c/ n+ A
RowBox[{
K" i& C' O+ X0 O+ P: k RowBox[{"CM", "[", ' @+ i9 [ O: X
RowBox[{"49", ",", "1"}], "]"}], ",", * X2 ~" o, U6 a9 D, l- W# v3 m2 ^/ o
RowBox[{"CM", "[", # {6 @' R: h% I. s
RowBox[{"49", ",", "2"}], "]"}], ",", 5 k" \ q! ?# R) p
RowBox[{"CM", "[",
8 s: ?$ h+ B+ u F z3 C RowBox[{"49", ",", "3"}], "]"}], ",",
t' `( A. C% S& B4 v. `# G RowBox[{"CM", "[", ( v, W" R7 t* y' z: Q1 o0 }
RowBox[{"49", ",", "4"}], "]"}], ",",
' l& z; [$ R$ e2 c, i. ` RowBox[{"CM", "[", ! A3 z) b4 b, M- X2 b3 y- C% G
RowBox[{"49", ",", "5"}], "]"}], ",",
8 L" {. H! x; H( y+ S+ U( } RowBox[{"CM", "[", # v+ {6 \, ~7 @0 S
RowBox[{"49", ",", "6"}], "]"}], ",", - U2 R3 R/ k0 q& ]0 ?
RowBox[{"CM", "[", G% T8 G4 q- c& B
RowBox[{"49", ",", "7"}], "]"}], ",", ; e3 v/ U$ `1 U" W0 Y, Q1 p2 v/ A& u
RowBox[{"CM", "[", 1 l2 i# F$ B3 \" u6 L
RowBox[{"49", ",", "8"}], "]"}], ",",
/ b+ n8 `$ ~& o& H* K# t0 H RowBox[{"CM", "[",
2 j! c: t4 S& w9 X. o6 ?- G RowBox[{"49", ",", "9"}], "]"}]}], "}"}], ",",
- `& w) e C; V" E& f9 Z RowBox[{"{", 6 s- y j/ ~2 [9 t
RowBox[{
, c" V. o( a0 V+ x2 b# ?9 o RowBox[{"CM", "[", & }' c& ^; F; c* r: f; T- d- v
RowBox[{"50", ",", "1"}], "]"}], ",",
' l9 O0 b4 @5 P. x RowBox[{"CM", "[", 4 l* B2 R. F x
RowBox[{"50", ",", "2"}], "]"}], ",",
' \( w( |( E/ D6 c X, }0 r2 t RowBox[{"CM", "[",
3 x. Z, ~+ t5 p( G9 U) H! T RowBox[{"50", ",", "3"}], "]"}], ",",
/ R y7 [# D( N$ H) O L" ^ RowBox[{"CM", "[",
0 m/ ` F8 r" V) V) j, w) e RowBox[{"50", ",", "4"}], "]"}], ",",
$ `4 |, c: D V% [& i RowBox[{"CM", "[", 3 A! X, y5 w6 @2 Y& N
RowBox[{"50", ",", "5"}], "]"}], ",", 8 i: z7 ^ E& k$ V
RowBox[{"CM", "[",
$ s8 u/ k' `$ ^' K+ _) |$ T4 n RowBox[{"50", ",", "6"}], "]"}], ",",
* N3 L7 F3 {# F RowBox[{"CM", "[",
& z+ l4 E M5 w4 G RowBox[{"50", ",", "7"}], "]"}], ",",
" U/ M6 Q( Y% a: i t6 U RowBox[{"CM", "[",
8 n: u4 g( h/ J9 A S6 c RowBox[{"50", ",", "8"}], "]"}], ",",
+ _5 M# L4 c5 w* a0 C RowBox[{"CM", "[", , J: T0 u* G. ]8 h3 \
RowBox[{"50", ",", "9"}], "]"}]}], "}"}], ",", 3 F% U1 n" p+ Y# n& o' J
RowBox[{"{", 6 X9 G: o( S8 R/ }, e. {4 A
RowBox[{
8 [4 q; ^6 D9 [' ~, N RowBox[{"CM", "[", j( A* y6 s$ I
RowBox[{"51", ",", "1"}], "]"}], ",", , k4 u4 \$ N/ }( p. n
RowBox[{"CM", "[", 1 b- V# ^. P8 B1 o) n+ O
RowBox[{"51", ",", "2"}], "]"}], ",",
* S" I, T/ w, C# N) v3 Z1 s1 h RowBox[{"CM", "[", 7 g# e" A' [5 y7 p/ S4 b+ d; z
RowBox[{"51", ",", "3"}], "]"}], ",",
, T J' l4 } O& n RowBox[{"CM", "[", : M1 t# u/ B7 }4 | G( T8 d
RowBox[{"51", ",", "4"}], "]"}], ",",
9 B$ O. v5 |4 a) [$ n: G RowBox[{"CM", "[",
, `1 [ n4 h: b" M! [8 ] RowBox[{"51", ",", "5"}], "]"}], ",", * V# h( k1 P/ ~8 H" \/ Z" D
RowBox[{"CM", "[", , `; x" e' j% x v8 T
RowBox[{"51", ",", "6"}], "]"}], ",", 4 [4 V0 F) `5 \) l& @" p
RowBox[{"CM", "[", 1 j: L) y* q4 W' H9 p$ E$ F
RowBox[{"51", ",", "7"}], "]"}], ",", ( E x) {* ~& \! M8 R, f
RowBox[{"CM", "[", 9 z+ F7 n; z" [# G9 C) ^/ i
RowBox[{"51", ",", "8"}], "]"}], ",",
8 [9 @2 j4 V1 p R+ _2 T RowBox[{"CM", "[", & W% n; b. ^: B( i. @ i) q! S
RowBox[{"51", ",", "9"}], "]"}]}], "}"}], ",",
9 c( ]* ?0 w& A$ u RowBox[{"{", & }# |" Q9 i9 J! J0 L* _; x
RowBox[{- [% x1 E6 ?, X
RowBox[{"CM", "[",
9 [1 e6 x7 s9 N) Q* C1 ? RowBox[{"52", ",", "1"}], "]"}], ",", ' ~- E- X! x: m# I5 r
RowBox[{"CM", "[",
) ]* q Q% f) W- J RowBox[{"52", ",", "2"}], "]"}], ",",
+ M: R/ P9 Q( f3 |* K# l' E RowBox[{"CM", "[",
# f: l2 Q, I8 ^4 j3 a6 x$ J RowBox[{"52", ",", "3"}], "]"}], ",", 7 @! B5 o6 g' V! H% V- x7 F! n9 k
RowBox[{"CM", "[",
6 a. I' ]. A+ F RowBox[{"52", ",", "4"}], "]"}], ",", 8 G1 H9 E& J" h6 c
RowBox[{"CM", "[",
6 K4 ?" h1 a2 Q RowBox[{"52", ",", "5"}], "]"}], ",", ' Z1 |0 W; ^6 e. \3 a+ x/ E3 l! J
RowBox[{"CM", "[",
7 |' w+ f ]3 W" c6 C+ [ RowBox[{"52", ",", "6"}], "]"}], ",", " t3 U2 L1 x! Y# W# ]
RowBox[{"CM", "[",
" \& I- Y* G: n RowBox[{"52", ",", "7"}], "]"}], ",",
5 }. l9 V- i: o* i# \ RowBox[{"CM", "[",
7 F: ? R V* j) j RowBox[{"52", ",", "8"}], "]"}], ",", 8 \/ k9 [, P$ y* R! }& \: G" N
RowBox[{"CM", "[", 0 ^8 b- B. I. i7 Y+ ~: }
RowBox[{"52", ",", "9"}], "]"}]}], "}"}], ",",
" O5 i0 f" f( s6 t# I RowBox[{"{", * c2 N7 @6 B: B: q; e" P$ _
RowBox[{
5 C3 P& v4 Y4 o. `" ?& T; j RowBox[{"CM", "[",
# ^! i% s. Y0 D2 d3 @, ? RowBox[{"53", ",", "1"}], "]"}], ",", 9 L q9 @1 C" y9 p
RowBox[{"CM", "[", - u& P) ?# Y& [/ R
RowBox[{"53", ",", "2"}], "]"}], ",", / l9 U! f0 }, R
RowBox[{"CM", "[", % n1 i# W# \! T( j
RowBox[{"53", ",", "3"}], "]"}], ",",
4 u; T$ n; W) o4 r4 }1 P4 F RowBox[{"CM", "[", % J/ d: Q3 S) P4 B7 N6 l' c
RowBox[{"53", ",", "4"}], "]"}], ",", + ?% V- h$ ?3 E
RowBox[{"CM", "[",
@# b1 f; j+ ]7 `: e RowBox[{"53", ",", "5"}], "]"}], ",", 8 I7 b- u$ l* {. r$ R; M) H" u8 J
RowBox[{"CM", "[",
/ |" H6 i: R, f) g0 N2 J* m RowBox[{"53", ",", "6"}], "]"}], ",",
3 F' g( V0 }6 J+ i* Q2 J RowBox[{"CM", "[", + v- _1 E2 a Z# S5 [
RowBox[{"53", ",", "7"}], "]"}], ",",
2 H, t/ w7 g+ c( ~1 g RowBox[{"CM", "[", 9 U+ ~- }8 l1 k5 |' r7 s
RowBox[{"53", ",", "8"}], "]"}], ",",
, u" z: y g0 H RowBox[{"CM", "[",
2 E5 y# a9 \6 o. V RowBox[{"53", ",", "9"}], "]"}]}], "}"}], ",",
5 @) C: Z6 }, l4 @& A' N- ^ RowBox[{"{",
) _7 E& E$ N6 D% G2 @5 A RowBox[{1 n9 J0 i9 u( Y0 B1 W$ s
RowBox[{"CM", "[", 2 p/ v( T5 s2 k' S2 z9 G6 Q; g
RowBox[{"54", ",", "1"}], "]"}], ",",
' C3 w0 ] X8 B RowBox[{"CM", "[", 9 ~* p7 `: C4 I! _0 m7 s8 \
RowBox[{"54", ",", "2"}], "]"}], ",", 3 W0 c, [8 r; d# q
RowBox[{"CM", "[",
) H! [2 ^" Z* k4 c% N! `0 X RowBox[{"54", ",", "3"}], "]"}], ",", 9 f! N5 L1 h0 a
RowBox[{"CM", "[", 2 b1 \% P' E5 s/ B7 M# w; k
RowBox[{"54", ",", "4"}], "]"}], ",",
; C9 j5 }0 z% v8 k RowBox[{"CM", "[", 6 w; f5 P y1 h5 o8 v! N
RowBox[{"54", ",", "5"}], "]"}], ",", 3 H: t( y# B( ?: B- u0 M
RowBox[{"CM", "[",
9 w* q" J- } _# G6 I RowBox[{"54", ",", "6"}], "]"}], ",",
* ^) s- ?* M8 A9 t+ y8 @: c RowBox[{"CM", "[", + R) }- }* |, h; {
RowBox[{"54", ",", "7"}], "]"}], ",", ( w- F6 F! F# I" K
RowBox[{"CM", "[",
4 r) _+ r# R5 k$ K7 [ RowBox[{"54", ",", "8"}], "]"}], ",",
" H2 V( d4 k: | RowBox[{"CM", "[",
, `; O: j! ?, I( e6 O' n2 ~ RowBox[{"54", ",", "9"}], "]"}]}], "}"}], ",",
q, h& I+ `+ M) [ RowBox[{"{", 4 l7 I# p, v' z# P; j/ A
RowBox[{- R' I1 {3 p: A2 U0 L) ~( {5 Q
RowBox[{"CM", "[", % a% _) R6 n9 Y2 T7 D
RowBox[{"55", ",", "1"}], "]"}], ",",
6 X, z. R( e! H( l6 l RowBox[{"CM", "[", " R1 a# v+ _4 A+ |1 x% Y. V
RowBox[{"55", ",", "2"}], "]"}], ",",
) c8 N$ q' z' i3 Z0 f9 { RowBox[{"CM", "[",
6 m6 z5 d( i: x1 n k$ v3 f RowBox[{"55", ",", "3"}], "]"}], ",",
# j7 A! G" E/ H, w" G RowBox[{"CM", "[", ; H. c5 q1 W2 ^0 c. D" M
RowBox[{"55", ",", "4"}], "]"}], ",",
: N Y! T( b+ g; B4 W8 G$ X RowBox[{"CM", "[", 3 b' M4 V' N- \! M4 K( v) @9 P
RowBox[{"55", ",", "5"}], "]"}], ",",
' O% m2 L+ B# r/ S3 X0 x( S( M0 ? RowBox[{"CM", "[",
1 s" @( W2 E8 w9 W5 r. _/ \0 h( A9 ~ RowBox[{"55", ",", "6"}], "]"}], ",",
9 Q4 z$ d; A1 Y$ P+ h RowBox[{"CM", "[", ) p% a% U! p, Q. D) N
RowBox[{"55", ",", "7"}], "]"}], ",", ) u5 q! F8 ]' R* n# [& Z8 V2 Y: d! x
RowBox[{"CM", "[",
$ z6 _! r% }3 U/ i8 V, G5 }" y: K RowBox[{"55", ",", "8"}], "]"}], ",",
) g% c9 M; D% Z0 y RowBox[{"CM", "[", * {% h8 A4 X& }1 B! B3 o
RowBox[{"55", ",", "9"}], "]"}]}], "}"}], ",",
' d) c: T! X! B/ t RowBox[{"{",
5 N* \3 h2 h5 `5 J RowBox[{- c8 I+ F+ s4 X8 X8 s
RowBox[{"CM", "[", . H, Y" h- v1 {" {' K
RowBox[{"56", ",", "1"}], "]"}], ",",
& ]; D! v. D2 d( p$ U/ |. M RowBox[{"CM", "[", 7 J) d. O! A4 d0 V; C0 ^
RowBox[{"56", ",", "2"}], "]"}], ",", 8 {; D9 B& w% s) K# y
RowBox[{"CM", "[", % p* [ Y* t( {2 R( Z+ z0 w
RowBox[{"56", ",", "3"}], "]"}], ",", 2 u. B i6 f/ K* h; J: I
RowBox[{"CM", "[", 6 p, z. E1 j$ P( h' y
RowBox[{"56", ",", "4"}], "]"}], ",", 3 {6 M9 V: D' d$ M+ y0 C0 Q
RowBox[{"CM", "[", ! {1 A4 ^* q, I4 Q
RowBox[{"56", ",", "5"}], "]"}], ",",
7 h+ k+ ?; q. m% v$ I) N) P RowBox[{"CM", "[", c) X! [! T2 x+ w5 R' }
RowBox[{"56", ",", "6"}], "]"}], ",", + W- D7 `0 n3 K1 k, c6 A1 w
RowBox[{"CM", "[",
$ m4 x2 r# j6 f0 Z& {$ ?& c/ R RowBox[{"56", ",", "7"}], "]"}], ",", 9 H+ _2 u8 |5 Y6 K
RowBox[{"CM", "[", ! [" \. t- _- I& @; F! a; z) e
RowBox[{"56", ",", "8"}], "]"}], ",",
! [5 P$ f5 b( l: k+ D+ n4 b RowBox[{"CM", "[", ; k% b6 M& k) X f' D
RowBox[{"56", ",", "9"}], "]"}]}], "}"}], ",", " J4 R1 V9 t/ ]+ q5 L0 l! k9 J, V
RowBox[{"{", C6 z5 ~( |6 y" q! i$ s7 ^
RowBox[{
) l: U8 Y; J9 o, [5 z# T RowBox[{"CM", "[", 6 d! k0 `" J: r/ I+ R8 U2 Y
RowBox[{"57", ",", "1"}], "]"}], ",", " H7 d9 x7 f! G
RowBox[{"CM", "[", & v9 J' Z/ f2 h. k! R
RowBox[{"57", ",", "2"}], "]"}], ",",
7 q0 ?! t" X" [! m) I( O RowBox[{"CM", "[", ) j8 M+ B4 |. Z. T
RowBox[{"57", ",", "3"}], "]"}], ",", 7 X* x t( P( Q8 V: g5 @& X% [3 n5 r
RowBox[{"CM", "[", : n# t7 x( l% d1 V' X4 d
RowBox[{"57", ",", "4"}], "]"}], ",",
' j k/ ?# O- w; b+ b2 _* l/ J/ T RowBox[{"CM", "[",
) V4 Z& u: V; R2 W RowBox[{"57", ",", "5"}], "]"}], ",",
; e; m( l2 K1 y) k# J# i1 z' E RowBox[{"CM", "[", - {1 x M* r; z2 f4 s* \ ]
RowBox[{"57", ",", "6"}], "]"}], ",", 5 m' O9 B: L0 A
RowBox[{"CM", "[", / J3 z7 d/ x/ S7 t% C, `7 \
RowBox[{"57", ",", "7"}], "]"}], ",", ; S4 ], j* x# J( [; o- u$ M
RowBox[{"CM", "[",
( f$ [$ H" ?- v$ u4 d) U RowBox[{"57", ",", "8"}], "]"}], ",", ; U* t4 w. b' F
RowBox[{"CM", "[",
9 s' w/ g, J7 \9 | RowBox[{"57", ",", "9"}], "]"}]}], "}"}], ",",
3 o) C; D1 Z. [, n' D$ T4 ] RowBox[{"{",
. R/ Q" V1 ]5 H RowBox[{
5 x# d! Z6 N9 y b3 A RowBox[{"CM", "[",
" s% G+ j! t2 {) ] RowBox[{"58", ",", "1"}], "]"}], ",",
; ?) }$ Y% e r: o* w0 a RowBox[{"CM", "[",
w& @4 P$ m4 ` RowBox[{"58", ",", "2"}], "]"}], ",",
; p+ {& n" P% U3 t RowBox[{"CM", "[", 0 e! F% Z3 q- Z' s3 U
RowBox[{"58", ",", "3"}], "]"}], ",", 3 ]& O: w1 h6 N* Q; }6 ?" l% M
RowBox[{"CM", "[",
# M, J" C6 `# e; g) z( d1 F* T RowBox[{"58", ",", "4"}], "]"}], ",",
( e" h5 K) S. I. A4 S. w RowBox[{"CM", "[",
4 V; P; ?' w" k1 S) ]2 ~4 v: b } RowBox[{"58", ",", "5"}], "]"}], ",", 2 p1 W3 \+ r+ z$ W: o: L' v
RowBox[{"CM", "[", 6 F1 X: y# f+ {( ~+ E
RowBox[{"58", ",", "6"}], "]"}], ",",
, _( r% o! I+ ^4 r% p RowBox[{"CM", "[", / z' s/ m! g; x0 \8 X" ]$ D
RowBox[{"58", ",", "7"}], "]"}], ",", . o) c. Y& ^7 }* S, L
RowBox[{"CM", "[", , G: S# e, e; M/ [8 O2 [$ k: l
RowBox[{"58", ",", "8"}], "]"}], ",",
, `1 J! l& P: V3 J; b8 M RowBox[{"CM", "[", 4 [, l+ `: x/ |! Y3 X7 _2 a
RowBox[{"58", ",", "9"}], "]"}]}], "}"}], ",", " l) M, D6 u. q7 j
RowBox[{"{",
1 C& a& _, q; i$ D3 Z4 K" T+ E+ @4 l RowBox[{
2 y/ U' a! c/ p% D0 k RowBox[{"CM", "[", : T0 z. w6 {; \$ I" _7 ]/ ^8 Z
RowBox[{"59", ",", "1"}], "]"}], ",", ; L% R9 B5 E& |4 w1 S, I# B
RowBox[{"CM", "[",
) ^$ U+ ^& P: W: w. R$ P5 ^ RowBox[{"59", ",", "2"}], "]"}], ",", 4 p; j$ ~0 e% |9 t q% i6 a
RowBox[{"CM", "[", $ U. ?5 l0 ~3 n" y$ Q& d. C
RowBox[{"59", ",", "3"}], "]"}], ",", . j/ b% q( o, f/ A3 M
RowBox[{"CM", "[",
, f( E* P0 [9 c+ y RowBox[{"59", ",", "4"}], "]"}], ",", , y7 Q( F: F7 D; u
RowBox[{"CM", "[", + n- s% h% i: T! }4 }- x2 m" N
RowBox[{"59", ",", "5"}], "]"}], ",", 4 T5 P8 u% N3 B, L
RowBox[{"CM", "[",
; A/ N, X6 K+ |* I( u0 v RowBox[{"59", ",", "6"}], "]"}], ",",
4 ~# d: ]7 v) F1 K8 h( I RowBox[{"CM", "[",
+ K. E# `. W6 { J+ } RowBox[{"59", ",", "7"}], "]"}], ",",
6 o2 Q; {% E$ j; R$ L RowBox[{"CM", "[", 9 Z( U t$ d4 O' h' F9 q
RowBox[{"59", ",", "8"}], "]"}], ",",
' t. p4 q3 ?2 H/ s# w RowBox[{"CM", "[", + Z0 x. T+ l3 S- N' y8 A
RowBox[{"59", ",", "9"}], "]"}]}], "}"}], ",",
n# \! j7 E: @9 N3 W RowBox[{"{", . T( X2 o4 B! i* T* g
RowBox[{0 P% x5 Z) i i X
RowBox[{"CM", "[",
( d: X2 B0 b3 D RowBox[{"60", ",", "1"}], "]"}], ",",
! P" {, n" b- l: p6 j& {. l0 [ RowBox[{"CM", "[",
8 A, l. ~: s" }5 u' Y0 |1 m RowBox[{"60", ",", "2"}], "]"}], ",",
7 ?* }* m! o' L1 ^1 ] RowBox[{"CM", "[", % n5 n8 [# R8 k( y4 [. T% d
RowBox[{"60", ",", "3"}], "]"}], ",", 7 _ x# \7 [2 ]! A+ I) Y: V
RowBox[{"CM", "[", 7 G- P1 o0 S6 G) \
RowBox[{"60", ",", "4"}], "]"}], ",", * L' Y! T1 s# g3 z0 A3 p: y; ^
RowBox[{"CM", "[", ! E; P; z7 s' q3 w6 ^' [
RowBox[{"60", ",", "5"}], "]"}], ",",
6 _% ?1 f8 H9 w$ u) M$ E3 a" H f RowBox[{"CM", "[", : D# \3 N6 \1 v' s7 w$ }* a) ~
RowBox[{"60", ",", "6"}], "]"}], ",", ! f! k6 D, E r {
RowBox[{"CM", "[",
. N% _8 V; Y% p/ X6 z3 I RowBox[{"60", ",", "7"}], "]"}], ",",
. Y+ E4 c& v% C7 A7 Q RowBox[{"CM", "[", ( e! G' X4 H9 ]( U
RowBox[{"60", ",", "8"}], "]"}], ",",
8 M$ v' p4 Y: V9 b! @3 e9 G8 q# u RowBox[{"CM", "[",
% f4 W% F8 C5 A- R/ z1 e; N RowBox[{"60", ",", "9"}], "]"}]}], "}"}], ",", 6 Y0 Z0 Y5 y% @
RowBox[{"{",
$ V. Y, R2 M$ f5 E+ T RowBox[{
# ~) S9 z) L) G RowBox[{"CM", "[",
* d$ O5 w/ g: ~2 K RowBox[{"61", ",", "1"}], "]"}], ",",
" w7 E; Z6 V8 y: {$ M+ J RowBox[{"CM", "[", P/ h$ V/ ?' C1 d
RowBox[{"61", ",", "2"}], "]"}], ",", # e1 m* y2 p7 `3 ]
RowBox[{"CM", "[", ( J* R% I( g! @# {0 Z9 I; n9 Y
RowBox[{"61", ",", "3"}], "]"}], ",", ) U) B6 b t- n
RowBox[{"CM", "[", % p) P% i, y3 s( G, i' q
RowBox[{"61", ",", "4"}], "]"}], ",", ! P' `: f% K+ l2 b. Y P
RowBox[{"CM", "[",
! I9 w( I1 A/ D4 h6 n7 k RowBox[{"61", ",", "5"}], "]"}], ",",
7 F- w; g% M1 M RowBox[{"CM", "[", h7 |& h c/ K* y9 T) Q3 N
RowBox[{"61", ",", "6"}], "]"}], ",", + v5 P+ K/ i& n" M6 n* K) W/ B
RowBox[{"CM", "[", 0 F7 X! ? H9 x9 D. I* m
RowBox[{"61", ",", "7"}], "]"}], ",", ( X( H6 q/ V3 d2 j# u
RowBox[{"CM", "[", J9 d U" m7 V* y3 P
RowBox[{"61", ",", "8"}], "]"}], ",",
; ]: P. r/ o6 H: I8 z9 \3 V0 V$ m: s RowBox[{"CM", "[", 8 _$ x0 {- n5 |& `$ @! P+ U
RowBox[{"61", ",", "9"}], "]"}]}], "}"}], ",",
( E3 T' p' [& x- D6 C0 L% X; v( B RowBox[{"{",
6 L9 h6 O! s0 a* n$ d% ^ RowBox[{
* Z% Z+ S+ m! q. Z0 [5 @0 @2 x" V: Z RowBox[{"CM", "[", 7 f! `) H& w3 Y0 I
RowBox[{"62", ",", "1"}], "]"}], ",",
5 w9 C/ A( `- A1 [" F& N6 C RowBox[{"CM", "[",
' w' R I# I) i9 t4 } RowBox[{"62", ",", "2"}], "]"}], ",",
2 H9 \+ _: ^, g1 X6 X- { RowBox[{"CM", "[",
' }$ U1 D- ~. y- K RowBox[{"62", ",", "3"}], "]"}], ",", 8 v* ?8 t9 D$ V" a/ v% u
RowBox[{"CM", "[", # [2 g4 q- Q) e; u x5 G( e( }
RowBox[{"62", ",", "4"}], "]"}], ",",
: T: f/ f+ }& c9 g7 N- ~ RowBox[{"CM", "[",
# |8 G9 }9 O2 v/ I/ j# H1 k: Q RowBox[{"62", ",", "5"}], "]"}], ",", + n5 H9 F* p/ i- ^8 L( m
RowBox[{"CM", "[",
A6 j2 g _, D0 n" R$ R, W RowBox[{"62", ",", "6"}], "]"}], ",", n3 X: E B/ m( g! D# q# J8 x
RowBox[{"CM", "[",
( M4 |# y+ q0 E7 @4 o. f* X RowBox[{"62", ",", "7"}], "]"}], ",", 6 v/ m% c/ a6 H0 ^
RowBox[{"CM", "[", 5 ]4 p- d% U6 E. t0 g
RowBox[{"62", ",", "8"}], "]"}], ",",
3 h7 r/ ^* K% o4 g1 U8 b RowBox[{"CM", "[", 4 k! F s# ~% { a7 G; m6 v; _! W
RowBox[{"62", ",", "9"}], "]"}]}], "}"}], ",",
* ~# V$ k& A# r/ n/ u3 W RowBox[{"{", 4 l6 t9 ~. ~- }7 i# \! \3 N
RowBox[{" I% t! c( ?8 u- X5 d/ g
RowBox[{"CM", "[", D+ ~3 B; p/ ~, L( n
RowBox[{"63", ",", "1"}], "]"}], ",",
. a$ ^! a2 b/ \% [ RowBox[{"CM", "[",
, g6 W3 P& p% t4 ~; X2 N RowBox[{"63", ",", "2"}], "]"}], ",",
6 k! ~/ b; j" A2 x RowBox[{"CM", "[",
! L( d, h8 E+ |: M/ Y( I: M9 ^ RowBox[{"63", ",", "3"}], "]"}], ",",
+ C7 N9 `9 [" A0 P9 P4 _ RowBox[{"CM", "[", , U& a4 J0 F1 n! D8 O9 M
RowBox[{"63", ",", "4"}], "]"}], ",",
! n7 t3 A, ^ v1 w RowBox[{"CM", "[",
, U; c1 _# T4 f8 x& q RowBox[{"63", ",", "5"}], "]"}], ",", . n# G3 a- b: Q) s( d, Q1 A
RowBox[{"CM", "[", , W0 o3 ?4 S# g1 `0 E
RowBox[{"63", ",", "6"}], "]"}], ",",
3 ^9 t e8 g+ V8 n, ~6 F RowBox[{"CM", "[", 6 I9 u. i/ R2 e
RowBox[{"63", ",", "7"}], "]"}], ",", 6 `+ y3 Q! t9 j) U O& L
RowBox[{"CM", "[", . P* B, L" T9 j- h/ ]
RowBox[{"63", ",", "8"}], "]"}], ",", 2 v8 a$ A9 a6 }/ y
RowBox[{"CM", "[",
6 }; q3 \$ c9 f9 A RowBox[{"63", ",", "9"}], "]"}]}], "}"}], ",", + }5 ~0 I9 _3 g1 ]9 H, u) X
RowBox[{"{", ! i- Y+ `. |) A* U& x: O
RowBox[{
8 l# J! D' p5 Q( R9 N* T" W4 T- X RowBox[{"CM", "[",
4 M) t, T F# S5 f; ^( f RowBox[{"64", ",", "1"}], "]"}], ",",
: w# Q2 B( n0 `( w" u7 x RowBox[{"CM", "[",
) J) n& D4 g+ P# U RowBox[{"64", ",", "2"}], "]"}], ",",
3 m$ C3 u/ o* v8 ?- Y RowBox[{"CM", "[", ! t( {. D: N2 M% m {
RowBox[{"64", ",", "3"}], "]"}], ",", 4 z& A1 Q2 q- P% \! k7 @
RowBox[{"CM", "[",
3 h, [, u8 ]& m' u3 o9 X: W RowBox[{"64", ",", "4"}], "]"}], ",", ( d% ~& h8 }( F
RowBox[{"CM", "[",
; h. _7 a* F) o! h/ m# `7 Z* j! d RowBox[{"64", ",", "5"}], "]"}], ",",
$ x4 F+ I3 B: _$ x RowBox[{"CM", "[", 0 g" b$ l! j/ ]. e+ N/ [
RowBox[{"64", ",", "6"}], "]"}], ",", $ x' n3 V3 x1 d- Z% s
RowBox[{"CM", "[",
: T W9 Z. O1 E; J3 w RowBox[{"64", ",", "7"}], "]"}], ",",
& D- m6 _/ a% q' a1 z' |% e RowBox[{"CM", "[", % J! i& I; M E* l
RowBox[{"64", ",", "8"}], "]"}], ",",
( m& P: _6 J6 R0 I+ I, n6 ^. J RowBox[{"CM", "[",
" K, E7 u$ R) E) `* M) o RowBox[{"64", ",", "9"}], "]"}]}], "}"}], ",", + n' c8 e* g8 R. g! G) X9 b
RowBox[{"{", $ d8 s+ A* f$ w9 G W3 E0 L
RowBox[{5 u4 a) |; c' b! y; o
RowBox[{"CM", "[", 0 v" V2 B& U* X, \4 j; i
RowBox[{"65", ",", "1"}], "]"}], ",", 6 ~$ W8 W) F) P' f }% K# K
RowBox[{"CM", "[", 6 o8 @, `( ^+ m8 |- X5 S
RowBox[{"65", ",", "2"}], "]"}], ",", " [ `4 o5 ~$ a9 W$ y8 L
RowBox[{"CM", "[",
, _* w. g! C3 s: ]: E4 m( [ RowBox[{"65", ",", "3"}], "]"}], ",", . @' r% y/ h6 U
RowBox[{"CM", "[",
0 F1 Z2 D5 ^& G% l9 h4 v RowBox[{"65", ",", "4"}], "]"}], ",",
7 _, r4 v3 I8 R! K8 A& c2 Y RowBox[{"CM", "[",
* l) V2 E, k0 h/ y RowBox[{"65", ",", "5"}], "]"}], ",",
; r6 p3 m# z& g RowBox[{"CM", "[", . u, l( q+ Z Y: A
RowBox[{"65", ",", "6"}], "]"}], ",",
' I5 F$ A6 v* O. A RowBox[{"CM", "[",
! b# _1 i- U' H0 U7 z! U RowBox[{"65", ",", "7"}], "]"}], ",", 7 {( l9 d7 v$ w7 |/ K
RowBox[{"CM", "[", # Q$ P) O2 V/ T3 r3 J
RowBox[{"65", ",", "8"}], "]"}], ",", 5 O; i2 @$ j0 X8 c3 T. P7 a
RowBox[{"CM", "[", 9 r8 W8 V% ^- ]1 _. u D
RowBox[{"65", ",", "9"}], "]"}]}], "}"}], ",", * K" \7 d3 f0 [! x1 C
RowBox[{"{",
* n+ D1 o7 N) P4 A( q9 ~+ ` z RowBox[{ |7 g: Y1 ~1 ^# M
RowBox[{"CM", "[",
; F7 E# Z {& n) z) t RowBox[{"66", ",", "1"}], "]"}], ",", + H, z5 [3 `# Y* `/ ]
RowBox[{"CM", "[",
$ g3 C3 `" O/ F# U, G8 I3 S RowBox[{"66", ",", "2"}], "]"}], ",", ) D! N" I- p0 K2 e$ Z2 e
RowBox[{"CM", "[", 2 V$ T& M( b& E7 ?$ ^9 T6 l* `
RowBox[{"66", ",", "3"}], "]"}], ",",
0 Q6 Z- K' j8 X# d& q RowBox[{"CM", "[",
, |. R$ k6 {) |2 x# B RowBox[{"66", ",", "4"}], "]"}], ",", 3 Q+ r0 X- A: B$ Q2 p
RowBox[{"CM", "[",
: N0 w/ X, T& I7 W# A RowBox[{"66", ",", "5"}], "]"}], ",",
3 A* K/ K" `& u3 F9 c RowBox[{"CM", "[",
. K& S, }1 q) r' A! H6 C RowBox[{"66", ",", "6"}], "]"}], ",",
9 a5 W' G4 K4 d8 e RowBox[{"CM", "[",
9 C9 ?- ~$ z# q, @' `* B5 K. G RowBox[{"66", ",", "7"}], "]"}], ",",
: Y0 M4 G* e+ ]2 H. V' z% B RowBox[{"CM", "[", # ?2 L/ w9 A. l. G
RowBox[{"66", ",", "8"}], "]"}], ",", ; j0 Z1 w: T0 A2 H. ?
RowBox[{"CM", "[", # i# G1 c( B1 y# X, L2 e/ s7 {
RowBox[{"66", ",", "9"}], "]"}]}], "}"}], ",",
' g! D2 w( w( w' Q0 F RowBox[{"{",
7 Q, j3 M. \1 |$ J/ ] s1 l$ G& b RowBox[{
/ o- ?4 C! W r. Q* q% a" m& x' {3 l RowBox[{"CM", "[",
1 a3 v# S8 c+ |1 `- t9 d RowBox[{"67", ",", "1"}], "]"}], ",", & Q; c/ Y3 o( y5 Z5 ^. e: {
RowBox[{"CM", "[",
( o4 k4 D1 z4 N0 D. p$ }/ O RowBox[{"67", ",", "2"}], "]"}], ",", , ^$ X+ H$ M# H, @ n8 n
RowBox[{"CM", "[", 2 t6 c: h! w1 C
RowBox[{"67", ",", "3"}], "]"}], ",", 8 U0 X4 g1 [) L4 m- h, ^* n
RowBox[{"CM", "[",
' e! n* W. Q* @+ }( R RowBox[{"67", ",", "4"}], "]"}], ",", / H6 A6 S Z0 D' i: H9 x( F% _! C
RowBox[{"CM", "[", 6 i( W: C* \# T1 i3 l! A
RowBox[{"67", ",", "5"}], "]"}], ",", ; Y. W# o4 ^) W* m+ k- n( V. K
RowBox[{"CM", "[", 6 G8 c+ X/ l4 [0 ~
RowBox[{"67", ",", "6"}], "]"}], ",", 1 \, l; {' R: x. r
RowBox[{"CM", "[", + V. |% C( `$ V5 f. Y: w% S2 B
RowBox[{"67", ",", "7"}], "]"}], ",",
; O- I$ c5 ~$ u' n( Q RowBox[{"CM", "[",
6 Z( K/ P* l0 E9 v. i- S RowBox[{"67", ",", "8"}], "]"}], ",",
2 u7 _7 w" g' d3 C/ Z( O2 ` RowBox[{"CM", "[", * ^& ?. r8 ]% J: ]6 c
RowBox[{"67", ",", "9"}], "]"}]}], "}"}], ",",
* b0 S0 E% r2 t3 `+ y* a+ T' W RowBox[{"{", ( X4 X( [# W5 r9 `3 W, m) L/ _1 ]1 u
RowBox[{! B$ X$ D3 i) u! w" l
RowBox[{"CM", "[",
3 q6 d" y( ~; _3 f/ ]% P- v RowBox[{"68", ",", "1"}], "]"}], ",", % \% Q7 |6 s8 d; m% ^+ x
RowBox[{"CM", "[",
) o& u$ L0 u7 e% R& X+ \ RowBox[{"68", ",", "2"}], "]"}], ",",
+ e8 H. {- V3 H# \; s$ `- t RowBox[{"CM", "[",
" ^3 R" a6 k W RowBox[{"68", ",", "3"}], "]"}], ",",
V+ r9 y8 D! [$ Q: P7 m% m RowBox[{"CM", "[", ' _: F' g0 Y% d5 B: `( r
RowBox[{"68", ",", "4"}], "]"}], ",",
& i2 ^+ v/ J, C5 s RowBox[{"CM", "[", g5 L! I6 \5 l( U+ @& P9 l; ?
RowBox[{"68", ",", "5"}], "]"}], ",",
1 q: u" r2 ~3 e1 W! V RowBox[{"CM", "[", 2 l9 G* F& v: p8 T* r8 z$ O1 t
RowBox[{"68", ",", "6"}], "]"}], ",", $ l# [, ]9 ?7 m" a$ p0 K( ?
RowBox[{"CM", "[", 0 _% C2 N+ ^5 B y4 {7 ^& m
RowBox[{"68", ",", "7"}], "]"}], ",", 0 ]& D& \/ |( x$ [/ _
RowBox[{"CM", "[",
# i+ }, {& T7 b RowBox[{"68", ",", "8"}], "]"}], ",",
4 r) M% C K* I' i D, Z RowBox[{"CM", "[",
5 _" q. {1 G8 b. i( b, A8 h) E5 _ RowBox[{"68", ",", "9"}], "]"}]}], "}"}], ",", ; | I. \( l( o" \7 ~ j" |
RowBox[{"{",
! q, ]. r4 E& ~9 ] RowBox[{ s1 j5 K# `4 c9 Y# N7 Q6 G7 E
RowBox[{"CM", "[", 0 x5 B* d- E5 L0 W
RowBox[{"69", ",", "1"}], "]"}], ",",
( ^& u1 t/ V, b RowBox[{"CM", "[", $ l& h" H! w o
RowBox[{"69", ",", "2"}], "]"}], ",",
, }% n: g* J T6 \1 w RowBox[{"CM", "[", 3 O! T. U7 H0 b# Q$ K+ @" s
RowBox[{"69", ",", "3"}], "]"}], ",",
) d& q8 z! r9 _" x9 I RowBox[{"CM", "[",
8 A; o' Z, v( _4 ` H& E3 b' P; e1 O9 r RowBox[{"69", ",", "4"}], "]"}], ",", - N4 {5 p: C" Y. ^
RowBox[{"CM", "[",
3 V/ f1 o- X2 F0 {' L: r, W RowBox[{"69", ",", "5"}], "]"}], ",", & W {7 `0 J: M0 T9 g0 w5 C8 L* T
RowBox[{"CM", "[",
# t9 O. |+ i* }+ B) m; e RowBox[{"69", ",", "6"}], "]"}], ",",
3 u* ]( F* h& a# X+ x( O# c; m- X RowBox[{"CM", "[", / O4 n$ Q6 L% F1 q% y- p; |
RowBox[{"69", ",", "7"}], "]"}], ",", ( @* J9 j" L D) c3 t4 {
RowBox[{"CM", "[",
- _7 d% m# P1 s1 D RowBox[{"69", ",", "8"}], "]"}], ",", 8 A4 G9 i$ ~6 q5 r3 s2 ]
RowBox[{"CM", "[",
% l$ C9 N, S; f" v RowBox[{"69", ",", "9"}], "]"}]}], "}"}], ",",
2 Z& J0 {+ {. R% z- O RowBox[{"{",
( l2 b$ v" k' }( Y9 ] RowBox[{6 N1 X q$ C; C; X5 I) k
RowBox[{"CM", "[", " U* W! j& N3 G5 d6 ]4 B* V
RowBox[{"70", ",", "1"}], "]"}], ",", + O( n6 r# D0 x3 y' P' J
RowBox[{"CM", "[",
* g3 Y, R e8 }! c RowBox[{"70", ",", "2"}], "]"}], ",", 0 K& ^# |0 X! k" d0 h
RowBox[{"CM", "[", # A1 {8 \" S5 q% O0 T
RowBox[{"70", ",", "3"}], "]"}], ",",
( U; g/ \% i9 ~+ P3 M- _ RowBox[{"CM", "[",
" c, |) }/ ^6 m; q( x RowBox[{"70", ",", "4"}], "]"}], ",",
) Z1 Z; J" ~9 J7 t6 h! s RowBox[{"CM", "[",
! z& j% T' g* [ RowBox[{"70", ",", "5"}], "]"}], ",", " F5 z) E. l2 \. O: k0 l9 V
RowBox[{"CM", "[", # L+ B2 ^* n) M1 u9 i
RowBox[{"70", ",", "6"}], "]"}], ",",
9 K' u/ P# J& J0 v; L) F/ } RowBox[{"CM", "[",
2 M' `5 R7 T: o& h7 U1 \$ V* T RowBox[{"70", ",", "7"}], "]"}], ",", 9 C; A3 m: }5 V2 E! E/ r1 l& r4 }
RowBox[{"CM", "[",
8 d# g' l0 R- c& Y% C RowBox[{"70", ",", "8"}], "]"}], ",", 0 L4 I! ^* s- D, ?! U- I9 N( g! N
RowBox[{"CM", "[", + |( ^. o6 X8 j
RowBox[{"70", ",", "9"}], "]"}]}], "}"}], ",", 4 z% ^; I" w3 D* L. r. c
RowBox[{"{",
. {, v; X( Z+ V RowBox[{
) Y( G2 }" I1 D RowBox[{"CM", "[",
" ]" x* R/ Y t+ k2 U8 K* N RowBox[{"71", ",", "1"}], "]"}], ",", & j/ ?. W$ l4 M( ? d- q; P, b+ ]
RowBox[{"CM", "[",
3 l' k0 T, U5 w! z- e; Y) z) J RowBox[{"71", ",", "2"}], "]"}], ",",
% p: h6 u- I8 r- N* m RowBox[{"CM", "[",
, b" ^ P) A9 m RowBox[{"71", ",", "3"}], "]"}], ",",
8 ^( B; A% [, {% Y, U2 V6 W0 P$ I RowBox[{"CM", "[",
( H7 [/ y7 ^) y: [+ e RowBox[{"71", ",", "4"}], "]"}], ",", P- h3 p) V6 v
RowBox[{"CM", "[", $ B N [% ^4 Q8 F& X
RowBox[{"71", ",", "5"}], "]"}], ",",
7 o& }7 V% T( {2 _- Q' x RowBox[{"CM", "[", % Y# C9 F% g3 q/ O+ N. l
RowBox[{"71", ",", "6"}], "]"}], ",", $ q% ?. Z, @- d2 W, |1 C
RowBox[{"CM", "[", 0 {6 U8 o( F! P, {$ Y4 p. a
RowBox[{"71", ",", "7"}], "]"}], ",", 6 u3 P7 O* v+ \, B& R! Z8 @
RowBox[{"CM", "[", % ~% U! j* x( d/ i2 C
RowBox[{"71", ",", "8"}], "]"}], ",", : g2 e; T% t& r! d
RowBox[{"CM", "[",
/ F" y: w) c5 v( g5 i RowBox[{"71", ",", "9"}], "]"}]}], "}"}], ",", * X7 K$ D( P7 u* M8 q+ a
RowBox[{"{",
5 y4 b6 K% {/ z( u( d! E% w RowBox[{
% r' @* @# i5 R9 o RowBox[{"CM", "[",
# T5 c- I! n7 F( B RowBox[{"72", ",", "1"}], "]"}], ",",
* J% L4 R( X" _ RowBox[{"CM", "[", ( M. @& Q0 x5 s5 {
RowBox[{"72", ",", "2"}], "]"}], ",", : p* T( a6 i! J" t2 F( R. |/ X4 {, S8 |' N
RowBox[{"CM", "[",
! j6 V+ a$ j7 [ V& Q. h1 D RowBox[{"72", ",", "3"}], "]"}], ",",
1 e$ L! G8 _' r5 a! I RowBox[{"CM", "[", % L2 J( y( P- J( \) @+ O
RowBox[{"72", ",", "4"}], "]"}], ",", $ j! }5 }& i4 T! R, H
RowBox[{"CM", "[", 0 ?3 m3 Q4 i6 O& X0 |/ n% g
RowBox[{"72", ",", "5"}], "]"}], ",", , c& T. v+ r5 Y( o ^, |
RowBox[{"CM", "[",
9 m0 w8 Y0 m: o# |$ I/ o! C1 u RowBox[{"72", ",", "6"}], "]"}], ",",
% r4 T# }7 Z: P RowBox[{"CM", "[", 2 m) ~5 P" a6 W; u0 e
RowBox[{"72", ",", "7"}], "]"}], ",",
3 E1 I0 F/ b" x3 C/ ^/ T RowBox[{"CM", "[", 5 f+ C% n3 `4 Y+ ^* a
RowBox[{"72", ",", "8"}], "]"}], ",",
8 A/ V" o7 {' X. l( C RowBox[{"CM", "[", : ~! t, @* t2 |3 p/ L
RowBox[{"72", ",", "9"}], "]"}]}], "}"}], ",",
* n P# j) o8 n; B RowBox[{"{",
& e/ S& [( H7 N3 W RowBox[{& G5 k: I( Y- R* @
RowBox[{"CM", "[", 8 {1 H( [5 |* P9 y- p
RowBox[{"73", ",", "1"}], "]"}], ",",
" d/ {' ~7 q5 H9 f4 n9 G) x/ F6 k RowBox[{"CM", "[", . F- O4 K$ j3 P
RowBox[{"73", ",", "2"}], "]"}], ",", 8 k* j7 m, z' ^ s# _5 b8 Z$ k
RowBox[{"CM", "[",
3 ~0 O1 u _+ r RowBox[{"73", ",", "3"}], "]"}], ",",
+ R' k) G" d* `+ h& D6 H RowBox[{"CM", "[", 1 Z3 s( B0 p: [, F9 Q
RowBox[{"73", ",", "4"}], "]"}], ",", 5 ~% C7 T5 d/ f
RowBox[{"CM", "[",
* w& Q1 Q& C$ u! E m& V* r RowBox[{"73", ",", "5"}], "]"}], ",", " ~+ \/ f& X' }5 X y& g) [& W
RowBox[{"CM", "[", " f" ~5 z0 m! w7 a# k4 I
RowBox[{"73", ",", "6"}], "]"}], ",",
) }& N9 f9 o$ K; O& Z+ ]* x RowBox[{"CM", "[", # ~5 c& W$ k4 E t! }( x1 ^
RowBox[{"73", ",", "7"}], "]"}], ",", ( X* b' u7 X% z! ^/ e7 Y
RowBox[{"CM", "[", 4 [! B. I0 I1 e' e7 z* i: t
RowBox[{"73", ",", "8"}], "]"}], ",",
! h7 {- P: \$ Q0 j! J, b RowBox[{"CM", "[", - k/ Y1 t) Z$ S9 \# S( @8 U/ J. b
RowBox[{"73", ",", "9"}], "]"}]}], "}"}], ",", / u7 @% j9 w: _2 H
RowBox[{"{", . F! x' e; C4 G2 L" U3 `
RowBox[{) q, B8 k- d4 X- w- c
RowBox[{"CM", "[",
0 k" u4 Q8 K2 f$ P5 j4 Z* P RowBox[{"74", ",", "1"}], "]"}], ",", - o# ?' V: A6 i" Q# h: h% t8 ?# ]) |
RowBox[{"CM", "[", / \% q0 P0 ]% q
RowBox[{"74", ",", "2"}], "]"}], ",", 8 s9 I! V1 O! ^0 @" n, D% E9 g
RowBox[{"CM", "[",
3 K6 @& R5 I0 E6 L RowBox[{"74", ",", "3"}], "]"}], ",",
& s& Q+ ~% B- p9 v RowBox[{"CM", "[", 5 @& `1 Y7 y6 m8 p, S1 J* H1 z& K# [2 I
RowBox[{"74", ",", "4"}], "]"}], ",", * V1 O, o( a* \4 H" l( F/ ~! e
RowBox[{"CM", "[", . R8 ?0 Y8 r- ^$ m; p! R+ f# e
RowBox[{"74", ",", "5"}], "]"}], ",", , l2 C$ O1 u3 d% e2 [& Q
RowBox[{"CM", "[",
. Q: F" L5 ~& ^) i: w RowBox[{"74", ",", "6"}], "]"}], ",", ' p* D& O, [/ A1 r( a
RowBox[{"CM", "[",
3 k, S; L8 j; e4 O! \& F5 O3 I1 K RowBox[{"74", ",", "7"}], "]"}], ",",
3 j& z4 S0 i( j! V" ] RowBox[{"CM", "[",
% G7 ^! Q: i. c RowBox[{"74", ",", "8"}], "]"}], ",",
+ P8 q% }* |7 ?# G/ H+ R RowBox[{"CM", "[", , p4 c/ j8 G! f" N) q3 m$ ?& M g
RowBox[{"74", ",", "9"}], "]"}]}], "}"}], ",", 6 w0 v3 E7 O2 H) r, M/ Q
RowBox[{"{", - ]6 r; q# ^, _- y1 h! Y1 s3 o
RowBox[{
Y) M2 @6 C" ?9 Q; _4 D c) C( U RowBox[{"CM", "[",
. X# w& t5 R$ x RowBox[{"75", ",", "1"}], "]"}], ",",
5 `8 U2 s- W# N' g RowBox[{"CM", "[", $ ^9 V+ R) `1 H5 @$ Z4 V: d
RowBox[{"75", ",", "2"}], "]"}], ",", % _! d; t5 k" ]- z6 W
RowBox[{"CM", "[",
2 k/ |, w2 I, t0 p9 A RowBox[{"75", ",", "3"}], "]"}], ",",
# m, W! X( [. n. j! H6 |$ ?3 ] RowBox[{"CM", "[",
# o- ^5 D* M" ~ RowBox[{"75", ",", "4"}], "]"}], ",",
3 M, E& l# v4 a3 Q1 R5 ] RowBox[{"CM", "[", 1 I% f n! m* e- ?9 b' p
RowBox[{"75", ",", "5"}], "]"}], ",",
* F& e6 i7 p$ C( C5 o, }: X3 t2 O RowBox[{"CM", "[",
" B5 \2 B% L0 h) m* M6 ~) X- D5 g RowBox[{"75", ",", "6"}], "]"}], ",", 7 s: ^. i; J' `+ I
RowBox[{"CM", "[",
! z7 o/ ~ v( y3 X" H0 O2 { RowBox[{"75", ",", "7"}], "]"}], ",",
( N2 U8 N. Z2 ? RowBox[{"CM", "[", ! ^$ O+ p& \0 x+ o. H/ O
RowBox[{"75", ",", "8"}], "]"}], ",", 4 m# F- D- `1 ]/ J0 u3 \& P' v
RowBox[{"CM", "[",
1 p( R4 i& k- z4 b. ]6 y/ o RowBox[{"75", ",", "9"}], "]"}]}], "}"}], ",",
* i& V$ s- {9 R* K" f, G+ q3 c RowBox[{"{",
, @2 i7 ~7 T( A: G3 y2 {6 }) x. s$ P RowBox[{0 V% D% T% C8 Y* d) z6 C c# R) \. [
RowBox[{"CM", "[",
+ V/ ~- V5 R! ?# R+ ` RowBox[{"76", ",", "1"}], "]"}], ",",
2 X! Y. z8 B5 j RowBox[{"CM", "[",
2 O! U6 p: f& W! l% ~: k3 e RowBox[{"76", ",", "2"}], "]"}], ",", : Z( o1 w4 K c: \, q" D: y5 c
RowBox[{"CM", "[",
4 @; W! b" ]2 b1 ^* d, t RowBox[{"76", ",", "3"}], "]"}], ",",
* ]% y6 E2 h* n+ q+ C* Y RowBox[{"CM", "[",
0 k5 g2 U( d) g$ I3 |9 J) N6 E; i RowBox[{"76", ",", "4"}], "]"}], ",",
5 y) ]# N5 M- H( l3 c# E- t: K RowBox[{"CM", "[", ( g( u& l1 O/ d0 E; c
RowBox[{"76", ",", "5"}], "]"}], ",",
- r8 W4 U% F9 u5 { RowBox[{"CM", "[",
: p/ e( c7 t/ P9 w5 o* Q# q( m RowBox[{"76", ",", "6"}], "]"}], ",", 5 N9 d( i. i+ Q
RowBox[{"CM", "[",
6 M/ ]: H b0 @, d' `4 I' g3 M RowBox[{"76", ",", "7"}], "]"}], ",",
3 B' i% }8 `+ w$ [% d3 F RowBox[{"CM", "[",
/ A/ ~7 A" b0 a3 M3 v RowBox[{"76", ",", "8"}], "]"}], ",", ) D9 B: B* t( o! [! C
RowBox[{"CM", "[", ( V- M6 J% G1 N9 x0 Q
RowBox[{"76", ",", "9"}], "]"}]}], "}"}], ",",
/ A9 _- U9 @9 z RowBox[{"{", % P2 `6 q1 ~" {1 `/ U
RowBox[{
% ]3 Q& ~0 j! m$ {% v2 ]; x4 O- R RowBox[{"CM", "[",
0 l6 x# f1 n. } RowBox[{"77", ",", "1"}], "]"}], ",",
4 @, V7 O0 o' t. M$ q. u! g5 Z RowBox[{"CM", "[",
9 E, |, q: Y: t4 P6 U RowBox[{"77", ",", "2"}], "]"}], ",",
: C8 L& a$ _: T, Z! t5 @# n b RowBox[{"CM", "[", / y5 J. E# }7 b, H
RowBox[{"77", ",", "3"}], "]"}], ",", - m# }8 M1 y- [5 N4 u
RowBox[{"CM", "[",
7 \3 N- w3 @- C6 } RowBox[{"77", ",", "4"}], "]"}], ",",
' i: v7 I* i- O9 T J T0 u RowBox[{"CM", "[",
3 U, }& Z: V& @0 c4 ^ RowBox[{"77", ",", "5"}], "]"}], ",",
$ C$ ~/ s# @" f1 U4 r, m RowBox[{"CM", "[", $ g: f1 B' ]& K6 k; _5 }
RowBox[{"77", ",", "6"}], "]"}], ",",
) }4 _1 A2 U8 t! G* m& L) R5 \ RowBox[{"CM", "[",
& n) {$ G' Y# x& o) S RowBox[{"77", ",", "7"}], "]"}], ",",
& H, F4 E/ h. C9 P$ N1 N) Y7 s/ J RowBox[{"CM", "[",
6 B' _" W4 X. O3 J, \" Q RowBox[{"77", ",", "8"}], "]"}], ",",
q, i8 h, B8 M RowBox[{"CM", "[", 6 N' y) G" D; c- a, h, w, ~1 J$ L
RowBox[{"77", ",", "9"}], "]"}]}], "}"}], ",",
. a- _2 N3 A' `, S0 R( x RowBox[{"{",
! P/ i) i. H! X* {4 N4 c i RowBox[{1 F, @. H; ^3 V/ K4 Y
RowBox[{"CM", "[",
# d2 w9 R9 |4 c: k% F1 |- B RowBox[{"78", ",", "1"}], "]"}], ",",
& ^4 ?4 K# ~' \/ j RowBox[{"CM", "[", + I3 c" V( o) ~9 d4 s% U
RowBox[{"78", ",", "2"}], "]"}], ",",
% |, s. d$ I3 z+ c RowBox[{"CM", "[",
! i8 n6 |* }& n, f; w- O+ ~* k RowBox[{"78", ",", "3"}], "]"}], ",", & l; ?5 x a" |& `0 e9 M; a
RowBox[{"CM", "[", + M& y9 b. s: A9 h( ?
RowBox[{"78", ",", "4"}], "]"}], ",", % j( {' o* _7 e- z& _/ L8 y' Y
RowBox[{"CM", "[", 1 K2 O% q& i9 {; ]' k
RowBox[{"78", ",", "5"}], "]"}], ",",
( n* J8 V7 X2 G RowBox[{"CM", "[",
+ G3 [. P$ m! O3 v7 l! u RowBox[{"78", ",", "6"}], "]"}], ",", + x( H% h3 M' m2 t6 F4 |
RowBox[{"CM", "[", + p; h L3 d7 x0 Q7 {. i0 U' k
RowBox[{"78", ",", "7"}], "]"}], ",",
1 t, {! B0 W9 S7 |2 r1 U RowBox[{"CM", "[",
) A4 R! N I. Z4 y8 I# s RowBox[{"78", ",", "8"}], "]"}], ",", - H& T Z, |8 [4 ?5 Q& I/ }
RowBox[{"CM", "[", - f5 b" ]! }6 k8 k. ]9 Z2 K( o
RowBox[{"78", ",", "9"}], "]"}]}], "}"}], ",",
! d" l$ v2 P; B2 R% s RowBox[{"{",
; {# j3 F/ o3 s RowBox[{% s7 Z3 W; T+ p& e V" {
RowBox[{"CM", "[", # d. V" Q8 G I7 X4 _! a2 j
RowBox[{"79", ",", "1"}], "]"}], ",", 0 R) I4 `) H# ~
RowBox[{"CM", "[", ; ]% e7 }2 n; y
RowBox[{"79", ",", "2"}], "]"}], ",",
. O. z# z& V0 J/ n4 N' G RowBox[{"CM", "[", ) F4 l& H# p; v6 E) Q$ C6 `& n) y# |
RowBox[{"79", ",", "3"}], "]"}], ",",
/ q7 P! M9 w& J' X# ^ RowBox[{"CM", "[", " x8 b% f# D& H/ U7 h, j, |
RowBox[{"79", ",", "4"}], "]"}], ",",
e3 X) ^! g: M# i$ c; u RowBox[{"CM", "[", 6 Y; b' { Y2 y$ v+ V$ T5 D
RowBox[{"79", ",", "5"}], "]"}], ",",
' k& F$ K5 ~$ M- A f. l, J RowBox[{"CM", "[",
9 K: {& b f: }/ z( ?8 t( m RowBox[{"79", ",", "6"}], "]"}], ",", ?: |$ Z! h, V$ t5 J; e4 T2 p
RowBox[{"CM", "[",
0 r0 h* s U% y4 L4 s RowBox[{"79", ",", "7"}], "]"}], ",", ! G! u3 x3 q8 @* m+ M* R8 q8 R3 P
RowBox[{"CM", "[",
" r: k: _2 n$ q3 T7 S RowBox[{"79", ",", "8"}], "]"}], ",",
! f4 ~2 [5 l8 R: P RowBox[{"CM", "[",
7 E& H5 L1 T6 [7 S% {" g. O" B) O RowBox[{"79", ",", "9"}], "]"}]}], "}"}], ",",
* ]! e+ U+ m% }9 j. v7 M" t/ r RowBox[{"{",
# P0 D" y8 a% F6 @" L1 e RowBox[{: @) o- W; E/ ~7 s$ l) i6 s) e
RowBox[{"CM", "[",
( b" P. |6 F- ` RowBox[{"80", ",", "1"}], "]"}], ",",
! v, Z" Q8 X) Z% }- x4 X# N( ^: { RowBox[{"CM", "[",
8 \$ k6 o. a9 W& |$ V9 o RowBox[{"80", ",", "2"}], "]"}], ",", % S$ A# r- W: o0 V( r; c; ~* V
RowBox[{"CM", "[", 0 y) \& u* L: H# M; p
RowBox[{"80", ",", "3"}], "]"}], ",",
9 I4 q: E# _5 p0 R9 x- g$ M2 j RowBox[{"CM", "[",
3 l& E! }4 ^, l! ]+ ? RowBox[{"80", ",", "4"}], "]"}], ",", % }" \$ {! O5 l" q$ Z7 p
RowBox[{"CM", "[", 2 \2 P, @ P2 l `
RowBox[{"80", ",", "5"}], "]"}], ",", ! U3 d; m7 E u, U5 a/ v+ R
RowBox[{"CM", "[", 1 h$ V: G! a# ], b& [
RowBox[{"80", ",", "6"}], "]"}], ",", 2 J3 j8 d1 ] N5 X' V) P* }6 B( ]8 Q
RowBox[{"CM", "[", % m3 ]- @& I6 R# ]1 w+ _& c
RowBox[{"80", ",", "7"}], "]"}], ",", 8 R7 z0 N8 o8 ], t/ G* _
RowBox[{"CM", "[", + t# h7 I* K1 k3 f1 M
RowBox[{"80", ",", "8"}], "]"}], ",", 3 Y& p4 }* A( ?: ^3 `' T
RowBox[{"CM", "[",
7 ~) a' ]7 |) T! k0 T RowBox[{"80", ",", "9"}], "]"}]}], "}"}]}], "}"}]], "Output",( b$ M. ^, n5 J5 o
CellChangeTimes->{3.577844244140625*^9, 3.57784429425*^9, 3.577847845125*^9,
- J3 J5 N1 l3 L" t( D' L 3.57791322703125*^9, 3.577957088820712*^9, 3.5779605002346992`*^9,
# U: F+ s1 t, s 3.578012145828125*^9}]) Y0 c1 g/ _6 v2 d9 x
}, Open ]],1 F- y# k4 w7 Q. P% E
- w3 |) A& k9 Q/ i; uCell[BoxData[
6 E- C9 r5 |) V" V+ c. S! B RowBox[{"For", "[",
2 v( O9 O" D6 @# [6 f; f1 ] RowBox[{2 m6 P/ K* h. {
RowBox[{"i", "=", "1"}], ",", ; G5 a4 e. @- m1 i- P
RowBox[{"i", "\[LessEqual]", "9"}], ",",
4 |; |2 x. y9 J/ E J+ a: o2 a0 s RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
; W# w7 A9 K1 m1 v3 y' |6 [ RowBox[{"For", "[",
4 q4 s/ p5 g1 B# ^8 M# o RowBox[{% o( K' S5 b0 z; f! \ U
RowBox[{"j", "=", "1"}], ",",
+ J/ [9 C4 C, o. B RowBox[{"j", "\[LessEqual]", "80"}], ",", ( u" P4 r6 w3 i
RowBox[{"j", "++"}], ",", "\[IndentingNewLine]",
2 y7 t, Y4 j; J3 B( L4 C* s( L RowBox[{
/ t3 K! c4 Z8 C, F% z6 z RowBox[{' k( ~% ?; J2 F6 }" j) c; T
RowBox[{"CM", "[", + V) s( d. d# `- @* V7 `' a
RowBox[{"j", ",", "i"}], "]"}], "=", "0.0"}], ";"}]}], ! f" U1 y4 U: g8 q, U
"\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]], "Input", u$ k2 J6 d* q; z
CellChangeTimes->{{3.5779132504375*^9, 3.577913285203125*^9}}],8 ?8 V8 e& u4 v5 f3 D
" {) G2 G$ e" \7 L, Y( T% [
Cell[BoxData[6 |' s* E% \9 e7 ]: a u
RowBox[{"For", "[",
4 Y5 Y; [$ o0 @+ ?; P6 E RowBox[{; [9 y; A& b5 m3 M; ^
RowBox[{"i", "=", "1"}], ",", 6 I8 D5 Y! Z( E2 E/ O6 H' v
RowBox[{"i", "\[LessEqual]", "9"}], ",",
& `% v! m. D- b( e2 w4 }' n RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
' G$ G# ` m" }$ r5 F+ f* v$ Y RowBox[{
. H1 ~+ @3 T# {: P: l; U( z RowBox[{8 i. v9 F/ i D0 R; q, ^: U( J3 s
RowBox[{"CM", "[",
5 K% ?9 O3 H% o RowBox[{"1", ",", "i"}], "]"}], "=", ! ~3 U) l! I3 L
RowBox[{"Data", "[", # ^ |: B7 ]' l' O( H/ u
RowBox[{"[", , g* U$ K" X; C+ }+ q- [2 i# p, h
RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}], 3 Z5 g5 E; a/ O" i0 s5 `& S7 z* U
"\[IndentingNewLine]", "]"}]], "Input",
' j g, t% @0 ]. _) O CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {+ D2 H( H; C8 h, e: _8 R
3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9, + Q! o3 a% f7 R9 z6 M* x
3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9,
8 |+ D$ A/ F" i. M2 o 3.57791344209375*^9, 3.5779588070933466`*^9}],
* V$ W2 W5 Y2 w! c# \4 y
5 L, i7 g! q1 [; j- r1 q; VCell[CellGroupData[{4 _- u0 [/ F% U" B- b4 l
8 | W/ q; }9 y1 ^0 b( g9 tCell[BoxData[{
9 B- k+ Q) y" C RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]", * t/ w+ ?& G4 P3 r
RowBox[{"M1", "=", "1"}]}], "Input",
( R/ ~4 [7 U& O CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {: g) C. l, K( T2 l
3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9,
V$ C5 H1 \! G8 k8 g' {5 N! `: T) Q* S4 t 3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {' V4 w2 E% t8 U2 q
3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9, $ F& F+ @6 t( Q
3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {) |3 q! Z% }/ n* J/ J
3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {: D9 z: _. e H" d" o
3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9, ?2 g- ~ @. K! `* g& _8 X
3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {
6 ^) [& k: B+ B( S. h& ^ 3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {
( t/ E, f( e/ } ~% ?; | 3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9,
. r- S: O! D, X) C( Q& a' _ 3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],
5 G$ z2 T/ d' t( z% I. G: q1 D- c7 z
6 {$ x1 q! h u4 _6 ^# N6 i+ ICell[BoxData["0.2`"], "Output",8 k% W t) n9 d, q
CellChangeTimes->{, w4 m" D6 R& K( Y) N$ p
3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
; g- k4 n$ ~& e 3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
- {0 A7 o: D/ F# g) y R 3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
0 {! w7 V' t$ Q/ n. f) ?" H, ? 3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {8 J" X1 r9 \9 z3 k, p3 w9 y
3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, 2 z) L1 ?3 W% d# D5 Y; A0 i
3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {1 f) n& V+ q9 ]" N$ h7 S. C$ L
3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, - r; c5 m7 z1 _
3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {! }+ K& W- K: a, ~, R* Q, j
3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
+ {2 v. J+ ?! z9 P( h. y 3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
% I6 Y' V/ o4 w! c$ [* k 3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, 3 ?& l( ?! _7 B
3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, # X5 O6 {1 ~0 f6 b% t1 \; O4 Z
3.577960510686717*^9, 3.578012149296875*^9}],
4 ]# u9 G4 @! S, Q! ~+ R% u
- i: v4 K6 _& CCell[BoxData["1"], "Output",
Q9 n+ ?8 p1 c+ d: R CellChangeTimes->{5 Y* y8 k1 i7 [+ f
3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, 5 ]! |* _6 E6 c2 e
3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
' A" j0 F' a p6 U Q 3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, % ~. S: w$ S. F+ }3 W
3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
$ B8 b. u( y+ H: U' ~: M 3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, / T: _9 e; `& r* G7 f5 n; ^
3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
# c8 v8 J( N! H% o O5 V 3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
* @7 {* m1 p# b' {% A7 c: U7 r 3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
# v- \% A+ `: G; p/ \$ Q 3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
6 k" x( M& B* [% v7 W0 t4 N8 q0 I 3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
. }1 G( l; u9 r3 ~/ z* V 3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
. o2 l& Z% K) c+ c2 ^4 I 3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
, T$ P6 g+ e \. z/ H 3.577960510686717*^9, 3.578012149296875*^9}]- a8 ?8 O4 h" [% f' o9 V5 \, A
}, Open ]],
& @1 s: y% I7 I4 S
* a% _0 Z# |* V9 Q) V( n+ {Cell[BoxData[
! ~+ ]' B( J) W s/ b7 W RowBox[{"For", "[",
% t: X) m; B: \7 z% K RowBox[{( @2 o+ v, o4 L- |7 _
RowBox[{"k", "=", "2"}], ",", : f B9 T; d4 a. J
RowBox[{"k", "\[LessEqual]", "60"}], ",", ! Q4 ~( A, K3 R0 E6 D9 I
RowBox[{"k", "++"}], ",",
& S9 }/ `' S; N! Q, o RowBox[{"{", "\[IndentingNewLine]", + y1 P/ |" K- h0 L4 d5 S) }' v+ s
RowBox[{
9 w( m3 |+ [! N RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]", . \ p2 ^( }7 H" C1 C
RowBox[{"For", "[",
9 {# r: x' z; W: Z RowBox[{
& \, o9 I; J, k, L6 { RowBox[{"j", "=", "1"}], ",", % b" B# K5 v% @' U" R4 g% Q
RowBox[{"j", "\[LessEqual]",
1 Z% m. P- l; p. w/ n e W' C RowBox[{"k", "-", "1"}]}], ",",
. S C: k3 |, d k, x9 ` RowBox[{"j", "++"}], ",",
+ L* X6 }; ~* A) g1 {/ B RowBox[{"{", "\[IndentingNewLine]", 4 \4 [1 ~9 B$ Z I) l. R) P
RowBox[{; V- l$ q: L2 V
RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]",
6 A; }; [/ s$ ] V; C RowBox[{"For", "[",
; o) C. o* R. Q: j RowBox[{: x* B( E3 a5 U& a6 E
RowBox[{"i", "=", "1"}], ",", & i8 o; s& r* m; [2 p( U
RowBox[{"i", "\[LessEqual]", "9"}], ",",
9 d4 u& i7 b8 [) s" C RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", ! @) @; P9 X7 A+ b" I5 A9 o5 p3 D
RowBox[{; ~1 r. T+ K# s& w2 q
RowBox[{"r1", "+=", ( k" w) N; ~& t1 _' X
RowBox[{' T: g% W8 @" G! s! I$ E2 K2 F' J" \
RowBox[{"(", ) B7 H. y0 T5 _8 [) c! C. }. r5 u
RowBox[{3 X5 g; @1 G4 f1 q. w
RowBox[{"CM", "[", " R3 ^0 Q/ f- L# _$ e
RowBox[{"j", ",", "i"}], "]"}], "-", 5 Y: k) y' q5 H: s* k( V
RowBox[{"Data", "[", 9 M4 q) b0 [1 N% r
RowBox[{"[", 0 z- e0 G8 Q" O) }+ N
RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
4 o s. v7 o9 V( s; n$ l RowBox[{"(", ) e! Z2 ~* [. d8 q" D7 ~
RowBox[{5 ?* e, _& k0 u- V5 `- J/ I
RowBox[{"CM", "[", + w3 `% M! Q- D% ~
RowBox[{"j", ",", "i"}], "]"}], "-", + P% q! p* H1 X% H
RowBox[{"Data", "[",
9 x7 |" z8 I% t4 m4 W; D RowBox[{"[", ( |% D0 E/ j2 ]2 o C# n$ U2 {
RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],1 Z" _7 G2 d$ Y# h7 V1 y P# |6 i
"\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", & N1 ^$ M: o. r o
RowBox[{"r1", "=", 0 ], L) K; t- u, I" [
RowBox[{"Sqrt", "[", " `1 D" B. M7 Y- e6 u3 c# f
RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]", 5 c5 B" h, R6 r. e
RowBox[{"If", "[", " ",
% }* O, T* L* U/ W8 | RowBox[{& Z6 c4 t# b% z$ P
RowBox[{"j", "\[Equal]", "1"}], ",", 3 c B' b! G& s, N. v+ g
RowBox[{"rmin", "=", "r1"}], ",",
7 ` q2 \, j- v2 @" C RowBox[{"If", "[", " r0 b6 H& d) l) w
RowBox[{
9 ]7 b/ }( S" [1 W0 s+ ` RowBox[{"r1", "<", "rmin"}], ",", ' @' y' D; _+ k6 P. C( J
RowBox[{"rmin", "=", "r1"}], ",",
. k W& y4 ~; F RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}], , [3 k: b5 o3 T' T
"\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";",
' a% F' N3 C: W3 d/ w) O& o& U3 o2 A "\[IndentingNewLine]", 1 Z U' z9 ]3 x P! ^+ M+ v/ J$ v2 `+ S
RowBox[{"If", "[", % Y# C( a$ b+ P3 E9 ^
RowBox[{+ O1 p2 c8 p; y0 R
RowBox[{"rmin", ">", "r0"}], ",",
* l/ i5 l/ ~% z/ F$ D RowBox[{"{", "\[IndentingNewLine]", / Z) C" \0 j7 a4 u& V+ T
RowBox[{) Q- y& E: D. B: G# u8 l
RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]",
9 B# T# \ i% @' @. H RowBox[{"For", "[",
/ Z0 u# D! }( Q/ D/ @ RowBox[{
* O& I! J @6 m3 m5 I+ z1 V RowBox[{"i1", "=", "1"}], ",", 5 D9 W3 X8 i& g; r, K
RowBox[{"i1", "\[LessEqual]", "9"}], ",", - r; [1 q' D$ t% H0 ]4 r4 t2 g5 G$ A' _
RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]", 1 A% z; t5 Z+ ?" Z% `# T
RowBox[{
8 Z% l1 Z/ a4 C* y. t RowBox[{
$ I' I. V: k) D! `* r; j, h RowBox[{"CM", "[",
# F* Q+ i- `4 b' w/ O! Y2 \) { RowBox[{"M1", ",", "i1"}], "]"}], "=",
6 [6 K5 c. m9 h9 E RowBox[{"Data", "[", 5 j; X7 Q3 b; b( F( v" T7 P1 d
RowBox[{"[", 4 s$ o' R% E0 f4 y5 Z! G0 y5 p
RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}], $ e3 m2 Z+ G4 b4 o
"\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",",
2 e) W" s' P- N L$ m6 [$ T RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}], 4 p0 h0 d! T' z4 u. F8 `% I3 t, N
"\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",5 O; ]& Z6 k: k* ~
CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {
! C8 o6 j( Y( K/ {+ L6 l. B 3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9,
1 |9 h) c: K# T' s9 l 3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {# e# |! z9 u. Z5 F: H$ C5 `3 f
3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9, 4 L2 n' I; f5 H. M" b4 G
3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {
8 i% S) u$ O& M' S$ h 3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9, $ k" k' [, Q0 N4 j3 M% Y) V
3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {. G) d4 Q. i( L1 q; a
3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9,
' G9 |; b0 a0 O+ N 3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {) l# k2 d$ ?7 z7 R" G* z9 L
3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
; F$ n- i- L0 P; L8 C7 t 3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {: a8 z( w. |+ U2 a0 U4 J1 u
3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9, ; Q5 E, T4 k2 N* @
3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {- d& c. o' y( h( g" l, c
3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9, X$ H( m$ m! L7 f3 k) F4 U, l' P
3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {( e6 ~- H5 T! e
3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9,
' d' G/ T E1 D# }! Q7 R( h- g0 @ 3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9, 7 C/ ]1 T- @/ A/ _! t4 z7 f
3.577958821991373*^9}}],. B8 B+ C, ^5 }. Y5 Q
6 Q* Z. D# \9 O4 Y5 FCell[CellGroupData[{# H9 B3 I/ \. B
' W* v5 a) k3 d# |% S# e8 ]# U- mCell[BoxData["M1"], "Input",, x- q1 u6 N# L% a5 c7 @
CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
# @) b$ l: c" K B7 y& V
% F4 J% w/ @+ V K: l, e# MCell[BoxData["21"], "Output",
, p- u" u7 @; e/ |6 C' a CellChangeTimes->{, V& H4 o1 O# u) `! ?
3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {9 H% a% C s7 L( [" _
3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9,
/ G. ]0 a9 U ^' V1 s7 Y6 C 3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {
" ?* f7 K: d. a 3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
2 j+ t' i6 v1 g+ a2 K# A2 U 3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {/ \: y6 e2 f) M$ Y& }4 l
3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9, " I" g8 T) j, I+ p
3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
. _: u+ _- F2 R( c4 g0 |$ z 3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9,
" V& b: z4 X, J% g2 ?0 S 3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9, & q; b- V% S( D( b2 ^! k; r
3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9,
# l6 i+ i& g, i4 i9 O+ v 3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9, % p' J& q% }( X, P8 L) t
3.577960515600726*^9, 3.5780121541875*^9}]: ]2 p& ^, x+ v, s* x
}, Open ]],
+ y! n2 X/ B3 x: L4 I5 u' Z4 [ s( K; h& t" F3 n! Z; b! W! F' B
Cell[BoxData[' J& v+ }/ s3 {1 D
RowBox[{& M$ t' a9 j, W# k
RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[", ; @# ]5 x! q6 |0 `1 O; C1 V* Q+ |
RowBox[{"1", ",", "i"}], "]"}],
! I8 R. r' C7 z) {' @1 G+ s, @ RowBox[{"\:5230CM", "[", 3 V$ g, g$ o. x3 @
RowBox[{"21", ",", "i"}], "]"}], ; ?- O0 v! m+ Q5 W) o# M7 q* W
"\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\
x: [6 l2 O$ t\:51fd\:6570u1\:5230u21"}]], "Input",
8 y' y: g6 t$ b7 y CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {7 N6 \ k8 ]) G
3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9,
1 V. O9 P9 P0 G4 \3 m9 ?2 P 3.577960526583145*^9}}],8 I% q8 b4 g8 Z; o, s4 m
& J+ c8 Y3 V; } t* f, uCell[BoxData[
; o" X0 ~1 d M, e: h+ B% Q( Z RowBox[{"Clear", "[", "Delta", "]"}]], "Input",/ ^% v! Y5 a& |9 [
CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],
8 \: C' K) Z; l' Z$ v
# S" e$ A z8 v. }. V' {" p( GCell[CellGroupData[{1 r8 J) l8 k7 @
, B3 o- r }* ?' U$ CCell[BoxData[
& c1 g9 A. L# `; a" P RowBox[{"Xa", "=",
4 Q& K) d: A0 n9 s RowBox[{"{",
1 l9 x: y& I& U6 D5 o RowBox[{
, I. J! y }! G. b2 r "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", % X# S' a6 m5 w' c n
",", "x8", ",", "x9"}], "}"}]}]], "Input",
: `: X3 S* j$ K; m* G CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
1 d1 O+ b! \- l. E# m! Q: a+ X' K, r6 h! g1 I
Cell[BoxData[
+ s: J& I1 }0 F" X5 [1 Y( M RowBox[{"{", O" g0 [' }3 t0 |; g, |
RowBox[{
1 U, g% O- ~. Z% h" J "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",7 W: M- \/ Q9 }+ K |: `8 y
"x8", ",", "x9"}], "}"}]], "Output",
, z4 _4 E$ F/ ` CellChangeTimes->{; ~ t) j& _, @$ R/ i+ R! d- H; `
3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
3 A* Z2 h! Q% u+ o2 Q 3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9, $ Y% G) l1 V7 q; p B! a
3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
2 \/ _$ G, Y9 n9 h 3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9, " S! t/ T9 e$ {% {5 e. R6 T3 B) U
3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {# h5 ?$ v1 O$ Y1 |, D
3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9, & y2 R& P6 q8 B: e- }, R9 s+ P5 f4 \
3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9}, ! u- _# J7 t( M$ V0 B: O+ V
3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
7 Q: E, G" i" z0 C# F: g 3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {
, A. R0 W5 a2 W7 E4 S' B+ s 3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
6 y8 C& E3 |# ~0 w% g& z3 L* R6 F 3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9}, * D6 E1 `0 g; i ^! _
3.57801215725*^9}]
, |4 k( Y) Z0 R* D: Z8 s7 ]}, Open ]],
4 E; u6 k- Y0 ]; G I; x+ q' D% V; M/ Q, x) W0 {# ~0 C' h5 x( a
Cell[CellGroupData[{ G. Z# M D2 `# F
. _/ b/ \+ j% q4 Y$ n7 h' FCell[BoxData[7 u* [/ |( I7 S% u* ?5 W+ ^: s
RowBox[{"Ca", "=",
: |0 w1 ^# E$ k2 u: ]; K% o/ a1 g RowBox[{"{",
( q0 d o0 [& F- ^6 P' I RowBox[{8 ~ `: ?$ K+ L. X9 i6 Z$ q. H$ l
"c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7",
: u6 {- h) o6 T# ~0 O! V$ P ",", "c8", ",", "c9"}], "}"}]}]], "Input",
+ _- O# j: h) V* v! v CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],
; H- e9 ?8 B4 {1 D; R1 F. u/ E" N9 L- ^
1 ?5 E1 j4 ` i8 Q: SCell[BoxData[0 k4 l) `/ A1 p. b; ?
RowBox[{"{",
0 E9 w: x+ ~, y; O- W; f RowBox[{
' t( n: z, Y; \% N. j# }1 s "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
6 c; Q7 {% F" X* y& h, R "c8", ",", "c9"}], "}"}]], "Output",/ c+ k! b# T1 i: K0 g4 n }
CellChangeTimes->{9 B6 L. f3 d1 e* a, F2 @
3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9, ! @: P9 F1 I( L: f" {3 p
3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9, $ [* d! Y3 }. G- h
3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9,
' Q& }1 K+ X3 i" W 3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {
6 S- n% S6 a4 k& Z* Y. [ 3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9, " X# u2 L" ]5 d2 o, O3 @$ k
3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9}, + E E6 u/ C' w; P7 s
3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
2 E, e) \( H1 J 3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9, & s* U: j% y8 z
3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
7 V7 |* L1 Y/ m }" B' t# \ 3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {9 |$ h. D$ x2 g$ G
3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9, % ^3 v2 f5 L; |+ n
3.577961904604212*^9}, 3.578012158671875*^9}]
8 X; L0 P' f) L1 H5 n}, Open ]],+ \: r8 t0 D0 O \
, g1 t3 m% d4 `, u3 B8 c. R" e
Cell[BoxData[
. [5 D% x4 o) l2 V% g RowBox[{"For", "[",
6 H3 I) N" a% q' `/ ~ RowBox[{; L' x& p$ A% S) z3 G. i
RowBox[{"i", "=", "1"}], ",", 4 W8 J# F% H2 {" |! {
RowBox[{"i", "\[LessEqual]", "9"}], ",", + F; O4 R$ [3 c0 ~! L* p! T
RowBox[{"i", "++"}], ",",
+ k) ? e0 i2 H0 s5 A) z$ U: a RowBox[{# \% r7 x }& g/ }0 c, {
RowBox[{"Ca", "[",
N3 _- Y" \3 A/ j RowBox[{"[", "i", "]"}], "]"}], "=",
* C, A, T- h/ n5 u( } RowBox[{"CM", "[",
q/ \* ^: H: |7 i, b9 E/ W RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",& ?4 Q7 l( U5 g" ^1 ^% H- @( z9 V' P/ w
CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9}, 9 {3 C$ C8 Y6 i, u' O" i* ? ^4 `% ~
3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9, 1 z$ {5 o& c8 x% N( n
3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9,
' [( @8 i& }7 ], `; |5 V 3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9,
3 E1 U+ l/ Q# k7 Y. j x 3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9,
1 `$ _" L6 Q: ~. B 3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9, 3 T2 E L1 D3 f ~) C+ J
3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9, / Y( C, X- x. L
3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9, & F- p, {+ I4 H8 ~8 |9 {
3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
( t3 L5 g) m Z 3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
0 k5 P# {5 v, r9 @$ r' C1 Z7 O! | 3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
+ V+ U( ]# X) _( C: ?# u 3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9, " @4 C) Q0 E) Y& E0 x* X% b
3.577961906897415*^9}, 3.578012176296875*^9}],# N8 P, l" F; f0 R" g
% E+ M) i, _) w3 BCell[CellGroupData[{# v4 n. N" G9 e1 M- {
6 l2 p! N0 a' P, q# u ]Cell[BoxData[
$ M1 @+ E; z8 }$ X0 J9 ?2 ~ RowBox[{6 @) O; Y, E3 K9 N& A
RowBox[{"(",
4 Z+ y$ E t: g N RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ; w& i4 G/ d$ [" N
RowBox[{"(",
* h2 N. ~ H; F, H; l9 P RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],0 o% |+ ^' o1 I+ A; p/ }9 U
3 x1 G' `: H6 q2 d1 H
Cell[BoxData[
! ~& D7 A- ^4 u4 n$ X9 g RowBox[{
: O* {- l/ @2 e* i0 K2 ^- i* q SuperscriptBox[& b/ Z8 C! u# p/ ^- G
RowBox[{"(",
3 G) I* {. T* o, y9 m RowBox[{
; [/ G: b% I6 }! p' L) i RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+",
6 i3 m/ Q q) i& C# Q/ q SuperscriptBox[* q v. d) K- b" I, s, I2 c
RowBox[{"(", : K8 [0 I+ t9 ?1 g
RowBox[{4 T2 ]! J A/ I- ~$ H
RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+", ( W4 W. a+ i" S. k4 T8 Q
SuperscriptBox[6 J$ T3 n* B( H7 l
RowBox[{"(",
; [* L5 A0 u% Y6 E+ X; a. a RowBox[{4 |1 s! _( }4 E! x% @( E! Y
RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+",
9 A5 e3 \* o! g: F( v% W, j! F6 O SuperscriptBox[
% B* D o+ x( h, y0 x RowBox[{"(",
7 \: O( R% n0 _" i RowBox[{
9 k: H5 l1 \& G0 G RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+", + T* G3 l4 u% I- U4 j; i2 D
SuperscriptBox[. x F" x7 h4 {9 }; c
RowBox[{"(",
) g1 `( U/ R6 I* ~1 l' C6 H RowBox[{
8 _1 |* T( V6 j. O; R) E RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+", ( _% S4 |, X- w1 z6 S# H, U
SuperscriptBox[
3 p; K( D9 ?5 L/ s J- Y RowBox[{"(", ' ]" d$ r( x0 v! U
RowBox[{2 z2 G" o% a7 ^3 x4 w5 D' X8 K4 B
RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+", 3 ^2 N. W, o& s3 l" u
SuperscriptBox[3 V' p1 |5 ~1 U5 U) K O2 r
RowBox[{"(",
; v j5 n* z& e4 c3 {. P5 G RowBox[{# S% |8 x$ G& _$ h) I
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+",
3 ~7 w8 F, m# k* | SuperscriptBox[
5 _# [* h% e( m6 l( y RowBox[{"(", + Y! V, I# a/ B& y6 @
RowBox[{
: b* {1 a3 k6 p Q RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+",
- E! f: q' Q9 l/ Z* }" C/ U0 J) f3 N# | SuperscriptBox[
5 k& v8 ]) n7 N [ RowBox[{"(", - v/ x. m( Z* g7 a4 F. C5 N1 \
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",) ]$ B* I; P+ Y% v8 e' W0 j
CellChangeTimes->{
& m% g# \$ n1 W. Z 3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9},
9 o! m- B9 T' t' D" R 3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9, 5 r8 d3 E! a& ^1 j( L9 `" a
3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9, % H6 M4 ~% s* {9 x
3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9,
) ^4 p8 F0 p0 L1 L" ]' F2 u 3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9}, 1 c2 _6 A& ~& Y; ^
3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,
R# ?2 k5 k: ^1 f2 t2 @! P 3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
6 _" {7 E! o0 ]5 ~, i# c( z 3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
4 k. G0 j- Y. Z, r2 e 3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {
* C5 U) c' ?% i5 W0 q* y$ | 3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {
9 Q& E6 H8 q: i) v" {. j' _ 3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9, 8 I- I& ?5 a+ x$ z
3.5779618537169228`*^9}, {3.5779618846049767`*^9, , a Q/ g3 r$ e" V4 d6 \. s
3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]" V5 v: P! K! i7 o/ u. A9 m
}, Open ]],8 y5 S% h$ D6 a* @
8 m6 B( c/ F# _# U1 w) \Cell[CellGroupData[{. S, V( p' r% \0 E
& j! X2 [% |& U7 Y" J8 e9 UCell[BoxData[
4 q1 a1 c _& T3 Q! p RowBox[{
5 x2 Z0 S: U+ V+ W2 @ RowBox[{"Ca", "[", / x" \9 m- m& b5 @2 ?3 ]
RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",3 v7 Z) e, @( a( n, y. p
CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9, 8 C9 T5 [* j% F
3.5779616465173616`*^9}],
. }8 g" v0 Z: A& v: ]1 p7 C5 F! n: s+ h% R: { Y
Cell[BoxData["0"], "Output",
8 L9 z7 H- |7 ] CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
4 }* d5 s- C8 w: Q* _: ^ 3.5779616484049644`*^9}]& l- \; e X! k R4 q: z, \8 p m
}, Open ]],* b3 u! A$ n3 J: n n
2 N% r# [7 H: U" `3 g+ ?5 b0 T
Cell[CellGroupData[{4 i$ L% |: Y7 \' _+ X1 g* e
# z4 y* v( z7 ~2 K. i: GCell[BoxData[3 y F) @: W j3 _( p5 f
RowBox[{
* o4 \* J7 l' e+ R# G RowBox[{"Ca", "[", ; q6 M: ^ a/ g% E0 ^
RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",) ?1 H! I1 m; {2 w# d; X( ?/ y7 @
CellChangeTimes->{3.577957376235614*^9}],' V6 Y5 J9 z. }3 G7 u$ ?2 r
4 W: o6 P( c6 K0 J, V9 a4 F" ?: E+ sCell[BoxData["0"], "Output",/ i$ F: G0 }/ u/ L% t( `
CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]
7 Z! U' p! P! | v9 I, P5 |0 S}, Open ]],) u8 U4 P1 g& E, Q) `; P/ X
1 z, i, i* E' h* {Cell[CellGroupData[{
6 I6 `0 o0 Y8 k, B# T$ r' }' W4 ~9 v3 R1 q) N
Cell[BoxData[1 \9 `% q" A% v$ X2 L5 h8 @+ a
RowBox[{0 H" J- l8 n" q& E
RowBox[{"Ca", "[",
) N, L( J+ Q4 }3 o; R: @# b9 ^ RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",( P" E% |9 f A0 G
CellChangeTimes->{3.5779573112927003`*^9}]," c% g4 |* c- c! }! k" @
8 k( I5 N6 U% @% JCell[BoxData["0"], "Output",2 v. r, v" S' s- `
CellChangeTimes->{: W$ U, N2 M" `" }9 L6 p
3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9, ! Y3 v8 @; x; \9 x1 {
3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
2 m: T3 P: _" C# K$ h) w 3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9}, # X; s/ B! {5 |% }
3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9, 9 A/ ?, Y. U+ B5 A( U
3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9}, + Z1 q$ F! D5 i% }) n, [* K
3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
/ [. q( ~6 @2 f4 o5 u7 M" t}, Open ]],0 P3 p- S5 ^* Q) n
" X2 ~( _" e1 q: {0 ?Cell[CellGroupData[{
# s5 p/ P6 D) l, @) a5 k) n) J, r* ?* E8 k5 l
Cell[BoxData[7 o; Q; L3 D7 L6 x) v) c4 d& D
RowBox[{/ g( u& c+ y% O& b; T# r
RowBox[{"Ca", "[", " O+ x+ |9 S/ }% l# F
RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
5 e6 D& A H0 ]; U1 z CellChangeTimes->{3.577921461734375*^9}],
' L. D2 Z. f/ B7 h
6 C; Y" a+ ^/ c* xCell[BoxData["0"], "Output",
3 G0 m) z, Z: I8 a CellChangeTimes->{5 F0 a Q, g6 V+ F: @& z; M, @
3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9,
9 R8 s: F8 r" G) {& r- `$ n8 L1 ]* W8 \ 3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9}, : i6 n/ }, V/ w3 G: F
3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
& z! }3 [6 _ _+ H# x 3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9,
4 F' ~% j! x' i" w3 F9 ~3 o; I9 b 3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]
# [6 s, i2 K4 M/ b}, Open ]],
4 L8 b3 s& l. c" Z- a
, }; Z. ], [2 D. M) yCell[CellGroupData[{" o& A3 G. i0 I/ l' k' L
1 N( z/ S0 w* m4 {3 h4 ~
Cell[BoxData[
& A, m: Y* p P3 w9 b7 Z8 b RowBox[{8 j% u G/ [) F( ^* v0 c4 Y
RowBox[{"Ca", "[",
) X) }5 M# ~, \( l/ y9 [* F RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",& d5 @! B/ R+ d! G1 {/ I
CellChangeTimes->{3.577957303118286*^9}], }4 U+ N9 m$ K
, {5 |" J- I8 R3 a; FCell[BoxData["0"], "Output",+ k( r" W2 n7 h% T/ r$ g
CellChangeTimes->{
9 x' K& t' a- F0 I# \9 T0 N1 R* N 3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {
' S% U7 t/ z) q+ o# G 3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
4 }) S/ m1 T* C/ I+ H2 K 3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9, ; a2 G- w% s& R5 L
3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9, - H9 ?6 }! r s; U" Z2 e [% D9 o
3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
* A* O: H6 e- m# ]- A& j6 y 3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
, [) F! b0 w" H, }2 h; b6 {0 b 3.577961889378585*^9, 3.577961912965826*^9}}]5 M8 w& ~" ]/ x+ L; `
}, Open ]],1 ^: `5 \3 x) S0 a& _! [
- G, L3 r! m& i5 g6 K4 x/ D
Cell[CellGroupData[{& I" N5 y% B$ K; ^5 q# K
2 c3 y4 ^" ^5 \. o& O# `Cell[BoxData[8 Z" X" z6 Z! C6 l9 d- h) [( a! m+ Q
RowBox[{; T) h! v, C: x
RowBox[{"Ca", "[",
7 s' H! d) J0 k$ @. I3 h E y+ K: f RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",
( S7 n2 Q/ B' L% j7 I# F) d1 A9 e CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {
, W3 T' f( @8 t8 \5 ?6 Z( p 3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
! H; {- }, W5 o$ s 3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {/ ]: J) Z m1 ~% T1 c
3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9, ( ^! ~/ R9 N( _0 W9 `7 m5 Q* f
3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {7 q- O V4 `9 M8 @5 D& b
3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
! c2 Y$ |! y, O) G0 b 3.577921435703125*^9}}],
% k# E) @9 `7 n3 R E3 n, p6 h" W( V& T
Cell[BoxData["0"], "Output",3 r' I) a( c/ ^
CellChangeTimes->{" }8 x. s9 v& Y2 d; M* l4 k
3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {
, X4 K% Z8 ~+ Z+ P 3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9, & X3 g+ Q% F5 S5 {% @% |! x
3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {! f/ q: g' ?7 V
3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9,
" V( l" @" T0 |$ n- k 3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {% L) D8 x m) W3 v$ ]4 G
3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
1 b3 h0 @4 _: x q$ `: @ 3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9, ! X# q S+ W+ b, b( i
3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9, + \& B% N; K! j- I" `
3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {7 K: U. f2 I( b- ]! \' p' x$ W0 @
3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
h0 e ?& ?: A; {4 k 3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {* d# @% W# }( a3 O4 J1 U
3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9, 3 u* V3 [. k& G+ d1 l
3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
5 q8 R e8 f) z( q* }}, Open ]],7 ]* o3 C: ?2 ~
8 R6 [; P$ {1 f7 ~( \/ TCell[CellGroupData[{2 p7 D2 o5 `, L( g
- _, T7 `* D# l1 a
Cell[BoxData[
$ _/ e8 s, p1 R RowBox[{"Delta1", "=",
9 M2 p& _+ I) ~+ a( Z RowBox[{" ~5 t& y+ m6 s ?1 t
SubsuperscriptBox["\[Integral]", ' Y- I: u& D% U" |9 t
RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], , Q0 K+ n! b, c: j
RowBox[{& G' u8 t4 g" q8 l5 T! a3 [; N
SubsuperscriptBox["\[Integral]", 6 o4 p+ E5 x# z
RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
* [1 Y" Y; _7 \/ C! h RowBox[{
& b9 m+ h% f, I' T; x# ? SubsuperscriptBox["\[Integral]",
3 |: B' } V3 J1 u7 a5 \8 R RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ) \7 O8 ~' X$ } I1 I* ^1 \3 L1 X
RowBox[{: B) B" M6 I: p% z- v) z+ L
SubsuperscriptBox["\[Integral]",
+ p: R: a% ` I4 p- u RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 7 s+ O: F0 m4 }1 ^: R+ k1 y
RowBox[{
. F W. I9 G0 D' w% \& T( }& j SubsuperscriptBox["\[Integral]", ) X0 S( C/ [ H) M |' N
RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], & `( {: ^ h) d7 Z( r
RowBox[{% S4 a, W; x; E, B) X5 f9 L
SubsuperscriptBox["\[Integral]", ' F# r N' K& u/ ~' U
RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ! r, `0 ~2 g. x: I: w& Z
RowBox[{# Z6 Y0 v& r9 _5 I4 p/ X
SubsuperscriptBox["\[Integral]", * ?: H& h0 j! A7 Q: E/ R2 E
RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ( g9 C- Y/ Z b- I+ g w
RowBox[{
3 u0 F( E3 n+ E9 {6 z( ] SubsuperscriptBox["\[Integral]", ! g$ f9 d! q2 P/ m: k) ?" m
RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ' G7 F& G9 j% @* N. n1 p" M8 {1 o
RowBox[{
& `& ]' ^! J7 j: d- n9 v& ? SubsuperscriptBox["\[Integral]", / g$ A I( q4 H, k& F6 I/ K
RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
. z ~7 K4 Q1 o2 ^ RowBox[{
# C# X6 j4 B' r0 d RowBox[{"Exp", "[", : s' i5 H5 A6 C8 Y) f2 |
RowBox[{# R2 ]( R1 n) B* W' @1 \+ `
RowBox[{8 A" g* [" ?- o0 A+ @
RowBox[{"-", 7 g( V: w0 s9 m) E( g* \
RowBox[{5 I4 X$ ^' t' L/ i% {
RowBox[{"(", . q1 b1 h' M' u% w0 Q) L
RowBox[{"Xa", "-", "Ca"}], ")"}], ".", L" W) V8 R8 s/ `4 e, }
RowBox[{"(", $ a8 i1 X; q8 @' _8 ~
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
! b$ ]" W+ E. U$ ]9 B/ w "Delta"}], "]"}],
- S6 r3 K- N# V! R0 ]* h RowBox[{"\[DifferentialD]", "x1"}], 8 V/ J% [/ ]+ w! m" b2 Q
RowBox[{"\[DifferentialD]", "x2"}],
! b3 H2 c: z. v5 r RowBox[{"\[DifferentialD]", "x3"}],
& r. u* r4 Y3 P( O3 P RowBox[{"\[DifferentialD]", "x4"}],
! @. O7 z# I; g( j4 j RowBox[{"\[DifferentialD]", "x5"}],
' v4 t0 w1 o- C0 V9 I: \7 D RowBox[{"\[DifferentialD]", "x6"}],
1 j+ q, ]* A' Y RowBox[{"\[DifferentialD]", "x7"}],
2 \( y9 ~$ x; g5 O+ m( S0 X RowBox[{"\[DifferentialD]", "x8"}],
% Y$ K- M) N9 R6 H& O7 F RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
& Y; j% L8 i+ I; q B- a6 G CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {
6 c6 j. A: l" x3 {: [ u1 K 3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9,
8 k- [" ~& L% c# F 3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {
4 {5 X5 W- A) c; ?$ b1 v! a 3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
; o# [+ A* v0 e 3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {
* U, c- G( w/ L 3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9, . B3 M4 P+ r$ {! p+ B+ `
3.577918964453125*^9}}],
# L; x5 o x3 U& Z k( @0 r5 V2 ]# `
Cell[BoxData[" p; D# \3 ~' ^
RowBox[{"97.40909103400237`", " ",
. L4 e0 B1 E2 w9 ^& ^ SuperscriptBox["Delta", "8"], " ", : M* B( o5 I5 R; g! Y, v
RowBox[{"If", "[",
7 V I) y. p. o' A% b RowBox[{1 q- R) c7 A0 _6 G- h
RowBox[{
' F' R4 w5 Y1 B U RowBox[{"Re", "[",
8 C% Z7 }" { W& K/ |3 B8 g SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
2 [1 N) y; ?1 k2 k# k FractionBox[
( q r) H: { Y: k RowBox[{"1.7724538509055159`", " ",
( L. j5 Y+ c9 `, u SuperscriptBox["\[ExponentialE]",
6 d; \. @ d8 ~" P2 G FractionBox["1.1102230246251565`*^-16", - E7 s0 A6 k5 X. V
SuperscriptBox["Delta", "2"]]]}],
4 ~, p! Y. A8 r1 K SqrtBox[* i, B- t8 K {% G0 C
FractionBox["1", + y) O K! I/ Y2 ~
SuperscriptBox["Delta", "2"]]]], ",", * k# o. ^# q( b# X% M
RowBox[{"Integrate", "[",
3 h. ]" T2 p) X- \* f; C; I! t RowBox[{ p9 N' i* U0 M) t8 Y; t
SuperscriptBox["\[ExponentialE]", 1 S: d* ~6 r `0 ^$ [' b
FractionBox[( J* U/ j$ E8 M
RowBox[{"1.1102230246251565`*^-16", "-",
! j! X4 U4 S8 }- b; Z8 v RowBox[{"1.`", " ",
) B5 I1 A! @0 ]+ b SuperscriptBox["x9", "2"]}]}], 3 S2 F5 M% O- B2 Q
SuperscriptBox["Delta", "2"]]], ",",
3 \" f& X- t! w" J4 j! `' _ RowBox[{"{", $ R @7 k" L$ Q; |" e$ O
RowBox[{"x9", ",",
' z( }9 F% O8 M: @9 c& `7 b RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", % C" `! k" i; N, m2 x3 Q
RowBox[{"Assumptions", "\[Rule]",
- b; F- x( O3 ]% S: a; f' F- r RowBox[{
4 { @0 U1 F. \0 N) T& @* } RowBox[{"Re", "[",
1 i! D2 Y& [; n SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
: w: }5 Q. R5 W3 A! C "]"}]}], "]"}]}]], "Output",+ @8 y( l# Z* a9 `# d! b$ M
CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9, * h$ |! M0 `7 b" S0 r8 k
3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9, Z W3 k# M# ] [/ s1 @$ B
3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,
/ j7 C/ s/ ^' e7 V 3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9,
7 \4 B" I! [2 o. P/ } 3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
- T9 P) a$ I2 e/ l3 ]1 r+ I 3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9, 9 R0 {: J% S, E8 P% q! a1 A
3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]8 S4 {. v3 B5 h+ U$ g
}, Open ]],
) f: @+ v7 s b& g
0 |! E$ L, O) P/ ~$ `Cell[CellGroupData[{9 ?9 k1 z8 \ {% O6 [- T
$ ~! E' \- N6 h" Q- N
Cell[BoxData[
1 x! H! ?, Y5 Z6 L- _ RowBox[{"Delta1", "=",
, J: g3 K( ~( x StyleBox[' x: M) f5 l1 N+ n6 r" t$ s i
RowBox[{"97.40909103400237`", " ", * X9 o0 [2 D; \
SuperscriptBox["Delta", "8"], " ", 0 Z. d0 F. I+ m5 Z6 G4 z) t
FractionBox[2 u2 c" J3 n5 h, o/ \
RowBox[{"1.7724538509055159`", " ",
# U, A% h7 v* M SuperscriptBox["\[ExponentialE]",
e( h U9 B& `4 B FractionBox["1.1102230246251565`*^-16", 8 \! b# [* B, z4 \
SuperscriptBox["Delta", "2"]]]}], 2 x+ s1 L* s3 s( ~
SqrtBox[
4 D* \5 _. t: t) D( b FractionBox["1", + D& Z$ E, ]+ r$ ~, v+ V
SuperscriptBox["Delta", "2"]]]]}],3 a- m( D0 `' u L
FontWeight->"Plain"]}]], "Input", u+ R! W9 e# L" s1 V
CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {4 e% F5 o& `- ~* B% N
3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,
' a/ T# _8 M8 Z4 l% H& w* h 3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
) ~7 l$ w& @+ [2 H: x 3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9, . o8 z; W. W) o4 ~0 W: {9 R
3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},
1 J' Q* f# v1 ~( d! [( t 3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],* F( ?2 d1 c d2 j! {; p
3 ]" u& C$ Q' r% z/ }$ b+ qCell[BoxData[ k5 E% Q, h! ]: v r
FractionBox[! I1 h9 [4 a1 \
RowBox[{"172.65311851642346`", " ", 9 Z' `8 Y/ z# y7 y/ N/ V6 _
SuperscriptBox["Delta", "8"], " ",
* a& q% p+ T! @, G: W8 i; L, @ SuperscriptBox["\[ExponentialE]", + H0 O" f1 E( ]
FractionBox["1.1102230246251565`*^-16", 5 n5 a$ \1 c1 C9 e5 b3 b+ F4 D
SuperscriptBox["Delta", "2"]]]}],
3 c! U$ r+ e5 o* Z' e$ n SqrtBox[% Q- j; _6 G- X* i
FractionBox["1", 0 o% [- y" h+ g9 G
SuperscriptBox["Delta", "2"]]]]], "Output",. a4 d* \4 {6 i! V1 ^! p/ o0 x/ L
CellChangeTimes->{+ `. @- r" Z# h) k& v$ ~) t R
3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9, ' k- _+ \3 l& p) Y9 v8 j
3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
4 o3 q( t$ a: c, X" v, ^! ^9 }5 S 3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
2 ?8 f/ W" s1 b4 \& S 3.578012166234375*^9}]1 A: [& c$ b3 Z5 l* A) x1 H
}, Open ]],
* ~6 i+ ? _: L" ~5 A X
( Y) ]& |9 ?$ [* s) XCell[CellGroupData[{. J% K1 F& f1 {9 d5 w0 C, f# _3 g
, `! J! E3 v' J" [9 I0 \9 j" ^Cell[BoxData[
& ~9 X, n) D7 p RowBox[{"DeltaX", "=",
: c) e0 u |! | M2 |" N0 H RowBox[{"FindRoot", "[", 5 D& y R2 ^" y! g
RowBox[{
5 o$ J9 J: K! t$ @6 h# l) ?8 i$ f RowBox[{"Delta1", "\[Equal]", "1"}], ",",
4 q3 N) U$ }( k& l RowBox[{"{", 6 H5 f* ]2 S- U# U! O
RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",
* _ J/ j/ x2 E! ~ CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {" N! E0 B3 Y( h. r: t
3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9,
' r& P9 i" }) o" } 3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9, 2 \& i/ m9 {2 q
3.57791921584375*^9}}],
# O7 {: y" w' I" e) q1 h/ R/ g8 L/ \
Cell[BoxData[
* B; s. p: j$ s* S2 u0 r RowBox[{"{",
! Q6 k- r% O, h1 H' M9 n RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
, {2 h+ r+ w5 ]9 u U o0 ?& \ CellChangeTimes->{: E& ?; V Q1 C2 R) _
3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
' l5 n4 e# Q& d0 T 3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9, ' c% I5 l, `# M* B( e$ U" }
3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9, + r7 f9 |3 X- m' L
3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
) \) t% [2 Z. L& I 3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
0 }% a5 c5 l9 \; c 3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9, # r! e. s( a N3 ?; A$ E6 F$ F
3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
. ? F, [! d; J; A2 [ 3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
8 ?. v/ k" d9 {- n# q 3.57796070150625*^9, 3.578012167703125*^9}]
- a8 \8 N, N/ D9 Q/ [}, Open ]],: f8 z& D& W& J
. j: y s' I+ }: i
Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\
7 G3 y, l3 f: h; l; t- G8 r$ k\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
Z; u# @8 V; a' @9 U0 {) s CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {+ z+ \+ X8 |- E1 f2 T
3.577960705312657*^9, 3.577960707621461*^9}}],
* {. C- Q9 q: W! {5 i2 e) u7 `! t: `% c" y7 a
Cell[CellGroupData[{& l' P1 r: Y/ }
* t. g' v: t' ?0 |1 j0 l1 kCell[BoxData[
$ P3 j; {0 y" A1 ]4 S# D5 H RowBox[{"C1", "=", "Ca"}]], "Input",/ y& ~% H. J5 v! N
CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],
3 [; `5 |+ |8 [( D5 I- a, W2 l: x9 I7 S- J5 v5 P9 c, r0 X6 Y
Cell[BoxData[
$ C; M# G$ [- K% l- S0 T% ?* z+ A RowBox[{"{", & r' d! d; }1 I+ M) l8 E
RowBox[{1 o/ p& c& G" z" o5 _$ I
"0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", 8 \( s- C0 R/ y6 V/ \% Y
"0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",", 5 G [- X1 y, j' k4 c
"0.`"}], "}"}]], "Output",: B9 z4 O( N* A( D1 ~0 h4 P. N2 s6 b) \2 M
CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9, 6 @0 {6 b% ?" N' B# k) |
3.577960710273465*^9, 3.5780121855*^9}]# N; H7 O# J* }+ r
}, Open ]],
% F7 e2 x) t+ i* _* g& W5 ~8 W1 _4 b# n0 z Y6 I' r' n5 p
Cell[CellGroupData[{" @# M, z( U0 t% [
8 Y, [" F" W" a% z/ A) ]2 I
Cell[BoxData[
- y% C) j' G5 b7 G5 w( m/ { RowBox[{"u1", "=", ; G3 o: R" w) I9 g, P
RowBox[{/ m' J' a6 F. v* ]
RowBox[{"Exp", "[", ) f" }9 B+ [' C$ O. W. V& p
RowBox[{
$ Y% p$ R9 z1 L- a) m8 D RowBox[{
- r1 {' N( @% v) E$ M RowBox[{"-", ( a; y5 W6 j; W0 I$ N0 l* t
RowBox[{: i9 r- S& l: n: W( `
RowBox[{"(",
9 \9 t+ S1 {9 o% _7 J" e4 |- ^ RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 1 C& @! n' T: h' T( p2 Y' e
RowBox[{"(", 5 f" V3 i* {/ F' s: x+ r7 d
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],2 h( s" w1 P8 D! I7 k
"]"}], "/.", "DeltaX"}]}]], "Input",
$ U$ L# }) c& k% P0 }1 n CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {
- \& c8 o0 H8 p+ \ 3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {
- o2 D( {) {8 t+ Z' g 3.577919193484375*^9, 3.5779192326875*^9}}],$ C$ h9 T' A: i
! C2 B: a' r- y" R, Z) FCell[BoxData[
+ ~( r; R1 e9 N, C+ I1 [- Z; K SuperscriptBox["\[ExponentialE]",
2 V2 A2 N" a u/ Z+ U0 W RowBox[{"3.141592653589793`", " ",
9 I% T: X% P' a Y/ h RowBox[{"(", ' Z" v( ]$ p' k& S6 R' z( L
RowBox[{; j4 u. ?/ ?9 _, h2 |- }5 J3 K) k- c
RowBox[{"-", / j9 X2 q( d4 F6 O+ c0 R
SuperscriptBox[
: h# @0 c% Q: @& E RowBox[{"(",
( Y5 t3 D! v9 W3 r RowBox[{/ \ d2 \( J# o! P% l; s8 ?( a4 g
RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
3 B; D# [1 ?2 ]+ E0 J0 P SuperscriptBox[
( i, X/ w* x9 [$ D RowBox[{"(",
2 a) g# ?/ y) l RowBox[{9 _. N9 H. e I9 S* @1 j' j; v+ ^
RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
q0 k- [1 C2 i/ [ d SuperscriptBox[# ^, h5 R; b+ }/ }1 A2 ^, ^
RowBox[{"(", , V( S; M& ]$ \: d4 W0 [
RowBox[{
, M q6 J8 d+ l6 u RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
4 N, Q0 L. J2 R. M) p SuperscriptBox[6 O% E; _. U, Y8 a: e( O
RowBox[{"(", 5 |9 i3 t" P; U1 H8 \, T0 F7 ?2 v* ?
RowBox[{, @; I' p5 Q) q% S) U
RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
0 d+ ~0 B6 ]+ T6 V SuperscriptBox[
& G+ h/ I& {% M, P RowBox[{"(",
1 c, S- V2 X" m2 @ RowBox[{; C3 R: J+ z# u/ ^
RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
+ y% R2 O- x5 j3 [* R5 ~* @# _ SuperscriptBox[* S1 w2 k- G. z$ N- k, \9 S. `
RowBox[{"(", 6 G5 Z5 S5 R% }% \
RowBox[{
( P: P. b3 Z, I/ a: r RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
/ y5 g( K# f6 N3 T SuperscriptBox[
( L) u- m3 }3 e RowBox[{"(", ) Q, j" N0 y7 Z# K
RowBox[{
4 c) m* A: a# h. R" a/ n RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", ( @- z" [, ?1 v; B
SuperscriptBox[: x* P9 A4 T6 z P2 o1 N3 Q
RowBox[{"(", 0 q8 O1 F+ N5 O$ Q5 |0 C- H f) M
RowBox[{
8 y2 G& p! e3 \4 m* r RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", 9 `% g( o7 v# Q, _
SuperscriptBox[1 `$ g' l& t1 e8 E9 [7 w1 B
RowBox[{"(",
5 ?! o: e# N: X& f+ v2 l2 T2 R RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 9 S* {% O7 |# V4 K' a; V
")"}]}]]], "Output",
4 V; p+ ~) o. }6 M- L CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
+ M w7 A1 c# r" l0 C B 3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9, V+ \2 s1 l" z3 U. P
3.578012187078125*^9}]
3 S" R; I$ F% M- b}, Open ]],
) S4 O+ n( S( w
. A" e2 b* Q, s" m% e4 U4 ]Cell[CellGroupData[{
$ Q8 }& k& b* h" s, a+ j5 F% m
Cell[BoxData[
0 Y. f& Q' G3 ]' i; ~; v RowBox[{"C2", "=", "Ca"}]], "Input",9 M' S3 l! {+ c$ \& l
CellChangeTimes->{3.57792047321875*^9}],
% {" u2 R5 U& w5 d5 A; {: T* P- y1 y- e$ ^+ E3 X) Z% g5 @
Cell[BoxData[
3 [, l! @% j W# ], s# D RowBox[{"{",
6 e: z$ D1 F: c2 v RowBox[{" F r$ Z& d) T! M% N+ s9 v- z
"0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",", & j7 ^( u- ?+ a' y1 D* N3 v, r7 R
"0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}], 5 n! o- D3 U( f5 Z, t7 O( H: j4 s) B
"}"}]], "Output",
% V+ g4 M# K8 K' j& O% C CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
) H& b8 M9 I* [# c 3.5779607401163173`*^9, 3.578012204671875*^9}]
# y+ D ^ @$ @}, Open ]],
: k3 ~" l1 u; J; g2 k1 L' w. i. [% ~& e+ B2 _ ?( c. c5 i
Cell[CellGroupData[{
4 o* z* G' N& |! r
1 a% o' W& g. a1 L1 YCell[BoxData[6 i5 C! Y- J* w/ z' u" I/ J
RowBox[{"u2", "=",
h( T! `6 }/ `# ], y6 Y RowBox[{
. i/ ?1 a1 h, X1 K RowBox[{"Exp", "[",
2 E. S0 H. I' q+ {, h RowBox[{& V1 O8 q+ d' G2 i
RowBox[{
% F+ R3 `+ ]* D3 n RowBox[{"-",
4 I8 `: m: `. h3 R: z# I RowBox[{3 O5 G1 Y B: S7 c, ?
RowBox[{"(", " s) r- v/ L9 c- y6 ]! A
RowBox[{"Xa", "-", "Ca"}], ")"}], ".", + _4 L) M* U- l& i2 a
RowBox[{"(", ! C+ v( z: ~, K8 `6 v
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
* k0 h m9 _2 Y2 ]& U% A9 \ "]"}], "/.", "DeltaX"}]}]], "Input",
; B" I5 h/ L1 U* F2 ]2 q CellChangeTimes->{3.577920484109375*^9}],7 U( o1 p1 [% `4 a- z1 p
/ L7 K$ w1 B5 r7 T6 v6 PCell[BoxData[
2 l. z( f: M. s: k8 q' d% e) b5 ?" ~ SuperscriptBox["\[ExponentialE]",
4 o9 r) n( J9 a RowBox[{"3.141592653589793`", " ",
* A1 F5 G; w' a) { RowBox[{"(", 7 ~7 e0 d+ ^: Q( H% `$ E/ E
RowBox[{3 _- t6 J/ |" _, [$ [: v
RowBox[{"-", 5 Y$ u0 c) v: j5 Y
SuperscriptBox[4 `+ \$ T2 v: _0 q$ \5 Z' w4 o/ _
RowBox[{"(",
" [- F2 i5 p% \7 ?9 ~; M! @( Z RowBox[{
, ]. O( D2 _9 L' [. V& }( S: R+ P RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
' ~1 U& P1 d9 g3 z7 N0 I SuperscriptBox[
+ Q1 c% |% A5 J" K RowBox[{"(", ' G& ~5 B8 { Z$ Y1 E5 [: I
RowBox[{# T: ~& R) A9 T
RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
9 J: P/ B( R! |0 v SuperscriptBox[
$ `( ?) w) @' [4 _' @ RowBox[{"(",
+ ~$ u. Y% j' U" w6 G4 W RowBox[{( p8 Q1 V- {/ W0 q& } Q6 L
RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
- y( W( @3 J! P) U$ l/ J" o# X SuperscriptBox[" o8 P1 X' ]2 m7 K# P
RowBox[{"(", 1 g3 R% _- g* N& A! B; b" l/ W Q
RowBox[{
3 t; t! @* c7 P( x, i RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-", 5 x4 \1 w% b6 F7 {* C7 ~6 d
SuperscriptBox[
h+ M' J. R: p' q RowBox[{"(", : c1 H" B& ], `& ]2 G
RowBox[{1 ]8 K$ U: l, O: X1 Q
RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
8 t1 I( c4 S% z/ n SuperscriptBox[: p* y6 {, |1 s% i5 s
RowBox[{"(", ( R. r. p5 R2 S" d1 I
RowBox[{
- l- a: |) s' ? D1 \* \7 {9 f RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", ! s( m3 a$ o3 k0 j) L O
SuperscriptBox[3 f# n3 o( r" ^+ e
RowBox[{"(", $ X. k1 A# O$ T4 l7 E! e$ `
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
# H% P4 I# H# q( B SuperscriptBox[
/ x3 i; z, L: ]& \7 O* ]% W& P9 g$ ]# q RowBox[{"(",
# _$ a- d8 s! N& i5 [ RowBox[{
/ e8 G" X2 x% M+ T6 u' H RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", % N" L: t7 t, e* {' O+ D
SuperscriptBox[: G) d+ X" L+ g- y) e9 l' I% m
RowBox[{"(", + g; e8 O, C% \5 P. G! ~
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
& p8 {+ K3 ?2 @# \ ")"}]}]]], "Output",5 p' g$ t4 u# G7 [1 l
CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
! {5 m# g% s0 m M+ P* \ 3.5779607413955193`*^9, 3.578012205484375*^9}], H5 B8 U# I X/ W/ J/ B
}, Open ]],3 d! h. p8 [+ A' x7 k
* C1 @* b5 g3 u+ K9 X. V% b9 B2 u5 \Cell[CellGroupData[{
# W* U' N J' W( c2 b
6 f# W/ _. h' y( J1 W3 aCell[BoxData[4 c6 _. e, l" M. ]
RowBox[{"C3", "=", "Ca"}]], "Input",
, m+ B- X8 k: K @& D CellChangeTimes->{3.57792064125*^9}],9 e$ J2 C. d+ w) }6 v" y
$ h! r7 M9 q: e9 ?
Cell[BoxData[& s# e/ |8 A9 Z! s/ L
RowBox[{"{", ) \: p v& t9 r& ?, y
RowBox[{
* ~4 t! X6 m8 a, U, H0 M6 d. d. l* e "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",", 1 y# ^+ a. c% ]
"0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
: t4 K6 I1 A: L: z* [ "}"}]], "Output",
+ o6 s4 m [. B6 ^* m$ D CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9, 6 s; {! H' S7 S3 Y1 k- u# X
3.5779607642027593`*^9, 3.5780122103125*^9}]* l, z7 ]1 K! d; K, Z
}, Open ]],1 [1 W4 R9 J7 @: s1 o( D# c
, e; x' `" w$ J; T& v2 K
Cell[CellGroupData[{8 W4 Q( X8 j" p0 r* r
% g' Y9 F/ ^2 f& V2 y; J
Cell[BoxData[
8 A' e$ X5 K6 Y& `/ E RowBox[{"u3", "=",
* O& X1 E4 z' _- L8 z( O. {! t RowBox[{ ^. s2 ^$ w: U. X3 T# k
RowBox[{"Exp", "[", , V: |/ h& ~$ F0 x
RowBox[{9 @) M2 q* o+ e
RowBox[{, t: u* H# q2 ?3 {
RowBox[{"-",
7 }* l+ H, O% O" j! Z5 ^% f! ` RowBox[{3 W3 |" G2 O5 w) ]. M! k( M W
RowBox[{"(", ! T+ o1 k1 N1 u! D4 L" S
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
, H$ s3 e: e/ d5 y- u RowBox[{"(", / s& I) K4 ^, f2 B. B
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}], t* r( f' w! Y! P& t
"]"}], "/.", "DeltaX"}]}]], "Input",
/ A$ E$ X0 n" r+ e0 _% j CellChangeTimes->{3.57792064921875*^9}],. B; e/ V" `, p6 `, A9 E
' D/ M7 H9 F o/ d0 @ o
Cell[BoxData[
" d! w* K P5 U* s! H2 f4 m4 V. W: [, [- _) k SuperscriptBox["\[ExponentialE]", 1 ^& B$ f9 ]4 R
RowBox[{"3.141592653589793`", " ", % O! S$ W6 X. @3 q* f# f
RowBox[{"(", 9 i, {9 y) L: t' t" p. Q
RowBox[{: a6 Z0 D1 G/ T/ j
RowBox[{"-",
- I0 r0 i! t5 C SuperscriptBox[/ U! `6 E/ h# p! m$ @' U
RowBox[{"(", 7 v! N/ N5 A- Z
RowBox[{4 l2 i$ r% A: Y% }5 P
RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
/ B! o) i! J; O SuperscriptBox[
, N. A. @4 I, t! X% j3 G# L, [ RowBox[{"(",
* v& ?4 Q( B9 z2 c* O6 M RowBox[{) z1 t7 U4 z; G' y: O1 t
RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-", 3 M: C3 E6 l5 l5 @; F+ t1 a$ b
SuperscriptBox[
0 b& N( c$ X U( U4 m5 o1 A% w RowBox[{"(", , l0 z$ F; n0 b. u9 d, y
RowBox[{" m* Q( w% a, H" ]& g7 ^. B/ R
RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", , M6 {3 N; a8 q2 l
SuperscriptBox[
. N% Y* T+ \+ C RowBox[{"(", ; D& i+ `+ L! C3 S
RowBox[{$ q: W! Y. x* I- F1 n6 A! h
RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
. p4 U- O& F7 u+ M# D5 y' w6 C SuperscriptBox[; j9 X: J2 t& h# m* G* M0 K
RowBox[{"(", 7 }7 U0 V& W/ _0 F
RowBox[{% u5 I! c* [: V8 E) t/ j, ?
RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-", . p3 p [6 R9 J
SuperscriptBox[0 F0 Q% |2 F. ~! x
RowBox[{"(", 6 ?0 R* x2 g+ h5 z' j
RowBox[{5 O; O& f( O% L6 ]. H, O
RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", $ c Y# T1 b# |: y
SuperscriptBox[
$ J: _- z0 Z2 I RowBox[{"(", 7 C1 I- C; W- m2 e& z$ v
RowBox[{
& s. Y2 c' b0 x& p1 Q$ F RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", 7 w0 `% o5 I4 I \6 V+ n- H2 N
SuperscriptBox[
5 p9 k4 S) [- I7 b; b, b RowBox[{"(",
# I, c) L ^" U& d! r RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
6 m! j% @, R8 \8 P" T SuperscriptBox[
. y! M8 ?& x- b* g RowBox[{"(", ! M) L3 f: k0 s7 s
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], + q+ K2 |2 ?4 r( W& y5 {- E
")"}]}]]], "Output",( x4 H4 j! I* ?4 i7 o
CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
" t! }6 h. M3 s' H 3.5779607654819613`*^9, 3.578012211515625*^9}]7 V: n' g' m" R; o
}, Open ]],- D- q) i C: h- q, ?/ ^
% P8 d* a- }& z
Cell[CellGroupData[{
E6 L! Z" c2 |3 O8 N! A4 y( y% V: u5 z
Cell[BoxData[
" I& V& q+ X0 A: |2 }' G RowBox[{"C4", "=", "Ca"}]], "Input",6 y6 y2 J6 y0 f$ r6 A# S$ R' Q( l
CellChangeTimes->{3.5779207559375*^9}],( h$ `$ N' ^' \8 s: F8 y
! L6 ~( \) |% m/ x$ o
Cell[BoxData[7 R, c5 g8 @/ m3 r2 `& F
RowBox[{"{",
- E( H9 R D r0 }. o RowBox[{3 u( q0 Y$ h9 ~
"0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
2 A3 ^2 B7 m" Y3 V7 ?% L "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], 9 ~4 |% y2 v8 R% i! j
"}"}]], "Output",
$ W, Y$ _1 ~6 H( F CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
% z4 b4 s# n* C0 i 3.5779607861363974`*^9, 3.578012216171875*^9}]' p9 _; s7 {. ?
}, Open ]],
+ X& \8 s f4 S5 I4 E3 l
4 B) L u% b& }) o+ XCell[CellGroupData[{" l& z) g# C& E: x1 u9 f/ ?2 n
6 ?2 ?3 z% F$ h8 s5 k7 E8 g# D/ pCell[BoxData[ y) l4 Q2 H- \; |+ c
RowBox[{"u4", "=",
t# G. x9 j5 n RowBox[{ h2 {/ h( b l8 N; w6 n
RowBox[{"Exp", "[",
( g$ Y4 t2 H+ b9 h7 z: X5 P RowBox[{
4 a' B, i: m2 E# S8 Z9 l RowBox[{
# D. N. _0 [( j! w. Y S RowBox[{"-",
% y6 ]6 v- ?* ?2 J RowBox[{: [0 W ~, [3 ~ {/ P
RowBox[{"(", % B# r' ^9 t, {& }
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
4 b# I' Y% |9 J RowBox[{"(",
5 P9 X/ p5 n$ `6 T, t$ H0 ~8 v4 ] RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],# i8 ?: n3 U$ s% c
"]"}], "/.", "DeltaX"}]}]], "Input",3 _, `% U' ^1 b5 q- D% j
CellChangeTimes->{3.57792076325*^9}],
: L) Y) `. D! N$ A# q& r
0 @$ K% @, C4 C1 s" L# F7 ~: NCell[BoxData[; W, s9 k3 j6 r/ T, O: O) T
SuperscriptBox["\[ExponentialE]", 9 d# K/ K/ Z) i! Z
RowBox[{"3.141592653589793`", " ", * `! u9 L$ @! M/ g* s2 { ~) P
RowBox[{"(",
+ C7 W: U8 }5 j8 g; T+ N RowBox[{, q: ^: s7 F# k& g
RowBox[{"-", ! }7 e. A1 Z1 w
SuperscriptBox[; L" `8 i6 {8 C5 L3 Y% H* u8 R
RowBox[{"(",
4 k" n1 V9 X+ h RowBox[{+ X% W: F! `" F+ P1 i
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 P( ~4 ?2 G% G$ d1 Y" }. T
SuperscriptBox[
1 i. P( U* @# m- K" T) n. ~; j& e RowBox[{"(",
9 G! x. [% f- } RowBox[{: R8 j2 T. ^1 G" i. E
RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-", 1 L6 H- l& H# F0 T6 G( a0 b6 I
SuperscriptBox[% q0 X3 |* y, f+ m9 ~
RowBox[{"(",
, o( J+ C( I5 L* Q4 a; L RowBox[{
! N+ F6 U6 F0 I, ^ RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", 4 p; X& s9 F! B
SuperscriptBox[6 ?, ]3 L' [7 P
RowBox[{"(",
8 [) V- m' n+ s4 C6 X3 ~+ u RowBox[{
* U0 Q, x2 k( J1 j RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", $ o+ E7 z# O8 X" A5 p
SuperscriptBox[
$ C( K6 J$ ^- O: X RowBox[{"(", 4 Q: \$ S N1 z" s$ P' ?
RowBox[{( a" f* \5 J; X- h) p
RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", + s! ?1 J( X8 `( f- a5 [; X
SuperscriptBox[
* W9 ?( K, _) p' G" i. w9 Q RowBox[{"(", $ {1 g8 {5 w0 w8 c0 w
RowBox[{
% N5 D+ @; w6 [$ _2 h9 x RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", 1 O" K+ z8 b6 N# Y- R0 W2 M: M
SuperscriptBox[$ ?; v3 o6 K8 U5 c
RowBox[{"(", . z$ r' u/ t& ^% w6 L" e
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ' k1 P( Z8 O! c" ^' x/ u9 z6 A
SuperscriptBox[
; s- N9 y8 ?2 Z+ O RowBox[{"(",
! F7 _; w& @ @ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
5 \( _" \; `4 ~ SuperscriptBox[
- U2 |5 x' `7 x RowBox[{"(", - Q' f0 A- F% j% G
RowBox[{3 X2 Z* O; _( G
RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}],
' q1 g, J S) S, x5 _- ? ")"}]}]]], "Output",
5 J+ {5 [1 [" T9 p0 S CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9, 5 G! ?. a5 {% w4 d7 {' t
3.5779607873531995`*^9, 3.5780122169375*^9}]
: v! |" C9 c+ g$ a1 N/ j0 K- J- e}, Open ]],/ i: O) t, d' w# ^2 @4 @! O- I* h
- Y) W4 N1 S4 rCell[CellGroupData[{
* R, \/ K+ R+ m3 O" A4 v* W" X% W+ p) {5 Q7 k
Cell[BoxData[& P4 b. ]0 H2 \& ^, e9 I
RowBox[{"C5", "=", "Ca"}]], "Input",9 w2 q. d4 ^% m' f2 T8 S$ o
CellChangeTimes->{3.577920860671875*^9}],$ `9 i- U. a1 c$ t
& N f5 \5 x0 g* h! X
Cell[BoxData[0 h* z9 e" R, v9 Z9 t% c, Z7 {% V! O9 r
RowBox[{"{",
/ ~$ ^, e, T' ]+ J RowBox[{' l6 C) E0 Y! L; h! Y# n1 I
"0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",", - ]0 K9 Z/ o0 |' X; l( ?" o) ~
"0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}], ' N# v0 g# y7 P
"}"}]], "Output",
# N8 I' W5 i2 l& v- `7 t7 D CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
2 I4 k$ I, m( W/ q P 3.5779608137328453`*^9, 3.5780122209375*^9}]
! S9 q* H( h+ c: P9 a4 q: t}, Open ]],+ T: C" G1 }+ P: F9 c
' b2 z' \! _$ h3 _5 N
Cell[CellGroupData[{' H, `# g2 Z w/ @8 n
" C' P+ c- ~3 b/ }2 |Cell[BoxData[
# t& x$ j6 t. t; t RowBox[{"u5", "=",
! i4 c3 t6 Y3 x. k; Q& M+ P; V% u& X- ~ RowBox[{5 |) r6 k: ]" [- ?, j
RowBox[{"Exp", "[", 1 E7 k% L) i( K( u
RowBox[{- D% G; K! a7 { Y8 Y- V) q
RowBox[{
) T8 k( l& E5 A% g, I- ]( o) [9 h RowBox[{"-",
% g' p% U' ]- S: W0 n5 X RowBox[{
5 m+ b1 { |) {7 i3 v RowBox[{"(",
- e" x5 Y" v1 t b RowBox[{"Xa", "-", "Ca"}], ")"}], ".", * F3 [0 J/ N7 I4 ^; f: L- a+ M5 ~ A9 s( e
RowBox[{"(",
1 f$ E. O, k8 O! R& F# a9 E* F* ^. S RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],; N# b/ e2 U! ]& K- |
"]"}], "/.", "DeltaX"}]}]], "Input",
) c/ a9 b( u: i. n8 s' I' z CellChangeTimes->{3.577920869375*^9}],
& G$ i9 r2 K' H! p( D* W$ s6 n7 G
; \( q+ m! c) F8 Z9 zCell[BoxData[) V5 f& d0 _# p i. a& R
SuperscriptBox["\[ExponentialE]",
9 o2 ]( Z" o$ q' r, Y. ] RowBox[{"3.141592653589793`", " ", ' `* a4 ~8 n7 e l2 M- g. ?
RowBox[{"(", 5 U% k) w; ]8 O D
RowBox[{
' f/ b8 `/ ?7 G RowBox[{"-", 9 I' }+ X& l0 y7 `* h4 K6 T& ?
SuperscriptBox[9 N1 O# I4 k- G8 }
RowBox[{"(", ( `3 w( F! C. u2 W& K
RowBox[{7 r# J' A m( Q
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
& Y9 e T9 _' N. U* ?3 \ SuperscriptBox[
: A8 h( G s: k# }4 T! F" A RowBox[{"(",
! D: ~& k- `. g' [1 D$ q" y RowBox[{8 k1 t0 b" d+ q W# j' u# e, f* E5 f
RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-", , ~- y) q9 X& a
SuperscriptBox[
1 x$ B3 `: G* h' f' J3 y4 h, \3 B RowBox[{"(",
: @8 b2 n, A. V1 A* [ P RowBox[{0 |: D( y9 H0 p3 V6 K4 Y) G
RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", ( G" P& D5 \$ W% }( g, \
SuperscriptBox[/ S& a; v$ [9 B8 A9 U- ~
RowBox[{"(", # u7 F* f. }: P, Z& Y0 l
RowBox[{( L4 Q+ @) h+ B% k7 f' Z
RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
( n- V; K2 N7 j W# T( Y" k$ v. i, O" w SuperscriptBox[
* y! n( W4 R+ m! w4 ^ RowBox[{"(", . K- H- h/ \2 P- G
RowBox[{
p1 L9 t9 z9 |# d RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
, x \/ ?8 u4 I0 J1 Y* K: v SuperscriptBox[+ T* n, C2 p4 {8 N7 V" {1 A
RowBox[{"(", 2 H% Q8 L& L0 \. h" v& R1 k
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
8 H6 g0 T4 I5 E$ l$ e$ q; h4 H SuperscriptBox[
1 t4 V6 d: _; l RowBox[{"(",
* ^; ]7 z9 Y- l RowBox[{, I. `& s0 m2 E1 f2 h/ O
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
, }( j" r+ s0 ~9 [ SuperscriptBox[0 `: v8 k7 x) c2 C$ i. O
RowBox[{"(",
* Y0 r* j. v0 O3 K RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 0 E' t5 G3 t5 U! ?1 i
SuperscriptBox[8 @! Q3 M, T8 j
RowBox[{"(",
# V: T8 B2 }7 A( I! j. A RowBox[{) m, b6 d8 w5 i, j" }6 O, d/ e7 q
RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], 1 g8 X2 H* P) j" J3 }' ^: H
")"}]}]]], "Output",% D) U, x, K# ?0 ^& M
CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
! o3 N B# w( [6 P { 3.577960815043248*^9, 3.578012221953125*^9}]% ^& h' A5 F4 J: U
}, Open ]],# G6 Y! z- ]5 ?3 Q1 G; W
4 i$ N1 s# m/ i& M8 @
Cell[CellGroupData[{
3 W, @/ \* K& w2 V5 ~: i; z$ p) r/ Q2 j2 E
Cell[BoxData[7 W1 t8 d1 T) _- P* c* \, v& j& g
RowBox[{"C6", "=", "Ca"}]], "Input",
8 M0 Q& g' e" c2 G; M0 ^! }9 x# j CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],; X/ l( G. \3 o6 P5 g3 v
/ s# H w& b% T1 n, Y2 ~
Cell[BoxData[
8 K4 {$ O3 @+ u1 ]% \ RowBox[{"{",
9 \0 p' Z" L' Q! v9 B6 W! p RowBox[{
8 ?+ z; N: b- m/ E6 y' f/ b "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
) C* z: b; a0 f2 Y5 S "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
2 [' h: U/ x. W. P "0.494866`"}], "}"}]], "Output",
! F5 ]) x0 z" O2 |7 L, { CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,' Q( B- N* ?* O6 R: J6 j
3.5779608373044868`*^9, 3.578012227359375*^9}]" o& n* M4 k1 C) b; T0 B
}, Open ]],7 N' \; _ \' O9 D
: b9 k' U8 S& P$ W, _- _1 R* x6 N4 Q/ \
Cell[CellGroupData[{
' s) a* s+ s' r7 ]4 z7 r
- M: i3 e0 G2 ~# `% F: K5 u' hCell[BoxData[ q: Y7 U( J* @0 q! D
RowBox[{"u6", "=", 9 {, M" W! }, {# W4 a6 _( r
RowBox[{
6 z* @8 [% R8 Y4 {# o! ` RowBox[{"Exp", "[",
+ g2 \+ C6 h: a6 @! G/ u% j RowBox[{
# r3 V% O3 m& C" o) s- [ RowBox[{
% p& \/ t, B& @5 u RowBox[{"-", ! ^$ D8 p$ \. p0 x, b( |+ H
RowBox[{
% D# m. A8 }( O9 l+ h RowBox[{"(", # r" Q) ]$ j2 c% G) E3 [% |
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
: ?. k, `! ^/ i: y+ t5 `. y RowBox[{"(", 4 O. E% K, H/ _4 V1 Q! ]
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
) X3 i1 }; z- K; Y2 z1 b "]"}], "/.", "DeltaX"}]}]], "Input",7 r) q4 L" c, U, ^% ^
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],
5 h5 W5 S8 D; v# m# B$ j: `: K# P3 j4 b! D
Cell[BoxData[/ u4 j. s# g$ |; A! t2 @6 k- I
SuperscriptBox["\[ExponentialE]",
) M# E! T% i6 Y# f RowBox[{"3.141592653589793`", " ",
7 D7 O' E; S" e- \. N/ T% U$ f RowBox[{"(",
$ v; ?4 M- O' N7 w: w0 C K RowBox[{
( Q5 F1 x9 r( ^ RowBox[{"-",
5 q5 W2 L6 p- g+ j( W SuperscriptBox[! L L! w5 J* C9 N' g& e. \- c& H
RowBox[{"(",
" J* D* k9 J# T$ s# B: Q RowBox[{
( x5 m0 _$ ]& C RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
. F6 f$ i& b& `% } SuperscriptBox[/ F c. i* t/ D& }
RowBox[{"(",
: d6 @- T+ P) U$ M" O RowBox[{
$ g* g# ^( r; Y0 V8 a* V; C RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
$ _7 H- f1 F$ y* ?. x SuperscriptBox[' A( j& k5 G9 L' P. _2 l. O
RowBox[{"(", % Z# H5 d" D& Q3 `$ X
RowBox[{
/ `9 k$ R2 O( e# e7 L RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
7 z& s; A9 H; U$ j SuperscriptBox[, h$ n) R* K h/ E, A- l# T
RowBox[{"(", 1 }! p8 Z3 ^; Q3 z& C
RowBox[{: W; k. b& K0 Z. K" C7 Q' N" @. u
RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", + ~+ D! B$ `! d0 @
SuperscriptBox[5 ~* `7 Y6 W1 T+ h0 |
RowBox[{"(",
- F5 _2 N1 C. V7 w- E( u& [6 r RowBox[{
- ?9 s+ G0 ]" _8 J- r, t- H8 K& | RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
4 F9 Y' S' T1 a$ }+ `" I8 y' u. [ SuperscriptBox[" N% r$ m# j0 O0 M. D- T/ J: I
RowBox[{"(",
5 g! p0 r' {0 Z+ {, H RowBox[{ F3 B4 L4 s. M* g$ M, Q/ Q2 W
RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", ! _! \6 w! T: F
SuperscriptBox[
* _5 A3 ?9 a* p7 Q& d; G RowBox[{"(",
' K B3 A' S; @1 {5 r# B RowBox[{
/ S7 a' u& v' X RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
2 w$ G3 J* |6 [9 T) s7 \ SuperscriptBox[; D# O' z5 J) D2 j( [
RowBox[{"(", ! b' a! E0 A% ^3 B, k. O1 K; c* Z
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ) q. {+ j* I9 l- S
SuperscriptBox[
0 g( N' J$ j. e" k' j RowBox[{"(", / c( x# M% w- w
RowBox[{+ t7 u' j' w8 [( ?
RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}],
# e7 @7 _# ]- z5 [) z5 G ")"}]}]]], "Output",
4 F T7 m) e1 N8 Q CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
9 I5 L; P7 C0 ~" V& h8 v8 E6 h! P. q 3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
" t' _( i7 V/ E: q}, Open ]],5 b, @* N1 }$ Y3 r, g7 P% n
- P) F0 P( Z! \1 a8 w7 q
Cell[CellGroupData[{
8 L4 A' o* @2 w9 p' {( t& V _/ h' v% b8 s a% b( h
Cell[BoxData[3 z; Q1 Z' a' S P: {
RowBox[{"C7", "=", "Ca"}]], "Input",
d+ C8 p8 z# l7 W CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, & d/ h% j3 f: Y
3.577921316125*^9}],
+ ^1 I" x0 j# j/ a6 X7 R& u9 |4 a! t1 _- N
Cell[BoxData[; u6 p4 P6 z$ F& g. m* u& M0 t
RowBox[{"{", 6 r( K: [* ?- k6 V8 _. R3 p
RowBox[{
( {9 o. v. q; j0 b) w: C4 D. \' e/ v "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
" g6 E9 u3 H1 Y, n "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}], ( o( Y* R% l4 C& N4 L8 ^. l
"}"}]], "Output",
' N# _( \ s* M) p$ ` CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, 0 W0 N% u* k, D
3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]( N5 Y2 ]; U4 Z0 Q
}, Open ]],7 W& u. a8 S$ Q( k: X
4 |% K0 c/ e6 l3 ]" O
Cell[CellGroupData[{" _- A$ `, [7 `: u. J! O
. F4 @- |* B5 d+ M$ [& ]+ X( P) G. XCell[BoxData[/ {7 K: k) o2 r! R/ _ y
RowBox[{"u7", "=", 2 C/ b* b; G: x+ N
RowBox[{
+ n- a* c$ J8 ]" a RowBox[{"Exp", "[", . r! Y3 w3 O% J ^. ^ e
RowBox[{
3 p7 l7 E; N$ t, C8 L RowBox[{
$ i3 n. Z/ |' v; y: R$ I RowBox[{"-",
/ f2 ]( t" i6 r/ T6 ?! B RowBox[{5 T2 J3 {: j& s3 Q- u; X$ x% i
RowBox[{"(", ' x+ L+ t$ O1 R
RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 4 r) I& N# C4 T7 J/ t
RowBox[{"(", $ _6 T1 f. m3 D; K1 D
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],$ {. X, w1 F2 d0 \+ {" P& T
"]"}], "/.", "DeltaX"}]}]], "Input",/ `, L% ^9 ~4 c1 p
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, 2 T: k0 i' Q3 L( H D. v3 Y# Z1 r
3.57792132028125*^9}],
; ~" {" o9 d% T+ |' y3 T L2 v7 ]. ~3 Q# [
Cell[BoxData[7 }# v' H8 v- V9 E3 W6 r
SuperscriptBox["\[ExponentialE]", , p8 x# q7 a3 N4 \+ z, p: _4 c
RowBox[{"3.141592653589793`", " ",
! \' `( r5 }$ R2 a0 Z" V/ U RowBox[{"(", * E0 T5 a D; u" B* @- @
RowBox[{
! o; u/ q# J$ O4 r( H RowBox[{"-", ! R/ j6 Q0 ~# x
SuperscriptBox[
/ w$ F5 a, C( S& H& {1 i RowBox[{"(", 0 g# U; h, V8 B- u" ?/ q+ K
RowBox[{/ S4 s9 H2 T- n, D* m* }; V
RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", 1 P' G* R) `; _: d- ?. S
SuperscriptBox[
; _/ B7 O8 `( N1 Z% K! p* h# a RowBox[{"(",
7 R( d- m- g* v% O9 R RowBox[{
+ s" @: s: m2 D& U6 N RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", 3 o8 _0 v: W4 t9 @ `) z6 v5 L8 s; [
SuperscriptBox[
, t! b* j: a/ a! e: @ RowBox[{"(", 1 n6 ~! j, S8 C' b. b/ b! i
RowBox[{3 q4 s8 I1 j2 g) W' V _8 x3 G- _
RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", # {1 s1 Q3 K) K" }: D
SuperscriptBox[/ w/ H5 r; A; T* k+ w- ?+ S/ c4 W3 C0 h
RowBox[{"(", ) [- K% D9 h$ D
RowBox[{- |; A- m0 [) E5 `6 @+ J$ f8 d
RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
9 {- n# V" B3 s# h0 E! e SuperscriptBox[
" r! ^' m+ k$ w* s RowBox[{"(", % U9 U3 C7 K) J. A/ g
RowBox[{
" L1 m3 q1 v9 m, l K+ O RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-", ( C$ f2 p0 _* i$ G2 i7 P; g' p* ^
SuperscriptBox[; h' ], N- q- v' j
RowBox[{"(",
" M; v3 B; C7 k' n6 Z; R RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
3 j& Z! s" B' @) l& [& b SuperscriptBox[$ o. W7 X* c" e0 G7 q: e! o# U9 ~& r
RowBox[{"(",
- i1 [) A# V' o RowBox[{
r- c. {" B8 T) | RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 3 y& H3 S9 e7 Y$ Y, M
SuperscriptBox[
9 G& K8 I4 `9 L8 {0 x RowBox[{"(", 7 `) s1 C- K {7 _* i9 ?# I
RowBox[{7 W# z7 T. P4 L4 j- ~# j# f
RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
' c) S5 Q' ^, P( l% s/ i) P; I SuperscriptBox[
( N1 A7 r, B5 T4 B RowBox[{"(", , Q5 k; ~" s9 Z s1 d3 u
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
: b/ ?" a% _- U8 \( b& z; f ")"}]}]]], "Output",1 M5 L7 V- c) z2 @
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
7 h6 P+ a" L0 Y1 D" c 3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9, 6 J5 G' }* K* ^0 N3 ~4 x
3.578012251359375*^9}]( Q( n3 D& ?; m+ x
}, Open ]],
- I2 c# D8 Z$ m1 N. Y# V% y$ t
3 n% d6 \2 r2 _Cell[CellGroupData[{
& I7 |) ~: O5 N6 G; T
0 A3 {9 F& d9 U& DCell[BoxData[2 i& @6 W' r) S' l) F W' ~7 L( p
RowBox[{"C8", "=", "Ca"}]], "Input",7 D+ J% z9 c4 u: [. [- h
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, - ^7 p6 x3 Q$ L7 Z
3.577921316125*^9, 3.57792141421875*^9}],
2 K7 c2 F y, k) O6 [2 ~
8 l9 H% K6 h8 d$ WCell[BoxData[
; G2 }, n2 M( S9 C1 g0 }6 k RowBox[{"{", 3 w; W# c) i# v( s: w8 i1 n4 L
RowBox[{
4 u# O7 \4 K$ V: N3 J# m" a9 p "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",", 9 l+ |4 F9 }3 c6 {+ b6 w" @$ u
"0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
7 o8 ~5 Z+ G; J. {4 s "}"}]], "Output",
" w% o* f: G% V) }3 w CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, & Q. K' ~+ z# ]8 t; V8 d( E* j) `
3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
* y/ R# x/ o9 M 3.578012260515625*^9}]4 }# Z! s, p# {1 [, w, `" ~
}, Open ]],
I6 E6 R$ j& T0 w, R0 e/ w# D( R( @
Cell[CellGroupData[{
8 o: f+ l( \* ^% U7 {& @1 q1 v/ f, G4 q5 Y" E% k9 c
Cell[BoxData[
, |2 A- s! ^* Q8 L H+ P RowBox[{"u8", "=",
0 M1 L( @7 s* X0 C RowBox[{
4 R% l3 a0 e4 g9 `2 U$ A; R RowBox[{"Exp", "[",
1 b6 r/ ^6 C# h# U$ i0 n! S RowBox[{
% A2 G2 M8 M: i' d) l& t# T& S RowBox[{
1 y+ [: \3 D! r ^2 h- f; n" T RowBox[{"-",
2 I6 w9 j" S+ J6 }0 j* ` RowBox[{
4 B) F5 D1 H1 t# u, D% k RowBox[{"(",
$ S, Y) F0 K* s" B. }# H ~3 _ RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
/ ?2 [$ v# C+ L0 H( G) m6 ]/ T$ d RowBox[{"(", 3 [" d7 F( o+ e$ c/ A
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
1 |: a4 Y8 b. H- F6 y; F. c6 C "]"}], "/.", "DeltaX"}]}]], "Input",
* b* z- w n/ u& {2 w0 d1 ~ CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
& R5 a+ r( H! q7 z- O& F 3.57792132028125*^9, 3.577921416921875*^9}],
6 d8 o! k2 w. A) p( W4 n8 X7 d' b, @' ^
Cell[BoxData[3 X5 G U* Z( c
SuperscriptBox["\[ExponentialE]", % a/ W: F; L* b8 y/ _/ f8 h5 |0 U
RowBox[{"3.141592653589793`", " ", A: | t+ V7 ^6 p6 n9 x, N
RowBox[{"(",
. ?/ V4 C9 N @8 X- q/ V( }0 [ RowBox[{
" ?$ l1 s2 E% k RowBox[{"-",
0 b% f; H% B$ b5 ]7 L SuperscriptBox[$ q; C' {( B! I" x
RowBox[{"(", y8 e, u+ L5 S- d7 f7 d
RowBox[{
& b# z- p% v. D( W RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", P' R2 Y ~: L/ Z
SuperscriptBox[
1 r8 e/ s/ E! [1 V RowBox[{"(",
& f- G: J: `; y& T7 z/ [6 A, O# S RowBox[{" |2 D2 m$ a5 ~. n3 N
RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", + i8 O4 m) _+ K
SuperscriptBox[' X" M5 k# H4 V2 Q$ G& [
RowBox[{"(",
1 v, W. r8 f6 ?+ A7 L* L& h RowBox[{
# V( @3 ^* E* k& U0 t& g f. P$ s9 d RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
" C4 H2 H" j0 E5 R7 V1 w' g SuperscriptBox[
+ J5 V5 P2 m6 P RowBox[{"(",
& S! a% ^/ z# i# M# k RowBox[{% {1 x+ C4 l' B) f$ y1 _& c
RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
) e( p: u4 k6 q7 b! N SuperscriptBox[
' h2 P( O3 W) H$ l2 k& ] RowBox[{"(",
" C2 Q8 f% M: j6 G3 h: Z RowBox[{4 b# V3 z& B9 ?: K
RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", ) D+ m' f1 m7 I1 S! ^( B
SuperscriptBox[
( E3 ?+ Y2 H) D* ^* G4 D6 J# V RowBox[{"(",
, K' X3 ?- q( t* X+ o' x+ x RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 5 C( x& h+ w1 _
SuperscriptBox[
, E/ D8 h7 D8 {. T2 A: w RowBox[{"(",
# B( d- d/ U& P0 y' L! m% ^4 N( ? RowBox[{# @. j6 p1 c$ d0 A9 n. F
RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
' B& X/ j' K7 Y3 P4 \3 R4 z SuperscriptBox[, O- }$ K5 G9 a v0 ]
RowBox[{"(", 8 t: d3 L* T0 c7 L9 j$ F
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", & N4 r0 N# X9 `) _9 T$ E q2 S
SuperscriptBox[, D5 U9 X7 s: R3 [
RowBox[{"(",
& B+ y5 J7 N$ ?$ F; h RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
( n" Z! {( R x+ S' | ")"}]}]]], "Output",
% B: J) D) B4 {$ @6 \) I CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
- t" D c( a1 {! ]' c 3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9, 6 l) V% z5 P: d# _
3.5779608945565863`*^9, 3.57801226165625*^9}]' z7 ^/ g3 }8 n* \' T% ?2 ?
}, Open ]],5 l1 u& k2 v( I: s$ {/ R2 V
8 G" i9 N0 n2 t+ t0 d) M$ dCell[CellGroupData[{
5 t7 v# y) Q% ~* E! X3 D N: x4 O1 H' h$ H) ~& D, g# U
Cell[BoxData[& q! t, h- h# o& ?0 u* D0 |
RowBox[{"C9", "=", "Ca"}]], "Input",% F$ K# j' N# \7 E
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
' e! M8 ~8 y3 k* I; w 3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}], P: ^, h% f1 e G: T$ g6 T
3 }3 k2 A% r1 S
Cell[BoxData[' y& j/ b: V! U# S/ {" c9 d
RowBox[{"{", 2 T3 q; F7 L5 y5 [% ~- w( L
RowBox[{! ~9 r2 F) l/ p% e6 r5 l1 J+ E
"0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
- t2 D9 Y; N8 Z( x! V( i "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}],
1 {% `+ i; [, w$ X" F, a8 r) j7 U "}"}]], "Output",
6 B0 c1 y5 m/ T2 g: S CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
6 ]; R! P* D( b+ Z9 R. r; J9 K- f* f 3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9,
: ]8 w& F0 ?' f. J 3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9, ; n$ w) \' l" a4 f4 N
3.578012268234375*^9}]4 L* h- e& [& n- d) Y8 v
}, Open ]],1 l. x% T. z+ p3 G+ \
0 W+ y9 m' I0 s- OCell[CellGroupData[{9 a9 v% S4 J0 k' P
( t2 R2 e" G# g/ a7 s- H( zCell[BoxData[8 F5 R1 p1 J7 T+ b. F1 [
RowBox[{"u9", "=", * z* r3 H* u: g
RowBox[{
1 W; s. E9 }% _4 D! s RowBox[{"Exp", "[", 9 o: u) O. x3 Q& j! N
RowBox[{
' u7 Z K7 c q# H8 s RowBox[{- q8 W8 O' a4 [5 Y- ^* E
RowBox[{"-",
' d9 ]# @% [0 ] RowBox[{
' e. {; F9 D* F5 Y6 a' I0 L& Q0 M RowBox[{"(", 6 E* _5 b) |( e K) U
RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 5 }) n* ~. F* K! X% B! T$ g
RowBox[{"(",
! E3 v# L- k5 D$ }1 Z; `9 X7 \ RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],3 R; `; [: [5 s
"]"}], "/.", "DeltaX"}]}]], "Input",8 a4 a- x8 Q6 I1 F
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, 5 h6 K( c! j2 G; g. \2 Y
3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],8 d1 t8 _' X( \% k. t) T1 v' g$ j
, C3 U) G/ Q, R; X( a7 `* a$ u5 g
Cell[BoxData[
# J1 ^/ u3 l* a% h J SuperscriptBox["\[ExponentialE]", . ?! q4 l* ^+ E3 ], r
RowBox[{"3.141592653589793`", " ", # H6 M, [1 D7 i
RowBox[{"(",
/ E1 I* m) C* K( U+ E- r/ C+ Q6 J5 H3 X RowBox[{
& N9 J- U3 C+ U; Z% a0 R& x8 Y: ~ RowBox[{"-", . ^; W! T" f6 j" |. u0 P
SuperscriptBox[; M0 T$ g- t6 c! n
RowBox[{"(",
0 i0 P* \0 K1 u7 i RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
/ W p, ~/ p4 ?8 o, D: D+ V SuperscriptBox[' `! g( ~) u$ R8 @' E- T
RowBox[{"(", ; b/ {1 X" s1 V5 F4 d
RowBox[{
# s) l4 B( X9 W1 t RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
& G* c+ M9 C6 \- r2 M& D0 V SuperscriptBox[
% G4 E I& l0 W% ?$ }! h$ U/ S RowBox[{"(",
5 ^$ K/ U( |. } RowBox[{1 q4 e! Z( f8 d' E9 z$ I2 W
RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", ' d+ P' E9 w' Z7 s/ F# f
SuperscriptBox[
% }2 A+ g& [: z9 F RowBox[{"(",
7 H2 j) p9 b B# y ]( g RowBox[{. G: T. t! }: D
RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-", ( C$ _) w+ L' u6 @: {) q/ E
SuperscriptBox[
) [- V2 N, N; Y3 f h: q3 ~ RowBox[{"(",
0 h3 P0 n* k. _9 S O7 t+ T RowBox[{, \2 q5 D4 W9 g; s0 C) Z* s9 `
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
2 [2 ~3 \1 L# z9 V SuperscriptBox[5 K) X( Z7 P$ w6 q( {
RowBox[{"(",
% Z1 K2 y* X& G8 I9 h RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
4 p! d# C, A5 W SuperscriptBox[
8 T! }9 I6 ^; W* L p* W" S RowBox[{"(",
" z& C5 t5 }7 O/ g; {- i& o* ?- i RowBox[{% Q, X+ D3 S6 x V( Q! n
RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", / Z- F5 Q( v, z4 j+ t' ]
SuperscriptBox[9 F; E8 D& t" G0 K. S- u0 `8 K
RowBox[{"(",
; v4 u1 w% \9 l: A& { RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
" W: p2 n$ G- T; A2 E% H SuperscriptBox[. v, V ^% a$ f) r
RowBox[{"(",
( F1 t# t6 m. G/ w RowBox[{% v; X7 K: h# ?) r$ X' S
RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
9 i) S* v; p+ x9 a, C7 h2 x ")"}]}]]], "Output",! ~4 q0 x1 [( R5 f7 P
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
4 A: Y, O, X+ o) |7 x 3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9, 9 R- b1 \# H* v* M
3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9,
9 X8 @1 V1 G) M4 F+ d 3.577961530421959*^9, 3.578012269125*^9}]
, i$ R) m8 C9 K) X; d ]0 S}, Open ]],2 B8 t1 M/ y) t$ S1 l- [; d
! \: H7 v! s8 Q. R* ACell[CellGroupData[{
) x# j1 a, P2 }, k1 t! E+ t# r
" W+ w- h7 ]5 N+ G P" wCell[BoxData[{3 s2 \) m3 T6 u
RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]", # }) k5 ]% ?" O; @$ S- Z" i0 x
RowBox[{"u10", "=", 6 {0 m) E* X; F1 D+ _ R5 Q
RowBox[{
& ? t+ K2 l* S RowBox[{"Exp", "[",
$ W5 H; w$ D" A, d RowBox[{ O E' I9 h6 F4 G( s/ j! i# ]
RowBox[{, D' ?3 x) V3 p: n
RowBox[{"-",
! {* M* n" Z& v9 o RowBox[{
8 d4 l+ ]# ]3 I RowBox[{"(", ) I) c W, V& ?7 y# @8 B9 I
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
; Q8 Y8 F. U7 q/ M$ ~ RowBox[{"(",
- ~& G, }. T; h3 c+ B RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
5 E' i5 x7 t! @' ~; G "]"}], "/.", "DeltaX"}]}]}], "Input",( x8 _, v: s# \) F
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],
# Q! N" u+ ^) K1 k+ E1 ~/ y
8 d/ N2 s& i) q8 }, t# K5 S; aCell[BoxData[: n$ d; ?. Z- {/ C8 e& @1 s5 o% W
RowBox[{"{", 5 ?' _: | l* ^) |
RowBox[{
( d' W6 r- B7 c "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
/ z. i3 X ?% Z4 x: U x "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
, k _ w5 D9 L p8 D' f& ~ CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
( e8 x! b5 x9 o8 S# W! M+ @6 ^9 r/ @! B! [8 {' s2 s: T2 N) w
Cell[BoxData[
3 @3 m' j( c. N: W- S! g SuperscriptBox["\[ExponentialE]", 5 y3 y) M( m2 Y4 X$ d+ \6 X$ ]
RowBox[{"3.141592653589793`", " ",
0 @% \7 d7 S y' B, |0 \- z. d RowBox[{"(", 6 i0 L0 m/ c G9 x+ g& g
RowBox[{
( ]% y9 z( r4 f RowBox[{"-",
* `; ~5 C: J, D0 ? SuperscriptBox[% s& s( g2 B* U8 Y8 N8 @! o
RowBox[{"(",
, d+ S) X' N# o. I, M RowBox[{
0 Q8 u; w3 w4 d- z RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", % r1 [) H" Q: j, X$ u
SuperscriptBox[
* e" B# F$ m0 y4 V RowBox[{"(", + o! m9 [) M y+ b+ M4 Z3 l
RowBox[{
; {! A! I3 z) _* D6 p% m RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-", . h, P1 u6 f5 D) p# l
SuperscriptBox[. y8 o& l; I5 H
RowBox[{"(", : y0 q9 r1 {, B; }. t
RowBox[{' b) X& y P" {: P
RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
8 x- \2 L/ p' M% y+ X$ [* u) p SuperscriptBox[" [: F$ n- V$ ]$ Q/ o9 g4 O2 s' Y$ Z; S& V
RowBox[{"(",
$ [. X. ]! ]: T+ h% w8 ` RowBox[{
* _: {/ O' d A+ P$ p RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", 4 m/ _: d, H. Z# P X: e$ k
SuperscriptBox[
9 O# X C5 _1 y0 h' f4 h RowBox[{"(", 2 k/ z. x* `' `0 Y
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", 0 K3 N1 r) U! U/ X- }" J
SuperscriptBox[
0 s% {) v! V' `$ @ RowBox[{"(",
5 Y) J( A' C% m; o& b% O/ S RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 8 {+ \2 J# n9 }) V# F$ p1 e
SuperscriptBox[7 z' B g B$ J* [
RowBox[{"(",
" N: R, ^" v4 P RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
; ^' _' g! U3 U# [# `' { }% W4 | SuperscriptBox[
& T7 x: L, ^# u& R7 l( a3 \5 D RowBox[{"(",
8 s% ~) Q! L8 j% d$ A RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
* I0 H- i" Y/ I( O0 f! F2 p SuperscriptBox[( V& ^, c- S! v m
RowBox[{"(", ) Z7 T, P0 b1 u4 J1 I
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ; w/ N( g; p, L$ ?
")"}]}]]], "Output",2 h! { C9 K: l$ o
CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]
) M0 f8 o; d0 M# @* B; _7 t}, Open ]],
; }( M% r/ i: y$ p
7 o$ T. y, e# p0 ICell[CellGroupData[{' N7 w, I+ U5 B0 j9 b$ [/ w% h
& O; I- P( M" ]7 P5 C5 C4 l
Cell[BoxData[{
$ L; C+ ~3 c4 i. Y4 n7 B RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]",
5 ~! y7 W7 {* t/ y! s* q3 D RowBox[{"u11", "=",
$ }2 [/ c% i+ k% [/ Y2 B, L+ X) O RowBox[{& C+ P! t% Z% |& l4 d' V! [
RowBox[{"Exp", "[",
. e: z( X: F, d3 {, l" y- c RowBox[{! @0 O/ h9 S5 {& k: {: r
RowBox[{) v7 M1 o$ K7 ~
RowBox[{"-",
. @9 P: v, a$ ]3 o4 H9 c+ | RowBox[{7 G) d1 {: n, Y/ t1 e
RowBox[{"(",
W G3 [' M; M3 R) A3 x: y RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 2 g% R( E7 |2 D2 O" I
RowBox[{"(", 1 E9 P. l) l/ @/ K. Q$ P5 [
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],* p7 B7 k6 d o: P7 V; B
"]"}], "/.", "DeltaX"}]}]}], "Input",
6 _- s/ m5 P% z# n* X& e! i: V CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {/ K. {0 D, }- ?
3.57796154237158*^9, 3.5779615434011817`*^9}}],
1 Q {$ H( B- o# `3 C3 i; y1 O- m7 _+ o7 ^1 X4 L( Y6 P
Cell[BoxData[
$ M' N) l# q0 ?7 p RowBox[{"{",
* h5 ?5 T7 s! `& [# P RowBox[{2 {* v* N3 o9 f, }) M& ]
"0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",", 6 L0 s" u# f) Y0 u
"0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], ; O6 Y, C0 U6 l
"}"}]], "Output",& t6 N- n# G& ^( A4 A
CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
0 M! U" j) y+ d8 P9 z 3.57801228203125*^9}],
: C K3 P1 b) M3 ]$ L$ b+ }4 a6 U# g7 y( W- ^
Cell[BoxData[
6 Z3 d) W$ Q9 i* M' ]$ ^ SuperscriptBox["\[ExponentialE]",
6 `" q4 h% Z* H r$ Q- r RowBox[{"3.141592653589793`", " ",
8 d3 m$ S$ k+ B' K$ R6 h" g8 X RowBox[{"(",
& `, X- Y; G: R RowBox[{
3 f4 z( j. j2 k RowBox[{"-", 9 @: h7 E/ C& [5 q' ]
SuperscriptBox[3 y: I* H% `! o, D6 q6 m
RowBox[{"(",
% D4 _: H+ U! g$ B+ k6 @ RowBox[{/ ]7 I$ g: b. \. s! c
RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 g p8 v1 c7 z
SuperscriptBox[
- {; a% ]8 g7 W. \/ d* Q RowBox[{"(",
, ]0 f- \* v: X6 a$ i2 U RowBox[{
. J7 R- A- R1 Q* k+ W RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
: Z, z% u9 l4 ^5 Y- w SuperscriptBox[
2 P7 U2 Z$ ]# Q. O RowBox[{"(", " }) N1 T; w, _/ c$ A
RowBox[{
) A+ j) m: l( }- n RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
. H O: F! x2 ^4 [- } SuperscriptBox[# M: T; [3 [! v- S% R3 @
RowBox[{"(",
( Z! S/ U @* M2 G: z RowBox[{+ ?9 ~( @: S; H1 j9 o/ f
RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
& U4 p( L( ~8 Y/ R4 `0 K& O SuperscriptBox[# d |5 H0 n9 K2 n' e T3 N+ e$ n
RowBox[{"(",
5 D1 H; g1 j- r- K+ a% I5 O- E) U7 y RowBox[{
" x: }$ x T1 H0 U RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-", 3 p' q, ]% s: K7 `2 [* n7 ^& S
SuperscriptBox[
& u# Q5 G3 e# j( e2 a RowBox[{"(", ' l9 e; @& S( k
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", # S% D. Y; @$ m A& j
SuperscriptBox[
I, v z) h/ r t' O4 T RowBox[{"(", / @# P! _1 m& q; s
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", * l2 H- [! ^. D% B& S' B6 c6 ]
SuperscriptBox[
+ A# W8 _% r: G& D4 X ~1 B0 j RowBox[{"(",
% [3 t5 s2 ?9 I, H RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
" ^9 ^% a. v9 e5 _ SuperscriptBox[
3 G* ~9 Q& c- F j7 { RowBox[{"(", " B3 [, d! H4 {1 C: u; x3 f
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 5 D; I( u8 k, v
")"}]}]]], "Output",
+ U# _# v: F% n8 t3 p CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, $ }* u% |4 F+ v! g
3.57801228203125*^9}]$ H x, t9 e2 ~1 @( a( u
}, Open ]],4 q! r4 K& ], R& i* N- c7 t
7 e# E5 H, n' ], j3 ~* X. k
Cell[CellGroupData[{
+ y# T' z8 o4 @8 e1 e. R' H1 A1 s! s& l- _
Cell[BoxData[{/ w0 N) N6 h& ^
RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]", " S6 u" N. C$ ?1 r8 W/ X
RowBox[{"u12", "=", 6 R: f6 d0 w: h/ R
RowBox[{
3 Z9 R& A4 H3 ]9 a2 ~0 ~ RowBox[{"Exp", "[",
/ z V7 j+ l% t# c' ~ RowBox[{8 [3 K2 ?8 w' E
RowBox[{
% B, S7 q/ `6 r: ?+ M, d" C RowBox[{"-", k& c- J5 y U
RowBox[{( F' W/ _0 {4 R* u7 } N/ s
RowBox[{"(", 0 F( N0 Y4 H f: I; o% D- B
RowBox[{"Xa", "-", "Ca"}], ")"}], ".", : A1 L$ p9 F& x9 X1 c$ H& Z+ Y
RowBox[{"(", ; Z: {4 Q$ A( \+ d# ?7 s, i
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
! M4 x- G, V1 B0 C3 b7 }9 Q4 u "]"}], "/.", "DeltaX"}]}]}], "Input",
% x3 ?: ^# W# `: c9 r0 B; e- R' j CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
& r4 X8 N, L! ~0 S( f1 ? 3.57796154237158*^9, 3.5779615576284065`*^9}}],& K6 I& _% M! M6 W5 Y. l' N6 {
* ]; D4 \4 i9 W- N- u% q; o9 Y2 WCell[BoxData[
" j; r9 Z) \) v! R RowBox[{"{",
' g( b5 U$ U0 w; \ RowBox[{
8 Q# e, L1 g; _: r$ c "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
8 K- @9 |- Y: r) r "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}], # G6 }4 I# a, X- a
"}"}]], "Output",
4 g; A9 w5 K, y/ h* d CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],2 z, U2 e6 _# @0 b6 h8 w$ m# Q
1 k2 K) `2 W& ^ n% {4 k
Cell[BoxData[; j5 G" X3 i; X" |( _, C
SuperscriptBox["\[ExponentialE]",
+ w' B! U5 u8 l RowBox[{"3.141592653589793`", " ",
1 a: h: x3 a9 g# ] RowBox[{"(", # U! t! j# E3 O
RowBox[{# x* Q0 |) ~7 F; d5 U' S
RowBox[{"-",
# X6 l9 i1 D1 ?2 m" c SuperscriptBox[; X5 r! d: B9 D: S1 A I7 B' }3 D
RowBox[{"(", 3 b$ L7 \7 u/ U0 c, h, i* S0 y
RowBox[{
+ i8 W# L6 E4 F3 e/ s' e RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", : w5 q+ ^: |8 @5 v
SuperscriptBox[5 O1 X. e8 ^* O% N
RowBox[{"(", ; v3 r) Z& M$ _" D( k
RowBox[{
5 }' s$ V( _; G3 f i7 { RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", 7 y9 t- c9 l! f- K
SuperscriptBox[3 W- }! l* t$ _% g- _8 I
RowBox[{"(", $ b9 c, e2 x; Z
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", 1 N6 {! V' k9 ~5 Z# r9 K
SuperscriptBox[
; T- L, y2 p( W/ o: S8 y/ J! \. h RowBox[{"(",
- w/ \2 G& s$ O. B6 V( `* z! ] RowBox[{
! g: n0 y/ Y- F$ h" g RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
% D z$ T# k# Z6 B* m- ~) u8 p+ { SuperscriptBox[( A5 R' j+ m- U. I8 K$ b
RowBox[{"(", 3 L. ~9 h. R# @4 y! V1 w
RowBox[{
I# o) T! O8 ^ RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
1 t. X: K- X3 J1 L; W, o4 ^ SuperscriptBox[
5 [2 G. J$ O, m8 ^ T RowBox[{"(",
* ?, f+ T: d, ^ c. V0 A; T RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
& A( ^9 m: r2 e4 h" m+ \; g9 R' _ SuperscriptBox[
) o9 {; W9 s9 {! ?9 ]/ r! h+ ? RowBox[{"(",
7 u; L! m9 B# y0 c1 ]% J* X8 v RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 7 _: ^/ Y1 T4 E- |
SuperscriptBox[* @% E @* G4 w. l, R7 e
RowBox[{"(",
# S( ~8 O1 C6 [0 v0 j: Q/ P+ q RowBox[{
: f' \7 V3 e( _! Y; C RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", 1 F( p2 J; Z, W7 i- @4 [
SuperscriptBox[( G d' |2 L4 Z6 V/ x# }+ _
RowBox[{"(",
9 c9 n m) y. Q9 n9 \6 c RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
( z) g7 z$ t' N/ Y7 h/ N ")"}]}]]], "Output",% F- U1 p/ F. x' b4 G+ Q7 a
CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]
. R- L. j. D" m+ E* w- I$ Z}, Open ]]," j" ~* E/ T1 U) O: D( J
! k8 P% A& h5 U
Cell[CellGroupData[{% @4 G" j& X7 B3 {$ D6 `
0 T+ R, I2 q" I
Cell[BoxData[{
' X9 k7 n( q+ d0 Z/ C1 l8 i9 h RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]", 2 J+ _' h( h8 W* f2 y7 K' {
RowBox[{"u13", "=",
. \7 Z a$ q$ z/ G. | RowBox[{
6 v- V5 h* Y( a* F9 x. Q RowBox[{"Exp", "[",
6 Y' z: p1 H/ V4 p; { RowBox[{ y& U# D5 L: n1 l& Z
RowBox[{6 J) P4 `) r1 z& c
RowBox[{"-", ( X8 O8 S8 J( I7 Q+ \
RowBox[{
1 }# t) E) ]4 ?: D T" U1 b5 y RowBox[{"(",
8 k/ K% r/ K3 y1 I% s( ?9 { RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
% h# Z2 d) p( w1 e8 K, ` RowBox[{"(",
' M: D: o9 G) B: j/ k6 _- }& X RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
' Y& f7 M% s& ^; e+ }% M "]"}], "/.", "DeltaX"}]}]}], "Input"," V3 i: J- u- A8 B0 V6 u
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
4 a; K2 B0 m* ^# f/ A2 s8 B 3.57796154237158*^9, 3.5779615599684105`*^9}}],9 g1 @8 j3 l! F9 s
8 R# }9 a# a& ?0 e4 b5 t% o! i
Cell[BoxData[8 `1 t+ x* p9 X! R; @
RowBox[{"{", + n3 v3 d. `9 y5 W" I8 x
RowBox[{
2 E: ]8 K A$ O, R/ ]! E a "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
8 w1 g# I+ o2 N7 |& z "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
: E* {% N4 R6 j: v$ c2 B" l "}"}]], "Output",6 q& W3 O0 k- A) J X1 K
CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],
: v7 l! V6 E$ t# u/ v
0 M& c% J( E5 k" @Cell[BoxData[
& U2 M% X. y S& V( P SuperscriptBox["\[ExponentialE]",
0 q; V' {, g$ w& y% H! j RowBox[{"3.141592653589793`", " ",
( q, N7 q w. e4 }" `4 K$ N: z! X RowBox[{"(",
: r3 {1 K" \0 I2 D" {$ O RowBox[{, \/ \- d: D: |" H' n% d
RowBox[{"-",
& R8 V% }4 s: j: b+ }$ p Z SuperscriptBox[) |7 `+ d- f+ n3 M( s7 P' D% v2 H
RowBox[{"(",
4 x1 W, g' o( W2 b8 }) F: A2 g RowBox[{* w x0 P# q6 w1 d/ a$ t
RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
' e+ h* C, O3 H* E5 a5 ^ SuperscriptBox[# G# E% N8 D, \; w3 ]' u/ y
RowBox[{"(",
9 A: D6 O) X0 O" f5 A9 I RowBox[{3 V$ V& ^. a t( Q
RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", 0 E9 E4 S# R, G0 Y3 e6 d* z
SuperscriptBox[, E, F: {8 X/ `6 k m f6 _7 b( d
RowBox[{"(", 0 L2 t7 i8 L! M m7 B; s+ a
RowBox[{
9 |$ H3 O, }- D2 p RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", * ?6 F" ?0 i; I& K; `* Q& W. Q
SuperscriptBox[
$ b" x% a( g% K1 [+ R$ S- \- Z RowBox[{"(", : t6 Z% r# X# D
RowBox[{
8 e8 o5 q/ Q% L4 e RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-", $ z8 e+ s- w6 W; E% Y& N& W
SuperscriptBox[
) S: ^- [8 b8 G% |( c RowBox[{"(",
6 r% N- R; H2 b+ l- \& | RowBox[{5 I4 C! X) j( Q u1 J' s2 W" {
RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", , Z) N4 h; h) T$ m- ]+ c7 K
SuperscriptBox[" n! T' s% m' M% g/ o H
RowBox[{"(",
( r4 a4 F; ?5 R% | RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
# s# s- f1 g7 |% a* r! o- t. ?5 l SuperscriptBox[
: Y0 P& L) C9 m: h. V RowBox[{"(",
, h. [; l) u. [ RowBox[{
4 P a* D( X5 p8 h$ c RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", 6 f/ @: Z' G5 L4 M
SuperscriptBox[" |$ T+ h, R5 Q( f) Y
RowBox[{"(",
6 D3 Y+ _2 f) ~/ o/ N Z9 V RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
) x- [6 u; I7 V! [ SuperscriptBox[
& v* H S% s# W0 V5 I9 d8 i RowBox[{"(", 8 }! w/ }( a9 \! k
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
9 v. q6 M1 k0 j5 |" K2 V ")"}]}]]], "Output",$ ^/ i# _, b; B" u+ X
CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]
; s+ x. A$ T+ X' {}, Open ]],& X Y* x0 V5 N N! D, B& r
8 {+ u7 D' P: r' ]$ q3 A7 hCell[CellGroupData[{3 X/ n% I9 ~( S! I: s
. e+ C% V1 g2 R
Cell[BoxData[{
( F- w8 _- k: n/ u6 v8 H1 ^: d/ i9 [ RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]",
3 y2 `# L/ m2 T' N9 k3 u RowBox[{"u14", "=",
/ l( C# S! P; ?/ W5 Z RowBox[{
' J% ]4 _' o! U9 `# j RowBox[{"Exp", "[", " ]/ I0 N5 B- Y& E
RowBox[{
* q5 G, z% \8 w% v6 y4 R% \( ~ RowBox[{
7 D5 S% x* k7 _4 ^, C RowBox[{"-",
) V L% o* P0 B$ | RowBox[{
& e% j% ^2 R5 @) q: ?; [( h. c" w$ i RowBox[{"(", % K) ?' h( Y; B% X# f7 d
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
9 D$ c4 M: X9 R7 O RowBox[{"(",
; q, L8 X1 O8 u* u; f RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
$ J2 c& F6 [' b5 }7 l2 \! u3 z "]"}], "/.", "DeltaX"}]}]}], "Input",& f8 e: e1 N; d6 u! u y) v6 g
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
, B1 v3 V& ? Z- x/ e 3.57796154237158*^9, 3.5779615663176217`*^9}}],
1 q4 K9 i/ C3 t" C; I( }( k& \5 [- T7 O' e' o. g7 v
Cell[BoxData[
; z- G3 ^0 M; S* D+ Q0 K: F3 C RowBox[{"{", 1 u4 H% _0 C* w
RowBox[{
8 [; b: \ r0 k7 L# _. P "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", 4 ^' e. v1 S& G4 @6 L- Y( v- f
"0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 8 C. I$ J; w$ I2 X
"}"}]], "Output",5 z$ K9 \9 L1 x# z; f' o" D) P7 Z
CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],5 W0 f( E! }. b0 P9 U% ]8 m' n
, h1 O% H5 m _4 m2 Q
Cell[BoxData[+ b8 Q! B" ]$ F
SuperscriptBox["\[ExponentialE]", , B# F- B8 K9 l( d
RowBox[{"3.141592653589793`", " ", & x3 ? M" H' H5 x# N" u% h" g
RowBox[{"(",
6 o6 J( h+ E' g/ F. g RowBox[{+ w% `- w( U* n. R/ v( y
RowBox[{"-", / Q* p5 ~+ H! u5 c+ ]2 a% D
SuperscriptBox[
. D- y% [1 z: ~ F5 I& \ RowBox[{"(", * u" y5 m( W# {: j1 y
RowBox[{
+ D8 } A% T( i RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
! m2 ?2 h- `: V: O* p) s SuperscriptBox[2 M0 ?- B4 b3 b9 g& t" K6 ?4 R2 R! F
RowBox[{"(",
+ h- J. u, U4 ~" }8 g F RowBox[{( P: w7 y' \6 k7 U7 x. J% D! ?9 ?
RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", & H( e' n* A' Z+ X
SuperscriptBox[
+ N' u" }8 O* c" c RowBox[{"(", 8 z: C9 X7 I2 X& r8 S
RowBox[{
7 I3 a: M0 | [6 x" C- A: ]8 F f RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", 4 v9 g( v& }3 F! x7 x) t( @+ U
SuperscriptBox[) a3 L; {/ w7 s7 O$ l, E8 v* U9 Q" S
RowBox[{"(",
( f; K8 |! B/ Z5 Q RowBox[{
4 |; g' m# U- `: C RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
" }, N x. ?/ A9 s SuperscriptBox[! h/ N: u/ h) q4 X) k! r
RowBox[{"(",
' E5 d1 s# @) d) U: O6 W3 S RowBox[{
: k8 ^8 I- c, ^; m RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-", * a& @6 K ]3 i2 G% D3 U
SuperscriptBox[
?. l8 j) v7 e0 T RowBox[{"(",
; {+ b! l+ N$ D$ T0 i& K& b RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ) ^/ w( d5 K! B- c8 w0 z) o
SuperscriptBox[
; x2 u' o" D7 k* O- I! R2 E RowBox[{"(", ) O+ {2 Y" g5 @" D( f% E7 E a
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
, C# x! {" z* |; O SuperscriptBox[# y" g5 K1 Q1 z' z
RowBox[{"(",
! l# Z4 o. f4 f5 n6 u RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
: K$ W" a4 V! {6 g SuperscriptBox[& K1 E: J; k! _4 b5 h, O1 ]9 N2 Q+ U
RowBox[{"(",
5 ~) a4 x& K8 Y; E RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
0 d, j8 {, p' E0 Y0 C* ` ")"}]}]]], "Output",1 c3 A2 P0 N1 A
CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
! x ~3 k( m. S6 v5 { f}, Open ]],
* `# g+ t5 m: J
* @; w( I0 B5 M8 h: Z) hCell[CellGroupData[{
7 [# u" m! z5 J& }& U4 W+ A/ c( Y- O, R, h: N
Cell[BoxData[{
* k7 Y9 J" i5 N2 q4 s RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]",
: ?9 X! y. G& r2 a* q+ M RowBox[{"u15", "=", " T* @! p; @9 j5 K. l
RowBox[{5 V( ~7 j6 J; m; p' ?+ c; y+ c
RowBox[{"Exp", "[",
# P% Y7 j! T3 y% u/ N+ n RowBox[{
# u0 U2 b2 i& G* d- {2 {: U* [ RowBox[{$ Q* R9 v N$ D( k* y
RowBox[{"-", 6 E) m2 U- H: Y# W; t! L9 J8 G& Y
RowBox[{& p. H4 R0 T! e
RowBox[{"(", ; e0 v' _' x R4 A2 `. g0 i! j
RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ; _4 l7 d6 u' ~, ?6 a" W
RowBox[{"(",
6 p, e, v, P) O- w8 t2 }4 ~1 y RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],1 \4 k7 g9 R* y, U4 S
"]"}], "/.", "DeltaX"}]}]}], "Input",
+ h; q* L# `! j) n" a6 Z CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {" K) y3 z& X, _1 I* ?
3.57796154237158*^9, 3.57796157098203*^9}}],
# T1 n" U3 c" a& B3 s2 S; K
l0 J/ X, P6 A/ F$ Y' KCell[BoxData[# j) u/ ? | q5 [9 e
RowBox[{"{",
7 ~" k1 q1 L2 v) }, F5 g RowBox[{+ S1 V7 U1 ^* e8 Y: }8 H
"0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
6 T( W. L% w# Z/ M7 u "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
! @( `5 q5 t- \, Z% d ?' r) ` "}"}]], "Output",! `- D+ W7 I+ f+ V; p N+ ]+ A
CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
/ K# t" D3 Q& N' i* r
/ u! s, G; W3 g6 s7 ~+ i* l1 eCell[BoxData[2 C4 x, ?7 E3 {
SuperscriptBox["\[ExponentialE]", # u! L! ]. l( F' F: |* z7 B
RowBox[{"3.141592653589793`", " ",
7 k0 z/ @) h4 k6 M! H RowBox[{"(", 1 T: v9 \4 b) L3 f7 c
RowBox[{
) T0 T2 W7 k J; B) ^# n" q RowBox[{"-",
2 V0 K8 ? t: d _( Q- ]+ ~ SuperscriptBox[
9 i) ?& a4 h: a& E, K! o RowBox[{"(",
4 z( r$ a- R5 d8 r RowBox[{( I/ q- W6 \# y# l5 w/ O
RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", - c- y3 J1 \* h
SuperscriptBox[7 M9 b; ^- Y/ e8 R
RowBox[{"(", / P: [; R/ t+ k7 f/ g
RowBox[{
+ U, z& L t, q. F RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-", ) B6 K, _/ x" F4 d
SuperscriptBox[, o$ e! ^1 C+ D/ Q+ u0 {
RowBox[{"(", & j, q6 x8 B1 k6 a
RowBox[{* K, D6 Z) c* C8 R/ `
RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", 1 w) y8 _8 {9 f* E) n" u1 ?2 M* d
SuperscriptBox[
& m5 x8 C! |& V RowBox[{"(",
: }& T' H, V1 s7 I RowBox[{7 A3 f6 {6 r1 ], \4 _ E
RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-", ( k. d9 G$ N1 h% D% G
SuperscriptBox[
: j+ o1 ?" x$ x* s4 h( j RowBox[{"(", 0 D% R) c1 j' b, k1 v$ w8 {
RowBox[{& p+ }. k0 [- N* u, w, `
RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", 7 }) L% U/ [% f; ?+ G* L, J/ f
SuperscriptBox[
E: [$ I ]4 \5 u RowBox[{"(",
: @7 B* r0 M. {% L6 x RowBox[{9 D1 S7 E% {# e) l* q8 J. Y
RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", 4 H4 U' E0 Y9 t: r0 M, \0 N* M$ j8 N2 [
SuperscriptBox[
5 F9 X5 n: v: l+ }+ ~8 v RowBox[{"(",
6 ^% a6 c/ O7 T RowBox[{. S7 x3 h5 o/ Y3 V( H" ]
RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", $ i( F& k( c& m
SuperscriptBox[
5 o3 Z d$ q) Z5 k8 s RowBox[{"(", / V- G: E, X' C( h' C
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", * _$ c% V3 n/ k/ ]( `
SuperscriptBox[
7 I7 J+ K1 S, a! ?7 o0 C RowBox[{"(", " z4 r) S, w" A2 C- d" ]
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
0 v* ^# O& \, K e ")"}]}]]], "Output",7 ]: C0 q( F2 J; P0 M/ ]& Q0 d" w5 E* D) N1 C
CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]4 N; V' \5 D+ m s
}, Open ]],7 I" f: j6 o) r2 o( Q2 C
8 O" l8 h: k! V3 r+ D
Cell[BoxData[
) w+ t0 ^: w3 k& l RowBox[{"For", "[", ! }1 X- m# \* S1 K8 c
RowBox[{# ^. Y. v1 w( \# s! w
RowBox[{"i", "=", "1"}], ",", ( G5 M9 Y( [& {% a7 G) s: [
RowBox[{"i", "\[LessEqual]", "9"}], ",",
: z1 X/ _' L: j" f: C/ d! { RowBox[{"i", "++"}], ",", 6 \0 Y0 O- Y, h9 f! y7 `) b% c4 }; D
RowBox[{' E! W- D4 @. e# b
RowBox[{"Ca", "[",
9 w2 z8 {) a0 ^ RowBox[{"[", "i", "]"}], "]"}], "=",
+ m3 D# p8 t! b RowBox[{"CM", "[",
* G" @# \2 T0 A2 Y: @7 P RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input"," F$ N+ q. t8 y }2 W6 c8 P
CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],9 Y( {* L7 V, B
5 S7 ?* L0 u- W' R
Cell[CellGroupData[{3 m/ V8 Z, [3 d. n# `" P- ?
! v" F; b# R9 i+ | @2 s) N" @* }Cell[BoxData[{
[1 I( b7 P( l* E1 G RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",
& f0 S, E/ w- {% W RowBox[{"u16", "=", . r3 \: ^6 D% Q
RowBox[{' _0 @- ^ i) ~5 _& o: G' N- b
RowBox[{"Exp", "[", ) u7 H9 l7 x8 T
RowBox[{
; F! B' x5 D6 X/ `- f6 ]$ Z2 d RowBox[{
4 a2 `- @6 I7 ]8 t! `! v% P/ j RowBox[{"-",
: w2 j4 q+ Q; ]5 o0 t RowBox[{
0 c" l, [6 I, r( B' S" v RowBox[{"(", D: U' c! W6 I( |# {
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
/ c+ N1 K0 t' {6 u/ v) @. P RowBox[{"(", 2 T# \/ {7 O6 c5 d5 v9 @
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],5 k4 I: {- p q; b4 Y! U- M
"]"}], "/.", "DeltaX"}]}]}], "Input",
4 `; u0 n7 r& z5 X! E2 M CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
2 p& M% u0 H) t) R, ^, z 3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
6 u6 p: k! Z3 E$ _7 ? 3.5779615751004367`*^9}}],
: c& [* T9 A& H# k: e7 S5 P$ n! J5 X; V+ ?9 J5 d
Cell[BoxData[
2 |" W2 N0 p1 r- k4 {5 } RowBox[{"{", 7 R/ r. a9 G$ ?
RowBox[{
2 q+ M5 ], a3 [' w7 P; F! x "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
0 X% l! b* z; x( z" b "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}], 2 `1 F. i9 W1 s7 {' D2 g% I1 g- |
"}"}]], "Output",4 _( X8 M4 A6 J0 R8 \
CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],* i; E% x- l0 X: k- r
. O5 w- R4 p v5 g
Cell[BoxData[: @0 ~ ~; L, _, J. i
SuperscriptBox["\[ExponentialE]", 6 j ~' [0 I* [
RowBox[{"3.141592653589793`", " ", ! y0 D+ _& U/ N L4 s* g4 X
RowBox[{"(", & Y' G" y/ {( J% o$ W
RowBox[{
1 U! U x7 Z ~! @5 @ RowBox[{"-", : a$ k& w2 D9 p- @4 |4 F" {) P
SuperscriptBox[; Q( W8 @7 ? A$ G6 T& ^& n0 T5 z: C
RowBox[{"(",
1 [+ w: U% c B, f RowBox[{
S( u- }3 Z" | RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
7 W* E6 X/ P9 `$ |) [6 ?, I SuperscriptBox[
9 K5 X( Z: E3 Q+ r1 g RowBox[{"(", 0 M. | |8 D' P. ]- m6 ~6 N
RowBox[{
! g+ V7 l! }2 H1 n" Y3 O; { RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", . W9 T6 c# ^: D& B$ x7 i2 z
SuperscriptBox[
7 G: m. l' q6 y5 B( l K" u RowBox[{"(", / T1 w; n/ {+ h
RowBox[{9 U4 o, q" W' _2 i( C
RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", " `, g X2 G* c( t$ T8 t
SuperscriptBox[# x/ t" G) X |4 L; O* z0 R7 I$ c
RowBox[{"(", # H2 F' {: r6 J! m) V( B
RowBox[{
, e8 [ @9 u: M3 u# }) X7 P RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", * H1 S3 U- ~4 t3 o
SuperscriptBox[5 v# m% o& E M( \/ y2 L& B- {
RowBox[{"(", 9 X7 r6 S o- N4 H
RowBox[{
8 }2 U- ~, @* h, ^2 c RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
' F$ l# x3 ]1 | SuperscriptBox[$ B. R- w' w, _1 |0 j/ L! Z- [" O
RowBox[{"(",
6 i# } N: {. e0 C RowBox[{
& T I5 x0 }: ^! G$ [) V RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
) {: k, E1 g. v ^3 U. J* u SuperscriptBox[
+ H. v8 H- I5 i8 W5 I% G RowBox[{"(", 4 L- N7 w. K8 ~& s
RowBox[{
/ p1 e. e& n& z3 F7 H& G RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
: |3 ]9 r: z* v- |/ n9 Z& t: Y1 I SuperscriptBox[
, t# G6 O/ s7 J& E* w RowBox[{"(", 5 C- y: l5 H5 ^* I
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", + r6 _0 Y7 j3 b* J) j8 R: }6 z
SuperscriptBox[
4 h: ^. c$ O6 x2 W) c: l* x RowBox[{"(",
' @3 m; V# a% H* a: G3 S( s RowBox[{
8 l1 f$ i- d2 X7 p9 x/ ` RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",
5 F3 X' M6 Z/ d& t. [" L& j* j CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
4 U0 A( j# L" k" ~* |9 i}, Open ]],+ E* q9 {8 a4 C1 f8 Z1 U; @
! E/ |3 f6 r2 s, kCell[CellGroupData[{* r0 E% r: O3 q# Q; t ]# r5 }. V( _
( l5 M8 i' }+ u& j$ C. f
Cell[BoxData[{
4 Y7 y/ K- ~& o RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]",
2 j0 p O* f6 f9 d6 o/ x RowBox[{"u17", "=", & C/ u0 N# V# v4 Q% d
RowBox[{
! i# b ^% H% f1 n RowBox[{"Exp", "[",
( {1 G" b) Z( v# M7 y RowBox[{, e- e# H i# M7 Q2 Y( b$ D
RowBox[{
' _2 F( Q5 k( U; o. m RowBox[{"-", * \0 ], m6 f3 r' s
RowBox[{
- u6 g, U, I( v' ~4 } RowBox[{"(",
5 c2 M9 k5 {2 e+ T& i# h RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
6 N# }* X6 T4 p/ c0 L RowBox[{"(",
# U! z$ s2 M, S U6 y* x9 b1 B2 _9 B RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],* k# M$ J, b" K9 C1 F$ `
"]"}], "/.", "DeltaX"}]}]}], "Input",
3 h9 Y9 v) `9 ^$ s CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {0 F' P/ X9 l- j0 f$ P
3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9, ! `" ~4 L! I/ ]6 G" ]
3.577961578953644*^9}}],
0 m& w$ Z+ |& X. E# \6 I& {2 O% s9 o+ B7 F8 S0 J
Cell[BoxData[9 ^. o& l$ }1 m$ N& Y- m
RowBox[{"{",
+ k/ M5 Q& E+ O6 K$ @ RowBox[{5 E5 l+ t b& `6 l7 L( M2 w$ K1 n
"0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", 0 Q) f" z6 _! W7 S. T( H- q& e
"0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}], # Y* @: a: i. v
"}"}]], "Output",& S, \5 v3 F! _" H4 z
CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],0 \: D+ `0 g- R% \- ]6 T
; H5 R( e, N$ _) c- o9 d( {/ y7 S
Cell[BoxData[
* X8 v. ?4 r! h" T8 T5 X SuperscriptBox["\[ExponentialE]",
* c9 w+ i" M/ t# n2 t RowBox[{"3.141592653589793`", " ", 0 e+ q1 [" x3 X- h" C" Q
RowBox[{"(",
! }% ]0 H8 a/ S) d( D RowBox[{7 u, S0 _' @ M5 o) K+ x9 u
RowBox[{"-",
0 p U9 z- y8 c4 O1 Y5 L% a SuperscriptBox[
8 h0 U V! ~( U5 ], L RowBox[{"(",
4 T! s7 G5 X0 K5 u* j RowBox[{
+ A, v. Z9 I: s, P3 \3 f( }2 |, n RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", 7 d( }* ?+ J4 c1 Z [
SuperscriptBox[
* \6 W3 x4 A1 g( D RowBox[{"(",
* x0 M) C0 Z! ], p RowBox[{
( L5 D( i! j8 V/ v% A+ `) @ RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", ! ^- Q/ Q) U) x
SuperscriptBox[
) C( A" e: S" U0 v" B) Z* M: f3 x RowBox[{"(",
: A" e4 M' W0 s8 s& E. P RowBox[{
( Q$ E; d( m: T1 X8 Q! U2 S RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", % k9 N! s( T3 }6 P$ L1 `
SuperscriptBox[3 i. ^2 L5 j. `/ a
RowBox[{"(", 4 s6 D) m& Z% g& A( I" [9 j+ Y
RowBox[{
7 g; C' N, g/ I$ j* |7 J' n! s. d RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", 8 c" } W# I! H) U5 ^9 g
SuperscriptBox[
" V+ R4 X, e# j, U; e RowBox[{"(",
2 Z8 W- P; o9 H# h% p! C$ C* B* l+ L RowBox[{: w& t8 Y4 c/ E2 i
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", 2 H/ w. F! Y- w
SuperscriptBox[
. A& [# N# ^( J7 Y RowBox[{"(",
/ E( Z5 w9 W$ q1 u. Q# |+ R k RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
B, j( ]) q" P7 G3 @/ R" z2 X SuperscriptBox[
/ G& @% f4 u1 ~, i4 N. f/ |, i RowBox[{"(", 0 R! J$ e+ \3 E# F
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
: n8 F5 _7 v9 I: P SuperscriptBox[
; D# v" H3 T0 W0 N: M RowBox[{"(", ; c+ } ?' c6 t1 y* O7 {7 a
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
; P/ J/ c5 t$ X' e SuperscriptBox[
" Z; L3 ^/ J. e z' B% S+ z9 A RowBox[{"(",
- t6 k$ K) Z) M RowBox[{1 Z! s8 G' ~* d; O4 C; [3 ]2 E4 o
RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], p0 `0 R1 y% ?% `5 ~% }
")"}]}]]], "Output",
4 \& B' D/ }7 `) G6 V# s5 x% b CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
# A; b1 E5 V5 Z4 x1 P8 q}, Open ]],
" V4 _. s5 ^( Z. @- o1 r8 `6 M9 }& e$ n: K5 h) k; U
Cell[CellGroupData[{1 X' Q9 o0 P! ]) @ f5 [
2 c% [* X/ s. k3 T0 g; K* `) z, P: C( [
Cell[BoxData[{7 F, \! o+ G: k6 Z0 p& ^
RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]",
. }4 V/ v, j4 B& g5 { RowBox[{"u18", "=",
0 L: v3 H. `% f3 ]+ T+ u RowBox[{
6 T0 @ X- L/ j8 J0 p& Z0 s RowBox[{"Exp", "[",
9 M; S* q+ ^* A7 {8 z RowBox[{
h9 ^4 J( z% D. @8 E( V RowBox[{
+ E5 K2 L% c" m6 h) C/ Y k6 S7 g RowBox[{"-",
. |8 K* s; E [6 T1 S2 a- s, J RowBox[{' @! s: B4 | s3 z5 ~3 D: L
RowBox[{"(", - E* w% l1 }( `' Z4 \7 O
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
9 s; N* @) g) h0 n RowBox[{"(", " l, h! y- S/ j+ \9 {& E
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
4 _2 ~+ r) a) a4 U( }) ]# p0 r "]"}], "/.", "DeltaX"}]}]}], "Input",
+ b6 r9 O' V- ]$ |5 Q CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
+ d: j- O7 y7 d- K z9 o! W) ~ 3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
, g3 `/ L! q( c+ b 3.5779615828848505`*^9}}],) Z+ g1 d2 A8 m5 f _7 {3 p. O
; t! _, X6 |/ J
Cell[BoxData[
8 \) I5 ?( C7 Y- c/ P. C RowBox[{"{", 0 E# z# o/ @9 D
RowBox[{
3 K" Z7 Y! f: H7 C$ n) D8 u "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", . p5 i) h3 }' e" |
"0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], % V! R% \' g, l$ m$ R; X9 e
"}"}]], "Output",1 F+ M @9 v% Z! f& K$ @4 L) j, y! @
CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
( u3 E- F8 F9 d$ p$ J2 j8 T. u( D8 S8 C+ u
Cell[BoxData[- U. x C. N# U1 z0 j! f5 r
SuperscriptBox["\[ExponentialE]", 7 {! o S0 L; T
RowBox[{"3.141592653589793`", " ",
$ b, K* I1 G: S" j RowBox[{"(", , a2 l5 C* M* d, s3 i
RowBox[{
/ t* P& X$ C+ j* ~) L/ P( C! j RowBox[{"-", ' z, b' P* u1 E/ `* p# q" I
SuperscriptBox[
9 m7 C. V. @) P RowBox[{"(", - \7 j% h+ P* M+ ? m
RowBox[{
' L, i9 n" f2 J& ?' c RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
% C2 _$ N& e4 m5 k, Q SuperscriptBox[
( e( z4 l1 f# Y9 h; A RowBox[{"(",
* W3 U4 Z" @# G# I' F& }2 ^- ? RowBox[{
" ^( p. E' G7 x5 e RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
) v) a9 d7 Y) u/ h SuperscriptBox[
, W: A7 n: X5 I' \8 B! X9 O RowBox[{"(", ; m8 r1 ~0 ]' b: w) ~* w/ @
RowBox[{
[' ]& H6 z: D8 }" s: J J RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
2 R; ]8 [" ~5 K! k4 Y: L8 m/ g7 c SuperscriptBox[
0 i/ I& `. o- R; {7 ]9 ~8 v RowBox[{"(", # K4 ~# B& w4 |) z% |+ V x
RowBox[{
% n+ ~& |! T( [ RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", 8 s1 @+ P G, ^6 T
SuperscriptBox[3 t9 |1 H3 U; D5 j, O
RowBox[{"(",
: n- D5 e( C, G( ?2 x RowBox[{2 h! ~ J, t) v- l$ D0 q
RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", $ _* X( u( l& z: G
SuperscriptBox[
" ~/ E" H. g1 _# @' D. c RowBox[{"(",
8 e* L1 C7 q8 @9 S1 D3 F RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
! r; P k0 K1 f2 e5 M! i4 j. O SuperscriptBox[
# a& r7 {9 X3 S, @9 v5 J RowBox[{"(",
5 f4 m5 |' c/ H$ |( }* g- ^( b RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
k; C& |8 k& L SuperscriptBox[9 s+ K1 ^* g# Y! k5 u3 Q: W, H1 f
RowBox[{"(", $ m2 Z/ m9 K, \+ U& Z9 M
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", . P1 G1 i5 r- G q
SuperscriptBox[
: k" f$ {7 r- y0 h$ n" }+ z RowBox[{"(",
. B: W/ l4 W* E& G. B5 _" B7 \+ f" Z RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], : _& ? q: D1 ~- n
")"}]}]]], "Output",
) k; F" H+ T3 k CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]3 f5 h7 M4 c8 M% O1 @( f
}, Open ]],
9 U8 B6 a0 `* A8 C1 Q9 x
4 K2 V: M* f, W! NCell[CellGroupData[{
4 k+ o# e }+ k2 K. i' z( w
) _: e9 f" }! `0 DCell[BoxData[{6 L6 `+ K/ \8 P. \4 v
RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]", 2 l# @9 U" n- R) i2 J. G6 a9 p4 c
RowBox[{"u19", "=",
5 f# O6 s M- U) p0 K2 N RowBox[{
! J. h5 u* \3 b* H2 X8 _/ R RowBox[{"Exp", "[",
/ U5 c* S% d# G RowBox[{* { `: Y, v5 G% r# `: ^
RowBox[{. D5 p( j+ Z8 I. L4 z% H9 c
RowBox[{"-", - V+ \$ u/ D4 _, _
RowBox[{" @" T7 K+ Z; \+ A% z- L$ ]
RowBox[{"(",
2 s- ~" J& X9 _4 n+ _) _. W RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 Y2 Y8 C5 t/ G5 |1 S% Z( `
RowBox[{"(", 0 S3 d' J. M; t
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],$ a$ c+ c4 k( o: O4 L
"]"}], "/.", "DeltaX"}]}]}], "Input",/ \( ?5 B8 Q# a7 [- N
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {5 h# J/ l" T, y+ ?. l7 D
3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9,
* ?# ]1 Y+ K! C2 S, Q 3.577961588890861*^9}}],
! Y4 n% B7 P0 O" p$ T$ G# s" B" m" L! ]! z& Q
Cell[BoxData[$ B( x/ m5 ?; r- u1 K7 q
RowBox[{"{",
. l# {5 X! V7 ^7 e* y RowBox[{
% V$ _2 Y4 s4 y. M5 b9 D U+ u "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",", A; `7 m& n' h6 |1 h$ f5 a" w- W5 K4 b; I
"0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}], 9 S# L2 J+ N: j
"}"}]], "Output",# N3 k, p- {% ^0 D; i! N @
CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
" u3 I& C0 G1 o* y/ A( S1 w
$ y$ a* c5 t$ Z \Cell[BoxData[
0 w4 p6 b7 s, j SuperscriptBox["\[ExponentialE]", & l, ^% g+ Y4 R5 g- l
RowBox[{"3.141592653589793`", " ", 1 m$ w/ K+ i& j) \9 j- f
RowBox[{"(",
1 i( S- ?6 X# D- ~6 s V RowBox[{9 L7 V& l/ T7 B3 W4 h3 N( H4 |# }1 l
RowBox[{"-",
, B7 W; v/ k1 a3 t1 k$ x- {- D( i SuperscriptBox[
0 u7 w4 C8 t# Q: j: @' } RowBox[{"(",
8 M. e1 e; ?$ v0 c: T1 y* ^ RowBox[{: j2 d# `9 x6 V) B
RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
' j3 M- d6 f+ m, ? SuperscriptBox[7 p5 C! C& f$ q+ q4 b1 k2 d
RowBox[{"(", / ^* r; T* S6 ?) }
RowBox[{
3 ^9 w# _4 _0 ?+ x9 h! N RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", ; I* C8 z/ c! L% v1 P6 J5 I
SuperscriptBox[
. a% U6 s! {* M4 p% R RowBox[{"(", 9 M8 _+ \# b1 w2 }- N
RowBox[{
5 V/ @. h9 ~7 p- [ RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
u, ~; t3 T }9 y I SuperscriptBox[: @3 w9 a3 s- b+ |6 K/ S# N. `
RowBox[{"(",
( U$ i. I$ o% T X RowBox[{ |6 [) u! A3 u
RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-", 0 `" W V! e4 s) ~8 |) @# U3 N ?
SuperscriptBox[- [! W4 k7 V2 R0 u
RowBox[{"(",
0 s- U5 X$ a5 N6 U1 P, \2 s RowBox[{
: o5 ] P5 c8 v! v& L RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-", $ Y4 e* |0 B& @ M3 S Y
SuperscriptBox[4 l& |& U3 Y9 l/ L( }' y
RowBox[{"(", 4 x3 `3 @ l# f& s3 y9 C$ _
RowBox[{3 U$ x' f8 I- Z
RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", , Y. S& M, j7 @, ^/ k! X
SuperscriptBox[8 X4 F1 O# t5 ~# ?1 V: l
RowBox[{"(", 4 L) }3 N/ _7 H$ P% }
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 8 G6 H2 b2 b+ h9 ?" F& R: A1 @3 R
SuperscriptBox[/ k3 j9 B$ }- H7 K9 B
RowBox[{"(",
6 O: y6 c: j( Z% a* ~7 h5 ^ RowBox[{
% u% L7 f9 P6 J1 r; } RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
9 `. g( P |& e+ d! Q: U$ F% W: M SuperscriptBox[
% ]- X: H4 U+ ]) z7 b$ o" W RowBox[{"(", 3 p) _ S6 q3 \
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 1 C. {" F2 L0 N3 Y
")"}]}]]], "Output",/ E3 h, x. U- ]# H5 C: s
CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]% h% |+ h& s8 o8 W) G+ C/ m
}, Open ]],
/ P( E2 H& b5 `+ r: s1 e& w8 \3 H0 W9 L2 |4 t
Cell[CellGroupData[{
+ g6 w+ @2 V: S5 g7 F# n D9 H' e+ K
Cell[BoxData[{
4 T4 g& I! t8 h! b4 M+ M RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]",
* B: W) R* n( J% N1 _/ d RowBox[{"u20", "=", ' ?. {2 N, E* C" u
RowBox[{* ]0 U1 V7 m; O+ ]1 E
RowBox[{"Exp", "[", ) S0 ~" T0 L4 r/ e6 T
RowBox[{
' ?% ~5 Y6 t [ RowBox[{! v. _3 S7 ~. z) W% ?0 U
RowBox[{"-", $ Z& A! p+ O: z& c+ L+ h
RowBox[{
, R9 W& t1 }( [3 W1 k ~ RowBox[{"(", $ i6 r& B0 j9 U% ?! w- \
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
2 j. u- z; |. h6 |( T RowBox[{"(",
, N0 o1 U5 B j+ x9 N& M7 `/ \) ] RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
* W. w9 f0 f; {( d% m, m- H: ^2 G "]"}], "/.", "DeltaX"}]}]}], "Input",- n7 p5 N: v1 V7 I: _+ x
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {& k: }" G& p0 b+ ?9 Z
3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
3 r r F- V) X) | 3.57796159382047*^9}}],
/ z0 Q1 h; N8 F! ^' L, J, M/ ?; `! k" N1 n' m
Cell[BoxData[: F4 g1 Y+ o# ^* U- f% z
RowBox[{"{", ; m3 l# ?+ E4 b, C* a
RowBox[{# I- Z/ R+ ~' o6 L$ N+ z, A
"0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",", 7 b# T Q h4 ]* u: z2 J% k0 Q
"0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}], " Q1 v2 w# |+ f( @" a% B
"}"}]], "Output",5 K! Y4 h. L$ i
CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],& ]) t# X: w* l$ J3 t8 ]7 L; I
2 J$ Q, G! \% k
Cell[BoxData[
u) g. j2 g$ x" H: `9 X$ I7 } SuperscriptBox["\[ExponentialE]", " z3 _8 K3 @7 h1 k
RowBox[{"3.141592653589793`", " ", + a4 M H' w! _1 c
RowBox[{"(",
5 c; V- f+ }1 m RowBox[{
3 x1 U' Z4 x9 _. | RowBox[{"-", 7 Y8 I6 c/ C: i& g+ X% S* z3 a" S" _
SuperscriptBox[1 [2 j# B7 l! A6 W
RowBox[{"(", 2 X5 Z( A$ c& ~$ k) A! ^1 ~- h- K
RowBox[{
7 F' f7 C% N- i9 ]% l$ @# j; ? RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
, `6 d/ n& `8 N( k+ R3 g9 d SuperscriptBox[! U( C, J! L! Z) n; b3 N X- @
RowBox[{"(",
7 g7 q* n6 n9 b6 t) x RowBox[{
7 g0 T4 {* L h/ W+ v% b8 v) J7 \, L9 V3 ` RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-", / F/ j) Z0 W" s. g5 q; P
SuperscriptBox[$ A' m; m- L8 ~! a( l8 q
RowBox[{"(", * _% R2 e( l' Q0 I, y+ A
RowBox[{
% R8 j( ~! I; ~! |- N9 Q6 ` RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", + h; J6 s- C9 L0 R+ D3 Q
SuperscriptBox[
# f* f- S5 S% \" k( }- u' G' v; ?4 j RowBox[{"(", , |* l5 m2 n+ _/ K7 b. B( Y
RowBox[{. t5 @6 V% Z6 F+ r* V. [. N
RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", , H2 P& u2 K) X
SuperscriptBox[
- g r7 F) \3 P RowBox[{"(", , d9 M2 Z2 @& Z. m0 i, E# |. O
RowBox[{+ Q* w; _3 I7 ?# v, q
RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
6 a0 }! }3 E! X7 j) ~3 _2 [ SuperscriptBox[ _; L1 i$ B& S. U$ K! g
RowBox[{"(",
0 H7 M! s9 [) e% E' e RowBox[{. x% j; Z; t( h* o# R
RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
( k# k4 A6 {' v$ q SuperscriptBox[
9 }3 f/ {; O) c$ J3 L! M RowBox[{"(",
5 a) k8 S) p- N$ u RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
& V7 E# G2 D- P k5 I: M SuperscriptBox[7 ]5 j; N& v# T# H/ K
RowBox[{"(", * x. A6 }% A+ i: e" F$ {; y
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
P% Q, q- [9 e; U) w! b4 P SuperscriptBox[
, s/ Q; h8 Q2 G RowBox[{"(",
6 s: L: q7 t8 _/ `0 L1 W RowBox[{
3 @% b9 o5 k& B* v8 f" m RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], j/ \0 U- t, R+ Q+ _# i; g$ ]7 a
")"}]}]]], "Output",
( ` W% J" n) h% Q8 U3 b' Y N CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]
2 C/ {- G! ^$ x) ~}, Open ]],
2 H* `2 l8 J; \* [2 S
7 p5 A& }2 ^9 A# E0 R. R+ Q" yCell[CellGroupData[{5 \% l6 i5 u' q' K' X; `1 Q' i
3 ^" i! J4 {" A5 F2 D6 R' \# Z
Cell[BoxData[{
5 L- C9 r; U' r: _, [) o RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]", 7 j; `9 z& w' u* W
RowBox[{"u21", "=", ( N. M( P# V( B+ p. |! ?
RowBox[{
0 w$ |+ q# K( G8 z& Y7 F RowBox[{"Exp", "[",
4 K" [0 I2 }9 L% q( `( d RowBox[{
' Q$ @2 }3 Q, ~ RowBox[{& H# W% ~& @2 {( Y; {
RowBox[{"-",
1 P8 S2 i& k/ B) ]0 L) | RowBox[{8 u7 s6 j3 J( K6 s) w, z
RowBox[{"(",
- J1 j1 l: W2 j3 r0 T6 t) `) f! Y RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ' Z* o4 n* W$ ~# d
RowBox[{"(", . _6 k% E' S5 d3 A! s4 c
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
( R9 n) \. D, ^0 g, ~ "]"}], "/.", "DeltaX"}]}]}], "Input",
; c, }8 e$ L7 p4 W# E CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
" M9 c* U1 n4 d; E6 N9 n# ^ x4 w 3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
, R+ G" G1 @$ U 3.5779615991556787`*^9}}],
2 k2 e7 B6 C% O: Q; q7 |+ n1 V5 b0 F: g7 e
Cell[BoxData[
( u' ]) h; C4 ]1 }* n3 v5 B+ i! ~ RowBox[{"{", 9 Q% l. }. j7 J6 R2 z6 L
RowBox[{- I4 |: X. r0 B8 P/ f" _. Y r
"0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
& x4 d- B8 n& J6 g5 {2 \ "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}], / P3 @, ]1 H* B0 O: b8 G1 }, U
"}"}]], "Output",2 ? M4 [- s! _ B" I% H- X
CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],
* x+ v# m( r, I3 D1 v. M+ h V0 g0 K! Z; q! T
Cell[BoxData[7 P- E% l2 f/ a! {6 Z9 _
SuperscriptBox["\[ExponentialE]", # L+ ?. U, b! Y5 a
RowBox[{"3.141592653589793`", " ", ( o1 {1 w' i, Z5 {! ^, E; M
RowBox[{"(", $ u! q( [; v& F) R, }
RowBox[{
1 U' F+ g- i: T- s& g1 ] RowBox[{"-",
5 r+ `4 C* V2 K- [& N& z3 f$ k5 f- G$ D% x SuperscriptBox[* ?* F( O0 s, }* J1 [0 \
RowBox[{"(", ( J6 e/ j6 j) a, ~
RowBox[{
5 l7 g! J8 J" |1 V/ O( k+ l RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
( e1 i8 h0 L; j; T, A SuperscriptBox[, R& Z$ M7 Q# H# h/ S
RowBox[{"(",
S8 S# u* p( G RowBox[{
) ], f/ S( G* r$ i+ ]; @+ O: D RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", ) v1 z* Z8 R9 e! j! f% ^
SuperscriptBox[: O# q$ u! j1 c/ Y9 u/ n
RowBox[{"(",
$ c; Q* |9 R Z RowBox[{
6 _/ r$ ~; ^; X5 A; Z1 F7 { RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
4 F1 u5 k) B1 b6 e SuperscriptBox[
# t+ x, ~" g0 B3 N5 N RowBox[{"(",
- G' k: {: d- e* k; k, K2 s RowBox[{
! `) ^6 b8 E% o# t- D+ c RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", + Q' j5 ]1 x$ |; G' Y2 D
SuperscriptBox[ W* {, C% u5 E4 p9 `2 B/ [3 l
RowBox[{"(", - E; f- w0 X9 Y: d2 U
RowBox[{
, R0 `* o1 ~2 B# C9 @8 o9 f& [% o RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", 7 m+ a# L- a) R2 b$ Y# j
SuperscriptBox[/ h7 ?: f% [6 F1 n
RowBox[{"(", : d, r/ p; c" M" `4 w% |: d8 a
RowBox[{
' \3 Q* R7 l: A' o) t! b3 d8 [. ] RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", 9 A% T1 A* c' K7 B4 p# J7 o
SuperscriptBox[
7 _6 d0 [% _ l. T+ h6 J5 T RowBox[{"(", ) `& S1 p4 q- x! m0 b, U+ a
RowBox[{
5 V+ |- W1 I9 e6 a: G) E RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", 9 T- Q5 b" p- V5 V# e! S
SuperscriptBox[
n5 x; B( b$ s# M9 a5 N! j RowBox[{"(",
?) _# A: V$ C/ Z) M3 i RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
4 ~; S( | u6 X( g SuperscriptBox[0 \/ E( K0 l2 h0 |, [
RowBox[{"(",
* m5 J5 c- C7 K0 p+ b( K1 | RowBox[{
3 u& X9 O) k3 Y% M RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], 1 c+ p" L& u9 c- M
")"}]}]]], "Output",
2 h6 k$ D* h- L. ]' o) x CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]3 d' V' {- c) B: V7 x
}, Open ]]," @2 n3 M. G* B5 j) q
4 [3 ?& }& ~/ {! Q: {( m+ W
Cell[BoxData["\:62df\:5408wi"], "Input",# F/ K2 v. n/ t" f
CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],3 o' g3 m/ i1 o
, \' G$ B$ @' v; k' tCell[CellGroupData[{
# y4 ?! G* Y% z- o0 O, t* z( ] M8 J! n" Z
Cell[BoxData[
3 ]' }# c0 S+ o$ C! Q$ ? RowBox[{"y1a", "=",
2 B7 ^7 U! d0 X* ^9 i! C RowBox[{"Table", "[", 8 I5 ~" _6 {" ^! o0 A. I. u( ^/ j; F
RowBox[{"x", ",", ( j- O8 [. T4 w, y; Z* R/ q9 ?# P
RowBox[{"{",
+ Z( }+ p2 h! Q9 O, ` RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",. k8 y+ e* C1 A$ j% S" A: \
CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {/ q* `, [0 R& m+ d$ o, P% V
3.5779226649375*^9, 3.5779226810625*^9}}],$ m# K; f/ K/ x. H V, e; F ^
) |5 _+ T" n) K0 y# B+ m
Cell[BoxData[
& w7 S, t' o( \* v# @0 s( ^& [ RowBox[{"{", ( T) }4 @( z* w( { n0 O5 ]3 I$ h0 l/ W
RowBox[{
" X2 s3 g0 }; l: V: l O5 b "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
# ?+ \) \7 X+ C9 z1 L0 T+ O ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
2 {4 ]% G+ `) C# K, u7 g/ Y ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", Q' ]# a4 U( Y2 s2 l3 E
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", + O$ l$ B8 \+ X
",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", # S7 M- L" G: ~* Z
"35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
: A6 K, z, D" k9 I ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
, [6 T: M! c- @6 z- j8 [ "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
$ Y# g: b- M% S( A" i- m3 ? ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
8 l4 k( w: O" I) t) e. r "}"}]], "Output",
/ t5 f& V6 ~+ x7 g: z CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
! W9 J/ ], ~- R2 U! u7 A/ W. H' s( R 3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]# V! S4 ?. n- ]6 N2 W8 }# x' T! [
}, Open ]],5 ~) f0 C; \3 ?0 E% Q4 S1 z, W
3 o! y# R2 u. h- bCell[CellGroupData[{
, m: S0 h- s# F" t: U. ^5 T6 W. m
6 o {! G5 |6 SCell[BoxData[
' v- G/ q9 g* r! Y/ V RowBox[{"Data", "[", % e {: v" h# i/ K; L6 m
RowBox[{"[",
8 P( x6 M. v0 Z$ E RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",+ L$ d5 V; ^) C+ \8 y* z' ]# ^
CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
% U% C L# p$ V3 Y1 Y 3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],
1 `9 Z/ y& `3 x+ V# v
* M: s* i1 R! j! _1 q# BCell[BoxData["0.899882`"], "Output",
* b, o4 A, U* n/ G( ]8 |8 q3 ^ CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
5 L! j! v$ Y7 s' } 3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
7 N+ l1 u9 `/ m! ^7 }0 k6 j 3.577961929080654*^9, 3.5780123419375*^9}]
* w$ n8 S) f4 l3 c/ H! @}, Open ]],
" _8 e' F# C! Y4 k- a5 y' p$ j
: h K0 L; Y! `Cell[BoxData[
5 p8 @1 o0 O& d. b1 L" m2 Y RowBox[{"For", "[",
) @, q- f2 s$ t- ^2 d0 }6 h RowBox[{
, ]0 F- v$ s! o1 ]# _ RowBox[{"i", "=", "1"}], ",",
7 Q0 h# E$ n4 ~5 q& C0 ~- i; v, f9 P RowBox[{"i", "\[LessEqual]", "60"}], ",", 7 n2 S c6 s! G( r
RowBox[{"i", "++"}], ",",
2 V. x) u8 M) u/ |, W RowBox[{- S8 E0 }1 r8 |5 F
RowBox[{"y1a", "[",
; T. ]% U" T0 u' l2 o RowBox[{"[", "i", "]"}], "]"}], "=",
7 {: Q! r; D+ i0 Z% D3 N RowBox[{"Data", "[", 2 u* V7 B3 v3 P3 I2 \: v4 i
RowBox[{"[",
2 B# s, i. ]7 }! a1 X1 Z; H; g1 ` RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
5 L' L6 Z9 ]" x# K8 F9 T CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
+ R# e$ \( F# A3 C: t& I" T Y$ @ 3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
" e l. s& R) P4 O6 O2 q+ k3 Y 3.577922923203125*^9}, 3.5779588839702806`*^9}],) K8 H. i1 O k4 F6 f/ I
, E0 m F! {2 }6 V. S) qCell[CellGroupData[{. Z* j" k2 ?7 x: h8 f
$ b! h4 a' s& u! @Cell[BoxData["y1a"], "Input",0 l9 Q" t) ?5 U
CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],
- ]/ ?' J/ M# E$ A, }
! [4 T) \8 @& H* ICell[BoxData[7 A1 X' j! p& U) B$ h$ A
RowBox[{"{",
& Q' e& t1 |6 R RowBox[{# i2 D# x. }/ f; d% y7 o" h
"0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",", # n" M W: R, {9 ]( Z+ t8 M2 ~
"0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",", 0 `6 {4 v( t/ U) h8 [/ `
"0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",", $ [/ J) c# f1 Z) \$ @4 I
"0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",", ' o; O' J" F( Z, E4 T% {& H
"0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",", 6 J# Q" F. X* _+ `% T( P. f
"0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",", 3 ~* k) c9 W) N, G
"0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",", 5 }6 Y& C$ C- \' }% C: W9 }. E
"0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",",
+ c, Q& h4 c( [5 `8 n "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",",
8 c, J$ D5 d1 Z% G' {5 g) q- [ "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",
+ u; @/ k& \: r8 U- h "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",", " f. }1 E7 J& ^
"0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",", 6 ^) @% q5 b! c7 S2 S5 D. j
"0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
9 O" f1 G- Y0 P/ t( q "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",",
0 s1 ?. t ] A( o8 d; f "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}], ' W! @ b' G- K# @2 ^: h
"}"}]], "Output",) m8 D1 h4 `. V. w% B3 _
CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
, Y |% P0 g1 g- L- m 3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]
$ n) E+ S1 D4 @5 p; L( f9 Z1 P}, Open ]],; r6 ]9 b/ s9 ]
K# _- e. {1 r1 a9 q5 |9 |. l( uCell[CellGroupData[{
( z% \1 i* ]% S$ L* Q' |
3 m# H2 @) v$ B# PCell[BoxData[
& T- T c. g- Q2 u- d, } RowBox[{"m60n21", "=",
7 s$ S( \5 N) h6 }- A RowBox[{"Table", "[", + m- ?! Z! r3 a7 `* I* A
RowBox[{
4 z; R8 W" a' H4 o1 U9 d9 C RowBox[{"Table", "[", / C& j! h6 L, v9 j- r5 B0 l0 ^
RowBox[{"y", ",", 3 w$ S5 L8 ~, a+ Y" y! w
RowBox[{"{", * d+ U, G& W5 U
RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
. v; ^3 Y7 L) ~4 Z# g RowBox[{"{",
) ~4 r$ |3 J- ^% Q% j, z, k/ o RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",( H- L5 y5 x" l( M8 x7 X9 U5 B. A
CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
1 {0 X7 k8 B$ Y% R8 _/ c( Z8 g( @ 3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9,
1 S# E L. I" C P) `; l( E6 ^ 3.5779619706547265`*^9}}],. L; R" s# n$ ]9 y
3 ~3 g0 C- G( x2 Z9 h4 U2 s. p
Cell[BoxData[
- E: c6 J7 d6 f: P0 ?: I RowBox[{"{", 8 k+ F* B* ~4 r
RowBox[{
% Y( w, k. \' S! e {2 i$ V" ^; } RowBox[{"{",
7 b+ C H. n6 @: V- y3 M0 u RowBox[{
, f2 ?3 W) R9 p8 N3 G9 w5 ~$ l "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
- ~5 V3 G6 F! y9 x0 Y! D; C ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . n* y4 U) k" u0 Q ^4 s. y2 V
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
& Y) Q* U( y8 ?" |: W8 s6 F "}"}], ",",
5 |" T/ T$ ]1 {9 R! J RowBox[{"{",
4 _) _" `0 v5 ^/ \1 J RowBox[{. S1 A/ P& H0 y
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
+ V6 c3 g- b \" x ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
! I1 p+ ~9 z! ^* v( g) V6 n "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
& P. w) O2 ^+ G# b/ c! H "}"}], ",",
8 M" X. S9 c% N/ }1 Y RowBox[{"{",
; a1 |6 h+ N4 W) \, L/ K RowBox[{1 S5 F8 e% X- S5 v1 J
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! Y) e6 X0 C& C/ x* M4 C
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", t9 E- p4 s4 h
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) q% @7 e! C+ b" U' X5 @
"}"}], ",", / }* ]4 U8 j7 g
RowBox[{"{", ' @& Z( H2 x0 ~7 }! j
RowBox[{
1 \3 ~: u+ Q {* { "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
" t7 O8 F: U3 d: E% V% [# r) G6 I ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * W3 Z9 i+ Z# a8 \
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
9 X* c9 E0 ^( z0 d0 f6 f- g "}"}], ",",
8 j2 f# y" P1 F6 K1 H/ O& ? RowBox[{"{",
+ C# `0 ?9 V" @& ` RowBox[{
7 @2 w" a4 x' }( `. B" e7 I "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
" x% t. e, I4 N/ P* }7 L ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
: i3 a; E# n2 X3 e9 J3 w4 [: q "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
. E8 P2 ~' t6 B9 m4 W7 R7 E& F% ~ "}"}], ",", ; W0 _ S: @( n1 P; i
RowBox[{"{", ! ]2 @7 b, _: E, [" f
RowBox[{, [% o% a* m% s7 i4 O4 K
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
& t' ]) S' h" l) E2 j- C' D, h$ Q" c ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
D. k& G- S- b- E4 U4 Y$ S5 ]# @ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
# c; O2 w" m W4 N1 M5 ] "}"}], ",",
5 S, Y! p) m% _- x RowBox[{"{",
3 ]; @& |6 r% X RowBox[{+ p) C6 O" I3 E6 N, g
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 k3 G' d5 _ Z! n @" \ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * c6 |, S% E8 ~2 n6 ?% y
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ w: _5 V3 y6 ?
"}"}], ",",
) D9 y5 f4 n; p1 z8 \# m' @ RowBox[{"{",
- K" b7 R" j+ S2 m9 m5 ?6 k6 y RowBox[{- O# R# W1 q, U. j- b$ M! C. u
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ B, ^" ~. q. {9 J: H* R
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
1 [" q% k, G+ N9 J3 h "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
/ }9 e5 c. K. d7 } "}"}], ",",
$ X! W( P" y0 G6 _# a( v: P* S; U RowBox[{"{",
! K/ _+ |' t! Y9 A# ?+ R* Q5 q9 Q" ` RowBox[{
7 m7 ]' x$ F! K8 r! l "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
# b) L$ |1 r1 r7 a8 I8 w ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - J) S) m. T0 T6 q
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# e8 Q W, W+ a2 h4 ]% B- \
"}"}], ",", * b c6 F! I, a! G- B7 Y
RowBox[{"{", + \" a0 G6 D ^ F3 }
RowBox[{) M' A/ q5 h" v9 g4 J
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 k9 W% t! Y/ a% ~0 i* g& Y" J3 H
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . e: s1 V* g3 [. R
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
/ y# u1 I& t* w" R "}"}], ",",
+ u- M9 x5 V. d8 A: L# A RowBox[{"{",
5 ^9 Y) e$ ^ N% I5 O- u. ? RowBox[{& G: i& l/ y# y! b
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( D( a! f) P! ?4 s, I
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
: m# K# H- w. P2 ?% p7 r "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' U" P5 X9 e. R; r5 I0 F "}"}], ",", 7 V* a, \+ y# m4 i0 ]. W h; D
RowBox[{"{",
+ s0 q) H9 ^ [, L RowBox[{7 s! {& ^% n6 }
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 S8 g7 Q7 P" {: D0 q
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
2 h+ I/ p. K, ~. i "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
- Q; Y' n- L8 E( [2 g2 K: @, g1 ] "}"}], ",", : {3 H X* E5 i4 k; h% `2 g
RowBox[{"{",
9 y* k* y+ _8 P! O' E RowBox[{
1 l9 A$ w4 s3 B) \+ j% i# |9 }0 c "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
# ~; c3 ~/ @3 u" H4 t ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # ` O+ b2 {1 J' z0 U6 H! }. K
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
7 x5 X3 J+ K# g. @! z "}"}], ",", # U9 l9 F% |& A2 {
RowBox[{"{", / j8 U# w( w* t8 a% K1 |
RowBox[{- P; U: \- y$ h; R6 H f" m
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
" ]; w/ @8 T; r$ a ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! t5 N3 j" @* K x" e, d+ A
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
/ o& G* j% F' i* u" d8 E "}"}], ",",
, Y8 g4 u6 Y3 @ RowBox[{"{",
* S! E9 |; ?5 f$ H( L8 V" t4 T RowBox[{& J. W0 E* i# I$ b4 u
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 b3 E5 |; ^/ e
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " t/ ]7 p. H. C- L# L# q \
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
9 y m$ r2 a* g! [ "}"}], ",",
" W4 {( `0 e7 C% {. i8 V9 g; Y. { RowBox[{"{", : j* E, t" Q: Z5 Q" ]! v: o: b
RowBox[{ Y) y9 {) E6 _! a- a
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 p# u1 S) D3 G6 ]3 o- G
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
j" |8 M9 r% b' x: F8 c( i "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
6 Z, s3 J( z, ]: K "}"}], ",",
9 w& w* I4 Z/ g5 f9 y RowBox[{"{", - O$ N' |7 m5 M3 f" Z
RowBox[{
& S/ M# b; F9 h: A "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", I5 \0 O0 b0 R+ w3 k
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & ^; A7 G! }6 b* I1 W7 \9 |4 T
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 E+ F9 U |- s2 b* M
"}"}], ",",
0 _( }& F5 i6 }8 Q( L* b$ r RowBox[{"{", ' V6 X9 s$ ^4 v' U7 a
RowBox[{
; F, n. U {$ b. |: x$ G; q "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
' j: d' o. U$ t: q2 n; @ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % H. V+ @+ L$ c {& d- |4 ]: u
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, t! i. k# |8 N. K0 D. P
"}"}], ",", 2 g' e* H7 ?5 ]; c: P- \
RowBox[{"{",
n4 w) [- z5 G3 B* d+ q RowBox[{1 h$ T7 w5 E# W6 l- G9 Y/ }
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 `6 ^7 y* E. i& k+ w; p ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; C: L c- M5 u" \
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 g* J8 k9 K$ _) V3 F& E. M
"}"}], ",",
/ V( k+ m; j" O2 \( o7 v4 C7 T, H) D RowBox[{"{",
6 ^+ `& H9 \3 E) u RowBox[{
; L7 ~4 f0 r* L- j "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% L2 T9 O# P) i; Z) C3 Y+ E
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * S. K8 k4 B) w" n8 P& H% t0 G5 }* e# g
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; M$ U1 s' [2 [( D4 ?7 [. D "}"}], ",",
) w8 B; s2 g8 H( r. h, x5 r9 d RowBox[{"{",
; {% E5 E0 t6 `5 l. G- Q RowBox[{
$ p0 J& |7 r+ Z: _ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ {" L- m# W# j7 |, o( D
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ S: g3 R j7 `1 _) t4 d
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& Y/ p) U3 z4 B8 ~
"}"}], ",", 2 H; m8 ~! H$ \( _
RowBox[{"{",
N% n, E3 u/ n. m2 U RowBox[{/ T* u. o* v3 T1 w5 I" O
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ a! E" h) U" O g9 m- Q
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 x/ }) ?+ D6 V0 ~- w
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) M0 D; G$ K! z "}"}], ",",
. ^5 B: E4 ?% h RowBox[{"{", 3 O' v/ q5 Y7 Z9 m- h, A
RowBox[{
. W( G. Z9 E5 l2 P) M; l. ~- n1 x "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 Q1 G# ]4 S0 w% e3 h. S- L4 R* n" d
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
( W& a- J: A; s1 X& F- P "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
1 \9 I( l6 F1 S! [) f "}"}], ",", ) B2 G% |8 i* N6 C) J5 e
RowBox[{"{", 1 W( ]$ H% r. p/ X4 ]" ]# |# Z6 U
RowBox[{
! _4 l4 y$ c3 e8 d "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 }* [+ g; A6 X
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", a" d# ]" h8 o2 ~- s' x+ Y" U+ o
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
- r0 |$ U0 G! P, _ "}"}], ",", 5 g8 S* x: y1 C1 T j# n
RowBox[{"{", 2 L7 g+ Q% \4 z0 o
RowBox[{( A% F: v) D. K9 O5 {/ W
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", y. p W3 W/ z4 I
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
1 r: C' b5 Z/ d6 v "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) M: Q( S$ t7 g* {! ^) y7 l! u( q
"}"}], ",",
2 O2 G5 o" `7 h/ `4 }% J; [ RowBox[{"{",
; K c$ g; f& F) A; X1 q RowBox[{6 {7 O7 t+ [ b8 F2 Q5 ^
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
( c4 M# ^: L0 k, y) U( K8 C' c ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 t0 v' h- N S- X
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ b0 F2 }6 X1 r) W
"}"}], ",",
1 L, a* c/ q$ e8 d5 R: S7 e RowBox[{"{",
. M2 N& U" ]2 q, a' q RowBox[{2 A9 Z/ `0 U. e. H: [
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
* T4 }' b% M% \1 G7 W) o2 ^ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", Y0 H* }7 z4 O/ h G; N A, e
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
! ^" g- a. I3 k n* D "}"}], ",", # ?" L6 h" {& d' v
RowBox[{"{", 3 p$ Q) M ]' {8 S
RowBox[{
- }0 M+ |3 g2 b9 c, D. @3 f/ k "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, i! O2 y( V' O; L
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 Y" R1 |: Q6 S: o# T }
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, ~2 {' Y) w; v4 u/ G" ]3 z; `
"}"}], ",",
+ O6 z' s: Z' I# g RowBox[{"{",
- v2 M' s* u: {: y3 B1 R RowBox[{
" b* G# y% Q4 f "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( H2 [+ k* g6 M9 M
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & H# p' r2 ]/ k
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 l/ T; W& E2 v% X H+ k) ?
"}"}], ",",
6 ]% m& Z+ L; U% c RowBox[{"{", 6 b& r: Q% ]; K8 q& b8 M* D0 @
RowBox[{
- Q, G0 f( f5 \6 @$ H! G# w' w "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. W4 M7 r; c" J6 t
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
* J2 C9 b- G( r9 U) O "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; d7 R- `% {, v0 i
"}"}], ",",
( ~7 P2 {8 n! |% [ RowBox[{"{", + ]* A2 q: R( {6 u- h3 v! r+ ^, t3 n9 H
RowBox[{0 I+ R: R. w; c5 ~
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 B) u4 o a- E
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 X+ k7 L) @* U* T+ b2 Z
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
: B' R% W/ s4 O I "}"}], ",", . m% Z. B8 c/ B
RowBox[{"{", 2 S9 o3 Z$ Z/ }; r) b8 W) \
RowBox[{* L4 Q) F( W* C* D
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
6 N9 p8 t* z/ E' X* I ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
c. c3 \2 \% Q- S "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ D. _, ?9 u7 Z# e' D
"}"}], ",",
{' j$ ~/ W2 L2 M4 v# R RowBox[{"{", 9 ?2 S, C. ]) W
RowBox[{) b- n: n5 ?/ V2 }
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# I% k( I. N% `8 Q1 f$ \$ V/ {, S
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 e! H4 W$ E* W
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 h$ ?& ~2 t3 v2 g- q
"}"}], ",",
- S' G; {7 p8 ~7 k7 Z( k& @ RowBox[{"{",
8 u; e: {, C2 s" P7 ^- e RowBox[{; P. x2 w4 V0 K% M* }4 ?4 [' G# P
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 I! v) Q: k4 p" k# Z7 G. U ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * ?$ n$ O' v+ }; R
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 e4 i6 b$ P% k" E0 q w
"}"}], ",",
9 Q* {2 f W9 C+ l RowBox[{"{",
. f: s ?' {# H) |& i/ B RowBox[{% H Z' e2 K2 B/ z2 F3 j( q
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
) d9 H, F! ?5 N ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; }& k0 @! p S0 a" S+ C( s* t/ K' Z
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
4 r" f- H& J1 D, ~; L3 l "}"}], ",",
8 c4 H( o2 ^' S- k S: q RowBox[{"{",
/ X9 d- f# ~2 i; } RowBox[{
) h- t7 a2 ^- w3 {' ]! f "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
; a6 L; ]/ @$ U$ Y& A: C" O ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 x& ^* O) W( J* r$ x" h. `2 |) I/ s
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' O1 j- `0 f+ H, G3 @+ B4 y2 R "}"}], ",", 3 W# g% w; M' ^' G5 ]1 o l
RowBox[{"{",
. t% t( d) }4 f1 x$ Z1 r RowBox[{
& o( s7 c- n$ u6 d8 O "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 H* A; `8 }) H" u ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", R7 N) ]' r/ n4 M3 K7 D6 T/ m
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
7 ?/ I& K, g& T+ b; J+ G "}"}], ",", # |6 k5 u5 B M9 I
RowBox[{"{",
; c, k, O) Y1 l4 s RowBox[{( Q0 q+ J) h" E9 a. N% x8 B
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 Z3 a$ n! v3 c
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
+ d* U, b* q* l, U "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
" d* m- ]8 }1 Z/ m: E "}"}], ",",
! R e- m1 S4 o6 K5 A RowBox[{"{", 0 a( L3 @$ t- W( g+ x
RowBox[{
% E# `0 \5 F9 J' H/ `* c/ c3 v "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 g* d: P9 Y# {& ^
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # F7 J' t" i$ J& I4 m! x k
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 k8 k& P2 A/ @1 V1 ^
"}"}], ",", 7 z& p1 w: H0 C$ x4 F- |! [
RowBox[{"{",
" p1 {2 r9 B1 C& e% q$ F+ G RowBox[{
$ `* b \5 `4 Q$ ?8 z "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ e, X% M9 `" ], A ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 M4 y+ W, d, |
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
* y( e% e( `7 @ x0 y "}"}], ",", 4 x/ B" Q5 o, A
RowBox[{"{",
/ i9 S# \9 k7 o; H: w' b RowBox[{
- r1 a& v( u6 T "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 i3 _5 r. _. h7 e) E ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
C3 f O; ]$ ~1 C; h "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
+ V5 t1 }9 ~6 K! V "}"}], ",",
0 M* D+ ~; K$ X5 U3 g, B RowBox[{"{", " n" @, t" f# \9 v, O+ `: h) b
RowBox[{
; t, w7 r- A% a! {. _1 V "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# _. G% m0 [) `# z$ E! |
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
% V! e( v/ p) a5 k2 z [ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 x. q+ J6 |2 O1 c- r
"}"}], ",",
7 _3 @2 u5 F% o U* o9 D. F0 l/ g RowBox[{"{",
0 U. u2 Z' R! g+ v" u+ a5 e5 b# U" Z RowBox[{. z: o9 P( T! ~% u# D
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
0 Z: p& J, X8 M. o- d! Q, |5 U2 h ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . ?# M& ?- i/ C6 t* N" i y
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
! p+ k) Q0 D3 \5 v+ b "}"}], ",", & T1 ?" u& J) ~' C4 @
RowBox[{"{", 9 r7 }$ ?" ?5 ]+ |
RowBox[{
$ u& a& X( {' ~9 z, i% j0 l "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 D. V. _8 e9 a7 j4 t! l- J
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 H4 a7 n2 k( r+ P( V/ g# Y! C% { A: n
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
/ p1 J& u" K! v, H8 ] "}"}], ",", 8 Q5 M7 c0 x j1 u; \& m
RowBox[{"{",
! J6 ?/ U8 B( z8 x/ Q RowBox[{
, t" X" y* [! G3 c" Y "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ y! [) J- H+ u( W4 t ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 F6 O+ ]" b! n2 Z; p5 M
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* U# ]; F* [6 o" d5 k4 ^
"}"}], ",", ( }* @/ {' Z& [) U
RowBox[{"{",
1 J( {; f4 R1 V( z$ T/ W ^ RowBox[{& Q3 {2 W8 d5 G6 S. {
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
# A& h: {% P5 O) J9 O ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
& S2 ]7 Z0 \ d" e- ?1 a "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& h9 R3 t4 f; f* X# Y9 [' g
"}"}], ",",
! ?, I' p8 n3 S6 N' a+ [ RowBox[{"{", 5 t0 V; J. B! A4 {
RowBox[{" G9 B& W. D& x: [- w. O
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* y: P, H/ W$ T, u
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
5 h: A. Y% u% Z4 N. m "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ _! g, v& F* ?3 S2 Z2 l, w
"}"}], ",", ) N( l+ F9 y! s! S2 a9 ]: [
RowBox[{"{",
6 R+ k% a5 m4 n0 f RowBox[{2 K7 j' I- T9 p8 U; P) o
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( }; @: a; _. p+ V4 ?/ l
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ W4 m: T4 d* V# B! y4 p: B7 W u* q. z
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
( n4 {, G) _$ j o$ J "}"}], ",", ) ]$ U4 }7 I" I
RowBox[{"{", # ]# C5 Y! k" `7 {- t5 N
RowBox[{
4 @' Q3 y$ R: b# ]* Q8 r "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
- k* O! U; x5 ]5 g/ O0 a& k- ? ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
: R& Y9 u e" n+ j "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) a3 F0 x! O4 E8 Q. n7 C$ v
"}"}], ",",
% G! b% f" E" O. X RowBox[{"{",
: @! B) i& s8 T5 k0 k, ? RowBox[{) G' r* t7 Z0 C& w& c
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 m6 f+ Y" w. ?; r( X
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 r# W+ e" k( o1 Y5 U9 ]- S
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
9 z! g' G4 H" a1 l "}"}], ",", $ |% m& y' a& |# { w3 R' \; \% W
RowBox[{"{",
( Z/ B5 c. j/ P" P! ^ RowBox[{0 O, w: X2 J% ^" x
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ q" u3 O" n! M- N4 p5 p3 [( S I- O
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
. ?& g+ J9 [& _: m# Z "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
L" l2 \( B. z6 x( }& O H) @( Y "}"}], ",", 2 U9 U7 \/ g6 k0 s: B
RowBox[{"{",
9 S) E( b/ Z' X9 G# i, F. b2 r: @ RowBox[{+ l$ B- D' R1 I, }
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
7 W& C E6 x$ Z; p5 W ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
6 S2 o; m6 |! X# h) L3 G0 K "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ S* f, N$ s4 b7 L
"}"}], ",",
* ]+ u+ T7 ?& n1 ^4 T/ U5 T' b RowBox[{"{",
$ R4 _2 o8 m* G! q6 x& K+ e RowBox[{
) |+ ]. X% z: h3 Z* x; d "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. T ~* t3 _( Z$ y& S7 T5 Q
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 c; n( N+ _- G. a
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( v, B6 s. V9 E' ]
"}"}], ",",
. ^' h! `( \& l g+ l7 V RowBox[{"{",
& K7 E; Z; h$ I& E3 @, R RowBox[{
A+ U% B/ g B+ { "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, v" j3 L9 K9 ~- J N
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
' W- k' V& X1 y, k+ y5 K- t2 @ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
% M: [, q; y% Y "}"}], ",",
1 s/ I9 Z- M% i2 ^- g# r RowBox[{"{", ) J7 m. e/ k" L5 T% {
RowBox[{
5 p* T* o( {$ V+ X+ \( ~ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, H1 j0 S, I# V6 ~- z9 v
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # J+ R) L* r3 _. L2 `. j: w; F
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
" e8 k8 Q. e1 y" V& w. s8 P+ R) W "}"}], ",",
9 ~6 b, U7 S& _& ? RowBox[{"{", 5 w8 J8 P: P5 h a
RowBox[{9 s: {! @2 i5 j6 N/ h
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# W% @+ d$ Q+ j7 K$ I& p1 b. Y
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' R/ c$ s9 f4 {7 v( k/ _. U* ?
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: s* ~6 C' `2 D& ]; }) B
"}"}], ",", " ?. u" \; U4 a$ G1 A
RowBox[{"{", ) X, K3 O5 o& e4 G4 |# R; F
RowBox[{
+ q) A9 ^" E; ~, h% Q5 Q9 C, D! I "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' H5 Y9 q, e3 c6 s
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
$ G+ A2 y4 X8 P5 f4 ~" A# O "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ T/ B% I2 U1 B/ N7 `! _- M2 A
"}"}], ",",
& a1 Q7 r k% { RowBox[{"{",
$ ^8 O0 e! E9 s9 ^ RowBox[{3 G+ F0 H5 J# M; h" P: q
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* ?# d# f3 G' Y3 K4 G; ~+ X8 i' F
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
! {7 V* G& d, L7 k, @ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
1 I D( }$ F" J, ] "}"}], ",",
2 D& y- J- N2 ] RowBox[{"{",
0 G0 B; d1 e' U. I RowBox[{
/ D1 |9 C2 Z S, B( ~, F5 d "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 h7 r1 j0 A; I% V. u+ a! ?
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- q& }+ q, @: J% E) l "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
/ l- r. v( ?6 P8 \+ P. b( y$ c "}"}], ",", - \+ i2 X( w6 U" u2 R
RowBox[{"{",
% W( q7 e7 p- p: l P# ] RowBox[{
, u1 k0 v# U3 l' z) l) U$ @ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 l; U0 d" f6 H( @0 p6 E2 k0 x
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
' F: g- g T6 T1 H: j# @ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) s. M% {) H: x% z
"}"}]}], "}"}]], "Output",0 B* j6 j* q6 P
CellChangeTimes->{# Y5 t9 K& V* \
3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9}, 0 ~3 N5 z( P! r6 H/ v$ h( J- p) I7 `& u' }
3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9,
V& P: `( Z4 g) `! O& y6 ^ 3.5779619748823338`*^9}, 3.578012345453125*^9}]9 ?5 r5 h* |6 r* P$ t7 s8 b: O
}, Open ]],5 i9 U! y9 A5 ~. W8 @
; Y i8 |" W* J. w, `$ M; Q
Cell[BoxData[! t0 b9 B ^, E& Z$ U
RowBox[{"For", "[",
5 ~5 V+ E: ~; H' Q RowBox[{5 Q8 `. O3 n; k; c; d" S& |
RowBox[{"i", "=", "1"}], ",",
4 s* q& @, |" ^8 E RowBox[{"i", "\[LessEqual]", "60"}], ",",
5 T4 @4 q h: l5 { RowBox[{"i", "++"}], ",",
8 p6 F) j( c! _; b }1 b/ }5 X RowBox[{"{", "\[IndentingNewLine]", 0 ^; N$ O, M* d+ y8 A, y, K% `9 L
RowBox[{
4 W/ H9 y! G, d+ j% e RowBox[{
* r. P; l# _/ [8 T. G# B RowBox[{"m60n21", "[",
" V6 [0 s# \4 d) q( V. y, V6 V2 } RowBox[{"[", 1 P0 ~$ _* }' K3 y3 o0 ?* `
RowBox[{"i", ",", "1"}], "]"}], "]"}], "=",
}( U1 m/ n* m9 I# C* z) w1 ? RowBox[{"u1", "/.",
$ c" Q5 |( f9 r8 J) F RowBox[{"{", # d6 {, ~1 `8 t4 W$ n
RowBox[{* G! K4 f1 N8 `: v( s4 X5 _
RowBox[{"x1", "->", * x& O4 r. R3 ?& t3 n% v7 ^+ p
RowBox[{"Data", "[",
$ p+ y1 M: i# q3 R% ]8 { RowBox[{"[",
0 w! d/ v" S3 l: U" n5 Q; a RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
( l$ H* R7 c* c/ E, b% b RowBox[{"x2", "->", # C8 z# j# k2 M( O, b' r8 r
RowBox[{"Data", "[", + ~6 p5 `- c5 z2 D$ x0 q1 i) n' c
RowBox[{"[", - r% ?: u4 j1 h/ Y7 E+ V3 }) f
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
/ f1 O7 r* y+ ?/ j- e6 P RowBox[{"x3", "->",
4 v( Q: v/ k4 f8 m' m- Z! S$ ] RowBox[{"Data", "[",
- y# H. f- b+ T; J RowBox[{"[",
9 \2 l7 p1 K+ x6 G RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
' [( Z# X) {' D: c RowBox[{"x4", "->", $ {0 N0 }& R9 S& M; S W' ~. z
RowBox[{"Data", "[",
$ U6 H; ?' N, f9 l6 p RowBox[{"[",
9 _/ ^, K/ q* x" V RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 8 J9 U% ]5 |7 U5 P: l% m
RowBox[{"x5", "->",
$ h% t! M: j0 ~+ p! s RowBox[{"Data", "[",
# s8 _5 D' j% [+ [8 } RowBox[{"[", / V2 T! R4 C1 Y
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
. @5 z& @+ A0 T. L! F5 r! B& U6 i7 n RowBox[{"x6", "->",
4 X- L$ F' q" B* K( q RowBox[{"Data", "[", ' {1 T$ R( j% L7 k: M$ r4 c
RowBox[{"[",
( P' L7 W& o8 U# Z! h RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 6 }% P( ?0 o5 S( b7 b+ g# Z
RowBox[{"x7", "->",
& P8 ]8 X& a# |2 k. E RowBox[{"Data", "[",
: `% P4 _5 B4 T' p/ q RowBox[{"[",
A& \5 J8 L6 n) f) ]% b) ] RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 0 Z8 k& K. ~7 R0 J8 U$ R1 r
RowBox[{"x8", "->", $ n$ ~8 _& ?% R$ p: n" k2 m
RowBox[{"Data", "[", , q' U% H# G; O8 w9 k! W" m) {
RowBox[{"[",
* F i( L) a4 z1 a RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ! ~# ?: f3 A% s ^6 U5 t
RowBox[{"x9", "->",
. I* r0 ^( Y: O7 k) E RowBox[{"Data", "[", * |& R' `: j6 w& Q
RowBox[{"[",
; T8 L" b. Y! G) x0 s RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
/ k9 ^8 K' P) h* _' x' R$ Q& ~' a "\[IndentingNewLine]",
9 P) o% Y7 \( h RowBox[{0 \" W" ^6 e9 n, d4 {
RowBox[{"m60n21", "[",
: _9 \8 ^7 K0 q3 O' b1 Y RowBox[{"[", 8 s G+ [6 s" }& T' A" N
RowBox[{"i", ",", "2"}], "]"}], "]"}], "=",
0 C+ \$ L- K7 R3 {( m! L8 H RowBox[{"u2", "/.", * v8 a( ?" E) }; l) O- D
RowBox[{"{",
) P/ Z! }, C, f6 y, q3 g6 B W; B: S RowBox[{
0 u1 p- \0 n. |5 B3 ^ b RowBox[{"x1", "->", * w0 n+ H+ q- g8 g
RowBox[{"Data", "[",
) ?! t* c5 [0 R. M) p# R( L RowBox[{"[", 1 B7 w* l3 ?3 w; ^( ]: j
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", . S) q5 P3 \& p0 H8 i0 b
RowBox[{"x2", "->", 6 Z' v" y1 L8 s. z& f2 M
RowBox[{"Data", "[", % U9 }- }# ]* Q0 D
RowBox[{"[", / u {4 a5 K) h- ~" z* ~$ O
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ! ]4 c- O& R0 \) b% ~: z9 v0 J$ a
RowBox[{"x3", "->", 0 S& K6 }" g6 E4 R( s S8 _3 H
RowBox[{"Data", "[",
5 Z4 S& e. N! ]2 u RowBox[{"[",
8 Q i2 u ^3 }; }" U; N+ @ RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
9 A0 a U* p2 Q8 C RowBox[{"x4", "->", ( p2 k' t' T. ^4 c7 ~
RowBox[{"Data", "[", $ k3 b, S U9 l; X3 [
RowBox[{"[",
& i: H+ s- T3 i& u3 Q8 ~+ l RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", + [/ n/ i5 n4 l5 W/ `; P
RowBox[{"x5", "->", : L- |1 @4 a9 C+ s9 `5 L2 V6 L/ w
RowBox[{"Data", "[", $ e( B6 @' x5 D/ W1 T2 M3 l$ B
RowBox[{"[", & f7 \8 L8 Q5 l! ?
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", # O- C" a; I; L4 `: @3 |1 i& H
RowBox[{"x6", "->", 4 d8 ^! D* U4 |
RowBox[{"Data", "[", 0 B4 [: F+ R- X1 _! d. t
RowBox[{"[", 8 u" g1 @3 P4 x* v
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
; e/ H" ~1 |9 L9 C* \% @1 w RowBox[{"x7", "->", ! j% I% @/ |% _# T3 E/ y
RowBox[{"Data", "[", , K" G# W5 G& G* I# g% R0 r5 Z" x
RowBox[{"[",
: d! {6 O3 Z" W8 d RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
# ?' `8 g1 \) d5 P* S. @/ K% ^2 a RowBox[{"x8", "->", P, y# d) M# Z
RowBox[{"Data", "[", d/ x) ^7 Z" }9 C& m8 n
RowBox[{"[",
& _, [* R6 Y. b" }/ y5 d% z RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", : [4 D% R" E% X9 Y( l
RowBox[{"x9", "->",
2 p Q" t$ V$ O. @! }9 H4 O RowBox[{"Data", "[", * Q8 e1 d% r2 [+ E) U' @' `
RowBox[{"[",
" A5 h0 m% c2 f! q( p RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", / n# D/ H: v$ i, O( q/ U
"\[IndentingNewLine]",
1 Y( X$ P- Q' K4 I! x RowBox[{
8 a5 R5 q% [; @ J' @6 }8 x RowBox[{"m60n21", "[",
) x# W' X+ ]/ a RowBox[{"[",
! H* I: ~! G1 |. g8 u! E RowBox[{"i", ",", "3"}], "]"}], "]"}], "=",
1 C" t* T/ `9 y+ a4 S( Z% z1 p' k RowBox[{"u3", "/.",
0 j; ?# j' A0 k Z RowBox[{"{",
7 @ T4 L* e) q2 H( M RowBox[{
$ N# I3 ^! R. P1 y" p RowBox[{"x1", "->", 1 i% |; x0 H) u2 p6 G/ x; a2 h* r3 Q- ^! a4 x
RowBox[{"Data", "[", 9 n. K$ }7 k8 s5 {6 Y
RowBox[{"[",
+ [8 F8 ?$ s/ p. x RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ) n! t! \/ z6 r+ [+ y
RowBox[{"x2", "->", . i/ }& q; x* o; V8 m9 \1 W
RowBox[{"Data", "[", % Q9 t7 \! @. G% W
RowBox[{"[",
6 q( W# Z$ Q2 b RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
. U( R8 \' ^6 {0 s: \ F$ e RowBox[{"x3", "->", 0 x7 s9 |6 N4 V% V8 K P/ H
RowBox[{"Data", "[",
" I; d, k, \: E# N( y: z# r' Z RowBox[{"[",
! E/ _8 V* F4 H% [* `: w) W& a RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
. w0 _6 X- [' Y1 J$ z RowBox[{"x4", "->",
3 D% u4 f5 ]9 ?: F/ p' N RowBox[{"Data", "[", : M" Y# T+ D9 j& Q. I) P9 e
RowBox[{"[",
2 m! K8 F; x8 |. B2 y RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 1 I9 ^, n* x+ }6 }; d& j
RowBox[{"x5", "->",
/ a; s" U7 C/ o* d9 R! k4 }. t1 ?* J RowBox[{"Data", "[",
) @# s9 }1 J2 h7 h& d RowBox[{"[", f8 T6 Q0 k" r# a* I
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ( J% ^7 a2 H" ^
RowBox[{"x6", "->", & k# j( ` V3 v! `, p
RowBox[{"Data", "[", 3 u: j' J& g, {) w
RowBox[{"[", 4 p+ q9 p! Q4 b1 W
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", : C& [3 p- u" ^8 Q6 k7 j |/ [, p, T
RowBox[{"x7", "->",
9 h/ M* d- p) m" `) Q- ?4 u RowBox[{"Data", "[",
1 {* X4 t- E* U: q* O/ I RowBox[{"[", ' c1 @+ u/ @% F) S: r
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
! g6 ?) F5 I6 M( v RowBox[{"x8", "->", # A( N$ B2 r# |
RowBox[{"Data", "[",
; H2 U+ |2 s2 u" r RowBox[{"[",
% k5 o* K' w8 M. m9 D N RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
: k. R! B ~" F( P: K, U& a RowBox[{"x9", "->", - B! P' b2 X3 i X; [- G
RowBox[{"Data", "[", 9 k2 R6 ^/ i% D1 w
RowBox[{"[",
' i7 `2 j" O* d* | RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", / J' V& ^$ z& O3 S. Q
"\[IndentingNewLine]", 4 [) J5 o: Z' W7 E. u) R% T+ m3 y
RowBox[{
, L" s/ ^8 E& d RowBox[{"m60n21", "[", ; G5 o: F/ D3 \
RowBox[{"[",
: M0 v; O& O/ N# M- j3 f; i3 A RowBox[{"i", ",", "4"}], "]"}], "]"}], "=",
7 V( \, t" s/ O8 V5 m. e8 h0 e RowBox[{"u4", "/.", 5 X: i) e2 h1 u7 Y
RowBox[{"{",
6 J0 Q7 q0 {! b k, B7 {2 B RowBox[{
3 ?5 n" ^- p% m* k; g: w4 h- r1 s RowBox[{"x1", "->", % m, \/ v9 T; ?' w
RowBox[{"Data", "[",
' G* w3 R5 ~% ^: _0 L: ~ RowBox[{"[", ' V) m, b4 w8 I6 K) `- [& o
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", + h9 ]/ z4 M; X( ^+ o8 i* S# `6 L" {
RowBox[{"x2", "->",
R% m2 O+ w: `# E" _* S4 ` RowBox[{"Data", "[", : M5 M# Q; _0 e
RowBox[{"[", $ Z1 t1 {' c# p+ G s4 i# Y
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 8 @, @% b( P* a6 J
RowBox[{"x3", "->", % r/ d: L8 f7 G9 ]
RowBox[{"Data", "[", 1 O/ T( X) R9 i8 {+ B' z
RowBox[{"[", 9 H2 A, J5 R" ]5 L( o: e: ` n
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
1 w3 o- N$ U% o) g% {# O9 Z: B2 o/ ] RowBox[{"x4", "->",
9 s2 W/ t/ N1 H: [, l RowBox[{"Data", "[",
2 h, j k5 u" W9 v% a RowBox[{"[",
4 A$ T4 F5 Q1 N: N% w: T RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
% a$ q/ f1 i! p; x RowBox[{"x5", "->", , d+ E l# m, w) `3 W9 B) n* Z
RowBox[{"Data", "[",
0 X" X# O# k) s+ H6 `8 i+ ]$ f2 d RowBox[{"[",
0 m0 m. D. g% i% I RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
: x0 i' i1 l" W; T1 ^ RowBox[{"x6", "->",
s6 F) a/ Q# Q6 |7 p5 h8 H RowBox[{"Data", "[",
+ e. _' W! y1 n$ Y# ~* _ RowBox[{"[",
) ]5 s5 u, U$ _9 s) s RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
/ z8 j& a. N) y1 r( f; f RowBox[{"x7", "->", 6 }8 | K; a) Q2 @: x: b# `6 C! m
RowBox[{"Data", "[", " Z$ \5 \( a) C5 f
RowBox[{"[", 0 N2 }2 f U' q$ ]3 `2 U: m, f' I
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
' w# W2 P; n' b# D7 W) G# G RowBox[{"x8", "->", ' @- s m7 G1 o; B
RowBox[{"Data", "[",
& F. |/ @, ]. Q7 a2 ~. z' l RowBox[{"[",
, K' j8 w( E& @5 A( P) p RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
) j% `% t8 H. n' b0 L$ W5 D: c RowBox[{"x9", "->", ' g9 t# z/ V+ y# \% a# p% j
RowBox[{"Data", "[",
& H7 J! i2 q9 |; q# I! h RowBox[{"[",
* j. ?+ S3 d* g RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
9 y4 m8 }4 Y. z8 D7 N "\[IndentingNewLine]",
6 H9 @; W: W0 o4 L @$ h. Q" \ RowBox[{
) J% U9 o" R2 Q' }6 v+ D% V* i RowBox[{"m60n21", "[",
4 i H( W" L7 p8 }9 L3 j RowBox[{"[", & r8 C7 r) r3 A* A0 o4 w5 _& T7 S) L
RowBox[{"i", ",", "5"}], "]"}], "]"}], "=",
2 f$ n7 h# P+ w' v+ l; O RowBox[{"u5", "/.",
& p' j, I4 R+ ^ RowBox[{"{",
3 f3 G; a$ C7 O RowBox[{
; ?# P% T: O% L& F: e9 V$ `3 T RowBox[{"x1", "->", 5 E7 q! {/ U( A% D) i/ y
RowBox[{"Data", "[",
?$ w4 l- } I8 H. L RowBox[{"[", 2 n/ D3 X) J k
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 5 K( c( N9 i! K& v
RowBox[{"x2", "->",
9 a- K" c- y2 q3 `) c" K RowBox[{"Data", "[",
( @, V6 S2 M- S6 a7 D& m7 H- A RowBox[{"[", " @$ G A2 K q# U0 c* x
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", # E' A0 e; |! `( r! a0 k
RowBox[{"x3", "->", ; y" [9 b+ c* X7 G9 |
RowBox[{"Data", "[", ' R1 X2 X: [( \% O# x
RowBox[{"[", + J8 f) u6 \# f0 E
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", + s+ s- `4 S' M6 Q
RowBox[{"x4", "->",
0 x; a4 ?5 _. K* o) o3 n RowBox[{"Data", "[",
0 ^1 H; z j1 _) j RowBox[{"[",
! G5 P2 Z9 \% G! r" C& P+ { RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
! W$ a" m. H, u7 T q( h. V9 i RowBox[{"x5", "->", . e' g2 v: K) j
RowBox[{"Data", "[", V; w6 Z, l, u3 j
RowBox[{"[", " n- C; h' L, o, \/ g" T# e, w
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
! U; K2 q3 O$ F7 s' l+ p: D3 m RowBox[{"x6", "->",
# N* P6 `5 S) \% p4 } RowBox[{"Data", "[",
- S' u: n. z5 `* Y6 W RowBox[{"[",
; K, Z4 \' z3 F) h RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
3 A. P8 a1 O8 C! j, T' m RowBox[{"x7", "->",
6 Z+ k, G2 f4 e+ N RowBox[{"Data", "[",
/ A* c/ M- N" { RowBox[{"[",
4 ~( Y6 L4 |8 f9 d9 L RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", % z* D3 y9 I! ^; k% H/ \) Z( W
RowBox[{"x8", "->", % B8 z; F/ W- C) c9 l0 Z0 O
RowBox[{"Data", "[", 3 y0 z _) W) C; s. [6 P
RowBox[{"[",
5 ?. ^5 }5 l* d RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
+ L M l7 g }- g* T( z+ i RowBox[{"x9", "->", ; T5 ]+ G' @" X( x/ T) U- Q
RowBox[{"Data", "[",
" y. C+ `( D5 C \0 u! D RowBox[{"[",
H' E& N S8 O& V: I$ p* \ RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
9 \% x7 J! _( h& F- O "\[IndentingNewLine]",
4 j- p" a; P8 B, K RowBox[{+ w8 c$ M0 P. d
RowBox[{"m60n21", "[", 2 x4 o) t& \% \1 }+ J4 c% P
RowBox[{"[",
, X9 J& L9 w' p3 O( `$ s% o$ P A RowBox[{"i", ",", "6"}], "]"}], "]"}], "=", ' I) A: b, f! b! U, t+ i
RowBox[{"u6", "/.", 6 [# W9 t3 _1 |6 t' e
RowBox[{"{",
6 n3 m& ?3 ^# w0 K9 h8 t RowBox[{
# q3 J+ [2 @! ?- l! O) ? RowBox[{"x1", "->",
9 @/ l5 h7 Z7 ]2 H RowBox[{"Data", "[", / l) J" n9 e; D& g
RowBox[{"[", & k( ^ E' f1 ~- v, Z/ q8 s* h9 Z
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", / p8 J1 Q3 C) b5 g# B: u
RowBox[{"x2", "->", 0 f- r! H( v+ ]4 V. W! \# N
RowBox[{"Data", "[",
' u% q* c4 G4 Z) z2 P* C9 P4 i- A RowBox[{"[",
$ H6 y3 U% U9 j& E RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
( e, }1 Z1 W, R& G8 Q& ` RowBox[{"x3", "->",
5 ?& e6 z$ w; G8 _- c; @* @6 Z RowBox[{"Data", "[", 8 `* I1 N$ Z4 f0 j' h
RowBox[{"[", z/ ~; d5 V* T O7 x: j4 m8 x+ L' p
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", + c* O+ G$ H! O2 S5 G
RowBox[{"x4", "->", 4 {, I& m B" p% p
RowBox[{"Data", "[",
8 W: V" h8 o8 B; O RowBox[{"[", . U; N; r+ e6 r/ u3 a- Q
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
" ]; M* \: ^" G8 a RowBox[{"x5", "->",
) @' E0 t) [8 I8 w# @ RowBox[{"Data", "[", & H: G9 V9 F* c) V' q9 @: z% @
RowBox[{"[",
5 k: u6 F0 I/ w' Y& E- A4 Z RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ! |# p1 w! ?4 L9 S- D( O( Y: B
RowBox[{"x6", "->", ( V* s- L/ I4 Y& K& m0 e
RowBox[{"Data", "[", 8 k9 \2 P2 W8 \3 C3 G9 H/ T& p+ l5 I
RowBox[{"[",
) D# `/ m: a! I0 o6 ~# n RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
! W& e; \. |$ T! a: n; ^6 J" b RowBox[{"x7", "->", * Z9 K' G7 i; o- M( J
RowBox[{"Data", "[",
! r& q$ r( Q0 v7 B0 b4 d RowBox[{"[", 2 B% _3 j9 f5 L- O2 w/ R5 r
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
9 S" e3 U0 S( g5 y4 z5 I+ B RowBox[{"x8", "->", * b2 T( N4 B$ n- S2 o- h+ I
RowBox[{"Data", "[",
! w. n2 K2 r [+ e# l t/ C k RowBox[{"[", , H& C7 B( v- A( ?) u( z
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
$ B2 ?% j. z0 m: g' L" y2 K RowBox[{"x9", "->", 7 h; o3 n* k8 ]7 T3 Z! p
RowBox[{"Data", "[", : w/ L( Y/ U- ?+ }. D& i8 @
RowBox[{"[", : u- @- G3 q( d8 }
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
; U0 p6 F E" s r "\[IndentingNewLine]", 7 _/ g" y! o7 ^: f7 a6 B# O
RowBox[{
: L7 d/ b( h0 ~# G# B" G RowBox[{"m60n21", "[", * x3 k8 C. I/ j# u8 i
RowBox[{"[",
8 n' D! n' v3 c! i* I# a0 ` RowBox[{"i", ",", "7"}], "]"}], "]"}], "=", 7 G9 B4 y. }1 E! B; R$ V
RowBox[{"u7", "/.", t0 h) v3 P/ \; U3 |* V
RowBox[{"{",
. u9 e' k: e3 B# Q& T {' V RowBox[{4 b5 \, D- E3 O5 L: T
RowBox[{"x1", "->", / F2 k1 m( ?" X8 o* @0 [: b2 L
RowBox[{"Data", "[",
. Z) D5 k7 I) u( Y1 V RowBox[{"[",
9 c- b6 b1 n' W$ D, c5 J RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", " f' f' g3 i2 S* @3 F1 Z
RowBox[{"x2", "->",
& a& O) W6 I( X+ F& [! n5 V' j RowBox[{"Data", "[",
9 f8 f/ Q/ S' D o! t1 Q RowBox[{"[", # ~' O; o5 d& C) n# b- x
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", - ^. F/ {/ A. G' m5 k, k. @
RowBox[{"x3", "->", 1 [" X- s% \7 W; ]* x
RowBox[{"Data", "[", ( l+ m5 c# W+ V% m' b! l) l
RowBox[{"[", 5 M/ U- x- X5 a$ @1 A4 F
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
8 a2 V4 u5 ]: H. n {) \& F) o RowBox[{"x4", "->", F+ {% ~& O7 \) ?0 R6 |- w1 ~
RowBox[{"Data", "[",
' Q K6 I z# P& @1 K& J" E. P, C RowBox[{"[", * L9 k2 n/ I* N+ ]" X) I
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", & K! j. c* T/ g7 f: ]' v" s# M
RowBox[{"x5", "->", 5 o( d. {) H- L- _! {
RowBox[{"Data", "[",
9 L$ z2 G, s; [+ \ RowBox[{"[", 2 J8 X5 _# U' V( Z
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ; [* e% n4 O' n q9 M
RowBox[{"x6", "->", 6 ~1 h2 Z x* C# m& {
RowBox[{"Data", "[",
0 u+ e( N) v. ^9 x; B RowBox[{"[",
; P7 d8 [. f" P3 \" d# S$ M RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
$ V) c$ A* V+ q9 {5 u. r D RowBox[{"x7", "->", / U3 S; i8 _& @" F
RowBox[{"Data", "[",
. w$ s, r5 H& w3 z RowBox[{"[",
" X4 R: A7 t$ F, T. z RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", % b1 E: T9 G0 t8 D' I# N& s( N6 G: w
RowBox[{"x8", "->",
$ u( @5 R3 t* g9 { RowBox[{"Data", "[",
' H# d5 ]. U. x RowBox[{"[", : L/ H2 ?1 I/ X2 R! Z% M( R9 u
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
' d8 j7 P% V1 `/ L RowBox[{"x9", "->",
: ?* E* _# k, f# [ RowBox[{"Data", "[",
* {2 h$ Y/ {1 N( V4 g1 l RowBox[{"[", 1 Q, ?0 h* o& N- j
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
; M: D: V* t4 b "\[IndentingNewLine]", 6 U% g/ J& n$ e1 l; Y2 c
RowBox[{0 S/ e$ l5 e% t$ _+ c6 ?7 E( L
RowBox[{"m60n21", "[", 0 R7 Z9 l1 N9 T) ?8 ^* Q
RowBox[{"[",
3 Q8 O" N0 l' s4 ], N3 b9 v RowBox[{"i", ",", "8"}], "]"}], "]"}], "=", 8 k" i; {2 p; `
RowBox[{"u8", "/.",
: |+ a3 s% ^: U) J RowBox[{"{", ( Z* Y/ A) v5 P. k
RowBox[{: p! R: @0 q" H% \ K
RowBox[{"x1", "->", * P5 x) G+ X! D2 W
RowBox[{"Data", "[", " _8 F/ h& d2 {
RowBox[{"[", - K- d2 ]8 ?4 \, d- |" y
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 0 [$ H5 g% M( f
RowBox[{"x2", "->", , A, C, n) x0 A; T
RowBox[{"Data", "[",
' n% q+ w4 ~, | RowBox[{"[",
: j/ l4 k0 N( G/ d RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
1 M; Z0 ]: {8 v9 I6 `; p RowBox[{"x3", "->", ! u7 ^0 @6 F8 ^
RowBox[{"Data", "[", 0 p5 Q6 f& g9 m2 ^$ y3 N. F
RowBox[{"[",
" d) C6 T9 _5 Y( W* L/ a5 g RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", , }1 E! a$ u+ l; `1 Z! n8 x0 V
RowBox[{"x4", "->", 9 H' }5 h& D3 N/ t
RowBox[{"Data", "[", " A0 k$ C0 N2 n' y1 P2 `
RowBox[{"[",
& J# a3 b/ P1 e/ I/ l RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", # c: M* s1 r6 w Q( f/ ^5 j
RowBox[{"x5", "->", ) b+ a) u; A, \6 w$ a' B, r
RowBox[{"Data", "[", * d( |- k. v5 W6 u8 c3 V! A
RowBox[{"[",
( J+ `3 n8 u* U8 E/ d# j9 } RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
# y* Z; r ?& f. |3 M RowBox[{"x6", "->", 2 g a4 s2 E# |) W2 C# Y8 x
RowBox[{"Data", "[", / n; g0 l4 p7 S0 |# }! t
RowBox[{"[",
( u: |, J' P" p$ e- N RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
" z9 ^* t, s1 W, W5 P RowBox[{"x7", "->", 0 A0 O" k1 g& w3 ?
RowBox[{"Data", "[",
% G4 y9 A" P2 e7 F* S3 q RowBox[{"[",
: t5 C3 z' _2 q0 ` RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
" K) U$ s9 ?$ s0 U RowBox[{"x8", "->", 4 N. o! z: J+ q% P
RowBox[{"Data", "[", 0 G; Z# ^; G* I5 w
RowBox[{"[",
: Z0 N2 t7 _8 \; V6 s0 K RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", $ C9 ?9 u' \2 ~
RowBox[{"x9", "->", ! s8 Z2 |8 {6 G6 E; I8 x
RowBox[{"Data", "[", 3 j2 h4 M+ E4 m/ U# w/ ^
RowBox[{"[",
7 f0 M! [# p3 S* x& x3 Z" O- Y T RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
) G2 N8 J7 T% t/ J' }! u "\[IndentingNewLine]",
& z1 d2 k- m; d3 H$ a! d L1 S: D" [ RowBox[{
% E: @2 x D/ m" \ ^9 ^6 k0 W RowBox[{"m60n21", "[", * ]/ L7 r& A. N7 f# }7 f# `
RowBox[{"[", & x8 z/ c- }8 H B; s; f5 _! b" {: r# X
RowBox[{"i", ",", "9"}], "]"}], "]"}], "=", / v4 E. t- i" ]
RowBox[{"u9", "/.", " A2 C; N% s1 u. P C0 H) n
RowBox[{"{", 9 f) p6 U* X3 _+ m
RowBox[{+ ` m/ [' L7 H9 s9 {5 c W
RowBox[{"x1", "->",
1 D" U! Y1 U: ?+ f6 J) [. t RowBox[{"Data", "[",
' L- g+ ?1 @0 r" L RowBox[{"[",
2 k; z' l# X$ a* y& L- p RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
8 d; z5 j2 J- Q7 h; h RowBox[{"x2", "->", . ]4 B, h4 X! f- u
RowBox[{"Data", "[",
* n4 H7 `9 j- }' `- B& N) `7 [) e RowBox[{"[", " `/ `) }+ w* C+ B. Q( N4 v
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
% ^+ x' S0 H( S0 M* r9 o RowBox[{"x3", "->", ( l" k0 c( W; p9 { L- p. J# g
RowBox[{"Data", "[",
) M+ G, W: x( o% `* j RowBox[{"[", & l, L1 _* \; s$ x) b
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
( n7 `8 _: j# e7 z8 r) g/ A. V RowBox[{"x4", "->", + U) j! X6 [: L( z+ O( x; j* P8 [
RowBox[{"Data", "[", 2 i7 V2 u( y% c2 J
RowBox[{"[",
( e: { L u+ d- S- p; a/ } RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", ) N& j9 U8 T, ~9 V
RowBox[{"x5", "->", 0 N, G+ y$ W" h6 ~" ^1 m5 n
RowBox[{"Data", "[",
% t3 b/ g. G. B1 ?9 ?9 T RowBox[{"[",
4 n) I5 R9 z+ @ RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", , y# l q) Y& _- y6 C; w3 f: c
RowBox[{"x6", "->", ; @: Q/ L$ \$ J& v$ Q
RowBox[{"Data", "[",
8 K# K0 `! A& K5 _- V% t RowBox[{"[",
$ w# m: k/ T5 W- \ W* ~- s RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 7 p2 m9 [4 |! C0 x7 T
RowBox[{"x7", "->",
+ s% [6 i5 ^1 g2 `: W' a& @ RowBox[{"Data", "[", ! \6 i+ o9 s4 r% }5 {/ l( v
RowBox[{"[", 9 u4 J# c/ o7 b6 Q: p7 ]+ @% S
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ) b% N6 f: s3 a1 O S2 j
RowBox[{"x8", "->", 1 \6 m7 g; ]. i2 N
RowBox[{"Data", "[",
) o+ G+ h. P; K RowBox[{"[",
+ O. ^5 w: O1 y/ F RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", d+ P- v6 G( k- q1 h* l5 Y
RowBox[{"x9", "->", ( s- f0 a* i) u' J$ R5 B& D0 w& p
RowBox[{"Data", "[", - R: S" N9 \6 z0 K; `9 m
RowBox[{"[", 6 z3 u8 W4 T6 G! X3 A; K O9 H
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
! K5 }) E* W6 P# ?' H/ k "\[IndentingNewLine]",
3 m* Z$ N7 Y( [ RowBox[{
! ] x F6 E( U" A# L* w RowBox[{"m60n21", "[",
}1 R4 H- |; n, P! {& I: C% e v RowBox[{"[", * A* w9 d( b- U) |5 y% H# {
RowBox[{"i", ",", "10"}], "]"}], "]"}], "=",
5 Q+ O6 ]5 Q: O" x& @' N9 G' k, q f RowBox[{"u10", "/.", - M9 x4 H, l4 ^+ w
RowBox[{"{", & [' x# x2 ]! H) k
RowBox[{9 j- o9 B: ^+ ?* b- d, d# e* G, X
RowBox[{"x1", "->",
% b4 g% D7 z% _' y RowBox[{"Data", "[", $ @% p) B' V8 n8 U1 V' N& p
RowBox[{"[", ; d8 T( K$ g9 e9 X" j: R9 C0 G
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 0 N5 ]* O: a2 s& y0 Y3 {, |
RowBox[{"x2", "->", ! I! k+ P, K- S# }7 [" q
RowBox[{"Data", "[", 1 K5 U: [( |% @2 h* w% A
RowBox[{"[", * g4 ~; } }$ ] R" ~0 L3 B4 H
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", Q7 Y" I; v* K" e- i* _
RowBox[{"x3", "->", : ?" |4 X, w1 G R r3 S0 K7 d+ O
RowBox[{"Data", "[",
: n' S1 C, a' Q RowBox[{"[", 4 I2 }0 z* ^$ Z, N _
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", , w( Q' r/ w2 u4 W+ _2 k9 n, p
RowBox[{"x4", "->", - x6 O' @( N; k; C$ P$ g
RowBox[{"Data", "[", 5 h8 M0 w2 O7 ^2 b
RowBox[{"[", ' w, U: C4 \" [9 z' q6 \ w
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
7 t+ K) f; f# f8 ^ RowBox[{"x5", "->", 9 Y" v. N% G! z) Y- {, G0 e
RowBox[{"Data", "[", 2 p9 Z. b8 v" Z2 f- L2 j% S
RowBox[{"[", 4 ^; x$ L) n3 x! G% p1 k
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
) I& x% r8 f3 P2 w RowBox[{"x6", "->",
, h1 y7 z$ K* k: Q RowBox[{"Data", "[",
; H- g; \/ @4 G4 P1 \ RowBox[{"[", x, q5 J$ g& Q7 J3 J
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
0 @1 x* B8 H4 S6 y7 k RowBox[{"x7", "->",
; L M' p; F/ v RowBox[{"Data", "[",
2 _' B9 ]" g& g8 x RowBox[{"[", * S! C2 W) j1 s% k# x0 s0 ]
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
9 l% M* }6 B7 Q RowBox[{"x8", "->", , ]. X* a' I! Z4 ]0 C. {
RowBox[{"Data", "[",
" v3 U4 A) g& ? RowBox[{"[",
/ h1 @- U# ?0 i* g' s RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", . R u& d- L2 z- y5 y
RowBox[{"x9", "->",
- R! V; T9 m$ y6 `7 ~- q RowBox[{"Data", "[", . I# M' v. ]% J/ n8 {6 r% i
RowBox[{"[",
9 h- A" X4 X2 W! P! g; Y0 B' V9 j9 g* K RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
[/ `- C: e! G0 n "\[IndentingNewLine]", , ]' p; x! j! t6 I! e+ g
RowBox[{4 E2 }/ H' I4 l0 q/ S4 }0 Y
RowBox[{"m60n21", "[", 2 U4 Q/ M0 r; a4 F# X
RowBox[{"[",
( g. N! d3 P2 Q z2 J RowBox[{"i", ",", "11"}], "]"}], "]"}], "=", ' I; A9 Z; N' ?
RowBox[{"u11", "/.",
( T3 p! c: R, c B2 m5 ?; Y RowBox[{"{", 5 |/ A! k( Y+ Y
RowBox[{ ~7 e' R7 {8 D8 n K9 p" M
RowBox[{"x1", "->", ' P& _, n: [% |% i6 m8 u0 r7 p
RowBox[{"Data", "[",
6 w. K/ V" P4 A RowBox[{"[", ; b/ k3 M. c+ v
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
& F2 D9 \ U1 ~5 q RowBox[{"x2", "->",
' g' z4 L7 Z1 L! N4 J RowBox[{"Data", "[", u' A& F8 h4 ~- i0 ]% ]
RowBox[{"[",
% V, f L4 R$ A2 D3 y* s& ^- L! i RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 0 r" s* y4 d( v% _
RowBox[{"x3", "->",
' `' P1 `2 ^4 u% m RowBox[{"Data", "[", - V* h/ p: f" D# W5 B2 i" A
RowBox[{"[",
+ ?4 S! r: c4 s c RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
' {" E8 x3 i7 _4 a: X RowBox[{"x4", "->", " F/ j, p8 `- C$ n% Z6 _ f8 W
RowBox[{"Data", "[", & P3 `6 B6 u! S8 i% h ~& N
RowBox[{"[",
1 M1 O2 i+ \0 L7 N( s5 m- b @+ e RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
8 E" o% A x8 }. z RowBox[{"x5", "->", 5 _/ Z0 M1 O2 a1 O; v8 S
RowBox[{"Data", "[",
W/ H6 k8 I- ?0 M3 E RowBox[{"[", ; }( Y$ S( z' K: I
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
) P; x5 P1 Z0 P% b! v! { RowBox[{"x6", "->", ! A) ?& j: c7 N1 f+ u- q* E5 `
RowBox[{"Data", "[",
& O% ~( a4 w* G! p RowBox[{"[",
6 y* e. a1 A/ T9 w1 t, a2 ? RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ! R, H8 @5 L7 N) @. ^! W1 R# v
RowBox[{"x7", "->",
- N" H9 G$ z2 O+ Q RowBox[{"Data", "[",
0 H' |3 q2 y6 f- B" \% y6 o+ m RowBox[{"[",
o' ?, u" M% r5 W RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
3 F( z/ }, X3 y' x9 a6 P& Y RowBox[{"x8", "->", 8 [0 g; M6 w) I- ^, M" G
RowBox[{"Data", "[",
3 ]& X$ X0 m* P2 u RowBox[{"[", % }' B- m0 F! l7 C5 [
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", : t3 w: w& Q) p( M! h+ i8 ]% O
RowBox[{"x9", "->", 6 k$ @+ Z: `% ~
RowBox[{"Data", "[",
+ k P" F v! T RowBox[{"[", 6 d Y0 s) z$ J7 }3 x3 y
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", A5 U1 m, o* S- b
"\[IndentingNewLine]",
$ ^% I" b. b) N6 x( ?8 @. g4 V) Z, e+ k RowBox[{
|! n9 \ l- L6 s2 k' l: n. c RowBox[{"m60n21", "[", ' J* G- B/ g' C
RowBox[{"[", 7 x5 |! O3 w+ y: a( T6 d
RowBox[{"i", ",", "12"}], "]"}], "]"}], "=", : E3 z* W5 z* D# O4 m
RowBox[{"u12", "/.", : p6 e- K$ Y# h5 w5 k, Y
RowBox[{"{",
, m/ k: P" Y' I2 @0 G RowBox[{( `% g) u9 Z- E- H+ @' n9 k
RowBox[{"x1", "->", 1 \ S5 B, l* l' J% L2 q
RowBox[{"Data", "[",
+ q8 q2 x3 d" t4 T6 t" T2 T5 h) m RowBox[{"[",
- F- ^1 c3 |$ @6 ?7 S5 D RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
9 B3 S W, h" h# e: b& o$ T2 b RowBox[{"x2", "->",
3 ~: ?, w$ a2 R0 \4 s% s" ^3 O RowBox[{"Data", "[",
* s( D, _! }4 F7 m* { RowBox[{"[",
% O5 B, F5 c7 n l; e RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", & V) E( V" j7 V; H+ ^+ x
RowBox[{"x3", "->",
q9 \3 o) @0 [, f9 f RowBox[{"Data", "[",
+ t+ {; ?: y( a! l; ` RowBox[{"[",
/ R+ w j; M/ b1 ? A7 O RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
) L- N; U3 [- q1 o* e3 ~7 O RowBox[{"x4", "->", ! m3 A- b9 u* A7 n$ o8 u
RowBox[{"Data", "[", 7 |2 {" W% X, d, X/ [% r
RowBox[{"[", " h1 F7 U7 B& c( {% j! [
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
. W- O; l& e [. Z/ i RowBox[{"x5", "->",
- _. x2 f9 Q6 y1 C RowBox[{"Data", "[",
- D. W, a+ u" D- l7 V0 [) D RowBox[{"[",
( v- ]3 ]8 @6 ~- C5 D# A. V RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
6 @6 e1 x" f" ^* { RowBox[{"x6", "->",
6 u- h% E6 K8 M* c- ~& B, C: a RowBox[{"Data", "[", 1 t1 ^1 `6 @3 S8 }1 P0 J
RowBox[{"[",
2 `% v, Z1 `9 T# T3 n5 {( Z RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
; _6 k8 K( D. F' ? RowBox[{"x7", "->", % f" D/ b) a' d- T# d/ E
RowBox[{"Data", "[", ; G, M1 u& _: |5 u
RowBox[{"[",
3 g! \1 R% o# ]1 ^8 u5 D! J RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
3 O/ G2 K O! _- f" t ^ RowBox[{"x8", "->", 3 L3 n/ j5 k( K2 L9 v' f
RowBox[{"Data", "[",
+ O | [ q7 R4 ^0 C7 g RowBox[{"[", 6 o! w" }. \ E- o3 r0 B
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
( l) `( H( T2 o6 L9 M: B; x8 J RowBox[{"x9", "->",
8 B2 [* \ Q3 | ]3 f% @3 l RowBox[{"Data", "[", 9 P1 c' r; o/ s! t, L9 ~
RowBox[{"[",
7 j5 b2 K& N& |2 j' a6 q& Y$ m RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
8 J$ p" K) K5 S3 l# b) x "\[IndentingNewLine]",
' S- _2 {* f' v( g RowBox[{: T9 x# W7 ~. M6 {
RowBox[{"m60n21", "[",
9 Z6 N9 T2 K& f w4 l/ J( [3 J RowBox[{"[",
! E: A5 }& d8 M( `+ P8 ` RowBox[{"i", ",", "13"}], "]"}], "]"}], "=", , k- D7 t+ t; V- l3 B* ~3 N1 X( k
RowBox[{"u13", "/.", 8 F" o g1 h% _- @+ N$ \4 g2 @2 d8 D
RowBox[{"{", ' x) b! m- h q- L. L# g. ]
RowBox[{! e- i: a7 U' t8 I k* ]
RowBox[{"x1", "->",
' ?! I. Y, a# }7 c RowBox[{"Data", "[", 8 j' r* q# r1 c
RowBox[{"[", - W1 g: i9 H2 E* ]
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
+ K9 _# J$ D+ H8 a& t4 V RowBox[{"x2", "->",
5 w& z9 j N% m8 R4 Y) p RowBox[{"Data", "[", ' Z: `- Y0 W# _! e) t# ~; h5 W) D6 b
RowBox[{"[", 8 W6 [. r" }% B @: q
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
9 n8 ~7 v/ g" T+ i( V' \0 n0 p$ c RowBox[{"x3", "->",
/ b. }. `8 W8 Q+ {- j, J* ~) ~ RowBox[{"Data", "[",
6 T0 _- A4 E$ @% a( i RowBox[{"[",
" P4 V* f; h& `$ L/ `! V' Q RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", $ a' A7 F+ _3 D- ~. s/ R! H; u5 H
RowBox[{"x4", "->", ; g* |( _" n5 B( [% v) V& O
RowBox[{"Data", "[", 8 V0 _; G/ O, ]4 ?5 K: f5 a1 V! J
RowBox[{"[", 0 H b2 S* N1 D0 Q* N* J
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
& ^8 S' g, k' v5 r8 b; N RowBox[{"x5", "->", 2 M: ?0 y7 `3 X2 N3 H7 ]; Q! o
RowBox[{"Data", "[", & C# f4 T6 U8 w2 B4 C
RowBox[{"[",
1 w0 K y( s! L- ?! Z# D RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
! T2 ^9 X& X Y0 {& G3 q RowBox[{"x6", "->",
+ q1 H3 @% ^. c j RowBox[{"Data", "[",
! c, U- g$ Q% V' f- f2 V9 i RowBox[{"[", : m0 r' j; a; y( N5 L% E8 Q) g
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
y* i w E, y& T) ~4 G' J RowBox[{"x7", "->", : W- d4 U3 s c0 t
RowBox[{"Data", "[",
: S4 _8 f) M4 W7 }+ B RowBox[{"[",
; ^9 F/ w' }) T4 v2 U RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
2 M [6 P9 m$ X2 Z' ] J W; Y$ } RowBox[{"x8", "->",
1 {. n4 `; `# i: P) } RowBox[{"Data", "[", ' M0 `/ h- m% ]- t+ l
RowBox[{"[",
/ E# i& f! P- I9 ~1 i2 Z RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
- z) `# V3 G: M A$ q a0 B/ z RowBox[{"x9", "->",
4 V7 H( D) q* F/ z. W RowBox[{"Data", "[", * w1 f0 B# k- g
RowBox[{"[",
; F8 B0 S8 ~/ E7 e) Q3 g RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", . L: a* |) @5 u3 M+ F8 y9 s2 m* i
"\[IndentingNewLine]", 0 d$ H3 J0 s. o: x) A
RowBox[{8 u- Z% ?% j% `% Z
RowBox[{"m60n21", "[", ) {/ O D0 |5 Y( F
RowBox[{"[", $ L( G4 X* @- }! b' \% U# q
RowBox[{"i", ",", "14"}], "]"}], "]"}], "=", ( L1 K7 g& M% F6 u
RowBox[{"u14", "/.",
, e9 l( F5 D1 q% P0 W RowBox[{"{",
, g3 k% T5 B# ~. P! ]* o5 m4 S RowBox[{( b, P" ]: \7 q( ~. x: \, w. |
RowBox[{"x1", "->",
) O3 ^# A7 Q, @. h3 b* F" {9 ^3 a RowBox[{"Data", "[", ) o4 [! u. A: Q/ Y# f
RowBox[{"[",
* w7 j) P- ~9 G' U h/ e RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
r' J4 v" E5 l# N1 J1 E" @ RowBox[{"x2", "->",
5 h4 ~+ z: K4 d RowBox[{"Data", "[", " j, K- M4 [, B7 t z
RowBox[{"[", 9 z; X( M( f: w8 I. Y9 e% @
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
$ V# ~( t: g! j. f( E RowBox[{"x3", "->",
% u! Z8 {$ Z2 C) ^6 y, K0 ~ RowBox[{"Data", "[", ) y1 Z5 ]4 P% W4 a" N' b- b
RowBox[{"[",
. N; Z/ [$ A+ V: M; B- j. r RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
R E" n. r# L/ w& h8 o" H" m RowBox[{"x4", "->", 2 f7 y; L% R3 W! z7 k+ F: R
RowBox[{"Data", "[", 1 L8 f9 }, `/ c% b# [) c% E
RowBox[{"[",
4 e D( G( D7 O3 b) O& F RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
. Y8 \- Y4 J0 z) H7 X) Z RowBox[{"x5", "->", 4 x2 `2 f8 ~+ X2 K% {. a& x1 P
RowBox[{"Data", "[", 1 @. c ]9 K$ m$ e0 G
RowBox[{"[", / q1 k% I" U( A1 {( U
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
8 j" p( H7 F! d8 M RowBox[{"x6", "->", 8 N7 ~* m7 b4 ]' u
RowBox[{"Data", "[", ( Q/ s R: U1 J- @
RowBox[{"[", ! i- d' v2 V4 d
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ( a) D& [0 D. R. q, `
RowBox[{"x7", "->",
& o! } s* J2 I; Y3 X. j7 O RowBox[{"Data", "[",
4 j9 Q$ h2 C3 t8 G* L) j$ a W! t RowBox[{"[", & w, i1 d$ s/ W* q+ ~* |
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 0 M3 H: A$ Q4 ], G
RowBox[{"x8", "->",
/ v* c) i2 v' F' ?2 m& |. F& O" ^ RowBox[{"Data", "[", # c) A4 c: r! S: X
RowBox[{"[", + H4 F9 l* h0 P. _" m% ^# D$ k7 ~+ J
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
% O( O* A# C! p8 |" X1 ` RowBox[{"x9", "->", # S$ A: J/ g" w% V4 Z: W- u2 v
RowBox[{"Data", "[",
) ~' y4 f) F7 e8 l3 L# Q" Z; P: i& d' D RowBox[{"[",
6 {8 a+ ~6 j( p RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", / g- y% W2 v0 a0 z; w7 t4 k9 y
"\[IndentingNewLine]", 5 l8 R% [( X. |$ p' n; `
RowBox[{7 K' H0 G, C( N; y0 R
RowBox[{"m60n21", "[",
5 ] t3 m- C2 ]4 g+ W. u RowBox[{"[",
4 T+ H/ S3 ]) y: r) w RowBox[{"i", ",", "15"}], "]"}], "]"}], "=", B$ h2 E/ j8 X# w. l
RowBox[{"u15", "/.", 6 b3 U' Z0 V3 {) x
RowBox[{"{",
' |* T9 V2 v4 H8 U% n RowBox[{# n1 V5 `6 u. [. b* Y
RowBox[{"x1", "->",
/ y% s- k K6 H- Y RowBox[{"Data", "[",
0 t, v+ _. u5 K) W9 L RowBox[{"[", 9 h* D( t5 E2 V9 a8 O8 J
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
1 q; H' D/ A v2 Y1 A RowBox[{"x2", "->",
6 P2 q# X& u" _$ | j RowBox[{"Data", "[",
5 E" a* x/ y5 K6 i RowBox[{"[",
3 U6 q; [! g3 V RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", % _ u) |2 w, E8 A+ t3 z. I4 [
RowBox[{"x3", "->",
) t6 w6 Q6 T$ D RowBox[{"Data", "[",
7 ^( f$ A1 M. e' }! e( }6 v' O RowBox[{"[",
) _( a; ]. j- S" g; [1 l) u- g( p RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
3 |* k* u. t1 r5 |3 b RowBox[{"x4", "->", # ^5 [5 b# Z' ]6 ^( S; ~ ]% P
RowBox[{"Data", "[", 5 B5 S7 A4 H% A5 }
RowBox[{"[",
& M& w; O: _- [! V$ l RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
* h+ W) \1 H: R: z+ I+ A5 m RowBox[{"x5", "->", ; I5 i) k& [7 G" w9 M# ~
RowBox[{"Data", "[", " n: ?$ f! C0 { R6 t- H7 L: r
RowBox[{"[",
5 H! C9 h0 A0 b RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 1 n6 q5 e, m2 I8 v4 {' W
RowBox[{"x6", "->", & s8 a, R# n7 G2 b) z1 i
RowBox[{"Data", "[",
- ^8 a: e$ e1 |2 y U7 b7 J- k RowBox[{"[", * f, X6 d8 k: k
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", / n- C% ^' f8 }9 c2 u2 e
RowBox[{"x7", "->", * f" A& U. J; k9 [* P( _
RowBox[{"Data", "[",
6 z2 \" ?1 f: n2 t% ~ RowBox[{"[",
9 y9 T% b3 L. r8 Y0 u: S6 J RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", q, V" V3 |$ b: D/ G
RowBox[{"x8", "->", : M4 I: y: b& t8 r; ~4 w: Y: b/ T
RowBox[{"Data", "[", , M2 P+ W3 [0 C/ i) c" x
RowBox[{"[",
6 @+ {6 p- c6 }0 A* r0 }/ i S RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
. k, @: ~$ B& H' O* z5 o# E. x9 w p RowBox[{"x9", "->", 5 F% w* H7 J) A. G G- V4 v5 N
RowBox[{"Data", "[", 5 ^1 r$ z6 Z9 u) H' g* e
RowBox[{"[", $ o3 |4 @! ~( Z1 n9 T
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", . c- X; V- t3 g8 p" R: Q* v% i; u
"\[IndentingNewLine]", " c. s% b" _2 ~' ?! b# E
RowBox[{$ r" d) N2 @6 h" t( o+ A
RowBox[{"m60n21", "[", ; k7 T' T# E1 V, f
RowBox[{"[", 3 U. u3 e3 u; S
RowBox[{"i", ",", "16"}], "]"}], "]"}], "=",
4 N% u& W4 }) I+ d1 C* A RowBox[{"u16", "/.",
' K, `& z# v5 w RowBox[{"{",
6 r: B3 G9 u+ J8 I7 n RowBox[{
h3 ]1 B! U; f RowBox[{"x1", "->", 8 V5 l( w" c8 l: P/ P
RowBox[{"Data", "[", . H9 E, K) u5 Y! q/ _ D
RowBox[{"[",
% a1 M X6 t7 y" A3 F% q' } RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 7 d' i+ b g5 R- b" }
RowBox[{"x2", "->", , }- h( [; t* H7 Z+ h* k" F
RowBox[{"Data", "[", - k1 v. ~2 H! g4 x
RowBox[{"[", * j+ t) L3 v0 A5 u
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", + u4 I0 Z1 B5 u8 n& I
RowBox[{"x3", "->", ; [/ }" E! H1 F2 I; A2 q# \8 x
RowBox[{"Data", "[", # {6 D) F0 V0 X' k3 t9 k4 |: P1 I
RowBox[{"[", " b& ^/ C" K5 W- R! L) a. Y, S3 @
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 7 A5 ~4 F8 P' s- g+ y
RowBox[{"x4", "->",
" l5 [2 N0 q, f3 o m; L4 R RowBox[{"Data", "[",
/ J/ O" M$ L# u RowBox[{"[", ' a/ ]% u6 a2 O
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", / S1 X4 K+ b% J5 ^; \$ q0 @
RowBox[{"x5", "->", 2 c8 O6 j7 D2 u
RowBox[{"Data", "[", ; g4 q* ]0 N$ }1 F/ X/ G
RowBox[{"[",
$ i7 a$ f: b; Y1 f8 m RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
6 k; A5 N9 L. K7 D: ? RowBox[{"x6", "->", 3 _6 l6 b8 d, ~0 p. ?8 y: S
RowBox[{"Data", "[",
( F }; F, A' j) I9 [2 t RowBox[{"[",
' _* A! Q& \. J% Y! [ RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 6 @: n3 r) C- C9 E' _
RowBox[{"x7", "->",
& S' q( D1 r a: j( a, n8 U' f& X RowBox[{"Data", "[",
3 T% S" U ~) _1 f/ x RowBox[{"[",
- C" W6 u+ f& `: c! U RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
; y4 v$ u( P8 R RowBox[{"x8", "->",
' W; F) }, ^, i RowBox[{"Data", "[", # e( a n* h% Z; f" s6 B
RowBox[{"[", / m+ \) Y; Q5 C
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ( J* |8 Q; l2 n7 E( V
RowBox[{"x9", "->",
: Y8 X$ O- S: e0 L1 b) R1 D RowBox[{"Data", "[", 5 b" C& \) c$ L
RowBox[{"[",
" K- q9 ?/ |8 L& S RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 6 }# c" X* h b. p
"\[IndentingNewLine]", / U) E& k8 W1 o. O+ \1 ~! e6 R
RowBox[{6 [4 A% ]( T: @- z0 b; D- @
RowBox[{"m60n21", "[",
9 w7 A" A6 D7 s$ p! D7 N RowBox[{"[",
7 p& X! {, J0 F, N+ d+ b ] RowBox[{"i", ",", "17"}], "]"}], "]"}], "=",
" K+ I3 y. Y; H- o' x* A+ J RowBox[{"u17", "/.",
: I) X5 d# r) ?% Y RowBox[{"{", 2 w- \% \$ C0 q: J
RowBox[{4 u+ K8 O. b- |* F+ j) R
RowBox[{"x1", "->",
# O. ^$ g" L9 t' O1 P/ _ RowBox[{"Data", "[", + ]1 K" N) ~" c' K3 \
RowBox[{"[", * p1 D/ Z9 s! X5 Y. c2 \% E
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
. K# p: L |# W( d& P RowBox[{"x2", "->",
* @3 m% X! e. v RowBox[{"Data", "[",
3 B1 T$ L! G9 u" M8 O: { RowBox[{"[", " ^! Y2 ]1 v& Z: k+ z# _, I) v+ A
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
2 o+ ^# b6 d5 r. \$ R, J RowBox[{"x3", "->",
: V4 Y, A- a, Z4 {, U* ^ RowBox[{"Data", "[", ; x4 X6 u% H5 I; J+ p
RowBox[{"[",
! [0 t2 e) Q, {% \( K0 e RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", , N3 {' p, I* `8 X3 H. T2 q! ?
RowBox[{"x4", "->",
0 D$ h/ C) `8 ] V4 j" ]. M RowBox[{"Data", "[",
) [ L9 S/ w& P8 K: m$ t RowBox[{"[",
9 C+ Q q* d5 e RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
- f2 C7 X8 e, n+ y H6 ?! z RowBox[{"x5", "->",
8 P9 s% w$ R5 s* S+ P7 A( ` RowBox[{"Data", "[",
k. {# j' k7 L. A' @) o RowBox[{"[", 2 D; C6 x# J$ ?8 J2 j0 W
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
4 M' i% ?$ p6 _1 @ RowBox[{"x6", "->",
; u0 R3 E- a* G o& }3 A RowBox[{"Data", "[",
* W8 P6 i" O+ j- ~! v% b/ d& J$ J RowBox[{"[", ' P) D1 r4 P2 \7 e9 t a; T0 o f
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
! A: t8 ^8 Y' ^ RowBox[{"x7", "->", ; [* \ x3 X. J9 ]) w) t
RowBox[{"Data", "[", ' I. g" C7 z' c0 n' n+ ^0 K
RowBox[{"[",
) \+ `2 f3 i6 K* l+ c! | RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", % M! J5 T7 V+ ?4 Z' N
RowBox[{"x8", "->",
2 z9 r& s/ a1 f& p/ G3 F% E$ y RowBox[{"Data", "[", 5 g5 w; A1 r6 J3 X1 ]
RowBox[{"[", ! i, G" l) Y, x
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", $ W8 D% `1 B& p
RowBox[{"x9", "->",
0 y, M4 E3 N! [! r+ o, F% \ RowBox[{"Data", "[",
; l3 ]+ j# q4 J0 t) Y RowBox[{"[",
& h% b! a+ _4 V3 y RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
, n- r% p7 j: t0 [) b0 A: Q. K( u "\[IndentingNewLine]", 3 q+ h/ K% w2 b3 i
RowBox[{
# Z+ g% C9 E) I' {! ]* d/ ~ RowBox[{"m60n21", "[",
% I, U) R& ? W3 Y2 Y& I4 Z RowBox[{"[", + k5 T( R" ~, g1 B9 H5 v3 `
RowBox[{"i", ",", "18"}], "]"}], "]"}], "=",
, E- e& a- ~8 R9 |* A RowBox[{"u18", "/.",
& Z/ @& W- S, y( V$ L& ^8 o RowBox[{"{",
9 \9 d3 t* K) L; O1 L. s& _ RowBox[{4 C. c2 r$ b; Q; v% ]6 T$ `) D& S
RowBox[{"x1", "->",
; ]1 Q$ o8 t2 d) ^, M) E) u RowBox[{"Data", "[",
2 c+ G; R' N) }* `( w4 H RowBox[{"[",
4 u! D; T8 I+ H- Z4 O RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
3 h: c. C( v% A+ p# N" v, O# _ RowBox[{"x2", "->",
7 j9 ^& I) d# p2 J) x- P1 \ F RowBox[{"Data", "[", * T* r% X9 c6 ^0 m5 u9 ?! _- {; y
RowBox[{"[", / }4 C7 B. t0 q9 q
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", + {) B/ n5 p) K( N3 n: x" T; O
RowBox[{"x3", "->",
& Y. s* `$ b2 ?- C! h RowBox[{"Data", "[",
8 c% k) G+ o }( F) w8 P& Z: [ RowBox[{"[", 8 a# d* x) r$ D8 D: {
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ; S; W* ^; P% c* o- R
RowBox[{"x4", "->", + ]: E8 c% T/ L" j- O1 r
RowBox[{"Data", "[",
: s* ?4 Q Z' n, g0 B/ \ RowBox[{"[",
3 U9 f/ S8 T# U- {# z8 M RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
3 n3 X1 c) K1 \, v. h1 A RowBox[{"x5", "->", ) Q5 f) c7 h. N6 H; `6 a
RowBox[{"Data", "[", 1 g! _; ^# J* w/ S( W- i* H
RowBox[{"[", c A; g9 e) e' j8 s% ^6 A
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 2 z, J& u) f4 J) ?
RowBox[{"x6", "->",
* H1 `# l2 e+ N7 I RowBox[{"Data", "[",
$ f- j: V' Q3 p4 e; H# I RowBox[{"[",
* l5 K9 G$ a4 v- g( J- ]2 l* D RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 3 l7 Z) R0 ?. P- R# H* J
RowBox[{"x7", "->", ; z$ Y$ f$ o! r4 J+ `! P
RowBox[{"Data", "[",
6 x/ \) T( d7 C. {$ T. g5 W RowBox[{"[",
+ Q6 l6 ^5 e0 G3 g* g. X RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", " {+ G& f/ k' r; e6 r
RowBox[{"x8", "->",
8 T& T8 k9 d m3 w RowBox[{"Data", "[", - [$ y( B2 g I1 p3 x, D
RowBox[{"[",
6 i4 l1 L! m' ~3 V/ [/ ` RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
9 d$ ?7 C, F! }9 u/ ~: `9 ^0 X, G RowBox[{"x9", "->", . R& i+ ^! a) o! O$ N6 G: i% r4 d7 M
RowBox[{"Data", "[",
4 ^$ {, y- \1 a1 Y: l RowBox[{"[",
8 C( z5 O+ D W. {0 T, i RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 0 |* V) F: z* j2 O
"\[IndentingNewLine]",
0 H2 @) B, [& c6 x RowBox[{' Z. d# f9 u. H: V( P
RowBox[{"m60n21", "[", 4 Q! R' _2 R9 S! ^1 u
RowBox[{"[",
; X$ _0 o3 J+ ]* z RowBox[{"i", ",", "19"}], "]"}], "]"}], "=",
$ D. ~/ S( j- a3 }. B" ` RowBox[{"u19", "/.",
6 v) |% ^7 _' E: y RowBox[{"{", 5 f$ T( u: L$ V- @
RowBox[{9 R8 W3 M9 N8 {
RowBox[{"x1", "->",
R9 ?% t$ `! U* F1 w' S RowBox[{"Data", "[", 2 k2 Y i% c6 Q3 s
RowBox[{"[",
. Y6 h& V$ T* H$ [0 k6 [( E RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 4 C) P/ ]. t' x% |' n% F* O8 ?
RowBox[{"x2", "->",
4 J* M5 T- ~3 w9 ]0 |4 O9 s0 F5 g5 j RowBox[{"Data", "[", j- p% F# `( j* f5 k( s
RowBox[{"[", 8 |% K/ r# q$ V1 q$ W6 c
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 5 n* x( }" V! i4 I1 f5 |7 L. T
RowBox[{"x3", "->",
. w+ k* R( t3 I/ l# `6 K. S RowBox[{"Data", "[",
! k8 I2 Z5 Q7 C RowBox[{"[", ' P, e+ x" y5 {/ E! _
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
+ C& d" d, e, m% |" p% e RowBox[{"x4", "->", & p/ w4 S, o7 h% }7 _
RowBox[{"Data", "[", 0 l! {# g A+ h. r, ]
RowBox[{"[",
- I- ~( @$ C' [' `( O: m! d RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
+ d: r0 f& f; ?9 V& B1 o RowBox[{"x5", "->", & D5 t4 z( B% t9 O/ u1 z) ^
RowBox[{"Data", "[", # [$ W+ J9 q- ? ^: t7 N0 n4 q
RowBox[{"[", 2 ~% N" s) c, A1 q4 S* O: ?8 w. ?
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", " ?& f- {7 G% d
RowBox[{"x6", "->", % e, L$ P4 C- S$ Z& O4 e* W8 _
RowBox[{"Data", "[",
5 Q# T3 w0 J6 l' e* ]0 r" R RowBox[{"[", / ^& F3 y: u" i2 ~) {" L+ A
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
4 w$ C Y$ m7 j4 n RowBox[{"x7", "->", , P$ W3 T9 p# L- p1 M3 g9 m2 ^& X
RowBox[{"Data", "[",
/ j; H) z: A# d/ M9 s9 ]* H RowBox[{"[", 1 J% b( c8 b$ y/ w+ e. I- e" D0 r
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", & [0 s4 B: n/ O: Q
RowBox[{"x8", "->",
: d6 t+ q( Q: o RowBox[{"Data", "[",
5 D% A+ u7 Y. k& E RowBox[{"[",
5 A# l( `6 l' F& d- Y" k RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
3 ^' R0 y5 L4 E8 P. X RowBox[{"x9", "->",
! J4 l& ]( ~$ d0 K5 H# d RowBox[{"Data", "[",
/ [: e6 n9 [* } RowBox[{"[",
: a9 O' T% |3 _- v* n$ M2 B6 K1 { RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
- L7 b+ Q$ q1 t "\[IndentingNewLine]",
. h+ x. e% z, N# s RowBox[{
' v, S( A/ B5 I9 V: r3 T RowBox[{"m60n21", "[", ) q- S9 P# z; B0 x: N
RowBox[{"[", 4 p0 s" O8 h* o+ Q: U
RowBox[{"i", ",", "20"}], "]"}], "]"}], "=",
' C" f, W& h" i8 ^) p/ r9 [. U$ s RowBox[{"u20", "/.", 0 g$ N/ f4 ?0 Y
RowBox[{"{", 4 b- D9 ^( l' Q* A# S6 G
RowBox[{
8 ?9 o3 f, F8 G RowBox[{"x1", "->", 5 C3 n! y0 B! ]. x1 j
RowBox[{"Data", "[",
1 C- r/ S n6 d0 n: V' ]+ K RowBox[{"[",
7 W0 `/ \5 V, ~' ]7 \5 B RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", % J: p$ c. l5 h; k. P% k! _
RowBox[{"x2", "->", 7 o! @! G1 y7 J" o- H
RowBox[{"Data", "[", 1 C$ ~3 _8 G- h$ K
RowBox[{"[",
. O6 B' K1 V; w$ ~ RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
# y) G H" `) y# h+ o RowBox[{"x3", "->", # T/ c ]& |/ S. j$ Z
RowBox[{"Data", "[", ' T* S: [+ n+ v0 g% \ B* a$ W; }
RowBox[{"[", ) j6 K5 e8 J- c
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ]" T/ }9 M8 H6 l$ f3 l
RowBox[{"x4", "->",
: S! W3 i- A% h( ~6 `( E+ y RowBox[{"Data", "[", Q7 V" e L0 H. c1 X9 Y; f
RowBox[{"[",
$ F' `" G' f' z8 o9 E/ I/ I RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
# u2 \1 W$ P6 b4 _2 }4 d( x RowBox[{"x5", "->",
& @- d$ D7 F0 j* k% ~ RowBox[{"Data", "[", % b @0 ?7 @2 f+ ?: o
RowBox[{"[",
# }& w5 ]6 O, Q! L3 q2 g RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", # [# K3 p k2 @
RowBox[{"x6", "->", 6 p3 W' u% U- _+ k" q, g5 M2 }9 D
RowBox[{"Data", "[", 8 J1 S' e9 {& S7 j7 e
RowBox[{"[",
1 b6 f; c) y: `* n# h2 m RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", , v. a3 `2 }& V& l4 x
RowBox[{"x7", "->",
. i0 N+ H# v5 Y RowBox[{"Data", "[", 6 O/ N4 N. @8 y' i! ?( a6 `* X
RowBox[{"[", ! V) V3 U0 z1 u+ L ?% m- C# t! f* y2 B
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", % b: D4 y3 V$ v3 e$ O
RowBox[{"x8", "->", : ^ W; v; Q9 ?
RowBox[{"Data", "[",
i# z9 X' B% N! z7 { RowBox[{"[", & E/ I2 Z5 Z' g" Y: {4 ] Y4 C9 W) Y1 A
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
: R. [" U+ v) W/ n' J: r4 ] RowBox[{"x9", "->", $ L( ~$ q5 O6 P5 j
RowBox[{"Data", "[", , p0 l9 O; V* }, d
RowBox[{"[",
& @9 Y( R6 K* o9 S3 s% h RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
% |1 r) B( g1 }& Y# p# Y1 j: p "\[IndentingNewLine]",
* D1 c( C5 L: G5 q RowBox[{
: _% k; b8 h/ s) o* C3 l! I2 J2 ? RowBox[{"m60n21", "[", a# L8 {2 Q. K+ T
RowBox[{"[",
* O5 W1 D% `! H# `* J% L9 W RowBox[{"i", ",", "21"}], "]"}], "]"}], "=",
5 X& ~' w+ U; f" v# s; P! [6 } RowBox[{"u21", "/.",
. f X% v2 B9 x4 r3 _$ V RowBox[{"{", * W1 [; U9 T( s8 K2 O
RowBox[{
- b8 Z. j& P$ V2 p& b4 R RowBox[{"x1", "->",
" y' R! F1 i; f+ b" p RowBox[{"Data", "[",
# q% f# y& m1 b6 ?+ Q% N RowBox[{"[", 8 G6 f# h& V. T6 v1 W: o$ R1 O
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
# B2 b+ z9 a: W, z( `- w/ T RowBox[{"x2", "->",
6 R! Y3 b! p) E2 U2 u7 U) A RowBox[{"Data", "[", : u) e: A, j7 ?' H+ T% U5 D1 I1 \
RowBox[{"[",
: g9 X* k; S' e! J/ D5 l1 U2 T RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
/ |6 I) k" H% b' f4 A RowBox[{"x3", "->",
* @( c1 ^* q1 ~" X5 J RowBox[{"Data", "[",
$ @0 w3 u+ L8 ]/ l" s RowBox[{"[",
) D" k7 i9 g7 H6 ~% s, U RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
6 L9 g# E+ F# t1 m RowBox[{"x4", "->", " c( [& W! U* u4 ]* X$ M
RowBox[{"Data", "[", % N4 _) ]9 J6 |5 z* H/ h
RowBox[{"[", 2 q1 [% D# z/ p2 o s( l8 W! W
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
6 s1 {5 d/ Y+ o( E# x" P0 o RowBox[{"x5", "->",
5 f- e e9 O- Y RowBox[{"Data", "[",
$ I2 j' D2 d/ ?) J RowBox[{"[", B5 S9 N' ~1 B) X
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 5 U1 _( k$ K( @7 E5 _3 f1 }$ M
RowBox[{"x6", "->", * Q2 o5 b, |- w1 x
RowBox[{"Data", "[", ' T2 B. S- P. X" X+ G7 G6 R
RowBox[{"[", " u9 f4 A2 j9 u5 N/ D
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 6 @. g! b6 x: A' w1 h
RowBox[{"x7", "->",
. C7 y! L2 Z8 x0 P1 l! o1 |. [ RowBox[{"Data", "[",
3 J8 H* h! I$ r# L; ~/ J RowBox[{"[", $ g- _. w* O, [1 ] q/ V; U; q$ J
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 2 [8 S7 P5 m# V! y
RowBox[{"x8", "->",
2 t3 l& u5 E* r. G+ F/ R- [ RowBox[{"Data", "[", / C5 D; n$ t/ \
RowBox[{"[", 1 o t) z8 y% C! v
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
' m8 }9 r' e2 B/ G5 c! F RowBox[{"x9", "->",
7 ?' U% m( A/ e RowBox[{"Data", "[",
; `7 r0 R( ^; i |) N; L- h RowBox[{"[", 2 L9 }9 ~3 s9 w% O
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}],
, Z& {- G7 a5 v, Y "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
+ d+ C" o( c' K. k% f+ } CellChangeTimes->{{3.5779241165*^9, 3.57792417728125*^9}, {4 |5 z) @# a+ N
3.57792428359375*^9, 3.577924585109375*^9}, {3.577958919491543*^9,
9 |1 {! e* q5 M: v* \ 3.5779589224867477`*^9}, {3.5779619825731473`*^9, 3.5779620676400957`*^9}}],
6 j6 ]( S1 B3 l' o- N' _. z9 [' Z0 A! N0 P
Cell[CellGroupData[{
2 `0 t a! F/ l5 x$ E" G' ?- `, f, l8 k. Y2 M4 z
Cell[BoxData[; S3 }. [! w# y2 L6 O- S
RowBox[{"w1a", "=", 4 ^, g1 }8 a" w( {' G3 \' ]
RowBox[{"LeastSquares", "[", , b6 [3 Y8 x/ `# M' Z4 Y; E/ w4 ?
RowBox[{"m60n21", ",", "y1a"}], "]"}]}]], "Input",) U' c7 I# D) r* D2 K8 [
CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {
) ?# F" A% }1 `' _0 N 3.577924662765625*^9, 3.57792466596875*^9}, {3.577962074644508*^9,
3 [5 G* e5 h6 c( o2 t2 ~8 O 3.5779620748317084`*^9}}],4 m" N% d, {3 F( m" t
! j4 p2 @8 `6 n& b( R* m# a* b% ~) mCell[BoxData[! Q5 D3 }3 X j- D+ X0 ^& |% S
RowBox[{"{", , y* K3 Q& a N1 O. c$ |' g
RowBox[{"0.32564305572552416`", ",", "0.500820838606441`", ",", - v8 S$ f$ z( N8 x$ V' a0 e
RowBox[{"-", "0.5945873894818967`"}], ",", 2 ~% K! E( p; G2 s8 s+ n
RowBox[{"-", "0.1999688587779198`"}], ",", "0.020180806675835994`", ",", 6 H2 L% P1 y% v7 L8 E! j
RowBox[{"-", "0.03345934908892623`"}], ",", "0.25282438852646905`", ",", # X- T& j" ?0 O% S3 k2 c I
RowBox[{"-", "0.17602467625404622`"}], ",", "0.3961180670900672`", ",",
( ~* @% q4 d4 w& C2 V, q3 o* j2 k "0.02759193650965952`", ",", 6 c) @4 O3 [ m% k+ y
RowBox[{"-", "0.320472847796449`"}], ",", - Z! q8 g9 [8 _2 D! p; }3 s
RowBox[{"-", "0.07581214474544527`"}], ",", "0.4812237524557292`", ",",
4 d! H. t& A, p" w' \8 h p) ? "0.7528674241482847`", ",", "0.6665374509702799`", ",", ( N- J* E J c3 w8 [7 E2 W
"0.22861495086373018`", ",", "0.13092706311748484`", ",",
- C( ~" m: a0 k6 g. W/ G+ x/ s "0.5252475961933538`", ",",
6 k% U. z( K% D1 }1 h$ o5 D* g' `, b# E RowBox[{"-", "0.10599338351843157`"}], ",", "0.6670272593678526`", ",",
+ D! j! T$ y# s0 j* A- X5 E, G6 T "0.23580523388620733`"}], "}"}]], "Output",5 U9 E& R* K2 p& k
CellChangeTimes->{3.577924621953125*^9, 3.5779246688125*^9, " N8 o8 f' S Q
3.5779575884583836`*^9, 3.577958952875601*^9, 3.5779620806661186`*^9,
" i' k2 I3 V% ~ 3.578012349875*^9}]
9 C8 `! i. P. @( V4 s}, Open ]],
& t; m. H* [3 B: I n' q$ y9 g( E! s, c# F7 u6 W; M& F
Cell[CellGroupData[{+ V0 C# g" v, [: c' K D
g5 e( Z1 H% ?6 q9 q- I/ I1 ^, m
Cell[BoxData[
+ f; U2 h/ F5 `) z2 J5 \+ n$ E# p' Q RowBox[{"y1", "=",
# H+ S. ~. ~% v- c6 u RowBox[{"w1a", ".", 6 t( p" k* e8 A4 E! P4 p' Z' j
RowBox[{"{",
- o7 y( B& j& ~" C RowBox[{
6 Z3 q- K/ I$ ~5 i% D "u1", ",", "u2", ",", "u3", ",", "u4", ",", "u5", ",", "u6", ",", "u7", . W8 x1 a. U9 B/ y2 M+ L
",", "u8", ",", "u9", ",", "u10", ",", "u11", ",", "u12", ",", "u13",
8 z5 f) ?! o# i }2 p* B ",", "u14", ",", "u15", ",", "u16", ",", "u17", ",", "u18", ",", "u19",
2 E' ?( e5 t0 E1 s, ^ i$ t ",", "u20", ",", "u21"}], "}"}]}]}]], "Input",6 {( P% Y0 B& B s" V1 E( L8 b
CellChangeTimes->{{3.57792471553125*^9, 3.577924755875*^9}, {! @* G% w" I% v! x% _9 X
3.577924897078125*^9, 3.57792491596875*^9}, {3.577962095642144*^9,
: ]8 n5 c$ I$ n i$ _ A! E 3.5779621231449924`*^9}}],
2 p# J$ c O7 N; n* R
% U" q& K+ H4 s" ? `. kCell[BoxData[; {* w: f% w' U1 t& ?
RowBox[{
* H: Q E3 }& R& G8 }, u0 i' `( X9 {, ~ RowBox[{"0.22861495086373018`", " ",
7 q( D$ M) |, s6 {5 e/ ?( ~, c SuperscriptBox["\[ExponentialE]",
9 X& a8 E! E+ p$ Z0 q RowBox[{"3.141592653589793`", " ",
* B% z# B1 G9 d' Q' a RowBox[{"(", 2 N; X3 M' ?* C* P) y
RowBox[{, b3 x! R/ ~; {. H$ d9 Z
RowBox[{"-", - P5 x, h) Y3 W0 c5 h
SuperscriptBox[+ A+ w! n3 t- P% h" s& x+ S
RowBox[{"(", . \0 T+ ~3 q6 B: Y+ y
RowBox[{
2 n4 S9 {0 |0 i RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", : v( ~; p" Q( J# R
SuperscriptBox[& d5 l/ B% f0 o3 C" m k
RowBox[{"(",
3 n$ t: I1 q6 K4 Z) x RowBox[{
% I8 e5 q' w, X RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
1 z8 X' e% x, A) w2 U) u SuperscriptBox[
+ d5 E2 h. Z% _! t% K! Z RowBox[{"(", 2 K1 H: x' e3 G5 V$ v; J: x
RowBox[{& w8 x- s+ M: `( s* ]: \
RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", ( c) E8 X {8 _- v5 p; Z& b
SuperscriptBox[7 r7 t; g! F/ q/ F
RowBox[{"(", 5 e! A. Y3 O- g* G0 i
RowBox[{
) u. j* i7 V2 V8 G! U RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
$ o3 k! I! {9 n P5 ]' T SuperscriptBox[' U d n# [) p T" k. v6 \9 D
RowBox[{"(",
3 t; {) o2 M$ g# D, P" c$ z7 Y, ? RowBox[{* X' w# h6 {, I6 I- w m
RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
( k# p7 b, k5 ~. p; [ r* e2 N SuperscriptBox[1 k, T2 O8 c" p( l7 a
RowBox[{"(", ' u9 e" i. }9 Q8 K, g
RowBox[{
1 J- f9 x9 z! c8 k/ u RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", 7 H! M9 a* N: T- ^3 @8 ^( t
SuperscriptBox[& ], T1 [4 o1 p9 `: j" T; _* Y
RowBox[{"(", $ |; T3 ~+ A* z! W6 g! F1 \! B( x6 v
RowBox[{
4 y) R( G4 a4 N4 O RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", 9 D: f! L' G6 k) v* S% [& v% a
SuperscriptBox[1 @1 M" j& H' A: s' l# \1 D
RowBox[{"(",
# x) i2 o: r- T2 G RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", , R: c& T+ Y5 ^) [7 @# n
SuperscriptBox[+ H7 ]* b# C9 k* K, a u$ }9 [
RowBox[{"(", 9 `7 w& L- P; c% h! U
RowBox[{) P$ p8 ^9 l0 n* E6 _9 }
RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
~9 h- R9 r. F8 R5 t: s RowBox[{"0.020180806675835994`", " ",
6 \! o2 V& h! f' i3 V" d SuperscriptBox["\[ExponentialE]",
' n# W; J/ l9 ~% W( I RowBox[{"3.141592653589793`", " ",
4 X8 w% S( k3 K. {: a, p RowBox[{"(",
3 y# I( S/ @9 f) w RowBox[{! u, p" }+ b, b* L6 C- i; l3 m+ Y
RowBox[{"-", & o9 b( s! A/ D% M' o
SuperscriptBox[$ Z o: p) |; `
RowBox[{"(",
$ K. |# u4 @; |; P* ?/ c# M RowBox[{
* D1 z6 P3 y) h' n RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 7 f& n0 ~' v4 r
SuperscriptBox[
& M0 m7 S. z% E% q1 G RowBox[{"(",
" n0 L8 l; Q k; |# |* w RowBox[{
, k8 g2 l# S: y& R5 I- ~# d8 F8 E+ l RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
+ P! W. k2 x+ c SuperscriptBox[/ k8 F4 L" v( q3 S# d8 m8 ~. c2 q
RowBox[{"(", , V: N" k" n* `5 c
RowBox[{
( u8 J- ^& U2 B6 e1 k: F RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
7 ?: l, k& p- \; y5 H; N; I SuperscriptBox[8 z$ D! |/ p$ `3 r* y+ J5 J6 Y( X& D
RowBox[{"(", ) K7 g2 I L; @/ M, A" T* G, d
RowBox[{7 m" c5 ]5 M$ L
RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-", / Q% I5 B; T6 {/ ~0 M4 l+ A# c, g
SuperscriptBox[
; [+ t: u, E0 b RowBox[{"(", " T7 g# h5 ~0 W9 F- N8 D3 f
RowBox[{* Z# s, z1 { g; G H. S/ z
RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", 3 p6 T* `2 a( b" B6 ^0 ~" u" {
SuperscriptBox[
6 j: M6 X5 _$ ? RowBox[{"(", % D: J, K' N$ k* ` O) r
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
! k8 Z% c: {" x SuperscriptBox[ D+ s; N5 S% k- e R* U# U
RowBox[{"(",
3 {: ?7 m d! R0 K% e RowBox[{) [; s6 i5 M8 O9 P
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
8 r3 G" `6 q8 Q6 {: J SuperscriptBox[5 f3 J$ ~* Y3 B9 p
RowBox[{"(",
3 t0 m( @/ m9 F$ Y; ` RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
+ y" [# w) F' a1 ] SuperscriptBox[
5 D/ L! u- k, v; `- z$ M2 [ RowBox[{"(", 2 J9 Y5 j) }/ F2 i% D2 z- x4 g' |
RowBox[{
2 g k2 K: \+ M" O/ G `7 u RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], , {7 Z2 L' J8 E& @8 n
"+", : k6 Q8 O1 @/ c' Z
RowBox[{"0.13092706311748484`", " ", 2 X. t, g- h* c( y9 |0 ^2 d q8 ^
SuperscriptBox["\[ExponentialE]", 5 }3 w' p; {# t8 f
RowBox[{"3.141592653589793`", " ", 9 ?( }7 Y4 o6 ~8 a3 L8 X
RowBox[{"(", " W1 b& L$ O6 T% E& k
RowBox[{
# Y8 [) F9 Q. g6 \$ ?6 R RowBox[{"-", ]0 S$ M3 U5 H. U
SuperscriptBox[
& `8 H1 {1 B, [ RowBox[{"(",
# C y v8 `4 c RowBox[{9 L0 w. G+ Z3 H+ B7 j) U
RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", 1 o$ D! I: q5 C" P* Q
SuperscriptBox[/ }9 c. `( u6 X$ j
RowBox[{"(", . V& L# Q- l) g3 L' h
RowBox[{0 O" J1 R/ y$ N- g/ X2 G
RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
0 F% r3 Q r% q6 s SuperscriptBox[
/ H" Z* o* T2 d; V+ \2 x. _ RowBox[{"(",
3 i- R5 q4 N4 m9 c* {+ n RowBox[{5 E/ m$ q. M% D3 U" [8 X
RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", 2 I; `! _" g' g! W5 x7 b
SuperscriptBox[
6 Z! ?1 n1 y4 W$ K RowBox[{"(",
! I2 J0 U7 H! z RowBox[{
/ ]* d& d/ r1 ], u9 l RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
, i D# E& }! b* Y! E SuperscriptBox[/ E% ] G5 e2 h" j: @ ?; K
RowBox[{"(", - N4 D' d, b4 ?& m+ v7 T) i% b# E+ J
RowBox[{
+ Q# s7 ?+ g9 D; a# w/ g2 w RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
$ u& p& C g' S8 ]; h. q) B) T8 ? SuperscriptBox[
/ p0 u# h4 ~: a- A RowBox[{"(", 0 a. G! m% o7 W7 k0 d1 J
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
$ X; S* o. T4 H( L L! h q# C SuperscriptBox[; }* R' x3 F; Y) z$ |6 g7 `
RowBox[{"(",
9 d9 z r3 t. Z1 \ W RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
* q6 C( L9 I. R SuperscriptBox[ l2 D" I7 F$ I1 _0 u
RowBox[{"(", ! o% L6 `7 ?* f2 j& t5 w7 o3 E" D
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
" h$ D2 [; n. P2 u SuperscriptBox[
0 x% x; A0 r" a8 ~3 d1 u0 x% m7 s6 y RowBox[{"(",
7 R0 [4 `/ G' ?+ ] RowBox[{
) ?+ J0 y6 c5 D8 W# P+ Q7 Z* r RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], / B; q% Z) t% Q& ]
"-", : C. v# t& i9 p) f" U
RowBox[{"0.03345934908892623`", " ", * B, A% E6 D/ B6 e
SuperscriptBox["\[ExponentialE]", 9 o6 Q, B6 @2 ?6 k
RowBox[{"3.141592653589793`", " ", & E+ O6 ?: f3 ]% `) {6 |
RowBox[{"(", 6 |: g& D. l3 ~8 ]; z7 R t% A5 }2 C
RowBox[{
" v6 v4 {: w! m. R RowBox[{"-", " A8 }1 V, k$ H2 K5 Y s6 p
SuperscriptBox[/ p( ^) r; I @
RowBox[{"(",
3 l. N9 w+ F8 F7 K0 ?/ ~5 j4 H; A7 Q RowBox[{
: E" z3 _) D1 b/ K2 c" ~+ n RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
1 T# n6 U6 g% V* O SuperscriptBox[1 c5 Z$ _5 x. G! k3 _: z- x( B
RowBox[{"(", + L3 s2 o, w5 L
RowBox[{# c" M6 i+ W4 j8 M' R
RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", + d4 r" e# g6 }0 h, i/ w5 P" }
SuperscriptBox[
/ ?6 [6 i" g- { RowBox[{"(", 8 V- p! A! w7 B, p0 C
RowBox[{& a1 R# M' u( Q
RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
7 N: F1 Z( F% K0 K1 e SuperscriptBox[; X% c6 B# k2 z2 W6 E4 G
RowBox[{"(", % D2 ], N2 \5 N. ?
RowBox[{8 X$ I% x7 G+ y. i6 q& l
RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
6 f" Z1 f j1 ?, {, W SuperscriptBox[
. p, i C# P4 g; R$ L6 {9 e. O i RowBox[{"(",
( x, f0 l9 Q! f2 R" m' j RowBox[{
; v( Y. _. N8 g( R6 ` RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-", 0 J, w n; J, R+ p1 R
SuperscriptBox[
. s3 }: x j% N% S3 O RowBox[{"(",
" b }+ Q! Q- u7 B6 B. Z ]) y RowBox[{" G0 F, ?" h% {/ T* f, d
RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", 1 V3 i9 }: l- e) L: @' O' W
SuperscriptBox[
0 }8 K4 W" T& d, H2 s. X" l( I RowBox[{"(",
- ]: \, M1 M4 n" P0 h2 F5 U RowBox[{
0 t V+ ~7 b/ z! b" b RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
8 }. X4 b n/ c' ~% |2 b/ t SuperscriptBox[0 G% p2 g8 U8 A+ O" }
RowBox[{"(",
N- F* L a8 o- w% B2 _+ ` RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", / ~0 I+ t5 M4 v& l, _$ r# h
SuperscriptBox[; c! M. f/ @" S. L/ G9 G
RowBox[{"(",
- q1 O/ F( K& ]7 ^( O9 J RowBox[{
4 [9 ~+ c1 v' t6 r+ y0 M5 H RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 2 b* [, k, I* I( T6 V
"+",
) j- r. ^7 b8 ?1 B RowBox[{"0.3961180670900672`", " ",
; A. J3 [2 f! N6 ]. i SuperscriptBox["\[ExponentialE]",
* ~+ g6 b$ V0 s/ y! i' x RowBox[{"3.141592653589793`", " ",
& O+ S* O, n% j4 F/ w% L! d: M RowBox[{"(", 6 k q) B0 c/ V7 H" l2 ]
RowBox[{
! v: D. z$ z3 R7 `" E RowBox[{"-", 8 t/ v. b5 O. j4 W
SuperscriptBox[
: g8 c+ C" A7 [/ y# B RowBox[{"(",
- g1 B* F: e: B* r RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
8 m: F# E* J p m SuperscriptBox[" \" i5 h; j: ^
RowBox[{"(",
, r! L& f% M+ `) D0 \7 d RowBox[{
7 {5 T( I; O) s RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", / D, e. h% u$ R3 ]# r* L! Q! y8 a
SuperscriptBox[( i4 b0 b0 p6 ?
RowBox[{"(", ) b) a# R, t5 c/ _; h o1 q. J- x; b
RowBox[{
d9 n+ b4 U) [3 V" H RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", # M4 j; R" T: X. U9 V
SuperscriptBox[4 E: H4 Y$ ]8 y- Q3 o! a( x8 [
RowBox[{"(", 3 [' g' @5 }* q
RowBox[{
g9 w' k; ^; X* @ RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-", ! @" u }4 t4 C2 C' }2 k: a
SuperscriptBox[* O4 N2 U2 Z( M
RowBox[{"(", ) A1 ^+ J$ V) D
RowBox[{" {, C# q1 F! r; o* k: b
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", * S! H& ] p. I% C5 I
SuperscriptBox[
$ r; B9 \& E/ Y6 e0 ? RowBox[{"(", 2 O9 ~* j) w$ b6 R
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
+ i- v7 [% I# a! H SuperscriptBox[
, Y! R6 I. z7 c$ Y0 j. J RowBox[{"(", 0 b' j c( R9 Q3 u# c5 q" T
RowBox[{ L' L* T1 h! M/ O7 x1 v- n
RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", 7 u' g1 L- {; M' w
SuperscriptBox[- k: I: y6 C) ~4 o' X% S
RowBox[{"(",
0 X9 Y* |; q$ ~0 W RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", * j/ S; }; o1 Y& t" k
SuperscriptBox[
6 R. Y5 x% n- c( _" C: Y9 w: X9 x( a RowBox[{"(", 4 F: A6 I0 g) J3 o
RowBox[{# l' ?( o: e/ D0 q- ?
RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 4 H1 f8 Z8 F, d( c! f
"-",
+ T B+ w6 {& p RowBox[{"0.1999688587779198`", " ", " p7 r. H* H- V8 v& |! @
SuperscriptBox["\[ExponentialE]",
7 P% U# |& X3 v RowBox[{"3.141592653589793`", " ",
& R$ v3 `6 Q. C RowBox[{"(",
# g* U3 J8 s- |3 p2 V# y C6 R RowBox[{4 Y6 ~5 d1 Z7 ]' \5 P- [8 K8 g4 M
RowBox[{"-", 3 o3 }3 {- u7 \
SuperscriptBox[: i+ y+ h+ ?* z" T, y6 ^
RowBox[{"(", 7 ~- M ^& d3 _0 j
RowBox[{( {# \& M8 g: i9 e2 u/ _7 Y
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", , h! g/ G/ j9 f7 q
SuperscriptBox[. ^* ~* G& O9 t/ V' f( d S4 ]
RowBox[{"(",
7 e' ]( N9 f% @9 ` RowBox[{, _2 J# C( P+ \/ y
RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
& G4 l) Z( k! r( Q' R6 `6 f# m SuperscriptBox[
+ l: Q- ^- q4 T2 k. I RowBox[{"(",
+ V* C f/ A. ?2 s% Y( A M) K RowBox[{
. t% D+ {$ `1 K- n* M RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
- ] J8 y- W4 }6 n) F6 G% w6 m SuperscriptBox[$ U3 m1 ~$ X8 A) L
RowBox[{"(", 3 ?9 V) g7 c4 z
RowBox[{
3 m( R0 j' U. Z4 e$ \7 t. U# ^5 P4 C RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", - T2 e8 C8 H; C; u( g
SuperscriptBox[- z9 U3 f1 L! x/ f& o) T
RowBox[{"(",
+ F4 L7 J4 e |! e1 x2 }( H: k RowBox[{
9 z( B( O3 }: _ RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
4 ^: W" C; C' s" w! P SuperscriptBox[6 c& i9 v6 t/ @& U' L6 Y+ Z
RowBox[{"(", ! I# P7 ^( ?5 b9 ?0 u* y+ v! y/ U3 k
RowBox[{
; Q$ ?# ]% Z2 ~5 S6 A RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", : p5 P9 d9 r- c6 }% X
SuperscriptBox[
& [+ q( D r0 i+ } RowBox[{"(",
! L1 j2 F; G9 h9 ? RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
& c2 y J0 B7 ?) G- P/ h A SuperscriptBox[: Q$ a. W, N) y! B" P1 V4 Q' r6 |& `
RowBox[{"(",
; x4 L1 d0 d3 S% C% [0 h- G RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
' U, [3 T; Q1 E" b* S% h/ \+ t SuperscriptBox[
4 i5 x5 B3 {$ P6 @( Q% W RowBox[{"(", * g9 e- m a5 p4 |# h6 J
RowBox[{
8 g$ F+ |0 X/ h0 P" r0 Z RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 9 l# C* t" S" Q
"+",
3 Q: h( {8 ]0 ] RowBox[{"0.23580523388620733`", " ",
! ?+ W; [8 B- X! N SuperscriptBox["\[ExponentialE]", 8 F7 a4 h" f9 b. U
RowBox[{"3.141592653589793`", " ",
, O& f& I# z0 D( D! Y7 z RowBox[{"(",
( y5 W+ Q7 k6 f# C- h6 {. J RowBox[{+ O" S% N, q. B3 X
RowBox[{"-", 3 g5 x+ z( [) y2 t
SuperscriptBox[7 f8 h( _. a* S7 j/ Y: G' W1 K& b, d
RowBox[{"(", # Z0 _* @6 S$ C1 I6 `8 |7 z
RowBox[{% Q4 L+ J/ X- I2 G% `# d8 y$ S6 B+ X) Y
RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
m6 h4 j+ w3 j( Y9 y1 @& I SuperscriptBox[9 y: |/ J+ A( F- B2 O( S
RowBox[{"(", ' W `) P) S) v5 J3 f. |1 i z
RowBox[{
7 \2 ^3 m0 R1 s5 f2 i- ]* M RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", $ T2 c: b+ Z% d) D9 u8 M
SuperscriptBox[: D' h5 p! d% o9 c3 T) S
RowBox[{"(",
( k; c# J5 l5 O: u8 f RowBox[{
: W3 S& E2 R1 {! Z( G0 i RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
0 ^0 B5 c' [+ F" B9 ?2 h8 k) `- n SuperscriptBox[
9 W* ~& H& w# y1 b+ q& ~ RowBox[{"(",
4 i5 z: W) P9 N2 I6 V9 \3 R RowBox[{
7 v3 \. R1 B1 s; q RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", " ]0 M) v$ M+ I7 G7 i
SuperscriptBox[# @9 _. w/ \0 P1 U7 a
RowBox[{"(",
6 w- U% e# G! q, d2 p# K RowBox[{& f) |5 l9 _' G) e1 \4 v
RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
7 @+ X- Q i0 ^ SuperscriptBox[
! r* B3 y7 p! m5 h RowBox[{"(",
& {( \5 d# J8 f ^# _0 b! b RowBox[{
! k% s7 P( t" J RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
8 d* A8 L$ B T* p6 { SuperscriptBox[
. M$ q# E* X8 g6 ~% a RowBox[{"(",
0 J1 i( w3 n, g4 [ RowBox[{8 D, U' b. }# J( w1 P4 a/ ~; U
RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
2 R4 z! V e+ T* `' K' u1 R SuperscriptBox[
9 V1 Z: `0 A7 K9 A' E& r+ u RowBox[{"(",
4 b2 G6 R9 P5 \! w" F RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
3 F9 j+ r1 Y8 H' D8 Z" h# V2 c SuperscriptBox[7 K1 w; t( @& @
RowBox[{"(", ! ]9 T* H# G1 j; `* z5 f; M
RowBox[{
5 j. E4 C0 N6 k1 i) i" i3 ^+ ]5 P RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 7 g6 I# {7 p( q! A, k9 ^( p
"+", & M6 O0 H4 h6 Z0 ]9 Y! M
RowBox[{"0.6670272593678526`", " ", + ~4 v; b4 D; t9 I% A" d9 X% i
SuperscriptBox["\[ExponentialE]", # A W, p% I) P, G S0 ^8 ]- r
RowBox[{"3.141592653589793`", " ", 4 N ~, ^- Y6 Z$ a6 x
RowBox[{"(",
$ m' b/ N; W& T0 }/ k7 p, p RowBox[{% |9 A7 B/ J( ~* ~6 j# }
RowBox[{"-",
H7 V, @7 p' z0 U# l/ G SuperscriptBox[# ^' x! }& {. A! G1 {
RowBox[{"(", " v e6 d. Y& A% }/ j% w1 c) r
RowBox[{
" }0 w5 h6 j6 w% k# a) t/ B* a RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
4 N, R% B# Z3 W" K# y5 H% w1 ^ SuperscriptBox[5 Y- h$ ^' w, h) U* w
RowBox[{"(", : I3 H% v3 W* m# k5 h* F
RowBox[{
$ x1 z' j+ n. t/ B' K" A: X RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
( W5 G( u; z8 y5 |! s \ SuperscriptBox[" b( R) z9 f+ N8 r; Y
RowBox[{"(", ) H4 q6 T: k0 X* X
RowBox[{; I- U: K3 q9 K D5 h
RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
0 @1 q/ x9 O' I0 I0 G; \/ o SuperscriptBox[
& B! Z: b; X$ s4 n RowBox[{"(", 8 O8 |* \. q- `1 z; J5 R9 P
RowBox[{
* |" K2 h. K! g% t RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
0 Z) P- h1 t, K( g, { SuperscriptBox[0 U u; [. m8 e3 ^# E
RowBox[{"(",
: h' s/ s; {% w) B+ O+ J' k- s( \7 A RowBox[{" n6 Z$ {- G3 z$ `& I" Z
RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
; @0 Z( d9 R' k* w, A SuperscriptBox[
. B+ w" {9 E3 R0 \ RowBox[{"(", ; X+ d( o& I' V& }
RowBox[{
+ a( Z. \+ I8 S9 M RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
' F; `( k2 w- {0 |8 N$ ^ SuperscriptBox[9 C3 N. }% q3 Q
RowBox[{"(", ( H) @7 g8 D0 J! {
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ; w) |1 M& Q3 |' I- B
SuperscriptBox[
" ~% s. q4 W2 `; l; j1 e: _- Z RowBox[{"(", & P& T! v% P1 O3 F |2 D9 ^7 I8 `6 ?" d
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 2 x. u3 @; Y* c
SuperscriptBox[
6 T$ l. \" a3 H1 w5 S RowBox[{"(", 5 h# Q5 F2 ?1 {1 G) L
RowBox[{
3 h0 c5 I( _9 S5 B9 [ RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 0 E- h7 c; a) f# h- L
"+",
, p4 _. w, q$ G0 g$ g RowBox[{"0.25282438852646905`", " ",
7 w+ b1 Z# R% F+ o. v9 Q% _3 Q7 n3 o SuperscriptBox["\[ExponentialE]",
+ V9 I% d; k! x' j# [5 _. E2 ` RowBox[{"3.141592653589793`", " ", 1 ]0 ]4 G: ~* e* V N8 w! d1 {
RowBox[{"(",
* ^. X: ~& K9 P$ ?1 J& ? RowBox[{; C0 ^8 F+ [. K6 P3 G
RowBox[{"-", ) ~: J; W6 O4 X* v, I
SuperscriptBox[
( y8 j8 ?8 C# P' H RowBox[{"(", & G, r3 q6 l6 b5 t' T$ f1 m, b4 u2 C
RowBox[{6 q. }0 B% G* U7 g6 B
RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
' p+ y0 @3 n. d, |3 x SuperscriptBox[4 C; }6 W! [) ]9 q* e
RowBox[{"(",
% b4 z% w; ]2 J# N7 h RowBox[{
' L* Y {( K6 J+ } RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
. A+ C) |8 F; _ SuperscriptBox[
1 {# P) ~! T! C* L& b RowBox[{"(",
3 g2 O0 p3 c. L# p% y. c, {2 M RowBox[{
$ p- a) t, X3 E" [1 n7 l RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", ( c4 j6 ~% I7 ^) _3 p
SuperscriptBox[% c' o: N: A1 p6 N! |2 P
RowBox[{"(", % d+ }' F9 [# E2 C, V: W
RowBox[{' @; d6 Q8 p. L! a0 r6 z
RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
7 J& }7 ^% I( G/ Y) n# S) P% { SuperscriptBox[) j* T$ N+ A% q" ?
RowBox[{"(", ( b$ @* ^$ ~) r
RowBox[{
6 p1 @( V% N' r+ s4 {# c, r RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-", # _" X" X) F) c% t8 B3 R
SuperscriptBox[
& u. W" ]. E4 ^# ^/ e0 z4 t3 w RowBox[{"(", * w! D0 t' r6 `! Q
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 3 H0 r8 c- T2 } q& ?1 G
SuperscriptBox[
$ w6 Y9 G7 b9 c& Z' ? RowBox[{"(", D2 P6 S7 [+ D7 [$ i' _. B) n9 i
RowBox[{
! m/ m$ i5 n' \. E" S: f; z RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
! Z R( R- r. G" e8 Y: A, ~) h$ M SuperscriptBox[
/ x f" t3 {' P/ ] RowBox[{"(",
% V# @( y1 Y5 ^$ z# S! R% z/ Q9 P RowBox[{% X( v6 M* B* S& O4 R
RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", 2 g; L1 a( p$ C: y
SuperscriptBox[0 C$ Q# f+ p8 F8 P
RowBox[{"(",
/ N0 Y2 n) f4 |5 F- F RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
/ `! ^1 R- D1 |- C/ C" C ")"}]}]]}], "-", * x) V* J1 |- g. E# Z/ g
RowBox[{"0.07581214474544527`", " ",
4 R2 h, L7 |! ~* d/ b7 V' O SuperscriptBox["\[ExponentialE]", : T& Z7 @" P3 L
RowBox[{"3.141592653589793`", " ",
( T; g3 F9 Y4 f+ m& A. L RowBox[{"(",
7 r. J- q6 u* l9 h- [ RowBox[{ I [! V% D; N, X5 `3 P/ F) a
RowBox[{"-",
$ M$ B. }" u* C) Q SuperscriptBox[
$ v2 Y% u j$ \1 ~0 I RowBox[{"(",
, k3 T7 P: c3 Z2 T, C RowBox[{
* j; S: A8 P8 V( ^ RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
2 V& i7 N. Q, E% L+ u3 Y* a SuperscriptBox[
4 b# A x/ O- X' @, F' e0 X4 N RowBox[{"(",
% z, ~4 r' G. z! P: a1 R' R4 U RowBox[{
X% S2 b& w+ U6 ^ RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
/ r2 P5 i+ s- d9 e4 t SuperscriptBox[: R# B' Q4 I8 m6 S" `8 D' ?
RowBox[{"(", 9 ^# K: O# T" }4 F# f" J
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
( |7 v/ y5 B# K8 W' Q SuperscriptBox[
9 L8 Y. ~8 |% f, Y9 r. w& W RowBox[{"(", ; o" H: ~% u! ^ R% t
RowBox[{
4 H7 R3 K [ z0 u RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
- B j0 q1 w0 J# Q SuperscriptBox[
p& P% K' S( V" X" D: o. E RowBox[{"(",
( m h* l0 A0 n; j6 a" h3 ?% P RowBox[{
. G, _0 u8 D" H* W/ m& p* P6 s RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
' ?$ w M( U* D SuperscriptBox[
; W, U) k/ c2 {* j. Q, {% K RowBox[{"(", j3 Q4 X8 t3 y, w0 i1 ?8 {& D3 U
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
; ]3 N* p2 m5 b4 U) g& f1 _0 T f SuperscriptBox[/ C& R) _ J4 m/ c: l) V
RowBox[{"(",
0 B1 D( D, a# e RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 4 ~" `* W* T( S
SuperscriptBox[
0 Y) Y7 e* Y; |% ]8 y4 @$ [ RowBox[{"(", . ` l% t* T$ @7 f
RowBox[{
) T& N7 M. v; v9 z+ Y, K- R: r RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
3 Q+ Q' r- c E+ ]* D5 S SuperscriptBox[
7 ~% W% _8 p2 ?5 m) K9 w5 b RowBox[{"(",
) o3 x7 E- U3 ^0 P RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], . Q8 V( |: _: P: q& e
")"}]}]]}], "-",
9 E0 ~. H& I- q/ L- V3 s$ c. h RowBox[{"0.10599338351843157`", " ",
8 Y; p7 U, m( _. O3 j: S+ t3 n SuperscriptBox["\[ExponentialE]", 6 _7 p' }9 d+ q2 C- @: j7 i- _+ X
RowBox[{"3.141592653589793`", " ",
2 M/ G" |; H) e) \ a! {8 { RowBox[{"(",
& O) Y& m# G1 [6 ?$ h; C& ` RowBox[{5 p: d# L; I; i- u
RowBox[{"-", % K7 W5 Z6 S5 E1 d0 w. [5 D& m
SuperscriptBox[
~; \" s" Y8 V9 z& Q: i+ b RowBox[{"(", $ t% D: I) `$ t% E
RowBox[{- q% g( q! E# K# [* M; ^
RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", 9 h/ O( e/ l/ F) K8 K
SuperscriptBox[* l' K6 Q# t5 t0 k3 p8 t Y/ V
RowBox[{"(",
1 s, [2 h% t1 b/ | R h RowBox[{" @2 |5 r e) {( y
RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", / S$ |0 ]# M3 n) C) q& {- B; B
SuperscriptBox[$ I# a6 J' L* J
RowBox[{"(", * r$ K* S5 y4 {: X5 ]4 @
RowBox[{
@) z7 S$ k6 m- x( R RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", + y! N: x, Y; @" H Q0 A
SuperscriptBox[9 J2 q8 M! Z; {( |5 i- C" D8 [6 l
RowBox[{"(",
- _$ \0 z J. C0 d RowBox[{; n% E L+ i# v ], P4 X( @
RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-", : p3 s2 U* P: v+ A! B
SuperscriptBox[
! j# b+ r% ]$ \7 G/ Y$ M5 R" _" Z RowBox[{"(",
0 E8 U4 [# T+ v r. r: y2 d RowBox[{
2 n7 d7 M$ G; V$ t RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
v: R6 v$ }! F4 w9 d SuperscriptBox[
2 k$ @ H+ C$ o( M- j# J: a. `) N: [ RowBox[{"(",
6 S+ ?( y$ X0 Z) l' E4 { RowBox[{" q1 L1 P+ M: J% f
RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", 3 O l2 l0 C q( w0 W \& R
SuperscriptBox[0 y6 S, [, F& Y" l* @
RowBox[{"(", 7 i2 w3 L" {! j# g7 A
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", R4 t6 j1 H* u0 P5 n9 x: Y
SuperscriptBox[
0 a2 S1 |, j* |4 B' C4 F$ S RowBox[{"(",
* A, \. j# X2 M2 Q- M1 q/ N RowBox[{8 }9 x6 r) F% B. m. |8 n
RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", ) w- S5 k: u- P, p. h
SuperscriptBox[
# \( q4 {; _1 h N( V RowBox[{"(", - h7 U! m5 B! V
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
5 F) B# W, m: F4 [ ")"}]}]]}], "+", 5 `+ z3 y- n f
RowBox[{"0.500820838606441`", " ",
* L" l/ `, Z C$ z* H) y: \) ~ SuperscriptBox["\[ExponentialE]",
8 F: N1 U: h9 q1 V; N RowBox[{"3.141592653589793`", " ",
2 t* n6 I5 h6 R8 M# v2 L* M, _7 Z RowBox[{"(",
) E {# n( l3 u0 ~, _ RowBox[{
6 W N( }4 P9 \, L' Y RowBox[{"-",
" f. H. A o! @0 B7 L) n% K SuperscriptBox[+ Z" M: L* c: h- {
RowBox[{"(", - O& l% p; N9 D, O/ t
RowBox[{8 O3 f' @) n9 i. M7 `8 M
RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
! Z1 j2 Q% r. S0 @, f/ ~% B* P SuperscriptBox[
; J# h$ ?9 s8 L+ V; y! X RowBox[{"(",
: k& o" f% u+ J2 h RowBox[{' I D3 U& U4 E- n, G4 S5 {% V
RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-", & ^2 M/ {: p! {2 ^
SuperscriptBox[
4 r; t* t* H7 r' _0 w5 W9 R$ Z8 L5 r RowBox[{"(",
" ]( p6 g# ?/ N, i" b8 v1 o1 I RowBox[{
- {( m$ i( z+ W5 b4 Q# o RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", : N4 _, Q. h' @! }# X9 J0 K; r
SuperscriptBox[
m' i+ ~ n( R RowBox[{"(", ; i2 v3 |# E1 f# i- o
RowBox[{
! o5 Q- j* }8 @3 h2 [ RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-", 6 C# a* w8 ]5 X
SuperscriptBox[& U4 P0 m9 g2 |, c* q( J: Y0 p
RowBox[{"(",
! j- Q" `3 b) n; k# B RowBox[{
, q/ }2 k% x. y% i$ {% l. z RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", , v& H! H9 ? I: i- x
SuperscriptBox[9 g4 v0 ]2 K4 A: _; [7 E5 s
RowBox[{"(",
u/ i5 L' G' a$ D3 q RowBox[{6 M8 ~# s9 D5 E) e- `, [
RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
5 m4 x$ R. F* L1 {/ G0 E& U SuperscriptBox[
* Q; _2 S# D: o2 y0 ]. j RowBox[{"(",
. x2 v" K: O2 l RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
$ c) G5 P. G8 B5 I$ r1 N SuperscriptBox[
7 ]0 r% P0 a# C! v) k2 z RowBox[{"(", ' t; r0 {* C* }8 H0 T c$ ^
RowBox[{" b: E- \: O& G5 B2 x
RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
1 w, i& z4 `3 M* h9 X SuperscriptBox[' G3 ^2 ^& | R4 p
RowBox[{"(",
. X0 p A3 j" q* n3 g7 g RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
: j4 m% ~( M1 `" G' x2 A- s% @ ")"}]}]]}], "+", ( z0 N8 g h4 G: L; C
RowBox[{"0.32564305572552416`", " ", & v$ m, ~: K% ]: Q2 s1 m+ B1 `
SuperscriptBox["\[ExponentialE]",
n O8 x9 R Q4 u0 |2 L RowBox[{"3.141592653589793`", " ",
1 i6 |2 R/ }# x! } ^; X RowBox[{"(",
2 v, h; q1 r: s6 Q% c3 ?$ { RowBox[{
7 b+ F; b2 Z8 W! Z: a RowBox[{"-", 0 @0 @7 `3 i2 Y! K1 r
SuperscriptBox[
, K1 `/ |$ i3 d* }. \+ c( O RowBox[{"(", # v+ g$ z( Y( m+ f9 h
RowBox[{
1 f5 M; e8 E: v0 I) I) s9 I RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
/ n+ c7 y0 l# v6 f7 d. [8 g( \ SuperscriptBox[
2 r4 [$ K2 c: h. n8 r4 ]! [ c5 Y+ f RowBox[{"(",
; G2 J5 S8 I! X @' w0 k) ] RowBox[{! [/ ^; H* \# S4 U7 l5 F W, F5 \4 \
RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", & C, N Q/ d2 K+ C9 s, V' W& T1 S
SuperscriptBox[* v0 }, H) A3 v( G* ~+ `
RowBox[{"(", ) W9 r, k8 B p0 w, @
RowBox[{6 B6 v; g, `- ^$ j
RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", ) c Y& h) e, ]- H* c
SuperscriptBox[
" }3 u$ E% v Y% x) e& Q8 a9 v4 C RowBox[{"(", 0 r/ x6 M* y# }
RowBox[{* O2 B3 G% o& t4 z) Q
RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", 8 ~$ o& U3 m. r$ w
SuperscriptBox[
9 @2 `! \1 u) W; ]; Y- t$ W7 g RowBox[{"(", . m: d8 q/ L/ ^7 l9 `( h( M/ u
RowBox[{0 {, |( ^1 o3 M) t; A* W4 v
RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
! D o. ~, D1 s0 i3 ~' L* ] SuperscriptBox[
$ A8 D% q$ N3 L% [1 r1 W RowBox[{"(",
0 ?. {$ c# c* p, H RowBox[{; [+ X4 J, d+ `4 e
RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", 9 U/ c- [+ u8 P0 F( J
SuperscriptBox[
7 o+ E! n/ U4 ]% g# P' D0 Z% @4 f RowBox[{"(",
, R/ s+ g- N6 R, d6 d. W% _3 O RowBox[{
. g. m4 \: i" ]- t4 m. }0 E RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
7 ~; _4 k; f' M. I7 ]* R: m) M SuperscriptBox[9 K8 M9 h: P5 a/ ]/ E F& e
RowBox[{"(", ) U' C0 p( Q% G) ^
RowBox[{" m- m: H- Q7 c) I! F+ v. a6 o! {
RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
1 k6 |) t" g/ d) s. }* j SuperscriptBox[( A* @. {3 m9 ? m
RowBox[{"(",
; u% n M0 F: k6 d6 O+ } RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
3 `- k& a$ N2 A G0 [+ w ")"}]}]]}], "+",
- j5 O) Y6 ]( Y/ ?! B. H7 F RowBox[{"0.6665374509702799`", " ", 8 u9 H1 q, {# G6 y
SuperscriptBox["\[ExponentialE]", ' T) b N& E4 J3 g( i b: B
RowBox[{"3.141592653589793`", " ",
4 I8 b8 u: r& @7 x' H0 r8 \ RowBox[{"(", : _- W8 v) Z9 ?, n5 m r o2 i
RowBox[{
2 ]' Z0 B4 A& C RowBox[{"-", ; H, E9 X" [8 {/ c% W! f
SuperscriptBox[6 e( K8 F$ z% Y' r' `4 X5 |! P
RowBox[{"(",
# E( w4 e F `+ d6 u; b RowBox[{
6 ]: Q: t1 [; `; A$ g' y RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
: X7 m7 g) x: H" W' _3 v3 {& ` SuperscriptBox[
# a$ Y6 P' s2 U8 E) J% w RowBox[{"(",
! b& ^) p# b9 J9 i; E i RowBox[{
1 F6 m |$ m z) l! | RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
0 a+ r5 Z6 ~ c, v* T SuperscriptBox[) U8 f+ k4 r0 n7 y
RowBox[{"(",
/ W( Q* n* L( M$ d' h RowBox[{+ k& H' y: n( a U
RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", ! f, y0 F& _, l4 }8 q/ {
SuperscriptBox[; M' g, T# H" Z/ J1 ]5 y
RowBox[{"(",
2 B2 k" K+ J, Q) R6 h RowBox[{
+ U" j1 k, {2 ~0 e0 y: w RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
/ g) i1 J) @- ~ SuperscriptBox[! x& Z% }' g% [! I
RowBox[{"(",
# b {9 i( m( _9 b RowBox[{$ e$ Q- z; S% _7 ?
RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
" j- d1 q3 S( H5 n, k SuperscriptBox[
0 X$ O4 x9 s9 a2 X0 Q: O5 b RowBox[{"(", 6 k% X; Z( v# A! O: U
RowBox[{2 F% z; R3 D7 k6 h0 l
RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
" d# J0 I: l) k SuperscriptBox[
& V3 n v0 l6 M& t( u7 G, }/ V RowBox[{"(",
( b' ?6 I2 M |$ o- C { RowBox[{
" W& E, H0 i, }7 P8 j, x0 z RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
- K. H; S& x: q% S3 |. v& {& @# w SuperscriptBox[2 ?; m; @8 U: \6 G% k
RowBox[{"(",
2 j% g" L# }" o' u2 ` RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
" M% D; n9 A' q+ }/ ^6 g/ V SuperscriptBox[$ o3 U" i5 w: h, n5 s, Q
RowBox[{"(",
9 P% X, C% d' L; i( ` RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 5 W3 F! n4 @% O; I
")"}]}]]}], "+", * R, y! R0 `+ ?: C& @( u9 x
RowBox[{"0.4812237524557292`", " ", 9 `' `9 o i& N1 n
SuperscriptBox["\[ExponentialE]", : N8 I G1 z9 g* O& ~
RowBox[{"3.141592653589793`", " ", / S1 z. \( I$ w6 h
RowBox[{"(",
) U5 @, b$ H+ S4 e6 V2 w9 }2 M+ Z! x RowBox[{7 G! [3 ~3 D4 N# D& @2 ]
RowBox[{"-",
0 c4 G5 u) C2 s& o1 R4 X3 r SuperscriptBox[
/ x. @6 W6 \( I! C% P2 O& X RowBox[{"(", + l5 B. D1 R) v0 x
RowBox[{, M+ H! E8 S9 j' \# r
RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
! v4 h- P6 ~$ \" l SuperscriptBox[1 a* `5 b2 x/ D& b
RowBox[{"(", ( u2 C; W0 ]8 h, \9 a
RowBox[{
) }- k1 r( X1 c RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
3 |/ G D" I' O$ g7 J i SuperscriptBox[
( j0 i- x! @* r0 b( G1 U2 u RowBox[{"(", ( w* {, w2 T ^3 S: B
RowBox[{! t& G4 y- P& |, z) G
RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
6 t( \0 N) R, R4 X5 y6 J SuperscriptBox[
3 {- ?+ ?. \/ d, ^7 Q8 n RowBox[{"(", + m1 H* K6 G- y. r
RowBox[{& _7 ]! I; h" T2 q" L9 n, ?
RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
5 V5 ?; R5 r L* v: W `( j1 n SuperscriptBox[; _* x* a* @1 Z! \8 H7 f+ E8 N
RowBox[{"(",
+ S+ o) \1 T- `# P) o+ k RowBox[{
7 n( K0 u" _. `3 I, O; D RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
) e% k$ l* d g2 G; `* A, n* I/ R; @ SuperscriptBox[8 k1 _: w2 S9 A; [5 r4 `# i! b
RowBox[{"(",
/ f. W2 Y1 z. _6 l- }/ W3 K, W# y8 x RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
8 D: A0 C. h) H- h# f, _ SuperscriptBox[0 W; ]* J) b$ k# E; L# q, e
RowBox[{"(",
# N7 r1 _8 q) i' X0 w3 g0 q RowBox[{
6 Z5 C7 `" T( y: l9 x2 j RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
0 j% x* L% x6 i% Z: S3 z SuperscriptBox[
~7 R0 l5 N+ y0 @ RowBox[{"(",
4 b+ G5 }$ }, W/ g0 B- K9 W* k RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", / Y# N, d- [8 R* P) z
SuperscriptBox[
( W5 b. ^; V3 q1 S# C2 O RowBox[{"(",
! `; F0 ]9 C$ _ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], * K* g4 B! F; C5 {/ q' h
")"}]}]]}], "-",
1 R4 a2 U. G6 c3 J! u2 Q- B RowBox[{"0.17602467625404622`", " ", 6 \; `: F& W. n
SuperscriptBox["\[ExponentialE]",
5 n# D7 V" `( z# _7 G0 p RowBox[{"3.141592653589793`", " ",
( H- P4 D: X# h! \3 s1 | RowBox[{"(", : x" ], Z4 G0 C: b8 `, b
RowBox[{5 b+ k3 b2 |1 d8 b
RowBox[{"-", 0 G Z' o. X( o1 r4 U& L( x4 b
SuperscriptBox[, W0 m' C1 [4 [2 Y! e5 _% n
RowBox[{"(", 3 o5 I: L8 ?6 U5 }" L6 V! G' s; @
RowBox[{6 E* B$ T6 H. e( W8 c$ g' G
RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", & _: [- F4 X8 s, z
SuperscriptBox[5 A: y7 O7 c# [- O; M. \/ X
RowBox[{"(",
9 b @+ Q5 ^# p& z RowBox[{( w) Q) n4 R2 W/ ]) q( {7 q
RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", 4 z/ C6 M4 s4 {3 u# I9 X& f* H" C
SuperscriptBox[: n1 a( R4 V8 H
RowBox[{"(",
7 \4 F' k6 z, w RowBox[{: W& H- I- \, p' `5 j {
RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", 7 o1 t* b# Q- Q- }4 ]* V! ^
SuperscriptBox[6 v& G' n: a) E4 I
RowBox[{"(", 4 }) ^6 y r" G3 h5 r
RowBox[{' O$ d' v, F7 K5 Y- V
RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
- l* l: D) R$ C3 E8 O SuperscriptBox[- e0 Q( W3 O+ \' z. t0 B$ c: E$ X& \
RowBox[{"(",
! L2 Y, D. G9 C0 S+ ^; N" R) L! i RowBox[{
' t" D1 U; E2 Z3 @& |) K- e RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
6 s6 N+ U/ l" `+ n% ~ SuperscriptBox[2 B9 C. `, ~9 B
RowBox[{"(", + ^$ q& E) S7 O( x, @# W& M
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 5 V% i" _. s) {+ |- Q
SuperscriptBox[
* y/ U) a$ P7 J" l RowBox[{"(", $ C2 ~1 F* I B8 b6 M9 Y2 C
RowBox[{7 `9 n' K; p3 \+ ]9 n) L: ^
RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
; D" Y# |3 [5 d3 W4 h, P, w, s SuperscriptBox[
) p5 D! @: l% F1 A RowBox[{"(", 0 r! `$ K2 {1 l2 ]& @& x% H
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", & U+ g1 F' |" r# \8 v" M
SuperscriptBox[
+ @7 F. [) h* i+ |1 X RowBox[{"(", 2 @! D3 D D4 Q* x
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], " n, [+ ^5 H, ^8 w- g
")"}]}]]}], "-", 4 y0 X( g4 S9 [4 ?$ T$ V
RowBox[{"0.5945873894818967`", " ",
2 s6 Y( d. |: p) ~5 G SuperscriptBox["\[ExponentialE]", $ u1 y; s& A6 ~
RowBox[{"3.141592653589793`", " ", 5 H, ] ?- w' U' Y
RowBox[{"(", 3 z+ q8 R; A" K2 c' P
RowBox[{
" H0 V/ u" ]" z2 W: x9 p" X! u, |! u1 l RowBox[{"-",
( b6 @1 o% Y( Q/ Q9 t: }7 V SuperscriptBox[" W) w: H0 p2 F B2 ~
RowBox[{"(", 8 ]- ?$ B# q& m, k. Y* ]8 J
RowBox[{! w4 v+ P, l4 @5 t
RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", / q! U; k- `8 n4 m! L; P& J
SuperscriptBox[; Q4 f# u) |/ b1 g9 A+ k! o ^
RowBox[{"(",
6 Q. i% F3 h5 s0 p1 r" R) M RowBox[{
3 P( i- T5 r1 D6 g& @ RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
+ x" {5 E0 R* \* q SuperscriptBox[
' o: H7 U, W( M: r RowBox[{"(", ' c* G6 D- |" ^0 k. f
RowBox[{ `) Q; C0 E5 p% f8 |* [6 m4 v3 B% o0 A6 ~
RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", / _- I) z! h( V2 v* Z# v- C8 l u
SuperscriptBox[9 V% l% E. {% s$ u9 V8 j& _5 ~, s
RowBox[{"(",
5 o5 h* _& i7 R- a. L RowBox[{
) v0 k* W3 @3 e RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
2 R! {, I* m0 ?7 ~ SuperscriptBox[0 g4 S3 B: c6 q* @
RowBox[{"(", ( B2 N+ B: s0 H( `5 r+ u# J$ ^
RowBox[{+ z+ \) ^" M! Q ]( N+ Y; b
RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-", " Y( e# T" {3 M0 ]1 e% m& Z
SuperscriptBox[
5 e I3 }8 j$ D/ n! v6 q' P7 d RowBox[{"(",
$ K) ^* @, K& F4 E! ?; d; e [ RowBox[{
. M8 s8 L: @- g2 L; t7 \/ a RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", 9 L/ s& b0 \: M& w7 A/ [9 U
SuperscriptBox[
. p9 i! ~9 }' I RowBox[{"(",
9 ^7 `: v5 x" g* T6 A4 o RowBox[{
! u' ?- j: ?- h, F6 r RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", ( V: L" O4 Y) b7 t6 V4 L
SuperscriptBox[
+ t4 B0 @4 D h: y) e RowBox[{"(",
. ?# d' r$ f0 t6 P8 g: k4 N RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", $ y2 J' f' _ |+ o- A9 T( a
SuperscriptBox[0 P% e; I. i5 v; |& P ~
RowBox[{"(", & p( r" p: a; C4 n9 o
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], % Y% G! P0 k% Z3 w
")"}]}]]}], "+", * \+ H1 S# C+ m$ B0 H
RowBox[{"0.5252475961933538`", " ", 4 J; ~, B- i( I
SuperscriptBox["\[ExponentialE]",
/ y- p+ Q+ d4 S, E! |+ ] RowBox[{"3.141592653589793`", " ", 0 m6 X1 V/ d4 h! L, @
RowBox[{"(", % F6 ?$ p8 _( Q( f) j& R( f8 `
RowBox[{/ T5 I8 Q/ B' _* ?- n2 S; s/ N
RowBox[{"-",
9 L0 ^! d+ M. ]0 x SuperscriptBox[8 W2 A! E5 s& V2 b
RowBox[{"(",
5 i) J# j$ K0 a4 s1 |5 W RowBox[{5 @ D \6 @6 e9 v2 c; x' Z. p
RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", 9 ~0 W# E; B. j% w
SuperscriptBox[
9 r$ f7 s1 n! U( E. L RowBox[{"(", : r. \/ w: D& j- V2 v/ s
RowBox[{! ?) S4 e1 k4 `6 r' B+ O( W
RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-", 3 }. J2 Y& i; ^. T. I
SuperscriptBox[; u6 M' g; H8 w
RowBox[{"(", 1 e, e) o! [' r/ c1 c
RowBox[{
) q6 t6 T5 v* C( v RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", + m* t5 E n5 b7 [1 e. Z7 n9 @
SuperscriptBox[
0 N' o. K1 G+ J( x# _* O$ J4 q RowBox[{"(",
9 z0 D0 s6 ~' w1 |# m RowBox[{
( o6 c/ y% Z& m. q: i6 e RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", 9 C/ f# ^7 k4 ]0 |( e1 M
SuperscriptBox[
' L0 N5 v, W q i" u% h RowBox[{"(",
7 B3 z4 l% o. @- _+ q( M RowBox[{$ e* F2 t8 b$ Z5 O" W$ e
RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", * A9 i) I& {. U6 S
SuperscriptBox[
1 V+ s* E1 s _, s3 ^ RowBox[{"(", % Q& p- g3 |6 i3 J. p0 b- N7 `/ H
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
5 I- |. s0 I' J8 E2 }0 B# B SuperscriptBox[
* t% R1 r! u3 p- T RowBox[{"(", 5 D6 y4 w& g! q" l
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", + U( C6 I4 K3 x, [# \
SuperscriptBox[. x. H5 A4 [5 M) i& O! Y
RowBox[{"(",
( D4 g V# ~; J1 w; s. d RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", + Y G1 P. ~ O( n, U( |/ g
SuperscriptBox[
9 o' A4 E5 D* ?2 C RowBox[{"(", 8 J- n. F7 {9 _/ H0 |- ~
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
4 g: Q+ N- X, T7 [; b0 V% U ")"}]}]]}], "-", % d! P9 E. U+ ~+ \; }
RowBox[{"0.320472847796449`", " ", 4 N# C: V% ^; \' _8 l8 x
SuperscriptBox["\[ExponentialE]",
. B0 L0 G+ Y7 A3 H. z RowBox[{"3.141592653589793`", " ", ^" o' F# ~# y6 x% d5 x
RowBox[{"(",
9 `& J- O% r* T+ ?: E7 _7 i RowBox[{
1 \1 G* T- \$ N' V0 [ RowBox[{"-",
4 i8 ?! \ x) d SuperscriptBox[
) B& I# p& f. h8 Z" O" F5 \( d RowBox[{"(",
: N( p5 t2 U; g X- d RowBox[{
8 I- Y5 R/ @% |9 K8 D RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
2 A0 G+ X. f) K7 V& d% ]0 N" y. S SuperscriptBox[
; @1 x% I! z5 \$ b# I" L RowBox[{"(", 7 X8 O: U$ @/ k" @$ j
RowBox[{
' v8 O) x7 w) }/ ]+ L! m) d RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
6 H4 H+ C K. Y* Y: w% G SuperscriptBox[
" A; p# f, O" j4 O- l RowBox[{"(", 3 [" w( X- ~& L8 P2 \
RowBox[{! Z! X2 q4 s9 r" E g
RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", Y9 P: W* V# R* ^3 P0 l
SuperscriptBox[$ n# s" O+ N, G8 l. d! `, L: r
RowBox[{"(",
' R, `( z u5 `8 Q* a+ K: | RowBox[{
9 ?; T# ]2 x1 P3 }. C" d1 ^ RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
- o# u* k) x8 p- H' H SuperscriptBox[, W, a3 }1 g) ~8 B
RowBox[{"(", 9 h+ F0 l+ U, q8 V& {' R
RowBox[{
; C# g2 s* g+ B2 v, I' N RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-", ) U7 |+ I& g' U# @& Y
SuperscriptBox[
, B+ r) k( O: w/ a, W1 j2 M RowBox[{"(", ; N5 `2 B9 G: W- t9 V0 k- r
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
/ H7 i J9 B' V# m) f( T' v8 r SuperscriptBox[" [+ G0 S, M: g% o2 f2 A
RowBox[{"(",
( u+ _" k+ I8 \2 B9 {' @5 A; ^* Q RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
& B& q p. D: ]0 {9 Q: e- j SuperscriptBox[
% `) `, G3 w, u' ? o" t RowBox[{"(",
7 S3 B5 h6 d1 P# p RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
" n( y& D2 X4 I3 ]. o SuperscriptBox[
) ?( e9 d/ {$ W" A5 V, Q RowBox[{"(",
$ v0 u* X' M, G, ~. G7 ^$ { RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
- i: A1 n! V' d G9 c8 Y% Q ")"}]}]]}], "+",
# h* z7 T4 S* D+ p RowBox[{"0.7528674241482847`", " ",
. j3 s b1 J( u9 x" G% e SuperscriptBox["\[ExponentialE]",
9 s0 Y: ?. `6 o2 [) o% K+ T RowBox[{"3.141592653589793`", " ", ! K# E! ~% n, L) W* U
RowBox[{"(", ) U- F& E$ R/ v' b' m6 C6 O
RowBox[{
+ P" a$ K% ^/ c' D; s! ~ RowBox[{"-",
( }& y3 x7 V" [8 D. L% h2 `- F2 H SuperscriptBox[ I, y! f, j; G1 E- ]0 y( t+ Y
RowBox[{"(",
- ]* p4 Y: s, [1 i, ~3 c RowBox[{
; B0 _# A. N4 ^6 x* M% D4 Q RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
, J: t! z. ~) b) e8 P SuperscriptBox[* h/ \; \- ]4 c
RowBox[{"(",
* d3 f2 O0 ~; ^# b RowBox[{
8 R) [& F. x* M& ?$ ` RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", 3 B0 O) ^, o" T0 d* {. a4 z( e
SuperscriptBox[
c O% ~& ~% {6 m" D( Y2 b0 _ RowBox[{"(", " c( i) _, A$ y# U( V* `: H
RowBox[{
0 `* Q. T" ?- ^- z. r, t* j RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
! E) U4 I2 l Q+ M. i& ]" |% d SuperscriptBox[: y5 f/ g" q6 c+ O! }
RowBox[{"(",
* ~1 c: m3 X8 l. S2 r) b* _+ {; N1 u RowBox[{! K1 J/ g3 s7 E3 Q
RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
) @: r3 g$ i5 H8 s/ j3 Q; r SuperscriptBox[
. ~/ \8 o8 f8 S& n) v! x1 H RowBox[{"(", - U4 X3 d l) w2 ^
RowBox[{2 k- s! R8 j X5 j# g
RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
& ?( k8 a- g, }6 F& X: j5 h. N5 Q SuperscriptBox[
! K1 M( @7 ~$ y1 F2 @ RowBox[{"(", 4 d6 r4 U+ R1 F8 c0 F+ r" z2 B+ d
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", " U+ w) {3 j% y
SuperscriptBox[. I) t) E! b# j% r' X
RowBox[{"(",
+ Y3 F. e8 z# S3 N4 p E; P RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 0 D2 w5 b) ?6 m8 d& {7 M# ~5 g/ h- ?
SuperscriptBox[
# r" \. O# z, e1 e% L \ RowBox[{"(",
3 U# r+ m' V% D1 U& T7 z# ~ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 1 T3 Y5 L( c7 ~
SuperscriptBox[; z2 u, Q$ o- Z! S/ @) a/ l
RowBox[{"(", - P w: ^! u8 t$ c4 r- g
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], " |3 {' }2 O: u) N/ `5 H$ s3 n
")"}]}]]}], "+", # c. P7 z% {% R* u8 x7 d, s& d
RowBox[{"0.02759193650965952`", " ", ; c& q9 P9 Q1 F) v' M4 s" X
SuperscriptBox["\[ExponentialE]",
8 [6 x: r! a! V0 Y9 W RowBox[{"3.141592653589793`", " ", : O9 H0 I% I" i4 N X: M' _6 Y
RowBox[{"(",
. I5 o' d1 \: d0 ?3 _* d RowBox[{4 v, c: _2 D4 F0 U7 e
RowBox[{"-",
0 d& A" w: H+ H SuperscriptBox[# C* k2 h" n% ], i) `) Q
RowBox[{"(",
2 P( t' I; d7 }5 d RowBox[{8 O+ v& Z- q4 H9 V+ ^$ d# ~
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
2 U- I( t/ ]( ]" r& t) y5 u SuperscriptBox[2 G! k! \* n! E# p% k: `( I# h
RowBox[{"(",
, T \& t7 F5 n* s X( M& C RowBox[{0 Z" g/ m0 V: m( l' T+ a' B
RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
' W/ u* \) B6 x6 G" n9 C SuperscriptBox[
; j. K$ R( X: w# y3 E3 a' U RowBox[{"(", $ k2 g: ]' a- M& i% L( @: r
RowBox[{
2 T5 O% j0 \4 t" T+ `/ c RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", $ |: R' Y4 \/ f& s* @, E
SuperscriptBox[1 [% Y/ U9 K3 A' `. W9 g$ z
RowBox[{"(", ( M! B( W6 V7 q# r: R0 u, ~
RowBox[{
; }- {6 N" L; \' ^) o1 \1 ? RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
: Z6 x+ K0 H& }8 i6 ~) w SuperscriptBox[$ w7 u' Z' P0 M; z
RowBox[{"(", 5 g+ m7 @) r" i/ d
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
+ x8 ~: r# v6 ?6 _" p7 C SuperscriptBox[
7 ^9 O( f: O$ F+ K6 C4 _( X2 R7 M8 a! g RowBox[{"(",
" X% _( W& `2 T( U" t: A% J RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", # w4 W. c8 b! V
SuperscriptBox[
8 U3 P9 [3 b2 L RowBox[{"(",
# X- L% }, J# Y b! N) b; R RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ; R6 s% V1 i# a( |! m3 @
SuperscriptBox[8 G: \; o/ p# y, m; X' }5 l% A
RowBox[{"(", 4 V; t4 ~% z' E8 n& S! |0 B7 q5 o
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
5 [) S/ Z: f. O+ e- l$ \3 P SuperscriptBox[
$ A! |, Q* v( z- Q, x; X% B4 F RowBox[{"(", ' ~- F9 s! O% K3 y9 \! _9 C6 k
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], , H0 i/ m7 k( Z$ L8 d* Q$ l
")"}]}]]}]}]], "Output",: L$ e/ h, `* y5 R) B5 p: b; c
CellChangeTimes->{3.577924759875*^9, 3.577924921203125*^9,
; X& m9 @# D7 g% p 3.57795759203079*^9, 3.5779589554964056`*^9, 3.5779621253913965`*^9, * z O" v1 P6 w9 P+ s5 Z
3.5780123515625*^9}]
" s _6 [2 r9 r}, Open ]],
7 d! s( h0 f7 ~" ~+ A$ T9 f% U i' j5 |5 Q" d; [9 {/ v) f: C
Cell[CellGroupData[{
+ b) P; i( T: d$ w4 \8 P* Q
" d; b, ^, b; ]$ C- L) |6 `Cell[BoxData[5 Q2 L+ ~# J2 H" r- ?# V$ ?. |# a9 G
RowBox[{"y1fit", "=",
5 F/ o* O @+ L. y7 w/ G; w/ ^ RowBox[{"Table", "[",
6 A8 F# u! @/ L" a" X RowBox[{"x", ",",
6 O, e- j1 \: y$ N: q2 O( K3 F RowBox[{"{", * E6 f6 Y8 o5 E0 ^
RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
4 M! H* E# Y2 d! U! F$ M CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {1 k8 N, n7 U" ?- _1 w+ `- G0 h3 T9 T
3.5779252768125*^9, 3.577925277484375*^9}}],% P8 T: _2 f% Z
* \5 u& p. r$ ]
Cell[BoxData[7 r1 m. s% A2 @' V
RowBox[{"{",
/ U7 \3 x. X. q* P8 l$ U RowBox[{! m+ T' W5 s& e' ?* G8 W/ T2 E+ ]
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
* E% Q. j+ b' d% F. ~ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",6 m3 n9 R0 ~. b3 E* d- z. ]
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
0 H; P7 P7 M( U8 \" ?7 u8 ~! Z8 j "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
! I5 [7 ]# @) T7 `" R5 v3 N ",", "29"}], "}"}]], "Output",. A7 Q2 N8 k8 A- @$ y9 h
CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9,
z0 ~8 W+ E" I; \ 3.577957594916795*^9, 3.5779589579612093`*^9, 3.5779621294942036`*^9,
9 I/ K4 `1 ]+ P B, X* I 3.57801235340625*^9}]
$ @0 }8 w: ~0 U" Z$ U9 `) H}, Open ]], A$ x, p! x9 O! ~5 z
( G0 p, o* c' A* y x% v
Cell[BoxData[$ t2 {; |. C& f8 c; o
RowBox[{"For", "[", * r1 |' n1 T1 q' l
RowBox[{' z3 m8 O# z- O$ P
RowBox[{"i", "=", "61"}], ",", - w8 P2 g, \/ K& `$ R3 i/ c
RowBox[{"i", "\[LessEqual]", "89"}], ",",
3 X& Q) @5 J4 W. n RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", ! P; t* r/ C( f5 `' t) O2 O
RowBox[{ S& M6 K# W8 Q' m8 V
RowBox[{
4 m2 B$ j5 C& H3 d. V# \% ~ RowBox[{"y1fit", "[",
" q. h4 K1 ~! p6 e; L6 C RowBox[{"[", " @! B2 _/ H' n, H! a
RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
, ?3 {* }" _, E8 d) n" j RowBox[{"y1", "/.",
6 F' A [& f% s5 V: _; ]; l/ m RowBox[{"{",
( u8 ~; L7 P8 s/ y$ x RowBox[{
3 b' S- b, L4 W# \$ |+ B: `# k RowBox[{"x1", "->",
8 _' p2 _/ a8 B# D2 n( B, Y; { RowBox[{"Data", "[", . I8 g" [9 J6 v' c7 b# K1 z/ Q# {8 b, \- T
RowBox[{"[", 1 E+ p6 }2 u& @/ U
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
8 e/ I6 j' C9 M3 H \/ G RowBox[{"x2", "->", + \; G- [+ ]& ], ]; p4 D* s, r
RowBox[{"Data", "[",
' C, j5 p: Q3 I' \ RowBox[{"[",
/ S0 L6 ? E) n) Q2 C RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
- ^3 J: J2 W( Z* C, I5 ]+ u5 b2 \ RowBox[{"x3", "->",
4 _& A8 v. n3 x1 ]0 \& ]% z RowBox[{"Data", "[", ) T& |, j- G; D* r9 R4 ?" @
RowBox[{"[", % y7 f" p* H( M- }
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
' B9 |9 C( j- w0 S. X! X RowBox[{"x4", "->", . a2 V2 h; }' D' \" H2 Z/ v
RowBox[{"Data", "[",
+ d) j3 o2 S/ [1 K! o1 v RowBox[{"[", * v+ f, n8 d3 @
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", / R$ V7 R, q% b3 U) k% v
RowBox[{"x5", "->",
2 c$ ?4 l) v" J- _ RowBox[{"Data", "[",
$ r7 Z4 P" ^* e9 K) ~" _- h RowBox[{"[",
9 X C, Y1 i q( k5 _% m# A7 O# | RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
" i; y) B. @4 V V RowBox[{"x6", "->", & |* a4 }" a! J5 l/ {7 L
RowBox[{"Data", "[",
7 W- t9 S. H' b ?' h3 p! D RowBox[{"[", * f& e* I# `- b
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", , C: X* T! @, j# c$ t! M5 f2 @6 B
RowBox[{"x7", "->", 5 r$ |# d5 p; u3 w6 p& Z ?
RowBox[{"Data", "[",
3 M9 {; ?" t4 G6 I+ A8 K RowBox[{"[", : u U$ E- c8 H5 H
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 7 Q X6 I& a$ L/ G
RowBox[{"x8", "->", & |# j# r- q/ _: Q5 b
RowBox[{"Data", "[", 9 n% {' t# _/ }( Z4 k. a0 i
RowBox[{"[", ' y! n7 D' O2 Y5 p! Q% m1 j& h* e/ i
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
3 S' z1 H% }# N- l: G RowBox[{"x9", "->",
, `; q6 g: d1 x- _ RowBox[{"Data", "[", " G; |- D( ^' N) K9 E6 n8 @. W
RowBox[{"[",
( e% R( p j. p. ]9 _5 d RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}],
$ u$ `% p- _: B9 A5 u& ^ "\[IndentingNewLine]", "]"}]], "Input",
$ O, k) p( \0 S' Y7 m CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {/ z% t8 V, b, L. D! l6 m
3.577925286140625*^9, 3.577925306765625*^9}, {3.577958922517948*^9,
: D: s' o9 n [6 K; a 3.577958922549148*^9}}],
3 s5 F3 b. D" }; Y: ~! E4 K4 r2 z8 b
* E0 L, J. U% c% o) t& D/ hCell[CellGroupData[{5 j/ j7 O7 R9 o" }, @) N
( `" B& c2 T, h6 k7 C$ T3 eCell[BoxData["y1fit"], "Input",
" n6 N& C7 `9 t/ ~" t CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {/ a' S9 ^5 s. b+ V+ Z! k
3.577925040484375*^9, 3.5779250440625*^9}}],5 G3 [! Y% x) _1 K* W$ h/ j" t
; [, T/ Z3 F1 W
Cell[BoxData[* p$ f M& a# o$ ?5 ?# J
RowBox[{"{", " o/ C) _: n! L }1 B3 C
RowBox[{, y2 K" n8 |( x( q# b# M6 S
"0.43193416525930517`", ",", "0.4501634853493982`", ",", . R2 f; M: a0 p; n
"0.33336034768525247`", ",", "0.4418609896858925`", ",",
/ o2 B3 Z0 @9 u) ~ "0.41030378932283024`", ",", "0.516814798191575`", ",", 9 O v% U3 g" ~8 s6 g+ i( U
"0.4476631213729994`", ",", "0.3016552978696669`", ",",
, H. p+ G1 _" d/ V0 Q6 V* F( f5 _9 @ "0.378122167437847`", ",", "0.020339844919720733`", ",", & B4 i" g% g# ^/ d, _( ~
"0.018745375782087376`", ",", "0.2919925992695025`", ",", ) f8 u" O- h6 F* C% Y* b- o1 _
"0.2649067959681263`", ",", "0.16343444284525593`", ",", - i; n6 x/ ^" \0 l r2 M1 q
"0.4182466778551563`", ",", "0.27347752211364934`", ",",
1 e+ s; U# d/ [2 B; y9 n "0.38554057386385654`", ",", "0.35253160453718047`", ",",
$ B3 [4 @! ^) X& p "0.2054745841100774`", ",", "0.45504377112716676`", ",", ! y) I! i6 N) F9 V1 ^$ L9 x
"0.1598805094678612`", ",", "0.18662509982279485`", ",",
" {/ H- x f. c$ R3 y% `( Z9 \; v* r "0.10684797493248213`", ",", "0.013349212673286828`", ",",
( Z5 |3 [! J) _ "0.08215836003004297`", ",", "0.2979041599362813`", ",",
) U. R- e9 k1 O; e' N( e) f" {+ D "0.05995976512343641`", ",", "0.3884793499104568`", ",", 8 \+ [4 i3 x( r1 i" N) x1 N
"0.5361889337034293`"}], "}"}]], "Output",
' Y& w! i, `) G) N; E8 U* Q CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9, / z- n4 K; p/ g7 U% |
3.577925312375*^9, 3.5779575978808002`*^9, 3.5779589654960227`*^9, 1 s$ N- p/ E/ m: x
3.5779621416934247`*^9, 3.578012355546875*^9}]
0 ]3 U B( k: n" g}, Open ]],
4 ?5 b3 U# K( E1 E8 k7 S
1 \) h% J- b; E, ^Cell[CellGroupData[{
1 F0 B4 O- p# P7 B2 k
1 n/ [! b6 h/ C0 r T( \$ N( bCell[BoxData[
* Y8 B X& c! m6 Z3 a; n RowBox[{"y1fit", "=",
+ r7 w# l. L- m) p( \ RowBox[{"{", 3 O) I* {4 [5 S; r; n/ L
RowBox[{1 U8 r5 ^- `1 R% c
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ ?3 I* L' f( k1 p, M& }. i! G, K ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
( z3 A+ m6 J n "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ; r7 G3 l. F8 Q$ q& b: N, J
",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
! ?5 L1 J/ X+ f$ L3 T "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ' E: u. F6 T4 D3 e) u4 P1 C: u
",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", 0 Z9 p% ?' U) q; P/ O
"41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", j8 }; {' u3 I. W; P
",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", : @0 ]6 v9 n0 I& n/ i
"54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", & O) U; `2 t, X; C$ p
"0.4319341652593058", ",", "0.4319341652593058`", ",", ) R7 A7 M4 c) Y
"0.45016348534939865`", ",", "0.3333603476852527`", ",", 7 u: g/ d; t; {6 ?
"0.44186098968589294`", ",", "0.41030378932283074`", ",", * y% y. q: n% g5 ~) q/ f
"0.5168147981915754`", ",", "0.4476631213729997`", ",",
6 X) @3 q M& |" d8 r# X$ n "0.30165529786966755`", ",", "0.3781221674378473`", ",", a( `- d- X9 R3 z
"0.020339844919720775`", ",", "0.018745375782087393`", ",",
0 C5 d' p8 U& b4 R# \* i "0.2919925992695026`", ",", "0.26490679596812655`", ",",
% I' Q& `) t+ P } "0.16343444284525593`", ",", "0.4182466778551567`", ",",
# L) z6 K8 Z8 B2 H- w' a9 x% o "0.27347752211364945`", ",", "0.385540573863857`", ",", 3 K/ }2 _7 ]# @* o4 x* d/ D4 N
"0.3525316045371807`", ",", "0.20547458411007796`", ",", " k i! @5 J$ T8 g5 J( v
"0.4550437711271672`", ",", "0.1598805094678611`", ",",
+ W* V! d7 B) B "0.18662509982279502`", ",", "0.10684797493248224`", ",", ; n$ N: M. e# @2 X7 W
"0.013349212673286806`", ",", "0.08215836003004302`", ",", $ j! S2 m9 g- o
"0.2979041599362817`", ",", "0.05995976512343637`", ",", 5 x% k+ n. p7 P" T, q# J
"0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]}]], "Input",; I5 X5 O b9 L6 L6 ]
CellChangeTimes->{{3.577959701349306*^9, 3.5779597161381316`*^9}, {
4 Y0 [" |" {5 K: f7 K 3.5779621548286476`*^9, 3.5779621618642597`*^9}}],- F/ Y8 a* v/ j3 a3 K
8 S/ z* H0 W6 M0 V6 H- UCell[BoxData[! x4 ^, n3 K+ |5 v7 q& t1 Q
RowBox[{"{",
0 R* I2 M7 z: c# p* S; t( ^( s! f RowBox[{
3 B5 H; ?: M- h% p0 _3 c& I "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 3 `% o5 F7 |& V. `# }
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
# Z" c) F& }8 z$ h- c d0 m ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", % _8 B6 U7 A% g
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
$ e; U6 }* A1 J2 }# o o/ g+ { ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", 9 t5 ] u9 {6 [( x/ d
"35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", : `$ m+ I& w7 g6 J
",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", # ?6 B9 J* [, Z* o
"48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", ! d/ c% Z; c, Z
",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", % W/ ~& Y' i& f
"0.4319341652593058`", ",", "0.4319341652593058`", ",", / b: U7 W. K+ |* b# \2 a9 F
"0.45016348534939865`", ",", "0.3333603476852527`", ",",
- E% a9 b+ W2 E6 x "0.44186098968589294`", ",", "0.41030378932283074`", ",", 3 \/ A6 |& D7 f4 G+ Y) G
"0.5168147981915754`", ",", "0.4476631213729997`", ",",
3 a5 j8 |' o: S( i5 `9 x* P- n8 [$ c "0.30165529786966755`", ",", "0.3781221674378473`", ",",
9 J6 O+ Q5 e3 ~0 G "0.020339844919720775`", ",", "0.018745375782087393`", ",",
4 u; u( `% L7 B( H( L7 d# c "0.2919925992695026`", ",", "0.26490679596812655`", ",", . a7 `* \8 \" x" k0 d0 t/ g
"0.16343444284525593`", ",", "0.4182466778551567`", ",", + k# W3 ^9 M( g8 h. K
"0.27347752211364945`", ",", "0.385540573863857`", ",", $ G/ b/ u9 [; M
"0.3525316045371807`", ",", "0.20547458411007796`", ",",
6 Q. H" v8 Q0 U( Z "0.4550437711271672`", ",", "0.1598805094678611`", ",", 1 S: f/ y* x- r$ O0 `; [! g8 o
"0.18662509982279502`", ",", "0.10684797493248224`", ",",
. M, R& j. S4 R7 d4 a6 J "0.013349212673286806`", ",", "0.08215836003004302`", ",",
) l! E# _2 Y( n+ |2 f7 H "0.2979041599362817`", ",", "0.05995976512343637`", ",",
4 g, j% Y5 x. K; p "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]], "Output",' N4 [+ M! ~, Q
CellChangeTimes->{3.5779597200381384`*^9, 3.5779621650778656`*^9, 1 a9 A" z& U7 f' `, D3 p
3.5780123569375*^9}]) I7 I5 q( H$ n2 A
}, Open ]],3 r( G1 F, F6 r& F# X/ j9 A7 h
: `, C, f3 ^/ Y4 |; a3 TCell[CellGroupData[{
0 j: P. X; y% [( {
" W/ H1 [6 `4 t0 @) n1 Y U( H1 [Cell[BoxData[& x5 D' ?" L+ f7 D# n2 `
RowBox[{"y10", "=", : H$ a( j0 @- o M- D4 ~
RowBox[{"Table", "[",
6 K2 b8 B4 g0 B RowBox[{"x", ",", + U5 E" I7 P) S6 Y) J
RowBox[{"{",
% g2 u. ~! {1 `- q RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",: ^! x$ E5 n4 S& C% b j
CellChangeTimes->{3.5779253628125*^9}],
+ @4 Z+ u% @) x
( c( f* V" ?' m( J3 `/ e( ~8 {Cell[BoxData[* I' b* N( q/ d3 H2 z* \0 b
RowBox[{"{",
8 j" _9 F/ c2 p- ^6 o RowBox[{
5 G2 u+ E% M: ~ H "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", $ Z$ e6 f: c/ o" H/ N- U/ P% D/ @
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
8 w6 V9 u* _1 t1 b/ V ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", - `3 R7 _3 p+ o$ d
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
6 e8 w% r: U K% R* m; G ",", "29"}], "}"}]], "Output",
- A6 \, a; J" u CellChangeTimes->{3.57792536553125*^9, 3.577957599565603*^9,
1 y9 q/ e+ T, c5 Q( k# V) {) \ 3.577958967383626*^9, 3.5779621678858705`*^9, 3.578012358609375*^9}]$ l- k8 b1 x- j/ w
}, Open ]],
1 a7 Q7 X1 y# l: R8 t1 C3 ^# L a8 C; x. q
Cell[BoxData[
; J) h6 Q( t% |3 t RowBox[{"For", "[",
3 M. f- e; o( l: W D2 M( `% } RowBox[{. S$ [2 n6 @, \* A' }
RowBox[{"i", "=", "61"}], ",", 7 {% Y; ?% ]" E; c% w& B6 E; h0 S- v
RowBox[{"i", "\[LessEqual]", "89"}], ",", / p' W ~* {. h4 p* \
RowBox[{"i", "++"}], ",", ( K' ] O2 {5 a2 S
RowBox[{. @; D+ W. j1 L3 K5 x4 x
RowBox[{"y10", "[",
% r0 B. e6 A6 ]2 \* U* _ RowBox[{"[", . z5 ^& z- s) T
RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", 2 R7 }+ M" R, @2 j2 q
RowBox[{"Data", "[", ' V+ C! E9 Z0 e1 e' W2 H4 h
RowBox[{"[",
' q9 b& M- y% K$ ~. k RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
2 t/ K, \( T1 u CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {9 h5 d) j+ G& d) |* L5 M& X
3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, ' D% z6 }3 K) G. Q8 B
3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9},
/ O' N) w. d, a6 f0 o0 l" A* \ 3.577958922549148*^9}],$ {" M/ }4 G- j' a+ g
( n* @2 g2 c3 F+ ACell[CellGroupData[{
+ |* S% o' C" m- E% E/ }
v8 g# z5 S' G; V/ I7 \1 h' kCell[BoxData["y10"], "Input",% _# h1 e; l& F
CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {) P; r" X, s, u/ s* \
3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}],/ h3 k D5 W) Q7 s1 W
: \! j% v2 {6 YCell[BoxData[$ C6 [- l8 O" H3 s& C; m( c% B
RowBox[{"{",
6 i: z5 z+ W7 f RowBox[{
. E; h& s* n' A0 z p2 [6 G7 ` "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",",
5 Z1 Z* _9 P8 A8 }) d8 t2 L "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",",
3 {7 J. {. f! c" \2 c4 u, C/ { "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
9 Q; D+ R( @- P: i "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",", 3 b9 u* }! ?7 r) o$ S4 f$ W) X1 C
"0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",", % Z# p) Q4 e d9 Z7 R
"0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
. z& J! I3 z; e8 y* F- J "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",", ( [% ^" A# h: ?
"0.694935`"}], "}"}]], "Output",8 x9 R8 _5 Q6 P0 f: Z
CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9,
$ m1 _. X3 `! m; ^; d4 ` 3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9, ' Z* _ u9 N+ z( A; A
3.5779621736734805`*^9, 3.57801236071875*^9}]0 j* P: I4 i7 M/ h; v- S2 A# T) f; f
}, Open ]],
* r8 o+ D. ~4 q1 d5 W+ p3 R% e7 ~" L8 r- l) a+ L; K6 @8 S
Cell[CellGroupData[{3 {( z6 u0 E6 G( w
, {1 s" J# O5 h! B/ b4 A% l. `Cell[BoxData[
# {1 F; U" p% d( E) `2 F& m7 | RowBox[{"y10", "=", 4 a( \6 d4 u) M& I# ^; w
RowBox[{"{",
; [: X6 e; T. ]5 d$ i$ f8 d% N( N0 s RowBox[{+ S- D* p5 ~) j6 I+ R1 k
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", $ n* e2 V9 u4 r: A' P/ }
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
) ]1 @) w ~6 D: H h "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
6 O7 C* w4 b& A+ M. a& W+ q; w* o" \ ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
# J* W2 ~5 i8 F1 { "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", . d4 S. ?/ O* I2 M
",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
$ z- d: A- l3 P( u+ [ "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", 4 P: d" x' H, {+ u+ C) H
",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", 6 K8 ^/ b" ?$ i, g2 l6 |
"54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", 8 n+ z" H4 k# u8 ~/ l8 Y
"0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",",
4 W! P- ~6 _7 w$ v "0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",",
3 u, o7 x0 E4 x "0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", 3 a" M$ S5 a& O4 V
"0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",",
1 }9 ]! |6 L5 I7 c8 N "0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",",
9 S7 k6 ~! |* l2 r2 z8 w b7 l "0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",",
$ p9 w6 j3 h2 H; [8 p6 w "0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", # ^1 F( N6 W5 i, y& K Q
"0.390754`", ",", "0.694935`"}], "}"}]}]], "Input",
! K5 ?# w$ I8 @4 X CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],' z( n$ _, T5 y9 m0 W& X% {
) T# Q1 x+ f: V4 ^7 Q7 ACell[BoxData[
. W4 H9 w3 M( B RowBox[{"{", ; A0 J! V( r: T
RowBox[{: A6 h' _) r( a( a: R! m
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", # C5 x: {# o7 f! X# h( M
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
5 |0 F) S& b0 O: ]1 W) @ ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", * O+ P* M; r' K/ P' h5 Q. q# X
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
1 h# L* h0 A7 } ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", . t! r- C9 a% y. W- {
"35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
- L0 D5 _3 i$ p' N- K+ l ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
% L" w; N, M# Y, h "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 6 @$ o) Y* I! N$ k m
",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`", 9 j/ p$ i$ @. ~3 o2 P+ f
",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`",
# a$ A/ U+ i; f; i ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", : W& a6 ~7 a( N6 }9 p
",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
; g- f/ e* i" R- w9 e8 N' z "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
|2 g6 U8 F& {& ~+ n8 n7 A "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",", * a) C. K r9 g2 V$ H8 d
"0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
/ X5 L3 w8 z8 q& G "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
9 d- B, ]3 y; R/ o# R0 N "0.694935`"}], "}"}]], "Output",5 y5 A5 D( c7 W" n/ M
CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9, 6 T4 _: v2 |; @9 ~, [
3.578012361734375*^9}]
/ Q+ l& |; z: j& v6 N2 d' G}, Open ]],
0 j9 [ G* c. ~0 W, D( _# h$ V
/ w( s: K+ z& Q1 `8 d, oCell[CellGroupData[{' w- C3 @8 K/ z2 y& _3 E+ i6 A! b
s% e' \0 [' t; f( R2 W* oCell[BoxData[
4 P% T# v) o8 O' s RowBox[{"p1a", "=",
6 ~/ v1 Q U1 D+ N# C RowBox[{"ListPlot", "[", : c. X7 r$ }/ v1 i" t/ P \
RowBox[{"y1fit", ",",
9 ~' _% X% k. | RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", 9 i: Q U" Z2 \! u3 B
RowBox[{"PlotStyle", "\[Rule]", . S, N# ~# Z- u
RowBox[{"{",
$ ?. A7 h# V: A2 D; Z' W, X RowBox[{"RGBColor", "[",
. n) e1 w! Q1 v. d" P9 R- S RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
& y; o* F) G$ f9 m9 Y0 i; ^ RowBox[{"PlotRange", "\[Rule]",
8 N& [" g* u- i- M: S& r! w RowBox[{"{", " {4 }# F% |% k4 Z8 ?
RowBox[{
8 G( }& I) K, m8 q+ | I2 E RowBox[{"{", 1 N0 g5 z4 u+ D% e, Y. F. g( a% ]
RowBox[{"61", ",", "89"}], "}"}], ",", - y2 n D* S5 ?' V
RowBox[{"{", 5 \0 w( j6 x; k7 X5 M/ G6 A6 X; P
RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 4 Z+ J4 {, K. V" [5 }
RowBox[{"AxesOrigin", "\[Rule]", ( I# H# x9 ^% r- l6 L6 I
RowBox[{"{",
* v( U0 P7 t; u% \) s4 K RowBox[{"61", ",", "0"}], "}"}]}], ",", - ~$ C5 i$ t4 b
RowBox[{"Frame", "\[Rule]", "True"}], ",", ( L1 Y5 g% {6 s" U9 y
RowBox[{"FrameLabel", "\[Rule]",
9 B5 x* f, s# c- j7 l! p RowBox[{"{", 6 A6 d1 J' a/ l) L$ V) ]
RowBox[{+ W1 Q" }& g; h9 H+ ?1 o \
"\"\<\:7089\:6b21\>\"", ",", 3 T: j' q4 D. `% P1 |8 ^$ _
"\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
, x$ F, a+ M' m- o3 W\:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",2 i* y; z/ e6 _; r! k1 Q
CellChangeTimes->{9 D7 I$ F1 k( C. c
3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {* [; ^6 H( ~: c% d. N' S+ W+ G
3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9,
" t d l" C7 }7 V 3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {
$ r5 }& c5 v3 ~8 B4 H. j: | 3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],% } _: o% ^# x+ n* X4 `) }
* i! L4 ~% H# G+ e9 A7 |3 M/ R5 uCell[BoxData[. r9 e! C2 b5 D" S& u# R
GraphicsBox[{{}, {},
' a( U1 d* Q5 S {RGBColor[0, 0, 0], LineBox[CompressedData["' W4 r5 y3 _- I( ~
1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn( m' }& H0 i: J& Y2 K
8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
! K! P( i. Z, q# MD3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B' B7 M. T. d' F" s) g; `
1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX! u, U/ S" d) `( E+ q
C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN
5 t$ ~$ C1 d' E& k! I+ S9 Z/ Aa2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
" f* I# A9 D' SyqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb7 [( v; p* A0 ~& ^1 L8 X
wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
. Y" Q: }* d7 N( ~Y6nGQ3sAieueIw==
1 F6 M. [1 w* {9 T6 v "]]}},
0 h) P$ H' ~' o AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],% Q/ o: m0 z! [- [* I
Axes->True,* J$ i7 J1 F$ Z. j! ]1 c1 ]: a
AxesOrigin->{61, 0},, B1 v8 S& m$ u1 K
Frame->True,
5 X. Q/ o8 s& H7 n/ g+ |& x FrameLabel->{: a6 Z* [- R. v9 O4 U* d% u
FormBox["\"\:7089\:6b21\"", TraditionalForm],
- b p$ E/ v, j% X FormBox[: `' R% g6 _% U+ E/ i. s! B
"\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\5 x; ?" ]9 s1 q* k
\:ff09\"", TraditionalForm]},$ R+ w: j; y( e& N. j' i: L3 }% P
PlotRange->{{61, 89}, {0, 1}},
1 l! D) ^& O6 } PlotRangeClipping->True,2 K5 w# Z1 d- F
PlotRangePadding->{Automatic, Automatic}]], "Output",5 @1 U h8 c2 Z7 I+ G4 V
CellChangeTimes->{/ l3 T i; q6 k0 a4 B% s
3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9, 6 x, a* c j8 S' N& R. Y
3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9,
( V6 W+ q" f0 C9 n 3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9}, ; I! ~9 l! D& c2 J
3.577962187510705*^9, 3.578012396921875*^9}]
6 p5 @! G5 ~' h}, Open ]],! w8 {$ K2 E1 j' ?' U( q
# e- K+ V, t+ L- a* a
Cell[CellGroupData[{
8 \4 c. w* E2 a5 ^! T6 P8 ^- s0 W: e2 P7 f' t8 v( Q+ R5 q% ^
Cell[BoxData[
$ x) d& z7 s1 `. ~$ ~( s9 ^ RowBox[{"p1b", "=", 9 y9 v) X: [5 @& k7 Z
RowBox[{"ListPlot", "[",
9 M" C2 O0 T. w, `8 k( Z RowBox[{"y10", ",", $ [0 @* R( R! `/ }: i
RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", 8 _! ~4 l$ ^% o; ]5 O% K9 _) R+ Y
RowBox[{"PlotStyle", "\[Rule]", / T: T, f- d( G: k- n6 R) r$ p5 W
RowBox[{"{", ) Z% `: Q! O1 _$ `/ F }
RowBox[{
& D1 y& @0 f/ t RowBox[{"RGBColor", "[",
5 @2 p! Y4 M+ ] RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
3 L3 j" J& D. M8 S) v; ]6 B ",", ' c2 u: _9 x& h7 }5 s. ]3 t
RowBox[{"PlotRange", "\[Rule]",
* I, G: T$ n$ p' X% |- o RowBox[{"{", ; j" K) K' E1 k3 G3 v
RowBox[{
~4 I' A7 E+ C0 g+ W4 T7 E- N/ B) a RowBox[{"{",
. f7 _+ D- d/ Y0 } RowBox[{"61", ",", "89"}], "}"}], ",",
. i3 g- c: }. Q* V/ z& L RowBox[{"{",
- M; G; M$ c0 u$ z' z RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
9 _, B; q! z5 D2 g, c3 p* x! D) }7 B RowBox[{"AxesOrigin", "\[Rule]",
. L L0 a; `$ | RowBox[{"{", - U/ {" B1 Q6 b) b
RowBox[{"61", ",", "0"}], "}"}]}], ",",
9 d$ n- v: c7 \* I$ c RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
( N: u8 s4 E* D; N/ m CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9, " V4 A. {5 R# \ t7 | r- f
3.5779597764166365`*^9, 3.578012409265625*^9}],$ y% z% j! j+ i I2 |8 o5 A5 N
9 _# [7 P3 x3 [5 P
Cell[BoxData[1 z/ I: }$ Z3 H$ ?
GraphicsBox[{{}, {},
1 @$ m; A, o; O3 j4 b& v# z {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["- c$ ]$ @; a4 ^, G& X
1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
+ ~9 [6 `7 U9 X/ t+ w! ~3 Q* W7 u/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy3 |2 p# H6 s8 o8 z0 w9 Z
GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy/ S+ m. A) h: p; i
GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
' f; m! T( r* L( z7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/2 r9 b6 S. D1 | _
Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
: r+ n0 Q5 g8 ]7 z* O8 j. RH+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV; j. G) ]4 N3 R! s. t0 b4 }
rQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
N# h6 E; O5 ?9 ivA==
, u: h' a% }$ N* A% u H "]]}},5 n( N* n- D0 W9 X
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],+ u h3 |; \4 X1 |
Axes->True,
; W2 e! }. I- | AxesOrigin->{61, 0},
" ~. W; }+ x6 O3 q9 e+ N+ G Frame->True,' \* V I) o$ f6 K
PlotRange->{{61, 89}, {0, 1}},! M }% R3 Q& K7 j, g/ K% [' k, n3 X
PlotRangeClipping->True,
/ {; x$ j- e; N% d$ K8 ]+ c) ^ PlotRangePadding->{Automatic, Automatic}]], "Output",% ?+ u. U6 T6 S' |. G9 I- l0 J
CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9, ) j; \, d7 w2 R. x/ y* A7 ~! u
3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9,
# A1 u8 K \$ A4 E! I' h 3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]
( {, Z& X2 p8 w @( E}, Open ]],
# q' {& m; M& i. I- n7 o3 q$ b* O& ]5 {2 i4 f3 b
Cell[CellGroupData[{8 y) c( s6 H7 y/ \6 }6 i
( ^; a/ @; V9 d6 a4 b
Cell[BoxData[
, D4 G$ Y7 z8 H3 U6 j/ y O$ l RowBox[{"Show", "[",
& B6 w( e& J8 f7 a4 c RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],4 B- @, \. T" f& g
/ [) X0 k, V, U, d% _
Cell[BoxData[
7 f/ \# L: Q1 O1 ?% G; I' R L GraphicsBox[{{{}, {},
& \( ]( V2 d% i) X& u6 B8 o {RGBColor[0, 0, 0], LineBox[CompressedData["& s6 n. l/ Q1 O/ k4 j1 y3 {8 X
1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
4 @# P9 e! J* l( z+ m4 Q8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
8 p7 ~1 o' w+ LD3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B" w+ E* }. T9 x1 j( m
1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
m. c7 e5 v. w) o% y! t- rC1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN
X: v. f$ ]. R: ga2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
+ q8 ?* [$ }3 v: ~& a* XyqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb5 J& b& s4 e) C- t) o
wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59! D: ]+ s( _* [" f c" d4 d
Y6nGQ3sAieueIw==
9 p' |- T7 V1 L* E/ `$ m "]]}}, {{}, {}, & S: {% W& O0 L+ R0 o! g w8 N: [
{RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
6 O. U! ]- A% ]# l1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
5 M5 t& K: Y5 }" S. Z ]5 N$ M/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy& e8 O/ V- J8 a
GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy( I, I, T& n- Y0 p
GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy4 K9 K4 q$ L _" f7 e
7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
( `* D! x7 e$ @8 P5 D: ?Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri- n, m; b$ X9 R" R. |+ c
H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
. s* ~$ n( l6 ^; z8 |1 crQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
% k# s C7 I( N# O8 Q! Q( WvA==
% b1 h" i2 S; R; y" A. u; X% S% A "]]}}},
. y* ?3 Z" M& ? AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
! z; s: ?5 R" b; Y L/ G c) c( {0 n Axes->True,
: K& S/ D: I7 }- h AxesOrigin->{61, 0},
) W$ H9 D4 W" v+ K( f1 P Frame->True,
6 X) X1 J. }& C* R: w+ h FrameLabel->{
0 d2 F( z( M1 _4 |* p( j FormBox["\"\:7089\:6b21\"", TraditionalForm], . U6 B/ t$ w7 t7 R5 b3 N/ g; [
FormBox[
$ b: S5 @! w) B* J. D$ ?# l "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\" ]6 r0 M, I( X9 L' o. N- M0 X% c
\:ff09\"", TraditionalForm]},
- ~7 s& \3 U* n0 U1 ~2 M1 d8 e PlotRange->{{61, 89}, {0, 1}},
' g+ p0 J' u! h0 P PlotRangeClipping->True,2 b: J; h9 K5 ~% _( q; A0 \. a& H
PlotRangePadding->{Automatic, Automatic}]], "Output",7 ~/ O6 H. {% o R: H
CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]
: T; ^! }( C5 J9 I6 G% \; G- }' { v}, Open ]],
; X2 q; o( l. Y( Q- X) s
3 z4 @9 K/ @5 J6 z' D2 L6 HCell[BoxData["\:62df\:5408wi1"], "Input",
& [! q& [0 X9 P% A/ }# N2 a3 _, M CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9},
* K: p; |, y. p: J, ^ 3.577959662349238*^9}],8 b& R. Q1 J/ K: ?
" @ e: H7 x9 m- ACell[CellGroupData[{
5 K6 ]+ C' ?' ]. [0 J$ I7 q" Q
4 T* N0 p! w9 v& z; z; x3 SCell[BoxData[5 C* z* @. N, E$ v
RowBox[{"y1b", "=", ) v3 |9 j h) A+ W! P# L# Y. c# s
RowBox[{"Table", "[", 7 c# _3 f8 n0 }
RowBox[{"x", ",",
; V4 i) f6 ?" C5 C& z RowBox[{"{", " R% h. ?" z1 z" ]9 d$ a
RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
$ [) `% l7 c( ` CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {. n- l. v, d- h; o% y& s5 V
3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}],, k e* a8 _# m4 g- ^ H( M+ _
. i+ w' L' p% E+ V, d5 o! \Cell[BoxData[9 T, y$ |. O: y4 ?7 ?% O. S E; A
RowBox[{"{",
" O' r8 H' o$ n3 {2 { @, p9 Q+ d2 N RowBox[{5 R) M$ F. x% ]6 V- V
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
; t$ E: \1 L5 V: K$ X4 \- b ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",9 l8 m7 _2 \6 {, T! B
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
7 o& A7 `, T8 o& M' c "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", & q3 t* P, j# W' B0 h, a# N, S
",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
% a0 g3 ~& J8 c# {+ | g$ u1 } "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", - z) j: m2 l U8 R! z
",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", % T# p7 _# h- T0 E7 W+ i- b
"48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 6 L* u* {% V1 Z# U8 F& J* l9 l
",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
2 O6 M# T/ n. M0 m5 f "}"}]], "Output",
* |* ^8 U# B/ N, S! \+ t CellChangeTimes->{
8 b. Q, \3 y8 C Z# ^ 3.577922682296875*^9, {3.5779582291435394`*^9, 3.5779582351339493`*^9}, - R1 Y& D K' j. B. k% c
3.577958478041973*^9, 3.577959010205701*^9, 3.5779622225483656`*^9, & o( H' i2 j2 W" F3 `) [
3.578012438953125*^9}]
! |8 W7 J% ]# @; Q}, Open ]],
6 D* @% y: N" G1 ~: A, F# d: e3 T! m6 o$ f
Cell[CellGroupData[{
. r6 |2 N" O0 ]( n8 K H) l" A
( W* d1 K' T. MCell[BoxData[
1 U" |: o, `( V RowBox[{"Data", "[",
, r& f. Y& y& y# A3 J% D/ m0 [ RowBox[{"[",
+ H! E) N0 K, z @( u( ? RowBox[{"3", ",", "11"}], "]"}], "]"}]], "Input",4 k* j1 c4 i- z7 R! M; `2 m7 u
CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {4 Q( S7 M6 N0 C$ w- ?% x
3.577922912015625*^9, 3.577922912171875*^9}, 3.5779582414831605`*^9, {
' G1 v2 g1 `. _" M& `; D. Y 3.577959014090108*^9, 3.577959016040111*^9}}],
4 M, b5 D: T8 c! l7 x) L
' G) |0 W9 z$ a8 mCell[BoxData["0.492958`"], "Output",
) e, j( m( e: {7 c CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
( p0 t! r% Y( U( u% M, ` 3.577922913203125*^9, 3.577958242809163*^9, 3.5779584790403748`*^9, 3 D. e; e! D8 U$ B7 n& y3 ?& t
3.5779590175689135`*^9, 3.5779622239523687`*^9, 3.578012439828125*^9}]
7 E* R: ]) S0 v( }}, Open ]],, k' G" W5 }$ u, ?- O
! P! L) Q3 \! M1 S b, Y5 k% q! xCell[BoxData[2 o* C, w. _2 s9 k7 g, i2 Z
RowBox[{"For", "[",
8 ?0 v7 N" i6 K: _ RowBox[{; g- v+ S8 X. s& K0 L4 f6 N
RowBox[{"i", "=", "1"}], ",", ! g; M& {6 Y b9 R& C$ R
RowBox[{"i", "\[LessEqual]", "60"}], ",",
1 r3 U6 z/ G8 Y& R. s1 j$ G L RowBox[{"i", "++"}], ",", : \4 v( W1 W1 c6 _6 b/ _
RowBox[{- T; H9 B: m2 a4 A% s9 {, g
RowBox[{"y1b", "[", 4 N g; M* u" s2 k0 E: e ^' l
RowBox[{"[", "i", "]"}], "]"}], "=",
7 ?: e- o# s- H: g( ?# ? RowBox[{"Data", "[",
8 G$ Z! B; N4 R+ r! _" P+ n. Y RowBox[{"[",
, n9 a( U) z4 e' g! ^. n; o RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
A F, a( @9 B3 Z1 g7 H. i CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {/ P8 P# m9 n. ]- ]2 ]( d4 n: O
3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, 8 X1 i+ N$ i- L+ V p" r% b( ^
3.577922923203125*^9}, 3.577958246272369*^9, 3.5779584755771685`*^9, {
" x$ i5 l/ W4 X0 Q# V! z2 `! t 3.57795902089172*^9, 3.5779590227793226`*^9}}],5 ?/ X* d: r2 {% _& \6 Z# L
# U$ P- i: E1 P% K* f5 eCell[CellGroupData[{+ I8 q" s) o# H
" q% O8 K7 l) B9 o" i$ I* O- e/ g4 z0 h9 oCell[BoxData["y1b"], "Input",5 v& ~* {0 f$ }" b( g) Z
CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}, 0 d' Y5 H$ h. o" G, ?
3.577958484172784*^9}],- |3 D: F2 h/ z- f B
, t- d* q) c R6 E4 c
Cell[BoxData[9 g6 T! I+ i8 l( i
RowBox[{"{", $ C! x8 p. Q7 O' [+ q
RowBox[{9 W) `; w |9 N2 v+ s f2 ~
"0.873239`", ",", "0.464789`", ",", "0.492958`", ",", "0.774648`", ",", F2 ^& R; n- ^9 o, y8 ]
"0.380282`", ",", "0.647887`", ",", "0.56338`", ",", "0.295775`", ",", / @, v7 e; \0 t; a) K1 y2 d7 b
"0.338028`", ",", "0.211268`", ",", "0.690141`", ",", "0.43662`", ",",
, o! Y6 k, { D7 s7 K6 w7 v/ P+ D* e/ [1 N- a "0.`", ",", "0.267606`", ",", "0.211268`", ",", "0.408451`", ",", 7 [/ {0 C' R3 t/ O
"0.478873`", ",", "0.380282`", ",", "0.211268`", ",", "0.43662`", ",", ( z2 T- O% V* r
"0.478873`", ",", "0.295775`", ",", "0.028169`", ",", "0.43662`", ",",
" l7 M9 n* {/ b( d3 W "0.394366`", ",", "0.295775`", ",", "0.830986`", ",", "0.169014`", ",", ; y1 f/ E2 O, x
"0.366197`", ",", "0.309859`", ",", "0.352113`", ",", "0.309859`", ",",
, J: Z. \& ^+ E- }8 e& A "0.774648`", ",", "0.422535`", ",", "0.887324`", ",", "0.887324`", ",",
! g* V, a3 [& U. q7 C' N8 U4 N! W "0.859155`", ",", "0.239437`", ",", "0.295775`", ",", "0.746479`", ",",
6 R+ D; ]* ^0 ]% _$ M. ^. N "1.`", ",", "0.549296`", ",", "0.366197`", ",", "0.549296`", ",", " N5 W B2 ~$ _
"0.577465`", ",", "0.690141`", ",", "0.71831`", ",", "0.521127`", ",",
$ F7 n c; N2 T) F "0.929577`", ",", "0.521127`", ",", "0.338028`", ",", "0.380282`", ",",
. t* r+ G* B; }9 ~1 F "0.676056`", ",", "0.591549`", ",", "0.464789`", ",", "0.295775`", ",",
5 g7 H7 x$ L3 _$ v: n( v1 v# ` "0.380282`", ",", "0.211268`", ",", "0.253521`", ",", "0.28169`"}], : V5 L p2 {/ K$ b$ D2 F0 t5 t6 w/ G% A
"}"}]], "Output",
1 G( |- e: l" A6 |. }* |7 x( t! y CellChangeTimes->{3.57792293246875*^9, 3.5779582549771843`*^9, ; C1 n6 n, z# M, i
3.577958485420786*^9, 3.577959026460929*^9, 3.5779622288195767`*^9, * X0 ^, G6 L" s# ?' g
3.57801244275*^9}]
' r- j7 J0 o' X% R}, Open ]],# S) N* r5 g2 Y2 }5 ~
$ [6 C8 r! Z* R4 y) OCell[CellGroupData[{
( ~/ ~# S. o9 i S8 D. j: P0 W6 i! i4 C, q( |4 A
Cell[BoxData[- Q6 } M! f4 b3 b, _: \
RowBox[{"m60n21", "=", 5 v+ O7 G ~/ Z9 q& R( d) x8 P4 J
RowBox[{"Table", "[",
5 a7 [4 p' E1 E" Z, ^7 T RowBox[{% O" a* D3 G" n
RowBox[{"Table", "[", , I7 S( ]* W6 i# v6 u6 M/ z# U S
RowBox[{"y", ",", ; A, r- h; E3 s% n) P5 ^
RowBox[{"{",
1 s' U9 R @: L6 m {& u5 y" p RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",", ' @* k& r t$ _8 A3 [/ J
RowBox[{"{", : ^! _0 R* ?( R, f! {/ c% ]
RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
# ?8 {# D i! J4 E# A5 }+ u CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {2 _0 f5 K* o r% ~
3.577924052828125*^9, 3.577924101671875*^9}, {3.577962237961193*^9, - ^8 O7 x+ ?! o% k7 [
3.577962240082796*^9}}],
* [/ i* K0 y- C; c" p" a8 c" {; U0 u: x5 W
Cell[BoxData[
1 ~0 q: \! e# b7 x! y4 h, N: K RowBox[{"{",
3 A) `" f& |4 @/ J RowBox[{, ~9 D+ q, e% P! Y P/ }
RowBox[{"{", 6 A/ P; |- s+ e2 j! e
RowBox[{
0 p% t# Q! O3 @+ x8 r% X, I% i8 ^ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ n% a$ o; ~2 [$ k! \* @% G! ~
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
) w9 A3 o5 j" A9 m; `6 b( I "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! E J: x8 M! i% N8 w
"}"}], ",", " i8 J4 K- Q2 [, A+ v
RowBox[{"{",
3 ^% q- Z7 r" z/ N RowBox[{
4 i4 U5 ~: K- [- K6 p( e "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 H6 {& _9 V$ ` a- I3 ?& F( u ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
& l* D" b; u+ Z! [3 V# d9 b7 [+ o { "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 F+ F; T. u) X8 \; D
"}"}], ",", . g* J$ b2 [( G8 Q( H0 {. `1 e
RowBox[{"{",
3 d& Y" w; S3 l* u6 ? RowBox[{8 b+ u& o$ l+ j1 T6 P) X+ X, s
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
. M) g3 |9 M0 @4 h4 y( H ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; {; C4 D! x8 u) O6 j& U( P
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* I z# d* B2 c0 _4 Z, F4 q" p
"}"}], ",",
& c4 x) b4 D6 J8 t2 v4 [7 l RowBox[{"{", O" x& v- S* C0 u
RowBox[{1 I9 h% w+ K$ q: m2 h: V' j, O
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 r' ]' B$ A0 z' A% E! n. m. J8 O
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
, l+ [& h2 y0 b' m1 t ~ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
+ C. T4 U0 D) C2 y) w. O8 x# P7 [ "}"}], ",",
& H' m( C: o4 ?9 U6 c: s' m RowBox[{"{",
! p9 ^7 B5 @; X* } RowBox[{ h8 G, K7 r8 E- q7 w; r( j
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. @) t G a, i/ z [# A+ e8 s: P
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
) }/ b- ^9 ?: f5 J "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
$ ^ B- Q" y' o: g "}"}], ",", ) w% I6 n5 S" W1 W* R. k* @
RowBox[{"{",
' ^" t/ F1 U7 f; Y0 r8 j/ I! j6 K RowBox[{
' d9 y0 i# h+ b- m "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
* f% b! V+ G% _9 h S. {6 n ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : A8 U) d9 S& E7 ?9 q; }
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}], F. Y$ `& e5 Y8 P+ M
"}"}], ",", ( [1 P6 E) P6 F+ D
RowBox[{"{",
2 `; B/ K' x- l6 [' p9 a RowBox[{
^5 ^; Y2 j5 o0 t; J) w$ t! ?* v "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 y, U I8 Q% U3 r0 ]
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
1 R7 K- {8 O) b- X0 \' R; P "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
* C$ m+ n" O3 Y( m" S& s* [& p "}"}], ",",
! H/ C a. T/ ~4 n6 C8 _ RowBox[{"{", ) C6 Y( n+ O- ^5 ]9 h
RowBox[{
' Q4 A; C. q: d c6 H "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: W; f8 Q$ V& r- Z6 W& h
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
: z, j9 K9 J8 R2 M* p% K "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
" ?4 `) M' j4 Q8 v! B. e "}"}], ",", 2 Y& u+ e" G+ w L0 b5 r0 \
RowBox[{"{",
8 V! w( g! u$ O* g" n* U9 J& G RowBox[{
. |4 P' B) k; Y7 K& x "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
) v6 l3 k5 u) m- t ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' v: K m+ V4 G
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ c( f# w; W2 T; H! G7 v4 n! s
"}"}], ",", 7 R( @5 G; N& u8 }$ f% j" ~/ `- j
RowBox[{"{", $ `+ b0 Z R, O' C9 J
RowBox[{
1 u/ C( n' e7 M1 H "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
- r; C6 Y! T5 H# U6 Q& j" Z5 i ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
# z0 ^1 Y, |- ]6 e* g "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 K6 L, @2 v7 G' X) f$ o% X
"}"}], ",", , \- X1 v& C, E
RowBox[{"{", + J+ R/ @6 V+ ^
RowBox[{; u" c! z. D. O8 G5 N
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
Y1 q* g# H- ?! r ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
. w# {# h- ], I6 V' |4 D5 \ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! T B; I0 \( U- @ x8 N+ z
"}"}], ",",
* ]. N" `5 [: `, j" B RowBox[{"{",
, Q2 e& u6 G" [4 M, e8 G RowBox[{: J2 w- ]9 m! R6 i
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
- \0 x: K5 s( R ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 W. m) u. A5 K+ c- j
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ c4 o" A. N( ?2 {8 {: D& b+ N) C
"}"}], ",", 0 R' M' h. x5 ^. N/ t+ L0 V' O" G
RowBox[{"{", 3 B9 x1 Q6 X8 [! ^/ q5 T3 ^6 I. l% ]
RowBox[{
7 z1 u( Q6 g# f' x "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 t; d6 n1 F, J Q* R
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
1 j9 c' C; I- x5 ^. G- y "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
: Z N5 y+ a2 n "}"}], ",",
3 z O9 w' z2 `" o% F/ G RowBox[{"{",
- d! q& f7 ^; T# c) a L. A RowBox[{& X% S: i# G4 y N. m) `) D( V7 G
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
: O' J1 I+ T# B' E" N7 l, ? ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( O5 r* F7 L; _! \) g& U3 U8 H
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- B) ], b7 X ~/ p2 b" d
"}"}], ",", A$ u, d) F+ v) B9 T
RowBox[{"{", + `9 D' U( [9 R: J; f
RowBox[{9 m- W7 a; f1 n0 e, C" l, @
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 g" O% I: p! k4 A5 V ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 `! @$ S$ h9 i, `0 g
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! m( l. I: S5 u6 l9 h$ D. ]) ^
"}"}], ",", 8 _6 X* Y1 W$ q: ?( e4 r4 W
RowBox[{"{",
- f+ f2 t. |/ |0 _" D/ s { RowBox[{. h9 _! Q0 l0 G7 ~6 u' j4 v- h, V
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( f; E5 b9 Y' y, r4 O9 A
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
$ ^9 F E2 R( j "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; h1 S- n% ?. p* D# x) l "}"}], ",", ! S% ~/ N6 d7 k, V5 p
RowBox[{"{",
@2 A& p' H1 i6 `7 T0 v: T RowBox[{) K( t: Q2 c7 F! L+ i
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
+ v/ p* v& c" v ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
3 R3 V" Q X4 N+ X/ I; N3 T "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
7 k( X" ^: m2 i% t "}"}], ",", 8 d4 x! _0 H2 k
RowBox[{"{", 0 m/ O }; B. n# w2 D, V- K
RowBox[{
$ ^! [& W. l/ X3 ` e "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 ]: B) y. y, o9 n: R% b# x
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
6 O7 E2 G" _* u- \ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) V; g0 ]; j% [+ \& h% R "}"}], ",", - U( S1 q/ I; }- P" T( i6 T
RowBox[{"{",
7 E: T+ |3 n4 W |8 j# \ RowBox[{; g, D7 Z8 C: i
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
' u. d$ j9 x% x+ y+ \( i! M+ a ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
H) } {7 O; b6 V" m! f* I2 q "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& o" C* m( Q3 |% D+ E
"}"}], ",",
# j1 ~: d) [2 j4 _3 K* D RowBox[{"{",
8 S, I7 L& g: k RowBox[{
1 e2 h# G/ j5 ?! _1 P6 n "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
" x; H6 ^- t+ k6 s' c! D. j ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
$ B# A: Y' d1 f/ a! R "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
: f; C& ?1 p) J6 P5 ] "}"}], ",",
3 }3 l6 h: A5 E& I RowBox[{"{", ; M( l |9 m$ O2 h5 v7 N
RowBox[{& x9 |8 o5 U' b
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 J; @9 B* y& P/ P; P
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . U7 ^& x1 v, q; }+ b; L
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
" U1 r f+ m6 b7 s7 D "}"}], ",", - M2 a) \. m# L# @0 L
RowBox[{"{",
+ ~7 ~9 d# p7 ^% E+ H: x RowBox[{3 U% D- g3 T% z% i$ C" x
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 f! ^$ O3 j+ G! R
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( }# O4 o! ?1 h) A$ V: z6 |4 w: b
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 r) e$ _# m, v4 Y" m3 u4 t
"}"}], ",",
, r# S$ u. n& u4 i/ K% J RowBox[{"{",
; e, u1 o D! _+ V4 Y' u5 W: j RowBox[{
, Z; N6 C4 N B- Y- h0 M& f "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
: ]3 `% [( E" p8 c9 g# r* b ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
' [: \: x" M% A, i "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
7 w5 |- k' M0 {" Z5 M "}"}], ",",
8 Y% R$ d. T: n5 d/ S3 G RowBox[{"{",
- _! p- z6 S v% ^ RowBox[{
+ {" L1 a' k& _ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( T8 T0 N- g, K' v
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , s# ]) }3 ?; ^
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
* C8 |) w. {( B( s "}"}], ",",
9 X! r# k7 m5 t' B; j* U4 o( [) M RowBox[{"{", & s4 e V r9 B, ~$ t1 k" H/ K
RowBox[{" s! r9 b& V3 ^" ]! d9 T
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 X: j1 t8 x2 H' j( Z: o
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", j7 g/ W5 ?( P# r- r+ \7 V) _# q
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
+ M# L$ Y. k) L. [- r "}"}], ",",
5 A# `" \0 K9 G( g' U7 R6 |7 ] RowBox[{"{", / x# D( T" W% r9 Y) W. k# z* `
RowBox[{, e* B9 g' Y1 \
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
, B1 B9 x" J5 i ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
/ s, X9 m' M6 x0 ^$ r) P+ `: ? "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: U g, O' k7 s% c5 n" _' N
"}"}], ",", 6 |5 Q$ G% I* s, J) v
RowBox[{"{", , ~3 `! z9 H! V+ M$ G9 G1 b
RowBox[{. ^! N# H5 c1 t) g) Q* `
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ G; J: s1 [ v
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " [* S+ U% z) Y; U+ x
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' h6 Q# p% z* M6 i0 X, k9 _
"}"}], ",",
& r( t, C3 I* M, @1 ?9 n RowBox[{"{",
8 g* {( u+ r! K# p# F( `/ n RowBox[{
% P1 a, E9 K! I( S/ l* ? "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& Q0 B" c2 o+ b3 f- i- [. _% [) F
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 H v/ r, i5 N% [4 q- I {
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# k9 |# q( |- c7 x4 {- k" `- w& y
"}"}], ",",
6 P# Q* v5 x9 ` Y: C8 i# U RowBox[{"{", ) _' w( J6 g5 f* u
RowBox[{# _% {+ W8 l5 Z7 x4 D
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
- w5 M5 Q( f5 e4 [ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
+ r+ Y$ a& l; H s) N* s( M2 i "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
& V/ H6 d W. J% O "}"}], ",",
4 k% ^; z+ n+ ^ RowBox[{"{", / Q& o6 e7 i1 t7 Q+ t* f, y4 C
RowBox[{$ p7 f: I! V2 N$ E. S
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% ]7 ]( e7 @1 \( C$ {6 f/ v
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
4 l y. `+ w. ^( m5 L "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 S, v) W m* [* s* y
"}"}], ",",
4 Z2 H( y0 l7 z RowBox[{"{",
4 ~! o) H3 w# y. x RowBox[{
9 }3 d( B# W" L! X: u* t" u6 ~2 E0 J4 m "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
* U; k d2 B9 s7 I, g4 T; j ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
* g9 F% Z; M# e/ O/ Y "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ B R4 ]* o0 | Y" R5 j* u
"}"}], ",",
2 I% H& _8 U0 U( Y( N! ? RowBox[{"{", ( e/ C) a$ { y- F5 s! E* V
RowBox[{
$ E0 W2 ` C, c7 E. o7 ]) A' p "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
8 {1 Y% \) m# R1 K# S$ x( j ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
5 p3 p& o, S' P9 p2 o "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ a0 W" D. M# v+ \# E
"}"}], ",",
; T& l# S4 d @4 z RowBox[{"{", $ N' D1 s# A# U+ y2 U: q j
RowBox[{: k0 Z6 |$ b F, j4 p
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! v( P0 ^2 r ?
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
0 Y) y) X. |0 e' ] "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
, u# b. ]- h& y! q( D "}"}], ",",
) l: O: E; D O5 p) o6 ]% Y RowBox[{"{", 8 |1 N! A' A, w' f4 _8 E
RowBox[{
0 j2 H9 C0 T; ~* C" c/ L "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ a8 g9 s% C2 W( Z5 E K/ J( Q ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) V4 R8 X. o# l/ |
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
! Y7 _5 f' X x: H! ~6 [: @) W "}"}], ",", 3 o+ ]/ C9 s$ q+ w) q/ Q' ]0 B# `
RowBox[{"{", 2 ~0 z# o7 Z( c9 i+ m" k ~& ^
RowBox[{
7 y; H8 l- I5 }" t8 |$ L E9 \ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
- ], g3 W) F7 J# I9 W" \ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 [8 Q5 O9 D0 |
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
6 H/ w- E4 M4 V; B% J "}"}], ",", $ c; c! V1 r9 T9 C
RowBox[{"{", ' i# H: H3 C* i
RowBox[{
1 x% o" \% }4 ~* M5 T! V5 H1 @ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ o$ g$ S8 h% m" D& x6 X7 ?5 l7 r
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - ]2 k; g2 a$ J) f1 I1 d
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 j% W* }: Q* d, j) s" K" q g* W
"}"}], ",", 3 p4 q4 n% A3 A( d1 f" `# O
RowBox[{"{", + J U; m& C" X* ? k! y9 y# q
RowBox[{
: Z, g; P* T" t/ d+ l/ _2 l "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
( l+ h2 U" l1 f ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- L6 a) ?6 ~7 q1 ]6 ~ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
- b& ^- [, i$ p "}"}], ",", 5 A/ h' X$ o) b5 x4 A
RowBox[{"{",
! V+ _ r! }% O _9 u, \2 t RowBox[{ |8 [: j d$ v; F
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
# G. z4 H) }0 B) V# C ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
, W1 [0 I* ?7 J" X# n9 ^2 e "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
! h+ J7 _* S: e2 l "}"}], ",", 0 A! {3 @4 {/ j4 _0 v' G
RowBox[{"{",
0 u0 w( l5 j2 R( r RowBox[{3 J% {) n0 X [8 [. J. K2 ^
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," o' V. y$ G+ U& \9 E5 {
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
/ N7 p( W$ n( X1 I2 p( f0 [$ ?8 L+ a "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' `# a6 W% L p; z "}"}], ",", & U/ ^3 S* t" a+ i
RowBox[{"{",
/ i7 T, t; u6 h, i" H3 L- _ RowBox[{
3 M# _7 J0 J+ `+ q "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 H/ _! e0 F6 \$ ?
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
5 g) T: @0 Z N6 M "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 n2 f f1 V; {2 o- k' E6 |
"}"}], ",", ) ]" f. P% ~$ E) L8 T; k
RowBox[{"{", + }5 q$ z, U2 ~( X" e# E ^
RowBox[{+ ]0 V1 [8 d* g2 k& G# M+ T
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ R; C5 [& i9 ^$ U
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 k; Q; W0 x2 E" d* o( D
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
% E7 u+ x& ^' u+ y5 T9 S "}"}], ",", 3 g" O) V7 Z- U" x& e
RowBox[{"{",
" k3 R9 e# N1 Y$ k RowBox[{8 z4 X0 l1 f, N8 K7 R
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 Y% p, C& _& e: X+ h; b
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
+ Q1 F1 c; Z1 E" {" k) v, b8 H# L "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
8 o& ~1 j8 A$ j4 M; q( o1 f "}"}], ",",
: L/ `. D$ h6 B' A2 W. C; F1 C RowBox[{"{", & w5 R. @- |- N
RowBox[{1 j1 \) X4 a. g
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, W- W# u% u2 A7 k5 m3 s
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
% [, I! w8 \& _1 g# E. F "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
6 Y1 M+ M8 C; ?( ]/ f) M "}"}], ",",
1 V7 a% R( G+ ^0 H RowBox[{"{", : K% z6 k3 ]' d8 G
RowBox[{' V. ]8 O) V0 r4 `0 H' _6 x
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
% g5 C" T: } H* n' T ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 ^% I2 o9 _$ m0 L7 q$ L6 L
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
9 H5 T8 M, \/ L "}"}], ",", 3 b3 q5 D/ i* n# z
RowBox[{"{",
* O' j/ ]1 S( r6 \% r# R( N; U RowBox[{
, W, s9 l5 W. E; g& X o2 h "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 x! G+ ]- e0 o6 Y ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
/ ]5 T k. m5 Y/ Q% e1 h "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
* _; w! @3 z+ Q" z2 S7 D7 ^ "}"}], ",",
+ ^- M4 e; W$ @; G: s' I; s0 }4 Z RowBox[{"{",
$ N L/ K2 P0 a: {+ k RowBox[{8 l' u5 X5 s. V. K, S8 \
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: @/ y7 l h3 Q; [7 @ |
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
. e" }( t. I+ K "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
7 `; _% r* }/ I1 u% L) \ w "}"}], ",",
- \+ V( ^7 \0 t7 j9 y/ T RowBox[{"{", , p, ^6 D. F* F0 R: j$ P
RowBox[{
5 ?/ N1 y( Z! L) y ?* `% k( ? "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 e" _- @# k, c+ G5 f( e6 Y ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
% d2 c7 L9 e/ d# I- m) L "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 B$ y4 K% y" V; g" R( n& B
"}"}], ",",
k2 I7 t% r# ~( l RowBox[{"{",
$ g, I! {3 @" r" V# U& J" k RowBox[{
3 H( D4 {7 T( k! G% ]8 ~7 \ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
8 g% G0 v, y$ m% t1 q ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
' z* y& o+ y2 K X, T. l6 D0 b "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
2 M) v1 W, E2 p; c; Q2 } "}"}], ",", & _. \2 G" O+ o8 w' z
RowBox[{"{",
?% m' I# H1 N; c" D) n& L RowBox[{
* o i6 u. E2 C7 G' o5 i: t "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, e/ F' w) J. l) B# O. l
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , t7 e% d9 j7 t* N2 ?
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
1 r; F3 i8 l4 c1 W "}"}], ",",
' {% v. M5 N; c/ I% W6 f RowBox[{"{",
B* O, Q+ j( @ RowBox[{
2 C1 T) N! T- v0 z( F; r3 t% z "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
; ~' R5 t' s8 R/ K$ [ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
0 O9 H* A/ |# u( |4 v/ C! V "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
( u5 j9 ~- }; ?$ K8 K "}"}], ",",
9 D9 v3 W- j$ ` z. M+ \; m' d# O( U RowBox[{"{", - c6 X; E1 L4 X ?, H
RowBox[{
' s3 X& _% ^' n% \6 R8 q$ _( ]/ L1 g "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- d, Z" L# n' g. g
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - c0 Y* h4 Q! o
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' T) |" x, Q. {! M- N! ` "}"}], ",", 6 s5 {, f( ~, ?; ~! n7 V& M+ d$ p
RowBox[{"{",
" V1 v2 Z6 ~* h1 K RowBox[{
9 n; w% o7 `0 V6 E "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 o3 a* a/ E4 C
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( w, A( q* g# E9 O8 k6 E% I& v
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 C4 ~" V) Y: h: `/ @* r
"}"}], ",", 6 K, a( ]+ F! O& [5 F& q
RowBox[{"{",
, x( i+ y t% ` RowBox[{ r5 @7 K# W+ i$ F# k# @0 v4 o
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 k$ ?2 k8 Z! o9 c1 ^+ h
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
4 j$ p% D" I# M0 x, C; Q "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
9 H( D, F; k( W "}"}], ",",
R& d( v/ Y; d' f RowBox[{"{",
8 J5 z s" Y( d( G c4 z RowBox[{0 h4 X% D6 n; A( N1 c
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 X0 e7 g2 p& z% M5 P* |* ~' ?' X } ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
5 V6 @4 e4 j7 ]$ Y% w0 |+ n7 h; v "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ |+ V I" j9 ^/ j
"}"}], ",", 5 B9 J5 B: @9 {# j" x
RowBox[{"{", $ |% y( q8 W2 c) B2 R
RowBox[{
E& S! x% s9 e) {2 v+ ^% v "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ {8 Q9 d B- ? ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . G) j$ A) F$ f, X C' W2 n
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 S7 E N5 a5 E4 \9 c( {
"}"}], ",",
$ l2 }: O. Z4 [# v& {2 B RowBox[{"{", + ]& j0 [! x: a8 o
RowBox[{. O8 E" T# R0 f1 o3 G0 V$ F$ R
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 m# Z% t% I/ y, d4 [
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
8 i& J$ p0 o1 ?% t' n6 R "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' x6 D' z: i U0 }+ R+ L- ?
"}"}], ",", + K0 A7 Q9 z; e8 T3 N
RowBox[{"{", + {4 _+ u8 D8 |: q
RowBox[{
3 A w* k* M6 y" l8 e( W' o# A& V "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
( o* S; |* {* ]4 F. F4 S7 T, W& s ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
! ?- k" U: S/ B, u+ l. U- A "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 H" @3 f2 |. l- m1 F8 D% }
"}"}], ",",
" l* t: Q0 z, Q- t7 {5 Z RowBox[{"{", ( u; A" ]3 C5 h. E6 R" P8 {
RowBox[{
6 |* U% N8 T i9 W( b, n "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
0 H2 T1 ~/ n( Z3 `( e6 B, x1 a ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / B) L% A0 }* m7 z7 i' F4 |2 G
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ u- j7 v0 Q' q; V( y+ U' P" B9 u& A
"}"}], ",", ( t6 H5 ^( N! Z l2 I
RowBox[{"{", 2 g& J5 Q3 i0 [' M. ]. H( W# z
RowBox[{9 [! n% i- R, D" \
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ W9 `+ |2 Q$ \6 S, b. W0 q9 B
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
2 L1 v, e8 q5 V' k2 n "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 F% d! C1 D+ [9 F% O+ T
"}"}], ",", : B, |: Q4 Q' a$ y; \1 p& V( D, q
RowBox[{"{", 0 E6 w% |6 J. Z; O9 C
RowBox[{
/ U" F7 p& Q* a1 d# ?5 G "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; L% C# @. p6 k3 E/ {' [- y* D
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
1 ?- i8 i& S$ z+ y: Q "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," G/ C+ {6 U! I+ Z; ~
"}"}]}], "}"}]], "Output",
! U- ~. K |; }$ J CellChangeTimes->{+ |( H+ f* C" C* K
3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
$ P( T, I; V r9 F2 l. x# n! U9 ^3 m i 3.5779582609987946`*^9, 3.577958492393998*^9, 3.5779590297369347`*^9, ) @6 [9 D4 R, q- l- b
3.5779622422980003`*^9, 3.578012443890625*^9}]1 H0 [9 P1 O# y# B8 [8 B4 Z9 r
}, Open ]],: r9 L H/ q; m" }& @5 ^
% N [: M" c* l* v6 q* O% x* i
Cell[BoxData[2 G! q! p- g) R H1 K) ^! o5 b
RowBox[{"For", "[", - q4 |3 w# ]% ^5 H- }0 u1 L2 |
RowBox[{( i& u+ X$ p2 G5 u
RowBox[{"i", "=", "1"}], ",",
9 j: H! l; k& M3 v% K4 x- V RowBox[{"i", "\[LessEqual]", "60"}], ",", " }9 A* O$ k$ U# X1 u# u5 x% _
RowBox[{"i", "++"}], ",", ; U/ z) }8 n( Q8 d* {, [. J- K
RowBox[{"{", "\[IndentingNewLine]",
" Z! _# e# b# L/ M6 Q RowBox[{- }9 w$ h4 M, [4 i
RowBox[{+ X. C2 N+ x2 u3 q% U
RowBox[{"m60n21", "[",
; g+ R0 ~0 H( L+ L4 \4 ^ RowBox[{"[",
" D2 k e) ~( ^ RowBox[{"i", ",", "1"}], "]"}], "]"}], "=",
* A* f6 G: g5 s3 u$ T RowBox[{"u1", "/.",
6 t* m2 X2 M( ?; s, i RowBox[{"{", # |' l* |; s* S" m
RowBox[{! T) ~7 V5 `- j( C5 g" o2 X
RowBox[{"x1", "->",
3 w# s6 { A2 L: [ RowBox[{"Data", "[",
}& c' k) |8 w- h: L: I2 E& S0 @ RowBox[{"[", 4 S8 U4 H4 `; l1 r, Z4 \; c
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 4 H# A. {2 X( Z
RowBox[{"x2", "->", - t& ^/ l, q8 w8 ~, p: }6 x
RowBox[{"Data", "[",
. N- ?, o3 D. O RowBox[{"[", " |% _- f& l- ?8 u: H; m
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", . |! i. U3 w d9 v. m* C% Q
RowBox[{"x3", "->", 6 [6 }4 |5 A# m$ o' A* T3 ~; X- F
RowBox[{"Data", "[", % b( ~ x6 |+ S% \! d2 |
RowBox[{"[", 4 ~. ^2 B+ ?: c
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 3 @/ I: a; x: S
RowBox[{"x4", "->",
3 p% w3 l; a4 S0 U) B \ RowBox[{"Data", "[",
5 Z) y2 w( Y6 |( P3 y! K RowBox[{"[", ) y# w, I l8 x( V
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
! m/ s/ \5 {9 K7 [; h z RowBox[{"x5", "->",
4 z9 F5 M# h% A' z* f j RowBox[{"Data", "[", , J. M/ ]" X% h" i5 r6 s
RowBox[{"[", 1 n: C3 |: D1 v! i. ~
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
2 F/ w) f( w: I5 [ v* f% W" O RowBox[{"x6", "->",
% p4 Y0 s, ?9 {! v% H$ O1 x4 V RowBox[{"Data", "[",
* J; Y, v7 N/ q- }% D$ `6 r4 i( S RowBox[{"[", : ]# T P. f# y& K3 `* K
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", + f) q. O \/ P( N4 [1 b6 b1 h- f
RowBox[{"x7", "->",
9 h# f0 ~+ x5 ]0 ` RowBox[{"Data", "[",
0 q" A1 Y* U" c6 K+ J RowBox[{"[", 1 v( Z+ F, k( N- k( H5 }
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
' e0 _5 X% k; Z' I/ l RowBox[{"x8", "->",
# ]- i3 O0 c1 e( R2 } RowBox[{"Data", "[",
' \6 S' t% E+ H2 d RowBox[{"[",
/ V) H9 P/ {: q RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
+ h. F( Y& n. y) C% V$ L# [ RowBox[{"x9", "->", # ?0 y5 J0 }! f! J! G" ~
RowBox[{"Data", "[", ; K, u, q1 \2 Y4 C( _
RowBox[{"[",
; K$ m0 g$ P7 U7 y, K$ }; u5 G RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ) Y0 z0 j. F0 o# _+ l
"\[IndentingNewLine]",
6 }# _! C+ y5 E' `* U3 u RowBox[{
J( S. U2 C( S& C- J( ]; M* s RowBox[{"m60n21", "[",
0 W4 _8 R+ f% e RowBox[{"[", 4 ~7 A& d4 E+ W
RowBox[{"i", ",", "2"}], "]"}], "]"}], "=",
: K& T- T# I; K/ a5 x. X& o RowBox[{"u2", "/.", ' z8 Z! _/ e( m/ z3 A$ `0 }
RowBox[{"{", - z1 K! I5 B/ O7 z
RowBox[{
5 ?# c; {6 }: v$ A+ X0 f. i RowBox[{"x1", "->", ( Y. s" o$ ^6 x. A
RowBox[{"Data", "[", 3 o: g: ^/ W9 x7 i# d
RowBox[{"[", 5 k/ S, B6 }% o1 T" G
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ; W+ m! V" s: X* w# `" v. S
RowBox[{"x2", "->", * b- F5 ~- B; n5 t: K
RowBox[{"Data", "[", 8 T" `/ |4 V3 W
RowBox[{"[", 0 _8 ]! ^2 V( c6 l) J! Y# ?
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", - b$ P+ ^3 K5 j5 ^2 ?: Q% i
RowBox[{"x3", "->",
: ^8 k u# r3 y/ _: k RowBox[{"Data", "[", - J8 A1 Q# ?0 X: I+ A* M# O
RowBox[{"[", ' [# s1 g0 H3 p0 r# E2 C) M! ]- b9 ~
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
. L. J1 A) d0 u, b2 d& Q- f) d- ?. k RowBox[{"x4", "->", 8 {& h$ Z' A/ f' B# Q S
RowBox[{"Data", "[",
5 j+ E$ U/ T' m7 }. r9 M RowBox[{"[",
8 _) P- G* s+ x: O" J8 W6 K8 k RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
, o. A4 `) J8 F, O RowBox[{"x5", "->", - ~& e2 ~/ D) k T* Y8 n9 ?2 A Q
RowBox[{"Data", "[",
; H" I8 [& |0 M9 {# o! d( q RowBox[{"[", , ~, s& K1 W& l2 m5 l# f; y
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", - j3 y( p; x0 f& y
RowBox[{"x6", "->", ; p9 o9 ` D+ c
RowBox[{"Data", "[", 4 v f( z, n8 Q: a
RowBox[{"[", $ P/ \ @5 V% ?; b- X
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 3 u& `' \9 L7 v# N: j% D' o
RowBox[{"x7", "->", 2 ]# Q; q! z. k; A) U% g0 s6 x6 r
RowBox[{"Data", "[", , g/ t& e$ q( k3 }% J
RowBox[{"[",
5 W' R9 j B9 v3 J* \0 P3 K RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", $ E- M! t" A4 B2 x( ~
RowBox[{"x8", "->",
$ v3 s+ o3 V* d RowBox[{"Data", "[", % t0 Y6 R/ _& N$ e
RowBox[{"[", 2 B; }6 T/ T! S( i
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 5 A$ p; k7 B G) _) U# O q' D; o
RowBox[{"x9", "->",
2 S( x6 y' R# e7 b a( O1 o RowBox[{"Data", "[",
3 {& c# v C' `$ N- `) r g RowBox[{"[",
0 z) R1 i% o0 I RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", & j! s) a8 x+ Q- [8 ?; S4 h
"\[IndentingNewLine]", , s& J, q7 ~3 N p, d
RowBox[{* X1 f5 K' T4 g1 _6 C5 p% b
RowBox[{"m60n21", "[",
) N0 P& X5 C% m: k9 ?) U4 U1 } RowBox[{"[", . S# _* q" C- W9 P
RowBox[{"i", ",", "3"}], "]"}], "]"}], "=", * X8 V- J7 C' O" T2 e
RowBox[{"u3", "/.",
6 l N) v+ a3 w* P" ]: I8 m, [ RowBox[{"{",
3 h! V( w$ m7 [$ h! S+ `1 g! o RowBox[{
& X" q5 R' d( ?% B( e8 u/ h RowBox[{"x1", "->", ( O# s- J+ T1 W7 Y6 _
RowBox[{"Data", "[", ' ^" R% O, b7 v, ^: j8 t0 _1 I m
RowBox[{"[", 7 r2 t6 }$ e8 A. S I
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 7 m M, W+ O6 O3 m6 o3 j
RowBox[{"x2", "->",
) b, z8 n7 w* p7 v RowBox[{"Data", "[",
* A3 H: r+ d/ n' `3 x RowBox[{"[",
; m; J5 c0 Z; \ RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", + V& i1 Z# I* G7 O6 c- j7 s
RowBox[{"x3", "->",
4 R6 q: D- j# r9 s6 d RowBox[{"Data", "[",
9 J* Y1 |6 O1 W0 e. O5 c RowBox[{"[", + A$ _2 I7 \3 h2 ~( i6 V/ k' j
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
* F* p8 Z- E2 Y: z' U RowBox[{"x4", "->", / O0 P* Y( V7 M" o/ l5 D# h
RowBox[{"Data", "[",
9 z( l8 f8 g0 N4 ?6 k RowBox[{"[",
3 T9 x$ r7 L" S9 [' D9 b. Y RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
! m* j' v0 N! y0 W RowBox[{"x5", "->",
' n( x; d: Q4 L# k5 i# d- A+ S RowBox[{"Data", "[", * h1 h# ~9 g( f8 A# M/ K
RowBox[{"[",
2 |5 k- o" k+ i( g% ^* X RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 6 m4 ^; h' W: q- }
RowBox[{"x6", "->", 0 S- \* A$ [4 q1 p& l
RowBox[{"Data", "[", + k$ d; u. Q' r4 B; D6 a/ ]
RowBox[{"[", 3 p% [( t7 b* o$ x6 s
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", % f+ d$ Q" Y) W
RowBox[{"x7", "->", 3 L/ s" m" H1 G! ?. |& N$ [; r
RowBox[{"Data", "[", ! X; {8 e3 u2 ?
RowBox[{"[", - E, N0 D: ]7 i3 [
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", & i$ t1 J' T: O5 a! G6 O" D+ H" x
RowBox[{"x8", "->",
6 `/ Y1 u/ Y0 m+ W! {( ` RowBox[{"Data", "[",
9 |8 ]* Y" l# C) x( \9 B% V. Y4 E RowBox[{"[", , A- P& a* Y1 y- |
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 3 U; K" G# d* F5 ]5 H6 H0 w
RowBox[{"x9", "->", " [8 J; t4 E( x/ g
RowBox[{"Data", "[",
0 x9 ?# O5 {/ } RowBox[{"[", ' y4 h& M- Q! Q% t
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", & `+ {& u! b# {
"\[IndentingNewLine]",
+ R' ?# T8 k6 B7 e1 ?( ]5 D+ p; w5 R7 D) L RowBox[{* j, Y" E! r& _# z' Y/ v% R
RowBox[{"m60n21", "[", 9 b$ m1 t) v! l7 W6 a4 P! }- w2 [
RowBox[{"[",
, z5 @5 g; q5 o RowBox[{"i", ",", "4"}], "]"}], "]"}], "=",
4 [5 C! h8 `( L9 [ RowBox[{"u4", "/.",
. R5 s3 }- s G! r* x# P RowBox[{"{",
; ]/ a7 v- {) M' J RowBox[{8 K' t; O/ [1 Q# {/ ?6 N) d) j
RowBox[{"x1", "->", $ A1 m# C5 P' o0 j
RowBox[{"Data", "[", 1 x# D6 X4 W- F& c" J
RowBox[{"[", & V+ x! `. ^6 C. I1 i4 S
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 6 L- n0 o9 w$ ]+ U) L
RowBox[{"x2", "->", 7 w! W, j, F# W- U3 e- I
RowBox[{"Data", "[",
/ k; B! R8 k/ W$ V% r5 B& w$ [ RowBox[{"[",
) ^6 Q: J. f1 n1 I0 }; }- N RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
1 m, x! ^6 a! `) B+ Y# J+ P RowBox[{"x3", "->",
8 n4 D6 h* B- Z RowBox[{"Data", "[", ( O- f C- R2 g, n
RowBox[{"[", 3 ]+ W0 A; U: u- ^! L
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ; ~( G4 D1 N& ? A; Q
RowBox[{"x4", "->", ; w+ P7 [# w" e
RowBox[{"Data", "[", ) e4 t @3 B3 l; ?
RowBox[{"[", 8 @4 i2 G4 L$ G$ Q
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
2 r. x8 d2 B6 W$ {3 n- k' E! h) k RowBox[{"x5", "->", 8 F8 G& R9 r2 M$ D$ N( u& [
RowBox[{"Data", "[", . n; c# I2 [3 ~/ C7 g2 A
RowBox[{"[",
/ p: M: T. Z: [# b RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", " |2 K7 h8 g! d; I6 T
RowBox[{"x6", "->", ; l' F/ v. k9 X9 D3 f; H% x V
RowBox[{"Data", "[", 4 }7 T. J" b, e' \3 V* \; t
RowBox[{"[", # W7 S/ I' l8 E) p; t
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
) D6 u* K6 h/ r. J+ B RowBox[{"x7", "->", 2 R7 n2 e" w" n* \7 p3 o! P2 p5 I
RowBox[{"Data", "[", 6 k% [, i3 U" _5 t' q( I4 E
RowBox[{"[",
/ M1 o2 j: b+ ]( ]- w) A* m5 m RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
: u) D5 A B! {; m RowBox[{"x8", "->",
m" A; }5 u2 A2 C0 n RowBox[{"Data", "[", 7 F3 z' \6 K/ ~% T
RowBox[{"[",
$ J/ o) r9 [8 W/ p5 X RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", % C; r& q6 X/ Z- R
RowBox[{"x9", "->",
1 q/ k( }) V$ K5 N! J- B( | n RowBox[{"Data", "[",
+ l0 K' p3 z: \$ d3 {! `9 { RowBox[{"[",
4 \0 \8 b2 [ D/ e RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
1 o r2 v$ L% x7 o- M; Q7 X "\[IndentingNewLine]",
) c# f- T2 A+ I- ? Z8 r- ~3 G z RowBox[{5 x) @: L* ^) v
RowBox[{"m60n21", "[", / c, I; i0 l9 s
RowBox[{"[", 7 P0 A' @ I7 \% e; _2 ~
RowBox[{"i", ",", "5"}], "]"}], "]"}], "=", ' ~3 R( E+ t/ h3 |
RowBox[{"u5", "/.", , J& h- \2 _- W$ s7 j3 e+ x. D
RowBox[{"{",
8 k; Q' `) Q/ Z' S RowBox[{& G5 {4 c* D E' j; W
RowBox[{"x1", "->", 7 w+ f* S7 {2 Z4 t
RowBox[{"Data", "[", / e% ], n9 F) G; H; Q' _
RowBox[{"[",
& L7 J$ Y; Z" |4 S RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
6 h2 T9 p J( r) U9 X" X RowBox[{"x2", "->",
5 L0 f4 l f/ B# Z( c8 R RowBox[{"Data", "[",
6 y$ |9 A. ?: o% m9 D7 ]- x RowBox[{"[",
( K( g$ G6 X* U. E RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 4 R) x& }" E( Z
RowBox[{"x3", "->", ! a, ?$ p7 \' |# L
RowBox[{"Data", "[", 0 K" X. A: i; u& C
RowBox[{"[", {& U( O+ H" n7 c
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 6 U3 d" A, \# u. r
RowBox[{"x4", "->", ! O5 |6 a5 v8 B, \
RowBox[{"Data", "[", & |1 d& P/ y3 g) W; G
RowBox[{"[", , F' ^& }. J- M1 c
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", - j0 b6 N7 R/ I
RowBox[{"x5", "->",
" C) Z7 D& T: g$ E RowBox[{"Data", "[", 3 O) X9 a* Q0 V$ z" V7 N5 M) q. z
RowBox[{"[", ( m! c. ~$ a2 D2 S2 r
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 8 z& T6 _/ E9 f
RowBox[{"x6", "->",
7 h- l9 W: l2 M RowBox[{"Data", "[", : ^( D) b# l8 z1 r) Z* ]# Y
RowBox[{"[", d! j" C. U9 G+ E% I
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ) T' Z! b& ] T* c1 H
RowBox[{"x7", "->",
( b e6 j; w# n' ~" p u RowBox[{"Data", "[",
- M: q* C, ]! z& n9 k RowBox[{"[", $ g1 c. D& w- }/ T4 d+ E. Y
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
- v! I" k, N( W! | RowBox[{"x8", "->",
5 L$ v7 X- G2 T RowBox[{"Data", "[",
* s$ _' p9 r7 j1 @ RowBox[{"[", 0 ^3 u& a/ g( q8 ~' A% k
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
, y5 F9 c. |3 F% t RowBox[{"x9", "->",
: h3 X% c+ [! j# O& Q- h0 \ RowBox[{"Data", "[", & `4 g; {. i1 |* T
RowBox[{"[", 2 {1 E6 g% D4 {" ]
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 9 V l+ a1 m$ q# ~1 E7 l( D
"\[IndentingNewLine]", : W" r. b$ z" d; H% e+ v4 w( b0 i
RowBox[{
# f7 N+ t* x: K B RowBox[{"m60n21", "[", 2 j4 c( Z9 S7 L5 d: F D3 b1 h
RowBox[{"[", ! |3 t$ J2 F# p8 W& f
RowBox[{"i", ",", "6"}], "]"}], "]"}], "=",
8 `' {2 `. w, I- w) k9 z/ l RowBox[{"u6", "/.",
7 `0 q; W% S$ y* {1 M RowBox[{"{", ( q8 O5 ]* o7 `) F0 N0 M W* p
RowBox[{
4 }( ? H% |: j a6 t& B3 _6 J$ n3 N RowBox[{"x1", "->",
$ B: I9 ^6 _# M' g, v* K RowBox[{"Data", "[", ; O0 J5 Q5 i+ a7 O, }4 R
RowBox[{"[",
: M" X9 v8 ` c, a1 W RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
; a1 X& u% y/ T RowBox[{"x2", "->",
* Y* \2 ?. X, f. Y$ s RowBox[{"Data", "[",
7 h/ _0 j$ r n2 `+ ~ RowBox[{"[", . R2 Y7 W4 w# `2 i" s$ D8 X
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 8 i4 \+ J6 P( _. G7 G/ N! O0 \
RowBox[{"x3", "->", / `" @! \% |9 }- m- y, A+ |
RowBox[{"Data", "[",
; Y% ?$ F3 B: { w% r' f RowBox[{"[", % T% b# b( E+ s8 o2 |+ s
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ) D; r8 t6 @6 T) a+ _
RowBox[{"x4", "->", - w T( y, b. x9 z- q8 i& u
RowBox[{"Data", "[",
- u- F& ^7 a) s+ } RowBox[{"[",
- X, Q% E# {6 V RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 8 C g9 ?3 M0 Y+ h0 p$ t7 j. F
RowBox[{"x5", "->",
/ X4 h+ C' u9 X- n) J4 z! z RowBox[{"Data", "[", # @7 Z0 C3 a8 W
RowBox[{"[", # ^# s4 }* {( G8 h+ P
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 5 @4 H) s% O, h+ u" \0 [
RowBox[{"x6", "->",
, t1 [5 A$ D. G8 N- h! L RowBox[{"Data", "[", 7 p1 \7 m& a' e- M" K S' s, c
RowBox[{"[", 1 l( I) A' N% t! J/ I
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
% k* W/ h( p( g6 }# e E% }9 V RowBox[{"x7", "->",
0 g( n0 n" m. a) a) B* a; _ RowBox[{"Data", "[", - i" u1 s" M1 L. w( q) y* ]
RowBox[{"[",
% @. k4 ]! W6 K! |7 A5 R& O( h RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
* k4 F2 w* W+ g% a5 e5 b. s RowBox[{"x8", "->", 8 @( G7 W3 G& L4 O8 r
RowBox[{"Data", "[", : w. h" B' K$ o% b
RowBox[{"[",
2 B% [! L# I) P1 \ RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
9 a- `$ p0 ^' a/ ^3 ^ RowBox[{"x9", "->", . D: x+ } R2 t8 ` M, m
RowBox[{"Data", "[",
4 T0 f9 e! L& c* c3 ]0 @ ` RowBox[{"[", / Q1 p0 d, W, C3 H2 k& c8 c# m
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
4 {! x3 i' n; x1 [# X "\[IndentingNewLine]",
6 E8 W$ D: [6 P: D RowBox[{
* v0 i8 p5 M2 |- ]9 N, | RowBox[{"m60n21", "[",
2 Z# @9 D' L# L# b, ^; \) ? RowBox[{"[", * E8 d- J' o8 `1 w" g; ?( z: s
RowBox[{"i", ",", "7"}], "]"}], "]"}], "=", 4 o1 {7 s' T- f
RowBox[{"u7", "/.",
# l) Z( X+ r7 D0 }. {- J% d RowBox[{"{", % X0 Z" c* @1 n3 S3 K$ y$ S
RowBox[{1 X9 s) {& Y* T$ \2 t" u
RowBox[{"x1", "->", % a$ v/ @, [+ ~4 |$ M0 ~
RowBox[{"Data", "[", , q- Q" y4 W( R$ O
RowBox[{"[",
. }' N3 s; S/ i0 S9 s RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 3 m; b( k2 C+ N0 f" @; G
RowBox[{"x2", "->",
7 u H9 G7 S# `! } RowBox[{"Data", "[",
* y5 z W( J9 i; @, ?$ r RowBox[{"[", 3 Y( a. Y; m# {2 d. E* e' c
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
* H+ Z% N) A- ~% f4 X' m. ]7 D RowBox[{"x3", "->", . B: Z+ N% K7 @2 m
RowBox[{"Data", "[",
* B" L5 x) _3 D5 B& N* s RowBox[{"[", # l* M( `* c2 Y* j% k6 z
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", " k* j1 a) r6 ^
RowBox[{"x4", "->",
; V$ r7 l N3 H RowBox[{"Data", "[",
5 Y" `$ t9 I. y0 [4 z# W. V RowBox[{"[",
' I" d- `6 F' ?6 T" ~/ C8 p; T RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
) Y" @1 `6 I! V, j RowBox[{"x5", "->", ' @6 e; M) c* t/ B' U8 f4 Z8 A
RowBox[{"Data", "[", % v% c# r ?) F# x
RowBox[{"[", " g+ g+ W2 ?$ P
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
2 d( \( Y' M4 B! s! b5 k. ] RowBox[{"x6", "->",
; X/ _6 i( o& T+ s% V, {( K$ j; } RowBox[{"Data", "[", $ q' g& h# p6 e# z% z
RowBox[{"[",
5 e7 ]: B9 N3 x) I4 L, `: P0 j RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ( v+ T6 x4 v7 L# ~, i
RowBox[{"x7", "->",
- j1 m4 t) L0 [/ F& C2 r$ K) Z RowBox[{"Data", "[", 5 p6 \$ V% K- W3 L
RowBox[{"[", , {" R# \% Y# r }# S
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 0 N8 T# @! p# C% K8 A! b
RowBox[{"x8", "->",
' `/ _& u W" V m2 B RowBox[{"Data", "[", $ [+ W; ~- B% Z
RowBox[{"[", # `# ?) B/ O7 H" M( {
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ~+ H! a7 ~) n, w8 N! V) j
RowBox[{"x9", "->",
w) ^0 Z/ m# J. A$ p% j RowBox[{"Data", "[", 5 i3 H( c3 ` T8 U1 J
RowBox[{"[",
) g$ U7 ]5 n6 `- p9 O RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
# G! G$ b% M' o6 u1 \ "\[IndentingNewLine]", % {; A$ b1 w, _
RowBox[{ r* b( v$ m5 w6 @
RowBox[{"m60n21", "[", ' l; O! w( m4 y; b6 O
RowBox[{"[",
1 S# u$ F4 p. J, Q RowBox[{"i", ",", "8"}], "]"}], "]"}], "=", ' R" M) d7 _. Y
RowBox[{"u8", "/.", q3 U4 y% m V& i
RowBox[{"{",
1 t$ A" q; D* M; `7 O4 N RowBox[{& ]- r- x: n- ]) v' l& C
RowBox[{"x1", "->",
9 G5 _$ G1 s: _ RowBox[{"Data", "[", # m( H) |+ n6 t2 a4 Z2 p7 X
RowBox[{"[",
4 I9 T1 ]5 B% y# |3 B7 U! c RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ) P) A9 P& f' n: _/ z( {$ l
RowBox[{"x2", "->", & d6 r7 {7 v1 r" C
RowBox[{"Data", "[", 3 z: [+ R4 [' k3 a' a
RowBox[{"[", 7 W" c/ v4 L+ A2 p
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
' v2 k( W2 B% f. V/ B RowBox[{"x3", "->",
: b0 t- e% z( G R) g* L! ` RowBox[{"Data", "[",
9 m. ~3 i. ^3 C2 H: I( h6 W RowBox[{"[", 6 U, H' ?( m" B
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ' L% N- `4 O7 V: _1 J N
RowBox[{"x4", "->", # n# [3 F( l! z. i- v! L1 y
RowBox[{"Data", "[",
; d5 Y R9 M w( ?9 ]; H RowBox[{"[", , H T) T. M9 ]$ s- _
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
5 R' ]" m% i8 j2 A. U o RowBox[{"x5", "->",
, z9 `/ J4 v+ z3 ]3 ?6 H; I RowBox[{"Data", "[",
) W: P b7 ?* w" a& ~ RowBox[{"[",
$ U" [" s: K5 y- O* |4 D% L RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
( F( ^) b1 G# v2 C5 T7 V RowBox[{"x6", "->",
3 o$ B2 O8 L8 n5 w0 ` RowBox[{"Data", "[",
; b" A1 [/ v6 X# s) s: `# v RowBox[{"[",
j/ L; G9 n8 a! l" g! S% I RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
9 D/ d4 i9 J8 P+ `' _ RowBox[{"x7", "->", ; R- `& H$ Y. q3 x
RowBox[{"Data", "[", * m5 f2 R) E, x
RowBox[{"[",
2 ~- A5 K @, ~3 N9 q# ]; q' N RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", * i& u. |( m2 A# c, l
RowBox[{"x8", "->", ! k- L( }) A' S4 e, [/ X" j% ^- p
RowBox[{"Data", "[",
# u8 o/ G. P+ x" T. ]: e RowBox[{"[", ; S: T/ F7 \2 j0 |7 C9 B
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
0 B* U! B" ~1 u: c6 H* c! f7 \ RowBox[{"x9", "->", 5 L) B0 y( b& T. E- j& }* J
RowBox[{"Data", "[", : R6 X+ `! h' n1 O
RowBox[{"[",
9 D. c, I: y8 T9 n7 @0 m RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 9 `( Y- s& i% X! G
"\[IndentingNewLine]", 5 G! Z) Z8 s7 T G
RowBox[{. Q. G6 p, `1 N
RowBox[{"m60n21", "[",
8 ]) e; G; x" O8 R, ` RowBox[{"[", " W, T+ J# @* c6 O5 i
RowBox[{"i", ",", "9"}], "]"}], "]"}], "=",
+ c1 C+ |( M4 q2 d RowBox[{"u9", "/.",
g/ [; s3 @+ E$ ] RowBox[{"{", 2 `( r0 ]& N6 q0 v8 d. ^0 N/ w
RowBox[{
/ _9 a- P) R: V* h. L, m RowBox[{"x1", "->",
, _, S7 ` v" ?0 z9 K+ B RowBox[{"Data", "[", 4 l8 E3 \0 u) _4 z. S
RowBox[{"[", * J: F" d) G$ q/ n
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", + [4 V+ _% A0 L" }' _. `: ?0 o
RowBox[{"x2", "->",
/ X- K- j, Z+ {7 U( U+ h RowBox[{"Data", "[", ) U( c8 ~- Q! c1 V, o4 h$ E
RowBox[{"[", 4 A- F; y0 S& K2 F6 f7 d' i
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", + z n# k/ s M; d9 j
RowBox[{"x3", "->", " f8 N' R- c4 e- X/ F+ I; p* ^) \' l
RowBox[{"Data", "[",
$ _5 T- j% j# K# T; u RowBox[{"[", ; Q n1 y6 k! H
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
' D8 U+ s* t: Q% I RowBox[{"x4", "->",
9 g, T3 Z" `4 `% u+ l8 `0 W0 \ RowBox[{"Data", "[",
1 N; \* N3 H% ~ RowBox[{"[", 3 n& e9 S. Y" n+ Z
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", ( e e0 I% e1 x: ]( E/ `5 t3 E3 ^: ~! n
RowBox[{"x5", "->", * _# |6 `# h/ s' a( n' j9 m
RowBox[{"Data", "[", 7 b9 Q+ O3 K8 n- r" w
RowBox[{"[", & A5 \" J9 a/ Z
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", - }: {) b- Z- ?) _* {+ a
RowBox[{"x6", "->", 1 Z% m. O) e6 O5 _+ z M$ r
RowBox[{"Data", "[",
* l7 F7 H# f$ t/ \! R: S9 N RowBox[{"[",
) \1 k# p }1 _; X RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
2 Q# [. j$ _4 Y$ i6 @: l( a RowBox[{"x7", "->",
6 |3 r1 @" h1 t- c( f/ M I RowBox[{"Data", "[",
" b* _+ N( E$ O% S" `. E' o: L# S* P RowBox[{"[",
5 C# i$ l/ [# z! z9 H! s6 e RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
; N: a. d' Z' F" I) Z RowBox[{"x8", "->",
" D+ s& H8 A8 d2 r% c$ _ RowBox[{"Data", "[",
. o& X2 d! V2 w; K& y RowBox[{"[", 4 L8 ~% P1 h! A8 Q6 s2 a) ^2 d
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
- |; d. o# O- B* F. T% C/ L" n% I RowBox[{"x9", "->",
' K+ [9 B1 ~' O5 I RowBox[{"Data", "[",
( f- O% g0 v5 [' x# X, _ A RowBox[{"[",
1 L! g- ]( ^: j" v# \5 I RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
3 U& x! Q4 O! o1 V0 ~1 `+ C' ] "\[IndentingNewLine]", ) u, d2 F8 n) K9 s
RowBox[{9 R( o" v( B% L9 N. X! @
RowBox[{"m60n21", "[",
3 U3 i4 m# {; x# Z- x RowBox[{"[", ) T2 h! {# p2 z) E3 ]1 E
RowBox[{"i", ",", "10"}], "]"}], "]"}], "=", 5 W% ~! H- Z8 G; j- y6 ~/ ?) X# c8 ]
RowBox[{"u10", "/.",
1 o- ~# m2 g8 k- y RowBox[{"{", 6 Q3 }+ b0 E3 ]4 E3 |8 c* D
RowBox[{
8 ~; k6 H5 C5 }% D# _ RowBox[{"x1", "->", 9 h0 ]! f6 `- }6 M" l8 a6 ?
RowBox[{"Data", "[", . c- i. D9 w; G+ }; e+ F1 z
RowBox[{"[", $ m$ k) P0 n3 J2 p
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
- n. X9 n7 {/ _. L RowBox[{"x2", "->",
1 U, ~. |. C6 K( C& U RowBox[{"Data", "[", 1 D! U8 {, |3 |% g8 e; b
RowBox[{"[",
}2 h7 t3 G) }$ d7 i$ Y9 Z RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ) R# L* L6 V2 D; F8 {$ `$ _8 i; Z
RowBox[{"x3", "->",
: E5 W. U8 O2 O: n. o! C+ Y" g RowBox[{"Data", "[",
9 r. v9 U- h9 n& x RowBox[{"[",
( O8 H" o2 M8 \/ h RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 2 L7 _# S# Q V1 ?
RowBox[{"x4", "->",
' m4 K$ {- z- c. K2 T9 T8 s RowBox[{"Data", "[",
0 ^; C! J$ P3 u! W, u% ?2 ~ RowBox[{"[",
9 \8 f2 z0 G3 B3 @; l$ w RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
; }3 \6 P6 W! D8 Z% c& V( Y' g( @ RowBox[{"x5", "->", ' g U+ @7 W, u! `1 n
RowBox[{"Data", "[", ! ^0 H' ]' s/ C+ @" x6 L! m
RowBox[{"[",
* N" E; W8 f- i5 N( s; K" L9 I$ s RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
) t5 g+ i: O1 G4 }4 Q0 ] RowBox[{"x6", "->", ) W& ^1 B" v+ s4 w' l
RowBox[{"Data", "[",
; G, w5 ~+ Q3 I9 ~" b RowBox[{"[", , i6 t# D9 ^0 I
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 8 i' H! x- y, s& l. m y1 X
RowBox[{"x7", "->", 9 P& ~7 w* E8 T/ d- d* b
RowBox[{"Data", "[",
$ o) v6 W1 x' X4 W7 g4 \ RowBox[{"[", ! |/ @/ v# s5 f6 A/ [; W; h' R
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", - G( l$ H% n$ k) @3 x% Y1 v
RowBox[{"x8", "->", 5 Z- f* r; I6 G; ~' A
RowBox[{"Data", "[",
; ~$ t9 A. `9 m+ ?$ u$ j9 b RowBox[{"[", 1 k9 J1 Y3 X6 M0 I: U
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
* e4 V4 r# o' Y RowBox[{"x9", "->",
) }( S+ B4 [0 z) y3 R+ k1 t RowBox[{"Data", "[",
: R6 F4 }) x- S2 G6 |8 F* Q RowBox[{"[", 3 X }* C+ g* {& l( R, g9 W
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", p% f4 q& ], A0 S5 R
"\[IndentingNewLine]",
, S3 [" e2 H, `1 E+ U8 @ R6 } RowBox[{
( P8 H* e: m, f; z- O0 o RowBox[{"m60n21", "[",
: }. V5 S6 @" N/ f. x$ W, ^/ c" E RowBox[{"[", 1 g% [/ [: ?! t* L3 n* L/ Z
RowBox[{"i", ",", "11"}], "]"}], "]"}], "=",
- a e5 k0 L* N N: P RowBox[{"u11", "/.",
) _0 D7 @1 i _0 x3 v F2 R RowBox[{"{", 7 N8 C }/ e$ a2 J! [
RowBox[{
$ c3 y+ ]% O; f3 P, d. a( {, N- n RowBox[{"x1", "->",
9 h+ q+ }" x% n' W3 u RowBox[{"Data", "[",
) \0 M. \& l; u) T4 p* J3 p RowBox[{"[",
; l4 E9 r m7 X RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
0 ]/ O% U" E% o RowBox[{"x2", "->", ' o9 {9 I$ R. E, g8 O1 x
RowBox[{"Data", "[",
; m3 O3 Y7 D/ y. y( B RowBox[{"[", & o" {. V! b6 C1 {- }1 ^
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
* u. \1 ~% p) ]6 ]9 o; t: F P RowBox[{"x3", "->", " D3 ^2 ]; h8 w$ t; \( W# }
RowBox[{"Data", "[", 1 O6 F8 c9 v* m4 y* r
RowBox[{"[",
( Y% x, ~( @# G0 J0 w& ? RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 1 X( O; m" b, P# K% |
RowBox[{"x4", "->", 7 d7 L2 k, j( ?$ G
RowBox[{"Data", "[", * n' i) Z* s3 |6 D) J6 ?- L- v2 c
RowBox[{"[",
( I9 e1 Q9 w" K/ H& \- F RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", ' ~* t0 u: w: J1 G$ W
RowBox[{"x5", "->",
; a2 Z) A8 I; h6 |8 \+ e RowBox[{"Data", "[", 6 G, R+ z" o" o3 Q) E1 V5 |) |
RowBox[{"[", 7 d# Q7 k( Y( B/ T. B8 X8 B
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
# i0 M6 S+ b" y: K: M RowBox[{"x6", "->",
' R& L" \- y2 f: C RowBox[{"Data", "[",
: j" P; x4 E* p! s* l, Y RowBox[{"[",
4 J2 D8 I* [9 R r b RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", # s8 U( Q% l/ {$ I
RowBox[{"x7", "->",
& C3 s+ D6 P5 Q+ N. A- F( c" M! d RowBox[{"Data", "[", 6 _$ r% A! c' ?- i
RowBox[{"[",
# W6 Y' A$ P; D RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
2 M3 d$ t$ V7 r% o3 t( D RowBox[{"x8", "->", - R! f$ H, G# ?4 L
RowBox[{"Data", "[", 5 g$ R( F. x5 _
RowBox[{"[", - @5 f. h" f7 Y1 s* s& x
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ) @2 E7 e, o& Q! R* F0 R
RowBox[{"x9", "->", ( I% V+ }1 X4 M( e) j2 i
RowBox[{"Data", "[", 3 M/ l. K' X" x {
RowBox[{"[",
' I$ q" z$ u1 b7 I; }- |8 r RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
g a+ S+ L, n; ^7 F "\[IndentingNewLine]", - j- |& T# c0 P8 ~( r# S
RowBox[{6 z) F% ~9 A- X$ @+ ]
RowBox[{"m60n21", "[", ' ?$ w( c G& r) W1 V( V
RowBox[{"[", + N+ N$ I. B8 P9 S# p( }% D$ s% Q
RowBox[{"i", ",", "12"}], "]"}], "]"}], "=",
8 s, F% A+ |8 M7 H RowBox[{"u12", "/.", 3 t8 `' }) y8 O) m5 ] ?
RowBox[{"{", # }" O" ^& Q4 f( C+ m7 F) Z3 ^8 ?
RowBox[{
, l% q% o2 a+ h0 I+ Y8 w* M3 k RowBox[{"x1", "->",
7 o D- A0 g5 d7 @% E RowBox[{"Data", "[",
6 l# ~8 X- S; s RowBox[{"[", ! [2 h, B! `5 |/ J
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
4 e3 O# A" E ^! c RowBox[{"x2", "->",
- ?* p7 K5 Q+ f" P RowBox[{"Data", "[",
6 s) k9 R5 w. G# t! G- U' | RowBox[{"[", ' ^9 a! M9 g6 S6 S. V
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
+ I3 N. D1 G: b3 s, ] RowBox[{"x3", "->",
% K0 t/ _7 i" J+ ^2 w% @ RowBox[{"Data", "[",
; j0 t* ^; e( n" i3 Z RowBox[{"[", 5 S c2 \" W: H: N4 ] G7 q8 A
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
3 r: d- @: c+ c% B# q$ a! O+ ]( A RowBox[{"x4", "->",
& ^$ V, [- y, F& |+ S RowBox[{"Data", "[", 2 M# |/ L0 k+ t" i' q
RowBox[{"[", ; V9 u$ a, g+ D
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
% @4 f O( S$ }& W RowBox[{"x5", "->", % O4 b2 t- N/ i; z$ K
RowBox[{"Data", "[",
3 E; j5 E4 p. } RowBox[{"[", 7 U: W3 m% s% P. n( D: y5 {1 ]; |& C/ ?
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
) X q* l. i* N+ m RowBox[{"x6", "->", 4 U8 I! l* v9 M7 d0 e( \3 m
RowBox[{"Data", "[",
4 A- q; c4 B4 h/ I3 m6 V$ C RowBox[{"[", : m: ?% e: b. ^+ z0 d1 J
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
) V5 P9 d( W P* E: c" p8 O RowBox[{"x7", "->",
7 C& Q9 ~5 n5 ]: S7 g RowBox[{"Data", "[",
! g4 O% v# i9 W% `/ K( ?" i7 |5 P6 l RowBox[{"[", - v0 C" g" o/ r8 T
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
% C4 W7 @% O. S2 p! m RowBox[{"x8", "->", # Y5 d! Z9 p- D
RowBox[{"Data", "[",
* {' ]5 j. E. ^/ d* U& ^/ Q RowBox[{"[", 8 t) o. {( P( Y0 w
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", - E: X2 s$ B$ D6 U+ K' J
RowBox[{"x9", "->",
4 Z: |5 G- L- i9 ]8 r, ]# ~( x RowBox[{"Data", "[", 2 U- E# ^. W# H) g5 r* ` ]8 `
RowBox[{"[", " Q( s. \" Q* Q2 P9 C2 h1 a
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", & W% i, q/ x& u Q9 h' o$ M
"\[IndentingNewLine]", , Z! X2 }2 @' ?. u0 O' ^4 r% t; i
RowBox[{- J3 D' E+ B" ?8 \$ _+ S
RowBox[{"m60n21", "[", - ?- L/ O/ t, L4 [
RowBox[{"[",
. d) E% W! Y, } RowBox[{"i", ",", "13"}], "]"}], "]"}], "=", * t2 o+ B- z* b% |) E' @
RowBox[{"u13", "/.",
1 \% C, ~; _- _! ?* M RowBox[{"{",
7 q _) d V1 d: T RowBox[{2 x% i2 }+ T/ D% s5 g+ h
RowBox[{"x1", "->",
/ u$ R( m1 u+ {/ j& b! ^7 d2 O9 \ RowBox[{"Data", "[", 8 K% o$ e9 C5 w! o& J' Y3 }5 J
RowBox[{"[",
1 u: R: c( y6 R" S v- w RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", , T; l( m% J* v0 w1 R
RowBox[{"x2", "->",
; X3 E1 Y7 N% \1 K, \ RowBox[{"Data", "[",
; y6 d+ C3 V$ r3 E+ Z0 a RowBox[{"[", 4 p$ |) Q' }2 k! O2 ~
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
- d2 l, o6 L( j RowBox[{"x3", "->", * ^( M: c/ s, X' i( E9 Q& M: g, j
RowBox[{"Data", "[", 6 R; c! W/ _0 J. d3 k/ `
RowBox[{"[", : c" }) }% [2 w) K
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", + [) w3 X8 j0 o+ o! o$ y$ `
RowBox[{"x4", "->",
) G; F% S6 x) p% q' X. _) |. O0 X RowBox[{"Data", "[", * w8 Y% ?% o j. W4 s
RowBox[{"[",
$ i& q7 ^2 w/ ^ RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
% e. v+ G7 k; P2 U RowBox[{"x5", "->", 9 D! d0 B5 @9 }3 t3 c$ _
RowBox[{"Data", "[",
) C/ A+ S4 g6 f [" t$ X RowBox[{"[", 1 m0 U2 u9 R: X. i: p
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
" @: l$ y5 P7 O+ G; O$ t RowBox[{"x6", "->",
1 H' e- z# M$ _4 ^- M1 b RowBox[{"Data", "[",
" C" q0 J+ _# }. {5 g2 [: n! m# w RowBox[{"[",
' A2 W& G$ F0 ?- R RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
O2 P% X+ M; v RowBox[{"x7", "->", * K2 K i& R0 p& u- ?
RowBox[{"Data", "[", . x' I. W/ f- C' C% E# {6 i4 i
RowBox[{"[",
. W& e( {8 @5 z' H. a4 C. i RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
( R0 g% j0 }$ b, ]' { RowBox[{"x8", "->", 2 w; O8 }$ X3 b+ Z5 S
RowBox[{"Data", "[",
6 J' g$ K; g3 P+ j% r8 _# o% \9 k RowBox[{"[", 0 t4 n/ R7 _% Y. A$ y, C3 d1 }
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", , p: K: ?) Z* }! D7 t2 V# b
RowBox[{"x9", "->",
/ S6 r" t- V0 L3 K- c% I8 ~ RowBox[{"Data", "[", 8 P% n- J0 ^4 c+ [! m* k$ c
RowBox[{"[",
1 M( y. C7 t; a2 d6 a2 H) o RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
5 O/ H0 W% C4 e' X "\[IndentingNewLine]", % g7 C9 m! D2 H) Z# Z+ \
RowBox[{. t7 v" v2 g- Q5 P, r
RowBox[{"m60n21", "[",
6 _& F9 n5 G! ^2 B. a, J RowBox[{"[", 9 f. U+ v# I. n. E% }
RowBox[{"i", ",", "14"}], "]"}], "]"}], "=",
1 B/ [, T7 @- O. F& w# q RowBox[{"u14", "/.",
! G0 k" ?8 j \8 C% D8 l RowBox[{"{", 4 B" [9 Z# Z8 g6 R
RowBox[{( g9 E- H" N \; o2 N
RowBox[{"x1", "->", ) y V1 p( J" U) J: v! l& S1 @
RowBox[{"Data", "[",
% j Z2 N5 m$ \ T1 o* W1 N RowBox[{"[", " W) U/ O6 _, q: j
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
3 G( `0 I, S/ y9 ^* ? RowBox[{"x2", "->",
$ k$ B# f. ]. Q3 w- t' L RowBox[{"Data", "[", 6 h- B+ }5 a9 R
RowBox[{"[",
5 @& i% ]1 |& I) A RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 8 @8 @0 W. Q" e
RowBox[{"x3", "->",
9 u) d, r, w" L @ A5 P$ ^$ J5 t RowBox[{"Data", "[",
6 i* d: t7 ]; Y7 G; N; Z: U RowBox[{"[",
4 x1 r/ V/ h/ N8 b RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
) ^% {6 `$ R ^5 J RowBox[{"x4", "->",
5 [7 t3 U( E9 T- y, O: o RowBox[{"Data", "[",
7 ]/ q1 y7 y1 E RowBox[{"[",
: }2 o, K7 }6 K1 W RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
8 p- O- o7 w+ w, N% j5 K6 T RowBox[{"x5", "->", 2 T3 v3 X9 r; O2 F' r
RowBox[{"Data", "[",
5 @# l1 V7 H5 [4 K5 ~5 s: F RowBox[{"[",
+ ~5 b9 n/ E( i+ V c2 l$ O' I1 t RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
& P. `/ C' s1 i" _! r" D. J- Q1 g RowBox[{"x6", "->", - W2 h! L$ @ M8 i; L3 L
RowBox[{"Data", "[", 5 E% F8 U. o! n- H: t8 y
RowBox[{"[", : e$ f6 E" B- C; B! k
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", . U, {' I& k% d/ E) v/ o7 F2 `
RowBox[{"x7", "->", 5 a0 \# I k* I7 _+ q, k
RowBox[{"Data", "[",
) W( ]: _* x0 {# `3 a0 E RowBox[{"[", 9 A, L' y8 n0 }: w4 ?8 o5 b0 n* s0 d
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 3 i8 d" _0 W8 L
RowBox[{"x8", "->", 1 } b: T# r. |5 e# l
RowBox[{"Data", "[",
, `1 g/ k9 ?- M3 | }0 q+ b8 z RowBox[{"[", ; x. m f- x; \% L0 v
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ' X' q- c8 _ y1 c# |
RowBox[{"x9", "->",
# W. G9 u) r. y1 j6 ~3 w RowBox[{"Data", "[", ( p/ i1 U* C" T% q6 J6 x
RowBox[{"[",
5 d7 N& Q, E! m. E( L RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", & d" _- M! X- u5 I; n" T( ]
"\[IndentingNewLine]", " E" t. Y7 o4 b7 Q! h
RowBox[{8 G `* w8 C, H
RowBox[{"m60n21", "[", - N _; e8 Z; K) k9 l# ^% b
RowBox[{"[", , I, q$ g4 J: U3 H/ b { ~4 S
RowBox[{"i", ",", "15"}], "]"}], "]"}], "=", 7 p& K4 o$ `. O2 r
RowBox[{"u15", "/.", B6 ^) K& G* l+ i
RowBox[{"{",
/ ]9 m+ Z/ J/ u6 V; d. O! o RowBox[{
D/ Y; e, b% r RowBox[{"x1", "->",
, C! U) n5 \2 C& g' g6 m- F RowBox[{"Data", "[", . _2 G( `; h5 c \
RowBox[{"[",
: L M4 j9 g) J8 K RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", * {% ^; o* S5 i
RowBox[{"x2", "->",
3 H) i, L5 z+ `3 T, k' K8 I1 j; |3 O RowBox[{"Data", "[",
3 q& ]" w! N m8 s RowBox[{"[", # Z. O; s) {# Q t$ P
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
; E2 I+ `2 n; y! K& `2 E/ ` RowBox[{"x3", "->",
, {" R4 E1 \8 {: V RowBox[{"Data", "[", $ o6 q. @, ^, e! A" D( V8 M
RowBox[{"[",
/ M5 o8 P% s% i RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ( |( i; M l; Y5 \2 ?% T
RowBox[{"x4", "->",
3 O9 p. t1 o( ]! D9 ^! P+ i: @# \ RowBox[{"Data", "[",
; y9 S* Z( B7 l) Q1 t6 ] RowBox[{"[",
2 `) z) k! k- Z+ T1 N3 V3 e; i RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
7 i( T0 u! D) m1 B( N/ _! F0 E5 k RowBox[{"x5", "->",
" U" A. ^1 c) B RowBox[{"Data", "[", / N4 U5 Q( l" v: L
RowBox[{"[", 8 t4 f. i' z5 H: b3 L, ]; `3 p
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
# v# m+ g/ _4 d }- {- k& c RowBox[{"x6", "->",
7 k2 ^5 y) Q, ? RowBox[{"Data", "[",
( d- U0 c% e, Q4 s RowBox[{"[", 9 _: ~ r0 u: l9 p' d- Z4 B* M1 i2 w
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 3 M+ S& X3 M& Y4 y
RowBox[{"x7", "->",
3 x' R" {# Z2 U& H. U RowBox[{"Data", "[", ' b0 q1 v M0 \5 E% F. y
RowBox[{"[", # v: K% {4 P" h8 C
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
! B5 }/ i: j) p- {; k6 }7 b' ?! G RowBox[{"x8", "->",
( D! q$ h/ T* Y- i8 x O RowBox[{"Data", "[",
4 R0 |" s3 w% w3 J, V RowBox[{"[", & z( C, o; r! Q6 V! ]
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
# G$ m0 K, x5 ^5 i6 B RowBox[{"x9", "->",
. S1 s4 o5 M3 _ RowBox[{"Data", "[", ) F) E" [) S+ s; _$ `) k
RowBox[{"[",
) g- T4 U3 [: |& K# S) w RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", * ?* W0 I0 H* |2 S% w' m
"\[IndentingNewLine]", 1 |0 F. C- W! J6 e* P: M
RowBox[{3 o- T* t+ N* z* R' Z
RowBox[{"m60n21", "[",
9 l8 J( u8 q1 E7 w RowBox[{"[", 3 d0 t0 L! H+ b; t
RowBox[{"i", ",", "16"}], "]"}], "]"}], "=", ( ]) n" d8 D! P" G4 [& t3 t
RowBox[{"u16", "/.",
4 s6 S6 r) }" m: y1 T# X1 x RowBox[{"{", 5 }2 j. o1 L3 W* w) x0 K' [
RowBox[{
( K @( \( o8 T& t RowBox[{"x1", "->", & g" e. d( V2 L. r4 b5 Q
RowBox[{"Data", "[", 6 ~* e) ~- @ t
RowBox[{"[",
& |0 p% K+ p% l4 ] RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
" Z; H/ L* N, _- g; A; p, R5 i RowBox[{"x2", "->", 6 M7 u6 E: w6 \$ d- w0 X
RowBox[{"Data", "[",
! C8 \) [3 |, @+ s) R: O6 F RowBox[{"[", + S2 `3 l# j: W5 J
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 8 z! _! _) g: h: p$ M9 q# G$ A- u
RowBox[{"x3", "->", 6 R& y, I) m3 E9 Z$ m% Z' y+ q
RowBox[{"Data", "[",
5 I( A2 \2 b' i9 H3 Z RowBox[{"[",
; R( j' {0 B; j RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
) `0 b" n4 }' A L4 W' E RowBox[{"x4", "->", 3 ~7 t& R) [; y- N6 H9 s0 i
RowBox[{"Data", "[",
' o3 v3 L( ?" q7 b( k RowBox[{"[", 5 [9 \: l: z% D1 C( V
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
7 U4 i$ ~# n! q$ y, L) G9 X) H RowBox[{"x5", "->", 1 O/ ?6 k1 P" ]/ K! n( g
RowBox[{"Data", "[",
1 j# G+ Y# x% ^, @. t RowBox[{"[",
, @% S7 T/ T, P' U3 ? RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", , o, I6 U* o5 ?% U, o
RowBox[{"x6", "->", q- C# n2 j9 i& v {* B
RowBox[{"Data", "[", 7 A( a: G: o) V
RowBox[{"[", % c, a; |* i+ e2 W
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
( R8 d1 F n; I/ }# b S$ t RowBox[{"x7", "->",
9 A! d% \. N4 l" M7 I; T/ } RowBox[{"Data", "[", 2 F6 {# s' o+ H% Y
RowBox[{"[", # x9 F! H: j4 Y; M' A3 i
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
2 s" k+ H1 s7 B/ D, ~ RowBox[{"x8", "->",
* Y* a2 C. }0 c) g RowBox[{"Data", "[", ; Y, X. t# X: T
RowBox[{"[",
& x6 C0 o8 C5 T# Q4 X) Y RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
6 k( ^4 N5 P' u6 u1 t8 I. e RowBox[{"x9", "->", 9 \3 i( C: e( A* a2 s5 X. U' `
RowBox[{"Data", "[", ' }. q9 h8 u. U
RowBox[{"[",
5 e6 R+ k# T% G4 ~$ P$ G/ P; c RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
$ X1 C9 s& C0 e$ w "\[IndentingNewLine]",
( {4 n, o6 ?: G- M% Y) w" L' C RowBox[{9 k/ X5 [, c7 K, k1 A
RowBox[{"m60n21", "[",
8 O: b# ^3 P( |5 k& G% G RowBox[{"[",
/ q% v' l. b' g2 N8 z RowBox[{"i", ",", "17"}], "]"}], "]"}], "=",
8 u. {, O4 R: x RowBox[{"u17", "/.",
+ I6 }7 T! y! V0 T) B RowBox[{"{",
$ Y/ W2 y" @' k; j RowBox[{! e& _$ I. m, N, v, d- H& h1 R; q
RowBox[{"x1", "->", $ K& ~: W) i1 t- Q& _
RowBox[{"Data", "[",
. |6 Q/ j# P7 ^% o3 J RowBox[{"[", - t2 }/ C' d# E j+ l6 L
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", , H$ ~! l. N; }) z* s
RowBox[{"x2", "->", 6 W) p' K$ X/ j5 i' V f
RowBox[{"Data", "[",
8 E+ A0 @- \: g1 q RowBox[{"[",
2 u! U. C7 ?( l" @, x RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
- T" }, [5 P5 d+ O1 ` RowBox[{"x3", "->", ! ~$ s/ C' Z1 ~& z+ M! ]
RowBox[{"Data", "[", 1 D, a5 x% H! Y
RowBox[{"[",
9 h; g( J9 x# C& r4 q RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
0 L0 G+ _$ \, ~; Q y, S RowBox[{"x4", "->", 9 v, i5 K5 t7 a( ^+ g
RowBox[{"Data", "[",
; `1 `/ Q4 n2 a3 w RowBox[{"[",
* Q7 E7 I3 b: S: s9 _4 w1 L& m RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
. `1 t& x4 H7 w s, \; S2 o, f C RowBox[{"x5", "->",
1 @) G- A- e0 x: F' E RowBox[{"Data", "[",
: J. |# Q" b* y0 a8 R) a7 N5 t: i RowBox[{"[", 2 k* k8 u0 z5 ]3 K+ O( q& h
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
r* u9 G$ Q" X- o RowBox[{"x6", "->", % x$ b$ U% R9 \. K8 v
RowBox[{"Data", "[",
( K+ `+ z, D' i% m4 B RowBox[{"[",
* j$ }6 b" c w" N8 G! g/ f" i& \2 G RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", # |) s. A1 P, C% A
RowBox[{"x7", "->",
; [- R; n V: j! m+ o+ L RowBox[{"Data", "[", 5 ?- |9 Q: Z# W6 K
RowBox[{"[",
- ^( T9 B- s- L RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
- s& q6 c9 _0 v/ n2 a2 L4 l RowBox[{"x8", "->",
& ?' e4 W; _; ~9 k RowBox[{"Data", "[", ' H+ q* h1 ^( a ~& D+ e
RowBox[{"[", - T; i' o7 T( R N5 W
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 7 w3 o3 ^* d6 T5 ]; b9 D/ Q0 S
RowBox[{"x9", "->", + x8 U5 P. }3 s, D2 ~, Y
RowBox[{"Data", "[", 3 ~. M) ~5 j6 G: [& X8 x
RowBox[{"[", ) S7 ?7 S, p, F
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
4 E+ s; Y" q W0 { "\[IndentingNewLine]",
1 H- L' Q1 w [, S% Z RowBox[{
* R( k* R8 T% I5 D0 U RowBox[{"m60n21", "[",
% [3 z, F$ E5 {1 ?( y' _! N RowBox[{"[", + T0 z5 j( E+ m
RowBox[{"i", ",", "18"}], "]"}], "]"}], "=",
$ }- z1 |1 K& a5 g0 _ RowBox[{"u18", "/.",
' x- U1 O$ ~, p* i6 h/ |. p RowBox[{"{",
# v- V+ C4 m( o+ y) \ RowBox[{
5 d# _/ D% k! o( s5 k# F: T2 [ RowBox[{"x1", "->",
1 v- a- `9 W; L' O6 w RowBox[{"Data", "[",
' N E T! X+ v- _5 f RowBox[{"[",
c0 s) N* W R3 v, q RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 4 c/ |( O, ?' A$ c6 I
RowBox[{"x2", "->",
6 F* x* [! G: K# Z1 h$ X RowBox[{"Data", "[",
9 L: l3 ]. L* O9 D2 e4 _ RowBox[{"[",
4 q/ L8 o7 e( q RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
4 V9 S) W5 v! o RowBox[{"x3", "->", + U5 R) E$ L# f- D2 u6 M# R
RowBox[{"Data", "[",
9 E! @0 h$ n$ N) ^* r$ F RowBox[{"[", - P" }5 \/ J+ ]% i7 W
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
) ~- R$ X* o1 t3 H! Q1 n RowBox[{"x4", "->",
& N: K9 ^7 T9 y2 z RowBox[{"Data", "[", 6 p8 Q4 y1 l; j) [$ [
RowBox[{"[", 1 ]3 ]( _& U, Q+ E3 t/ M& i, ^! E
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
) i+ S* _8 @. @$ S+ b RowBox[{"x5", "->",
1 F% C9 P2 J6 O9 c0 ~5 _ RowBox[{"Data", "[",
- [& a6 V S |: \ RowBox[{"[",
) K7 P$ S: j7 C" c0 Z4 g* G RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", : X6 r- b: \- y t( H n) f! ?
RowBox[{"x6", "->",
" b- S5 H* r5 Q/ v4 |, _* Y RowBox[{"Data", "[", - v0 {% M# Q0 T% ]' C8 ?
RowBox[{"[", # H3 M& l6 }! V) o
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
8 K0 C$ ?- j, d' T& \: N* ^ RowBox[{"x7", "->",
" |0 G! w* _" b RowBox[{"Data", "[", 1 `1 y5 z! Y0 g2 Y8 j, R
RowBox[{"[", S. }8 A9 Y9 e3 @
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 4 z9 A' k0 C2 b
RowBox[{"x8", "->", 5 p5 T3 o4 f+ x/ b
RowBox[{"Data", "[", 5 j0 x1 ?) r6 m
RowBox[{"[",
# Q# P/ W3 ]! R* f+ @+ o RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 6 n5 [2 K- W: t- G
RowBox[{"x9", "->",
5 M+ i0 ?6 U$ r RowBox[{"Data", "[",
5 c3 J. U4 I7 J+ ^4 t/ c) t RowBox[{"[",
* L$ a8 S2 v9 f: r' k2 J! u5 u }. Z RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
2 ^" o! C$ {# N( F. z/ X( D5 | "\[IndentingNewLine]",
3 N' |' z; ^$ |2 w1 @2 c. y5 M0 K0 N: q% U RowBox[{
v: [: \4 {+ u, H RowBox[{"m60n21", "[",
; M) ?% |3 I w3 H# C RowBox[{"[",
# y% A; K5 ^: o RowBox[{"i", ",", "19"}], "]"}], "]"}], "=",
$ ~) ]; B9 _* J: R3 ~ RowBox[{"u19", "/.",
) H# u* Y: g3 h0 D( T RowBox[{"{",
6 a, E6 n) L; l) r6 G RowBox[{# s5 w; F: U f# ^$ R" z4 h; o
RowBox[{"x1", "->",
" Q" {/ m4 q5 a RowBox[{"Data", "[", : J/ T; ]! R' U, T' h& l
RowBox[{"[",
# p% {3 f. k. `# s0 Q RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", * _4 u' I; e3 c8 W
RowBox[{"x2", "->",
T3 E0 L( L4 h RowBox[{"Data", "[",
: o* e1 b% [+ h$ A/ Q: B& W% ` RowBox[{"[", / T- l% e, W! k/ r
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", $ A" l$ P3 b, j! H' H$ @
RowBox[{"x3", "->", 4 V5 T0 e/ a$ e0 w# `
RowBox[{"Data", "[",
+ Y6 z: F; ~7 z RowBox[{"[",
, A/ Q0 N: I. R" |( c7 V L& M$ d RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
8 [0 `" U, g: ^0 a) m% { RowBox[{"x4", "->",
; y n# W- q) C- y2 q RowBox[{"Data", "[",
+ V. n5 T( I/ _ RowBox[{"[", O- @* h! ]% l
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
1 i& I) R- O7 q9 a RowBox[{"x5", "->",
$ g9 l6 k% u } w RowBox[{"Data", "[", ! B: o6 F0 ?# M y$ m3 t4 K
RowBox[{"[", 8 Q+ z) p- \8 z
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
4 r [. O. l( S( t. O RowBox[{"x6", "->",
- W8 f5 v$ J4 X C% `; z% J3 W RowBox[{"Data", "[",
7 I: I2 k: [# N+ u RowBox[{"[", 5 V+ `1 Y) X# O3 O4 ]. b6 Q
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 9 c3 B6 C- y3 v9 j$ j" b6 P) `
RowBox[{"x7", "->",
9 d- `/ ]8 g5 J5 Y# M RowBox[{"Data", "[",
# k- S3 j, B! Y3 {( q RowBox[{"[", 1 P6 l" I% `! I) L
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
& o; g5 c2 y' j5 i* O RowBox[{"x8", "->", 8 M# r+ w& m8 P# D1 w! K( f+ J/ g* z% ^
RowBox[{"Data", "[", $ d) Q7 Y# v& z/ @) I0 R
RowBox[{"[",
7 [% P4 x; {! | e/ j( Y3 Y RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
. q/ ?% a% d4 T RowBox[{"x9", "->", ! O' D+ J! F! }0 x- R. X
RowBox[{"Data", "[",
! \3 m9 W5 g/ P# @" ~( B RowBox[{"[", % L* B* c- z7 d" I$ k$ v9 J
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
& x# l( w% ]. B+ C; Z1 _4 n "\[IndentingNewLine]", 5 c% L- o# a( {/ E: n
RowBox[{6 r3 E8 y/ u, G% x0 {
RowBox[{"m60n21", "[", : r N! P# z! c K/ A" C8 _+ {
RowBox[{"[", ! q% D+ z$ C! s3 i* p0 J
RowBox[{"i", ",", "20"}], "]"}], "]"}], "=",
, Y( Y3 e9 T1 }' G RowBox[{"u20", "/.",
5 ` m6 S! x: w. l5 a$ J RowBox[{"{", 0 t! n( b% s. ]3 y- D: [
RowBox[{
- T" j; s& {$ L5 j! F& |. o RowBox[{"x1", "->", & \$ p+ v- O8 p
RowBox[{"Data", "[",
; T2 k4 a! r: ?; y; _9 W RowBox[{"[", : _) `* @' m6 [ t% T* E
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", : Q& U3 j5 ~5 Y2 H( g
RowBox[{"x2", "->",
; J. X2 [" \5 V- ] RowBox[{"Data", "[", . `5 M3 E% j+ P: k' K& `
RowBox[{"[",
M1 m- c) {- b RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", - D9 `4 O5 P' M1 t% l" j
RowBox[{"x3", "->", 6 W8 ]1 _; c: K0 k/ I7 w! y
RowBox[{"Data", "[", L0 L9 j0 ~0 M2 U
RowBox[{"[", 3 }* T! f) k2 v' @
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", + {1 x3 |9 R+ ^# ] T$ _# ~8 s
RowBox[{"x4", "->",
( l9 U# c* P- W/ C' j9 s RowBox[{"Data", "[", 1 h& T; V. B4 W1 j
RowBox[{"[",
1 p% ?2 _4 v4 ~1 _ RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
4 x2 [: K# J+ j5 ?' }9 U RowBox[{"x5", "->", f5 n7 n: e! r9 t. a! m
RowBox[{"Data", "[",
* F' n) U2 y) |9 }) V4 e) N) C- h RowBox[{"[", 6 ~; S+ \* K: F7 M" L
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
0 t/ V1 \2 N/ }7 B4 n RowBox[{"x6", "->",
% i1 d& u. _+ W: R, [( M2 L; @, W RowBox[{"Data", "[",
0 [" m* P) m/ H m$ z: v2 @( n RowBox[{"[", * S6 J1 {+ B/ V/ P9 f6 H. x8 |
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
/ X- p) z4 @1 c+ l) @2 F RowBox[{"x7", "->", & P6 L, ?. x R; ^9 d( f
RowBox[{"Data", "[",
3 ~; i3 x/ i- y. g RowBox[{"[",
& A4 W9 u0 }0 k. G, v+ j+ a RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 3 k7 d, K0 u5 t! R# `! M
RowBox[{"x8", "->", 7 l# c6 u: N A8 I% u
RowBox[{"Data", "[",
; V, H! b2 |# x# ?0 E RowBox[{"[",
: R; i* ^5 l2 ~9 h: J. _ RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
. C: `- l+ B5 J. I7 P7 d2 Y4 G2 R RowBox[{"x9", "->",
4 {* n0 W2 O2 B; w6 V, l RowBox[{"Data", "[",
. b( b- Q# Q# ^5 z. v RowBox[{"[", 2 r `1 ]4 N/ ~& Z# X
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 8 a4 ?2 B8 l* \- I, P. Z+ j% V
"\[IndentingNewLine]", 0 T1 J$ {% P- n8 X8 u* i
RowBox[{
: L1 ^% r8 K/ ` RowBox[{"m60n21", "[", 5 T6 U- n" Y0 \- ~ u8 E
RowBox[{"[", * {* ?0 _4 n$ j+ ?# t
RowBox[{"i", ",", "21"}], "]"}], "]"}], "=",
! T6 j/ d! C0 p RowBox[{"u21", "/.", . H' F4 ~/ X4 V% T- {$ k7 r
RowBox[{"{", % Z. X9 H; k b7 a) ^. `, i
RowBox[{6 C0 n& ^! O0 h# |4 X- }, N5 ?
RowBox[{"x1", "->", 6 i# a3 l s- d: U
RowBox[{"Data", "[", 3 u5 {; ~. z' t% q$ F Y) ~
RowBox[{"[", , x* k9 f% @ h
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
2 A2 n* c/ s6 N, I RowBox[{"x2", "->",
T9 @' z+ u% B3 c0 b RowBox[{"Data", "[", 2 T* k& M: l/ \8 w/ o/ J, Q
RowBox[{"[", & X" x3 r1 o7 C( D: \8 w/ _; t
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
3 a* `, i x ^# k0 R, r; V RowBox[{"x3", "->", ; ~8 N( B: @. C t l; ?
RowBox[{"Data", "[", 3 j' O$ f# Z, S( J7 U! x6 ] Q
RowBox[{"[",
8 j f0 b3 D( |; I1 q/ O7 w6 _ RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 7 L. Z1 e6 _- J% N) @ H& D
RowBox[{"x4", "->",
& a0 e% W0 u% K# S: y# h RowBox[{"Data", "[",
7 K7 g% t% g" E RowBox[{"[",
/ c! E' r$ v" q* w% z RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
. w1 y H) I: C. l% G: l RowBox[{"x5", "->", 5 s( ~& T" E) d1 d" f d+ j$ c
RowBox[{"Data", "[", # a, {) Y6 j( l( ~/ `& S
RowBox[{"[",
1 q4 ]( k @6 _ E RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ) H+ X: E) x3 {8 p# @
RowBox[{"x6", "->", 6 T2 |: r9 @3 c2 |% t5 B0 _
RowBox[{"Data", "[",
; g4 i3 l6 \) _8 S! V RowBox[{"[",
1 ^4 q7 o: S' s7 v RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", % G+ _! c, V% s8 w6 T. [
RowBox[{"x7", "->",
! z7 u6 T* R+ H1 J4 L | RowBox[{"Data", "[",
' R9 l5 H, c$ V) v) q RowBox[{"[",
! ^, Z6 P5 v. r5 u RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 2 B. L. J2 a5 Q& P
RowBox[{"x8", "->", 6 m/ V4 @8 v D, p0 ~! D# B
RowBox[{"Data", "[",
; ] F6 w7 F) n+ U U RowBox[{"[", ! M) w0 `# ~0 r
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", * m( J1 I% \$ A- _& A" r
RowBox[{"x9", "->",
* F+ z. t- E+ D6 e; Y RowBox[{"Data", "[",
5 U1 M$ B6 a; c/ p% f( r RowBox[{"[", 4 `7 W" ~2 l' j1 J3 c/ A# Y0 c" H
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}], 4 W7 N3 |9 t4 Z- ]: B2 A
"\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
: t; X2 E' R5 l5 c# ~- w& L* X CellChangeTimes->{{3.5779241165*^9, 3.57792417728125*^9}, { y6 S% n( Y) e7 m6 A/ a
3.57792428359375*^9, 3.577924585109375*^9}, {3.577958919491543*^9,
( r" o( M/ J O8 @% X: @* W2 [ 3.5779589224867477`*^9}, {3.5779619825731473`*^9, 3.5779620676400957`*^9}}],
( k" _. u. w1 y3 R
J7 t- X1 E* A* h% K dCell[CellGroupData[{
4 j/ m- H) a* N f/ C( a/ y' y& c8 k0 \, M
Cell[BoxData[
7 @5 }. ?8 t' W# i5 ^ RowBox[{"w1b", "=",
+ \/ U2 a, K) e RowBox[{"LeastSquares", "[",
1 G6 V. } Y7 X+ K RowBox[{"m60n21", ",", "y1b"}], "]"}]}]], "Input",- W) X* l4 O- e( ^( Q) w/ V: l
CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {; l: |8 ?, O U* X$ O8 v- T
3.577924662765625*^9, 3.57792466596875*^9}, {3.5779582865360394`*^9, 5 E ~! j- {# v I% [. f q
3.5779582963172565`*^9}, {3.5779622900808835`*^9, 3.577962290377284*^9}}],- \9 ?; G; w( v3 ~2 q9 z$ p9 Y7 X
) P8 @- e5 b+ @3 E1 n: GCell[BoxData[6 A; k# p0 z8 q7 I/ T! @1 b8 d5 A/ m
RowBox[{"{",
' k0 S1 g e" J RowBox[{
! d( z3 z1 }) Z! m' C8 b "0.48228184971363947`", ",", "0.16041393254115022`", ",",
7 o& N, C8 |! c* U! P: ^! Y "0.3741982811661129`", ",", ) _% V% x/ U" ^! ~! ?9 U
RowBox[{"-", "0.12620581913715245`"}], ",", "0.28831860112966734`", ",",
$ Z2 Z0 S9 W2 b+ u RowBox[{"-", "0.2282993884666894`"}], ",", "0.3207174990295839`", ",",
) C/ w: U8 o% \+ g RowBox[{"-", "0.4666313851213302`"}], ",", "0.27551257162880227`", ",", - h- \0 v; b; C* i) _! A$ I( e1 \
RowBox[{"-", "0.025873988843993667`"}], ",", , g% I% p# c3 ^ t2 t
RowBox[{"-", "0.1339854044819916`"}], ",",
' m5 x6 u" C- r! x- M) B1 e9 Y RowBox[{"-", "0.15852708848338315`"}], ",", "0.3129687276967983`", ",", $ Z$ n# `: t# c8 J
"0.45723850991134063`", ",", "0.2954923840077215`", ",", & K, u/ `2 f" ]0 ]
"0.9125798890455868`", ",", "0.21159052285983104`", ",",
* M# K8 s7 M' L/ ?, X* ~5 P/ o "0.5575503376854456`", ",", "0.6019775648968265`", ",",
5 L6 V" e4 W3 i$ \* N "0.2361524780938108`", ",", "0.12782130225993923`"}], "}"}]], "Output",3 r; S: b0 x( Q
CellChangeTimes->{
& _! r$ w, V$ F9 r( }( Y3 s 3.577924621953125*^9, 3.5779246688125*^9, {3.5779582894220443`*^9, 0 x, L$ ~* M+ s. o O5 N. M
3.5779582992968616`*^9}, 3.5779584995700107`*^9, 3.577959040157753*^9, ! A( s$ u9 a6 c- h
3.5779622919996867`*^9, 3.578012447734375*^9}]
2 J, G$ @" ?8 W}, Open ]],
8 B: b& g0 S' e9 p7 x
$ e( Q; p7 N$ Q( p* f. lCell[CellGroupData[{
1 k( m" `7 o% h( d% Y6 w: ]9 ]! M( |' @) L* Q
Cell[BoxData[; r! Z) ?' |; v1 f R, r
RowBox[{"y2", "=", . {$ G7 X; n& i
RowBox[{"w1b", ".", 4 N: J# |: i; @
RowBox[{"{", 0 t4 z9 @0 R+ x3 j
RowBox[{
, y8 Y! s0 u2 {0 Z: b "u1", ",", "u2", ",", "u3", ",", "u4", ",", "u5", ",", "u6", ",", "u7",
( N+ R9 T4 q' T0 G/ a' O ",", "u8", ",", "u9", ",", "u10", ",", "u11", ",", "u12", ",", "u13",
5 D6 Z" G6 v5 d. y ",", "u14", ",", "u15", ",", "u16", ",", "u17", ",", "u18", ",", "u19", / [3 Q/ N" s7 n1 h0 M+ Z
",", "u20", ",", "u21"}], "}"}]}]}]], "Input",6 W: l% X! \, _2 b8 n# S# o& B
CellChangeTimes->{{3.57792471553125*^9, 3.577924755875*^9}, {
n' Z& Z7 a4 P 3.577924897078125*^9, 3.57792491596875*^9}, {3.5779583101856804`*^9, \6 h4 H' I: `
3.5779583178920937`*^9}, 3.5779623163513293`*^9}],7 e: _* y; e# h( \& ?6 W) u8 v
6 ~4 A" S% E, i; \% A* H& X8 S9 L$ uCell[BoxData[- g% [6 R7 g5 ]. T
RowBox[{
; @# W. x+ H/ h0 J, V5 Z RowBox[{"0.9125798890455868`", " ", ; M. {/ d4 i; H5 e
SuperscriptBox["\[ExponentialE]",
8 D# j( P+ ?4 {; k RowBox[{"3.141592653589793`", " ",
6 W1 Z1 v/ }' g# u5 ~ RowBox[{"(", * w$ u( z7 k3 ?4 D4 d
RowBox[{
; Y4 H; \0 k% w, @ a& C- L& g: \ RowBox[{"-",
% B x3 Z% |) j SuperscriptBox[
9 E( }9 p7 K* G, o RowBox[{"(", , }. w1 s3 O( ~4 _6 V G
RowBox[{
5 h& Y& }$ `, A/ q0 u& F) L' b RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
6 D! X: k( a+ y# g SuperscriptBox[& T) h. K6 D; J9 o' k
RowBox[{"(",
3 v2 j- L3 V* g; Z, w2 d9 U RowBox[{9 _# b+ x3 [9 B1 V! C
RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
$ o! f1 n( L6 |! W' R3 z# a b* y SuperscriptBox[
0 X A: k: r4 N. t J* T RowBox[{"(",
K% b! {& `: |0 ?. d RowBox[{! g9 r: I& t3 L) c
RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
. X; U* P0 ?9 V1 W; N+ Q SuperscriptBox[
; N7 K% u# ^- y: n/ }! v& n: v RowBox[{"(",
) d. G. q; q* w& G/ n; j* K RowBox[{
) C, A$ Q, U, k- O RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
7 z9 Q2 x# m( y. [' D" q0 B SuperscriptBox[) ]3 E, h3 }3 _0 S2 h8 p
RowBox[{"(", 6 R5 H! D/ H* }' T) b! Y. e
RowBox[{4 s2 d! o! m/ }# l. |4 t
RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
( b" S8 o" T; W SuperscriptBox[' U* e- g. ~# c( N
RowBox[{"(", . }" s* a6 @5 e0 s" g* d
RowBox[{) T( t- X) F5 r. _7 q9 ]) F( t; s
RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", + E4 p3 ?$ m# n7 F$ s7 a+ I, \
SuperscriptBox[
1 x8 e" N& H" q4 P RowBox[{"(", * z9 G% L3 e; B9 ~# {+ h8 H) j
RowBox[{
) q9 }& x/ L! ]! U% @$ c( l) Q7 [& { RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
1 ^' X* N4 x5 x' p5 J+ s SuperscriptBox[+ L* k" G; `4 z1 ?8 D2 O4 L% y; G
RowBox[{"(",
* D3 R6 V- f2 C: S3 g3 P/ g RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ( P* c6 Q& b4 v& H1 @$ j( b& r4 Q5 n
SuperscriptBox[ k2 N+ B9 `7 y4 k0 B' {) l5 T
RowBox[{"(", ' v/ s# y3 q% [
RowBox[{% X7 W1 @. X1 x' [6 u
RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+", * v, }) G2 T* \% `; U8 ]0 S' c4 m
RowBox[{"0.28831860112966734`", " ", ! C* u7 A. {& C9 @
SuperscriptBox["\[ExponentialE]",
E2 P/ @; d- g* Q- O RowBox[{"3.141592653589793`", " ",
- c* i' T' F. ]+ H' U RowBox[{"(", $ J0 e9 n0 Z& P' e" Y
RowBox[{
! `+ b3 D* E/ E8 u! G RowBox[{"-",
* C$ }/ d+ x R/ _! n5 Y* x SuperscriptBox[* p* {1 v, {7 P) t
RowBox[{"(", 0 {/ o, q8 _; m8 a( i1 r/ \
RowBox[{* \ d5 H0 W$ R, i9 n
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
5 |- D& C, C7 y! Z SuperscriptBox[6 t3 N$ M1 n$ g
RowBox[{"(", ' _5 A! S2 Z# S0 D5 I R" P
RowBox[{
4 d$ Z) c$ `1 P, Q/ c* | RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-", ! s5 m) z$ S/ b$ B0 b4 p& m2 w
SuperscriptBox[) c! o, m) b# Q- X
RowBox[{"(", 2 v+ z4 x4 e: Y4 z! p
RowBox[{$ s! K# {) K- {) u# j+ z
RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", 0 Z! Y# O7 w9 y8 q
SuperscriptBox[
2 o( E9 l. I+ n RowBox[{"(", + `9 ^" R9 c4 M5 F$ ?+ a
RowBox[{
( C! G9 g6 N% z+ l T5 g w RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
- w, l* W+ v; u SuperscriptBox[
0 K4 r; m$ f! @# ] RowBox[{"(",
4 o+ u( D+ R3 N0 S8 h RowBox[{
: c1 T% i, @; ?* x RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", . Z& Y9 W2 W( Y
SuperscriptBox[
9 p2 r7 N6 Z( g! j. ? RowBox[{"(", ) x- F5 x; @9 G8 ?
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
2 r- I3 y, ^9 v/ _2 b& U SuperscriptBox[) l$ Z( v* O, J# d/ ^
RowBox[{"(", % ]: J% y) X% y8 M0 i
RowBox[{
6 I! E/ z4 y0 [8 N3 ^: W0 r RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 0 p. P& I9 R' n3 R+ \/ `
SuperscriptBox[& g/ r2 m' z, h3 n: ]- W0 X8 r t4 K
RowBox[{"(",
2 m" p8 @- x8 g8 {3 u3 m: Z RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
1 j5 I# i9 F8 `) R( g1 x0 J' k M SuperscriptBox[! h [- H$ ?6 G9 o, l' L: _
RowBox[{"(",
( ^* |. F* D- [5 _, j* \9 f RowBox[{
. h+ K! E3 J# S; ~+ D. i8 z* Z5 K% N RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
+ K$ y. E; L& M( h* y "+", 3 Q, J" b, a9 s4 ~' R
RowBox[{"0.21159052285983104`", " ",
' ?+ v+ ~. Q ~7 ?2 T9 R& p SuperscriptBox["\[ExponentialE]", 2 M! ?! {) J1 d" Z! L
RowBox[{"3.141592653589793`", " ",
4 J' c: a0 N6 R7 p) _ RowBox[{"(", # Y( H( z B! B& t5 e1 ?
RowBox[{
& F' v. s5 O) R8 \2 w RowBox[{"-",
7 g% t- u! V9 x5 Y" f SuperscriptBox[: `1 n% o3 Q8 h t9 h) X# L S
RowBox[{"(",
2 N, a! I* p" l9 d; a3 G x% s! E RowBox[{
1 Z/ v$ [& g9 r4 y0 X5 _+ M RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
V2 |4 q; c# ^& U* c SuperscriptBox[4 Y m! r1 g0 r3 M$ u! h
RowBox[{"(",
! l# ^7 Y Y8 _6 q% B8 Z. l M( a3 \- D RowBox[{( X3 C) |9 v# \# g) s6 @
RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
0 y# @& O& W$ \7 Y0 D SuperscriptBox[
8 W: ?+ e6 a1 B7 L RowBox[{"(",
, V. H B, Y! j6 w RowBox[{
2 H/ v9 s5 D# [0 { RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", - [* C6 r( t8 l3 L, ^1 R2 g
SuperscriptBox[5 V1 D- E( ^3 K
RowBox[{"(",
1 D% x$ {6 C- A8 | @4 z0 p# N5 g RowBox[{* d7 E9 e8 q2 ^
RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
+ J+ l/ o; G6 w SuperscriptBox[
5 P2 M5 Z- i' D$ b3 m. j. d6 Y; v. A RowBox[{"(", ) I$ L& I! a$ e, P) X# C6 l
RowBox[{5 ?* y3 t0 q \- [
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
5 D' C- E6 D0 U SuperscriptBox[
; E( y- d& d1 z, B2 B' O; O* b RowBox[{"(",
% M% K( O2 A# ~, w RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 9 X* x2 \8 J# x ^$ I( x8 C( y3 ]
SuperscriptBox[
3 E! Y1 v) M: j; V RowBox[{"(",
4 l; A/ ?8 z+ _% z RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 4 t! ]% J% v% Q# [
SuperscriptBox[4 v' Z. x3 ~5 v# Y; q
RowBox[{"(",
$ k' M) W& p- Y, \4 L% k( }$ F( _ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", : n: Y$ B1 H6 C( ~5 B
SuperscriptBox[. j+ M9 S! }/ \; [
RowBox[{"(",
" s3 [9 n: z4 f' t RowBox[{
5 B! ^9 N. |: c) I. [6 z RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
( k: g J1 P* t( A; o. k "-", ; f2 P3 b) V. o7 _0 ~
RowBox[{"0.2282993884666894`", " ",
9 J ]" `: Q2 |8 s) s$ i( L$ U SuperscriptBox["\[ExponentialE]", 8 ]8 J+ W$ y* _8 w8 f% b" M
RowBox[{"3.141592653589793`", " ",
5 R7 G" a) V; X RowBox[{"(",
. w6 t) U; `- K6 [% ~6 S" J( a RowBox[{/ y1 ^% \' Q1 D
RowBox[{"-",
: k0 [6 z3 K" ] SuperscriptBox[" q2 ?8 h& t: j
RowBox[{"(",
$ A$ n" |& i% f' J. d RowBox[{
. V; v0 Z* c4 b5 R d" E RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-", 3 \; ?! N% m/ h- j
SuperscriptBox[
}3 G) |+ O* E0 ]$ | RowBox[{"(",
P9 f1 N# B0 Q+ _) m RowBox[{( E/ x P2 g* {4 ]6 b' t
RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", ( n2 A4 U7 h4 E9 w+ j. h
SuperscriptBox[
# K R5 u5 R' V; i0 ^" v4 @3 O1 X RowBox[{"(", ' ^# H/ ~, |. H7 G* ?2 h# s: b
RowBox[{! ]( d: ^1 \! u* u: }' S# R- A0 R
RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", " u1 I a4 w0 ^ A0 M3 X( S
SuperscriptBox[. z: ~$ a- r' F
RowBox[{"(", % J9 H- `: M8 Z! k e* R
RowBox[{: T2 S' v. o5 I. n* ~5 w6 H1 C
RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", # J& _( H- G3 Y# O
SuperscriptBox[
- c' X, x9 g+ H0 ~ r RowBox[{"(", 2 A4 R5 w8 }/ i
RowBox[{
( a& m* j/ V' L. e RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-", + d% v9 n* J% H. i6 l
SuperscriptBox[2 Y. x# c0 o6 r0 `# [
RowBox[{"(", , {2 t4 e$ \" |
RowBox[{
5 n$ c; w/ w# M RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
/ \4 C% \0 ~$ K: ]( N7 z0 t# O SuperscriptBox[; G& l r& A( X; F/ s* ~, C
RowBox[{"(",
( Q, s2 X/ _3 ^1 H1 j+ a RowBox[{* p( m" t ]! Q* p7 m1 R; a8 I' ^
RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
. X7 `+ J; U b [3 v- b' \ SuperscriptBox[
" q& }' o# K6 v1 W" Y( Z RowBox[{"(",
6 b. w2 R, t! D& X5 m RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ; }' r& v# R) f1 \# P
SuperscriptBox[
# k1 Q6 ^) \9 `3 c1 {$ L RowBox[{"(",
+ f3 g7 X* {1 M" D6 P3 @+ i6 s, {+ U RowBox[{
: m5 m. }- ^ H RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
; a; r d& A/ z5 R/ i8 Q! X "+",
" s/ T% F# Q6 m5 Y RowBox[{"0.27551257162880227`", " ",
8 f( C" _% M4 z& ^0 a! Q SuperscriptBox["\[ExponentialE]",
. X9 f8 [: Y# T$ @ RowBox[{"3.141592653589793`", " ", $ O5 v1 G& V5 F/ C1 K- x
RowBox[{"(",
; y! ^4 Z" n c8 W) U) H RowBox[{
4 M4 b* m6 L$ K0 C8 Z& D( e `+ ] RowBox[{"-",
" p2 J" m; ?, b; ~$ L SuperscriptBox[* i" m2 x# `5 o6 ?" o; h
RowBox[{"(",
: u/ G7 \4 A' W* l( E; U# | RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
, `* a2 g3 W- | l4 _( i SuperscriptBox[, n) @- c3 h a+ r9 ]4 Q6 [: L% D
RowBox[{"(",
+ h+ f1 w3 t. x' j. M3 P: G5 O RowBox[{
: ?! f5 h6 J N RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
0 T$ |! R( _8 m4 S1 o, u; q1 s SuperscriptBox[1 `8 L# ^6 j: L4 a: V( M
RowBox[{"(",
* j4 W* _. i) Q) n# x% v RowBox[{
% s' {( C1 | s$ V4 [: S RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", # V$ J! M& O& p$ x; Z5 a& e
SuperscriptBox[6 l8 i1 a, g# h$ x. W8 |* Y
RowBox[{"(", 6 G) \ X- ^8 q+ o4 G! i- J
RowBox[{/ G7 {3 a" |" _; t% J4 D
RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
/ H, s8 O# n( p0 F4 I" U SuperscriptBox[, x6 b% _: {8 x- D9 i
RowBox[{"(",
7 b. g R& V; `% \+ Y% q$ U RowBox[{# X5 w2 d5 F: I) ]: I
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", & ]+ _" I2 \# D0 Q8 r+ D% p: J
SuperscriptBox[% c2 p) S; F; P9 q; O
RowBox[{"(", ; [9 H# ~: ]6 o) p
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", * r" k5 J0 ~5 F2 F. k* }
SuperscriptBox[
) P: Q; ?, |, ~* q6 x RowBox[{"(", ( l G# }* T+ Y+ @- S
RowBox[{
8 _. }! `% R1 A RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", 7 u& y/ s: K* ?
SuperscriptBox[
& X* l7 m! s2 ]4 s/ r8 H5 ~) ^ RowBox[{"(",
. D M8 W( g5 `; R$ ^( a RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
( x; z7 @" D: I, H SuperscriptBox[ p- P5 T; i4 _, t4 H
RowBox[{"(", 1 N) @4 b# a: m; S, @8 }4 U+ a
RowBox[{, i; M0 G# u& O M6 i9 N
RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
) s7 v; b* _% W I! ?" { "-", - L" t6 j& t$ M$ n* ^3 T7 j" l
RowBox[{"0.12620581913715245`", " ", * I( |1 |$ s) y% ]
SuperscriptBox["\[ExponentialE]", - D; [" _' r: \# E. \
RowBox[{"3.141592653589793`", " ", 9 }4 a- i, C: v( B; ?
RowBox[{"(",
$ |1 I7 h4 ~! m) g9 d J, d RowBox[{
5 S; C, M9 Q0 g2 o7 B+ o6 \ RowBox[{"-", 7 i$ c) n* O Q) `# W( W
SuperscriptBox[
3 w6 _7 K: V3 O% v9 R$ y RowBox[{"(", & g- }5 d+ v# a) o0 ~- E. Q
RowBox[{
3 R# p& [) s3 z+ q RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
; F/ I: z' l9 q) R& s4 ` SuperscriptBox[
) n0 G& A' V; H6 s( a# B/ K RowBox[{"(", - o" S# d' C% ^' h5 h* t9 }
RowBox[{
" l- |, J- W' V/ s* Q RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
g1 K* [/ B8 ]/ ] SuperscriptBox[4 U6 A* _7 G! d4 E% d. o& a1 Q
RowBox[{"(",
" Y6 C0 N7 E+ T8 I) ~ RowBox[{
' z8 o# _( O( ? RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
. m- C' t/ K) m) P% j* o SuperscriptBox[1 ?0 z$ j5 P/ ~% n% i G
RowBox[{"(",
+ n+ ?! n3 [: c7 S$ \! A9 g7 {, ~! O2 l. S RowBox[{
4 H: ]5 a* A" m! M RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
0 p# S) h: S6 M( g5 D/ y0 V SuperscriptBox[
- P; e2 _0 O5 X- _( r3 b RowBox[{"(", $ |# Z# |1 w! t4 R/ X
RowBox[{, Y$ ?2 e0 T" K0 B( }; S' H
RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
( i. a: m% K$ H q% W/ q+ a' L B SuperscriptBox[2 [0 v6 T; ?& w/ M+ V) q% t
RowBox[{"(",
# `2 R/ G9 T- n3 W6 l, E5 ` RowBox[{
R/ D9 l& ]8 h" t+ A' Y- J RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", ; ]' ]& t) G! q$ \( F8 N7 y
SuperscriptBox[( m* e4 f( h0 d" F w* q
RowBox[{"(",
8 T! V, I% o6 t$ p+ |6 T! _- Y RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
* L. ]1 Y5 t# a+ ]+ ^: Y5 E7 j SuperscriptBox[5 g# A) t4 D8 @" v2 r+ l6 Q
RowBox[{"(", 8 K9 [3 Q }6 q* r
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 0 @& c6 z5 |9 W, k8 q
SuperscriptBox[
: E0 a9 |9 U1 E0 h& b# m RowBox[{"(", , w- e- [ e5 J
RowBox[{
[$ M& t# I, e0 W RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
6 K) j/ I0 R' G9 ?) m# K/ C "+", # r6 J7 Q6 w, c; m! W! s5 v
RowBox[{"0.12782130225993923`", " ",
; i5 F9 V2 b) P" ~4 L; ?" | SuperscriptBox["\[ExponentialE]",
/ a8 ^ @9 Q3 a2 f RowBox[{"3.141592653589793`", " ", . T! r1 W. }% f. c3 \
RowBox[{"(",
" ]5 F0 ^* i& A RowBox[{
) y3 k0 Z- n0 k2 d. w RowBox[{"-",
9 {5 {7 t- n7 N9 \& R SuperscriptBox[; e0 a4 Z: h, b9 w1 w
RowBox[{"(",
) w9 w% y& G# ^ RowBox[{" Z! g; Z* Z: s6 ^: v$ i
RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", ) e! s, |5 u7 u
SuperscriptBox[% d% C* P+ q1 L
RowBox[{"(",
1 i$ h1 S9 t/ j& b RowBox[{0 s3 D# i' T* ^' v) i
RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", 7 g0 V1 H2 w1 V% j! K
SuperscriptBox[
: g" q, j4 M1 e8 _ RowBox[{"(", ' d& x4 V' |% O8 [& n9 w9 t
RowBox[{
9 f( y* T/ z { RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
# j5 h" Q- ?% u t SuperscriptBox[
/ [9 }/ T3 d+ o$ k" h$ _ RowBox[{"(",
* H4 ^. g* t1 e$ V' O2 b I RowBox[{( o0 P, R+ N9 ^1 `' V% y
RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", Z7 N" a$ [) I# d4 S
SuperscriptBox[
5 e z+ @3 x% {5 n3 a# x, \' G RowBox[{"(", % G) w8 K5 Z" z% s9 s* \3 R
RowBox[{
) i2 p: p+ `' d0 {9 {6 y RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
H) G$ d; q/ N8 V! C' `' q' [; x SuperscriptBox[
3 C/ `# k9 q3 F( K RowBox[{"(",
3 q( S& @" B; X9 O) N* G& D RowBox[{
, Q/ L# M5 L* [; W RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", " t5 X) X8 L: U
SuperscriptBox[, t9 U8 t: w: j; Z
RowBox[{"(",
6 I) ~. G9 w) n$ C! O) M' v4 E* E RowBox[{6 R* u( k8 x! d1 g# x" i
RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", % j3 l J& P( B( p% Q
SuperscriptBox[
- G' d$ R: [% @$ w: s2 A RowBox[{"(", + W# q3 z% {3 P
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", / h4 }- S, e* y0 s( z8 ]. N
SuperscriptBox[
2 t) G* h. I4 z. L+ ` RowBox[{"(", $ @ f1 o# K4 I9 R4 v* j1 X
RowBox[{* x I4 K8 Y5 u/ c; l
RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 0 p6 @6 U& C0 Q& c7 C1 o' L) ^% c$ ^
"+", ; a4 U7 O; o8 n
RowBox[{"0.2361524780938108`", " ", : E. g4 F, s/ _; V( l2 d3 S" o6 s
SuperscriptBox["\[ExponentialE]",
/ b) E; ^2 ?; T( p/ @& \% w. h1 u RowBox[{"3.141592653589793`", " ",
7 G/ v4 b. U( H! W$ m1 `3 p RowBox[{"(", 6 j2 l! D' ?8 e1 H' g
RowBox[{$ R" ^# f3 ?$ x: n" w5 x( ]5 G! u
RowBox[{"-",
1 T/ d+ E" H6 A9 v SuperscriptBox[
: f1 w9 K# M1 ]3 F5 y RowBox[{"(",
2 G$ o3 R' v" S" T RowBox[{
% z- k) ^( e& \$ i: g6 h- ?3 s RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
, t3 M6 W; Q! h SuperscriptBox[% X" W. L. K, y* d
RowBox[{"(",
6 Q2 @. E, D% p RowBox[{
B- R# Y4 ]6 j5 O! S RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-", " N3 s: k) N- Z! M
SuperscriptBox[& M; e4 _6 o8 ?: x5 [0 m9 J
RowBox[{"(", * d7 {2 z# S; H8 N* Z! L
RowBox[{1 ^. s# U7 P5 @8 }4 h7 l
RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", : T: g9 q3 n: o
SuperscriptBox[
8 a4 h* p( K6 P- @4 t" {1 l RowBox[{"(",
, s+ {5 \1 \) x$ N8 O6 f1 ` RowBox[{
9 ?6 i# ~: ^2 B: o% a( n RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", * E7 H* A9 F3 A9 X$ l- y
SuperscriptBox[$ X& y4 z2 d% n* P' p9 U4 m& [
RowBox[{"(",
5 Z) {9 q* p7 w9 j; G' g5 ? RowBox[{
% z& z+ X: U/ E9 X& ~0 }5 E+ U RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", 6 }2 a" {# n7 e
SuperscriptBox[
# o# J! ^2 e; l3 J4 i; s RowBox[{"(",
% R% a0 X5 [9 |( b- f RowBox[{
4 E: D9 Y% \: z RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
5 g" {( y6 r* I. q3 q, ~$ \ SuperscriptBox[: K/ M: t! f( }
RowBox[{"(", ( O2 G+ f8 z! A8 I
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 2 h& w7 q7 \7 u9 p
SuperscriptBox[$ I, k, e% ]1 _8 [3 t6 ~! u
RowBox[{"(",
& I$ C- d3 C: ~3 ?8 Y RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
5 }4 `# s7 X3 n. n5 w) S9 {+ L/ w SuperscriptBox[& @# q4 I6 U# k! ^/ E) ?
RowBox[{"(", $ M: g/ S3 T5 ?$ @$ G( L+ b
RowBox[{& k2 A1 S, m7 n3 H
RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 4 Y1 G! X: J! F `: X K
"+",
5 B) l$ k( c2 ]- R RowBox[{"0.3207174990295839`", " ",
2 n) T- \/ c" O) H SuperscriptBox["\[ExponentialE]",
0 j) e% u8 \1 t. g8 c RowBox[{"3.141592653589793`", " ", ! n0 N$ e- e- {. [. e2 X
RowBox[{"(", 3 C. b0 p: n7 l; P/ I' }7 r
RowBox[{3 x* G4 b. |/ X
RowBox[{"-",
# |3 H* a* Q+ [1 T SuperscriptBox[6 Y8 k" Q$ P6 @7 P* n8 c
RowBox[{"(", : J7 ~& _! b; E0 D& Y/ U
RowBox[{8 O4 U: w4 m. |. [1 ~3 G
RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
2 Y0 f+ _( e: R3 i SuperscriptBox[
: m W/ b s; n3 y RowBox[{"(",
$ ?& a3 q6 t) m f5 U RowBox[{' m6 H& j1 d) t, h
RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", / y& M- S* d& ~: T7 D/ `
SuperscriptBox[% ^" o J! }5 c( j4 \! h
RowBox[{"(",
8 W t2 n7 j2 R3 F" l V$ E6 a RowBox[{1 u; k7 \' }7 h2 l& Y& d3 F n* O
RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
6 \4 O; R8 _. D* ^! x SuperscriptBox[4 F& }! X' v, v* e, u+ m" ]) m& Z1 m
RowBox[{"(", ( k# t; h/ ~5 K
RowBox[{
* h& ^% _& _0 q; w RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", X6 q- A a- }0 N% _1 L
SuperscriptBox[9 y8 \1 C4 C' ?6 O4 `6 T W+ Z; n
RowBox[{"(", % y# V& |3 P5 u" q8 U$ {# S
RowBox[{4 |. z, \4 [$ E" _7 Q3 D
RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-", 8 t- y& ^1 z% a6 g6 {9 i6 P
SuperscriptBox[8 P; L' N5 [( k- N3 \: g! _# X! [
RowBox[{"(", 9 D2 ?& o9 q9 E
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", , l3 r4 ?+ A' p0 K, n
SuperscriptBox[; m7 w1 p5 L2 L. O
RowBox[{"(",
" N2 ?0 t( w6 Z" m0 ~. l Y% @ RowBox[{
+ C& Q: ?3 k q+ ]2 N, M3 M9 O) ~9 @ RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 8 x6 @2 ?/ n# O7 B1 i
SuperscriptBox[
5 F0 v" ]1 ^; | RowBox[{"(",
/ j! D; H- h1 B$ V, h RowBox[{
5 \6 [ b8 E% d. D1 D RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
. x5 N$ U1 d& @9 o: F- ~ SuperscriptBox[# z, |1 m2 ?" p, b8 k! K
RowBox[{"(", 7 }" H. P% T d) g' T: u/ m' u
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
- r$ r: b4 I$ i2 J9 p ")"}]}]]}], "-", " X4 |4 S I9 b7 I
RowBox[{"0.15852708848338315`", " ", 3 l3 E! D( R5 B6 d8 H2 e/ |/ X5 a
SuperscriptBox["\[ExponentialE]", 6 k) X5 q8 x6 j: G& W3 D; G+ D
RowBox[{"3.141592653589793`", " ", ; L! @$ [/ ^0 _. x
RowBox[{"(",
0 r$ j2 D5 K3 z8 C4 d: g% G RowBox[{5 s4 K+ _. ]* r; e+ z
RowBox[{"-",
8 I' Z# h6 f% w x2 J SuperscriptBox[
% W4 J- {7 ^" U) { RowBox[{"(",
; T, M' }& H0 K2 Z# Z. b5 h RowBox[{* ~3 k: [" R* b6 s) o& d9 U
RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
: l6 ~2 N) ]+ S- `0 w: b SuperscriptBox[* J% [$ {, V$ T7 }0 ]
RowBox[{"(", 5 Y" j0 [( A& T* O' @ u" \
RowBox[{
7 R- ^1 Y0 |( {# }: T I: a1 U RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
. w( C6 N! r/ d1 q6 T SuperscriptBox[
D& Y' }, r# i1 K RowBox[{"(", / Z" l9 ]# C3 c4 V0 X7 J$ Q
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", , m; R& Z" C+ x+ I: Y: M) B: q
SuperscriptBox[! P' Z" c& R" J+ @9 J6 I
RowBox[{"(",
" Y3 [1 b7 m0 G. e9 s Y! U RowBox[{
) T: z7 n6 v" m3 M; m, Z RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
+ F& f4 S$ x; a. c% I SuperscriptBox[. [& [1 E8 x$ q4 g! ^% o8 ]6 ]8 H
RowBox[{"(", : j) J# c+ I7 V9 R
RowBox[{
3 T' x0 I& h) o/ g RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
0 B2 Y5 o- d' h# Z. c SuperscriptBox[' a8 S* m- V5 s# U9 J% _
RowBox[{"(", 9 ^) _6 L8 l4 Q) c
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
9 Z3 F5 n1 C3 @6 @$ c SuperscriptBox[, j4 C; q+ V' {( |# y+ v: H) m! ]
RowBox[{"(",
/ |& J5 m2 v2 C/ y5 Z, z2 I; b% b RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", % l* r. e, h5 n
SuperscriptBox[; H5 k- ~/ `! \( j* S) }
RowBox[{"(", ! h9 C! T$ o* L
RowBox[{9 M& {" v4 @& J6 @
RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", / T ?1 ?7 p* w/ i" z
SuperscriptBox[8 a2 O+ i T8 }# c4 }' s/ ~9 s
RowBox[{"(",
% m; Q. z1 A6 l J RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
( `) z9 \) _5 D S" S2 v" f' c ")"}]}]]}], "+", , q! u8 Z7 D6 @# a9 A4 P
RowBox[{"0.6019775648968265`", " ", 6 V2 q4 }& n6 [6 \1 ^1 L
SuperscriptBox["\[ExponentialE]",
* [6 v+ z8 q3 Q$ S% [! z- J% c0 z: [ RowBox[{"3.141592653589793`", " ",
7 a8 x/ i& O8 e+ d# y/ U. F/ _+ ` RowBox[{"(", 7 s# j0 q! w) @) l0 B
RowBox[{
2 `) x' N9 X' W$ e' r RowBox[{"-", 8 i( a7 T( |! i% q" E- g
SuperscriptBox[, k( x4 w5 D6 e9 a) H
RowBox[{"(", 5 N9 V. z2 K0 x! N7 [8 m
RowBox[{
5 k; G5 A. n# X( r& @ RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", + |# z4 z* ^! p% ^# R4 u
SuperscriptBox[
! q2 P+ q& _3 t2 n$ [& }, A3 Q RowBox[{"(",
" {! T! J, l# s) O RowBox[{
( ^0 p. e* |7 Q* `, V' B RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", " K# q! I5 [2 Z ?% T9 x+ d1 q3 Y
SuperscriptBox[, W2 U% a6 }. j% ^0 L" d/ j: w
RowBox[{"(", / R9 |$ q3 @0 }" V
RowBox[{
: V/ g4 A7 ~' |9 f RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", ! ?. ]; v% k* O9 ?+ J! H0 J. e3 q
SuperscriptBox[0 J, n% a6 {# e% d: L
RowBox[{"(",
0 F; ~/ |3 j2 V! F: _( I" p+ { RowBox[{# V: A$ v! `9 }; s, D# g8 q
RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
" @2 |3 x1 _' M' I SuperscriptBox[! \. k- S b# Q" s# Y m0 n n! @
RowBox[{"(", 7 G" I9 l/ @. ?2 A6 a
RowBox[{" h1 r g9 Z w- P0 W
RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-", ( q! U! b0 ?: [* o
SuperscriptBox[
9 c7 L; u: ~% Z% d6 H* P RowBox[{"(",
: _" u# V: U8 h( K' B- P' i# ^% V RowBox[{
) ^* }, T8 b- A- } RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
3 r) v/ j0 b/ n SuperscriptBox[6 x( G! J- A6 E0 Q9 K& Z
RowBox[{"(", : B% m" j8 i; y6 `0 F0 N
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 1 k2 q1 f; i- m+ C7 o4 M9 A. h
SuperscriptBox[0 ~9 w* [+ N7 S
RowBox[{"(", / F% A, C X9 v. u6 Q% J
RowBox[{
8 B% k; H: X, h RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
& E& x9 Z1 Z2 Y: H. x5 f SuperscriptBox[
9 g4 y0 Q. `: l: y& u2 n1 V RowBox[{"(",
! l' `' ^4 r( T. L8 Y+ g RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ' P9 E, q- |4 J% W) V$ k
")"}]}]]}], "+", " v# f E6 w- T3 X3 B" b
RowBox[{"0.16041393254115022`", " ", , G4 P% M5 B/ U5 I, D
SuperscriptBox["\[ExponentialE]",
6 J7 U; C! q9 D T1 [" l RowBox[{"3.141592653589793`", " ",
+ L3 Y6 C& p+ e; L U RowBox[{"(",
# n5 g" K: h6 P# n" P2 j RowBox[{
$ k; ~# s( L$ u RowBox[{"-",
/ h: P" T, u8 J" V+ V SuperscriptBox[$ e% \7 M; ]" w, Q
RowBox[{"(", 1 B5 [( Y. u# ]9 r6 ~0 A8 @
RowBox[{: s' z* j |2 B5 T8 U
RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", , S6 j3 H: [" Y* z
SuperscriptBox[
2 n" f/ l/ o$ S5 t% } RowBox[{"(",
; C# a4 n0 I' ]: ~4 C RowBox[{; S. s/ l) z5 H1 d7 W# J) r9 @/ w/ Q4 e% H
RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
" Q3 U8 M( b% ~1 j, m1 I SuperscriptBox[
+ j, z Y' G* t0 Z9 j RowBox[{"(",
) t3 e$ D2 \3 p* s& Y/ N RowBox[{
) R* t* g* V6 p8 o: j- r+ ?- |2 f RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
( v# Q! k" b5 {" ?6 X R SuperscriptBox[- c8 h4 b4 x. L' _
RowBox[{"(",
6 p! E8 `5 i' g2 ?. J4 Z( r2 u2 } RowBox[{
2 o% y( P1 O' S. k RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
. S H7 h: S6 h5 ?/ n8 g SuperscriptBox[
; C4 {: a$ F& z RowBox[{"(", - ~+ I( U7 c) h/ U3 M- p# F& k
RowBox[{) ]5 {7 a' n9 C8 D
RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
0 [$ R; [+ R4 d7 Q SuperscriptBox[2 K- B6 a1 ~& x
RowBox[{"(", 7 v/ A5 B) v, ?3 k# \0 _+ L7 {
RowBox[{0 f0 _. q/ k0 v
RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", 2 @- S" b" |; ]" }: k2 X1 m# k
SuperscriptBox[' R {# |* V/ A: T
RowBox[{"(", * _. V) C ?5 i1 R3 ?
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
i$ @* D/ |5 j5 J% D# F/ C SuperscriptBox[+ O( y- {" [2 E
RowBox[{"(",
* L( }% ~' B5 M3 o2 p& l RowBox[{
3 c( |4 J$ a6 `5 W. U5 v& a RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", ) c5 |1 ]. h& [2 K
SuperscriptBox[7 ~ j3 K" v2 ^) ?1 C" f$ O& \3 Y
RowBox[{"(",
* `& c4 Y7 m* S/ ~) p( g F) w RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
( I u0 b* X3 Z: i( D) x1 K6 Y ")"}]}]]}], "+", / ~. l" {$ a- W9 | ]
RowBox[{"0.48228184971363947`", " ",
( ]2 N1 m; `* ~ SuperscriptBox["\[ExponentialE]",
: R/ Q4 x/ z. }( T- @ RowBox[{"3.141592653589793`", " ",
0 W$ p2 b. G- x9 b RowBox[{"(",
- l/ Q2 v) ?, X: f# h3 C" \ RowBox[{
7 R" g6 }% D! M+ J x; w% ^ RowBox[{"-",
9 E7 G. d0 c& S' N2 t& g1 Z/ h SuperscriptBox[6 k" E, K: F2 \5 } E% G
RowBox[{"(",
& J2 n2 J) u( d3 `% [& @" E RowBox[{% b3 H8 d, T7 E, b) `3 ^
RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", . O& v' C- C# y a& A
SuperscriptBox[
+ a0 q: P# E4 m5 s4 ^ ] RowBox[{"(",
) H& T3 t. }) F RowBox[{! |/ O" o! ~2 z+ B
RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", ! N, t/ Z' }; ~, U
SuperscriptBox[3 A, |4 j; H7 o$ R
RowBox[{"(",
+ X: p$ D0 B* N+ M5 z8 w RowBox[{9 U( y$ Z5 q6 O) z5 o: ~. l7 @
RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
4 j- L8 F- ^2 ?# l! k SuperscriptBox[+ a" j& }9 f ]/ {9 L5 n) `5 Z
RowBox[{"(", 9 V( ^( H' K( B }' ?! |
RowBox[{: M; P8 I& G; U
RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
. z! ? B2 W" @7 c$ Z SuperscriptBox[# i+ f7 B; s( V5 \6 L; Q
RowBox[{"(",
5 R' I- h6 a6 Q% l I RowBox[{
7 D8 X% ]6 n" J0 W RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
5 ?. X2 N; o |5 L2 E3 `; k SuperscriptBox[
y( [. V4 y5 s) X! h3 D, k7 w7 K RowBox[{"(", 5 \$ y ]4 Z, U8 Z# t1 t* K6 _3 _0 b1 J
RowBox[{
" B" ^# l0 N/ S* r) p+ I3 b% G RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
- s6 a( V4 [6 Y SuperscriptBox[5 t6 `" f6 C; g; {4 O( i
RowBox[{"(", % A! N! B2 Y7 z8 M" x+ L' R
RowBox[{. s% f- C% u5 t! |' Z2 @, r) N
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", 1 M3 B6 a9 z9 D* G; h* t; c
SuperscriptBox[
+ B# G1 |( y! ]! F! \ RowBox[{"(",
0 o! Q9 H. U0 ]" o/ R- |" p# P2 P RowBox[{
8 [& k( ] O3 e- i3 Z RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", . y6 a/ K% d! o6 y' c* e
SuperscriptBox[& T1 ^, p" a5 v$ a# D
RowBox[{"(",
/ L0 e8 W I+ x RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], , ?1 O V2 ~" T. o; ~3 Z, n5 m3 Y
")"}]}]]}], "+", / p" t5 l, x7 r) L* ^6 X
RowBox[{"0.2954923840077215`", " ",
, k9 i( U( i' X, L SuperscriptBox["\[ExponentialE]", 1 {& X& W, t7 }
RowBox[{"3.141592653589793`", " ", ' [. |1 ], a9 J% i' F4 b
RowBox[{"(",
) Y# q W. s! ] RowBox[{0 K$ x0 d ^0 {1 j& Q& x
RowBox[{"-", * Z' F. _' _' N" Z0 P& R8 b
SuperscriptBox[( ]. J+ g* L' p V
RowBox[{"(",
: J5 u4 I& H* n: G RowBox[{
& C, c) ?4 ?) R. B4 m( E2 f/ Q& F RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", . z1 \1 f+ o. ~
SuperscriptBox[2 L8 N5 ~9 p5 n& O: M, @8 S. ~
RowBox[{"(",
4 ?7 G& \& u- \ P RowBox[{
. T- `- I! {; v! ?+ Q7 P: o4 q' { RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-", 3 {$ S! B4 R3 b Z# Y
SuperscriptBox[
0 @& V: ?2 L$ W0 L RowBox[{"(",
9 ]: e3 J- B' E( n/ {* G& f RowBox[{: T; `1 s% r7 H0 u/ m6 x9 Z
RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", 4 j2 u$ F5 `" O" V8 U
SuperscriptBox[
3 \( L, ?" q$ r7 _- v; Y RowBox[{"(",
/ {* |8 ~5 k" ~1 M1 e- {. v RowBox[{
. G4 a! o H& h( H3 I7 {+ p RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-", ; f$ c, O2 F7 U$ `% a
SuperscriptBox[
4 }- M7 c0 a" V3 L RowBox[{"(",
& H/ }2 G' ~. l. e5 N7 f% V RowBox[{
& _+ w, G( |" s0 W RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", + a/ q: ]( P8 e4 c
SuperscriptBox[2 h. I' ] ?$ }7 y$ [; `
RowBox[{"(",
$ y2 g: X( T0 T RowBox[{- b- g p# P( c, r: p. b
RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
0 f2 h p' N D" @: _( M' ] SuperscriptBox[
2 U$ H: d* V/ a# ^- F RowBox[{"(",
8 \: F7 x$ @" t: \% J5 Y RowBox[{+ N- A+ d X9 r
RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", ) \& g6 I/ |( h& [
SuperscriptBox[
6 `: K' o3 T! e; | RowBox[{"(", % _8 l$ J1 W7 m. k2 r
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", + P* c B0 {, h- K0 r" h/ O8 S
SuperscriptBox[
, b! U: Z# t, v9 w: W. t, R RowBox[{"(",
. Z0 I# o0 h. P RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
* D9 X% p s/ E8 M5 b/ I3 i$ P ")"}]}]]}], "+",
% d2 h% }8 q$ b# b RowBox[{"0.3129687276967983`", " ", - r, l. a& M& _+ v' u
SuperscriptBox["\[ExponentialE]", # g2 D7 Y) m$ C, R% U! z
RowBox[{"3.141592653589793`", " ",
) h+ L# r4 ~' ~ RowBox[{"(",
8 p( y7 l& v. K" f ^ RowBox[{; a& r/ g) F) r9 C' }
RowBox[{"-",
5 q! c# `/ ~6 \. p6 C" g SuperscriptBox[
' I r2 m/ r7 N! n+ ^) X RowBox[{"(", + L3 P7 F% o$ c. R5 Z0 A
RowBox[{3 \6 e8 L, _$ S1 q4 g; V; W3 G
RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-", 5 V+ n \: Y6 |
SuperscriptBox[
0 r( R0 b; t# e) {- w; C RowBox[{"(",
- i1 M$ _: w' W1 V0 D: v7 T/ G RowBox[{7 Z. R% Z t6 H% W1 \
RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", ' ?# l3 W7 Q; u' s3 ` p
SuperscriptBox[
* L6 k$ ?; g- \6 {/ F4 q, \- E RowBox[{"(",
. [) `, f0 V) _% Q: T' F! N RowBox[{& t z" G3 m* h0 }' P# R/ |
RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", . ?2 F1 e4 n, O
SuperscriptBox[& e2 I. D' y- Q' q* N$ w& M
RowBox[{"(",
# O6 Z, ^' K R1 ~( k+ ]. R RowBox[{, s: L N1 C( P- @% @* |0 J* z. Y V
RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-", * q) X/ g: v5 i0 [3 Z _3 s! @% p
SuperscriptBox[% w w+ u7 W+ M7 y5 H
RowBox[{"(", * ^1 v7 o/ Z, i: U/ d5 s% N
RowBox[{0 q2 O+ C j# u/ ^( }
RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
5 r% m- A0 C# i& o: b% J SuperscriptBox[5 B5 ?6 ^- \: O% m) U: H
RowBox[{"(",
$ T8 U) u/ F4 h- _) X c RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
) S% G/ _2 J' u: q5 ?9 s9 ` SuperscriptBox[
7 M/ O( K; N7 C4 U) |- G RowBox[{"(", ( E$ p4 c+ h: X
RowBox[{# @6 s( {. R f- ~9 a( B
RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", r. H+ ? u& }$ u' G7 E
SuperscriptBox[
! B( h# p; F* d/ L RowBox[{"(", 1 `9 @5 L. N' c0 l F0 l0 z
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 8 B# k3 h+ |# R0 g% g% t/ p: n' u
SuperscriptBox[
8 f$ ~- D, J" H! i1 X& {* f RowBox[{"(",
% }% n* ^& {2 t0 }, p RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], $ }* `0 Z% p, J+ h* z) J1 ~
")"}]}]]}], "-",
. m$ N N1 g2 E" ^3 U7 j* s+ l2 v RowBox[{"0.4666313851213302`", " ", % b+ {6 _5 y2 O/ D# y' N
SuperscriptBox["\[ExponentialE]", # \% {9 \. X- A0 W& @
RowBox[{"3.141592653589793`", " ",
. u' d) C0 y& o RowBox[{"(",
]- P+ m+ ?6 }1 A8 E* K0 S2 R: q RowBox[{
9 H8 g- N0 i# }0 G. R3 W RowBox[{"-", / b1 `* l$ N, W! U1 Z
SuperscriptBox[
U+ [( F9 r, N( f# g8 s RowBox[{"(",
( a6 F; j9 `/ {; g& J RowBox[{& G/ b" w- r$ A" [; h: ]
RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", ) f" ^( P: W6 G+ L6 Z
SuperscriptBox[
4 Q* M# B/ H3 m RowBox[{"(",
+ O( I5 @; ]0 p( n8 Z. @ RowBox[{8 B3 ^: p1 b2 y* j, L2 G7 u
RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", . J$ _* T9 r6 r4 D; {0 I
SuperscriptBox[
# C4 h( [) K: h RowBox[{"(",
* e9 |/ k4 x0 H6 u4 i. _( C9 ] RowBox[{% k( a, h) K, B( A I
RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", # T, @5 Y _. f2 e& J+ q
SuperscriptBox[8 | m' _ Y: h$ r3 I3 K
RowBox[{"(",
! b8 c o# h5 [6 V: m) ]: e RowBox[{
, m8 [, P0 r# T$ F) T RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
k8 r, ~& y" d7 _: t+ n/ l SuperscriptBox[
8 C7 U7 { h) r( k' B- Y RowBox[{"(", ( y# R9 |" K2 f8 t4 {2 |
RowBox[{
& }5 W8 A" `5 T( o6 U8 K$ w; z RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
! W7 a7 ^% W. A5 H; [/ q5 Z SuperscriptBox[7 c8 K3 J- }" f) b; m
RowBox[{"(",
, D5 }) r) r8 U4 F/ \ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
) s/ t% s# X. B5 b SuperscriptBox[
4 o6 {6 q3 R8 A RowBox[{"(",
5 C" ]5 g! f* G- \1 g+ r' T RowBox[{/ r+ s* t! F* j" P$ Z4 _3 n
RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
; p4 ?( [) C& `" T q0 i SuperscriptBox[/ z! O; L4 R! U# E3 I% p; V0 P
RowBox[{"(",
3 R2 q5 u+ w+ x$ e% L. l w; f RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", # B. R6 \" q$ t" M3 H/ ?9 m
SuperscriptBox[
3 w# K: s. L8 z/ H9 P( C RowBox[{"(",
. E. D* |" q% q! d$ a% Z RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
- J- `! W( O# X9 B8 \$ M8 Z8 } ")"}]}]]}], "+",
5 w0 j$ Q* ~( c; B4 P/ z RowBox[{"0.3741982811661129`", " ",
. h: p* ^+ W- U1 |9 @ SuperscriptBox["\[ExponentialE]",
$ F a- R: H( d8 T$ \8 x2 U1 R7 ` RowBox[{"3.141592653589793`", " ", & n0 A2 P% W; o
RowBox[{"(", ( q5 O5 z& o- j) I
RowBox[{
3 `. `% z9 `( {4 e( k) W5 i; P" E RowBox[{"-",
" t6 q3 {3 m, h SuperscriptBox[- \6 ]( ^% Q3 D% v y
RowBox[{"(", : F- W+ a5 }0 ~+ n- N
RowBox[{+ a9 x2 _& j$ ?* l
RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", 7 S7 ?1 Y/ w$ A& h( _
SuperscriptBox[& N$ z( h2 R- ~
RowBox[{"(", ' w' h0 m0 j- g8 Z7 Y, @
RowBox[{
) I9 Z! G: G+ |" @$ L RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-", - v, _" _7 A' _5 { z1 Q9 R: a! o
SuperscriptBox[5 @, J' d `- ^3 Y
RowBox[{"(", 9 V E, b5 ^( F/ @& d0 M9 K) ^, n
RowBox[{3 x' Y$ o% y+ ]9 y7 W
RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", " E b# K& n1 d7 z3 q
SuperscriptBox[
; h% _0 V F Y, G RowBox[{"(", % C/ r3 X5 [+ G" M
RowBox[{
, [! h. q- {6 }# R" e RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", / J7 q8 \& X, I6 M4 P0 `
SuperscriptBox[
* v9 o" t% W5 o0 m RowBox[{"(",
: u# F9 x# o6 s( e! [ RowBox[{' j( P$ z# c+ B% P! E' s
RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
# M' R8 n8 q, t) y4 z8 e9 @$ j SuperscriptBox[
" w8 Z* t) V2 k; x0 {5 ` RowBox[{"(", 0 C# M e* _8 a& p' T, `
RowBox[{
6 t5 Y- \, S# @9 r- M4 r- c RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
5 w, i' ?3 E8 q* r9 J* I SuperscriptBox[
' ]3 w2 L8 {, [' C" [) B4 @+ m RowBox[{"(",
@' b) j) {2 y+ m RowBox[{
# y! _' y+ C# Q* I. J6 d RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", * D q& S! T- ?7 K# G" O9 p$ g: {
SuperscriptBox[& |9 w# Y9 i" k9 D
RowBox[{"(",
( n) h2 a; M/ W1 z/ O RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 0 G9 q d; H! @4 s1 y4 }/ D
SuperscriptBox[& R) S& ]' R6 B# p5 j8 x" y3 }% m
RowBox[{"(", 6 e6 g) c0 v4 n- } |3 d8 t" i
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 7 W# y4 ^$ @9 [0 E% P
")"}]}]]}], "+",
/ X. S3 U: z1 D* L! m; ~* a+ N RowBox[{"0.5575503376854456`", " ", ) J8 C/ [) }3 t' | D+ y) }% f
SuperscriptBox["\[ExponentialE]", : U( d4 Y# I3 e% T) P
RowBox[{"3.141592653589793`", " ",
! b# _, j- @' ? RowBox[{"(", & r- S0 O; x5 S" z: D7 _
RowBox[{; H5 W4 B$ r7 I5 Y
RowBox[{"-",
% o4 `4 t8 c: `' l3 A; Q* {8 b SuperscriptBox[; Y6 w, \7 q/ @6 j6 U7 u* b
RowBox[{"(", / n0 c6 `! J. z6 c9 q
RowBox[{
8 `' y, p( i6 J* D. S% u$ e R RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
) J# V, E" Y1 M8 E3 S' v SuperscriptBox[0 E" k2 c$ j, Z* v3 E# ]# `6 L
RowBox[{"(", 2 [* v0 P H- p2 y* j. x4 b$ q
RowBox[{: i% c5 e+ }8 B, \2 r
RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
* b% o) D8 _! m SuperscriptBox[/ W2 d7 `( N N) @* ^2 H/ [
RowBox[{"(", : F$ C" a Q* H
RowBox[{
! z0 X5 f1 u7 R, l0 M& ^& f0 I! O RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
' q( N0 J; Q7 U3 f8 E SuperscriptBox[, m N- }9 @$ f1 u. L: Y5 J' `
RowBox[{"(", ! G1 u" G3 B/ M
RowBox[{
) O4 P( s1 q: m$ P: \5 Y RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", b, K* |& c6 z: n9 {
SuperscriptBox[
6 L: g6 Q% _/ r0 U0 |! o RowBox[{"(", # H G! J( e9 \2 z2 M( Q7 ~
RowBox[{
& R1 s+ T7 L6 |' E' h RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", % L3 f, x9 E" c7 f" `
SuperscriptBox[
8 \, d7 I! v" f6 N, u- U1 Q Y4 o. m RowBox[{"(", $ ?) _" Y2 Q. \
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 5 F5 Z7 Y* S8 e# a
SuperscriptBox[
6 n& }0 ^( f* `2 z RowBox[{"(",
: i, C% } w/ d/ F: ^; `! _ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
$ T( w1 X# e$ V1 E. x( `3 [$ W8 P SuperscriptBox[1 P4 a* W0 R) E) \
RowBox[{"(", 2 P) F8 k& q0 f! b& z$ W
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", " q* [" \- [) V5 j* `( w" f
SuperscriptBox[
, X9 ~( L0 w _; o# [+ p RowBox[{"(",
9 {+ r8 y+ J( l. ], h RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], $ I7 r1 [0 B+ f+ }
")"}]}]]}], "-", / A' @7 p7 ~5 p& V; v! I- I( `
RowBox[{"0.1339854044819916`", " ", " y! x2 D% |9 ]) A
SuperscriptBox["\[ExponentialE]", : J% Y7 O; p O' S
RowBox[{"3.141592653589793`", " ",
6 X5 I1 c9 W1 ~& Y' O! M1 j RowBox[{"(",
/ F/ ~# ]. s6 x) q2 J+ E RowBox[{
7 w% O' M- O- n4 A RowBox[{"-",
' j& P, y |2 Q, a SuperscriptBox[
0 ?# Q+ @9 W# y/ b* H ? RowBox[{"(",
, f/ `7 t1 O D# W RowBox[{* \: b* S) j, U& n
RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
, G! r0 g. @: D& {6 V V) | SuperscriptBox[6 D; B4 W% A$ G7 G. a- h
RowBox[{"(", 1 @, [: w0 E% L; x& z
RowBox[{
# [' p& c5 o1 h# ~) I RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
* N0 F/ @! P4 W& V T SuperscriptBox[7 p3 _3 ^( j# H O, S
RowBox[{"(", 6 `" j2 U( e8 G' k0 O
RowBox[{
1 a$ r3 B& j, Q* K) B0 ? i" v; z4 K RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
o6 R- C4 f, w, {9 f0 w SuperscriptBox[* m& b1 `* N- G3 i- b1 Y9 ]6 k
RowBox[{"(", , [+ c3 q: z# M3 o! ]2 [6 S* J6 E
RowBox[{
% D! d, c2 X4 j3 }9 X1 M RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
' `7 ]9 m. [5 p SuperscriptBox[
$ }: C. G5 }+ S/ j' z2 _( l RowBox[{"(", 3 V4 ]! ?; d# `
RowBox[{9 n3 ?- X! t8 C9 e0 s% u( q
RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-", & U8 Y+ T7 `! B7 @) G1 [3 [
SuperscriptBox[- T) N. @3 O. I H F+ G- t
RowBox[{"(",
! j. A8 x0 v7 s- H+ c2 F1 O- r RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
# J8 \) D) X5 H% ?* ?; n' O SuperscriptBox[7 c |- [! Z @8 a" U4 L
RowBox[{"(",
. Q! j+ G, D0 l7 q% V RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", , y2 L6 A* ]0 D7 Q) q9 _
SuperscriptBox[
# h, G6 a# J& O) Y, {4 a* F( B RowBox[{"(", # T6 @3 B% g( @/ X! u# w* G
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ' ~) m- e7 K E5 q7 C
SuperscriptBox[
" l5 }# ?% @ G* [ z- b2 k RowBox[{"(",
- I S9 v, h8 x+ V7 b2 i4 o RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
9 ^! @- M2 N* ?3 [# J ")"}]}]]}], "+", 3 q. h: U0 n2 }7 N4 S
RowBox[{"0.45723850991134063`", " ", : d2 G; L1 o: O
SuperscriptBox["\[ExponentialE]", ! W$ E5 i. o" F) E
RowBox[{"3.141592653589793`", " ",
) M$ ], `$ f: }( m4 s% a RowBox[{"(",
4 K( Y. c$ f$ ?+ j! g3 q4 l3 ~" f RowBox[{; t) G5 w3 T* V. Z, ^* b' P
RowBox[{"-",
' P3 D4 N/ B5 A6 w) Z' F SuperscriptBox[
q4 m0 u/ c9 @, b# D; e9 R RowBox[{"(", & w- ~( I$ P/ ?5 g9 i3 D f6 {
RowBox[{
( k) J8 `* G1 R% S RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
4 Y) E; M3 w( P: E5 R' s/ }4 M, A! Q SuperscriptBox[
* H1 v+ ^7 b% g6 c* L. i5 d RowBox[{"(", $ j- ?0 }% l& \6 V% O
RowBox[{
$ ^2 `* W7 R0 A/ f" y( ~( }9 Q& `# ~ RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
" c* k; P; T! K. N/ A SuperscriptBox[: ~5 n$ N4 J, q
RowBox[{"(",
+ T( n. M2 N2 k c4 W3 E/ N RowBox[{/ H" K! t* O; K/ L7 |2 s0 ]& @' J
RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
. H w( C: ^7 B9 ^ SuperscriptBox[
, V5 u' B9 x4 n- P0 D RowBox[{"(", 8 K' @9 t% D' n
RowBox[{; {, z$ g6 R! [/ o+ e
RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", ! k9 B' {. D/ o2 c
SuperscriptBox[
. q5 d: ] G$ b5 f; j1 Y RowBox[{"(", ; F$ U W; z" n9 \7 G
RowBox[{
- }7 P1 K2 [8 D RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-", - x- \1 K3 o& |5 x$ V
SuperscriptBox[
_; P$ k+ I9 G, @ t% I! E2 s! v RowBox[{"(", * b) v" ?0 N# ^, F9 ]) M" U1 M3 m
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", $ j& l" e' E- X/ M3 h( O8 n" j" D# `
SuperscriptBox[
. v; n0 V+ @# X) M& U& D0 N RowBox[{"(", & L/ ~+ V, X+ O4 w C+ G
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
8 |5 d# Y, i7 q p' U6 D SuperscriptBox[2 z1 {* \# D' D( v
RowBox[{"(",
$ s) H( {) k8 T; b% j RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ' Q5 P% @1 n1 o2 D
SuperscriptBox[( n1 Q8 g5 p: Y7 n4 }& c
RowBox[{"(", 7 H: T* `$ n9 G7 i
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
/ r k) \4 G# ]; h1 a4 [9 P% E% \ ")"}]}]]}], "-",
" p/ j; P/ m8 [& u' m) o+ ~& V RowBox[{"0.025873988843993667`", " ",
& e8 G v$ e2 u( O/ A SuperscriptBox["\[ExponentialE]",
* N( G$ r6 I% D4 x& _* A0 Y RowBox[{"3.141592653589793`", " ",
7 z4 W2 Q0 c( B% v' i RowBox[{"(", 8 F9 @! V% K/ U8 R6 _. m
RowBox[{ n( z m0 J7 j- b
RowBox[{"-",
3 Z' F( R3 w2 k& O: y) _' h( ?! o SuperscriptBox[8 @( Q8 P( ^- _/ r/ v
RowBox[{"(",
0 i1 g& v1 N1 |" ]: @ RowBox[{
! F0 I, ~9 X- C7 U8 }& \ RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
' I c* @4 k7 a) G( l SuperscriptBox[
( C u4 w) n8 e9 b, z F; G RowBox[{"(", . D" a3 B1 ?0 q! w: a
RowBox[{" K- U& Z0 G0 Q) X" d( d6 W: |
RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
+ s6 M8 R8 N# k% c+ E SuperscriptBox[0 n( t) c7 E4 I" k+ j( R6 M
RowBox[{"(",
* i1 s" d1 m0 k. D. r( X- y: ^ RowBox[{
# q! z6 Q- z( H6 a' ` RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", 8 A9 Y, ~2 f: B9 O9 p
SuperscriptBox[
5 d& q& S% i% [. N- \ RowBox[{"(", 1 ^) E: d5 T+ _& f! I" I
RowBox[{
1 M2 E/ a( c% K7 }, K+ X) U4 n RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
3 p+ w) j$ A. O8 L; M SuperscriptBox[' W5 ?& \4 y% T4 o
RowBox[{"(",
) ?) a; y7 t! T' x8 W RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
. c* u4 M; |6 X! u* C2 M2 t SuperscriptBox[; i) v1 Z; ~. ?/ e( o/ A. F
RowBox[{"(",
4 [9 D1 e% g' ?( M5 H' z. v9 K RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", $ o+ b9 P! l; v2 B; C! U- f+ K
SuperscriptBox[5 _7 }& G% c/ w0 f/ B3 ?; N
RowBox[{"(", , A' Q# K, _6 f! |0 R5 c, q7 J- S
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", $ f8 Z3 N* M' t
SuperscriptBox[, d+ N$ P/ h& c6 Y# m
RowBox[{"(",
0 u3 u, h; @" t( A" d RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
& P; M- S5 `5 `4 r SuperscriptBox[" g% r) H8 E( T: h5 ~7 A
RowBox[{"(", 0 r' X3 ^; A+ w1 K; v
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], , q1 U/ V4 z5 \1 n
")"}]}]]}]}]], "Output",
; u& O! \8 J; o CellChangeTimes->{3.577924759875*^9, 3.577924921203125*^9,
7 ~2 L) G/ {3 x& l 3.5779583210432997`*^9, 3.5779585060284224`*^9, 3.577959043308958*^9,
2 e1 [8 Z8 Z0 R! D4 A. D 3.577962317973732*^9, 3.578012448875*^9}]
8 E5 O/ B" i V% v}, Open ]],
+ r& Z( d* f3 D/ v3 B$ ^2 ^
0 h7 L1 t5 ]9 N) v/ eCell[CellGroupData[{$ d1 ~6 g6 I4 r) O1 R- Y
) O2 A. J; z; O$ fCell[BoxData[
0 m" t) E# ~3 b' P/ U+ ] RowBox[{"y2fit", "=", 3 z% ^& g" u! ]: y2 F
RowBox[{"Table", "[",
; T! d' D3 d) ~5 Q RowBox[{"x", ",",
! r, J) W6 F: y9 C( t3 w0 K4 ` RowBox[{"{",
+ c2 _' V t+ Y$ Y/ j0 I RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",+ O" J/ f; F6 N
CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {
( w7 Z" l7 o/ |/ { 3.5779252768125*^9, 3.577925277484375*^9}, 3.5779583246625056`*^9}],
: f1 c0 y0 q M' N2 E8 Z
5 g. L1 w* c: @& SCell[BoxData[( _/ c0 J! q8 W2 I/ O7 n9 A) r6 ]9 ]
RowBox[{"{", * e" O, `& L: J5 o. p" s
RowBox[{9 ~0 d, s# y9 o
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 v, q7 L2 o) w ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",4 e" V& [; W; x
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
! J5 Y( J5 Q/ b& Y9 s "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
2 ]9 G& ~" p1 S; o ",", "29"}], "}"}]], "Output",& f- t1 x, V0 O5 e7 @0 i
CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9, + M/ n- w$ l* K# p0 Z- P* o0 A
3.5779583268153095`*^9, 3.577958508118826*^9, 3.5779590470685654`*^9,
) |2 v ?9 t* u1 ?5 }, U 3.577962320173336*^9, 3.57801245028125*^9}]8 A% ^/ d, y- N0 r& j- H+ B |1 \ u
}, Open ]],
' G" _% I/ Z+ W9 t% |3 U7 J$ w6 W* S! l4 c$ o( m
Cell[BoxData[/ P1 `$ e& w0 E5 l6 i7 u
RowBox[{"For", "[",
9 {" M- {9 m) c# T. S' R7 h8 B RowBox[{
2 _+ Q1 P; c7 x% y* \ RowBox[{"i", "=", "61"}], ",", , l; }( h) f# H5 D
RowBox[{"i", "\[LessEqual]", "89"}], ",", ; @5 Y0 d( a6 j' m& o( o
RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
+ H! J1 l( y! q' ? RowBox[{5 J* [3 d1 G1 z: I
RowBox[{
/ J& v- X9 h) f9 @. Z; _ RowBox[{"y2fit", "[",
" g7 r' h: R8 S( g1 C RowBox[{"[", ; V( W+ }4 ~, x2 a+ V# G( A' o* U
RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", 5 {( l. }, {* @& y
RowBox[{"y2", "/.", , ]$ Y' O/ N& l1 x$ O9 H# j
RowBox[{"{", , C+ J, h/ W# Z
RowBox[{4 v( ]/ t' k/ ~' b5 `3 B: q1 U5 h
RowBox[{"x1", "->", : @; p2 g& c* W
RowBox[{"Data", "[",
; ?, O# {, @7 ?: i- v RowBox[{"[",
& S8 l! @) G8 I" B. ]6 h2 a RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 1 [ l! R( w# d- f/ L
RowBox[{"x2", "->", / E* W' r3 y7 i2 J" Z' x
RowBox[{"Data", "[",
( @3 l0 i5 m6 `! g9 s1 [- d RowBox[{"[",
, r; {+ q, y: h6 r! X5 {" e RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", % ~- t5 G; M/ X! B( w
RowBox[{"x3", "->", & p9 Z; y+ k5 G! ]( _' J1 X
RowBox[{"Data", "[", % V2 j$ ?. M" O, T1 n
RowBox[{"[",
; {+ ]( a2 G7 ~- \; w- M RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
1 K4 T, c: L }6 Q RowBox[{"x4", "->", ( n3 l; [7 n, w1 p
RowBox[{"Data", "[", ; S: h, g X: U5 f9 p+ Z ~$ r( o
RowBox[{"[", & i6 u( b/ ?1 d) I
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
3 [5 T; Y( ? m" h0 K$ A- K RowBox[{"x5", "->",
' Q1 V. f+ m$ b G, [- K" X' Z RowBox[{"Data", "[", % J2 k+ k; w2 K- x" i/ Z7 w4 g8 N) V
RowBox[{"[",
* _9 s: k+ Z. e" N RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", / x+ x2 u0 M5 L: c) v
RowBox[{"x6", "->",
" g& L& k2 B# L# w+ e RowBox[{"Data", "[", ) ]4 E( l; k4 j0 h3 p" l8 F, O G0 O
RowBox[{"[",
. q0 P) P" g- j1 s& S. Y" } RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
. B2 U( Y# _: I+ C9 H1 [, p7 V9 P RowBox[{"x7", "->", ( ]# I/ Z ~+ g- Y
RowBox[{"Data", "[",
7 X" X, _. L( L% ]+ r RowBox[{"[", : Z# R7 d4 \' p6 t& f% e
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 3 Q" h, d6 K: a. {$ v* l6 {% ^4 H
RowBox[{"x8", "->", 8 J5 v6 B/ r8 m a5 J' @5 p! K6 _
RowBox[{"Data", "[",
# W& M& H0 T# r( _' [5 A& [7 D" [ RowBox[{"[", 6 i+ V/ z8 X7 `. O
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
4 @% W+ W! Z# Z9 u RowBox[{"x9", "->",
6 ~0 N* F- _5 i& P! m/ J( { RowBox[{"Data", "[", 2 S/ [9 E; M8 }0 h% N2 ^* z' m- k. _
RowBox[{"[", 5 `( q6 `8 _, m9 } x
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}],
% T- {: ^7 l# v( ^3 F7 B! F "\[IndentingNewLine]", "]"}]], "Input",* U$ {4 W5 g6 H3 C! h
CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {
. m* n8 k' K; Y$ v# l, O, Z 3.577925286140625*^9, 3.577925306765625*^9}, {3.577958329919715*^9,
: r5 z/ h) V# O( ~, c `) [9 P 3.5779583326341195`*^9}, {3.57795892351635*^9, 3.57795892354755*^9}}],
& J1 k! |; w6 v$ |. ]$ h
0 {- v6 q r9 L7 B4 PCell[CellGroupData[{
0 R( s/ {# U+ X9 z6 Z2 r7 d6 s. z8 L
* x8 |: z, `" MCell[BoxData["y2fit"], "Input",
8 Q; o- f a4 Y2 C9 }' N+ D CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {
1 e. L( R! @* G* C% M! T7 r 3.577925040484375*^9, 3.5779250440625*^9}, 3.5779583419785357`*^9}],) k3 F* q A7 t1 J9 ?1 ?
+ N7 W- h5 ^. x% XCell[BoxData[. ~5 n8 A: |2 J' _. J4 N; Y
RowBox[{"{", - L# a2 g% J3 ^% t1 Y
RowBox[{
7 b v4 v5 |3 G "0.4853171132859182`", ",", "0.4508635216665074`", ",", & f2 {. h+ B( _. f4 Q5 x
"0.3642119241752518`", ",", "0.42852077425595436`", ",",
5 s) {1 O4 W+ C "0.4712694272667798`", ",", "0.5257533056184774`", ",",
7 S0 w) Z, j3 c$ [& z "0.48620658140716133`", ",", "0.41106838915591876`", ",",
: Z5 a. ]$ N/ V6 \9 b% {, ~ "0.5486894206610674`", ",", "0.007731168540073459`", ",", 0 }( p! F7 P" M( b' K3 T( E6 f
"0.013872406140339109`", ",", "0.3956995051659558`", ",", + E+ Y$ ]2 Y7 ~0 A
"0.3663118256142708`", ",", "0.29094217358055163`", ",", 6 [! i( _/ A6 `5 Q4 c4 k
"0.5453093690736555`", ",", "0.44138898880777927`", ",", ) y ^ ]) M# g; V
"0.42944922031163496`", ",", "0.43092890556748836`", ",",
8 H7 Z$ v0 v7 C* L "0.5942402821739969`", ",", "0.330046090785457`", ",", 2 z) S% Z' ^3 I+ Z/ g3 G7 p+ g* z
"0.18938658036630585`", ",", "0.4263720292858679`", ",", 6 _ ^+ o- c9 @
"0.23377136184738775`", ",", "0.02232858193309988`", ",",
4 k3 i, @, y9 g+ z* g% U# ~ "0.244364200084268`", ",", "0.5562383565309971`", ",",
9 ~ V7 L' T, s; e# x1 A+ U "0.13114103402954333`", ",", "0.5815052048989465`", ",", 2 C( M) A X% |' U; Q9 V1 E$ d+ e' M& r
"0.4253455966293501`"}], "}"}]], "Output",9 n; [6 h( ~- J% q8 o' ]
CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9,
1 j; b9 x& K! d% t5 |9 W 3.577925312375*^9, 3.577958343257738*^9, 3.577958511784832*^9,
- [& q* m+ k* X' M2 Z( \& W 3.5779590518421736`*^9, 3.5779623249157443`*^9, 3.578012452421875*^9}]4 x' j2 I2 \7 T9 h+ N
}, Open ]],1 { R8 \1 N5 ^2 M( Y5 d. A
& [: B0 ]6 R1 ]- m* Z1 v
Cell[CellGroupData[{- f! G# V9 x( y& S7 Y( x
. s, F' Q+ H" a* H2 {( t" R1 yCell[BoxData[3 @( R$ s( Z9 K8 Q2 v
RowBox[{"y2fit", "=", # @ y9 s0 a6 u9 Z# N7 N
RowBox[{"{", - ]$ M2 d: \ l0 f9 m3 ]
RowBox[{/ H+ E8 H; j; h/ n
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", & U8 N g$ A1 O% T
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! e7 N1 n- h" ?- D
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", * U K6 C. x, ^& `5 F( v" e
",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
4 E! |5 j S' t8 N0 `* d "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", # u+ X1 @5 R1 }/ M
",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", . S' D& c2 N5 |$ q! N
"41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", : N3 ~- n, W# s
",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", # E& ^3 o3 s5 e( S
"54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
) ]) z& S* B1 T8 M- W" B "0.48531711328591953", ",", "0.48531711328591953`", ",", $ l0 ?1 h) |# J4 M+ n7 e# c
"0.45086352166650845`", ",", "0.36421192417525217`", ",", ; ~6 a4 \! V" m8 i5 E6 g
"0.4285207742559556`", ",", "0.4712694272667811`", ",",
7 R, W. o3 L* } "0.5257533056184786`", ",", "0.4862065814071623`", ",", 3 ]5 E/ R+ I" D7 M& b
"0.41106838915592014`", ",", "0.5486894206610683`", ",",
! v4 X Y5 N" g% P/ F$ f/ {' \ "0.007731168540073532`", ",", "0.013872406140339166`", ",",
9 _6 ?0 {2 J4 [7 z, v "0.3956995051659565`", ",", "0.3663118256142717`", ",", * }% d" ]/ @$ g8 J" m
"0.29094217358055185`", ",", "0.5453093690736568`", ",",
" E7 c- L, s9 { "0.4413889888077799`", ",", "0.42944922031163585`", ",", ! q( T! x/ a, f- e+ Z- g' ?+ c7 k
"0.4309289055674891`", ",", "0.5942402821739983`", ",", $ U% z; f2 T1 H) s% j; E. V$ j
"0.33004609078545805`", ",", "0.18938658036630632`", ",",
: ? g# J7 e- N' w$ K2 P; S1 N "0.4263720292858688`", ",", "0.23377136184738778`", ",",
; W" g& }; X% U "0.022328581933099827`", ",", "0.24436420008426807`", ",", ' r) ~! o) P; ]5 j/ W
"0.5562383565309981`", ",", "0.13114103402954314`", ",",
' M6 o+ P2 A) P4 `6 H "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]}]], "Input",
+ X4 A# G2 T8 V. Q3 I! P CellChangeTimes->{{3.577959355746303*^9, 3.5779593854019547`*^9}, {& I# B# k- ^# C8 _4 s7 @1 `
3.5779594223272195`*^9, 3.577959425104024*^9}, {3.57796233399496*^9,
/ c8 ^0 R" f& Q/ v% H& H5 D 3.57796233957977*^9}}],4 v- ~5 S; |: J2 G/ w/ d
1 J9 x; T0 W% R$ z" j9 rCell[BoxData[; R9 a8 O8 W" p8 a- P* {" L) @6 [
RowBox[{"{",
4 F h' d8 q! r. a RowBox[{ i: c1 T- j7 y, }" K/ V
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ _9 x; F" q6 ^* U9 {1 @) } ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
0 v( m3 \0 Q. N$ H; x ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 5 w( f% ~; X. y5 ]
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 8 z4 o) Q" G' G! r- e' u, L$ l
",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
r; _& r5 G" O "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", % a$ Z% {# s$ L3 V
",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
! g) c& m6 V' P' z "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
5 f2 W, M, n N3 p0 D5 U, u e ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
P! B4 E: U7 ]/ ^$ M4 e' B "0.48531711328591953`", ",", "0.48531711328591953`", ",", 1 }, l A! M( F9 X! w
"0.45086352166650845`", ",", "0.36421192417525217`", ",",
9 ^8 _8 j2 N. g8 ` "0.4285207742559556`", ",", "0.4712694272667811`", ",", . c7 [8 u1 g8 v, |( C% A$ l+ p
"0.5257533056184786`", ",", "0.4862065814071623`", ",",
7 y8 o: p; i8 C2 Y7 c9 p "0.41106838915592014`", ",", "0.5486894206610683`", ",", 8 e4 W+ c0 f: n+ F
"0.007731168540073532`", ",", "0.013872406140339166`", ",",
5 ?+ R$ O2 E# E "0.3956995051659565`", ",", "0.3663118256142717`", ",", , f# k; @2 L% Z( {" G8 j
"0.29094217358055185`", ",", "0.5453093690736568`", ",", & \9 E. \' F% M& D7 Z1 O7 }
"0.4413889888077799`", ",", "0.42944922031163585`", ",", 5 P( c* Z9 l5 X. K" S6 W
"0.4309289055674891`", ",", "0.5942402821739983`", ",", 0 t. J! r3 J# s' T+ h3 i0 e
"0.33004609078545805`", ",", "0.18938658036630632`", ",", 4 S; X( ~- O! y: ]% K; G8 U
"0.4263720292858688`", ",", "0.23377136184738778`", ",",
' k, E1 o+ l" H1 P/ Q "0.022328581933099827`", ",", "0.24436420008426807`", ",",
7 q7 o- G* t9 m8 p "0.5562383565309981`", ",", "0.13114103402954314`", ",",
+ r8 e7 A" L- T ?: g "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]], "Output",0 i; g6 Z9 v7 ~% Y
CellChangeTimes->{3.5779593961191735`*^9, 3.5779594268512273`*^9,
2 u2 x; c3 D1 y1 \ 3.577962342060174*^9, 3.57801245340625*^9}]+ U# w8 e, h0 }% W
}, Open ]],
0 k1 p9 ^- E8 @! s+ @2 b! T, l: i$ ?
Cell[CellGroupData[{
) x$ v: N+ u2 T# R* H
' B8 x. C$ B7 Y& `3 pCell[BoxData[+ r6 @, O7 k4 @" D8 s0 k
RowBox[{"y20", "=", 3 n$ [, Q1 f3 o1 w F) p
RowBox[{"Table", "[", 8 o! m/ b8 P& J0 i
RowBox[{"x", ",", - C9 O' x- k+ z2 \& t" f
RowBox[{"{", , \# N5 ^4 e8 f
RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",3 B' _* d+ M' I, l4 j5 U5 [ k% S
CellChangeTimes->{3.5779253628125*^9, 3.577958351198152*^9}],1 y0 Y! u4 Z, W4 l7 P P0 J* n
: A$ H. r0 j: C9 w( m
Cell[BoxData[
7 q$ O7 o/ P3 X RowBox[{"{",
$ K8 \% L/ r4 M5 A9 b' ]; y; \ RowBox[{* ~6 P- v) `2 P
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", " p- c, y* c; ~* j5 q1 v1 r) Z
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",1 Z$ r+ H' ~* @5 ^+ X. N9 G
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", , t ^6 K9 e! i+ ?: x- @
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ; x$ l: e$ z, L5 ^, K7 B+ O& C9 E5 K
",", "29"}], "}"}]], "Output",
' s# f4 V, A& }& A CellChangeTimes->{3.57792536553125*^9, 3.5779583535225563`*^9, ( d- i+ @6 @9 W' g* _& J; S+ D; P$ D
3.577958515653639*^9, 3.577959053714177*^9, 3.5779623443065777`*^9,
5 X1 A7 b" u! i9 B0 T: p K 3.578012454875*^9}]
( B! o/ X4 ^* F ~) c' B# s [}, Open ]],& P" h/ j$ v6 m; R. t2 _
o( h2 t- p7 J9 k; O
Cell[BoxData[
, [ m" J( s! {; I RowBox[{"For", "[",
: I5 k. @& n) R4 a2 I4 n, L/ ` RowBox[{; ]! j& |/ O* v, Y' d
RowBox[{"i", "=", "61"}], ",",
: {! V, z& l j, l0 l- R RowBox[{"i", "\[LessEqual]", "89"}], ",", ) F" T! K2 O% z d( m. F* W$ _
RowBox[{"i", "++"}], ",", ( {* B* a M. i
RowBox[{
. _" }, B6 \6 K { RowBox[{"y20", "[", ; u$ ]$ \. C' R* f' D2 S1 y- ~8 u
RowBox[{"[", % L$ k( J: S3 c9 ^7 ]0 e
RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", 6 n, _& C# Z4 k7 l" q
RowBox[{"Data", "[",
s9 f) J" [8 W RowBox[{"[", & }( Y& Q$ |! d# o4 e
RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
! c# a% F- s; Y E8 j2 v) Z CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
9 }* z0 m' P$ I# ~# }) \ Q 3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, 2 N7 Q; m5 q- h4 ]( ~2 r
3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, {7 a: y v0 h2 B( y) f
3.5779583574225626`*^9, 3.5779583606673684`*^9}, {3.577959056849782*^9, 8 J- q1 f8 ]* h2 r: ^! v" D
3.577959058690585*^9}}],* ~* R3 m" r) I7 J6 L
@2 `2 I, J0 m8 zCell[CellGroupData[{; s8 }' ^+ o* h/ V; |
; ~+ E+ w" Z1 W- y8 SCell[BoxData["y20"], "Input",. j$ M% s6 M: B$ z& N
CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
d Z. @3 J- m1 b5 g4 |6 F. m 3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9, U) f3 ?/ v( F, I
3.5779583657841773`*^9}]," r0 L }+ q. I. Y% C! H! M) Q- @
) }# [7 a; W. S1 D2 J# l9 pCell[BoxData[! V4 D( X2 s t6 O3 ]& [+ A
RowBox[{"{", 3 f" m" p/ b1 f
RowBox[{
( p* ?1 o. X' U. a "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", ",", 6 Q0 C1 i7 x; R, f
"0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",
1 k2 x6 t$ u0 v- M "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",", 1 o O' t- e* W4 W J" d
"0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",
! Q! q. @& y$ ^& e5 a+ O "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",", / c- j6 W' I: r% L2 u1 J% o
"0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",
: U6 \5 _: X0 F "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
5 w8 v9 T; Q. V/ Q" J "0.323944`"}], "}"}]], "Output",
# \2 I G* _1 Y8 o: i: ?$ R CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, o, s+ j" Q# ^; h- g
3.577925393046875*^9, 3.5779583678277807`*^9, 3.577958517946843*^9, / o( F4 R6 V) m. c; B. h
3.5779590634017935`*^9, 3.577962347629384*^9, 3.578012456484375*^9}]; h& ^' E! j! |4 E; d! h
}, Open ]],
5 P: k6 w( R0 R
$ a9 m" a8 S& p# t, Z) w: d& y" P% eCell[CellGroupData[{
7 ]% q4 f" N f0 U7 _, B/ `! P& d7 Z' P1 F& g9 d
Cell[BoxData[
4 L* F+ M( h. S RowBox[{"y20", "=",
- v. f1 E' j4 X; d, A RowBox[{"{", 5 `6 @9 i" `4 W8 D
RowBox[{/ f1 Z' e8 s7 h: j1 Y
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
6 ?/ f. i" I( m5 [4 i ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
! L/ [. R- F! `5 `0 W- u% O "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
8 \, d- ^: g) E( [3 L% h6 f6 N ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", ) ]9 q) }" [0 M# v1 _" T
"28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
0 c3 A" s0 v& f ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", ' O9 X2 J2 ?, @7 c! f
"41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", 9 ^! D& e0 Q! ?' { U- W7 v
",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", / Z+ `' S$ F0 H1 [8 Z: [/ C
"54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
5 V; r! q) g' y! Z7 l7 w- _" G "0.507042", ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", : L8 W h* v Z+ ^% X
"0.338028`", ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",",
2 B4 p: E4 N' C7 D# K& A; c) ~. f "0.408451`", ",", "0.295775`", ",", "0.661972`", ",", "0.774648`", ",",
/ l& R8 @5 z3 `+ q/ \ "0.746479`", ",", "0.887324`", ",", "0.84507`", ",", "0.704225`", ",",
# ]* U( _2 m5 f- N "0.760563`", ",", "0.43662`", ",", "0.633803`", ",", "0.422535`", ",",
9 z2 W) D% t% l, w9 R "0.295775`", ",", "0.309859`", ",", "0.408451`", ",", "0.197183`", ",",
6 p" g& N- S( T "0.732394`", ",", "0.802817`", ",", "0.746479`", ",", "0.380282`", ",",
3 Z7 J$ \: n" j5 t: `, D8 p% y "0.56338`", ",", "0.323944`"}], "}"}]}]], "Input",$ r# V2 T6 c2 ]/ l8 `
CellChangeTimes->{{3.577959534959416*^9, 3.5779595573142548`*^9}}],
7 t! \2 J2 H8 g5 c* {
" s% @# l" v; @9 s0 L# s! j" XCell[BoxData[
u7 v/ S" J) \1 q RowBox[{"{",
/ `. k$ {4 l& ^5 A RowBox[{
6 f3 m. J# N0 H7 v5 y4 h8 @ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
1 B/ Y! I- ^4 p ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
4 Y% q( R$ c8 o: m4 U0 K9 [ ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
! J+ o: n9 w' x* o3 l "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", * }( {. ^6 N; _2 @
",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", ( o [4 M: Z$ y ?" u
"35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 2 S# `$ o1 V# y0 e/ N$ g) X
",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
/ Y. z6 v0 p8 I/ J1 ^ "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
, d& Z! ?) f. v& K( g' ~/ F ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.507042`", , c- E' G- B, U7 s( `
",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`",
! q- s' g5 `' k3 F: ?, y7 F ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",
. F" a+ K/ a8 Z "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",",
! t% }6 c$ {% z$ A+ O) X3 l "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",
3 |* M; @; @. N "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",", " }" i! M' W8 y' ~- f3 a! _$ Q
"0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",", 4 {0 ]* w/ B* }/ `; ^
"0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",", 9 Y- i0 V4 z$ ^/ F4 n* k# h
"0.323944`"}], "}"}]], "Output",- D4 s. u+ h+ j% Q1 l& z( W
CellChangeTimes->{3.5779595594514585`*^9, 3.577962351778991*^9, % h; v: |6 u/ D+ b' w; p0 @# ^
3.578012457234375*^9}]) L- ^4 x, t9 r* Q6 f
}, Open ]],
1 a1 P9 N' @' H9 t I/ ~0 G5 [ C' k, |( S r
Cell[CellGroupData[{: M4 D6 {0 {' r0 h+ K0 `: z
; p. e8 j8 K+ u3 d7 _2 E' l
Cell[BoxData[- s' A* E4 A, ^: c
RowBox[{"p2a", "=",
2 H- T" E8 `: Q; X: w: J! u B" @) A RowBox[{"ListPlot", "[", z& a3 q" e1 ~+ ?4 Y- o2 {/ {2 \0 I p
RowBox[{"y2fit", ",", * _' j& T. m& ~, ? O: Z
RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", 3 q2 U5 N$ a" @2 e! t: J
RowBox[{"PlotStyle", "\[Rule]", 0 d9 P5 V8 H+ f
RowBox[{"{", q) a( T" W: r$ h/ s# a; a$ s
RowBox[{"RGBColor", "[",
; z8 [% a& I/ L# n, r RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",", ) N. H+ r8 T$ h7 b e6 q; u. L) |
RowBox[{"PlotRange", "\[Rule]",
6 E9 d2 n% v s. m RowBox[{"{", ( |& Y0 D) T$ }( Y) j( P* r4 p+ [
RowBox[{
e5 k6 ~( e! I, V% j RowBox[{"{",
. }: p: x7 J, l$ ] RowBox[{"61", ",", "89"}], "}"}], ",", ; Y2 S( G: ?" b$ T# w( N) p
RowBox[{"{",
$ i0 b/ |" o* y" g: d& I% n RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
( ?- C7 L. Q& L4 q; u8 s0 c9 r RowBox[{"AxesOrigin", "\[Rule]",
1 i' m7 t1 K/ d% s$ J# Q RowBox[{"{", / O9 Y6 f0 Y6 \$ z. c/ J2 A
RowBox[{"61", ",", "0"}], "}"}]}], ",", : K; I- N; R/ P3 [
RowBox[{"Frame", "\[Rule]", "True"}], ",",
4 B/ J: u7 J% u! Z1 E RowBox[{"FrameLabel", "\[Rule]", l6 \( ~+ C' c% }, ^
RowBox[{"{", 2 k2 ?/ }% Z& j& Z
RowBox[{ A- f/ ?; N9 r% i, D% O9 ~; c9 F
"\"\<\:7089\:6b21\>\"", ",", n: D% Z1 K* F' t0 F( F. m1 x" e
"\"\<\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\! w" Y: v3 p2 q- e
\>\""}], "}"}]}]}], "]"}]}]], "Input",0 _% U3 E0 ~$ ]" G7 ?$ i6 X
CellChangeTimes->{
% p3 m; N0 R2 M1 S; } 3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
; B: {, ]0 |: T 3.5779583712597866`*^9, 3.5779583781393986`*^9}, {3.577958536604475*^9,
# Y8 @, Z) \5 _ 3.5779585491624975`*^9}, {3.5779592802577715`*^9, , V, ]0 @/ g* d* T& X+ Y, B
3.5779593014270086`*^9}, {3.5779594039971876`*^9, * x! T3 X' \) @* {8 _/ T. m
3.5779594059783907`*^9}, {3.57795949706695*^9, 3.5779595174717855`*^9}, {
5 Y1 `. c! k4 N) `: e3 }4 V" W4 F 3.5779604302529774`*^9, 3.577960442311798*^9}, 3.57801246978125*^9,
+ s( G- K; C/ I/ t( ? 3.578012920859375*^9}],0 H4 Y/ E, h8 ]9 ?7 G3 X- c2 e8 q
5 m. X0 d9 t* V' i3 R7 z# n+ RCell[BoxData[1 q8 j% t+ [" M! G# R3 p, o! K
GraphicsBox[{{}, {}, 5 C; L0 Y4 u' [: w
{RGBColor[0, 0, 0], LineBox[CompressedData["
, ]! g! g+ s" Z- |1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
) W; {- u! a2 q+ `5 @# R/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
, u4 I- I' C- H- O9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P, F7 P9 g' \: \$ _0 T/ E- ^
ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC+ _* V% s4 {; w/ z
qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
! A+ Z$ P9 r' S# ]) J9 D1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx% }5 s" r1 b4 h9 H" ]
0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
6 L) ]+ R& Z8 a% @: |8 |, \- ^+ ysPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
& e% D2 ?9 D5 O% J! @; E/ ?4 T99yxuG0PAHw7nyU=. U6 W: a1 A) {4 |
"]]}},
7 j" S3 w2 D0 [7 D R$ i7 ] AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
$ F8 U" x0 S |8 k) w5 x Axes->True,
/ m4 E; j( A! r# A7 A AxesOrigin->{61, 0},
' [: e4 r0 l$ A2 _4 N: a6 Y, q Frame->True,
* p/ Y9 t; @; R' t I5 j, u7 V" e FrameLabel->{
" E( e0 W# _& w1 u! x FormBox["\"\:7089\:6b21\"", TraditionalForm],
' l4 a2 @ X0 R FormBox[6 E/ ~. w- j+ h) C5 J, {
"\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", ' D# `. k( V* e# n: ]
TraditionalForm]},5 U0 G5 Y- D) f7 ^1 e) J' ^
PlotRange->{{61, 89}, {0, 1}},
# x. j+ [ A$ w1 Q PlotRangeClipping->True,
1 r" N. G- p0 S% B, p% |6 ^/ H PlotRangePadding->{Automatic, Automatic}]], "Output",
; }7 E$ r$ @" `0 P CellChangeTimes->{
( M1 O: R X0 ?6 h! P 3.577925144625*^9, 3.577925396578125*^9, 3.5779583797150016`*^9, 3 v7 Q5 V/ M* K4 e* @
3.577958519990446*^9, 3.5779585510813007`*^9, 3.5779590670678*^9, ' F. Z/ A) r" F) E3 g2 f" H* C$ c
3.5779593035642123`*^9, {3.5779594075383935`*^9, 3.577959430158433*^9}, * ?2 N# X: ?$ O; n E. T
3.5779595184233866`*^9, 3.5779604438874006`*^9, 3.5779623548833966`*^9,
7 M9 d0 g1 K1 O9 W% V5 O 3.57801247209375*^9, 3.5780129225625*^9}]
- _9 M; ~6 E( A! D( ~}, Open ]],
; e! v4 l6 u$ p" h# N! g, |( M
9 u! b* B* i6 W8 t8 NCell[CellGroupData[{
, L/ |' x, j5 f, ^! e9 ^% v
2 ]4 K* B8 N7 L4 ]Cell[BoxData[
* E" N9 E3 \5 y" l' u( O RowBox[{"p2b", "=",
3 k8 u5 ^4 J/ E RowBox[{"ListPlot", "[",
3 m# r) G% |- Q% ~4 b8 u e" V1 T RowBox[{"y20", ",", $ D/ _" w- ]% C, \! m2 \
RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
! O# O0 X& B( M RowBox[{"PlotStyle", "\[Rule]",
: K5 R0 a$ d6 c- { RowBox[{"{", % [; a0 P* n5 n+ K* s, x% j" z
RowBox[{
9 Z3 O! |) x4 t( N q1 n4 b+ V6 F0 o RowBox[{"RGBColor", "[",
- A- g8 g4 d6 Q/ F0 V RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
6 d5 g- M% L; q ",",
6 P+ q& O& a3 r# n) M& A; A) x RowBox[{"PlotRange", "\[Rule]", 3 \$ S& d( U0 w- _2 _5 G8 J
RowBox[{"{",
) j3 K% S H' w# P% M, g! H RowBox[{3 S/ C8 ~% F+ m5 k. t9 K5 r" A: {
RowBox[{"{",
$ v7 r; t& ?( B% _, s RowBox[{"61", ",", "89"}], "}"}], ",", ( v a9 `2 o4 b y5 r
RowBox[{"{", / ^% _$ q: I: a- g2 W
RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 9 \/ U* m" k" D3 {
RowBox[{"AxesOrigin", "\[Rule]",
& _) S, M* @4 [ RowBox[{"{",
/ C2 L1 O4 a$ {1 d& B h RowBox[{"61", ",", "0"}], "}"}]}], ",",
! c+ |9 F( k. u8 \ RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
1 C1 z3 z5 S, F, } CellChangeTimes->{5 B( H L+ \! R. w8 B4 d
3.5779253991875*^9, {3.577958382429406*^9, 3.5779583843326097`*^9}, ) B' ~$ m0 V2 u) N& o" u7 s+ y( i
3.57795855655691*^9, 3.5779595724462814`*^9, 3.57801248346875*^9}],
' |, j: K; X, S" z3 v- G1 I
+ H! m) H0 k; D0 LCell[BoxData[
2 R0 o @, v' K' H' m9 ^ GraphicsBox[{{}, {},
6 e2 T8 R2 b2 |3 @4 o {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
4 X$ D, Q. _( p- B5 Q; C( `, G& l1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
+ \2 `. ]+ b# c8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
" o" G9 f7 h. yc/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc( h2 J* b4 V! k) B
iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4. e$ _$ O! B! l* z- U
TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
# Q8 H0 K: L! z5 SfzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB9 \' `: j# w2 w: n' f) |0 l( J7 @3 T
TWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG9 G' |- Z7 l4 i8 ?& q+ o
p0OYg4Fg/tz63VfsAdsCnzU=
6 L9 _' T. O5 z; |; u2 g "]]}},/ n4 j/ O- A: ^. w2 k
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],1 G& t0 W' e6 E; ~+ Y& @
Axes->True,
& b0 H. k) r3 S4 V2 }' A AxesOrigin->{61, 0},
, W) N2 ~3 x& E' I$ H( w. K Frame->True,
+ W" Q: q1 `- y/ J& N PlotRange->{{61, 89}, {0, 1}},
' o+ f2 B0 O- m' g. z/ P( Z3 F PlotRangeClipping->True,
+ A3 z% } G/ p6 m PlotRangePadding->{Automatic, Automatic}]], "Output",
K6 O% N* _+ V; f, ^3 H B- l! l& e CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9, 9 G! @4 E7 A8 s( S2 _4 _
3.5779583861890125`*^9, 3.5779585219092493`*^9, 3.577958558132513*^9,
+ c, S, h; Y1 ? 3.5779590691114035`*^9, 3.577959577906291*^9, 3.5779623569426003`*^9, : ^8 [9 y+ I1 I4 R2 G( F
3.578012484703125*^9, 3.578012925875*^9}]
0 Y& f. b+ x" r! p2 H}, Open ]],
4 f! I" T7 j/ K
( j7 [; W Q$ k" ECell[CellGroupData[{
8 `/ Y: c( k; L+ }+ D
9 Y! q1 L, W0 [( |0 ?; _Cell[BoxData[
8 y/ c) q4 h7 k# J( M RowBox[{"Show", "[",
9 z6 J$ T* f* F RowBox[{"p2a", ",", "p2b"}], "]"}]], "Input"],* b+ V0 C' @( n( K5 ^ V
) w0 ~8 j3 J/ C4 {! u7 |Cell[BoxData[4 t- T5 e+ _: Z3 ?
GraphicsBox[{{{}, {}, % U1 _" q$ K5 X! f
{RGBColor[0, 0, 0], LineBox[CompressedData["
$ T6 \! i, S6 V" n, e2 [3 I0 a1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
2 ?0 P& b, g R! e/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
9 b$ t v4 }' t6 L! x/ @9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P
+ ?" U& _( h" b0 G+ o zofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC& S' H3 @: M2 Q/ ]
qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK! k; w$ {2 T( w- ]$ y
1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
% a8 ~( M; Z: @1 _- @+ E: f( u3 [0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
, z9 C% S6 j0 k& `sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
9 v9 D, Z% b0 `+ _1 s99yxuG0PAHw7nyU=
, m; D$ o& u2 I: z "]]}}, {{}, {}, ) S; a( v8 B( |4 \8 k g! k7 r
{RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["$ {. H% i, g0 z5 W
1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
; ^# b/ b7 T9 q6 V6 G8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
2 Y( Z8 ?/ A; O( l. Y4 Pc/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
/ ~; q. p: W' S6 A( b( tiX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
$ q: I! T9 @' K7 N6 s$ [: y; b/ nTZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
( E6 n% H8 q$ G( m( p1 h1 FfzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
$ N& A% k C' {& i7 x. T9 X& zTWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
s! X D9 i- @+ o* f3 \1 L# Ep0OYg4Fg/tz63VfsAdsCnzU=4 m/ M8 l& @5 l j8 K" m
"]]}}},; u$ u; _3 E7 `0 E$ K. j6 ]5 V
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], @: _: g" D' k- s/ f+ {
Axes->True,
6 e+ m- G6 g9 e1 j% Z& ? AxesOrigin->{61, 0},: q4 j+ E6 f4 _% d0 [$ m
Frame->True,: c" m8 G. H4 Z" B& _
FrameLabel->{
& g- N% z9 A- ?/ s3 u) i! w FormBox["\"\:7089\:6b21\"", TraditionalForm],
4 W, q h( t1 u {) ?) u/ I# { FormBox[, r" J0 d% b" P6 G0 i
"\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"",
0 ~) `& U* ~0 b. j TraditionalForm]},
% X. F5 @7 ~1 G4 j: ~- o* z: S3 Z$ }8 ^5 { PlotRange->{{61, 89}, {0, 1}},! I$ \& \7 r) Z( r5 k5 C0 L! O
PlotRangeClipping->True,
: h; j* ~0 i3 E PlotRangePadding->{Automatic, Automatic}]], "Output",
9 B* B# B7 o) `" T CellChangeTimes->{3.5779623624182096`*^9, 3.5780124863125*^9, 6 I" c! d8 _& a1 n
3.578012927734375*^9}]' b, f; l% E& o2 t
}, Open ]],2 k# D# S1 S% l) A
- a" C) x# O% [) G0 |! WCell[BoxData[
3 }) z# w# V( O! v8 O% G) s RowBox[{"\:ff08", / {& ?9 N+ \# Z; t+ g# }. ~2 w
RowBox[{
# o$ g4 m" Q8 b1 C8 G) ], y "\:5df2\:77e5\:521d\:59cb\:94c1\:6c34\:8d28\:91cf0", ".7406", - q d. M4 j- P3 m/ b1 D- @, p
"\:3001\:5e9f\:94a2\:8d28\:91cf0", ".4621",
0 n' u' x% ^% I1 o "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea60", ".5208", 3 C. R+ C0 G, [+ |8 J
"\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:542b\:78b3\:91cf0", b8 F4 M/ @9 E7 U1 z2 v
".2221", "\:ff1b\:76ee\:6807\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\8 S1 x3 U9 K9 o B4 U) U, u) p
\:4e3a0", ".6224",
9 _% C4 M( J6 F1 ~: C "\:3001\:76ee\:6807\:94a2\:6c34\:7684\:78b3\:542b\:91cf\:4e3a0", ".2521"}],! P/ P. D9 R$ E, O
"\:ff09"}]], "Input"],! N# U: P" |2 I1 i- @6 b& i
0 W {$ F& P( B5 C# B: rCell[BoxData[, n& l7 h( X# f0 f
RowBox[{"{", , @$ N: r/ A/ Q5 Q: q
RowBox[{
: K2 {( A& D: j" b( J "\:94c1\:6c34\:8d28\:91cf", ",", "\:5e9f\:94a2\:8d28\:91cf", ",",
' B9 }% j2 [. Y% z8 i2 ]$ v' I* y "\:5439\:6c27\:91cf", ",",
: c( V. d! X! [' Y, O5 e$ ? "\:4e0b\:526f\:67aa\:65f6\:7684\:542b\:78b3\:91cf", ",",
, }; B( X3 }" l. d "\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea6", ",", + v+ K: b% D/ a& ~/ k
"\:5757\:72b6\:77f3\:7070", ",", "\:8f7b\:70e7\:767d\:77f3\:7070", ",", # _5 p+ `3 b2 k ]
"\:83f1\:9541\:7403", ",", "\:5757\:72b6\:767d\:4e91\:77f3", ",", - k* Z# {9 E, K- ?4 j ]2 L
"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf", ",", e, m# ^! I) f0 j! h; m
"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6"}], "}"}]], "Input"],6 ], s3 r# Q {2 N, u6 G+ n( Z
& X9 _! B0 J" q8 d; ~5 tCell[BoxData[" "], "Input",
& D% E5 F4 P+ M6 V8 G CellChangeTimes->{3.577962834553033*^9}],- A. z0 l* `1 q( B' `$ E5 d
/ ^6 D i, Z" y8 y/ Z1 K
Cell[BoxData["\:94a2\:6c34\:7684\:78b3\:542b\:91cf"], "Input"],
( j2 b3 Y6 U; M: f9 @& z
9 c' ~4 j% }* ]9 K6 }. ?, _Cell[CellGroupData[{4 \2 S5 r3 k5 E5 q% M
4 \) Y" m6 a* W3 [# Z
Cell[BoxData[
+ W9 v3 v* o% M! {: m7 x* I' C RowBox[{"y1", "/.",
( `* @- { s s( _( G5 M- a RowBox[{"{", ) ?& v0 V: ^" b5 R# x3 d' [" e9 p) Q
RowBox[{9 c- }0 ~' Q0 O+ {, p( q% `
RowBox[{"x1", "->", "0.7406"}], ",", % g. p1 H* w" O; N! z
RowBox[{"x2", "->", "0.4621"}], ",", 3 d# z9 N1 w8 `! ~
RowBox[{"x4", "->", "0.2221"}], ",",
. j( o3 T* d) W2 D( @/ O! ` RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",
: j- ^1 ?- e* J$ ?# I- o5 q: m1 s+ U CellChangeTimes->{{3.57796267209435*^9, 3.5779627224200373`*^9}, {
( [2 I: b8 i; Q 3.5779627663029137`*^9, 3.577962774820529*^9}}],
3 f8 c$ F+ i1 y" n" H5 o/ [, ` L+ T! c
Cell[BoxData[ o- s( m8 J' [- x' s
RowBox[{2 R8 r! x% h" J5 ^9 F( v; ^
RowBox[{"0.2286149508637297`", " ",
( R* f" W. t$ _$ M$ `! r SuperscriptBox["\[ExponentialE]", ! `" F" a* ^- G
RowBox[{"3.1415926535897936`", " ",
; g/ z; N* ^& x: i RowBox[{"(",
9 G3 P) `7 p8 G; p: y+ V' U6 k RowBox[{
) y' k p& k& O2 u RowBox[{"-", "0.17911224641499998`"}], "-", ) N9 H3 _5 y5 C! f
SuperscriptBox[: B( E9 X# e) `! a& [! ]- v. s
RowBox[{"(",
! _* V; _4 i5 I- M RowBox[{
1 o v' r( W$ [ RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", 5 e+ r! V3 v) A: t, ~7 z9 V
SuperscriptBox[
& U( Q: F7 ?5 W$ D* `0 m" Q RowBox[{"(", , |+ H8 t3 O, X7 Z+ f3 m
RowBox[{
' A1 t. }- ]! k. S7 f RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", ! C: @, i' n5 [6 n0 o
SuperscriptBox[, V% N9 i9 n, M
RowBox[{"(",
9 X* ~$ W: V0 b9 z RowBox[{' U5 e) N1 h+ @6 W$ ?1 X
RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
Z; n( K3 l% _6 S% g5 J SuperscriptBox["x8", "2"], "-", 3 p7 a( I! F8 L! l# h
SuperscriptBox[, m/ _0 Q3 F+ `. a9 L; h
RowBox[{"(",
' Z2 T3 f$ _5 S% n0 G RowBox[{9 h# C; d% O4 a4 H g5 |
RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+", % k& g7 Y& U6 E ?
RowBox[{"0.020180806675835994`", " ", ( r+ P5 D0 A4 D' I3 q1 s
SuperscriptBox["\[ExponentialE]",
# ?# B& H" d5 ?7 i: n, H8 c$ E* r$ B RowBox[{"3.1415926535897936`", " ", 2 |8 @ u- T0 Z6 w6 x
RowBox[{"(", ) X) M: a9 O. X% j @
RowBox[{
" q5 q2 z: _ g$ v- H7 A RowBox[{"-", "0.105619387859`"}], "-",
/ m' f, J1 X) Y: M9 f SuperscriptBox[( y- }3 k$ S6 ~3 U
RowBox[{"(", ' }- T/ ^6 H* a( G0 I( z u
RowBox[{
; \( P, s8 O' ]! E) m) `! m' w RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", 7 V) z& m. C( f# H
SuperscriptBox["x6", "2"], "-",
. l% s$ X$ l9 h) l" o( E0 F S SuperscriptBox[0 r( u9 T& K# m% g; E
RowBox[{"(",
' }& T& Q; d3 w( |1 `6 g0 t RowBox[{+ V) Y$ N6 ?$ V9 u/ Z
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
6 I4 l! H4 G! c1 l/ B4 q4 E SuperscriptBox["x8", "2"], "-",
0 m3 l" I! p0 s1 a, Z6 K4 } SuperscriptBox[
0 V! E* M' k. h/ H; z6 J RowBox[{"(",
. G! E9 k6 }% b$ T, W RowBox[{
2 h7 T. b$ i& _1 f! B RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ^! U& H% t" s' A
"+",
+ Y* Y- _, U0 N4 }/ f" X. Z RowBox[{"0.13092706311748437`", " ", * ?) I3 w! A. g. {' ?$ y) ^' c
SuperscriptBox["\[ExponentialE]", . A6 q$ ~8 r" l
RowBox[{"3.1415926535897936`", " ", * L7 c- ?2 K; G8 i# X
RowBox[{"(",
. a1 l d; O4 m% Z N8 A+ ^* W F RowBox[{
1 z! ?, T& y8 G5 \" N% g$ d RowBox[{"-", "0.236605670085`"}], "-",
8 V2 p. ?" I9 R5 z& t/ ^/ P1 k SuperscriptBox[
) g: q* L& X6 D$ n6 k3 v6 A, ]- M RowBox[{"(",
5 X# s- h9 v! y+ T3 P, k: X ` RowBox[{$ B, ~' E! b( A) B- }' h. d$ `
RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", # ?4 j) _0 \) J$ c2 @% _
SuperscriptBox["x6", "2"], "-", 8 U6 ~( W1 j) W9 @( r
SuperscriptBox["x7", "2"], "-", ) I( i9 H$ h4 o& w
SuperscriptBox["x8", "2"], "-", . A& K# h6 x) \8 {
SuperscriptBox[
# z0 [# o% `$ v6 y RowBox[{"(",
# M; R- ?0 a, m2 U! T6 ^ F4 z: d RowBox[{
) m6 S; H/ ~8 S RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
& `+ k9 r0 ^, b) x* u! w "-",
' S/ {) A- g- m) ] RowBox[{"0.033459349088924784`", " ",
; X, W0 f6 k, ~2 K. l/ | SuperscriptBox["\[ExponentialE]", % ?) y; K" Y q5 ~+ B. b. r
RowBox[{"3.1415926535897936`", " ", 7 J1 r, l) ^7 @5 P8 L: ~- q# N
RowBox[{"(",
5 F) X( {5 R0 g RowBox[{
; {! y' Y, J: G1 U1 s% k RowBox[{"-", "0.46221081830200006`"}], "-",
- O# K' Q, H/ B SuperscriptBox[
& i& _( k* N; t) d- z RowBox[{"(",
7 I$ O+ E6 r2 `& t, q4 i RowBox[{$ l: C; S5 O9 u6 g A/ N$ l9 F
RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
$ g% R8 H1 X- ` SuperscriptBox[
8 ~' H, |4 ]$ V& m# { RowBox[{"(",
4 g" o3 q0 [& R7 g RowBox[{
' G1 u7 l& E- G! A! t RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", 3 Y9 q" Y I9 ]( B- Z
SuperscriptBox[. U/ f8 e% s8 U! J \$ }( ^0 T
RowBox[{"(",
& W Q+ @% ]8 j Q8 q8 y RowBox[{
( v' e' L0 g/ w- w9 b RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", ; a9 f. k" P" Y2 K, x/ e7 {6 D
SuperscriptBox["x8", "2"], "-",
- h& s8 S1 }1 } } SuperscriptBox[7 }# \- ~, a% R0 N; [
RowBox[{"(",
, C- ^& K- c, a `' V1 n8 K RowBox[{9 g4 L$ N' M4 w/ N
RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], " ` H& F1 p8 r9 G0 i
"+", * S, R4 u/ }+ X
RowBox[{"0.39611806709006653`", " ", " e3 x p! a% K" F4 N$ K1 X
SuperscriptBox["\[ExponentialE]", : U0 n; W$ z/ S' n8 y% B
RowBox[{"3.1415926535897936`", " ",
+ W+ E* S+ z: G% e0 e RowBox[{"(",
* e9 u' ]" Q: b4 ]$ Q8 u$ t9 h! e P' x RowBox[{
* j( ~1 C! O) B$ |& S RowBox[{"-", "0.5837889295140001`"}], "-",
) H: ?) F' M$ _2 K, S SuperscriptBox[/ X+ n, h& F9 @$ u2 T& l+ D$ T7 n1 p
RowBox[{"(",
. e' p! ~, I& v/ P RowBox[{8 K$ C; n5 J* u/ d! L4 E
RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
9 H$ n0 `5 { ]% o# w9 O SuperscriptBox["x6", "2"], "-", ; N! j* [' q) @( M! x) i
SuperscriptBox[' T' L! L7 q/ J& e3 B
RowBox[{"(", $ |1 N$ M8 c6 o0 w- ~
RowBox[{
/ d, l! X3 x7 R7 _5 A RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", : k! r1 S h' w5 Z& ~
SuperscriptBox["x8", "2"], "-",
- u; r3 @* u/ V+ ?0 v SuperscriptBox[9 w+ Y) z! O, G+ c5 v
RowBox[{"(",
2 C" _- \! n* N' G* x RowBox[{
3 l5 s, z0 o" |5 h RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
/ X! [, P7 Y4 _" V; | "-",
* ^5 w$ m) d5 I3 I RowBox[{"0.19996885877792045`", " ", / U, E* l# o6 M9 i! `
SuperscriptBox["\[ExponentialE]",
1 Z1 C( j- N! ~! ^2 a6 ~7 H RowBox[{"3.1415926535897936`", " ",
7 J( N+ |2 H8 w6 X6 N- e RowBox[{"(",
: V. `, f6 _4 p& [ RowBox[{7 R4 F# g7 g% I7 d! W
RowBox[{"-", "0.19030188470200005`"}], "-", ) ]" Q. b" n0 |! ?! q
SuperscriptBox[
) J/ @5 G9 P7 M- t5 E6 G9 B RowBox[{"(",
# Q( l8 I3 ]* I' x! b RowBox[{
, r/ A% v, }1 m2 {6 k9 a RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
# ~9 p- X) |9 P I8 A SuperscriptBox[; V. S3 ~/ N( \8 C8 r: n5 K2 B# [
RowBox[{"(",
: Y1 s. M7 ]2 i" ]5 P RowBox[{
F4 `3 p c' H* j" c* `# [ RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", 2 z: d& b7 Y6 q, s- I
SuperscriptBox["x7", "2"], "-", 9 ?! S9 }0 ?! [- p6 I* }
SuperscriptBox["x8", "2"], "-",
+ H9 O2 Q: T+ g" O2 k3 h SuperscriptBox[* b& z/ v8 i7 B/ H
RowBox[{"(", 3 C: p- j4 w: Q, W$ W9 X
RowBox[{
# _0 I0 q* C' s) G+ ? RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ! S3 k6 C+ v; |
"+", 0 _; C5 d$ K0 A% g: p
RowBox[{"0.23580523388620744`", " ", , V' M& D7 Z( N
SuperscriptBox["\[ExponentialE]",
1 p, |4 @* E1 Y, [/ u/ o. f5 q& H1 W RowBox[{"3.1415926535897936`", " ",
7 m1 z0 D: q& \2 z& w+ P RowBox[{"(",
6 Y! g8 k& O7 q8 z/ C RowBox[{3 I7 F& h% e7 r; B
RowBox[{"-", "0.28518780882`"}], "-",
4 R% V o' t7 t& H SuperscriptBox[
: _$ L7 ~/ G3 Z# o- p3 R; M RowBox[{"(",
# n0 a; n) \& \9 U( g% d3 B9 T RowBox[{9 z( r+ U+ @8 c
RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", + w7 |6 D( B; C4 F6 S
SuperscriptBox[
. x! `0 f' ?$ v8 i RowBox[{"(", [( u, X* a' m1 @4 t; P
RowBox[{
9 {5 \! Y3 u( S% v- I# d% T RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
% {. I* _6 M. v& Z: n4 l6 f SuperscriptBox[
! ~1 ~# X6 Y- h$ r; ^( \+ E RowBox[{"(", 7 o P# w% j& z( {) [* z" L8 u
RowBox[{' f$ x( t) r$ D; J2 _) y; Y
RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", 2 O& ?4 m+ l8 O( K2 i* `
SuperscriptBox["x8", "2"], "-",
1 Q+ m. r. o9 ~, {0 q$ m SuperscriptBox[9 \2 r7 G2 ^; a2 u1 k
RowBox[{"(", 0 {: Z8 r% d9 d B5 h
RowBox[{
7 T+ r* i5 C# k4 |. F! k RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 5 K' B& y! k. H$ d" U
"+", 6 y! s- k: n/ }& W5 r' K
RowBox[{"0.667027259367853`", " ",
! A! s/ ?# y+ d4 ] SuperscriptBox["\[ExponentialE]",
0 Y& n/ q' ? r. q. `; t RowBox[{"3.1415926535897936`", " ",
. ~4 u9 z6 A1 E RowBox[{"(",
# K# Z+ {2 l: V+ ? M RowBox[{# K4 I+ S# l6 \" n
RowBox[{"-", "0.11387365200400001`"}], "-", % i( \/ G( V" z6 w8 E. d
SuperscriptBox[
0 K$ N' s+ D1 T1 y RowBox[{"(",
- b, Y2 R7 h; ~# H4 P RowBox[{
+ t2 F* m5 A" w6 V% D- }# z h3 V RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", # ~$ {7 [; V; B5 G' V* I2 T
SuperscriptBox[
- Q2 d5 n# ?2 P RowBox[{"(", 9 C; _# v/ Y" i& S" T8 R" d
RowBox[{
+ `0 D" Y9 y/ C! ]. O4 z8 @+ m RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
" n- o2 e# E2 ?- B( n6 p& V SuperscriptBox["x7", "2"], "-",
3 A' X- s0 R2 O# {6 Q% }, n+ z6 ~ SuperscriptBox["x8", "2"], "-",
9 V; k8 E" l7 _. X; B" J; Q2 B6 F SuperscriptBox[
, O: D+ l0 i, A9 y/ M RowBox[{"(",
0 ]- \$ a7 T6 o8 w RowBox[{
/ K" r8 q7 ]$ i0 C3 c w6 l RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 0 D! @/ a& v, F: Z5 L2 s$ s
"+",
$ B7 d$ g* V! m' R RowBox[{"0.25282438852646905`", " ", 2 U# a m/ U+ l& D
SuperscriptBox["\[ExponentialE]",
- a! G, D1 f3 i! q* ?8 J RowBox[{"3.1415926535897936`", " ",
& n5 w; Z7 u' q6 c/ r. Z RowBox[{"(", 3 J- u$ _% F; v+ t
RowBox[{
' C; s( `1 z5 K' A; f8 { RowBox[{"-", "0.11442644782500001`"}], "-",
% B ~$ ^7 d2 D+ { SuperscriptBox[7 M! L5 c+ ~1 M
RowBox[{"(",
7 L6 Y, f+ Q) v0 Y1 [ RowBox[{
* {- j, t; f; x RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", ) N% I2 z2 C9 Q
SuperscriptBox["x6", "2"], "-", / C! F" ?+ M+ ]: O9 i+ b
SuperscriptBox[) `( [7 B1 y9 y0 }8 a
RowBox[{"(",
4 q- K: }- x, Q4 p" D RowBox[{1 C3 j; w5 ]0 g; x. e
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", * z0 M' J' B! M' s0 @
SuperscriptBox[
* i! P' }2 u. v& W' n8 M" K' m RowBox[{"(",
3 n# Z1 c# } o& \6 [ [ RowBox[{
2 E. U2 A" C* w7 B' u8 Z; s RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
' @9 l2 N4 b' a6 Y2 l3 X SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", ; G/ p5 P+ S- N. Y1 X5 c$ s
RowBox[{"0.07581214474544536`", " ",
; f; d# t& B* Y1 N SuperscriptBox["\[ExponentialE]", 9 r# D% O' }! J7 R$ a1 H. n& N
RowBox[{"3.1415926535897936`", " ", ; n/ u% R$ F, u1 n% E& t& o' v
RowBox[{"(",
7 Y- K) ]8 g6 l# Q9 B4 ` RowBox[{0 p" c6 j; p- V* Q0 L& X8 l- C2 p! F
RowBox[{"-", "0.21008576609800003`"}], "-",
. ?9 K9 A/ }. N: `# _( z SuperscriptBox["x3", "2"], "-",
2 l4 u r0 [, j6 v* \( y' H SuperscriptBox["x6", "2"], "-", & f: G2 A( L7 L8 k) t+ ~
SuperscriptBox["x7", "2"], "-", & B* h, j5 c `! S
SuperscriptBox[
1 q6 |# a1 W+ f1 ~8 d$ j RowBox[{"(", 8 o4 \" N, m N. l, i
RowBox[{
. s0 \0 O7 w! @ RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", 1 Z' `0 t5 ~ @1 K9 j5 k
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
p# z- w/ p+ I e- w RowBox[{"0.10599338351843121`", " ", V3 U+ h; j$ Y" U; z& b' p0 X
SuperscriptBox["\[ExponentialE]",
5 w, Q6 ]2 `/ E7 E% }- |, s3 v RowBox[{"3.1415926535897936`", " ",
- K( l2 p- S3 w* C9 n1 l2 ]& Y RowBox[{"(", 4 k# I+ k6 Y9 \& n8 E
RowBox[{/ i7 [/ |( w4 T
RowBox[{"-", "0.4481471925460001`"}], "-", 2 u* a$ c' h8 K& x& N. ?
SuperscriptBox[1 s" y8 K( {* A A M5 I n
RowBox[{"(", / n0 h8 {8 X7 e
RowBox[{% L7 x. b: i$ |% g8 e4 o( m5 u9 q
RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
. g H3 g* E/ h5 ]. G SuperscriptBox[
" W9 t' @. A) e" |2 `( u RowBox[{"(", $ H0 o$ K N( L% y
RowBox[{
7 J7 b- [& f% Q Y2 ^3 S9 t( x) [3 t% E! S RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", * c, |2 Z- \( S6 g& V" V
SuperscriptBox["x7", "2"], "-", " ~4 N4 p9 X e' Y
SuperscriptBox[( J' _* t. h* \) J5 ?& x4 L
RowBox[{"(",
. n( M* L" ^' B) o/ h, X RowBox[{
# ]- W; [, l' K @ RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
. ~- `5 @1 D7 _0 N6 D# ^8 g" x5 h' R) t SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
8 _. s4 C/ j$ | j8 Y% n RowBox[{"0.5008208386064421`", " ", ; N( a4 A% h- T- \0 G
SuperscriptBox["\[ExponentialE]",
$ x* K0 S9 l, J# }- o# x; _! S RowBox[{"3.1415926535897936`", " ", " ~4 q7 J! e5 Y3 s) Y' x, T- F# @' W
RowBox[{"(", 0 Q' T! n; Z7 J* l* u ^
RowBox[{6 m2 D1 f# s2 ]8 m# n
RowBox[{"-", "0.08722659614000003`"}], "-",
$ d% J+ h* B/ \+ u ~' A SuperscriptBox[
+ ~1 N. Q( _5 i$ A# x3 J RowBox[{"(", ( V( j4 k) Z3 N9 B( b
RowBox[{
' L. g% h; t( H! A& U RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", 5 ]. k( @! ^) t& Q
SuperscriptBox[
0 l4 ?" i" i, y: C/ Y RowBox[{"(",
9 W) C% Q3 |& G% m4 h RowBox[{- h! g. r5 H9 z
RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", 5 o, |4 J$ F9 i% o
SuperscriptBox["x7", "2"], "-",
( H, |: b1 f8 M4 p4 H& o/ I SuperscriptBox[ r5 T! U3 ~" a3 L
RowBox[{"(", 2 d/ ]: A- w: X' S
RowBox[{
) O3 n$ Y( D1 h! ]' Z( ~- `. c' ? RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
" E3 C/ u/ E! ?) n5 \ SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", # q- [7 ?* K9 I2 k( i; g, U
RowBox[{"0.32564305572552343`", " ", * T# H( D1 n, c* s+ g
SuperscriptBox["\[ExponentialE]",
- m# |8 T3 ?0 {; U RowBox[{"3.1415926535897936`", " ", 5 X! t7 Q. g9 b" b, b8 G7 D+ k u
RowBox[{"(", " o$ d/ B$ h' k
RowBox[{2 L! {! @2 u5 ~% C5 g! L
RowBox[{"-", "0.23738217000100004`"}], "-", * ], U7 z- Z- @
SuperscriptBox[3 F3 `0 W: f9 j) \+ P* |# U& ]
RowBox[{"(", ; U. g: ?8 ], X' X8 b6 P6 \# I
RowBox[{1 [5 ?- |* O; @# l: s) b
RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", 1 \5 Y, X2 |, R. Y. k- ?
SuperscriptBox[
3 Z% e8 r. {6 U ?5 q* G RowBox[{"(",
0 k" _$ e( `: J: ^( q/ | RowBox[{
( ~& W9 U) W6 ], M RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", 8 i- M) C3 |0 j9 Z$ K9 o. T y- b( ~: B
SuperscriptBox[, q( ?7 j0 b6 u4 }7 a W
RowBox[{"(",
8 H1 B9 i4 x# e0 n4 L1 I$ O* c b RowBox[{+ L) X3 O! G5 Z% z3 T( [# P" }+ m
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", . g$ I+ T& H* ^: {, E5 x
SuperscriptBox[- h1 a( b; v8 q$ q; T. t
RowBox[{"(",
- K8 K4 y4 B+ P5 J7 E. N RowBox[{
8 f# i1 l0 B k) C RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", & @1 y) C; k9 S2 G) y2 X3 S
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
# S0 U7 @4 T- c+ U5 l RowBox[{"0.6665374509702793`", " ",
4 H& J0 i9 Y8 p m) C SuperscriptBox["\[ExponentialE]",
( {* E3 C; m, z, g RowBox[{"3.1415926535897936`", " ", ) B' @( `# C0 X% D/ E
RowBox[{"(",
8 R. U: J7 O% g3 `5 t RowBox[{4 j1 r ^& N+ i1 w& Z
RowBox[{"-", "0.19162171876400003`"}], "-", ' S% n% X4 Y" z6 d
SuperscriptBox[4 l6 V* x- d+ F3 i: i1 Y
RowBox[{"(",
; ?( P2 v. t, K. x7 Q7 X RowBox[{! _1 j# m; b, W1 [+ p
RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
0 l( v6 f0 t& ]/ J" Q+ N SuperscriptBox[
: ?! M& h4 j) U; e* Z# x) _& R RowBox[{"(",
0 o0 a$ y$ {0 {/ S. ` RowBox[{
6 M3 C9 j3 u: `3 L. K% Q9 \+ y RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", ( `% t9 C: ?( n' L4 m0 u
SuperscriptBox[
1 {1 d6 n) w+ B. @; k RowBox[{"(", # P* ]+ G2 }0 m: H6 R/ r# w
RowBox[{: }3 b. ?0 l2 W7 L- q$ E3 E2 s
RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
2 s) [# x( M% q2 Z3 \5 D& N) D SuperscriptBox["x8", "2"], "-",
6 a6 p7 p+ X# @0 ^$ T" Q) r SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", 4 |6 }5 C" I/ Z+ w$ ?1 I b) x" _. Q
RowBox[{"0.4812237524557293`", " ",
# u, d) ^& {" I0 W# ] SuperscriptBox["\[ExponentialE]",
; a# j7 O1 |( ?4 ] RowBox[{"3.1415926535897936`", " ",
m$ Z- s1 G. |. }" B8 p) D RowBox[{"(", 8 X# b4 V3 _) C1 T) R. e
RowBox[{: w8 x+ u: S \7 {0 _
RowBox[{"-", "0.109748954594`"}], "-",
0 b) f4 S' D. K+ l# H# X9 u$ y SuperscriptBox[* M) }* {7 m( k" b( D6 b0 e
RowBox[{"(", * R* d u/ k) W! a9 t, }
RowBox[{
/ `3 _' Z$ F+ m% a, X; d RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", - W2 \+ F6 a* Y; h+ v2 M& w& c
SuperscriptBox["x6", "2"], "-", ; v% d1 W5 Y0 q
SuperscriptBox[
$ ]9 p( }6 c& R RowBox[{"(", - {1 Y. a6 L/ \* Z- h
RowBox[{
, [2 i0 _7 w- c9 H RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
6 W: A/ ~' a9 [& j2 Y SuperscriptBox["x8", "2"], "-", & j1 S$ n8 h3 s) {+ G- n* J
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", $ s% R( F3 X0 g& O5 d8 a1 Y
RowBox[{"0.176024676254045`", " ", : Y" g# m- O' N
SuperscriptBox["\[ExponentialE]", 9 E# i% p$ [$ N- i) y% M5 ?
RowBox[{"3.1415926535897936`", " ",
7 Y% o0 z9 [6 C6 L# C; W RowBox[{"(", , k6 |# V$ k9 K V, ]
RowBox[{5 `6 H- W* ]( \5 F. H! r
RowBox[{"-", "0.14616677062500003`"}], "-", 3 l% c2 L( R/ B( n! d
SuperscriptBox[ {( z0 v2 Q. ^" V( G
RowBox[{"(",
7 F1 y T E9 D2 n) t RowBox[{' b* m M. |: \4 R) p' x$ k. z) z
RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", % B1 a. y) f q. V2 e9 D
SuperscriptBox["x6", "2"], "-", ; ~. ?4 L& \8 J
SuperscriptBox[
1 ?/ u3 ?* U* q3 J2 x" E2 M RowBox[{"(", & @4 C9 ^" m5 G! |5 c
RowBox[{
9 {0 }3 _- x; u4 a7 o' u RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", # `) ~' t* E9 l4 J2 H
SuperscriptBox["x8", "2"], "-", 8 Y, f4 X* }8 V! j3 x( ~! Q
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", 6 k2 t" [7 s( g6 q, I
RowBox[{"0.5945873894818965`", " ",
+ Z% E9 V8 B/ ]. N SuperscriptBox["\[ExponentialE]",
6 W& R7 T. l) i) Y3 z RowBox[{"3.1415926535897936`", " ",
0 C' a6 R) u" n% b RowBox[{"(", 8 [$ B8 K2 {7 i* Q* O7 |2 Z" a7 l
RowBox[{
8 h5 L5 ~- z" X O RowBox[{"-", "0.10407011464100005`"}], "-", - L6 t/ t5 n& v# H
SuperscriptBox[
h( y7 \ ^' }+ x2 I+ W) u9 | RowBox[{"(", $ X9 z# j, A3 d- w; _
RowBox[{
: b/ j: |' \1 K) n6 Y RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
0 p! r2 n9 P2 }/ i7 N6 N" m SuperscriptBox[% c- r1 G: E3 u2 h1 C
RowBox[{"(", " @( T+ I; {8 \0 K+ c/ r; T! ?8 |' c
RowBox[{
, z$ A# K2 i" C: W% d RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
. \. @( h6 \# q3 k* @ SuperscriptBox[, e2 e8 }3 t& B3 o
RowBox[{"(", 3 ~. |1 s# ~' b, N/ R
RowBox[{
! z; M- J. B2 \: H3 u: B; J6 J0 F9 J RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
2 s& f3 ?. i1 ^0 w* A SuperscriptBox["x8", "2"], "-", 8 v+ h3 T1 s9 J3 v
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", 5 z) G- _) c$ h$ W" [9 @7 ?/ T
RowBox[{"0.027591936509660075`", " ", . X9 d2 Z' L: I
SuperscriptBox["\[ExponentialE]", # m5 P4 @4 K, |" S: A+ g' o
RowBox[{"3.1415926535897936`", " ",
! N) [- L: ]/ {% m RowBox[{"(", ( j. r e, r% L: t/ U0 A/ [$ B7 {
RowBox[{
! v5 g5 c2 d8 ?0 g/ n" ?3 l3 k RowBox[{"-", "0.31770463544200006`"}], "-",
2 }& B' { f( A SuperscriptBox[
, w, L( r' j: h# m/ [, z& \/ T RowBox[{"(",
. o7 ]$ T5 ?3 H RowBox[{9 I3 X3 C. }) V3 l- y
RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
* c; A5 W, b7 `- n) X SuperscriptBox["x6", "2"], "-",
% o0 f1 _7 { ?" X9 t2 C: u SuperscriptBox["x7", "2"], "-", ( {$ M$ w# |' k# i4 j0 f6 R8 c6 U
SuperscriptBox["x8", "2"], "-", & Y( ~% T! x# X* H+ H. p/ J$ n+ ^4 P
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
* G1 J2 R. E5 j0 L1 J* ~+ N$ i# Z RowBox[{"0.5252475961933536`", " ",
; t3 P# T+ I4 o SuperscriptBox["\[ExponentialE]",
" O1 }0 s$ W: j+ r9 } RowBox[{"3.1415926535897936`", " ",
& e: @2 ?* p9 w RowBox[{"(", : P# l3 ^8 R% C3 B
RowBox[{
- s& J5 e! E9 ^* d5 m. B* t RowBox[{"-", "0.6410867660730001`"}], "-",
5 ?$ f( ~( M- f: G1 J SuperscriptBox[; c3 w4 D, o! S$ l0 w- w
RowBox[{"(", 9 L2 T" P! x3 r" ]4 {5 t U. @
RowBox[{; y+ h& t& `3 d9 K" o8 Q# A
RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
. q& @) \+ W7 @4 v+ J& Z SuperscriptBox["x6", "2"], "-", ) f+ o1 A1 J8 t* i
SuperscriptBox["x7", "2"], "-", / j2 S& T' f/ [6 n, A$ e- u
SuperscriptBox["x8", "2"], "-",
8 A" H" N8 p6 W9 P5 k9 X& `% I SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
( ^' J$ T( `% J, Q7 _3 P5 B) q! F RowBox[{"0.32047284779644936`", " ", 0 Q' k; |5 `& l& T" C% L
SuperscriptBox["\[ExponentialE]",
9 c8 M( l9 N L) R: j) u" Z4 N RowBox[{"3.1415926535897936`", " ",
; R7 X- `" M/ w7 ^; o RowBox[{"(",
& ^/ k& |! P+ j3 S. @ RowBox[{, k' o: ~" @/ {8 y* ]
RowBox[{"-", "0.155663887074`"}], "-",
* R$ ~4 R6 D8 p0 m1 N" e SuperscriptBox[2 o* k$ w) [7 Q& C
RowBox[{"(", " n/ w! g1 G# L$ {
RowBox[{
! J2 l6 ?) v7 z/ g6 t1 W RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", 9 g* Y X: ^2 a# ]1 H) ]9 u
SuperscriptBox["x6", "2"], "-", ; Y) V/ B2 k$ v/ x
SuperscriptBox["x7", "2"], "-",
% k! Q7 o0 ?3 b/ F SuperscriptBox["x8", "2"], "-",
1 c: {# E% B0 d/ l; u1 M SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", ) x! V' W$ s! N: s8 @! f7 w
RowBox[{"0.7528674241482847`", " ",
3 k9 h* k/ l8 |: x% B SuperscriptBox["\[ExponentialE]",
' t- A$ l7 n7 G# J RowBox[{"3.1415926535897936`", " ", 1 O8 d. c# p& J& W! ^) p3 g$ {
RowBox[{"(", 8 g1 j! W* D& I" H- ]# G" S2 H
RowBox[{$ Y Z' M* U& ?+ P( C3 S) I) p
RowBox[{"-", "0.14151232428600002`"}], "-", / y u5 a* ?( X, K$ W
SuperscriptBox[
+ @4 P2 H! q# A7 ^ ? RowBox[{"(",
' J. @" _4 {! N RowBox[{, L4 i" O7 j9 L8 |% B
RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", % t/ f# A$ r- e* i$ Q$ u
SuperscriptBox["x6", "2"], "-",
n4 I; i+ b+ l6 r SuperscriptBox["x7", "2"], "-",
7 H9 d, d* |9 c/ T. \ SuperscriptBox["x8", "2"], "-", & w5 k1 O8 h7 n" W6 @: ?& d: \
SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",% B; E7 }; W8 p0 D& @6 `: U
CellChangeTimes->{3.5779628386090403`*^9}]1 K& u. l7 {1 Z' U
}, Open ]],4 z1 ~$ e+ ]0 z, K& x
6 X) o# d$ v: L& W4 Q6 s! s5 a2 u7 X
Cell[BoxData[" "], "Input",4 S$ A3 c: Q4 H/ K6 Q9 e! i
CellChangeTimes->{3.577962835879035*^9}],* A8 U1 N' x3 J; i- i
) s) z* s: w; F0 L' I: F
Cell[BoxData["\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\:4e3a"], "Input"],& ]3 y( W0 A X+ R- f, b
x6 J% S: ~0 {9 wCell[CellGroupData[{
$ v# M5 q! \' A
8 X ?% I* M6 O# ?) V. D) U! sCell[BoxData[
7 p# C7 z+ Q1 Z+ | RowBox[{"y2", "/.", 6 C. n' n$ L8 E1 m( F. O3 d
RowBox[{"{", 3 r8 |$ F, G4 I/ J' b
RowBox[{
" `( |- N6 P5 Q RowBox[{"x1", "->", "0.7406"}], ",",
3 h9 i3 Q4 y0 t( H8 C9 Q% H RowBox[{"x2", "->", "0.4621"}], ",",
. j6 i& ~) w1 J RowBox[{"x4", "->", "0.2221"}], ",",
8 f' w) |( B! G) ]' S' L: V2 B RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",
1 P' K/ I, l) g6 Y0 X CellChangeTimes->{3.577962787784151*^9}],
8 s" `( w0 m5 |1 W7 m, d+ W R
. r1 r( N; f# K: c0 eCell[BoxData[
) Q+ `! O- w6 x* L RowBox[{
# o2 `' Q5 u7 ^8 @ RowBox[{"0.9125798890455848`", " ",
! O# J& \: D" I5 q' ~/ Z; ~ SuperscriptBox["\[ExponentialE]", . V% e* i, S3 U6 _. A
RowBox[{"3.1415926535897936`", " ", 0 Y1 V7 |+ f! y: j
RowBox[{"(",
+ u+ N" e" N& t2 A! M RowBox[{- g$ f2 G! f1 ^2 k+ W% M+ L3 h5 v
RowBox[{"-", "0.17911224641499998`"}], "-",
; z0 c) }+ n# `5 A+ ^ SuperscriptBox[2 I& H7 F v1 X6 X' @
RowBox[{"(", + G; ~; b& M6 ~
RowBox[{
L# h6 S- T2 K5 | RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
6 H+ _( X/ m, a/ Y; F SuperscriptBox[
1 y2 z6 B; C( D! ^ z6 k( ? RowBox[{"(", 3 h9 Q7 c% F* D0 ]
RowBox[{
1 H. H. n" A0 J; @2 U) } RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", 8 T1 Z4 m, D: v$ Z( s5 t% _% N
SuperscriptBox[4 E6 Y# @& m# e9 k
RowBox[{"(",
2 T% x0 L& S( r5 N! ? RowBox[{
% x$ r, ^6 ]3 _8 k RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
: ~4 A* u! L5 Q- S7 j" Z SuperscriptBox["x8", "2"], "-",
- T2 |$ J3 }' q6 Y. g) ?9 t2 b SuperscriptBox[
3 u0 M3 [! D! B6 U RowBox[{"(", + @' d2 x) T# l& [+ ~
RowBox[{5 T& _/ e( Y+ F" r2 U, r T
RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+", & K* i1 Z& ^; U2 j, K( i0 Y: e6 P
RowBox[{"0.2883186011296682`", " ", ( B% `2 N' U' x0 s; ~# Z8 |
SuperscriptBox["\[ExponentialE]",
{( _$ Y4 `1 y. w RowBox[{"3.1415926535897936`", " ", 8 x0 U* w+ B3 C+ I. E, G
RowBox[{"(", ) y+ q4 z. a- c3 ~8 ^+ k8 m+ D( ?
RowBox[{
6 z- Q& ?/ \; A) k9 ]+ O" _4 A6 { RowBox[{"-", "0.105619387859`"}], "-",
* q. y! h; `! b2 d& H* q SuperscriptBox[( |8 x% r- H- y8 [; t* X/ ^0 B
RowBox[{"(", % g6 F* S6 N" ~* B6 s4 ~) h, M+ s
RowBox[{
8 v5 g) |5 ?0 Z3 g7 J5 b RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", ) y& v! J5 e* F
SuperscriptBox["x6", "2"], "-", ' ~1 v! u+ m: L: x4 i3 N9 ~
SuperscriptBox[+ I, ^7 [9 l* }7 t) {
RowBox[{"(", 9 e0 L' d2 Y* M, c
RowBox[{
" ?" Y1 `; l1 I. \! a* N9 h RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
( G; ~7 x+ G& _, b SuperscriptBox["x8", "2"], "-", n- {! C( }$ K+ D7 @1 Y" [
SuperscriptBox[8 \& t) c7 }" c. Y7 _
RowBox[{"(",
& c' U$ w/ t1 Z t# U) M8 t RowBox[{
: R7 S2 V0 z% a9 P% s4 y RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 5 \ d- t% q% ]- D
"+",
1 L* e: w+ w5 _ RowBox[{"0.2115905228598317`", " ",
$ D+ J& p) a( }, z0 M' Q6 V SuperscriptBox["\[ExponentialE]",
2 D# C5 \0 _, k. G+ z RowBox[{"3.1415926535897936`", " ",
6 J+ u. D7 b8 Q0 r. G* O- k% A RowBox[{"(", ( Y6 o' G( z, g* a8 e% E- ?
RowBox[{8 c( |% Q6 C& K7 E
RowBox[{"-", "0.236605670085`"}], "-", * m! ^' o$ C$ i
SuperscriptBox[
8 v! |6 E# m1 u7 M RowBox[{"(", ) g1 h% n; L& J( `( i
RowBox[{
4 ?; a' |! |/ p RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", & b2 P7 g5 ?8 C$ U2 F! [9 ^2 Q
SuperscriptBox["x6", "2"], "-", 3 r$ Q6 k* I- ^4 I
SuperscriptBox["x7", "2"], "-",
5 ^, L W/ N" R0 M, H; T: h SuperscriptBox["x8", "2"], "-", " U; l/ Y8 e7 M4 J( `7 J
SuperscriptBox[# L, d2 @' d! L2 y1 X% |
RowBox[{"(", % b( I5 W& Z' a3 B$ H9 {
RowBox[{
) c% l" |2 O+ F9 a- l8 ~ RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ?& r4 S8 n- e3 |9 N" t- b
"-", * W P) |0 Y9 a
RowBox[{"0.22829938846668896`", " ", / y' [% @9 T) `
SuperscriptBox["\[ExponentialE]", 4 M9 P$ |8 P3 j; u, X" P/ a8 p
RowBox[{"3.1415926535897936`", " ",
! Z% N5 J) N1 `; E. Y; D# [ RowBox[{"(", 9 F4 C) U! x2 ^5 v: _
RowBox[{/ E* y. Q) q& d
RowBox[{"-", "0.46221081830200006`"}], "-",
& g* R8 u/ f6 M) ~ SuperscriptBox[4 W$ @5 G5 |' j9 p' y2 P+ J
RowBox[{"(",
6 Y( {3 Z% y9 f7 T* [ RowBox[{
- X- U7 Q9 }- W+ m! t1 _% } RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
# U: a: ?; z2 j1 w9 }% C. n SuperscriptBox[4 f2 f0 k3 e- z) U0 U
RowBox[{"(",
3 t1 p M, o! h) V0 h RowBox[{
0 p+ G0 z* ]! g, R% \" E& y RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
) B7 w- m' W+ Y' G a5 \) R SuperscriptBox[ y2 E+ X( C' k# H6 W/ N/ o/ [& `
RowBox[{"(", 7 I$ R4 e0 a9 t. K. w1 F: p. T2 {
RowBox[{1 M$ Y% l9 i+ j3 \& |; ]
RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
J" m* x9 |) D+ S5 b SuperscriptBox["x8", "2"], "-",
) H/ w0 R$ U5 p/ W( `, J1 z SuperscriptBox[" F! Y5 p/ o5 K8 ]" H( d1 V u6 a
RowBox[{"(",
4 k* G- c3 n7 d; Y/ b RowBox[{8 f4 w e! s6 S* g9 e# ^
RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
6 Z3 P; u! l. t( W* |" w+ S4 W, T "+", + t# r0 a3 M7 ^. C
RowBox[{"0.27551257162880105`", " ",
8 j- B; Z0 e/ d9 _( m; |# R SuperscriptBox["\[ExponentialE]", ( w, E N( Y- P5 {: `4 |* Q; ~+ o
RowBox[{"3.1415926535897936`", " ",
7 m! i0 l( G% h5 i RowBox[{"(", 3 k) L; L: h; R6 n1 X# d8 [( c
RowBox[{
+ {; ~5 R1 L4 ~6 C3 R8 y ]' ~; t1 w RowBox[{"-", "0.5837889295140001`"}], "-",
' B& j W7 T6 ]# V5 T8 O SuperscriptBox[9 R% t7 y4 J W3 E! y
RowBox[{"(", $ M+ b m K: c9 n; p' N
RowBox[{
, s# c- m- B' { RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
( ^" u; v* q1 v9 x3 |- N0 T- G SuperscriptBox["x6", "2"], "-", 1 w0 b% E# R5 O2 z1 w1 G
SuperscriptBox[
! U/ a/ ~- r9 s4 | RowBox[{"(", ) T. A: j, b% U/ s, S
RowBox[{
y( R- d9 h1 q RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", . J# v$ Z0 p( G
SuperscriptBox["x8", "2"], "-",
: A6 i* S" ? q5 C) E$ w5 j9 y0 F SuperscriptBox[6 E# Q# x F/ G7 r- G
RowBox[{"(",
/ \3 ~0 K8 \- p- ^( d9 O( {$ B( _' y2 J RowBox[{! L ~' _! Y4 g: d
RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 3 z/ q% N8 K3 @) d! G
"-", % D+ C; W' W7 ~2 @8 ~
RowBox[{"0.12620581913715256`", " ", 9 p: T; D, \* O i( J) {5 I( @
SuperscriptBox["\[ExponentialE]",
$ m) O: q& y1 B% k RowBox[{"3.1415926535897936`", " ",
: x! i+ K; H9 ]& [ RowBox[{"(", ; F" l: w) E# R" [! k
RowBox[{+ ?# }. e! Y; a2 O( U# o; s
RowBox[{"-", "0.19030188470200005`"}], "-",
& L" ], K: m- }+ o& I SuperscriptBox[4 ?7 D) X' f( P
RowBox[{"(", - X$ i( R- P9 R0 k' k9 G
RowBox[{" C7 i; G- S u7 B; K" N9 s; m
RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", ! g m b& f, ]6 U* e- ^& H
SuperscriptBox[
8 A# X, s, a( r RowBox[{"(", 9 I8 W$ I, X1 Q
RowBox[{. w, K4 `5 C9 k2 u$ {
RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", 0 w' y( A9 W o$ J" S
SuperscriptBox["x7", "2"], "-", . H" P' ~; u, z) U* e/ n) G
SuperscriptBox["x8", "2"], "-", 7 o4 l4 |; N, W$ Q$ I+ e' I, O
SuperscriptBox[
& A6 z& A- ], B5 Y {- g! i RowBox[{"(",
! W* y5 ?$ M2 k" c RowBox[{
6 L5 |1 T( r9 Z1 h0 t! z9 t RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
& Z- S+ F. x( @( u "+",
7 J: E* _# [: l RowBox[{"0.12782130225993898`", " ", 2 A$ j. o+ R4 I4 k$ k
SuperscriptBox["\[ExponentialE]", ! D- ^1 D! }9 b. S$ n l
RowBox[{"3.1415926535897936`", " ", ) c. L+ a4 h* F# i5 s. _
RowBox[{"(",
, Q* c4 ^! P8 n, Y. s RowBox[{
x4 c* M% p- y0 x RowBox[{"-", "0.28518780882`"}], "-", : J/ p( _0 `1 ^: y
SuperscriptBox[7 K0 `! O. n. @- d2 _& }
RowBox[{"(",
9 O# i6 j8 Q' u; j" I RowBox[{4 I5 R" K+ j8 `
RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", / ^, q8 u5 P* L
SuperscriptBox[
: s+ c. \& V0 f6 F RowBox[{"(", 0 h( D+ W: @* ^7 `7 q/ S: [
RowBox[{
Q% v0 R$ ?% Y; G RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", ; F' U+ [( k* U/ V# N7 V& u1 D
SuperscriptBox[
* Y' t9 t3 w5 f+ O% _6 f RowBox[{"(", - o9 C2 H' g2 @1 t
RowBox[{
7 Z0 F* ]" V( G5 |0 b2 I; \3 x RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
; k! q0 ^1 d# g3 i+ ? Q4 O' V SuperscriptBox["x8", "2"], "-", & r; { N6 F9 h5 ^( J) e5 X3 d
SuperscriptBox[
, @' e. @2 h+ @0 x; l RowBox[{"(",
2 O0 x+ \& `# n RowBox[{. j- e$ H# S( i- _; V, I
RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
* M4 P4 H; n2 m "+",
. W$ \7 {% N: L RowBox[{"0.23615247809381104`", " ",
" [; q) @% V6 i- Z6 T SuperscriptBox["\[ExponentialE]",
s# R5 ? m$ ]8 ~$ Q RowBox[{"3.1415926535897936`", " ",
# s% l# _( V. F3 { RowBox[{"(", 9 H7 F8 L" E) ^
RowBox[{
9 K. J" w- `0 q7 z1 N) \ RowBox[{"-", "0.11387365200400001`"}], "-",
* y9 f2 J: D, i, ~/ |9 x, ]4 K SuperscriptBox[
' `* m5 Z, {5 x& D RowBox[{"(",
/ R: G( W3 t/ i9 `3 D" Q RowBox[{6 C5 L0 h$ N8 x7 c
RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", ' z; V0 E0 L4 L) Y& E: g
SuperscriptBox[
; Q) _" t; d/ d. ~# J5 B% }+ P RowBox[{"(",
5 s2 ]* {7 M1 M1 ~6 _0 z RowBox[{
3 T- m* w; T( F: w1 C; s* B RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", / o. B9 u. A3 v0 Q2 X& I
SuperscriptBox["x7", "2"], "-", 6 |/ Y, Y& ?7 [& f$ R @
SuperscriptBox["x8", "2"], "-",
6 r* y ~" G9 {" C5 w SuperscriptBox[
0 w, J A: w( |% n: g RowBox[{"(",
& ]& B! l8 H2 S RowBox[{
- y! _% B8 `* R. a; u; a* W4 _ RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 2 u3 {$ w% h' S
"+", ' Q, J: l* C2 c
RowBox[{"0.3207174990295845`", " ",
: P) o Q$ y2 n5 ]. e4 @( w4 F( | SuperscriptBox["\[ExponentialE]", * |$ y7 n4 Z( G. a% U& d
RowBox[{"3.1415926535897936`", " ",
) o. i+ L/ A8 }1 W6 M RowBox[{"(",
% Y) R( l( Q; J; e& b+ l RowBox[{8 u6 ?8 D ?2 f9 g; p
RowBox[{"-", "0.11442644782500001`"}], "-", 7 ]( _& i1 q8 b2 y% m
SuperscriptBox[
+ _; O/ j. j8 J/ R RowBox[{"(",
: q2 l6 P( d5 S4 n! M' E G0 N1 m9 W RowBox[{
. D* j& B# D6 P RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", $ J, ^( G6 |# O& A
SuperscriptBox["x6", "2"], "-",
. R0 e1 E0 k8 l& a SuperscriptBox[
$ ` l7 I R- S) j% V3 B RowBox[{"(", ; U% U$ j( T# E' p. {8 M5 L) _
RowBox[{; ~+ O- ?4 S/ x' o
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
/ `- |0 p8 l) ~; Y SuperscriptBox[1 O! M* G( p* ?7 V9 C
RowBox[{"(",
0 h- H9 z% }, t& B RowBox[{
) y- f2 d' z- Q! c4 y' n! t RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", ! ~% |$ h% R& `- W/ ?1 _
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
3 _5 [8 R- m; n9 P" v' j' A RowBox[{"0.15852708848338293`", " ", 2 |% [+ M5 |, b g; W1 a
SuperscriptBox["\[ExponentialE]",
5 V: b' j6 v7 @1 x RowBox[{"3.1415926535897936`", " ", ( X/ H8 j. H5 K
RowBox[{"(",
: ^2 p1 u4 {) G RowBox[{4 s, {- R5 p9 d4 ]
RowBox[{"-", "0.21008576609800003`"}], "-",
7 p# y' k* w$ r8 z: [, o6 a SuperscriptBox["x3", "2"], "-", 3 d( s( f7 X% R
SuperscriptBox["x6", "2"], "-",
% p0 s( d# s0 ~# G s SuperscriptBox["x7", "2"], "-",
/ ]/ t9 Q# E' w4 U: R8 g2 @. Z SuperscriptBox[9 i2 {' G$ W: e/ s& A. N
RowBox[{"(",
: b3 l4 x% r6 o3 X' \3 J6 A RowBox[{
9 F2 k2 p, [; c( q5 Q( g RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
: L* a; j& o0 v SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
2 x- Y/ z3 N) I- j3 }' x- p/ {* H RowBox[{"0.6019775648968266`", " ",
; Q- m# d, ?3 h SuperscriptBox["\[ExponentialE]",
+ R3 l1 y4 y2 i; e RowBox[{"3.1415926535897936`", " ",
. ?: M- y% A4 H! O( @! [* N( v" C RowBox[{"(", 3 _8 s" f9 K2 h
RowBox[{8 R" P% _% ?9 j) n/ p9 _' U
RowBox[{"-", "0.4481471925460001`"}], "-", $ a3 @' s; G7 j$ [( {
SuperscriptBox[
) |! V( \- D6 y$ e ] RowBox[{"(",
+ y, Q: \3 l5 j) v RowBox[{4 ]% ~9 ~. W) P
RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
( z7 y# @8 P6 i+ O SuperscriptBox[; D, E$ ^* k- ^- t( C. Z
RowBox[{"(", 8 A8 I% m+ V' E
RowBox[{! \/ L* i, n* O( |) X w3 }' u0 h
RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", # Q, Y0 u. b: x
SuperscriptBox["x7", "2"], "-", - V* I1 G; J, b
SuperscriptBox[
- d( V% h# \' r8 J4 s4 O% ? RowBox[{"(",
1 {# w! a$ A+ r4 D, E# ~8 J RowBox[{
( l9 Q) w7 y/ L, E0 A, r1 s, w! {" F RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
) `; q- J" z; o: m# L, v SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
+ a m `1 R2 z1 x; L5 c7 t RowBox[{"0.16041393254115266`", " ", 0 } z/ r0 v3 W8 q
SuperscriptBox["\[ExponentialE]",
H- p* ?1 f7 r6 W3 e" s- M RowBox[{"3.1415926535897936`", " ",
' E# s2 D! ]0 ]; ]! j RowBox[{"(",
/ p0 e. X- M: D6 @1 b RowBox[{
1 q; {& L8 T$ G8 o1 |( d9 O RowBox[{"-", "0.08722659614000003`"}], "-", 1 k9 o+ j0 h! G5 R3 n0 \
SuperscriptBox[" K' A: Q' i2 T9 K
RowBox[{"(", 2 `- p( g- e; ?
RowBox[{9 m2 Q1 B! p1 ]" U2 J. `3 `* V' O& ]
RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", + z$ l4 n A8 |! c7 H |
SuperscriptBox[* M9 P. R3 _( p7 P- K9 R3 O
RowBox[{"(", ' L+ o6 o4 x* w5 ?1 w8 r
RowBox[{8 ^3 {1 }& m1 z H3 o9 @
RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
) v( ]7 J% ?8 G$ _ SuperscriptBox["x7", "2"], "-",
S9 V& Q( ^4 @) ]0 `/ c SuperscriptBox[
8 w) _6 G1 b! y8 n( o RowBox[{"(", 4 ?& b( n0 V: l- p6 K; O' H
RowBox[{! B/ b8 U) b: `* x! f
RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", + b8 J! i* I0 r% w& Y v
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", ; J% g* D% c( F9 J. J+ A5 G
RowBox[{"0.482281849713638`", " ", 9 ?) B4 j6 [3 b- R' j7 R. G$ ~
SuperscriptBox["\[ExponentialE]",
, M7 q+ p. i5 U5 b- s/ G: A RowBox[{"3.1415926535897936`", " ", ( A, N v) c( H0 L8 _; X" k! L
RowBox[{"(", + x5 E9 j9 I; k
RowBox[{
1 c5 E5 J$ y' c( U) G RowBox[{"-", "0.23738217000100004`"}], "-",
8 e! N0 H1 z4 m( U/ v; C SuperscriptBox[
' ?; [- P: M( i6 V( W# Q( i" R9 w RowBox[{"(",
' o, r, O% S$ L" r RowBox[{
0 N2 F; J6 v' O# o1 @ RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
! [. T8 t1 p9 @& F# l7 e SuperscriptBox[- b! F: q, f U6 k5 h w
RowBox[{"(",
3 B% O( ^3 [0 M( b/ X% b+ L8 s RowBox[{. U3 {. F5 p6 Y% e
RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", , b) O+ n1 H5 N% N* ~
SuperscriptBox[
4 i" g; l( {4 U0 c, T: r RowBox[{"(", : J: ~& V1 [/ I9 g6 |
RowBox[{( K2 n j* E/ |6 ]. O
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", 5 c' u6 o% m# Y, \, A& s% {2 ?6 n
SuperscriptBox[2 O8 ~% a! _( _( L6 z
RowBox[{"(",
" X6 E- L) z3 l) x RowBox[{
% e9 {6 g4 g7 M7 Q+ Q RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", % Z! `& f7 n) M. P. r
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
1 o) s2 R% {7 m, y RowBox[{"0.29549238400772093`", " ",
/ [7 u g7 r7 ^) h) }0 W( T: W# v SuperscriptBox["\[ExponentialE]", F& x" q8 |6 s3 X
RowBox[{"3.1415926535897936`", " ",
' h. E! u9 c a9 g0 F8 }. b RowBox[{"(",
& s W p1 q$ n( x; E1 _0 m8 Y RowBox[{
7 [- ~" C ~: S( _$ g$ |: [- m RowBox[{"-", "0.19162171876400003`"}], "-",
: h8 Z% }2 C7 M; A- u) V) F: K SuperscriptBox[
+ B' r3 l# g" B0 V. } RowBox[{"(", 5 `, ~& ?0 u# m# I% g
RowBox[{& m+ U# F3 }8 D5 @7 m7 y+ B
RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", * i- J8 ] I* d! d: I4 X) b7 ?
SuperscriptBox[# @% Z# D. p1 a9 z
RowBox[{"(", ; {& W, T- V) b3 K& v
RowBox[{! v$ g, c$ X( _7 G* O N
RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
6 o+ n8 c2 W' Z* z0 n. _( v4 I SuperscriptBox[6 m' S3 X0 ^9 l. b6 F
RowBox[{"(", 9 }, ?+ `; Q4 u9 O9 ~! ]) K
RowBox[{+ P# }# O* ]* I- |# W2 Q: @
RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", , s0 e$ X) d6 {% \, z! ~* A% Z: G
SuperscriptBox["x8", "2"], "-",
+ q4 e2 M7 k: m" g$ { SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
& S$ g: g$ w$ \, `1 g# h7 m RowBox[{"0.31296872769679895`", " ",
5 i1 J- C9 ]; V: N2 @5 B SuperscriptBox["\[ExponentialE]", 6 ?3 i* `" O7 l
RowBox[{"3.1415926535897936`", " ", j+ n }" L: |# ?% d* Q7 y) X
RowBox[{"(", & r& W( Q6 W' e+ q, ?
RowBox[{. s9 p5 g% P `
RowBox[{"-", "0.109748954594`"}], "-",
& \+ T2 M& Z B0 c! ] SuperscriptBox[: d) j0 j# N+ f" n. j* r& I/ |
RowBox[{"(",
$ |2 i4 Y/ @* @( l' g RowBox[{
: _3 _" W6 g/ h3 `3 U1 b2 I RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
! ~. [5 R2 P$ M, _ SuperscriptBox["x6", "2"], "-", " p7 a- V, M- @/ E
SuperscriptBox[& t. C% Q: J" u9 p$ Y% w
RowBox[{"(",
+ F/ F: Z! h. ]# l1 g: K5 U, ~ RowBox[{- k/ R7 @& |" T: {. a) |$ H
RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", - J) w# G' x& D" w: p
SuperscriptBox["x8", "2"], "-", 7 [3 }/ q/ c# U$ j! M8 g
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", # F5 B; i. x$ T! ^" Q; ^( S
RowBox[{"0.4666313851213299`", " ",
' S9 e- q& W- i/ f0 u SuperscriptBox["\[ExponentialE]",
" ~4 P9 |, C5 e$ }' g, X* v5 k RowBox[{"3.1415926535897936`", " ",
% e& ~* O$ l- |4 s RowBox[{"(", ( A. x! P& ^- g- E* {- _: a$ a3 ?
RowBox[{
1 ~5 G3 d0 M; U" H$ y RowBox[{"-", "0.14616677062500003`"}], "-", F3 Q& C. ~- K/ P/ G# y3 m7 E
SuperscriptBox[# O/ x' s& p* x0 B5 q8 Z- o( s
RowBox[{"(",
# v; x" x* e' d& H1 r' r RowBox[{
$ t& z0 V' p$ O% f RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", 2 C d- O) X; F" o3 Z# O9 q1 h
SuperscriptBox["x6", "2"], "-",
! j) {5 C7 o# D) g3 I+ L/ D3 o SuperscriptBox[
3 K/ B' C+ i' U: J7 N% d h RowBox[{"(",
4 H/ b9 b1 v; Y2 |+ Z' n" w RowBox[{$ o* W, |7 v( Y3 D t& D
RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
. B3 b0 [0 p) j: z7 V( A/ K8 o SuperscriptBox["x8", "2"], "-", % t% ?5 r* q* }
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
! v |: D1 Z8 ` y6 ] RowBox[{"0.37419828116611387`", " ", 6 }; Z1 S# S8 i+ E- |
SuperscriptBox["\[ExponentialE]",
8 f, s) B7 a4 I4 j# E9 C( z. T RowBox[{"3.1415926535897936`", " ",
" [# W" H s# x4 r, r# \ RowBox[{"(",
3 a4 }( k7 O0 F. O5 E8 f RowBox[{* ~$ v* v3 }3 C+ @! J+ r M
RowBox[{"-", "0.10407011464100005`"}], "-", 3 h# b8 k5 `' ?
SuperscriptBox[
) j" [+ w- x/ A: A+ E. E' ^ Y5 @ RowBox[{"(",
# g( ^: Q+ |4 s0 f: | RowBox[{. v) a$ f% T6 R" O; m
RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", " P' ~2 @4 r5 L% |( N
SuperscriptBox[
# \: k6 D% _+ X: U RowBox[{"(", 4 R4 G( q! v* S7 G& F8 d( z
RowBox[{8 I/ F1 p* [. \- v' i- u8 Y
RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
6 M) l4 w, H. N& m& k- k( z+ n SuperscriptBox[& S5 o$ h) n0 G' K
RowBox[{"(", & o$ Y& o. Q/ E5 v1 |3 z" n
RowBox[{
: m- \* O' F5 D5 [ RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", , u$ O$ `6 h. Q r3 w
SuperscriptBox["x8", "2"], "-", \9 _) F& T: L* p O# n0 n2 n9 \4 w# D+ ~
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
0 D- T' O F3 X; J RowBox[{"0.025873988843992612`", " ", 7 c; X; T. j& j( Z3 v
SuperscriptBox["\[ExponentialE]",
0 K* j0 X [3 Q5 a4 K9 L$ k' B; l* U RowBox[{"3.1415926535897936`", " ",
. d! i4 N+ X+ ]2 x } RowBox[{"(", 7 w6 Z* p1 R0 D" W- _
RowBox[{! H f; M2 Q6 S) G, A
RowBox[{"-", "0.31770463544200006`"}], "-",
+ w" m% \0 E) O; ^0 R- M( V SuperscriptBox[
( e3 ], T) u0 U RowBox[{"(",
! g! j/ P7 c: {+ F* f$ M, m RowBox[{
E$ v6 r4 H5 ~# b X6 C) H" |* v RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", 2 E1 q/ b" x+ L8 [
SuperscriptBox["x6", "2"], "-", ) a8 R& m* s: l& H( M
SuperscriptBox["x7", "2"], "-",
7 ^# x; R! w% r8 s, n SuperscriptBox["x8", "2"], "-",
6 t+ D) s) U. O, ] SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
5 \3 Z& O( |& E+ U# `3 X V1 ~( E RowBox[{"0.5575503376854455`", " ", + N/ ^# O/ _# @
SuperscriptBox["\[ExponentialE]", $ ?) P/ E5 b" g
RowBox[{"3.1415926535897936`", " ",
% o& r) E- r; \ x2 M0 n) [ RowBox[{"(",
. _9 s/ s2 |5 o$ n RowBox[{( \) q, @: x' M* Z
RowBox[{"-", "0.6410867660730001`"}], "-", % c* t- j7 H* g5 Y. T
SuperscriptBox[6 M |3 z" H9 N' }, y6 H
RowBox[{"(", 1 T4 o3 G: }+ x, `! i1 @
RowBox[{
+ c# k( c+ [6 z: Z RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", 8 P/ ^, P% t6 P; d1 v# |: Y
SuperscriptBox["x6", "2"], "-", " c8 R* [+ N. Y- Q7 F* p
SuperscriptBox["x7", "2"], "-", " j* S" Q7 v6 h$ G) K- \9 H* v
SuperscriptBox["x8", "2"], "-",
# C" i: w9 S/ o/ f: P SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
7 `& {" o6 ^6 D# b: C" ` RowBox[{"0.13398540448199214`", " ",
3 w+ @8 o; l: c7 T6 t3 M& u. n SuperscriptBox["\[ExponentialE]", 6 Y) q. c- J* E5 t* s( J
RowBox[{"3.1415926535897936`", " ",
& L$ u9 p/ k0 g J' A RowBox[{"(",
; H* U) p; o/ X9 n- I. c RowBox[{
4 l6 Y0 v3 q: l' M RowBox[{"-", "0.155663887074`"}], "-",
# W `( U4 j7 L' ? SuperscriptBox[
$ t, Q3 }: W4 n I A% V RowBox[{"(",
, i: G( x8 E* w. g- R* j% g0 K+ l RowBox[{8 V* z3 T: O/ s E0 `- i* h
RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", . M9 ?$ E2 B O; n
SuperscriptBox["x6", "2"], "-",
$ h1 T# ~. ]2 ^' n+ _ SuperscriptBox["x7", "2"], "-",
5 X% n: M- X6 e8 _, w5 y4 a2 G. V SuperscriptBox["x8", "2"], "-", 1 @- p+ ?' M) u1 q- ~ W! W
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", ; K; j, J0 e9 [! P z: }+ J
RowBox[{"0.4572385099113415`", " ",
( o7 y/ [$ p0 C1 ?& `: C: X SuperscriptBox["\[ExponentialE]",
}' K: |. f5 z RowBox[{"3.1415926535897936`", " ",
4 v& B% u& i A& E RowBox[{"(",
! B9 E& M$ N2 M/ K RowBox[{# G3 ?' U- M$ c: s) s& }$ Y
RowBox[{"-", "0.14151232428600002`"}], "-", # u0 b. ^1 X) Q4 h6 P! ~
SuperscriptBox[, r5 h. z S( Z0 a
RowBox[{"(", 9 H- v0 e6 H s6 c
RowBox[{# d `8 y* j* P7 l
RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", * d7 U0 f( G* }6 f. p
SuperscriptBox["x6", "2"], "-", 9 G0 H1 N8 w) F/ p" k: d8 d
SuperscriptBox["x7", "2"], "-", 2 z% w6 w3 J! f8 a! R i+ P4 U
SuperscriptBox["x8", "2"], "-", : K" Z; z; E4 E- H" R
SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",
- _. s- a: a( l9 N: o2 } CellChangeTimes->{3.577962841401445*^9}]
% m1 V3 i/ P d- Q1 c; c) v8 o}, Open ]]
: E4 l6 f6 c& _( T7 H},
5 N* T" Q2 [0 F* c/ G ]WindowSize->{1093, 659},$ e2 D( t1 Z* x& J- \: s) e
WindowMargins->{{61, Automatic}, {Automatic, 15}},! T% Y8 w: C- H) R
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
4 O: l0 O; G; VStyleDefinitions->"Default.nb"0 y, x" }6 p) V1 I! P$ ~( n
]
$ O2 c* v* T% L9 `5 }! m# j4 F(* End of Notebook Content *)
# x) n. ^% p4 l0 B6 C6 Z$ h
: B( v. ]+ w& f(* Internal cache information *)0 ?. Z+ A( d/ K: e
(*CellTagsOutline
- z F0 e u. P) v7 V* kCellTagsIndex->{}
3 q. b g9 Z6 z2 C9 F*)
+ O" P M/ z0 n( H' D(*CellTagsIndex& A: G6 Y2 r2 b Y O# i
CellTagsIndex->{}
. k* d% P! C: d& O& z9 X& c/ s*): ?2 l9 e3 Q# U" K; d
(*NotebookFileOutline
. r0 ~+ i+ `$ I m |8 [& M0 qNotebook[{. B' V5 S3 C1 R9 E) I# A
Cell[CellGroupData[{
4 g' x; Y( C8 @/ E( V9 f# V1 XCell[567, 22, 22639, 450, 1792, "Input"],
. V" k% S) Q4 v0 i7 l4 Y6 e( cCell[23209, 474, 21281, 449, 1703, "Output"]' g- R5 y" R3 b$ x; c. n
}, Open ]],+ X! r: g* A. \+ ^6 S
Cell[CellGroupData[{
G4 p/ j. B$ N2 zCell[44527, 928, 198, 5, 31, "Input"],
2 Z0 W" t" l1 X! A$ K7 lCell[44728, 935, 53666, 1605, 1532, "Output"] \, Y* o0 H2 y+ v; @, z
}, Open ]],. v A0 U& @& |' W# J6 |- t: d; ]
Cell[98409, 2543, 614, 16, 112, "Input"], e+ X9 o, f0 g
Cell[99026, 2561, 667, 17, 72, "Input"],' P; b& |, f: t+ ~: Z. }
Cell[CellGroupData[{
k6 J3 \( U4 O+ Y4 W2 oCell[99718, 2582, 885, 13, 52, "Input"],
9 w3 c! F% n7 a! u4 `8 s' OCell[100606, 2597, 935, 14, 30, "Output"],3 @) q& y8 U d* Y' k% _/ [3 ?
Cell[101544, 2613, 932, 14, 30, "Output"]
6 U0 _! o* i$ f$ J9 T8 L( J: z7 D}, Open ]],
5 U) d x0 y# K. [; ^Cell[102491, 2630, 4236, 93, 412, "Input"],; }; e' q3 g s4 c/ ~4 a+ ?3 r" A$ {
Cell[CellGroupData[{1 T5 O6 b. G9 P6 r% C, B: l
Cell[106752, 2727, 90, 1, 31, "Input"],
8 _9 ~5 T" ?1 YCell[106845, 2730, 872, 13, 30, "Output"]6 t' p. \/ [( ^5 b+ K1 w
}, Open ]],0 S% T$ p& T. ? E: p- ~7 c4 t- f
Cell[107732, 2746, 458, 10, 31, "Input"],: i( i1 d, [( R/ b9 u E
Cell[108193, 2758, 126, 2, 31, "Input"],
, W* W4 G* t/ e6 W) OCell[CellGroupData[{
. y7 t# x+ _# z' n$ vCell[108344, 2764, 248, 6, 31, "Input"], a/ H/ L6 f* h7 S$ b0 |
Cell[108595, 2772, 1007, 17, 30, "Output"]
$ Q- q1 L4 f6 J8 V. Q: [/ u) X}, Open ]],
7 N) b& k. i) Y1 D# L0 rCell[CellGroupData[{5 L" y# G6 h2 R6 j! E" O
Cell[109639, 2794, 251, 6, 31, "Input"],! Q7 K3 h! ]! `( \3 p) ?
Cell[109893, 2802, 1013, 17, 30, "Output"]
! v2 a- e' K3 k# G; J' `}, Open ]],
4 Y1 M8 M( M' ` |# ]5 I$ A2 b! WCell[110921, 2822, 1232, 23, 31, "Input"],
4 }% S! c) e8 B1 `) cCell[CellGroupData[{' T ]# m" {# ]" G# Z' J( O
Cell[112178, 2849, 147, 5, 31, "Input"],. i& q8 V8 l6 m4 T
Cell[112328, 2856, 1979, 50, 50, "Output"]
1 Y+ b1 W: T6 b4 f}, Open ]],; J3 ^' A. F3 o* u; C
Cell[CellGroupData[{- U1 Y+ @- \$ K5 l5 ]5 z' E
Cell[114344, 2911, 195, 5, 31, "Input"],
) y- n8 e& K8 A, g' H( w) p( NCell[114542, 2918, 123, 2, 30, "Output"]
8 F. c) u2 l9 {/ s, \0 X}, Open ]],
0 `9 g. r- u9 z/ l. dCell[CellGroupData[{5 S5 c' E0 c6 q4 k e" H
Cell[114702, 2925, 144, 4, 31, "Input"],4 ~/ w8 \, n' c
Cell[114849, 2931, 96, 1, 30, "Output"]
; F7 f/ l5 c- V @ x3 [( |}, Open ]],# j1 G( W2 f4 w
Cell[CellGroupData[{% |' C: z+ A2 W
Cell[114982, 2937, 146, 4, 31, "Input"],
0 ^2 I7 l/ q+ `/ ]# x% [Cell[115131, 2943, 495, 7, 30, "Output"]* K2 [" N- Z- {6 z6 |2 t2 A; K
}, Open ]],: X( S* a. B0 ?
Cell[CellGroupData[{
7 b6 P) P. c4 Z' iCell[115663, 2955, 144, 4, 31, "Input"],
3 t& s! ?/ o2 {0 QCell[115810, 2961, 418, 6, 30, "Output"]
- V* h0 G1 y: |$ ]3 M4 k}, Open ]],6 F u# F7 U" a" `
Cell[CellGroupData[{- n0 g$ I* l' u( C) j* K9 p
Cell[116265, 2972, 144, 4, 31, "Input"],
- u9 I" n7 ]' z$ }9 H4 M' ?. wCell[116412, 2978, 549, 8, 30, "Output"]
# b7 r1 W# A4 R3 c; x0 ^0 e# b}, Open ]],
2 F6 T( }% G0 c" cCell[CellGroupData[{
* Q& @9 I0 B! m5 Y; k7 X/ G2 OCell[116998, 2991, 537, 10, 31, "Input"],- c( e8 Q! o) c+ T! d8 G6 p6 G& H
Cell[117538, 3003, 998, 14, 30, "Output"]
% B1 F( f Q. g% V; J4 K1 }+ u) z}, Open ]],
! q6 o+ U; v1 zCell[CellGroupData[{) X- b: z3 V' `- L* x3 {% H; i
Cell[118573, 3022, 2321, 55, 44, "Input"],( B v& l) ?, {. K- M2 Q
Cell[120897, 3079, 1541, 38, 91, "Output"]
_1 L/ z: X$ ]! @1 S}, Open ]],- S; G" |( l/ K1 ?) Z
Cell[CellGroupData[{5 u( `0 H1 W& m( w0 u
Cell[122475, 3122, 856, 19, 87, "Input"],
7 q% _, M. m% RCell[123334, 3143, 568, 14, 91, "Output"]
$ e# {2 _$ e- z B}, Open ]],
: o9 F$ S/ G) E5 P3 x2 z8 A' i$ oCell[CellGroupData[{
( i! G! W- z$ |+ |8 w5 p7 T) E5 eCell[123939, 3162, 437, 10, 31, "Input"],
' \0 V, N& T0 z; R, vCell[124379, 3174, 739, 12, 30, "Output"]* d! L" ?" \# L- L. X. t# `
}, Open ]],
. ?2 \# \' B3 j1 n$ z UCell[125133, 3189, 242, 3, 31, "Input"],; E: M) @: Y7 [7 Z3 e j
Cell[CellGroupData[{
) Y% K- u; `( K4 kCell[125400, 3196, 109, 2, 31, "Input"]," x8 k9 m$ p6 a2 Y
Cell[125512, 3200, 323, 7, 30, "Output"]# N0 W! v! r; h
}, Open ]],
( B' b+ H( [! W1 v, dCell[CellGroupData[{
0 [& B- k$ f4 s3 _Cell[125872, 3212, 526, 15, 31, "Input"],
4 x- _4 o' r$ H9 ]4 @Cell[126401, 3229, 1436, 44, 36, "Output"]' K7 H, f; Y( I9 f. U, R3 G$ W* J
}, Open ]],
" ?( H6 e% z! n+ f5 j* H4 qCell[CellGroupData[{+ I9 Q: v6 n# S) v0 Q0 F# n
Cell[127874, 3278, 92, 2, 31, "Input"],: A( ^; V3 F9 n4 x
Cell[127969, 3282, 326, 7, 30, "Output"]0 P% j# ~$ Y, _! q' u* r
}, Open ]],4 ?; O" z8 u( L) v- j' h
Cell[CellGroupData[{2 r: U9 V2 f" V% N' m- d
Cell[128332, 3294, 388, 13, 31, "Input"],
: x7 Q( @9 p( i& {0 Q- bCell[128723, 3309, 1381, 42, 36, "Output"]
" _. Q5 I) x$ f/ T2 T}, Open ]],) s" A7 W- ?7 y* r% J7 b+ T
Cell[CellGroupData[{
; c# z' }! Q9 Q8 A# v+ d+ T/ q4 l: uCell[130141, 3356, 89, 2, 31, "Input"],
2 ~/ @0 I' K, n2 j3 j; j; e& U6 |Cell[130233, 3360, 320, 7, 30, "Output"]
7 Q# z2 ^$ r5 T}, Open ]],3 M9 v9 K6 W, s. J+ p4 P
Cell[CellGroupData[{
- Q' k4 w {' r2 R1 W! D- s$ GCell[130590, 3372, 387, 13, 31, "Input"],, E$ v7 K; F! P% w
Cell[130980, 3387, 1381, 42, 36, "Output"]2 J4 b! ~8 u' e% t5 b
}, Open ]],
5 L9 R6 F8 P: ?, V) `% K/ O$ L8 iCell[CellGroupData[{ [/ L1 G( B" n, z1 o/ G
Cell[132398, 3434, 91, 2, 31, "Input"],1 F5 i# t9 F' h# ~3 X5 l5 y2 G
Cell[132492, 3438, 328, 7, 30, "Output"]
" r% f3 y- G6 E9 |5 B2 {}, Open ]],
& Y8 F, |7 I/ V" |- N+ J0 {Cell[CellGroupData[{, ^5 M% W; `- O. W% j
Cell[132857, 3450, 384, 13, 31, "Input"],+ l1 x6 t# o9 m: x
Cell[133244, 3465, 1379, 42, 36, "Output"]- l! x; z$ s4 u, `# V! w6 F9 o
}, Open ]],
$ B- I7 L7 ?; V$ _4 e7 K! L- k3 ]Cell[CellGroupData[{: c, g- p& x- ^
Cell[134660, 3512, 93, 2, 31, "Input"],1 p4 Q) H$ Y) C5 r6 g; Z5 c% L' n
Cell[134756, 3516, 322, 7, 30, "Output"]
5 v2 Y/ `! _8 D1 Y1 e9 O0 B}, Open ]], v1 u/ n( j2 n& B% y8 U
Cell[CellGroupData[{
& ?# ^7 V0 D- F6 _; HCell[135115, 3528, 385, 13, 31, "Input"],$ j G2 X4 X& l! U5 G) W
Cell[135503, 3543, 1379, 42, 36, "Output"]8 u! C2 X) q8 \7 P' I |
}, Open ]],% O5 g9 i3 T ~' H+ w h) g
Cell[CellGroupData[{) ~* e+ s: ]3 m6 }) P
Cell[136919, 3590, 113, 2, 31, "Input"],# d' s* T0 D0 G' l
Cell[137035, 3594, 348, 7, 30, "Output"]
% ` W9 j9 E! R8 K5 `8 j* `# L}, Open ]],) ~ V: U7 {" |- ?! |
Cell[CellGroupData[{- w- t$ N' }& y7 M) Y2 i
Cell[137420, 3606, 406, 13, 31, "Input"],
3 ?7 ?$ p) S& K. z, [4 BCell[137829, 3621, 1414, 43, 36, "Output"]
& W2 R) ^: j! `+ w2 E1 D}, Open ]],
' U1 N. T+ s( @' aCell[CellGroupData[{- k8 G/ U/ T7 x5 p" p; a6 d
Cell[139280, 3669, 135, 3, 31, "Input"],
% x* [4 B! v* [) B+ x& K7 XCell[139418, 3674, 358, 7, 30, "Output"]1 V/ ~# h7 \6 Y# X* B* c) }9 R* r
}, Open ]],1 O# l* I8 D) y% \, p
Cell[CellGroupData[{
3 {2 ^$ c3 s- i, b# V* l/ f) TCell[139813, 3686, 430, 14, 31, "Input"],- ]/ k: U1 G! c1 l
Cell[140246, 3702, 1426, 43, 36, "Output"]; Y+ p' @" e8 [* H- T9 M0 ]! V
}, Open ]],
y7 ^- ?4 N+ c4 U% U1 P @, bCell[CellGroupData[{
F0 g% Y) \; v: VCell[141709, 3750, 156, 3, 31, "Input"],# Y% X" r, M+ ]) s* V; z7 j
Cell[141868, 3755, 377, 8, 30, "Output"]3 I2 S. O/ ^: A g& H. V ^* H
}, Open ]],( H- O& f4 `- Q+ s
Cell[CellGroupData[{3 N0 l. M1 P# Y) X8 A5 z
Cell[142282, 3768, 452, 14, 31, "Input"],
# T/ w w2 u) D- cCell[142737, 3784, 1440, 42, 36, "Output"]1 j% s8 b1 `) ]0 D; m1 l3 s
}, Open ]],8 p8 I- m4 Q$ S& B& \; m3 i
Cell[CellGroupData[{% |: w3 J7 b) Z! n# l; ]% k& ~
Cell[144214, 3831, 178, 3, 31, "Input"],
% q& F; Z2 f( N5 a! OCell[144395, 3836, 448, 9, 30, "Output"]* ]* m/ L# Y( f) T& R
}, Open ]],+ a0 P+ N% s: ^
Cell[CellGroupData[{
! n1 j% F" D$ u+ dCell[144880, 3850, 474, 14, 31, "Input"], u0 M/ r/ `+ L& q
Cell[145357, 3866, 1510, 43, 36, "Output"]
: }( j/ y* A( V, P' P}, Open ]],
; P) ~" a" y) UCell[CellGroupData[{* ?0 R7 I8 N3 |1 ~
Cell[146904, 3914, 470, 14, 52, "Input"],; [3 y9 R6 J' ~ g& O% B
Cell[147377, 3930, 257, 5, 30, "Output"],
3 v3 k; p: n/ C* ~9 w, O4 w$ yCell[147637, 3937, 1310, 38, 36, "Output"]' T l3 ^2 k B9 i% W3 P
}, Open ]],
$ v* u( t% y3 N( a# X1 D! E& |Cell[CellGroupData[{$ ^+ w+ o& C- H" i" B! K6 W% n
Cell[148984, 3980, 520, 15, 52, "Input"],
$ i+ ` r0 X( t/ I# D8 ~Cell[149507, 3997, 293, 7, 30, "Output"],, r0 H: t. C4 `( g0 C# O
Cell[149803, 4006, 1345, 40, 36, "Output"]: B; y' _$ _0 B" b6 e5 C: E8 _
}, Open ]],* c5 ]. ]7 B4 b
Cell[CellGroupData[{
3 \9 S! Y6 h+ j eCell[151185, 4051, 520, 15, 52, "Input"],
/ x' a# E% H' c( SCell[151708, 4068, 266, 6, 30, "Output"],- @3 ]7 _/ E/ U. ?& c2 r
Cell[151977, 4076, 1319, 39, 36, "Output"]+ I& ~3 d; Q7 }% r' M
}, Open ]],
, p, x6 ]1 Y& A) A& H( e: c2 CCell[CellGroupData[{
# A: O$ {2 ?. O) c/ N: X& j3 S6 ~Cell[153333, 4120, 520, 15, 52, "Input"],+ y4 S6 h) W( v7 A4 U9 k
Cell[153856, 4137, 272, 6, 30, "Output"],* S5 I5 C- Y6 E9 Y+ Q/ Y; W4 }
Cell[154131, 4145, 1327, 40, 36, "Output"]
3 I2 y8 w8 m- v% s4 Q" e' d! D}, Open ]],
$ L& h9 R+ i+ _2 P: L2 TCell[CellGroupData[{
: ~- L2 n) u- S; H7 F1 n4 OCell[155495, 4190, 520, 15, 52, "Input"],
7 z0 W# {: q) t9 h8 m) \Cell[156018, 4207, 265, 6, 30, "Output"],
4 n2 d3 w. h' \# kCell[156286, 4215, 1318, 39, 36, "Output"]
: w; h9 ^& H( b1 W6 F# K/ u( \}, Open ]],
/ P$ O, Y: X* D. QCell[CellGroupData[{$ `7 a# j! G/ E) O G- c6 S
Cell[157641, 4259, 517, 15, 52, "Input"],+ {2 \7 L9 T1 y1 f* j# R
Cell[158161, 4276, 275, 6, 30, "Output"],
. B Y3 a* w* `, OCell[158439, 4284, 1333, 41, 36, "Output"], w: @3 Y% d4 w' x% R
}, Open ]],
6 u1 e3 _& _' E4 Q$ b& l) T' q+ O7 PCell[159787, 4328, 381, 11, 31, "Input"],
. l7 V# @& c" S) e1 \% ]3 I2 I4 zCell[CellGroupData[{- x2 F9 Y( b) N6 \' S8 P
Cell[160193, 4343, 573, 16, 52, "Input"],! w4 e+ C7 E6 N7 k* L& ?, E
Cell[160769, 4361, 278, 6, 30, "Output"],8 |7 {# h' U2 A& j8 a
Cell[161050, 4369, 1328, 41, 36, "Output"]* O, H r9 G4 E3 u0 u( v% L
}, Open ]],. O4 K# k! z& r' x& `/ O
Cell[CellGroupData[{5 |% b$ t7 R8 c8 \4 Z
Cell[162415, 4415, 571, 16, 52, "Input"],/ \% [! E8 y1 ], V9 @; A
Cell[162989, 4433, 270, 6, 30, "Output"],
6 x6 L6 \# d! V% p4 B$ C1 [+ ECell[163262, 4441, 1325, 40, 36, "Output"]; c3 r! J( J+ y' ^
}, Open ]],. e5 f5 v& t! o1 l' G: y7 {
Cell[CellGroupData[{* }2 U; ?& ]+ s7 \9 F0 S
Cell[164624, 4486, 571, 16, 52, "Input"],
# ~% R* V1 t* Q5 n0 ICell[165198, 4504, 264, 6, 30, "Output"],
, V( z* i `4 ] V2 W, A! L; DCell[165465, 4512, 1316, 39, 36, "Output"]
# h: p8 Q$ U# a: u}, Open ]],
2 y3 g# g4 I+ ACell[CellGroupData[{) q0 z4 t/ F: m
Cell[166818, 4556, 571, 16, 52, "Input"],# A# Z& }' a1 W
Cell[167392, 4574, 271, 6, 30, "Output"],, J% N% L4 n O2 T! Y/ z- G$ T, V% Z
Cell[167666, 4582, 1329, 41, 36, "Output"]
5 U3 Q! b; Z# Q' ~9 _( x}, Open ]],
. J8 n0 D C. x7 A% c& r% ECell[CellGroupData[{9 ]0 {. f7 T1 R. K
Cell[169032, 4628, 570, 16, 52, "Input"],7 o7 c& N% u- u6 u% c { M3 x3 o
Cell[169605, 4646, 277, 6, 30, "Output"],
) g$ {! F: x5 U q5 }+ yCell[169885, 4654, 1335, 41, 36, "Output"]3 }+ ]/ N$ B% `& S
}, Open ]],& O# N; d1 o6 D7 u! S
Cell[CellGroupData[{
% b) O# o2 B6 o8 [Cell[171257, 4700, 571, 16, 52, "Input"],
' Z4 S$ Y* ?" l5 p6 CCell[171831, 4718, 274, 6, 30, "Output"],
9 _" Q& u4 T, y M" [1 TCell[172108, 4726, 1335, 42, 36, "Output"]) z* B$ ~( K; P9 K. t
}, Open ]],
6 T% y; ~8 a( E) F# x ECell[173458, 4771, 104, 1, 31, "Input"],
" G# B/ y- ` J" T1 BCell[CellGroupData[{
. r# _! j' r; NCell[173587, 4776, 279, 7, 31, "Input"],/ y* H+ r& n, c0 h# U
Cell[173869, 4785, 878, 14, 50, "Output"]* C- w; n6 s1 c/ t1 D* `# C4 Q
}, Open ]],
$ \/ J8 n Q/ a+ N8 F0 r& V% DCell[CellGroupData[{6 A7 C' ]/ _3 ~: H3 h/ Z# J/ t+ c
Cell[174784, 4804, 243, 5, 31, "Input"],. _! d# H5 [/ f5 [' P
Cell[175030, 4811, 216, 3, 30, "Output"], }% F$ B- |! Q- K1 [4 G8 r6 t
}, Open ]],
{7 u/ {. R0 [Cell[175261, 4817, 537, 14, 31, "Input"],- H" O) g4 W. `5 G4 o' H: v' s7 i, C
Cell[CellGroupData[{
8 Y) A$ C* Q( g% K7 \8 Q0 o" R# ?" K0 x3 sCell[175823, 4835, 94, 1, 31, "Input"],
0 v9 r$ s: U3 v. N P" PCell[175920, 4838, 1319, 20, 107, "Output"]
$ H; ~; Y* _; v- v, r; V1 \}, Open ]],
3 b( w" f1 s5 p6 aCell[CellGroupData[{
) v, e% k+ ~" \7 F1 k5 v+ S" JCell[177276, 4863, 464, 12, 31, "Input"],7 ^8 x. I- F u% j( A( @$ m
Cell[177743, 4877, 17248, 366, 582, "Output"]/ T- k% c# o' l* D# w, T. ^
}, Open ]],
" p+ }8 j9 J+ S3 H4 ZCell[195006, 5246, 32810, 934, 912, "Input"],
! Q* y/ P. F4 PCell[CellGroupData[{* d) N+ O) M f& F& O7 `. R/ I
Cell[227841, 6184, 284, 6, 31, "Input"],9 j7 Q+ A/ D2 @0 y7 j
Cell[228128, 6192, 961, 17, 50, "Output"]
5 r' Y) ]6 \5 q; T}, Open ]],; \7 S) f/ g5 I( A) H0 I& W
Cell[CellGroupData[{# V) Z% T* _* }1 w2 u
Cell[229126, 6214, 531, 11, 31, "Input"],7 N# L$ {: K, Q9 c6 ~% b
Cell[229660, 6227, 28858, 853, 537, "Output"]6 T6 s% W& u" @/ K' ]3 D/ m4 O
}, Open ]],
8 x( C9 f3 a Z' f# n$ ?Cell[CellGroupData[{
6 Q# h: t0 a" H" |# c @Cell[258555, 7085, 281, 7, 31, "Input"],5 M0 z! S8 Q6 e1 L
Cell[258839, 7094, 540, 10, 30, "Output"]
; M; X* I0 v% w6 `0 W6 Q& _}, Open ]],
: ?4 I3 g0 o, R% u7 ECell[259394, 7107, 1869, 53, 92, "Input"],( |# J! @3 j( h8 l+ J1 @6 C4 S0 P, s
Cell[CellGroupData[{, e8 X. O, e1 M4 P6 }* a
Cell[261288, 7164, 138, 2, 31, "Input"],0 E) X. [, h$ L! x4 ]
Cell[261429, 7168, 1122, 20, 69, "Output"]$ j9 ?2 d7 [, C5 d. K+ Y
}, Open ]],) Z; Y. B, ?9 T
Cell[CellGroupData[{
& y- Y' ~0 I# ]3 ]( M& V lCell[262588, 7193, 1816, 29, 152, "Input"],. c; S2 f% R# Z1 d7 ~; X
Cell[264407, 7224, 1736, 28, 88, "Output"]. [1 |, k* T- m% b. O! ]; D3 q
}, Open ]],
" o" V0 O4 [/ ]Cell[CellGroupData[{! k5 Z8 y) j5 c/ t! b
Cell[266180, 7257, 209, 6, 31, "Input"],
, P( o( D H5 v8 J0 ~Cell[266392, 7265, 516, 9, 30, "Output"]. H- l5 }7 `$ g2 j7 c6 N! k, m9 a
}, Open ]],
* T3 e1 k# O6 t q4 YCell[266923, 7277, 613, 16, 31, "Input"],- M0 v" l/ k3 r, F
Cell[CellGroupData[{
! m: w( K1 _: v6 t" ZCell[267561, 7297, 157, 2, 31, "Input"],: @% i; [! ~0 O/ ^. a& c) x
Cell[267721, 7301, 776, 13, 50, "Output"]+ m4 T" `2 g2 M2 [2 O& w( O% c
}, Open ]],
1 T$ g# b9 \' t/ S$ I: j( rCell[CellGroupData[{" b8 B; j; g- q/ X
Cell[268534, 7319, 1397, 21, 112, "Input"],
, \- E2 Y9 w# T+ V2 `Cell[269934, 7342, 1384, 21, 88, "Output"]
' k5 r$ o! I! D/ y1 R& D9 M}, Open ]],
7 S3 g: Z- j: ^4 e/ ?( Z6 G+ dCell[CellGroupData[{( R9 h6 i$ O! i0 s4 N
Cell[271355, 7368, 1208, 30, 55, "Input"],
# j0 Z+ ~, h" `' r$ L6 CCell[272566, 7400, 1299, 29, 256, "Output"]
: V( i9 @; @, ^/ d3 T9 m" m}, Open ]],' ]* F, D) C6 o# H8 R
Cell[CellGroupData[{4 p. y; G; x. e2 F
Cell[273902, 7434, 829, 23, 31, "Input"],2 U% x3 D. ?3 t3 L5 |* q0 g9 y8 ~
Cell[274734, 7459, 1053, 22, 249, "Output"]
( v1 C" {1 H' g. S; j8 w" m, C}, Open ]],
" `+ `& `( f( |+ [' V% ?& aCell[CellGroupData[{- {! [! N% U) P; P9 I, K
Cell[275824, 7486, 84, 2, 31, "Input"],
' n/ o& [5 V7 e7 ]Cell[275911, 7490, 1675, 36, 256, "Output"]' ~! P7 W+ @+ Q2 R( n8 q* h: X
}, Open ]],
& `+ f: \: B7 e$ C2 ]: p# H. XCell[277601, 7529, 131, 2, 31, "Input"],' Q( Y% [) F f$ M. B
Cell[CellGroupData[{- F4 U6 ^) h9 g5 q; Y
Cell[277757, 7535, 302, 7, 31, "Input"],$ M4 g" V* T4 n& x3 i
Cell[278062, 7544, 935, 16, 50, "Output"]
2 z5 E/ y# q( \/ a K}, Open ]],
4 C; ? U! `& c' ]. s( ?$ q. R% ]Cell[CellGroupData[{4 @! \! X" D3 ]# \! `: I
Cell[279034, 7565, 295, 6, 31, "Input"],
' l* O! C* @- |% i8 T6 GCell[279332, 7573, 244, 3, 30, "Output"]% }* Z5 i/ R1 L6 n
}, Open ]],
- w( ]( R2 f1 K8 t- cCell[279591, 7579, 610, 15, 31, "Input"],8 ?% H* P( {0 J7 g% B
Cell[CellGroupData[{
! I9 F! O4 |& j. A7 B, \Cell[280226, 7598, 120, 2, 31, "Input"],' q6 x3 U* |$ U
Cell[280349, 7602, 1334, 21, 107, "Output"]
5 H# j' R- m$ Q}, Open ]],; b2 B- X- q% T7 x0 W! _
Cell[CellGroupData[{
: A9 D% J1 C: b4 k2 J! Y9 bCell[281720, 7628, 460, 12, 31, "Input"],
+ z) u8 P z( w/ ~# _+ P& ?( FCell[282183, 7642, 17248, 366, 582, "Output"]
- N) E3 U6 n( t}, Open ]],+ Z& t3 M8 T. X% s9 O4 C
Cell[299446, 8011, 32810, 934, 912, "Input"],; t; n5 [4 T; \' b; Z& o8 m
Cell[CellGroupData[{% u0 g5 V4 R" t6 G7 W
Cell[332281, 8949, 334, 6, 31, "Input"],
5 c+ _% Z: Q, d9 \! vCell[332618, 8957, 1004, 18, 50, "Output"]7 L3 b1 z6 P+ [+ h1 N( `
}, Open ]],1 L! Z; W9 R8 s/ z0 @& K; f5 ?
Cell[CellGroupData[{
5 u- I3 c+ P* n Z, g! H ~4 RCell[333659, 8980, 559, 11, 31, "Input"],
, |! C9 y: b; g# |( UCell[334221, 8993, 28881, 853, 537, "Output"]
. i, q7 r- F# X3 D E& V}, Open ]],, S r. n: |4 O, @9 [
Cell[CellGroupData[{" F7 B$ {/ A5 _ d5 ^
Cell[363139, 9851, 306, 7, 31, "Input"],
& g: \! A: `( {Cell[363448, 9860, 562, 10, 30, "Output"]" v8 |$ Q( J' H; S) p1 d
}, Open ]],$ O5 N8 G" u- I7 e5 z, g+ x5 g
Cell[364025, 9873, 1915, 53, 92, "Input"],3 z7 Q& k0 p, ~( H
Cell[CellGroupData[{
, M8 q& b6 ?- l3 nCell[365965, 9930, 163, 2, 31, "Input"],
1 C* [; l2 x0 H, |4 m) X8 P, E2 lCell[366131, 9934, 1139, 20, 69, "Output"]
8 k$ K3 x2 I4 f: p& c}, Open ]],9 d& F! K) U! O& I* W( h
Cell[CellGroupData[{1 J% ]. X) H- J# P O
Cell[367307, 9959, 1863, 30, 152, "Input"],2 f* Z$ T8 E$ s. b7 v& ^; }. g
Cell[369173, 9991, 1761, 28, 88, "Output"]
% f- P3 y6 R7 {4 d2 A}, Open ]],4 M" ^8 O) s9 [3 L' w
Cell[CellGroupData[{1 M3 l0 b; G" k2 ~6 q
Cell[370971, 10024, 231, 6, 31, "Input"],# X3 J1 I) H% |' _! ~4 K9 r
Cell[371205, 10032, 540, 10, 30, "Output"]
) W% h7 ]6 P% x k}, Open ]],
6 e L' }) H- lCell[371760, 10045, 687, 17, 31, "Input"],1 ^7 ]9 k1 y. x8 o
Cell[CellGroupData[{' ]$ W5 s4 Y( X! b8 r. @+ d9 T
Cell[372472, 10066, 185, 3, 31, "Input"],0 r3 Y+ F- e$ j0 @; J
Cell[372660, 10071, 804, 13, 69, "Output"]1 ~( J) D; m; V# S) j L: R) g! F
}, Open ]],6 R# R% \: W* D7 x3 G: v$ [, O! Q
Cell[CellGroupData[{
" v6 g8 x8 z: @# C/ RCell[373501, 10089, 1405, 21, 112, "Input"],
) I$ {( C. o" R9 q2 cCell[374909, 10112, 1387, 21, 88, "Output"]
9 Y7 M, m' Q( C}, Open ]],
" j7 B4 C" X% M, Q/ O9 d' ?Cell[CellGroupData[{
3 ~ |' L: t' F. q2 z* LCell[376333, 10138, 1339, 33, 55, "Input"],5 X8 l" H' `+ S0 R6 y
Cell[377675, 10173, 1370, 30, 256, "Output"]7 i( C! Q: Q- _( R
}, Open ]],
3 A/ o& J, g- ]Cell[CellGroupData[{
1 Z$ W! C9 z; ACell[379082, 10208, 877, 24, 31, "Input"],9 ^! R: w" |4 F: `
Cell[379962, 10234, 1058, 22, 249, "Output"]
. D5 X* V* j7 V! E( E$ b6 B}, Open ]],
( Q1 m t4 A1 w8 oCell[CellGroupData[{" E6 c. D) G# ?
Cell[381057, 10261, 84, 2, 31, "Input"],
. \: z5 k0 N- c- ^6 rCell[381144, 10265, 1659, 36, 256, "Output"]3 y: |( I$ _' A$ |8 I# Q: E
}, Open ]],5 |5 k" f1 O+ R
Cell[382818, 10304, 509, 10, 52, "Input"],
: ~8 f0 A: }, r/ }. B" r0 ], TCell[383330, 10316, 530, 10, 33, "Input"],. [' i( N0 F* u- z% @3 T' S1 q: @0 H2 [
Cell[383863, 10328, 69, 1, 31, "Input"],1 F9 q; l3 x0 W$ K
Cell[383935, 10331, 62, 0, 31, "Input"],/ @) D, p/ ^! O; ~2 G; q: m' W, d' Q
Cell[CellGroupData[{* ?, D. f3 u) t6 P' S
Cell[384022, 10335, 364, 9, 31, "Input"],8 u; b4 O: D' V; j) {
Cell[384389, 10346, 13864, 402, 287, "Output"]0 B% w3 ? e) V4 j# u0 v- q4 B
}, Open ]],$ y- l. M9 c% l6 n `
Cell[398268, 10751, 69, 1, 31, "Input"],
: n& D e8 n( J. S( |" sCell[398340, 10754, 74, 0, 31, "Input"],( q* M# M U5 i% A6 s8 I {) T0 A- j3 y
Cell[CellGroupData[{
. z1 b, {& \1 K- f( @Cell[398439, 10758, 288, 8, 31, "Input"],, r$ j7 I9 G* }
Cell[398730, 10768, 13861, 402, 287, "Output"]
( T6 ] d; q6 L+ L2 {; p/ u5 f# Y* k}, Open ]]
2 X0 `* W+ ?4 O}
& v4 d$ G- ]8 P]
4 w0 a0 z. z) m*)/ T5 t- h' ?) X8 x4 J% X: e
! L, [4 E+ s: X, I) c0 l9 Z(* End of internal cache information *）
8 o" N5 X- R9 h( H! j4 J( b; Q/ x$ o; ` u" r9 h$ a% [
这个是用mathmatic做的神经网络，能导出最后的权值，就是可以写出表达式，我想用matlab做，却不知道怎么做 |
IP卡
狗仔卡
发表于 2013-7-29 20:37
转播
淘帖
分享
收藏
支持
反对
微信
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
显身卡
