涳夢 发表于 2013-7-30 20:31 ![]() 7 M, @9 w+ w( T) j N
神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗
T) G: Z3 ?, t(* Content-type: application/mathematica *)9 r4 k/ a4 `& j
' U7 c- L, s& q% S( _0 F1 {% n
(*** Wolfram Notebook File ***)
$ ^, Y, W' r8 g3 H+ M" z(* http://www.wolfram.com/nb *)
5 T/ K4 h$ R3 _, h9 R* L2 m o) Q0 q% l0 p1 A7 P
(* CreatedBy='Mathematica 7.0' *)9 W" p/ u% c# K3 B! [! ?' ?
3 g+ L/ u- s. j
(*CacheID: 234*)
# |; i( K+ d$ u! H2 y- Y( {$ l% |& n(* Internal cache information:
4 \+ p. r) t4 h' FNotebookFileLineBreakTest
9 t" c2 e* o, \+ c; ANotebookFileLineBreakTest
, }9 A9 A/ [5 p% k. _- O WNotebookDataPosition[ 145, 7]
) | ?, d/ g$ f& M* Z: J3 ]9 |NotebookDataLength[ 423629, 11534]2 r9 P5 Z/ y+ L% {+ ] T! Y9 d. v$ ^
NotebookOptionsPosition[ 412607, 11173]% N7 l9 P, }9 C+ }) g) F6 K
NotebookOutlinePosition[ 412953, 11188]4 H+ g l9 }4 e$ |- T4 ~
CellTagsIndexPosition[ 412910, 11185]
6 g3 \; b' |: H8 JWindowFrame->Normal*)% r) N. K. i6 Y' ?* q* {
& u D3 R8 ]$ T# O
(* Beginning of Notebook Content *)
+ H' x; z) g- K8 y& `) h4 NNotebook[{
# p( m2 W3 V( E# `. O, `$ l$ K3 a
Cell[CellGroupData[{
# o) Q: t( g/ r; g+ B0 dCell[BoxData[
/ Q) q0 B- c. ?, M& O RowBox[{"Data", "=",
% B: }+ c' D4 U) J1 L9 h" Z RowBox[{"{",
$ R* H. Z! ^% j) d6 [/ L6 v RowBox[{! r" w$ o+ [' F
RowBox[{"{",
8 Y/ l4 }! s5 a+ l, { RowBox[{
]" W& \, T- b1 e "0.304348", ",", "0.552818", ",", "0.330370", ",", "0.025823", ",",
@" N( [; U5 _2 r. |% ^4 n5 y' j; { "0.538462", ",", "0.752072", ",", "0.408943", ",", "0.504532", ",", ; {/ S9 t, k' D+ c4 m
"0.000000", ",", "0.277091", ",", "0.873239"}], "}"}], ",", " ", ) K C9 e, ?% t4 F S5 H
RowBox[{"{", ! B6 a- s: c2 W$ ` V3 P6 h3 P
RowBox[{$ {9 d& D4 t: f6 m6 U% _5 ?/ c6 B! E
"0.565217", ",", "0.346857", ",", "0.393585", ",", "0.118785", ",",
& A/ f$ `, ~ O4 j9 h. ^+ K, ^ "0.349650", ",", "0.370761", ",", "0.413008", ",", "0.502518", ",",
9 I6 a. o3 P x$ t& t "0.000000", ",", "0.220259", ",", "0.464789"}], "}"}], ",", " ", / R$ U# t7 _/ E) d1 w; }
RowBox[{"{", ( L- J% v t) j" U# d
RowBox[{
# s& C1 W. ^- g$ m/ y( \ "0.608696", ",", "0.339186", ",", "0.494300", ",", "0.099338", ",",
7 e" q7 f" T4 a# ?$ H "0.321678", ",", "0.375283", ",", "0.000000", ",", "0.505539", ",", i6 a4 g) E- ?2 a
"0.000000", ",", "0.899882", ",", "0.492958"}], "}"}], ",", " ", ) m4 p/ z# T1 E0 Z8 U2 L+ z8 Z
RowBox[{"{",
0 Y# Z$ l' |" l+ d1 s RowBox[{! t q4 _5 g. F! Q2 A+ V
"0.521739", ",", "0.334022", ",", "0.355500", ",", "0.025156", ",", & U( X4 U5 Z) j$ P+ Y. F5 Z
"0.489510", ",", "0.376790", ",", "0.411382", ",", "0.000000", ",", # I3 _) z( W9 O7 e* j
"0.000000", ",", "0.265607", ",", "0.774648"}], "}"}], ",", " ",
3 U7 e9 k7 ^; |. Y2 } RowBox[{"{", q3 ^" O d# j2 G
RowBox[{6 T4 r; m6 t7 S. W; K: }
"0.565217", ",", "0.346931", ",", "0.218229", ",", "0.043639", ",", ' m. x5 s8 t' X
"0.503497", ",", "0.761115", ",", "0.415447", ",", "0.503525", ",", ! x) h0 g3 P1 d6 h8 j d7 D8 k. P
"0.000000", ",", "0.642226", ",", "0.380282"}], "}"}], ",", " ",
' D% W' l& V( @& m9 s% y+ u RowBox[{"{",
. n1 P: [* K' ^7 \' l+ y1 @& S+ f RowBox[{
* u/ X4 ]4 \! {) H "0.478261", ",", "0.293154", ",", "0.259368", ",", "0.026688", ",", $ Y, j) G# K4 c/ S
"0.587413", ",", "0.755840", ",", "0.409756", ",", "0.498489", ",",
) G; I' A' r# C p A7 a% W "0.000000", ",", "0.306243", ",", "0.647887"}], "}"}], ",", " ", 3 o- f4 G0 f* u7 S
RowBox[{"{",
6 f! \# I# S2 v& _ RowBox[{5 ?4 L! _( ?, A6 [4 F! u% d
"0.347826", ",", "0.359693", ",", "0.614393", ",", "0.081521", ",",
( B7 k) c' F% b8 J3 R% ~ Z "0.258741", ",", "0.367747", ",", "0.410569", ",", "0.499496", ",", 3 o# X0 Z6 j4 @& L7 i* O1 Q" a* g
"0.000000", ",", "0.186985", ",", "0.563380"}], "}"}], ",", " ", $ j2 ]! U) @6 s4 `( r8 J
RowBox[{"{", ; M$ D5 I. M, o; n$ u1 f
RowBox[{0 t$ O& S! e* y# ?4 I+ Q
"0.565217", ",", "0.705518", ",", "0.510223", ",", "0.066892", ",", % x' Y2 G+ u9 H" T+ n
"0.244755", ",", "0.748304", ",", "0.000000", ",", "0.000000", ",", 6 i% `* P$ m; `* }! Z! |/ M
"0.243032", ",", "0.175501", ",", "0.295775"}], "}"}], ",", " ", 8 Q3 e) U9 _( }
RowBox[{"{", - Q1 W" V% [8 w$ N% B( J
RowBox[{& c/ B* E. i/ F/ B3 t0 Y: a
"0.565217", ",", "0.710460", ",", "0.649730", ",", "0.119897", ",", 7 B! [2 G0 @) ~1 ]8 b8 {
"0.468531", ",", "0.000000", ",", "0.636585", ",", "0.000000", ",",
% q5 I. ], E# C7 f/ _6 @ "0.766748", ",", "0.147821", ",", "0.338028"}], "}"}], ",", " ",
7 q: ^7 m# Q0 D. G RowBox[{"{", 6 y+ }7 J6 X$ ]# c2 Y2 L' X; O
RowBox[{
3 {' x% r- [+ |9 y "0.565217", ",", "0.697772", ",", "0.171587", ",", "0.028566", ",", 4 y$ X" z _: O% f3 W! c
"0.363636", ",", "0.449887", ",", "0.408130", ",", "0.000000", ",",
8 X+ @ T5 f* B. s9 y$ p "0.000000", ",", "0.352768", ",", "0.211268"}], "}"}], ",", " ", A+ a+ ~, X( h: S! F, k2 I. Z& e
RowBox[{"{",
R! L7 v& f: e% Y RowBox[{
1 v, o/ v& d8 R ? "0.282609", ",", "0.660888", ",", "0.460064", ",", "0.110334", ",",
9 z- w) `' c. T$ y' R: Q( t. B "0.475524", ",", "0.000000", ",", "0.545528", ",", "0.000000", ",", * Q- c( }% J( r2 Q8 [
"0.551100", ",", "0.238810", ",", "0.690141"}], "}"}], ",", " ",
4 a- b x/ y& g/ q- m& L2 a8 M3 } RowBox[{"{", . ~( R/ T: s, I3 J2 y: J( e
RowBox[{
7 g, G; G& t% N' a8 ^ ] "0.130435", ",", "0.682724", ",", "0.258697", ",", "0.019299", ",", + e! }' C( f6 a. J! t* E
"0.510490", ",", "0.420497", ",", "0.535772", ",", "0.000000", ",", 7 {, i: C( V1 I% v1 O* d# g
"0.494866", ",", "0.095701", ",", "0.436620"}], "}"}], ",", " ", # V/ `1 w) V* `) p
RowBox[{"{",
: K, U0 k/ U& t; A4 i RowBox[{: D8 Y# t$ K8 W, [* o5 U
"0.347826", ",", "0.697772", ",", "0.108288", ",", "0.022413", ",",
! l8 e' X' t7 W% M7 T5 w# E0 Y% q "0.356643", ",", "0.247928", ",", "0.908130", ",", "0.000000", ",",
) x" x6 J1 F! R9 H9 a! R "0.383374", ",", "0.162839", ",", "0.000000"}], "}"}], ",", " ", 6 X. D. J3 T9 r' W, g( y
RowBox[{"{",
0 Y9 ^$ d3 x( S RowBox[{
6 ^) S5 r: ~( g1 a" [: J "0.695652", ",", "0.718280", ",", "0.339730", ",", "0.110285", ",", : X1 u4 h. ~3 x
"0.335664", ",", "0.000000", ",", "0.636585", ",", "0.780463", ",", & [& a5 n5 Q! _2 Q8 n
"0.000000", ",", "0.335395", ",", "0.267606"}], "}"}], ",", " ", 2 y7 d/ G! |/ P/ M& B7 a
RowBox[{"{",
3 L! b0 r! j. P3 Y1 R RowBox[{7 F ]6 y, X5 e4 M: _# n6 U) M
"0.652174", ",", "0.569711", ",", "0.414297", ",", "0.175398", ",",
. R1 @/ e X6 h9 B+ d: C/ L' S. c "0.167832", ",", "0.000000", ",", "0.544715", ",", "0.000000", ",", p0 O, s/ ]9 w! w
"0.000000", ",", "0.160483", ",", "0.211268"}], "}"}], ",", " ",
$ _% Q2 S- j: k% J1 b/ z. n8 A RowBox[{"{",
5 `+ y" Z! @4 d3 f8 |! A5 n/ w RowBox[{
# h; \( }0 v5 W$ w "0.000000", ",", "0.395544", ",", "0.027011", ",", "0.048087", ",", - I, [. q; ^ t2 w) ^
"0.496503", ",", "0.000000", ",", "0.452033", ",", "0.000000", ",",
# F+ F: Q. w8 q) p9 t, Z; q "0.278729", ",", "0.398115", ",", "0.408451"}], "}"}], ",", " ",
' y3 c% F4 ~) N8 g$ ` C RowBox[{"{", # G$ Q0 ]2 E+ ^0 @% g: g
RowBox[{( s& h5 L! x7 |9 `1 q5 k8 g% ^
"0.608696", ",", "0.425199", ",", "0.012979", ",", "0.000000", ",",
; J Y/ _1 B) J$ ]$ M "0.482517", ",", "0.509420", ",", "0.406504", ",", "0.000000", ",",
: R3 }' Y$ U" Y "0.000000", ",", "0.157833", ",", "0.478873"}], "}"}], ",", " ", & y0 q3 J# S7 A: G3 | z5 H) \
RowBox[{"{",
& i7 ~& M7 D5 u5 o RowBox[{
* m& A* W/ C$ A4 u I/ k/ H8 l "0.608696", ",", "0.577973", ",", "0.213587", ",", "0.030889", ",", 3 c8 \4 \( J5 d
"0.370629", ",", "0.000000", ",", "0.452846", ",", "0.000000", ",", . `: F1 `& D$ Q
"0.000000", ",", "0.315665", ",", "0.380282"}], "}"}], ",", " ", 5 H$ }1 N3 o' f7 \1 V( q4 ]' Y0 @9 G& }
RowBox[{"{", 3 L: i- K0 M7 o1 N
RowBox[{
0 j. c+ T$ X# \# f% j3 P! @" S "0.565217", ",", "0.572293", ",", "0.655012", ",", "0.281852", ",",
1 B/ F+ `. u* Z/ E4 W% j5 f "0.000000", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
9 _8 G/ a% h# q' d& K% B "0.000000", ",", "0.492344", ",", "0.211268"}], "}"}], ",", " ", % U% `; J0 ?* z& {
RowBox[{"{", 0 b) I, P& f5 O c# N
RowBox[{
3 T4 x/ `" y( L4 y/ G& `$ s "0.130435", ",", "0.562039", ",", "0.331662", ",", "0.032643", ",", " V+ p2 s3 P0 G6 R8 a# G$ k9 J
"0.314685", ",", "0.414469", ",", "0.275610", ",", "0.000000", ",", " Q p0 q' `$ x- `- { D: w
"0.000000", ",", "0.638398", ",", "0.436620"}], "}"}], ",", " ", ! b+ |' x: l0 o* K3 \2 \( |$ ~
RowBox[{"{",
( e9 v. v) \% ] RowBox[{7 Y+ e' m. P; ]
"0.717391", ",", "0.736205", ",", "0.267704", ",", "0.036152", ",",
3 ^6 z0 A+ E: l1 t( f "0.307692", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
5 i4 x/ F0 c* z* K& i: F& v+ L) E "0.000000", ",", "0.392521", ",", "0.478873"}], "}"}], ",", " ",
, E5 d( q" I# W& Z- y; U# K RowBox[{"{", 2 ?9 H* }" Z. g
RowBox[{5 p6 S. ]9 E; D \( h2 o
"0.608696", ",", "0.769475", ",", "0.289283", ",", "0.022882", ",",
6 `4 O0 B# b. t5 A) i- O( V "0.321678", ",", "0.000000", ",", "0.274797", ",", "0.333333", ",", , }2 `' r2 u' K- z& A
"0.000000", ",", "0.362191", ",", "0.295775"}], "}"}], ",", " ", % j+ q4 l' s3 V9 N; M
RowBox[{"{", & r9 t2 N# T7 H
RowBox[{* L; Q* w3 ]; X4 J
"0.913043", ",", "0.170478", ",", "0.000000", ",", "0.012973", ",",
3 u3 l7 U0 k+ h! i7 Y: j2 A "0.293706", ",", "0.000000", ",", "0.000000", ",", "0.672709", ",",
& i' o6 X; u0 ~! r# X% T9 C7 c1 q: z "0.000000", ",", "0.114252", ",", "0.028169"}], "}"}], ",", " ", 9 w; m; C8 h! j# g+ u% N$ I
RowBox[{"{",
6 P* n, f; M0 F' z: A. L RowBox[{
& g6 O% ~: q+ h- {4 p "0.739130", ",", "0.193199", ",", "0.160584", ",", "0.037907", ",", 4 V8 z: a6 i+ P1 x' R* n
"0.461538", ",", "0.000000", ",", "0.684553", ",", "0.000000", ",",
$ F: |; D! f( {$ }/ U; ~$ ]/ e0 a "0.000000", ",", "0.401355", ",", "0.436620"}], "}"}], ",", " ", $ M" F( m4 I% K& R' Q" A0 s
RowBox[{"{",
7 y7 B& t& j5 @+ ], u/ B RowBox[{
2 m/ h- v S! A7 j2 h "0.826087", ",", "0.203969", ",", "0.234619", ",", "0.272240", ",", 4 L( a6 I$ l4 @! H8 z* r( n9 s: b
"0.265734", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
2 Z# W9 Z1 W- b! ^& `6 P "0.000000", ",", "0.827444", ",", "0.394366"}], "}"}], ",", " ",
5 E5 m* P+ N2 }- p7 @ RowBox[{"{",
4 S' x" D9 j; J- T RowBox[{
6 C; n% O; S e6 | "1.000000", ",", "0.199248", ",", "0.295044", ",", "0.041613", ",",
/ C* U$ j1 u( A$ _4 X5 `5 O& I "0.209790", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
4 _0 f) g6 z0 u "0.000000", ",", "0.676973", ",", "0.295775"}], "}"}], ",", " ", / z+ K, @6 v' w6 W2 y
RowBox[{"{",
1 p9 V4 F. ]* u$ d C) t4 B; I# K RowBox[{6 A6 a/ n: R; j6 ?/ Q7 P
"0.869565", ",", "0.180363", ",", "0.243056", ",", "0.098349", ",", ( n: v. O u* d6 Z
"0.265734", ",", "0.503391", ",", "0.000000", ",", "0.000000", ",", ! W3 f. I9 O4 G
"0.000000", ",", "0.331272", ",", "0.830986"}], "}"}], ",", " ",
% z* M: b# g1 W( N7 _! a' r* P RowBox[{"{", ) f5 r7 Z7 X4 c' Z5 E
RowBox[{& } J+ `! |; |& L2 k8 g
"0.695652", ",", "0.551785", ",", "0.326201", ",", "0.253608", ",",
" Z0 M0 J" ~! Z/ `, O! K+ a2 P/ _/ K "0.195804", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
/ m* z+ ?) Q: L* x4 y "0.000000", ",", "0.845701", ",", "0.169014"}], "}"}], ",", " ",
. C6 _0 q3 V. J RowBox[{"{",
. ~$ C, l S: w* n$ U- q$ B! ^ RowBox[{
) W# v9 Y" ~8 y' N: c- }+ f, J3 o "0.652174", ",", "0.572293", ",", "0.111511", ",", "0.035584", ",", % ?- r& _6 _1 a6 y# D! \
"0.405594", ",", "0.249435", ",", "0.544715", ",", "0.000000", ",",
" M5 M. M6 A/ w5 f* T "0.000000", ",", "0.287102", ",", "0.366197"}], "}"}], ",", " ", 5 |# O7 J' ?5 V+ a3 U' c/ w# [
RowBox[{"{", 5 o% R. W# Z" F* J( v1 O2 l# l
RowBox[{5 m' S' d4 T; t7 G7 m! I
"0.652174", ",", "0.562039", ",", "0.336155", ",", "0.014604", ",",
9 F; r0 h( L1 k "0.174825", ",", "0.244160", ",", "0.000000", ",", "0.000000", ",",
4 z- T. A3 {# B5 q- G9 M "0.000000", ",", "0.000000", ",", "0.309859"}], "}"}], ",", " ",
- M9 [! ?& {! x B- h RowBox[{"{", + I* @5 }( k2 ^) P
RowBox[{# m7 g4 A( G2 W2 r! R% m
"0.565217", ",", "0.577383", ",", "0.155870", ",", "0.030963", ",", : U$ u" Z0 o# `; d' M
"0.258741", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
7 e5 G3 o' o& M# s) H1 w "0.000000", ",", "0.050059", ",", "0.352113"}], "}"}], ",", " ",
1 \' o. M R1 d/ U RowBox[{"{", ; B9 W) _/ n& N- _0 K/ ^( V& `1 k
RowBox[{: O7 B$ I2 \) ?; S t. E
"0.565217", ",", "0.613234", ",", "0.232956", ",", "0.053870", ",",
9 n" ?( ]# j. g) g _! l "0.230769", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", - B- C, g/ F2 o. q6 \
"0.000000", ",", "0.254122", ",", "0.309859"}], "}"}], ",", " ", " a# }1 x9 A3 R3 o! W4 s
RowBox[{"{",
" z. e# o" [1 L; X RowBox[{& @5 D# Y$ L- R( m
"0.565217", ",", "0.559531", ",", "0.493262", ",", "0.046209", ",",
; V$ ^5 q1 A3 m+ \( }# b$ E4 L6 Y% r% w "0.293706", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", ( l+ G/ j9 R, g/ K
"0.000000", ",", "0.086867", ",", "0.774648"}], "}"}], ",", " ",
$ G' t: E: ~7 L+ f7 [$ H RowBox[{"{",
7 h8 j$ L5 g& x5 q. t% L; q RowBox[{
+ p; t( Z4 B( B: o- h "0.608696", ",", "0.569711", ",", "0.111932", ",", "0.013542", ",", " s( N6 p8 I# E& C3 b
"0.335664", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
2 R, i. O r5 k% X# X "0.168704", ",", "0.659894", ",", "0.422535"}], "}"}], ",", " ",
x7 c: H- J- c$ A, q* o' d" x RowBox[{"{", * q9 ~& i `$ d4 p4 b& B
RowBox[{
" @$ A* C% F6 y8 P; o" z- Z "0.608696", ",", "0.564547", ",", "0.329844", ",", "0.202036", ",", & w7 u) t4 T4 e1 u4 w! z. X) y
"0.510490", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
; I( H4 W; v) h+ K9 j6 p "0.000000", ",", "0.317138", ",", "0.887324"}], "}"}], ",", " ", ' D" _3 \* o* p, f
RowBox[{"{",
, P4 u* R/ \) Y RowBox[{
; ?$ }- I {8 D% A- _1 C "0.521739", ",", "0.546695", ",", "0.165788", ",", "0.029431", ",", ! X. r0 p9 Y) e6 `7 a
"0.510490", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", : r/ y4 y4 T9 u6 }
"0.000000", ",", "0.605124", ",", "0.887324"}], "}"}], ",", " ", ' Q9 \% F- z. k4 o, ~( D
RowBox[{"{", ; X. Q* h6 s8 O3 z
RowBox[{
- D$ x( W2 x% V "0.521739", ",", "0.564178", ",", "0.400518", ",", "0.045023", ",", 8 L/ |/ \+ q8 U5 P! ^
"0.615385", ",", "0.368500", ",", "0.660163", ",", "0.301108", ",", $ U5 o- ~7 |5 l k, Z
"0.000000", ",", "0.321260", ",", "0.859155"}], "}"}], ",", " ",
! A- r; V7 w5 q6 v RowBox[{"{", : ^0 \( g e; `" m
RowBox[{% Y {, X# [7 B+ S9 f( \0 H
"0.413043", ",", "0.551859", ",", "0.544826", ",", "0.230503", ",", * T; J1 w& Q% A; D" ?
"0.244755", ",", "0.530520", ",", "0.819512", ",", "0.000000", ",", 2 Q+ v- T0 R R
"0.000000", ",", "0.595406", ",", "0.239437"}], "}"}], ",", " ", 3 |. K: t$ }7 z
RowBox[{"{", - V& y! ]5 B) O! R# t
RowBox[{/ r5 l& I" a, W& p$ V# W2 C" s6 h
"0.652174", ",", "0.549277", ",", "0.257578", ",", "0.058688", ",", 1 L/ ^0 b2 K: F# ^) q! t5 x" Q
"0.356643", ",", "0.000000", ",", "0.817886", ",", "0.000000", ",",
0 z6 H% O! b+ O* X# ] "0.000000", ",", "0.555359", ",", "0.295775"}], "}"}], ",", " ", 5 E) `" v8 @/ _1 E" K* V4 `0 k/ R9 A
RowBox[{"{",
$ d3 k- _ @5 S) ~ RowBox[{
5 _/ }0 I9 v0 ]- s: m3 @ Z/ `6 M "0.695652", ",", "0.549277", ",", "0.572308", ",", "0.082411", ",", - q+ U$ A7 s- Y; Z! K
"0.461538", ",", "0.528259", ",", "0.819512", ",", "0.000000", ",", 8 ?" b; l9 r. `$ ?+ {; {
"0.000000", ",", "0.333333", ",", "0.746479"}], "}"}], ",", " ",
1 k7 n: \2 T+ N+ N5 Y# b. p: x RowBox[{"{", % F' J4 z( J! D/ ^" L$ }
RowBox[{ v9 `3 n, A8 J( x: S4 g
"0.434783", ",", "0.551785", ",", "0.530346", ",", "0.151651", ",",
/ V, r4 K# x8 Q# ] D/ T "0.790210", ",", "0.529013", ",", "0.409756", ",", "0.000000", ",",
5 H' D) \, U# u* p- a; m! i) o' I+ K "1.000000", ",", "0.149588", ",", "1.000000"}], "}"}], ",", " ",
6 h( F% t9 \# u! n RowBox[{"{", / J) @8 o+ ? a9 a
RowBox[{
' v, H, j! m2 H! G "0.282609", ",", "0.531278", ",", "0.321428", ",", "0.228625", ",",
$ }) v1 r: O( x "0.594406", ",", "0.530520", ",", "0.410569", ",", "0.000000", ",", ! W" J+ s% u/ R
"0.757457", ",", "0.493522", ",", "0.549296"}], "}"}], ",", " ",
5 q' ~' ]3 g4 [ \ RowBox[{"{", % ?: {" b% S" N1 y
RowBox[{3 ?6 \0 u8 v# t( ~: F3 q/ a
"0.347826", ",", "0.705444", ",", "0.109343", ",", "0.072008", ",",
& ~5 Z z) P! u$ v; U( c( x9 @7 ^ "0.496503", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
' \4 W5 u! N H* R "0.752567", ",", "0.224676", ",", "0.366197"}], "}"}], ",", " ", , H: |9 \, W/ M
RowBox[{"{", K7 A/ E" z+ y
RowBox[{& b1 Z& h( ^5 M0 s" A! s# c* R
"0.391304", ",", "0.705444", ",", "0.045908", ",", "0.073120", ",", 8 b' s$ W, n- D5 F/ A9 ?" {9 `/ R) I
"0.622378", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", % ?. v' `1 H0 p/ P- j
"0.496333", ",", "0.410188", ",", "0.549296"}], "}"}], ",", " ", " v2 C, `( U6 K8 W
RowBox[{"{", & N/ C/ S. V4 [. d9 k7 S; x
RowBox[{
7 b. `, P2 O3 F6 }# P "0.282609", ",", "0.661921", ",", "0.344992", ",", "0.085178", ",", . S& u9 U4 V$ e* e
"0.293706", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", , s, O' D0 r) c- r" V7 G ^
"0.000000", ",", "0.668139", ",", "0.577465"}], "}"}], ",", " ", 6 I5 Q- r! D( ~" ~
RowBox[{"{", ( B6 N2 {% K. I# D- d) [5 a) f
RowBox[{ z/ w: ?- l7 `2 E6 H
"0.478261", ",", "0.661921", ",", "0.644209", ",", "0.077296", ",", & X) u4 G! a* p" z/ E5 z$ q0 O
"0.412587", ",", "0.000000", ",", "0.413008", ",", "0.502518", ",",
# a0 u U" n% u8 T" g9 p "0.000000", ",", "0.102179", ",", "0.690141"}], "}"}], ",", " ", ' D2 {) P5 Y9 {# O; b; @/ U
RowBox[{"{",
- h$ B' `, `2 T _. ` RowBox[{
& u: I {6 m( e. y "0.173913", ",", "0.984656", ",", "0.420753", ",", "0.137022", ",", ) x* m" s3 t x0 \* k8 V
"0.321678", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", ' m u) A0 T7 y+ e
"0.000000", ",", "0.380742", ",", "0.718310"}], "}"}], ",", " ", - b: M4 d$ W; w. J4 M) ]" h: H
RowBox[{"{",
% E# s/ t5 X o* [ RowBox[{
+ N) \4 V& } Q "0.500000", ",", "0.984656", ",", "0.288432", ",", "0.047692", ",", 0 z" n% W2 z) O
"0.279720", ",", "0.000000", ",", "0.821138", ",", "0.510574", ",", 7 M4 W: Y0 A! Y5 l K' A2 h) ]! G
"0.000000", ",", "0.319494", ",", "0.521127"}], "}"}], ",", " ",
5 z, w- Q, J' k, Z7 r RowBox[{"{",
5 H5 A8 D9 d, Q. U' }1 h. d, } RowBox[{, Q+ @$ g. I4 Z
"0.391304", ",", "1.000000", ",", "0.452931", ",", "0.150909", ",",
6 [$ O C9 I! c# i "0.342657", ",", "0.370761", ",", "0.000000", ",", "0.509567", ",",
3 F: A3 f0 U" f; H& M. C) w2 r "0.000000", ",", "0.031508", ",", "0.929577"}], "}"}], ",", " ",
3 O+ N/ D: d3 z% \9 r- i$ u RowBox[{"{",
- `5 e% z2 @5 ?' G p4 { RowBox[{
: ~5 M5 j% u+ K( k "0.739130", ",", "0.774639", ",", "0.175120", ",", "0.036498", ",",
. O. l# |1 i( ^4 Q. H3 T "0.391608", ",", "0.739261", ",", "0.408943", ",", "0.553877", ",",
; l. s: o+ `, b "0.000000", ",", "0.292108", ",", "0.521127"}], "}"}], ",", " ", " K: Z- U- P5 D( J2 |8 U3 G, @
RowBox[{"{",
0 U C$ W$ z$ |$ m RowBox[{ h: q" f6 N' F7 ?' h& B3 p; @& I, Q
"0.586957", ",", "0.982074", ",", "0.158462", ",", "0.063902", ",", k9 j0 @5 e/ n: T' s; Y7 e$ H
"0.321678", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 8 C4 ~3 q4 @' K9 m7 ?8 I$ N3 G7 c
"0.000000", ",", "0.329505", ",", "0.338028"}], "}"}], ",", " ", : \) j9 ]5 m, \- J
RowBox[{"{",
) e {! B: m* s& ^3 n, q' p3 r# a% s RowBox[{
& E4 b4 n$ _3 e _* l+ B "0.543478", ",", "0.982074", ",", "0.306872", ",", "0.041934", ",", ) K3 h" ~" a5 @
"0.426573", ",", "0.380558", ",", "0.414634", ",", "0.506546", ",",
+ B: s3 } X s) M4 T$ ]$ r "0.000000", ",", "0.337456", ",", "0.380282"}], "}"}], ",", " ",
/ J# }& _& m! C/ x+ B RowBox[{"{", ; a8 {* K3 o' p6 R% Y: p6 x
RowBox[{
4 z& B/ C% B* W. ^" i4 l "0.739130", ",", "0.997418", ",", "0.170143", ",", "0.058268", ",",
) L7 o" @$ E) |- q# S. m: N "0.538462", ",", "0.248681", ",", "0.000000", ",", "0.339376", ",",
t( f* h0 m2 `5 \ "0.000000", ",", "0.766784", ",", "0.676056"}], "}"}], ",", " ", # k* n: U- I# N* {: k! R# \, @/ M% V
RowBox[{"{", / f$ x9 `: h& K
RowBox[{
9 T" H+ E& f* m* \$ Z6 n4 X "0.695652", ",", "0.700428", ",", "0.139361", ",", "0.182169", ",",
1 {0 z2 |5 J7 z7 N @$ m4 t "0.412587", ",", "0.243406", ",", "0.000000", ",", "0.000000", ",", 6 i: b( X3 L# M$ x% `
"0.136919", ",", "0.676678", ",", "0.591549"}], "}"}], ",", " ",
8 X9 N3 W0 L8 N; b# s8 r) V RowBox[{"{", 1 a% [" t- f) C0 M
RowBox[{
1 P! T2 u" J7 ?; @$ _, G, h "0.782609", ",", "0.751623", ",", "0.177646", ",", "0.350845", ",",
; T; [0 X4 w, o "0.412587", ",", "0.502638", ",", "0.000000", ",", "0.000000", ",", ' @* o2 A* \* o' A$ D
"0.178973", ",", "0.541519", ",", "0.464789"}], "}"}], ",", " ",
+ } t+ ]3 n+ R5 u, Z$ u RowBox[{"{",
$ |$ d5 j# p/ b. K. f3 z1 i$ I7 s; g RowBox[{( j# q" z+ u0 {) X7 V
"0.652174", ",", "0.751623", ",", "0.355593", ",", "0.039883", ",", 7 ?9 l9 @" l9 n
"0.195804", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
8 f0 z2 H8 r% p$ H "0.000000", ",", "0.064488", ",", "0.295775"}], "}"}], ",", " ", $ Y2 b2 [8 Q/ D4 G0 Y6 k+ }
RowBox[{"{", * F& K l: y/ N: y) ]/ e" v& R
RowBox[{
* _- J9 r3 D+ p8 C( Y5 f8 E "0.521739", ",", "0.679847", ",", "0.152375", ",", "0.030048", ",", 2 Y$ e+ V: n3 ]& x _5 |
"0.363636", ",", "0.000000", ",", "0.271545", ",", "0.000000", ",", ! ^6 {7 m$ I" g8 J `% }. |
"0.000000", ",", "0.463192", ",", "0.380282"}], "}"}], ",", " ",
2 H4 Y' u _, s+ m5 S RowBox[{"{", * [ C+ p, W" E9 l
RowBox[{3 F4 q& q" {1 l# A! y, n
"0.434783", ",", "0.728533", ",", "0.186830", ",", "0.129510", ",",
& ]$ r. ~5 a* z$ c7 V5 A "0.195804", ",", "0.000000", ",", "0.269919", ",", "0.000000", ",", 5 `# R! Q/ M" [$ ^ O% N. D2 |
"0.326650", ",", "0.388398", ",", "0.211268"}], "}"}], ",", " ",
1 j- D5 k. \7 e, L RowBox[{"{",
/ V6 ~; p z4 O; O" U( W RowBox[{
4 \1 W, |3 }9 {" c "0.608696", ",", "0.606152", ",", "0.158058", ",", "0.090170", ",",
/ X. Z7 {1 ` l: K! L$ h) e% z8 ?% Q "1.000000", ",", "0.166541", ",", "0.278049", ",", "0.000000", ",",
% X0 K \' \3 H0 U! ]; U$ z "0.236675", ",", "0.262367", ",", "0.253521"}], "}"}], ",", " ",
* N q6 p( v' E. i" ]* B RowBox[{"{", 2 P* h8 x2 X9 b' V
RowBox[{
6 \; ~( {; ]( o* q' O "0.608696", ",", "0.633742", ",", "0.322697", ",", "0.068597", ",",
% t% Z4 T J% ~, e/ I, r7 u "0.328671", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
& |9 M. s0 m: P/ A' B' m+ X "0.287042", ",", "0.290931", ",", "0.281690"}], "}"}], ",", " ",
1 Q% \* o' g3 R' n7 ^, _. C( ~4 j RowBox[{"{",
2 u: g& ^9 U& W+ s' G6 k: W RowBox[{% \$ G) f* A+ }/ f- E1 X7 w% H
"0.478261", ",", "0.539023", ",", "0.412108", ",", "0.107566", ",",
% n2 B p! q! Q2 G "0.237762", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
- l2 r4 a P1 C H "0.000000", ",", "0.380742", ",", "0.507042"}], "}"}], ",", " ",
& _; a) U0 Q5 T' ], V9 A# r RowBox[{"{", & U4 N4 @# @& Q& f+ l
RowBox[{6 D" U. J) l' W
"0.608696", ",", "0.551859", ",", "0.176821", ",", "0.076332", ",", . ~, d+ W) v' P) i% Y
"0.265734", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
6 P+ o' [2 i/ w1 m) [ "0.000000", ",", "0.429034", ",", "0.239437"}], "}"}], ",", " ", 4 c, P- c% q* t Z9 ]+ ?4 W
RowBox[{"{",
; [1 D& A) k$ v) S6 d# p RowBox[{2 ?4 U" z7 j1 M
"0.652174", ",", "0.551859", ",", "0.033549", ",", "0.018459", ",",
: k1 m2 y( Q [ "0.573427", ",", "0.000000", ",", "0.553659", ",", "0.000000", ",",
8 J" X; [- n& e# V" A( r* q "0.404890", ",", "0.193168", ",", "0.394366"}], "}"}], ",", " ",
+ {2 C* i* n8 R/ \1 }- r/ k RowBox[{"{", $ F, p4 l2 u8 S* x/ Q6 u( a, |8 k/ x
RowBox[{' ?! G" W3 n) B" N% `
"0.695652", ",", "0.595382", ",", "0.277493", ",", "0.100326", ",", $ c' V% |- |/ q1 t* N& r# y
"0.286713", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
1 x: `. P: n3 j% Q( @, w. V "0.000000", ",", "0.448763", ",", "0.338028"}], "}"}], ",", " ", , B5 X% w) ]4 j+ C* @
RowBox[{"{",
% X# e$ C( F: r8 B- {) l RowBox[{
, M6 n+ M. I! i a/ b3 o: }0 V "0.565217", ",", "0.559531", ",", "0.422669", ",", "0.078111", ",",
- s I8 d- q# P5 c- ?5 v "0.286713", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 9 N# }$ T4 p1 k# e0 c+ A$ E- q( W
"0.000000", ",", "0.442285", ",", "0.394366"}], "}"}], ",", " ",
\1 P( p; r* J% F; K RowBox[{"{",
* D* d% O! m' M6 u RowBox[{
3 @: ~0 h9 P- F; U* |7 d7 V+ R: O "0.586957", ",", "0.398126", ",", "0.140619", ",", "0.069116", ",",
& w9 O* G0 n, c( @7 e D2 K "0.461538", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
1 Q* ^/ U9 a. v6 t1 J! ]& D "0.000000", ",", "0.575383", ",", "0.154930"}], "}"}], ",", " ", : \# l U5 ] C# A3 s, C \+ f
RowBox[{"{", 4 J& H- D) a2 K# I
RowBox[{ ^4 b1 v9 v0 k6 N$ ~- A2 z; R7 N
"0.695652", ",", "0.398126", ",", "0.019829", ",", "0.041366", ",",
. F* c% z% G: i. G: f "0.552448", ",", "0.244160", ",", "0.000000", ",", "0.000000", ",", * c( t& o7 L6 G" z- E
"0.000000", ",", "0.515607", ",", "0.591549"}], "}"}], ",", " ", 4 q9 J/ w: p ` B
RowBox[{"{", 4 K) z& W$ q+ _2 ?; o
RowBox[{
+ e2 ?4 G: L) t4 h' ~4 B$ b$ ?# o) V "0.695652", ",", "0.700354", ",", "0.422467", ",", "0.068128", ",",
$ `/ ?; G& c9 p8 D4 B "0.209790", ",", "0.000000", ",", "0.000000", ",", "0.500504", ",",
7 P* i9 a U% ]) ^ "0.000000", ",", "0.057715", ",", "0.408451"}], "}"}], ",", " ", - z+ k( t% Z4 S# J) h( e$ I
RowBox[{"{",
) S8 p& v8 [* H RowBox[{
* u& j: ^0 H% T1 e3 x9 w1 o" ^ c "0.521739", ",", "0.193125", ",", "0.210582", ",", "0.110433", ",", 5 z: P+ G; b" @0 r& P
"0.447552", ",", "0.382065", ",", "0.413008", ",", "0.498489", ",",
1 N3 U7 H0 ~! F& D( N% { "0.000000", ",", "0.174617", ",", "0.295775"}], "}"}], ",", " ",
0 Y% z( @" ^9 [8 G5 y- @ RowBox[{"{", 7 p( C2 S6 h+ M
RowBox[{1 d6 E6 u# s |& O
"0.347826", ",", "0.063588", ",", "0.830527", ",", "1.000000", ",", $ N5 _# f4 a, v" ~9 {' @
"0.111888", ",", "0.000000", ",", "0.410569", ",", "0.000000", ",", 0 D! H' O: z4 }7 X8 I
"0.000000", ",", "0.667550", ",", "0.661972"}], "}"}], ",", " ",
( x3 O0 L4 E8 y3 G+ l2 ?, l+ U' k& b RowBox[{"{", 0 R- R- V1 P$ a N; A
RowBox[{
: S% _* R6 w3 }0 Z; C "0.521739", ",", "0.188109", ",", "1.000000", ",", "0.785485", ",",
, @9 ^9 J8 ?" {8 o' u "0.342657", ",", "0.373775", ",", "0.406504", ",", "1.000000", ",", ( [# m. o* Y5 c5 e, ]" Q$ U6 [
"0.000000", ",", "0.371025", ",", "0.774648"}], "}"}], ",", " ",
1 l6 L6 M5 d* g; f RowBox[{"{", 0 A! E6 g( y; L' C! r0 z7 D
RowBox[{
+ G! k4 ~, H; N% `7 G; b "0.695652", ",", "0.188404", ",", "0.088836", ",", "0.059504", ",", " o" E5 {! t$ u# o9 a9 ^1 G E7 f
"0.706294", ",", "0.376790", ",", "0.000000", ",", "0.000000", ",", 5 J2 q( ?5 I. q; B/ h8 ]. ?* Q
"0.000000", ",", "0.570966", ",", "0.746479"}], "}"}], ",", " ", + d3 G1 l2 A3 e, U% M- g4 G
RowBox[{"{",
. y! ~; g: h. U/ `" C }4 O4 S+ B RowBox[{+ n# |) K5 z" H& v' t" ]9 Y, m1 B5 Q
"0.695652", ",", "0.057465", ",", "0.316316", ",", "0.151280", ",",
% m0 {4 n( D0 L( h$ q "0.615385", ",", "0.371515", ",", "0.412195", ",", "0.500504", ",",
3 E# y% P0 L) `3 L2 P) N6 P1 m "0.000000", ",", "0.468198", ",", "0.887324"}], "}"}], ",", " ", ) @6 M( w1 e1 K8 l
RowBox[{"{",
: m- Q! g V: G5 C RowBox[{
& V }& \# l$ f. z ?# [ "0.608696", ",", "0.011360", ",", "0.295586", ",", "0.113892", ",", & s( F7 p, E* j6 f# S, E
"0.580420", ",", "0.746044", ",", "0.405691", ",", "0.501511", ",", ) k8 s4 n# `7 x" f, F
"0.000000", ",", "0.414016", ",", "0.845070"}], "}"}], ",", " ", 0 C4 d6 M: y6 V& F* G$ G+ M) C K
RowBox[{"{",
8 ~! ~0 t" l8 h& x$ A! [ RowBox[{, w4 m. o; m% ?. W
"0.608696", ",", "0.364783", ",", "0.130582", ",", "0.020214", ",", 0 X2 E9 a v, h" Y: E( n
"0.356643", ",", "0.379804", ",", "0.000000", ",", "0.000000", ",", 0 \' e2 t3 @# D4 w) M6 L
"0.000000", ",", "0.186690", ",", "0.704225"}], "}"}], ",", " ", % y, y& c5 S% d4 M# y8 \9 q
RowBox[{"{", 5 G" z K: n5 k0 s+ z, y5 R4 ~2 _
RowBox[{: h. u' t+ D0 W1 x g# A1 D* ~0 m9 g
"0.608696", ",", "0.193199", ",", "0.112690", ",", "0.036152", ",",
, m0 r: @3 B( g: [2 Q7 E0 a "0.636364", ",", "0.382065", ",", "0.409756", ",", "0.495468", ",", 2 H* X% A, z7 u" r' ]( M' Y5 T( k
"0.000000", ",", "0.442874", ",", "0.760563"}], "}"}], ",", " ",
" X8 E( X( P: `8 y RowBox[{"{", ( {% Z6 c) ]( c: |
RowBox[{7 y' A4 }2 N4 D; B, T! m! P+ {
"0.739130", ",", "0.328932", ",", "0.246779", ",", "0.126520", ",", # y5 T: e% y1 I% ^
"0.454545", ",", "0.000000", ",", "0.495122", ",", "0.000000", ",",
0 @/ U, f2 M9 \6 z8 Y "0.414181", ",", "0.686690", ",", "0.436620"}], "}"}], ",", " ", ; ]" x2 Y w" w& W0 D; T* c% S- t8 z
RowBox[{"{", 6 \& e1 i/ \0 B6 w! S
RowBox[{
. G L o' o2 g6 w, i "0.739130", ",", "0.341767", ",", "0.362090", ",", "0.183528", ",",
; J+ u: D/ n' n/ k "0.573427", ",", "0.413715", ",", "0.454472", ",", "0.661631", ",", 5 C& Z+ m' l ]0 [) U4 _
"0.000000", ",", "0.244111", ",", "0.633803"}], "}"}], ",", " ",
) D+ [8 s& `' g1 W8 N/ k RowBox[{"{", & t8 {% l. w9 z5 x; k0 u9 p: J" n
RowBox[{# y) \9 z! w6 V, |& f
"0.695652", ",", "0.187076", ",", "0.279724", ",", "0.006252", ",", ! V% m, s7 k" p0 X9 ~, W" ?
"0.405594", ",", "0.418237", ",", "0.544715", ",", "0.000000", ",", ) K* W( o5 @* B( f Y
"0.000000", ",", "1.000000", ",", "0.422535"}], "}"}], ",", " ",
/ N# L- K9 p& ~" T$ I) v RowBox[{"{", ; b" r3 f f) Z% c' b
RowBox[{! W1 x9 j5 _7 Q7 S, x; m
"1.000000", ",", "0.333948", ",", "0.064750", ",", "0.065855", ",", 6 R3 a# l% J) Y8 e* X
"0.342657", ",", "0.000000", ",", "0.408130", ",", "0.000000", ",", + E7 ]) E A. J% ?- f3 n
"0.000000", ",", "0.957892", ",", "0.295775"}], "}"}], ",", " ",
+ N+ l8 C/ z; U/ t; j V RowBox[{"{", . K% @' l( e1 S. g$ m
RowBox[{
3 I: O) y: F2 k( s "0.739130", ",", "0.305400", ",", "0.374567", ",", "0.132870", ",",
- ~1 C# P1 `) f "0.258741", ",", "0.834966", ",", "0.000000", ",", "0.000000", ",", ; [6 {2 R8 D7 Q3 [8 M7 ^; l9 `( F
"0.272861", ",", "0.266784", ",", "0.309859"}], "}"}], ",", " ", " ?6 T8 }1 t6 H
RowBox[{"{", " q3 Z# {. V- W& p
RowBox[{
; X+ h1 l3 M& W0 E- B) e6 m. r! V "0.826087", ",", "0.151962", ",", "0.360280", ",", "0.221632", ",",
6 k) U, o+ [& m6 }4 Q7 T5 ^0 x "0.447552", ",", "0.584778", ",", "0.457724", ",", "0.000000", ",",
- H4 s1 J9 w' w3 E "0.000000", ",", "0.826855", ",", "0.408451"}], "}"}], ",", " ", \1 R T$ a7 ]* d
RowBox[{"{",
) f/ O3 w- y' z) K2 q8 _+ i2 H RowBox[{
/ t/ M, U9 h& t3 ?1 p7 Z& c/ ` "0.565217", ",", "0.047212", ",", "0.233154", ",", "0.121528", ",", 0 `3 `+ k* v+ n# R0 J% i0 v
"0.314685", ",", "0.417483", ",", "0.546341", ",", "0.000000", ",",
3 ]& c) n# }& G% w) r "0.669438", ",", "0.341873", ",", "0.197183"}], "}"}], ",", " ", # Z2 B( f0 `1 A T* ?5 X
RowBox[{"{",
, U( r8 ]0 Y& f% {3 T. L% A2 G- M RowBox[{+ W! j0 ?% c* i5 Q6 ~8 f, Z+ R9 V4 _
"0.826087", ",", "0.034376", ",", "0.690349", ",", "0.512380", ",", * g }6 d+ a, f
"0.685315", ",", "1.000000", ",", "1.000000", ",", "0.000000", ",",
% L8 f* f% l" X: e. K) n "0.556479", ",", "0.412544", ",", "0.732394"}], "}"}], ",", " ",
8 O- ~+ s% A8 _# P3 Y RowBox[{"{",
. I& `$ B6 U: t RowBox[{
, r; E% w$ }0 h+ `, \- `/ p; v "0.652174", ",", "0.000000", ",", "0.374417", ",", "0.188075", ",",
& n1 {3 N& R) S( \4 x "0.706294", ",", "0.498116", ",", "0.729268", ",", "0.000000", ",", $ \7 W7 w' K+ R1 u: s5 F
"0.454279", ",", "0.322144", ",", "0.802817"}], "}"}], ",", " ", 0 A9 e2 l6 E* W/ r; A4 `
RowBox[{"{", & h" @9 u; g7 `, g- c* `, c/ {
RowBox[{# I8 m; D8 n8 G* |$ N0 z; w) O' `' f
"0.782609", ",", "0.180363", ",", "0.237142", ",", "0.054809", ",", / x4 P% Z6 C: \9 {
"0.629371", ",", "0.373775", ",", "0.247967", ",", "0.000000", ",", - Q- C1 [# e- F: g
"0.163814", ",", "0.370436", ",", "0.746479"}], "}"}], ",", " ", 5 N7 j. |! V( }: U7 Z9 b+ i
RowBox[{"{",
" }% U/ }) }% L9 U* e x RowBox[{; Q8 f- a: @' o/ e* y A
"0.608696", ",", "0.169150", ",", "0.368148", ",", "0.393768", ",", ' W g3 L. W+ a2 X* P3 G
"0.440559", ",", "0.995479", ",", "0.545528", ",", "0.000000", ",", 8 U: m3 J2 B9 ^' c. f0 r
"0.565770", ",", "0.333039", ",", "0.380282"}], "}"}], ",", " ", + ~. H* H7 [+ ~) H
RowBox[{"{", , Q0 B c! b. b
RowBox[{+ g! m' J$ [5 ?7 G0 J b) D7 |% Q
"0.695652", ",", "0.390454", ",", "0.186683", ",", "0.039439", ",",
z7 a, d3 o9 e8 W! w+ ^. b "0.482517", ",", "0.497362", ",", "0.415447", ",", "0.508560", ",",
2 u5 X$ e. ]' \6 w9 h( ]. a "0.000000", ",", "0.390754", ",", "0.563380"}], "}"}], ",", " ",
0 {$ w: {: ~4 y3 E. P1 y RowBox[{"{", , W0 S& Y) t7 s; m( {6 [
RowBox[{% l# a/ i% o0 J1 r3 g. i
"0.739130", ",", "0.428888", ",", "0.082728", ",", "0.070154", ",", ( @$ e/ m6 i9 D/ U9 h6 w2 C
"0.279720", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", # t3 Z9 ^" |- N# N n
"0.000000", ",", "0.694935", ",", "0.323944"}], "}"}]}], # P7 n% R0 g( q: X4 X! x4 j
"}"}]}]], "Input",' C) e) Q1 Q% J$ \4 f
CellChangeTimes->{3.5779587825701036`*^9}],) K2 L0 o- _. U- a) V8 P4 y1 R9 ]
6 g, v7 [8 g' i' V' s: b
Cell[BoxData[- t( b( D2 ^9 l6 B2 y
RowBox[{"{", 7 X/ Y; I, _+ l" Q6 }1 H' N
RowBox[{# ?1 p7 |' N0 b" H" }, x
RowBox[{"{", ' A# w6 e, [( M) f W
RowBox[{
! S- C y2 S# k7 Y5 @ "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", 4 n2 @) F+ E2 K' S% g# J4 z
"0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
1 v9 Z- C( U: e" h' j3 e "0.`", ",", "0.277091`", ",", "0.873239`"}], "}"}], ",",
! G1 I2 t9 \' m5 ?& M RowBox[{"{",
- ]1 `! y( S3 `4 j3 l" g RowBox[{
/ r- {- R+ H# e) {/ _' L8 d/ n "0.565217`", ",", "0.346857`", ",", "0.393585`", ",", "0.118785`", ",", 3 v( v* y# z3 Q
"0.34965`", ",", "0.370761`", ",", "0.413008`", ",", "0.502518`", ",",
- M: I1 q1 |+ m6 ^7 H, Z "0.`", ",", "0.220259`", ",", "0.464789`"}], "}"}], ",",
, C" B2 ^. }8 P2 A" p) w RowBox[{"{",
& T- v) C* G4 j RowBox[{5 O* W( b" s7 r. H' O
"0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
z4 @9 Y$ x% y "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`", ( F; k7 q% A$ n+ {2 b5 `- }
",", "0.899882`", ",", "0.492958`"}], "}"}], ",",
+ P' S$ z1 p" e0 r0 u# S RowBox[{"{", $ ?) `2 D) g$ J! N8 c
RowBox[{5 T! m8 I4 N" o# r# X
"0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",", 2 Y" K8 C& m. _8 o
"0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`",
0 u0 G4 N1 u* ]3 T- b4 z C ",", "0.265607`", ",", "0.774648`"}], "}"}], ",",
+ a/ t! \( }, K. p) q RowBox[{"{", / V$ L0 X) }3 B2 z! t: w2 c
RowBox[{
/ X+ ?0 j0 p0 z. }, z "0.565217`", ",", "0.346931`", ",", "0.218229`", ",", "0.043639`", ",",
# k4 Y+ h: `3 G }# ?- p "0.503497`", ",", "0.761115`", ",", "0.415447`", ",", "0.503525`", ",",
) H q! t/ `5 J% u "0.`", ",", "0.642226`", ",", "0.380282`"}], "}"}], ",",
; x0 G5 z5 \; I0 R RowBox[{"{", O% P, s. x- c J6 y
RowBox[{
* t( |8 T# p3 ?) H "0.478261`", ",", "0.293154`", ",", "0.259368`", ",", "0.026688`", ",",
" t( `1 O' K/ r+ k "0.587413`", ",", "0.75584`", ",", "0.409756`", ",", "0.498489`", ",", $ K3 s6 [$ T" T1 i9 ]
"0.`", ",", "0.306243`", ",", "0.647887`"}], "}"}], ",",
( G6 S# d7 r5 b3 F RowBox[{"{", 9 L. `) u* ]$ p% ^7 S
RowBox[{
9 D, o! K B% P4 K5 j "0.347826`", ",", "0.359693`", ",", "0.614393`", ",", "0.081521`", ",", % Y# o6 w. Y: ]" a
"0.258741`", ",", "0.367747`", ",", "0.410569`", ",", "0.499496`", ",",
! F* R8 S l( U+ ~ "0.`", ",", "0.186985`", ",", "0.56338`"}], "}"}], ",", 8 l5 ^0 D. P B6 h. `" _
RowBox[{"{",
8 B; {5 I% E1 j! b _! |0 D RowBox[{
, q- b6 c6 o7 _; d5 W9 Z& R "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
: D) ^; Z3 u, ^* g1 L8 x* m0 M "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`", 0 h0 v: G/ B" G" O% L+ ?
",", "0.175501`", ",", "0.295775`"}], "}"}], ",", " e7 L2 I( e/ D7 S. m$ t1 r9 P0 @. b
RowBox[{"{", / ?4 H- S/ B3 V, Z
RowBox[{8 a4 m6 ~2 M2 B. ^6 C
"0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
6 k. D. C) H7 X( I' N7 N "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`", . d7 {; ?8 C5 {% @5 B2 J n
",", "0.147821`", ",", "0.338028`"}], "}"}], ",",
9 o, r0 X+ S& H3 e7 J* q6 Q6 a RowBox[{"{",
6 e3 {% ~; }3 f& l RowBox[{# z& Q& f- j; k i8 k
"0.565217`", ",", "0.697772`", ",", "0.171587`", ",", "0.028566`", ",",
+ d5 n7 K7 Y# k! b( N- |/ J% E) ?- g "0.363636`", ",", "0.449887`", ",", "0.40813`", ",", "0.`", ",", "0.`", 6 R; v0 Y6 N; ]: ~
",", "0.352768`", ",", "0.211268`"}], "}"}], ",", * p3 t% z# H: w* m: X
RowBox[{"{", ) z6 d9 b* l/ L! J' d; \
RowBox[{7 d9 v$ ^* b% Q: {& V3 _
"0.282609`", ",", "0.660888`", ",", "0.460064`", ",", "0.110334`", ",",
$ N$ X1 U Q* f& D) |- @ "0.475524`", ",", "0.`", ",", "0.545528`", ",", "0.`", ",", "0.5511`", " m, n* ]% P+ i
",", "0.23881`", ",", "0.690141`"}], "}"}], ",", 0 m+ n9 F& Y; G. j, M
RowBox[{"{",
0 |0 f4 Q( p6 A RowBox[{
1 ]# `/ F4 J# o( [5 Z2 S w "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
( l# n& x. M/ k3 S4 y! T( d "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
5 j' N9 G9 q$ J! e4 p "0.494866`", ",", "0.095701`", ",", "0.43662`"}], "}"}], ",",
, w. i1 Y: [2 J% h& c" D RowBox[{"{",
4 h) m) t& K& h* S1 Y6 A+ T6 Y RowBox[{
& A! G, u8 V' a$ G) R: j7 x "0.347826`", ",", "0.697772`", ",", "0.108288`", ",", "0.022413`", ",", M# r9 j, e" n, ?$ P
"0.356643`", ",", "0.247928`", ",", "0.90813`", ",", "0.`", ",", 5 g/ x' ?! B* l
"0.383374`", ",", "0.162839`", ",", "0.`"}], "}"}], ",", 8 g1 J- w* P5 G3 i G# I3 V
RowBox[{"{", , }4 P3 g5 w5 b9 r2 b2 z
RowBox[{
% ?. j4 B/ F8 ~; k; y. H- q: A8 N "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",", : K7 j3 Q% f& c* P4 r2 D
"0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`",
, m% w* B0 v4 @' h8 n; v G ",", "0.335395`", ",", "0.267606`"}], "}"}], ",",
0 Y/ V- U9 |) j/ u0 v RowBox[{"{",
* s4 {. S( K2 U' x' _/ c1 G7 U RowBox[{ F6 B" m$ I- G6 c( _- j" W
"0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
* B8 \" D/ _# g% D. A "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`", ",", ( ?) T! h# N7 M% ]8 m* ]
"0.160483`", ",", "0.211268`"}], "}"}], ",",
. g+ b q+ U1 t; p* G+ C. d RowBox[{"{", ( }* P9 G, D! ?5 ~
RowBox[{0 Y/ E/ s: D# b/ G! P' @0 [, c
"0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
4 a1 o" v( o% A# G9 B, e) ?! I "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`", 8 i& l& y K1 u1 y8 |( M+ @2 F1 i
",", "0.398115`", ",", "0.408451`"}], "}"}], ",", 8 Q2 X; r' t7 o
RowBox[{"{", $ Y1 f# p5 s& X
RowBox[{
5 L$ M6 L$ N6 C3 x) N! h" Y "0.608696`", ",", "0.425199`", ",", "0.012979`", ",", "0.`", ",", . W/ W: A, Y2 V- `* n$ O
"0.482517`", ",", "0.50942`", ",", "0.406504`", ",", "0.`", ",", "0.`",
P0 m8 M5 f Q7 B ",", "0.157833`", ",", "0.478873`"}], "}"}], ",", 8 w; b# H1 G# L0 f
RowBox[{"{",
1 p$ }! F9 m2 _+ q8 Q RowBox[{
8 a6 A5 t, M, j. v, i "0.608696`", ",", "0.577973`", ",", "0.213587`", ",", "0.030889`", ",", + F9 A% U: y! h! U5 z
"0.370629`", ",", "0.`", ",", "0.452846`", ",", "0.`", ",", "0.`", ",",
c6 O( v0 _' j3 z "0.315665`", ",", "0.380282`"}], "}"}], ",", K3 h% l4 {: A+ S p
RowBox[{"{", ' C0 C" {- a( O
RowBox[{
2 T+ C! I9 y# H$ A: E- | "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
/ o: Y2 A; r9 P+ u- \, J "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.492344`",
% k* C) s1 K) `$ b ",", "0.211268`"}], "}"}], ",", 1 S! H4 a. {. h% K1 b! v7 T7 W# g
RowBox[{"{", / T9 J g5 u. i3 S% ]4 U8 ]4 ~
RowBox[{/ q( {8 R% \; a4 G, m8 r+ n1 p" D
"0.130435`", ",", "0.562039`", ",", "0.331662`", ",", "0.032643`", ",", . n5 A- N3 W5 L" q2 c1 n6 S
"0.314685`", ",", "0.414469`", ",", "0.27561`", ",", "0.`", ",", "0.`", ! _3 ]4 i- \ j! {8 v% e
",", "0.638398`", ",", "0.43662`"}], "}"}], ",", 6 _; b" q% I. z0 ]$ s3 f
RowBox[{"{",
: o; x9 C3 q o6 K9 g/ @ L RowBox[{
8 x2 B" q. C$ u2 U' d6 r "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",", 1 J! b. j4 f k
"0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 0 i/ ~, g. ^& [
"0.392521`", ",", "0.478873`"}], "}"}], ",",
) V; _! |+ `& l0 x$ H% b RowBox[{"{", + R: k" p6 ?5 @6 n0 Z6 d
RowBox[{
, M' J1 J6 x0 q. w' E" L' l. o "0.608696`", ",", "0.769475`", ",", "0.289283`", ",", "0.022882`", ",",
- V& |0 X: I) `7 M0 Y ^& V8 w "0.321678`", ",", "0.`", ",", "0.274797`", ",", "0.333333`", ",", "0.`",
# \/ a4 k# Z# k" Y M ",", "0.362191`", ",", "0.295775`"}], "}"}], ",",
6 v: W' y5 R% [% y" r RowBox[{"{", 2 l2 N9 k& U) n# ^1 H. n1 m
RowBox[{& W W) Q' j! C* m: Q) Z' l
"0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",", 4 A# u7 y. V F
"0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`", ",", " y2 c$ C c2 ?# f
"0.114252`", ",", "0.028169`"}], "}"}], ",",
& h1 Z; D; @) {: T' C! t3 F+ ] RowBox[{"{", " {, a/ H3 r( [: c1 X4 U8 s7 ]; t
RowBox[{
`' j/ l' t2 E0 c "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",", & I+ [6 ]6 l0 z% X3 L& n$ r6 J: A
"0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`", ",", 0 b3 j. u# z8 L( _- U
"0.401355`", ",", "0.43662`"}], "}"}], ",",
2 ]4 U8 u7 t" G4 e6 l% Z, n t RowBox[{"{",
+ a9 }5 s9 i7 P( f2 [! i t RowBox[{
9 m, q5 j! d6 L- \ "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",
3 x0 g$ R9 f3 b2 }) b, V) X "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
2 J6 R1 V0 `8 a+ v "0.827444`", ",", "0.394366`"}], "}"}], ",", ! ~( p6 J/ H2 ~7 L2 L! x/ y
RowBox[{"{", ' V- H/ \0 L( L3 u* ?
RowBox[{
7 e4 X M5 F h "1.`", ",", "0.199248`", ",", "0.295044`", ",", "0.041613`", ",", * e1 @: ]3 c0 d% x5 b @$ P
"0.20979`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 4 o& q, W. @3 p% o7 P" |
"0.676973`", ",", "0.295775`"}], "}"}], ",", + n) Y) I! _/ `2 B
RowBox[{"{", ! m( Q' _2 H5 d3 U D" X1 h$ l
RowBox[{
+ r: Y! Y" G' Q1 e6 y "0.869565`", ",", "0.180363`", ",", "0.243056`", ",", "0.098349`", ",", / [9 {* K( |! Z5 h+ O
"0.265734`", ",", "0.503391`", ",", "0.`", ",", "0.`", ",", "0.`", ",", % @/ {: ~# v! `& L) T4 l
"0.331272`", ",", "0.830986`"}], "}"}], ",",
4 Z. a" H5 p, [2 @% G, o RowBox[{"{",
5 H$ h& s- [* h. Y4 o7 ~* n RowBox[{
4 J2 v& n% J) u9 C' l* w- p! e "0.695652`", ",", "0.551785`", ",", "0.326201`", ",", "0.253608`", ",", ! _) z* U7 o% V- u
"0.195804`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
' Z+ H" I1 @' _1 V0 f1 Q "0.845701`", ",", "0.169014`"}], "}"}], ",", 1 d7 d, Z, S. A6 G9 O
RowBox[{"{", / [$ y* K- ?$ g/ \* D$ ^
RowBox[{3 ~* N [; C% ?5 ~0 I6 _, w
"0.652174`", ",", "0.572293`", ",", "0.111511`", ",", "0.035584`", ",",
% f# N. r8 c. O* L "0.405594`", ",", "0.249435`", ",", "0.544715`", ",", "0.`", ",", "0.`", 3 h/ j* M- Q9 f7 U5 g
",", "0.287102`", ",", "0.366197`"}], "}"}], ",", 0 I9 h& j9 a: i2 ?3 U0 `) ~
RowBox[{"{",
' A9 n! d0 p/ l1 l! }1 W6 D( Z RowBox[{
2 l5 z- V [. s$ _/ R "0.652174`", ",", "0.562039`", ",", "0.336155`", ",", "0.014604`", ",",
3 H8 ~$ _0 n$ }9 ^0 F4 i "0.174825`", ",", "0.24416`", ",", "0.`", ",", "0.`", ",", "0.`", ",", * s0 l) N. o" g, B( L
"0.`", ",", "0.309859`"}], "}"}], ",",
. {* S$ ]- D, K1 d* ]& S* l$ _ RowBox[{"{",
2 @9 U1 A6 ^' e% G! Q RowBox[{
- T% w$ H: O/ G. s1 n: N7 q9 a1 z "0.565217`", ",", "0.577383`", ",", "0.15587`", ",", "0.030963`", ",",
{) K; S; Z9 {! k$ z# J" o6 W# m( o+ q "0.258741`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
0 U5 z& e# _. e& Q% J "0.050059`", ",", "0.352113`"}], "}"}], ",", g, J1 b, L" ?6 m3 N; w% Z
RowBox[{"{",
3 B! Q9 z& x2 l B" `* v' r RowBox[{
' R" \3 m. G" X* o3 V+ w "0.565217`", ",", "0.613234`", ",", "0.232956`", ",", "0.05387`", ",",
. |/ {- n0 ]1 X( g% S3 H' P! j8 d3 i "0.230769`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
: G& k% v! L" Q6 X9 v& R# v- g "0.254122`", ",", "0.309859`"}], "}"}], ",",
# Q, W( z4 m3 n& b' Z1 \- W4 D; Z RowBox[{"{", $ L9 t+ t! I8 z. o( s* l$ N
RowBox[{
, K3 a' N' M6 i "0.565217`", ",", "0.559531`", ",", "0.493262`", ",", "0.046209`", ",", ! I& J4 K4 V$ V+ M: g- X2 N
"0.293706`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 0 A7 r. V2 U8 r) M3 \6 H# r( H: J
"0.086867`", ",", "0.774648`"}], "}"}], ",",
+ P u+ V$ l: h: r) m RowBox[{"{", - b+ V( D# @& e* X
RowBox[{
, i" N4 S0 I, O% K! Q9 F "0.608696`", ",", "0.569711`", ",", "0.111932`", ",", "0.013542`", ",", , B* E7 g1 e$ c" Y7 K. |/ y+ z
"0.335664`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.168704`", ",", 1 y& j/ P/ z( `9 w
"0.659894`", ",", "0.422535`"}], "}"}], ",",
/ v9 d( k \; I+ D RowBox[{"{",
D4 c& a; z* B) q RowBox[{* s; X1 e3 A3 a; ]" z1 o" u
"0.608696`", ",", "0.564547`", ",", "0.329844`", ",", "0.202036`", ",", ; L+ T& B& j% O& g1 A! i: s7 f
"0.51049`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", & r1 }/ h N i1 H
"0.317138`", ",", "0.887324`"}], "}"}], ",",
9 G" l% B) ~+ e# @6 v RowBox[{"{", 9 H \/ H1 V! a3 {, V8 ~
RowBox[{8 m3 h- H/ o1 T9 E
"0.521739`", ",", "0.546695`", ",", "0.165788`", ",", "0.029431`", ",", 7 n7 C, F+ F& ~2 Y4 Z! j
"0.51049`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
, Y" b1 e; C7 ^3 [- J: n5 } "0.605124`", ",", "0.887324`"}], "}"}], ",",
4 ]( l! G1 Y, C% z7 M7 \$ U$ t RowBox[{"{", 0 P2 G, t. i0 }' y. f1 B
RowBox[{! X j: c1 v1 o n! |9 u
"0.521739`", ",", "0.564178`", ",", "0.400518`", ",", "0.045023`", ",", ( K: G9 G0 S. u& b
"0.615385`", ",", "0.3685`", ",", "0.660163`", ",", "0.301108`", ",",
! W2 u- ?% \9 R "0.`", ",", "0.32126`", ",", "0.859155`"}], "}"}], ",",
7 X# [5 v' M* w& S6 M RowBox[{"{",
! b1 z2 i% K4 U f RowBox[{
1 G1 T8 N; O. q' e "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
; x9 X) m, i$ U; Q" v "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`",
* x* S6 z1 I6 q3 r. Y, A! o ",", "0.595406`", ",", "0.239437`"}], "}"}], ",", / m3 s* O5 N) \7 c2 Q: D
RowBox[{"{", ! B5 {( n& c1 M; G
RowBox[{
; q7 i5 q, X6 Y# O% u5 O; `, r* H "0.652174`", ",", "0.549277`", ",", "0.257578`", ",", "0.058688`", ",",
3 V& h( R% L: \8 ?" [ "0.356643`", ",", "0.`", ",", "0.817886`", ",", "0.`", ",", "0.`", ",",
b& d# ~1 [6 X* Q9 @8 z "0.555359`", ",", "0.295775`"}], "}"}], ",",
& |+ @; z# c8 }; ?+ y+ v5 k5 y RowBox[{"{",
0 ^& f1 I" B! T3 x4 m RowBox[{
2 r* }9 s- I0 N "0.695652`", ",", "0.549277`", ",", "0.572308`", ",", "0.082411`", ",", * E0 t v$ W" ]$ N$ A6 F& K, `3 j
"0.461538`", ",", "0.528259`", ",", "0.819512`", ",", "0.`", ",", "0.`", + S+ q+ |0 f* f; W1 g. |! d# G
",", "0.333333`", ",", "0.746479`"}], "}"}], ",",
9 f6 |. \5 w- e6 R4 B5 f9 t RowBox[{"{", , H: W7 a* K% P' P/ N. C& O
RowBox[{
. f+ Y3 Q8 c% R "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
' z3 N# [: j4 x; m7 q) L" @6 q$ y$ E "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`", ' V8 m1 T: U8 Q$ I u; A
",", "0.149588`", ",", "1.`"}], "}"}], ",",
1 ~$ x! f" n: k( ^! ]0 r RowBox[{"{", 3 Z4 t8 ?* z) ?' l" ~4 h8 R% r
RowBox[{6 |7 t! j. Q0 p5 J
"0.282609`", ",", "0.531278`", ",", "0.321428`", ",", "0.228625`", ",", - r. N7 B9 D$ ^7 i u4 R W; J
"0.594406`", ",", "0.53052`", ",", "0.410569`", ",", "0.`", ",",
, {; M8 i. m& G& i; H& I9 k "0.757457`", ",", "0.493522`", ",", "0.549296`"}], "}"}], ",",
5 E- g5 C* L. t9 K RowBox[{"{",
$ `! H9 z1 i; U& L0 e0 b$ Q RowBox[{3 r, y' \& Q% u# M- O
"0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
6 K/ ^8 ~! ?- A7 F" L2 F% a1 P "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`", ",",
- i: C+ ~$ s# [( P "0.224676`", ",", "0.366197`"}], "}"}], ",", + ~1 F7 y' t2 a) d% Q
RowBox[{"{", ' O/ A/ Y+ h( w7 y( K" y
RowBox[{
, m4 X4 a! F: Y% U "0.391304`", ",", "0.705444`", ",", "0.045908`", ",", "0.07312`", ",",
* z* F+ h$ i5 J* y2 L" V "0.622378`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.496333`", ",", " N; e- }) D6 m- ?1 j
"0.410188`", ",", "0.549296`"}], "}"}], ",",
" U1 W5 U& ~! A6 b0 A1 Z1 h7 l9 O RowBox[{"{",
4 \% C/ ^8 ?- O& ]0 P RowBox[{5 O" R; z! B* Z- B [' F) c
"0.282609`", ",", "0.661921`", ",", "0.344992`", ",", "0.085178`", ",",
! I; u# D- P2 c3 ^, k "0.293706`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 9 E: w7 m! P- b: C) |# m# U; R8 @
"0.668139`", ",", "0.577465`"}], "}"}], ",", % p8 p3 G5 x5 R( N" O3 ?* l
RowBox[{"{",
1 y0 v$ r' l4 ], V5 i9 l$ ^ RowBox[{
; ~: u O) {, ? M# O$ W% E/ g "0.478261`", ",", "0.661921`", ",", "0.644209`", ",", "0.077296`", ",", . p; Z3 c( T0 m' o" g* L0 t1 l* m/ B" `
"0.412587`", ",", "0.`", ",", "0.413008`", ",", "0.502518`", ",", "0.`",
3 A! h+ @- h, H* h- e ",", "0.102179`", ",", "0.690141`"}], "}"}], ",", 6 h1 z: i$ n6 q" }' T [6 x& Y
RowBox[{"{", 7 |; y/ ?# T; E% m
RowBox[{
, X. _" D6 |" ?& x5 L9 e! R "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
% H; k6 Q* l3 K' Q9 c# |" f "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
+ w) \" z+ I1 Y- t' @& ]7 N2 G "0.380742`", ",", "0.71831`"}], "}"}], ",",
' j. v- e5 F2 |2 H RowBox[{"{",
( m' @" @ s9 Q/ ]& L RowBox[{
/ m" F/ Y- ?5 L; q "0.5`", ",", "0.984656`", ",", "0.288432`", ",", "0.047692`", ",", 7 h# q! t( y6 u
"0.27972`", ",", "0.`", ",", "0.821138`", ",", "0.510574`", ",", "0.`",
" _6 x# u+ l7 A9 Z( M4 O0 C ",", "0.319494`", ",", "0.521127`"}], "}"}], ",", 9 M1 A/ D1 f9 b' g- k; L
RowBox[{"{",
; \: z' \! \' K3 g RowBox[{
, K" T! `, G9 O2 R9 l "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",", , H$ |1 [8 T- L7 C
"0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`",
4 s) H' O) q0 N K& Q2 Z9 b; C ",", "0.031508`", ",", "0.929577`"}], "}"}], ",",
9 d m% {8 }& h, w RowBox[{"{",
- S) y/ j6 d9 x- z! A$ B8 o5 w+ |) F RowBox[{5 ^' }6 H5 X5 t5 L6 W
"0.73913`", ",", "0.774639`", ",", "0.17512`", ",", "0.036498`", ",",
* v2 \, B9 u# n$ D/ f8 j% E) G. ]6 E) E "0.391608`", ",", "0.739261`", ",", "0.408943`", ",", "0.553877`", ",", , A% s: q3 ?$ ?9 o* T
"0.`", ",", "0.292108`", ",", "0.521127`"}], "}"}], ",",
4 E' N' ?6 s8 `0 A* g7 ?0 O. Q RowBox[{"{", # f Z% k; ?: m) |6 u- [
RowBox[{6 z# E. @3 ]( V7 j ?& X' N8 t
"0.586957`", ",", "0.982074`", ",", "0.158462`", ",", "0.063902`", ",",
0 Q, a4 b# T9 w% W2 i; Y0 P9 M "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", % f2 {! j' E" u% A T9 J% q
"0.329505`", ",", "0.338028`"}], "}"}], ",", . i* h# c$ Y$ H( m6 s! \6 d; B
RowBox[{"{", 6 |" [5 Z: `* R! @
RowBox[{3 g6 P2 H% U$ a+ r/ i2 m F
"0.543478`", ",", "0.982074`", ",", "0.306872`", ",", "0.041934`", ",", . J+ p2 I' n" a" k1 L9 Z0 _; T
"0.426573`", ",", "0.380558`", ",", "0.414634`", ",", "0.506546`", ",",
" n, w- p/ S. ?" ] "0.`", ",", "0.337456`", ",", "0.380282`"}], "}"}], ",",
9 N1 [. q# W# k2 [ RowBox[{"{",
; S# T: |4 x) L3 Z/ b+ V RowBox[{
' q& t9 d( i4 V, h6 M "0.73913`", ",", "0.997418`", ",", "0.170143`", ",", "0.058268`", ",", " L, t6 M+ b' o. {% B& y
"0.538462`", ",", "0.248681`", ",", "0.`", ",", "0.339376`", ",", "0.`",
& _/ }* H) U6 [& y: W* Z ",", "0.766784`", ",", "0.676056`"}], "}"}], ",", ) Y' `. U: r& S$ [( A0 o8 J
RowBox[{"{", % W& b; \/ e/ X" }! _
RowBox[{1 n! I4 L2 P! ~8 X
"0.695652`", ",", "0.700428`", ",", "0.139361`", ",", "0.182169`", ",", 7 Q) q8 ^) A6 a4 q
"0.412587`", ",", "0.243406`", ",", "0.`", ",", "0.`", ",", "0.136919`",
+ V" B3 E7 q; G7 A1 [ ",", "0.676678`", ",", "0.591549`"}], "}"}], ",", $ }6 S9 Z# Z" v+ T1 r; H
RowBox[{"{", . @/ x+ S0 X5 x4 |
RowBox[{
4 I% @& G3 w# s "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
! U' ^7 s) Z7 u9 c |+ P "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`", ! m5 a" G' V, D
",", "0.541519`", ",", "0.464789`"}], "}"}], ",",
/ r/ ^) {- l6 z- b0 ]. \ RowBox[{"{",
( w# c8 l: v! F+ j RowBox[{# p+ \ N6 F g! w ^
"0.652174`", ",", "0.751623`", ",", "0.355593`", ",", "0.039883`", ",",
0 q! |3 K+ G N! e! g+ q+ s0 c; ` "0.195804`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 8 \ F& Y( p: U; u- @0 l
"0.064488`", ",", "0.295775`"}], "}"}], ",", 3 i. h$ V, q0 f- [9 M" a6 {( M" S
RowBox[{"{", , A @2 D3 {: K* Y; ^0 b
RowBox[{" O- w e! f) J6 a9 z2 a# r
"0.521739`", ",", "0.679847`", ",", "0.152375`", ",", "0.030048`", ",",
, q- c8 g& C' i "0.363636`", ",", "0.`", ",", "0.271545`", ",", "0.`", ",", "0.`", ",",
! u+ D, Y* Y# T$ P) v! P "0.463192`", ",", "0.380282`"}], "}"}], ",", - h9 a+ m6 j& ]4 n8 V9 R
RowBox[{"{",
" K; K# Y! J* k# g+ o" S RowBox[{
! V/ I3 [& I+ Z- ^8 ` "0.434783`", ",", "0.728533`", ",", "0.18683`", ",", "0.12951`", ",", , H' V1 A5 h7 z1 J* t3 x/ U2 H
"0.195804`", ",", "0.`", ",", "0.269919`", ",", "0.`", ",", "0.32665`", 4 B- o2 y( e5 s
",", "0.388398`", ",", "0.211268`"}], "}"}], ",", ) s8 [, w5 S$ C7 h
RowBox[{"{",
& Y o) I/ M0 V* I8 H' R RowBox[{
2 A G) h; c5 `9 N" k. ` "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
* x- z; m7 Y! m' ]6 P "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`", 1 `0 v; @- p+ N0 q9 v2 E
",", "0.262367`", ",", "0.253521`"}], "}"}], ",",
$ \! j. a) o$ A: K( D RowBox[{"{",
0 O O+ `$ P% g7 L9 ~: ~' q* t8 I$ X RowBox[{) N- h5 i$ m7 j$ s" A5 |* l# L
"0.608696`", ",", "0.633742`", ",", "0.322697`", ",", "0.068597`", ",",
. X8 a- r! e+ W+ S2 o "0.328671`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.287042`", ",",
Z5 f8 ?) X& {; M/ w+ L. |* D) D" s "0.290931`", ",", "0.28169`"}], "}"}], ",", x" `+ {$ j8 v) k+ I
RowBox[{"{",
) U: q$ G. X' N R: B+ b1 N5 _ RowBox[{
, C/ Q$ f# u# d! n "0.478261`", ",", "0.539023`", ",", "0.412108`", ",", "0.107566`", ",", % A0 G5 T6 R" u" n
"0.237762`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
2 g2 u3 K/ h1 [' {' m "0.380742`", ",", "0.507042`"}], "}"}], ",",
5 }) p4 k& r. ~+ D8 [( I+ ^ Z G RowBox[{"{", - R2 h0 I- x; e2 f K
RowBox[{! U6 s# Y) b* s
"0.608696`", ",", "0.551859`", ",", "0.176821`", ",", "0.076332`", ",", 6 x& a# G; q0 R
"0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", $ P, b% V w7 z) O+ ?
"0.429034`", ",", "0.239437`"}], "}"}], ",",
4 | {: p! v% s4 g+ z RowBox[{"{", ( Z- v+ v+ d; Q9 y. o5 y% j7 O- a
RowBox[{
- q+ \) k6 p9 Z; S+ {3 Z2 t0 w "0.652174`", ",", "0.551859`", ",", "0.033549`", ",", "0.018459`", ",",
5 L' q5 X1 n# o2 J& F "0.573427`", ",", "0.`", ",", "0.553659`", ",", "0.`", ",", "0.40489`",
. h' O2 r2 [4 B6 q ",", "0.193168`", ",", "0.394366`"}], "}"}], ",", $ r$ w+ r2 E x
RowBox[{"{", & [% b( J+ ~: i2 [" S
RowBox[{# O8 _" u+ ]* }- A- c7 x4 Q+ T# O# s
"0.695652`", ",", "0.595382`", ",", "0.277493`", ",", "0.100326`", ",", - I! W' A/ r; V- b, k7 `. C/ d
"0.286713`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", # n4 E$ T @0 n+ M( C- |0 v, w; f
"0.448763`", ",", "0.338028`"}], "}"}], ",",
7 }8 R$ y/ A/ ]: E" v/ s RowBox[{"{", & G) v" r* ~* Q9 O6 E
RowBox[{
+ v5 K/ p6 |7 X( V' V "0.565217`", ",", "0.559531`", ",", "0.422669`", ",", "0.078111`", ",",
+ }$ [4 t% C! `/ ?$ s# \& I7 U) v "0.286713`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 2 H: l6 G- C7 A# ], l6 G8 z- ]
"0.442285`", ",", "0.394366`"}], "}"}], ",", 9 z& J( _* S. X% ~2 k
RowBox[{"{",
1 |' ^$ b9 d! y( \2 e) C/ n' h RowBox[{
' c, E3 W& m! e! l9 q "0.586957`", ",", "0.398126`", ",", "0.140619`", ",", "0.069116`", ",",
; Z: f$ t* X0 q; h O) W "0.461538`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
! y4 n4 k3 }- k, d "0.575383`", ",", "0.15493`"}], "}"}], ",", 6 R$ O5 T& U* p) N! ^1 B% B
RowBox[{"{", " B! z( x" M9 X) ]2 u9 N& i
RowBox[{
' j! _2 v% z4 [) D& c "0.695652`", ",", "0.398126`", ",", "0.019829`", ",", "0.041366`", ",",
: P' s9 K8 z. T% O: p! A4 u A "0.552448`", ",", "0.24416`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
" F& u q0 y: h! E! _- l$ p3 E; _) c "0.515607`", ",", "0.591549`"}], "}"}], ",", / R, U( }# p- c6 u, D7 D: E/ G
RowBox[{"{", 1 w# V* q/ P; e7 C
RowBox[{, V- a k0 D" j3 b
"0.695652`", ",", "0.700354`", ",", "0.422467`", ",", "0.068128`", ",", 6 C4 U4 x+ G+ X# z7 t
"0.20979`", ",", "0.`", ",", "0.`", ",", "0.500504`", ",", "0.`", ",", 3 R/ ?" A! H0 Y# {
"0.057715`", ",", "0.408451`"}], "}"}], ",",
6 }5 P) }2 P9 R+ k1 {! [8 b$ c8 ] RowBox[{"{",
0 y! v8 o7 a+ A Y+ B5 T% Z RowBox[{
4 g. s! _4 |4 A% S "0.521739`", ",", "0.193125`", ",", "0.210582`", ",", "0.110433`", ",",
$ d% z: x. f$ X$ g "0.447552`", ",", "0.382065`", ",", "0.413008`", ",", "0.498489`", ",", 5 t1 i( w, Q/ K. \
"0.`", ",", "0.174617`", ",", "0.295775`"}], "}"}], ",", , B4 o! ]) q' A8 c3 V5 U
RowBox[{"{", ! o7 j. j7 N* r' n# i
RowBox[{0 t) k% m: C3 B6 u4 N
"0.347826`", ",", "0.063588`", ",", "0.830527`", ",", "1.`", ",",
2 h) n; ` m+ P/ m9 Y# X. @ "0.111888`", ",", "0.`", ",", "0.410569`", ",", "0.`", ",", "0.`", ",", / s+ c: ?% Q$ z: s4 S/ m
"0.66755`", ",", "0.661972`"}], "}"}], ",", " N, t6 K6 }. J& s' p8 V) _
RowBox[{"{", 4 I5 h7 y0 O" H+ H1 C
RowBox[{
# V/ j5 `, G- e9 a+ u "0.521739`", ",", "0.188109`", ",", "1.`", ",", "0.785485`", ",",
7 M( ?) f; i. q* f* ` k V$ ? "0.342657`", ",", "0.373775`", ",", "0.406504`", ",", "1.`", ",", "0.`", / o6 u6 G% I" ^
",", "0.371025`", ",", "0.774648`"}], "}"}], ",", 1 c8 s; ^! D x1 O9 R
RowBox[{"{", , d- |4 R( T" V2 I% i+ W. X x! J4 D
RowBox[{
- Z& F `- ~1 ? "0.695652`", ",", "0.188404`", ",", "0.088836`", ",", "0.059504`", ",", # `3 k9 ]% j! z* W k
"0.706294`", ",", "0.37679`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
- z% w6 [! w" r$ b: G "0.570966`", ",", "0.746479`"}], "}"}], ",", + D* ^0 X* D9 K0 [! x7 ~6 R S
RowBox[{"{", # D5 s9 q+ P* ?/ D( q
RowBox[{4 H: E/ B. _& G7 u
"0.695652`", ",", "0.057465`", ",", "0.316316`", ",", "0.15128`", ",",
' p+ N+ S! I+ _% n# j4 X "0.615385`", ",", "0.371515`", ",", "0.412195`", ",", "0.500504`", ",", , ?' O8 P/ Y3 z( M' H
"0.`", ",", "0.468198`", ",", "0.887324`"}], "}"}], ",",
3 ^! u5 D6 Q6 ]7 {- V! `: O RowBox[{"{", ) U' y: \* Y M1 e
RowBox[{
$ ~6 `: j. w( u "0.608696`", ",", "0.01136`", ",", "0.295586`", ",", "0.113892`", ",",
" x8 L& A8 \2 M- t "0.58042`", ",", "0.746044`", ",", "0.405691`", ",", "0.501511`", ",", 5 o i) f3 }# Y
"0.`", ",", "0.414016`", ",", "0.84507`"}], "}"}], ",", 1 C: T' K& c. D/ P3 }+ }& _8 a
RowBox[{"{", * n1 h. H1 _- k6 { p
RowBox[{7 F2 e- h. g( n- P! G3 y% @
"0.608696`", ",", "0.364783`", ",", "0.130582`", ",", "0.020214`", ",",
) D4 K J) D; `9 j4 d. n "0.356643`", ",", "0.379804`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
7 r4 @/ n+ @1 a "0.18669`", ",", "0.704225`"}], "}"}], ",", # G2 `2 q2 E7 z, W" a
RowBox[{"{",
" U+ q5 ~! M% E6 y- {; U RowBox[{
7 N# j$ l7 X1 ]2 r "0.608696`", ",", "0.193199`", ",", "0.11269`", ",", "0.036152`", ",", / [% @% [ q; | K
"0.636364`", ",", "0.382065`", ",", "0.409756`", ",", "0.495468`", ",", + m2 a# S6 f# g
"0.`", ",", "0.442874`", ",", "0.760563`"}], "}"}], ",",
, g% `% ]/ O8 `/ m2 d7 D @3 l RowBox[{"{", & [9 n" i7 `, { L2 w1 j
RowBox[{
" a) ~8 d! w: L; n8 r u "0.73913`", ",", "0.328932`", ",", "0.246779`", ",", "0.12652`", ",",
8 \1 M. B* k: Z$ w8 }& A) x6 x "0.454545`", ",", "0.`", ",", "0.495122`", ",", "0.`", ",", "0.414181`",
0 e9 U' ~, ~$ f3 {1 E9 t5 ?! H ",", "0.68669`", ",", "0.43662`"}], "}"}], ",",
, p* W- j6 ?; e) @' }2 Q* x RowBox[{"{",
, E* Y; t# E8 z RowBox[{/ K3 o$ } e0 g8 ~$ w) Y
"0.73913`", ",", "0.341767`", ",", "0.36209`", ",", "0.183528`", ",",
7 T$ n2 B8 v$ v4 @# h ] "0.573427`", ",", "0.413715`", ",", "0.454472`", ",", "0.661631`", ",",
( H% t- C: H# k$ S4 c l9 v1 ` "0.`", ",", "0.244111`", ",", "0.633803`"}], "}"}], ",", ' I& d5 S: P: H
RowBox[{"{", / e4 O* h8 c$ K
RowBox[{1 ~4 a, O5 E# d) {& B7 }4 R2 F0 Z
"0.695652`", ",", "0.187076`", ",", "0.279724`", ",", "0.006252`", ",",
7 r% o* P8 d1 S0 w9 [+ {/ G) a) B "0.405594`", ",", "0.418237`", ",", "0.544715`", ",", "0.`", ",", "0.`", / `. Y( P2 G4 h* p
",", "1.`", ",", "0.422535`"}], "}"}], ",", 3 i9 e& ^- O) r$ f: i
RowBox[{"{", 1 m9 v. j5 Q7 q! {) B: |% V7 v- D
RowBox[{2 M5 D. Y, z7 g; X' q+ X4 s
"1.`", ",", "0.333948`", ",", "0.06475`", ",", "0.065855`", ",",
" ~) }, W* H1 v5 f, V3 w; M "0.342657`", ",", "0.`", ",", "0.40813`", ",", "0.`", ",", "0.`", ",", # I+ [0 ^9 n% z8 @, W8 O, D6 k
"0.957892`", ",", "0.295775`"}], "}"}], ",",
7 {6 \6 f' M6 h9 ~- p; z$ \1 K% E RowBox[{"{",
- L! f5 o( y; G# v1 R, n RowBox[{
9 C1 B9 t% n/ X "0.73913`", ",", "0.3054`", ",", "0.374567`", ",", "0.13287`", ",", 6 O4 L# T9 r3 X. O2 o$ o
"0.258741`", ",", "0.834966`", ",", "0.`", ",", "0.`", ",", "0.272861`",
! T0 M7 n+ x& f0 u) b" C/ x, _9 Y ",", "0.266784`", ",", "0.309859`"}], "}"}], ",",
$ L2 |( C! B i RowBox[{"{", 9 e2 W# W4 S: T* {* |5 g+ x
RowBox[{ T! p% W2 U8 ^5 ]
"0.826087`", ",", "0.151962`", ",", "0.36028`", ",", "0.221632`", ",",
- f2 x1 H% x4 a6 S: n+ i "0.447552`", ",", "0.584778`", ",", "0.457724`", ",", "0.`", ",", "0.`",
/ ]$ i2 }- k+ Q6 S i ",", "0.826855`", ",", "0.408451`"}], "}"}], ",", G6 F4 G/ T Z: _3 K: ]* T/ j* g
RowBox[{"{",
2 M2 I- c9 d3 ] j% I3 X' e# H( i RowBox[{
& ^) U( S& _1 D7 f "0.565217`", ",", "0.047212`", ",", "0.233154`", ",", "0.121528`", ",", ; Y M' Q' I' B( p& F
"0.314685`", ",", "0.417483`", ",", "0.546341`", ",", "0.`", ",",
! K* I8 D$ E0 Y( K6 u+ K1 ` "0.669438`", ",", "0.341873`", ",", "0.197183`"}], "}"}], ",",
9 b( ?) e8 U1 Z% X: B+ u+ ^7 s; ^. t RowBox[{"{",
. K$ f# [0 b% D7 a+ W RowBox[{1 B8 W6 K8 m4 F
"0.826087`", ",", "0.034376`", ",", "0.690349`", ",", "0.51238`", ",",
) Z, _& |. l! N* |% A "0.685315`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.556479`", ",",
. j5 D6 | l" V% f$ v B: V "0.412544`", ",", "0.732394`"}], "}"}], ",",
/ h2 ]" k! I) ]4 Q" K8 S7 V6 G RowBox[{"{",
& \0 O+ U3 M- H- O2 W, V4 v( D RowBox[{8 r6 w5 c% V3 }2 g u- G' r3 s9 z
"0.652174`", ",", "0.`", ",", "0.374417`", ",", "0.188075`", ",", % ~1 ^) ]6 B- K9 }4 r
"0.706294`", ",", "0.498116`", ",", "0.729268`", ",", "0.`", ",", ( o7 M9 N, I1 v1 K- `* I
"0.454279`", ",", "0.322144`", ",", "0.802817`"}], "}"}], ",", 7 i4 O+ {9 m8 ?' a) e1 ?* E; _/ N
RowBox[{"{", # ^2 O: ]; E) f6 F
RowBox[{7 z3 H0 L B8 N
"0.782609`", ",", "0.180363`", ",", "0.237142`", ",", "0.054809`", ",", ( m& p% u* k, j
"0.629371`", ",", "0.373775`", ",", "0.247967`", ",", "0.`", ",",
) R( L, k( [: j. k$ \ "0.163814`", ",", "0.370436`", ",", "0.746479`"}], "}"}], ",", * i, J- u& O/ a
RowBox[{"{",
6 ]$ T( J6 U. N1 o6 O! t) ] ~# [ RowBox[{ Z; u, Y5 e/ X* ]& v
"0.608696`", ",", "0.16915`", ",", "0.368148`", ",", "0.393768`", ",", * {6 I4 `- Y6 M4 d0 ?
"0.440559`", ",", "0.995479`", ",", "0.545528`", ",", "0.`", ",", . O" y% J) E5 v$ }3 ~' V* C; m; D* R
"0.56577`", ",", "0.333039`", ",", "0.380282`"}], "}"}], ",", 0 g. @; J, q* U R' n& Q
RowBox[{"{", 1 I- s( z/ Y" a
RowBox[{ v1 ]( l3 c* v. h$ ]/ h( R; m' ~' ]
"0.695652`", ",", "0.390454`", ",", "0.186683`", ",", "0.039439`", ",",
. N/ z$ I* V( r6 A7 f "0.482517`", ",", "0.497362`", ",", "0.415447`", ",", "0.50856`", ",",
) E% Q9 J6 b, l! \0 | "0.`", ",", "0.390754`", ",", "0.56338`"}], "}"}], ",", ! N9 y. Z5 c: n. ^
RowBox[{"{", : g; p8 m' s% q- e
RowBox[{
: X: H8 I* k2 g! r# @ "0.73913`", ",", "0.428888`", ",", "0.082728`", ",", "0.070154`", ",", + i D/ q _# x
"0.27972`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", ; t7 J" H: M, L$ }! E- A
"0.694935`", ",", "0.323944`"}], "}"}]}], "}"}]], "Output",8 v" b: k& B( ^" ^, L/ {
CellChangeTimes->{3.57795879182092*^9, 3.5779604974578943`*^9, , m6 k' c, e9 Y
3.57801214396875*^9}]( g4 `+ N/ Y) T- s9 W" Q8 j, }
}, Open ]],
" [) s5 u, M, O4 q" a) J' G) b' A( F5 e
Cell[CellGroupData[{
7 V1 U; ~6 U' a' l3 |# a/ T2 u( Z4 q
Cell[BoxData[
3 @) a# w' X9 S- O5 d+ l' A2 Q RowBox[{"Array", "[",
* l1 j/ P; i" K+ y9 y k \ RowBox[{"CM", ",", - g- ?0 @9 y$ }
RowBox[{"{",
7 ]) w/ i# {* @, y h3 j RowBox[{"80", ",", "9"}], "}"}]}], "]"}]], "Input",
4 R% O4 B: L! O CellChangeTimes->{{3.577844235859375*^9, 3.577844291953125*^9}}],: F1 V4 Y% D" }
5 r( J5 m. M9 v6 y
Cell[BoxData[" ?6 h' O9 e2 T& c
RowBox[{"{",
6 M( Q$ [) v1 k; w RowBox[{
6 @/ X! J4 i" I RowBox[{"{",
: b3 t4 {; e$ _. ~8 K: f RowBox[{
( |$ w' f0 b- W1 i$ Q RowBox[{"CM", "[", & \ O$ |2 d& u' e
RowBox[{"1", ",", "1"}], "]"}], ",", 6 T6 r: @! x+ D& o2 ]# S
RowBox[{"CM", "[",
6 W9 C+ Y7 Q4 u3 X RowBox[{"1", ",", "2"}], "]"}], ",",
" S9 U" H! c. `: m6 Y RowBox[{"CM", "[",
) k- R* y7 K: R) U% s RowBox[{"1", ",", "3"}], "]"}], ",",
% K4 ?- i: V; m$ Y& }$ C RowBox[{"CM", "[", . H- U- y0 e5 R7 m! p l8 I
RowBox[{"1", ",", "4"}], "]"}], ",",
- z# i4 m8 D; D- l# U) [! R RowBox[{"CM", "[", ! k0 V( d" @( J8 x2 }* M
RowBox[{"1", ",", "5"}], "]"}], ",", 4 l4 v2 D' X4 `2 M+ \, z
RowBox[{"CM", "[",
8 L9 k2 x9 \ G: Q* @2 P. V) \) }3 P0 Q RowBox[{"1", ",", "6"}], "]"}], ",",
! D' o4 P& E9 E5 J9 g$ P( {6 S$ E; a3 | RowBox[{"CM", "[", " g7 F8 W1 ~* g d
RowBox[{"1", ",", "7"}], "]"}], ",", 7 D2 Q8 a; E& f6 `9 @
RowBox[{"CM", "[",
1 Y \; g, P6 G, ~' c* @! f# L' a) N7 K RowBox[{"1", ",", "8"}], "]"}], ",", 3 H' F* S+ `* [( q2 q3 R0 f
RowBox[{"CM", "[", $ C; G* X: `6 `: M
RowBox[{"1", ",", "9"}], "]"}]}], "}"}], ",",
& L2 f5 S+ v k4 X RowBox[{"{",
9 V c1 m: F4 o8 E% T% | RowBox[{. _2 p3 H& y$ [3 j2 m3 i9 j
RowBox[{"CM", "[",
* J+ h$ ~+ o0 q% \ \0 U6 {; n RowBox[{"2", ",", "1"}], "]"}], ",", 3 _* g* V9 s9 l8 j, @$ p
RowBox[{"CM", "[", 9 g( _) d& X5 i( z/ M9 S* @
RowBox[{"2", ",", "2"}], "]"}], ",", . I2 {1 x9 O% R3 r" e* Y
RowBox[{"CM", "[", . r0 i5 \1 g; M8 m. N
RowBox[{"2", ",", "3"}], "]"}], ",",
5 E% J- w. i4 H. |1 E6 R RowBox[{"CM", "[", $ D) p/ F Y7 F& } x: w
RowBox[{"2", ",", "4"}], "]"}], ",",
6 q' e/ {6 L% d+ Q RowBox[{"CM", "[",
& R& p. T1 R+ G2 g. I RowBox[{"2", ",", "5"}], "]"}], ",", 9 m2 A4 i! t, I2 l" h7 S) i
RowBox[{"CM", "[",
- c4 S) v% |$ ?2 X$ V+ \ RowBox[{"2", ",", "6"}], "]"}], ",", , W% q6 {/ E' q: R# t
RowBox[{"CM", "[",
. Z, c8 b. R- k+ z0 P) n RowBox[{"2", ",", "7"}], "]"}], ",", + t j! n+ |1 Z! n) D8 m
RowBox[{"CM", "[", ) ]( T8 A0 D0 w' U, n: r
RowBox[{"2", ",", "8"}], "]"}], ",", ; C& B6 S# C: q5 ^1 v' p
RowBox[{"CM", "[", : P8 a( T- S/ H3 m9 j2 f( u
RowBox[{"2", ",", "9"}], "]"}]}], "}"}], ",",
+ X$ a, g5 y# \5 G) Z0 P4 g4 w5 D RowBox[{"{",
/ L. V8 L9 h% [ RowBox[{- [+ B* P1 Y. {1 ]6 |' w! s. T$ W, O
RowBox[{"CM", "[", ) y( l+ y- X9 y* z2 p! i
RowBox[{"3", ",", "1"}], "]"}], ",",
& X) [% r7 b# d8 q( |* b B# m RowBox[{"CM", "[",
6 r( N' A& D1 F/ E+ o RowBox[{"3", ",", "2"}], "]"}], ",", ' Q0 A: Y- \- ?
RowBox[{"CM", "[", 7 a1 W3 s, x7 i0 M
RowBox[{"3", ",", "3"}], "]"}], ",",
) E; a J* v2 |1 `7 I3 b RowBox[{"CM", "[", " B' N% u0 ?: h
RowBox[{"3", ",", "4"}], "]"}], ",", 7 Z3 }8 A. p& r+ j
RowBox[{"CM", "[",
4 M9 i! h, H( a( c8 P3 R RowBox[{"3", ",", "5"}], "]"}], ",", ( J1 o5 R( v. Q: u1 _2 \# [2 @$ e
RowBox[{"CM", "[",
6 U0 i% B- z8 e: q2 U6 S; C RowBox[{"3", ",", "6"}], "]"}], ",",
( d/ C4 O9 C9 T6 S: n RowBox[{"CM", "[",
5 [, p5 B6 ?3 a8 ] RowBox[{"3", ",", "7"}], "]"}], ",", 6 V% s4 K; h. _# o
RowBox[{"CM", "[", , W9 z/ `, g! |' N O
RowBox[{"3", ",", "8"}], "]"}], ",", 9 F5 T2 ?- n- L4 v
RowBox[{"CM", "[",
+ a2 y/ |. ~/ @7 `# b/ I+ [8 R RowBox[{"3", ",", "9"}], "]"}]}], "}"}], ",", ; Q1 p) l" l# x0 U" q" \7 a
RowBox[{"{", , a* l0 g) s& M3 O8 t. ^3 @, J
RowBox[{
6 A: t N* o" y1 X9 a RowBox[{"CM", "[",
- M! s3 Y( s4 w& x& M" b4 h RowBox[{"4", ",", "1"}], "]"}], ",", / G3 G; A9 j6 w+ W2 R. g
RowBox[{"CM", "[",
6 n, u+ r/ _" U: B+ ^' o1 @; @ RowBox[{"4", ",", "2"}], "]"}], ",",
0 a9 v* N5 @4 B" f! D7 F1 J RowBox[{"CM", "[", , |. g$ I+ ]- Q9 x0 [" V/ A* m1 }
RowBox[{"4", ",", "3"}], "]"}], ",", 6 a: t3 j' S1 G# S T
RowBox[{"CM", "[", . y7 h: h1 `$ y, e U
RowBox[{"4", ",", "4"}], "]"}], ",",
1 R1 D4 t& [ V+ y% p RowBox[{"CM", "[",
7 a g D: T* p! k3 B6 j! g# @$ c RowBox[{"4", ",", "5"}], "]"}], ",",
* a' ]2 ^0 s5 Y) b; L. H1 Q RowBox[{"CM", "[", 2 O1 Z# j' X6 x9 R* H
RowBox[{"4", ",", "6"}], "]"}], ",",
; h: f8 m7 m; r( |! P- \0 Q RowBox[{"CM", "[", * N: A' i5 n/ i) s1 q1 l
RowBox[{"4", ",", "7"}], "]"}], ",",
& |$ C' t4 t& f RowBox[{"CM", "[", + H( s. z6 k$ k# x* b( e
RowBox[{"4", ",", "8"}], "]"}], ",", / }6 _+ q% U: a$ b7 V0 Q- Y5 {
RowBox[{"CM", "[",
' ?1 e9 M% e! l# X4 m9 J3 \$ H RowBox[{"4", ",", "9"}], "]"}]}], "}"}], ",", 7 e* ` i$ t( w1 G8 F# l% J! b
RowBox[{"{",
. \" ~ N% D& M- }5 `) ^; Y' c RowBox[{2 c% u8 @2 H1 n
RowBox[{"CM", "[", ^/ h( M+ W% P+ N5 f6 @ ^; E
RowBox[{"5", ",", "1"}], "]"}], ",", " J- b& V! C) o* X3 ]; G
RowBox[{"CM", "[", ) ]4 O7 z9 u( r% M9 B
RowBox[{"5", ",", "2"}], "]"}], ",", 2 X; l' P+ r* j
RowBox[{"CM", "[", * f; y2 U; s$ x( R( H. a6 ?4 |! c
RowBox[{"5", ",", "3"}], "]"}], ",",
0 I \6 u8 k: G; H$ H& |5 M! s7 } RowBox[{"CM", "[",
+ s, f; M3 q9 Z @5 y/ G6 T* K RowBox[{"5", ",", "4"}], "]"}], ",", ( d- z7 _7 Y( h0 I( S: @
RowBox[{"CM", "[", - f8 V" ~8 M x# K, c
RowBox[{"5", ",", "5"}], "]"}], ",",
1 y, g. |4 j' M* b6 m5 X8 K RowBox[{"CM", "[", 0 j, Y8 X2 ?' z1 _% |
RowBox[{"5", ",", "6"}], "]"}], ",",
5 \( Y# ^0 T( l& d( K2 u9 k$ F RowBox[{"CM", "[", 2 z1 N; L1 q& U2 k1 x* I
RowBox[{"5", ",", "7"}], "]"}], ",", - `6 \2 E1 l! I1 h5 U: P& V8 j
RowBox[{"CM", "[",
b9 x9 q: _9 E: [, ]4 u RowBox[{"5", ",", "8"}], "]"}], ",", ( O h( }" F4 T- X5 z
RowBox[{"CM", "[", 2 `4 `" B+ g* T) U& O; w
RowBox[{"5", ",", "9"}], "]"}]}], "}"}], ",",
, Z" O3 g; K0 o9 x RowBox[{"{",
3 X7 R5 @( Y8 A+ _5 z2 T4 ?" N8 ~ RowBox[{! k! e1 _# K. Y8 g* {1 v& b4 G
RowBox[{"CM", "[",
, |: D" |. z* ] RowBox[{"6", ",", "1"}], "]"}], ",",
# ?0 f4 t8 \. ?3 G( R+ x RowBox[{"CM", "[", % Z p* V/ f( s
RowBox[{"6", ",", "2"}], "]"}], ",", ( ~! j! ?. O& y6 A9 \
RowBox[{"CM", "[",
$ W8 ?& R' G/ |$ w' ] RowBox[{"6", ",", "3"}], "]"}], ",",
9 C2 l/ |, s# ?- i* @ RowBox[{"CM", "[", * C/ Z% \7 q* |
RowBox[{"6", ",", "4"}], "]"}], ",", 3 X& `4 k# H+ y6 t# A
RowBox[{"CM", "[", 7 w6 I1 R3 i) C# V r$ M9 E$ a9 j6 Y
RowBox[{"6", ",", "5"}], "]"}], ",", + n4 p; w- \5 ^) q3 J; \
RowBox[{"CM", "[", " i! T2 x" S5 K D5 {3 L
RowBox[{"6", ",", "6"}], "]"}], ",", 6 ? W% }& a7 F" Q2 V
RowBox[{"CM", "[",
$ G A$ M6 i. Y" |/ M( }: D RowBox[{"6", ",", "7"}], "]"}], ",",
! I# ~: m- L) r- U4 T7 _# f# \ RowBox[{"CM", "[",
. J( k' l* i$ V1 P3 I! K. {8 V2 z. [ RowBox[{"6", ",", "8"}], "]"}], ",",
( \7 j7 _7 d7 H8 v/ Z4 ? RowBox[{"CM", "[",
( l+ O7 z% a, ~+ y8 h8 S2 ]6 v RowBox[{"6", ",", "9"}], "]"}]}], "}"}], ",", 2 o" F1 R- u( R4 G2 C& N
RowBox[{"{", 3 J; A/ A' a5 v
RowBox[{- v8 k3 e( w) j# \; r5 ~) [
RowBox[{"CM", "[", * d2 Y: g( J. L0 d+ n, D: V y$ Y9 ?
RowBox[{"7", ",", "1"}], "]"}], ",",
9 V) c4 ?3 _' V: u7 x8 u RowBox[{"CM", "[", - d6 n0 X) R4 e9 @. \* V' w
RowBox[{"7", ",", "2"}], "]"}], ",",
]( i( P$ j( a3 c d' n% W RowBox[{"CM", "[", l% w' m4 j' Q
RowBox[{"7", ",", "3"}], "]"}], ",",
- c7 h+ X. f; x$ ]; `8 w4 C& s RowBox[{"CM", "[",
( n& `- |2 x0 i4 y# C RowBox[{"7", ",", "4"}], "]"}], ",", # N: @! ?3 X2 u7 S n, t% p
RowBox[{"CM", "[",
, S q& _/ i7 Z( k; `5 z RowBox[{"7", ",", "5"}], "]"}], ",",
* q1 z F! Z2 N/ d- a: A# K6 p: ?% ^ RowBox[{"CM", "[",
1 h( }5 s3 ]; X- J- `. z RowBox[{"7", ",", "6"}], "]"}], ",",
) N1 i( s% H) ~- t RowBox[{"CM", "[",
0 g- _- z9 T2 R' B6 D1 m9 x. U+ f1 _ RowBox[{"7", ",", "7"}], "]"}], ",",
9 c' y" \7 Q/ q, r6 V0 G RowBox[{"CM", "[",
! r: G& J# b& N, `4 y4 ` RowBox[{"7", ",", "8"}], "]"}], ",", : H8 ~* B5 v" I# C J7 _& y6 h% i
RowBox[{"CM", "[",
+ ] N1 g7 F0 r$ H* o5 h RowBox[{"7", ",", "9"}], "]"}]}], "}"}], ",",
( [1 p) C* h6 M+ r) D0 V. W. x RowBox[{"{", 2 u4 A+ j0 G, r& s$ v, f b6 M
RowBox[{. q$ f$ a4 P1 r/ n( P' b X
RowBox[{"CM", "[",
6 x e+ @: F: e, m- p% _, @ RowBox[{"8", ",", "1"}], "]"}], ",", 7 A9 A0 t" }& @5 d
RowBox[{"CM", "[",
( o& n' v) g6 M7 R RowBox[{"8", ",", "2"}], "]"}], ",", 8 R% }0 }. u; y- L
RowBox[{"CM", "[", # M+ h5 t& [3 ?( J* d2 X7 H2 d7 V
RowBox[{"8", ",", "3"}], "]"}], ",", . c; }& [1 u0 q7 A6 }4 Z9 |
RowBox[{"CM", "[",
/ L! e* S3 N9 d2 P" J/ d% i RowBox[{"8", ",", "4"}], "]"}], ",",
( i2 L$ N/ _. m& A9 \$ x* A Y RowBox[{"CM", "[",
3 B8 F4 Z b! @* b9 ^8 Y# |3 R0 _2 L RowBox[{"8", ",", "5"}], "]"}], ",", ; M4 |, E! A8 p# U' f# H, F! g* q
RowBox[{"CM", "[", # O2 P' H4 ]( Q/ A' H
RowBox[{"8", ",", "6"}], "]"}], ",", & m- t6 F% X7 D$ D8 `. r! y2 B! ^' U
RowBox[{"CM", "[",
6 Y4 ~) T ]; p, q- ` RowBox[{"8", ",", "7"}], "]"}], ",", % C' [9 F5 t% B/ ]
RowBox[{"CM", "[", # _, j) b, P6 K2 M+ t
RowBox[{"8", ",", "8"}], "]"}], ",", ' y; K" Q7 d! |1 I, W' y
RowBox[{"CM", "[", L6 R4 u. C. M. k1 o
RowBox[{"8", ",", "9"}], "]"}]}], "}"}], ",", , K$ I' [5 |/ \; c
RowBox[{"{", 5 i( y3 M. i& D" S
RowBox[{
& {) u, V; p O# K. k! l/ Q, p RowBox[{"CM", "[",
1 ]5 A- f3 I) K# Q RowBox[{"9", ",", "1"}], "]"}], ",", % o1 L$ {' U2 z2 r2 t# n& n4 v
RowBox[{"CM", "[", % g/ T3 c7 b [. n0 q2 }$ H4 y& r [
RowBox[{"9", ",", "2"}], "]"}], ",",
# a7 R: }) k, E, x) B2 x RowBox[{"CM", "[", 3 L" v3 w3 |1 {& P3 m" V8 r
RowBox[{"9", ",", "3"}], "]"}], ",",
2 q. [% f6 O5 W. e RowBox[{"CM", "[", 0 G* U) l, \3 H8 {# d' [
RowBox[{"9", ",", "4"}], "]"}], ",", # h" o9 i& G- ^7 z' L
RowBox[{"CM", "[",
4 p n) \2 I2 ?3 |. B' E RowBox[{"9", ",", "5"}], "]"}], ",", X& S6 W6 J R9 t+ a
RowBox[{"CM", "[", $ b; Z& ?8 w& Q
RowBox[{"9", ",", "6"}], "]"}], ",", . I/ A j4 e/ Z. V3 o( Q; ]
RowBox[{"CM", "[",
- z, g" ]' m/ g4 k! Z! a- e" O RowBox[{"9", ",", "7"}], "]"}], ",",
0 ?) H% k# e7 F1 ?1 y; a0 z% A# D% W RowBox[{"CM", "[", . [6 Q: F# \" W) K* M! G, E
RowBox[{"9", ",", "8"}], "]"}], ",", " R% ]- I/ i! x1 F" q" ?4 F8 Q3 O
RowBox[{"CM", "[",
& [* c: T0 Y" Z" @! j ?# u RowBox[{"9", ",", "9"}], "]"}]}], "}"}], ",", # g! h5 x( A% p1 y7 N8 E
RowBox[{"{",
% {* b1 {5 f; W' f( l$ U RowBox[{& M' q1 K6 y1 o! d
RowBox[{"CM", "[", % B3 m/ j* g2 |$ E
RowBox[{"10", ",", "1"}], "]"}], ",",
" b, p0 ?9 P& }- m- |, S RowBox[{"CM", "[", ( q/ \7 A u" h2 u! y
RowBox[{"10", ",", "2"}], "]"}], ",", : h' T2 w1 {2 ~% w+ l) d- ~
RowBox[{"CM", "[", " C% z, o+ N/ Y) \
RowBox[{"10", ",", "3"}], "]"}], ",", , y% Q2 ~ E3 m. Y
RowBox[{"CM", "[", & U2 i; v0 N. a8 d" Y2 _3 p
RowBox[{"10", ",", "4"}], "]"}], ",", 8 o+ E+ b N$ [( v
RowBox[{"CM", "[",
" M: D& s5 b3 G* {5 ]* w* p RowBox[{"10", ",", "5"}], "]"}], ",",
6 f5 z/ d6 z% a9 K1 D RowBox[{"CM", "[", - O* c B, p8 E) j% ^$ X' y# `5 c
RowBox[{"10", ",", "6"}], "]"}], ",",
' `9 U/ Q) k9 s! [! S RowBox[{"CM", "[",
5 a( ~( r9 x+ J+ y$ K" O( e RowBox[{"10", ",", "7"}], "]"}], ",",
' \, j5 R0 @7 w) f; n RowBox[{"CM", "[", ' T) H# V1 T6 S' V5 o4 r; u: \
RowBox[{"10", ",", "8"}], "]"}], ",",
% ] H O1 |, a4 s, I RowBox[{"CM", "[", 8 v. P2 q9 c+ D6 w
RowBox[{"10", ",", "9"}], "]"}]}], "}"}], ",",
3 ]5 P7 m: a& ~8 P9 r! B# ~; d1 E RowBox[{"{", $ Z* j3 T+ h2 S( P7 q
RowBox[{
. M$ ]. O5 c9 n9 D5 S9 `, ], @ RowBox[{"CM", "[", $ Z9 \) U" |: J% m
RowBox[{"11", ",", "1"}], "]"}], ",", 8 X2 j& c0 b6 e) |: z6 U1 L) S
RowBox[{"CM", "[", % T0 P" L1 k* ?$ ~+ ]" N) M
RowBox[{"11", ",", "2"}], "]"}], ",",
# {5 W6 s+ g# P! `" S# T% S1 \ RowBox[{"CM", "[",
: E' Q% ?, f, x, ~ RowBox[{"11", ",", "3"}], "]"}], ",", 1 r) {- {0 k9 N) E
RowBox[{"CM", "[", % g3 h: I: S+ B0 m, _
RowBox[{"11", ",", "4"}], "]"}], ",",
N7 ?) I* x) z2 U ^" Z RowBox[{"CM", "[", 0 s: ]0 [/ R5 ^4 p. [- v2 e |
RowBox[{"11", ",", "5"}], "]"}], ",",
0 n( Q* |* X( c8 K) M RowBox[{"CM", "[", 1 P& \2 h+ t7 k: L0 B8 E6 x
RowBox[{"11", ",", "6"}], "]"}], ",", $ i1 t, k8 ^) H5 C, V
RowBox[{"CM", "[", $ W* i7 I8 {) z, ?# P' a% i }4 B
RowBox[{"11", ",", "7"}], "]"}], ",",
+ z5 r& _3 |8 E8 _, i RowBox[{"CM", "[", ( n) z7 E5 `6 X
RowBox[{"11", ",", "8"}], "]"}], ",",
( d8 D: r7 w' t+ r RowBox[{"CM", "[", 8 X* r0 ^& V, n1 {6 _: |2 U
RowBox[{"11", ",", "9"}], "]"}]}], "}"}], ",",
, Q4 l+ ~4 T8 {, n RowBox[{"{",
8 k, }2 [: P2 K( F$ }; t2 x& o1 V RowBox[{1 ]6 f' o' T0 x8 }6 W0 @
RowBox[{"CM", "[", ( |; }' g, N- i) e: X6 x. B h7 |/ p
RowBox[{"12", ",", "1"}], "]"}], ",",
7 e7 ?7 ]& ^! ^5 x, w( P8 p RowBox[{"CM", "[",
0 T1 G5 u6 m* t h/ Q$ L RowBox[{"12", ",", "2"}], "]"}], ",",
0 f {* T2 H) [- d, S RowBox[{"CM", "[",
( Z& [/ R( L; i3 T$ e RowBox[{"12", ",", "3"}], "]"}], ",", 3 U) T* \! }2 R& H2 m$ v
RowBox[{"CM", "[", : H! V. R' u- m- W2 W
RowBox[{"12", ",", "4"}], "]"}], ",",
) _- c3 y- k4 _. C( O( n9 R RowBox[{"CM", "[", + H6 O. s% J0 p( {+ j! L1 G
RowBox[{"12", ",", "5"}], "]"}], ",", 0 S' U, n( I+ M% I8 u1 L! z
RowBox[{"CM", "[", 7 M/ `! X2 q+ C2 }: ~# k- \
RowBox[{"12", ",", "6"}], "]"}], ",",
. P# g5 \6 J/ {8 H% { RowBox[{"CM", "[", 0 V( O5 T$ M% k7 s6 r+ u0 f& }
RowBox[{"12", ",", "7"}], "]"}], ",", ) L6 ~5 Q9 s+ w, ^& {6 d8 M
RowBox[{"CM", "[",
W- A6 H3 m! E8 n2 }' C0 A/ t RowBox[{"12", ",", "8"}], "]"}], ",",
, H1 }+ V$ m& r" x* V0 q3 E RowBox[{"CM", "[", # G* l* D" g0 @1 v/ D
RowBox[{"12", ",", "9"}], "]"}]}], "}"}], ",", n8 Q) V: t( z1 O2 c5 \5 {% X
RowBox[{"{",
" c0 j! h/ G7 i0 l! U ]/ b( \2 y RowBox[{3 B$ b; H, u/ n; T
RowBox[{"CM", "[", $ E4 T8 E8 ?( Y! n+ y, G+ w# i* w
RowBox[{"13", ",", "1"}], "]"}], ",",
1 S/ B& b! M9 G, ~2 T* g, w v$ [ RowBox[{"CM", "[",
* a1 Y! N V; K5 G2 G; G ? RowBox[{"13", ",", "2"}], "]"}], ",", ; g8 I; u7 ]; P- Y# Y
RowBox[{"CM", "[",
; Q1 C& l; b! {. y- F/ \. g8 F RowBox[{"13", ",", "3"}], "]"}], ",",
8 M$ i+ c1 \- m3 j- V3 X RowBox[{"CM", "[",
: d1 h2 b9 H- o ]3 x RowBox[{"13", ",", "4"}], "]"}], ",",
0 }! n" |! n' {+ y RowBox[{"CM", "[",
( p5 t) ^2 Q, }) L9 H8 w* z$ b RowBox[{"13", ",", "5"}], "]"}], ",",
1 r+ C/ F. e7 {3 K/ D0 M% p RowBox[{"CM", "[",
0 ^0 V: ?- }- _# x; d RowBox[{"13", ",", "6"}], "]"}], ",", . v) ^. t* V; {+ |8 _) h6 P$ Y
RowBox[{"CM", "[", # g9 ~! a; a: W
RowBox[{"13", ",", "7"}], "]"}], ",",
) L% a4 ?9 Z$ f3 D1 S" V RowBox[{"CM", "[",
3 N* F- D( ?8 ` RowBox[{"13", ",", "8"}], "]"}], ",",
; b$ `3 n( A3 n. R" r# N RowBox[{"CM", "[",
% q( `) m: r2 X- T RowBox[{"13", ",", "9"}], "]"}]}], "}"}], ",",
7 c" _* R0 T9 W1 q RowBox[{"{", # Y7 w/ m6 w9 w* [4 ?4 N
RowBox[{
% g d7 ~, o7 r4 I# @! l C7 K RowBox[{"CM", "[", ! T9 H; F, v; s! ~
RowBox[{"14", ",", "1"}], "]"}], ",",
0 r. X; r1 J# _0 U" z RowBox[{"CM", "[",
) b S1 q: V1 T6 l. e, ~1 L RowBox[{"14", ",", "2"}], "]"}], ",", + v# i! W2 r1 r( D( R
RowBox[{"CM", "[", 8 f& V- C3 u/ A8 u% x1 [, f! }! z
RowBox[{"14", ",", "3"}], "]"}], ",", ( V' G! ~0 B1 t* C6 h1 O# U
RowBox[{"CM", "[",
2 w7 z, b& S C6 s( f RowBox[{"14", ",", "4"}], "]"}], ",", ! K0 n" l! S1 y% g
RowBox[{"CM", "[", , ~) @$ N9 D/ o0 o; d
RowBox[{"14", ",", "5"}], "]"}], ",",
/ Z& S) [1 O/ d6 h( k RowBox[{"CM", "[", ) e1 D' N3 D3 Z* A: V. j O
RowBox[{"14", ",", "6"}], "]"}], ",", ; q6 I$ P3 @* J" Y. I8 U
RowBox[{"CM", "[",
3 Q6 f( G4 z( Z4 z2 G RowBox[{"14", ",", "7"}], "]"}], ",", I& i% {4 h" I! W& ]: a4 V
RowBox[{"CM", "[",
% u) ?: S, f7 B" v. E RowBox[{"14", ",", "8"}], "]"}], ",",
: ~5 |" v3 w G+ R7 i RowBox[{"CM", "[", 5 }9 |, y k3 K4 S& K
RowBox[{"14", ",", "9"}], "]"}]}], "}"}], ",",
* A/ T; S* | `" D RowBox[{"{",
- `# }! [3 J" O- q+ V1 ? RowBox[{" }7 j9 o+ O1 H' E. ?
RowBox[{"CM", "[", ; K+ K- l$ O. j7 c6 k
RowBox[{"15", ",", "1"}], "]"}], ",", : [- m3 K" @. e. j1 q
RowBox[{"CM", "[", 6 g: @/ C6 z: K4 B" b1 Z
RowBox[{"15", ",", "2"}], "]"}], ",", & i0 M. v$ f" G3 H
RowBox[{"CM", "[",
: `- E3 q6 ]3 B# T5 ]6 p RowBox[{"15", ",", "3"}], "]"}], ",",
# ?; m/ U+ n( ]. Q RowBox[{"CM", "[", # k2 w1 S1 ~- N
RowBox[{"15", ",", "4"}], "]"}], ",",
; p9 m* @- A# y0 _2 l RowBox[{"CM", "[",
: N( X6 E3 I/ a% S, ] RowBox[{"15", ",", "5"}], "]"}], ",", 2 c1 @9 m9 p1 u8 E6 }8 j
RowBox[{"CM", "[",
/ Z+ m, B% h3 l4 q RowBox[{"15", ",", "6"}], "]"}], ",",
& {/ N$ g+ u% z2 \ RowBox[{"CM", "[", 9 F/ e- U- w6 o( ?) p& E, N8 w% s
RowBox[{"15", ",", "7"}], "]"}], ",", . [, n; d7 M) }
RowBox[{"CM", "[",
' ?. I- U$ D/ _# [ RowBox[{"15", ",", "8"}], "]"}], ",", $ ?" X* }) O" u- V% n+ ?* V
RowBox[{"CM", "[",
4 c! K- P4 o6 |0 u, q RowBox[{"15", ",", "9"}], "]"}]}], "}"}], ",", : {2 h+ c ^, E+ t
RowBox[{"{", $ Z$ I8 E. k3 W; a0 [- g' T
RowBox[{$ G, ~0 S: G! m; {9 }. J
RowBox[{"CM", "[", 3 [/ T f$ l( u9 ~% s% Z
RowBox[{"16", ",", "1"}], "]"}], ",", 5 U) U5 [+ U5 p! m* A
RowBox[{"CM", "[",
' T7 f/ Y, ]0 T RowBox[{"16", ",", "2"}], "]"}], ",", - B/ r* ]1 k( o
RowBox[{"CM", "[", & @" p2 R3 y4 W! y/ Z6 }4 U
RowBox[{"16", ",", "3"}], "]"}], ",",
6 q0 @! f0 C5 q8 O! ~ RowBox[{"CM", "[", - I8 n7 j9 M g0 J
RowBox[{"16", ",", "4"}], "]"}], ",", 1 h+ d2 ~. n- \
RowBox[{"CM", "[",
1 F' |7 C. p- h5 k4 n$ L RowBox[{"16", ",", "5"}], "]"}], ",",
& D) T5 \5 l6 E9 f2 x6 `1 W, T" { RowBox[{"CM", "[", - R+ e. b! w( ~( y
RowBox[{"16", ",", "6"}], "]"}], ",", ; }0 `! z6 N! R/ p) Z0 U# b' Z
RowBox[{"CM", "[",
! ~8 ?3 l; A1 I( A8 f RowBox[{"16", ",", "7"}], "]"}], ",",
4 B, X" M. j$ x! Y4 t+ O RowBox[{"CM", "[", 0 Q2 q6 s. Q! Z! G) Y- Y
RowBox[{"16", ",", "8"}], "]"}], ",", , D4 v8 \8 L) a" ], {6 ]( k( g1 V
RowBox[{"CM", "[", ; X5 h0 r x9 j
RowBox[{"16", ",", "9"}], "]"}]}], "}"}], ",",
% Z7 f5 W9 d T! { RowBox[{"{", 8 Q/ ~" H. @6 L5 c; x! L) G
RowBox[{" Y' X/ N1 b5 ?6 l3 X* r" F
RowBox[{"CM", "[", ; V9 W) `" V0 Q. r
RowBox[{"17", ",", "1"}], "]"}], ",",
! W: V6 x7 P. {/ Z( b RowBox[{"CM", "[",
$ C3 D3 q: O& G- m RowBox[{"17", ",", "2"}], "]"}], ",", . P+ E; u) F' ]) l% W0 |
RowBox[{"CM", "[", ' O g% |2 K/ H k
RowBox[{"17", ",", "3"}], "]"}], ",", * g' M$ p [. u9 E3 f2 {& x' Q
RowBox[{"CM", "[",
7 k, _" N9 Z9 Z5 y* v& j! p RowBox[{"17", ",", "4"}], "]"}], ",",
/ y; P4 C/ _$ J& f F3 y; [ RowBox[{"CM", "[", & s* Q5 W9 A$ }5 U3 ^/ s5 u
RowBox[{"17", ",", "5"}], "]"}], ",",
! ~ a# g- m: ^+ h0 m% } RowBox[{"CM", "[",
, @) _8 Y& C1 y! j RowBox[{"17", ",", "6"}], "]"}], ",",
, _: X* a v; r3 X) O RowBox[{"CM", "[",
2 q; u, `$ q+ Y. C. n RowBox[{"17", ",", "7"}], "]"}], ",", + Z6 G( i D A* X+ d( H+ P
RowBox[{"CM", "[", * \- h9 A9 q& o- z" x2 H
RowBox[{"17", ",", "8"}], "]"}], ",", / E$ M8 o- {9 P# @, X' x' M4 Z7 x" y
RowBox[{"CM", "[",
& W" m5 J/ D$ q RowBox[{"17", ",", "9"}], "]"}]}], "}"}], ",",
# [% }! Q+ T B9 Q; _ RowBox[{"{",
4 \, Y* _0 G) y7 l9 B RowBox[{
" k3 H. B3 ]' y6 i4 C d6 r RowBox[{"CM", "[", 9 W+ G$ T1 q; A6 e9 s
RowBox[{"18", ",", "1"}], "]"}], ",", 1 ?1 I9 Q0 [, |
RowBox[{"CM", "[", 5 w9 |0 p9 m, @
RowBox[{"18", ",", "2"}], "]"}], ",",
, Z8 f3 S# f$ d W6 C. A RowBox[{"CM", "[", 4 V: f6 C2 z1 e
RowBox[{"18", ",", "3"}], "]"}], ",",
- ~9 D* ^5 T6 \: M RowBox[{"CM", "[", : W; u! x8 F {; s9 a
RowBox[{"18", ",", "4"}], "]"}], ",",
: e! U4 H9 e& U2 I/ g4 ? RowBox[{"CM", "[", $ T$ H# B2 Q) o0 u% V$ m% n
RowBox[{"18", ",", "5"}], "]"}], ",", $ v& Z9 R! S0 P; R
RowBox[{"CM", "[", : F1 B4 d8 c/ X5 i
RowBox[{"18", ",", "6"}], "]"}], ",", & c3 u( [" J% m' k+ U
RowBox[{"CM", "[", ' j9 i" a) b0 _
RowBox[{"18", ",", "7"}], "]"}], ",", 7 h: j( }* _" l6 x9 l, w
RowBox[{"CM", "[",
. v3 x5 V% U' r RowBox[{"18", ",", "8"}], "]"}], ",", ; }7 t2 A/ G; {7 B5 t
RowBox[{"CM", "[", , t3 [2 T) r2 m8 A) d$ O
RowBox[{"18", ",", "9"}], "]"}]}], "}"}], ",", 8 v+ V: J2 h# v7 I; l/ m
RowBox[{"{",
) Q7 v& r ~( n0 C, q2 U RowBox[{% A* |: U- T$ M: Q& T# B/ W& D
RowBox[{"CM", "[", 4 }# h5 m8 a |) T
RowBox[{"19", ",", "1"}], "]"}], ",", % J& B* d R2 m5 a `$ ^- l
RowBox[{"CM", "[",
" b. K: i' ^! R; G7 M RowBox[{"19", ",", "2"}], "]"}], ",", $ U" \5 j; p! c) g% }
RowBox[{"CM", "[",
3 {7 D4 v5 @; J% G5 P RowBox[{"19", ",", "3"}], "]"}], ",", 5 b. e) c# A0 k
RowBox[{"CM", "[",
! N2 ^. [" d3 z6 N* F! s RowBox[{"19", ",", "4"}], "]"}], ",", 6 j9 L1 ?; s ]
RowBox[{"CM", "[", * n# N- C* O6 c" h
RowBox[{"19", ",", "5"}], "]"}], ",", 5 E a- d' G6 {6 y; p
RowBox[{"CM", "[", 8 w: g$ E; q/ I% D: ?9 |) S
RowBox[{"19", ",", "6"}], "]"}], ",",
" X7 d( B# R# g' r: L! n; e RowBox[{"CM", "[", 9 H, Z' a5 E3 D; f7 C; u% a" h
RowBox[{"19", ",", "7"}], "]"}], ",",
" H8 F8 @: u# d9 J RowBox[{"CM", "[",
k5 ]' v/ U: ` H; L! w3 `( H1 ] RowBox[{"19", ",", "8"}], "]"}], ",",
4 X! g; g7 u* H! _! W# Z8 t# V RowBox[{"CM", "[",
' C- [1 E8 |5 W RowBox[{"19", ",", "9"}], "]"}]}], "}"}], ",", 6 D( n) w4 N7 \4 q" Q" g
RowBox[{"{",
( y8 l* B) N' Q9 U9 D RowBox[{. N0 T$ m! O p. X
RowBox[{"CM", "[",
?. u9 Z7 Z* Y' [. O RowBox[{"20", ",", "1"}], "]"}], ",",
2 U2 r& u. `3 O' \) K! ^ RowBox[{"CM", "[", 6 n$ M8 A8 t2 n- u* d3 W) C/ H
RowBox[{"20", ",", "2"}], "]"}], ",", * ]( n( S/ m+ X; f( D4 _' j
RowBox[{"CM", "[",
5 `4 F. T7 ~5 @3 X2 D e: k! t V RowBox[{"20", ",", "3"}], "]"}], ",", " r o7 o8 R+ J$ m4 y% M
RowBox[{"CM", "[",
- c( I" C( t% m' `1 ] RowBox[{"20", ",", "4"}], "]"}], ",",
& ]. O0 e7 } t RowBox[{"CM", "[",
" k& l: ]2 ~4 _2 b RowBox[{"20", ",", "5"}], "]"}], ",", ! t; ]8 ~0 f0 ]% m
RowBox[{"CM", "[",
! p% I1 \2 m! k7 ?7 [5 B RowBox[{"20", ",", "6"}], "]"}], ",", 4 o' q, g& U1 u/ `: g
RowBox[{"CM", "[", $ C; T0 R) p- A
RowBox[{"20", ",", "7"}], "]"}], ",", : H" [4 P" w& C% I$ f/ A; A+ e
RowBox[{"CM", "[",
. G) p* o7 m: B) P8 w5 V RowBox[{"20", ",", "8"}], "]"}], ",", * j5 F9 D. B' O8 `# E4 N2 _5 k
RowBox[{"CM", "[", % r9 R# E; F, w$ ^; P
RowBox[{"20", ",", "9"}], "]"}]}], "}"}], ",", , h0 _9 z; ?5 N; N7 S6 l0 ~# u
RowBox[{"{", + ^) o& V% x; U5 S! s4 x. b( F; e
RowBox[{* Q3 P9 B9 L, }! L
RowBox[{"CM", "[", ) z+ p) H& E7 u4 S/ B* N) S
RowBox[{"21", ",", "1"}], "]"}], ",",
2 b7 o4 B* @" B# p0 d RowBox[{"CM", "[",
, |9 d* t0 E! W$ D8 k' ~ ^ RowBox[{"21", ",", "2"}], "]"}], ",", ) L. `: @. B8 W: f0 l* w3 T
RowBox[{"CM", "[", : G6 I( J' ?6 l1 o% q
RowBox[{"21", ",", "3"}], "]"}], ",", * m5 Y! n J, v5 G8 A
RowBox[{"CM", "[", $ }6 c' j- X% b3 v- O$ \
RowBox[{"21", ",", "4"}], "]"}], ",",
/ y% O3 A; p9 _# ~) l' {2 ? RowBox[{"CM", "[",
' e+ x& E4 K) v% u RowBox[{"21", ",", "5"}], "]"}], ",",
5 W" y9 J% y/ l RowBox[{"CM", "[", 6 b( u4 k0 l5 ?2 j% H1 B& |2 k) v S
RowBox[{"21", ",", "6"}], "]"}], ",", 8 _# S( [. H [6 [+ Y
RowBox[{"CM", "[", ( T. A' v9 j m9 b, L; j
RowBox[{"21", ",", "7"}], "]"}], ",",
) D+ K, P1 h9 h; q, A RowBox[{"CM", "[",
2 T2 C2 B' ] p: m8 I0 f9 D RowBox[{"21", ",", "8"}], "]"}], ",",
5 f2 Z. R; m5 m/ |1 P- a RowBox[{"CM", "[",
+ s7 I" N Y3 c9 T" S. t/ T RowBox[{"21", ",", "9"}], "]"}]}], "}"}], ",",
% Y0 M. M2 R3 i, `) G4 H) n RowBox[{"{", 5 ~, X; }7 |& c
RowBox[{
8 J$ Y8 ]- V4 O6 F/ X* i RowBox[{"CM", "[",
7 D' i9 R2 @5 G- i RowBox[{"22", ",", "1"}], "]"}], ",",
0 {$ p0 O' Y& W9 s9 W RowBox[{"CM", "[", , y8 R* l% p+ Z
RowBox[{"22", ",", "2"}], "]"}], ",",
. b& ^8 G" t& c% z RowBox[{"CM", "[", d' [5 O# I) r) O) V1 `
RowBox[{"22", ",", "3"}], "]"}], ",", . Q/ x: g5 X+ O' x3 _
RowBox[{"CM", "[",
% R8 S, Y* R( l; O7 V1 O! a RowBox[{"22", ",", "4"}], "]"}], ",", 1 ?3 C* t5 {; R! S# J
RowBox[{"CM", "[",
* c2 \; E0 g* S$ E$ b- P D RowBox[{"22", ",", "5"}], "]"}], ",", 5 F1 y L: s, A- ?- r
RowBox[{"CM", "[",
, b3 ~( y# [% f$ U RowBox[{"22", ",", "6"}], "]"}], ",",
# M# Q* Z% g' f: h9 }* J8 f# r I RowBox[{"CM", "[", & G4 O4 M5 H0 F0 Y* ~) u& g& e3 O
RowBox[{"22", ",", "7"}], "]"}], ",", - Y: c& M8 P" _2 ?- w9 w* X3 E
RowBox[{"CM", "[",
y8 z, N( \2 _$ U E- \4 F RowBox[{"22", ",", "8"}], "]"}], ",",
4 P9 O* e M2 X% D6 I. }5 a$ j% m1 B RowBox[{"CM", "[",
1 z* q1 Y, o( ~4 r ^: J) [ RowBox[{"22", ",", "9"}], "]"}]}], "}"}], ",", ; x4 f' I6 G& n: I6 _/ S0 O7 I
RowBox[{"{",
( [& K0 A/ n9 c RowBox[{3 ^9 v8 ^/ {, \, x* V
RowBox[{"CM", "[",
0 _$ @' L$ P" \7 [ RowBox[{"23", ",", "1"}], "]"}], ",", ( |/ `7 Y0 S7 c, z: S
RowBox[{"CM", "[",
5 H8 x% ^/ ]2 g- t/ p4 x" O RowBox[{"23", ",", "2"}], "]"}], ",",
6 q9 X# ]% H& o+ {. e RowBox[{"CM", "[",
) j0 F: x5 X4 N5 I H- V RowBox[{"23", ",", "3"}], "]"}], ",",
9 e: }/ E5 V4 G6 _0 G( w RowBox[{"CM", "[",
: O! g+ n0 l, i5 ` RowBox[{"23", ",", "4"}], "]"}], ",", : I: X7 ]: |6 P) P7 e0 M* e
RowBox[{"CM", "[",
& z; k4 d3 A2 d& T' y RowBox[{"23", ",", "5"}], "]"}], ",", 9 b6 ?! I- ]% U2 u3 R7 ]
RowBox[{"CM", "[", # |4 I1 r! Z. o' \4 X) f I. b/ c
RowBox[{"23", ",", "6"}], "]"}], ",",
% H1 g. W' ~: L1 p0 R8 ^ RowBox[{"CM", "[", G. V( i+ U1 R' J
RowBox[{"23", ",", "7"}], "]"}], ",", 1 O0 j" Q- u0 U% x7 n$ G& U/ V5 c+ }
RowBox[{"CM", "[",
9 l5 f4 k- K$ n RowBox[{"23", ",", "8"}], "]"}], ",",
. t+ p- A; D b4 c% L RowBox[{"CM", "[",
# V* E2 j4 g1 @# I# |2 C+ C RowBox[{"23", ",", "9"}], "]"}]}], "}"}], ",",
* A A6 ]3 i( Y3 f RowBox[{"{", ' H7 c( F8 a6 q' t; Z
RowBox[{0 G ^! a' Z$ j: I
RowBox[{"CM", "[", 0 m# w+ j% ^) F$ P9 j3 u+ r5 B
RowBox[{"24", ",", "1"}], "]"}], ",", $ e* \) b2 ^) G. i
RowBox[{"CM", "[",
& L4 f7 c7 [% y RowBox[{"24", ",", "2"}], "]"}], ",", [) Y( _4 Y# b3 r- D4 Z
RowBox[{"CM", "[", - r( l, c9 A2 @/ u+ ^
RowBox[{"24", ",", "3"}], "]"}], ",", ) k! b8 ~7 }3 \
RowBox[{"CM", "[", 1 P `* O% K" e! u
RowBox[{"24", ",", "4"}], "]"}], ",",
- }1 h! T0 E. S; ^ s& _! U8 B RowBox[{"CM", "[",
; j- g& B+ U3 ^, r, W RowBox[{"24", ",", "5"}], "]"}], ",",
6 t1 }' a! x$ b* s* u1 S RowBox[{"CM", "[", ' ?4 x. Z$ h" x) L) S/ v$ h; u
RowBox[{"24", ",", "6"}], "]"}], ",", % G. m; W9 {. k y% l$ N7 s
RowBox[{"CM", "[",
0 B( q S6 H4 B' O9 y RowBox[{"24", ",", "7"}], "]"}], ",", 4 r$ I2 G; K {# p) o: d; P
RowBox[{"CM", "[",
# K+ I3 |( I$ C/ S; ? RowBox[{"24", ",", "8"}], "]"}], ",",
+ S; q2 q. S4 y: | RowBox[{"CM", "[",
3 J, O7 x; t6 _! ]- x& z" e7 h RowBox[{"24", ",", "9"}], "]"}]}], "}"}], ",",
& }0 H# M( s, \/ I RowBox[{"{", 0 I- U R/ v4 l
RowBox[{
2 y. T$ C$ L+ W- J5 F RowBox[{"CM", "[", 7 h4 s% X3 P8 M5 J5 D
RowBox[{"25", ",", "1"}], "]"}], ",",
4 j7 p* p3 k: y9 {) G RowBox[{"CM", "[",
( u) U# r/ H- ?. d+ t+ P RowBox[{"25", ",", "2"}], "]"}], ",", 2 a) v; B) V: R0 p! G
RowBox[{"CM", "[", * v6 J# M2 _* o
RowBox[{"25", ",", "3"}], "]"}], ",", # J: I+ o0 A# i* @! p8 R
RowBox[{"CM", "[",
: h4 a2 o: [1 U1 n RowBox[{"25", ",", "4"}], "]"}], ",",
3 t! J& ?9 p& L' Z RowBox[{"CM", "[",
2 v+ n1 T( y& n$ ~7 p* K RowBox[{"25", ",", "5"}], "]"}], ",",
) ?& V; a/ t; c1 _$ m RowBox[{"CM", "[",
+ C6 Z- f! Z2 X! H# m& d RowBox[{"25", ",", "6"}], "]"}], ",",
, ^: p. n1 J" E- A1 Q" I RowBox[{"CM", "[",
, t& i* {1 o! W) d5 P! V: i; O RowBox[{"25", ",", "7"}], "]"}], ",",
# q$ U( L4 s( e) v+ s1 M RowBox[{"CM", "[", 7 [# R, r) n7 x# d- e0 a6 q8 e
RowBox[{"25", ",", "8"}], "]"}], ",", & k5 ^( }2 S" I7 S, E
RowBox[{"CM", "[",
7 ^/ G5 l3 |& e RowBox[{"25", ",", "9"}], "]"}]}], "}"}], ",",
. ?1 B$ z0 Y+ ? RowBox[{"{",
$ F, d& m* y+ a4 K RowBox[{
# G5 ?6 C0 A5 r RowBox[{"CM", "[",
: ?! K/ g/ D2 { RowBox[{"26", ",", "1"}], "]"}], ",",
7 [/ ^0 l- d; x0 i& D. H& b RowBox[{"CM", "[", 8 U% J2 @; a$ b( K- j8 J
RowBox[{"26", ",", "2"}], "]"}], ",",
/ g; w7 F2 ?: p( o RowBox[{"CM", "[", & P9 R7 k: k: ]* Z
RowBox[{"26", ",", "3"}], "]"}], ",", - u& C- y3 z8 c+ R4 f A
RowBox[{"CM", "[", : i& V q. A6 V& I) M
RowBox[{"26", ",", "4"}], "]"}], ",",
4 w/ A: D/ R) B( M RowBox[{"CM", "[", * W% V$ h& y" h9 j, b, T U
RowBox[{"26", ",", "5"}], "]"}], ",", 7 Q7 M+ d/ R% q4 ^% c
RowBox[{"CM", "[",
% I, S: |1 \% T O; t RowBox[{"26", ",", "6"}], "]"}], ",", 4 X9 |6 U, P9 }. O- V
RowBox[{"CM", "[",
( N8 q2 O0 D. t" V& q RowBox[{"26", ",", "7"}], "]"}], ",",
9 f) x3 M9 {4 V' D- _ RowBox[{"CM", "[",
2 A1 B! W8 X8 t# m: J, [* H RowBox[{"26", ",", "8"}], "]"}], ",",
k- o+ j. g K4 u2 p/ t E RowBox[{"CM", "[",
- ~+ z0 E3 Y5 F) D+ N RowBox[{"26", ",", "9"}], "]"}]}], "}"}], ",", 5 s7 y o5 m7 Z% b+ W( N) M
RowBox[{"{", % ?$ O4 }) r4 F' U
RowBox[{: |( h, S, e- @( |5 X" A) X
RowBox[{"CM", "[",
" k5 ~7 e+ d# h; _- c* { RowBox[{"27", ",", "1"}], "]"}], ",", * L" M; u8 `4 M) K7 U- r
RowBox[{"CM", "[", - X7 Y. {0 Y& n: R& [
RowBox[{"27", ",", "2"}], "]"}], ",", # z% e; Y; E: {3 b) F. r
RowBox[{"CM", "[",
; M/ f& K. ?7 J! ] RowBox[{"27", ",", "3"}], "]"}], ",", % i- `! p% }$ |7 m% O
RowBox[{"CM", "[",
) ?, d; E; S; g9 ]- A) }! z$ A RowBox[{"27", ",", "4"}], "]"}], ",",
& U6 T( S7 G. | RowBox[{"CM", "[",
0 ?0 b# T6 A0 {$ e, r1 I9 S9 S RowBox[{"27", ",", "5"}], "]"}], ",", , H! V$ R; O) [, Q! R
RowBox[{"CM", "[",
( K1 n, e+ \, S/ Y- R" \& t* b RowBox[{"27", ",", "6"}], "]"}], ",",
7 A3 M# W' k$ ? RowBox[{"CM", "[", 4 d9 y( H ]% F- p+ t6 w- Y$ L
RowBox[{"27", ",", "7"}], "]"}], ",", 7 D! @. s+ Y" f/ H
RowBox[{"CM", "[", + c+ G" m z& z0 o6 x" c, K
RowBox[{"27", ",", "8"}], "]"}], ",", N* l4 j* l; I5 Z- i/ _
RowBox[{"CM", "[", 8 A0 G3 J1 ` q) h, ?1 |. w B4 C4 W
RowBox[{"27", ",", "9"}], "]"}]}], "}"}], ",", 6 j8 i8 H' `/ \1 w' K X; p! T
RowBox[{"{",
% @# @& x9 }+ u* C5 @ RowBox[{! [, c& _% b, D' u
RowBox[{"CM", "[",
$ i M1 k6 w; D% b RowBox[{"28", ",", "1"}], "]"}], ",", " w2 U2 ~, }1 @3 V5 _
RowBox[{"CM", "[", * ~# Y! R! @* }; J0 @9 w
RowBox[{"28", ",", "2"}], "]"}], ",", ' H* ^& q! \3 J
RowBox[{"CM", "[",
; a l; m5 h( B; {; F% E3 ? RowBox[{"28", ",", "3"}], "]"}], ",", ! y4 y. K4 c: B" G
RowBox[{"CM", "[", 5 D) E9 A8 v2 ]& o
RowBox[{"28", ",", "4"}], "]"}], ",", $ q5 ?" O+ i/ h, ?7 _$ N
RowBox[{"CM", "[",
( R; s& X% y: Z: T0 d7 i0 k2 E RowBox[{"28", ",", "5"}], "]"}], ",",
. a5 d+ \3 l, n. p! D6 i- e& n, n% M RowBox[{"CM", "[", 6 V" g% l! a1 X% q1 b$ I
RowBox[{"28", ",", "6"}], "]"}], ",", 0 z. ^# ?1 ~/ N) |/ W6 C
RowBox[{"CM", "[", G" {! y) o! e" w6 b" ?
RowBox[{"28", ",", "7"}], "]"}], ",", * P H$ J% D; z6 x! r+ B- `- l: W
RowBox[{"CM", "[",
3 d. M; E) q8 ^ RowBox[{"28", ",", "8"}], "]"}], ",", ! }; t+ e$ S/ C; r2 M! L/ F
RowBox[{"CM", "[", " e! A5 y: T. ]
RowBox[{"28", ",", "9"}], "]"}]}], "}"}], ",", % r1 d# ^1 o2 d2 {/ W) z* P' T3 R
RowBox[{"{",
/ z; Z5 F: \. X. } RowBox[{0 y7 X9 g; y3 T6 R. Q+ h5 w& N7 [
RowBox[{"CM", "[", ! O8 @! @. e9 s6 h" p
RowBox[{"29", ",", "1"}], "]"}], ",",
4 E& T7 k, W2 k, G RowBox[{"CM", "[",
& h L6 V4 ^6 w& x RowBox[{"29", ",", "2"}], "]"}], ",",
1 _' V3 L3 ?/ Q# y! Z1 } RowBox[{"CM", "[",
~$ v5 D! _' F+ L7 V+ k RowBox[{"29", ",", "3"}], "]"}], ",",
. W4 @: B1 G0 | RowBox[{"CM", "[",
- |. E/ l$ M! Q" z, s RowBox[{"29", ",", "4"}], "]"}], ",", 9 ~# C4 s: E" x+ A
RowBox[{"CM", "[", ; }" a; y- F* Y t
RowBox[{"29", ",", "5"}], "]"}], ",",
- Q* L! U5 V3 j6 {% s RowBox[{"CM", "[",
/ {2 N( L5 y6 W; |; d: d* L' N: k RowBox[{"29", ",", "6"}], "]"}], ",", 6 x$ C' \& K; O2 ]5 B8 r% x
RowBox[{"CM", "[", & G- S1 y! u$ a6 k! b
RowBox[{"29", ",", "7"}], "]"}], ",", # Z, m" z4 n8 C$ ?4 |( w8 Z
RowBox[{"CM", "[", , |2 H D6 {* Q F6 \ T2 D2 E
RowBox[{"29", ",", "8"}], "]"}], ",",
. u% M5 _0 ^; U RowBox[{"CM", "[",
# a! Z$ ?, K7 f0 [( H" K2 F- ^/ G% A RowBox[{"29", ",", "9"}], "]"}]}], "}"}], ",",
! m9 E- ]" S/ B- O3 T- c/ O5 S- { RowBox[{"{",
5 D% b: c- ]# E RowBox[{
4 y3 v$ O7 X+ k RowBox[{"CM", "[",
8 l, o2 C8 l) R8 _4 x' g* H RowBox[{"30", ",", "1"}], "]"}], ",",
* ^# i0 J9 d- I6 O RowBox[{"CM", "[",
! ~/ K* A' O* L. U; S, \& h RowBox[{"30", ",", "2"}], "]"}], ",",
7 \0 `7 O8 T( A# \2 g! f) ^ RowBox[{"CM", "[",
: g) b4 k6 A, O RowBox[{"30", ",", "3"}], "]"}], ",",
0 V2 I% Y+ ?3 }* U% x RowBox[{"CM", "[",
6 I5 r& D* T' l7 k0 ?( Y RowBox[{"30", ",", "4"}], "]"}], ",", 9 j+ j" Z% C9 S
RowBox[{"CM", "[",
# N0 T& Z! b& p9 a+ Y1 B RowBox[{"30", ",", "5"}], "]"}], ",", 3 m; \0 h3 _& P
RowBox[{"CM", "[", : b; u) y7 ^+ F n
RowBox[{"30", ",", "6"}], "]"}], ",", % X- v# J2 W/ C& W8 h5 h
RowBox[{"CM", "[", 0 Y1 H* n& s; x% \3 x0 `
RowBox[{"30", ",", "7"}], "]"}], ",",
: t* y+ Y' f4 |* f/ o RowBox[{"CM", "[",
$ E1 J& X) c$ ~ RowBox[{"30", ",", "8"}], "]"}], ",",
9 U, i: q( p# H0 c) D RowBox[{"CM", "[", ! W. x$ L9 r( V
RowBox[{"30", ",", "9"}], "]"}]}], "}"}], ",", 6 z* u2 D n; P% b
RowBox[{"{",
/ @) z7 J8 P3 D' ~0 m1 Q RowBox[{+ d# _0 g3 Q, c! K! g5 s2 g
RowBox[{"CM", "[",
# b8 W4 l: e+ r$ R RowBox[{"31", ",", "1"}], "]"}], ",", 8 Z4 c7 q2 f7 y" ^+ `1 {3 x
RowBox[{"CM", "[", / |6 S" u! P( L0 O+ @
RowBox[{"31", ",", "2"}], "]"}], ",", % C# i) K3 i, C5 I/ `9 s
RowBox[{"CM", "[",
2 i& Z- _5 K7 R RowBox[{"31", ",", "3"}], "]"}], ",", " w" R) e: ]7 Z \
RowBox[{"CM", "[",
& [6 d H* p& U RowBox[{"31", ",", "4"}], "]"}], ",", S* V( }3 Q Z2 m& O8 ~- N* _& S
RowBox[{"CM", "[", 3 _8 ^2 v8 y' _+ i, ?
RowBox[{"31", ",", "5"}], "]"}], ",", 9 d1 ]7 W/ D: L
RowBox[{"CM", "[",
5 R; f. t% a1 [9 f: X5 w RowBox[{"31", ",", "6"}], "]"}], ",",
# d+ A$ U5 C2 `' u3 {, h2 U RowBox[{"CM", "[", / t6 u0 j: o4 A& n
RowBox[{"31", ",", "7"}], "]"}], ",", 2 ~- r* E) ~) J, V* Y6 B4 [
RowBox[{"CM", "[",
/ t- |% H# E( r! \) ]' o RowBox[{"31", ",", "8"}], "]"}], ",", $ ]4 ?' _5 O. Z! b- c `% X% J
RowBox[{"CM", "[", . S2 g: p, o/ e) g+ Y' i T6 R& Y( ?. R
RowBox[{"31", ",", "9"}], "]"}]}], "}"}], ",", & z5 T) a. J# U7 s* @7 z
RowBox[{"{", 1 ~4 K- ~- q: |3 i
RowBox[{4 K, {$ Q' d* E0 e
RowBox[{"CM", "[", / g" A' X. g/ C
RowBox[{"32", ",", "1"}], "]"}], ",",
9 `- b" X2 f" A6 p0 W RowBox[{"CM", "[",
& p! l: b/ T9 B4 D2 U( \# a9 h; P( M RowBox[{"32", ",", "2"}], "]"}], ",", 1 w- M+ R: g$ {# X6 |' q
RowBox[{"CM", "[", , |0 {0 U+ W9 g# t* ?* ]" o
RowBox[{"32", ",", "3"}], "]"}], ",",
+ [5 \& r; D$ V! l4 k$ n& Z RowBox[{"CM", "[", 0 M! ~9 L* {2 l( U
RowBox[{"32", ",", "4"}], "]"}], ",",
) C& h) y, j# I! z/ R RowBox[{"CM", "[", n+ k1 E- q' d4 b, v. Z# b
RowBox[{"32", ",", "5"}], "]"}], ",", , {, B' l9 h9 S+ F, w
RowBox[{"CM", "[", 3 M+ C) c- d) x ]
RowBox[{"32", ",", "6"}], "]"}], ",", 9 o" a5 F: y" x% H: n) i$ L0 i! X
RowBox[{"CM", "[",
/ k9 D- y" F2 F) [/ }/ p RowBox[{"32", ",", "7"}], "]"}], ",", ! O& ~. i- t. |
RowBox[{"CM", "[", 8 s1 u5 {1 ^& e
RowBox[{"32", ",", "8"}], "]"}], ",",
$ w9 i6 u- g4 X( ^ RowBox[{"CM", "[",
4 i1 p9 V4 I' y RowBox[{"32", ",", "9"}], "]"}]}], "}"}], ",", $ \. k, V) f! }; k/ b
RowBox[{"{", . Z1 l/ ^. i- u2 j; E) ^9 a
RowBox[{2 G' e+ y7 A" H8 Y( { E/ n
RowBox[{"CM", "[", ; [ q" n) h; O6 e2 N2 N( l5 V
RowBox[{"33", ",", "1"}], "]"}], ",", * n! {0 n/ ?- E7 U* U
RowBox[{"CM", "[",
; q# n" S. y$ F6 `* |! ~8 U: V RowBox[{"33", ",", "2"}], "]"}], ",",
' g7 ?7 x6 C0 \4 c4 A& i/ m RowBox[{"CM", "[",
* A+ N1 X7 l* z3 E RowBox[{"33", ",", "3"}], "]"}], ",", V) X, Q8 c# G( V3 h% l% Y! R* O G4 ^
RowBox[{"CM", "[",
: \+ K3 D! u# h( z1 d* G RowBox[{"33", ",", "4"}], "]"}], ",", : ~& ~- `6 K& ?+ q' m
RowBox[{"CM", "[",
! R/ M6 c8 _# J% {8 |8 T RowBox[{"33", ",", "5"}], "]"}], ",", $ [# Z, u/ q5 o9 ?7 k, ?6 J) s
RowBox[{"CM", "[",
L8 U' m1 |% ~& D2 b& B( G( f RowBox[{"33", ",", "6"}], "]"}], ",",
$ J i+ v g" }6 j5 v2 B RowBox[{"CM", "[", ' n# G2 h1 Y6 _& s. Y7 Q
RowBox[{"33", ",", "7"}], "]"}], ",", ! Z, {5 C9 h9 J
RowBox[{"CM", "[", % s3 [- Y4 q! R; @0 K
RowBox[{"33", ",", "8"}], "]"}], ",",
8 U( p2 x7 x, R% O+ J. y RowBox[{"CM", "[",
! h. N# N0 }/ C7 ]* Y RowBox[{"33", ",", "9"}], "]"}]}], "}"}], ",",
$ y0 U6 j6 U2 J7 v* S% x( y RowBox[{"{", ; @3 q8 L# j7 E' z7 o u% g2 h
RowBox[{
# F& J7 T1 Z' a! l: t8 P RowBox[{"CM", "[",
9 [) A3 r( W! [/ o% P0 i RowBox[{"34", ",", "1"}], "]"}], ",",
( n6 } {0 l, B: o RowBox[{"CM", "[", & {9 c0 {, a2 D \4 Z
RowBox[{"34", ",", "2"}], "]"}], ",",
# u$ H) b7 _" t9 C% ]! C) s3 [ RowBox[{"CM", "[",
+ l# P% ?; v5 v P% J. I4 @. I: C RowBox[{"34", ",", "3"}], "]"}], ",",
: T% c& {# D- G6 h" S$ k RowBox[{"CM", "[",
* l8 [$ E7 ]/ l/ D. D5 e RowBox[{"34", ",", "4"}], "]"}], ",",
. O$ N, y7 ]5 F RowBox[{"CM", "[", 4 D+ ~, Z+ Z& Z; }+ q
RowBox[{"34", ",", "5"}], "]"}], ",", / m4 }% T! H9 E
RowBox[{"CM", "[",
/ O5 X7 _/ J n5 t, q. V; G, l RowBox[{"34", ",", "6"}], "]"}], ",", ; `, q9 l( ^& B- o! O7 {
RowBox[{"CM", "[",
/ _0 `* V9 |8 \* r2 y* q RowBox[{"34", ",", "7"}], "]"}], ",",
: L7 T: J" p, s' T( ^/ ~ RowBox[{"CM", "[",
" N d- d$ a/ ?% }& D RowBox[{"34", ",", "8"}], "]"}], ",",
6 G+ z" M: u, f4 B) `3 _ G5 M7 f RowBox[{"CM", "[", 2 T$ q, ?. B d/ A# x4 c( A
RowBox[{"34", ",", "9"}], "]"}]}], "}"}], ",", : R" z1 R7 V3 I9 e- r' N" W
RowBox[{"{", , C& m0 E& E) @2 E4 k
RowBox[{
) r' R5 |% x) d6 d R. G RowBox[{"CM", "[", ; S. C2 E' k3 P* u) ?
RowBox[{"35", ",", "1"}], "]"}], ",",
# f9 r( v% I& ?% U3 ^. S9 m' Y9 m RowBox[{"CM", "[",
7 a# o% f! b7 u& w4 A, [" o RowBox[{"35", ",", "2"}], "]"}], ",", % c. Z3 E! q7 r L: S! L
RowBox[{"CM", "[", 6 j' Q! _( U* V! P
RowBox[{"35", ",", "3"}], "]"}], ",", : V5 r! B9 L6 F
RowBox[{"CM", "[", ( D. M# k- ~1 ]% X p. U
RowBox[{"35", ",", "4"}], "]"}], ",", F' L& U( o+ {; Z/ w: p
RowBox[{"CM", "[",
4 `2 t% ]. K+ D: Y5 k% J RowBox[{"35", ",", "5"}], "]"}], ",",
8 X. T5 `( \/ U3 q) T8 ~ RowBox[{"CM", "[", 6 V3 x' N g- O, o5 M, p1 u
RowBox[{"35", ",", "6"}], "]"}], ",", ) H1 L! W E. t
RowBox[{"CM", "[",
* Y/ G5 z" [$ Z2 z RowBox[{"35", ",", "7"}], "]"}], ",",
, j; [- c n1 A" \1 ?# |$ a RowBox[{"CM", "[", ) M4 j y3 n5 J2 {
RowBox[{"35", ",", "8"}], "]"}], ",", : l7 U3 d) e8 L: n+ g2 j9 k
RowBox[{"CM", "[",
, M2 }- Y; x9 k: g) N RowBox[{"35", ",", "9"}], "]"}]}], "}"}], ",",
+ P" D2 B6 H1 L6 n/ d1 c RowBox[{"{",
2 _0 A* G& T6 e RowBox[{
' i7 r9 ?: X# J4 a. n ~ RowBox[{"CM", "[",
' N1 ?+ n: ^; @ T RowBox[{"36", ",", "1"}], "]"}], ",",
1 ^* v" l" p( D& z4 T RowBox[{"CM", "[",
: }( l0 d0 d- m3 e5 |$ M1 F RowBox[{"36", ",", "2"}], "]"}], ",",
; R, Z! R4 _3 v' T0 ?# `' v RowBox[{"CM", "[",
# V5 |( Z5 E7 D RowBox[{"36", ",", "3"}], "]"}], ",", 3 X' B! F3 D. `% z1 H
RowBox[{"CM", "[",
/ W2 ?% b3 G& ^" A6 e9 P5 s, ^ RowBox[{"36", ",", "4"}], "]"}], ",", $ a, [0 A" P5 k2 [) r
RowBox[{"CM", "[",
+ n5 f# {: q$ L; u5 p& S2 L RowBox[{"36", ",", "5"}], "]"}], ",",
# o/ z8 U w3 k9 t' L& }( E9 ? RowBox[{"CM", "[", # j, o7 m1 O2 h
RowBox[{"36", ",", "6"}], "]"}], ",", 6 c2 t7 C1 C+ _2 W
RowBox[{"CM", "[", + y; o6 ]/ d) L, W
RowBox[{"36", ",", "7"}], "]"}], ",",
! @9 V8 p( v# _. S: d RowBox[{"CM", "[", 2 ]: s+ r; |- A# \2 |( B& Z; K* s
RowBox[{"36", ",", "8"}], "]"}], ",",
4 a6 F7 ^8 q* j( R6 { RowBox[{"CM", "[", / w W5 v7 W4 O$ K% e/ n0 {6 c
RowBox[{"36", ",", "9"}], "]"}]}], "}"}], ",",
. E3 Y- m; V8 ? RowBox[{"{", 9 I/ A" I' w1 Y) X" x4 `3 ?
RowBox[{
6 o! J b; `' T* S, V, m. l RowBox[{"CM", "[",
8 O8 R- G" x. N2 A RowBox[{"37", ",", "1"}], "]"}], ",",
3 R ~5 R) u! [ RowBox[{"CM", "[",
/ n$ e2 Z8 t$ C2 W, X* B* r RowBox[{"37", ",", "2"}], "]"}], ",", * S( H# s/ }. I: E# o
RowBox[{"CM", "[", . J+ N0 Q5 z$ O$ o
RowBox[{"37", ",", "3"}], "]"}], ",",
H; [* `+ x0 U0 f# Z RowBox[{"CM", "[",
3 {) I3 r, g- H3 ?: y* f RowBox[{"37", ",", "4"}], "]"}], ",", % J! O0 z* \/ b' ~; N
RowBox[{"CM", "[",
) X7 _5 j/ f9 I+ H# ? RowBox[{"37", ",", "5"}], "]"}], ",",
* q* Y8 U6 y9 F( P, p$ l RowBox[{"CM", "[",
/ z7 a+ U* G) l1 y/ J* Q( v2 \. B RowBox[{"37", ",", "6"}], "]"}], ",", 7 n! F$ u3 P" y# R0 x
RowBox[{"CM", "[",
+ B. C0 E$ x d* S. z/ I) L RowBox[{"37", ",", "7"}], "]"}], ",", 7 t5 j! I) D: ]: p3 s
RowBox[{"CM", "[", 3 ?% Y) p8 H+ h Z0 T
RowBox[{"37", ",", "8"}], "]"}], ",", * n. I1 H# r f3 B, R& u/ B, v5 k2 e
RowBox[{"CM", "[",
1 o2 W' x" t; [5 |& i6 v) K5 X3 C RowBox[{"37", ",", "9"}], "]"}]}], "}"}], ",", 2 \! J8 H, y; W+ u6 j
RowBox[{"{", . {% h* G0 L, @& i% o B& l7 _! X
RowBox[{9 u6 z3 c% v* P' s0 e+ `
RowBox[{"CM", "[", 5 F$ o" W4 W# r
RowBox[{"38", ",", "1"}], "]"}], ",",
- E( `' t9 {2 g# L6 N+ C; j$ K RowBox[{"CM", "[", " C/ z2 a- p1 T P$ J. I
RowBox[{"38", ",", "2"}], "]"}], ",", 4 c" [4 d4 n B. J0 S0 A
RowBox[{"CM", "[", + F: c4 T) c" w5 z* G& T$ f
RowBox[{"38", ",", "3"}], "]"}], ",",
0 M! X3 x5 V, X5 V% O RowBox[{"CM", "[",
9 W/ N, j! ~# E RowBox[{"38", ",", "4"}], "]"}], ",", % y" Z' v ~- X. x
RowBox[{"CM", "[",
. Y% a4 }+ F& Q* S* P' c( @# F RowBox[{"38", ",", "5"}], "]"}], ",",
$ e. j; I% i3 L5 q! q7 r+ r& t RowBox[{"CM", "[", , K: N/ W$ G( [
RowBox[{"38", ",", "6"}], "]"}], ",",
6 E# y' p) u4 m0 S* f RowBox[{"CM", "[", 7 k5 g5 X" m6 n* A7 M: i7 {
RowBox[{"38", ",", "7"}], "]"}], ",",
+ \7 g+ @/ V. P( [7 T$ F0 u* H RowBox[{"CM", "[",
. E9 H3 P: g G- g- f: |+ G9 x7 v RowBox[{"38", ",", "8"}], "]"}], ",",
" I7 z4 T$ p" p" a6 r) Z RowBox[{"CM", "[",
( p& Q/ L) M0 L" [7 f0 K1 y) @ RowBox[{"38", ",", "9"}], "]"}]}], "}"}], ",", % R2 v* ?9 c( r5 h. g" _/ ^' ]
RowBox[{"{", . }; ]- ~7 u1 ^
RowBox[{
. d0 L0 t- _ u& s; J* g RowBox[{"CM", "[", # S3 @6 o" k( @+ t- m
RowBox[{"39", ",", "1"}], "]"}], ",",
+ W1 t& ?2 D; X6 i+ Q' b RowBox[{"CM", "[", ~9 r ?2 A- z* \3 D+ f/ y! Z2 _
RowBox[{"39", ",", "2"}], "]"}], ",",
Z4 v# ^* k$ u- o% ]8 n RowBox[{"CM", "[",
4 b6 g2 Y* ^( \2 n5 U RowBox[{"39", ",", "3"}], "]"}], ",", & F. g# X# d6 c6 ^
RowBox[{"CM", "[", ; Z4 T9 c3 V4 H" q$ a( D& q
RowBox[{"39", ",", "4"}], "]"}], ",", - [) R+ _! S/ S) y/ b" d
RowBox[{"CM", "[", 5 M; O- D$ V. A; L5 ~, i+ e! c
RowBox[{"39", ",", "5"}], "]"}], ",",
2 @+ l, @) t/ i5 p RowBox[{"CM", "[",
1 v2 g' X! ^: P6 A& I RowBox[{"39", ",", "6"}], "]"}], ",", $ d5 ?& q( z( |) o2 E! U, Q) g0 Y) `
RowBox[{"CM", "[", * W/ {9 R: { |; q' R
RowBox[{"39", ",", "7"}], "]"}], ",", ; J) F# x1 E$ d, P2 O3 W
RowBox[{"CM", "[", `5 |8 M4 d* _. g
RowBox[{"39", ",", "8"}], "]"}], ",",
# V/ n7 U% D3 v: Z4 q3 C7 l& z" | RowBox[{"CM", "[", 3 I# J0 R8 o$ p6 a. M+ g( N# y
RowBox[{"39", ",", "9"}], "]"}]}], "}"}], ",",
* ~6 k L- N/ _" P+ L RowBox[{"{",
: I' \: }% K2 }) J6 d+ @) w% L# C4 C RowBox[{) V4 x+ D# X( v0 V
RowBox[{"CM", "[", % R/ ~) d4 s) s2 f5 H5 C
RowBox[{"40", ",", "1"}], "]"}], ",", * ]+ Z( N2 M- y x+ M4 p8 w
RowBox[{"CM", "[",
; O4 H' n( p1 d# f. E& e( Z RowBox[{"40", ",", "2"}], "]"}], ",",
" d+ D" Q/ F9 e# U9 L RowBox[{"CM", "[", 1 ]. H' W7 h v3 Z: A
RowBox[{"40", ",", "3"}], "]"}], ",", 6 e) J5 j* {0 }- c. [7 {0 L
RowBox[{"CM", "[", - a! c* |. @# X# m# n7 s9 T% `
RowBox[{"40", ",", "4"}], "]"}], ",",
' c8 G) Y! T4 d/ c8 S7 y! Y RowBox[{"CM", "[",
) C3 a. P. S x/ P. F RowBox[{"40", ",", "5"}], "]"}], ",",
1 C! F; e, q$ N2 @$ ~/ Q RowBox[{"CM", "[", 7 V" q% w3 [5 Y% Q v
RowBox[{"40", ",", "6"}], "]"}], ",", 6 E% H7 O3 f# R
RowBox[{"CM", "[",
" n% {7 X& S+ x( n RowBox[{"40", ",", "7"}], "]"}], ",", , c- O i- q/ o* h
RowBox[{"CM", "[",
- ~ {: a2 w. j5 q1 o* ]% I RowBox[{"40", ",", "8"}], "]"}], ",", : ?5 }$ M1 J4 t. ?
RowBox[{"CM", "[", 5 c; N8 f. X& v, J8 N+ X. ^! q
RowBox[{"40", ",", "9"}], "]"}]}], "}"}], ",", A5 T4 s# A% K. f) X2 i* Q
RowBox[{"{", 8 J; h z1 Y; K+ ]) n6 \
RowBox[{
! x5 j2 S. I6 @. d+ B$ A RowBox[{"CM", "[",
; x% d+ n1 o8 f2 h! h$ X RowBox[{"41", ",", "1"}], "]"}], ",",
: Q9 L' b% n, o& S" K$ F7 [+ T RowBox[{"CM", "[", & S* t1 Y- t6 h2 g0 r" [% Z
RowBox[{"41", ",", "2"}], "]"}], ",", F8 `, P& Y) r9 ]4 j5 {+ K
RowBox[{"CM", "[",
; \% E* S" T2 a' ? RowBox[{"41", ",", "3"}], "]"}], ",", 1 m2 r3 Y; w/ @' x- W% L
RowBox[{"CM", "[",
2 m: r7 U) A, x8 q) [ RowBox[{"41", ",", "4"}], "]"}], ",", ! ~8 ~; D0 V9 N6 `9 y+ u7 w
RowBox[{"CM", "[",
2 d2 }! n7 Z7 J: ?' l) V RowBox[{"41", ",", "5"}], "]"}], ",", # N* ~. f* Q2 c o# |) ?
RowBox[{"CM", "[", 5 o6 \4 @ |" \* B* V
RowBox[{"41", ",", "6"}], "]"}], ",", 9 p; [* N! R# J0 o
RowBox[{"CM", "[",
( `" C' [+ p# n, Y: e RowBox[{"41", ",", "7"}], "]"}], ",",
, k1 P2 r7 ?+ p2 Z* O* Y RowBox[{"CM", "[", K0 ]4 O- k, I" _
RowBox[{"41", ",", "8"}], "]"}], ",",
: e6 U% d, a1 B2 Z7 n d RowBox[{"CM", "[",
/ e. A' B7 N* {, d% m/ N RowBox[{"41", ",", "9"}], "]"}]}], "}"}], ",",
4 j, a4 d8 P' D' R RowBox[{"{",
. @6 U! k0 ^9 {5 ]# H RowBox[{
, R( J0 }4 v D6 \* v5 e( ` RowBox[{"CM", "[",
; [; b- H- j Y% ]! m" v RowBox[{"42", ",", "1"}], "]"}], ",", ' ?, p( l7 M! V! q
RowBox[{"CM", "[",
2 T3 Z7 P# T8 H2 y- X RowBox[{"42", ",", "2"}], "]"}], ",", 9 b5 L- E Z6 a$ ^7 E
RowBox[{"CM", "[", & L7 K+ |( R8 N& W& {! ]( u
RowBox[{"42", ",", "3"}], "]"}], ",",
8 V* ?$ E2 S2 c8 q' q8 f0 H1 o RowBox[{"CM", "[",
5 O9 w5 H9 m! o2 p% m RowBox[{"42", ",", "4"}], "]"}], ",", # s. {% p; x/ f& r8 F+ ?6 a7 s* f0 J* `
RowBox[{"CM", "[",
6 G; X/ b5 v4 N0 Z RowBox[{"42", ",", "5"}], "]"}], ",", 3 Z6 n9 r: t4 N' a
RowBox[{"CM", "[",
- T, ^2 g+ @+ `. j% H RowBox[{"42", ",", "6"}], "]"}], ",",
; A+ s, U1 I5 ~ RowBox[{"CM", "[", 1 m: [, ` K' ~: `& c
RowBox[{"42", ",", "7"}], "]"}], ",",
" q/ Q, e1 N9 _ RowBox[{"CM", "[",
4 T5 H' M, u# m3 ?1 _$ H RowBox[{"42", ",", "8"}], "]"}], ",",
/ n$ Y% x: ^% ?/ c/ S2 { RowBox[{"CM", "[", 6 R' {# o$ ]7 \
RowBox[{"42", ",", "9"}], "]"}]}], "}"}], ",", ( R7 _! h+ |" M, O0 o' k
RowBox[{"{",
% j0 C/ U( |' \! H6 C0 s4 H. R+ S RowBox[{
9 b0 G4 A* v6 x% `! ^3 q RowBox[{"CM", "[",
' U( `3 R8 p: r# s; J- v6 g RowBox[{"43", ",", "1"}], "]"}], ",",
8 Z) n6 m5 V' s/ U) j' b RowBox[{"CM", "[",
& z+ e9 X$ Q' e: r6 k( [3 ` RowBox[{"43", ",", "2"}], "]"}], ",",
3 k- K d# m6 f7 C RowBox[{"CM", "[",
G& y: L6 S* R1 b8 [2 P* Z RowBox[{"43", ",", "3"}], "]"}], ",", / U1 Y% U7 g4 m
RowBox[{"CM", "[", . h1 h. m$ B8 S- y7 J/ b( X
RowBox[{"43", ",", "4"}], "]"}], ",", ( f, i, V( e! L3 |' z
RowBox[{"CM", "[", 1 I* N4 W/ a1 i @" k6 e7 b
RowBox[{"43", ",", "5"}], "]"}], ",",
) B8 ?3 D3 e/ n# @& f% | RowBox[{"CM", "[", o' G1 K* I( g! N$ z! [" ?- Y C9 G
RowBox[{"43", ",", "6"}], "]"}], ",",
0 ?$ ?+ k9 q: p9 y" B RowBox[{"CM", "[",
/ h1 w$ V1 V( h2 a1 K RowBox[{"43", ",", "7"}], "]"}], ",", ( ^6 P5 m" X$ i) ^
RowBox[{"CM", "[",
! _3 b/ D! p* o6 l RowBox[{"43", ",", "8"}], "]"}], ",",
, B" D; b' Q5 Z! n RowBox[{"CM", "[", % f k' y/ _7 t2 z" |4 H$ N& l' G
RowBox[{"43", ",", "9"}], "]"}]}], "}"}], ",", 2 Q- h: _3 D! y! \, d0 e
RowBox[{"{", 3 @0 I( _8 x7 Y% R) e6 X7 i
RowBox[{
: z/ m7 F( N5 e1 { RowBox[{"CM", "[",
) I6 w6 i9 ~2 @4 x/ ?2 ~ RowBox[{"44", ",", "1"}], "]"}], ",",
0 S+ H+ X* e3 S3 n$ I RowBox[{"CM", "[", 9 D* E8 p: G w
RowBox[{"44", ",", "2"}], "]"}], ",", & g1 ~% ]; D6 W2 v/ M) d
RowBox[{"CM", "[", 8 W7 s& e2 {( o2 b; O; @
RowBox[{"44", ",", "3"}], "]"}], ",", ; t6 U& V& g* I- H
RowBox[{"CM", "[", 1 P @( j. y. C$ A" p" d0 ~/ `
RowBox[{"44", ",", "4"}], "]"}], ",",
( p, n0 x* L9 D. G6 W RowBox[{"CM", "[", $ ]" ^5 u: _$ _( J/ C: A
RowBox[{"44", ",", "5"}], "]"}], ",",
* n6 g$ {7 L6 l3 ^ RowBox[{"CM", "[", 3 @( s+ R+ P: g' D4 q' H# x
RowBox[{"44", ",", "6"}], "]"}], ",", 4 d4 G1 J. c& C2 v) o0 q, ]
RowBox[{"CM", "[",
. E k6 W- X. c7 m9 T% E RowBox[{"44", ",", "7"}], "]"}], ",", C p6 n% m- L. X
RowBox[{"CM", "[", $ ?! Y! k6 O7 M2 s9 Y
RowBox[{"44", ",", "8"}], "]"}], ",",
% Y1 b! H [ X+ J2 }, f8 t RowBox[{"CM", "[", ; F/ I3 {' D+ H* t4 p: t
RowBox[{"44", ",", "9"}], "]"}]}], "}"}], ",", 9 ~& |3 ? M0 z
RowBox[{"{",
1 o; D! N/ y, a6 b7 K+ x RowBox[{3 o$ r0 S) z) [6 z5 l- ~7 y
RowBox[{"CM", "[",
# @7 t' p0 u& N: D1 v RowBox[{"45", ",", "1"}], "]"}], ",",
/ r" ~+ r6 n: h/ @' G: r RowBox[{"CM", "[",
6 V- H7 M, i" H/ A3 o2 r8 P# f RowBox[{"45", ",", "2"}], "]"}], ",", . f" o( d3 x0 k
RowBox[{"CM", "[", , W3 k' m% n8 F4 h2 |8 S# i8 ?6 Y+ e d
RowBox[{"45", ",", "3"}], "]"}], ",", c: f5 j7 a( V9 Q- }$ c6 @
RowBox[{"CM", "[", & c$ }- I4 T; _
RowBox[{"45", ",", "4"}], "]"}], ",",
6 Z5 C" Z3 p1 [+ T# f RowBox[{"CM", "[", 9 b/ _( p2 ~* y$ l6 g5 D
RowBox[{"45", ",", "5"}], "]"}], ",",
9 M3 g9 \) K( O$ |7 ^: v! y7 \ RowBox[{"CM", "[",
2 K3 T' i8 Q o% ^6 Z. b4 Y4 a RowBox[{"45", ",", "6"}], "]"}], ",",
# r" z/ L9 K7 E' I& y7 t' W* J RowBox[{"CM", "[", ) L1 S9 S( o* y" m- t+ {8 B: Q
RowBox[{"45", ",", "7"}], "]"}], ",", " t. l6 a7 f9 X
RowBox[{"CM", "[", % s! F' h2 J" g
RowBox[{"45", ",", "8"}], "]"}], ",",
# D. @6 x: t! B' _; A RowBox[{"CM", "[",
! u+ T1 m1 g4 H& t% ^' H" @" y RowBox[{"45", ",", "9"}], "]"}]}], "}"}], ",", 9 r$ i7 L2 p5 [, p
RowBox[{"{", . K) L# V; f' x, h
RowBox[{
( l6 x/ q2 i0 O! X9 H! q6 i5 a4 y1 M* ^ RowBox[{"CM", "[",
2 x- i3 l9 m% K5 p: E3 [0 t RowBox[{"46", ",", "1"}], "]"}], ",",
1 J. T) A5 Y" V- \ RowBox[{"CM", "[",
d3 |7 [" r- Y; `% @ RowBox[{"46", ",", "2"}], "]"}], ",",
/ r( W: I$ K2 n5 o. X# H RowBox[{"CM", "[", / r( S! o: E3 \0 a, r
RowBox[{"46", ",", "3"}], "]"}], ",",
# W0 C, H4 Q6 V' c5 D: b RowBox[{"CM", "[", , s' J4 ~" `% ^5 P; q
RowBox[{"46", ",", "4"}], "]"}], ",", 7 ] x) C9 ?4 L" d) c& z
RowBox[{"CM", "[", 2 ~" X( B5 K& {9 C6 y) r7 Q
RowBox[{"46", ",", "5"}], "]"}], ",", ; p. j& {6 D& V; x5 ~
RowBox[{"CM", "[",
, L6 O" u+ x; i1 |# s RowBox[{"46", ",", "6"}], "]"}], ",",
& d9 T D ~$ i0 x. B4 k RowBox[{"CM", "[", 0 Q& d( a% {+ _" E8 X' R$ G- A
RowBox[{"46", ",", "7"}], "]"}], ",",
4 {' z" c2 u# \: g/ [' c0 ?' f& x RowBox[{"CM", "[",
0 T. E3 e) L, _" ^! W* s RowBox[{"46", ",", "8"}], "]"}], ",", " l6 f! H$ C) b0 B% e: c5 D7 x
RowBox[{"CM", "[",
1 l" m9 s' t7 t2 ?) j% ^6 n RowBox[{"46", ",", "9"}], "]"}]}], "}"}], ",", / E9 I4 o% T1 v5 h
RowBox[{"{",
) q' o- c& H& U RowBox[{, u' @2 \- `" M( I7 [2 ]1 B0 x
RowBox[{"CM", "[", 3 @3 T; y' u G4 V$ Y+ B
RowBox[{"47", ",", "1"}], "]"}], ",",
. k7 x2 U; Q8 T1 T& ]; |* r5 w7 Q5 \ RowBox[{"CM", "[",
* ?% G' N/ P6 K- S, J& S RowBox[{"47", ",", "2"}], "]"}], ",",
) j+ p: B5 b( b6 F RowBox[{"CM", "[", # d G: u5 R3 r; j, V0 V9 q: H
RowBox[{"47", ",", "3"}], "]"}], ",", ( l4 ~$ @' j+ L
RowBox[{"CM", "[",
" `7 Y8 |! F8 ~9 L/ s3 P RowBox[{"47", ",", "4"}], "]"}], ",", % j2 u+ h, A7 b+ l/ Q0 T
RowBox[{"CM", "[", , t2 \1 ~) y1 ]% P% n
RowBox[{"47", ",", "5"}], "]"}], ",",
* W ?0 [! R t' }: q. V9 {( C RowBox[{"CM", "[", 0 L$ X' l4 p: i3 S0 k3 k( D- F. C
RowBox[{"47", ",", "6"}], "]"}], ",", ; u2 B& d& r# x' b# i. o
RowBox[{"CM", "[", . _1 Z Y9 e% g6 Q/ r
RowBox[{"47", ",", "7"}], "]"}], ",", 1 \' n( B8 e2 d) ?, l; K! C
RowBox[{"CM", "[",
7 W# h- |( m7 ^+ d0 l2 G RowBox[{"47", ",", "8"}], "]"}], ",", 1 u1 x' [ ?$ K* ^' N
RowBox[{"CM", "[",
% T4 [+ M6 q e3 u% | RowBox[{"47", ",", "9"}], "]"}]}], "}"}], ",",
8 i- r( X3 y" m# K RowBox[{"{",
: V7 K- p d) _, b( e k! u' N RowBox[{+ e+ z) ]( H" R8 E9 v
RowBox[{"CM", "[",
; n" ?4 L0 N, {" V6 j5 j) m. _1 | RowBox[{"48", ",", "1"}], "]"}], ",", 5 Y# j; ]5 B+ ~; @
RowBox[{"CM", "[",
+ }6 p4 c, i) w0 ~ RowBox[{"48", ",", "2"}], "]"}], ",", & p+ s* A v! t& g% E) z9 A# o
RowBox[{"CM", "[", # x, W/ F$ ]. Q1 Z( a3 q. l) k
RowBox[{"48", ",", "3"}], "]"}], ",",
8 |# @6 v8 f* g1 a: {* I/ g2 u RowBox[{"CM", "[", 3 R) n& t! t9 Y; y! g- p
RowBox[{"48", ",", "4"}], "]"}], ",",
- f, h) b% P6 o/ L RowBox[{"CM", "[", 1 D3 K/ q G0 G' l* S2 n; a% S. b
RowBox[{"48", ",", "5"}], "]"}], ",", 4 ~5 k N, _8 I1 u
RowBox[{"CM", "[",
- C0 Z) j l, n7 |4 k RowBox[{"48", ",", "6"}], "]"}], ",",
" F9 ?6 H' v' `& W4 [ RowBox[{"CM", "[", 9 D% H1 {2 \* v/ }* C) }
RowBox[{"48", ",", "7"}], "]"}], ",",
; _. R: C! v0 ?* m- \% c RowBox[{"CM", "[",
6 j/ `. u3 s* H( a* B Y+ z RowBox[{"48", ",", "8"}], "]"}], ",", # n7 |! i3 w" ]' K" n" s
RowBox[{"CM", "[",
% x- V& h, ]! u+ l+ K RowBox[{"48", ",", "9"}], "]"}]}], "}"}], ",", ( U/ P8 Q3 j9 d. ~) p8 B! O
RowBox[{"{", - ~/ N' @ O0 _& e" ]. s
RowBox[{
# a) s6 q. E i+ F7 Y" G) S1 e! Y! c RowBox[{"CM", "[", + U5 u9 v/ k7 c/ q: M
RowBox[{"49", ",", "1"}], "]"}], ",", 2 K) f% }& l% P; W5 @9 X7 w) r
RowBox[{"CM", "[",
. w4 E Y; l5 B( J9 g5 E' a* k8 ] RowBox[{"49", ",", "2"}], "]"}], ",", 9 g9 `0 }0 ~% ]6 ^4 c
RowBox[{"CM", "[", : @, E/ `5 a: r+ `' _
RowBox[{"49", ",", "3"}], "]"}], ",", ; S, a! @+ M) U
RowBox[{"CM", "[",
! q8 B2 h2 x# X: R3 Z, |) A; V" d( q RowBox[{"49", ",", "4"}], "]"}], ",",
0 h+ {8 _* t3 E( p% r& e RowBox[{"CM", "[",
" F5 u. O5 g: t+ a% b* N! u7 h RowBox[{"49", ",", "5"}], "]"}], ",", r p1 y! J8 a% ^& ^9 n
RowBox[{"CM", "[", ! t4 R( n( B% |: x% ~' T- U
RowBox[{"49", ",", "6"}], "]"}], ",",
+ A$ c6 Y; y' ?* v; s9 @2 n } RowBox[{"CM", "[", & k2 q- R2 U0 Z5 c9 N) |7 t
RowBox[{"49", ",", "7"}], "]"}], ",",
; h* W8 L2 b! X: i S+ f% l RowBox[{"CM", "[",
{' o6 N% w1 L& S& a; e2 s RowBox[{"49", ",", "8"}], "]"}], ",",
8 `9 ~; m( c, q; k' F RowBox[{"CM", "[", , ~; K0 |- z- b( W: R4 Z
RowBox[{"49", ",", "9"}], "]"}]}], "}"}], ",", 4 ]$ F& O, b& g2 E. i8 K/ k
RowBox[{"{", + c$ }; t( h; G! p3 l
RowBox[{& J5 r& Z% M& x W+ k; p7 x' R
RowBox[{"CM", "[", # h y* a$ g G0 v! Z1 r/ m$ {
RowBox[{"50", ",", "1"}], "]"}], ",",
7 p G' P. A) y RowBox[{"CM", "[", ' J9 M( U6 S$ I5 e
RowBox[{"50", ",", "2"}], "]"}], ",",
1 Y" B0 z6 t& ]+ s& j* r, Q RowBox[{"CM", "[", - k$ H, I6 ~& {( }( z, f
RowBox[{"50", ",", "3"}], "]"}], ",",
% X3 c& n6 b; R/ g3 o$ k' A1 k RowBox[{"CM", "[",
) L; G; M D$ @. L& B( q RowBox[{"50", ",", "4"}], "]"}], ",",
0 X( N' o7 Y; N RowBox[{"CM", "[",
% h' d3 Y/ H; \* J5 M RowBox[{"50", ",", "5"}], "]"}], ",",
4 X% \4 O& ?" S RowBox[{"CM", "[", $ U$ j6 h. `% F$ D+ q& E: w
RowBox[{"50", ",", "6"}], "]"}], ",", . V7 F0 I' F/ h0 \
RowBox[{"CM", "[",
) r5 ~% H2 @9 R RowBox[{"50", ",", "7"}], "]"}], ",", & d$ r/ K2 A) B6 v
RowBox[{"CM", "[",
; k1 P; u$ Q9 R+ L, S$ _# m RowBox[{"50", ",", "8"}], "]"}], ",",
" X, M# Y3 `9 ^0 Q1 K RowBox[{"CM", "[",
# F3 ~; L2 e, `' X% c7 d RowBox[{"50", ",", "9"}], "]"}]}], "}"}], ",", $ ~9 T$ M" l2 I9 H8 _
RowBox[{"{",
5 _6 U- t# c+ r* m ~ RowBox[{4 `9 F! [, P7 Y0 z, N6 T% X
RowBox[{"CM", "[", , u) A% q; E7 }
RowBox[{"51", ",", "1"}], "]"}], ",", 4 Z+ l& g2 o& n# f
RowBox[{"CM", "[", 6 c) z& m$ u+ g! R7 l7 X! C
RowBox[{"51", ",", "2"}], "]"}], ",", 5 w; e& X) E* f/ p
RowBox[{"CM", "[", * f& H' W1 f/ B3 W
RowBox[{"51", ",", "3"}], "]"}], ",",
9 }+ d0 Z% V$ S4 K& j RowBox[{"CM", "[", * M1 k0 D z' Y& o( _4 E
RowBox[{"51", ",", "4"}], "]"}], ",", 9 R% H2 N6 S7 n! r& ~# ~
RowBox[{"CM", "[",
5 O' i! ~0 r7 p( M4 T4 H RowBox[{"51", ",", "5"}], "]"}], ",", 7 p+ v. ~) `! y7 C2 T
RowBox[{"CM", "[",
3 @$ k6 ?) X7 P% |" l; y5 { RowBox[{"51", ",", "6"}], "]"}], ",",
& l' t3 a- ]% ^5 @( K( I8 i- u0 v RowBox[{"CM", "[",
4 g9 p) H( K" E8 o9 E' b RowBox[{"51", ",", "7"}], "]"}], ",",
- B7 x) ~2 k: |) |8 A+ l RowBox[{"CM", "[", ; @2 P$ g5 K" Q
RowBox[{"51", ",", "8"}], "]"}], ",", 7 g' ]8 X# ?# M2 M* i
RowBox[{"CM", "[", ' t, w8 W) b# P: ~9 l' ]; Q, j E) g
RowBox[{"51", ",", "9"}], "]"}]}], "}"}], ",", 1 J7 G: b) o) H2 U# D1 o5 ?
RowBox[{"{", : p* Q+ C( }4 K8 Y6 ]6 h4 G
RowBox[{
2 |1 R; @; P5 d4 F6 L+ O RowBox[{"CM", "[",
7 _3 Q. J' ^# L RowBox[{"52", ",", "1"}], "]"}], ",", 4 |7 |2 E5 X/ b& b9 ?0 [& Y3 {
RowBox[{"CM", "[", 9 C* M& y0 G5 w2 v$ {6 c
RowBox[{"52", ",", "2"}], "]"}], ",",
$ h5 N& S; I% N S RowBox[{"CM", "[",
/ N8 |3 G4 {+ @3 W9 ~4 ` RowBox[{"52", ",", "3"}], "]"}], ",",
' |+ e C5 [* G r2 H r9 } RowBox[{"CM", "[", 5 Q9 n5 [$ W' L0 s8 w1 o
RowBox[{"52", ",", "4"}], "]"}], ",",
( h5 i* \0 ]% C$ f RowBox[{"CM", "[", , v( `+ d' g5 o' Q# N& U
RowBox[{"52", ",", "5"}], "]"}], ",",
, ` `: |# j# F1 {& M2 A RowBox[{"CM", "[",
q# i+ x6 b2 Z$ \ RowBox[{"52", ",", "6"}], "]"}], ",", 9 l6 v; }) l$ h2 q& H
RowBox[{"CM", "[",
, I( r" \- h1 _& G- A8 u RowBox[{"52", ",", "7"}], "]"}], ",",
* N# y" A) n7 p RowBox[{"CM", "[", + w4 }, K O- x5 W& q3 R
RowBox[{"52", ",", "8"}], "]"}], ",", * Q+ O" T; q7 h5 A" f" n
RowBox[{"CM", "[",
+ _9 n9 r9 v0 S: P" l; y RowBox[{"52", ",", "9"}], "]"}]}], "}"}], ",",
1 a3 x/ f7 D1 y" N1 v1 X" @ RowBox[{"{", 9 ?1 H4 R3 v" k, N; U+ R$ [- P
RowBox[{
# J: E$ m( p, I RowBox[{"CM", "[",
* Z4 k8 s4 z+ L5 S* B2 M( Q% D RowBox[{"53", ",", "1"}], "]"}], ",", / w& R1 c; F! B6 Y# s
RowBox[{"CM", "[",
) K. S v& C1 k& W/ o) o RowBox[{"53", ",", "2"}], "]"}], ",",
- U- n) O6 b0 Z: Y RowBox[{"CM", "[", " X; \! r8 f- o* z. Z4 Z# c- t# R
RowBox[{"53", ",", "3"}], "]"}], ",", 7 S, o/ {2 G9 e4 |8 M/ g. g& C
RowBox[{"CM", "[",
8 M A4 a. }( C% |- k$ g' Q RowBox[{"53", ",", "4"}], "]"}], ",", % d6 j6 X _! M# K+ i# f
RowBox[{"CM", "[",
e0 R( |3 v- s: D RowBox[{"53", ",", "5"}], "]"}], ",", / d( }4 p* W% w# A0 Z
RowBox[{"CM", "[", / I( e1 X( P* @+ q! k; r0 [
RowBox[{"53", ",", "6"}], "]"}], ",", ( ^) v9 t1 i; `7 b
RowBox[{"CM", "[", 7 l9 K, T) i; i
RowBox[{"53", ",", "7"}], "]"}], ",",
/ O% |; C$ ~! B! X RowBox[{"CM", "[", 0 p# X0 b+ L5 {3 t9 X
RowBox[{"53", ",", "8"}], "]"}], ",", 0 I1 o& ^7 x8 H3 ^; A5 k& R
RowBox[{"CM", "[",
1 G2 ^- e# D8 k RowBox[{"53", ",", "9"}], "]"}]}], "}"}], ",", 2 [% G# S8 g& s. n
RowBox[{"{", . O* z9 y2 ?& c5 q
RowBox[{
' ?1 E7 w- H2 H: a/ l0 s RowBox[{"CM", "[", 7 b% x8 t+ I: e- ?0 [
RowBox[{"54", ",", "1"}], "]"}], ",", 3 F. w. o. ^" l5 ~
RowBox[{"CM", "[", 7 u1 P* {* G: Z+ o1 ^; ~% K+ l
RowBox[{"54", ",", "2"}], "]"}], ",", 6 ^6 \7 E: F) f: \& g' g# d
RowBox[{"CM", "[", 4 k. F+ C3 [( C W0 j H; X' ^
RowBox[{"54", ",", "3"}], "]"}], ",",
- H" k0 q- g2 j. ?1 J* k RowBox[{"CM", "[", 2 k% ^! O7 y; @. Z; Z* [5 Q5 O
RowBox[{"54", ",", "4"}], "]"}], ",", 6 e$ d, q; v% g1 h
RowBox[{"CM", "[",
# C3 X4 v+ K, v2 @% D1 B% D# i RowBox[{"54", ",", "5"}], "]"}], ",",
" F; K; u8 t3 w. d( T* A RowBox[{"CM", "[", 7 l8 a/ l5 M% O* y- E" J
RowBox[{"54", ",", "6"}], "]"}], ",",
- J) g9 ^( y+ r7 t. h RowBox[{"CM", "[",
. u- K9 G" t! ` RowBox[{"54", ",", "7"}], "]"}], ",", V$ i( v% w- a7 |. o* I
RowBox[{"CM", "[",
7 m& u# x L5 G3 w3 X RowBox[{"54", ",", "8"}], "]"}], ",", , Q9 P$ B. U/ Z+ v3 B5 v! k7 g0 ]
RowBox[{"CM", "[",
' c+ ~, D g9 U# \( C# M RowBox[{"54", ",", "9"}], "]"}]}], "}"}], ",",
' b9 w1 {* z# A$ u: T- \ RowBox[{"{", 4 E# N0 \& \# E* i; V3 a. W
RowBox[{9 ~: ?: d7 F7 D0 N7 n* ]$ z* R
RowBox[{"CM", "[",
: E, W3 c4 M7 d RowBox[{"55", ",", "1"}], "]"}], ",",
4 o7 P9 d1 _/ X7 ^: n6 ^8 G) t+ I: ] RowBox[{"CM", "[",
8 Q% d; Z1 a7 o. J3 s4 a/ U RowBox[{"55", ",", "2"}], "]"}], ",",
: x! X# T5 Y1 k3 N; G; U- b RowBox[{"CM", "[", 8 {$ d i2 Z/ r
RowBox[{"55", ",", "3"}], "]"}], ",",
# w+ }( V+ P5 t" m RowBox[{"CM", "[", ) |( s, l# Y0 T+ m
RowBox[{"55", ",", "4"}], "]"}], ",", * \$ _- O/ M$ \; F( d
RowBox[{"CM", "[",
" y% X/ h; X7 a$ `; H, ~ RowBox[{"55", ",", "5"}], "]"}], ",", 4 g: E- s7 ?* t* W1 O* R
RowBox[{"CM", "[", ^1 u+ R g& B- ]) k i% w
RowBox[{"55", ",", "6"}], "]"}], ",",
3 _" c. V$ j( v* N RowBox[{"CM", "[", 3 A: Q6 K( D8 O$ n
RowBox[{"55", ",", "7"}], "]"}], ",", ; t i% f3 Z+ f, |7 H7 v
RowBox[{"CM", "[", ) L5 u1 D5 m0 r" O+ U( A& H
RowBox[{"55", ",", "8"}], "]"}], ",", * b' \* m7 Q) Q9 a6 m- ]$ w% L
RowBox[{"CM", "[", ) |+ B1 b0 p+ D
RowBox[{"55", ",", "9"}], "]"}]}], "}"}], ",",
( C; j/ X d/ d+ B" L1 n& _ RowBox[{"{",
$ j1 J* I, u4 w# D! ~. _ RowBox[{
, t0 f: P$ l5 E- v0 H2 U% x8 y RowBox[{"CM", "[",
" l4 k( R: c Y6 Z4 b( A RowBox[{"56", ",", "1"}], "]"}], ",",
& ]# Z- f$ G: C; _( J4 L RowBox[{"CM", "[", . G. a9 @8 d+ a# F3 ~6 K4 L# G
RowBox[{"56", ",", "2"}], "]"}], ",",
2 G3 J* G5 L: }4 ~3 C+ R0 _% v RowBox[{"CM", "[",
) j: v7 t; D) w' _$ i+ t RowBox[{"56", ",", "3"}], "]"}], ",",
: y8 q' Y/ @2 N RowBox[{"CM", "[", 3 B. N& P8 f! {# L2 \2 O
RowBox[{"56", ",", "4"}], "]"}], ",",
4 f/ q% R3 ^# f- B% R6 m RowBox[{"CM", "[",
* |5 K8 ~6 x- b5 ]: d4 m: @" L" r- l8 e- } RowBox[{"56", ",", "5"}], "]"}], ",", : z4 O! w/ @, C" g" F
RowBox[{"CM", "[",
3 B; K* |2 w' b4 o RowBox[{"56", ",", "6"}], "]"}], ",",
- I: `: p* b3 e( f S. Q' M RowBox[{"CM", "[",
# P. n z/ `! E; Z; ? RowBox[{"56", ",", "7"}], "]"}], ",",
- N$ o$ u- z- \, d; D/ r0 p RowBox[{"CM", "[", 1 _+ N2 E3 B, m3 t$ ~- a8 H5 f
RowBox[{"56", ",", "8"}], "]"}], ",", ) i* X* }6 y) ~& H* Y. B r! p# m
RowBox[{"CM", "[", / g2 S q3 w4 N1 e5 ]- h4 Q
RowBox[{"56", ",", "9"}], "]"}]}], "}"}], ",", - ?1 ], o4 T4 U0 D k" A
RowBox[{"{",
( a- q; H0 M$ d2 F$ P RowBox[{! `7 h6 \# ]. a6 d/ [$ x% y
RowBox[{"CM", "[",
2 P) h2 l# O( i( M9 K2 T6 c v RowBox[{"57", ",", "1"}], "]"}], ",", , `( L3 o% g6 o! [- [- @6 `1 d
RowBox[{"CM", "[", 4 F( O# c B4 r' c; [. m
RowBox[{"57", ",", "2"}], "]"}], ",",
4 @. ?: g6 ]) a RowBox[{"CM", "[",
8 ?# n3 Z( I ` RowBox[{"57", ",", "3"}], "]"}], ",", - d+ I+ V' Y. I. x+ G' b0 M+ c
RowBox[{"CM", "[",
: y& m; I% M2 X: Y7 C% }+ L RowBox[{"57", ",", "4"}], "]"}], ",", 9 x) P6 e% S5 R! p% ~9 |; J+ o4 s# c
RowBox[{"CM", "[", 9 d$ I# H) C& C/ [
RowBox[{"57", ",", "5"}], "]"}], ",",
4 [8 S+ M0 F; G) H RowBox[{"CM", "[", # {/ J- I; L0 k; s' v
RowBox[{"57", ",", "6"}], "]"}], ",",
: W3 J3 B$ m/ @" q" q/ `3 C0 B7 B RowBox[{"CM", "[", " c4 T5 k) t8 Q
RowBox[{"57", ",", "7"}], "]"}], ",", . S: J; {+ g( y4 m9 U
RowBox[{"CM", "[", ( j' S+ q0 m& i8 `; N8 u8 E3 a
RowBox[{"57", ",", "8"}], "]"}], ",",
# Z% \: L5 F" U, F RowBox[{"CM", "[",
$ z9 u# V3 |/ M" `6 ]! z9 K RowBox[{"57", ",", "9"}], "]"}]}], "}"}], ",",
7 R v, Q R$ d6 I1 L. e1 p RowBox[{"{",
8 d: U: l/ r3 d$ e! ?' K+ j# M0 } RowBox[{7 M' M9 s5 e- ~9 A- I# I% S
RowBox[{"CM", "[",
* L$ s4 A! N9 H1 d# [* }( o. j RowBox[{"58", ",", "1"}], "]"}], ",", $ x. E( n- n3 @: Z4 Q
RowBox[{"CM", "[", 9 X7 _- X6 F, u
RowBox[{"58", ",", "2"}], "]"}], ",",
F- g4 q8 B2 y! y- b( ~ RowBox[{"CM", "[", ( g7 f, H4 Q! V% K- H+ f& j) }
RowBox[{"58", ",", "3"}], "]"}], ",",
* F3 u2 g8 q+ |$ Q0 E RowBox[{"CM", "[", 2 |" v. A, ?& K
RowBox[{"58", ",", "4"}], "]"}], ",", 3 }( c* I9 B' s
RowBox[{"CM", "[",
6 W3 f& u6 }3 X* Z! Q: r RowBox[{"58", ",", "5"}], "]"}], ",", + k+ t) n; N; V3 b' }
RowBox[{"CM", "[", ! T; K, ^* e* M1 s: u6 z
RowBox[{"58", ",", "6"}], "]"}], ",",
. p1 E* ?/ n+ B$ L$ N) S RowBox[{"CM", "[", & y) @+ x7 x$ t* O6 y
RowBox[{"58", ",", "7"}], "]"}], ",", + O- s+ u3 a2 N8 `1 I* _
RowBox[{"CM", "[",
$ h6 v, Q& l/ ?) q: Y- s RowBox[{"58", ",", "8"}], "]"}], ",",
& O4 Y2 i' v/ d RowBox[{"CM", "[",
1 Z) n8 g1 C7 Q2 ~ RowBox[{"58", ",", "9"}], "]"}]}], "}"}], ",", 7 t+ H/ y- v" M; B0 _. c' e/ t
RowBox[{"{", " f# l0 W: w7 i- K6 C9 t
RowBox[{0 y" V- q6 d* |" d4 `) c
RowBox[{"CM", "[", / U8 r% A6 }* Q3 W
RowBox[{"59", ",", "1"}], "]"}], ",",
9 s: s( @: \9 k: g) Y1 |3 Z$ r RowBox[{"CM", "[",
+ }. T' g1 T# Y( I RowBox[{"59", ",", "2"}], "]"}], ",",
6 M* j7 K. a8 w! S RowBox[{"CM", "[",
- s9 D# l+ S0 M7 l7 X# g RowBox[{"59", ",", "3"}], "]"}], ",", . F: T% r7 w, L; Z& @) M# B
RowBox[{"CM", "[",
9 S9 \4 Y/ q/ f" o RowBox[{"59", ",", "4"}], "]"}], ",", ( Y4 R5 I: w% M; Y; l/ v; _# s
RowBox[{"CM", "[",
5 w# a! u/ B' ] RowBox[{"59", ",", "5"}], "]"}], ",",
, i+ N; p) f9 k2 }/ ~# I) a9 v4 Q RowBox[{"CM", "[", : i9 F- m3 p7 i) z" H9 R/ c$ e g
RowBox[{"59", ",", "6"}], "]"}], ",",
/ C) m, [7 M+ ?7 {7 z/ o z3 K8 j RowBox[{"CM", "[",
5 H: N; T8 Y3 M1 s# [5 F RowBox[{"59", ",", "7"}], "]"}], ",",
7 p% ^( ], q8 o) G4 R RowBox[{"CM", "[", + g9 A, D/ w0 F
RowBox[{"59", ",", "8"}], "]"}], ",",
! c0 @. n& J5 \1 E RowBox[{"CM", "[",
+ j# ^* w# X! s" ]' X) ?/ E( |5 F RowBox[{"59", ",", "9"}], "]"}]}], "}"}], ",",
1 c+ a/ b6 ?# j/ c, Y; F$ q RowBox[{"{", 1 [; C* m4 c6 ]+ Z& ]$ h, \
RowBox[{$ ?' ?5 r6 @& ]! A0 }
RowBox[{"CM", "[", ( f4 r5 ^, Y8 k+ Z l
RowBox[{"60", ",", "1"}], "]"}], ",", x6 o% x# s: ~* ]- r0 {5 _3 {; g
RowBox[{"CM", "[",
, F& v( O. p$ x RowBox[{"60", ",", "2"}], "]"}], ",", * `, r( L$ i4 A/ F
RowBox[{"CM", "[",
; w' o) ?. o. l' E' V0 _ RowBox[{"60", ",", "3"}], "]"}], ",",
' S' n$ L: ]$ T" ^+ d2 C RowBox[{"CM", "[",
6 u9 L& X9 h* L8 y& [2 ] RowBox[{"60", ",", "4"}], "]"}], ",",
8 I, M" D5 p( R+ }! A8 [3 x RowBox[{"CM", "[", - f* v0 b& F4 j6 `
RowBox[{"60", ",", "5"}], "]"}], ",",
/ n8 H6 w( C$ s0 C9 b RowBox[{"CM", "[",
7 H* x9 ? ~* J RowBox[{"60", ",", "6"}], "]"}], ",",
- M5 `4 D+ G" N9 e- Q# n# B RowBox[{"CM", "[", 8 s3 ^ Q8 d3 i) ~. N7 M
RowBox[{"60", ",", "7"}], "]"}], ",", ' `1 K. Z8 u$ R0 h; z
RowBox[{"CM", "[", 3 B5 p7 s, u- [/ N# v2 w' \" \& P
RowBox[{"60", ",", "8"}], "]"}], ",",
2 \5 a6 ]. ^& u* a8 y' q! B% g RowBox[{"CM", "[",
" S7 U7 _+ X/ r- I4 y RowBox[{"60", ",", "9"}], "]"}]}], "}"}], ",", * O: i; S2 z% t7 o
RowBox[{"{",
9 w9 }# I5 `" {% R; H RowBox[{
) i9 w: Q( c8 ~ Y( | o. D# o RowBox[{"CM", "[",
6 Y' O5 {+ H% _ RowBox[{"61", ",", "1"}], "]"}], ",",
0 q' \" V% x& C9 t6 t RowBox[{"CM", "[",
: a% z6 P& \4 r, g7 {& } RowBox[{"61", ",", "2"}], "]"}], ",", 5 ~, u k' ^) B: O
RowBox[{"CM", "[",
% f7 H" b' J! L; k) x5 Q# ]5 x RowBox[{"61", ",", "3"}], "]"}], ",", / O, h* I0 ?+ F
RowBox[{"CM", "[",
0 k( |& B* x# ]& }$ T! O RowBox[{"61", ",", "4"}], "]"}], ",", : o5 H+ r! N. Z: _$ P
RowBox[{"CM", "[", # Z9 Q' Z: c0 F
RowBox[{"61", ",", "5"}], "]"}], ",", $ i2 @* ]% m2 a* l! M
RowBox[{"CM", "[", - R3 y& K* B( ^0 f7 B8 U2 z
RowBox[{"61", ",", "6"}], "]"}], ",",
" `) e& X, p z- d RowBox[{"CM", "[", # I9 Y) S0 @$ L3 ?3 l
RowBox[{"61", ",", "7"}], "]"}], ",",
! y! Q0 Q( D+ d% i RowBox[{"CM", "[",
3 H& g6 p/ v X. w/ L* G. x. Q- y RowBox[{"61", ",", "8"}], "]"}], ",",
7 T8 l/ x' I( a# w+ } RowBox[{"CM", "[", 5 q, F7 `( s4 P8 t. a( B0 Q
RowBox[{"61", ",", "9"}], "]"}]}], "}"}], ",",
2 _" y/ Y5 V; F; K RowBox[{"{", 2 p& x: v3 B6 U% g! S8 g
RowBox[{
2 `8 A6 J' o' S3 ~9 M RowBox[{"CM", "[",
8 X5 _! t: C* z3 E3 t5 Q RowBox[{"62", ",", "1"}], "]"}], ",", 4 m) N! y: v9 p# e: \6 I L4 Y' {4 |
RowBox[{"CM", "[",
" i- u$ {# I9 r. |) [0 L9 K RowBox[{"62", ",", "2"}], "]"}], ",",
. O$ v+ c% v6 l, o) O6 h$ a RowBox[{"CM", "[",
9 z9 F5 J5 ~, m% k, A; w RowBox[{"62", ",", "3"}], "]"}], ",", ( Q* E$ U- i3 T* s$ [( q7 ^
RowBox[{"CM", "[",
P- E5 S) \' Z _ RowBox[{"62", ",", "4"}], "]"}], ",", 5 I1 g; U( m' j; k; @
RowBox[{"CM", "[",
; q& G5 Q, Z% H RowBox[{"62", ",", "5"}], "]"}], ",",
* }5 k' u- X, H7 T% ~- p! \ RowBox[{"CM", "[", & U z7 |6 F% y; G! {
RowBox[{"62", ",", "6"}], "]"}], ",",
4 y9 _: b, s4 t% [' @+ @9 @ RowBox[{"CM", "[", 3 g7 V% W; U: A0 ^- \- s
RowBox[{"62", ",", "7"}], "]"}], ",", ' V0 ^4 g+ i; ^" J
RowBox[{"CM", "[",
4 |2 I- w& v+ N- r, w4 P3 W RowBox[{"62", ",", "8"}], "]"}], ",",
7 ^, j% ?$ }: v' n( F9 E p _$ z RowBox[{"CM", "[",
' d! _% I9 _& K, t$ m1 [5 L( @ RowBox[{"62", ",", "9"}], "]"}]}], "}"}], ",",
5 |. i) |3 m4 Q9 b- F( B RowBox[{"{", & D Z i+ D+ w1 l. Z, H
RowBox[{
! s' F9 P/ v$ ~2 J$ O8 w, { RowBox[{"CM", "[",
: w' I( p/ w( N) R7 l, O RowBox[{"63", ",", "1"}], "]"}], ",",
6 U& |, D4 I" G" [. J ^+ X+ r RowBox[{"CM", "[", 4 o9 g" r$ G3 K+ a; j
RowBox[{"63", ",", "2"}], "]"}], ",",
- q$ y6 N( o6 ~+ b/ B RowBox[{"CM", "[", # Q, O! k! y. U4 P$ [" c3 C7 O
RowBox[{"63", ",", "3"}], "]"}], ",", " C5 v# M: W. ~
RowBox[{"CM", "[", 8 o; N) p: F" I2 }8 S' r
RowBox[{"63", ",", "4"}], "]"}], ",",
7 e7 f2 i+ e8 _7 R! n. b+ I RowBox[{"CM", "[", + M6 Y5 ^& n% V# n/ N# W) X
RowBox[{"63", ",", "5"}], "]"}], ",", 8 i8 I8 h& h# d8 E4 G
RowBox[{"CM", "[", + ~: k9 f& t" P* p
RowBox[{"63", ",", "6"}], "]"}], ",",
; c( W6 y7 m, F. t. Z6 ? RowBox[{"CM", "[", 9 Q0 v0 x$ N) H" s
RowBox[{"63", ",", "7"}], "]"}], ",", ! s9 i4 j8 d0 J ~7 Y
RowBox[{"CM", "[",
7 N5 O' o+ r9 j RowBox[{"63", ",", "8"}], "]"}], ",", ?. ^6 A% c$ |7 g2 }& N9 y
RowBox[{"CM", "[", & O6 K" v+ T$ W/ k0 e' C5 f' \
RowBox[{"63", ",", "9"}], "]"}]}], "}"}], ",", , Q/ F2 H* ?6 M0 ~" w, |$ @
RowBox[{"{",
# W9 V; o* j) {7 ~7 r RowBox[{
4 U- P* E) h- J0 @$ ~9 T" W5 \* V RowBox[{"CM", "[", ( f0 w% w* Z0 p+ V, Z: z' |
RowBox[{"64", ",", "1"}], "]"}], ",", ' q4 P7 M' I" _; X6 o
RowBox[{"CM", "[", 9 @0 s! H0 ~- y/ _
RowBox[{"64", ",", "2"}], "]"}], ",", , d2 U2 t% E( m9 }; T+ q! \4 b
RowBox[{"CM", "[", ( {4 W3 h; a9 ]" z
RowBox[{"64", ",", "3"}], "]"}], ",", ) ~8 ]3 H4 S1 [0 m( y$ `+ @
RowBox[{"CM", "[",
0 Z0 q$ A3 Q6 n, x2 K/ p( K2 Y RowBox[{"64", ",", "4"}], "]"}], ",", + q0 R0 s7 q. F" o
RowBox[{"CM", "[", ; U1 V0 Y' L# f8 g5 j
RowBox[{"64", ",", "5"}], "]"}], ",",
. H9 ?3 k8 v: g" b RowBox[{"CM", "[", + }) |( f# z% u; A
RowBox[{"64", ",", "6"}], "]"}], ",",
! ~$ `" j" Z- q. ?6 q- d0 A RowBox[{"CM", "[",
6 G, ^* A) }3 `+ w" X8 h' R$ { RowBox[{"64", ",", "7"}], "]"}], ",", " X% J' g: q# u( L5 N) l
RowBox[{"CM", "[", / @' Y! c8 p# H4 N
RowBox[{"64", ",", "8"}], "]"}], ",", 4 j( t% K. u# p9 `& _
RowBox[{"CM", "[", ) Y* [. D: p( I- i" r
RowBox[{"64", ",", "9"}], "]"}]}], "}"}], ",", ; Y! l- G9 G& I. o, h# ^! z* V7 K
RowBox[{"{",
" Y5 M* }# D0 J$ R RowBox[{
% E0 ]7 i5 h7 Q6 k: [+ q RowBox[{"CM", "[", 9 E: x+ ^7 l. M: |7 a( S2 U
RowBox[{"65", ",", "1"}], "]"}], ",",
! n6 e: d: T. F1 j) o; J% M& L* E RowBox[{"CM", "[",
) q8 ~- Z5 H6 ?& h9 T& G RowBox[{"65", ",", "2"}], "]"}], ",", * [1 _$ m+ i ^ E
RowBox[{"CM", "[",
4 h1 s8 y. r- Q6 \- h$ Y RowBox[{"65", ",", "3"}], "]"}], ",", 1 `, ~# e3 d9 \+ u9 L, Z! N0 [+ p
RowBox[{"CM", "[", 8 I/ z4 D' J- }2 X) f2 I
RowBox[{"65", ",", "4"}], "]"}], ",",
3 A+ x; I% s; b* q RowBox[{"CM", "[", & V6 U! r8 D4 d) h) i: d) D
RowBox[{"65", ",", "5"}], "]"}], ",", - E! P. N9 a- T s! s
RowBox[{"CM", "[", 2 e( h/ D5 L7 v$ c2 H% B
RowBox[{"65", ",", "6"}], "]"}], ",", % K7 Z. _+ t* b2 U2 r7 o
RowBox[{"CM", "[", 2 c- W: `; x+ |' ]
RowBox[{"65", ",", "7"}], "]"}], ",", 2 ]. }, F0 w1 K& K/ C/ N
RowBox[{"CM", "[",
0 ~8 E$ d" L$ v; y$ _& R RowBox[{"65", ",", "8"}], "]"}], ",", 7 z* i# N( F8 p2 ]. ~* P
RowBox[{"CM", "[",
% o) U8 ]& z0 N' x) D RowBox[{"65", ",", "9"}], "]"}]}], "}"}], ",",
. W ^3 c: v0 L0 v% n& v( t RowBox[{"{", $ M R) v2 | Y4 I `
RowBox[{1 E. g q. F, o' L" X$ D* M
RowBox[{"CM", "[", # v% a+ r" B d, Y7 g/ b
RowBox[{"66", ",", "1"}], "]"}], ",", 2 S' Y4 U: ~7 B+ a
RowBox[{"CM", "[",
# ]) }9 M9 @/ S, d2 S RowBox[{"66", ",", "2"}], "]"}], ",",
& z. h8 c0 X+ k, M RowBox[{"CM", "[", # ~# W/ ?& U5 J2 E
RowBox[{"66", ",", "3"}], "]"}], ",", X8 H8 R* u& T5 V u6 m4 Y! r! d
RowBox[{"CM", "[", * }( A6 E( M& ^4 `" O, U
RowBox[{"66", ",", "4"}], "]"}], ",", + J5 h6 q$ d, p( K
RowBox[{"CM", "[", 4 x' x$ [+ r3 G
RowBox[{"66", ",", "5"}], "]"}], ",",
% R# _/ e8 C1 t5 h4 [ A6 F RowBox[{"CM", "[", , i$ O) N# T1 B* r W7 r7 d
RowBox[{"66", ",", "6"}], "]"}], ",",
|& y* q3 ]- s2 C0 q: A" ~5 R RowBox[{"CM", "[", + d' |+ `# l/ W- W; W ~; F& s2 A
RowBox[{"66", ",", "7"}], "]"}], ",",
: d7 d5 p/ B7 `3 X) E3 e+ w6 ?; \ RowBox[{"CM", "[",
. W; p4 x* \ \5 v6 i( v RowBox[{"66", ",", "8"}], "]"}], ",",
4 E: X2 m0 b; N0 m) g RowBox[{"CM", "[", ( Q9 ?1 n3 n" z) M$ D
RowBox[{"66", ",", "9"}], "]"}]}], "}"}], ",",
$ {! ]2 W' t3 P" [7 V RowBox[{"{", ; e4 p! {/ ~$ W
RowBox[{$ {$ z9 q- @' p' m0 u* _2 V
RowBox[{"CM", "[", % R$ ?( [: S. m
RowBox[{"67", ",", "1"}], "]"}], ",", 2 C; O' e7 O& N
RowBox[{"CM", "[", & g5 R3 a: v3 [5 M1 ^ f, T
RowBox[{"67", ",", "2"}], "]"}], ",",
1 H" ~8 ~3 T( G4 K% J. G) y9 p RowBox[{"CM", "[",
' h7 y( ^, U" }& z. e RowBox[{"67", ",", "3"}], "]"}], ",",
1 T+ @% W8 y' ]# d% J' X RowBox[{"CM", "[", / b$ i/ J3 S( G
RowBox[{"67", ",", "4"}], "]"}], ",", ! B( k o+ L) V& ^2 a' o S2 ]8 I
RowBox[{"CM", "[",
- L: k( y8 f% {6 S I2 \' _) F RowBox[{"67", ",", "5"}], "]"}], ",", ( ^6 {& r+ c7 U6 I. {3 b" l
RowBox[{"CM", "[", # D1 t6 H7 y( b% j- m
RowBox[{"67", ",", "6"}], "]"}], ",",
+ e+ X% Q' L. `, } RowBox[{"CM", "[", . h4 @3 h7 q. r; p; F+ U$ K: x
RowBox[{"67", ",", "7"}], "]"}], ",",
! b, c: |$ x1 i$ ^! { RowBox[{"CM", "[", 1 }( K2 `! l' U4 z8 V) a
RowBox[{"67", ",", "8"}], "]"}], ",", 7 N4 G4 t: ?6 B/ h! Z; n, J
RowBox[{"CM", "[", 3 S ?0 G6 U' p+ j# f: G8 ?* a9 z+ f
RowBox[{"67", ",", "9"}], "]"}]}], "}"}], ",",
, ?/ a6 @) o5 e' }# d) w2 j RowBox[{"{", 5 y# s3 H& i/ Z' | |5 a. W
RowBox[{
" V$ L2 @% L4 g5 m& H RowBox[{"CM", "[",
# C$ f* q! i# C! ]: {" [) ` RowBox[{"68", ",", "1"}], "]"}], ",", 3 `; W9 U3 u% c6 a1 q: H) Z+ M J
RowBox[{"CM", "[",
$ a& ]) t9 M# g* W" X RowBox[{"68", ",", "2"}], "]"}], ",", 1 y6 e- E4 P8 r# ]' |5 Z
RowBox[{"CM", "[",
4 g! z. U" L$ W o1 D RowBox[{"68", ",", "3"}], "]"}], ",", 3 Z% a5 v0 f6 @& b5 B* x# D$ q
RowBox[{"CM", "[",
4 z1 I0 Y |# \6 k" t M3 ~4 j RowBox[{"68", ",", "4"}], "]"}], ",",
+ G' `* v% Y( c0 j RowBox[{"CM", "[", 2 x' [/ j% B! s2 U; x/ V- n
RowBox[{"68", ",", "5"}], "]"}], ",",
; O$ s$ j2 A. _: I# f ^9 H RowBox[{"CM", "[", ! {/ {, R' t& Y% i& N; q! N7 E
RowBox[{"68", ",", "6"}], "]"}], ",", % C: N2 C6 j$ g6 ?: D
RowBox[{"CM", "[", % T$ J: P( f( ?1 O) z+ g
RowBox[{"68", ",", "7"}], "]"}], ",",
7 X$ V( R0 h$ f2 d+ ? RowBox[{"CM", "[", # U8 E: b3 }: Q5 V! c2 s9 _& Q
RowBox[{"68", ",", "8"}], "]"}], ",",
' L: \& H* ~ U$ ]' V* |! [7 K RowBox[{"CM", "[",
$ a$ Y% l n# N" S" _ RowBox[{"68", ",", "9"}], "]"}]}], "}"}], ",", ) A' _4 O- t4 a
RowBox[{"{", 5 T; R# `5 j( G) B/ M ^9 t5 U
RowBox[{
" O. D( X. s4 _3 V6 D- ~8 n RowBox[{"CM", "[",
W5 F: h5 X3 H4 J RowBox[{"69", ",", "1"}], "]"}], ",",
) v4 G, O8 ^, L, W- x J& y RowBox[{"CM", "[", 2 o/ x7 v! F8 f% ?3 ~- _- f
RowBox[{"69", ",", "2"}], "]"}], ",", 7 Z; }7 c, C7 Q8 d& R
RowBox[{"CM", "[",
2 f- ]! ]9 ] @ RowBox[{"69", ",", "3"}], "]"}], ",",
! V% {7 f7 l" X* i3 X RowBox[{"CM", "[",
, I# D! y0 R( B$ l6 `1 _! | RowBox[{"69", ",", "4"}], "]"}], ",",
8 o9 d* a3 O4 _4 V m& w RowBox[{"CM", "[",
" @7 ^+ h1 M0 x; S" f, \6 o) Z RowBox[{"69", ",", "5"}], "]"}], ",", ; D7 h: C, D4 Y' `5 P+ y9 W, `
RowBox[{"CM", "[", ; p. v5 k/ z. u
RowBox[{"69", ",", "6"}], "]"}], ",",
5 S8 t! G) p* G( y6 C( e RowBox[{"CM", "[", $ l2 K1 \, }3 b+ V! |# y
RowBox[{"69", ",", "7"}], "]"}], ",", ( X% M J2 O3 Y: w+ q. J9 d* K" {- a
RowBox[{"CM", "[", ( t% \6 A, N k! h/ M6 A
RowBox[{"69", ",", "8"}], "]"}], ",", ( @7 f9 [" S% K5 a% Y; ^# N; g
RowBox[{"CM", "[", 4 Z& Z: M9 e7 _/ ~9 V
RowBox[{"69", ",", "9"}], "]"}]}], "}"}], ",", 1 ^9 a7 x4 T/ ^
RowBox[{"{",
2 E2 E, b% C3 k3 b, V: Z RowBox[{1 ^7 _" [5 o7 N8 \( k; x
RowBox[{"CM", "[",
9 r, a- ?/ s) o) W+ I9 n RowBox[{"70", ",", "1"}], "]"}], ",",
! H) H3 A' q( l. s* v/ e RowBox[{"CM", "[", 1 { L/ n; {9 U/ U
RowBox[{"70", ",", "2"}], "]"}], ",", " e( d; h! p; u7 E" P, i4 m# ^
RowBox[{"CM", "[", ( H, s) Z, h; x t
RowBox[{"70", ",", "3"}], "]"}], ",",
+ d% o/ ~$ w& h' T# X" K9 B RowBox[{"CM", "[", ( u) a( G' M4 K6 I$ m
RowBox[{"70", ",", "4"}], "]"}], ",",
0 Y. X, }* P( C0 A% T; x RowBox[{"CM", "[",
5 D# g( {: n5 x" \ RowBox[{"70", ",", "5"}], "]"}], ",", ) W! t0 G% _) }
RowBox[{"CM", "[", $ v* |' c4 n+ Y- k0 B' e
RowBox[{"70", ",", "6"}], "]"}], ",", ) e0 x) _$ O1 h2 g
RowBox[{"CM", "[",
0 } m ^, A! B* m' z6 D RowBox[{"70", ",", "7"}], "]"}], ",",
- z# ]# m) d; a+ n* P" {" p$ d$ C+ C RowBox[{"CM", "[",
$ T8 H0 |. m1 `, u RowBox[{"70", ",", "8"}], "]"}], ",", 8 O1 x- g8 \( Y0 M
RowBox[{"CM", "[", ~* t) u# q2 |8 Q! M$ f3 k2 H
RowBox[{"70", ",", "9"}], "]"}]}], "}"}], ",", : p; k; g2 v. D
RowBox[{"{",
: a' |2 @! |$ C4 B8 j2 W/ H$ o RowBox[{
$ d" f2 G! p. H- H7 V5 q RowBox[{"CM", "[", ( W: o6 F( t, k: }
RowBox[{"71", ",", "1"}], "]"}], ",",
/ D% C4 \0 F, I RowBox[{"CM", "[", ( h) d# \5 P) N7 `8 J
RowBox[{"71", ",", "2"}], "]"}], ",",
9 M; E! i& [. u0 @: D' @$ c* u RowBox[{"CM", "[",
6 n5 i1 n) r- m: |# K RowBox[{"71", ",", "3"}], "]"}], ",", $ {0 L8 l1 U* B, w% \' q/ u5 N
RowBox[{"CM", "[", - @! l# e% E2 M8 Z
RowBox[{"71", ",", "4"}], "]"}], ",",
( m* C5 `7 d( i$ Z# B) E RowBox[{"CM", "[",
) x7 k: s' }, R! S& I8 x0 A RowBox[{"71", ",", "5"}], "]"}], ",",
- M8 z& W8 U5 }) N* s- G& f! n RowBox[{"CM", "[", ' Z' J W, s4 S. u. n
RowBox[{"71", ",", "6"}], "]"}], ",", / O5 I$ u1 ~! E, N; k" X
RowBox[{"CM", "[", 4 r3 M0 n4 f$ c+ p- P" z( x
RowBox[{"71", ",", "7"}], "]"}], ",", 8 ]4 E3 T) S" Y! [! _
RowBox[{"CM", "[", . Q! G- E4 h% y# Y( b' d4 R
RowBox[{"71", ",", "8"}], "]"}], ",", 2 P% P7 h$ ^9 k9 b0 W3 A# o7 E
RowBox[{"CM", "[", & g/ V9 z8 S2 J& j' R) R- B
RowBox[{"71", ",", "9"}], "]"}]}], "}"}], ",",
3 ~ ] ?: T; D$ Z* o RowBox[{"{",
3 }4 W3 t' n" z# W' ?- N! ^ RowBox[{
2 ~7 L: q# J9 y# g- K* ~/ J4 E" I8 I RowBox[{"CM", "[",
( q: N# w. r: c RowBox[{"72", ",", "1"}], "]"}], ",", & V3 \6 l7 t6 r4 u
RowBox[{"CM", "[",
; K% }% c9 T. l2 W1 P$ K! d+ K RowBox[{"72", ",", "2"}], "]"}], ",", 9 c, C' N, `# E8 O& f
RowBox[{"CM", "[",
+ f8 |8 Z& `/ p3 k RowBox[{"72", ",", "3"}], "]"}], ",",
' @, B5 s( T- H6 S RowBox[{"CM", "[", O d) B3 F& u: P) y8 d9 N
RowBox[{"72", ",", "4"}], "]"}], ",",
* L8 k1 N8 ?- F6 b8 v RowBox[{"CM", "[",
, t+ K1 ?( y' X+ c$ [ RowBox[{"72", ",", "5"}], "]"}], ",",
8 m# h* S7 n/ c6 l6 ~ RowBox[{"CM", "[", 2 Q4 P; U. W7 @& P3 }4 s
RowBox[{"72", ",", "6"}], "]"}], ",", ) t& g8 h* }6 J5 D: C
RowBox[{"CM", "[", : z' S C% q# z4 Y! L% V
RowBox[{"72", ",", "7"}], "]"}], ",",
4 I- f+ g, c4 T" Y1 G RowBox[{"CM", "[", , r( w3 A( P4 T/ X! U! q5 n3 q
RowBox[{"72", ",", "8"}], "]"}], ",", 6 x4 y. W+ a: V0 Z! J
RowBox[{"CM", "[", 4 V' w/ [: ?3 I$ I4 w5 r( M
RowBox[{"72", ",", "9"}], "]"}]}], "}"}], ",",
0 @9 x$ n/ v( ^+ F; u RowBox[{"{",
( o# H- Y9 B! E4 P RowBox[{+ }! p$ G, y% h3 ^2 E
RowBox[{"CM", "[",
9 u; T& \' }6 i. f9 s9 p RowBox[{"73", ",", "1"}], "]"}], ",", 8 r1 m* G& P) d. N
RowBox[{"CM", "[", 7 q5 n- G2 R0 k# Q, c
RowBox[{"73", ",", "2"}], "]"}], ",", 2 m+ p9 T" J$ `) p2 }- A0 X
RowBox[{"CM", "[", - U5 o, G1 a' J6 m$ J2 c3 A8 m+ Q
RowBox[{"73", ",", "3"}], "]"}], ",", ) u9 h, v' G0 Q. I0 n2 V0 K7 u
RowBox[{"CM", "[", , S7 ^+ F: n/ f9 P6 t: Y
RowBox[{"73", ",", "4"}], "]"}], ",", $ g" G% e h3 V& o6 M4 p i3 ]2 `
RowBox[{"CM", "[", Y) u" n* L- _0 ~6 j
RowBox[{"73", ",", "5"}], "]"}], ",",
+ t6 P( u) {; N6 g RowBox[{"CM", "[",
' _; @& _: J4 }- A' A/ ^9 Y RowBox[{"73", ",", "6"}], "]"}], ",",
6 ^7 `. ?) N5 ?" P RowBox[{"CM", "[",
- J- Q% [1 i5 `9 D8 ^: N RowBox[{"73", ",", "7"}], "]"}], ",", 8 ?! p" @( _: g1 s7 |* F. j/ s; G
RowBox[{"CM", "[",
, P8 V" S" m+ u: Q8 R RowBox[{"73", ",", "8"}], "]"}], ",", % l: l6 ]0 i) _0 J2 j, o2 L9 L$ i
RowBox[{"CM", "[", & ^3 e$ ]0 r! h: u
RowBox[{"73", ",", "9"}], "]"}]}], "}"}], ",",
% ?5 k$ {, P: |1 q9 A5 r RowBox[{"{",
- ?' F; N- d- } RowBox[{
7 o; `7 L: Y$ r9 q0 F$ { RowBox[{"CM", "[", - `1 S0 i3 `6 j
RowBox[{"74", ",", "1"}], "]"}], ",",
; O/ \1 L6 A$ W RowBox[{"CM", "[",
5 n/ e/ ]' k( | RowBox[{"74", ",", "2"}], "]"}], ",", & Y' W9 j8 ?+ c2 g
RowBox[{"CM", "[", j, O: I1 u. _
RowBox[{"74", ",", "3"}], "]"}], ",",
: u- z; _3 l0 o; {5 r. K* w RowBox[{"CM", "[",
2 [0 k! ]( N8 t+ ? G# x7 o RowBox[{"74", ",", "4"}], "]"}], ",", 5 y! j) l6 C5 d1 @
RowBox[{"CM", "[",
3 s- h4 s! L) E' p RowBox[{"74", ",", "5"}], "]"}], ",", ' K' t5 x* A2 A @
RowBox[{"CM", "[",
$ E6 D; |* h1 @ RowBox[{"74", ",", "6"}], "]"}], ",",
/ v) {& L# U- Q% k RowBox[{"CM", "[",
% m( F7 Q" E$ R4 W6 R! Z! Y1 n5 z RowBox[{"74", ",", "7"}], "]"}], ",",
# o3 b0 p s. f" X0 {5 ^( ` RowBox[{"CM", "[", " ?7 v1 J1 h+ _2 n
RowBox[{"74", ",", "8"}], "]"}], ",",
2 j; L/ K. o( M5 a/ [ RowBox[{"CM", "[", " E6 P# ]5 q9 o" s* K! Y2 D% h. |3 g6 t
RowBox[{"74", ",", "9"}], "]"}]}], "}"}], ",",
* m! J+ C/ ]5 l: ` RowBox[{"{", ! k* O0 u4 P" L0 Y
RowBox[{+ a! m$ O% b! L1 R
RowBox[{"CM", "[", " U9 v+ J) C6 h" R
RowBox[{"75", ",", "1"}], "]"}], ",", $ f' _2 T: ~! N" r" v
RowBox[{"CM", "[", " s: r; {! F9 v3 I6 r2 Q6 ?
RowBox[{"75", ",", "2"}], "]"}], ",", % y3 i- i0 q+ r: W' @
RowBox[{"CM", "[",
! q$ [6 g' C- x RowBox[{"75", ",", "3"}], "]"}], ",", 0 `" [/ L! G2 g; c+ |+ y1 O
RowBox[{"CM", "[",
; ~) X; Q3 p& w& Y) i. R1 a RowBox[{"75", ",", "4"}], "]"}], ",",
1 T5 I2 }# ]6 ~& F$ r# r2 Z RowBox[{"CM", "[",
: [+ P) k# {& e RowBox[{"75", ",", "5"}], "]"}], ",", 7 l5 k9 t4 E% s; e! ~# ]+ ^7 X
RowBox[{"CM", "[",
0 k7 a" w7 ?; Y& O6 M! k RowBox[{"75", ",", "6"}], "]"}], ",", 0 a. }4 k8 t& V4 U3 b7 `% x
RowBox[{"CM", "[",
$ a/ h- m4 e8 q N RowBox[{"75", ",", "7"}], "]"}], ",",
0 U/ i& W( v2 _4 ?9 L' B2 S RowBox[{"CM", "[",
4 I% p- V8 k2 e3 P4 h( M RowBox[{"75", ",", "8"}], "]"}], ",",
6 i4 c( N3 s1 v* f" z- {. i' X RowBox[{"CM", "[", . ?. ~" b3 x. O" T, ?3 h; a
RowBox[{"75", ",", "9"}], "]"}]}], "}"}], ",", 6 v: Z: z5 A* S
RowBox[{"{", , b; K( c8 l! @3 N
RowBox[{+ }! V/ q0 |$ d( j
RowBox[{"CM", "[",
! ^" E, ?0 y! X! W- N' y RowBox[{"76", ",", "1"}], "]"}], ",", % E! {/ a8 r. D: V3 v9 \% O" z
RowBox[{"CM", "[", " w0 p3 c+ |# ]( ?- Y: x
RowBox[{"76", ",", "2"}], "]"}], ",",
2 N% }6 o @& d( G, u RowBox[{"CM", "[",
& @3 v7 `, p7 q+ N; c/ j# ~ RowBox[{"76", ",", "3"}], "]"}], ",",
- b+ P# ] T1 y RowBox[{"CM", "[",
- l* ]1 t6 |! q4 @5 s RowBox[{"76", ",", "4"}], "]"}], ",", " E1 t; a8 z3 Q/ G. T
RowBox[{"CM", "[",
+ ` J3 H ~, o7 t RowBox[{"76", ",", "5"}], "]"}], ",",
0 K$ c* a; T3 ~$ x# l* }- c RowBox[{"CM", "[",
0 ^8 M; S+ S! h3 x. O RowBox[{"76", ",", "6"}], "]"}], ",",
1 m: u6 q* a- {( _9 s RowBox[{"CM", "[", " q- W- t- n- O2 c5 D4 j: e2 A
RowBox[{"76", ",", "7"}], "]"}], ",", ) I5 F6 P# i8 v3 L* c* B
RowBox[{"CM", "[", ' l) n! G" X1 y- m4 L2 |" w1 O
RowBox[{"76", ",", "8"}], "]"}], ",", / [) b7 S6 n8 `" C# Z7 T9 S
RowBox[{"CM", "[",
, q; y3 ~& s" R' C9 b9 R0 o RowBox[{"76", ",", "9"}], "]"}]}], "}"}], ",", ; K; Z# w: m) O+ a8 p7 N. _
RowBox[{"{", 8 y$ ^( Z% @+ K
RowBox[{& }/ a2 t" b- @% T
RowBox[{"CM", "[",
- ?' x W6 ]- _( ?3 b: V+ P RowBox[{"77", ",", "1"}], "]"}], ",", ; _# @- C5 w( }
RowBox[{"CM", "[",
1 ~1 X4 v7 w L# m RowBox[{"77", ",", "2"}], "]"}], ",",
% K0 ]+ q# {( C RowBox[{"CM", "[",
& Q; h; R5 z% k/ F P1 a RowBox[{"77", ",", "3"}], "]"}], ",", ) Y) o3 {% A4 }' P$ r/ J& L+ ^
RowBox[{"CM", "[", ( ~3 L1 k$ ]* U
RowBox[{"77", ",", "4"}], "]"}], ",", ) ?. h) J z6 s v3 e& t
RowBox[{"CM", "[",
, _$ V& c- V1 k" {/ Z, \9 W8 o/ A RowBox[{"77", ",", "5"}], "]"}], ",", ; W$ z; I* U& f+ p8 o4 m& {
RowBox[{"CM", "[",
7 X U# C% b4 l RowBox[{"77", ",", "6"}], "]"}], ",",
" A3 Q% T8 z7 @4 w! C* v- R RowBox[{"CM", "[",
% ~5 i* o$ _8 C- g RowBox[{"77", ",", "7"}], "]"}], ",",
& H0 x4 F" o. w: K; t RowBox[{"CM", "[", 8 R! g9 ^3 |$ i7 v& G
RowBox[{"77", ",", "8"}], "]"}], ",", / [& M1 m: c1 J, |$ y3 }0 `
RowBox[{"CM", "[",
8 ~/ v2 Q, N8 O( } {6 x% b RowBox[{"77", ",", "9"}], "]"}]}], "}"}], ",",
( a v& a0 Q) O RowBox[{"{", # g) i2 P# q: R& [/ ~5 K
RowBox[{5 a+ O" @* U0 M9 S) W! @; M1 U
RowBox[{"CM", "[", ( F: W2 l/ q, w5 G( I( t
RowBox[{"78", ",", "1"}], "]"}], ",", " n$ M1 l8 ?7 T/ y$ D& ] C
RowBox[{"CM", "[", 7 s5 L9 _1 N, F! }) i) [7 P
RowBox[{"78", ",", "2"}], "]"}], ",", , X7 d, C' t; |) l, J1 I) k
RowBox[{"CM", "[",
( z9 ?3 z0 B$ n! P RowBox[{"78", ",", "3"}], "]"}], ",", 0 ?# j' B2 l1 m h
RowBox[{"CM", "[",
8 {$ @" p# g: t& G Z2 k+ [ RowBox[{"78", ",", "4"}], "]"}], ",", 6 [( [! G- H; w5 B, v" Z
RowBox[{"CM", "[", 6 u' D) \& ^* h
RowBox[{"78", ",", "5"}], "]"}], ",",
& q0 u5 K# c, g* Q% o RowBox[{"CM", "[",
$ N! Y& a& k( n! U m6 x0 l RowBox[{"78", ",", "6"}], "]"}], ",",
* x$ e# N5 R7 h! o. i4 ~: } RowBox[{"CM", "[",
7 }. ~. q# `" @9 t. H8 r RowBox[{"78", ",", "7"}], "]"}], ",",
$ T* A; _/ O; U: Q+ B5 [' U RowBox[{"CM", "[", + Z3 _. \4 k5 ]2 w1 B, G
RowBox[{"78", ",", "8"}], "]"}], ",",
/ ?* C6 Z! ^; _3 O( u RowBox[{"CM", "[", 7 s* c9 I8 x1 ]' I
RowBox[{"78", ",", "9"}], "]"}]}], "}"}], ",",
4 O1 N, g; X) s+ d RowBox[{"{", & w: w: c0 l1 f* F
RowBox[{' H9 G" N* W- E, Y1 R3 I
RowBox[{"CM", "[", " K9 d! g' @, f. ~3 |
RowBox[{"79", ",", "1"}], "]"}], ",", ( ^- J0 \' |4 y
RowBox[{"CM", "[", & |( W1 Q$ x( v
RowBox[{"79", ",", "2"}], "]"}], ",", 6 d- s: x1 ^% n1 q) [9 M9 g
RowBox[{"CM", "[", . i3 P$ Q& M {: w0 d, B, A
RowBox[{"79", ",", "3"}], "]"}], ",", 8 [6 L. M. N5 N0 \/ [# F/ j
RowBox[{"CM", "[",
' j% y' u5 R. G, K4 i) `9 y RowBox[{"79", ",", "4"}], "]"}], ",",
5 l% i/ V' w: u RowBox[{"CM", "[",
- K1 Z( Z) P7 `8 L8 F RowBox[{"79", ",", "5"}], "]"}], ",",
$ ]! H; q5 l$ T' o RowBox[{"CM", "[",
' l7 z7 r, o: [5 E- X RowBox[{"79", ",", "6"}], "]"}], ",", $ m9 T1 C0 G. E/ m% r
RowBox[{"CM", "[",
' C! g2 j3 i: w& f: v9 t RowBox[{"79", ",", "7"}], "]"}], ",",
1 c0 t7 q* o- _/ m RowBox[{"CM", "[",
* t# \0 E( j" d2 s. R" ^) D RowBox[{"79", ",", "8"}], "]"}], ",",
, P2 ]$ T3 N# l+ a RowBox[{"CM", "[",
4 O# D2 Y' }' l) N+ M8 _: ^ RowBox[{"79", ",", "9"}], "]"}]}], "}"}], ",", 8 C. m% g7 U; E6 ~( p1 z' u
RowBox[{"{",
( S- [$ D) W' _) J; M# B. C9 B RowBox[{
$ j) n! s, y& N$ g h RowBox[{"CM", "[",
* P6 V* G/ S' }' S5 R. q0 K RowBox[{"80", ",", "1"}], "]"}], ",", ' p6 W! J6 S- u: L
RowBox[{"CM", "[", & @$ q Z4 _$ o
RowBox[{"80", ",", "2"}], "]"}], ",", ; J" _" }; R( r2 a. x' E" z
RowBox[{"CM", "[", 5 p2 U% p6 A. y2 `
RowBox[{"80", ",", "3"}], "]"}], ",", " g- h: r" Y: W3 P; c
RowBox[{"CM", "[", ' k' ^! C( b; r1 L* z/ h( a% e
RowBox[{"80", ",", "4"}], "]"}], ",",
& E: K' u& U$ t4 ^" q RowBox[{"CM", "[", 0 ]: h* c" _$ e
RowBox[{"80", ",", "5"}], "]"}], ",", # h6 c, C% Y& p( |- t2 b0 j- s6 N
RowBox[{"CM", "[",
2 A+ J" p9 P* n/ p RowBox[{"80", ",", "6"}], "]"}], ",",
$ w+ d: E0 {6 M& S6 d- W" k+ N RowBox[{"CM", "[",
% l9 a: B$ I A( s0 G; y( D RowBox[{"80", ",", "7"}], "]"}], ",",
- k. Y8 ? M$ m& a RowBox[{"CM", "[",
* X# B2 w6 k( x8 t2 H0 ?0 t RowBox[{"80", ",", "8"}], "]"}], ",",
+ W1 B9 e9 Z* F/ y& J2 A& D RowBox[{"CM", "[",
1 q8 N/ p) `" B7 x- i: o6 I, { RowBox[{"80", ",", "9"}], "]"}]}], "}"}]}], "}"}]], "Output",
; X7 C& i" ?! V: z8 s CellChangeTimes->{3.577844244140625*^9, 3.57784429425*^9, 3.577847845125*^9, ! d0 b( _+ m* {9 w2 l9 S
3.57791322703125*^9, 3.577957088820712*^9, 3.5779605002346992`*^9, 7 b) K/ l; \3 k- N9 _! p- G+ |9 ?2 v5 l
3.578012145828125*^9}]
; _' }2 ^. z* `$ j# |9 c8 O( R}, Open ]],% ~" f/ q& P. T, r# p# W" A5 [
6 ]! W- f* U' o* t+ ?
Cell[BoxData[' U4 Z' L! q9 X2 d9 M3 U7 x& u- F
RowBox[{"For", "[",
$ j1 }' e: |3 A9 b RowBox[{* G+ Q4 ]+ y& @/ n& l/ F
RowBox[{"i", "=", "1"}], ",", / Z4 s- f: v, x$ t2 s; J6 U" x
RowBox[{"i", "\[LessEqual]", "9"}], ",",
5 Y0 U7 k3 H) v' f8 s4 U* k RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
: ~1 K' l% K0 i- |2 B RowBox[{"For", "[",
& P2 P" n: D" P5 j RowBox[{$ R3 i, x0 u4 L- e, ?# ?% p" q. L
RowBox[{"j", "=", "1"}], ",", . F7 ~. ]% R7 W- F# I
RowBox[{"j", "\[LessEqual]", "80"}], ",",
! p8 D; ?( |, G+ {7 e$ s RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", m) i! M( Q# @" E: p" d; W
RowBox[{) Q' N0 I+ x- p p. ]# P
RowBox[{7 `5 x7 z* I8 @! N
RowBox[{"CM", "[", : Z! d. ]( |$ p% l
RowBox[{"j", ",", "i"}], "]"}], "=", "0.0"}], ";"}]}], 8 c. Q5 j) w" R$ W+ R
"\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",# A5 Y) J: h1 J1 l5 \8 E
CellChangeTimes->{{3.5779132504375*^9, 3.577913285203125*^9}}],
- W+ O; N: p8 H/ E% @8 V) n8 O; e% U8 v/ ~1 c1 E0 B0 a: w
Cell[BoxData[
) _4 u/ ?. R _: t% y RowBox[{"For", "[",
4 N7 [: n- l* r* t' C; w RowBox[{" c' l: `' S" K2 C- E9 r
RowBox[{"i", "=", "1"}], ",", 8 A+ T9 D) k2 v
RowBox[{"i", "\[LessEqual]", "9"}], ",",
- v8 D/ r6 Q7 F! o1 F! h e" Q/ h RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 6 ]2 @ N# @; k. F
RowBox[{! ?0 R2 Y; q' E. J) w/ E" h
RowBox[{% e& h7 G( u, b" c \4 {
RowBox[{"CM", "[",
) u8 Y1 R/ a& \6 Y RowBox[{"1", ",", "i"}], "]"}], "=", , M$ _7 K0 L* k+ {
RowBox[{"Data", "[",
: N U+ {1 u2 C" a- z$ a/ u RowBox[{"[",
6 E, A( t6 L/ A2 `3 x7 K RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}],
; T3 g9 I- v, m; B4 M9 ~, z "\[IndentingNewLine]", "]"}]], "Input",
7 ?& ?9 c, ?8 Y CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {
1 z. w9 A' x' @, m 3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9, - m& E4 p0 J; x: s$ I
3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9,
. b! ~& ?9 d- b+ H' i7 D7 Z 3.57791344209375*^9, 3.5779588070933466`*^9}],
2 T7 ]0 m+ |8 x& H e) t5 e- F- A0 E7 ? a# ]
Cell[CellGroupData[{0 {# I+ B* c2 Q2 }
: W& }, F" k6 Q$ x3 ^! U
Cell[BoxData[{9 a; _+ X, j" `. C3 F( i
RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]",
% h& Q: T4 Z. X8 u4 ? RowBox[{"M1", "=", "1"}]}], "Input",
9 `. F$ q! [% n# V CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {
" M" j# w; Q; ]1 A 3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9,
# m5 b. K/ }5 c5 V$ H' S 3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {& G6 G# v- J/ m, e) G& f
3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9,
/ A8 ~$ t$ [2 k( q) L+ p 3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {& {* @4 C$ q) w4 y* p
3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {
3 Y% b" F, b1 K8 F2 Z# a3 `7 _& U' A 3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9, 6 d! A- s( ^/ |8 J& Q% O
3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {
2 F+ }% i& i4 z4 O# P9 H3 S" } t( b 3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {
- c' r0 Y9 T' A% c* ? K6 Q 3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9,
9 L1 C2 n$ Q2 ^ 3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],4 ?- w8 b, Z& ?" w. J( B; }+ k
0 V6 i% g% D8 d( F! g
Cell[BoxData["0.2`"], "Output",
+ F; S& K0 ?7 T( J( U* o9 g CellChangeTimes->{ w( X% ]: q1 p7 h+ ?
3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, % ?: B- ?" T+ H! f2 V
3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
7 n: k. ]6 h: G6 l2 C- R4 f: A 3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, 2 {8 Y) ]9 Y! q5 T9 B P) J
3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
0 n# U5 F5 c( C 3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, # Q9 ^! y$ q) y* C2 @) b% d
3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
( J3 x$ y* ?' T+ q+ {4 D 3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
- G# j" d5 O+ I$ n2 x3 X3 r 3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
; D5 X. H' E9 W0 i, Z9 n 3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
+ Y7 _% Z" `0 F+ {! ~ 3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
5 t8 ~7 c) y1 [ 3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
( A" c8 d; o: n; ^# q& d 3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, 5 {0 h1 R' s- t1 A
3.577960510686717*^9, 3.578012149296875*^9}],
7 y) Q( J; N/ ^# i7 C, i; T
1 Q& |1 h# f& t6 Q9 dCell[BoxData["1"], "Output"," |4 [+ O4 g5 Z$ L1 j* R% R1 n
CellChangeTimes->{7 F2 z8 F b' R( }0 ~( K, c$ A, o
3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
* h5 I" M/ X2 g+ E 3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {8 ]1 |! r2 [; \, B+ ]+ X1 p
3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
, B5 h& w8 A0 K" u8 H8 w 3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {5 `* ]1 s( Q+ r4 i- F: ~! x+ N. S
3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
: Z* E+ m8 n+ W; s* Z+ b9 t 3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
. p& i5 f: v2 ~2 r! r2 ^% R 3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
9 j2 `% m0 y1 N. T 3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
7 V+ m( J- j( a 3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
( N2 c8 H: ^; l3 C6 ]+ T 3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, " \+ v3 B( E) ]; G( l- ~1 |+ H7 K
3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, , ?, H# o$ e g4 i# L1 P- _4 v
3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
6 k, A; l0 T7 A0 \+ w 3.577960510686717*^9, 3.578012149296875*^9}]: Y3 Y, I- G# v* A, U
}, Open ]],
4 A ?% ?: j1 E9 W- E7 |
5 j1 j+ \# { Q+ K, l: W, V M# TCell[BoxData[# L7 n: l/ E3 X) m
RowBox[{"For", "[",
3 V, t1 n& r$ V) |' @4 n RowBox[{2 A# Y! H6 |, n0 I! [8 ^7 Y7 T" [7 v
RowBox[{"k", "=", "2"}], ",",
" i+ D- @* E5 { RowBox[{"k", "\[LessEqual]", "60"}], ",", 2 Y2 j; I) J2 W- T' Q5 \$ \/ e
RowBox[{"k", "++"}], ",", - ^& `6 B& q: C* Q
RowBox[{"{", "\[IndentingNewLine]", ( _& L: j7 s4 i" z5 k: J" `
RowBox[{
5 |% c. v* m9 v' w4 }% e. X RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]", . \* |5 z D& P7 v
RowBox[{"For", "[",
; p. A$ ~9 b0 J) Y) {' K' t' ~ RowBox[{$ f, G; `2 ~8 x/ W) v( C
RowBox[{"j", "=", "1"}], ",", , q: _& D1 ]9 _: ?( ^
RowBox[{"j", "\[LessEqual]", 1 E R- l. T5 n
RowBox[{"k", "-", "1"}]}], ",", 1 k4 ~6 @& J8 I
RowBox[{"j", "++"}], ",", . {0 M/ D. o6 v, B! j
RowBox[{"{", "\[IndentingNewLine]", 4 t3 x. p7 Y& b6 K- V( j( g" P7 k
RowBox[{3 Q/ j# `. w! [7 { R0 {% ]0 K
RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]",
7 f& l" ]. `/ y4 S w RowBox[{"For", "[",
! t5 w/ O5 N" ~. Q! B: \: @3 H L) { RowBox[{ L4 I! W" ?" f% S
RowBox[{"i", "=", "1"}], ",", h# N$ w( o- V- [0 q# m+ \$ Q! ?
RowBox[{"i", "\[LessEqual]", "9"}], ",",
k, ^1 @5 J0 }7 T/ u RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", . N% `3 P k$ C U
RowBox[{
! t; U; F" l/ _! {8 Z RowBox[{"r1", "+=",
+ K1 I2 [# `; E3 Q: F9 N RowBox[{
5 g `) X3 a9 }: g& j RowBox[{"(", - T3 j" R l' e- L$ w) \, w+ T
RowBox[{
8 E5 W8 K3 V m! `5 f RowBox[{"CM", "[", & X8 `2 j* u+ B1 W* {) a. V, i
RowBox[{"j", ",", "i"}], "]"}], "-", 5 G( j( {1 c. N! e# E' `+ ~
RowBox[{"Data", "[", , n0 B k, a. v3 e
RowBox[{"[", $ }5 r& n3 P# `3 g6 v. @
RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*", - e% g4 u: @* l
RowBox[{"(",
[. ?* E) ?. D. Z& H9 r1 S RowBox[{
7 _. d8 K R+ L1 i RowBox[{"CM", "[", & v4 e5 x; J a
RowBox[{"j", ",", "i"}], "]"}], "-",
. L2 P% x4 {# }. n+ h6 a" g RowBox[{"Data", "[",
* k; M6 h& y0 } s, c RowBox[{"[", . h9 z2 o( E5 ^6 p
RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],
/ j, W/ G t8 ` "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]",
& A7 O/ [7 Z$ `. s1 x RowBox[{"r1", "=",
/ j) M J7 N1 Q RowBox[{"Sqrt", "[",
7 P7 P$ K% n% X% b% ] RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]",
' d, I' ~+ ~% A" Q RowBox[{"If", "[", " ", * ]5 ~, n& u; t! H/ |5 D
RowBox[{8 L1 S! A9 J0 i2 y2 J
RowBox[{"j", "\[Equal]", "1"}], ",", - I: _ }3 l2 |5 N3 J+ x
RowBox[{"rmin", "=", "r1"}], ",",
$ x: P+ f% U9 h3 V7 b: o g7 H RowBox[{"If", "[", 7 _/ Y9 C- x( s, v
RowBox[{: d' e# G& t, {& b3 _; E0 f
RowBox[{"r1", "<", "rmin"}], ",",
) o! {9 }; F7 L7 m* m* ` RowBox[{"rmin", "=", "r1"}], ",",
% o5 r% ^- E. k" h$ H1 U4 v3 `. d RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}], ( a( ?9 P9 }' Y! j
"\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";", k e3 ?) h1 H0 F6 S$ Q
"\[IndentingNewLine]", X9 s4 M. W: p( D9 y) H& ]4 X" u
RowBox[{"If", "[",
, ?/ b/ [5 k2 P' Q" Q! \ RowBox[{
4 D% f# b; W7 {6 p+ ` RowBox[{"rmin", ">", "r0"}], ",", - U7 k1 {3 G) a: p
RowBox[{"{", "\[IndentingNewLine]", : }( u/ ^3 @6 Q. b# W) i) G
RowBox[{
' c! B3 S5 o* d6 a RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]",
( I7 }1 `6 t5 \ RowBox[{"For", "[",
2 Q7 y, [' T, y; x6 T8 { RowBox[{
& [9 `& s# G. P RowBox[{"i1", "=", "1"}], ",",
8 ? Y3 F3 h' b- g# M RowBox[{"i1", "\[LessEqual]", "9"}], ",", 4 K$ D5 w* K& U! w8 q" i3 m
RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]",
& W. X/ A1 e- J% S* C RowBox[{
( W! N( n# X5 M! y, O4 ]' {, x RowBox[{
5 d8 n# H* q1 _0 N; B; P1 o; n RowBox[{"CM", "[",
( R Q- N# `: H, p/ q% {. A RowBox[{"M1", ",", "i1"}], "]"}], "=",
, i5 {0 [# `! p& e& M RowBox[{"Data", "[", $ J# W4 N+ v+ n- P7 L% L
RowBox[{"[",
2 U( M1 ~7 h" }' J3 S RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}],
5 n& N4 W' j5 F. P/ M& P1 M "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",",
r+ p- P: Z" s4 T) j RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}], 7 R; o) Z5 e4 R2 F
"\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
0 \* @ T+ i& ?/ [$ b$ |: `1 ^ CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {; L! B0 g% x9 Y( u7 R
3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9, 0 m1 B7 |( U$ c' m/ q) e
3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {
+ d. s6 l2 Q9 q/ C+ ~/ ~0 f4 q6 g: y 3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9,
6 A; }+ a0 d$ k3 }8 R0 Q, h 3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {' m3 `- r) ]0 l1 x
3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9,
9 K& q% i8 z) Y; v; M& y# B 3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {
; O8 \! N2 p& l& F0 N 3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9,
+ m& `% r& D6 `1 C7 P- x' Y 3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {
6 C. L/ O$ b1 e9 K6 Q7 b 3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9, # O1 W* y; t7 y' m0 u
3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {
' M% G* w/ K' @ b; }( p- Y V 3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9,
4 ?& ~9 Q' u( V# ~ 3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {
: _: p B9 g, b( p" h 3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9, " O \: z2 G( L- j! Z7 A( o6 E% u
3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {0 I% o6 H" f+ L0 [1 V; W- U
3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9,
4 n0 d% Y) W) F* V- F o. S 3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9,
) i h% C0 F8 i% \8 V S 3.577958821991373*^9}}],0 G: U, }# M2 s B! N
- e( E, R4 h1 y3 @8 r$ X) h" \1 R
Cell[CellGroupData[{
) D# [8 X: Q( r/ @# S" s& k& j c
Cell[BoxData["M1"], "Input",) G* ?) B8 T# N
CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],% t4 d, j8 \3 w6 t L
6 V0 I/ \ ]! w# R4 B5 rCell[BoxData["21"], "Output",- q: F* ? w' }9 j6 h2 F' o% r
CellChangeTimes->{
; a4 v# G: O4 V5 M3 X: k 3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {
# R, W3 w. d9 L# j0 s 3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9,
* |" I# C7 N" o. g! `2 R 3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {' I% Q' O# Z2 K! x; g& W9 t
3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
# J3 O, r- I9 F) W+ v 3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
' w1 p6 K) ^1 }; \) |3 T5 m 3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9,
# u1 N( f/ w7 ^6 j) T! _% ~( o 3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {1 ]0 S% R; c1 o4 T, B. b( K( A8 M3 j
3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9,
; u1 X: F/ q' n2 ] 3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9, ' `* \* `, U4 U9 ^( P8 G+ y
3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9,
% L2 l0 p, \# q& s: m 3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9, ( }( m" Y: \, ^; X3 x& M+ i( s
3.577960515600726*^9, 3.5780121541875*^9}]
3 P3 |3 n; l5 s7 x2 g7 b" h# m" @ C}, Open ]],
6 N! ]) o W5 v2 Q# o% r' I( B6 `; l2 J8 ]7 Y6 U0 q1 _6 h; \
Cell[BoxData[5 M" J2 I! g+ y& f9 Q
RowBox[{
# |6 t& l# _/ z2 f3 c RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[", + x' o9 U0 t+ Q2 b0 k
RowBox[{"1", ",", "i"}], "]"}],
' w7 ~" _. d5 U Q6 H& Q RowBox[{"\:5230CM", "[",
+ T+ u3 u: U; C# _ RowBox[{"21", ",", "i"}], "]"}], ! l: l: y" L9 ^. ^9 Q. E
"\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\
0 l0 b" p; P# o# @: f& B8 g\:51fd\:6570u1\:5230u21"}]], "Input",
* ]5 }/ \. J: h3 @% } CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {
1 ~* H/ Z7 |- q1 C7 ? 3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9,
$ @: I& Q: y0 R 3.577960526583145*^9}}],
. ~: Y. y' a/ a" Q3 a2 A* ?- W5 Y) f
, d0 I, Q1 b" w5 B; _+ |, g1 ?Cell[BoxData[" e9 o: q. b" ?" G
RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
) U8 P) m" X9 c CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],
/ P5 E& v6 M* M9 e; Y$ C! e) `! T/ b4 y
Cell[CellGroupData[{
$ M( N* i0 K$ d3 P$ v2 {2 p5 E! i, ~, `$ n3 b8 O
Cell[BoxData[
: ^& X) t+ h1 } RowBox[{"Xa", "=", / }1 j0 U* j. m: o+ @: q% M; b% Q
RowBox[{"{",
0 t; m' z& K j: |# ^8 ~ RowBox[{2 D, F) }% u& |! B
"x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7",
4 p# |* K1 L% z, e ",", "x8", ",", "x9"}], "}"}]}]], "Input",
) u9 P2 |' ^4 S5 z1 j6 O CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],) @5 h0 ]. K- p5 s- K4 l
1 w3 E" d. K# `& a, P/ m4 t
Cell[BoxData[9 q) q! y F t& |, k, f* g
RowBox[{"{",
5 ~+ Z: d, j% G9 G$ j# H5 \ RowBox[{. ?1 T4 y8 B) N. k
"x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
7 I ]7 B7 V" X& u+ S "x8", ",", "x9"}], "}"}]], "Output",. ?1 @' i6 I A3 ` N3 S
CellChangeTimes->{
0 b! T. r& K* R- { 3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
" B9 x' A7 _1 X2 K 3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9, 4 r. \5 n" a& u f+ h' T1 V
3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
5 u. ~3 P0 R& `, {" U 3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9,
/ y6 ^5 j) i' G2 G! O" k 3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {
3 g/ A" ?# y" w& r; c4 k 3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9,
( k/ @/ V7 Z9 z# w9 w& O 3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9}, " o9 c# Z; w: h! \* R
3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
* I' e9 M7 d% t7 F3 R 3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {
) T; F: F) _1 X3 T5 y9 {4 k 3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9, 9 K' t* N9 ^2 M" n8 p3 i" s
3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
4 ~% \- ?8 ?) M. S" E; U3 n# c; {1 { 3.57801215725*^9}]# f, }0 y7 a0 o" d
}, Open ]],% `: r0 {3 Z1 I4 M+ K1 \0 A
$ J4 U( L {( ~/ o$ @8 l& l* Q
Cell[CellGroupData[{( }$ a9 ~# E/ m' s
/ t3 D+ I2 m f. P( O. L4 cCell[BoxData[
) F: p! q9 ~5 u RowBox[{"Ca", "=",
; w- j6 P2 Z; i8 l( P" @ RowBox[{"{", , m& a. S: F" c: n
RowBox[{
8 s1 p X' H3 b9 N" T. Q0 {( i1 T "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7",
2 s- \9 [: r- F/ \* S6 o; z# s( X ",", "c8", ",", "c9"}], "}"}]}]], "Input",8 U$ d* C2 S, W
CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],, M3 w) R0 M3 \8 k* g7 _5 P+ K
9 L6 n" c5 c) H* s8 ~+ LCell[BoxData[# L3 w; a% f+ r+ u5 t0 {
RowBox[{"{", : O+ C* V5 v' V* l+ p1 v* N: {
RowBox[{
3 i0 a% y5 y: K7 Z "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
6 _( u1 V" l; P6 w8 Y* \ "c8", ",", "c9"}], "}"}]], "Output",7 H Z5 f4 |1 y8 S5 U+ y1 y
CellChangeTimes->{
- B, O! @% h6 U8 | 3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
& I6 Z5 ^0 C$ z# g 3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9, 8 ^: m& c1 B9 ~' B1 G
3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9,
2 x% B* G+ K# d! C- G 3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {3 v! j% W) o2 ^/ l
3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9,
. {7 j; T: m4 M$ b+ j' R 3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9},
- o9 k8 s3 v7 K4 z8 J( r9 s 3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9, ! d$ {3 Z: q( T d& e( x
3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9, 7 D, M) z$ y1 q$ O+ @3 ]
3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
4 A; K0 a* C8 P; P0 ` 3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
2 @; @' C0 p3 z6 [; H0 v! w- d, p 3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9, d, O9 K I6 t `* o D+ G
3.577961904604212*^9}, 3.578012158671875*^9}]% E3 p% ~1 p" H8 s
}, Open ]],
6 R5 l; o2 u: O% z- u
0 h G' L. f# v kCell[BoxData[8 }2 l t0 J9 y1 |$ `" \8 |) o6 Z9 Y
RowBox[{"For", "[", N8 k" O. W6 d0 p
RowBox[{8 r( r4 U( p0 d8 A# D p/ d
RowBox[{"i", "=", "1"}], ",",
- p, g% M& b. c RowBox[{"i", "\[LessEqual]", "9"}], ",", & L: S' l! [" \1 p
RowBox[{"i", "++"}], ",", & I, e, y% p- k" |: P' _" w
RowBox[{
+ F" t3 r: i5 J1 E* W$ j RowBox[{"Ca", "[",
8 `( G) J$ b' g# H; Y RowBox[{"[", "i", "]"}], "]"}], "=", 0 u( e4 f8 D5 ]0 z2 t6 R
RowBox[{"CM", "[",
" i1 a+ L. c3 v5 i1 Z! R% e RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
8 L. p; Q6 R# Y CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9}, ' |4 B5 }. l F
3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
+ d, k. h" \8 ~0 Y 3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9, ; H' Q t! t1 c
3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9, ) g5 c: p8 @/ f% @5 }
3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9, " \ ]3 y% }! z8 S1 a# K7 U9 J
3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9, " O# f0 c: `" ?; S; s
3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
2 ^$ y0 L0 Y- j8 U5 ^( d( \ 3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9, ' Z6 b. R! X4 V9 D1 I
3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9, " O; U$ J+ ?! s3 t0 z- M
3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9}, / G2 B6 s& c, h, D6 }9 w. [! S
3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
3 v0 ]1 O" o% J2 F/ D) ^ 3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9,
- I' t8 T1 E& d& V 3.577961906897415*^9}, 3.578012176296875*^9}],
% ^" D& t) g: n% Y1 P! K0 y
7 K, M; N% l$ m# o) x8 h& VCell[CellGroupData[{
7 H* w3 E& n4 H# z. v
! t+ e2 K4 \8 i! H- b- cCell[BoxData[
$ g8 B) _1 W) A0 N% t' m RowBox[{" ?/ ~! u5 ~ m5 j! J D
RowBox[{"(",
4 a% C+ z, t, u8 y RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
3 Y2 l& H( F7 B5 W RowBox[{"(",
/ N5 T' R4 |1 w; n) h1 J9 h RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],
& x# d$ F1 z O+ O0 T
" p2 p$ L: T' W; OCell[BoxData[7 l% O) ]. z( z5 @
RowBox[{
: o5 m# }1 w \! b5 f SuperscriptBox[
+ Q# X0 [, v: t RowBox[{"(",
. u$ o5 r. h3 z e. Z4 M RowBox[{0 p& ?5 K7 H7 F( C0 G
RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+",
0 @" o" ?* k- u7 z( U7 M5 S SuperscriptBox[
9 O2 K5 Q' U! w6 h6 g RowBox[{"(", 2 f2 G( v! V; m, C; m
RowBox[{
% a t- z9 O# s5 i4 Q RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",
* m8 ]* @0 q& U- l9 r SuperscriptBox[
* q! O! |9 E" l: s3 K) Y8 {. m RowBox[{"(",
" l6 ]- Q, u, t) h- ^ RowBox[{0 B2 M. m5 }) H- w
RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+",
, U2 v, u1 Q; ^7 V* [! O7 F3 d SuperscriptBox[
B! l( B; N$ h: w' O RowBox[{"(",
+ I3 D- t$ V z( K4 T" W0 X- K RowBox[{
+ m. M/ y& B+ P: D, o( ^+ b6 U; P RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+", $ J# u# ?2 P" m
SuperscriptBox[
0 ?4 y% V- l m) l RowBox[{"(", 9 ]% ~- Z$ M+ [9 q
RowBox[{6 \- s8 A; J2 m: }! e5 j+ {. w, ?* x
RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+", " G6 {& S. s1 ~( Y* W* G% v
SuperscriptBox[+ @# l) L0 L9 u8 F3 O- D4 }
RowBox[{"(",
, X9 U0 \# x; I; i+ `4 p RowBox[{! V% h |7 h) }/ s: K' _7 X
RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+", & C8 v1 N2 x v
SuperscriptBox[
2 B/ l! s5 }2 H7 }+ N2 W$ | RowBox[{"(", 5 a- z* ]% A& Y5 P, @
RowBox[{2 O' ]0 P3 u+ U3 a' a( ?2 Q& a
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+",
0 E3 u; k9 i5 W; c1 D SuperscriptBox[+ g- C5 R4 k& A
RowBox[{"(", " w: O# t! E1 H1 G8 L! k; C& W& \- C
RowBox[{8 L6 i) F, M; _5 S- o5 l9 |
RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+",
9 \( c! V! Q6 Q! X2 R SuperscriptBox[
: c) T- ?7 P2 e7 \* O! S/ d9 f RowBox[{"(", : w" w3 v- G$ M+ @9 ?7 w3 s G
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",
" n$ Y1 q* {2 _6 d; Q7 }* j CellChangeTimes->{/ B+ {5 v `6 Q4 f( \
3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, 6 b2 m7 W1 y( \& C
3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9, ' A- h4 _8 }4 I) L# X7 R2 Z+ u
3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9,
; t V/ D8 m {" A 3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9, 9 U9 g1 s& v4 W$ g' e/ l7 e; Q
3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9}, ( c; z2 |: ^. H/ ~3 x
3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9, + z9 K: R3 B" Q3 C' Y& I4 L! M
3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
3 K4 t" |9 ~! s" ?* [ 3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
5 }* e5 |* S! S" t% {6 M 3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {
2 \5 t4 n9 f( b; e7 n. o 3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {% p3 ^; d4 e9 N% t% n- G
3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9, # T3 }" U" K9 B0 r5 P
3.5779618537169228`*^9}, {3.5779618846049767`*^9, ! m" Y7 s& B8 w, ^
3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]# t X. g& E" Z; Y. e/ r9 G5 j
}, Open ]],
9 g0 F9 P. a. p; i
6 R1 M4 \! k- kCell[CellGroupData[{' W7 W$ H: u& S$ O( w3 j% |
2 e/ p9 Z3 Z7 {6 c
Cell[BoxData[8 h% y; T6 ^; M( X
RowBox[{& g* @1 C x6 U# A. S2 X
RowBox[{"Ca", "[",
! U7 ]! B1 [" P/ u: b RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",% x; p" m" B" s. F* `$ ~
CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9, 0 q y5 L( ]; \) r
3.5779616465173616`*^9}],
2 I# p+ K* L* E- ]9 M* B1 q+ o" r
. N, ^ W/ o! KCell[BoxData["0"], "Output",
- y% [/ k n, B D$ w, l CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
/ ^$ m w2 d# l! s3 k 3.5779616484049644`*^9}]2 W0 y3 ?' H* P/ s" I
}, Open ]],' X5 M4 }3 q- T+ \
/ U- F! H8 s+ H+ |4 N" k$ Y U
Cell[CellGroupData[{
, f9 E) @9 U; _& D2 A4 I2 r
# I$ |( }7 e; T( b. v0 U$ ]1 vCell[BoxData[$ n$ U" p. _* h7 v, C. g) ?/ B# M
RowBox[{
9 Z+ b& y( s8 [) L6 j" } RowBox[{"Ca", "[", 4 a S" L& h" r
RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",
; \1 K' \5 t7 o0 s5 s CellChangeTimes->{3.577957376235614*^9}],
# _0 n+ l( n! b3 ?3 y1 P* b' ^! ?: ^1 l6 c0 n7 J
Cell[BoxData["0"], "Output",
$ }& s" Y4 t, {1 E0 ] CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]
U5 W/ v! G; G) b}, Open ]],4 {. o, I4 h* C+ t2 M4 X
. k% }9 I* t E. H9 V) k' hCell[CellGroupData[{
8 B* d3 ~6 Q: B) j9 d+ E7 Q) W; u k# d/ Q% V/ ?6 r
Cell[BoxData[
! F& R% O+ U. Q- O6 Z3 X- @ RowBox[{
! x3 q' k0 k' S3 q7 A) Z9 C* ] RowBox[{"Ca", "[",
* T1 f5 O+ I4 Y1 g" F5 d! y9 }8 s/ q RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
3 f1 e9 O7 f' ]5 ]+ }2 [ CellChangeTimes->{3.5779573112927003`*^9}],5 K( h/ d- U- n- m9 @, p3 J
1 e1 p6 w. S; x
Cell[BoxData["0"], "Output",
' s( ]0 v5 v; |4 @. K4 C. B CellChangeTimes->{
# r- ^8 J [8 v8 l: ]' z }1 i 3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9, + Z6 O* u' |! i; i* L
3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9, 5 B6 k! P' `- G/ }0 {* B* L/ v
3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
o# y! z6 \5 I: q 3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9, . _5 F& I# L! ~3 V- [
3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9}, $ P* a& Y6 R8 p/ F6 `, s
3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
! r) b; f0 Y: O0 E}, Open ]],
' y# v! q$ x. y" }
( a( Y& }4 v/ T4 x+ }Cell[CellGroupData[{
: r# U6 ?5 g3 g P/ ?" E4 d3 ^
7 J9 S x, Q6 R+ y6 `. t, d7 nCell[BoxData[- S+ Q3 h2 d( P3 A9 ~3 B4 M
RowBox[{$ @7 }' }$ _' x& O3 r
RowBox[{"Ca", "[",
' m/ s/ X. C" E+ }( | s+ K% r3 r9 F RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
, s6 Y. Q; Z& D( X4 s CellChangeTimes->{3.577921461734375*^9}],
% p0 a, Q4 C$ g5 L h( A& ]7 x" A- }6 O
Cell[BoxData["0"], "Output",# w2 m$ h# p) W6 _+ w/ [1 e4 O
CellChangeTimes->{2 w* D4 ^' J! K" ~! K2 G6 ]5 Y
3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9, 2 b+ q2 b( B# e6 v2 a
3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
, [* l) e* e* Z% }$ N6 ?6 O0 W+ \ 3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9, 7 b1 A0 w' D% C% C* A+ f7 H; y$ }
3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9,
3 v( E+ b0 l8 U" d# \/ l- d 3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]# f& y. M4 w6 A" [4 {+ T/ q9 E
}, Open ]],4 m4 C7 Q; N) p- A* C
- |9 {0 g' M; i: [1 q& wCell[CellGroupData[{
0 x. j) s3 Q# p" x- F8 A4 I; J: P Q R4 C$ j. y$ K) p
Cell[BoxData[! Q' u+ Q- x, K9 F7 [$ V
RowBox[{
; ? g; Q g8 y3 ~+ U RowBox[{"Ca", "[", 0 [: e) \9 f! T8 ?; L6 U
RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
% u( ]/ n1 U4 { CellChangeTimes->{3.577957303118286*^9}],
9 E2 s9 H" w/ g$ x; z( u) s- `* ]8 @
Cell[BoxData["0"], "Output",9 L1 y* e! f' g
CellChangeTimes->{
; B+ p; w* {4 p5 K 3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {
. n5 h+ e% w8 p8 ]6 U 3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9, 3 A+ I1 b% y8 g7 p7 b
3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9, 2 }2 ^; K2 n. t
3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,
" V' U) k) T6 n5 } 3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
. x+ k1 ?* J( l7 \1 l2 y! W" P* J 3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {% B# h0 C8 b/ `0 p" ?+ J) K
3.577961889378585*^9, 3.577961912965826*^9}}]# c0 F9 T( p; U0 ]/ g
}, Open ]]," m9 V4 B0 f5 D( x$ ]1 k9 ]7 r2 [% D
& j% u2 Z1 F6 GCell[CellGroupData[{
b* }& s* i2 w- B2 B( E' j- _) l& A
Cell[BoxData[
3 u0 }5 `& d7 t# u. D RowBox[{" w" m- Q/ ~* W% H E
RowBox[{"Ca", "[", , x. \4 O8 e( G/ w6 H
RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",8 D4 R! Z6 s5 Q) M4 y6 a# c5 C% A z
CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {
$ G5 e+ k0 M1 ^1 W 3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
6 W5 o) g( H: Q N 3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {* |4 [+ Z) n& @- Y
3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9, ; N7 h( G D1 n5 o
3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {
2 A! @8 b6 T% z" R7 a' j 3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9, ' d. U/ R/ R! N" j
3.577921435703125*^9}}],
% b' m; R+ o; S1 P' M
: x- l0 V& ?+ ?, z0 p! j! C* ]Cell[BoxData["0"], "Output",3 U" v4 q8 [. Y
CellChangeTimes->{
- `% l' @) V( ]- a X" d 3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {
; n1 G4 X: A# h# z 3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9, % ~+ L5 w+ `9 S! q
3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {" `2 s7 z# s, d% `- s0 p& |* C! v
3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9, , g0 y6 Z5 Y) \% a5 T0 W3 c
3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {0 S% V, G% t9 r+ X& U
3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
7 {+ a F% `: p! _' @7 W7 X 3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
! ^: t" U$ M7 R7 J1 y J4 L% ` 3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9, . d' X: C# Y; k, y/ J
3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {) `( A5 p+ @$ r
3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9, 2 v0 `2 y- z% Z
3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {8 {" g% b% \$ S4 F
3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9, 4 X3 w, v) o. H2 r! e$ Z) B
3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
2 J! v3 m: z; B; Y6 H}, Open ]],
% m# s7 _, U7 O- v3 x% c1 h6 Q* B. L5 j+ [
Cell[CellGroupData[{& ?# [6 H" y: J9 I5 v
8 J$ p& }/ _" r' I3 vCell[BoxData[1 p- c5 m5 U& a! ~* z1 g/ d
RowBox[{"Delta1", "=", ! h4 `# \7 J$ }
RowBox[{$ r7 _/ I' W0 v
SubsuperscriptBox["\[Integral]", / e% N; |% O' P
RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
3 Z; X+ g V! W9 ` RowBox[{
' o2 _3 U& y; ^% ^' v SubsuperscriptBox["\[Integral]", / M0 R; i, a) e* ^4 G: b8 F( r
RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
: e+ T. c8 Y' f; P RowBox[{
+ j; g x6 E0 n# s* s) _ SubsuperscriptBox["\[Integral]",
6 j4 l4 V$ o7 r' k; y9 Q1 J RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
7 j) L4 B$ o d, A& H! S RowBox[{
" p$ C. T: w& Y6 W# g SubsuperscriptBox["\[Integral]",
& z& g0 _: J1 G% X0 N5 B RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 0 }* W" ]! Y/ B/ J$ o4 ?
RowBox[{! D6 U. f2 O% U6 K4 @$ \
SubsuperscriptBox["\[Integral]",
, V5 c* A0 Y% T9 P RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
' D: c3 j: H! G" L RowBox[{
; {# B) U8 B# G' \ SubsuperscriptBox["\[Integral]", 5 b0 d4 t7 b# K1 M! R, E! p
RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
; t# _; F- v }: G, L: H6 u' L RowBox[{# x- G5 ?; A! x- _6 Q1 F8 ]9 N( K
SubsuperscriptBox["\[Integral]",
. b! Z, F& M$ C RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 3 z: p0 x5 l- k# A$ y' L
RowBox[{/ L) x% Y. K0 _+ G
SubsuperscriptBox["\[Integral]",
+ X9 K0 J+ U, v& ~ RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ) U# V& s( R: _+ A3 S' G
RowBox[{
' s) B6 a9 t. Q6 y+ v' M SubsuperscriptBox["\[Integral]",
2 s! R. l8 ]) g9 U; d9 N5 Y RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
3 m# f1 R& @# v, o/ h8 \+ V RowBox[{7 n8 [: }+ v3 D5 p3 G, W, P
RowBox[{"Exp", "[", ! G% s6 x8 I& h
RowBox[{
; ]! W# G6 |/ |! o6 d RowBox[{
; |) q9 k5 ?( }$ R. t o RowBox[{"-", 4 g( G4 r/ P8 @4 N) M* t+ u W
RowBox[{
! U* g' g+ ]% j2 B' t# i! k RowBox[{"(",
# a; G6 \+ H. {. ?5 Y. c6 k! g6 ? RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 ~" X( L8 }: }4 _* |: [/ [) l
RowBox[{"(", % Z( s& j3 i$ y; { G
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
/ m" K' d! R/ O; C# T2 x8 f* q( ? "Delta"}], "]"}], 5 M6 `0 }, e! {5 F: P# }2 k" D
RowBox[{"\[DifferentialD]", "x1"}], 7 {# y% R5 S2 O/ k% `+ n
RowBox[{"\[DifferentialD]", "x2"}],
) f6 ~& ]% O0 |6 g# @) C RowBox[{"\[DifferentialD]", "x3"}],
3 `: w- Y) z4 X4 r! G1 ?; G RowBox[{"\[DifferentialD]", "x4"}],
7 j7 d# d3 N6 D" L2 ^2 ] RowBox[{"\[DifferentialD]", "x5"}], % O ]) ?& {0 T$ K r- T* s% V& h5 y$ `
RowBox[{"\[DifferentialD]", "x6"}],
2 b; }- t" r+ }; L; E# R RowBox[{"\[DifferentialD]", "x7"}], 9 |. g" U" O% r% g/ Q
RowBox[{"\[DifferentialD]", "x8"}], ! \7 b5 a: y+ X: e
RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",& q0 X' T4 `6 O/ K2 i
CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {2 G- q9 ~( d/ _6 ]$ R
3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9, 6 D) q% Z! f: R' s
3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {
9 e. n! {3 p9 @# p" }+ z' H# I 3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9, ! b% n( R% k4 i! N8 O" F
3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {, j; r, K) B9 @8 j
3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9,
2 q4 [6 @8 X; o' k% l- } 3.577918964453125*^9}}],
7 F# e' ^3 Z k! f2 M: N8 Y* P$ v4 Q) b3 m+ V
Cell[BoxData[- Q" u4 Y& e7 U( M" l) g% V
RowBox[{"97.40909103400237`", " ",
2 B& W' X3 m. m4 ]$ W SuperscriptBox["Delta", "8"], " ", 4 T# N) @5 q- z7 K0 Z& p. l" s
RowBox[{"If", "[",
/ X( t r; \+ R4 m RowBox[{
6 b* v! J. V0 G/ W RowBox[{) }% \- R+ v9 `4 R L" _
RowBox[{"Re", "[",
: D& k) J( b8 a3 Z SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
- R/ D! p f. p8 s( i FractionBox[+ M/ V. t/ H; H
RowBox[{"1.7724538509055159`", " ", 2 y& R; K9 P9 b6 J# m3 K2 V1 x
SuperscriptBox["\[ExponentialE]",
7 X; X. y4 ]9 A: T: m1 r FractionBox["1.1102230246251565`*^-16", * M' Q* H% Y! C( W' X
SuperscriptBox["Delta", "2"]]]}], , Z i7 h$ v* i! S
SqrtBox[
+ R8 ?- V* a1 x7 v0 `; ~) m FractionBox["1", $ _" |3 Y2 g8 H1 I* g
SuperscriptBox["Delta", "2"]]]], ",", 3 o d) }$ s" v9 g3 h
RowBox[{"Integrate", "[",
) N0 X( c8 G) m. }# S, L RowBox[{
# G' ~/ Y- {: L SuperscriptBox["\[ExponentialE]", 8 W6 ]0 g4 `2 e. T' |
FractionBox[' r2 P; }6 z. C/ D% S: J z
RowBox[{"1.1102230246251565`*^-16", "-",
; L+ t" s8 u' M, U& h4 a& v+ `1 v1 F; d RowBox[{"1.`", " ", $ g% X. J2 |* d5 b0 ^6 g) U
SuperscriptBox["x9", "2"]}]}],
$ @, y8 {/ n8 B8 V/ ^* k0 I SuperscriptBox["Delta", "2"]]], ",",
" w9 _3 U$ T' j6 c1 M6 M0 t RowBox[{"{", / y) _( D% V9 A3 x2 q( v* ~
RowBox[{"x9", ",", # \5 G* e* g, m) X' u' n
RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", 2 [4 C3 \3 c m! M
RowBox[{"Assumptions", "\[Rule]", 8 f a+ j; v' D& @
RowBox[{; m. B; C# P5 H( ~& B* ?) ^' j# Y
RowBox[{"Re", "[", * ]; v& e9 w: J6 p7 j# \9 `% }
SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}], 2 }0 L, F/ M7 t
"]"}]}], "]"}]}]], "Output",# Q3 R0 H* P |8 @8 V( P
CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9, 2 @6 y4 L8 w7 q" E) G5 J* s# `5 H
3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9, / q6 `! r; [& o, S: @4 K5 \
3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9, 1 I& c5 k9 H" S+ F" @" g9 n4 ]
3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9, . B, Z$ d; {, q/ f& T
3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9, - @* V5 S2 [( y0 `
3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
7 t* {& c; o6 b4 s 3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]
( {7 V& ]5 F- v. a}, Open ]],
E: N+ }- x9 x
/ b/ P/ |+ J& } G( `& aCell[CellGroupData[{: d4 ], O! ~$ i, ]+ {' u
: P7 W: V( j; i3 G( UCell[BoxData[% c3 g/ w6 ?$ c( K1 `) |7 V6 I! ^9 K8 @
RowBox[{"Delta1", "=", ' f8 [3 X2 g- i6 \9 P7 l# l
StyleBox[
* A# D$ m9 w$ ~8 i0 O2 l RowBox[{"97.40909103400237`", " ", " k0 I! s7 S% Q4 b! q: ]2 }8 K
SuperscriptBox["Delta", "8"], " ", : Q6 b0 P' j- K4 O7 x7 d6 W. {
FractionBox[/ ]; h% J$ M; T* S
RowBox[{"1.7724538509055159`", " ",
B+ @9 R( S. ]$ e SuperscriptBox["\[ExponentialE]", + M$ b( Y( I2 B+ @# m+ k5 F
FractionBox["1.1102230246251565`*^-16", & v0 ^9 t- F# N: [1 y) J" a9 p
SuperscriptBox["Delta", "2"]]]}],
! v- f9 |' {# J' P4 ~ SqrtBox[
0 U# c% W9 i) R6 W3 g; g7 h FractionBox["1", 8 h9 {( p5 p7 _: t0 m
SuperscriptBox["Delta", "2"]]]]}],
3 S! n- C4 N$ S, \" s FontWeight->"Plain"]}]], "Input",
6 m. Y9 z$ h' J* U CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {
1 ?, N% [. v9 \ 3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,
* Z5 e+ W3 L. Z; s, u- e 3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
* c, R _% B L/ E, C& r 3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
5 d7 R! a Z; W. k 3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9}, 4 q5 ]! q+ e8 i, E* f, B3 B
3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],
9 E7 l5 t' C0 s: A. }5 T: w5 M; W4 V7 F# f: ^- f* c
Cell[BoxData[; J) X. C9 `: F, b$ j) v
FractionBox[
% l) Y3 L7 s- D+ V8 g RowBox[{"172.65311851642346`", " ", , Z" V5 t2 r( U8 Z
SuperscriptBox["Delta", "8"], " ", & K- ~4 B3 J8 M6 `
SuperscriptBox["\[ExponentialE]",
8 j4 ]3 W, x' d* ]: c9 P, u6 L& Z: i FractionBox["1.1102230246251565`*^-16",
+ f' d) j0 s% w& w$ r% e A! x! E SuperscriptBox["Delta", "2"]]]}],
; P5 U5 _9 P/ k2 }- q" p SqrtBox[( r" T6 Q! j4 c2 D0 g8 O6 l4 p
FractionBox["1", - X5 ]% _1 ]% W+ W5 C4 |
SuperscriptBox["Delta", "2"]]]]], "Output",
O9 N! Z- W$ [2 }* m0 g4 V# r* o CellChangeTimes->{! f/ M7 j0 w E# V8 V6 T! O0 H
3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9,
" c, d6 H3 w' g: j% u 3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9, + w8 x" ?4 \5 ?
3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9, * L! Z' V6 q& F
3.578012166234375*^9}]5 p1 P8 i3 v9 c5 Q$ N
}, Open ]],+ e1 I. k' A1 A3 g3 }2 P6 n( }
+ u# ], r; r) S0 s7 d2 F) ?9 J
Cell[CellGroupData[{' _+ y6 n: Z. l5 T. Y, O+ I3 k
b1 t/ o: M0 b' u1 ?3 } RCell[BoxData[& a3 x/ ]0 d, j- n7 _+ L6 V; ~
RowBox[{"DeltaX", "=", # R; a. w" r& s' ~
RowBox[{"FindRoot", "[",
3 B7 o% h' d, J8 _6 ?9 {# _ RowBox[{5 P' {* _ N- J& Y0 ?/ q+ B
RowBox[{"Delta1", "\[Equal]", "1"}], ",",
3 x. R) k6 t3 r F$ X RowBox[{"{", ! s; l P8 g( C3 i
RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",! M9 m5 J' S: H& K+ d% }) r# G
CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {
6 _: |; s) q% r, L% H 3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9,
9 j& E3 l1 v7 ^& e 3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9,
. f! n8 @) _( m% f% p4 @ 3.57791921584375*^9}}],
- I. z2 c; g/ U5 \9 N4 r ^9 O" j8 J, ^ g* G+ s+ Q( M+ I/ y: r
Cell[BoxData[' w3 R; T9 W) O0 n
RowBox[{"{",
, K. q9 u A; E+ }4 N RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output"," P7 n5 b' l' t9 C9 [& ]3 i& V Z3 q
CellChangeTimes->{
m( L: ]0 a% r% S* O 3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9}, 0 P7 @; R7 H" G4 r K* t3 e
3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9,
, N' a9 W& H9 h. p# G 3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
5 V+ `6 ^6 _7 m 3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
|% d+ X* s9 T: s! H* U( k! j6 D 3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
/ X6 S0 q% S5 ?. h0 U3 ? 3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9,
! i; r1 E) x( g a2 h: s 3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9, * I- _1 y8 q; Z+ e$ z
3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9, 3 k' b- O/ L. ^2 h
3.57796070150625*^9, 3.578012167703125*^9}]
2 C$ @/ n0 d. r1 `4 i}, Open ]],! o$ z; a0 z0 M$ }3 K
5 y8 K8 x3 D) ^4 d
Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\+ C. ^5 t# V& w1 ] x; n F& E
\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
7 Z1 K d2 }( f4 `8 J2 M CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {- s4 u5 I1 Q ^* v9 m
3.577960705312657*^9, 3.577960707621461*^9}}],
% B( D, l* R( Z2 p; a& p
- J: k$ W: J, W4 @% jCell[CellGroupData[{
' V& B# a7 `% r) r, N* o+ F! L, O( K/ K! F2 a
Cell[BoxData[' V" o: T3 b, p9 h
RowBox[{"C1", "=", "Ca"}]], "Input", c; Z5 v; l8 e
CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],0 b! {" t4 X( s6 L( n, ~9 E
! u1 |$ _4 b8 s) p
Cell[BoxData[! e# u# n4 @( K( B! |
RowBox[{"{", / l: C- A" g- s3 |( F2 T/ {/ `" S
RowBox[{/ ^3 z [' j! A( x1 B9 H. d
"0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", % x- r" E' |+ y) R- G# q$ o
"0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
! \: ^5 \. N+ e, G { "0.`"}], "}"}]], "Output",, u; d8 m- l0 I8 n; R! {
CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9, + G' i9 H5 |: u X: |7 y9 U) J7 d
3.577960710273465*^9, 3.5780121855*^9}]
9 W8 Y4 u( d6 L}, Open ]],% t% {8 m) P6 w. H5 _* O
4 f- m8 K: C2 O% w" `. W
Cell[CellGroupData[{
3 }) M$ q8 W& U9 d" ^; ]7 l
1 L0 T0 e1 X( c! f+ dCell[BoxData[
* r9 L/ ~( s0 n) p2 g; x8 ^ RowBox[{"u1", "=", ' D4 h0 E1 \1 e) ^1 m
RowBox[{) r9 l0 c# }& G0 I. W, l; e6 M [% ^
RowBox[{"Exp", "[", * {7 T' Z% Y* r% ?% K9 O" `$ I
RowBox[{
3 O' W8 I' D6 A! k- F8 w0 L RowBox[{
$ V3 J0 S2 H, l' ?6 i% p! Y0 u1 { RowBox[{"-",
0 `. ?* ^1 p/ w8 B; _4 t RowBox[{8 U, f( Z! E1 s7 |( e3 t1 F
RowBox[{"(",
! S" B, O+ @) f! d6 i* ?$ r8 N' q% q RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
( o9 o9 w8 Z9 p1 c; y# D& e RowBox[{"(",
4 b+ C1 \" j+ d* l5 Y RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],+ R& v9 _; G9 c+ z; P
"]"}], "/.", "DeltaX"}]}]], "Input",& T% q ~9 @! r! g9 h0 z
CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {8 Q+ a$ |8 v j" Y8 D
3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {" ]. s2 [/ @$ C* S* w
3.577919193484375*^9, 3.5779192326875*^9}}],% d B: n4 l, }4 b
8 |) _2 ]" y+ d& o/ o$ R
Cell[BoxData[+ C3 W. L! F" \1 [; b& [2 D4 a/ @7 W
SuperscriptBox["\[ExponentialE]", 5 ~2 D: r2 W2 _% s8 n7 m
RowBox[{"3.141592653589793`", " ",
) \3 I* p0 N5 x# g. Y6 { RowBox[{"(", Q9 O" A2 v8 z/ A
RowBox[{. J# s" f' z1 G6 j$ [. C
RowBox[{"-",
1 d: F2 m3 R9 n# a7 T3 E5 ] SuperscriptBox[" I8 i/ b+ U9 y7 |; {; k6 D8 p7 {
RowBox[{"(", . z; a/ f# W' C: {/ H
RowBox[{
- k, O1 ]6 J& Z RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
+ q( R( A3 u1 V) Z8 c) p- o SuperscriptBox[
8 O/ r7 _9 j& N# i% _- F RowBox[{"(", - L$ ^- \) x4 X4 |
RowBox[{
* |0 o! A; C$ h) S RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
; z6 o* i' U/ E. m# Y( I5 n$ s1 T SuperscriptBox[
* h' @" ~; r, Y/ r5 s RowBox[{"(",
$ G9 O5 F, q. ~& g2 F2 E. p) h RowBox[{5 A& d0 c" F+ _" n8 Z: u+ B% f
RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
8 k6 f; k2 k. ]2 }( d SuperscriptBox[
+ {4 g L4 \$ a5 R# Z RowBox[{"(",
6 n9 ^. S3 p2 J3 z RowBox[{
% y" ]2 g2 s8 y, y# K1 U$ P RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", " S7 j" K$ r4 T6 E) ~
SuperscriptBox[
* \2 m* Z; H1 U7 z, ~' X, M( J RowBox[{"(",
5 ^* m& @0 }1 e' Z# ]# X RowBox[{
& g) j" X) }6 P k0 T RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
7 C7 M, G7 F# \8 U3 u SuperscriptBox[
; I: Q8 W, z# v* e RowBox[{"(", $ }, P9 s2 u1 X
RowBox[{' m' p9 u% q( K# r" C
RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", ( A% g' ~5 l. c: q7 r
SuperscriptBox[
% m/ Z% c9 a5 h+ D RowBox[{"(", + z+ |3 B. d3 Y, G! t. T5 ]
RowBox[{
& B0 A/ t/ a2 F1 c `, e RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", * _( c$ v! ^/ L, [" _! ~, M0 B
SuperscriptBox[& N! w' M v+ A! @2 U
RowBox[{"(", . j/ @, H$ D8 F* V
RowBox[{4 `9 b: H0 K2 O+ m8 D+ J
RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
- ]8 U7 W" {6 ` SuperscriptBox[' i: ]9 W8 Q- Q% R* N
RowBox[{"(", + y7 V( E# {& m+ {" v" C- s+ N8 l
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 7 M9 h. x2 k2 Z+ p
")"}]}]]], "Output",
0 ?8 _& }5 n9 G) C0 [) v CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
$ `1 b# v; Y: G# U. o 3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9,
9 M2 D) |* M5 d 3.578012187078125*^9}]
" F0 c5 m" ^8 o}, Open ]],5 T3 U0 s( c$ O/ @% N- i7 [) k' m
- O; p! y/ L/ q: Z: ?0 S" B1 G1 CCell[CellGroupData[{
+ |/ q; d# k: s; k' P6 _7 ?$ D L' h5 t5 f
Cell[BoxData[
5 g! e7 S1 }. J9 k" x RowBox[{"C2", "=", "Ca"}]], "Input",
9 y/ n n* f7 i! N8 v0 C; w* S2 j CellChangeTimes->{3.57792047321875*^9}],# g0 H3 p; y3 |, K) L e7 W! f- f
: e+ y4 z! B$ i/ t$ T& bCell[BoxData[
2 d: w, K! a5 y" W1 h8 m RowBox[{"{", * [$ s F. W9 d. A3 e
RowBox[{7 }0 l( }& k/ |
"0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
# W; [' }+ o. {4 K; @; ^* A/ d "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}],
8 H5 ?8 a/ _" a) K- O/ ] "}"}]], "Output",
) J' A; z) l- B' i- ~9 H; e7 D CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9, 3 ?% b Z* v3 d* e b
3.5779607401163173`*^9, 3.578012204671875*^9}]3 i+ I+ M% x1 V% n
}, Open ]]," G# S6 W6 H, F4 u* |
6 p+ j E. k" Z; T1 F8 p
Cell[CellGroupData[{
* R. n9 h; a* j8 t7 L
) ?# Y; F& j+ f3 TCell[BoxData[) ~& {* Q. Z# I: M$ [
RowBox[{"u2", "=",
- Y3 R1 m1 U( c1 D RowBox[{2 @& F( g! ~1 w$ {
RowBox[{"Exp", "[", / P! _! w) H/ D8 j1 J: x/ [
RowBox[{
4 x. Y6 f1 d, ?) O) o RowBox[{- W6 i/ K/ W% o7 ~7 n7 [
RowBox[{"-",
5 @$ S/ \; G3 l, r0 t) d2 p RowBox[{
- Z `! D9 M, F' @ RowBox[{"(", / P0 y3 o2 v$ V( V6 {- R0 D
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
" o9 N" x: Z! I RowBox[{"(", , f$ t6 U- G7 U
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],2 X) W- H; W2 \5 G2 ~
"]"}], "/.", "DeltaX"}]}]], "Input",3 M9 l- f$ U) U7 u& ]2 _
CellChangeTimes->{3.577920484109375*^9}],
( y) i! V0 E9 Y9 q% r+ s# q5 j
& N& a7 g. y5 o4 g/ nCell[BoxData[) i( l4 f$ @6 L9 u; [" T
SuperscriptBox["\[ExponentialE]", $ K9 N8 p# }. I" D- o0 l
RowBox[{"3.141592653589793`", " ", 2 e( j& m* i. v
RowBox[{"(", * \% G |1 X6 k7 k/ ]+ k
RowBox[{
1 m- b2 U3 ?, N$ f RowBox[{"-",
! H! N$ z4 |3 o, n6 U1 k; n SuperscriptBox[0 X' W# C6 J- Y
RowBox[{"(", ! w, K6 S9 T2 Z" p" G* {
RowBox[{$ {6 X8 H9 G' L( a
RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
: w2 m. k3 g4 p8 Y: v5 k SuperscriptBox[
; a: q' z- p5 V8 |: ]' q1 m ~ RowBox[{"(",
7 j+ J) X0 u$ Y4 \) X6 S% R RowBox[{4 w! a/ T0 E8 G: h3 j( h
RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
# b- b* m/ z1 Y/ ? SuperscriptBox[
' f+ w. h y& r+ u RowBox[{"(",
+ d9 t, R2 H) I RowBox[{
r" W$ }. m5 i2 p3 z& \; G$ j RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", ! M- _& _. m2 f1 M+ \0 J" _
SuperscriptBox[& d# {8 ^5 h+ o$ p* v7 ?
RowBox[{"(", 3 Y2 ~' o4 O2 p* \0 l
RowBox[{( f) {& ^& u* t0 Z
RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-", ! }2 P; k5 e# v
SuperscriptBox[4 ]$ _2 X- x7 o, d9 {/ y; Q5 Q; N7 j
RowBox[{"(", - m( U6 d6 z6 K6 m$ ]
RowBox[{+ [, j# m4 P7 R: f( \. f. n; E
RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", . K( z. V! W2 S; y! r" \
SuperscriptBox[
; F& p; r/ b* N1 Q5 h0 C# b2 I RowBox[{"(",
' E4 E8 `& B: a$ I& U6 F RowBox[{# i5 H/ W, P( Z+ F' n, O/ v8 F! J1 y
RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
9 t) @$ M1 ?; o7 R5 R* U SuperscriptBox[
7 w( v2 q- g: B% ]5 n RowBox[{"(", . K& b, J- t( c. s, f
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
: }; e. s' B5 ~6 l SuperscriptBox[
; z- J5 H' F. P( R8 u" b( U RowBox[{"(", ' R3 }, M- S& n( I: R( ]( E
RowBox[{
% T: c% [* ^/ F) ? RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", ! ]& E G# k% @& V) r1 n
SuperscriptBox[
( W0 j( P- K8 t! e% r$ D# n9 ~ RowBox[{"(",
& u8 {$ Q& A9 ]/ X4 I0 H/ L# L5 Q RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
, {1 x# i5 e D ")"}]}]]], "Output",
7 D8 W2 F" b; d- g3 b5 H4 k CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
6 Y% _# F$ \* ?, W H0 Z1 g: v 3.5779607413955193`*^9, 3.578012205484375*^9}]
* e# }' P- r; i8 Q}, Open ]],2 G z- Y- M3 A: @
% j* m% K3 g" T2 A0 o2 o, T
Cell[CellGroupData[{, ?" ?- n2 e; |! F r/ u% H
8 c0 w& j: N5 k5 ~/ r B
Cell[BoxData[8 X: W8 l) O% \2 ?1 k
RowBox[{"C3", "=", "Ca"}]], "Input",# i7 c+ _% w- [" Y9 Y6 ]8 u
CellChangeTimes->{3.57792064125*^9}],
# P! _' G4 t) d, E. h5 I( R6 L6 w. m b; e- l: ~9 L1 D
Cell[BoxData[) T1 P1 j" E: B4 g
RowBox[{"{", ) V5 _) Y: `4 R. d
RowBox[{1 N6 y7 L! y9 b& g
"0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",", 6 M1 O2 x% Y3 H1 Z
"0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
# G. n C0 S7 a "}"}]], "Output",
Q& ~7 v$ j% P! p/ u CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9, % R: w5 b9 _" s' I% ^
3.5779607642027593`*^9, 3.5780122103125*^9}]
! u$ ]4 k( X( V& _" D7 s! u8 K}, Open ]],/ ]1 x3 M) U2 i# F/ }
0 f; {/ m0 u1 ?" e# k& d
Cell[CellGroupData[{) a" J s5 w& m$ r2 M* b5 i
* U& P, |7 T- t& E$ P4 Y
Cell[BoxData[) q2 o' D3 l- |# l1 r
RowBox[{"u3", "=",
; X8 P/ [7 X4 p% `9 W6 ~ RowBox[{
. z: C+ t8 U7 b& D3 }1 x7 O5 ` RowBox[{"Exp", "[", / a5 G+ d9 {( p- `7 z
RowBox[{+ x6 l& G. e: z% l' @
RowBox[{
* G) D# d, p. H4 J) ]' r; z- q RowBox[{"-", & D5 z# y0 j% e* Z
RowBox[{
+ V, e* }# S+ n f2 o0 {7 x8 R: y RowBox[{"(",
9 F7 i4 W8 T# Y RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
$ Z# \1 w. x8 K9 [* A$ S RowBox[{"(", , ^( c7 T$ d" P! @; W0 b5 M
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],, |9 Q9 H$ ?8 A( g6 V- z: `: j
"]"}], "/.", "DeltaX"}]}]], "Input",
& |# h* r7 v- S$ E+ l CellChangeTimes->{3.57792064921875*^9}],
9 T$ y4 j+ j; O6 E: l: d
8 f( m1 F& f V/ B+ h6 OCell[BoxData[
2 k/ s; W- `2 p9 j SuperscriptBox["\[ExponentialE]", / b* _" F! ~( L2 r+ w: @
RowBox[{"3.141592653589793`", " ", - X5 D- D4 A6 Z! D
RowBox[{"(", 9 a" x. J0 e9 b R" _) t
RowBox[{
8 J$ P( o O( H; s/ w* I) h RowBox[{"-",
7 d, P3 \5 ` H* Y# i. p1 G. q. \; u SuperscriptBox[8 I7 Z( F! H3 |) A7 E0 j. w8 Y
RowBox[{"(", 8 O$ c8 V) @# h% F3 J, C7 p
RowBox[{! k" e9 y2 g' [) Q
RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
# L* A o' h/ S d% O* k: _7 o SuperscriptBox[& `! M8 q% z. R+ V: {+ y
RowBox[{"(", ) F2 k, p" L$ v( |
RowBox[{3 k/ D1 p& Z" T6 X+ U$ l
RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
B1 W' o2 X# e- J; f2 v! z, z SuperscriptBox[
& S: Z, a$ L; e9 |" c! R+ e RowBox[{"(", " l3 C5 V. W# W1 G$ ~, b. m, i) d# v j
RowBox[{0 I( D3 ^7 h! q
RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", - E+ K9 m* Y V0 R& B$ y# U0 U9 S
SuperscriptBox[
: s' [9 N4 G' a RowBox[{"(", 4 S! z& T, h* F1 r5 ]6 d7 ^
RowBox[{/ v- k( l. i" P# F$ d
RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
% O; c* W/ w" u0 W! x SuperscriptBox[
( o7 _; I0 }6 M$ o$ l1 U RowBox[{"(", ( ^2 Q" |' w% U, W, V% C+ a7 K
RowBox[{+ W6 J3 |0 S% {, e2 t
RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-", - B7 s( ^9 u5 l# a: D1 k8 L( e1 U
SuperscriptBox[
( c4 D- h# d. C+ A RowBox[{"(",
+ \4 n' K4 t# k. Q3 R" Q RowBox[{
. L$ o4 Q d( o7 k5 l( X RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
( S9 i/ D: T, P4 [ SuperscriptBox[
/ a2 J; I6 L* C9 z RowBox[{"(", % t2 R- j- ~! S3 E% W
RowBox[{, }# o2 o" C/ `- ?: X$ R
RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", . g- ]: [, F# R4 W' g1 x6 G/ p
SuperscriptBox[! s7 P" a5 `- {/ t% `
RowBox[{"(", ( z) [( s% z, \4 n `
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
) w a2 C/ O. _: f- I3 a, ]0 D7 U) r: { SuperscriptBox[$ A* ^' d$ ]9 c6 q% ?% ~* V
RowBox[{"(", ( j1 C% {6 Z- |! ?" A. l1 t
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 2 ~$ u8 M2 o; ?# s! q( Y. Z: G
")"}]}]]], "Output",8 D" x9 e7 A/ w+ Y
CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9, ' s. `: E/ B O: i4 e
3.5779607654819613`*^9, 3.578012211515625*^9}]
) b I* j& ]/ g+ j: w1 e}, Open ]],- u: O$ X. n+ `0 v2 G/ q+ c4 u
4 X$ B0 }( F: f& D& ^- O& o
Cell[CellGroupData[{
9 h* ^: P1 | D, z0 p
% e& C; O6 c; u1 Y ?9 E$ P* j! VCell[BoxData[
; B$ c0 J# P* C RowBox[{"C4", "=", "Ca"}]], "Input",
6 }+ `* x- M- o3 j CellChangeTimes->{3.5779207559375*^9}],
7 }% A% q& m3 f. p
/ A- |. A- O) }/ @8 s- zCell[BoxData[6 n7 H+ ~+ P& ?9 L% R
RowBox[{"{", ) P9 x: e- p* ~& s1 K
RowBox[{2 Y. s" L, a/ v5 o6 o$ H
"0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",", + R+ I! u6 i' ]
"0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}],
) w5 j# z; y$ ~' n3 Y, C4 k2 H5 _ "}"}]], "Output",
a0 t' Z3 g$ a CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
) |: _) `1 }5 S2 \2 X/ ~ 3.5779607861363974`*^9, 3.578012216171875*^9}]0 b+ o! y# \- \; l& ~
}, Open ]],9 F* o# \$ A9 C5 D/ w3 R; M
, W" m- \: k. o, s2 o; _
Cell[CellGroupData[{; }* {) ^5 `$ X+ ^- \# e8 U0 m
, l, G) B2 f7 a% z, C
Cell[BoxData[: u4 I7 h) p H
RowBox[{"u4", "=", + o) ^) z# z. a. M
RowBox[{
( F$ _1 @! q1 i+ u- {3 G RowBox[{"Exp", "[",
4 C& L3 I' o" P2 o1 \- u6 X RowBox[{
& |% B4 \8 K p7 Q! F RowBox[{
5 U" Y3 C) x Y1 U6 n; t& m$ K RowBox[{"-", 3 M3 x; [+ T& W, M
RowBox[{
a4 @: P5 x# U: g. z% }# D$ f" t: B RowBox[{"(", 0 c" V u1 _- Y. j
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
1 D5 T. f$ T" _) P: I/ S4 u RowBox[{"(",
$ m9 V- k/ g) g5 n0 X RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
9 Q2 i7 ^9 f3 S "]"}], "/.", "DeltaX"}]}]], "Input",
, e9 L8 ? ^, j( ~( S1 E5 k2 w CellChangeTimes->{3.57792076325*^9}],7 |4 ~$ L# X) A$ Y& ~2 C
. ]$ E5 M+ R0 I+ d7 A/ a- ZCell[BoxData[; b6 X2 g! j# s% C# w t J; S- m
SuperscriptBox["\[ExponentialE]", 6 y$ Q1 F- `, r& q: [
RowBox[{"3.141592653589793`", " ",
% Y- Q. _, @* B+ W) b$ n6 w( o, D RowBox[{"(", 2 m' R* e2 p E3 s" f K
RowBox[{
) u" e9 K' G) [& b RowBox[{"-",
8 P* G! z! |1 J8 t6 H8 B; V2 H SuperscriptBox[4 N3 @' T/ ~* a
RowBox[{"(", 1 ~, v: N7 Q# Z5 U. m
RowBox[{
! A0 l; \0 b# v% l: s RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
: Z' g, A' \# A1 S0 c8 o. ^ SuperscriptBox[
+ t' b, |5 \0 t, ]+ e RowBox[{"(", ( ?. U- B) M" ]4 u+ w: E( e
RowBox[{' x+ d1 A- v9 x0 t6 K
RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-", . L+ {) W& Y* S( P7 i8 s" Q# l
SuperscriptBox[/ o4 f: Y* i6 ^' _
RowBox[{"(", % @; v! H& e6 L/ t( [) J* y
RowBox[{, t6 X6 ~* `' i
RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
7 ^6 M# n6 V2 K: O' T: e% K. s/ B SuperscriptBox[. M& z. `" r u+ w
RowBox[{"(", ( e1 U( ` H7 a
RowBox[{* Z8 h) [* n) j# x) b( Z1 B
RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", - X) ]/ L$ i( w% r& M3 Q& a
SuperscriptBox[9 \0 r& q4 n* ` U/ Z& B0 \
RowBox[{"(", 5 \1 H6 z, a( }+ z% \: ^2 ~
RowBox[{; j' Y" B# |, N% Y; A
RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
1 K1 c' k, j- n2 C c9 v SuperscriptBox[
7 N e: j. p9 X7 G RowBox[{"(", c Z5 B7 F8 X- B0 u2 `$ g/ ]1 @; C
RowBox[{- [) S* D% l9 H( F5 |4 L
RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
% @5 c+ H* t' m; e4 s; o! @ SuperscriptBox[
( G4 X! [4 ]* s; V$ x3 e# U RowBox[{"(",
# |1 L* n5 t. P* r; ]$ h" H RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", : {' B! ?5 l! l1 l' e: R! j
SuperscriptBox[. b1 V; p. J3 b W: k4 C' _' i
RowBox[{"(",
+ R' h7 v9 ^9 [! r' I+ s- h$ r RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 7 M. \4 G5 q0 U( Q" S$ ~
SuperscriptBox[8 F. e; x& `, m8 a% E
RowBox[{"(", R- G5 z8 W. Q5 X
RowBox[{4 N3 G, c% Z P% G
RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}],
6 u) R# e& p; o2 K3 e: N ")"}]}]]], "Output",
/ \- T& Z# z( S$ b8 m- [' [7 Y CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,
7 Z1 v8 n, T4 j0 |1 S- _ 3.5779607873531995`*^9, 3.5780122169375*^9}]
* C: Y/ W9 @: s5 q! x' J/ g- f; G z}, Open ]],' A( j. {! M; k+ C# T, S+ f! o
0 g* J$ W4 A7 n: L: z; bCell[CellGroupData[{7 S* j; M0 d( V K8 d
, f- G9 ?3 c! L& h
Cell[BoxData[
5 X# W: Z4 r e; ^: E* d RowBox[{"C5", "=", "Ca"}]], "Input",. v Y& A7 W( @8 M# q
CellChangeTimes->{3.577920860671875*^9}],7 t0 s; X n% F3 ]9 i
& e/ {+ \. l$ @- ~; `
Cell[BoxData[- g5 E2 h5 \+ Q, C) _3 C6 H
RowBox[{"{", : U" u- [+ ?4 w& v; u# \9 B+ t
RowBox[{
1 G2 u' ]' _+ ]5 T# A* V "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
V& L3 X( [4 a8 d3 _! _ "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],
) D2 y5 @& r" ?& A3 R U "}"}]], "Output",
1 D. q, y; G8 K$ R CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
k9 S- U1 v, N 3.5779608137328453`*^9, 3.5780122209375*^9}]
) w- v: R4 A) E f}, Open ]],$ A" F; X- e# w& i: B$ n7 Y* x
! o- x: S: e% v& J0 r3 I% _0 l& T' CCell[CellGroupData[{$ E* T1 z0 }+ v# ? x' w4 c
6 c5 @# s8 A0 N! v+ a: `, LCell[BoxData[1 v% j& a K0 W! A
RowBox[{"u5", "=",
; c4 v, _( ?8 e! R# g) }7 P RowBox[{, @( r; n" ?' F2 |6 \7 z
RowBox[{"Exp", "[",
" X% a9 x5 ]4 f0 j- J# F. O! L RowBox[{
* d) `: |0 u% B0 Z: l5 e RowBox[{ H0 [! @5 U8 P6 o4 ~. R
RowBox[{"-",
; m7 [0 o7 r. c4 x8 f9 o, ]( E+ l RowBox[{
7 n) ]1 c+ Y$ b1 Z' X5 a RowBox[{"(", 3 w3 m( w7 S& Q$ [( }# [
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
+ M) o' X& B. V1 `; Q) f RowBox[{"(",
! L8 t ?2 D" s+ [7 @ RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],1 y$ D+ V1 v; \
"]"}], "/.", "DeltaX"}]}]], "Input",! p0 [4 B$ ~* P; `
CellChangeTimes->{3.577920869375*^9}],
4 j* S# A# P4 Q/ Q* p$ _/ \+ D! Q
Cell[BoxData[1 D) d1 I. D4 F+ d0 K7 S- t0 a
SuperscriptBox["\[ExponentialE]", ( [3 A7 l$ M, O
RowBox[{"3.141592653589793`", " ", 0 E) P9 [4 Y" ~& T* ~
RowBox[{"(", % g! ^7 W. _3 N+ T L
RowBox[{
0 _/ v4 J# K( ]9 `3 e" O. F' X5 C RowBox[{"-", 9 f6 Z4 u1 `" L0 t1 |8 A$ G; i
SuperscriptBox[
2 K0 I* [! F, u( v, y1 n Q8 U4 i RowBox[{"(",
7 S' X% J Z& L! M RowBox[{
2 Y, b4 _. |9 A1 N RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", o( ~; U7 R; g# S3 k
SuperscriptBox[
" P4 i1 A8 I; _ RowBox[{"(", 1 A& U+ y1 C. | C: U% W0 J3 j
RowBox[{
( O4 [1 M* r4 B0 f RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-", , X) k- s2 A4 l/ h
SuperscriptBox[* ] l$ C" f1 `4 k! m' e# J
RowBox[{"(",
, G& `: U* r) h- _ RowBox[{
4 J3 R; _6 t2 Y4 J RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", ' z- M% D8 T3 G! Q. W
SuperscriptBox[+ a3 j4 J* O; j2 H" H
RowBox[{"(", 8 ]7 _, a9 e; J& V- R
RowBox[{+ l2 p" H) z( p3 n: e4 ?
RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-", g, I i! u! z% r
SuperscriptBox[
9 a3 ]$ Z9 C, l RowBox[{"(",
* Z' t$ Z/ e& o& w8 ?6 S$ g RowBox[{
! O& I0 y! s3 ^1 f* n/ x RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", 7 T: y5 @2 ?1 G; ~, E" }
SuperscriptBox[
, N+ v( q8 \; L: p: { RowBox[{"(",
( f6 I+ v4 a. Q3 ?! N! P RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
8 t6 Y. q' J# k' Q SuperscriptBox[
9 @! R$ t" c2 k6 Z, ~" Q: T; c0 \ RowBox[{"(",
; N0 z4 _" }1 c E% d RowBox[{9 A6 x3 U, R" o) R k! ~/ h; H* z. m: `
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
. D3 P& U- b7 P+ v# t SuperscriptBox[
( v B i p/ L/ `, P RowBox[{"(", 4 G1 N( K, s. k! b: n
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", . p" s$ P- P v) ]3 q& k% U
SuperscriptBox[" k4 D. G/ _1 V# a& j
RowBox[{"(", & h0 v5 ~: K. e7 m' u5 W; ]' J
RowBox[{
- w o) E' h# j$ x! R! U; f RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
$ l; n5 C- |6 Q% I0 r9 a3 R ")"}]}]]], "Output",' Z: [" @( ^* H P
CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9, ( D Y$ Z" W- P: Z
3.577960815043248*^9, 3.578012221953125*^9}]
2 J/ [! ~, T% ~, e7 B/ t}, Open ]]," F' ?& W6 |/ ?. c
. u6 `; H q0 E6 F7 U( q. F E2 |Cell[CellGroupData[{( L9 U$ e. E/ `) u* q
: U( i9 m+ }8 G! A& T! l" MCell[BoxData[. h2 c3 ^+ A7 M" k1 ^& P$ _
RowBox[{"C6", "=", "Ca"}]], "Input", R2 O" _; x; `: C! u! E7 a
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],: A, V, u) _" A: N
, }! I8 d1 X) i# m& p! ]Cell[BoxData[5 Z( K0 h) u7 D7 V7 g
RowBox[{"{", * A" R& U8 \! j0 P0 G; h
RowBox[{8 U* f, u6 B4 w" f" Q2 U
"0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
/ V( ~+ R& M% C7 J5 a1 A. h( E "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",", 1 t% r7 R% F: G; s1 f" R
"0.494866`"}], "}"}]], "Output",
2 A5 I K& F$ K: c. T CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,' K R% E$ S3 h4 Z+ G2 v' }6 k6 {
3.5779608373044868`*^9, 3.578012227359375*^9}]
$ H; F4 v9 x, S' U}, Open ]],
# \# B$ V% m! g$ [ l8 C5 m
# O- h7 N8 }4 @" YCell[CellGroupData[{' H7 r1 \7 | }
" A0 N9 Q/ S- q( _4 j
Cell[BoxData[; D$ z/ c4 o- K6 S8 c
RowBox[{"u6", "=",
; }- u% s& @* h N% M; M+ { RowBox[{6 w7 b4 h6 t, K
RowBox[{"Exp", "[", , i: t2 E. R) u
RowBox[{+ J' e3 X6 h1 Q0 C- b. z% {5 H
RowBox[{
3 C* G! V L7 O# T, j' l7 { RowBox[{"-",
7 O# u* D6 h6 P& l4 c RowBox[{
3 v: B; U0 x2 v0 e* B; c RowBox[{"(", $ R* V! m% D, l. E4 ^" \
RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 3 G- R1 A- @) o& C; ?0 L5 n9 d
RowBox[{"(",
; k7 `& s/ X9 q3 O" w# l! b RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
, l+ ?# L2 [7 _' w$ F" w8 ~0 L "]"}], "/.", "DeltaX"}]}]], "Input",0 A; S! k3 w, }3 ?
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],( h" d+ t6 `, V4 c9 F( s
# B( y1 R5 o' J: i: s9 F8 i
Cell[BoxData[
5 ]/ W% Y8 T% t SuperscriptBox["\[ExponentialE]",
+ ?. k' W# i- E) r4 D- N RowBox[{"3.141592653589793`", " ", - `& I l/ g: v, P2 x% S
RowBox[{"(",
( ]) D( {9 u* q RowBox[{
U9 h: v4 {" a, A U1 m f F& [ RowBox[{"-",
1 @6 x0 [7 \0 O* |9 H/ j" Z) n4 n/ ^ SuperscriptBox[
/ L; L* f3 \* U; C. a6 ^ RowBox[{"(",
2 c9 y& f$ x# B9 m" i; N) ] RowBox[{( m& t" H1 w- x, k
RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-", L4 d$ Y" b3 [7 h& i6 D: Y
SuperscriptBox[* e& C2 ]& @3 B( y& \+ V! X
RowBox[{"(",
+ d, i4 { J5 U: O RowBox[{
, @) I# F2 L1 h6 c RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", 4 e" g$ j9 y4 ~' h/ {+ n. a- [( l6 ^
SuperscriptBox[- {" b, R4 t+ h
RowBox[{"(",
: u- w' g& Z3 Q. B RowBox[{
. ?& M2 ?$ I, v* A9 g7 _ RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", 8 O/ A4 M0 D' N: Z, B$ Y I, h) J' ^
SuperscriptBox[
, i, t' D' c+ e2 h RowBox[{"(",
& L, `3 A* ?8 r RowBox[{
) r/ _) G9 G9 G8 l! M# ]" ?" t RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
. W4 v; N% G1 I& Y( Y SuperscriptBox[
4 K6 B+ A! F% w6 j' n; J RowBox[{"(",
q# U; F5 R4 J- h6 |- z RowBox[{
; v% W" l( ^1 e" Q: ` RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
`) i9 E! Q# U8 D: U/ ^% | SuperscriptBox[. |2 D4 v* ]0 P' O1 g$ \
RowBox[{"(",
! C8 |+ a* I3 G9 d7 x5 X9 l RowBox[{
( z) y+ H9 b2 l' y- w5 F. c; u RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
! O/ g1 l- S% i0 m: i S SuperscriptBox[- B4 N9 b- r/ s8 m4 d( {
RowBox[{"(",
1 { C. _& s u$ o' C4 S RowBox[{
4 v1 h$ O/ d% Z2 g: D RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", 4 W( A7 i% L4 G" c. f' d
SuperscriptBox[
# A% O5 @; h# _# o, D5 X) o RowBox[{"(",
* }6 r" E( `- ] f( n. I1 Q RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
n% F) t! o l* w. U SuperscriptBox[) L* F! U# F7 C2 R) I. [
RowBox[{"(", ; m* b& e9 `1 |( A) @: @5 b1 K
RowBox[{! N: m4 K' N7 X4 t& c
RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], $ d; {% d2 B/ j
")"}]}]]], "Output",. {* w+ P/ L* a+ L
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, 7 ~3 M* |4 Q, u7 |: p
3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
0 X; @& X" Y# o+ c, I+ i) @}, Open ]],! Q. `. e7 T8 I
* e! d' i7 M, w$ x. Z9 F, V& @; L
Cell[CellGroupData[{
/ k9 m2 u) L7 X( y9 y" b& Y; L" [" O, \( G/ q; n$ U2 Q7 C
Cell[BoxData[) n6 [! N8 M( K) ], i$ y
RowBox[{"C7", "=", "Ca"}]], "Input",+ B) P8 q, ~# B* K
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
# t0 [9 K. W; t8 H+ m$ {- E 3.577921316125*^9}]," f; I6 B0 k% d m3 d! P
4 }! w6 I5 J* @ r8 \5 u& GCell[BoxData[
: Q! i( B6 m& \2 D- a RowBox[{"{", 7 e& J$ |: U! D4 Q6 D. K1 M
RowBox[{
& s" E3 y# B6 o) j; |5 }* h5 I "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
; h2 h- o- F, t' G8 ^9 L4 n; n "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}], 8 I+ Y8 k! `4 I0 X
"}"}]], "Output",
$ A C# T7 h. ^0 F c/ J CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
" v! a: t. _" D8 m* v1 I 3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
. L8 A2 U; e6 c8 V# V4 y$ B9 h}, Open ]],
8 _3 ?0 J0 v% z4 M; L* f# k7 k/ B3 x* K, c& \
Cell[CellGroupData[{
, L* l7 ~, ]6 l9 E# E J: V3 o( ~
/ P. T, d P0 w( W" DCell[BoxData[2 i. m2 R7 A2 h# q- p% f2 G
RowBox[{"u7", "=",
' J4 p8 u- a% f% D' f RowBox[{6 s# C/ D* C. |- a0 I
RowBox[{"Exp", "[", 4 G# p( M1 _" e; e" M
RowBox[{
# y& P3 U7 A, ~! ] RowBox[{
5 p% |" m0 o7 V T% U3 B. ?8 b RowBox[{"-",
, \( H7 j& x8 W6 x) ~; W0 n RowBox[{
+ b1 m" C) d# {" _ RowBox[{"(", 3 H+ E' d) {. M. y
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
( J* A! `0 g1 f8 W# R6 ~! M$ a RowBox[{"(",
2 r g! H* A0 u9 q RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],1 w* T. L( X+ D' U% n; [
"]"}], "/.", "DeltaX"}]}]], "Input",
$ r q& F) f: s CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, % |$ M8 A1 _3 u$ a" |
3.57792132028125*^9}],* Y9 p% x8 b% p9 ~
: M1 C* |( s' F4 H
Cell[BoxData[
$ W5 J& n! n U- b% r5 T2 R SuperscriptBox["\[ExponentialE]", \) W3 [$ M" ~. ?" m" x
RowBox[{"3.141592653589793`", " ", . i1 }1 `0 e7 V# G( X
RowBox[{"(", & ~+ K' F* O3 c" F( q8 f
RowBox[{
7 I( O5 H/ R- T! l6 y8 F6 c RowBox[{"-", : T, q0 G& f' c) h! U- {
SuperscriptBox[
6 S7 H9 H0 Z# `. w* N/ z( ^ RowBox[{"(", k" `, q8 @+ t) Q. G
RowBox[{
/ \: {- _, h. V3 F3 O) R& { RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", ' b2 r/ O$ c# |
SuperscriptBox[/ E1 ?, m7 ~5 f' `, i
RowBox[{"(",
7 ]! W ]4 r; @ RowBox[{
0 F' m5 V9 q' M5 w4 I* L' r9 T RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
- W& _5 B+ ~' q6 g7 G4 G7 ? SuperscriptBox[
* W9 [5 l% Z, X Y5 B- [: p RowBox[{"(",
& V' v$ ?, H6 g0 Y& Z3 l, L RowBox[{
- p, \' r, [! T$ ] RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", 7 l8 z* r% B1 O- N6 u o* w
SuperscriptBox[- m3 e c0 `( K4 C8 o0 W- h+ }
RowBox[{"(", % @1 P$ Z3 r3 N3 O. e9 m
RowBox[{6 N4 \: [& E ?
RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", 0 ?4 w0 \$ f" S8 K+ e
SuperscriptBox[
" O: b/ p4 _6 ]! u RowBox[{"(",
& E- i- t3 P! O; t2 o3 Y RowBox[{, Q9 X3 I4 m) X+ B' F) V, C
RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-", 1 r' Y1 d: ~4 _7 J
SuperscriptBox[
3 s" u# G. {( ^4 u* l RowBox[{"(",
; z5 `: z+ [6 Y( C; y, Y" `8 x% _5 D RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
$ R4 h! h) @# G% s SuperscriptBox[; F: X+ N& m$ A5 F
RowBox[{"(", 4 q% G+ N/ J* P: J5 X1 _, J8 W
RowBox[{# }' \3 M2 p* @4 f" m
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
- e* |5 h! f! y0 L. v# D SuperscriptBox[; B4 @4 n1 M3 |# s# d4 ~! h, M
RowBox[{"(",
! I/ w( O7 F. e RowBox[{
) f, p3 R0 w3 U: ? b RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
# ~9 { w# E/ }0 o$ U SuperscriptBox[
: g0 i) x. ^/ v& j RowBox[{"(", * V# h1 w' ^6 }9 T3 F
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
) |$ W( J" K: i* I: v! n ")"}]}]]], "Output",+ h3 ~% o" K$ B% n5 e
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
* {$ r( g$ Q" ^/ l3 B! M- H' o 3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9,
( K) i" `7 }$ A; P, V: } 3.578012251359375*^9}]
3 r0 }) E2 X5 J}, Open ]],
) N/ N1 K# Z* z% L, N0 Y! E6 [& ^- k# y1 D5 c" ?0 R5 [$ E; e( i
Cell[CellGroupData[{
' s' O- t( M1 b/ ?" f6 c
/ |6 ~ N; d2 m% YCell[BoxData[
3 i& H" o! |# V1 e& u5 ~ RowBox[{"C8", "=", "Ca"}]], "Input",2 R7 p8 S/ A3 W3 Z ~' r: P
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, / u) p; O: K* d B0 n: K7 m
3.577921316125*^9, 3.57792141421875*^9}],+ e9 S8 S" \4 X- i- a& o
) C- ?, q2 Z9 u* J" l
Cell[BoxData[
( Q+ x' c$ P- F% _# c! b$ x RowBox[{"{",
$ n1 ?0 O% O D! b G4 M$ l3 x RowBox[{3 l- }# u* O) V8 ?, a7 m3 `
"0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",", $ s7 ?& o& z2 _) e
"0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
3 t9 Q( S3 Y2 g Z, T' ]1 _0 o "}"}]], "Output",/ Q' a- B) R* q/ m
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
6 ~2 p# `+ u8 U) [ H 3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9, G5 w; N- }- I' f2 _* w
3.578012260515625*^9}]
% S# F2 F% Q) t g- M& ^5 c' u}, Open ]],
* i/ |6 R+ b, ]; g) G
/ n& \( W2 N' P& V1 rCell[CellGroupData[{
7 ]5 ~9 ?; i1 m) A
3 [; b$ _! i1 [Cell[BoxData[
' F, q3 F2 X+ q5 i- H RowBox[{"u8", "=",
+ R t. [/ j0 a, T+ e. P9 t: Z' q6 @- L RowBox[{& C/ o! ] \& P, E
RowBox[{"Exp", "[",
! I6 t: s, T$ G* l- ]5 R# B RowBox[{3 j: C. {7 L* M9 X, U; C% r
RowBox[{3 r- S9 e, x! g R3 T9 l- Q
RowBox[{"-", 4 D0 x# z7 C( D; d
RowBox[{
6 O9 V* h9 F, m7 f RowBox[{"(",
9 c6 |# [9 |1 u9 s5 B RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 Z& H5 B' Q' }) s! H' p
RowBox[{"(", 4 ^& J! x3 f3 `) o
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],5 S4 D$ T) V. l, }
"]"}], "/.", "DeltaX"}]}]], "Input",
9 o" [- t) [6 C# ^4 V- _ CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
8 Q0 j' w/ F, Z/ G 3.57792132028125*^9, 3.577921416921875*^9}]," |: J" l% f6 R7 |: }
- q; j; b( v A1 l. h0 u* lCell[BoxData[; P8 J5 Y% j1 l# m3 x- u2 z# s
SuperscriptBox["\[ExponentialE]", . F) E( m3 |3 H% j
RowBox[{"3.141592653589793`", " ", " S& ~ r: w1 s6 Y' d- f
RowBox[{"(",
+ L7 ~; C' Q, x* M% A7 ?# Y6 e RowBox[{
8 N6 |+ i+ M$ n1 H- M1 G- S$ f RowBox[{"-", - k' m: A2 k$ k! M: k" E F. u
SuperscriptBox[
( u; B' S4 `/ }4 y- J0 ^; Q; X RowBox[{"(",
0 @% I0 S) \( ` RowBox[{* l6 u* B1 D' D
RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", / ~) E! V h7 |0 l7 L
SuperscriptBox[# C: d) v0 o- p: d! @( k
RowBox[{"(",
4 n# h6 t# ?+ k RowBox[{+ \6 x4 v5 |1 u' i0 u
RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
9 R) G' I9 D7 F9 T8 H2 b( Z. K- x' q1 { SuperscriptBox[6 _2 B: g6 I6 R( V! s
RowBox[{"(", " I+ Z5 `1 D- ~1 z
RowBox[{
! L C# N+ _8 _& c; j. N4 ^# } RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", ! _- \ G) |0 C7 X' k- v* X
SuperscriptBox[
6 |# \* N; u6 D" M) M$ S RowBox[{"(", + R9 k0 p: l8 a5 Z5 Y/ p
RowBox[{. O$ n7 M1 n% E. q. p4 c
RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
+ o! o- ?2 ?2 v/ \% e' ^ SuperscriptBox[! u' k5 c1 a! B8 \
RowBox[{"(", - o' Q* U X+ ^
RowBox[{
. F1 b5 h2 V' u( J/ g RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", 4 k" M% t2 m5 Y! F: F* q
SuperscriptBox[7 m6 C I/ |/ [5 T l
RowBox[{"(",
- `: f- Y0 }" o: ~5 x RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
/ U4 K& d3 I/ k7 W$ o7 I SuperscriptBox[$ R0 Z/ U: H- u- m9 e
RowBox[{"(", % N* F& d; T! }8 Y( o
RowBox[{! k" D |0 Q' I
RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
8 q0 R, A! \+ J4 r( N+ K5 Y SuperscriptBox[ c# A% s" S7 Y* G! y, Y4 h
RowBox[{"(", # e. I) ~* b3 i7 B7 A& A& \. h
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", R( p( b2 u" |
SuperscriptBox[1 x# W8 ]3 Y! r4 t
RowBox[{"(",
) B, l( ~) q* p RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
3 D1 z. e. f2 K ")"}]}]]], "Output",$ x; u: X7 W" B! x; u! G9 }* o( O
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
9 k$ E# Y9 W% A" \! U2 \" K 3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9, + E# F. |' }+ ]
3.5779608945565863`*^9, 3.57801226165625*^9}]
( P0 ~/ L8 s3 D. H2 G" {( [}, Open ]],( |/ o/ d; b; U t; e
1 f1 ?( e, v' R1 Y |Cell[CellGroupData[{! N1 A+ I7 z4 e' L4 I% L
, w: p! S4 ^# f' E. _% j: ?
Cell[BoxData[
% ? {% A& V! z/ y RowBox[{"C9", "=", "Ca"}]], "Input",0 p; ]9 L l$ E( t
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 2 d0 E! f' b9 O, k' Y
3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],
; O4 J a3 F# p: f7 b, S* }% w5 l* T$ Z' L2 X* e& [
Cell[BoxData[
) Q" q6 D0 H( T RowBox[{"{", ) d u/ \' e& ~, S5 r
RowBox[{' O7 r; p' t1 T/ \" @9 L( E; [9 ~
"0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
X5 A; I+ `, A! `* m3 d "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}], 2 J5 F( U3 Y0 ~' B4 r& G: `
"}"}]], "Output",6 A) f ^$ S" L+ c7 C7 d
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, . G7 j" t9 U2 Y3 S9 l! R' I
3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9,
! G7 u( _3 j+ V- Y 3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9,
4 k6 u7 B! e- X9 V/ @& b 3.578012268234375*^9}]
& P$ e, q! u! M4 J8 {}, Open ]],) M( M" P+ C- G6 d) K( V# M8 T
; t* ], l, [$ m* A
Cell[CellGroupData[{% \* r) u' m) U# d) W+ }# C0 k- m6 O
& y% ^+ d* p ?
Cell[BoxData[
# F+ f7 I0 k( h. `1 n5 N RowBox[{"u9", "=", ! C9 b4 `) E' W1 S6 f8 q* ^
RowBox[{
5 D/ k; L [. v8 P7 c, K2 E RowBox[{"Exp", "[", " E. M0 h. Q; o# l
RowBox[{, Z+ d+ G& W/ H7 w
RowBox[{
) A* {! O$ L& ]- p$ Z a RowBox[{"-",
a& U1 h8 k/ P" g) F2 B; ], K' o RowBox[{
" \! L4 h% ~# G; R* x! U0 e RowBox[{"(",
' W& l6 Z$ ? H3 E+ W5 |2 G+ x RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
: p1 Z2 F" v0 [- r RowBox[{"(",
3 N4 C5 n8 ~/ Q$ t RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
$ F* I; o8 k1 s% b+ u3 ^ "]"}], "/.", "DeltaX"}]}]], "Input"," H0 ^: B) l7 x* I6 K+ ?
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
# b" v6 i5 b4 i! Q; M' X. p" ^. u 3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],
$ T) c: S- C2 ~: ]" j4 z6 |0 I/ u$ p. E
Cell[BoxData[
5 N8 s! J, n. w7 L, z3 n SuperscriptBox["\[ExponentialE]",
3 N$ f$ s$ ~3 [! [ RowBox[{"3.141592653589793`", " ", 7 {* v: W' W- w7 a* Q
RowBox[{"(",
2 p b+ L$ U4 W' O) a RowBox[{, c2 D m' }4 @. r
RowBox[{"-",
, _! L# J- ]: x% C SuperscriptBox[# ^3 z- c! \8 P \
RowBox[{"(", ) {& ?3 Z, G2 a, h! B% c3 X
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", ' v! b( e$ v# F* M6 G1 r6 B7 k1 o
SuperscriptBox[0 R: V" W2 H5 w/ E' p
RowBox[{"(",
" o: y) W9 @4 F% ~ RowBox[{7 ]( d/ X5 c+ O( ~& f
RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", 4 u( P: Q5 N" e/ L- F5 c0 o2 x
SuperscriptBox[
: g5 H3 j: u3 n- V RowBox[{"(",
4 p/ k( E7 Z1 C5 t( n RowBox[{1 u# ~# V! v! {
RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
( a# m) N* ~8 I/ ]0 ~" {8 f9 | SuperscriptBox[
2 I7 r) Y( W5 Q! S* C RowBox[{"(",
( P+ m% J" V2 d+ }4 M RowBox[{6 z8 v8 x' `/ f4 z
RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-", 2 f" u7 V ]# v) X1 b- C, \- }( |" g
SuperscriptBox[
% W- `5 {, k$ s( t RowBox[{"(",
! b3 ^4 O$ T* E8 c% `/ g3 g RowBox[{
Y3 J/ j% R( f' {( R RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", ( }9 J7 _9 k8 @+ l! o4 v6 y" E/ G
SuperscriptBox[; ^! m2 L( L/ t/ M% Q* e* R( d- E
RowBox[{"(", ( S# w* b( O" R3 P* ]
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
( V& F- _6 R- V* ?- g SuperscriptBox[- A# E* n4 @. _* ]* D3 t* {
RowBox[{"(", * y% P) V% b5 e
RowBox[{" B2 G# P: O" B) U* Y2 ]0 T
RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
; q; c# p8 k' v* d: l9 l/ k SuperscriptBox[2 D" @; ]5 B6 P. _! _
RowBox[{"(", * N- \- x/ \) X. O8 t8 Z
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ( ?1 G* D; S: Q7 M( b
SuperscriptBox[
7 e$ W S& C: u U RowBox[{"(",
% K9 } l4 T! L) e' v c RowBox[{
) G {3 ~3 _ Y% w8 E; [& j( @ RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], : V* U( n0 x* G
")"}]}]]], "Output",
; u+ F7 ~% p- w6 E4 x3 y2 n CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, 9 F$ h6 a) s9 ?5 Q2 U1 q
3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9, {2 j- s) I# v a& L! [2 G( J
3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9,
9 C p3 W8 K) x0 j9 S1 x 3.577961530421959*^9, 3.578012269125*^9}]
+ ]0 E% j3 S8 Y0 {9 j9 C/ z}, Open ]],1 a* k/ @: v# q
$ r! G J1 }: }! U) Y$ {, U: [- Z4 e
Cell[CellGroupData[{
. \1 Z5 U- }8 C# ?' f1 T
p$ @. y: h, T- c) eCell[BoxData[{
+ W5 V+ q( S; T# t RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
9 v2 @+ g) s9 b& } RowBox[{"u10", "=",
' D. f/ X( ~$ H- s RowBox[{- M% B) | K: G" |& D+ j" J
RowBox[{"Exp", "[",
, k# `, x, t1 j$ @4 S. D RowBox[{
/ e3 D6 f1 ^. P1 s& w RowBox[{
& B2 l# p7 n# M' B# `3 a4 H RowBox[{"-", ' K3 |" X; V( E$ g$ |, T
RowBox[{* K5 l* M/ h+ v) M* u9 V% r
RowBox[{"(", 6 {6 c* p1 s7 Q( I9 |5 W
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
& V# O. K% M) s4 }1 ? [0 [9 n RowBox[{"(", / A7 p6 I1 G6 Q+ F {) @; N' O
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],. [! r! I9 o, O+ c' w/ ~5 S
"]"}], "/.", "DeltaX"}]}]}], "Input",0 t( Q; L& i5 {, o* ^1 y& m9 z6 p: a) s
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],, }; U, L' q: A% T$ r; u+ Z
2 V" Q7 V) k3 t$ q2 FCell[BoxData[
" y3 u" O; l0 t) j c* ?+ Y) C& E RowBox[{"{", s8 \9 q. n7 Q! T
RowBox[{# r. M' X% \8 u; g U1 b' o5 d
"0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
2 O% h1 x Q4 w2 | "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",$ n5 j; Z+ Y8 I" a
CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
8 V0 @6 o. L; w/ L, R! @( `$ l, b+ S% R0 Z8 Q
Cell[BoxData[
2 }5 U! Z2 H5 c+ U+ ^' W SuperscriptBox["\[ExponentialE]", ! J' I$ w7 j4 F0 U5 R) F
RowBox[{"3.141592653589793`", " ",
6 y+ W" N* A7 C- p( m: B" C- P RowBox[{"(",
: s% A, y/ P: j. |1 u2 F RowBox[{# [, {& C$ g1 }' o( W( R1 v
RowBox[{"-", " |$ F5 @$ b8 v% Z3 v
SuperscriptBox[- `' Z" c0 o/ z$ I" d2 ^
RowBox[{"(",
9 y& F. G. f/ t, D RowBox[{
5 }- X! [) j7 o. S0 l* `# d8 K RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 4 `' w& y6 T ]5 k. d1 I
SuperscriptBox[
% { Y- p; e& s* ? RowBox[{"(", * k, n1 ?; h$ R f
RowBox[{5 N% Q" }' u9 i1 V1 i
RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-", 2 _! T2 Y& P1 E- G$ j7 l
SuperscriptBox[
( L$ Z/ _- r9 f2 y" P! d9 p RowBox[{"(",
1 k$ }# u$ g: e& W5 o P RowBox[{
; L& a% }' Z% N1 I0 \" G+ t RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
, T$ Y7 _+ B! G* L& q' ^" ^ SuperscriptBox[
& r" Y5 k' C+ I& `* c7 ~% Z RowBox[{"(",
, o$ ]+ O( y& }- J. v4 J+ V+ b RowBox[{! ~4 @" O: i1 ]8 q* f# W- ?* o
RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
. C' D( _# |% ~7 J2 Q. e SuperscriptBox[
, p9 |7 j4 q2 g: B% q$ A& k: L RowBox[{"(",
+ R, V4 M' u) E9 b* o! [ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
' Q Z4 N: o- m. K! i SuperscriptBox[
$ M& l9 _' F: r- ~, u# ? RowBox[{"(", 8 k- _, b" d, C. U8 y& o
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
- ~+ x8 c4 s, P% @& A SuperscriptBox[ X8 R Z/ Z3 g4 ]8 d3 y
RowBox[{"(",
0 W1 \* Q0 u+ c! e& G9 O5 R RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ! b$ s5 [8 W; \ y
SuperscriptBox[
7 J, S5 p( q$ i7 c RowBox[{"(", D4 p: c+ n, G6 ~5 ^) e
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
8 Z" L0 b! O! d/ c$ S- \* U/ n SuperscriptBox[
; V" L8 m5 x, r RowBox[{"(", # E) y4 R( X6 T* {( n6 j, ~
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
6 V9 V* r) {# `/ j' `+ z9 m5 ^ ")"}]}]]], "Output",$ I# r' B) R& {8 S' c M
CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]4 j3 T O* F6 v4 I. w I2 q4 R% w L W' }
}, Open ]],. I1 Y/ j$ l! U4 f/ O# W8 p. Q9 j
8 L E2 e6 q2 Q% `( F
Cell[CellGroupData[{, _& [2 S& F+ h* [/ c; X
+ ^5 E9 r+ W% q; `( r' e1 ECell[BoxData[{. Y( G$ O! D' b& @9 Q8 x" O
RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]",
0 u2 M6 |$ f( d4 P, k' U RowBox[{"u11", "=",
4 D4 Y6 f& I( `' Q/ ^# N- l RowBox[{
* n3 F9 C; S: h+ c/ I RowBox[{"Exp", "[",
' g7 E( @5 L" E0 h# E3 Z$ \ RowBox[{
; U7 U7 g3 g5 O2 ~2 G7 L1 r RowBox[{
: F/ }2 i" T6 y- Z N( t RowBox[{"-",
1 _* ~% J4 z9 A- Q RowBox[{( C9 s Z) W8 U5 I c0 U
RowBox[{"(", - ~; g8 p) ]; D3 v9 F
RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ! w, O+ h* |9 B8 c
RowBox[{"(", 4 }4 k* h9 I% i" |& r
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],/ C. h" a0 ^8 g, O) [9 p! j1 I
"]"}], "/.", "DeltaX"}]}]}], "Input",
8 ^' T4 C" V/ L CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {) c! c* g! l# y5 C4 V
3.57796154237158*^9, 3.5779615434011817`*^9}}],+ f2 ?- v9 t8 }$ g. M7 p. d7 I
* Q9 V4 K' [- {& S# f2 d
Cell[BoxData[
; C3 p' Q# b! `" d RowBox[{"{", ; S8 k. [" H5 q- ~3 w4 X
RowBox[{
7 Q. y: M+ M3 P- w7 K! [ t; R "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
% V0 S! q5 F' z/ A2 O2 I "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 9 o! x! l" E& M+ W1 R, f& v
"}"}]], "Output",
( \9 v/ }. g1 T3 Y7 y( c1 S c CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
: w3 M2 z2 C% ?* x 3.57801228203125*^9}],4 D# d8 X' z- k
: C! ]" z1 T/ {
Cell[BoxData[
) E* h6 ^7 l' T9 L+ \ SuperscriptBox["\[ExponentialE]", % B& i4 z* s$ [2 g6 E3 R4 J0 J
RowBox[{"3.141592653589793`", " ",
) C: e- R; n6 U( [3 A! Z RowBox[{"(",
8 c* m3 v* ]" \* M G1 q8 P) @ RowBox[{: W1 U; m& Q* | f4 Z$ `+ M
RowBox[{"-",
' z3 o* o6 |& x; g2 D6 N+ ^+ E2 F, Y; P SuperscriptBox[2 L7 `: L" D6 |- i, O2 q
RowBox[{"(",
( t) j1 B* Y! a. [. X RowBox[{
5 V7 a5 v% U6 q- G6 x RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", & K4 z+ ]: P, _3 G
SuperscriptBox[& N- t2 u# v- c. E; d& V8 ~
RowBox[{"(",
; S+ p5 M M9 S4 P7 J _ RowBox[{
' w, f3 {" m _& C0 y8 l; L RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", 1 E4 z: b# P4 O/ Z( z& { w5 w
SuperscriptBox[
+ W" D3 {7 H/ |$ Y$ I/ n RowBox[{"(", , s4 `* T$ q: H7 @2 i8 E- B6 F
RowBox[{2 b/ ]( ^% Y" ]* O' F5 `. l
RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", , \# S. @/ w, l3 D
SuperscriptBox[
E7 w" E* d7 C9 f* c7 Z) D6 r& N RowBox[{"(",
3 i3 C5 j, N3 \4 |5 d RowBox[{
% N, P6 o- Q4 F- S RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
. v5 H& _$ N3 u SuperscriptBox[8 c/ ]) \& Y/ O0 ?5 k1 j S
RowBox[{"(",
* z* {% j* A! |- u9 W7 P RowBox[{( k8 \& t7 G) J3 b* H; d/ ?
RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
9 V; x( e, I, A' {& n2 O: o. w& q7 v SuperscriptBox[( u7 o8 n4 G( D
RowBox[{"(", # k1 M7 H [/ x* w
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
7 T& `" O9 f# i$ u5 I* ?- y SuperscriptBox[
$ d6 W5 R# K" X+ f9 g RowBox[{"(", $ `, X" H; n, a% T9 r5 \
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
/ a7 ~1 c4 u! H/ u SuperscriptBox[3 z6 q1 Q& K3 _! y+ @# y
RowBox[{"(", + }0 D1 l) i5 W! X5 x, E# `* }
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
" o+ @. c6 X8 w" Z+ K/ \" V SuperscriptBox[' t U! s' A) G t& o* S4 m! o
RowBox[{"(", 7 u# ?; z" S: X; y% y1 k0 ~+ g
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
# F5 o' h0 }! ~5 W+ M ")"}]}]]], "Output"," M, Y! G; t' H( B# m
CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
z8 F! N6 i; Z- \7 L" K( l, V 3.57801228203125*^9}]5 b m+ b7 B8 Y6 M7 e" j
}, Open ]],& y) e k' I& f4 S% R
7 f4 B7 n% K& v. q. r5 ^9 eCell[CellGroupData[{
3 ^; _- `5 a G+ C$ w W
5 n* Q' N5 r$ g5 G3 w0 `& XCell[BoxData[{& m" i+ c7 \( d- K! t0 D! a
RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
h4 q. i: f8 o RowBox[{"u12", "=", + ?8 C+ A* c! a* D0 V5 _1 i
RowBox[{! p: l3 b5 b5 t( b2 r
RowBox[{"Exp", "[", ; n' j! ?1 @& ]. n. v' @
RowBox[{
, z- L4 g. m; b3 p/ h6 g RowBox[{: }% `* A0 |4 ]& o, x/ T* g
RowBox[{"-",
5 }' _; i8 `8 f E' f8 z O! F- ?8 o! [ RowBox[{, t- C5 X6 R8 n0 i! @, b
RowBox[{"(", : e- ~" {/ ^ q* X& }
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
, |7 D5 q/ z' l$ S RowBox[{"(",
9 l9 M) ^* q& \ RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
7 g) r; d7 V$ \$ o. G! W# N "]"}], "/.", "DeltaX"}]}]}], "Input",) E1 l& `& }, l
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
# G& U: \( N9 w, O6 \. k5 d/ q! M 3.57796154237158*^9, 3.5779615576284065`*^9}}],6 f/ E; v; g. _
( \0 ]4 ~, H }3 V0 SCell[BoxData[7 u5 m$ K H2 j
RowBox[{"{", : z8 `$ [ Y1 x" i7 V; x
RowBox[{
" I2 f# b. D9 z: P; m7 G: ~ "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
1 a) ^6 `* ]" W- a9 w9 h4 I "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],
/ V! M5 j1 {5 ?9 s) K1 [4 ^ "}"}]], "Output",7 H7 u+ {7 n' x
CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],
* J) s4 H- Y; S! d" y, A3 n8 L$ E/ N: u
Cell[BoxData[
: T7 M/ b, X# G4 G3 o9 l5 j SuperscriptBox["\[ExponentialE]", ) n+ \. E' Y, f. A7 G
RowBox[{"3.141592653589793`", " ", ' \ J# a b( J8 l& Y5 u2 Z
RowBox[{"(", ; \9 O2 @ a$ @ V+ L/ D( i
RowBox[{
) ~9 J1 P. i' r1 t/ }$ A, J RowBox[{"-", # w+ X; ^! S' r
SuperscriptBox[; d7 ^6 a0 e: c& S8 i. T- n/ S" ~% F
RowBox[{"(", ! r0 a' w; S1 Q
RowBox[{
& ~ l5 t) U& S! ` RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
- x% ^2 M( [0 |' m) `6 K SuperscriptBox[8 O2 u `: {6 j( f, c' D
RowBox[{"(", ; o* Q! u, m. o: p
RowBox[{6 X; u* P. z! E3 j$ u
RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", 5 W) C5 t% k. T; ^
SuperscriptBox[
0 F1 y5 i8 q3 L, h/ y* h RowBox[{"(", 3 f) ]' L: z6 L- `9 ~: b2 r, k
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
$ \. k- l/ y m5 J SuperscriptBox[
2 j6 B; B' ?. u- x RowBox[{"(", . k; N5 q' b0 B) A3 j9 f4 Y0 U
RowBox[{/ k: H! j7 y+ \" q" r. E' r$ S
RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", " v) ?" b% j, W+ U
SuperscriptBox[
+ P8 z6 h; p1 K4 L5 q/ N9 M RowBox[{"(",
4 C& K, n0 _2 _4 g- ?; \, I/ X RowBox[{1 ~0 g4 r, O1 u8 a# p4 J- G& U
RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
3 l' p" z% B/ v! c& ]3 K SuperscriptBox[
+ K, s# Q5 P# K+ n RowBox[{"(",
8 i3 \ t+ a' B- n RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
$ ]7 ]: \1 t4 q7 u/ Y9 Z' M SuperscriptBox[
& U! V: _+ n/ _; V8 q( ]5 x+ v% ^) U RowBox[{"(", 8 X3 e2 r9 I/ d/ c, \
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 6 r% a1 t! i2 l
SuperscriptBox[
3 Q. t/ U; @1 c RowBox[{"(",
* Y4 K8 T: A+ {8 i, Y RowBox[{" Q; ?1 F! C4 h. C. O0 N% g
RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
0 _) o7 B2 D+ m& R a SuperscriptBox[
0 W7 o7 T" B, W RowBox[{"(", 1 w! X- @9 [* D' `
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
- U# K; q8 t% d/ K9 N ")"}]}]]], "Output",
( P2 S+ r( b# A# v CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]; V' L' j/ m: c7 m. H0 a- ^
}, Open ]],7 R0 f2 E5 B% k3 g* ?0 K' j
E2 e, b% O* q9 B/ P7 P9 z2 gCell[CellGroupData[{# h1 [& c7 [) D- p
/ W. K! {/ t* E2 ~2 l0 i
Cell[BoxData[{, L! C6 t. h7 g/ z, N+ g4 V4 x J) `! E0 Q8 E
RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]", + X: |# A9 d8 |
RowBox[{"u13", "=", 5 n! E; }- f: @1 b" ^. Z9 [5 J6 g
RowBox[{
; A( B$ o& `; d% C' _ RowBox[{"Exp", "[", % u( B# `* V6 V7 F+ g ^* O4 v4 S
RowBox[{
" ^: n) { Y8 z) u, X/ Q: B RowBox[{) {, g0 t$ a% }' x/ [* [
RowBox[{"-", " H% N: w) i" h, Z) x3 j$ @
RowBox[{1 V8 m! ?) O/ m( m! Y
RowBox[{"(",
_1 |) E: i2 ]8 d3 _6 A- V7 W RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
6 z; v' b" A9 f% I# L' J' ` Y RowBox[{"(", : b- Z5 F6 _- s
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],) T2 m" P9 b$ A* I
"]"}], "/.", "DeltaX"}]}]}], "Input",6 \- o- e; X5 u+ i
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
+ |- b5 O+ O. u0 i9 s- v6 A" |1 J1 S1 M 3.57796154237158*^9, 3.5779615599684105`*^9}}],8 g$ X+ X- l( c$ I( r! y
$ @' }5 K3 L- B8 E3 c
Cell[BoxData[! A; B; p' I% E8 R9 v4 b9 G
RowBox[{"{", $ b0 k- Y- l+ s4 h6 [0 k
RowBox[{$ P- M8 k W' s7 m/ p
"0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
- H5 u4 [: |) @( Z% q3 O& J' P$ r+ ] "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
0 ?9 \. d! A/ a9 W0 E, ?8 A, \ "}"}]], "Output",
, a7 y4 l/ ^9 E CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],
) A: G, g+ B( i6 s5 ]/ L
9 ^) ~" X) d) \* eCell[BoxData[7 ^1 ^9 ] L3 T
SuperscriptBox["\[ExponentialE]", " G% ^8 r% H0 B& c2 f
RowBox[{"3.141592653589793`", " ",
, k% S1 f) }8 L' s RowBox[{"(", 6 Q- d0 f e Q- T. S
RowBox[{
' _' Y' z7 u1 g! E. P( }- f RowBox[{"-", . a' A" e( \* e% _4 {
SuperscriptBox[
" H ?1 A- k' @- _7 p8 L RowBox[{"(", 3 E3 x6 j* }! _' R6 P
RowBox[{
6 @) f. I" G4 s RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
% v. n4 f* m. H SuperscriptBox[' W& \* u+ Z5 `
RowBox[{"(",
7 C0 L/ W5 b$ p; O RowBox[{( S' D' b2 a9 K- g' l1 y
RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", * G( b3 U. f0 w! V( X) C
SuperscriptBox[
3 h& y2 Q6 V1 g4 B6 n) d9 @ RowBox[{"(",
1 {, b' G- o; W6 Y: ^9 M4 T$ y8 b. K RowBox[{4 E. d! }+ w$ m; `7 w2 o% z
RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", 1 E7 l3 L- ~7 S9 E1 l0 Z
SuperscriptBox[# J+ u& O$ Q( j. k# @1 `
RowBox[{"(",
# R2 L' g$ v& j. w* i RowBox[{
1 \: ?/ d7 \9 x' P7 B% a RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-", + r6 z- G8 w) [6 S
SuperscriptBox[
3 Q$ n# g" h- q( R7 H# N7 [ RowBox[{"(", ( W$ h2 _7 d1 U( R$ `+ }: F' d
RowBox[{: p% C& f9 C- ~0 q t4 T" K$ {
RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
* H8 ^- F2 W& m! n! H. ] SuperscriptBox[9 w; ~% A% L- k- u/ l
RowBox[{"(",
' \7 o: u: n } RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
X* |; G* M( w! ]* m SuperscriptBox[
2 |( H8 v% [1 P. Z" k x+ ? RowBox[{"(",
' V5 @2 p* F, h7 n( U# m RowBox[{
' f7 D1 d0 H( `: b+ T RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
) ?8 H! s6 P2 b n" c8 | SuperscriptBox[
7 z+ @' t; a6 u. T/ V RowBox[{"(",
" D3 S/ z+ m( f3 S/ R RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
5 v7 w$ A5 ~7 F3 ~) u- a, X) T' y SuperscriptBox[
2 }( D1 s# J R/ y" m: W RowBox[{"(", ( k N5 H, V3 x$ I9 Z
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
6 Z, K( z6 \2 G% m ")"}]}]]], "Output",) \ p/ L; |+ v, `
CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]
d( q: w- L$ t8 W& B) J. l' ?' K}, Open ]],
, n+ M) F# L' T- ]0 \
; E. s8 S0 ~3 b* a* `Cell[CellGroupData[{
% ]$ o S/ ^; Q6 s
) P0 G# `9 b$ k2 b7 v" ^: W. sCell[BoxData[{" u# h, m( _! F% B! _
RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]", : N7 S% M; a& S# i# u$ [
RowBox[{"u14", "=",
1 F0 d J3 n- T. I7 \ RowBox[{
8 x) Z4 o# E; I9 t' H RowBox[{"Exp", "[", 1 Z9 G5 u8 {- C9 \1 z
RowBox[{$ |' r+ G/ n* B0 K1 T0 I# Y
RowBox[{
$ G( G: l6 X$ x; u! O+ r* d( p8 [* e RowBox[{"-",
* `( C! V- f3 z RowBox[{
7 X4 [' f# F2 A% w! J RowBox[{"(",
' E; A$ G1 m7 t- q% |7 Z3 r RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 2 n( a8 T. |7 W' V0 w8 y1 a
RowBox[{"(", 7 \$ u9 [' f( j! i2 T3 g e
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
' r8 |1 Q' s/ ^. M& V6 q1 h8 C "]"}], "/.", "DeltaX"}]}]}], "Input",
% f' }* C ~6 Z8 \( [- M CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {6 Q: v( o1 x" u0 s7 j% h
3.57796154237158*^9, 3.5779615663176217`*^9}}],- \& b7 q7 _4 n4 k L% \
. E" g& N$ R3 l( @# J( C$ O0 qCell[BoxData[
' k. H: y. k) d9 r0 z5 a RowBox[{"{", : L/ C; f0 ^" C$ b: B$ G% w6 W3 n
RowBox[{
- w; p' `) }5 K) R. \+ ` "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", * [& r: X+ x% V7 l" H+ E
"0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
* y9 u% b5 G, H6 \: L4 \$ } "}"}]], "Output",6 L$ B3 @1 a* N7 ]' _4 n3 O" A
CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],; y! z( F+ y0 T- Y) U- `8 O5 x+ i
2 ]2 S! S/ F' @! r1 }Cell[BoxData[
- j7 t: w0 a( x SuperscriptBox["\[ExponentialE]", : Q+ \, K, r0 ?+ F% ?; ?+ y
RowBox[{"3.141592653589793`", " ", ) x3 Y0 c+ ^" I9 _7 A a q- \
RowBox[{"(", 9 }. }, s; A4 z* c
RowBox[{+ w5 h! P7 U6 V' q! M7 b$ b
RowBox[{"-", : x0 g( z$ ]9 d, V- I! l9 k. f9 c
SuperscriptBox[
0 Y) B3 L$ s$ Q R* W. v RowBox[{"(", 0 K& m7 z0 s- j ^( E/ F
RowBox[{# h# P. C; _1 M$ [, W
RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-", $ H5 [7 Z2 r/ \. ~
SuperscriptBox[
/ T# Q1 s9 r' M- w2 u RowBox[{"(", : A) P, E' H+ z8 d! U+ ^
RowBox[{$ T+ [6 X0 C+ m8 N; k; H
RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
7 D: H. O6 O! y( @* f2 a. o SuperscriptBox[ x1 [8 O, l. n# J; x% B
RowBox[{"(",
# w* }6 h, [' L: o, V RowBox[{
\2 g/ }- s7 M' B; }" U RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
' g0 C9 Q* ?# R) X# k D% C% _& D SuperscriptBox[
& c% a- P) S) H) @. } RowBox[{"(", ; l, b! S. y5 a' G# C
RowBox[{
; e) i3 j! S5 i5 L; D RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", # M5 ]3 ?$ R* E4 p
SuperscriptBox[
! K+ U2 I0 q) u+ r3 p RowBox[{"(",
+ \- E- C8 i/ J ]9 z RowBox[{
, w' a+ T0 R- Y ? RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
, M/ `' I! r# Z" ?% }2 \& O3 H SuperscriptBox[4 N8 u- @# y5 M6 j2 ~7 J# w7 ?
RowBox[{"(",
5 g& z# V3 b. y# L; ] RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
* i/ T# m2 }' `& T, z9 h8 P SuperscriptBox[
4 h% T% h. E! ^( g8 b9 [ RowBox[{"(", # s; n# P7 l) k
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", , X: W" i/ F4 Q6 ?# C( S. y
SuperscriptBox[: ~: `% f% [2 U/ |! ^
RowBox[{"(",
2 r/ |# Z! L' y6 [ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
! h; C4 a* [: z7 I+ Q( P SuperscriptBox[0 Q9 E* Z/ t! l% q1 f) c& N* Y
RowBox[{"(", / w( x6 @* Z8 N# Z) ]7 o" |) V
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
$ p; \% |1 n) E ")"}]}]]], "Output",4 n; t. C6 P1 u7 U
CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]) ^) C! j- h8 J$ x2 }
}, Open ]],
- s) ^. ]) x2 |7 S2 @% j# ?( C; V4 y Z
Cell[CellGroupData[{
7 O* S4 F3 F, `- P! g' R$ h
2 p7 M4 r4 T2 X% ^2 KCell[BoxData[{6 {+ b s) O9 V4 C
RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]",
, a r l. O: t4 H( d# i0 [: ] RowBox[{"u15", "=", 0 X( v* ?' b0 y( s( s- k
RowBox[{
1 O) O3 e3 b' T! o" U# v p# R RowBox[{"Exp", "[",
7 S" f* h, ?. J" B7 d4 q( g RowBox[{
- @ Y$ P2 x. o8 {7 y3 P RowBox[{
h# u9 W" Q- w( J& T+ E/ j RowBox[{"-",
9 _/ r; L+ c3 }$ S4 s RowBox[{0 \1 V+ M, d3 V* i# R6 A
RowBox[{"(",
* T5 M2 {8 _/ q( b# X, U& \+ x. I RowBox[{"Xa", "-", "Ca"}], ")"}], ".", & S9 \& C) p1 F4 k: r6 g1 u7 s
RowBox[{"(",
- {( r3 F8 K2 p/ o- R0 U+ n RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
) E3 l0 P* A( O "]"}], "/.", "DeltaX"}]}]}], "Input",- q7 i+ [3 J7 K/ U
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {0 m ? t) Q; E0 \4 |
3.57796154237158*^9, 3.57796157098203*^9}}],
0 y9 X& e+ y3 s/ F+ Q2 [* d. |- k0 ]' Y
Cell[BoxData[
! o3 w9 d, S% |) y f' W RowBox[{"{", . Q: A2 R) C- s# s. ]6 a
RowBox[{& M% p/ s+ {0 I* I1 k9 g" ^
"0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", ( Y- O9 A' T6 V$ h n! w" j. q7 b
"0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
}+ o4 m' c, q/ d9 \! M) W9 n5 [4 O "}"}]], "Output",
+ C; x8 J4 @: H8 X CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
: k$ c# _% @1 u) \3 ~
# d) J X; P$ u* d5 \Cell[BoxData[
* |7 i u& B3 ~! Y' h& J SuperscriptBox["\[ExponentialE]", , m) Y1 }3 i9 K! T1 x
RowBox[{"3.141592653589793`", " ",
( s& A6 e2 u. n8 Y1 K' Q1 O RowBox[{"(", 0 F/ I7 R' M) ~9 o9 t, e
RowBox[{
( U( r8 _% E) N1 G0 n9 Y RowBox[{"-", - G Y7 W* `3 c" Q
SuperscriptBox[
7 V( ]8 M/ x' }9 Q7 W RowBox[{"(", 7 p6 }4 L+ r% }
RowBox[{0 U8 |4 Y C; L, ^+ K* P
RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
4 o8 T/ L0 \8 g/ B* } w SuperscriptBox[- m# y# u( E+ h8 f
RowBox[{"(", ) Q8 G6 k. X/ ?& i, w+ K
RowBox[{
' H, \. g$ |, i RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-", + k! {( K: x* s' g
SuperscriptBox[
5 ^# i. c ]: e$ v RowBox[{"(",
" d4 U- U( J3 ?( D3 Z8 }+ \( f! w RowBox[{
) u$ e! y7 O( B7 f% j' ?$ `+ M RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", ; Z+ S; Y% J5 K8 B- Q
SuperscriptBox[7 \/ ]. G6 ~2 {$ j- C
RowBox[{"(", / _, [7 I$ Y U- j/ o7 g G
RowBox[{
8 X) `- I+ Y0 I) C, i2 g1 v RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
, I! W4 X; D* g$ A6 T; g SuperscriptBox[
7 U t' F' C, D( R- n- @% `% b4 n RowBox[{"(", 2 `- P8 ?3 E, a
RowBox[{- L1 I+ Y' l- q/ v* ?& b' a' T$ B
RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
, }" E' K3 G9 x8 A. v) S SuperscriptBox[: R6 x0 D, U0 b( d8 N9 u
RowBox[{"(",
2 |/ L `2 r' {/ _9 D$ d2 _) E0 H RowBox[{
6 [7 p' J- [' y0 d3 \5 X RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
+ f0 q* K4 F( y ^& F* L2 | SuperscriptBox[
2 v: X7 j0 U5 y6 J RowBox[{"(",
4 u1 F, x6 q4 K- i, ` RowBox[{" ^; `5 G7 O8 K9 ^" t0 b
RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
9 y* n9 V7 h. S; B$ H SuperscriptBox[- j1 o, `9 l& a% w) ?
RowBox[{"(", # V% O# I1 q2 @* ]! I1 E
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
/ Q6 b! B0 `4 a8 A SuperscriptBox[5 @/ r9 Q3 ]7 E4 A+ n0 w5 T" f
RowBox[{"(",
+ h3 W* Y2 }' Q4 \$ R RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 8 R7 m* O9 y6 y/ r! |- \8 n7 Y
")"}]}]]], "Output",, B5 J+ C# M j( H
CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]) F& E9 A/ O" g P, I# C. ~2 {: b
}, Open ]],
; \" S9 _0 h6 Q, E v( q! O) E: y
Cell[BoxData[
* j2 \0 C/ y+ I# n3 n RowBox[{"For", "[", " \6 G$ ^ g; S7 l
RowBox[{
( \2 ?2 \( R3 ] RowBox[{"i", "=", "1"}], ",",
. s3 u* ]+ B: E' y1 Y1 X; Q M RowBox[{"i", "\[LessEqual]", "9"}], ",",
. n1 ], ^7 l! }8 d RowBox[{"i", "++"}], ",", 2 [6 C0 I. W3 ]0 c* t" m- w/ K5 w
RowBox[{. _$ n4 x; g4 H' o* R
RowBox[{"Ca", "[", $ J1 `* C E$ V4 H* |' W+ C& Y
RowBox[{"[", "i", "]"}], "]"}], "=",
; j7 j3 ^" A" b* E, d# } RowBox[{"CM", "[",
3 [5 s: R H# ~- E& B( B U RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",$ J! Q6 F) L" F
CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
4 r: R0 }1 ~) L5 ~! e, [, }5 n0 \2 F( e7 {& H
Cell[CellGroupData[{
) ?( Q3 x/ i! |6 C6 R5 @ [! D7 m2 n! Y, S( v2 f/ Q
Cell[BoxData[{' r( h, Z0 x6 I/ ^/ h
RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]", ( p/ {$ X' H! \' K- @
RowBox[{"u16", "=",
+ n& U- p) Y _9 _+ D RowBox[{
9 C: l$ N% w4 \8 ]6 I RowBox[{"Exp", "[",
) g; z' o; ] C3 h% k RowBox[{/ n- t1 Y* g/ _4 Q W; M* q
RowBox[{
& X2 n, T1 k& \1 {( J6 X RowBox[{"-", - k0 Y, Y& D1 _" d1 W# C
RowBox[{) ]6 e: {2 h) @( d. e- a
RowBox[{"(",
& R" v) X! U/ Q' d RowBox[{"Xa", "-", "Ca"}], ")"}], ".", " T# y- j" ~+ d
RowBox[{"(", ( r3 i5 X* y5 [ m# q
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
4 M! [& B2 w" [4 |% R5 B! I "]"}], "/.", "DeltaX"}]}]}], "Input",) g( M; b# ^9 s7 @4 Y* V1 I
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
1 O7 a4 C& m% }9 ]1 f0 }8 P0 z( b- z 3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9, % c% B! E, t( L* h4 u7 S4 M
3.5779615751004367`*^9}}],: ~! S- ^: J, k5 S7 c
; z, M6 H+ @; D, s m3 zCell[BoxData[; a3 ]- v" H, n4 _
RowBox[{"{",
3 b6 u/ _) q5 n; t% { RowBox[{1 L! B+ U( D; j. T; ^0 w: ?
"0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
+ l( d; n. p: z2 B% G4 d "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
9 T n( s, V4 d8 w. u0 ^ "}"}]], "Output",
! C) h( B; k, w% ] CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],
, }$ _% P% B {9 C4 N% R& F1 P+ H, p# I
Cell[BoxData[
B) T6 X+ [5 u( G5 P8 A3 } SuperscriptBox["\[ExponentialE]",
: m- H8 f$ S# }3 j3 X# { RowBox[{"3.141592653589793`", " ",
# t" j5 r4 o6 `, I5 p( @7 r0 w RowBox[{"(", 0 c: B: j/ s* T$ X* k9 y/ g
RowBox[{1 h# \# z1 w& w' T( \. N: R
RowBox[{"-", * m" k$ X' M \2 l* E' B& @( o
SuperscriptBox[
$ G' h3 y& f) |3 ? RowBox[{"(", 2 t9 D. s: ?1 Y' t% I; @1 G
RowBox[{
7 }8 X. Y" |: O( N M RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", # p( F; E: w/ Z7 W& t0 r8 A- S: x9 _
SuperscriptBox[1 B6 x# t+ O& ?; K
RowBox[{"(", 0 h0 p7 R# y2 D
RowBox[{* Y+ l7 @( \; \9 a5 `* ^# P: t
RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
5 B6 q% k) ~- ~2 Y/ M SuperscriptBox[
- E; I1 {' F3 B e RowBox[{"(",
4 [% o& z% c. F* o) i RowBox[{
; _, W p. i8 r2 U RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
d7 e+ {# q" X6 ^! ? SuperscriptBox[) V0 c g7 ?! P |9 u
RowBox[{"(",
4 x4 D7 `' Z L/ i. K RowBox[{
) D6 b5 Z p- J( m RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
( o: L" q! \" D* x SuperscriptBox[5 d" h2 J9 A0 O; m& |9 v
RowBox[{"(",
0 ^0 q X* E# U' N RowBox[{ i0 d K5 x0 w
RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
7 q* D+ o: u- }' f$ B3 O SuperscriptBox[
6 F+ i- u. H9 h8 d8 _0 ` RowBox[{"(",
: m# U2 L$ S! L3 C1 M9 B RowBox[{8 f7 M2 `# M, g" w4 ~8 d" O; D0 s
RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", * ?% D% u" j; a j# d
SuperscriptBox[4 Z. B& p" I5 p5 }1 K/ ~
RowBox[{"(", 7 r4 t5 ]: [7 x9 n1 g9 v2 o* b* y
RowBox[{
1 y3 E1 y: V5 F; y# B3 D RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", ' ]4 K* W; I: v- a- ]
SuperscriptBox[
' Y* r6 p$ J( u- S8 l RowBox[{"(", ' w8 a9 y5 v; q
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
7 [/ K/ U$ G3 s6 Z SuperscriptBox[ z6 L5 I$ q$ d1 S5 N. E4 [# g- Y
RowBox[{"(", 2 \3 n7 O2 _) h: W# c! j' e7 r
RowBox[{
* n: q2 g) E3 E( R3 B0 u RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",
/ a( B2 `* v5 B- K, V# z% v CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
" C2 L8 F. |- g7 l+ s}, Open ]],1 o7 x5 C: j- |0 `* q1 K1 h& ~
* ~( H0 U5 B. k5 P8 N
Cell[CellGroupData[{! y& E9 u% z! b H' j
# D- N9 y: J( `( fCell[BoxData[{
9 z* _5 x& }7 | S M! @ RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]", , e: ?; U! @6 O) V
RowBox[{"u17", "=", 3 b, r5 J2 S4 e$ h9 t; e
RowBox[{, Z; O! A5 X$ l5 n) N( l
RowBox[{"Exp", "[", 8 j! S* X% Q, R9 x) p1 d
RowBox[{# w1 Y1 a6 F" Q0 v( M! U: t
RowBox[{6 \$ B2 b- T& k) ?
RowBox[{"-",
' [" l& T. L f1 w# \6 j$ y3 g RowBox[{
8 a2 d- f- \/ x9 S5 R' B: T RowBox[{"(",
4 @8 ~ i+ ?# ]- Q* I- S) L1 s% k RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 5 j5 r& O# ?# ]1 u; p0 }' L% A
RowBox[{"(", ! C# N M% o. }2 Y
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
6 ~/ G8 j. Z. _: v* r. X1 P "]"}], "/.", "DeltaX"}]}]}], "Input",
' ]0 s6 w4 C; X) T1 p0 R1 Q CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {' I$ f8 t% R) P0 W6 {: G
3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9, 6 B4 ]2 j% j- t4 ?; ^
3.577961578953644*^9}}],4 f; {$ |( D# y+ L: u& j- A
- E Y8 C1 ~7 G3 l0 Z' MCell[BoxData[
- y- ]$ q+ L: o/ ?. N( t RowBox[{"{",
! b7 G9 j0 T4 C: S+ E% e RowBox[{3 U \; e' y: a U% M' F
"0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", * N; c. @4 L: Z" B6 ~0 K4 b
"0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}], % X/ R9 ]" P+ z. x5 H! x$ V" A
"}"}]], "Output",8 ~/ e& i; }$ R$ h" T
CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],4 i% A6 c! ^) j# Q+ ]) k
; v" P1 r& K5 R7 | N! `Cell[BoxData[2 `6 _1 T2 D8 R( E
SuperscriptBox["\[ExponentialE]",
0 N" d8 S! e- s0 ` W% b RowBox[{"3.141592653589793`", " ",
# ]/ {' \+ U) y6 J RowBox[{"(",
7 }' R. ?0 }/ s4 ` RowBox[{
; {4 C( o# [* s: }3 ]5 S* e RowBox[{"-",
8 u3 V0 G+ Q* ?* {% A% F. T1 N& [ SuperscriptBox[8 Z8 B+ Y! u9 l
RowBox[{"(",
' i0 `9 Y6 u( P. a RowBox[{6 m5 \7 r; `( @, b% F( g, W- S% E: c
RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", 5 T# b- @6 w* i( O$ a# z; c$ v
SuperscriptBox[& U# @6 {+ R* Q. _
RowBox[{"(",
3 u& ~7 A5 R! [' F" v1 J/ Y RowBox[{( p9 ^6 o1 l# N6 x$ X1 V( `
RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", y5 @, H/ B$ J/ r5 e0 V
SuperscriptBox[' f* E/ u; |- N' W* {
RowBox[{"(",
& E, R9 m1 ~8 ` RowBox[{
+ d% ]- Z g D" F% W RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", " ]8 @5 J4 w6 L( W# N. w( l
SuperscriptBox[* D( L9 E) V9 O: V
RowBox[{"(",
7 Q! Y0 q j$ ~3 ^* X, q6 i RowBox[{
; N" W% L! B; D' e$ t! J# w3 ^6 q$ k) l RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", , h8 w6 _! }9 k# r. j
SuperscriptBox[
: n7 B- n3 e( X8 V RowBox[{"(", 4 h1 A, Y R5 |$ \; V
RowBox[{+ e; n6 r5 C5 X/ G* ?7 F1 V0 q
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", 9 u4 M# c# Q7 [# d* k& c7 u
SuperscriptBox[5 E+ ~! S5 C! o' P5 A4 \% V. t3 Z5 T
RowBox[{"(", + Q+ v+ j, P- ]
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", : y( ~1 i6 [! j* W) @- @( k
SuperscriptBox[
' L9 r- ^9 g( v+ {& Y! e RowBox[{"(",
& r1 ?" v8 ?. n' I' y* p RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
# K7 M- l% y/ o" T' i SuperscriptBox[
- K' [* g& u) m) k. d5 n8 b RowBox[{"(", # k$ A. L. t0 A4 C
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", - j6 v' L9 |1 k& q
SuperscriptBox[
- |8 J/ M: H# l# l6 ~3 \- `! a2 Z RowBox[{"(", 7 K" `; h- H# K( v, g5 T% `
RowBox[{
, y% ?- S2 L0 q7 B! `7 C( p( F) i# h RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], , C3 J4 c! E0 r/ o8 `& V
")"}]}]]], "Output",/ q& Y! o6 X9 F( U
CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
8 j( |+ ^* M ]& X}, Open ]],
Z! m: o, R/ ~) A$ l9 V' Y- X3 `4 b3 }, n" W
Cell[CellGroupData[{
, w3 {/ z! R' {4 a* u, n2 b4 T' @( a! `+ N$ m
Cell[BoxData[{
3 a. N$ k- p5 X( } RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]", , c! S' `2 l. M
RowBox[{"u18", "=",
8 s, l* B6 j. X$ W8 c u$ v RowBox[{% v1 f% L; s Q0 d/ j
RowBox[{"Exp", "[",
. Z6 ^* e" g7 l& N$ A RowBox[{
: b4 @* Z$ k5 Z9 }. X8 N3 `. h RowBox[{6 T! D" e8 r/ @; D7 Z# z
RowBox[{"-",
# T! }5 s( M0 `' B F RowBox[{
O; h8 Q% u8 _8 N RowBox[{"(",
; R0 f! J8 a2 }" O6 I RowBox[{"Xa", "-", "Ca"}], ")"}], ".", - ~" j% t( d# e/ a, g1 L$ z
RowBox[{"(", 9 T0 V4 c5 E; u# J" O; @, w
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],1 N2 e- Y6 O( K5 q& v
"]"}], "/.", "DeltaX"}]}]}], "Input",+ ~7 t. }* d' `7 O0 l: U B
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
t1 [+ ?1 B ~" E 3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9, 5 \ H5 w3 U8 I+ r+ j$ e! }
3.5779615828848505`*^9}}],
! E9 q0 q8 w& O1 ]0 X3 } |8 M+ V: K/ g) Z4 ?
Cell[BoxData[
6 E2 V/ s, y' Y0 s0 s8 e8 \7 q RowBox[{"{", ( I3 c( S$ s. Y9 x- ?' ` K* A( [
RowBox[{
9 f$ P. W" B7 { "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", : i1 h8 ]- o6 g0 A/ i1 ^
"0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
6 \3 S2 W, h5 Y$ } "}"}]], "Output",. t9 F0 H d8 t
CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
% Z7 @# Q5 n* X* ^6 c1 n7 u8 |+ x
( ^- {* s2 L) m% i7 t6 B: ECell[BoxData[4 p$ H8 \4 X& L! i I% x0 X
SuperscriptBox["\[ExponentialE]",
, o" @, `- u% x4 F. [7 | RowBox[{"3.141592653589793`", " ", ) W4 u; }, o9 _- v
RowBox[{"(",
) b- `' B6 F/ a: B6 V$ p2 V( I- y RowBox[{9 Y! T7 C* `% g2 G/ Y) V
RowBox[{"-",
% i; y3 w# s9 C% f+ T7 ^, P( n7 q SuperscriptBox[
* k. F3 T* D3 U2 f8 H RowBox[{"(",
4 C, ?7 K! ^ E$ o6 E" n. Z! q3 H RowBox[{
4 O: A$ H y. m RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
, x) G2 K2 _, W' o5 h1 p( J SuperscriptBox[
3 B b6 @: |% Z1 r Q% T* J% |0 F; V RowBox[{"(", $ \+ g# w! m/ e2 {1 ]# O
RowBox[{
) y8 P( Y2 ?+ R& K9 }8 m RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-", . \/ @' R% k$ E7 l& A
SuperscriptBox[
$ N4 [& I6 G5 z h/ l RowBox[{"(",
' T& W3 n1 J# e- E9 U RowBox[{$ M( B1 I$ ^: y( e @5 `
RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", ) A8 T* m! R* K# |( X8 f* _
SuperscriptBox[+ U& e7 {( e- |2 z/ i0 m) ~
RowBox[{"(", - {- E8 \* }! k( P! A
RowBox[{
" b+ j* o0 ]. o2 ?. d6 ^5 k* E; H RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", 0 d5 v1 }( {1 F
SuperscriptBox[1 e7 t: |) Q# O1 w
RowBox[{"(",
! k; r; q) J8 t o RowBox[{
; g6 U7 v `$ A, K4 |# D RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
2 `/ t- Y& x# u# \, F! e SuperscriptBox[
6 r) d s ]1 Z RowBox[{"(", / V! U$ o/ V# R$ R; ^$ N& e6 }
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
; e4 g, ]( s+ s; z SuperscriptBox[
/ M& i; i6 k6 _9 Z$ O* K RowBox[{"(", 6 j- G8 k) M1 u
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ! s8 j- x/ s/ N2 b8 o- Y9 o
SuperscriptBox[# S4 g( s+ A/ z' b1 ^
RowBox[{"(", ( o* ~# w/ F' |8 {7 b
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
, h* v# s7 T6 n SuperscriptBox[
8 S8 @5 d/ k/ F7 }; b( }$ D2 \ RowBox[{"(", ; Y7 z% V) U8 L% P$ P
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
) C R. K1 l5 B: G ")"}]}]]], "Output",
" F( I+ F* h5 |! H CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]
# S3 t- I1 P3 x) E: v$ D( E0 C}, Open ]],5 z$ d+ y; S% T+ M) H( P8 |' w) S) H; F
. H Y+ J) T, j6 j! XCell[CellGroupData[{
( k' v7 e7 B2 {% K* H8 R/ A& q2 p+ g, K% \6 ^9 \
Cell[BoxData[{" G( g* \" B6 ^) i# b) Z
RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
/ q! `* j7 V- F8 d RowBox[{"u19", "=",
0 R9 e4 S! K" g8 j9 t; T& a RowBox[{% r1 c& U# }4 ]" e4 M
RowBox[{"Exp", "[", " {) r8 f" j+ n
RowBox[{$ [) Y7 E5 I% L# }
RowBox[{4 `: J& P4 X- p1 L- ^( F. O
RowBox[{"-", ; @; F) ]# g7 L7 o! p3 e; W
RowBox[{
" [% W; i: u7 m6 A9 g- j5 m6 V RowBox[{"(",
/ ?3 M- z# o# x6 S8 d* j RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 4 T( i. {. A ]
RowBox[{"(", ; L; j' a7 p9 E
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],5 A3 S, ?6 r) o0 ?# c$ \1 Y
"]"}], "/.", "DeltaX"}]}]}], "Input",' t( t. K' J* |2 r, n) v# J
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {* o! g% m" F- n" a0 e% C$ _
3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9,
" j( r3 ]9 ]8 ]# x+ p6 | 3.577961588890861*^9}}],$ i- D! T f3 p/ c: E2 K, `& T
0 Y0 A: m+ `: e DCell[BoxData[
) F$ s. Z/ z3 M& I. k RowBox[{"{",
5 u6 j# \4 U1 \& o: t3 h& r. ? RowBox[{/ [/ k! Y' ^2 c; z
"0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",", 7 D) n+ W5 \1 o, u6 G
"0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],
" v( G: _5 s4 \$ ~% [ "}"}]], "Output",
% O/ H; n! o0 g7 q2 Y* V CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
5 e+ c; f4 z8 {3 ?& d' a7 v0 v6 V* ~! ]4 U7 `/ D
Cell[BoxData[ y8 b) ~* F+ D4 p7 O& T) W
SuperscriptBox["\[ExponentialE]", - C8 w! @0 o s) `
RowBox[{"3.141592653589793`", " ",
5 J$ A+ E" ~9 {2 _5 I* ?" B+ K RowBox[{"(",
7 y- i) v3 E3 _$ K+ M/ f1 B, y. v RowBox[{/ ]( ~& s/ Y, j8 D# s4 _$ Y
RowBox[{"-", 7 v) x) p+ T, }; E' m* a
SuperscriptBox[6 z$ Q% T7 s5 I8 N# i2 p; A h0 Q
RowBox[{"(", " S& Q( \) b, t5 ~, x* \
RowBox[{
$ q" o- }$ ?! h( U; ^7 o RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", , p1 X. T& f" `# ]3 r9 n$ c; b/ e
SuperscriptBox[
; W1 _1 F$ N4 Y) |' Q/ g/ M RowBox[{"(", 9 @+ F, e) J" i$ G
RowBox[{
( L7 a/ T0 X/ R RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", : \0 s# }2 i3 ?7 h
SuperscriptBox[
! \4 G, g/ p! U RowBox[{"(", . z. ?( B7 W1 p6 {6 U
RowBox[{
4 G! D" W( _2 ?8 }9 `% s6 g RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", ( t5 e' r7 p, R9 T' E
SuperscriptBox[0 ~- j) L7 Q$ e P
RowBox[{"(", 0 b* @7 F* {$ P {
RowBox[{
% B; |8 X5 |+ N6 b2 Z/ T RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-", # F' g4 o, b+ x
SuperscriptBox[
' O6 O4 r* I4 U# s RowBox[{"(", C* v! s3 T ] ^
RowBox[{
9 u; y& N6 a% T: O/ r; r6 ^ RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-", ! @, J' W4 g: Y/ e; j1 x
SuperscriptBox[
5 @! d5 i2 _7 y3 r3 v5 Y RowBox[{"(", 9 @. W) P. t4 ?1 A, b
RowBox[{
- X+ O8 P4 Z9 S RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
% z/ @# K5 u' m9 V8 `" T SuperscriptBox[( {2 w6 U, O/ Z4 s2 \; y% n
RowBox[{"(", ; E2 a3 T3 m B6 q* _# p. _7 W
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
5 L5 \9 ^! z# v$ v+ G+ z SuperscriptBox[
0 f' l" Q- E/ e. Q RowBox[{"(", : o$ [; p1 Y4 \ L. N, h8 P: k- L
RowBox[{' V; m2 E6 v& T- e$ t* k$ f
RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
4 X" ~1 y1 q3 ]6 [/ V' x3 B( q1 i SuperscriptBox[
! X1 ?) G+ E- c4 y% l# u RowBox[{"(",
$ ^4 H* q5 w# x& \; P) B' | RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 8 |& ?7 Q7 T/ Q' q1 [
")"}]}]]], "Output",
! W) G' X5 w* ^4 f6 B CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
0 J" k: e3 F8 }( L4 U/ ^" m}, Open ]],0 u8 C4 w6 Q: v. e" a/ P
3 {2 q0 T9 j1 ^, e) l+ G p
Cell[CellGroupData[{( |8 n+ ]$ I+ B8 I3 }
1 _4 Y$ k1 _ `Cell[BoxData[{
* B0 W, T- V) ?5 l: ^$ w4 C RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]", ( @$ t% ? U& s
RowBox[{"u20", "=", * Y( q/ N+ l$ J2 [
RowBox[{5 \6 ~" E: ?7 |
RowBox[{"Exp", "[",
7 ~4 e( z9 \7 M/ U+ E5 Y RowBox[{
# [% K% c( X8 b RowBox[{
4 ]3 T; t( B4 U RowBox[{"-",
" m; a. [" d: E+ H! o p RowBox[{
4 T' i" {% G3 k& Z, H1 F. M0 k RowBox[{"(",
4 w% b6 v1 Z8 ]1 Z" m! ], r RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 8 x6 h+ I7 Y+ t' V
RowBox[{"(",
9 S+ \" B0 Q* c6 n8 { RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],, z. y' }4 @/ q9 W
"]"}], "/.", "DeltaX"}]}]}], "Input",
* Y6 Z3 ?& }' q) t& I; ]5 |# l CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
7 L8 B* ~) ~3 y" G; I9 |; m 3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9, 1 S9 g3 ~! F$ G. ]
3.57796159382047*^9}}],2 p6 j! U8 J) X( u/ s
: B0 K/ y% j5 c; U+ r
Cell[BoxData[
# h/ L3 S# T& E2 }8 w8 i# V RowBox[{"{", & T5 B) o$ a/ l' T8 _& X4 [
RowBox[{
/ l5 \ C5 u: h1 S "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",", # @( ?9 u9 M' ~5 u$ I% w
"0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
1 |# x+ }3 ~1 K7 h' E# F! b+ _ "}"}]], "Output",
f& j* t/ ^; `( d* ] CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],
; G+ }! w; h+ Y- H. V4 X2 F0 ] S7 K8 c, P* @" j2 t
Cell[BoxData[
/ [, A4 l, s& D, N! y$ M SuperscriptBox["\[ExponentialE]",
- S: n, ^& y3 ~; u RowBox[{"3.141592653589793`", " ", & _0 ~" h$ n4 B9 `# Y( Q: N
RowBox[{"(",
2 P% n: G, J" p; f9 E RowBox[{
9 I0 A, |2 W$ y5 G" t$ h. F5 }: j9 J RowBox[{"-", 2 L: L% j5 F# F+ `; e; u5 b; D
SuperscriptBox[& c* S2 M4 f( P) r7 G" v3 H
RowBox[{"(", 8 S' _9 n2 X* t5 {- O# E3 M; _1 R
RowBox[{( d) [4 ?5 i7 f
RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", ' i N! x2 S; h m
SuperscriptBox[. Y& o) e3 i4 j4 p+ \
RowBox[{"(", . Z8 i# f, H5 k5 z
RowBox[{, t" b* L1 I+ h1 s1 U- Y& u1 J: x
RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
' I E1 f( ]) d' K SuperscriptBox[! R5 ~) t% ~: N9 S1 Q0 b
RowBox[{"(",
. X+ x6 s m: A+ Y$ } RowBox[{4 h7 F+ O/ U N* s: t
RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
, v7 E" Q+ o/ P- ^ SuperscriptBox[! P7 K9 f/ C: u
RowBox[{"(", ! T: y" S2 B# A$ K7 r% k
RowBox[{
' c( Q, [5 l) q0 m0 r RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
. ?3 V! H5 H9 V3 S/ i SuperscriptBox[5 c8 Q: [) D) ]1 c) o% ]2 p
RowBox[{"(", ; [5 I% A! ]5 @/ n3 m: j8 w
RowBox[{
+ m0 R& N: ]; r3 F. O/ S RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
) D2 s* P1 ^0 q: d* N) T( ^ SuperscriptBox[
$ X4 f( x3 y, {6 z/ m0 r RowBox[{"(", $ Z1 Q9 r+ h* h, f6 R
RowBox[{
9 \2 P7 R( m" f- C' i0 B) e: T4 b RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
; |- e# A- w0 s# y$ L SuperscriptBox[
0 `& P) l/ m! P X RowBox[{"(", ' T; ^8 A$ L: p6 j: _
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
" E2 I8 ^: M. d8 S8 x SuperscriptBox[
$ R E6 M3 d, E# _& }# j7 R3 g5 n4 b RowBox[{"(", 0 Y- O5 i% u0 h7 p/ Q. u
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 8 c0 {; y- s- a7 t7 A
SuperscriptBox[
& M; z9 }. G P RowBox[{"(",
. c% G) E" H4 o1 h0 R: x0 A: c" h RowBox[{
( L. f, o* i( {( _9 B RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}],
. `1 U8 ~/ K( I ")"}]}]]], "Output",& Z) n& u% n$ t6 _% N# T- R
CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]2 y( R4 B7 L1 V" t- t9 C
}, Open ]],
+ U7 c* a6 z4 p [% N
" t% S. |) O4 jCell[CellGroupData[{
1 I8 w( Y' B5 k/ A9 Q; u5 m
, N( o# I/ a5 f I* j7 w% [Cell[BoxData[{5 E; p7 J& H9 l2 ]" N N
RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]", & z, [! J5 t, r+ b
RowBox[{"u21", "=",
7 D3 f7 _1 l! C( _ RowBox[{
$ |6 I ^' K; z9 k, h2 t RowBox[{"Exp", "[",
0 F, L& H4 E- G/ ~: i1 N4 W4 P9 { RowBox[{
' Q: @ b) T' M0 y! b' ^6 O4 f8 ^ RowBox[{
4 d: P% k- U i RowBox[{"-",
8 \9 j" a, E% e" g4 U1 p( R7 d RowBox[{
& E( ^7 v' Z" r RowBox[{"(",
0 v& E6 F* ~" k1 ~* o RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
. _: x2 q: o- X8 m. B RowBox[{"(",
: [& J3 U+ c1 D1 n RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
6 O1 [# S& _1 r8 l4 x0 s3 [) S "]"}], "/.", "DeltaX"}]}]}], "Input",
' s& `. g' s! |$ ]+ M/ ^ CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {) W! K& e$ ^, P# t- W
3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
; _3 a% [/ U" U# B: L% Z) s& b 3.5779615991556787`*^9}}],
: I5 w0 d8 u \3 g
( D0 U1 x+ \6 [0 Y2 ]Cell[BoxData[
# G8 d* _5 Q! l; M5 W RowBox[{"{",
& u/ c& O7 v7 p% N, D! D0 g. |& W2 u RowBox[{
- q3 k: a3 @3 ^ F d "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",", 3 e/ s& J2 V3 ~* ]$ @) |
"1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}], ( v. T3 d" e, C* K! n3 E
"}"}]], "Output",# W0 N V4 ?/ j8 }3 r5 ?
CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],
" @. t$ y9 V0 x! m; c; j8 M4 d' I2 v+ c; q& F" H% C
Cell[BoxData[
( A- J1 k4 F# e, [ SuperscriptBox["\[ExponentialE]", $ Q9 B" u# Q& a3 ? M
RowBox[{"3.141592653589793`", " ", 7 m8 f- R5 \2 S5 b. y% G; _. ~
RowBox[{"(",
: J/ z. M M# l' y- @5 A. N2 u7 r1 i RowBox[{
7 {0 M! j7 O x. s2 O/ j$ Z RowBox[{"-",
& q3 E- W! j; D1 Z2 G SuperscriptBox[' D* l- Y; S+ y
RowBox[{"(", 2 ~/ ~. m* {; k$ z6 d4 W8 J5 S
RowBox[{: k5 V4 j; ?# I& x5 c
RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
0 o7 ]7 W% D3 v! N* L; ?* T7 U; O SuperscriptBox[
8 y$ n: L" g4 y7 V RowBox[{"(", ( b7 ~8 s1 [. F& `
RowBox[{5 l" v. N0 r% S( \" z, J, p0 Y& O
RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
0 a5 D% i4 R; ]' p9 v+ v SuperscriptBox[
k7 @0 o0 j& Z- e. h8 T( c RowBox[{"(", / g, _5 r* p y" @
RowBox[{
7 c% T/ m L+ N5 H RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
; h5 J; g- O, q; y" I) h& x; L6 r SuperscriptBox[9 M! w: m, ~3 v/ f+ I( ?
RowBox[{"(",
' g/ q+ o6 U; K4 j# A1 N: o; {4 k4 i$ S RowBox[{
: E: [# r1 a" s* g b' n* z/ a RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", 3 i+ e9 ]# l4 j* I5 i
SuperscriptBox[
! X Z: m: b% s# r8 T2 t* [ RowBox[{"(", & l' J& _0 G# N2 C, J
RowBox[{
8 M) s; \3 L- U, V RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", $ l; w* o% H2 k8 H2 q
SuperscriptBox[5 ]- }4 _* K$ d0 l
RowBox[{"(", 2 [2 z" V! J' V9 @4 M
RowBox[{6 p* G5 `5 J! N5 C
RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", 2 {( c3 E) _, y
SuperscriptBox[
: ^7 N' E' K4 m. h D RowBox[{"(", 6 J8 k: }+ ?3 b# {$ n7 Q4 L1 Z
RowBox[{
1 h3 x2 _/ W1 j7 t* g RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
7 Y+ h" c T& Y, R# u" k SuperscriptBox[
) a3 v p; q6 H$ l5 o9 s0 r+ q RowBox[{"(",
+ |- l5 [; |7 L) L* H% M2 z; i RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
5 Y: M& P( E+ ]6 C I SuperscriptBox[) I( f% ~# \, l. k1 A6 r+ m% o
RowBox[{"(",
! W* C) @. r1 Y RowBox[{# E$ X6 ?; |6 H& Q2 K( w9 Y+ x
RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], " z' e) i& ~& r: w3 I- S8 ?' T
")"}]}]]], "Output",' l- T$ G9 J2 x: n
CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]1 X, E7 g- K( ^0 T% Q1 S3 V
}, Open ]],
! P. p( D: I- e3 I. p8 R" e0 K. p( \) c
Cell[BoxData["\:62df\:5408wi"], "Input",
( I6 ?4 q" V9 y9 \+ @ CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],: X* c1 r9 _1 I B3 l
- f1 \) s; B I1 V* @
Cell[CellGroupData[{* w. v d, ]1 s7 b5 ^
- w; I# Q* B6 H% WCell[BoxData[* d2 h- @, z6 |+ s+ v X
RowBox[{"y1a", "=",
# f% ]- S% o0 H# M0 j2 o RowBox[{"Table", "[",
& M9 D0 `, z4 H# [0 Y* y RowBox[{"x", ",",
9 m& A' T- t* [& V2 [ RowBox[{"{", 6 s: ~) c) W* s
RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",* j% g) j' Z8 M1 h
CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
7 l0 x4 G1 U3 ^; u; O 3.5779226649375*^9, 3.5779226810625*^9}}],
: L, D$ h4 C7 C9 E* g
. ?+ i4 [" m2 E- }7 lCell[BoxData[) z Y* i, w" v- c
RowBox[{"{", ) M+ l2 M6 {" h" m6 S# k w
RowBox[{5 b" I) L/ p, [
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", % l4 [+ l* c% l0 L% J
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",( E* G1 t' z3 v! R- J( R3 o
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", ! j/ i' s# { r! u, k
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 2 ^/ K! E: S" u/ r: |2 B
",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", 6 X8 P$ Y/ E1 H) e+ E+ P
"35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
( N! @/ Y* ?+ h# E: ^8 t ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
5 w5 Z: [0 a' F b, Y* @# s5 m7 l. H "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", & i. @. L# B# ?) V3 p+ c+ z
",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], ( y' q0 q r0 @8 E
"}"}]], "Output",
3 Z6 V' V" B5 C9 w* Q7 K9 B: R CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9, . J* K2 F" _2 ?! N/ q# x( o) r7 A
3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]
2 k6 V( L4 ]) N9 J/ @}, Open ]]," G/ Q) c# B* {' I$ y+ {- W
6 U7 V* j) T( r1 o' G9 V' r3 b4 ?
Cell[CellGroupData[{- o. Z6 p7 w3 G4 D7 F- c( S! X: U6 i
! `. b& y/ K" F( ^4 h a- {( m: KCell[BoxData[
$ o; I6 _+ Z. p$ q6 ~6 T RowBox[{"Data", "[",
* D; p$ @/ ]7 r$ N, C/ i% r) z RowBox[{"[", ' |8 r& {0 w1 d8 k7 k- B* ~* s2 X. u
RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",
% t% `- M4 O8 ~ CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {- d5 U! r) K9 g5 o% Z7 _* X4 T
3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],9 D. H7 m8 D* q0 y
( w2 _2 V! B& {1 i
Cell[BoxData["0.899882`"], "Output",1 e+ L+ B% l/ H9 k( o( ]
CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
9 \6 [( D" Z4 V, R# j 3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
, N- z% t% O+ ^% h' } 3.577961929080654*^9, 3.5780123419375*^9}]
0 R1 R+ J8 ]1 Z0 |}, Open ]],; i& A0 H* Y/ P: S+ T/ A- \0 g
9 X' |0 u [! X' i9 A- vCell[BoxData[
6 c) }# N8 M- e* n4 s% U RowBox[{"For", "[",
: E" x% H$ }: p: B7 }3 b! r! ~ RowBox[{
" D% ]& R5 ^ g" A0 z7 f$ j RowBox[{"i", "=", "1"}], ",",
! V" t- K- l4 w# r3 ~ RowBox[{"i", "\[LessEqual]", "60"}], ",",
# D' ^& a9 d3 P# \, l- E RowBox[{"i", "++"}], ",", - F$ j: A' x5 w0 Q& f
RowBox[{
7 B- |3 L; ~# B: p4 f RowBox[{"y1a", "[", $ N* c+ w$ Q$ X3 K! K! ?5 A
RowBox[{"[", "i", "]"}], "]"}], "=",
6 ?/ p( z; J! Z RowBox[{"Data", "[",
4 k5 W: Z. K, G# Q+ j RowBox[{"[",
" I( j1 P% p- U4 V6 M6 B0 A) Q RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",6 y4 P8 a$ t! |8 l4 U
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
: i( }. z! y, x9 e! Z 3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
6 I+ ~5 E5 T8 Q. ~4 A- {; ]8 i8 S+ G 3.577922923203125*^9}, 3.5779588839702806`*^9}],# J3 y; d# d" ~
0 t* }$ x2 v- O) e8 o9 O: q
Cell[CellGroupData[{3 R& ]3 @6 E6 }$ |6 h. T/ H
& u/ v( j) w. k$ w, t% h2 V0 m* {4 \1 K
Cell[BoxData["y1a"], "Input",
) v7 h0 r9 ]/ M0 {' c6 Z CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],
: Q% D/ e" D9 n# G4 q9 ~2 `
/ h5 N) P5 x. w ?Cell[BoxData[) k2 G# P8 {8 A) D0 k' P) f: K
RowBox[{"{",
/ e) o* g4 r( @. O# s6 }# v8 g RowBox[{" G# l) e/ B4 u/ V: m
"0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",", 8 J# ^. W n; @/ o/ N4 o* V
"0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",", . s" H9 F- ~8 p/ v
"0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",", ! q, A7 P8 I W% ^' K
"0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",",
3 N4 Z9 o3 k0 u+ V# r( w! a "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",", - c3 T) s; K1 ?( e' |: J
"0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",",
/ `; ]9 W+ g! I4 L; u( ^- J( e0 ^ "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",", 4 D* B. H) R0 z8 d9 j
"0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",",
/ R$ F. P% E7 k1 c' y) U1 B "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",", / _$ {& [$ c* P7 F
"0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",
! x& k- s9 |6 ~) P "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",", 5 W/ E, O6 \) _3 u4 O, z- a
"0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",", 4 J/ d, y/ F7 O1 Q6 o! {6 l' [+ |
"0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
) l. L/ |5 d" w) G d& V$ w- D; ~2 y, ~ "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",", $ L" J! ?9 Y; ~6 t; Z
"0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}],
6 j+ [- j; z G "}"}]], "Output",
# \ p* Q7 u' V% W# _5 N1 u2 | CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9, 0 t3 {- ^/ w. {9 g
3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]
% @( |( ^( h. h- k+ p& k2 i+ J}, Open ]],% c H% ?" O1 a& G; w3 D. F
9 [6 `" b# \8 v" Z3 P% b0 H7 X6 a
Cell[CellGroupData[{
. V8 z6 D L4 B S" M6 G1 Q' F; e' o) v# Y: C V4 E' J
Cell[BoxData[& T& ?$ `) w5 Q, N/ d; G
RowBox[{"m60n21", "=", ) o9 D# Z& n' {0 S
RowBox[{"Table", "[",
/ E7 b3 _7 e2 c+ y RowBox[{
" W; T2 a' `: `5 D2 m RowBox[{"Table", "[", * {" f7 S; B1 O% Q m$ c
RowBox[{"y", ",",
) J% ~0 w9 e4 U RowBox[{"{",
4 Z% N8 `6 N/ {7 U, l$ w- g r RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
: z2 G+ w4 G+ B RowBox[{"{", 1 T7 [5 ^1 e4 v! V7 A( t
RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
1 a s4 Z# r7 e; {# W: ~8 F CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
. i' R- X0 R: x' E8 E, t 3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9, : g0 a6 b+ u( T( a
3.5779619706547265`*^9}}],4 V3 N: h% k2 e' e$ o. M
8 ^! s; |% n% HCell[BoxData[. }" G/ d' @2 I7 q8 j3 P
RowBox[{"{",
7 Z' o9 t0 L" ` RowBox[{
6 Z( J% \6 Z3 i$ O4 U; v6 a RowBox[{"{",
/ i3 ?. l0 J* h# {( F9 r! m RowBox[{# A+ f u% n/ A: M. f4 y5 ^
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 Z% Z- z( y" n" S' C3 F( C, J L5 O
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
( L& z# S4 b( }3 O) k* F. S "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% ?: |- c1 b; T2 k. S; g
"}"}], ",", ( l, W. o0 ?' \* {' O m1 R; ~
RowBox[{"{",
2 Q0 B9 w8 ?1 _) o# d RowBox[{3 D5 `: {. L/ U3 S2 f
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 G! \/ A; ]/ x; i/ n ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 Y! w4 L. a6 n n$ R9 Q; ^
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! o2 T1 v% V! s9 ~
"}"}], ",", + ?7 b5 e+ @2 e# g& y$ n& W, w
RowBox[{"{",
" k, @7 }! \* _7 b2 l RowBox[{" d N" D0 T5 e# a8 M7 T
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- b4 S% N2 @) S }0 `0 U& M& q
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
y' A4 p$ j# Y& t# D+ R "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
* F, E: X4 Q$ H- Q" \9 z "}"}], ",",
0 `. x# x" s( r& e2 ?7 _3 z RowBox[{"{",
- m2 n; w2 [6 {" t5 E. r RowBox[{
T4 `; v" ~0 W$ B ~ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
: g: \5 c6 _; s# \" j4 h# B& y# n% B. y# ]0 @ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
) m* r3 G7 l6 i/ G "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
7 w. s$ `3 l0 L/ {0 s! K0 [9 v: i3 k "}"}], ",",
1 B7 T: ]: `3 t S; Q% `* b( H3 y RowBox[{"{",
- p& @ e- r1 ^: l+ S" y+ q RowBox[{
7 g2 ?+ I! X& a, X! g& y% T "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- p! N7 D7 j2 Q# _) K
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
, G( Y0 T8 g8 h* T- Y/ t "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( ]0 M9 Q8 @9 ^' @, b9 l1 |- L7 q
"}"}], ",",
. r, \! v/ U; b0 C: a9 S RowBox[{"{",
* h1 s) n9 A& U9 [! p) u9 o RowBox[{3 }# i M8 L/ w( c: h5 u# o$ W
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
7 F+ p9 n1 {0 T* r$ s( p( C! \ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : B! v9 u; U* `$ Y
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
2 c" y" B# l8 x$ z- K g1 a "}"}], ",", Q A6 g! u( a' q
RowBox[{"{", + r0 B% D5 C- |
RowBox[{4 L- B6 j* i# A2 h5 F4 F
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
0 n+ L& Q0 u) P/ r/ j, A% P" o ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' \3 r* D1 v2 c
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
4 t3 @2 }5 {: g& T$ x& u "}"}], ",", ! w2 F% G* ~3 k
RowBox[{"{", / h9 H3 I5 w4 Q* A
RowBox[{
% S8 P% F: R/ ~0 t+ y8 S1 O "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
+ u$ i! }/ h- h$ O; _* q ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
: X, S5 B' g7 i0 a( b "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
$ P& ?* i' v h. k; K' w# E3 w8 O "}"}], ",", 8 P. z$ p; m* n5 e6 r% w
RowBox[{"{",
+ u8 g8 b3 B( B* g9 x3 u2 F RowBox[{/ P/ @8 S, k% p5 n- F
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 Q4 r4 M: q w: A9 y' E
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
! n3 U4 ?5 s3 ?, i- y4 ~ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) ^7 l$ m2 t4 V% @% R1 @6 c
"}"}], ",", 6 ^3 N: T2 J1 K" n9 y$ y! d
RowBox[{"{",
+ c7 p4 k. C# K$ w! x" c RowBox[{/ j" ]4 `/ y% ]: ? p8 o* G
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
; e* f/ ^) u/ a' H3 i0 b ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- R4 ~) p+ \5 e. Z# s "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 {8 S7 [" l% g$ Y8 j
"}"}], ",", $ W( ]% i9 S9 x6 N
RowBox[{"{", : B6 E) W/ D1 p2 x' }% V. t
RowBox[{# V- L3 s4 n) j* k1 f% U
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* i3 b+ o C+ I. p/ Y
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
2 T& A- H* R, x* Q "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
$ x/ h3 N6 d& c/ T "}"}], ",", $ x" M8 Z/ n3 `
RowBox[{"{",
: b, T) n+ Z4 o RowBox[{( v. o& N9 V s
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 L! O. J* S' E+ {9 E
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - U3 b# B0 z# M G
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
2 i$ Q) r; l, S- G, u/ G" [+ ]3 F "}"}], ",", ; c- g* ~8 c2 y
RowBox[{"{", ' s; O' R/ `9 U
RowBox[{
8 M, _3 P9 f2 K "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ y( h& m* l4 ]) A$ [ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - W8 x6 c! a2 B# \% P
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
2 _2 K; {6 O- ^, h: t, N' s "}"}], ",",
! c9 W( a3 e) |' O- M# b6 ?5 z RowBox[{"{",
; { T! t! D7 R2 \: Y. H RowBox[{
- v* w4 B S# z/ b% L/ [5 H "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
; h5 @ a: P" M! u0 Q5 V. X ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - A+ a/ P8 ~8 s" e+ Z* v7 z
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
/ L. k! V$ F9 M "}"}], ",", : |* l. I7 K A2 g5 V6 d
RowBox[{"{",
4 M" F5 o2 A6 I+ r0 Y RowBox[{1 |7 ^4 E. K4 b) V
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", _5 ^. n# s* ?: t. ~8 r
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
( j" v) ?1 i1 t "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
/ l3 _9 _- ^' i3 Z "}"}], ",", ! s6 ]! A6 |) i3 o! w- B5 s- A
RowBox[{"{",
1 l* X# K, e3 W RowBox[{( A/ S2 v7 p/ u! f2 t
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* F' F6 P" G) S2 o" Q3 \
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! R& u5 U. s8 I6 g
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
# B5 T) [5 V% x7 Y- y "}"}], ",", ! R3 ^2 t: P0 Q
RowBox[{"{", 6 E3 W, ^ o3 {+ N/ x9 d
RowBox[{; R2 g: U# Q& S' w! @5 F
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ U# ^9 o" f1 A ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 o$ l6 b. ?! A6 W% N
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}], h; S/ Y6 P- y Y. H; X o
"}"}], ",", " c Z, S2 j3 V9 x4 V
RowBox[{"{", $ a8 f8 f3 D' ^3 [9 o/ L6 M
RowBox[{; ~+ e$ K9 t4 D% ^; X
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% z9 f J- t2 j: l- T0 u7 k
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . y9 M' B q$ Z
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
" y; g: D/ K+ L! e "}"}], ",", ' w F2 M, a+ | d& U( d! e
RowBox[{"{",
' n# a4 R8 B5 o: A# ^( ?- b RowBox[{/ B' e7 K6 o3 q+ M& y% Z e
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- v# b2 g' p- m' q2 f! F. a
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ B G- G% i0 R
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
1 w2 p' O( b8 Q; _ "}"}], ",", ' ?1 d8 ]: D I- X( l
RowBox[{"{",
" {5 t! u; ?& [- s- u7 G0 Z RowBox[{) z$ e: X4 y2 `5 ~& z0 y
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
' t- Q$ u1 r8 _+ u0 D ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
2 v g# u0 g+ a7 H9 Y9 o& N6 Y5 ~ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; _0 |7 J; s* O0 c j5 S "}"}], ",", " U6 H' O6 s2 H: F$ I& i) R
RowBox[{"{",
% k$ b6 M5 b5 a' a. x# l# b# | B! @) @ RowBox[{6 Z/ r6 F( N+ Q0 @
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
( N; e; p# U: k6 e" B4 _# f ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 r9 ^ J; f! z" D
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ Y' z" \; G4 a+ x
"}"}], ",", 3 W+ ?' g" E2 {3 }+ y) ~
RowBox[{"{", $ J2 J6 P7 }, h& S
RowBox[{. k6 E. H* k9 g# B, L8 m/ Y+ I
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ I4 S. n- D8 g
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) ]1 S) D( o) O. N3 |& U
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 ]9 q+ v/ N, m* r9 I/ W% {
"}"}], ",", 3 U7 e1 h- k# m5 ^/ q, f' Y2 E$ Y2 V
RowBox[{"{", $ V9 i! `9 U. j+ g8 V2 i
RowBox[{, N: Z' S* z* j1 p2 r- K
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 S: [# D) b, D2 I/ ?8 b ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
+ m. o! P- ^7 [2 v( n! T% s) j "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," z1 v, S2 O( L4 ^& z
"}"}], ",",
8 O# b$ e7 O8 d7 f) K+ k; a6 ]7 I6 a RowBox[{"{", 6 ?! T {% e) m2 L& [2 J2 O
RowBox[{
6 _& g: l! ~4 q* H& V" e' d "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
8 p9 d& Z0 l/ a/ o6 F$ Z I ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 w2 G: L+ z7 l' w; ^
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 Y& @$ x) U8 P& k: ?: k3 R: I, }
"}"}], ",", 4 C0 ?) a6 _8 \! l, q
RowBox[{"{", 9 G: ]) v% e2 D- [
RowBox[{ v( \/ ~+ A0 n3 e O
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
4 ?' C9 |7 F' B) P0 Z6 w ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * h0 m9 Y: H% Y9 {& |
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
4 K3 `6 d1 m+ X3 a$ ]# f/ c "}"}], ",", & ?5 ]: H! t+ ~5 {; f
RowBox[{"{",
; @ n- ?* q/ ^2 |: S4 A+ W RowBox[{: ]1 ?" L8 }2 y# m( A* H7 w
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," k( K/ J; L& w/ r1 e
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 I6 E0 t$ D( v8 j9 H4 y* s; }
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; s0 e. L. R5 Q( d* ^
"}"}], ",", : r8 i: o7 M0 t/ F7 o) _7 d
RowBox[{"{",
|( | U8 X" X4 C. r RowBox[{
! F }+ @) E: v$ `6 J: A6 b3 d "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 d1 Y' i0 `- g/ L, u
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 Z+ u0 U3 G7 p0 N/ C
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 `& S" D; e/ F5 @! g) V' |, S
"}"}], ",",
% Y1 |1 F7 T# ^6 p1 E) o4 ~2 z RowBox[{"{", + E$ Y" E& |7 ]
RowBox[{8 s2 G5 I) \8 f5 S* X7 ?1 b+ [
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 O5 E: W5 W- i% G; r3 }. { ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
$ O- V$ R) |* A2 t- `1 _1 }0 ]/ c "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
" }, d! p: T2 G2 H0 `8 M2 k "}"}], ",",
2 |4 B2 S, }4 W) V# v( R+ a RowBox[{"{",
* @' k6 P4 U9 d9 Q RowBox[{
. q$ i' a8 Q" L' c) E: A% P "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
0 @7 G' ]7 ~! X* P) ^# P. U" [9 p ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
% l" q! V5 |+ [6 V/ Z1 B' T "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ ?- c% b" M" _2 a; h) u1 K
"}"}], ",", 9 B" k6 W! d& Y# Y4 C% X* [. ?7 H
RowBox[{"{",
9 j1 t+ Z& W; D# V: E RowBox[{+ O; S, W j5 J; U1 @$ V
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* p) e* m P& H* C$ J! a3 U' w1 m
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
F# a) j- X7 T; z* n7 y "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 V2 M; A* v4 F% M
"}"}], ",",
' L6 f& C( j6 d RowBox[{"{", " s+ h u0 Z% Q
RowBox[{1 C& P9 B5 ?. i( x5 L; c
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
# F* C8 A/ S* ~$ n5 x. D% {8 y; e ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + r1 ~9 P7 j R- E2 `
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
& L8 Y' H$ R0 C* l "}"}], ",", " @* y" W0 n+ {- ]
RowBox[{"{", # Q; P9 q. Z$ p ~. f, q
RowBox[{
. n& d# j& F( p! A# K1 o "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
! B+ @* n5 e/ {: v; a2 D- }2 z/ z ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
; z; Z) J3 W/ o "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) M$ w+ J' Q3 w, l4 x "}"}], ",",
/ g2 W Y4 X" {* @0 f RowBox[{"{", . i$ x% F& @* T* P0 c, h. o; ~
RowBox[{
5 J6 S0 k1 z6 j) [' i "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 Y" ?$ O6 a2 A! z4 u
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
4 w* P7 {% p L: g! m "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* Q3 g" l6 F5 |$ m0 Z9 \+ q# Z0 L
"}"}], ",",
$ I& n$ S5 J! M RowBox[{"{",
: y# w" M: w- ^% F; u RowBox[{; M) B7 C) K- C2 g3 O3 o% F- ]
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 X) m6 s; K* z/ P( _
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
8 I6 i: d Z; O. H y& L* T "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
0 h7 I1 F, L, F1 i( q "}"}], ",", 5 l1 i% U6 w, u% E1 _2 v# P( o$ y( p
RowBox[{"{", 9 c6 |$ L& M& U
RowBox[{
C6 h3 _2 K) g& G& z) p$ S "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 M4 G9 v* R+ M9 N
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
7 }6 ?9 b( k# O "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 ^9 @; ^, B+ x/ d+ v: c
"}"}], ",", 0 H. w# z' I0 M& A* Q
RowBox[{"{", 9 v3 ^2 W4 a& K$ s' N9 ?
RowBox[{
: U6 P- S* v2 d/ J "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# N8 Y( p5 Q" R/ H. Y# @+ W& o
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 e/ h0 v: H* y9 T7 \& U5 k. Y( B
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
4 u3 \' g7 c9 c( X, C+ a7 J "}"}], ",",
( q! N* R/ W; V' f+ m5 g RowBox[{"{",
7 V; ]* P; O: ^0 p0 t RowBox[{( q2 x9 ] I X2 w+ V
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ s; ], T. }4 b! q- \1 Y ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
7 J7 |& d1 u0 Z+ O$ c, E5 D* j "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
( }- Z) |" u, n# ^! I "}"}], ",", 4 ]* Q, [' H: p1 g' U
RowBox[{"{", 8 R- ?; _7 ~; S' I C Z
RowBox[{7 Y' n8 ?& @- F# j" I3 _# q
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 p: X2 ~) N N8 R2 l
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
6 M, k& j. b, P "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; ?) {) H; O1 T' n
"}"}], ",",
* |0 d9 d6 W2 j' A3 e RowBox[{"{", # ~' c3 L) ]; l4 S/ k
RowBox[{1 W7 Y) o4 W4 G0 @5 j$ Z; N
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 |# ~0 D( P ^. W
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , n% j, _7 C; P6 F9 |
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
0 e7 t' v1 \% h3 c "}"}], ",",
/ E, a' s+ W) U9 T7 w2 W& ` RowBox[{"{",
; `' X' q% S4 M RowBox[{
" F! j. U/ O1 } "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ b9 z, P' s( {' x! ` ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' x: N& C j, u: Z3 c" ^# P
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
2 v" n7 J2 q# c& T8 y" S9 @ "}"}], ",",
0 d0 R4 z w |6 M8 k9 ] RowBox[{"{",
* t9 G, M+ L* j. w RowBox[{+ w7 K: q- _ a9 d3 \
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," \* E( \: t8 `5 t3 J
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
5 `* W: m8 N( w# T$ ~1 ^, W2 _ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
# W4 L. o3 Z2 Q4 L4 S "}"}], ",",
* J7 H5 F9 o) r RowBox[{"{", " U- L$ A! t8 r2 J$ T
RowBox[{& ^1 N5 @' j' \$ D
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& T! \: c A2 x6 i
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * R# O6 \5 [+ b- M
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; u+ u! m" ?. b, h
"}"}], ",", + o, o% m, j( x: w: G# ]
RowBox[{"{",
4 [2 V) `, I: p* A0 t RowBox[{+ ?& e% n% V7 v3 G" p# E- h( Y
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
' H" Q5 R! t; S5 Y# y* W) a" q, O ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % v+ u; ?4 a/ d$ N# X- J
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
& g, u8 ]# _! Q2 U/ c+ n "}"}], ",",
$ Y" r- V1 B' V! B2 p RowBox[{"{", . y+ }0 N- ?5 j5 G/ m+ N
RowBox[{
; I- f ?: }; _9 [ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; P K0 u# }' Q" b+ L% j! y
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
7 }+ S5 B. ^* j( n5 [- o "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
]4 N+ ^, p. u3 h) T$ Z$ ~( O "}"}], ",", 7 C6 L* d/ V8 F) D
RowBox[{"{", : h0 d4 S* f- f/ A5 s0 N
RowBox[{8 z" U2 G0 l0 O1 Q
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 C( R _) Q( B+ E$ m
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
! N4 h, T/ N6 b5 _" A. _ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
+ x3 c- d0 ?& m. N H "}"}], ",", " P& R" Z/ H. z
RowBox[{"{", - F. R8 N/ ]4 K" @& }9 D8 S
RowBox[{$ L7 T+ X, j) f0 h
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
# Y( l) t- g* F* A+ v ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
s" Q0 E* x# u: V% q0 H "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
- f, P/ W3 {! y8 k) ^) h& } "}"}], ",",
+ h+ R P# K3 n: @6 Q" z RowBox[{"{",
, W' A0 b! c* p" U RowBox[{
* z0 Q- _$ f7 v "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
) g5 P$ T$ i6 [" \ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : C. q1 `( y k$ K1 r
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
& O+ L5 q6 @5 V) r$ c "}"}], ",",
( x7 j) f4 _ M; N1 } RowBox[{"{",
" K: @4 ], E' @$ c! o RowBox[{' _0 @/ s* Q) ~8 i# P
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
7 {% K7 I4 _7 a. ^! _ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
$ o _1 M8 G- O7 b2 p" D8 h "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
3 @8 o, _' R1 Y "}"}], ",", " C5 X8 U3 x( |# Q; l8 a. y% ]# c
RowBox[{"{", 4 I) |. z: y* h& G% ^% X
RowBox[{1 }+ T# t/ n# ]
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
" o' y) h. L+ j- ` ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
* P! e6 B' j7 B/ K) c "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 d) c9 t4 Y, Q
"}"}], ",",
6 O4 H) ]0 b- i9 |, k RowBox[{"{",
1 t/ Z; E2 _3 s Z3 e5 X1 M0 b RowBox[{7 c) j: T8 j: e9 [- }! ^
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. g9 a8 M* l! ~& q; \
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , z- P; p; f1 J ^; C
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
( x/ [* v- U2 d! i "}"}], ",", / L9 _; ?. c7 }$ N/ R
RowBox[{"{",
* n- V' C/ i4 T" u- F n" k7 X RowBox[{4 P. d( e. X0 h/ r
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
. J: f& w. X; x+ c: m# K* O ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . ]: ]) P/ H: W6 \
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 C& V1 w+ }* Q
"}"}], ",",
! O! w5 Z) e5 u5 A0 K7 q$ W* ^ RowBox[{"{",
$ n- j* L5 K$ g* q" v RowBox[{. b' z" F6 L; @% R! x5 X
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 s! d( K/ S8 B8 \. w! \' W3 g ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
@' x" N/ u3 h "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
/ U# h: R% q" m0 L% l* ~ "}"}], ",", ; O& {3 N* M- U1 I
RowBox[{"{",
9 M! f4 {& `1 @ RowBox[{
+ S2 R' e/ d6 M+ ~4 }2 I "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ \% v1 M5 L7 `$ d
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
. D+ `" F% W1 M9 @6 e w "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% a3 Z$ o5 U( e% ^
"}"}], ",", & L n* V( p: P# E- b) o
RowBox[{"{", ) Z& n0 c2 M3 Q0 a9 O
RowBox[{; Y) x: C4 [$ A& C6 t' v# n& F
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
) ~; z! L0 L4 W d ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
% M' y% H8 [. B1 w2 z "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
# `5 @4 X4 X. S+ ?$ B* p E9 D "}"}], ",", 6 C) I. S: v$ Z ~1 \2 G
RowBox[{"{",
+ S( B8 S9 E% c' ? RowBox[{
" y/ r8 B0 _! \* g" u: ^. n "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* r$ N0 P" ` h
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
~: t, N& e* k "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 l4 D! o9 }' z. U$ G# N8 e8 Y) r, S
"}"}], ",", 7 s8 ~ A# ?0 ?. u$ e% o
RowBox[{"{", 2 P8 V" ~1 ^, J# H5 r" U
RowBox[{0 C5 w, ^3 c( k, a5 v
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; |! @+ d6 @6 h
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 K h* l- I/ F) B S0 s5 l
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
R" G' q7 N( u4 j C y5 P+ U "}"}], ",",
" Z# H/ k) c" M3 w0 I1 v4 } RowBox[{"{",
( Z8 F/ ~! n2 M- i+ Z, Z RowBox[{, ?! \; F6 f9 `( m" p- m" w, e
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
% H( }+ m5 n3 `6 v, L ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; G; C) b# K, e# L
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
& d* `8 d7 N' f "}"}], ",", - x" e6 _6 \% {! l2 k+ t
RowBox[{"{",
% b3 R( p) l* T/ p RowBox[{4 [; p8 q: l8 j4 P
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 w* R, S8 i$ P1 B: E) }
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
5 n5 c/ H' ?% K8 N- V "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 ?+ U6 D3 o" E9 t. [' @; T4 |
"}"}], ",", % S+ H! @, b9 j
RowBox[{"{", 9 x/ ]! t3 v* O. r: I& _+ `- p; G+ U
RowBox[{7 b/ C6 H+ w' V0 s: p
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
& d3 G* O9 K' |& E ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' v/ T( r- G# A3 I
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
/ b# Y& r3 n4 s: @+ _5 b/ _ "}"}], ",",
9 s) {0 z+ q+ P3 a+ Z/ W5 r RowBox[{"{",
7 z! R) o D# l: i RowBox[{
6 a4 g* C1 b+ T0 z: f "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 X& X; {- N1 |- \ N
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
5 w n8 Y4 m% A+ Q/ i, B "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
" ?! Z4 j* h8 \4 B, p. X "}"}]}], "}"}]], "Output",( s+ k& h7 n1 \0 U2 N- N9 `. U
CellChangeTimes->{- d- S; W u' e0 _3 B" T
3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
. W1 Q. H# L$ Q$ m$ z 3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9,
5 q0 `% Z3 ^, l4 q5 Q 3.5779619748823338`*^9}, 3.578012345453125*^9}]
( s( |) R' n7 K}, Open ]],# c& R1 |! Y7 q
9 z1 k, D6 g+ q" {& t* _
Cell[BoxData[; J, v. [; `: ~: H4 F5 p
RowBox[{"For", "[", " C! Y! q& ?. E
RowBox[{( k7 N: V# q- V7 p- |
RowBox[{"i", "=", "1"}], ",",
8 m! j: N- w! K/ h RowBox[{"i", "\[LessEqual]", "60"}], ",", 2 h+ F1 b" {0 E$ P: U) Z* S
RowBox[{"i", "++"}], ",",
, z& O) n6 Y) s4 [& t6 G0 ` RowBox[{"{", "\[IndentingNewLine]", : y, t8 W6 F: N; i2 B0 |5 S' J& W
RowBox[{4 V4 |6 V: }8 [8 ?; S8 j
RowBox[{
0 C0 H3 S. b; i7 z RowBox[{"m60n21", "[",
3 e; n; k3 v }8 `* H0 K( o' }6 F RowBox[{"[", 5 Q5 R: q/ Q& {# a# ~5 f4 X
RowBox[{"i", ",", "1"}], "]"}], "]"}], "=",
( k) H0 ]) ~/ H& m RowBox[{"u1", "/.",
, J6 r8 \# g* n; U( H RowBox[{"{", % d _1 ?1 V2 L0 H. I3 G9 g: j$ h. j
RowBox[{
* H& s# y1 U' U. K+ M5 b/ q* ~ RowBox[{"x1", "->", 9 @2 Z l% N3 X! O+ M' r ?
RowBox[{"Data", "[", % I8 r! _7 V" @4 F
RowBox[{"[",
: q6 u$ g5 f0 g/ d6 k RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", . [/ h* K4 _( p* r" L( L9 P
RowBox[{"x2", "->", ' {4 l* }3 ~9 X& S( O$ E
RowBox[{"Data", "[",
# g {+ [0 e0 H3 s7 m3 H RowBox[{"[", 8 M( y& Y9 Z3 q4 f% s
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
- W% G7 y0 I# |- o/ m. Q RowBox[{"x3", "->",
- i8 }) F. n3 H4 p RowBox[{"Data", "[", + o) W! G2 |% q7 z! O! ^
RowBox[{"[",
1 Z* d& U9 b! X# r% P! L' J RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", & \* ~8 r0 w8 {) r/ _6 s
RowBox[{"x4", "->",
: u& |5 G' X% D% ` RowBox[{"Data", "[",
: Z9 q! q5 a$ Q a% |9 y RowBox[{"[", : M7 ~5 T3 J4 e2 E3 {
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
( x6 } t% l% o RowBox[{"x5", "->", : t0 ]: }; d) x
RowBox[{"Data", "[",
4 z8 g2 O% f Y& T RowBox[{"[",
0 I( ^1 L/ l( p/ j: o RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 1 a% [4 h) i9 s
RowBox[{"x6", "->", ; [6 F0 X! g! ~0 x
RowBox[{"Data", "[", : O& ]( R& o2 T7 F5 [- j! P
RowBox[{"[", 4 a3 _& ~: N |" Q) C% X8 U
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
* s! z6 E# k2 B% y i" ^ RowBox[{"x7", "->", 4 D' a: W; p" g2 I
RowBox[{"Data", "[",
5 H+ s9 J! q' [8 g+ F RowBox[{"[",
P- { o; f7 V RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
' w* U+ B, h5 e# Q' s# f RowBox[{"x8", "->",
# y2 |! d" z( p5 {$ [( h$ I RowBox[{"Data", "[",
4 ]6 ^/ L9 I. R5 H# g! M: E RowBox[{"[", , o3 r6 x, F+ @
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 8 h, k# m! z' y4 x/ R! T
RowBox[{"x9", "->",
! c, i9 D8 x% ]0 r RowBox[{"Data", "[",
/ ^' k8 W2 A8 E! _! c RowBox[{"[",
& N( @* V: M8 {- m1 v: L RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
g, M% S5 `/ J( ^0 a$ A, C, O6 C* C "\[IndentingNewLine]", " k, H8 G8 H, y- N' i+ ^
RowBox[{& g- G& X* ~' n1 [3 q" }! |6 n
RowBox[{"m60n21", "[", " m) R$ s( O J' F# O: f
RowBox[{"[", 8 \( R8 S6 X) \% M5 H
RowBox[{"i", ",", "2"}], "]"}], "]"}], "=", ; f5 X& k3 e2 ]: y w8 ~) h3 Q
RowBox[{"u2", "/.",
% X! d# Z: p$ t2 [8 V& Z! M RowBox[{"{",
! S; N% J2 n* u) O9 \2 v+ M% I RowBox[{
+ m7 `5 ^" h( `' a5 c& J0 Q0 \ RowBox[{"x1", "->",
, |! O0 ^ w! x3 K' H# P; } RowBox[{"Data", "[", 6 L/ N* }" g; w! F, Y6 Q0 H
RowBox[{"[",
7 B- Y: q, N4 r3 `7 b* q0 e: b RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", & K" u$ s: \4 x9 U
RowBox[{"x2", "->",
6 `" \* X/ b1 {5 J; [- O! u RowBox[{"Data", "[",
- L. [* v. p7 P; u4 Z& ^ RowBox[{"[",
0 W/ _; N3 ]( R3 v0 b7 D1 X, | RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
2 i$ M' B0 J- C+ Y: y RowBox[{"x3", "->",
$ g& r9 F% i! R2 ]0 `' S RowBox[{"Data", "[", 0 I& j" [5 T; u' G W# J( M& ]
RowBox[{"[", 7 {# p+ Q& A. B- [7 B" E
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
1 D, N# V$ G: E) Z RowBox[{"x4", "->", 6 m# Z- e# f% Y! c3 v; p
RowBox[{"Data", "[",
! Y/ I4 i' D. @9 S; L4 Q6 z. D RowBox[{"[",
+ R9 G& y7 P$ w5 o RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
a! g7 @! k" d4 X( K# h5 c0 Q RowBox[{"x5", "->",
; X, \. C8 }! e6 a# { RowBox[{"Data", "[", 0 U' m* _ ]: P, l2 A0 |$ a
RowBox[{"[", ) H- {( R, w! I3 x, o; K
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
% f7 Q2 g5 ^% x RowBox[{"x6", "->",
% t" Y- H7 f# S% I1 u# d9 m RowBox[{"Data", "[", ' F2 f4 r2 L. j2 h5 ~- I
RowBox[{"[",
/ ^5 Y: Y* p( ~8 j RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
" ^! R( ]4 Z3 _8 `& h% W RowBox[{"x7", "->",
1 r C7 H4 n/ e) j; Y5 Z7 @8 g& k RowBox[{"Data", "[", " W2 r! @/ i- ~9 O( B- i5 X; t
RowBox[{"[", 2 @/ O" L" u, `% u0 H
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
3 B. x9 }8 I6 _3 Z RowBox[{"x8", "->", : X, T% h# w( ]; C' z% K+ I3 q. E
RowBox[{"Data", "[",
$ v" Z; k! n% }1 p9 d. T" t) n$ o RowBox[{"[",
/ @, F; N/ Z+ j- L7 j RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
0 L% p4 \ F. W" X9 V RowBox[{"x9", "->", 9 L. b) m8 @* Q, q: _+ B$ a3 U
RowBox[{"Data", "[", ! O7 f/ g( h& a: N) _; p5 K
RowBox[{"[",
( z$ ~' ^$ s6 L9 Y8 ~1 s RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 8 Y; v$ F5 m& _ D3 w
"\[IndentingNewLine]",
# }) [; v8 q6 W" M7 `/ q' R RowBox[{
. R0 {0 [" `9 }9 h. q/ Z G: t2 O RowBox[{"m60n21", "[",
. g2 h) O2 V' Z9 T7 ~ RowBox[{"[", 4 O* P- J+ b8 }( _
RowBox[{"i", ",", "3"}], "]"}], "]"}], "=", 1 P& v6 m2 x# n4 d/ z' w2 w
RowBox[{"u3", "/.",
9 H9 E( f( J; F# @4 f( y RowBox[{"{", 2 Q. m* s4 T' }' @: B; P
RowBox[{ {* {1 ~% z% O4 `% ^( f
RowBox[{"x1", "->", " T4 }9 Z6 D S2 S
RowBox[{"Data", "[", / m3 d& S* ^3 O2 h9 r
RowBox[{"[",
# ?( F4 i5 z1 S, T7 `0 H7 t' l1 W RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
2 q8 w7 t- N& Q3 T3 e! ~ RowBox[{"x2", "->",
; M7 F& x1 |0 [* _! G RowBox[{"Data", "[",
9 F& s6 s0 Z( o6 m+ @! y8 h/ j RowBox[{"[",
5 z, z) g7 D4 J9 C5 i' b4 K' n& e RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
) a3 ^$ e h4 X$ c7 l# U RowBox[{"x3", "->",
^4 `! C* v% G$ ~ RowBox[{"Data", "[",
& n9 }4 h( Q! ]- z# _& { RowBox[{"[",
" e# k/ w) t/ w @ RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
6 h0 \. s7 B9 ^, z6 D RowBox[{"x4", "->", 8 U- E; @! M! k! ~( K" G
RowBox[{"Data", "[", : @9 s: u; |( C [, i- l m9 r* I9 V
RowBox[{"[", 1 c5 w% U# f* F/ ]$ F
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 0 K7 n% C" R, V& l
RowBox[{"x5", "->", % c8 E. u8 m8 _
RowBox[{"Data", "[", * Z" M6 j% }- C; O
RowBox[{"[",
! q& |* Z/ W. B; n4 p RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 0 g( m6 o/ a, k6 x) A: d6 R
RowBox[{"x6", "->",
2 E* _+ I8 Y7 Z" `) L RowBox[{"Data", "[", - h# Q" }' _) w
RowBox[{"[", - b0 b- ^/ y, Z$ ^8 r3 b6 I
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
. Z5 F2 Z; \) Q* g+ J* V( y- h RowBox[{"x7", "->", , }; q# | \* D c/ g; k4 X
RowBox[{"Data", "[",
) o) }0 j" k) O RowBox[{"[", 8 U# d! G' R5 l( i2 A# O
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ' b' L3 c- s0 n& p9 m9 D0 Y) z6 ]
RowBox[{"x8", "->", 5 f. f- w5 k5 d! Q
RowBox[{"Data", "[",
' B9 u9 u' l$ n RowBox[{"[", + G, v- M2 T5 F) w
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 1 r, u' R2 e" l
RowBox[{"x9", "->", % I& A1 V0 }! j% f( e* ~
RowBox[{"Data", "[",
$ {) w3 C6 z! E( x5 y( C( d3 k RowBox[{"[", # P4 I5 S& n4 e. s! v
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
1 j) l. N3 L2 K$ j6 y/ ?% K "\[IndentingNewLine]", : ~4 N# O) L0 u1 o/ Y
RowBox[{5 Y" O5 M& m" k( F9 t$ K
RowBox[{"m60n21", "[", 7 m% s" i) f0 \- N! b5 g- Q
RowBox[{"[",
+ Z+ f7 q/ M2 K8 ^ RowBox[{"i", ",", "4"}], "]"}], "]"}], "=", 0 l6 I7 D0 B g8 T8 i8 j' c
RowBox[{"u4", "/.",
5 U8 \9 y1 t& o3 N8 ?0 z RowBox[{"{", ; k" X& N" U9 n/ m. ~5 ^1 c2 L
RowBox[{
$ B* ?; Z, g2 B) q RowBox[{"x1", "->",
4 F& d: g- k5 n1 O. s9 C# ] RowBox[{"Data", "[",
1 ~) B6 E1 g! t9 d RowBox[{"[", 1 n, T ~1 O; B3 }( |
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", # `7 j0 v0 p. Q+ t
RowBox[{"x2", "->",
( I: [7 [' n4 E# W6 | RowBox[{"Data", "[",
2 H9 h5 Y+ v! D0 z# A: y RowBox[{"[",
6 o" {" v$ i# S; H0 q) p7 f+ J& O RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", * W' X/ I7 S% A: @& Q8 W
RowBox[{"x3", "->", 2 a* c; b5 Y9 X# P8 \+ a# j I
RowBox[{"Data", "[",
( u0 e' m0 f$ T) R RowBox[{"[",
6 `; K9 @. D. ]2 y! Y6 z' i6 q& d RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 7 s' y" _9 y2 [
RowBox[{"x4", "->",
& o( Y# U5 ~8 j" U9 Y7 [ RowBox[{"Data", "[",
, m% F1 X' B+ b5 Q. d RowBox[{"[", / q2 `2 `8 m, p
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
7 ~' ?* J; f, @ RowBox[{"x5", "->", * I6 X" z, U/ h9 L5 R0 f+ p. z
RowBox[{"Data", "[", " [1 c2 \, h! p. J% j$ T! ], _# X- H
RowBox[{"[", 9 m9 [' P& |: L7 a* h q0 B: t% `. X
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 2 N! O. O6 b3 G- S! F3 B9 y
RowBox[{"x6", "->",
9 ~, j# D M! V: {; b5 M2 n x RowBox[{"Data", "[",
6 Z `% \* t0 l; g. b RowBox[{"[", 0 J5 y; {2 v# ~7 }* W. |, ~$ I: U
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", . K1 D' c v% P; M
RowBox[{"x7", "->", 6 m1 F/ P0 C2 C
RowBox[{"Data", "[", 1 O1 b/ G. @8 Q( O; i" ?
RowBox[{"[", , i5 p* N& e5 t- q7 I
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", , Z& ]! d, s2 p
RowBox[{"x8", "->",
6 i. A0 u' j3 H7 B0 \( a RowBox[{"Data", "[",
5 c$ A' F6 K" }5 m RowBox[{"[", / ~. T$ _. u6 h
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", : |/ x* |) Z% i3 |
RowBox[{"x9", "->", 5 q( g) f* _; X1 m8 M9 e9 n+ z( _6 l
RowBox[{"Data", "[", % |. c; R* U# H. }
RowBox[{"[", 3 ?4 | B5 M+ K; {( r4 V _
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
" {2 v: `1 C0 M/ w) Z* V1 ?- h "\[IndentingNewLine]", ; i0 a& X( {) L) R
RowBox[{
( O; h5 T' o0 v1 x5 {" _% V& \' f RowBox[{"m60n21", "[",
% O; ~% f" ~8 Y RowBox[{"[", 1 e; [" i2 R0 X
RowBox[{"i", ",", "5"}], "]"}], "]"}], "=",
: A. t! s, r9 L& r/ m- S) g RowBox[{"u5", "/.",
( W8 I2 y0 F1 b- V RowBox[{"{",
9 ?- }( C8 G0 x$ z: x RowBox[{0 r2 x2 D8 Y4 A
RowBox[{"x1", "->", ) U1 Q4 i7 A, b8 F+ l" ?& t1 |( P9 m
RowBox[{"Data", "[",
6 i+ V/ S/ [$ H" O9 j4 N RowBox[{"[",
- R, o: q0 [+ b3 i9 Z; i) c7 O RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 1 M/ Y- j+ {% k( L4 _$ [* Z, P
RowBox[{"x2", "->", : [# R" y' J: A" \* a
RowBox[{"Data", "[", ) J4 S' s" z9 d8 r; p
RowBox[{"[",
3 h$ j! I! c: ]9 k( _5 I RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
1 ~, N F5 G- G% {) N+ r; I RowBox[{"x3", "->", % y0 w! ~3 h/ O4 |9 m: n
RowBox[{"Data", "[",
' D* \" |2 _6 d' n! [ RowBox[{"[",
( @2 T% P: X0 k$ \ RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
( m8 x8 i3 ]* A* e) U% i- H, r! O& R RowBox[{"x4", "->",
; C6 W) r( |" ?+ x. V RowBox[{"Data", "[", 4 v, w9 F h! y) X. A
RowBox[{"[", % b* o. T; X, E( V& g
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 6 A7 t# Z0 i) S I o) c
RowBox[{"x5", "->", x8 O. R( v! ]. P& l! L
RowBox[{"Data", "[", : U6 x5 X- ~( \1 f1 l
RowBox[{"[", % z8 R2 q0 G0 m' V! r
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
, R. `2 Q' E8 ?4 L1 h. \: k, ? RowBox[{"x6", "->", * X* B1 E% r i
RowBox[{"Data", "[",
; k/ H% V5 f O2 U RowBox[{"[", : Y* \5 w) m6 y6 X
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", * y: w3 |8 m& x3 s9 l& s9 s9 W
RowBox[{"x7", "->",
_. {: F& }+ B& b RowBox[{"Data", "[", 6 S# r: h9 @% l( C4 Z7 O2 e8 V- ?6 D
RowBox[{"[", ; @! {% p: K( Z
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ( y8 R; n: }- g: h# ~0 ]
RowBox[{"x8", "->",
/ Q% }# U) p! T" G) x7 A. \& x5 @ RowBox[{"Data", "[",
5 b* K4 z5 ^+ L: U0 N3 c! z RowBox[{"[",
. n6 v2 X Q4 A& F RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
9 L; N5 |) X B7 M' f RowBox[{"x9", "->", 5 L, @& U3 p% X& C
RowBox[{"Data", "[",
R" p, |, |6 b7 n RowBox[{"[",
7 K( ?; Z8 q, `! C: r6 y2 P RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
: k* u/ l" _, g/ r1 e "\[IndentingNewLine]",
, ^$ E/ T/ }/ }# q2 K, u, v RowBox[{
/ [# Z2 v$ i: o8 P RowBox[{"m60n21", "[",
0 M! L$ t3 E, e- A5 j4 s" T$ \ RowBox[{"[",
- I& U$ k5 E& v5 | RowBox[{"i", ",", "6"}], "]"}], "]"}], "=", + u( U# \) P7 T+ } H5 ~
RowBox[{"u6", "/.",
3 F2 H% i7 h# q' Q% I RowBox[{"{", , G& v6 f8 F3 S- r* `
RowBox[{* Y, A# J5 S( ~7 y- I s5 D# D
RowBox[{"x1", "->", $ w/ L1 r2 y3 g
RowBox[{"Data", "[",
4 L5 j+ r" Z4 c2 s& d RowBox[{"[",
- ?+ _8 e8 o, e8 j/ ^& C RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", " V2 O% l# e) W9 A
RowBox[{"x2", "->",
1 A/ y8 a& ^. S2 a+ D RowBox[{"Data", "[",
) i0 J% f" R7 M. H* S RowBox[{"[", . I( }1 S- \- J* ?8 [9 y
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
0 A+ G' h' V% G( |2 W. N RowBox[{"x3", "->", 5 u1 U1 N' F! N3 [) k3 q
RowBox[{"Data", "[",
0 k4 S* N! @' S3 g0 Q% I RowBox[{"[", 4 F: P3 J3 L' C0 D" I$ t: _
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", & P0 O- f5 r4 u: G3 a
RowBox[{"x4", "->", 1 d E$ @+ }7 C& i# n6 N+ p: l
RowBox[{"Data", "[",
7 r6 v7 Q1 R" v8 P; {0 m2 ]: @ RowBox[{"[",
0 M* S3 L7 N/ C0 u RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", * q5 B6 N3 J+ j4 W: f7 N
RowBox[{"x5", "->",
D( f% r( ~, l8 m" w RowBox[{"Data", "[",
5 _ c. c8 y* a RowBox[{"[",
6 i5 @0 ~0 W1 _+ O; _ RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", & ^0 O9 p( E* S& K. B& v
RowBox[{"x6", "->", ( P7 t; g5 t1 w, {. [( Q1 R
RowBox[{"Data", "[", * @7 b) t. W' V! F! h
RowBox[{"[", : H/ k4 A o; t4 U2 }
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ) S5 U; o, V/ m( n/ a2 e( {1 s
RowBox[{"x7", "->",
: {( \. r( e0 w( Y) k# u6 ^4 m RowBox[{"Data", "[", ! E& F' d' @, p T
RowBox[{"[",
0 e7 W3 c8 r$ g/ ?/ i RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", " | S. u: L/ R& f$ G
RowBox[{"x8", "->", - ?' e% C# I" S" a: l7 J
RowBox[{"Data", "[",
2 G/ `7 X* Y& ~! ]9 S! k, \ RowBox[{"[",
- g( G) Q7 t/ [1 s RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 5 O/ i3 y9 [, p G. n, O
RowBox[{"x9", "->",
3 ]$ V9 R4 u0 Z4 d RowBox[{"Data", "[", 3 x: U' E7 X2 [* B) I
RowBox[{"[", $ }4 u1 i0 k; e M$ M% \* b
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
. U g8 P7 T' V1 N+ d+ d "\[IndentingNewLine]", ! i+ ^" j& S/ F2 u
RowBox[{
; q/ q( W. Y8 p. ^- S* Q RowBox[{"m60n21", "[",
8 a. }% Y( `/ k RowBox[{"[",
5 F- _# e; o2 R3 t( X RowBox[{"i", ",", "7"}], "]"}], "]"}], "=", ! u* {4 i2 t# v: S6 l0 O6 m
RowBox[{"u7", "/.", / l1 G2 ~! G$ [6 ~. W! z9 N
RowBox[{"{", % {1 H' U h7 I
RowBox[{5 ]8 ]# ?. V: s
RowBox[{"x1", "->", & S+ w( m' ]4 R5 ]4 f, u* C8 J
RowBox[{"Data", "[", : e4 P. x% C$ `7 w% y7 ] Z0 |
RowBox[{"[",
: i+ s1 R1 f1 P8 c* o( \$ z RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 2 ?5 e* N3 d" H5 E
RowBox[{"x2", "->",
6 \3 t$ o- X; Q- h( e+ r" Y! |2 g% u RowBox[{"Data", "[",
, D' X5 ?8 {0 g* ~0 ^2 P RowBox[{"[", / C) F8 b2 {: ]6 h7 y3 d
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
: }% G3 a2 k7 i5 p2 L RowBox[{"x3", "->",
! J4 ^, b7 [1 Y2 J RowBox[{"Data", "[",
) n Y! }5 p7 R' x( P2 @4 `# E RowBox[{"[",
0 z0 x( y. F# p* J* } RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 8 _8 Q7 v) p. o7 F$ `( f6 T
RowBox[{"x4", "->",
0 ^2 }9 C2 W+ u6 ?- }4 v0 i! A RowBox[{"Data", "[", 0 T- G: f7 ^* x2 K9 e' X1 ]9 T
RowBox[{"[", 2 B# ?$ g4 ?# G; |( O+ q2 b6 z
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", $ l+ @+ ~) |. n
RowBox[{"x5", "->", ) V) m4 P( }, h, ^8 X
RowBox[{"Data", "[",
- O: y9 i0 N0 @0 E3 K RowBox[{"[", 1 a; i$ n; O3 N1 H) d
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
9 [& E6 ?$ k3 \& T1 [0 Y; R RowBox[{"x6", "->", 0 _3 Y+ |0 z* s3 o) d- O
RowBox[{"Data", "[",
! F; J$ g$ M+ r4 {5 G' Y RowBox[{"[", & @5 ]! k" }! ^0 F" R& Y
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", d4 L. e! f: r A6 ^; l/ S5 I
RowBox[{"x7", "->",
: t( [2 [' S$ k1 E& u' g6 p RowBox[{"Data", "[",
. _% b. j) x8 F RowBox[{"[",
# A* _/ q: D/ ]# B+ N5 k4 Q% ` RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", : ~, M9 d4 T4 H* l1 x' L4 E
RowBox[{"x8", "->",
; u! i$ R8 t' s) l( L RowBox[{"Data", "[",
, [3 e# B! o. V RowBox[{"[", 4 W6 [7 M( ]/ `' |
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", , _# J7 ]1 b6 D6 U1 D! `6 E
RowBox[{"x9", "->",
% `* L' @# E2 V3 Q& J6 G RowBox[{"Data", "[", 6 |7 D+ u3 |/ Z7 J. B6 x
RowBox[{"[",
& i% J: G# D9 M6 N3 D RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 0 T5 A: \# W4 W2 a, n2 Q( u/ C, @
"\[IndentingNewLine]", 8 \6 {; T, g, q& f- `% F* O
RowBox[{* n6 B0 A0 Z# C: V0 U
RowBox[{"m60n21", "[", ' C' p1 }, \# m
RowBox[{"[", + r1 S/ i7 D1 J! f& I7 g r
RowBox[{"i", ",", "8"}], "]"}], "]"}], "=", . R p1 X, C @& M" P3 \5 K' L
RowBox[{"u8", "/.",
. A3 ~9 g( t8 F RowBox[{"{",
3 s( A8 ?" l5 S! o) T4 h5 P, O RowBox[{
& n, T& t, _4 z' w) P0 I RowBox[{"x1", "->", 3 S8 l- v# y* } @: D7 ?& L
RowBox[{"Data", "[",
) Q- X9 \( r3 L6 E+ Z3 M RowBox[{"[",
4 u' x8 [, x0 `. Z/ J2 l# C6 A RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ; c) N7 g8 e2 }; Y- O5 F2 r( h
RowBox[{"x2", "->",
6 D& f B% x7 m RowBox[{"Data", "[", ( L7 t: G2 K/ Q
RowBox[{"[",
: k7 ~2 Y# v7 W8 o/ m7 g# ^ RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 6 G. ~9 z; c+ r2 r' H8 u
RowBox[{"x3", "->", 9 e* r, A7 p/ R% H$ p7 G
RowBox[{"Data", "[", 0 P) n! ] J1 J' x8 ?
RowBox[{"[",
( z" z3 X+ {2 o+ R2 y" I RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 4 ~% y: C2 P# P& o5 n
RowBox[{"x4", "->",
5 ?% z, W, K3 A7 h7 R( C7 { RowBox[{"Data", "[",
% j& h+ t: M; v5 `: X7 X RowBox[{"[",
8 f6 g5 x6 g3 G1 w RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", % ]" R# \: F0 O- [' g; c2 R! z/ V
RowBox[{"x5", "->", 5 D7 M+ X: V! K9 p6 T
RowBox[{"Data", "[",
v* z% w. Q* O, a* ? RowBox[{"[", & o) k8 J5 r9 A# N5 O: u) q
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 8 D5 O+ G: K- k. B$ b7 _
RowBox[{"x6", "->",
% M* p; C4 h% p0 N' x& w- R RowBox[{"Data", "[",
8 \ z% ]3 _7 o7 q, p RowBox[{"[",
- e0 ~: Q+ ^7 r) ~ RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ; |" ~' c, t/ `7 h
RowBox[{"x7", "->", 8 `1 P- D Q- ~/ G, }! R& L
RowBox[{"Data", "[",
8 s. U4 o) w8 U5 K' o! \( O RowBox[{"[",
1 j9 ~8 Z; X4 x6 B2 E RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", # v; g F/ Y9 v: ?7 F) G N B( ]
RowBox[{"x8", "->", " a, R* M6 B. |! r
RowBox[{"Data", "[", 1 ~% I, n* p! w7 W
RowBox[{"[", $ |7 v4 ^) k+ N2 @
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 8 v! a0 @ Z+ ^/ l3 h7 g
RowBox[{"x9", "->", * {# d" \ e. l9 f9 O
RowBox[{"Data", "[",
1 i" \' V6 z$ W% G+ h$ A5 S+ K' _ RowBox[{"[", 6 l3 }, _" F2 z% U8 {8 c( C( Y9 v" V* O
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", % y, B+ O( N& D, R* \, L% f! c
"\[IndentingNewLine]",
. X- y' Y( T1 i; W+ y2 ^: p RowBox[{3 ~8 |# i, j: W; r7 C7 z
RowBox[{"m60n21", "[",
0 R: F& d& {) L G3 p RowBox[{"[",
: w) U, q. @, H7 R RowBox[{"i", ",", "9"}], "]"}], "]"}], "=",
0 R D6 C# `! h RowBox[{"u9", "/.", ; r# U6 O0 J- K
RowBox[{"{", 8 Z0 g3 y+ P, W% W6 O( b
RowBox[{* _, `! z p9 J
RowBox[{"x1", "->", 4 M& B( b9 \( [
RowBox[{"Data", "[",
6 f3 p0 D; I1 T9 ^; n- _4 i RowBox[{"[",
- ^6 _' K& E8 E" c RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
8 {$ Z8 m9 P% ?) b5 r0 o4 q RowBox[{"x2", "->", 2 h5 J' p+ ?/ Z" r
RowBox[{"Data", "[",
, W7 [: o: l- e8 a3 ]0 k RowBox[{"[", ) j* V) x% ?2 P7 g" a; B! x" L
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", : n7 C& n1 S2 ~
RowBox[{"x3", "->",
" p. f( [1 }" a RowBox[{"Data", "[", ' A$ [. s" a V3 p$ H! P' n
RowBox[{"[",
N3 \' b! w# B RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
6 h Y X3 _! |6 }+ H- ~, H RowBox[{"x4", "->", C8 Z; h6 F$ y) B5 B8 u y
RowBox[{"Data", "[", ( F5 m' G: V# w1 q2 K" l
RowBox[{"[",
2 x4 E0 `6 L0 v: ]4 k2 W4 T RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
% l: L( ]9 |+ m" W2 I! P1 L% P RowBox[{"x5", "->",
( K2 {9 x# P) {: t( r' k* x RowBox[{"Data", "[",
* X/ o( r3 y5 E% {' i5 J$ [; ? RowBox[{"[", / j0 R( W7 y+ O
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ) e4 L) m P3 w+ A
RowBox[{"x6", "->",
2 P. C3 b8 L/ P& b RowBox[{"Data", "[", 3 v, r5 y* k! l) J. V( B0 H
RowBox[{"[",
( J& w. ^8 C0 i RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
6 l& P7 b5 W% Y2 A# A& A RowBox[{"x7", "->", }7 H4 N. J% m$ P2 \/ [6 z4 }+ i
RowBox[{"Data", "[", $ i9 Y. w$ t7 Q' F0 D t* ?
RowBox[{"[", $ ~- t" g: m% r+ v R( J
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
6 g/ k- e' J, S$ c j- o( ~9 u' e RowBox[{"x8", "->",
* ?' h; c0 o, V0 h# y RowBox[{"Data", "[",
* \! R/ C) p! @3 |! ]- G6 d RowBox[{"[", / M4 |) z5 v- w c+ |4 D. I% Z* b
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
b+ S1 [* d7 V& s" e RowBox[{"x9", "->", 9 f/ {6 N0 W, U. E3 D- `( y
RowBox[{"Data", "[",
) q1 K b- @6 Q- a0 z0 U3 V) ?, x RowBox[{"[", 4 P, } d5 Q5 e3 s: v! i
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
9 a- d) z6 Z( C [* n( j5 B5 @/ T5 V7 x "\[IndentingNewLine]",
2 R. |. k' C9 F6 C2 v! w RowBox[{
8 U- `& p7 Z4 E% h RowBox[{"m60n21", "[", 4 k9 ?% q: x8 i) ^1 y) n
RowBox[{"[",
8 Z( E5 C8 ]8 e! r- Q RowBox[{"i", ",", "10"}], "]"}], "]"}], "=",
. x2 S' t0 R6 { RowBox[{"u10", "/.",
" k" X; _- U+ r) F1 U; E RowBox[{"{", 2 e) q8 Z+ w- @% {
RowBox[{) j) M4 G9 Z! G0 i9 q& f% Y" u9 G
RowBox[{"x1", "->",
' S6 _& f4 |4 C) z RowBox[{"Data", "[",
. b/ I+ i/ L1 T2 r) a RowBox[{"[", : ~" a# O' j2 c$ r! S& S6 e
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", / ?) [$ y; D- [6 ]3 j0 ]
RowBox[{"x2", "->", 7 p2 U) e! {: q
RowBox[{"Data", "[",
% \$ O. U( }6 J4 U+ t; ^1 j% F RowBox[{"[",
1 u F4 N/ Z' ~7 H RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
" T' Z( d% v$ [7 w! E4 Q/ Z RowBox[{"x3", "->",
# n7 A! c% |, O3 l RowBox[{"Data", "[", 4 m- Z9 L, }" Q: I) M0 B
RowBox[{"[",
0 {( R* ?) E$ J4 ^/ h* _ RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", + X) w; v+ Q* P {% l& a7 h
RowBox[{"x4", "->",
" p8 T W2 R8 \* o! l$ [) U; ~) a) S. q RowBox[{"Data", "[",
# ]( g } M4 f/ M/ }; M0 ]+ O! L RowBox[{"[", 8 ~; L& w, y3 |4 A
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
" B9 w( o4 S* |/ S7 N4 Y RowBox[{"x5", "->",
, J' N* O) h' E( ]$ u RowBox[{"Data", "[", 0 ~* k" \; r0 Q: R' C3 e
RowBox[{"[",
( u2 B% I$ t3 \# k2 R2 a RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 9 ^0 v1 P5 V; Q' m! C; P( _# M* j" S
RowBox[{"x6", "->", 5 V6 Z+ K+ z( x" z* `- ?, _
RowBox[{"Data", "[",
; Z! ^0 R9 Q1 a0 P& b- U# d RowBox[{"[",
; i: s1 k# q7 m* t# y2 V RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ) m/ q f1 Z; Y7 Y
RowBox[{"x7", "->",
' a' z2 m# ]) T7 `" X6 E, z9 J RowBox[{"Data", "[", S1 ?; I* @9 q/ ~: r: N
RowBox[{"[", % B; |$ Z# r. t( V% }
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
3 e5 ~* ]! C+ Z5 R# m RowBox[{"x8", "->",
9 m: A V) @# B4 p5 }+ V. l RowBox[{"Data", "[", - g. N$ L( V1 T
RowBox[{"[", . v n2 _& c- r; `3 f; @0 _" g
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", # o) z7 d7 W8 i/ y# S& P9 ]/ \; x5 J
RowBox[{"x9", "->", 7 M, Z8 J1 s% w% g) M d8 P
RowBox[{"Data", "[",
. i, i4 h8 S. X, F [# S8 w RowBox[{"[", % N" b$ l" u; U$ t2 M
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
6 }( f: R! B2 I3 b# \/ d "\[IndentingNewLine]", ; x4 G0 J3 {5 d0 q0 O7 f
RowBox[{
1 w( g- ?) F3 n; s RowBox[{"m60n21", "[", ; U9 E% h3 |5 i8 B k- W! v
RowBox[{"[",
9 a8 L$ m3 @/ k" s- D RowBox[{"i", ",", "11"}], "]"}], "]"}], "=",
$ U# b. C5 X' [3 o# _ RowBox[{"u11", "/.", % X; g/ n- d8 o* [
RowBox[{"{",
4 e+ n. O% i' G. T0 ]$ c7 e. [ RowBox[{. k) ?0 ^, f* H: ?) g9 @
RowBox[{"x1", "->", 7 ^- n* V" p( A5 q
RowBox[{"Data", "[", , X$ b) G0 G" Z+ Q2 @
RowBox[{"[",
/ s) \, _$ t; r& s RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", : v& @3 X; x# I4 U& z
RowBox[{"x2", "->",
( W7 z% }$ Y, |& `4 d0 E RowBox[{"Data", "[",
) f+ b- n4 S5 ~# n$ ~ RowBox[{"[",
# [( V0 D/ k: T- T9 b RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 8 o# a& X. K8 }! J
RowBox[{"x3", "->", ( u, v# K$ M# `2 @
RowBox[{"Data", "[",
+ D7 {3 @; U' p7 x$ I4 l RowBox[{"[", ) H& b4 e3 n' Z S9 m
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
% y$ K( ?5 P6 Q. N1 `+ `% r RowBox[{"x4", "->", 9 o/ e" f1 d5 H! @! Y
RowBox[{"Data", "[",
$ D/ d4 K' r5 h4 Y; ^6 [ RowBox[{"[", * M( F) Q8 ]8 q/ f
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", , n0 ]! u3 ?5 U& V( b
RowBox[{"x5", "->",
! R/ M- U( P" t5 z RowBox[{"Data", "[", , ]" B9 Q4 _# R& q! ]* B- |
RowBox[{"[",
5 L' n+ ^0 R( M4 U RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
! G8 R- i+ u' L& x- D RowBox[{"x6", "->",
5 \2 D( l+ t+ l2 A$ m9 \2 H3 L RowBox[{"Data", "[",
7 [: e. D5 j1 v: _ V RowBox[{"[", _ I' o2 s( I2 E1 C2 k: z
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", " W: W3 \, i. k3 {& s; y$ ^3 z( c
RowBox[{"x7", "->", 9 I: S8 B- g7 E. _# f' X2 b3 X
RowBox[{"Data", "[", 0 C) b7 o! Z$ l, q, L. V- B2 r+ F8 @
RowBox[{"[", 8 ?& A" N8 y7 W# o( `2 B D% M
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", , G ^+ I5 \+ ^3 m
RowBox[{"x8", "->",
2 i& ?! a9 A' ~7 C% D RowBox[{"Data", "[",
/ Z( P* F9 s/ p+ [2 e1 P% c RowBox[{"[", 1 r; N/ p3 o! B5 F( t2 Q& z
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
; t4 A' }% f1 G& y RowBox[{"x9", "->",
, E7 `& }# m( ^9 Z9 C RowBox[{"Data", "[", 2 ~ U3 F. \4 f/ I8 F+ \$ V
RowBox[{"[",
. n8 a3 B9 A! z% l( `: x8 u( a RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 4 m+ h- r# Z; E- U. m$ b: M! I: E
"\[IndentingNewLine]", 8 n, @2 `) X! j8 ~
RowBox[{
6 T [4 |/ J+ b$ n RowBox[{"m60n21", "[",
, ]& l& b) k5 P/ S RowBox[{"[", 4 Z+ L! S0 F7 _6 w4 I+ A7 u
RowBox[{"i", ",", "12"}], "]"}], "]"}], "=",
0 N6 \+ {. M" u/ N- t# M) w RowBox[{"u12", "/.",
; m* t3 h' { K% J ^* ?3 N, G RowBox[{"{", 6 t6 k z" d( N5 Z
RowBox[{
3 ~7 f* L- [% l3 M) v3 m RowBox[{"x1", "->", $ A# r# K" x# g
RowBox[{"Data", "[",
3 R; J i1 Y, L2 Q2 d0 W2 z6 z RowBox[{"[",
$ f+ S' ]5 \1 `( l' m% j RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ) I1 M- i/ F/ n( [! {3 T& T
RowBox[{"x2", "->",
* t1 r% L# C& I; y& e4 @ RowBox[{"Data", "[", 7 a) Q% D# s* s. h& \2 B
RowBox[{"[",
' F/ b/ |- ^: v2 R RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", , k2 |3 @* C8 m M' q
RowBox[{"x3", "->", : @) I) y. ~1 t# F8 u+ B2 g: s
RowBox[{"Data", "[", 9 \# O' {& X. B
RowBox[{"[",
* a+ Q. x8 z: l RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
$ F: L5 s( V1 t; P RowBox[{"x4", "->",
7 ?/ _$ u. g2 j8 W- G- o$ H RowBox[{"Data", "[",
# ~% T* ~# [! Z( } ~7 P( T* x7 p$ u RowBox[{"[", , c/ E/ {% Y6 O# v9 m5 ~1 s5 G' ]) Y
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 9 q' Q% {$ I0 _# o( g+ x
RowBox[{"x5", "->", ; \! F: B f/ z$ j" H; n9 ?
RowBox[{"Data", "[", 0 U( ~$ b5 p, j8 M5 R8 ^
RowBox[{"[", ( Y# Z$ {! F3 N% V& J9 R1 [
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
i* e& P/ p7 @9 a; ^8 X3 T RowBox[{"x6", "->",
2 K2 E7 |' Z8 z) I- G RowBox[{"Data", "[",
3 a! o: e* Z# p' G" e4 j RowBox[{"[",
|( h5 M4 e: T1 W+ Z' e RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
- W$ S. U- n; s! ~ RowBox[{"x7", "->",
/ A I" M4 |% g7 S) v" K RowBox[{"Data", "[",
1 c/ T3 ], o" J. W- _& i RowBox[{"[",
, l ?2 `( N5 X% d RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
1 G/ s7 b4 W$ A5 U1 O; I' f& s4 { RowBox[{"x8", "->",
8 f- k( }& N, R/ c2 H! F3 ~ RowBox[{"Data", "[",
. b% q$ h# ]( z5 ?% t( i8 d$ [ RowBox[{"[",
3 n F- I! h( q2 y RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", " K3 d) E) a+ Y* ?/ l2 {* `
RowBox[{"x9", "->",
% a' ?3 f" f4 T" x* R, k RowBox[{"Data", "[",
1 Z! C% \5 t" @2 {! J RowBox[{"[", 9 i* B) [7 [9 ~
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
/ k: I' y$ @9 s7 F$ @1 l5 |8 g "\[IndentingNewLine]", 9 i0 @' k8 X, r5 R
RowBox[{2 [! U9 S% P) O" x0 [
RowBox[{"m60n21", "[",
+ h. r7 [8 t, p8 x! Y. H/ d) i RowBox[{"[", 8 K5 Y" M9 {% P
RowBox[{"i", ",", "13"}], "]"}], "]"}], "=", 8 l+ B& r2 t9 s8 z
RowBox[{"u13", "/.",
5 G- B: }6 a0 v+ s4 [( b4 T0 Z RowBox[{"{", 6 Q& B4 m, Z$ V7 f7 L
RowBox[{, G* U% P+ U9 M9 y$ H& }3 ~
RowBox[{"x1", "->",
% r# ~7 b: Q) K* B( K* E/ ` RowBox[{"Data", "[", / ?8 @& T, w& [* W2 P* r
RowBox[{"[",
/ B7 `% g. r( K# M1 G# C7 ? RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 0 _8 w& Q0 P2 O; A
RowBox[{"x2", "->", # Z' O% |( D" y: Q5 ~. K6 b
RowBox[{"Data", "[", 5 N9 l c1 i/ Z3 ~% t8 w: r
RowBox[{"[",
! S1 O7 b0 m% Z: q& S RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", . k) Q/ }# x; O# }6 S
RowBox[{"x3", "->", / l5 j* K8 M+ e9 C' y
RowBox[{"Data", "[",
( j% S/ ~+ o& H1 D! ?: e RowBox[{"[", ! o3 r( ^: a! S
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", $ s* \1 F9 b5 R1 F. b, Q5 u' T0 L! F
RowBox[{"x4", "->",
' j M& l7 O0 {' f% N RowBox[{"Data", "[",
* d# S. i6 z" z" w RowBox[{"[", 5 t; [# n9 }! E+ |% v' g0 V% t( h
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", , {' J0 j) v, ?
RowBox[{"x5", "->",
% l* y) m# ]0 ]) i4 Y1 e0 p- }+ B RowBox[{"Data", "[", 7 i! i6 Q9 H, P$ i" v1 H% ~+ R, O4 Z2 l
RowBox[{"[", 7 R( s2 h! Q( K
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
# f/ ?$ h3 j- `. O- q7 `4 Z RowBox[{"x6", "->", - T; o" m* J& p* }7 o6 g+ f3 c
RowBox[{"Data", "[", 9 R/ }* ~4 s; N% w
RowBox[{"[", 1 ^' n3 p6 |! @* F u+ H
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 1 R( B X* q& V! o* u: \! n
RowBox[{"x7", "->",
: ~' x9 B+ Q9 p- k" [5 j RowBox[{"Data", "[",
* l0 l. B8 H" t: `. r8 ?6 d8 t. m RowBox[{"[",
/ F! Y) z+ t# Q0 c2 K2 J, s2 ^ RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 3 r) O: t e! H/ s% _
RowBox[{"x8", "->",
# R3 d8 a6 o3 b. u( Q RowBox[{"Data", "[",
2 M3 Y2 r' [9 c/ r* X RowBox[{"[", 4 o7 S+ _2 @; S# J( B0 M7 S
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
8 }- J& u' s0 |. o- w6 c+ b RowBox[{"x9", "->", 8 E. B! d1 R3 x
RowBox[{"Data", "[", & }5 I% J5 F7 M9 f0 C, [6 N% ~4 T
RowBox[{"[",
( t- w/ V5 B9 P4 K; x RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", + @7 S" {3 Q% X) c
"\[IndentingNewLine]",
+ ?2 X( R2 p1 ?6 e( ^# f RowBox[{
0 p9 R+ C$ f" a4 Z" F RowBox[{"m60n21", "[",
9 H& B( H0 P" r8 @. ] RowBox[{"[", 3 w5 @0 J: f! f0 D: h6 l
RowBox[{"i", ",", "14"}], "]"}], "]"}], "=",
$ ?# j4 D* M- e+ B) b; j RowBox[{"u14", "/.",
4 X5 U9 J& p! w9 D2 _- _+ n RowBox[{"{",
. u7 S. g1 b2 v# P RowBox[{
+ u2 }8 P2 g9 N RowBox[{"x1", "->",
9 T3 d7 Z* t Z, q) m+ O* d9 D RowBox[{"Data", "[", 7 I; Q& g8 U9 I) w& r, S
RowBox[{"[",
# N& G, C( a" o RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ) M" U; w4 [6 s5 I, b" c
RowBox[{"x2", "->",
0 B, N9 w/ ?* c1 U' a6 ] RowBox[{"Data", "[", + P4 I% ?( b. w9 x% q
RowBox[{"[",
$ `7 v$ Y; B' n& R5 M" V) T RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", - a8 w+ E- V! Q5 W/ t
RowBox[{"x3", "->",
% A4 J& o- v9 L6 X. M+ i0 ` RowBox[{"Data", "[",
: R* X9 k! O+ E) r8 P0 J RowBox[{"[", " b: Y2 X% U+ n; d" J$ O
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 6 l( Q2 ?+ ~ [
RowBox[{"x4", "->", - Y: J% b: Q$ l! k; S
RowBox[{"Data", "[", ) N$ c$ P' U$ G1 O6 n
RowBox[{"[",
/ K# t4 [9 i2 K" ` RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
' }2 f" R: W: d+ X$ X RowBox[{"x5", "->", 7 |! N3 m* W8 n6 A* |$ K
RowBox[{"Data", "[", " s& H2 A1 C' L. y8 B! R
RowBox[{"[", , p: N: l1 j3 i
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
9 A* i! s, @' }9 M, } RowBox[{"x6", "->",
7 a/ r; ~2 `5 Y1 m, L9 B RowBox[{"Data", "[",
* t1 Y1 K5 @$ K- { RowBox[{"[",
' C. b7 j% x0 G: \4 M; f7 O RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", & j3 c# b9 E. J& k* `# W
RowBox[{"x7", "->",
, q/ o# E6 O3 q' ^7 ^- L# k/ P( N RowBox[{"Data", "[", ! |' E6 X, C" A9 B( _$ @8 T
RowBox[{"[",
' J. t) Z5 [* p8 o# q RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ; l& F5 s! H' m& y$ _
RowBox[{"x8", "->",
% R9 N- P/ }9 s7 c4 D RowBox[{"Data", "[", ! ]' Q) Q s; G
RowBox[{"[", 9 ^! g: r* g' m8 F3 N& g6 C
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
$ q/ `' F. I/ a RowBox[{"x9", "->", * z: G2 f; d' H& N u L' z
RowBox[{"Data", "[", 5 o5 Q$ n" o1 J/ n
RowBox[{"[", / a; V7 A+ I1 V" s& j; u
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
) }6 J1 j) B) H- E3 \" a "\[IndentingNewLine]",
+ o3 @( x: d% t" {) p! Z9 R9 z6 i& d RowBox[{
. C( G; E) P5 h( f8 D1 k4 t RowBox[{"m60n21", "[", " X/ h% C/ J5 W8 U; Y
RowBox[{"[", / n, {/ Z' e9 l( ?2 H& T( f7 m0 z
RowBox[{"i", ",", "15"}], "]"}], "]"}], "=",
- X, F* d/ p8 N1 x7 p; U RowBox[{"u15", "/.",
( P: d2 J8 l& h, g RowBox[{"{",
$ W' o5 ^ r, z9 C- a" e* M( l RowBox[{
" T. L( f# j6 N5 y: a7 N* g, V2 r RowBox[{"x1", "->",
" Y. ^3 [4 R3 X4 }0 G+ U. [9 j RowBox[{"Data", "[", _& ?( G" ^6 t
RowBox[{"[", ; b O# t7 x! m: P4 [* N7 u
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
5 b) U- M) d, G0 l" o RowBox[{"x2", "->",
9 A5 K- H7 C7 D: O) r D RowBox[{"Data", "[", 7 M) v& N+ Q9 z2 H( Z0 \
RowBox[{"[",
* f8 T9 q& N/ O5 M+ }% T RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", P9 `; E0 ^/ T5 x3 D
RowBox[{"x3", "->",
" d9 k) W. v# o7 l% L RowBox[{"Data", "[", }; {& ?1 n* a/ a8 V3 W
RowBox[{"[", 9 x1 \! t' E9 }5 I+ I* ~
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 0 E& u- D. M% j1 q8 p; J1 w
RowBox[{"x4", "->", ! ~$ D8 V+ E% S+ P% p
RowBox[{"Data", "[", 4 E! m" D7 p$ _8 `( N9 E4 T
RowBox[{"[",
( O* |5 C7 v. e, q2 c$ K5 h3 e! J RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
, V7 [, B: J$ `" L5 Y! l! U4 H' U RowBox[{"x5", "->",
( ]/ }2 ^2 K' _ U4 A& d- ~ RowBox[{"Data", "[",
% B- ]6 [+ N5 \* ]# a: M RowBox[{"[",
1 a! `# h( |1 l5 z6 d) F RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 2 s5 ]) T a, ~# ^
RowBox[{"x6", "->", / r1 E0 }. e$ O3 A/ ?) ]
RowBox[{"Data", "[",
M7 H% v' p9 \$ y. I2 T( A RowBox[{"[", 5 d5 Y M) z- m
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", " G- w# o- `% E" \: J
RowBox[{"x7", "->",
! T1 S" [+ `- {" g5 d* m RowBox[{"Data", "[",
+ u( P5 u2 `- b" q5 V8 Y1 h/ ]! o RowBox[{"[", * X0 @/ V2 i$ \" {& v: }5 p, w
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
- T) K1 _, y- ]4 G0 D | RowBox[{"x8", "->", 2 S: R% E; Y' c
RowBox[{"Data", "[",
- `5 e& ^: I. e3 T RowBox[{"[", ' d. ]$ R+ t* X
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
% {& ~" k- D Y, ^$ N RowBox[{"x9", "->",
9 T& d0 ^( f s8 b- s/ t" a8 G/ ?( ` RowBox[{"Data", "[", / m. j2 o0 w0 E$ H, L
RowBox[{"[", 3 d/ l7 r; v1 q) U% X. @
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", - b$ h" K: r4 J# T4 f
"\[IndentingNewLine]", % }5 g0 e+ {6 V: G0 W
RowBox[{, s2 m' E8 B4 G- a
RowBox[{"m60n21", "[", 2 ]' F) @: i; b& q1 A
RowBox[{"[", * l6 o# C! T( o; i4 b$ k3 s9 H
RowBox[{"i", ",", "16"}], "]"}], "]"}], "=", V$ T# `& Q( x4 ~; @ ~
RowBox[{"u16", "/.", 3 U9 d. t3 [2 {/ h1 a) u; g a
RowBox[{"{", 3 o; q P) T+ _, q6 m1 _
RowBox[{
1 U9 K" f5 z$ e) | RowBox[{"x1", "->", - m1 I1 t4 J9 C' ^( f
RowBox[{"Data", "[",
& a* t7 S! {0 p' @6 F RowBox[{"[", ! h- Q6 _$ G+ I; n% J `+ ^
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
3 B+ }5 ~: D3 D3 z% n2 i RowBox[{"x2", "->", / P( X: _8 c1 _7 P
RowBox[{"Data", "[",
: | R1 o8 m- L$ o RowBox[{"[",
/ r) Q% m# x" E/ t1 o" u. A1 \- n RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 9 E8 {8 R$ O( ^4 i6 ~
RowBox[{"x3", "->", 2 z- n" k4 I e8 U% @
RowBox[{"Data", "[", # ^6 t+ [2 O- V2 x0 D6 O
RowBox[{"[",
0 {4 U; C$ e( M5 S. h$ f2 q RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
) b/ s- {+ [8 l9 k* S; g RowBox[{"x4", "->",
8 X% \% y' ], p9 `" A RowBox[{"Data", "[", * G. g8 w9 N5 d0 g
RowBox[{"[", * |" I- x' |. V5 X% y
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
8 `& X3 \/ a4 L/ C2 ]1 f RowBox[{"x5", "->",
- c; n T# v% T2 t RowBox[{"Data", "[",
7 d' a" q+ J% N5 \" { RowBox[{"[",
7 |/ X7 j" r; j1 Y' L! O0 }* I RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 9 i) ^' |* n8 j: |6 I! h+ I7 s
RowBox[{"x6", "->", h( F: j# c: U- n6 M) X
RowBox[{"Data", "[",
' c4 P1 w& T8 H0 n/ ]4 Y RowBox[{"[",
1 b9 Q/ }4 ?8 I+ h' A RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 7 v" m* B. `4 u5 E9 U! L* f' K: y
RowBox[{"x7", "->", / H5 s* }* `9 r9 _ H5 z
RowBox[{"Data", "[", & @5 @, t$ F$ K1 R6 M
RowBox[{"[", 5 ?1 E3 n" O( L7 f
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", " }( e, @/ g7 k* s# X) m; \2 l
RowBox[{"x8", "->", $ Q- p8 S9 l% b3 ^# L* Q7 ^: ^
RowBox[{"Data", "[",
0 ~" `& ]: n. W F8 O4 s6 ]; R1 u6 t RowBox[{"[", & x6 R: J( X/ a/ H( [
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
& [* x c( z; E+ v+ R. Z8 _& | RowBox[{"x9", "->",
) X0 K$ L; V% o RowBox[{"Data", "[",
7 ]- x$ r) U! \; ]9 ]/ Q$ R9 d RowBox[{"[",
7 h) u6 }9 d+ {$ V& {8 H RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 4 j& W# i) n Y7 n. V
"\[IndentingNewLine]", ! D. {9 E/ C! G8 J3 G. ^8 Y; D
RowBox[{% Q! O- y8 Y( J
RowBox[{"m60n21", "[",
8 K% l, ?! r; m+ ^. n RowBox[{"[", 7 R6 G) W8 I5 }
RowBox[{"i", ",", "17"}], "]"}], "]"}], "=", - i& v- z2 V" K! o% m
RowBox[{"u17", "/.",
4 {6 y8 P) I1 b/ K6 X0 q1 w3 B! Z: R RowBox[{"{", + G: O4 a3 B9 Z1 s7 `4 {6 R, _8 @3 b
RowBox[{* h! @& d/ h7 d" X" x8 g
RowBox[{"x1", "->",
. D3 @/ P: H+ a+ W ` a/ M3 x RowBox[{"Data", "[",
& Z# L7 X" ]7 Q RowBox[{"[",
H' ^; I0 t" z; D RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
' @, H! h2 j1 J4 f0 Z0 U2 Z; v RowBox[{"x2", "->", ( h# v! ?6 A3 P4 O d
RowBox[{"Data", "[",
: J9 ], ^5 ]% S" [ RowBox[{"[",
/ }' F- T2 |* g* `5 Q. `+ q RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 8 |1 ~0 L' p% q$ [7 j' L$ K
RowBox[{"x3", "->", " I$ N, v8 j, y, c; A
RowBox[{"Data", "[", . T0 G& A% @0 h* v; Q6 H
RowBox[{"[", ( U8 X h X" p
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
& C+ Q9 f8 s; X RowBox[{"x4", "->", ~: M0 P8 t+ B4 x8 o5 B( x4 a, H
RowBox[{"Data", "[",
& ^- R8 {- [1 t0 G4 m4 Z6 }$ M' o RowBox[{"[",
1 ^% q6 a6 D0 f: D Z RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 8 y9 f& ^0 _. J, e" |' I1 v+ K
RowBox[{"x5", "->",
! S. N6 t% y9 Q* Z+ o RowBox[{"Data", "[", ) w6 m: Q F" t- N
RowBox[{"[", ( V2 l0 H. P7 V
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 3 J; D. |* Z% {& ~6 ^9 ^- O
RowBox[{"x6", "->", 9 c) c" o# T2 M' L8 b
RowBox[{"Data", "[", : W" w( `; ]* e7 w8 R
RowBox[{"[", + u- I3 K" h {, x/ G1 N9 J" n6 ^
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", " N4 l3 U k; R
RowBox[{"x7", "->", 7 F; d5 A) i! N) b; k
RowBox[{"Data", "[",
* | S+ u& p4 f7 s RowBox[{"[", 4 p) z; U3 o+ X( t w- t3 i* s
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", : s: M u* H8 I. a
RowBox[{"x8", "->", * v$ R' C# a) ?0 B+ ^) e
RowBox[{"Data", "[",
; k" X3 I5 m0 v9 U RowBox[{"[",
0 Z% a4 k0 R8 e6 l RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ' e, Z. b+ f" L5 U" G+ w! X9 N
RowBox[{"x9", "->", - N) b/ h, \( e0 c$ A. U* N( T
RowBox[{"Data", "[",
& b0 R" h' m: V& e2 {3 r RowBox[{"[",
# A+ v' W1 U0 T) @& w, e, N RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 2 i1 Y( K+ D( R* u( o E
"\[IndentingNewLine]", 5 k$ v) o' r/ O- `
RowBox[{' ~' o( n' L/ d# T( a/ y
RowBox[{"m60n21", "[", 1 d# B$ t v9 |# d
RowBox[{"[", 8 }* M( N: V, D
RowBox[{"i", ",", "18"}], "]"}], "]"}], "=", 9 t+ z! z! g# P3 b2 p
RowBox[{"u18", "/.", : g# Y" `! P! u. ?; V
RowBox[{"{",
* V0 h8 [, b4 ~$ B+ T RowBox[{
$ h' X6 A& M% x, }2 U" n. n RowBox[{"x1", "->", % D# ]& J) d! B
RowBox[{"Data", "[",
$ _( j3 C- U& P/ m! z- g RowBox[{"[",
0 u7 T. {3 A+ I {/ `% {, l RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 4 @; U) Q, g1 U9 c$ R) T3 b
RowBox[{"x2", "->", & @5 \* a4 [! Z+ _2 G8 _) W1 p8 M
RowBox[{"Data", "[",
. ]2 Y% W" B9 W: s$ h RowBox[{"[",
. u# W6 w5 J" V( D7 k, V RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
- b1 b- [; D# K$ U" n3 L RowBox[{"x3", "->",
% d7 X* p7 e' J RowBox[{"Data", "[",
! u4 z# r( T- v RowBox[{"[",
. e6 S4 G" u9 {( M RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", . M; H H. T5 W( f* z# G% P
RowBox[{"x4", "->",
6 `" b3 {" }" U% e: L) z: ] [4 J8 \ RowBox[{"Data", "[", # D l. O/ J; Y3 u2 y1 @& R
RowBox[{"[", 2 } b* y& t- F0 G& W7 @
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
' y I3 L" B, l) }/ }* ^ RowBox[{"x5", "->",
3 |5 T6 O0 n3 @1 S7 N RowBox[{"Data", "[", . W* |6 s& i) T( G' V) y
RowBox[{"[", 5 H( K% I& K# |: u
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 1 W; | x4 }/ l+ [2 t( ]
RowBox[{"x6", "->",
6 ^- T0 d: u" [. \ RowBox[{"Data", "[", 0 V9 l: f3 i5 [+ p) ?: {9 ]
RowBox[{"[",
1 f" U3 h7 B; C# x+ ^& o RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 3 E' Q$ g$ k/ O2 B
RowBox[{"x7", "->", 3 j: m) T/ F- Q! ]; E, T
RowBox[{"Data", "[", ; O6 y+ J! r' I0 ?$ x* T! U
RowBox[{"[", 0 M- ~" M. S# ~
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 0 ^5 U! X" `" V* S! b5 m2 n
RowBox[{"x8", "->", ( e3 |4 d* L7 N* [( Z$ b/ P
RowBox[{"Data", "[",
( o+ u1 G2 d) p/ ~( r: ~6 M RowBox[{"[", * o1 g& e. k! }
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
4 m1 \$ P! v3 q+ G3 B RowBox[{"x9", "->",
$ Q: }0 q+ m# G% o: \ I- C' U! }( E1 b RowBox[{"Data", "[",
4 [5 B+ |, c' y' ] RowBox[{"[", $ _5 f) a+ G* X! z% K: l7 y; F6 m$ A
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", . N6 |# |( H# F4 L& B3 q8 O# x
"\[IndentingNewLine]",
9 i2 x$ ~4 @: n! q+ r5 s RowBox[{
4 j" R5 m2 p: L: q: i. O RowBox[{"m60n21", "[",
8 S" q0 v' r1 y9 Y, y' | RowBox[{"[", 2 ~, Q% W5 u( ?: e
RowBox[{"i", ",", "19"}], "]"}], "]"}], "=", % x K5 U8 g7 ^/ d! g* x
RowBox[{"u19", "/.",
% c; T# h9 U+ Z4 @: |( J' T RowBox[{"{",
' s8 T; Z' U/ K' F8 A( m RowBox[{
* a6 m* k, ]! u9 k0 R3 z- S3 r RowBox[{"x1", "->",
) ~, I [! ~& c RowBox[{"Data", "[",
# `- g+ q3 u4 u) b) D RowBox[{"[",
" Z- k0 e' @! e' p+ { RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
6 P T. X; F" u+ p RowBox[{"x2", "->", 3 L2 K$ L3 ]% R
RowBox[{"Data", "[",
F/ i( d8 A7 k" P3 K8 x6 n RowBox[{"[",
* m) \% N- n/ ~& g- r RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
' ^) g5 K+ C/ F# h RowBox[{"x3", "->",
1 \% e' @1 d( x* E3 t. [. Q RowBox[{"Data", "[", 6 M' I9 Y1 u$ @+ \
RowBox[{"[", , r$ t) w1 \0 D) J
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
: ]0 U! o) {# i) R: k! S3 _ RowBox[{"x4", "->", , M! A" K+ s0 ?
RowBox[{"Data", "[", E" n. Y! j A v. s9 ]5 a2 q
RowBox[{"[", 6 D8 I) }& | t9 m0 b# O7 X
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
* M8 ?+ J# C7 F* j# {; _ RowBox[{"x5", "->", S( u# I) s' t7 u5 h! f
RowBox[{"Data", "[",
c8 I- x$ E+ P u RowBox[{"[", 1 S: T5 `; C* F) t$ _9 a, h+ m
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", % M3 X* v& C% ?$ ^
RowBox[{"x6", "->", ) `* v4 }: f) f- G- q
RowBox[{"Data", "[",
+ l5 Y7 s# _, S5 w9 p RowBox[{"[", " b! ]4 @: ^6 h' E) v
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
/ B: m* q! _* a9 a- i RowBox[{"x7", "->", ' D8 s2 Z4 O4 ]9 |/ X
RowBox[{"Data", "[",
0 ?8 N+ n: H4 U RowBox[{"[", # v/ z. W* ?! x. C
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
* ^ ^) |- j1 x! E RowBox[{"x8", "->", ) o+ g$ {7 |5 ~# {8 l0 x
RowBox[{"Data", "[",
* d: j8 l# o4 v/ m' S2 z0 A RowBox[{"[", / q! t% [# N7 J3 n% \
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
$ ?- E( }' H7 }2 R& A( S RowBox[{"x9", "->", . B; S4 n) `2 e2 D; K$ I
RowBox[{"Data", "[",
( N, N) _: J( Z% L4 q" ], z- { RowBox[{"[", 0 Q0 b @6 _0 U% E( p
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 2 U) V8 v/ f8 k3 G7 B# P0 R' ~
"\[IndentingNewLine]", ( f3 r* }3 p9 q( E+ f) d6 X; e6 S2 _
RowBox[{! Q6 `' X! p( J1 p0 g
RowBox[{"m60n21", "[",
1 K( h" T* M( G" }) | RowBox[{"[",
) ?- d: j' M8 } RowBox[{"i", ",", "20"}], "]"}], "]"}], "=", $ }# |3 `; N" W0 I& b8 b
RowBox[{"u20", "/.",
0 |) B5 k+ B# v" A RowBox[{"{", 5 d& x( Z" _) p* K
RowBox[{
" P; k" D$ ]% `+ l9 v7 p6 K$ x RowBox[{"x1", "->",
/ R5 X' F3 d2 M0 ~" M, @ RowBox[{"Data", "[",
% T. q, \1 a% h9 G' m RowBox[{"[",
8 L4 b' e% J) O% ~# U. S RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
- K1 ]! J! M4 q( h, }4 w( ^ RowBox[{"x2", "->", % d. T: N' _% Y- N r9 l8 e
RowBox[{"Data", "[", ' j' T; P& W1 v1 D# e
RowBox[{"[",
3 z7 |4 T! f$ W) w$ W @; D( z RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", : O9 \1 l7 o1 O, h- d
RowBox[{"x3", "->",
7 T% |! e2 Y( w f& W RowBox[{"Data", "[",
+ O4 F8 ^8 Z! d3 ~5 C8 @" S/ \ RowBox[{"[",
& h2 r7 u" o5 V. i/ ^% ~ RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
9 C1 T; V' c0 k/ k& D3 l3 t% [ RowBox[{"x4", "->",
! l2 z# n1 G+ f# D' W RowBox[{"Data", "[", - h; ]" n! O* l4 b7 b
RowBox[{"[", ) Y) }3 f: m2 C$ I& i% A0 G- ^/ \
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", : {( u/ k" A3 [, B6 \2 L2 s
RowBox[{"x5", "->",
. {7 s6 s7 r1 x) B9 [3 I RowBox[{"Data", "[", 8 X1 x* B8 H K6 d
RowBox[{"[", 3 c0 f* H* F3 `2 i+ i! e0 D
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
% V3 _9 B" g" v$ o- i RowBox[{"x6", "->",
6 O# ?/ g% e& d' L$ J RowBox[{"Data", "[",
4 r: Z( T4 g! D* H RowBox[{"[",
; O0 |6 x" h- q RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 3 C1 J( D7 C8 B( I& g0 H2 x
RowBox[{"x7", "->", 3 J, r, j1 R8 e1 i4 T/ e8 t9 v
RowBox[{"Data", "[",
$ R3 i. U+ @0 _" c9 p RowBox[{"[", ! F. U; Z6 B) w% Q) u' r
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
4 T# ^' ]0 s- `/ h1 o i( X RowBox[{"x8", "->",
3 u9 U; C" P9 Q% d$ ]& z RowBox[{"Data", "[",
' ^. p) t) [7 N RowBox[{"[",
) s! y5 X2 m9 B/ F6 Q RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", * k6 C5 V& J" @
RowBox[{"x9", "->", : |+ R% `4 o- r1 i& T! K
RowBox[{"Data", "[", 8 {( t ^; u) }8 Q: V
RowBox[{"[", , L4 r& E# {7 e; K$ e# J
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
B% A, p4 b5 ]0 a "\[IndentingNewLine]", # W$ d2 l; X9 L, e6 k
RowBox[{8 s2 H6 M* ], n% P! o" e3 }
RowBox[{"m60n21", "[",
C. T$ G) h4 S0 w# ]" Z RowBox[{"[", $ k0 _) v7 i, w' g9 J% A
RowBox[{"i", ",", "21"}], "]"}], "]"}], "=",
+ W: B, O2 h8 B! h' M$ b# P8 H$ x RowBox[{"u21", "/.", 0 L& y6 L0 Z" Q7 Q
RowBox[{"{",
C7 }! B+ ]5 @' d9 x+ m, j RowBox[{
m& l: ^& Q& ^ RowBox[{"x1", "->", 0 N0 o9 G2 B0 ?" Q& J
RowBox[{"Data", "[",
% q; z0 }( ?/ R2 _ RowBox[{"[",
% R& L7 t, M0 Q8 \0 }; i RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 2 u5 m& W! s9 v9 S; {5 E2 `: F
RowBox[{"x2", "->", 9 K( U# h n5 O6 W) V1 u' f0 K A* Y
RowBox[{"Data", "[",
* h. s- G8 `+ X/ f9 l RowBox[{"[",
" s g* [& g9 I X RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ; P* d: `- {( c, W
RowBox[{"x3", "->",
* y( ]6 F- W4 @/ E. P0 ^ RowBox[{"Data", "[",
- d( D/ N, v5 O* A& w1 ^ RowBox[{"[", 3 _7 r# ]. j3 E& |
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
6 ?, \3 q" r U! S7 H y Y RowBox[{"x4", "->", * y3 s2 Y' h! k
RowBox[{"Data", "[",
& }0 i5 k" Q$ t& N RowBox[{"[",
0 C& J4 M; t4 {; H$ ^ RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 0 E" G) ]/ U6 W; }
RowBox[{"x5", "->", / c' {0 d- v W x% K
RowBox[{"Data", "[",
% |9 M7 e& [! n RowBox[{"[", 1 u: S! v( z* {( s
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 4 w0 r' V1 Z9 U
RowBox[{"x6", "->",
. `7 b" } m) P0 A ~* Q7 ?) b- Y( X RowBox[{"Data", "[",
( k6 Y- q6 [4 d8 k/ N RowBox[{"[", 1 g$ s6 c& q- [0 f5 ~$ s$ w
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 0 G) j& ]& ^! ~( }+ B/ I
RowBox[{"x7", "->", * y& H8 f* P0 @7 ^1 g, l! w
RowBox[{"Data", "[", 8 H H( Y/ K( E8 _; ^
RowBox[{"[",
2 t# h0 ?& T9 K: f; u& L( T$ Z# {4 E. e RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
2 \4 H5 o6 ]3 k RowBox[{"x8", "->", . R- x0 s% W) _' Q+ u
RowBox[{"Data", "[", 5 f/ `/ Q T$ a
RowBox[{"[",
$ r6 t7 ]/ b$ w9 v RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
; K: G+ _, U6 ]+ S- p8 `2 S0 K0 F RowBox[{"x9", "->",
9 j5 \& b- z6 {, e1 } RowBox[{"Data", "[",
1 x: z" i+ c+ Z, y" Y/ C* p RowBox[{"[", 9 `9 L2 o7 @- `! n/ b! x
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}],
* M9 U- J6 F( | n0 |% x# @7 Z/ Y "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",! ~- @! ^% m5 H% c2 Y5 C4 a
CellChangeTimes->{{3.5779241165*^9, 3.57792417728125*^9}, {8 _; y- H2 |/ K. ? h, B# E
3.57792428359375*^9, 3.577924585109375*^9}, {3.577958919491543*^9,
3 A9 b N7 `$ u0 X 3.5779589224867477`*^9}, {3.5779619825731473`*^9, 3.5779620676400957`*^9}}],+ p* }/ k; j7 b) p5 x
- @# N0 h: W9 P: ]* f/ l$ J k/ T& M* d
Cell[CellGroupData[{
( s' l; c9 c3 I% l! R
( N- i8 h1 N X% C& XCell[BoxData[% n4 N( ^ I0 t! F9 Z, l/ j
RowBox[{"w1a", "=", 3 ^! [% x% t5 w, q' ?
RowBox[{"LeastSquares", "[",
% V" C$ t1 j& V RowBox[{"m60n21", ",", "y1a"}], "]"}]}]], "Input",. e" d' E" I) D$ e }* g
CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {
. Y/ G: S9 I. t 3.577924662765625*^9, 3.57792466596875*^9}, {3.577962074644508*^9,
. w, T# ~0 `9 A$ f2 Y/ M5 K4 A 3.5779620748317084`*^9}}],. G) r2 n/ u! g9 L3 G! j% t( L
0 u2 j1 G5 [+ d3 g Y
Cell[BoxData[
. B; p2 r! E+ v" |$ U RowBox[{"{", . _9 G+ m! a( n/ B* h
RowBox[{"0.32564305572552416`", ",", "0.500820838606441`", ",",
+ G7 v' E8 W! d' S9 N9 n5 X3 z RowBox[{"-", "0.5945873894818967`"}], ",", ( t2 b( Q2 n5 B1 f- r
RowBox[{"-", "0.1999688587779198`"}], ",", "0.020180806675835994`", ",", . c; S. P$ ?# T! ~6 I/ ?* d* ?
RowBox[{"-", "0.03345934908892623`"}], ",", "0.25282438852646905`", ",", - W$ p J+ S+ F
RowBox[{"-", "0.17602467625404622`"}], ",", "0.3961180670900672`", ",",
* u8 X4 g; b5 b. _- l# }& u0 L "0.02759193650965952`", ",",
; o) q3 c$ ?5 x% V) Z" Q RowBox[{"-", "0.320472847796449`"}], ",", . Q6 f9 @1 B0 X' m0 K
RowBox[{"-", "0.07581214474544527`"}], ",", "0.4812237524557292`", ",",
6 g# Y% U0 t; ]+ y. A "0.7528674241482847`", ",", "0.6665374509702799`", ",",
' T* D2 L# {" v6 a* y "0.22861495086373018`", ",", "0.13092706311748484`", ",",
_6 O0 C, e) m0 u "0.5252475961933538`", ",",
/ i1 U' j7 N7 G3 s RowBox[{"-", "0.10599338351843157`"}], ",", "0.6670272593678526`", ",",
* ]8 P# w x5 M7 H0 t- R* S9 F2 e "0.23580523388620733`"}], "}"}]], "Output",' V0 B5 A) }6 ^# y5 o
CellChangeTimes->{3.577924621953125*^9, 3.5779246688125*^9,
; i8 n1 D; h# y 3.5779575884583836`*^9, 3.577958952875601*^9, 3.5779620806661186`*^9,
; p5 H5 I* f' E$ Y/ d 3.578012349875*^9}]
' D, i) W$ R6 g, G}, Open ]],
# s( o$ `! Q2 p. b# P# e: P; H( b% N% _
Cell[CellGroupData[{
) C8 l7 b- ^: q$ P H4 e
; j' X, F+ m+ U6 ?4 [( QCell[BoxData[
. D3 P( v6 {9 `" k- T RowBox[{"y1", "=",
2 {) ~7 t# `0 S4 O% [& h# N RowBox[{"w1a", ".", / [! ?8 E. O& ?0 u! N! V
RowBox[{"{", 3 M: b' D8 q9 r* G$ D
RowBox[{
7 W$ U s! g# \% D1 I. _ "u1", ",", "u2", ",", "u3", ",", "u4", ",", "u5", ",", "u6", ",", "u7", 6 c. R7 T8 }' X7 y/ l! Z
",", "u8", ",", "u9", ",", "u10", ",", "u11", ",", "u12", ",", "u13", % p" |$ @+ H& e+ e4 a# x2 l& v* X
",", "u14", ",", "u15", ",", "u16", ",", "u17", ",", "u18", ",", "u19",
7 R! H, v# B; m ",", "u20", ",", "u21"}], "}"}]}]}]], "Input",
# H% p$ W+ U: R& h; Z% h5 ? CellChangeTimes->{{3.57792471553125*^9, 3.577924755875*^9}, {6 Q- v' q; r- \3 n
3.577924897078125*^9, 3.57792491596875*^9}, {3.577962095642144*^9, 4 c6 F" Y8 V& z3 R1 g
3.5779621231449924`*^9}}],
' K8 c" q; A# N1 f0 ~# t8 }1 O" b
Cell[BoxData[7 x4 |% @" y: X8 Y. y
RowBox[{7 V4 ^. K) j4 o
RowBox[{"0.22861495086373018`", " ",
( K* n' ] i. P) @& b1 }, @ SuperscriptBox["\[ExponentialE]", - Y* M- B: W4 a( f- p0 E' R
RowBox[{"3.141592653589793`", " ",
" t1 J! D7 }) c ~2 }: t' @: S RowBox[{"(",
0 l) b6 Q6 r7 q% j RowBox[{: g& _+ R2 {, y y
RowBox[{"-", ) h3 y1 J6 `9 F) A: J+ s# t
SuperscriptBox[
{4 `! _9 u& \ RowBox[{"(", $ k6 u' Q2 ?3 `* w$ Z8 N
RowBox[{
$ @0 ~6 V4 q( g% O RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
* e' ]5 P% p% P1 T: ?1 x SuperscriptBox[
$ F/ _/ D- S" M$ n7 i) | RowBox[{"(",
8 x: ~: K5 h t$ p H- g, @ RowBox[{
# E0 p3 J) Z# h6 G" T+ y# j; X9 c$ | RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", ' C! @) Y, ~, A3 W7 X/ U0 G
SuperscriptBox[
9 h9 m P+ g# q. z1 y2 R RowBox[{"(", 4 P5 ]) N- R; R4 G8 O- L! }2 Q
RowBox[{ ~6 K, |8 {' }5 H" v: J1 {
RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", 2 z+ o7 Z2 |/ D7 n5 q/ ]
SuperscriptBox[; C! X5 B4 [( b7 A# ~4 M
RowBox[{"(",
9 J& k: I5 v( n0 i% y RowBox[{; W: r/ }/ N; `, @8 \3 W
RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", # c6 b N j `4 }' r, ~
SuperscriptBox[
) @, T/ N9 n4 Q/ q8 e RowBox[{"(", + i- B" w+ }7 g
RowBox[{
; m" x6 u P- @0 L. M1 F4 j- m RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", $ |. K! v* J) n: t
SuperscriptBox[
- }9 f$ @% K3 ] RowBox[{"(", , M5 F3 e) `) U9 r1 t& `/ p
RowBox[{
4 z C# M5 l/ G% j" `# R: S. w RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", 1 m3 T, T! |) D& \9 c5 y
SuperscriptBox[. V3 W2 ^( n0 U3 S- F
RowBox[{"(",
$ {. M0 Z' y1 ?2 g RowBox[{; Z5 Q1 k/ w: Q* C( O
RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", 3 H$ O* [8 B1 c2 H2 O# d
SuperscriptBox[
, Y' D! e: c- G) h/ O. j; K RowBox[{"(", 1 S* j( H0 x3 `$ `) S1 o! I
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
/ p& Y& q0 s$ K* s) Z5 t SuperscriptBox[: o( _( D# t$ H# {. D
RowBox[{"(",
9 d- A# l: {2 _- \1 D& y$ x; }! O2 F5 B RowBox[{, ~3 i* n/ |( ^: I9 O
RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
7 t- y, F; e2 `2 V7 I4 _1 r5 [ RowBox[{"0.020180806675835994`", " ", ; x$ ^3 V+ |) A8 @ ]9 }0 S
SuperscriptBox["\[ExponentialE]", b4 f* ]* N+ e9 w) E
RowBox[{"3.141592653589793`", " ", 8 i+ ?+ f- @0 P- C: p! W) s
RowBox[{"(", * ^* P T7 B( h
RowBox[{% [) z! v; o! N1 m4 j; Z$ D$ E
RowBox[{"-", ) i9 H9 P5 Z- m6 }- Y
SuperscriptBox[
$ L# j+ ]. `8 @2 G& | RowBox[{"(",
* b0 A" G' m( h' y! _ RowBox[{
( \4 Q* ?6 j. D, S! [4 ^8 e RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
, F4 B# O& P- o% [( w" }* k SuperscriptBox[
5 s, A1 T. C% u6 t6 y) a RowBox[{"(",
8 o$ f6 N9 b7 ~* N RowBox[{
7 m0 s1 q( j" D8 m/ @9 R, F% y/ F RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
# ~0 o) b$ ]$ |" q SuperscriptBox[
; t/ u: S, D7 p$ m5 H* k RowBox[{"(", 3 R+ p/ Z. e V( ?# m
RowBox[{
4 P6 C, B3 a5 S: o; @. J) W b3 ]6 p RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", i% _, h' @6 \4 T
SuperscriptBox[4 a" W4 \! U4 }
RowBox[{"(", 7 W f# I* \" {, T1 L# `4 B
RowBox[{
' H" d4 @0 g n! U; r: A8 y RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-", 4 h9 x% ?7 a6 t1 I4 t
SuperscriptBox[. F# t% b0 [' v: D, N1 c! v; f
RowBox[{"(",
$ v- J& l. l W2 W RowBox[{2 T- e3 d0 [" x& g# V2 g
RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", & e, {+ l, x' |* T
SuperscriptBox[
& ]7 l% B* k( y4 Y9 u( m: c RowBox[{"(", 2 k2 v8 V) O' Y' j" y$ |) K
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
( Q$ X4 O: z5 f* w- n0 e$ x) g SuperscriptBox[% D* e9 D9 Y6 }+ ]
RowBox[{"(",
! J3 \: H. O5 r1 }# n2 w" @: A; V7 [ RowBox[{2 Y4 c! r Y3 R: V* ?
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
- g4 V% r# H. [6 c) C1 C SuperscriptBox[
0 n% v8 h: B' E5 O5 p- I RowBox[{"(",
( ^* I; k4 }2 f/ R2 w6 ~ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 9 v3 Z, v- s% I
SuperscriptBox[
/ e( G1 j: z$ v, q4 N8 }' H% i4 X RowBox[{"(", 9 Y+ s% U( g0 D- O) E& n3 |/ }
RowBox[{
4 k" a1 t! D! r& a A4 m RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ' W5 {% C: t4 u3 n
"+", " s8 j/ g3 X l' A8 F
RowBox[{"0.13092706311748484`", " ",
$ e+ P7 j4 @$ I( h1 T SuperscriptBox["\[ExponentialE]",
3 j& ?8 D2 @/ q6 ~ V RowBox[{"3.141592653589793`", " ",
5 R2 \: ? t- n; H: l5 f; e0 P RowBox[{"(", 6 X5 K7 f4 S/ o; S2 B9 g
RowBox[{
3 m; j# ], g, F3 A6 U2 [ RowBox[{"-",
M) H3 l- g* I! g) Z SuperscriptBox[/ Q5 M% C- U# X" P; _9 S
RowBox[{"(",
: P& \5 R2 U1 s RowBox[{. s4 L4 F* `5 d
RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
+ i/ q" x/ ~8 p0 E& C SuperscriptBox[' {0 T' i6 h: ^) @4 g
RowBox[{"(",
) Q1 Z6 {8 G" J8 j' ~+ J- F5 F6 O RowBox[{! X: y1 h5 G( n( P+ [! o# o
RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
6 l. i, V, z) z) q; r+ j+ h% ] SuperscriptBox[
6 _6 N. k" E2 f) u: d RowBox[{"(", % y4 \1 A% _, D; k8 `' S
RowBox[{
! _. y* Y# D; w0 K- s RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
( w& b# D0 S( W3 e; I; B5 A SuperscriptBox[4 Z' |1 d1 a3 Q( H3 v$ U, ?7 b
RowBox[{"(", $ O$ Z+ R7 A/ ?% d+ }. P9 C) N
RowBox[{; q/ Y/ d, s1 I" }
RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", + `0 I' y w! Y p9 e6 D8 {/ F
SuperscriptBox[
7 m$ w9 Z0 F' E( K& f! ] RowBox[{"(",
+ f D: F) N1 w/ B1 {3 w8 \ RowBox[{" ~ p' |& }- l7 O! z$ G; S1 n/ b" u
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
8 h' r* D5 z5 ? SuperscriptBox[' L& A3 Z& s9 j% ]
RowBox[{"(",
: h* y/ R D7 u RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 4 `! j: s2 M0 V
SuperscriptBox[
/ o5 Z) n: J6 f- X RowBox[{"(",
0 Y7 Q) ~- q6 j4 Y1 Y0 [" m RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", * r# x( [" R8 U) X
SuperscriptBox[
/ s1 ]$ S# g. t' {9 ] RowBox[{"(", 8 s$ J$ ^; q. N& k2 u
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
0 R8 f7 A0 G. T' W SuperscriptBox[
% q- u( h& o- M4 \' S2 m3 ]6 Q0 z RowBox[{"(", ' G7 V# k& ]/ l; i: e. H
RowBox[{ I7 n1 n& m: E) G' ?$ C3 O. F9 x
RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
2 V2 i% W3 z1 H" F "-",
! a8 b+ b- G9 A6 s: J n% g& x7 O: C RowBox[{"0.03345934908892623`", " ", 4 C# O+ M y2 j! n
SuperscriptBox["\[ExponentialE]", 7 P* x6 y5 w0 z- `
RowBox[{"3.141592653589793`", " ", 2 c6 i8 | \; j9 Y
RowBox[{"(", ( r( L6 O& q6 h) r. b
RowBox[{: m0 [8 w+ f' ^' e3 |! v$ t1 N# n
RowBox[{"-",
4 w$ C5 B+ W& u5 T6 r. m' c SuperscriptBox[0 U% Y' X" `! x: p) N
RowBox[{"(", + k F, I! @" I: y! S3 f# h$ v
RowBox[{0 X$ H- s) @4 F4 N R1 i5 o) f5 J
RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
4 c! P2 ]/ A( a0 s. e SuperscriptBox[
$ `. J$ w* |, w. _1 }; Q! R RowBox[{"(",
& `8 F: M3 L7 D# ~8 |3 V3 a$ _ RowBox[{
p& W1 V" `0 n6 M# L RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
2 H- d. P# r: d- B; F; @ SuperscriptBox[
% t+ u5 d6 u/ O0 u2 x RowBox[{"(",
: _3 v9 I: e4 o( T- N RowBox[{
3 \. P9 E( v1 s! j RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", + e) A. e4 t- f# o1 z
SuperscriptBox[; Q/ p+ I* G9 D) M0 e
RowBox[{"(",
% X3 X4 [' J9 Z% _/ q RowBox[{
2 c+ R$ S3 d9 M% S! _* q+ n9 e RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
" ^7 _( W8 x* O SuperscriptBox[
" i5 p: g3 ?7 U; ~3 a RowBox[{"(",
# c* h$ m R$ A; `. e [. I) s0 ^3 w' E RowBox[{6 J! r: I: m6 P; \* i( S7 t- Q% t
RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-", 9 n4 ?) {& H* x. M+ r9 e& i. G e
SuperscriptBox[
" |* C3 b) S: n3 w8 q8 h" q RowBox[{"(", ) w& S. x, N7 U8 ?' P2 T) r6 m
RowBox[{
0 _( E: o6 Q2 r$ ?7 U, | RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
/ R* j$ B F8 g$ e, J5 K' D! J U SuperscriptBox[1 X; x% d( y, E- C' K7 b
RowBox[{"(",
' W# ?" r) {+ T RowBox[{
l, @! |! U* t) d RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
; a$ K5 V3 P: v1 z1 W8 H SuperscriptBox[/ L6 {" B) r* B, E
RowBox[{"(", ) ]5 b6 k7 j# [* |
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 3 O7 @6 L$ `7 \, d7 `" M ~% @
SuperscriptBox[) Y8 q( i+ z* n3 w
RowBox[{"(",
: {9 X. P8 m. _2 G4 l' m% z1 z RowBox[{# ~0 R4 [! |9 H3 E
RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
5 j4 ?: W( Z: [9 a% g( j "+",
1 ?. U4 P% R# X" Y" b9 a' } RowBox[{"0.3961180670900672`", " ",
# s: F$ u1 N. S1 z$ D! g3 O3 x1 M SuperscriptBox["\[ExponentialE]", : w+ w/ R* P) s; @
RowBox[{"3.141592653589793`", " ",
, ^: B& j4 T& m% s: S5 G' Y5 j" ~ RowBox[{"(",
/ V4 v) _! \1 {$ |4 n RowBox[{
; V7 i: S. u; g1 |& B+ T RowBox[{"-",
- w+ w, D$ d6 u, N( @) p SuperscriptBox[
! I" v: C! N3 z& J) }# |/ j4 \ RowBox[{"(",
3 G, K n: V+ j4 z5 | RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", * S& M) k3 [9 o& a7 ^2 [
SuperscriptBox[
! ]) I& D+ M u8 L: l* H; a RowBox[{"(",
. }2 @6 Q* E2 |9 r RowBox[{4 ]; Y. T9 x7 m5 l0 s* [
RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
+ o z+ E; ^0 {+ E8 A( u* U8 s SuperscriptBox[
. Q1 b% v: D* B' Z* E RowBox[{"(",
1 N# |( p j& [% m/ G2 G& r RowBox[{
$ z. y2 J# i4 V8 n' ^$ l ] RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
. R1 X* V3 T. J) U6 f- T SuperscriptBox[
- `" e* U; b' `0 ^$ m RowBox[{"(",
! P2 f, d4 a, \0 c0 ^5 R RowBox[{
2 `' x8 z3 u" }+ L4 r% ~) y RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
" w% C& {7 E2 I' p SuperscriptBox[
8 ^0 s% m& Y8 i3 {5 [) ~& x RowBox[{"(", 5 a; c: o+ S! o7 j8 W. t r: F) F
RowBox[{
+ n7 t+ H: h$ M RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
1 Q7 O! |: @1 N7 V* O( P SuperscriptBox[7 B! P3 Z6 x s/ ?
RowBox[{"(", 0 }1 s5 c9 E* }/ u9 T' G) d
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
- i4 r7 S8 g& R SuperscriptBox[1 E g" Y1 J( w0 k2 Z6 }
RowBox[{"(", : b* F# k1 r/ J* |; o
RowBox[{; b6 G% T9 j' J) B. T \9 f
RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", : d5 g6 r t7 N) g: s0 A
SuperscriptBox[1 j9 t$ N, o9 D, G% ?$ T" |: N1 c
RowBox[{"(", : r3 l6 L; p+ z6 F, j/ @$ E, Y& N
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", # y2 k+ g, ~5 V3 R! D
SuperscriptBox[8 v' ]. |9 L& R& | ?8 A$ U
RowBox[{"(", - Y" _6 t- a5 N& `# Y x( w0 r
RowBox[{! C( K+ w# g) |% I4 Z1 Z+ i4 P- s5 U
RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
' m1 W8 R7 }4 y, @1 w3 t7 |4 ^ "-",
+ L5 s) f2 a/ G RowBox[{"0.1999688587779198`", " ",
" c, F& V4 S9 b6 K, Y SuperscriptBox["\[ExponentialE]", : \) }, `: H+ V. p n% U/ w1 Z# K
RowBox[{"3.141592653589793`", " ", 6 c3 h2 w, K3 M! Y( c/ O0 l3 t
RowBox[{"(",
' @! x/ ^$ h+ y3 Y7 A RowBox[{1 M! I" g5 B5 O+ L
RowBox[{"-",
% d- v/ s- n! k8 D P! c SuperscriptBox[
& r) p, x- `9 r! V RowBox[{"(",
# ~+ _+ d; \; }6 b; \3 y RowBox[{
9 `, r. o2 o/ U4 A" _8 y5 G7 x RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", , r0 {. w' U7 n4 ?- u! e; N
SuperscriptBox[
5 q. P0 l/ a$ Z! O; @% N3 K RowBox[{"(",
# p5 w/ c1 E4 ]; i( v8 Z/ o RowBox[{
$ r: b7 M/ {" [/ B* b/ ^$ Y. ~7 n- X" E RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-", 2 D0 `) Z3 q: l4 N
SuperscriptBox[
' b; e: H3 \& j7 p3 i @/ T RowBox[{"(",
! e- l u/ x& \5 M RowBox[{3 A2 A. U2 h" }) u2 `4 k
RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", # d1 N) a/ y( M( [# x# F) I
SuperscriptBox[2 a: L0 ?- K1 V
RowBox[{"(",
7 v4 w, J: C2 p4 _% W RowBox[{
! N' N$ ?3 d, |2 k- [6 | RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
6 }& v J1 _( r: C" D- t- g SuperscriptBox[
3 c! s/ q/ g4 ~6 k1 U3 r8 D RowBox[{"(", $ } o0 o4 A8 `, z& R
RowBox[{
$ a% n8 C# v' o RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
/ @) m! T& i" L% q* E i' x SuperscriptBox[
" S& Q4 L! C( q! F+ C y9 N RowBox[{"(",
. b) O" l9 ]7 j& V% C8 n3 J+ a3 g RowBox[{& P4 ^/ j; ^+ E! f S! x
RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
. R% J% |9 H8 V, ~+ Q& N( f9 u SuperscriptBox[% g6 Q2 @6 s u$ n
RowBox[{"(",
: Z$ E3 x4 g& Y; |$ y) Z RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", + t+ B2 F( @: [) U& l3 U$ G
SuperscriptBox[
3 t: `' d3 c/ f+ u E RowBox[{"(",
$ D! U; O6 q0 ^ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
7 Z1 P* g6 I/ \* L* Z SuperscriptBox[3 X! f( i$ c1 X6 [
RowBox[{"(", `" R) z: E! I0 R
RowBox[{
& g& b/ M# v$ e RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
% _7 ]5 R4 p7 k- h3 H "+", 7 ]( V/ ]! A7 z
RowBox[{"0.23580523388620733`", " ",
% [$ A$ O. A& e/ r- q SuperscriptBox["\[ExponentialE]",
' w7 v) ^/ d( m7 q& Z RowBox[{"3.141592653589793`", " ",
Z) U) d7 a( K0 G' O RowBox[{"(", 1 j' W) w$ D! M% y; U6 D
RowBox[{
" V4 E) W8 ^. v/ t7 V RowBox[{"-", * ]$ P4 A5 a! j# N* n. F G6 J; L9 e
SuperscriptBox[
0 H( m7 G6 O, e6 ?0 Q RowBox[{"(", 8 {' D5 O; m' [9 P8 M4 U
RowBox[{! [% r8 ^5 X. {# V9 t4 C' Z
RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
1 k1 k% e8 c8 {5 n! H SuperscriptBox[( D5 X" ]' Y8 z. P7 a, O" v
RowBox[{"(",
/ u% u) [6 [1 j% X RowBox[{
8 T% Y4 \/ \7 D. f- } RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", ' }$ O6 O4 L K c% b
SuperscriptBox[
) h! _. `; S8 l/ L3 M RowBox[{"(", # l" t; w) s5 a" x8 `
RowBox[{
- I3 S* n2 m1 M9 J RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
; w( |8 F! h/ `0 A ? a) ^; d SuperscriptBox[0 E: U4 R8 o9 o3 a/ n0 ?
RowBox[{"(",
( M' V7 d( N! O" f1 t/ L4 A RowBox[{
8 ]- z4 }$ K; k! L RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", * u* W2 e$ s9 q p" l/ F
SuperscriptBox[0 W8 m! c# L! X; _6 ^; z
RowBox[{"(",
+ E3 ]6 s3 u. {/ V$ p7 P7 B RowBox[{3 }3 s- p) i0 n7 X1 d. }( Z8 J
RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
6 o$ @0 I4 K9 S1 x8 \- h SuperscriptBox[
# ^% }& R1 U' n5 ?/ j/ B& h! B! O8 ? RowBox[{"(",
: Q. u; n8 }% x8 W4 w( w" { RowBox[{/ h1 g: O$ y( b* D- Z7 U4 P i
RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", 3 a, u: |8 Q \ r( e0 Z5 f ~
SuperscriptBox[
" P, `* ~! H( n: r* {4 M RowBox[{"(",
4 f, L) D- K/ h7 m RowBox[{9 n) ^% v# Q4 e" a
RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
4 ? Y9 ]$ c# ]& B. O; F1 q7 L. d& \0 v SuperscriptBox[$ i) V2 _% |& I' m) O4 {
RowBox[{"(",
0 P3 r0 u* @( k6 z. t8 i, O RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", @, V4 v; i3 ?4 [8 X, Q, k
SuperscriptBox[+ S, v/ b. c7 a* q& O4 \
RowBox[{"(", + P/ u# s7 N! }' H
RowBox[{, k, u* i8 s; H) X
RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
1 u7 L; p6 K* u "+", + i- w* ?5 p1 o! v
RowBox[{"0.6670272593678526`", " ", t5 n& @ p7 {
SuperscriptBox["\[ExponentialE]", ' C. n' `- E9 d* t
RowBox[{"3.141592653589793`", " ",
; L( f# O. t1 y. }& u2 ]4 o RowBox[{"(", $ X) Z$ G0 k' `( Q& H4 c' }- h
RowBox[{
: ~8 ]: s) u8 L& ~" n, B( Y RowBox[{"-", ; y& a# n- H; _$ ~/ J, L4 e
SuperscriptBox[4 r: C* f" A" K$ p, G
RowBox[{"(", 2 B8 k. \! O l) o) ~" L8 ?1 z$ `1 R4 R
RowBox[{6 X* \1 f4 I; ^0 c- k
RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", % S. ]: F# E7 _
SuperscriptBox[& C; s3 M5 B7 l( f4 T
RowBox[{"(",
' w1 t. m8 _/ ?8 b: A, Q9 q7 N RowBox[{0 H. O7 X6 i6 Y8 A7 l: i9 N$ a2 v8 A
RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-", . u. R) i* d8 z& S
SuperscriptBox[
/ e0 J* {& a, ?) t4 [2 b' O% O RowBox[{"(",
/ Y( b, M8 n/ m0 \/ E8 k& F RowBox[{
: A& r+ w0 a u+ H. R RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
% N J5 ~ r( D7 `% N7 p SuperscriptBox[4 F; R; p' v1 }1 J& u2 r r* C3 E" ]
RowBox[{"(",
1 D' X [& d! c RowBox[{# Q7 v o, S. b$ C' | C% @
RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
/ h* @& J$ Y" x- a SuperscriptBox[6 y5 @/ ~5 S# o1 b* z3 P. f
RowBox[{"(",
4 B4 Q5 f: I' G8 d" S RowBox[{
6 ]9 ^' L1 @* t2 V RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
, b" m# T# r7 V& |( A/ i; ] SuperscriptBox[
1 i( N- c- t2 _6 Z# O" N RowBox[{"(",
9 o! |6 Z4 o/ a( o/ r RowBox[{
Y9 P/ h" E; S: {7 z0 m4 x- \ RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
/ s f. H5 M6 X9 A4 N1 C SuperscriptBox[+ T' r, J* f; k* m8 O
RowBox[{"(", 7 K$ I$ L" G! ?' d# R
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 3 ^ J( |( h7 \( j' H f) g2 c
SuperscriptBox[
% z7 O( W+ P% X( c RowBox[{"(",
( R5 x: a9 K0 N5 i RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 9 Y/ L9 K8 R |& N7 V$ q
SuperscriptBox[
; k" J9 m( L2 H- ]2 R1 Y" \ RowBox[{"(", . s( r" b5 {' M* G
RowBox[{
6 \# K5 E; c6 F: o+ T( s: z# B RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
8 K# j1 G: P6 m# @ e9 Q; i: q "+",
1 v7 P& m4 M) Y5 D* [6 T RowBox[{"0.25282438852646905`", " ",
" X' Q5 ]( m( ?8 D% |2 H( ` SuperscriptBox["\[ExponentialE]",
/ H: V( i* Z/ `' v- X* X" E; u RowBox[{"3.141592653589793`", " ", . h( b% B0 t+ V; W" i, u+ w
RowBox[{"(",
2 X* V A% |5 C& K RowBox[{1 r( k% P/ @3 [8 F% a( p
RowBox[{"-",
& [8 \; ~6 T, p& [0 F/ S/ H! |" ` SuperscriptBox[* f& Q! X1 ^# i1 B1 Y6 G0 C3 C; u' d% L
RowBox[{"(",
) y9 y5 o. n& h5 Q, |5 I' X RowBox[{
# p5 G) [( S3 l# k, C; V RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
% u- u6 K3 Z- w% w& a8 i0 K SuperscriptBox[8 F5 o! G8 G. K; s6 Y+ J
RowBox[{"(", % _% v9 b* K' V0 d
RowBox[{) g2 ^9 G9 _* g. `" z. w) I7 D8 Z
RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", " g+ d6 V! N4 `! K" \% P
SuperscriptBox[
8 T% s* W, G4 o0 E: z RowBox[{"(", ; j7 g6 r( @, I: l
RowBox[{; H! b; V0 c: q, _
RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
5 o8 i1 H( ~" v* F" i SuperscriptBox[# _& h- s: c. A* X/ O: J ^& w \
RowBox[{"(", 5 }& a1 T8 \) d' N8 ?* l( e% I
RowBox[{
/ g8 J. [) Y! C: M7 r. c# Y RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
& w0 l/ I5 \+ W! f SuperscriptBox[
4 J, H# V4 M* I RowBox[{"(", 2 ~% t: m# T4 W( I3 N2 K
RowBox[{) u. R. v: C; J( B$ [* Q6 K0 v
RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-", / b1 r/ t D; X) e% \/ @/ X ]+ D' j C
SuperscriptBox[
6 A# J2 j* {/ F RowBox[{"(", % _ v1 M" y% t2 y( S
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", * H! |0 ]* }4 ]8 u$ P
SuperscriptBox[2 K U: I( d4 S7 t, [6 X7 m
RowBox[{"(",
! j% y: E+ [ Y/ J% v$ X* m& w RowBox[{
5 o7 j6 k' c8 V6 Z! Z4 f3 P RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
8 D0 _+ q% Q- ?! c SuperscriptBox[
1 q( U5 i, |. g RowBox[{"(",
1 }- r# @3 J( B+ D: t6 C7 ~! j RowBox[{* B( o5 [$ L& {* E
RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", . Z8 @" J: x! y
SuperscriptBox[
8 z3 p* @3 Z. ]4 x, Q: Z( i' w RowBox[{"(",
$ H+ Y5 ]6 F! _) k RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
! K# L# _' X% h/ Y ")"}]}]]}], "-", 2 f+ ^# \; a0 u/ y) c! ~
RowBox[{"0.07581214474544527`", " ",
6 d4 g( w' O) e5 m SuperscriptBox["\[ExponentialE]",
% f0 ?/ b. Q2 H' U% \ RowBox[{"3.141592653589793`", " ",
2 _* F% {( H2 H2 j E3 O RowBox[{"(", + ^: z& y. Y& h( n4 N4 `
RowBox[{
3 H0 ~3 g2 ]; u% C1 O! q RowBox[{"-",
: y& ]8 ~$ U |2 ~2 X1 ]& B SuperscriptBox[0 Y4 s8 A) H3 ^) K6 |
RowBox[{"(",
2 B$ B9 M; _" K& R; Y; B5 E RowBox[{
- H' O* F1 M6 J: b2 J8 k RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", + M( U5 I% L9 q% w
SuperscriptBox[' @0 H7 R4 _* J, {+ v
RowBox[{"(", 2 n0 T! k$ w. K( w/ h! J# }) A4 x
RowBox[{
7 e2 G8 t) {/ G1 S* E RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", ! R6 r: v3 r* f6 @( t
SuperscriptBox[1 i: V0 k/ N. S. l/ O4 v
RowBox[{"(",
' }) M1 I9 L0 g: `; o RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", 7 g2 @0 @% e# b1 k& ?0 C
SuperscriptBox[, @+ C0 N8 G F0 B
RowBox[{"(", 8 w1 _9 l* W1 T
RowBox[{1 `! N, j0 L8 e+ B& t
RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", ( z) @2 \& Y+ w0 J2 ~! T. S6 q9 `
SuperscriptBox[: L# \7 f" Q" T. k6 |
RowBox[{"(", 8 l8 Y T0 W. n8 ?; X; k2 y
RowBox[{
# \2 C; N) h/ w8 t: W" E6 b3 G( e RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", & n* @9 F# g c3 W
SuperscriptBox[9 o3 S$ J0 e; K b, D' D
RowBox[{"(", 5 T( X* m- B& R) ~
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
8 Y9 C: O+ x) R( A. E+ o) { SuperscriptBox[6 e5 a. I; }- b; T
RowBox[{"(", 5 d8 `5 `" J% D2 l% i8 W; T
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
6 y% m0 `1 s5 F/ L g SuperscriptBox[; n1 U+ p7 h4 S! U. A( n: y
RowBox[{"(", 2 j& P; n4 c& e" J
RowBox[{" m* {. t3 f) @0 z% e- I: ]+ H
RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", * R- r5 q8 x/ z& J, X
SuperscriptBox[ r. }+ B% y0 c
RowBox[{"(",
6 M" |# s. R9 G, Y5 _; W; _: N RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
1 x2 d$ o; m) r! }, S7 r! U ")"}]}]]}], "-",
. w% r9 m. i( i: J6 d RowBox[{"0.10599338351843157`", " ",
3 W; Y: E/ D% | SuperscriptBox["\[ExponentialE]",
" z- ^. x) ?) }$ g' c% Y6 d. f5 m RowBox[{"3.141592653589793`", " ",
" S% N- H9 V' H0 Q6 E, u RowBox[{"(",
7 c# z- X2 p8 Q; [ RowBox[{0 n6 I" i3 p8 q( q
RowBox[{"-", ! Y4 C1 V# b) a' L
SuperscriptBox[$ G2 W- h5 A' Z/ ]: f
RowBox[{"(",
! b5 g* N# N- f! @1 t" g( D t' s RowBox[{
" L" K* H9 ^, B1 M1 K& Z RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", 2 c1 [. ^( |, H9 t! }6 g+ d
SuperscriptBox[) k1 R/ ~/ J7 i( [
RowBox[{"(",
2 U+ Q/ F m) x# u! K+ L RowBox[{
+ t5 i" [" {$ W3 L/ ? RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
: Q! s# S; W" Y" N( \0 m( _! j SuperscriptBox[
0 F$ Y. `/ ]; L! b RowBox[{"(", 4 Q1 l$ A7 D4 F: X! k+ j6 G
RowBox[{
- ~4 y) [, V0 ~ h, ` RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
0 M. w1 t2 w8 a( \8 _5 e; Q% O SuperscriptBox[
5 M" I4 ?# _0 W* {. K9 i0 h- C0 D RowBox[{"(",
6 J5 Z# e3 x" T2 T# s RowBox[{ w9 P) d( X& |' e7 y/ N1 g
RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-", * Y% T5 ?% H( D) R
SuperscriptBox[
; l8 w* E% l) i6 a RowBox[{"(",
7 M \) S, O# W RowBox[{2 j+ ~/ w- d, Z- t) E8 N4 l2 v
RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
R& o' V7 m; U7 M SuperscriptBox[* t! A: M' e3 f1 W9 L
RowBox[{"(",
m$ J6 ]5 I0 E* W1 @! I RowBox[{' Z9 s6 U: F* X; }3 j( Q3 l
RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", 0 z! E2 V$ R' f2 K8 b
SuperscriptBox[; {$ j$ Y. {2 ?) E
RowBox[{"(", $ v9 |( h4 H1 `% k
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
8 q9 w8 C: I: m5 ^* x SuperscriptBox[
$ J+ T1 ^4 G5 v RowBox[{"(", 3 j2 |/ Y- [0 r" g1 z
RowBox[{# _/ W) }$ z% K
RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
& v! c( w0 N2 t& m+ K& t% \/ z7 L SuperscriptBox[& s0 h2 M" Y2 ]* f1 g/ G
RowBox[{"(",
8 k9 C Q- ^, J4 ?& E+ R! o; Q RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
) z0 X7 b5 S. {8 \ ")"}]}]]}], "+",
% d! a7 r9 {- h$ V) w! Q* _ RowBox[{"0.500820838606441`", " ", - E, \( D: Y; `: N8 b1 j, a
SuperscriptBox["\[ExponentialE]", 9 W9 @5 K5 ]3 D$ L/ ^
RowBox[{"3.141592653589793`", " ", ) T1 |6 n4 g1 S! | o# h5 X9 h
RowBox[{"(",
p- _) W% j1 U* y* q* L/ {9 x: [ RowBox[{% O0 V D* c; k, E a9 \/ [
RowBox[{"-",
: L& b: U& S/ a z SuperscriptBox[
' h3 S' X6 C1 T' b* M RowBox[{"(", ! K8 V6 A | M/ d N
RowBox[{ r7 y1 Q& Q" m7 T! N
RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", & }" n& w; z' Q& V( |; s% O8 G
SuperscriptBox[* M/ M9 _6 |1 _% t6 B* N( t
RowBox[{"(", 4 e. \- D: R6 x. i! T* o
RowBox[{
3 E# r, H& F! l4 s$ L7 R6 r5 l RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
4 o; t8 M/ m0 Z; M+ K6 d SuperscriptBox[" B% T& N, F" E8 `
RowBox[{"(",
- j3 r1 N0 f7 ]- ~; \5 m1 D2 ` RowBox[{
" h3 T+ g9 l) L0 z7 ~1 S RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", 7 b/ |, S# H, k% w$ m
SuperscriptBox[
& c X( z. s6 d& B4 n; `8 a% e+ { RowBox[{"(", ; i# ?/ m& E( q) E. `
RowBox[{
2 l0 Q; k9 F2 v RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-", " y4 S% |0 G9 h8 f8 m+ Z
SuperscriptBox[1 K' d" V! P! u5 n0 H6 O4 _8 U4 H
RowBox[{"(", . |! r ^) Q" n4 N+ x! ~
RowBox[{
3 d0 [ ]# c6 v RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
3 R& D. `/ j; Y* E9 g0 T5 m L. o SuperscriptBox[2 [9 e% h( y/ i e! m
RowBox[{"(",
9 o6 D6 o, I1 ]0 f1 c/ \$ S6 H: x RowBox[{! K* F3 {0 f' T3 m/ I4 q8 y
RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
* S q. ~% z3 R) @2 r8 }5 _ SuperscriptBox[
7 m" y$ n3 e+ M6 t% B' Q RowBox[{"(",
& C8 x0 n% M0 y0 L; B' { RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", / e( W3 t0 S1 ?0 a' c4 o
SuperscriptBox[! l5 a/ A& N+ c* M
RowBox[{"(", - |0 u4 v7 r) O0 Z+ S4 q2 s
RowBox[{
3 U' x* |7 j% ~: q RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
% W, |' V+ T' ]+ ^' q# b2 l+ ` SuperscriptBox[
) p; T2 g8 M, p% m1 b RowBox[{"(", + k- K0 p5 s+ P: `! B
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 0 u$ V& C: z$ L( c( _+ L( o
")"}]}]]}], "+", . n) Q4 ^' y4 r& Q, Q: P
RowBox[{"0.32564305572552416`", " ",
' ^6 y A2 P$ K# [( T: F0 N SuperscriptBox["\[ExponentialE]", ) j% Y6 j/ ?% y8 b5 Q: [; t
RowBox[{"3.141592653589793`", " ", ' I+ Z# a1 ]4 o6 B9 ` ~1 b$ g1 b
RowBox[{"(",
! @$ A( [8 y0 @6 Z! h RowBox[{
4 M: n- z$ [1 ] RowBox[{"-", " L. Z. X1 G1 T1 J
SuperscriptBox[' o! l: n2 p+ ^; [4 N
RowBox[{"(", 3 m6 B5 Z/ Z. f' ^4 ^& e# S; x
RowBox[{
* U3 B- R! s/ {# l/ H/ { RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", 5 ]' h2 B; A/ H$ V* y- A
SuperscriptBox[
! y& |0 A# O" Z" ], b G RowBox[{"(", 4 U, G( }, \: ], Y5 m
RowBox[{
# E/ G- ^( M7 S! a& e3 x+ P RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
3 C3 P! G7 F; L2 ` SuperscriptBox[
' M- b5 @2 f4 J: F8 ~ RowBox[{"(",
: ]! P" d- L( o" o! B RowBox[{
% i, W& L+ ?$ F* ], | RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", $ `7 _: z, ~. C& R, M
SuperscriptBox[
1 F" V/ J g$ S* [. R! p( n RowBox[{"(", 3 F; D: c3 u) p1 V w
RowBox[{3 ?9 e5 K* y' V- [
RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
+ l( ?8 F! B; }9 f, C) l: G# @ SuperscriptBox[
9 s* `/ c0 [& [ RowBox[{"(", - b9 J- w, w% Y9 u2 W
RowBox[{
7 U7 t- v5 S1 c2 k RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
/ z! s8 e4 c/ q8 e/ X$ }2 z% q SuperscriptBox[
8 ]. }1 K& Z# y* V2 m0 b' j: |# m RowBox[{"(",
3 Z2 C$ Y- W* K2 Z RowBox[{4 u! e: z' |! k: {6 u1 X
RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", / X9 {1 @6 s3 ?9 R; F: Z
SuperscriptBox[
9 N% }! N2 S* i: o, W RowBox[{"(", , }" K2 A. x1 G/ k
RowBox[{8 A9 n; i- S6 ^0 |& k& B; p$ ]; U$ D
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", 2 @& B+ O3 u( q0 ~8 p
SuperscriptBox[* @& L# J- m0 J; [* f
RowBox[{"(",
9 }' z! ]8 [! v/ w RowBox[{
6 B; G4 h( h. k! A" B+ M$ {6 W# J RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", % K/ }8 J+ J1 s5 ?! E3 q" P6 o
SuperscriptBox[# V1 _" E K M8 u5 I7 g
RowBox[{"(", \/ g2 z7 i; y* U+ b+ v7 A1 c
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 4 [, a" n. K* r
")"}]}]]}], "+", - ~# Z/ h9 a6 h0 e6 X I6 [' B
RowBox[{"0.6665374509702799`", " ",
: t* B5 y4 K9 O1 A SuperscriptBox["\[ExponentialE]",
o0 [9 P: U" E; R& d4 r RowBox[{"3.141592653589793`", " ",
' c. w2 g8 S7 v0 _& Z8 X: j RowBox[{"(",
. q. P/ Z$ [% q# K& X2 \2 Z) [ RowBox[{+ m3 }! e: }- P& @
RowBox[{"-",
' O- } e' ?: D x5 z' ~7 |! O4 p SuperscriptBox[6 @- h3 i5 ~/ u! {" f3 g6 C! {
RowBox[{"(", 5 s+ C3 n, O$ }6 V9 c4 L0 w" n
RowBox[{; p* _$ `. I; I( l7 m
RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", 2 x: X& K7 {$ X- F# l# D6 K
SuperscriptBox[
( }& ~; M8 M' p, @+ O RowBox[{"(",
3 ~, V1 ]0 v9 N9 J" p/ W, Y/ e RowBox[{
* Z5 X' X. d9 f3 H5 e RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
" J" Y, K; j, Y0 l) a+ C5 F SuperscriptBox[
" n$ D: @- K' \$ g' l" {7 D/ m8 { RowBox[{"(",
1 [8 U7 |. c. ?5 ~; ?, v: k RowBox[{
4 ?- I* u9 F' x; j" R6 L7 {. A RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
0 B/ f, ^' q" S$ j: I: p3 A" V6 d8 q" ]* | SuperscriptBox[
* S) x" a9 L, E RowBox[{"(",
8 R! Y' n* |8 m3 Z% j" } RowBox[{$ p9 j ?1 y$ O' t/ W1 c+ U/ n
RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
9 @, r4 F8 Q( l SuperscriptBox[
2 u$ Q6 [0 ~; E RowBox[{"(", ) ?! f$ j! J5 v" `9 i
RowBox[{
* i) N6 }. H o3 H! x9 z RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
5 j6 @& w( @* C) q' B- t0 ` SuperscriptBox[7 H3 s c Y, _4 Y
RowBox[{"(", 8 L9 O y6 |* ~. j& q. {
RowBox[{+ ]& o. A! @) { }6 @2 L; d
RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
$ w! ^" ]( ~3 {4 {' v SuperscriptBox[- T" G+ G/ _2 g9 k7 e
RowBox[{"(", 1 j) ^ e- j, U9 G; ?3 m/ `
RowBox[{2 Z1 V; b* P9 n5 I6 ?# j
RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", / |0 ^% y6 X ^3 W' j
SuperscriptBox[4 h6 `$ o O+ W1 s O& ~& o
RowBox[{"(",
( J; J F: i( w" z' e/ q% i RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 5 R# v0 K# a# E) U1 K" v8 t6 l
SuperscriptBox[
6 F8 {& ?$ L2 l! D RowBox[{"(",
9 ?5 R4 C, N9 O# q RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
6 C& M- v2 [4 T9 ^; Z' O ")"}]}]]}], "+", 9 Q+ Z$ ? w4 n' m9 s0 @
RowBox[{"0.4812237524557292`", " ",
, g" n& r4 j/ y# m7 Z+ A/ r: o& c SuperscriptBox["\[ExponentialE]",
" ^8 w3 J1 m6 ? RowBox[{"3.141592653589793`", " ", ( F2 a( ^/ ~, j) }) j& w
RowBox[{"(", : C, }+ K: b; `" ]) Y& I8 Q
RowBox[{
3 G t7 \& v6 n3 r RowBox[{"-",
- j8 s% K* ^% {- w# N SuperscriptBox[7 t$ J& _ L9 [9 K* w% V, h( T
RowBox[{"(",
8 z7 A. {7 _. R* k: S RowBox[{
; } E# F, K) i* Z) I+ s9 U RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-", ( O3 v7 R6 o" e' |% _8 E/ ]) g3 _
SuperscriptBox[
# q6 _ v# ]0 ?: u1 b RowBox[{"(", 0 j* s+ @' c9 P$ {9 [% |
RowBox[{" H1 j! A& y! m& @
RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
" K4 h$ q, p, K. l( o, Q SuperscriptBox[1 x8 p3 l' U) P# N0 z+ S
RowBox[{"(",
& [. ~/ B, Q+ f/ | RowBox[{! O( J% n9 [: ?$ i s
RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
* s, f4 Q2 v% C6 |0 s% A8 s7 S% t SuperscriptBox[+ j: @# J4 p z" b
RowBox[{"(",
4 O1 S% T' M7 i6 ?& \, T. F6 Q RowBox[{6 N4 X3 W5 d4 H" t( z, c/ F7 _. K/ J* ~
RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
- f" S1 ~+ m' f8 C6 @2 a SuperscriptBox[8 Z0 `6 J( l" W4 w$ ^
RowBox[{"(",
% y0 P& y& n9 K3 w3 q+ P RowBox[{
5 @9 z8 A+ `4 U' A$ k! a0 W RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
2 v# y; p' u' G& f SuperscriptBox[" h. D7 Q( N1 V- E r4 Z
RowBox[{"(", 1 ]1 d' K1 ^+ g; ]. T% ^- ~
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
- P: a8 H- t* t7 w r SuperscriptBox[
5 l7 N% r- d( H) I0 d: Z RowBox[{"(",
' c+ b- F% n; @5 V" ^8 p& H3 r/ s q RowBox[{
. I9 t) M6 ]$ C' p0 n5 |# R RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", . x% `8 ~9 u- I
SuperscriptBox[
+ }2 }$ }0 \: ` RowBox[{"(", + e" T: V4 k* p) U n3 L$ T
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 4 R9 ~0 p) {% M4 ?( t u1 T
SuperscriptBox[2 G2 M% c" T# r L( |
RowBox[{"(", 4 M$ Y0 d6 A/ r7 `; |
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
! R F/ A# w- G. f: i& C0 E ")"}]}]]}], "-", 7 @, s0 v& W8 S% R* i$ \3 T
RowBox[{"0.17602467625404622`", " ", ; A$ L9 I) p) ~; j2 ]
SuperscriptBox["\[ExponentialE]",
7 H( P, A2 {. T- K" T$ `! U1 M7 K RowBox[{"3.141592653589793`", " ", 6 Y r7 K7 n9 x8 H2 ?2 [) P# Q7 T
RowBox[{"(", 1 @1 ?7 q5 }) b/ U, d5 ^
RowBox[{
+ q; Z- x. t4 E+ x RowBox[{"-",
. m I' g2 k y$ D$ S) ?' M+ h/ l SuperscriptBox[
+ x! Y1 r5 X4 d$ R) y* y0 W2 T. F RowBox[{"(", # d( _5 T7 [" P& B: m
RowBox[{$ A4 y5 ?5 U7 [
RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", ' x. J& Q) r2 {) H
SuperscriptBox[+ m$ j4 Y% Q* C) w) }& Q
RowBox[{"(", ! D3 _. ]- N+ w7 q/ [9 N
RowBox[{
& G& B: ^. I/ n1 ^ RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", " \2 D4 `& K' @5 ?/ I
SuperscriptBox[
. U5 B' e0 E: D% Y( ]8 q$ z$ h RowBox[{"(", . f' S: f- W7 f) `
RowBox[{0 s3 S2 y( u( A9 V0 b3 u' |
RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
0 O9 c! W0 ?/ |4 x4 `, I1 e& j: B SuperscriptBox[
6 A- a. x$ V/ w) t+ ` RowBox[{"(",
+ u) K* d E' e! R RowBox[{) f: J l' H: G/ h+ n4 r
RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
/ |9 w; w5 b8 v* Z& T( H SuperscriptBox[
8 S( E4 _5 u. A8 r RowBox[{"(",
* d8 f3 u2 v3 u! A/ F& U* ^/ C RowBox[{' R+ X' Y$ }9 H
RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", ; H0 }4 o& V2 a. m
SuperscriptBox[& T ~, t( C6 e: w G
RowBox[{"(", : c! Q) j' V3 ~; K+ c( C
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
; H7 [, N2 W2 _ SuperscriptBox[- u1 m7 w; [' Q' w
RowBox[{"(", / G% m+ ~5 q0 G: R+ ~
RowBox[{
4 J3 G( M$ h! R( K& G$ s* Z RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", 2 R) f2 {7 T- e3 ^/ o
SuperscriptBox[, @# W! _8 o3 [0 N8 f
RowBox[{"(",
* a# \, l9 L9 I; P# _! j RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
7 N) v5 y7 N) J4 ^. E SuperscriptBox[6 e+ N. u. i: j; t, I
RowBox[{"(",
$ g6 D* k5 W( t" j0 D1 W/ f RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], : C I/ f8 X2 C! V3 _
")"}]}]]}], "-",
9 I/ H5 r) Y7 o. L" w' g' Y k; u RowBox[{"0.5945873894818967`", " ",
" Z1 [ z( [% q2 J8 c) ^$ }' ~ SuperscriptBox["\[ExponentialE]", 1 F9 o+ Z' V- q) y( z: F
RowBox[{"3.141592653589793`", " ", 9 T8 ]& n( E' x& q9 X
RowBox[{"(", ' u4 {- a- [8 k* H r
RowBox[{
' v' V( s. r+ k RowBox[{"-",
! E/ g9 d% G) S# o' a SuperscriptBox[
( {& ~* i. e4 G# `' M/ e RowBox[{"(", 9 v; R$ y" ~. o' E Y* {) K
RowBox[{
2 l9 L J) b" S$ O, o2 { RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", 9 y6 r5 B+ i2 [1 J" ^
SuperscriptBox[
6 {4 D) E4 L3 ] RowBox[{"(",
9 Y, H0 ~0 z: h( e. T RowBox[{
: W$ P5 T% E! J1 E) v0 g4 t" v RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-", ; Q+ {# g/ [& q" n) g6 t8 v: X! n
SuperscriptBox[
# n5 H% Y1 M! v+ i Q3 } RowBox[{"(", ) J) m7 J! b+ z3 n) J9 M$ D, H& h
RowBox[{
9 A ~4 V+ m: Z; p3 a RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
* ?* F3 b) \( k; N" ? SuperscriptBox[0 w9 `+ m9 k2 g* j/ ~
RowBox[{"(", 2 ^ ~6 |9 p) c0 t8 Y
RowBox[{$ L v7 ~6 B G3 s ^$ q x3 q
RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
! N; }' h B& \3 f& M. u% ^# b SuperscriptBox[
2 v- f" w S% @5 _- v7 ?' m9 v RowBox[{"(", 0 ]$ Q" A7 l. E' ~5 I5 d
RowBox[{+ ~! ~6 e e( @. D: K, H/ @! _/ o% ~8 [; X
RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
! Q( K% d0 U) B2 Z: T$ z$ Z# \ SuperscriptBox[% N- c& O6 ^, E) L
RowBox[{"(",
! a% d+ E. ?7 H* c* I RowBox[{$ w3 E9 x7 z" J/ v( g
RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", 0 q% E2 d- l( {6 g& J v/ ?, |
SuperscriptBox[
y. A C0 q; i% P2 ] RowBox[{"(",
* O0 A- s; Z& @. W+ _ RowBox[{
4 F9 P0 a; o5 @7 |4 u RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
K7 @- `8 Z6 ~+ N+ o& ?* O SuperscriptBox[ N7 d3 @ T8 Y R
RowBox[{"(", 6 f% v" N6 u! q) H: t, n
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
+ l& @8 [% W0 C% P SuperscriptBox[
( t" w9 m9 Y ? e! p. u8 u RowBox[{"(", 7 t* w: `' |* n# H/ R% S' K9 c7 `
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
q( j3 y# A0 R9 u2 q ")"}]}]]}], "+",
2 z, @+ R( B( P( c RowBox[{"0.5252475961933538`", " ",
6 G- A! o9 Y9 ^- U; S8 L SuperscriptBox["\[ExponentialE]", 7 m7 s& a" e7 T& }; H% K
RowBox[{"3.141592653589793`", " ", 0 Q w: {' x" X7 _3 v: T! |! X
RowBox[{"(", ; P) F9 D" \5 E
RowBox[{
2 y+ b4 O2 c; y" Z, A7 e, [5 O RowBox[{"-", : W, v) R' U" |- c n
SuperscriptBox[
$ P6 c$ [# x" A1 t( b0 y RowBox[{"(", 1 Z5 e6 \+ Z8 O* I: C
RowBox[{
8 j: m! F) D" y* ]6 H" h2 V) Q RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", C8 b. u* m* C6 U) G% ~
SuperscriptBox[
0 w9 k& k4 Y% p* y RowBox[{"(", # w/ X4 E8 x+ U
RowBox[{# g0 y" a6 Q! Q' y
RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-", 5 b' k: R$ B) S
SuperscriptBox[% `% T ]( @$ z
RowBox[{"(",
0 z) z$ M' e8 b: u% [# z RowBox[{
( }/ f; r9 f1 g, i RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
& M Q6 v* a( I SuperscriptBox[0 G0 L- t$ \ {; D- f8 t
RowBox[{"(",
. b' I! g3 s, U" J8 J RowBox[{
7 |- A- k9 K) d- T- x2 h RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", 4 M3 _8 y& W* ?/ z
SuperscriptBox[1 y5 g! ^7 j; ~
RowBox[{"(",
) ^- L& n1 V' @$ \! I" Z RowBox[{( @( r, U! R* t9 c6 j$ ]0 y" b! m% F
RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
! p$ G6 \$ w. c SuperscriptBox[: l/ Q, p. R9 ], t0 R! H8 D6 x
RowBox[{"(", 7 Q+ q6 D1 @# h( O
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 0 Z9 T" U# H/ V& j# y0 P
SuperscriptBox[! ~9 y# u, c; N6 p z
RowBox[{"(", 6 S6 E- Y V D; Z% c
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", $ @/ l. y9 @/ X% n1 e
SuperscriptBox[) F4 C7 f' E: F! p% e+ z: z& S
RowBox[{"(",
' b2 |7 e* }9 x8 m: Y/ I RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", + R: [5 b# g" l$ I8 ]
SuperscriptBox[
1 I S$ p4 s5 J2 l( i5 R RowBox[{"(", ( T d6 K b. I8 n
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], : F: F" g1 o% D( I- F6 ]% a$ G7 w" B
")"}]}]]}], "-",
# ^# b' F& [9 j RowBox[{"0.320472847796449`", " ", # {( C$ @4 X" A* f" ?4 a
SuperscriptBox["\[ExponentialE]", 4 w( \) W. b3 r# C$ w2 e
RowBox[{"3.141592653589793`", " ",
* V; B# i* Z! M/ ? RowBox[{"(",
. `$ p: c2 d) I) ^* w" P) D RowBox[{; Q2 Y! U0 {1 K. H$ `/ q# J
RowBox[{"-", + p2 t5 e+ Q' y, t; u3 z- V; D
SuperscriptBox[
% N5 }6 ?. O) ^3 ? RowBox[{"(",
5 A1 {% \8 ]' C2 X, G5 o+ x; E4 ~ RowBox[{
h; C8 }9 l0 G! V- n* D- y5 R RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
9 Q# t% C$ W" o9 B SuperscriptBox[1 V' s& J/ r$ ~! I u( U" k% z
RowBox[{"(", ! @% ]! w+ t, X1 V
RowBox[{/ k7 Z: b# x8 Q) `
RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", 7 O+ S8 J9 G* s! q7 ^- L
SuperscriptBox[
- e+ h9 M l( N+ T; @ RowBox[{"(",
5 o. p* D" N" q- [7 c% z* b RowBox[{
' n5 K( w9 F+ _4 ?9 | RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", , i' }7 ^" w0 b2 Q2 z
SuperscriptBox[
' g/ V! F/ Q2 \( Q, f RowBox[{"(", & ^# |/ {/ b. R* H' Y* T
RowBox[{
) I k* o; v% G1 `3 z2 c* L RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
+ C; e- C# h# j SuperscriptBox[, n3 Z X7 g3 ]6 d3 j$ S
RowBox[{"(", 5 y3 v5 h# d% H+ J& Y6 c* h6 Q
RowBox[{! K: x3 ~2 z$ {+ F/ ~
RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-", C( W9 M* A+ V8 f
SuperscriptBox[0 N) {: A4 M) G, }
RowBox[{"(",
% v1 _8 U, \2 d0 d5 b8 D8 D4 g RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
x1 k+ F+ O# P$ v$ F SuperscriptBox[
1 x2 `/ u$ j9 b) L0 V% F6 x RowBox[{"(", 9 w) P9 F/ ?$ s0 Y) X
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 1 j! G1 {0 {+ F7 x" v% T+ _
SuperscriptBox[
( I- N; X& q3 f- A RowBox[{"(", 7 W% g! m7 Q' N- W
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
7 C% [; ~+ a% d7 {5 [ SuperscriptBox[! U2 F3 V: V; y2 q
RowBox[{"(",
+ _2 M a2 G" Z RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], & v+ g* C7 d1 k# V" |
")"}]}]]}], "+", ' @) {- A0 K/ l8 s( s3 {- W
RowBox[{"0.7528674241482847`", " ",
) |9 Z1 C9 T& T SuperscriptBox["\[ExponentialE]", " F3 K: I& y$ [4 M
RowBox[{"3.141592653589793`", " ",
; u: E( Y. [. K9 {% I0 S1 m5 ? RowBox[{"(",
6 {! `/ Q) _0 ~! X& d- J' } RowBox[{3 b" K* I$ {' W- S7 k
RowBox[{"-",
# r* h0 C; A9 B+ w* B& G0 {' g SuperscriptBox[
! Q8 l" E) N6 s. U1 A, G3 g$ | RowBox[{"(",
2 t4 m, @& _/ V! R* v7 A! K8 D RowBox[{
* ^1 K+ i) _4 U3 r9 w RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-", % t) z; U7 q, C: t% t
SuperscriptBox[
* O( q" x3 |7 y* f RowBox[{"(",
, C6 J9 q8 p- F+ h, b+ _1 ^+ M RowBox[{/ o6 v& A. C k
RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", 7 a$ G$ \# O" e6 ^8 G
SuperscriptBox[/ v3 p {! J* J" v# }; H" q- H) a
RowBox[{"(", : t/ ?. m. q( B _) t0 q) w3 j( r0 ^
RowBox[{) d. @! Q) L0 ~* w4 z, _
RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", 4 M' @8 E- p0 |) C- p
SuperscriptBox[
U) q1 S. F8 a7 p3 u4 d) O8 ? RowBox[{"(", 7 g/ V4 ?( f6 P6 K7 k9 Y8 t
RowBox[{1 |. b& P. X9 Y# ?
RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
q# f# t# r6 o2 o7 i SuperscriptBox[4 k! \4 L9 Z" P9 s
RowBox[{"(", ; i% O/ S1 c* ^4 ^! d: F7 W* l
RowBox[{2 I' X8 Q) D) W' B" Q# ]- j3 ]
RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-", 3 r }' C* x& |, i$ L K
SuperscriptBox[
8 f8 w& ~" x1 ` O RowBox[{"(",
" | A$ E5 U0 k4 U8 S RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 3 }8 A( B2 ?3 w( y0 c* X
SuperscriptBox[; _$ p( r- }% _+ [7 R/ A$ t( l
RowBox[{"(",
7 C+ m) V; H) r+ F RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 4 Q4 L, P/ j& x* \
SuperscriptBox[
: Z9 |, {# A9 v& a N; E, B RowBox[{"(",
- }5 F- J. t5 s. T6 k( Z$ @ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
. N% Z7 J6 X* w SuperscriptBox[9 R0 `; y5 S% ^& h% {* E9 q; L, p
RowBox[{"(",
1 E% l1 N6 z' q9 } RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
0 O/ _* m3 h& N9 f( ]( ^+ t( y3 @ ")"}]}]]}], "+", : n+ \ u. u% b% F' o
RowBox[{"0.02759193650965952`", " ",
( v% r N: @" @ SuperscriptBox["\[ExponentialE]",
2 R6 Q1 g! m5 r RowBox[{"3.141592653589793`", " ",
/ n+ H- G' `5 Y7 g RowBox[{"(", & |9 h; Z. D/ v4 R$ k: m
RowBox[{) M+ | [2 @: ~( |" Q
RowBox[{"-",
# x- z( J3 f7 p SuperscriptBox[
/ o. a. [! T; G/ h/ B4 Q7 F* A; a! s RowBox[{"(",
( i4 O" L& `" ? RowBox[{0 R( o, u: r" w2 ?
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
3 q" \1 p$ d, ?& k SuperscriptBox[+ X; b( q2 q2 D' f) T
RowBox[{"(",
* S/ L1 K8 r, {! {$ v3 ?5 H RowBox[{0 U3 {+ m N7 Q( a) `3 T
RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
- a2 C2 _; V5 \8 b+ @ SuperscriptBox[4 d) ~( I: h- X5 b0 Q! e
RowBox[{"(",
/ t s2 _9 ~) v. }, H2 w RowBox[{
; f8 B1 C( Z J* h RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
$ g1 k; Z: Z2 ^ SuperscriptBox[; `3 g7 I) p; C! x
RowBox[{"(", # T& H! d* f9 ]7 s. g
RowBox[{9 u3 v4 X- n" r& R8 n. A
RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
6 Y$ B' B$ w" N5 N4 @+ f8 T2 w SuperscriptBox[
/ E4 _# J4 E) j* d8 R RowBox[{"(",
9 k; Z- Y. O+ D- t RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
* Z( E) H, ~3 c% H4 j; M( t SuperscriptBox[+ U6 w) h. N3 M' Z9 Y. L
RowBox[{"(",
1 ?9 Q. G; O% t& n c RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", $ H% T$ f) b) l
SuperscriptBox[5 P2 I, \( r! w5 [
RowBox[{"(",
1 w' ~' h6 R+ K& o2 g' H RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
! _# K/ J) \' {2 ]) Z' Y2 | SuperscriptBox[$ C# E, j, _ ~- ^0 r+ o8 X1 B
RowBox[{"(", ! B! c8 d- F; Z6 K* m+ A$ z u
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", " g; L2 p1 i/ \0 T# i6 |
SuperscriptBox[9 i2 M2 l! a; I" v2 }3 v
RowBox[{"(", ' E: l0 R& t2 r0 s9 Q! ^
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], , A) r9 a6 ~4 f" e9 X3 c# P! b8 N
")"}]}]]}]}]], "Output",& z, G( j% k: `3 ?
CellChangeTimes->{3.577924759875*^9, 3.577924921203125*^9, 6 e% E8 D) e% G) R2 R$ s' J
3.57795759203079*^9, 3.5779589554964056`*^9, 3.5779621253913965`*^9,
- Z; O: W0 u& a, B# w/ r* P- p7 r 3.5780123515625*^9}]# a( {7 G: N, a4 P* f( O
}, Open ]],
4 A) W! H7 U1 S, m( k! C5 `
& s+ C* S9 ~7 o0 j3 sCell[CellGroupData[{
! F2 d7 |2 w y/ r0 f& z
- G( P1 B1 @9 O9 {; ~ i/ e+ OCell[BoxData[
* v3 f9 A. ?+ k+ m/ z RowBox[{"y1fit", "=", ) [! l3 E3 j3 d2 ^6 g
RowBox[{"Table", "[", / \7 b8 v8 x H! H2 u
RowBox[{"x", ",", 4 E, u3 D) O. \: p! k+ X8 D
RowBox[{"{", & p+ L) X X+ ^- R
RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
$ |' W2 `2 f' c* o1 C. H# D CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {. `: g# J B( c9 a$ j' Y# `, {
3.5779252768125*^9, 3.577925277484375*^9}}],
; _$ `, u/ O% T1 q9 C1 z0 K$ b2 m( G- m. E+ {( I% j8 \) _' r
Cell[BoxData[
6 U, I3 `! p# q* R/ Q5 m RowBox[{"{", w7 X/ ~ e3 r- Q9 l* y
RowBox[{
5 N* `7 E. Y1 p "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
) U! Z) u) _% i( X( t2 Y ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
5 T+ U6 n& v# v1 `8 O ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", " p- t0 P0 A" R9 V
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", , T* U4 v# S' B( @4 J" |
",", "29"}], "}"}]], "Output",5 e# N9 U4 j! d- f. @2 g) W
CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9,
8 Q- K6 }9 O, V- ]/ }4 j 3.577957594916795*^9, 3.5779589579612093`*^9, 3.5779621294942036`*^9,
8 N1 p) F0 K9 P9 @7 q 3.57801235340625*^9}]% n) o, R! H" |
}, Open ]],
! E( J4 J' R) @: B; h& `" x- z/ Q6 `- k& o: }
Cell[BoxData[
8 a5 C; h6 c" O. a2 W0 g6 x RowBox[{"For", "[",
5 `6 w7 |% H* j/ H! o3 Y RowBox[{& A' C X. T7 v4 N) D% V* b
RowBox[{"i", "=", "61"}], ",", 6 a5 M( |8 R& a5 @+ i
RowBox[{"i", "\[LessEqual]", "89"}], ",",
- D: v7 M M+ ~ RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
& z/ }% r4 z' N6 H1 a2 m RowBox[{
8 I0 B4 ?- K+ I RowBox[{
/ A4 }) G7 f) y8 C. u2 D4 S" K2 c2 N RowBox[{"y1fit", "[", ! X3 {; |7 E) A& r& l
RowBox[{"[",
$ a% c. S0 i1 q1 G RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
9 t, g8 m* Q1 [4 u0 k. F7 \3 c RowBox[{"y1", "/.",
- n- U* h' Q8 }" t/ P RowBox[{"{", ) c1 C0 \% I) ~; k
RowBox[{. O5 r, O8 e$ y
RowBox[{"x1", "->",
8 K" b L5 ]3 c2 L9 M1 l$ [ RowBox[{"Data", "[", 1 r. G2 m( ^/ O; ~
RowBox[{"[",
: q$ U8 e+ U- k# @1 m RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ! d$ h. M9 d9 M* q7 i4 ^8 ^1 a
RowBox[{"x2", "->",
) C! y6 l9 V' F+ a/ G RowBox[{"Data", "[",
, v9 A, }' o0 I/ k2 R4 c0 z' K RowBox[{"[", * W7 x& y( C( t7 K4 Z1 w" B
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", " ^$ Q' Q# X& R1 ]( ^$ u
RowBox[{"x3", "->", 9 T7 A# P: O6 q s
RowBox[{"Data", "[",
, o5 `* o7 C, w% s8 x RowBox[{"[",
, X0 S" Z7 h# D& [ RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", " |2 ]3 s/ H1 ?$ V0 m: ?6 U; X
RowBox[{"x4", "->", ! G& _2 c: P* i
RowBox[{"Data", "[",
# ?( c" f# \ Z RowBox[{"[",
L9 w! x) T4 ?( a1 k% m0 Q RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 5 u$ l5 u. q# t
RowBox[{"x5", "->", 6 K `- H. Q% j! f+ a; Y) Z
RowBox[{"Data", "[", ! Y* [1 ] g' F" }: P
RowBox[{"[", 3 `& e* D9 P! h% Q+ y/ j
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 5 B" g, A$ B( S
RowBox[{"x6", "->", 6 w0 y. r% H0 j3 c [( M
RowBox[{"Data", "[", 8 }- F. Q f0 J7 E& F
RowBox[{"[", # t% c5 _. l5 E6 t, p7 {
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
# K' {- s; {3 [- B, P5 b RowBox[{"x7", "->",
+ s+ a, f. U5 U RowBox[{"Data", "[", & P, S9 b( _" z- x1 h- P2 p9 _, a
RowBox[{"[",
6 m3 t$ Q, J5 H$ j RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 1 X2 ^8 R* z) t9 j. z
RowBox[{"x8", "->",
1 j; C9 D8 O' p% t7 \ RowBox[{"Data", "[", : r* k/ q4 u% O: c; X8 r* ^
RowBox[{"[", ) n" T# F' S% N
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", + w& h) V1 t' M8 `
RowBox[{"x9", "->", % ?, \1 v. }; u d
RowBox[{"Data", "[", " J) ?+ k$ d4 F5 E$ a0 q+ Z% g
RowBox[{"[",
! }) e, @# t( z5 @& Y) B8 E1 Q8 g RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}], ! L3 S, F h; S4 m. k5 d
"\[IndentingNewLine]", "]"}]], "Input",( x8 E" G3 n) e3 R- N
CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {4 |, \2 p0 x l6 Y1 C" [/ R6 m
3.577925286140625*^9, 3.577925306765625*^9}, {3.577958922517948*^9,
( j) v; K7 q; Q0 C, L 3.577958922549148*^9}}],& p- q) T7 {2 W3 Q2 o: Y, Z- y- l
# |6 W, D! J6 C+ m; h
Cell[CellGroupData[{/ B. e! N" ~* F1 c8 L( t
! Q' M2 N2 R( S
Cell[BoxData["y1fit"], "Input",
; Y/ z ~" c5 q, s CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {' J6 n2 s! n& S' r2 u& X* {4 j1 S
3.577925040484375*^9, 3.5779250440625*^9}}],
9 H( J) Q3 Q( x! x# r8 R* B3 H L+ t6 Y9 Q( A/ V+ `9 Y' P7 R
Cell[BoxData[
2 n$ |* M) r, G8 b% s RowBox[{"{",
9 ]$ h2 g$ E, D; Y5 {" Z# r RowBox[{, D' ^ u6 w/ h! g! d) P1 h
"0.43193416525930517`", ",", "0.4501634853493982`", ",", & {+ _$ U; Q# z3 p& d
"0.33336034768525247`", ",", "0.4418609896858925`", ",",
4 }% b: b5 r; V. [8 b7 R7 O: ` "0.41030378932283024`", ",", "0.516814798191575`", ",", 3 z* N7 T& i8 \9 I) W
"0.4476631213729994`", ",", "0.3016552978696669`", ",", 0 l% Y ?6 n0 ]
"0.378122167437847`", ",", "0.020339844919720733`", ",",
, V3 }& S" `' U T "0.018745375782087376`", ",", "0.2919925992695025`", ",", 3 F2 D; @+ w% n7 C9 i1 `, A
"0.2649067959681263`", ",", "0.16343444284525593`", ",",
$ s2 L' `3 b% |1 h; c "0.4182466778551563`", ",", "0.27347752211364934`", ",",
% g' V! l0 Z# c' U% j "0.38554057386385654`", ",", "0.35253160453718047`", ",",
7 [1 G+ p1 b$ k' d1 {' Y1 ~ "0.2054745841100774`", ",", "0.45504377112716676`", ",",
: d; F* V. j& q. ]2 X "0.1598805094678612`", ",", "0.18662509982279485`", ",", 7 H/ t$ C4 {4 U" l
"0.10684797493248213`", ",", "0.013349212673286828`", ",", ! [+ a8 b% i$ |: A2 n8 f
"0.08215836003004297`", ",", "0.2979041599362813`", ",", , _7 J' I! z$ f) b1 _" ], l8 h8 l
"0.05995976512343641`", ",", "0.3884793499104568`", ",", 1 F& g) ]- ^; \+ H! t- n* z
"0.5361889337034293`"}], "}"}]], "Output",$ K6 }+ c5 S- @) F d& g- g, E
CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9,
: S m( F. ^3 P2 t* t 3.577925312375*^9, 3.5779575978808002`*^9, 3.5779589654960227`*^9, 7 Z: B% \ T% p* \
3.5779621416934247`*^9, 3.578012355546875*^9}]! _0 Q% g5 k. c, A
}, Open ]],
4 [. v3 R9 c' Z( {
0 u9 i' q. }; T4 f {6 E: z2 GCell[CellGroupData[{1 S% |/ C. } r- `4 s. B
* ]) _0 d+ _ I
Cell[BoxData[
8 X4 W) H2 z5 A! K7 [ RowBox[{"y1fit", "=",
' }; n8 f: D7 N* O$ ? RowBox[{"{", 4 m5 n, L( s9 D- ~
RowBox[{
+ x/ Z. X; P# `6 z0 w5 C5 { "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ( w% N, [, N8 m! c5 ?9 d8 t$ i
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) M H( Q- o6 u; y, D
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ' l; J: ^: ]& C/ G+ D! T
",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", ; \% p+ N/ V& o% \
"28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ' d- G$ s, w6 d# y0 z9 y9 D
",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", . T# ^% ~" u, Y% T; T
"41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ; Y/ G4 t, b0 v" {# F$ L
",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
6 U8 i! l( R+ c: f; z' r "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", / x, D+ @& E* d3 Z! `# Q
"0.4319341652593058", ",", "0.4319341652593058`", ",", ' i( W" F; Z7 }7 F$ @
"0.45016348534939865`", ",", "0.3333603476852527`", ",", 3 j9 k- m8 P( W% T7 D* d8 O
"0.44186098968589294`", ",", "0.41030378932283074`", ",",
1 e- z/ P, u' s y, M "0.5168147981915754`", ",", "0.4476631213729997`", ",", . \+ d! r- f; f" `
"0.30165529786966755`", ",", "0.3781221674378473`", ",", / M% E* J/ J! M' o4 g" D
"0.020339844919720775`", ",", "0.018745375782087393`", ",", ! N; b8 i# O& W8 W2 e4 v
"0.2919925992695026`", ",", "0.26490679596812655`", ",", 5 h, p) v5 v% i; \: C
"0.16343444284525593`", ",", "0.4182466778551567`", ",",
5 c. w- }# z; F' E5 @ "0.27347752211364945`", ",", "0.385540573863857`", ",", E2 J. l+ A: K% J
"0.3525316045371807`", ",", "0.20547458411007796`", ",", % n# K* T& s0 \$ q
"0.4550437711271672`", ",", "0.1598805094678611`", ",",
2 B* W. r( q6 i& R5 ]6 Z) J+ J "0.18662509982279502`", ",", "0.10684797493248224`", ",", 3 H( e4 T# ]% N2 G( ? [/ @
"0.013349212673286806`", ",", "0.08215836003004302`", ",",
( r/ |5 c+ s8 W. |7 d! \1 r "0.2979041599362817`", ",", "0.05995976512343637`", ",",
- s" D2 F$ u+ R5 H- h& l5 U "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]}]], "Input",
9 [* H5 E7 k- a7 X5 A CellChangeTimes->{{3.577959701349306*^9, 3.5779597161381316`*^9}, {
. h/ u4 C% l5 \- j \ 3.5779621548286476`*^9, 3.5779621618642597`*^9}}],
1 O' h3 e$ ~, }) K6 v# I0 x! F; d6 K% W' M
Cell[BoxData[# C. G" ^7 ]# `7 ^
RowBox[{"{", , g* w) O4 ? Z# e! G/ n* t% p& h
RowBox[{' W2 S. S. x/ l* B2 `* }; Q* \- E n- y
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ) ^ T; A9 n6 S L8 j- w
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",9 X. m0 o; C1 ^ ?
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
; e- ]( ?7 ~; i2 Y* J" H6 M "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
$ r# P! Z. j" o ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
) ?0 O4 B- W% |; v \* E* w "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
( K, {6 A+ D' O4 k5 G/ C7 P ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", - [2 I3 K+ _1 F* s1 ]8 q
"48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 5 O& O+ A/ R3 m
",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
! D) q, ?: e- R5 s* |7 m* ? "0.4319341652593058`", ",", "0.4319341652593058`", ",", ( z+ p. g7 K4 Y. ], K8 u5 l
"0.45016348534939865`", ",", "0.3333603476852527`", ",", $ t7 M1 {+ g. I! R( l
"0.44186098968589294`", ",", "0.41030378932283074`", ",", 1 |' L; M) U5 e# R
"0.5168147981915754`", ",", "0.4476631213729997`", ",", ; K( G8 d: J$ J
"0.30165529786966755`", ",", "0.3781221674378473`", ",", & o' m% _- |* D9 P$ s, d# @
"0.020339844919720775`", ",", "0.018745375782087393`", ",",
, y7 {; c3 R' s+ Z6 |' V y; ~! Y- _ "0.2919925992695026`", ",", "0.26490679596812655`", ",",
: U$ m9 A9 z% O7 b/ i. [ "0.16343444284525593`", ",", "0.4182466778551567`", ",",
& W/ Y) ]& K% d: H1 b' p2 z "0.27347752211364945`", ",", "0.385540573863857`", ",", 0 D3 t% F4 l) g" k/ w; u
"0.3525316045371807`", ",", "0.20547458411007796`", ",", c' |+ o; g$ a8 s: E
"0.4550437711271672`", ",", "0.1598805094678611`", ",",
" b) n7 A# M2 L9 W& ?5 h- V- Y& ]3 A "0.18662509982279502`", ",", "0.10684797493248224`", ",",
x& k4 _: t5 S; E \ "0.013349212673286806`", ",", "0.08215836003004302`", ",", % K- j6 v$ r& S m7 D
"0.2979041599362817`", ",", "0.05995976512343637`", ",", 7 ^0 p/ { n/ u5 i" d- ~7 a5 [* w
"0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]], "Output",
4 @. F' I9 x6 r) u CellChangeTimes->{3.5779597200381384`*^9, 3.5779621650778656`*^9,
0 `" P$ k' ^& X m& X3 M 3.5780123569375*^9}]7 |3 U/ |+ h, |( U1 P% H' Q- u
}, Open ]],( F; z% b( U" ~2 e5 C4 M+ a
- l$ y4 y% M# tCell[CellGroupData[{
: @1 f3 F$ Q) t& k& O8 `8 A. s( s0 o7 M& J9 |) M
Cell[BoxData[9 O5 m- `9 F c! ?6 w! O
RowBox[{"y10", "=", % |, O* X5 |% C1 A; ]
RowBox[{"Table", "[",
1 _) \2 J/ E% t2 X% K" S RowBox[{"x", ",", . D" E! e4 t: T, h! L
RowBox[{"{", ( \: A4 R! u8 ?4 q
RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",0 Z8 c4 u4 H* l
CellChangeTimes->{3.5779253628125*^9}],
$ l+ A" a9 b( k, L1 o: q! _. m6 X$ [# `4 A0 ]9 ?3 j& r9 E" \
Cell[BoxData[
. T `$ f+ t% S- P RowBox[{"{",
+ _" }0 F+ h2 q* l3 O [* V4 S F RowBox[{8 @* \' p& W8 A* W. L0 _0 Z, Z) p: c: `
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
+ P0 j% K1 d& A$ m ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
- x& Q( K9 h. s- c ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 5 ?# }: I9 x5 B! f- m, n
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ( r% E+ X1 ?& @4 \- G. J- D9 O" K# `
",", "29"}], "}"}]], "Output",* L: d: }8 l N
CellChangeTimes->{3.57792536553125*^9, 3.577957599565603*^9, ) K! L+ z$ X' [1 ?8 p* E* Z4 O8 |
3.577958967383626*^9, 3.5779621678858705`*^9, 3.578012358609375*^9}]
9 ^" L! D! I; X' c6 z}, Open ]],: k8 ?$ v9 j8 X) u: E, O
$ ^' n# \" ~+ x$ eCell[BoxData[
. X$ d* v2 @4 E4 j. Z0 B! \ RowBox[{"For", "[", 3 M$ T+ k [; N
RowBox[{6 c( [/ R) T4 g0 |# D0 N2 [$ `7 d
RowBox[{"i", "=", "61"}], ",",
, d0 I7 M4 M. F' F RowBox[{"i", "\[LessEqual]", "89"}], ",",
5 `( H" a E1 \( |, e- M7 z3 { RowBox[{"i", "++"}], ",",
8 m0 ~, x6 R5 g4 m5 a. f RowBox[{
. ~$ n/ @% {8 W# \7 T, c9 M" V RowBox[{"y10", "[",
: e) H3 n* U: _ RowBox[{"[", 2 h, K6 p) ~9 m! v; k
RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
- c' ]3 P% Y r RowBox[{"Data", "[",
. O+ _! C3 o( P* O, o; ?( `0 b( p5 p RowBox[{"[",
9 y; Q8 L& L9 G; q! d1 Y RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",$ g6 A" E5 a' c8 j
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {; _- Y0 G1 c% V* c3 `/ }9 y2 ?
3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, $ w( u5 a5 }6 c) l
3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, 0 U" a6 }) ?* D! X. I" {: d: g3 W
3.577958922549148*^9}],6 G8 r$ e+ T' J4 R; i) Y4 K9 x- }
* H8 W* y8 e8 Z* u' s
Cell[CellGroupData[{+ f8 i" W- `2 O& G' \4 M* |4 J% ^/ \
0 U% ?0 h6 c8 R+ MCell[BoxData["y10"], "Input",
; y: O& T' C3 J! _7 ]2 n$ Z CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
, a% ]8 n7 p" G) {" @) n 3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}],
% [5 l8 u0 X0 H1 f3 p
1 @6 m. j: A( j8 U. r* NCell[BoxData[! m8 v2 i+ I7 ]* D# g
RowBox[{"{",
8 ]" H) K+ Q9 z5 {7 I RowBox[{
3 `, v }" S6 U% n. k) J1 ` "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",", 1 G$ T+ Q* k4 {
"0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",", : a0 ?) E$ O% K# [1 e6 e
"0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",", & d9 x2 t$ N9 B7 u: h
"0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",", $ j; [1 A7 R* v4 [
"0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",", $ o/ ]# J$ {, k; o% V' ^4 r
"0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
& c3 z& W5 w' A7 T. \' U G/ _ "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",", 5 a& o( X8 W1 O
"0.694935`"}], "}"}]], "Output",# b, }! M3 Y/ [3 N- p" a1 K
CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, * B7 b9 b, Z5 |0 o" N: L! O
3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9,
* ]1 ~- c; `7 f; h 3.5779621736734805`*^9, 3.57801236071875*^9}]
: F3 o% f, z# z, R5 V. E: k2 W}, Open ]],* J7 b" }) E- A8 P* y! j8 `
& }% c1 F# x, {Cell[CellGroupData[{8 U3 |, f# Z6 g; L% @: x0 l
& j0 v) A8 V7 o) _$ j
Cell[BoxData[% g4 N- N$ T3 h0 a
RowBox[{"y10", "=",
& f1 J! ^4 `3 J* I) C _ RowBox[{"{", # M. m G* M$ f( N$ j( `
RowBox[{1 L4 b* i6 a. D+ A( o+ i
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
% f5 E: Q6 [4 C2 G2 u% M ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
% h5 T9 m; w. |/ V) W+ v "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
* \) q3 S# a. I ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", $ ]6 ~4 Q$ F! n8 e+ d
"28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", 1 p4 _& S9 | g) m" O3 q2 `
",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", 3 f* R2 ^# i* H' N1 A/ K0 r
"41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
& b/ ?* W5 j- a9 z2 |/ U- O* r$ K ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", 2 C6 [6 \3 r4 M7 m# F# |
"54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
, ^+ q6 i) t; ? "0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",",
. | A+ U: C2 \7 l) @0 I "0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", 7 Y0 S+ ^( v/ Z/ |8 L; I
"0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",",
* T& | X4 m! S: v, N8 c! }- |0 B "0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",",
2 W" |. K+ C2 K! p l "0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",", * f" {% r9 A7 H) g9 _
"0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", " ?2 e4 |0 ]4 x. ?0 Y
"0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",",
! `; D3 g6 o t$ E, r "0.390754`", ",", "0.694935`"}], "}"}]}]], "Input",
3 F. {/ x7 e7 ^, I7 S' J CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],
5 v& m9 e T0 R) G
' y6 P1 M4 g3 q: KCell[BoxData[7 |3 t4 M0 j3 u
RowBox[{"{", 3 ]' J' ]9 y; {9 j! N
RowBox[{
; Z& L7 T, g& t% m- a- ` "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 0 Z/ E8 N% l m8 @: N) t; L
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",5 Q3 C0 X% W8 o, f9 O
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
3 B1 P+ J1 w4 g: ?5 }1 D "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
9 ], x5 v, Y3 J3 i ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", ; l$ `9 d; u3 b" F) M' Q: I5 r3 u
"35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
) o9 `* f: [! [& N& W5 @: D4 o ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
( U5 q; W% A( v z# M& g& [ "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
) [6 D/ t$ R1 P# U3 z4 R ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`", 6 v1 X5 s. G5 v# H, v
",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`",
7 d* o5 Y3 }3 R( m( Q7 h" ] ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`",
* B9 j3 O; U( ^- {. {2 [, Y ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",* `% e2 Y4 X, K2 ]8 d# K
"0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
$ Q+ z4 S& W0 D9 x2 Y ^% \ "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
* b4 L0 @; v1 s1 I2 s6 _ "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",", 1 `1 u4 |% O( A) W& _4 T
"0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
$ ~: h* p3 S; Y1 n, \9 G* L: w2 m7 o "0.694935`"}], "}"}]], "Output",
2 ?4 c% t) C8 S1 ~/ J9 u- U3 \6 }$ H CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9,
" `2 m2 _" o: Y: \ i3 h 3.578012361734375*^9}]
7 V3 `# n( ?6 W& z}, Open ]],+ f/ K" `" V1 u9 j
: g( }) X7 a) i: b6 j; t; s" e1 ACell[CellGroupData[{
3 @& e$ J" G; q1 U. w! C. _, ^) O) `, k+ g
Cell[BoxData[( ~) ~9 k( N- H8 n1 z' G5 @% y
RowBox[{"p1a", "=",
8 Q( t7 q R& r& A. u0 b RowBox[{"ListPlot", "[",
) d; o0 }. r! W6 P7 O. E- [ U RowBox[{"y1fit", ",", 9 g6 r* }: r% B) y
RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", ) A, }- g8 w! Z
RowBox[{"PlotStyle", "\[Rule]", ' T9 r9 @ `# s$ E5 U; A, ~
RowBox[{"{",
% O$ [" c1 Z3 h: ]* i RowBox[{"RGBColor", "[", - }7 S+ i) p) w5 k3 B: F5 V; Y1 v
RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",", F* P7 l- ^+ U) t% N
RowBox[{"PlotRange", "\[Rule]",
) ? U$ R4 D! @, y0 S m RowBox[{"{", & Y, G+ `& Y& L4 i0 w6 D
RowBox[{
2 S( {% T7 g, J! X* | RowBox[{"{", " Z, |% t' h$ X. N3 ?
RowBox[{"61", ",", "89"}], "}"}], ",", ) ]( V& i* h, p e* i- l
RowBox[{"{",
( i& K; O! G/ W% S RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
* y# H/ n- h5 Q, ?1 h* ?% Y RowBox[{"AxesOrigin", "\[Rule]", 1 D( V' |4 @2 e) }( J
RowBox[{"{",
3 N- s1 J2 Q, I9 G- e% K RowBox[{"61", ",", "0"}], "}"}]}], ",",
6 M1 I! ?6 z5 B3 T: {5 m RowBox[{"Frame", "\[Rule]", "True"}], ",",
# E- }$ s( q$ T T T- z RowBox[{"FrameLabel", "\[Rule]",
4 n* G. N, q& V. n RowBox[{"{",
) {( s8 a7 `; m( A4 j9 G RowBox[{
( }# i( G! y9 ]5 x# L' M "\"\<\:7089\:6b21\>\"", ",",
' W- w' _7 H$ z9 H% e( [( r "\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\- L* l- d- s3 ?4 M- J* `4 t% G; h# q# y
\:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",* N$ E1 j* O# X! g9 W: |& n$ l
CellChangeTimes->{
0 W" ^. D/ R2 J& a( p8 p 3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
8 F8 C" }- Y0 d 3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9,
* g5 H! A& |5 W2 w* e 3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {/ c4 T0 y! x7 w, S0 ~4 q
3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],
: F" R; @1 U2 a6 \- E2 R& }$ ]& Y L/ z
Cell[BoxData[0 y5 a0 |6 m, e0 O- j$ ~
GraphicsBox[{{}, {}, 0 X" Y3 c2 s: o' O4 c
{RGBColor[0, 0, 0], LineBox[CompressedData["
* g3 M+ u3 j: ]% {1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
$ ?% t$ h8 U. }* H/ ]. W8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq/ V$ F9 B& s& H' a$ O# h# d# ]
D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B- h3 O8 q1 j. @" ~9 ]
1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX4 U. L) a$ q# ~7 I. r
C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN
/ w0 S8 D. d8 v& N5 J. m+ d% e* Ea2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
+ J9 F1 t& h' H/ P3 e, t$ }yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
1 G2 \& G' J0 I% S2 c7 m4 rwrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX594 \1 p3 E7 j- d" }7 L
Y6nGQ3sAieueIw==7 G; x$ y0 |6 K( }: J: Z+ H
"]]}},
3 u8 ^7 N: {6 t( ^, K AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],/ x! Q" ~( g2 Y; C h w2 |
Axes->True,& S! O! g+ G- n
AxesOrigin->{61, 0},
/ u( Z5 J+ |) t5 Q' B Frame->True,
/ g# K# x+ X- C; I7 g# D1 z7 N FrameLabel->{
3 W( n! @6 L- k, g W) L( R FormBox["\"\:7089\:6b21\"", TraditionalForm], 4 g* |0 F- x9 A4 a( Y. @
FormBox[
& V# X# i; o) d0 z. ?" z( F "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
+ n1 H- s; ^1 Y; H! H+ R3 _\:ff09\"", TraditionalForm]},
& g/ T& p1 t( S- X PlotRange->{{61, 89}, {0, 1}},
5 i( ]! \) ~/ a L! c PlotRangeClipping->True,
. A* g/ Q) K3 c* M ^1 Z5 n" W6 V PlotRangePadding->{Automatic, Automatic}]], "Output",) n' o1 R T" c) }0 c8 \5 |
CellChangeTimes->{- U v$ s- ?; T4 X7 n8 M# \
3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9, 3 g' @) [4 `( |; L
3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9,
7 n6 c$ u4 F( X- F/ I 3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9},
. m* l8 n- `( u" I( P 3.577962187510705*^9, 3.578012396921875*^9}]( f; q! B+ A* ^" r! a3 W
}, Open ]],' K0 F. B5 b* N& d3 |" _4 X# `0 b
, M6 [% |# ]/ P* uCell[CellGroupData[{' e! a; O9 M1 t. I, n2 s
5 N2 x. Z/ d1 t4 K7 G4 Z# J, A( ?- @* PCell[BoxData[' h5 X% t/ M8 w0 ]9 I8 k+ p6 k
RowBox[{"p1b", "=",
+ A9 ]$ A1 }6 S+ E RowBox[{"ListPlot", "[", * b8 ?" ~7 i* G/ O* D9 F
RowBox[{"y10", ",",
" e! y9 P; g4 {% ]7 y, L% O E+ [ RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
' Q8 D9 `$ X) i7 L6 \ RowBox[{"PlotStyle", "\[Rule]",
! E9 x9 o1 Z; Q: z0 Z7 Z; u8 E8 k RowBox[{"{",
/ R; y. z6 z6 u; r9 V% N RowBox[{
& E5 @5 B4 ~5 C6 ~! P RowBox[{"RGBColor", "[", # I! c+ K; s( p! i
RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}], ; k+ r7 x; v) X& I0 A0 m
",", + ^* X1 z8 I, {% n h' e
RowBox[{"PlotRange", "\[Rule]",
2 `. t4 ]6 X' P) ^5 V9 Y: N RowBox[{"{", # f, D8 D" ?% f. s7 v5 M
RowBox[{
5 F$ |. Z" X4 a# N4 l+ U& \4 e. H" } RowBox[{"{", 0 u/ T8 T s7 q
RowBox[{"61", ",", "89"}], "}"}], ",", ' D8 g6 T/ ~4 Z7 l% j- |
RowBox[{"{",
) g& H3 L; e; O9 s% T9 F RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
: O0 i+ A/ q8 y' }+ P RowBox[{"AxesOrigin", "\[Rule]", 0 w- X6 ~- _% l, A! q
RowBox[{"{", * _" L3 ~' n6 O4 Z
RowBox[{"61", ",", "0"}], "}"}]}], ",", $ L6 G4 J% u9 d
RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",( O- Q9 b- I+ c
CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9, ) v& w m9 W0 `9 K/ S
3.5779597764166365`*^9, 3.578012409265625*^9}],
3 B( ]9 U; X! i9 V5 m: ~8 j5 b3 J0 E3 T
Cell[BoxData[1 E+ Y9 \/ z. s1 E; p
GraphicsBox[{{}, {}, $ J4 v0 h/ M+ i. o& f# F6 c
{RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
c! Z r2 C+ I, [6 G1 [. S1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ# D' t+ o5 u2 j/ Z1 a$ J
/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy* c# r% q) Y7 Z) s" T z
GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
7 k3 m c$ z/ Q1 ~. b6 B' _' @GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
! b9 I _4 P+ O& M2 W Q7 T8 e6 V7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/! y2 P5 H# h& V( l/ D0 `
Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri) q5 n7 R+ m( \% [! O
H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
5 l' j" a2 I& S1 U( vrQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
0 @9 N" }- Z; h+ W, SvA==
4 x; j! Q! h% q; R "]]}}," R& N; }% M L D. H2 k. Y
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
0 o. r5 b( I* {- Z+ c8 ` Axes->True,# f2 g: ~) l) _, V
AxesOrigin->{61, 0},0 k+ X4 {% l+ |, X
Frame->True,
) ?$ l8 D( m A+ x* }! }! p PlotRange->{{61, 89}, {0, 1}},
6 ?, f: b% `) Z$ G" ]. D1 c/ e PlotRangeClipping->True,( Q$ S( z) A0 |$ K
PlotRangePadding->{Automatic, Automatic}]], "Output",9 W- a8 R' Q& e% l
CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
4 U+ A! C! Z7 [+ A 3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9,
% [/ q r* U8 f3 H; T' D; r 3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]
/ k2 o1 G8 g: ?, k0 Z}, Open ]],4 f) i) X6 F- L) g3 K" G3 L
, i) h. e1 J* y% F" wCell[CellGroupData[{* S! T. n/ _: g
8 Q1 h; N- n- ~# D) R9 p/ D
Cell[BoxData[3 ?7 D! s: p- b8 p$ l( S
RowBox[{"Show", "[",
- i# v; C& C6 e- `; o3 j RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],
n/ y8 |0 T8 e1 P. ]( s6 |/ L8 m! Y
Cell[BoxData[* W) k/ f8 T2 T2 ~4 y
GraphicsBox[{{{}, {}, : @8 X9 y5 W6 `2 ^ H9 h; U7 D; V
{RGBColor[0, 0, 0], LineBox[CompressedData["
* D' b+ |7 b4 Y5 E$ t$ {# ~ g1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
4 F q6 s5 F# M/ U/ B. N8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
$ O. l5 G- T4 QD3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
* d3 q3 Y; f0 }8 D1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX+ [8 z+ v% c# w3 k
C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN2 P1 j' U% I$ [& i' {! V3 l
a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff) M4 k6 Y! B/ C; n9 H M# I; z" J, D
yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb* n7 Y( z# M: A
wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59" p8 M" G8 `4 f( T( h& ?
Y6nGQ3sAieueIw==
; ^+ `) }% g" {2 L" J# _! _ "]]}}, {{}, {}, & s- v' \- C t: c' H
{RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
/ i; K& d/ P& N/ h$ J1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
5 F# I0 `" s- K ~/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy. u6 L5 b, u! J. E
GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
4 H: ]2 O; [- [, c& JGFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy1 }' E9 k3 f- X" T+ n
7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
, C9 D9 h- i% j# o; K* U2 dQu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
- Q& v: x: t+ V: d0 Q$ cH+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV- i, s3 }% ~0 V! \* _
rQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T" e* q; d, h( x z4 o
vA==
o! k; v& D+ ~# {" { "]]}}},
S8 k! ?; w% L% h( A" B AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],7 L9 M; n8 \3 _
Axes->True,
! U6 U7 O% R _, l8 k AxesOrigin->{61, 0},
0 t: _! P2 P% |: k% m Frame->True,% N2 X8 n8 K/ g, ^- Q; R# C
FrameLabel->{5 ^" z# R3 F4 U+ j8 d' D5 D6 s/ X
FormBox["\"\:7089\:6b21\"", TraditionalForm], 2 A1 W( [3 T" p" U2 F
FormBox[6 W/ @1 f# [' B0 _5 W* a/ ?
"\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
& a4 n( X) X. ~\:ff09\"", TraditionalForm]},
3 Z }$ J+ o( a" H" k5 o8 } PlotRange->{{61, 89}, {0, 1}},- J/ I7 n+ b; d+ q% X) W4 i
PlotRangeClipping->True,9 W0 V2 f* N/ }7 n
PlotRangePadding->{Automatic, Automatic}]], "Output",
1 K6 B. K: g9 D" E, q8 o9 \$ u CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]
$ C, Z4 u6 C" g9 m* A% [& h0 Z}, Open ]]," n% i5 }8 z3 ~
) @" r: [/ p; e- M6 mCell[BoxData["\:62df\:5408wi1"], "Input",% o6 a1 w; q% \$ i# W u
CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9},
3 I4 h$ p _; Q7 i1 C 3.577959662349238*^9}],
0 A1 L: M/ [9 Q
! C/ s' k+ G# C: @$ E/ a, \Cell[CellGroupData[{
% e" G6 Z, V. _! j/ L; F* k' Z
& B6 v# P3 M% m" Y) x. L$ n0 e# CCell[BoxData[
) Q9 g _8 v0 c RowBox[{"y1b", "=", ; n' f8 f7 r" b, W
RowBox[{"Table", "[", 3 N: _7 I5 q" x" Q3 q
RowBox[{"x", ",", 9 z1 _( O# @" |1 n
RowBox[{"{",
1 l1 t1 j# f& G9 r8 p' L RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
# U/ Z: i& Y1 ?. r/ P) p8 p2 p4 o, j CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {. e* K4 f4 @% j
3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}],
& v) }4 g' e5 W
/ E3 `3 _+ H2 u8 f# E6 UCell[BoxData[, b. \6 }' p. _7 F! j
RowBox[{"{", : |, |8 [. f1 {" ~8 A: x2 r
RowBox[{ n2 p( G5 _2 ~$ s( r/ A
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
6 h- u( d2 E2 w! y, G; d7 L, h+ u ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
" d i/ \, q1 V) @3 `6 H* U ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 6 K# |6 m( N2 N: j% C! [
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", " u3 z( y( A* Z: m* z
",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", ; l9 c& e. x0 i" g% ?- L
"35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
6 z/ T/ D; n7 _& u/ T3 M ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
' r$ U c: j' S; f( A "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
8 r; L+ I$ I: m+ ~- [6 Z6 M ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
0 t5 w3 B( B" X$ Y9 M "}"}]], "Output",
0 R0 W, P( l" ]5 R* W CellChangeTimes->{, W. ~. [2 r3 T8 Z
3.577922682296875*^9, {3.5779582291435394`*^9, 3.5779582351339493`*^9},
* f. T; Y( u2 g! u 3.577958478041973*^9, 3.577959010205701*^9, 3.5779622225483656`*^9, 7 x& s( J# f: b( t% Y$ a
3.578012438953125*^9}]
+ C, ~6 l/ {" b3 v6 S* Y}, Open ]],3 Y6 n* B% Q: x. Q
+ o( _* l* \ Z" N0 @$ x! OCell[CellGroupData[{; V+ b9 V; ~. K( ^" {0 E
E+ `- X2 m) d0 }: VCell[BoxData[8 u& r$ ~8 A8 R8 E! H! G' Y
RowBox[{"Data", "[",
# C' v M0 s9 W0 x RowBox[{"[",
- E3 w* @: i9 R" b& l" U; V RowBox[{"3", ",", "11"}], "]"}], "]"}]], "Input",
2 r1 R. x. P b( F- D3 u' X CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, { o" O$ v/ {- u$ {0 }! B: R! C5 V ~/ o
3.577922912015625*^9, 3.577922912171875*^9}, 3.5779582414831605`*^9, {
2 ~' E9 `0 Z. d2 G1 a% y 3.577959014090108*^9, 3.577959016040111*^9}}],
$ p1 Q' T3 ^8 @, B3 @3 t
6 v8 W% e! g7 u) b1 \5 SCell[BoxData["0.492958`"], "Output",( l& } m& D9 W- r! ^( j
CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, 0 D4 _) V0 ]' f/ s: V( r
3.577922913203125*^9, 3.577958242809163*^9, 3.5779584790403748`*^9,
9 Q- [* d% I6 m1 t M& c! R# w 3.5779590175689135`*^9, 3.5779622239523687`*^9, 3.578012439828125*^9}]" T6 X. ~6 ]( ^# v8 L) q' ~/ L( ~6 H
}, Open ]],
0 T" t) k& \" h* X: H+ O1 f4 z7 T) o7 H% s
Cell[BoxData[+ ^8 ^ T( o7 R7 |& g
RowBox[{"For", "[",
& i; |7 C9 x2 [3 s! z- t RowBox[{8 I% y- _7 |+ ~# v
RowBox[{"i", "=", "1"}], ",",
! n F$ D/ u5 E O! u# n p8 H RowBox[{"i", "\[LessEqual]", "60"}], ",", ) S* G+ N9 ?: e' Y& u; e% O) K% L
RowBox[{"i", "++"}], ",", 2 ?/ s- d9 ]) p7 L1 \1 n
RowBox[{3 |8 u' @( D# l/ P+ \, L! \
RowBox[{"y1b", "[",
1 {3 _/ C# l# I; V) s% Y RowBox[{"[", "i", "]"}], "]"}], "=", $ J9 j! N* i# A" Q% q4 g5 W+ D2 F6 _
RowBox[{"Data", "[", 6 Y) _8 d$ N* L% u! h+ `: F* r
RowBox[{"[",
- [% A. B: x: \/ `: A7 v& V RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
! p! ], W5 [1 A1 { CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {+ N( W' E5 o9 W" e4 U
3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, : I* P( c. i. A9 Q# ^( V: a
3.577922923203125*^9}, 3.577958246272369*^9, 3.5779584755771685`*^9, {
, l" ~' H: m" c% B7 T' { 3.57795902089172*^9, 3.5779590227793226`*^9}}],* x6 V) t# U8 B& P. ~
) O3 L* ?# T2 Z: i8 d# B! F9 a
Cell[CellGroupData[{$ V) I/ b8 { ^- @5 [
( B+ b5 k7 S5 |+ m& N8 T. ACell[BoxData["y1b"], "Input",
0 N, u9 b$ H/ t8 ^" b CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}, $ T% M1 d! ]2 A# g
3.577958484172784*^9}],
/ F u$ ?* q" |% W/ \- U' A4 l1 Y% h& ~5 q7 t4 _+ i J
Cell[BoxData[
5 }" B" }% m3 _* } RowBox[{"{", / K1 ?, f. E$ X9 s2 m# S) M) i- P
RowBox[{
5 X; w7 ^ \2 t* N) S "0.873239`", ",", "0.464789`", ",", "0.492958`", ",", "0.774648`", ",", , G D+ \5 C9 c7 H6 G* i
"0.380282`", ",", "0.647887`", ",", "0.56338`", ",", "0.295775`", ",", ; z1 e) ]* m9 C1 I* |' K/ w2 E/ _
"0.338028`", ",", "0.211268`", ",", "0.690141`", ",", "0.43662`", ",", 5 b L7 G- {1 L; n+ ]
"0.`", ",", "0.267606`", ",", "0.211268`", ",", "0.408451`", ",", ' T& N0 ]( k7 V4 f
"0.478873`", ",", "0.380282`", ",", "0.211268`", ",", "0.43662`", ",", ' h9 ^) p9 a+ Y# }$ F
"0.478873`", ",", "0.295775`", ",", "0.028169`", ",", "0.43662`", ",", 9 A4 M' h6 S6 H- r1 \
"0.394366`", ",", "0.295775`", ",", "0.830986`", ",", "0.169014`", ",",
. E8 T6 ~3 i4 ~7 |- e "0.366197`", ",", "0.309859`", ",", "0.352113`", ",", "0.309859`", ",", ' o$ q* X7 i" i8 J# k
"0.774648`", ",", "0.422535`", ",", "0.887324`", ",", "0.887324`", ",",
! a8 \3 q& q8 n- h2 z! ~ "0.859155`", ",", "0.239437`", ",", "0.295775`", ",", "0.746479`", ",",
. \0 t/ z. l/ ^ "1.`", ",", "0.549296`", ",", "0.366197`", ",", "0.549296`", ",",
: S3 W+ w5 c7 e, W6 i0 D "0.577465`", ",", "0.690141`", ",", "0.71831`", ",", "0.521127`", ",", 9 `9 @' y+ l% R& x4 n4 h$ o5 Q
"0.929577`", ",", "0.521127`", ",", "0.338028`", ",", "0.380282`", ",", $ S. U7 [7 A: W" }& F& \
"0.676056`", ",", "0.591549`", ",", "0.464789`", ",", "0.295775`", ",", + L5 G% M( S0 f
"0.380282`", ",", "0.211268`", ",", "0.253521`", ",", "0.28169`"}],
1 u @2 g9 n: e1 } Y; r: l "}"}]], "Output",; h! z+ R0 ^& J2 p& e
CellChangeTimes->{3.57792293246875*^9, 3.5779582549771843`*^9,
8 }, l8 C. e9 [+ C 3.577958485420786*^9, 3.577959026460929*^9, 3.5779622288195767`*^9,
9 B& e2 _; \+ Z* ~& X7 Z 3.57801244275*^9}]0 @# l$ D L/ {# _9 _" K+ v- w
}, Open ]],
8 R2 r: ~3 b4 X+ i7 |( Z( c9 }2 Y' E1 @/ P6 q! W* g2 c( a
Cell[CellGroupData[{
# v8 P3 n5 B6 O( Y0 [3 r9 |* A+ M
9 n( X ^) R' A6 G7 s- wCell[BoxData[4 l/ S/ j; e* A. H3 d
RowBox[{"m60n21", "=", 1 A4 b2 h5 u1 @' g C9 f
RowBox[{"Table", "[",
6 ~" N7 Z" G4 w1 S' ^ RowBox[{, a, K. W& Q8 C' \3 [/ E& t: x
RowBox[{"Table", "[", : v1 U$ w! E2 X7 L
RowBox[{"y", ",", 8 o- _( }0 J" b( |4 K9 F2 P
RowBox[{"{", 1 t* U, {7 x' _
RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",", ( @& T* m# B+ n4 R/ W) O+ V$ k
RowBox[{"{", - X$ ]( @4 B. A
RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",: l3 M- w" t! z4 b: U
CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {: I1 u7 n( c k$ q
3.577924052828125*^9, 3.577924101671875*^9}, {3.577962237961193*^9, / t0 C* e3 f9 h+ b, C, @) H
3.577962240082796*^9}}],& L3 b1 H) {. M: Q: ~* l# ~5 K4 l) w
! @, l! u: K0 n; lCell[BoxData[
( T9 w0 S' @2 u+ `$ M RowBox[{"{",
( B( x/ H1 q* v: [+ x RowBox[{
" K" f0 Z0 A2 ` RowBox[{"{",
) C w; I/ a$ w1 U9 J7 {' y( m) E RowBox[{
5 L, U4 s( v( E "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
8 T) R$ W/ S, d, b* a, y2 `7 Q ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 y1 m9 @7 I* F W, @; M' i
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( Y- _8 w9 Z2 A; `) n7 }
"}"}], ",",
. {. G- h, X( F. U RowBox[{"{",
8 F8 ]5 Y8 J+ K! M9 {+ g RowBox[{
! r) w6 h8 v1 L9 Y) `) ?( G "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 A2 z1 g8 H& g* W- Z( W8 e
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
]" j. Y9 b% D2 e$ | "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' E5 {: \6 P r4 B "}"}], ",",
& F; L: K7 w4 i9 H RowBox[{"{",
$ X1 n% B) K% L# @: k7 m) ] RowBox[{5 R+ W+ R8 L* N1 l
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; U/ x+ A6 c# b
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
* A0 o, s. Y$ k1 B "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
% `2 ?9 p$ p% D/ b* b4 ^7 R H "}"}], ",", ) b5 f, C: t5 _6 r4 f% l/ m0 m! {
RowBox[{"{",
4 v2 [8 n: K' c, U& W# T- A5 D RowBox[{; f; u0 y$ u$ ?. y1 f& x- C4 W
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
9 H8 h6 w0 T2 g3 n ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 @8 g, y, T3 B" p/ m
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}], ~% _' Y0 j' Y; n: ?0 k
"}"}], ",", 4 P3 V3 T0 \5 O, G6 D0 d
RowBox[{"{",
7 h% r9 V. n, ?: F, S' t4 ]- d" i# V RowBox[{
5 C9 K$ V9 W# J( n9 P "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, p2 W) U) ~+ d* b) c: F
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
3 D* w7 `/ Y8 M, u; p! W "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' X7 U# K3 |1 Z' ~1 o; ]1 w8 S. c
"}"}], ",",
9 T' f6 s6 Z* {4 L: t) u* q9 ^3 U7 J RowBox[{"{", * \# m( c- w. D7 T
RowBox[{
5 ?3 D2 G+ N- @5 }2 l "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
: ]9 K' _+ c; R0 q) u; p2 z ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
: J8 o2 R/ \6 T, U1 [$ Q "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}], m" |1 @0 C2 V j, y* b; t8 I
"}"}], ",", : z; W& e- G) L7 j& z8 g/ w+ p
RowBox[{"{",
8 A3 q! k9 Q7 F0 e: C! d# ~. x RowBox[{
) s0 s: U+ E" ^2 }5 p! E "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! e# S: o8 @3 D& e9 e/ r! i
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " f2 k D H, |2 m, e3 h+ g
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
. r( F2 T+ @. ?/ ~1 f5 G% ]; T "}"}], ",",
9 P$ F+ r6 j; B- b# O RowBox[{"{", ( |+ i" {) ~: z- Z9 \
RowBox[{: g+ O( r: p: Y# C# N
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ p) \% t0 A5 B1 g0 @
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
1 r: L( F7 W0 C "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) w+ b0 Y% a) ]( U0 Y7 ^
"}"}], ",", ! U3 j6 \5 v5 K5 t5 l+ b- W0 o
RowBox[{"{", 6 g0 X$ X9 K5 {) s0 G ~! Q+ F
RowBox[{
: L( y; [* \# I6 K5 J& W "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ {2 e5 I P' I1 x. Q! ~# h! A
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ i" m% b9 r+ h
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 ?1 |$ q1 N' m4 Z$ ` c& H
"}"}], ",", : y0 ~, d# b7 R4 b0 J0 c
RowBox[{"{", * Z, r, j3 I0 g$ _- N
RowBox[{( F& U! n; f) R' P% p% d/ P
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
1 }) y" v6 |8 J3 o ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
7 r* Q# D: r* t9 [ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( f7 M* a4 k0 O$ z
"}"}], ",",
( U# ^/ `/ Q& F( A2 Z+ J7 S% f6 a8 C RowBox[{"{", + q: H8 X) |: `, j4 Y
RowBox[{
2 S$ Q- z1 r" W# ~ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) h4 ^! z3 Z3 w
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 X# f8 w# p7 u$ r
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 ^8 R) c7 S1 Z1 w4 |
"}"}], ",",
9 u: d& O2 m0 ~# W2 N6 N RowBox[{"{", # w4 i8 `8 B$ j# l" l
RowBox[{8 ]5 j$ E9 Z# y1 m7 a/ q0 _3 C) `' t
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ l; Z/ A9 S j! U- I8 P; K) ^ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
0 S3 [1 i* D b2 q, D' @) S8 e "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
. u: X) C7 D: _7 D "}"}], ",", . u4 S' U! p k
RowBox[{"{",
8 z$ d: h0 D/ l1 R. O3 Y9 y' v3 D9 U# D RowBox[{: q. a8 O. P' P; ~% j' b5 W
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 S& k+ F2 L7 @. N0 j% Q
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
5 z, s7 @; D) p# H8 S2 j* u "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& Q8 M# B4 x+ [6 A$ v. u
"}"}], ",",
. X( [ Z- w# M, t; [4 M RowBox[{"{", , w3 P9 l* Q" P# ]* X3 h- V' H
RowBox[{
' e' u c- l5 N1 y3 p7 } "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 R8 E- V/ X$ U) r" J
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
/ p. E7 R; k& n "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
3 q% f& f2 Z; c' U "}"}], ",", : {1 u" Y; w. n
RowBox[{"{",
& E$ u" s- i% h3 P4 e, i+ ~ RowBox[{
- g5 S' L ?6 E* m% N; G4 o "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
" v, A/ ]. y: b6 P7 u ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
3 O* s* ^) X1 W, E7 v# h* e0 B3 P "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 Q3 s. q& z0 y c: C# A
"}"}], ",",
, R' A/ `! k4 F% D/ ] RowBox[{"{", * S9 `( k0 d6 n( _$ i& C: l* }4 r
RowBox[{9 p; k1 L; j7 h' g: u
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
! o( y5 C" L7 U8 N ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 x! `) Q) L3 g3 T
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- K) p( L+ E( B1 U8 `( t
"}"}], ",",
5 |/ a6 Q- Y) v7 h+ Q- _. Y RowBox[{"{", 3 w: W$ R$ Y7 }; [/ Y( p1 ^
RowBox[{7 G: O8 T2 W/ U F3 J. n8 ]4 `/ S
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! u' s. S% ~4 p, I# O5 b4 _1 s
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
7 a! W: i: k5 o, ?" Z6 r8 j% V "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! S" |( e' {( c1 A" c0 [
"}"}], ",",
4 ^2 h& ], S5 ?! O1 i, N3 A; A RowBox[{"{", 4 \, ~: }: K; {1 b Z: v
RowBox[{4 G, s! C& _9 E! {
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
, t. T e9 d$ z4 ?0 ^; D% ~ ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( y0 }9 t/ m6 n: F" ?
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 k) u$ k' K1 s5 C
"}"}], ",", . c* u: [8 `6 `
RowBox[{"{", , ^+ n3 T+ Y+ `- ?- D
RowBox[{
4 H4 H6 A) W9 d" U4 l: `7 t& ^ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) U M/ Q/ |( _7 j$ {* {# Y0 A+ t1 R
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
1 n+ n; Q* g* ] "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
" g6 k! _3 @% L) G) T H "}"}], ",", , l* n: U7 M$ O" E3 V. R
RowBox[{"{", & A( W% n( }* F+ P- J" e% v& d
RowBox[{
+ V. [' b# q; f. @) J+ D, I "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
C+ A( t1 \4 q- F ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
4 Q* X0 g5 h" w- K* E# C& Q4 i "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
& M1 z2 d( @6 }0 z "}"}], ",", " G |7 ~' N h' }
RowBox[{"{", & |# T3 {0 S0 }) i. T% j
RowBox[{
% g* u; j$ H, D2 Q- B6 u- z% e "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 q2 i0 o6 j/ j; F+ F& Z. d
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # x) t1 D- n D) k5 Z
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
9 j) X+ @; w$ j' H "}"}], ",",
& X+ K @: A( `+ L$ u RowBox[{"{", 6 E( X) V7 V; r+ B5 h% q) ]5 f
RowBox[{
- A& o1 N' \+ i9 x! u9 d "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
; h% ]" `! G2 `) u! P ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
* z& S) t+ y: K- C' W0 j "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
8 M2 j# h0 V% z4 e( X5 p' j "}"}], ",", 9 a; I1 o( I) j
RowBox[{"{", % m9 |3 f" @1 y7 S, ?+ n
RowBox[{" O% i+ P: J/ F, ~
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
; U4 E0 X7 @3 O% h$ z ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
# C/ i! o/ `1 d "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
6 D/ y' j5 a" V. h "}"}], ",", # X- ]: U6 f) ^
RowBox[{"{",
9 P7 r: q: M- f& m9 ~% i RowBox[{
& [2 y5 a0 |' h; i- c/ G: F1 K% y "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
7 f, c3 e6 V- Z: Y7 Z# P ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & B4 j7 \3 N% H
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ L8 }% ]3 w3 ]
"}"}], ",",
# v0 Z/ K H6 b. \ m6 A3 z6 j9 Q RowBox[{"{",
! d# K. \) X. T6 F, d q2 v RowBox[{- S6 k) i# O6 Q
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 F$ }" ^% R0 ]4 W9 Y ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ h% @# r" |: r3 u5 b9 L0 A6 e
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
! \- p" W) T* F "}"}], ",", 1 K; c% a2 z8 D9 A
RowBox[{"{", ' d0 F. T9 @: v1 t9 H/ p
RowBox[{
: y, h- V r7 Z7 `" D5 Z "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 I! o' D+ m8 I M8 k* ^" |
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
/ t% G5 C9 v0 X- F7 ~; M( }! a "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
: C: y3 B" Q, @* ^. o3 z% @ "}"}], ",", 9 _( u& a' Q8 {, x
RowBox[{"{", " ^& S: y; ^, n1 |3 L" T4 }
RowBox[{
9 z. h$ Z X) F. p9 s5 E "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% ^' C: U# B `# y& k; b
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( T: E1 x# ]% o- U4 B2 L
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
9 J( c/ o% M4 e, c "}"}], ",", ' G) X- G! H2 N( K3 f% t2 T
RowBox[{"{", 1 S; ?& P3 L& c+ | a( `: y' a
RowBox[{- s+ r# |& @5 C0 U/ P
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 ~9 }9 v- O; U7 N0 x: `
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 i+ d/ A* T, C; `8 F9 v
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 b! ?2 M. F4 s7 C& p8 Z
"}"}], ",", " v7 u4 r; }# D- }) m# v8 ?
RowBox[{"{", & @* R r) {& R- N6 A0 i3 D. n- C
RowBox[{6 i6 {# [6 |& R( s& |
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* g# M6 h. ~% I8 x# u% n
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 p. c+ |$ b8 t# z8 o G& m
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
/ J! {' _+ W H, | "}"}], ",",
" t' a4 Q$ U" Z7 j# v6 K. w RowBox[{"{",
7 u! l% {4 |9 v5 z RowBox[{! W# ~! H5 y3 ^3 g
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. n0 d# a2 P" _0 r; e( c4 @& ?. u
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
* Q0 M4 W# R H+ N0 f' g, w "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. P! B# g) p4 m! I8 q4 K8 e
"}"}], ",",
( R* M' Y" d( q! Q/ U7 k M! a2 W" Z P RowBox[{"{",
; C7 g* u5 g! @- |6 |: c6 t6 b7 @4 d( e RowBox[{
* e, d! T1 w! t) F "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ v. r1 P7 C( L+ ^% D ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 f' C$ \7 w1 |( r
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
$ y& O4 R) J Y "}"}], ",", ' Y9 W4 L4 E0 u9 f9 S$ Y
RowBox[{"{",
q: [) h/ e3 c: K# J% X' j RowBox[{" e4 B* _' x: J$ R% x# Z
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 x( @' C7 B3 r3 _$ F# v ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 A9 N2 W. D5 d7 K
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; X; w5 ^+ [9 {, b. a
"}"}], ",", 4 w% A7 f( i! _8 m, O0 e
RowBox[{"{", j0 S( z x7 L
RowBox[{
9 l5 T P7 p% T9 s- C4 n' \ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 S4 z) @7 K/ f. B. [% b+ |, ?
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + {' p6 S( c( X: d$ X. L) M m
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 Q: z8 A; ~! \0 {' n+ U) W P
"}"}], ",",
) Z0 z* w* d, H) C/ V* A8 h5 |8 R2 S RowBox[{"{",
% z& M2 R E4 O6 Q5 E RowBox[{6 r h. ~4 t9 N/ m3 m' U: d: _
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) x+ V1 z1 Q, G2 | ]) C
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
/ p3 Z/ O; ]- L8 J$ v "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 j- q+ `6 O$ a, E
"}"}], ",", : h# G3 y' T2 z- Y
RowBox[{"{",
' x6 n1 v; B; E) Q RowBox[{3 @& }7 x* u# v1 N5 S ~* y) B
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* h t+ ] ?; `5 z8 W
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
) q5 U" e$ |3 { "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 H' }5 l5 Q& V) \6 m# V" H
"}"}], ",",
- P# s6 f1 w: c/ q RowBox[{"{",
1 z2 l% e- K' u RowBox[{
3 l A, c& \7 }9 X "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
- }2 W: D3 u9 K ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
# J$ }/ P$ j5 s& A- W& r "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
5 l: r7 V2 {8 U) q! b" ? "}"}], ",", % N# ^, n) x8 P& F8 G; `
RowBox[{"{", : y% A! k9 r, J$ j6 V6 u" U
RowBox[{& v- \* k( ?' N3 Z/ l7 j+ x
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* C+ l/ u" x3 K3 \
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
" w% Q* ^8 a! B! n1 c( ~; e3 ?7 q "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 T- h" }0 B) ?& T1 J; Z6 x7 r: j
"}"}], ",", 6 |8 e& J7 s& }! B
RowBox[{"{",
% u3 ?$ `4 w/ J& X i! i RowBox[{4 w4 W/ T1 N2 K
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 ?; U9 W9 v- }6 N' g9 E
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
1 V2 W7 f7 p/ U "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& b) L5 j( s3 l4 _) o
"}"}], ",", & g. A# _! v4 g3 ^
RowBox[{"{", # R$ `1 m+ x) P1 M! l" A. z8 V, C7 }5 `
RowBox[{! S* _9 l1 J& Y9 @( S
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
9 n: i. J: Q/ d ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # T8 r4 w t* s
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
1 U- l$ V. b3 m" T$ O "}"}], ",", - \+ T" r/ ~3 [$ f& }' j4 y
RowBox[{"{", " ?8 y" V9 }; ]( J
RowBox[{
J( X5 A% ?5 H: \ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
8 o- a" I/ S4 [4 H ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 k Q& W# Q3 e6 g% k
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}], G* |- E+ D/ `' M2 P9 ]
"}"}], ",", - g- |6 b0 d* T* g6 g( P
RowBox[{"{",
; s" H% N, D/ k) A9 b RowBox[{* Z, [2 b( g/ |2 p" ^
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
# k+ L/ E/ _( |: ]4 j0 W7 x ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
0 s) u3 G/ i7 e" H6 D% `& D "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 S" ~) R7 @7 }! [% g
"}"}], ",", 1 p/ Z& x; S' X) A
RowBox[{"{", ' i# w# X' P6 j- c( r& m
RowBox[{" z; J+ b. J* s) ^) r1 n! P" b* F
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
& s+ f: `0 n, a$ b! n ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " J& Y3 ]1 |. S6 u# F; v
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# Q. _ l5 R" Y6 f4 [& @0 r7 c& r) s% x& K' T
"}"}], ",",
' K( m2 O, q$ [3 A, N. V( T( L RowBox[{"{", * i/ @- F3 B/ V$ f0 f
RowBox[{
0 y2 p0 k5 G$ }6 y! C4 {5 c "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* c( E( @' }3 h4 ^8 {$ I; e! Y3 D
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
U+ O2 w( ]/ U, Z0 B+ _ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
6 Z6 V, p. i7 v& Q$ v {( k "}"}], ",", , r! |: D5 a( r, _7 x
RowBox[{"{",
& B* T; A, ] Z' u% @* x- b6 A2 p RowBox[{) ?5 K, s3 D. u0 h
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 R$ r& V; a6 h& B$ w ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
" y! i, T4 n% m0 b "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 W) @) k, r- ]
"}"}], ",",
5 ? d) s/ Z7 O; [) g5 l RowBox[{"{", - J7 ^( v' M3 Z
RowBox[{
- D% ~9 G; d/ Z( b3 q "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
0 A- ^) ]0 ]* |9 z4 D7 B) n ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
6 L3 T. E5 }! a" k% T "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
3 ?4 o; u- A% f# I! p "}"}], ",",
. W5 M Y8 Y- D* f1 {' ?/ d RowBox[{"{", + b' R9 B$ e; y
RowBox[{' s2 P0 d$ p1 r; O" Y! x2 k, }; f
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, j. I$ u/ f6 e+ z
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
+ j* `( Z+ E0 F& j3 O3 A% ]$ q* D "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( U+ u! @- O1 b6 S3 t
"}"}], ",", : h' p+ ?* t# T, X. [4 R* @, s
RowBox[{"{", : x9 p$ b8 `" `
RowBox[{
# a& e4 ]7 n' d* x: P ? "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' e- H6 [( p6 ` d9 z
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - T+ F' r1 o8 r" ?7 j
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 V) Y) ~! X' y. Y
"}"}], ",", 5 Z7 Q8 @7 L3 x
RowBox[{"{", ! h5 L3 S4 ^; c: i; R7 M- z! C
RowBox[{0 {9 c0 `. X2 _
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
* e+ K2 L' s9 K ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ x' T; w. `9 C1 Q$ `
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
# J% I- p$ e: B6 S "}"}], ",", 3 V7 u N' y7 o6 u! Y7 L0 A+ X
RowBox[{"{", 5 W4 m# J2 `% g
RowBox[{
; a) Y: f6 u& t$ }- {- k "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) I5 q* O7 ]) X: x3 c0 o; O9 ^
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
4 X3 L1 \0 ?8 [' e' D5 P H" q "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
: Y* t# z: I7 O3 q. ^ "}"}], ",",
. V+ w( m9 \# d& @* m! [ RowBox[{"{", / k$ U# t+ V2 A1 n9 E
RowBox[{! {; \# L( o! l+ I% M3 U
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 `9 F4 i0 `* N+ k ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * Q3 W% K6 X: R* e1 Q
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}], u* p% E: {- W2 [$ ~! F) u ?3 E: q. t
"}"}], ",", ) i% V* j$ J9 S
RowBox[{"{",
7 Q; i0 i: z1 r/ g RowBox[{
3 {& r0 k' \ a, D "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) z( q; ]. ]# G( U( a2 ]) |
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % v' Z$ |5 H# l6 ]
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) I0 J+ W4 o i3 E. ^4 P) Z "}"}], ",",
: s$ H" U, J7 N" j6 @8 D RowBox[{"{",
4 k) f. F6 W/ F6 A( }* R RowBox[{+ g3 V' p7 W2 x, j( v- ]; N" ?
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
9 _6 z; U# b$ ^- H, @, Y1 g$ }1 z ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 `. M+ d' @0 i3 N# j
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
- m7 }( X5 {/ ?, w1 a "}"}], ",",
# V) R7 {4 Z" s. i6 Y6 m RowBox[{"{",
- Y9 Z3 q. z( P) o RowBox[{. z! W o% P# U! f
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- F+ Q! O: [7 l. L# q
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
* w& F) w O) C, ~6 k- P% |1 n "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 b0 ?) O' b y4 f
"}"}], ",", - ~1 {) U& X. ^ X, ]$ Z7 y F
RowBox[{"{", 9 Q5 c/ F+ ~/ A# m0 _
RowBox[{
: g' r3 S! r+ c$ _, [+ B "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 \! K0 ?. K" f6 t0 i" f
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
" ?. d1 {1 Z7 D1 t* Z "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," J n$ s1 C' r5 M$ Q) ~% B
"}"}], ",",
3 Y' c5 i9 \0 i# I' z% ]" w RowBox[{"{",
; E: ~. g; E3 M9 N1 f1 [$ J1 E RowBox[{9 u1 s+ ?$ n0 o; s& D
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; n# Z+ h! {& x I% }+ F3 Z
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
: G4 p" I5 R' E# j "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ f) A, V: q! a! G9 F6 f
"}"}], ",",
3 [1 c4 g5 `3 x( [: Z RowBox[{"{",
( s2 O8 J) {& g RowBox[{
% V+ b- k* k% Y y2 J! r* E0 y( z "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; w! |) J% c/ M \4 d3 z
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
5 x* c: V8 T2 ]# w: M0 K0 I "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' [9 A+ W9 E$ ` "}"}], ",", + X Q. U, r6 z% q* Q
RowBox[{"{", / Z" y2 K; m( A0 ^
RowBox[{: s- c' S; y) D; U5 n; M2 _
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
4 t7 T( Z+ G( U$ T ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - B6 E9 r* I Y) P2 W1 m
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
# l9 |2 ?: J% L1 T9 X+ F/ n' O+ ] "}"}], ",",
+ O2 R0 J, X, p l6 O+ Y8 K! \ RowBox[{"{",
4 ~, x. ~* n* a4 b P, D RowBox[{
2 L/ E: _9 p: X4 t "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ _% J0 \; r7 n4 |! Y( U% d9 o ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
& d' R8 }& i4 |& r$ K5 b: M) b; O "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
% T( T# k/ I, {: v; X# X "}"}], ",",
" ?2 [; M8 D! c B3 V3 Z) y0 g% ^ RowBox[{"{",
2 u2 @- m% e' Z# ^" c RowBox[{; T; j- i2 J1 g8 w7 _
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
: t( W7 x4 [% c/ d% n; e ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
& h$ W1 ^6 a% \ "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( A; L6 p8 n& [* a
"}"}], ",", ) g& _7 e$ e Q. S% q- m: H
RowBox[{"{", + C, g% Q. f1 N- C
RowBox[{; U- r6 I2 b% I* b% F! I
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 L/ z& Q8 h8 m9 a4 Z+ x$ ]
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # h7 L- F; q4 D9 ~ r4 ]9 t
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}], X: ]' T M5 |
"}"}]}], "}"}]], "Output",
m& r ]" R+ i. w4 H/ W2 S/ s- U1 l CellChangeTimes->{- u( X8 i1 F3 s' [' w( t
3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9}, }2 T1 J, [% ~$ `
3.5779582609987946`*^9, 3.577958492393998*^9, 3.5779590297369347`*^9, 2 q2 d. z& W( R& z
3.5779622422980003`*^9, 3.578012443890625*^9}]% @: o0 m6 u( k/ ?' ~3 a
}, Open ]],, @; @2 T4 q7 ^; R% O
5 y4 T9 M) x, o% @" m' ]Cell[BoxData[
* [/ n0 A/ b) N6 f( ]; f RowBox[{"For", "[", 7 H9 @/ F6 v# f( \6 q. _3 Z5 M% R
RowBox[{
+ p& J9 ~0 S! W5 e3 R( L RowBox[{"i", "=", "1"}], ",", $ L7 R8 F8 x4 W7 X6 J$ h
RowBox[{"i", "\[LessEqual]", "60"}], ",",
8 Z* `3 V9 |( J1 a# {0 m RowBox[{"i", "++"}], ",", 9 _2 t1 h5 P6 x \
RowBox[{"{", "\[IndentingNewLine]", # D0 @: F2 Z! U+ P0 t" p
RowBox[{9 X7 z1 A, Q: X$ ]% ?
RowBox[{
' `' ?0 E# f" O6 F* s9 v2 ^ RowBox[{"m60n21", "[",
' x5 c0 F. a! w% E2 n. ` RowBox[{"[",
6 Y" D( g# @" Q$ P+ ] RowBox[{"i", ",", "1"}], "]"}], "]"}], "=",
5 L& O# S5 j& l RowBox[{"u1", "/.",
4 U- q( C, ~2 e$ }; ` RowBox[{"{", 3 }: T! S4 Q3 I8 {! Z
RowBox[{$ S$ P1 [( n% ] L
RowBox[{"x1", "->", 3 i- D ^; b5 J+ x1 [- Q
RowBox[{"Data", "[",
9 r) Q( S# f5 t7 t3 F) ~& M RowBox[{"[",
- U) `$ C) z2 J& L: o( P RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ; V6 R" G7 f# j
RowBox[{"x2", "->", / S& ~' C( I0 \$ h2 X* v$ H. ?( W4 q
RowBox[{"Data", "[",
% |& Q- J6 }' h9 l8 S: G RowBox[{"[", , A$ m0 g% k. D- r9 P9 O
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
}; E" D4 J$ }5 ^8 A; ]: U% } RowBox[{"x3", "->",
; Q& l3 h: i! m3 b- e0 v; X4 H/ q RowBox[{"Data", "[", % c. q! k2 B' u% I
RowBox[{"[", ' W- Q5 A+ O& m3 l( g
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", & |& N( M2 B$ S
RowBox[{"x4", "->",
, r5 K/ [! i% H! M RowBox[{"Data", "[",
9 ^! {- g. K) q( w RowBox[{"[", - z8 Y: u& n4 y4 R/ E
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
4 Q0 d1 }& G+ W0 G( W7 f0 U' x2 i( m RowBox[{"x5", "->",
4 U* X5 l- i7 @! g9 j7 f, ]5 ? RowBox[{"Data", "[",
& o1 W& F; C6 [. H RowBox[{"[",
+ k! k1 A! {, v RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", * _/ `; u, u: h
RowBox[{"x6", "->", $ A/ ]3 f! A3 }5 ]' G
RowBox[{"Data", "[",
% W4 p+ X# ~6 S! T) ~ RowBox[{"[", + e& ?3 f" |% S% e0 L1 i$ W
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
8 M! S$ W& n' Z+ Q0 [ RowBox[{"x7", "->", % [ p, `, y# S. B. P0 p
RowBox[{"Data", "[",
/ {- R6 c" {6 ]& [! T" X RowBox[{"[",
# P- d4 f, \) n/ b3 k! w* A: V RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
( u p7 g# U, b, E, ? RowBox[{"x8", "->", & @; L! J" T% H* G0 t
RowBox[{"Data", "[",
4 T$ G* \$ t( ]& @, U5 j; D' \ U RowBox[{"[",
- K. E8 }3 d% ^. x* j4 R RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 8 q* I4 z3 u1 o# }
RowBox[{"x9", "->",
5 o" \% X% D9 e. j3 k RowBox[{"Data", "[", ! M7 X% D- Y& U
RowBox[{"[",
: {& x* _7 i$ v9 Z RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
\! A2 I! h) C$ a9 S1 o& O% n "\[IndentingNewLine]", ( w6 \: n9 G" [9 n
RowBox[{$ {% j; F; m Q$ u% `6 }9 x
RowBox[{"m60n21", "[", 8 ~2 u" u$ t) T5 Q4 M' C4 ~
RowBox[{"[", * }+ s7 k8 T" L C
RowBox[{"i", ",", "2"}], "]"}], "]"}], "=", ) t1 Z) N; [; }
RowBox[{"u2", "/.", $ o# R& S" w9 E% r8 f, t- w3 b
RowBox[{"{",
. ~# k! E5 ^, X) H5 c1 Q) a, S RowBox[{( L$ D9 t& L" a, V: l0 H) b# Q
RowBox[{"x1", "->",
! J. s! k: \. o RowBox[{"Data", "[", $ P$ F) i9 H4 A) P0 `
RowBox[{"[",
# L a- `+ Y. p+ |. u RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 1 R, M3 I4 f' |$ V% M
RowBox[{"x2", "->", 5 I3 C% u+ {2 K
RowBox[{"Data", "[",
. u8 E: D6 V% h( i$ s; ` G RowBox[{"[", ' t6 Y. E. O4 e
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 0 Q/ _, `5 b, A" e s" n4 s
RowBox[{"x3", "->", : t! q8 H: {' p
RowBox[{"Data", "[", - y$ m+ n8 U, U$ j* x
RowBox[{"[", " \* E* g# J5 _" M; L# `' c0 }* Z
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ' Q& u4 x8 y/ J9 a# ]" b9 p
RowBox[{"x4", "->",
7 q6 g* z, ?' S, d9 G RowBox[{"Data", "[",
+ f/ a" d2 F# u) @; @8 d. W RowBox[{"[", ' X4 f, ^; U, N
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", % S8 d5 n9 W3 N3 f3 u0 h' V7 Z6 p S
RowBox[{"x5", "->", ( G: n7 S5 v* Y; Y- l# R% q4 O- w/ U
RowBox[{"Data", "[", $ Y3 J' ?. ^! X( e
RowBox[{"[",
; @3 H6 Z9 c4 V* m2 G6 u RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
# [; }" F! V+ [8 s RowBox[{"x6", "->",
' p. t% p" k y& ~+ l$ U0 z {0 @ RowBox[{"Data", "[", a" U6 \% ~; u7 P- _3 m
RowBox[{"[", ; Y* Z- m# J2 o1 _0 I9 G
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
& A2 x( R t' Y* p* n( i RowBox[{"x7", "->", , c* z# `0 d' S8 q. \% K6 [
RowBox[{"Data", "[",
) v, K7 p* Y6 C, z8 F! @ RowBox[{"[",
R. x- Y, _1 Q1 w S" V( x+ O/ m RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
1 ]% J3 T; m( \ RowBox[{"x8", "->",
/ m- k. N( R% a o' f/ n) G RowBox[{"Data", "[",
* {8 n" J' z* `" w8 D, ] RowBox[{"[",
% S- A3 Y7 B; P1 `0 U RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 1 j+ l/ F, M4 i# |3 I) i4 V
RowBox[{"x9", "->", 2 ~; L5 B) a: A7 \9 H- Z: V
RowBox[{"Data", "[",
0 b( m) K- P2 g3 D2 _; Y4 b* v RowBox[{"[", # Z' V, B4 T* `* e
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
+ b* |6 m$ d w- R+ ~ "\[IndentingNewLine]", ; g# v3 G3 B( _; c) @7 f. B( a
RowBox[{
2 u S% R& u0 V0 q1 J$ D RowBox[{"m60n21", "[",
" K6 t6 n T) Z' \4 d RowBox[{"[", 8 l4 Q( I# ~( {9 Q5 U
RowBox[{"i", ",", "3"}], "]"}], "]"}], "=", - h1 z+ y2 s' n% G- \, D, V
RowBox[{"u3", "/.", : t$ k! M" B1 V8 p2 n/ w' \' I
RowBox[{"{", 1 h2 ?% p; ~ C5 l/ u
RowBox[{2 q5 i! c2 H4 h( M7 W' Y7 m
RowBox[{"x1", "->", , q2 O( \2 |& P) q3 R/ ?& R- Q
RowBox[{"Data", "[", 6 @5 W8 f7 m& a% U: c# y
RowBox[{"[", ) T7 {* }7 Z# k, l$ ~' X1 f
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
7 T. r. B: ^2 ]% u+ e; `9 u; h RowBox[{"x2", "->", . a3 p4 W% K3 ]( T% O: @
RowBox[{"Data", "[",
: C# q# D: ^1 u# D- `" ]% b6 O RowBox[{"[", 3 K, s# t+ a2 F
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
- K, }& C! c# b+ A RowBox[{"x3", "->", 2 J* ]: O, g+ F( y0 c, [
RowBox[{"Data", "[",
- N* H' C' D7 y, A$ p1 D RowBox[{"[", ! ~* O3 `1 J! l2 G
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
! F" j6 M7 j: i% d" N' O RowBox[{"x4", "->",
7 c. w m; I9 b RowBox[{"Data", "[",
9 L$ `& v F3 P% ^7 w; ^ RowBox[{"[",
" _1 V; z* n) [" r3 s" | RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", ' L0 s0 }# A6 W% ?; F5 Q
RowBox[{"x5", "->",
' S5 x8 _) v8 V/ K, e1 H RowBox[{"Data", "[", ( K* v; [8 E3 f" b
RowBox[{"[", ' v2 s6 v5 [$ _+ R* ]5 `! c
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 6 R# |8 Z" Z: r. u, Q7 k' Q% Z2 n
RowBox[{"x6", "->",
0 d3 h: o; `' D. ?& N RowBox[{"Data", "[", " B# U9 J5 ~# ?2 W2 b/ x
RowBox[{"[",
1 T$ ^! s+ z/ ?# F' j; M4 G8 { RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
/ ~: U# [. a' p3 A RowBox[{"x7", "->",
0 i6 u. {; C2 C7 o9 }9 P1 N RowBox[{"Data", "[", $ U7 ^: D) g, O U1 _' [
RowBox[{"[",
8 X0 B. T5 M+ v" ~" l7 u RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 2 r. }1 y# M& X7 j/ F1 \- q, C
RowBox[{"x8", "->", & J3 d: ]$ l0 y! d* o( O$ L
RowBox[{"Data", "[", & E$ V; k5 }. l" N8 R$ {/ A
RowBox[{"[",
' k" o: ]! q9 i7 L3 T! q8 Y RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
$ s' N% t- B4 {8 i/ O RowBox[{"x9", "->",
, r" ?, h3 n- k+ l RowBox[{"Data", "[",
% H8 C( w! }- P# H RowBox[{"[", C% z0 ?. `) k! {
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 7 U3 A% e2 ^/ w+ H/ j
"\[IndentingNewLine]", , W1 M# a$ h# z
RowBox[{* }6 C) A5 T( b6 A
RowBox[{"m60n21", "[",
) J9 o) q) b& Y( y1 {8 w6 s RowBox[{"[",
' J1 L- O- \8 X- p% |( L RowBox[{"i", ",", "4"}], "]"}], "]"}], "=",
- W4 {, J, W2 l! n: l7 j RowBox[{"u4", "/.",
6 E& c. I9 u) S( k" K/ I RowBox[{"{",
' B5 I4 }- Z; j& w0 h8 u% ~ RowBox[{
1 w) g) |" G/ Y RowBox[{"x1", "->", # V/ M4 ]3 l9 }% a4 z8 c0 j! e
RowBox[{"Data", "[", & z$ w+ M( c8 J: u3 t
RowBox[{"[",
3 w+ `6 V+ L9 `' {6 W7 Q# I0 w RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
& \6 e O( J- z RowBox[{"x2", "->",
, O! x$ v; Y$ K4 \$ i RowBox[{"Data", "[",
6 @8 C* T3 J7 R! _9 g# r' o1 L RowBox[{"[",
: h" N: f2 q: c6 S; T RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
" H' a# N7 `) f RowBox[{"x3", "->", - t) b9 K5 i" }9 x6 _0 o* V3 S( {
RowBox[{"Data", "[", 3 T/ p# e$ C# u) W0 ~9 J! \
RowBox[{"[",
: {/ h9 k3 n7 j6 h RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
# Q2 V/ v4 W a- J' b s6 e RowBox[{"x4", "->",
% Q; m' U/ w( S" ~8 H RowBox[{"Data", "[",
1 {7 r3 j ]( L3 \# N4 c RowBox[{"[",
# A" V- B( k3 Z' @5 K/ O. M RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
$ {1 z6 G" f6 y- [. b- V RowBox[{"x5", "->",
, L% j' G& C' c2 e. i RowBox[{"Data", "[",
4 q+ d0 r1 B; M3 W5 d RowBox[{"[", 6 \% n7 j7 ~6 G' U5 F: m0 ~; v
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
" `& w5 p" }/ `( p$ a RowBox[{"x6", "->", ' z/ o" @! L4 P% ~4 j% ?2 O
RowBox[{"Data", "[", : z$ T4 j: y. i n# E, C
RowBox[{"[",
5 A: F; e* J% ?5 j RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", / s1 ]: n! \6 _' X3 s* P6 m
RowBox[{"x7", "->",
2 H& i+ {; V- ~! Z: c RowBox[{"Data", "[", @3 ]$ u \( H
RowBox[{"[", - ^9 u5 g, w( ?
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", - a" ?- ?, z' T5 ^
RowBox[{"x8", "->",
& s3 a$ }- Z% \3 ~* F) G RowBox[{"Data", "[",
/ M" i1 G2 m! R6 {8 W) n! [ RowBox[{"[", 9 O& Q' j3 H4 D B1 z
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ' \" h" | Q" s
RowBox[{"x9", "->",
; H' I8 e- @2 P2 Q8 h; |0 c; I RowBox[{"Data", "[", % r& M& C& V1 o) P F( f
RowBox[{"[",
2 {: z( H6 D7 g' { RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
. B. D) }/ C8 R "\[IndentingNewLine]",
- B' }- G' y+ i' d, h RowBox[{
. S$ _; p. I& h Z- |) a RowBox[{"m60n21", "[",
7 g- x$ {2 w8 o% g+ R) ~% } RowBox[{"[", * m6 I* b9 e. ?! {, {3 Q8 z
RowBox[{"i", ",", "5"}], "]"}], "]"}], "=",
8 N' i. ~; }- z5 @( X0 o7 w p0 \ RowBox[{"u5", "/.",
5 i# E2 }$ w* E6 a8 D RowBox[{"{",
7 O4 V9 j( I% e/ L% F RowBox[{2 B! Z! _' ?$ y' c
RowBox[{"x1", "->",
. G% ~2 z1 W4 T RowBox[{"Data", "[", & A8 l: F; Y' t' C: k- i% a
RowBox[{"[",
$ F2 H! A$ V4 g6 K) ` RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
r+ Q5 D7 \5 C0 Y4 _ RowBox[{"x2", "->", ( I2 i2 K Y/ w
RowBox[{"Data", "[",
. c9 I- p0 X, a7 R' U, b9 I% K RowBox[{"[", ; n A0 j$ d1 e
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", + M) {8 b) @! o( e* j& w
RowBox[{"x3", "->",
) o( g3 ?' F# ?$ W& k! d& |1 p* S* S RowBox[{"Data", "[",
' s4 R# v d3 l0 s7 B RowBox[{"[", + a, K) ~- t3 o8 { x' w
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
O) j# w) M* ~ RowBox[{"x4", "->",
# Q" o$ k% U( p6 H: A RowBox[{"Data", "[",
3 ^) Q/ a) a' s9 { RowBox[{"[", 4 v- t5 O; i% [# ?# b
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
$ }: {4 e/ [7 n1 b RowBox[{"x5", "->",
/ g; c( {: ?4 c2 v RowBox[{"Data", "[",
* L& Y9 R/ o) P: C RowBox[{"[", + k. i T9 e/ n k" u W
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", : e" \% n& v4 ]! ~1 b& y! |, i
RowBox[{"x6", "->", ' [ b! a. E) L l: I
RowBox[{"Data", "[", 9 e8 Q& T3 y- h0 [+ I
RowBox[{"[", 2 C) e# C, r! L& {5 T. G* r
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", # C0 M0 j* m8 S' e6 v
RowBox[{"x7", "->", : i# M* d1 H8 L% _! n7 ?
RowBox[{"Data", "[", 2 S g5 l; p7 g: C" l) X1 r y" u W
RowBox[{"[",
4 m9 y) o, ~0 W' K RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 5 `/ j- M* z' z8 V( O2 w( s8 {
RowBox[{"x8", "->", 5 A% x& x+ E. A& p9 p' U( X5 _
RowBox[{"Data", "[", ) G6 p4 S; g# }
RowBox[{"[", ( X8 \4 e3 I' v7 u1 \3 ^' ^( ^
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 7 P; D6 e* |1 a: m/ y! f
RowBox[{"x9", "->",
7 X: r% n$ Q( j X+ O& F1 {' j' b# E RowBox[{"Data", "[",
! s7 T, w$ u. V RowBox[{"[", 9 h$ w2 F) Q. ^! N
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 1 I+ W% `" } Z9 J( t2 P8 J( [& J
"\[IndentingNewLine]",
$ g6 q- D9 i( ^! N( e T RowBox[{
8 I7 K3 m, N- r# x! E- z RowBox[{"m60n21", "[", * t* e0 W q1 l5 t8 S! E
RowBox[{"[", ! f* ]6 N6 e# L0 |. |2 M: X- j
RowBox[{"i", ",", "6"}], "]"}], "]"}], "=", # S7 N9 n) _7 x! A
RowBox[{"u6", "/.",
! H/ T. b, Q/ v( y RowBox[{"{", + `+ A3 [' J; \& y- l3 V; \
RowBox[{4 c, \. D- U1 c4 P% P6 d
RowBox[{"x1", "->", $ Y* L0 j7 r" \" L" D% `
RowBox[{"Data", "[", 7 O3 v* o2 O: X
RowBox[{"[",
0 h/ N1 K8 a1 \& I5 v1 O+ s RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 0 g* d2 }3 |! G) R2 J5 L
RowBox[{"x2", "->",
N; z) y5 O" ^' `6 `: } RowBox[{"Data", "[",
) O6 K( ]% ^2 d RowBox[{"[", ! k0 T* o9 H( p& C
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
5 L& y& `' S3 ~& N9 l& P RowBox[{"x3", "->",
: r+ {- Q- X# ]$ g+ K& y RowBox[{"Data", "[",
. k' u1 J. M5 _' P4 h: ~ RowBox[{"[", % W9 R1 f) t% i, z. i
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
" P1 j9 l& R. }' O9 i+ m9 }, m( _ RowBox[{"x4", "->", 8 h( E0 E; O' l9 [
RowBox[{"Data", "[",
% S! t5 v2 _+ y: n8 d; \- L' X RowBox[{"[",
' D8 w% G% [( F+ S RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
+ ~# \8 U7 O9 l% L2 X& _ RowBox[{"x5", "->", 5 b1 C* a2 X% w# B' [; T
RowBox[{"Data", "[",
! O9 z4 d5 X$ f7 v2 g RowBox[{"[", " Z0 s9 }4 y1 G, u% ]' ~
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
) w( Z, j& I! i2 q' P0 B RowBox[{"x6", "->",
$ q0 I Q/ [. m! N- j V: S RowBox[{"Data", "[",
6 r, W' E/ [, p/ `2 Y0 m( R5 o RowBox[{"[", 5 _% Q# R- I+ p& R/ p
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
0 U: U* j! Z/ a, i* L: ?) s RowBox[{"x7", "->",
0 \! Z4 i2 m# K5 n5 { RowBox[{"Data", "[", / \8 v: O' O/ F+ g
RowBox[{"[", ( C! e# b- P! I% X+ G
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
0 v. c9 j& Y, M8 }3 S RowBox[{"x8", "->", 3 O l- y+ u9 ]0 T
RowBox[{"Data", "[",
" X4 }/ o4 o0 l* Q0 |8 Y" e RowBox[{"[", 6 e% D. C6 _$ y% g
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
. `# r$ m T; T# c6 h RowBox[{"x9", "->", ! z; e. {* u7 V
RowBox[{"Data", "[",
1 M3 e) f' }5 q3 G6 u E. o RowBox[{"[",
4 {, [! Q" v4 A! x# { RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 9 x! B. M* X7 y
"\[IndentingNewLine]", 8 l( y: n, B& }/ ~ {9 Z! x
RowBox[{: d0 l2 C6 e/ e1 ^3 i8 q) V2 V
RowBox[{"m60n21", "[", # Q* x/ |8 g6 k! H
RowBox[{"[",
' F5 C+ n/ I- R5 x7 i; ] RowBox[{"i", ",", "7"}], "]"}], "]"}], "=", & h* K. ~3 h3 n! a: \' x$ u, c
RowBox[{"u7", "/.", - w" b+ C! c* B7 Y7 l) j7 |
RowBox[{"{", " @9 H8 ?2 P3 X8 [: l- s
RowBox[{
1 `6 i$ t3 r$ e0 a1 c5 ^2 g RowBox[{"x1", "->", + i' w8 p% m8 B# q* W2 I1 b' K4 W# A" G
RowBox[{"Data", "[", ) z a# h6 s4 q% E8 p% N! ~1 ~
RowBox[{"[", . F+ k/ t5 G2 l- o6 T
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", n1 T4 v: V' U# J6 Q% B
RowBox[{"x2", "->", 3 J5 x+ W5 f9 L! x: y5 e
RowBox[{"Data", "[",
( s. U5 p- N; q3 P1 z RowBox[{"[",
* G" W g% E0 T! m" q0 e; c1 r) K RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
' l: ?, i. Q* f. J" o$ v RowBox[{"x3", "->", # f z& Q' g5 t8 i( \
RowBox[{"Data", "[",
7 ]4 d3 S- } I! U$ l" E RowBox[{"[",
3 n9 `1 ?! ` j$ m! \1 A# f7 r RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
; F+ M0 E H0 F' K0 H RowBox[{"x4", "->", % o# R9 U4 ?5 M" O* {6 |( S
RowBox[{"Data", "[",
/ ~4 V: H/ ^# u" c RowBox[{"[",
9 Q2 r! ?. C* K( ?" Y- r# P+ k% q RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
* P9 H, z- \- C$ c+ r( e RowBox[{"x5", "->", : I* k/ [' C2 Y6 C6 @0 @
RowBox[{"Data", "[",
5 X; f5 J6 D! V6 S3 X6 o% X RowBox[{"[", - Y9 B+ |2 T- z% V
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
- P/ z7 @# \, @4 J# r; Y4 P RowBox[{"x6", "->", , W8 _- P' u5 [ h, F
RowBox[{"Data", "[", 6 p' L% i9 [+ M8 D8 r5 x
RowBox[{"[",
4 v( ~; n6 d, y' K$ ~" } RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", + [4 W1 ?7 K% V8 f
RowBox[{"x7", "->",
: Y& q# F0 v0 y: O; c RowBox[{"Data", "[", ; \+ `" ?2 o, o: ~$ M
RowBox[{"[", 7 @9 A8 U; f+ v+ y0 C
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 2 Y/ }5 X% N0 u% a
RowBox[{"x8", "->", * W' @( e' A2 H+ G) W
RowBox[{"Data", "[", % i& [+ K; ]0 }9 K* H j+ `
RowBox[{"[", % _* M# T, T J+ V' m% A
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", . t# x. M2 g% G5 x- Y) H$ \+ |
RowBox[{"x9", "->",
* _; C% G8 E5 b, j RowBox[{"Data", "[", / L2 R' j+ I' v! p% C! r
RowBox[{"[", + c a; o' e4 Z! h" W
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", . P' s3 t$ ]) q8 H, |0 o
"\[IndentingNewLine]", - ~, h8 H( a' O1 V4 m
RowBox[{8 o+ y, P$ T1 k( }: i3 ?& S% P/ C% K I
RowBox[{"m60n21", "[", # x; ^& s2 k+ X$ o' Q2 q
RowBox[{"[",
% D& Z/ g* \ r& A) ?# V+ c RowBox[{"i", ",", "8"}], "]"}], "]"}], "=",
. z" z% O5 z/ I RowBox[{"u8", "/.", : J" S+ i# X5 A, l, [0 `- P
RowBox[{"{", & D( |; {0 y+ I3 i+ q; ]
RowBox[{9 v/ n ` W7 q3 o$ I, b0 n& D. Y: z
RowBox[{"x1", "->", & W8 I# `8 w* ?
RowBox[{"Data", "[",
/ L& S1 E- D7 C RowBox[{"[",
9 R. \/ O$ w7 p RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
' B5 X) Y; w, o& d+ {$ O; o RowBox[{"x2", "->", 4 v ?, _8 @ S7 Q: f
RowBox[{"Data", "[",
3 [+ V1 T3 D6 d& Q( i% B) Z RowBox[{"[", # H+ v* X0 G, ]6 X1 F4 w5 }3 K
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", * t0 \! z2 {1 V) v# _/ K! N% a, w1 m
RowBox[{"x3", "->", ) R* ], V; s- ~# [) h9 B2 ?
RowBox[{"Data", "[",
2 y+ K% l, T+ S" U, d N RowBox[{"[",
% [8 u* G) O5 j. N; i, g! a RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", " C7 X( ]3 \/ L. C- `4 G* q2 e
RowBox[{"x4", "->",
1 s% w3 I- _7 ]1 i2 ]9 Z RowBox[{"Data", "[", + Z* c7 U+ Q8 y8 ?! K! i9 A4 o9 H
RowBox[{"[", 9 c7 j7 x, D! n9 x7 n9 o
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
k: I* V% z4 D% `- R7 g9 n7 q RowBox[{"x5", "->",
, o2 h( h; x! x RowBox[{"Data", "[",
% e9 d2 j$ L8 `6 D RowBox[{"[", 2 i& Q0 p) @; c+ A( w% z' z! t
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
' o. a2 t6 d1 e0 g% ~ V RowBox[{"x6", "->", : z& D' a5 }+ e9 {5 |. b! j
RowBox[{"Data", "[", l) e" A8 a. r3 ?
RowBox[{"[",
1 }) n" T8 t! e9 W! r RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", A4 L M' a% m) e5 `
RowBox[{"x7", "->", / S/ Z; A, N% T- @+ ?2 ^
RowBox[{"Data", "[", , V' z4 I) U- Y; U; b
RowBox[{"[",
) n+ }, G5 G$ v5 }6 [: w, P RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
+ |8 g9 V: V! M) k RowBox[{"x8", "->",
/ e+ q$ n8 I2 B3 b* x1 X! X- |, O0 c( {; a RowBox[{"Data", "[",
% D( M0 l5 Z7 q3 u5 G RowBox[{"[", 9 d( u6 _: V6 y1 |$ n# v8 N
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
' R- O/ w$ v5 `6 ] RowBox[{"x9", "->", " ~, Q( G: ? L% [
RowBox[{"Data", "[", 0 z3 S; K+ h% S& o$ D' Y) A
RowBox[{"[", - \, n: U, j; ]# T7 ~$ ?( {; u
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
3 A: r; y( c% s5 H0 `9 w% g" K "\[IndentingNewLine]",
$ K' O5 Q; K" I2 j# f RowBox[{4 V, n' e9 w$ g( v/ w3 F, z
RowBox[{"m60n21", "[",
% M& E3 ^+ Q6 v* S5 s. N RowBox[{"[", 7 H# D9 E+ u, U4 }; h7 N
RowBox[{"i", ",", "9"}], "]"}], "]"}], "=", / d9 Q- {+ t; o4 Z+ v
RowBox[{"u9", "/.",
$ H X' r4 ?. T$ b7 V/ t( s RowBox[{"{", 0 @: C7 D7 a5 n& l3 ^: b$ y
RowBox[{, i. U; I8 X/ y# A/ p: U9 N4 v, E+ A3 o
RowBox[{"x1", "->", 6 ?7 U+ I& `3 u( d- r* L7 _
RowBox[{"Data", "[", " s8 r7 }7 }, ?% ^9 @' J! w3 m8 V
RowBox[{"[",
. k: R; o7 E1 i# g: j( s, k0 Q9 z RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", # B I$ C: w. z& A! B/ y" k+ [
RowBox[{"x2", "->", ' F9 j, {2 N2 W! D T
RowBox[{"Data", "[",
+ x- B% h- O% M% c RowBox[{"[", 9 a4 x2 }- @" N8 H
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", / R) J0 h/ Z; K, [2 S) U+ C
RowBox[{"x3", "->",
! e1 C$ Q4 j5 y! p9 Y! Y- ? RowBox[{"Data", "[",
& E9 z1 b. |2 ?: n6 f RowBox[{"[",
' ^4 N' C: |$ l9 G* i, ~; G RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
1 |7 H) R' p2 H4 x RowBox[{"x4", "->",
2 J5 _+ h/ e* H' p3 H$ S% N RowBox[{"Data", "[",
/ K' d! K& U5 F9 j; w. w$ S RowBox[{"[",
3 x2 J: Q* _0 s$ x! P+ m4 w3 S8 l RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", % B' H- n8 u c a* A* u9 [
RowBox[{"x5", "->",
3 u6 j* r3 A* `( b& j. I5 w RowBox[{"Data", "[",
Q& L% O2 C% T7 i; e8 l$ U& S RowBox[{"[",
- [5 N+ O% t4 V) M* j RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", $ f$ j: ?* U5 P: @# a8 o: v
RowBox[{"x6", "->",
6 ^0 @6 M! ]& W+ u RowBox[{"Data", "[",
, K# U, s( {% e RowBox[{"[",
& @# E9 _$ k) X6 |+ ^ RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
0 i- O8 [! p" k3 y7 P9 Q RowBox[{"x7", "->",
& U) _6 Q) `6 a, |6 o+ e: s/ O3 O RowBox[{"Data", "[",
/ ]4 V; C! c0 y* {2 F" C RowBox[{"[",
* R/ X0 ^4 Y$ ~# J2 h RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
& v( k% t9 C+ u, i' }1 g! h7 e2 J2 } RowBox[{"x8", "->", 7 _, W6 r6 s; }" p
RowBox[{"Data", "[", 9 N, }; I2 u( p3 Z# r" D
RowBox[{"[", + Z6 z% T4 p; v! h2 N& [# A/ [
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 8 |$ a% i5 ?$ Z" n
RowBox[{"x9", "->", / i; k: q/ _- D" p* [1 k
RowBox[{"Data", "[",
- g8 a0 E% M+ x3 R% {$ i RowBox[{"[",
- ~, J7 A! {. S R" L) @3 u RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
( A$ s0 u6 t4 w o "\[IndentingNewLine]", 3 i" V$ N1 T" Y, \" A1 f1 A
RowBox[{
6 E/ E2 j# N- l& }9 P RowBox[{"m60n21", "[", $ ^. X1 L4 @; W/ {3 q* t) H
RowBox[{"[",
) [: h; t6 \3 _8 h& O7 N RowBox[{"i", ",", "10"}], "]"}], "]"}], "=", 3 \/ G% X9 z4 ?! Q
RowBox[{"u10", "/.", 4 ^( c9 {3 e, b5 H! U
RowBox[{"{",
* ~" E4 \* W2 }2 u6 R RowBox[{: n# R7 q( |0 E* z5 f: h
RowBox[{"x1", "->",
& Y6 ~: x$ C x: t RowBox[{"Data", "[", 1 i9 q, E: e, o; c5 W$ H
RowBox[{"[", + V. x( s; @0 [+ ?; {
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 9 u; ], i, k; X3 E: Y! U0 q; y0 x
RowBox[{"x2", "->", 1 w& r1 \3 J$ g" z, M
RowBox[{"Data", "[",
( d; |; R2 J; ~ RowBox[{"[", : R. w9 z3 d% F! k! c) d
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", % v8 L9 r& { u; ^3 I4 Z4 l4 V
RowBox[{"x3", "->",
3 a. J$ y: ^& s, s: d: ~ RowBox[{"Data", "[",
/ v z' N# z7 u: V% C& L% C+ m RowBox[{"[",
( v5 E: _% \. }/ H7 u' h/ J RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", * f+ ^1 c2 ~9 N! w* R
RowBox[{"x4", "->",
" Z, }2 L4 U0 d2 n( t( D RowBox[{"Data", "[", 5 v% }% p' _, I: _; t/ ^8 o
RowBox[{"[", 3 P8 J3 |4 n3 r
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
* ^$ {+ [; a1 [$ T9 a% x RowBox[{"x5", "->",
- D) q3 @& ~ S4 r8 c RowBox[{"Data", "[", 5 z+ q9 S3 |5 @9 w. N( `4 m; \
RowBox[{"[",
9 D# }: u( H. Q RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
; e5 B9 h+ [: d8 \ RowBox[{"x6", "->", , o, f- K& S r+ P
RowBox[{"Data", "[", 1 s6 a8 E# q& @9 m5 O- k3 a% p
RowBox[{"[",
3 a. f. d2 B7 ~ RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ! n% C: i9 }' T0 h2 ?, f
RowBox[{"x7", "->", 4 |2 j3 m. n% u5 X+ r! O) J n! l
RowBox[{"Data", "[",
, {: v5 y$ P* E7 a1 } RowBox[{"[", $ i: e% Z- W8 O2 q. X+ J, r
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
7 \0 }+ H7 p" Y) J; p0 F3 k RowBox[{"x8", "->", : G2 P4 \' @- p- |
RowBox[{"Data", "[", $ b* z% F7 G( H: e" J4 h
RowBox[{"[", 4 I( P" S5 E% z1 L0 G; j
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
; L8 k5 Y7 z* i3 s. q RowBox[{"x9", "->", 2 ^1 o; Z' l" @4 x) b
RowBox[{"Data", "[",
1 B) c9 P2 q! X" ]5 N) r RowBox[{"[",
+ Y9 r6 X+ e/ X7 [2 q RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 5 H% ]3 V# d: e& A: A1 t
"\[IndentingNewLine]", - r9 d2 v+ j7 J& F \
RowBox[{' f. c% j& M8 G. U: g/ [9 u
RowBox[{"m60n21", "[", 4 Q+ ?/ i7 ?" C1 D
RowBox[{"[",
# l6 B" W9 V& y% h5 v) } RowBox[{"i", ",", "11"}], "]"}], "]"}], "=",
* m+ z1 u% i# b2 t) c5 O RowBox[{"u11", "/.",
, f! Y% M3 v! S3 l" ~8 f! I RowBox[{"{",
- I6 V* n. M/ H9 _ RowBox[{
! G: ]- a- F+ _$ s# K RowBox[{"x1", "->",
8 A0 L5 f$ T( D7 e RowBox[{"Data", "[",
- z' [$ E# O( E; n9 I& c1 Y3 r RowBox[{"[",
( d+ N. `' d1 |1 N( s& C9 l- t RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ; ^1 C% k8 x, f- i7 F
RowBox[{"x2", "->", * Z8 B% g: U4 N# Q$ Z
RowBox[{"Data", "[",
* k% ]( \2 f; @: u8 R+ M RowBox[{"[",
, Z9 v8 L' w" G Z& x( G RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
: z$ c! n$ c& C" D' @ RowBox[{"x3", "->",
7 U( }1 @) g4 [+ D RowBox[{"Data", "[", ; D5 l8 G8 q( m1 J4 [0 f+ z
RowBox[{"[",
. [# H8 N0 i3 @/ G; \, v4 k8 f RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", & V- s+ ?- R& O' F9 F- p9 f7 q( u
RowBox[{"x4", "->", , v) B2 Y$ b- D' F1 B0 g
RowBox[{"Data", "[", ) f4 w2 ?3 Q( ^& a) ^% F
RowBox[{"[",
0 l. x/ Z+ B/ M: T RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 8 q: Q# c( Z* B) K/ x2 p
RowBox[{"x5", "->",
: R; B& ~% Q" t# H' `4 o. k RowBox[{"Data", "[", $ \! m7 @) {3 e5 _: } g7 `9 o
RowBox[{"[", / m0 Z5 ~+ X$ ?7 _; ^$ i5 s3 n3 s
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", + ]7 Z$ H1 w `- E3 i
RowBox[{"x6", "->", 3 V$ n! V) z' _/ C% p! I
RowBox[{"Data", "[",
; I8 A( D2 k6 R; A- H; E3 ` RowBox[{"[", + N6 a' b3 R; I0 Q) K: o
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
- X: Y: i* Y% w( A9 i( M5 A RowBox[{"x7", "->",
, J% l4 |2 U5 k) k3 [: W8 S3 M2 f RowBox[{"Data", "[",
- m) K" G# i2 L: U0 k RowBox[{"[", D7 q8 v3 U) h- h9 P( a
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", \( o* \/ J+ s0 q- m
RowBox[{"x8", "->",
6 n* H0 I/ O# T6 V RowBox[{"Data", "[",
, b6 e: h& A6 M+ g+ M! m RowBox[{"[", # @4 @+ P" I( A% T @
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 1 G2 `2 T) e( T3 g$ D) d8 U7 n
RowBox[{"x9", "->", * Q" H: |) z/ A
RowBox[{"Data", "[",
0 O) o& ?" O; x5 N) ^8 u RowBox[{"[",
& K, D- m1 M& j& ^; j4 h( A8 q RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 7 [- T }% Q+ H% S3 z$ O
"\[IndentingNewLine]",
2 v/ A1 e$ ?* e3 ` RowBox[{
; ^% n. f6 W( q) w2 p* b RowBox[{"m60n21", "[", : B# ~8 U0 `8 @
RowBox[{"[",
/ h$ q9 j& X$ s) g# X2 q( f RowBox[{"i", ",", "12"}], "]"}], "]"}], "=",
7 _: a3 A) X+ j# {8 u& X2 \ RowBox[{"u12", "/.", 3 S, p- D; @8 T& e# @" Z" _
RowBox[{"{",
% s0 I7 r8 t o, s; q; { RowBox[{
& S9 M- z* n0 P, r RowBox[{"x1", "->",
2 c( ^: Q$ c; w5 T3 U1 E RowBox[{"Data", "[",
; n7 f, s3 s% b5 Q RowBox[{"[", 6 Y; M6 P( W/ {7 U' P! x
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
' \3 l* m0 @6 x) c RowBox[{"x2", "->",
' O/ c* q s* H7 I% |. u( d+ H' C: V RowBox[{"Data", "[", ! y- r- ^ e6 G9 G. P
RowBox[{"[",
: T0 N4 v+ c% U( ` l3 g RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ' `5 n" L0 Q. T; U, C/ [1 K, M
RowBox[{"x3", "->", ( u/ {5 h- R6 q, K5 x
RowBox[{"Data", "[", 8 j. \2 V4 B8 P
RowBox[{"[",
F; q6 t; P+ d* _, D: _! | RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
9 I( W. A/ p) t& p5 i RowBox[{"x4", "->", 2 l/ D' z0 k& {+ S# o: e
RowBox[{"Data", "[", + | R" J) Z& }5 a1 }
RowBox[{"[", 5 h- V; X; U# D/ O5 Z
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
" Z! X1 X2 h, u. w5 B* q( ? RowBox[{"x5", "->",
0 t' s/ L1 Y/ Q9 {& w/ b RowBox[{"Data", "[", % A# { L3 Z- t% B% d2 r: J2 |( ]
RowBox[{"[",
: L( g5 m8 ]7 O C' p RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ! R. s6 h+ d1 n, O
RowBox[{"x6", "->", : o7 O) c, @' V6 |
RowBox[{"Data", "[",
- f1 s3 U6 R. l. p, A RowBox[{"[", 9 A: u3 h( h, m/ ~" y/ E
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ) R3 @5 M" {3 B8 c- I5 H
RowBox[{"x7", "->", $ g6 Z {3 W0 }7 w
RowBox[{"Data", "[", * Q! e6 g5 L$ ~8 }9 P$ R& i, i& e
RowBox[{"[", . j5 _0 f8 ^8 T/ O) `
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 8 b7 h, K* _+ E# z, i8 r
RowBox[{"x8", "->",
' c1 w$ n& C9 P3 V" q RowBox[{"Data", "[", - x7 }8 D- x4 D( s: D
RowBox[{"[", 3 Z( S8 Z: u4 }+ C: K8 H
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
5 d$ t i( ]# `3 v% m* v, _ RowBox[{"x9", "->", $ g$ B4 |9 b3 |" m8 k% s
RowBox[{"Data", "[",
# x9 D2 k: \' V* c, A RowBox[{"[", 4 R6 p7 m0 S7 W* ^' r7 D: W, N
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
. [$ M/ K" x9 r- X4 o9 @ "\[IndentingNewLine]", + r- y" O6 q8 O1 l# ^+ a
RowBox[{5 F& J5 }9 Q: j
RowBox[{"m60n21", "[",
8 P( e! q6 [+ U8 X9 X RowBox[{"[", / K& S0 `; R- |1 @3 P
RowBox[{"i", ",", "13"}], "]"}], "]"}], "=", , [2 v% V( h, P7 O! _- t8 }3 \' Z
RowBox[{"u13", "/.",
x2 u0 ]; t4 o4 V9 Q RowBox[{"{",
5 r: b3 k, x, c' _ RowBox[{5 \" j# A5 u( b% }; ~
RowBox[{"x1", "->", ' B* B' \9 T+ f8 b
RowBox[{"Data", "[",
: ?$ P, w1 T* z RowBox[{"[", , v9 X# y) ?' M0 Y/ L
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
: D" S& c, a9 c/ M5 e+ h8 K RowBox[{"x2", "->",
( i" }( Z% O7 U* [ RowBox[{"Data", "[", 2 ?( e8 z6 q+ I8 _* S# o
RowBox[{"[",
6 c, ?! a% O! X0 {( q& B5 d RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
% H1 d5 O% B: u7 e) J RowBox[{"x3", "->", , w/ n: S) P- _7 N+ k
RowBox[{"Data", "[", ! S5 I6 Y5 R$ A4 L
RowBox[{"[", / M* p8 L6 c" U3 L$ L. {0 c$ U
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 9 E7 ?% J: Z# E% T% ~
RowBox[{"x4", "->", 1 e! o( e1 F4 C* x/ D( y: r+ [" V
RowBox[{"Data", "[",
- [0 H: S2 u5 D7 ]7 k7 @: M RowBox[{"[", 9 @4 c( b5 D2 [9 j8 d
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
3 T8 A1 C8 b% k, O; f' E/ M. k1 N& q RowBox[{"x5", "->",
: e, `7 K+ ^/ J" S4 @0 V6 y RowBox[{"Data", "[", 6 ?3 X0 V6 h6 X) ]) L0 F; i4 P9 f
RowBox[{"[",
) h0 t+ n' r, G8 z4 N+ n RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
! _" O) }! A8 \ RowBox[{"x6", "->",
9 }" r9 G1 ^% b& y RowBox[{"Data", "[",
- E7 N v1 c& z3 k/ E$ \ RowBox[{"[",
- F4 b6 ?( O6 Y8 D$ E. w t t+ _ RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", / x& V; |" P9 c4 y$ V4 }- p' N
RowBox[{"x7", "->",
" \, B% [: ]1 y: \2 r1 B# E; E, G RowBox[{"Data", "[", 4 A, ^) O, i* B9 r6 `3 _
RowBox[{"[",
( i3 d) A9 W7 K _. o% V. W& \ RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
9 j% u3 D# ~; ~ RowBox[{"x8", "->", * a, N: k/ f* a
RowBox[{"Data", "[", ; L7 W9 n2 H! O& W* l
RowBox[{"[",
! _1 s3 M8 k6 s; R RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ; h% N* \: f$ Z$ C8 z
RowBox[{"x9", "->", 1 h' p5 z1 v4 |* {& N( _
RowBox[{"Data", "[", 6 }: ^% c+ F) R2 a( o6 c/ p7 [
RowBox[{"[",
4 l; X% I/ R: a7 L o) p( p RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
7 W+ A- a6 P/ b. A% Q. f& X. a% ` "\[IndentingNewLine]",
6 p9 Q+ ^6 u+ L RowBox[{
4 @9 e/ M" |2 @, ?# N3 O RowBox[{"m60n21", "[", 7 M) h( ?* j" z$ _3 _, `" t
RowBox[{"[",
3 T: u8 o5 \) P; j RowBox[{"i", ",", "14"}], "]"}], "]"}], "=",
$ X& X$ g( W+ O5 @; L3 q2 s RowBox[{"u14", "/.",
0 }3 e4 U, V. A4 ~6 G RowBox[{"{",
) Z& o0 t [- Q7 c7 J, g RowBox[{- r' n* S. B' N( g, k1 l
RowBox[{"x1", "->", 0 F- n* H- n1 i: D- Y+ {$ d3 u% ~7 V( e
RowBox[{"Data", "[", ' K6 r4 d" l, }- J: e! c, U) E- d0 l
RowBox[{"[", 0 G3 _& R4 E- M
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
1 Y/ x9 j" q- G7 ?' I- b% Z8 H RowBox[{"x2", "->",
+ o0 i5 x# e( P2 m. p RowBox[{"Data", "[",
5 _ J/ T/ p# \5 L9 u9 O RowBox[{"[", + t5 P3 ?' W7 b; y, A/ t
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
# j- u4 h; D0 y1 ]5 e RowBox[{"x3", "->",
# M6 c7 N% p; L RowBox[{"Data", "[", ' t: ?% H" `( C3 A% R0 a" u. F
RowBox[{"[", ) n' O, [1 {% L7 M4 S
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", & ]3 x. a% F* O5 F0 u
RowBox[{"x4", "->",
" ~ x* J! ^" l RowBox[{"Data", "[", + w8 F# a- ^- D' B# \6 O- |
RowBox[{"[", . G6 ~3 w7 ?2 m# s' i
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", - h$ X% s& p& C6 ~6 o
RowBox[{"x5", "->", 9 V: a) h% O4 G# B
RowBox[{"Data", "[",
# ^' s: N3 J1 P! s RowBox[{"[", 3 `, L: K1 c9 y
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
, _; o/ k8 M W4 Y- s, L4 ` RowBox[{"x6", "->", ( _/ }7 q2 Q5 O9 G0 a$ [7 w
RowBox[{"Data", "[", $ J; G% f6 M- Z7 A
RowBox[{"[", 7 ]! |, C0 B/ E5 O# l
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
' F# a" p+ e, o+ X RowBox[{"x7", "->",
$ @3 K! U0 Y7 B RowBox[{"Data", "[", ' P. P, H! A. n( \, W* I/ I/ L
RowBox[{"[",
9 u n3 ~1 V; m( P( v. C! ` RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
- m* b- |, D* @2 t0 ~7 Y. a8 Z RowBox[{"x8", "->",
9 O+ k- |: r" m! i& O1 O RowBox[{"Data", "[", ! }9 q' b" g' }3 e& |* m$ {% ~
RowBox[{"[", 1 E; h# k8 V& L; z6 v7 d
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
! I; a) b" t/ |" t+ u# w6 n$ h RowBox[{"x9", "->",
; m; `; b/ c( ^# y, {3 r RowBox[{"Data", "[", 2 A5 h3 p& U9 y) `
RowBox[{"[", . O: u8 l9 y% i* e: M
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
; f9 [2 q; W1 u/ C; k) w "\[IndentingNewLine]", ; M4 }" R$ e6 K! K- y
RowBox[{/ k7 z& H' R# _' S2 l
RowBox[{"m60n21", "[",
# j# u# U3 w z) ^4 q; B RowBox[{"[", # ~& ?8 T/ @0 C5 v/ @ w- \
RowBox[{"i", ",", "15"}], "]"}], "]"}], "=",
0 \7 g7 l3 i5 t9 j RowBox[{"u15", "/.", ; C# C' K( a: V; v
RowBox[{"{",
' T5 D X3 e& a F7 c2 D' N, {, u! i9 { RowBox[{6 a [7 W1 {) ?! s0 V
RowBox[{"x1", "->",
% f5 ^+ U$ Y) t4 V RowBox[{"Data", "[", 0 P5 O/ r7 c/ ~. j$ U s7 r
RowBox[{"[", . v5 z* o& `0 O
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 1 V6 x8 i# a9 x& T7 W6 |( Q
RowBox[{"x2", "->",
$ Z/ S5 N: V( B7 y" Q* ] RowBox[{"Data", "[",
: _# u& {" }% F: }" U1 Z RowBox[{"[", 8 `1 X( g& O7 B" Q
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
) K" i3 J5 q7 z1 i RowBox[{"x3", "->", # h$ J1 {: T" V+ i+ e
RowBox[{"Data", "[",
* c, `" |% t) Y) m9 Z8 F RowBox[{"[",
: B3 c, b" u. b3 Q8 z3 E1 X RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
* C; d, J) A" S% ^$ S4 I RowBox[{"x4", "->", 3 E& `7 H7 N$ H+ T8 x: X' K1 T
RowBox[{"Data", "[", * R$ p6 K) [) m! y
RowBox[{"[", $ }5 U( i$ E3 j) e: v+ G5 z
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
' i$ |# o! Z# N0 { RowBox[{"x5", "->",
; t6 ]# u3 \" ~ e7 L Q/ ~ RowBox[{"Data", "[",
/ a2 z* y9 R8 W5 ` \9 R RowBox[{"[", 4 W7 w1 \% L [ r! b4 B& z0 L8 N
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
" n6 H2 W! Z. F' O0 W6 m, ~4 b RowBox[{"x6", "->", 2 ]6 \' Y5 d7 n/ s: A
RowBox[{"Data", "[",
! S7 W" H) U. f; H" x% o% D; f+ X RowBox[{"[",
/ U3 ]9 h- p4 X4 q( W RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 9 l9 u1 w/ T! h! s# ^0 Y
RowBox[{"x7", "->",
8 @# X+ X+ a/ p9 k* {0 j' F6 W RowBox[{"Data", "[", ; \7 R: Y% f! M
RowBox[{"[",
+ }6 N' x/ c6 P- K: E# s5 p9 J RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
E9 |; w% q6 f1 n RowBox[{"x8", "->",
: U: d7 e V# h9 n6 n: K RowBox[{"Data", "[", ! j H& @& h0 p* |8 E4 w
RowBox[{"[",
; `' a. I# ?3 V RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
+ C" o7 t: o8 l3 A$ s' b; _ RowBox[{"x9", "->", _: ?; ]9 b: V5 h6 z8 t: Z( }- Q
RowBox[{"Data", "[",
* L# T: J1 Z' Z. }! F RowBox[{"[", # a8 l2 l, t% X* a; p
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 8 ~( J" H2 ^+ x6 S5 R* ?
"\[IndentingNewLine]", 0 b' X+ M1 m5 O: h5 V
RowBox[{4 L' {' }1 o0 W. x
RowBox[{"m60n21", "[",
7 ? ^! W2 }: ]8 Q7 W RowBox[{"[",
/ }& i0 O5 p& F- y0 _$ w0 J RowBox[{"i", ",", "16"}], "]"}], "]"}], "=",
' S: o, F- I1 O1 |& Q9 S. X/ K RowBox[{"u16", "/.", ( p6 B" {4 k2 p- p
RowBox[{"{", % f' r* {+ h; v! v; q1 O
RowBox[{& J7 @8 n5 n* i0 ^
RowBox[{"x1", "->", . [- ~% |5 @& \ y
RowBox[{"Data", "[",
0 U1 t0 F" ?% ? r, ?$ Q& z; E RowBox[{"[",
2 u$ l$ w' Y+ P3 U4 o) d7 a. \ RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
$ t, O h- ~* }& `( Z' [ RowBox[{"x2", "->", [! e% R4 e6 ^
RowBox[{"Data", "[", * V3 d- j) H0 h$ r
RowBox[{"[", 9 S' U8 q0 f0 h- `4 b6 N
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
' ]" g+ O+ v% J# O RowBox[{"x3", "->",
0 _) D3 Q7 @9 @2 b# f2 m RowBox[{"Data", "[",
- y7 @- B. ^9 d" p4 w1 M0 Z RowBox[{"[", ' _# C9 h; z" |1 X0 q0 f7 d
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", + c) Y5 I" M( n* q( b
RowBox[{"x4", "->", * t1 ?# R1 b# |
RowBox[{"Data", "[", : _7 X4 S" @" H9 n0 \2 ~2 E
RowBox[{"[",
: d* c. L* `9 e P. I Y! Z RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
- g! Y" z4 D, E% o7 s; s" j RowBox[{"x5", "->",
0 v" Q& H5 d* j8 ] RowBox[{"Data", "[", " v% L( \# y! l; c1 {
RowBox[{"[",
$ S3 t; O2 U- {7 s2 ?, H RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 0 k4 W8 h0 }. Y" d, Z
RowBox[{"x6", "->",
7 s- K; {4 y7 ] RowBox[{"Data", "[",
m j& i. B* d1 w RowBox[{"[",
; H. F" \/ Y5 ?( g$ y! W# N! j RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
/ ~& D1 ]6 f |: @5 ~% {# B& T RowBox[{"x7", "->",
, ^' s+ Y4 f: K6 `+ {: j0 t# E RowBox[{"Data", "[", , g$ D8 E! e5 [0 _" D% n% I
RowBox[{"[", _' C6 {1 P6 G2 J- k! \! f
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
' E* H4 n% c3 k RowBox[{"x8", "->", + r8 i% y- @2 Q- g5 y6 [+ l
RowBox[{"Data", "[",
6 }5 y/ V5 B' w# Q: l. e3 P1 d RowBox[{"[", * u5 I5 @7 d% x) t
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 1 a) ~" i% _( w. K7 O! u
RowBox[{"x9", "->",
, f9 z; z, g) }' q RowBox[{"Data", "[",
: w5 ^; F) C) c- x$ } RowBox[{"[",
6 ^" I4 A8 d( E+ S& G RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 2 A" o5 J$ c+ i: e+ q4 I
"\[IndentingNewLine]",
6 y' h' P1 C, h c) ? RowBox[{6 S/ n& {$ N+ E/ v
RowBox[{"m60n21", "[",
& a/ ]4 S3 B: F* t8 O0 ~; M, I RowBox[{"[",
/ d% B; P6 J& Z& h/ ~* h0 a9 r# M5 h" m RowBox[{"i", ",", "17"}], "]"}], "]"}], "=",
) d5 L0 S3 w4 m' i, c3 @5 x RowBox[{"u17", "/.", 9 }# j4 X. @. N0 q
RowBox[{"{", 9 U& E4 b+ ?8 A( W2 h+ \
RowBox[{
# p" {% V2 M2 h7 J7 ` RowBox[{"x1", "->", 6 ?4 S; z/ x9 ~' N7 E1 Y
RowBox[{"Data", "[", 4 i H$ ?+ n% v) f
RowBox[{"[",
# }' N3 S* H( X RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
* E4 C* Y9 R4 i/ N/ A$ Q. H RowBox[{"x2", "->",
6 _9 r. e4 V! {( {* a+ s% { RowBox[{"Data", "[", " R0 x( n" v1 ~$ @+ g) Z
RowBox[{"[",
4 u! n) X2 G1 D RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
8 q1 M/ P) e2 m8 Y" ^1 H RowBox[{"x3", "->", - A; A9 i% K* i# k
RowBox[{"Data", "[",
& `6 u6 x) }4 ~4 G7 a RowBox[{"[",
+ q# Q5 d& t# k* y5 m& q' a RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
! ~! r9 H B f. L, z0 u RowBox[{"x4", "->", 9 a6 l" B# w d
RowBox[{"Data", "[",
% @; A" f( A3 |/ G/ c! I RowBox[{"[",
1 G2 S+ ^* _! x% C RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
# w- A& C2 z" W RowBox[{"x5", "->", ! p5 W! B6 E# A; J: _+ q1 W
RowBox[{"Data", "[",
2 _+ a3 F1 w; K' D RowBox[{"[", 6 Y1 v* M ^. D j4 t( V8 e' s( x
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ! W4 J% y( S% f1 O9 x) m
RowBox[{"x6", "->", * `/ M8 q0 \4 j# n
RowBox[{"Data", "[", 1 s! e' F. w% X; C
RowBox[{"[", 8 @$ ]; D) e. U5 a
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
# k+ a. u4 N, H RowBox[{"x7", "->", / X9 [; H9 z8 \& j
RowBox[{"Data", "[",
$ C4 |6 m0 n M. M RowBox[{"[",
0 `0 q( h ]# r& h RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
- f+ j/ |; R; Y5 G7 m2 i! L- O RowBox[{"x8", "->", 0 r3 Q5 g: A/ F' ~1 J" a& B2 n
RowBox[{"Data", "[",
5 o( E% D( u5 O+ U* i3 H0 R. p RowBox[{"[",
/ {0 o; `. |% D% f# }3 H) Q& A' n RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
4 X; Y0 g2 f8 H2 [ RowBox[{"x9", "->", 7 W+ w0 u h! ]2 E8 |+ |" ?( @
RowBox[{"Data", "[", . d* J! K9 |, J# p$ y z
RowBox[{"[", 3 {- Z1 k" M- K: L1 S- D
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
9 Y# @. T- l. V5 Z O "\[IndentingNewLine]",
0 E% O2 O4 O, X5 x% ^( l RowBox[{" I8 f& s1 I& o/ ]# F
RowBox[{"m60n21", "[",
( {' ]% H9 x8 Q7 X( f. `7 [ RowBox[{"[", 1 a9 x' t6 A, u; |! o" u/ b
RowBox[{"i", ",", "18"}], "]"}], "]"}], "=", ' O: A6 E; }" V( | r2 ]+ U! i
RowBox[{"u18", "/.",
# K$ g9 L9 { Z& |$ R+ j RowBox[{"{", 1 [8 N: |) r8 U4 {: A( R
RowBox[{7 @0 m4 a- B/ ]* [# n4 Y
RowBox[{"x1", "->", ) ?% o, G8 j6 m# Q% I
RowBox[{"Data", "[", 8 T0 @/ w2 y8 Q% \3 G
RowBox[{"[", " p, r: Q4 T) E7 D0 {
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", % c9 a" h+ [5 I& `/ w6 P5 L5 I
RowBox[{"x2", "->", 6 x( a8 R. a& P* u; _+ v
RowBox[{"Data", "[", 3 N6 z8 |, W( x/ T- Z, e0 U
RowBox[{"[",
+ I1 f& b" d5 y" e9 a* e) } RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", : F) V' H: T2 k) B
RowBox[{"x3", "->", 6 m" r4 T* p: d; `' f
RowBox[{"Data", "[",
2 o$ e9 L) i E0 W) |3 G. o RowBox[{"[", ; [: }7 l" ~; k v. F
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
" [$ j: P% Y% { Z8 I# y RowBox[{"x4", "->",
2 h, d) t, J& q: D2 `4 I. f RowBox[{"Data", "[", ! V" V" o9 G- x( w
RowBox[{"[",
6 a8 ~* ^1 d4 O& t RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 9 U9 ?4 x; q3 M+ I& l- N3 Z4 O6 W
RowBox[{"x5", "->", ' Z9 B" j- ?- p: G, n
RowBox[{"Data", "[", * ~- o3 R7 T6 }6 y: f$ y7 z
RowBox[{"[",
" u' o2 S$ R- \+ @2 M RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
0 v; P) Y* @7 B m v* `, U4 K# } RowBox[{"x6", "->",
- ] _) ~! o, S# V; { RowBox[{"Data", "[", / X6 U' l N& z W" U }2 S) v9 T
RowBox[{"[",
1 T: ]3 G2 j2 Q; h0 x; } RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
8 a1 x% i* }" ]8 O8 V! ] RowBox[{"x7", "->",
3 j7 B' r( w7 z0 V) m RowBox[{"Data", "[",
/ q+ V# j5 \$ u1 f- ^6 C; H RowBox[{"[", " Y$ q. i" m& W
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
. m4 v: r; q& n) B9 y* l. j RowBox[{"x8", "->", - U& f$ M4 i! @% V* a
RowBox[{"Data", "[",
' r4 }4 H/ `. l: }0 t RowBox[{"[", , ]' r$ u: n. m+ J* t7 T! x
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", & U% B% W, J+ C$ q% M1 P( J
RowBox[{"x9", "->",
+ z; N- w$ }6 D5 H+ P, D RowBox[{"Data", "[",
! f8 C( O" x {$ z' [$ k" _/ X RowBox[{"[", : }, ^+ M' u8 x4 W
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
7 t8 `& {+ p6 }' x# R0 G9 J3 Q "\[IndentingNewLine]",
+ J. T: L ?5 U! V: M2 G RowBox[{. K. n/ `* Z' }% `5 t' E( c, A
RowBox[{"m60n21", "[",
3 q e( F9 j- k, ]. g RowBox[{"[",
# D/ g$ X, [4 K RowBox[{"i", ",", "19"}], "]"}], "]"}], "=",
) g2 p; u+ o9 E$ ^. W, v2 Z+ x RowBox[{"u19", "/.",
. f' H) w5 m4 `, T; l; A8 J RowBox[{"{", 8 }( h! c- R0 l9 _& Y) z8 ]* k
RowBox[{
/ m( I! w7 q! \( h RowBox[{"x1", "->", 0 Y. L5 [& I& H& v% y
RowBox[{"Data", "[", ; d% w! R$ Y6 E/ N$ M' m4 W# o3 \
RowBox[{"[",
3 y+ ^0 x% d/ i" E7 x RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ; Y/ d! ~. O# w
RowBox[{"x2", "->", # P. r* y* g! o! `& g# z8 @+ U6 a
RowBox[{"Data", "[", 6 J9 ?# y1 Z7 F' K: ~% i' f) a3 q
RowBox[{"[",
. y" s4 t3 b) @, P/ u( x' ^+ `! J RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", , p1 Z$ l! }, h- S8 J
RowBox[{"x3", "->",
; K% l* k x) ~" w+ v- d% y$ J) U RowBox[{"Data", "[", @" |( ~& y; Z
RowBox[{"[",
. Q8 v' u$ ~& q u RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
9 U: ~+ I) w+ s2 z4 M8 E0 e) d# }6 | RowBox[{"x4", "->", 2 ?( @9 W8 g7 j0 P6 ?9 f# r
RowBox[{"Data", "[", " ]% p- y7 [7 m2 g1 G2 H! ]6 K
RowBox[{"[", * |$ y; G1 [5 a
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
! @# C0 O, v0 t" j3 F* |$ A RowBox[{"x5", "->",
/ Z2 [: k+ C- j9 L% ?. g RowBox[{"Data", "[", 7 t1 Y+ `5 O4 E0 }5 |: T
RowBox[{"[", / x& _% ` g" E( n# B0 q5 N- B
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
9 O: f) @8 U g RowBox[{"x6", "->",
1 a: s! a7 J3 ~! L7 x! f RowBox[{"Data", "[", " p" `. K4 Q# |
RowBox[{"[",
3 J9 Y! n2 A! b' ? RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 7 Q. X* ?9 C# V6 n% t! w
RowBox[{"x7", "->",
u" m' [8 P1 u# Q: S6 ?# u RowBox[{"Data", "[",
) n; o! g& R6 z' K$ o6 C RowBox[{"[", , D+ }& z; A1 l# Y1 ^# P" T5 |
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
$ u, a8 A) ~ c+ V( B RowBox[{"x8", "->", ! S3 r7 H' U9 i* j* c W7 H- ^
RowBox[{"Data", "[",
: W- ?" v( m0 k3 }+ x RowBox[{"[",
* d0 M4 D; j# l, F RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 1 c( Z; h+ n; F$ B9 O
RowBox[{"x9", "->", # k$ {2 l, [! Y' q( a' m
RowBox[{"Data", "[", 1 V( ?2 _0 Y/ t1 |- R- P8 I( v
RowBox[{"[",
: C2 h% }/ i: O, N RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ! |# |# a4 w/ c M
"\[IndentingNewLine]", ; [8 ^* j7 H* V- K( P }
RowBox[{
" S/ d, O3 Z% [- J RowBox[{"m60n21", "[", , P( V; t7 ? w- q/ U$ }0 g# Y5 |
RowBox[{"[",
0 K0 n. d6 I4 C RowBox[{"i", ",", "20"}], "]"}], "]"}], "=", : x8 L1 v6 n" O0 P
RowBox[{"u20", "/.",
( s) ]; ~6 f6 B2 T! u9 W( X9 I RowBox[{"{",
$ H6 W9 ^6 s' k9 g. r% x RowBox[{
$ U( w: K; E) L4 ^ RowBox[{"x1", "->",
2 Z; B8 r3 j2 |- b0 C1 | RowBox[{"Data", "[", 9 L( A2 M1 K7 Y; {
RowBox[{"[",
' Q1 o2 e: F+ E# X* X9 _ RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
" b/ D. S2 Z' @1 a- B# B6 W+ p8 y RowBox[{"x2", "->",
+ k+ s. Q3 L7 {! H9 M RowBox[{"Data", "[", # w" ^1 e7 p4 u% T3 A8 \0 c* M
RowBox[{"[",
3 t; B7 ^+ f/ S+ @6 \- w4 O% [ RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
- E. H+ ?, x+ i5 I, p; d4 l0 c RowBox[{"x3", "->",
+ O, X n$ ~, [. E1 x RowBox[{"Data", "[", 2 y: z8 O* O X# S/ m
RowBox[{"[",
% U! ^! v* W |% V' u2 c RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
4 h9 q; n! O5 }9 R* Q4 f RowBox[{"x4", "->",
% |2 \2 K- n$ D% w6 T RowBox[{"Data", "[", 3 B% Y0 W* J6 h- p( s9 F
RowBox[{"[", ' G) I( {: `9 \- l- ?/ ^
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
- f0 B# s" Z! K. {, a RowBox[{"x5", "->",
% Y% p' I4 u; J& E$ W- L% V RowBox[{"Data", "[", , W4 K* t6 L5 q+ ^8 C+ N" P
RowBox[{"[",
* o( s* }3 k0 W. \5 _9 f! l( d( t: d. X RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", / p& m& O4 D6 Y5 l
RowBox[{"x6", "->",
" |4 y* H- t4 j4 N$ k9 O, _( L RowBox[{"Data", "[",
" |0 u! Q+ H1 b, z8 h% w5 _ RowBox[{"[",
) w( F% r- ~4 v8 E, W RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
- E$ D( y. A) N' p7 x/ [0 ^4 Q# @/ P" v. D RowBox[{"x7", "->",
7 o" P7 B. z& Y- {6 Z RowBox[{"Data", "[", % D; ?; B! E' B! e# g1 Z# P
RowBox[{"[", N1 N$ Y. B, O: k# }& L5 Z. ?
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ; e% P, l6 p# ~5 C& \7 x
RowBox[{"x8", "->", . M [: B- Y7 @* W- @+ A
RowBox[{"Data", "[", ) y+ G- O0 C/ w6 z! a# Y
RowBox[{"[",
8 A% F# [; j p5 u; k O RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", $ i9 } w( A+ a' I& k
RowBox[{"x9", "->", 5 W# |& o- x" I0 c
RowBox[{"Data", "[",
1 g6 x# e4 c) ]* c RowBox[{"[",
2 E# k t) M7 o RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
: r: y. z! _" ` "\[IndentingNewLine]", " `9 k9 a! g/ }, ^% X a
RowBox[{0 j. K% e0 |5 h; P6 F O
RowBox[{"m60n21", "[", . m4 |9 W4 |+ Y& s' T
RowBox[{"[",
7 O3 `. T; \6 W RowBox[{"i", ",", "21"}], "]"}], "]"}], "=",
8 h+ {0 S8 c% Z% l i, Z RowBox[{"u21", "/.", 6 p% W6 w5 P2 Y3 L9 Q% ~# k
RowBox[{"{",
* ^1 J: W8 y. Y' t' x9 n3 G RowBox[{
: l% y/ Y- s" i& Q- }) D RowBox[{"x1", "->",
8 A0 Z( i% B0 G4 R0 g RowBox[{"Data", "[",
7 Y" b" l- E! _. `$ @# A- v) J RowBox[{"[",
0 Y" v8 l: ] ~6 p9 f* F1 s4 [- n RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", & F: }9 r) M. `. p2 F w, C
RowBox[{"x2", "->", * U0 H/ d6 `! J
RowBox[{"Data", "[",
; q5 Q* @/ `) W! u RowBox[{"[", " l1 N( c7 F& e+ b* ]
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
- b' t+ y2 r9 y; D RowBox[{"x3", "->", 6 o4 S; L5 Y3 \+ o. r& f, J
RowBox[{"Data", "[", 2 u/ }! S. h& d! T& m
RowBox[{"[", ' @" L" l1 k' V5 T
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", $ E C" z) J6 r1 y/ x
RowBox[{"x4", "->",
* ]" k6 S. p8 C3 P RowBox[{"Data", "[", ; t" u7 x. M! o* c. w7 y
RowBox[{"[", 1 T5 b! N4 N2 X( m5 N
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
% S* @: O& S/ o; y3 ] RowBox[{"x5", "->",
; K: D! ^# n" w% w9 y RowBox[{"Data", "[",
0 V: w+ Y! t8 q$ @. s F RowBox[{"[",
% l" Z0 i/ L: ]6 u' Z0 u RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
+ u/ Y! s. E" b3 I+ ` RowBox[{"x6", "->",
: _) E: o6 w" C1 T6 j: F3 D RowBox[{"Data", "[",
" H. x1 _! g3 C" C! m1 M) Y RowBox[{"[", , i/ |$ W" @' v; ~" x, C4 F& y
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
* |5 R0 ` l7 w7 ^, M RowBox[{"x7", "->", 8 t3 k0 f# w V: N
RowBox[{"Data", "[",
2 l% M, | [& L RowBox[{"[",
6 S9 L* O8 k% i4 n* h RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 5 }+ A* b8 b" i; T# v
RowBox[{"x8", "->", 0 v. ? `& ~, `& Z) d6 H
RowBox[{"Data", "[",
& K+ y* z; X/ N6 u RowBox[{"[",
6 N% h. u9 R1 Z; p0 ` RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", % U V; n1 \) x4 c2 Q J3 Q' @) \
RowBox[{"x9", "->",
' Z; h8 L7 f' ` R$ I! { RowBox[{"Data", "[", 2 M# |* e1 A/ C
RowBox[{"[", * B# Z0 T e; n5 P/ b
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}], 6 t f% L2 |4 T4 |
"\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",/ [7 H | s* u X; Q: [
CellChangeTimes->{{3.5779241165*^9, 3.57792417728125*^9}, {/ H! X6 \) W; q# i# d
3.57792428359375*^9, 3.577924585109375*^9}, {3.577958919491543*^9,
+ {5 K: V* J( V! F' j8 j* L! _8 Q 3.5779589224867477`*^9}, {3.5779619825731473`*^9, 3.5779620676400957`*^9}}],
- }, n# G! x: I' W& X' `: p( @7 ?
& A2 R4 s G0 c; h8 KCell[CellGroupData[{
3 `* ~) I2 [1 `7 B% `- I5 s9 f( j8 L8 ^. m$ j& l
Cell[BoxData[" q/ c! t+ x4 |" r. P& R7 ~+ F7 W
RowBox[{"w1b", "=", 9 R' m7 j H. W; w# \( d3 ?
RowBox[{"LeastSquares", "[",
7 Q8 R. f& \; z2 d% D" J( S RowBox[{"m60n21", ",", "y1b"}], "]"}]}]], "Input",; y7 T" I5 c, @- S9 @, |' Q
CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {" {' j- j0 u" a' k8 k
3.577924662765625*^9, 3.57792466596875*^9}, {3.5779582865360394`*^9,
' Z+ F) y, |5 j. s ^ 3.5779582963172565`*^9}, {3.5779622900808835`*^9, 3.577962290377284*^9}}],
- Q$ I2 ]' I! w4 s- A8 h9 g2 v
x+ m4 G6 s# H- _3 o; XCell[BoxData[
' M5 p1 s9 \8 l6 J9 x RowBox[{"{",
8 S/ q1 I' T: g8 n- J0 C RowBox[{+ ~- l: i. m" A- D6 v* V! Y
"0.48228184971363947`", ",", "0.16041393254115022`", ",",
7 m. n5 S. l( r "0.3741982811661129`", ",",
: L* O+ K8 t6 r' d! H& S RowBox[{"-", "0.12620581913715245`"}], ",", "0.28831860112966734`", ",", 0 n( t1 d. V% y9 Z; |
RowBox[{"-", "0.2282993884666894`"}], ",", "0.3207174990295839`", ",",
( P) ^4 \$ J! C: _& T ~+ I RowBox[{"-", "0.4666313851213302`"}], ",", "0.27551257162880227`", ",",
- ?7 F7 ]0 E& T RowBox[{"-", "0.025873988843993667`"}], ",",
. K* m' U3 a$ Q8 W0 |3 P9 M RowBox[{"-", "0.1339854044819916`"}], ",", 5 T# ^- h0 w/ F# ~9 U
RowBox[{"-", "0.15852708848338315`"}], ",", "0.3129687276967983`", ",",
1 |; H9 Q' x6 x; ~" n4 U4 h6 ^, g "0.45723850991134063`", ",", "0.2954923840077215`", ",", * x: `1 A; n, H5 I& X+ l4 c5 R |" m
"0.9125798890455868`", ",", "0.21159052285983104`", ",", 2 p5 p- n* H5 N5 v
"0.5575503376854456`", ",", "0.6019775648968265`", ",", 8 s( Y3 L) ]# r6 ~7 k- R
"0.2361524780938108`", ",", "0.12782130225993923`"}], "}"}]], "Output",
( W7 W2 ^0 L' L, b. q: N$ X0 v/ W2 ~ CellChangeTimes->{3 j! O- C) M* W A. C/ g, x
3.577924621953125*^9, 3.5779246688125*^9, {3.5779582894220443`*^9,
/ H8 j( O4 d. V7 n6 p1 G- r# P 3.5779582992968616`*^9}, 3.5779584995700107`*^9, 3.577959040157753*^9, & I. G" }& \2 A+ T D, U
3.5779622919996867`*^9, 3.578012447734375*^9}]( L! O" d+ e% a' A: U P! W9 B _
}, Open ]],5 L5 s& ^7 n1 U" p+ j5 m6 u, L
3 T0 G9 ]2 X& f% H
Cell[CellGroupData[{+ L! A! y/ _8 J0 H1 h( L3 k) O; H
7 }, E% `) M5 Z
Cell[BoxData[& T* {$ D* M& O
RowBox[{"y2", "=", + A" u0 U, D% X: z9 G( l
RowBox[{"w1b", ".",
- Q4 l: k1 P4 z- w, N4 u RowBox[{"{",
" `) S4 h# ~4 K0 c) s) M! | RowBox[{
6 [1 K1 U1 F# d# f "u1", ",", "u2", ",", "u3", ",", "u4", ",", "u5", ",", "u6", ",", "u7", + a5 L& Z1 X$ a+ V; D- A% x8 o
",", "u8", ",", "u9", ",", "u10", ",", "u11", ",", "u12", ",", "u13",
- [, s9 f- R) \+ n' a. U- \ ",", "u14", ",", "u15", ",", "u16", ",", "u17", ",", "u18", ",", "u19",
7 F6 d& }: P2 T ",", "u20", ",", "u21"}], "}"}]}]}]], "Input",
& w. T, v' J+ e4 Y CellChangeTimes->{{3.57792471553125*^9, 3.577924755875*^9}, {7 y* q. t' q0 g, F6 ~2 M9 o
3.577924897078125*^9, 3.57792491596875*^9}, {3.5779583101856804`*^9, 3 O& @( ?7 c& l
3.5779583178920937`*^9}, 3.5779623163513293`*^9}],! I2 T' \% g8 W$ P! n: ~! C1 M) D4 l
- E2 Q `8 x: h$ o( G
Cell[BoxData[
3 K/ L# x2 G P: ~- l+ ^0 M RowBox[{3 q3 A0 c1 F9 Q2 s9 S
RowBox[{"0.9125798890455868`", " ", z( t) t/ X3 i% k8 ~
SuperscriptBox["\[ExponentialE]",
2 ~9 t$ ?( ^* ] RowBox[{"3.141592653589793`", " ", * b! Y* ^3 x: W) {7 [
RowBox[{"(", 1 l) X1 C8 |, h; m( F/ K; N; q3 @
RowBox[{) A0 x2 H1 x! q) w
RowBox[{"-", 3 g! w) X- n6 b3 @0 r: @2 U R% s
SuperscriptBox[( m$ p4 U" O2 q4 l& l
RowBox[{"(", : V0 ^0 l/ H0 y) H
RowBox[{& C% V- Z6 k" h& N" L Q7 d
RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", 3 e# u- G. W& Q O! L, F4 F6 V
SuperscriptBox[: ^4 v# j9 Y; L; l4 \
RowBox[{"(",
. r: g/ ~) X! v! x0 W RowBox[{
3 L' [( `/ v$ K; m. a RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", ) }0 U. v+ u; n) \6 A. p. r: B
SuperscriptBox[
, R/ c7 c1 y5 F, a, J' s5 h6 z8 Y RowBox[{"(", : }6 `! T' }' g( {
RowBox[{
* K2 ~2 V" u; r+ i2 @! D3 l) j RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
9 n8 @0 }' d- `6 d6 ~2 D SuperscriptBox[
' F3 }: { _- D) J, R1 f' C3 Z7 H RowBox[{"(",
3 q; \0 z) p! y6 n0 A; ^, I$ q5 G RowBox[{3 e! n! X9 ?- _
RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", 9 m) G, D( @4 I ?) @
SuperscriptBox[
8 Y) I. B+ U' \1 b+ D7 x RowBox[{"(", 7 m5 c1 g2 }% n: F
RowBox[{* B, n2 r4 i# G, Y% [2 f: r
RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", 8 O# Z% `, H! @2 r- `; B9 g( N/ m
SuperscriptBox[
& K+ m# t9 u4 Q n u RowBox[{"(",
9 h' u0 k2 _$ Q RowBox[{ z( i# ^ s! ?# ~& y/ L
RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", 4 Q; w& b& p# c$ E/ }
SuperscriptBox[
# _1 i2 p& S9 g0 r! B RowBox[{"(", * J3 z. R$ t1 c" @. [1 e7 \
RowBox[{
! H" o# e% W& u- j1 t- o RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", : P4 ^5 F) ]& J7 T+ o
SuperscriptBox[
6 @" J. G% k+ N x RowBox[{"(", ) f6 w/ P. c" j0 v6 N
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 5 i2 O' R1 z8 q5 G8 d7 ^9 _: P
SuperscriptBox[
: J" u$ Z" r H& O! h+ v RowBox[{"(",
7 ~7 a, H7 v- A v RowBox[{
" L9 S( ~3 j3 u0 d RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+", . c) P) Y( d) ?
RowBox[{"0.28831860112966734`", " ",
: G1 [' p) w% \4 C' a SuperscriptBox["\[ExponentialE]", 7 \1 M" q1 F: V9 o6 R
RowBox[{"3.141592653589793`", " ", 6 y, g/ m. M$ o% M: b' O* U
RowBox[{"(",
. a1 c9 J' ?5 ^8 |% K1 i$ z: } RowBox[{
. J, a0 x+ i4 q# N* R5 ` RowBox[{"-", - P* |0 R6 H* r9 w& m+ z. A# H( D
SuperscriptBox[) G$ J2 _0 b6 r: a. S% |# C# Y, |+ O8 b
RowBox[{"(", ' S2 Y) v1 p# R+ w) g# o+ ]
RowBox[{
0 R- e; B9 j/ L RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 U, z+ o7 e1 L! j
SuperscriptBox[2 l1 J4 b) |% z; f' x; r& N
RowBox[{"(",
7 W4 U U( |$ W$ |: J8 ]8 b RowBox[{
, N9 ^( A: j- x. k; V4 ]. P; x RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
* B8 Z U, J. t( s' j! |& ]0 {# x: p! p SuperscriptBox[& \& }* x. ^0 z2 T: s* ]' B; `2 J
RowBox[{"(", ( ]5 C1 h8 I* c5 ~* E
RowBox[{
2 D+ g" Q/ u8 S, `; K! V, a ? RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", 9 U. t) ]0 K8 p0 n: l
SuperscriptBox[
9 O; W: O9 ]% g9 B; f* K7 T0 ?% C! J RowBox[{"(",
$ n- ]" e7 Q% L' | RowBox[{! K' N- A& P; ?/ n, ^* k( V, n
RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-", * g; X0 `: i, D+ i9 J n
SuperscriptBox[% B( L4 F; i* Q. `1 @
RowBox[{"(",
6 G+ n6 i1 L6 \0 k1 [ RowBox[{
6 x% M# z8 r3 [* F1 p+ P RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
% I& _3 v* u$ N% F* S [0 O SuperscriptBox[1 K+ U* \# f) ~' I8 j
RowBox[{"(",
: l" a- G' E. x9 Z RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", + E, K1 S5 m" U9 S0 \1 c% @% D2 x5 _
SuperscriptBox[
3 x1 k% o- S7 t2 F5 K. v- y" K RowBox[{"(",
$ |3 a; k& ~$ ]% I; B' W6 m RowBox[{& S! l3 a* k' X0 D6 z
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", % M9 p- C6 K4 v I7 J) k1 i
SuperscriptBox[3 }. p( {- B% p! a, r5 \$ N
RowBox[{"(",
6 X5 X! p9 S5 t! Q8 q8 k/ g RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 9 c! @+ o8 G1 q. e
SuperscriptBox[) E- u- y: _* U/ p
RowBox[{"(", " S: R0 [6 [; r0 j+ n- g9 Y
RowBox[{
' J, ^ K/ @% f: O2 U RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], X7 w# {8 M5 Q& W0 o) }, L- M3 A& D
"+",
9 g0 W( @# s2 m5 C3 U RowBox[{"0.21159052285983104`", " ", 3 \8 ^& n6 b( w) Z/ ~1 e' d
SuperscriptBox["\[ExponentialE]",
" Y4 B! D* g( }( U+ D7 i" F RowBox[{"3.141592653589793`", " ",
8 D, a% M7 C% w- c v# m RowBox[{"(", 3 h9 J: n9 `1 S/ b
RowBox[{
2 `* }. t" d& x7 }8 |: c RowBox[{"-", 9 b1 Z& B+ H# l o. W
SuperscriptBox[8 W) L" Y& p4 e5 c/ `% b
RowBox[{"(",
# A( t- l% M" A# u. T m M RowBox[{" z9 W1 L: n1 c: {2 U& m
RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", ; E. x* E: j6 B P* t* U
SuperscriptBox[
5 P' @# M+ ^) B! j- P6 b, h1 c6 J RowBox[{"(", 1 x8 A: n5 U9 o
RowBox[{9 D! ]! {& w( k5 I( A
RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
( i) C8 u' ?( [9 u0 R SuperscriptBox[" @& c6 R" _$ Z+ }
RowBox[{"(",
* |1 u5 X& X6 h$ Z; s RowBox[{
- e- Y# e1 T/ }* X1 n7 G: Y0 V6 x RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", 2 Z& l9 U% g( s1 d7 G( H
SuperscriptBox[
/ @, H0 n$ }) H. } RowBox[{"(",
: l4 [5 L* t6 m2 s6 o RowBox[{
7 E% |% r ]3 \/ k- A: |/ F. c RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
2 n4 f* C F1 f SuperscriptBox[
6 v6 L4 D: h: b! N5 Z/ n* X J RowBox[{"(", : u% p; S/ C3 t" \ ^ p- z+ N
RowBox[{, Z9 a9 j% i+ S. r
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", & }: W* `0 L- n @
SuperscriptBox[0 r4 l( ~( P7 i8 ?% j
RowBox[{"(", ) ?0 O8 |7 | D, ?% s5 Z
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 7 r8 V+ T F6 t6 A" B
SuperscriptBox[
8 |+ y3 w2 N/ W( X- R8 u% V: A, k RowBox[{"(", + |8 U7 S$ D4 u7 f" P- G: s* R
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 6 ~+ F+ W# v% v4 p
SuperscriptBox[
' H$ n+ W3 v/ u, X4 l RowBox[{"(", 3 y* T) ^3 s! X5 D6 h; _; r
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", : Y) R( B8 W. m7 {9 b4 F2 P4 R
SuperscriptBox[, K6 O# e. B# H7 G. n0 p7 g5 P( S# E( C
RowBox[{"(",
9 D, v' }. w. m9 A( |* R RowBox[{
3 n* c% o9 ~3 M RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
" j' C3 V n- o5 O3 D0 r- X1 c "-", 6 b# J O/ { S% `! Z: t' k! I
RowBox[{"0.2282993884666894`", " ",
' B% a' ~( |1 ?) T" m9 |, z SuperscriptBox["\[ExponentialE]",
9 Q: _2 _7 k, N3 n# |9 p RowBox[{"3.141592653589793`", " ", 7 A; q% X$ ^7 D
RowBox[{"(",
. P, p' H9 y2 f6 Y1 S RowBox[{
: f9 [, ^# D% K6 C RowBox[{"-",
& n5 [9 p! X ~( H% T SuperscriptBox[
- I( G9 h& o0 J" T5 c. ~* B RowBox[{"(", 3 _' y- G8 K/ n7 u3 R# P( n
RowBox[{' d$ R2 ?' E: i3 K2 R) n
RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
# q; V# V$ O/ g' g* W) q- z SuperscriptBox[
0 r' Q$ M2 x& K RowBox[{"(",
5 n# q; R. U5 p8 y; U- K RowBox[{+ M; m) u+ E4 c A6 w! ]
RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", 1 |) n z4 O7 U: K8 X* B) }; L
SuperscriptBox[
+ ~+ D* l- U& h8 V0 ]* u RowBox[{"(", , c9 X: E" T4 [/ c0 T
RowBox[{
3 p; f i* h D* y) F+ C$ w RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
& J" Y3 l4 i) Z SuperscriptBox[
) T. k H! y, F RowBox[{"(", 6 K1 |( F; H* f) Q1 a
RowBox[{" W' L' s6 L; m! R
RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", 1 s! j0 M2 S- d5 g* [ X
SuperscriptBox[
( M" l7 H4 K$ D RowBox[{"(",
& Q1 @2 t4 j& [1 Z) i" {' T RowBox[{' c) V9 N! ]& K1 h/ m
RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
! Y' t1 R. f8 J- @7 k SuperscriptBox[" M* j& ~8 @* c- P& z
RowBox[{"(",
4 r( \6 P2 Q% y# a7 V4 z RowBox[{0 f7 V; A* f/ s6 w$ q) A5 _
RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", 3 q; u8 [' u; _' f, Q2 S, S( {
SuperscriptBox[
7 c2 z! m; u/ `6 I RowBox[{"(",
0 s3 A7 c8 @, ?: G RowBox[{
* K+ |. o5 S" t+ R6 J$ U5 M$ L RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
) m3 n0 U$ {, |8 h7 S SuperscriptBox[+ x5 P5 ]5 |: q! A' E2 P
RowBox[{"(",
0 q+ a" L, F- j5 J RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 1 B8 ^+ h+ }' U
SuperscriptBox[* F: E0 j( C9 I
RowBox[{"(", + F- B9 D+ _! R" F7 v
RowBox[{
?) t4 |+ I# `" e) y* { RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 8 O7 {- w; K8 ^/ h1 b- n9 c, k2 m
"+",
/ M2 T% t ^5 B5 i' k, q RowBox[{"0.27551257162880227`", " ", 5 f' `# [- b, O$ D/ P/ v4 g
SuperscriptBox["\[ExponentialE]",
5 E- ]7 H/ F9 K: S6 x+ Z RowBox[{"3.141592653589793`", " ",
F( l; Z' V" \9 s RowBox[{"(",
% { z+ u+ F, k RowBox[{
! V( p+ o; F4 F9 X' t RowBox[{"-", J1 C1 C. I: X' K
SuperscriptBox[
- O- Z% H# t9 X ]; z' Y* ]2 y3 d1 A RowBox[{"(", 9 u( n3 S, j3 ?6 \- ]& p5 ^ w
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
' u* S- k. U' ^2 v! O SuperscriptBox[
" X: F1 W" b3 {1 P" H$ C RowBox[{"(",
8 ~# Q3 o) i1 f a$ l RowBox[{; n: R: J* y% }0 ] I1 h" X
RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", 4 r0 ]2 _1 M9 d x( y. C% C0 l3 g
SuperscriptBox[
, t6 U8 W1 e$ q; }0 h# p RowBox[{"(",
/ L0 M% ?& t0 k T2 v4 }3 ^: D0 A7 Y RowBox[{6 C6 Q$ Q6 X! y0 c
RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", 5 `7 K- R$ y+ X( k; K- C
SuperscriptBox[6 N& `9 B9 f- u' n4 C; x4 \1 p0 w
RowBox[{"(",
; d E d9 c* T( { RowBox[{
; T1 u# A9 L6 i, c RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-", * f, a0 ?. s( p# }: ^( `: [# W, A" o
SuperscriptBox[
/ A5 b5 K. n) x. R RowBox[{"(", * ^& f2 S% Q0 c
RowBox[{+ H' d( Y8 f5 ^6 I" U6 p
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
" v3 S+ t; H% i4 o; } SuperscriptBox[- q5 H7 `+ W: |* B9 v( e
RowBox[{"(",
1 o: g* J) y0 ?5 H1 e RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ) o, l* \+ p& F+ W
SuperscriptBox[8 w) F8 q8 i+ ]2 ?5 t) J$ z
RowBox[{"(",
% d" ]4 Z% L% K) v$ l7 h* E* P RowBox[{1 W5 w" a6 r+ Q+ \
RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", , g+ `. _: c& t1 P( `0 p3 q; t
SuperscriptBox[
1 v/ ?: t# L' R0 {$ Y) z RowBox[{"(", " _+ z* H$ b g2 L! x
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", & U4 i7 p6 B* d. e4 `7 N
SuperscriptBox[
6 j% q0 P) }$ B/ h: z& c! T- ^ RowBox[{"(", * J% c, \' u4 O* d! X# l: a
RowBox[{3 j8 z" c f, Y3 d& m
RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
- J0 C' J; }; L0 h "-", 0 G3 j5 _; n% C, A
RowBox[{"0.12620581913715245`", " ",
5 s1 b) z* L. a& z1 b/ T SuperscriptBox["\[ExponentialE]", 6 o$ |$ q0 F) K* _( V7 g% r
RowBox[{"3.141592653589793`", " ", : U7 T) \1 O6 \4 b% |3 G) {( Z
RowBox[{"(",
; v+ y, V. n- N* ]0 ?+ j RowBox[{
7 e: s( {5 K n, U* V RowBox[{"-", & R" e; K0 c: A, u4 T1 I
SuperscriptBox[
/ ~$ J+ Y) L$ B* M RowBox[{"(", 6 N6 ^* L1 w: M2 S5 t
RowBox[{
& Q6 k3 L. `. `" k' b RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
; X& A4 |# E$ q+ @" f( c SuperscriptBox[( b( E2 N7 l3 j7 \ [) t
RowBox[{"(",
' P; D' K7 T5 S3 l RowBox[{, `! B) M6 |$ U- h1 d
RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-", ) ^; o$ }( Z& |9 N, i
SuperscriptBox[
' e! i; I# O$ v2 s. F RowBox[{"(", % D! h& b8 v7 j1 `( K' M' }9 ?
RowBox[{
' G' Q0 Z) p' ]2 a3 I# g8 B" I9 h RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
7 Y! c, i3 D# A9 _6 m3 y SuperscriptBox[
! }! I+ |1 Q% ` RowBox[{"(", N% W' n) B+ E1 \: a/ A% m ?
RowBox[{6 k/ k7 G1 ~5 ]2 ?# [( R6 B3 e! J$ T
RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
$ l. h. k+ N' R+ u+ W" c SuperscriptBox[
# h, O) d E: p- d$ m* S$ n RowBox[{"(",
5 U) a( z" s: w6 ~ RowBox[{
6 F' e$ Q2 W9 e2 d" A/ d RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
h4 o2 F! ~) ^4 Y" [) C: ] SuperscriptBox[, f$ b- \8 c5 a% y/ Z* X& I
RowBox[{"(", : b2 t9 e$ E1 ^( F
RowBox[{9 A; R' L& c Z$ ], z
RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", & `- y% V* y8 B3 f% [
SuperscriptBox[. }3 t2 E: w3 z
RowBox[{"(", # @3 s5 M9 k- Y( X" c* ~
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
! e& Q6 o- a# S8 A SuperscriptBox[6 H. ]. w& ?$ u0 U# d- R; ?
RowBox[{"(",
8 x* i. r% S0 G4 D1 i6 G/ a RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
s4 ^# y l: v& A SuperscriptBox[8 e2 h1 f" f6 U
RowBox[{"(",
. i* v9 _0 ` ? RowBox[{5 p8 h5 O) K1 ~$ H: i0 I) c
RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
) {& f/ j2 t' | "+",
5 l* ]( S9 v1 t5 ^& C RowBox[{"0.12782130225993923`", " ", 3 G, u% y% u4 V5 m% Q! g, k& y
SuperscriptBox["\[ExponentialE]",
, L. V: `1 L o% U" i5 d RowBox[{"3.141592653589793`", " ", 7 U3 }, G$ T2 ~/ |) B! D- Y
RowBox[{"(",
$ {/ H i$ z: H; k* ^) L- f RowBox[{
$ w( J }- X4 {' a# B RowBox[{"-",
; v* ~: R3 M- i; R0 P3 C* O SuperscriptBox[: w, g0 B8 K3 Z( A- m
RowBox[{"(", * v3 S0 z& n; m A( [
RowBox[{
& p: }/ [7 U& b) h RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
5 D' q/ X( |: I2 n5 ~. z' ~. u8 H$ ? SuperscriptBox[
9 j$ \$ Y0 \4 J; i& z RowBox[{"(",
7 A/ d! B6 W6 f% i0 Z9 z RowBox[{. K! O, S- j0 d" S% z+ z
RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", 6 y* Z( V' L: n! o( Y5 r
SuperscriptBox[( c5 H% F: t& g2 d$ u
RowBox[{"(", # R% y6 O! F2 E/ c1 k5 F
RowBox[{
5 n) F8 r5 L% h+ m8 T" f! f$ ^+ h/ ] RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
' T5 k0 @7 m5 f+ q SuperscriptBox[
& Y3 B5 J1 G p' R" O/ s RowBox[{"(", ; A8 [' Y/ }7 {/ l2 Z
RowBox[{
6 o& D) Q9 p2 G( c RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
' X6 R' @$ ^3 w+ B6 V$ a SuperscriptBox[
- M# C5 M6 L# _ y( ?+ a! ^3 T1 }- q RowBox[{"(", }* T, N ]' k* M: c
RowBox[{
* P- T- ?+ v) o+ @# G3 {' x RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", 4 C# Z# G; h/ X+ L$ l: b; R
SuperscriptBox[
% R X3 K" O5 h7 p: P6 w RowBox[{"(", 4 Y+ A; W& z4 Q
RowBox[{
4 a" N6 T3 J3 ]" x5 {0 x9 M RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", # N) d' x- p4 e7 o U; }9 P
SuperscriptBox[. Q2 E! M5 H9 @" T2 T9 e
RowBox[{"(",
5 n6 J1 t0 Y9 s8 @ RowBox[{1 s2 w8 y# A( D
RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
: h8 |+ E: i( T: u SuperscriptBox[7 y6 J# {; Q5 Y6 p* q; ^& O+ H+ z# q# S
RowBox[{"(",
7 R! Y( Y5 N! I/ I' |" i RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
! o B; W. p& {1 n2 i- c SuperscriptBox[
2 @) y) J# f5 c$ x3 _7 ] RowBox[{"(", + r* s4 q# o7 s+ k( R& c: r
RowBox[{( r3 w) \- j1 q+ a, g. ~
RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
* z) q* k7 {; j* W6 G; b& O( \! h. [ "+",
+ d9 D {& x; F RowBox[{"0.2361524780938108`", " ",
/ g# O+ n% ]8 m8 Y, R ] SuperscriptBox["\[ExponentialE]", 0 ~) W; V5 Z. x% ?: N
RowBox[{"3.141592653589793`", " ", " S3 l" R1 S, g2 `; C
RowBox[{"(",
0 a. l+ `0 y5 c0 s; ~ V RowBox[{
7 h5 g ^4 P0 f RowBox[{"-",
! V; {! C# Z3 G* s' H- T$ p: x SuperscriptBox[
5 \# c0 v, [4 y+ S RowBox[{"(",
4 t0 `8 P' y H RowBox[{
5 s3 B0 A8 d! ]! p, B3 B* k RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", 1 A8 J5 h) g! [# X! P0 Q
SuperscriptBox[8 [* \+ C1 K3 P
RowBox[{"(",
6 h3 i% ^: G, k RowBox[{
9 J; y( t3 f0 S: R RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
# U: Y8 O0 O- K$ x1 d SuperscriptBox[
0 b, d# z( t# {& ?* | RowBox[{"(", : }2 m- F" V' W; E K+ S
RowBox[{# _9 @" K5 b# A2 u# O& Y; P
RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
3 L* C% k, ]# E1 x SuperscriptBox[
, {6 y6 t( ?- }) f4 B( `# K7 V9 T RowBox[{"(",
) ~) ^$ U! k* K9 h& l RowBox[{
5 Y6 U) c+ D7 T' _' ~" t- y RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", ' M$ i6 u3 F; T0 L6 A( f- ^
SuperscriptBox[
& B$ w h- [, `- s RowBox[{"(",
( u' @4 F F+ R* m4 y8 g+ H h3 p RowBox[{
/ U$ m% Q! V( X0 n RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", ; S2 P3 Y' E% N' k" X* r8 }
SuperscriptBox[
8 c Y7 ~% Q: b/ I: G L RowBox[{"(",
( x1 @& i3 _0 R6 z3 ^ b RowBox[{
: I( j$ x% A' q RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", - D: [5 Z, H- n
SuperscriptBox[
$ d; H" e6 W* @# @ RowBox[{"(",
" p' Q3 [) Y+ {/ A" O5 I- f! ~ RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ! [+ M0 t: U& f; P/ t1 r
SuperscriptBox[# |; h, `" U+ _& d( h. u6 s. Y
RowBox[{"(",
+ |- |, @+ F6 q! V e RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", - r' b+ M# Q4 P+ v' E! q
SuperscriptBox[
" g) s: c: s4 `- x RowBox[{"(", ) K2 a+ _& r9 ?& ?$ N
RowBox[{/ V, w. Z( B7 ?! M) X
RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 9 g6 S8 A; H _- v1 m2 A& ?- l: C; ]
"+",
4 u$ _) z; B; [. S. H2 o* p' _- | RowBox[{"0.3207174990295839`", " ", & A+ n% b6 o6 m6 |. j
SuperscriptBox["\[ExponentialE]",
% e( y& E8 T; Y3 _ RowBox[{"3.141592653589793`", " ",
: u. ?, U x8 _, x+ C: | RowBox[{"(",
$ U* [' s m( ^ G7 V0 R RowBox[{" H7 {& T: t' k3 t5 i
RowBox[{"-",
; V0 F1 v# w" c* e5 H7 A/ R9 ~ SuperscriptBox[
& v1 Q \, O3 ~( n4 S& }! U RowBox[{"(", ' K! O+ n' p O9 t1 K
RowBox[{* E9 P) q2 W }; D, g
RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", ' y0 l/ R4 s# s7 L4 T. O, R
SuperscriptBox[
4 w1 p+ D1 n& z" @$ h RowBox[{"(", 6 _! {8 _" N3 ~; O1 X
RowBox[{$ h- X- g' \ g8 `) Z# `
RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
: X/ E8 D1 T" _8 Q: \6 w SuperscriptBox[
% }. H. u o. s" f, ?3 Y% W6 f RowBox[{"(", B4 k8 b+ |# H. o; W
RowBox[{0 Y2 b, x7 y- F
RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", ' [# }- {% L$ h6 o
SuperscriptBox[
7 ]5 V' b, G! D) F RowBox[{"(", 0 i( d( b# j" T, @
RowBox[{
: Z. l; ^# e0 R RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
3 k. q, }" |* c4 n2 P9 {- U$ O. d0 V SuperscriptBox[
6 O `2 n' B5 ^2 U; P2 |2 L RowBox[{"(",
! ]8 z# F# b' t RowBox[{
* d9 S3 k$ R: i RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
! g; U) m( T6 t9 _ SuperscriptBox[ n. U9 ? ^7 O/ ~" r3 f* o
RowBox[{"(", & {: p! n+ H [
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 2 r+ o0 ?8 \( ?4 n2 P+ ?7 P
SuperscriptBox[* t+ ?4 |: w, S/ f
RowBox[{"(",
! A5 v2 D$ y/ M RowBox[{; x9 A9 T" E/ r1 B( b
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
1 L- C" F( p0 T6 ~/ r9 h! v3 | SuperscriptBox[
& t: o6 o- I& v. l5 L RowBox[{"(",
" G; V- _- i+ r- { _4 R% y8 t# c RowBox[{6 b4 V! }# E5 T2 a
RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
$ I1 o+ u# ^: n. w, e$ O# N* u+ T. N SuperscriptBox[0 D4 f" _4 m5 U, Y5 e- E. ?: Z
RowBox[{"(", ; w% @( V9 ], u$ e
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 9 E O) ~* B1 D6 b F
")"}]}]]}], "-", $ ]& u9 `: ?4 y1 s# R' [, D
RowBox[{"0.15852708848338315`", " ",
$ `7 R3 p3 c) m+ B) ?/ x SuperscriptBox["\[ExponentialE]", ; W5 `& m9 d, {1 M" ~% E4 h
RowBox[{"3.141592653589793`", " ", ( y% W1 X/ U# h
RowBox[{"(",
! c) w4 h/ D0 i7 C( z( s RowBox[{
3 Y7 F8 P2 f! l' q- L1 M6 Y RowBox[{"-",
& ~ T/ A5 [0 b; G4 @4 ^ SuperscriptBox[6 |; \2 y( z( S$ w1 q9 \
RowBox[{"(", ' d8 _: ~& E( F2 z5 \, z
RowBox[{5 h( [: a5 v" I
RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
+ w, H, I+ r' _8 |& v SuperscriptBox[7 q& C- k) U0 L
RowBox[{"(",
2 z; c. p2 \ F; S. G RowBox[{
. `2 q/ r6 k' p* Y1 [4 ^8 f7 q RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", # k4 U2 r' X/ [& u A
SuperscriptBox[! }6 s5 K; _" B, D; y% T$ u) D
RowBox[{"(",
' u9 o1 V6 d2 H- s9 p3 D RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
- w3 B) Q. K; Z9 L% U1 d5 v1 K/ ^ SuperscriptBox[) f2 j* D+ }' [8 N6 o5 f5 ^
RowBox[{"(", + g% l6 t3 Z# _8 j, R3 f$ e/ D
RowBox[{, h2 J! E7 ]& ?0 y" F6 C! ^
RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", $ X8 E. d# O+ }4 Z
SuperscriptBox[4 Z- k" G0 k9 {) x9 l- f0 |
RowBox[{"(",
* E7 _0 S6 m3 [) W3 y" C4 \; c RowBox[{2 o5 f9 h+ ~1 H7 J1 k
RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", T( w) O7 h5 T* k# M
SuperscriptBox[* |* P+ U7 d7 J
RowBox[{"(", ) p$ x8 q4 |: g$ Q5 N R7 L5 [
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 3 b* {% Z- e+ O% z5 g. d; y
SuperscriptBox[& k% i0 R0 j# _/ P Q
RowBox[{"(",
, I% n+ q5 u* u# \0 j, Q6 K' ` RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
: f1 U4 ]4 i4 V& n1 ^ SuperscriptBox[5 k" A. [! J; h0 t7 d
RowBox[{"(",
8 m, t$ ?5 e2 A+ z3 w RowBox[{' ~& h; G9 w, [
RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", 4 [- ~' s" q0 a3 j2 U
SuperscriptBox[* `& {( O" V0 M3 C/ L: O0 v2 _! T
RowBox[{"(",
2 t! z; K5 ?( @0 |3 E* [& }! L RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], # e5 d4 a$ B, {) Y& n, r, d
")"}]}]]}], "+",
7 D# m U) X, ^2 @ RowBox[{"0.6019775648968265`", " ", 9 v p6 _% W% E" r5 Z
SuperscriptBox["\[ExponentialE]",
6 S8 A7 _* P! G8 f. r8 l RowBox[{"3.141592653589793`", " ",
2 i+ x% R: u. f" y) Y1 j$ Y RowBox[{"(",
) U0 N1 x, G# m4 o6 ~/ ] RowBox[{
$ i0 A: ~9 C9 j* x- m& q% e RowBox[{"-", : c* N+ [. P- Y4 R6 C
SuperscriptBox[7 i1 v1 l |6 |8 ~7 E% }) F
RowBox[{"(", 5 j+ w( p, V; w! D, r, Y, b5 C; L9 g4 w
RowBox[{
( f" d+ F! r. S' z/ Z, S; m. v RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
& T7 g* G0 L& E U3 h5 ^ SuperscriptBox[6 ^, T0 q( X, d" E& P% o* ?+ N3 y
RowBox[{"(",
* a5 o. E* M$ k/ z% P RowBox[{+ H% g' m& _, E ]: z
RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
5 e F2 `; `' ?5 K SuperscriptBox[
* E* u& G: z1 B$ m6 P. ^4 B, A# E RowBox[{"(", - A/ z+ o9 J, n- W) A. b
RowBox[{
1 c6 D: V }) ]8 W' x8 V0 [* g RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", - s% `9 |/ T5 \8 I5 e1 F
SuperscriptBox[
5 i9 U& ?+ h+ A$ G7 ]1 v RowBox[{"(", 5 a& z# S$ f! r: f. D1 l3 b2 w
RowBox[{
1 }% F4 Y' \, p! y; q0 N RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
: P5 _ G7 Z- [, p SuperscriptBox[
2 Q: f) x9 a/ @) ? RowBox[{"(", ) t! T0 u+ E" m9 x
RowBox[{
# V; i3 q& x6 R( ^ RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
2 ~4 b7 @! p3 G1 u* V4 I4 n SuperscriptBox[/ Q# X5 ?1 y) v5 J- l K2 D, D" s
RowBox[{"(", % R, j4 U# B- V4 p7 c% h
RowBox[{
# h1 _9 V% f, L7 t5 h RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", - l* S8 o/ X: G% x
SuperscriptBox[
1 F* S% c$ E0 m" a$ r& v RowBox[{"(", 6 w$ q/ t6 t; ]1 u; u
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ' ]/ A5 A/ Z9 x9 F& K1 x3 E4 C, S% l
SuperscriptBox[5 I3 o; D* v- u: Y; d7 \6 X
RowBox[{"(", " K+ M) ^. z3 n
RowBox[{
3 H: z3 b6 b$ @4 P( a RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", 4 H7 P- c: X. n( k" @; n
SuperscriptBox[' B2 p& D, s8 f- U
RowBox[{"(",
7 g: W$ j; Z" p! G3 D( T2 B RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], . `2 s. M+ u: [9 w
")"}]}]]}], "+",
9 z& [0 U4 W7 n4 [; R, ^1 y! } RowBox[{"0.16041393254115022`", " ", 8 @& U8 Z- J! Y
SuperscriptBox["\[ExponentialE]",
- [, B5 L4 K8 x: e% `4 I RowBox[{"3.141592653589793`", " ", " V# ]$ j1 G% B' a3 s
RowBox[{"(",
5 [" W) ^: E" i+ |3 O0 W3 Q RowBox[{% D* r. i& V% A Q$ G
RowBox[{"-", ( h' L+ I' _+ B9 d- Y9 q
SuperscriptBox[
. t# Q7 Y+ }; R2 O+ W4 F RowBox[{"(", 9 Q z2 x k/ [ b( N b
RowBox[{
. i! S9 ]5 V4 S4 \$ X/ Q1 h RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 b9 v) n' f+ y
SuperscriptBox[' L3 ]% q- e0 F8 ~
RowBox[{"(",
4 A/ Z! d4 h' A { RowBox[{9 m! p' v& q. L! r$ s7 g8 P% |
RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
! Q; p F }# V/ M( N% N/ F( F6 Y SuperscriptBox[
3 Z" m: k8 {4 }9 r RowBox[{"(",
- P- N' \( h* K# @3 R* g4 J) v3 y RowBox[{
$ p% |" B$ H0 i4 n( s% ? s RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
( {3 _- w! l) |2 V+ b* o: X SuperscriptBox[
# N) a7 m' h& s. [ RowBox[{"(", 5 r/ w3 F" y! m0 R Y, X- t
RowBox[{' \# I: Z" u0 g, q4 ~9 {& ?
RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
5 v V! l u9 ] SuperscriptBox[
8 ^/ ]- s( T# \8 c g; p: z) { RowBox[{"(",
; }; S5 G2 |0 \7 Q5 a RowBox[{8 n& h: K: H: Q% A$ ?6 b
RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
% g& s" V* w! a. K. Z SuperscriptBox[
6 R2 B- B3 m- [ y, x. L3 L$ Y! j RowBox[{"(",
% v$ a+ t+ ~3 e- ?# p. c" ?+ o" l RowBox[{0 V& u! |1 u U; z
RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", $ p4 w% c+ i+ Z/ n
SuperscriptBox[
6 @( c( l3 k, ^, [, g5 ~. i/ U! k RowBox[{"(", * \4 @. f. N( C1 y+ T% e
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
, i0 T, w- E( f. w' U SuperscriptBox[ L+ ^$ j3 g$ C: P) g
RowBox[{"(", ; Y- n0 s& i' _! R
RowBox[{& U/ B3 C% D0 B% S$ N
RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", ; s+ b0 P3 {( A0 O
SuperscriptBox[
5 t- V! v- Q# s RowBox[{"(",
! W7 c2 {* N+ q8 V RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], , u6 f! b- W. n6 y. M
")"}]}]]}], "+", & N; _% `4 M* L. g9 q( [# c
RowBox[{"0.48228184971363947`", " ", & K9 p3 {8 d- k4 n7 k0 y, P9 P
SuperscriptBox["\[ExponentialE]", " Z% \5 g; `% @% l: X
RowBox[{"3.141592653589793`", " ", ) u6 I( x$ A+ p7 f6 ?- ]
RowBox[{"(", & h( n) D) ^. `
RowBox[{
2 e/ N; ^% b' J+ x; P RowBox[{"-", ; {. ^) S4 d, Q/ g
SuperscriptBox[' |+ U6 h1 W3 ?, X, O" ?( Z1 q
RowBox[{"(", * B2 f- b) B# S7 X6 ^* f
RowBox[{
" e6 ]4 ~; B$ g2 M! `) I2 e RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", - E; T. q( \* I
SuperscriptBox[- L5 Z& {3 W& e% M
RowBox[{"(", ' ?& H% M' u; ]8 Y d) E4 u
RowBox[{7 @" u; ?0 k$ N' d
RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
' U! ~- r6 ~1 T SuperscriptBox[# K* H. e f# y( X4 \8 s+ M
RowBox[{"(", 7 o( Z" Y. F6 C3 T. l0 y
RowBox[{
: m' u/ I" \) B) Y5 U1 W) ?8 d q RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
+ F2 | g/ [+ S. N SuperscriptBox[8 @, {4 n' q" }" t% ?* L
RowBox[{"(",
7 D( y; D7 B* ^+ p: [% h RowBox[{3 x/ O0 @. T9 [$ l6 a% f
RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", ( n- }5 m; w' P+ G1 D+ z1 Y# v
SuperscriptBox[
y5 `& f' X. t5 d! ?- ?0 U RowBox[{"(",
' g3 \) S4 l$ p. [8 E6 d2 c7 F RowBox[{: G) E0 Y$ c6 I* J
RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
7 f! F! {% a6 Z SuperscriptBox[
3 T! v6 ~9 G, j RowBox[{"(", . z/ C1 m" w- f1 Y5 z* F
RowBox[{
/ e% n. b! ~6 N* T0 [( g RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
h H- j* a& s& R0 Q$ I8 I ~ SuperscriptBox[
8 K6 W/ F ~+ H7 F8 M5 s RowBox[{"(",
6 E8 C5 V w9 H" U) e( ]' _ RowBox[{9 S0 a" ^8 ]4 L/ ?
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", 0 y9 z! V+ M) I7 L6 |
SuperscriptBox[
" ?5 ?4 n7 U, s4 P# E: }2 K RowBox[{"(", # [. I# e- n8 R6 \ T
RowBox[{4 ]9 ?) ~" l& o! t) M5 W5 D/ u
RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", + I& g3 ^' I0 `9 \
SuperscriptBox[
b2 \5 J0 ?$ o9 Q8 f RowBox[{"(",
' D1 Q9 J2 T% p$ [: | RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], " q) \* X% s. T$ T' s6 b
")"}]}]]}], "+", / F- U7 ^3 a) f% j g
RowBox[{"0.2954923840077215`", " ", 2 [5 W3 G3 ^" s* `" {# w
SuperscriptBox["\[ExponentialE]",
& N. T% d |4 U5 S. ^5 C RowBox[{"3.141592653589793`", " ",
9 ?3 L# y/ n3 s' b+ ?' c RowBox[{"(",
* G' ?0 |# w: t: W3 m1 b1 C# o3 p RowBox[{
) A4 i" n- s6 q3 R0 m b: E1 n RowBox[{"-", 4 B% Q8 `3 Y; u( m$ Y. V$ n
SuperscriptBox[
3 I5 |# W3 ^3 z) Z% N! \ RowBox[{"(", / g* z G4 ^' o3 Z9 o, l- C' u
RowBox[{, c$ @, e) d" s9 ^$ v% s
RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", ( i& c8 L" v3 `/ j; @( u6 P
SuperscriptBox[
- L+ _& i5 _: N2 L N: v- e RowBox[{"(",
2 G, A. n p4 p, v7 Y RowBox[{& O2 U O0 U5 X n4 p+ d; X
RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
: S/ ?, E8 `& h! l5 _ SuperscriptBox[
0 g/ t+ s M8 ^+ p; X; g+ F: M RowBox[{"(", 8 K" w$ O- `1 h3 \
RowBox[{
( a, x, K9 @: P* s% \* ]) Q2 t RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
; V; [% u% v U/ d& B# Y SuperscriptBox[
R" V7 V5 P4 S! c3 s/ c; P RowBox[{"(", & D( M* f/ {5 E, D( T" e
RowBox[{
9 U7 v) p5 c* [ RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
$ U! z' J7 _* q9 l' s* u! M SuperscriptBox[' W) q( }9 n% y( p: D5 F0 M }
RowBox[{"(", - `6 a: H+ h! I% _# R
RowBox[{
: q' {! c' {, b; R: ]6 M+ } RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
! ]8 ?" J: L9 K; x! `6 U6 p+ ~+ q/ o SuperscriptBox[" Y* g3 F+ G& M+ D) E
RowBox[{"(",
+ e7 J+ U9 z6 d. k, e& c9 S RowBox[{
* L- {8 O/ g& w RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
0 ? G& W/ P8 J4 y: h9 Q SuperscriptBox[
( G, F. R8 ]0 B! P) G$ }# V1 H1 J RowBox[{"(", % e1 _" h" Y; [
RowBox[{- J- @+ |$ O4 E$ ^. X. d1 W) c
RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", 4 p: d# v+ O- `9 X: o! }
SuperscriptBox[. ?/ r+ R7 T) E0 g; c8 C0 t( s% Q& U
RowBox[{"(", - L9 C! O1 J: J0 q
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
) V% ~: P6 d; I& `- G( a: p SuperscriptBox[$ b" G, Q: K# [! p; w- o
RowBox[{"(",
8 Z k2 e+ E1 y% c5 { RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ) @8 F# C. p1 i4 ^6 @7 ~
")"}]}]]}], "+",
4 P& D3 p- v) W6 w) J/ E3 s! Z RowBox[{"0.3129687276967983`", " ", ) y% Y5 c1 d: p* _$ _& t1 R+ r% [
SuperscriptBox["\[ExponentialE]", & q5 o8 j1 m" i, J/ w5 ?
RowBox[{"3.141592653589793`", " ", $ w/ b5 ?8 x0 P5 J) V
RowBox[{"(",
( n7 R( z' @. n7 i0 ^3 u RowBox[{
+ ]( F, h% T8 z9 j$ X! i. W6 g2 \ RowBox[{"-",
) ]( T+ q% h4 P& G% R( K8 k SuperscriptBox[
7 m/ @& v# w3 Z# v9 }- L. N RowBox[{"(",
+ a0 s0 s% j x) L; W6 i+ s RowBox[{* t5 j" A1 x6 O) E U+ L
RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
) V4 Q$ h! W+ `' M SuperscriptBox[0 M3 w1 \% _+ U: E6 U, s: y
RowBox[{"(", 6 n+ u! }0 h* w# P. J
RowBox[{4 H$ E8 i3 a$ d2 T
RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", ! R& \4 L* f# P O' @& q
SuperscriptBox[
8 A# K( L; l5 c/ ~& O RowBox[{"(",
9 J" j. s* @( I: O/ k RowBox[{
% T4 D* a+ M$ S7 E9 F+ @9 F RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", 8 l7 \# @/ Q( a2 K8 M8 ?" B1 E
SuperscriptBox[( d2 h! Y7 d) F. ~, f0 ]
RowBox[{"(", + Q* j' X c. ]9 A& Q9 l
RowBox[{
0 ?2 | H8 F' V+ c5 T RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
) [5 H1 y. L! m6 Q8 p& m. B3 O SuperscriptBox[
6 u* b+ R" ?3 T) W' b/ G RowBox[{"(", - ^5 m) V+ R: y; e
RowBox[{$ G6 ^7 v0 @6 W( X
RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", l, d8 x! Q$ o$ P; u3 k2 r
SuperscriptBox[2 U' R( z" ~$ l; n0 O# Q9 B
RowBox[{"(",
- A* v7 b# ^$ N2 h RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 1 k3 i! L( y5 Q4 N
SuperscriptBox[5 C3 |# D2 }% L& ^* E
RowBox[{"(",
/ d) @" y2 u; H RowBox[{ H. H0 p i5 | L
RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
8 S8 v( x8 J. X0 o% q; W SuperscriptBox[
; V7 M) I. f0 b1 I RowBox[{"(", / F9 }; l% D! v3 @9 U- e
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", $ l9 K6 P; K! Q* r% p, z! ]/ y
SuperscriptBox[
1 z3 y6 m8 i: {! c RowBox[{"(", 4 N, `0 f; U- U( v$ T7 y
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
% m4 K( U4 g! G4 J ")"}]}]]}], "-",
$ y( B" E. J# R RowBox[{"0.4666313851213302`", " ",
: ^+ j8 ]' ~" r2 f SuperscriptBox["\[ExponentialE]",
* k+ y3 `7 L* c8 ^: h# y RowBox[{"3.141592653589793`", " ",
1 I+ l% m$ L& j% L s5 Q2 g RowBox[{"(",
2 i% A! M @3 H w" x* Y' f RowBox[{
$ i C9 ^3 Z; x g/ P* @8 P" w RowBox[{"-",
1 [% {: b# ~- y SuperscriptBox[
! [. s8 [' [7 s. b4 I' e1 r; z RowBox[{"(", 0 t8 H. U0 {# _& [4 h* S4 F
RowBox[{
; F; c8 [# q( }; T# M# q z RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", . k) d; ^, e% \- i" P
SuperscriptBox[& E; U& z9 W$ E4 f* b* w3 E
RowBox[{"(",
; Z- C" @! n+ W* j2 M! A$ a4 y RowBox[{% i+ x) k* N' q, T. Q
RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
! |" h$ T* p/ z$ W SuperscriptBox[9 R, [% b. U3 A, b
RowBox[{"(",
5 D; b3 G! ]# U! ~ O RowBox[{' w Q) ^2 o0 Y7 Q: i8 [' l
RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", , n* a8 l7 p% h, I! z3 v0 F. a
SuperscriptBox[
4 w6 C; H0 I; [( M; ~# `! e RowBox[{"(",
( y; P/ Y& D2 Z: O" i RowBox[{/ I2 b6 b7 }- q& F
RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-", }9 e7 t) f9 t: [) a0 N
SuperscriptBox[
7 r2 {2 g) i! w8 t# b3 ] RowBox[{"(",
: H9 ^" G) A8 h1 H( l RowBox[{
, p& B' t6 e& P+ u RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
1 J8 x5 u& ~& W0 z* u2 d ^ SuperscriptBox[
0 E( Q( c" o! e0 O5 X# p RowBox[{"(", 3 g, d. w6 U$ e6 c) ^, U0 N2 D
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ( {6 M+ l! y) n
SuperscriptBox[3 d4 L {0 ]- y( X& @0 x2 M0 j; f' Y
RowBox[{"(",
4 E: N& N) r! t: l9 ?# D6 I1 O RowBox[{
5 g! F0 |+ Q+ L! r RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", ( |& y: M3 `- I. u& a: w
SuperscriptBox[
9 ?/ V6 @1 m1 L( f, d RowBox[{"(",
0 @. e7 W( Q4 Z' m: s RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
% l" z3 S$ h8 P1 O( Q$ D, E SuperscriptBox[
6 G9 N/ m( b0 j4 D9 h' b7 c RowBox[{"(",
$ N7 V% d8 h+ L! A7 N3 z8 O t RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
* u9 b" z- b# o3 {% H4 H ")"}]}]]}], "+", 7 O& |: m0 S- Z/ [- `+ v1 _
RowBox[{"0.3741982811661129`", " ",
) e3 n- S) ~. r F0 I/ f* \ SuperscriptBox["\[ExponentialE]", " p# ^$ i5 C4 g% Y& S3 K) F4 S/ R
RowBox[{"3.141592653589793`", " ", 6 Q. w t* s. ^2 F2 @) V
RowBox[{"(", 2 ]& W7 W) a8 g
RowBox[{$ T, N9 e& }1 k7 i# K% R
RowBox[{"-", : u) C2 _. ~8 B$ h. G/ \
SuperscriptBox[
1 ~, h& L. g2 O# P RowBox[{"(",
3 k* r1 s* O% }7 q' H- U& H1 S RowBox[{6 L/ D$ G& L: N2 S& d/ j
RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", 0 t( f4 q; {0 k; E) C1 e& k
SuperscriptBox[/ U. ~% q! o T& B. t8 h7 a6 O
RowBox[{"(", ' [6 c" z$ Y3 V' h
RowBox[{
7 n s# g; E4 D5 d( j. Q8 K RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
6 ~5 Q4 c( `# W. g7 L! J SuperscriptBox[! k7 ~1 O- H p& M; O' j
RowBox[{"(",
0 f+ j9 R% T4 K9 O8 J5 I RowBox[{0 z5 l! ~+ [+ J* a1 _
RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
( @7 z$ W5 e* M1 `7 b+ Q SuperscriptBox[
2 Y1 m9 }8 ?7 X8 e RowBox[{"(", 5 d J2 \. s! ^ V( g
RowBox[{
% c- Q$ }% Q" ~% R RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
, @, Q3 } O* @) { SuperscriptBox[
v' I( z/ C0 B RowBox[{"(",
# a5 \9 b/ P- U5 S5 w# ? RowBox[{
G4 Q7 l" C; M RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-", 7 i+ U1 I+ Z* H. p
SuperscriptBox[9 L# T7 e! B* X/ a5 q2 N
RowBox[{"(", _4 b0 F: g, p, S' O0 x0 }
RowBox[{
( [; m! Q* Y: `' ~ RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
5 t( ~9 h5 G. E+ a9 d7 [# C! {) ? SuperscriptBox[
" u# O( A. K+ V0 | RowBox[{"(", + R/ k+ z0 ~( `" ~ C! L8 V
RowBox[{
' n5 }) A* ~5 Z f RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
6 _2 Q6 b; S! ?$ Z/ E4 t SuperscriptBox[
& s$ j# @+ M3 E$ \- i* G: B RowBox[{"(", 7 B* ^7 k9 ~2 v. u* g+ A
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", : f" {% e3 F' g1 j1 z" j
SuperscriptBox[
) {3 V+ A) _$ b$ m8 _8 b0 z RowBox[{"(", 2 V2 F: v# |! r7 D
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], " C# u; b5 E6 k- {" H: ~' ] k R7 A
")"}]}]]}], "+",
8 w; t' f( U0 o% i- w+ b1 w! N RowBox[{"0.5575503376854456`", " ", % T! u0 b9 z0 F& j) G5 G, k, j
SuperscriptBox["\[ExponentialE]", 4 A5 q, P7 T; z1 V/ W6 F4 M
RowBox[{"3.141592653589793`", " ",
, U2 Y8 _/ k) f" b# x RowBox[{"(", 7 I/ k [; O' z! G3 V
RowBox[{
6 S4 O, S6 _+ Q RowBox[{"-",
7 X3 ]/ E6 r% C0 G SuperscriptBox[
0 c0 Q/ c9 m& r% n. j3 k: O RowBox[{"(",
( B( E' \2 D' @9 I/ H RowBox[{
8 ^( c& V5 r/ w4 M RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
. Y* e) f# B; E SuperscriptBox[
9 D& _1 \, k- _! {: I8 w4 J4 _ RowBox[{"(",
- J, |1 d; f$ L v6 O/ ~6 d( O" o RowBox[{ x9 [6 j6 Z; G! O
RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
, d3 l& a+ u; O+ i, y0 q SuperscriptBox[
9 P* o( ^( }7 q G4 ` RowBox[{"(",
, i; j" y3 e' ]# P RowBox[{$ F: Y7 f/ Q6 I% n
RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", ! h! {# S% E" T+ [4 Q- n% A( n% p, E
SuperscriptBox[
% X3 h! V/ V! f: c8 \2 I: X6 a1 i4 Z RowBox[{"(", - n% F7 T& O* y @; l
RowBox[{# X4 ?0 u6 |6 T/ r5 Q; J; x8 m) x
RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
: I$ j$ M/ g7 A* _) x2 U SuperscriptBox[
+ R8 o/ ]4 d- M' j: y+ v: }' q RowBox[{"(", * W; b. \. d6 Z- c* A
RowBox[{2 t" B# y% A+ S' C A4 @5 r
RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", + n& g% T; a9 x5 |7 r% m
SuperscriptBox[& `- Z7 q2 v. W, A
RowBox[{"(", 2 D6 j, M* I$ r: v* \
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", * L0 g( S0 s% D
SuperscriptBox[
' u2 L. J" Y! j) `/ D RowBox[{"(",
: T9 j$ ?" y& v! f RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", , g7 i/ ^- ~ |
SuperscriptBox[
/ K/ `8 B4 M4 D* u8 @ RowBox[{"(", ( D) U9 d- e, @. P1 L" L
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
5 c, g, ]/ ?9 M `, \ SuperscriptBox[
, |) x+ B! s& x4 K RowBox[{"(",
# [! D! L" j6 x* d RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 8 ?! X" x) a2 ~
")"}]}]]}], "-",
1 \, g( u# M! D" S( y RowBox[{"0.1339854044819916`", " ", ; f& |0 A% a) X& s, N
SuperscriptBox["\[ExponentialE]", 8 q1 c7 W6 B! X4 Y/ E
RowBox[{"3.141592653589793`", " ",
5 t; ^/ m2 c$ r2 h9 x RowBox[{"(",
2 X5 a9 T! \! G) z0 p RowBox[{1 i8 T0 x) M: Z* A4 J$ Y- d8 s
RowBox[{"-",
# f6 @$ T! F9 }6 v6 K# X4 T SuperscriptBox[ z' W$ ]! i% p- i% v1 `
RowBox[{"(", + M8 c, L# h7 r3 b1 A) C
RowBox[{% n* b4 f% t- A3 s/ n) K i
RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
# z) [1 L. q' h, Z6 z SuperscriptBox[
/ x7 p+ U8 C x. ^5 i RowBox[{"(",
" g# i' z9 ]' T* L RowBox[{
3 m3 n$ e( _6 x( J; o9 f3 ] RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", 3 B! B8 M ?: w
SuperscriptBox[
/ P7 p; N6 @1 o5 h$ U' ] RowBox[{"(",
( ~7 @) z# Y2 A: |$ w RowBox[{" W3 m4 ^! X/ b) Y
RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
, O1 P) B$ ^' ~) X- X I* z SuperscriptBox[ Q$ ^& d% l- B5 ~3 s7 J
RowBox[{"(",
3 J @" V( ]1 F# c6 n+ R RowBox[{
# C, q- x, ~" K: w! r$ i# K2 j- D RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
# U$ k- m( @# t1 a" Z SuperscriptBox[
; N- i6 b' u* J RowBox[{"(",
% K2 z6 L, E7 c: J; n RowBox[{
8 L1 A5 G# L4 d) B RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
. ~ ~. k8 j2 s: x9 z SuperscriptBox[( [7 e! f! T$ }7 ~1 ]1 C
RowBox[{"(",
; K) w+ i9 W Q RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
. b0 b; Z/ B; v SuperscriptBox[* X' y* e$ \6 f! a+ W8 _" M$ V
RowBox[{"(",
& J5 f0 u2 [+ c: e& A/ p, M RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", , u, l5 s8 l; r9 D% q' B( X( w
SuperscriptBox[
% N3 y/ X; }+ H& n RowBox[{"(",
5 x7 D0 m. {2 x. o( `5 z RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
8 S1 ^0 T1 N( h7 [6 ~ SuperscriptBox[
t2 w- I/ ^; q$ J: b; I RowBox[{"(",
& z6 [1 g' S! O- l+ W: T' T RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
$ E) X- \8 G% Z6 [! _ ")"}]}]]}], "+",
$ ^# Z, \7 \ v4 I" a9 J8 ` RowBox[{"0.45723850991134063`", " ",
2 v$ _/ d( ^3 C1 j) R8 P2 } SuperscriptBox["\[ExponentialE]", " @: @8 b. U* ?% O# g
RowBox[{"3.141592653589793`", " ",
4 J3 ~$ V- b7 |$ E$ Y RowBox[{"(", ) @9 O* D6 h% ]. H) l
RowBox[{
0 S# e# d: H0 ^. m RowBox[{"-",
; Z. @. c: h1 D' u: d0 M: n) ? SuperscriptBox[
. s8 U% W+ y! Y0 F: ?* y9 E* H) s RowBox[{"(", ' p4 z" H# |( e2 i1 S- K
RowBox[{- M' A& b4 i* u, J: H8 C
RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
7 O; [4 }7 y* a q SuperscriptBox[
1 N) @* O4 o& Q6 s" [6 l0 m( T RowBox[{"(",
5 k" B" b, a5 |& R+ ~ RowBox[{) F1 ?% T' _( H
RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", 2 I4 e2 {* y d" ~0 P3 y; U2 Y
SuperscriptBox[
7 V( ~! [) Z3 u RowBox[{"(",
# L5 B9 c" o/ i3 I; [1 e: Z RowBox[{9 M8 d$ S% f" K* z
RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", ! b" ?) M. g+ D" t% e% k
SuperscriptBox[
# n, q# D5 v6 a RowBox[{"(", 2 \9 d* U& e. J) p- ?7 W
RowBox[{ y4 A9 N3 o% v6 h4 y1 P
RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", / [3 Z. y: s7 M3 z3 n
SuperscriptBox[' M; o% y0 e$ S/ g& q
RowBox[{"(",
! q5 E9 H- V) b# Y RowBox[{; |2 T) a/ [0 m9 J
RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-", 0 b+ ~% o) x; ` Y3 S
SuperscriptBox[$ Y$ J* L; n! n. r) ?
RowBox[{"(", # |$ p* m' s% o) }9 F" b
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
: _9 J! L, z! B$ y3 f" h SuperscriptBox[
! d, s: p. v+ y% {9 I! { RowBox[{"(", + g( P7 L1 x3 o K8 @4 `
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
5 I# ]# k5 j1 a0 k SuperscriptBox[8 T2 d' x# K* t) c; k
RowBox[{"(",
% Z7 f5 w! l& l$ S: [" w6 p RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 8 m7 z v$ p- O7 U3 p. K# J+ x
SuperscriptBox[
9 r! y: `0 }: Y Q. `9 Y2 @) @9 p. z9 q RowBox[{"(",
' N6 A) }. j# V8 U+ C7 z4 k RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
; @+ `6 K' e6 H! S" L ")"}]}]]}], "-",
* \( o1 O6 A ~% m* f RowBox[{"0.025873988843993667`", " ",
+ h: o5 O! }2 V, ^& p7 F Q SuperscriptBox["\[ExponentialE]", , U2 e7 {+ |3 \$ H4 ^5 P
RowBox[{"3.141592653589793`", " ",
1 g# g" o* `- J, F" B8 C RowBox[{"(", % J$ q, U+ ]6 T# E2 a6 a
RowBox[{
+ ~- s: X0 w4 \7 y/ p+ N: F RowBox[{"-", ! A8 d* p/ m( r" S/ n
SuperscriptBox[
r( R6 _7 {5 X& o3 s! i6 m RowBox[{"(", . m1 W" s n, H
RowBox[{
. g5 [6 Q( Q7 Z" K; K/ V RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 1 J) }% a$ {: `, |: V* z
SuperscriptBox[' ]$ Z1 y4 { u# G" ]+ j
RowBox[{"(", , |; F3 H4 G! z' N% H1 ^
RowBox[{
( S0 D* s4 t/ X. G RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-", " g. H1 a8 k5 P2 h" ^7 e% ?
SuperscriptBox[
) h8 X; b0 S7 E RowBox[{"(", T9 _/ C, h. t6 z$ B+ b
RowBox[{
% q% f W6 v" w" h6 N RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", 5 x0 q8 d1 |- }0 I/ S. c8 J3 ~
SuperscriptBox[
& Q! S2 m8 s$ @% T# N& \ RowBox[{"(", B; {$ x9 s# p; X; p- @( s
RowBox[{1 T7 m: c4 W; X! d% r
RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
6 p, E( h j1 C* d+ l' H" x SuperscriptBox[ z3 W: d: _1 [( y% e( x
RowBox[{"(",
) M/ ?. K) d7 j* I" M2 ] RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
0 T2 j2 j( H7 K/ l% o; q SuperscriptBox[
2 F6 V W# L, o RowBox[{"(", ) W" V6 o- O3 M5 S/ T8 s
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", $ `5 o3 z( u! \$ B
SuperscriptBox[2 I5 L r0 L3 V0 q3 a2 C
RowBox[{"(", ) N0 J' M! K+ Q+ Z" U0 k ]
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ! D G2 C: P# R4 I0 a5 m
SuperscriptBox[* t9 _$ [' N- y. f6 o. O
RowBox[{"(", }8 Z& y1 }. q k2 x, u9 l
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
1 P# g0 b* Z# a/ _- ]* J SuperscriptBox[/ Y% S* R, b- @ s
RowBox[{"(", ! _$ ]4 Q; q3 c7 n" F) g
RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], , S- P9 D! S6 M+ s
")"}]}]]}]}]], "Output",
4 j$ w( p- C& Y1 g# x' m. p/ [ CellChangeTimes->{3.577924759875*^9, 3.577924921203125*^9, # o, r" Q4 _' k" G0 Q# r h. C
3.5779583210432997`*^9, 3.5779585060284224`*^9, 3.577959043308958*^9, & h. g1 d; [$ l$ E- i8 n3 a" \
3.577962317973732*^9, 3.578012448875*^9}]
3 `4 q1 B9 V7 W; z- d8 [+ [}, Open ]],, j3 ]3 n0 t. H3 D, C
$ D, ?; T# Q" T. x' F! i+ {9 Y
Cell[CellGroupData[{
- e( E1 d& C/ D, L( X1 U: e% c) T+ t' I% ]0 }7 E1 w" U
Cell[BoxData[
+ L" u Q& V% z/ ]/ U1 p RowBox[{"y2fit", "=", 0 ?1 N0 M. a# ]
RowBox[{"Table", "[", 7 J. E) \8 F! T7 {/ Y" N- J. s! ?
RowBox[{"x", ",", / E; o/ S6 D9 f6 D
RowBox[{"{",
4 v& g0 s6 i3 P4 m1 o6 ]+ @8 x- \, X RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",) T) l' n1 U2 }9 c/ l+ n1 K
CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {0 D5 D% \3 }, Q
3.5779252768125*^9, 3.577925277484375*^9}, 3.5779583246625056`*^9}],
6 v1 l1 W2 F; i3 r
0 ~% u% ]7 d8 ICell[BoxData[8 I5 @' o) @' K) n
RowBox[{"{", 0 V* U( E/ `( z: {6 A
RowBox[{
6 `+ h' N% i+ Q T7 I8 f- G "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", + h4 O& W- S6 u$ b% p. p* k
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",/ Z* l$ k( \5 G/ u7 M3 [
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
/ h) f X, c0 g1 d& V# ` "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ! t' R" _7 B8 | O9 d- P
",", "29"}], "}"}]], "Output",1 V/ ?- y4 ]: y$ M4 ^" L, X8 o
CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9, ' V. [1 p) V7 d
3.5779583268153095`*^9, 3.577958508118826*^9, 3.5779590470685654`*^9, % e Y$ ]2 ?; }5 w
3.577962320173336*^9, 3.57801245028125*^9}]' ^! q3 f( `7 L
}, Open ]],
1 v. I$ r# p) A* e0 E% e
4 p% x8 R& e1 m) z0 q) `( TCell[BoxData[: R1 o, T0 F$ X1 w3 Y
RowBox[{"For", "[", . B) c: I- P2 y) m( m
RowBox[{
% y7 J" |) g, O- S5 H2 r" u RowBox[{"i", "=", "61"}], ",",
% ?* a+ j7 d+ ~2 \" [ Y RowBox[{"i", "\[LessEqual]", "89"}], ",", ; x/ V6 R9 L9 r
RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", ) U# ?1 d. E! N
RowBox[{
5 v$ [+ A7 C. S; H- L RowBox[{1 \2 V$ O( b0 {
RowBox[{"y2fit", "[", ( N P# A M+ P5 L/ c' T
RowBox[{"[", 7 G9 S3 X n, i8 A* j6 ?
RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", & R2 g1 z4 c7 k
RowBox[{"y2", "/.", " E4 g3 T( K p% }8 d
RowBox[{"{", , e8 X. C7 {, T7 O
RowBox[{* p6 `; G2 V; c6 H9 d
RowBox[{"x1", "->", . V5 g8 R7 t* G! l/ x3 G
RowBox[{"Data", "[", / Q' o. f& H5 Z: @9 A
RowBox[{"[", 0 L9 Q0 O, K9 j, L. q E/ j# Y
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
7 d9 L; f; v( N; v2 g RowBox[{"x2", "->",
6 P$ d' W: [- m5 }8 d RowBox[{"Data", "[",
4 c0 x% S. S0 b, H RowBox[{"[",
' t; {8 |3 }; \( a) o' ^ RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 8 `$ s7 L; k- @( m
RowBox[{"x3", "->", & n& B9 }7 C, [# B, x6 f
RowBox[{"Data", "[",
0 B$ }0 h- V$ Q& L j" g$ W* c RowBox[{"[", 6 Y" D! e1 u% s$ d
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
o; k- K4 r& {0 H5 R/ C* g2 v. l RowBox[{"x4", "->",
2 r, N$ M# l7 H# d3 \ RowBox[{"Data", "[",
+ N- j+ |- Z- b* P% D+ {7 m RowBox[{"[",
- X& K) ]& y% {$ _1 U1 T RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
* \8 P5 S: z& p- \" K RowBox[{"x5", "->", 9 r, }; c0 U* I# k& R* I
RowBox[{"Data", "[", + x" Z; o1 \; p5 q. [& A2 N
RowBox[{"[", 0 T& K: S0 h' x- T" a: D. ]
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
* a) ~! j( x a+ w* E4 b RowBox[{"x6", "->", 0 u# h d% D: `# C, B3 Y
RowBox[{"Data", "[",
. L7 R, v# P# ~9 m" v/ R+ g RowBox[{"[",
5 [% g- v7 h; x6 m; i* |% t/ j RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 7 M- H4 U d7 q6 o/ y
RowBox[{"x7", "->", - k( ~9 {" E% x. C
RowBox[{"Data", "[", % _, J; t/ U+ ~$ \/ t! M9 ]
RowBox[{"[", / |; E7 N+ Z; _, r' x
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
) J" d% @$ N6 k8 d# ~7 J/ {$ D RowBox[{"x8", "->",
- C4 T( ]* o7 P4 N* h4 { RowBox[{"Data", "[",
: W! d* v) h0 O+ w' F6 z. { RowBox[{"[", 1 `3 A2 j3 b' ]
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", $ O8 ~! `- \- S' a4 D
RowBox[{"x9", "->",
' V, e9 ~+ [& g RowBox[{"Data", "[", , V- U$ n. S/ |1 N1 g2 W' ?
RowBox[{"[", ' {. c7 U8 h, n
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}],
+ a" _9 t! t( H3 E "\[IndentingNewLine]", "]"}]], "Input",7 f, y; O" c9 T$ y! z( J
CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {
3 e/ w% F" Z8 i8 W7 ]8 T) j 3.577925286140625*^9, 3.577925306765625*^9}, {3.577958329919715*^9, ) F; w: s' r, C5 i7 C8 E+ l
3.5779583326341195`*^9}, {3.57795892351635*^9, 3.57795892354755*^9}}],# V8 h0 [. K3 c$ m) o3 k& _
* C V% E& Q D |Cell[CellGroupData[{
1 ?2 d# l h5 x( o
" N" T1 F) X8 { NCell[BoxData["y2fit"], "Input",1 ]) ]- c! s! u8 r- v L8 X
CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {) m# `; b0 o& ^% h+ r$ H/ p
3.577925040484375*^9, 3.5779250440625*^9}, 3.5779583419785357`*^9}],
0 t* j6 Q; \ b1 k9 k' s
' B3 @0 \7 x/ ~& gCell[BoxData[
+ e0 j$ S9 v4 ?$ d RowBox[{"{", " u, V4 s0 a% |. j, P" ~7 X/ |
RowBox[{: f, n9 ^" w) R. ?) ^
"0.4853171132859182`", ",", "0.4508635216665074`", ",", ) c$ }% F+ ~. ]" ^
"0.3642119241752518`", ",", "0.42852077425595436`", ",", 4 [5 I! q- M' a A
"0.4712694272667798`", ",", "0.5257533056184774`", ",", 4 G. O6 U4 \: ~2 x
"0.48620658140716133`", ",", "0.41106838915591876`", ",", 9 J6 `9 c! c; q+ ^
"0.5486894206610674`", ",", "0.007731168540073459`", ",", % e& T7 S- v; X' h. S
"0.013872406140339109`", ",", "0.3956995051659558`", ",", 2 r* ?& x( z8 H" H
"0.3663118256142708`", ",", "0.29094217358055163`", ",",
8 s/ E" B: a" y8 i- g9 [; Z "0.5453093690736555`", ",", "0.44138898880777927`", ",",
6 c; h2 N7 a; S% T "0.42944922031163496`", ",", "0.43092890556748836`", ",", n+ A4 M& w0 Z$ K2 w
"0.5942402821739969`", ",", "0.330046090785457`", ",", & ?. @$ L- S- @ L: X# Z
"0.18938658036630585`", ",", "0.4263720292858679`", ",", 3 m1 J! _1 E' C' B9 }, O" h
"0.23377136184738775`", ",", "0.02232858193309988`", ",", ! {3 E8 d# Q! e9 H) b, V. R; p2 r1 H
"0.244364200084268`", ",", "0.5562383565309971`", ",", 6 u3 e0 E+ A4 ]( f
"0.13114103402954333`", ",", "0.5815052048989465`", ",",
9 e7 K$ k5 y1 ? "0.4253455966293501`"}], "}"}]], "Output",
- V$ M% v# z9 k* r9 \1 t CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9, 4 A% G# {) ^ p" R* ]- N n
3.577925312375*^9, 3.577958343257738*^9, 3.577958511784832*^9,
5 ]( t4 _( E( ]: J 3.5779590518421736`*^9, 3.5779623249157443`*^9, 3.578012452421875*^9}]' b8 |- n% ?: W. B R
}, Open ]],
) _6 v k: t2 ~7 V3 S4 _1 W0 }4 V9 o
Cell[CellGroupData[{% K8 C7 w5 ]8 S' s
* n+ Q# z) ^( a, r4 L) WCell[BoxData[ \! @+ d+ n& t$ I
RowBox[{"y2fit", "=",
0 \+ [0 N& W# t) p, V; B4 ~ RowBox[{"{",
G# z: n1 L2 V, i9 E8 E RowBox[{
/ W% u4 Z5 D+ A0 K( a8 H* {0 D8 A "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
' q6 ~& ?8 v) D' W0 Q6 ` ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
: V \ M8 ]& a; @$ L- } "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", 1 f4 B o9 O, ?8 ^
",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
6 R( u7 E* i0 h* @5 T "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
, k0 r3 R" c3 r! T+ U! K$ I' \ K* Q( b/ u ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
" L9 _5 |& I# k1 ]7 | "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
9 r& a1 M) A1 R5 i! I ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
3 j% S$ h9 P# v1 I/ c# U% L4 q* q "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", 4 c5 d# F0 E- O$ Z4 g/ b* I5 k. h
"0.48531711328591953", ",", "0.48531711328591953`", ",", . ?+ M! w4 }. N& j+ N/ `
"0.45086352166650845`", ",", "0.36421192417525217`", ",", , |% R' j$ d O; z
"0.4285207742559556`", ",", "0.4712694272667811`", ",", 1 p) I' ~% @# y l% y: H
"0.5257533056184786`", ",", "0.4862065814071623`", ",", % c6 E v" D3 i6 ~0 p1 k* k
"0.41106838915592014`", ",", "0.5486894206610683`", ",", 1 R! H" i* e' M7 [
"0.007731168540073532`", ",", "0.013872406140339166`", ",", & P8 \% h) n: M
"0.3956995051659565`", ",", "0.3663118256142717`", ",", 4 k; c# W1 \/ Y1 Q- _" g; [! f. ]
"0.29094217358055185`", ",", "0.5453093690736568`", ",", 7 U& X& L9 a- e5 Q' ^
"0.4413889888077799`", ",", "0.42944922031163585`", ",", - e4 n9 g, o/ I& \6 V+ H5 n7 J2 F
"0.4309289055674891`", ",", "0.5942402821739983`", ",", * E# K1 Z- k1 o" U6 z
"0.33004609078545805`", ",", "0.18938658036630632`", ",", . g$ C0 N% S. r' S0 K
"0.4263720292858688`", ",", "0.23377136184738778`", ",",
/ ^/ B# R* U9 w6 O "0.022328581933099827`", ",", "0.24436420008426807`", ",",
* Y. j, j; I" X6 m4 v "0.5562383565309981`", ",", "0.13114103402954314`", ",", % m9 I# k+ K3 P- ^
"0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]}]], "Input",
2 \- R! }# B+ `! A3 X* o! S8 m CellChangeTimes->{{3.577959355746303*^9, 3.5779593854019547`*^9}, {
+ `" b- [8 Y0 z* H1 e9 [ 3.5779594223272195`*^9, 3.577959425104024*^9}, {3.57796233399496*^9, ; C) T X+ H, r- y7 S0 I! G s
3.57796233957977*^9}}],
& x9 J$ R! M; {" {9 s0 c0 p
1 h9 A5 g2 D% x8 yCell[BoxData[
9 ^2 G' g4 q+ Q1 n+ c0 q RowBox[{"{",
# w) Q5 A, |0 @1 @% `& j RowBox[{" Q* s* o5 G; k! {/ a0 M* ^- x9 D
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
) m; z4 Q( J0 O* D; u0 w ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
; M) d4 W4 B. W3 M& c6 C+ L) r4 W- \# [ ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
3 G; g5 y2 O. Y "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 5 F, t2 i/ U; m1 u4 k
",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
7 e/ P- _/ L" w6 T/ a "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
/ g* y& n5 ]) E8 F: l ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", ) ?$ N) {6 y4 O2 ?+ Q: m! P3 n: _: K3 u
"48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 7 v [1 T" V: e$ M! n/ W3 K
",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", & ?/ o8 K# M, @: `
"0.48531711328591953`", ",", "0.48531711328591953`", ",", 5 J0 z" N* J7 N0 @$ C1 ?
"0.45086352166650845`", ",", "0.36421192417525217`", ",", # j6 O) N( H h$ F
"0.4285207742559556`", ",", "0.4712694272667811`", ",", . Y5 n. W0 u6 z+ [: k1 F( E
"0.5257533056184786`", ",", "0.4862065814071623`", ",",
$ F8 i: a; i: o4 l' h: J "0.41106838915592014`", ",", "0.5486894206610683`", ",",
1 ]2 r- U" o6 {4 d- d- f2 n "0.007731168540073532`", ",", "0.013872406140339166`", ",",
2 K- f7 t" d$ l! h- B "0.3956995051659565`", ",", "0.3663118256142717`", ",",
, A/ n6 r ?+ F9 p' v% T "0.29094217358055185`", ",", "0.5453093690736568`", ",", # Z* u% P" ?+ E
"0.4413889888077799`", ",", "0.42944922031163585`", ",", ) ~! H7 j9 t. t5 s9 r2 a ?7 e/ R
"0.4309289055674891`", ",", "0.5942402821739983`", ",", 2 j+ M& l! ?% v0 @+ v7 \5 v
"0.33004609078545805`", ",", "0.18938658036630632`", ",",
. H0 p2 i' @5 H$ [1 _' A "0.4263720292858688`", ",", "0.23377136184738778`", ",", 7 A+ w+ |' n* g1 P+ O, z8 |: l
"0.022328581933099827`", ",", "0.24436420008426807`", ",",
2 N; l+ }4 h9 }2 E0 @6 R; @' \3 ~, G5 ^ "0.5562383565309981`", ",", "0.13114103402954314`", ",", 7 J2 z) @# s. R/ E/ V {* B
"0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]], "Output",, C7 D3 z3 b$ A, P
CellChangeTimes->{3.5779593961191735`*^9, 3.5779594268512273`*^9,
& b* i' i* ?7 g% L$ c8 p7 b+ x 3.577962342060174*^9, 3.57801245340625*^9}]
8 x0 W& _ I* p% T/ U& y}, Open ]],
& Q0 j2 v5 b; ]( [! u3 L1 L I0 g& C% W
Cell[CellGroupData[{8 W0 |% Z6 m! c! n, r! X h. M- M
% z5 z0 u' I+ p6 pCell[BoxData[
; y0 i4 v9 j! x6 f M RowBox[{"y20", "=",
+ t0 t. }$ T! |% b3 U+ n4 _7 z RowBox[{"Table", "[",
/ `/ J8 O n. p1 k- F' \% k RowBox[{"x", ",",
/ O$ i* G9 R9 [- [( [8 k) r9 K RowBox[{"{",
" d) H& @1 ]5 Z RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
- |( f) `/ N$ j% N" z9 Z* X7 c CellChangeTimes->{3.5779253628125*^9, 3.577958351198152*^9}],& U% T8 y7 R$ ?6 }7 y- _5 J! K
; H3 z% v& c: e. nCell[BoxData[& j7 x# d1 Z, A3 G1 Z
RowBox[{"{",
( C4 k* v8 m0 A& b& E, \# W RowBox[{" u% N2 H$ ?/ O/ x
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 1 @4 |6 s1 x. }5 R( u: Q( F
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
( V8 B8 W4 j0 q7 Q$ `/ E ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", , Z6 T: s! R s A6 v( X. D+ T
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", . ~4 B+ \% F& k' B! h% B& V' f2 @
",", "29"}], "}"}]], "Output",
* M) I( F6 W/ `% E: U# o9 h" g2 v CellChangeTimes->{3.57792536553125*^9, 3.5779583535225563`*^9, & d% X# h. M7 N) e
3.577958515653639*^9, 3.577959053714177*^9, 3.5779623443065777`*^9,
. T* P. N6 u. D 3.578012454875*^9}]: J4 g3 o* T! a3 v8 ~1 L
}, Open ]],
. ]* l6 P3 X- J. k- K; D2 w. c" \$ n8 P, B
Cell[BoxData[' ^9 Y3 r! b* } b, i$ W, ^% x4 A
RowBox[{"For", "[",
: q# A% b3 a; y7 |# G8 U4 t* A RowBox[{' C$ m+ f% [. |% G: e. P; B' h8 K% h0 e
RowBox[{"i", "=", "61"}], ",",
/ ^ g9 d/ d4 K RowBox[{"i", "\[LessEqual]", "89"}], ",",
. V- V; x3 ^- R, k! A+ T4 { RowBox[{"i", "++"}], ",",
8 E2 v! a- O$ l( E2 c Y RowBox[{
( h( [ Z2 j( O5 m RowBox[{"y20", "[", - X% Z# T/ g' K b" }7 ]: \& L( i
RowBox[{"[", % k4 ^0 K: k3 C- N3 \+ v& C$ s
RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
+ W& s! Q2 X- W% I" p6 e RowBox[{"Data", "[", 2 F% d: S7 e6 ~ o$ R3 e( C
RowBox[{"[", $ r# \+ m. X. a- w l1 T3 ~
RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",( Z4 Z9 \* i. c! ~& U/ e0 y
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {) z, B0 E+ g* A
3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
6 Y+ J8 f, X0 q* s 3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, {7 d% C6 l& n( H6 a" {! `) o! x( G
3.5779583574225626`*^9, 3.5779583606673684`*^9}, {3.577959056849782*^9, ) \3 B! Y; ]/ K, ?4 |7 E
3.577959058690585*^9}}]," P6 U3 p7 r6 L
- i* m$ i( i1 H. X9 N* r! F
Cell[CellGroupData[{% b, U% T$ |4 R w& a, |
7 _8 Y. i$ n2 }5 gCell[BoxData["y20"], "Input",
8 s" o. p3 I2 c9 H CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {( c8 q$ O- D, J: r6 a, Y
3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9, ( {7 m! o# ]/ ~ j8 |0 ~
3.5779583657841773`*^9}],
. x$ x# @0 `9 U
# t# e4 ^& G! K4 r! F9 }Cell[BoxData[+ o) ?$ S5 O4 N) h, k$ V4 Q
RowBox[{"{", 4 O/ R) [% d% n( f" \% r F5 U1 k
RowBox[{0 f$ `( @, S7 w
"0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", ",", , ^- u6 C% v) D1 k( g
"0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",
8 w$ ?; f- `6 u. a "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",", & `# c* J6 S8 _! x3 t3 }& ~
"0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",", 5 g; s" u+ X1 r# ~$ L
"0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",", 0 @. W5 r- B" f2 m" o. h" z: p
"0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",", 6 N# H) [4 n9 t+ Y7 n5 _
"0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",", ' s" S1 [6 r3 Z& Q! d! ^: O+ a4 r5 Q
"0.323944`"}], "}"}]], "Output",# U6 L0 f" D4 }9 \. G* d( g
CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9,
# \0 R( q: v d+ T0 S( E' m7 m! o 3.577925393046875*^9, 3.5779583678277807`*^9, 3.577958517946843*^9,
! {$ d# c& w" X 3.5779590634017935`*^9, 3.577962347629384*^9, 3.578012456484375*^9}]
' F7 a* g2 G- Q$ Y}, Open ]],
- ~% X8 n" A" x/ }, Z
; [" }/ d/ d9 B$ t& q. x! @- ICell[CellGroupData[{: n9 Y& o( i) T- l3 h
9 f8 J( l# J0 Q3 v5 c
Cell[BoxData[
1 [1 L, p7 H; G$ r# ]$ e& f RowBox[{"y20", "=",
8 S n/ e+ N* c+ M RowBox[{"{",
! ~. Z! l. ^1 i5 T0 e7 o" c RowBox[{
& H. O, z7 I |( ^ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ H5 m% V; W \9 } ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
" i# r% H/ f; X! r0 P& V "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ' s& u @' [/ [& {( F
",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
1 i- {3 {, @7 @ l/ c "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", + y5 m" y" Y | j n( g
",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
0 ?0 h' t6 Y+ F M "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
% x7 [! U) B, Z& }3 J$ \% u' j1 g ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", % X9 t$ Y. y; n& |, U7 ~* w
"54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
9 _ Q( j) S' o. L" o "0.507042", ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", ( r0 n" @$ h: l, p4 Z
"0.338028`", ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",",
3 U, n' w2 b3 E; f- H- S5 K8 s "0.408451`", ",", "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", 8 t- h$ Z0 d* G7 q: `" C$ b
"0.746479`", ",", "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", 6 Y. u# i+ i8 z# u6 e
"0.760563`", ",", "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", $ C! F U9 F5 K0 p# [1 E
"0.295775`", ",", "0.309859`", ",", "0.408451`", ",", "0.197183`", ",",
: E" x" B: d, o, E+ s& S "0.732394`", ",", "0.802817`", ",", "0.746479`", ",", "0.380282`", ",",
2 @# ]9 A* y! c "0.56338`", ",", "0.323944`"}], "}"}]}]], "Input",; W& r- y! x3 {/ y& I
CellChangeTimes->{{3.577959534959416*^9, 3.5779595573142548`*^9}}],% ^% ]& E8 o+ E( j) e! Q& F0 K3 v
8 ^/ Q! r! }3 w& t5 m
Cell[BoxData[
, y2 g6 O. S) L! v7 a RowBox[{"{",
! N0 c2 B$ A. r z4 K- j+ u RowBox[{- S+ q2 p1 H7 O. s0 I, f7 [& j7 T
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", : b$ E9 u' G ^& o/ h
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
- ?9 K- A1 v6 b ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
# s4 @6 Z) X& x "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ( s' g- a+ ]. [+ U$ o' I/ I; q3 B
",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
# `& ?# N& d4 z K X6 x "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
0 @* a# C7 B# x1 M9 m* e* h9 e0 D ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
4 w7 V0 Y) n; E/ S+ z3 }3 z9 M "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 2 P& p8 o! h( z
",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.507042`", 8 f1 g0 o* a# O9 s9 T' j6 [
",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", - g8 k, ^& Q( v1 P+ v) b5 y4 {" v
",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",
0 s% e( z6 T& d" i- k. N "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",",
) }# u( C# F& l "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",
, E3 x+ t$ _; v9 ^ "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
0 F0 }% a* F9 S; a; x+ s2 V# ?$ m$ q "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",
8 F5 [. A& j9 Y( e "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
" X$ o) W7 b; V+ F$ U6 h! M "0.323944`"}], "}"}]], "Output",5 q/ u2 u6 H2 y3 Z! |# y0 p+ q% p
CellChangeTimes->{3.5779595594514585`*^9, 3.577962351778991*^9, ]+ U* \, o5 a; A; k# T( t
3.578012457234375*^9}]
0 ~$ u, e$ p: J4 e. y0 w: D. [}, Open ]],
! d. H, Q. r' j6 q4 Z6 C. J6 _4 {# L0 X" i. W
Cell[CellGroupData[{
# v' _8 w% ^+ S( s
, V, y5 \$ I4 m# J2 _) a& l R* _ MCell[BoxData[, G3 [" b0 i! H9 I
RowBox[{"p2a", "=", ! U' P' D% p. H" B r7 A
RowBox[{"ListPlot", "[", * }) b" J; s, e- B# A. j# r
RowBox[{"y2fit", ",", ' `+ l5 h/ v8 s- N& J( }! P' k
RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
$ |! ?$ k. ]5 ~ RowBox[{"PlotStyle", "\[Rule]", ! a3 e8 O% z+ A! o8 t8 Q' a
RowBox[{"{", 1 j- e0 k) B6 `' A
RowBox[{"RGBColor", "[", ) ~5 Z7 M, ]) i8 F9 i
RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
3 ^+ x% f8 V2 V+ ~* A) G+ V; k RowBox[{"PlotRange", "\[Rule]", * }* |" L( L5 ^
RowBox[{"{",
8 x) P" _3 n0 n% k9 X) n4 ^; N6 `( ` RowBox[{( t7 d1 @: U: j+ F* V
RowBox[{"{", 4 C4 V4 J# d# z- X% x
RowBox[{"61", ",", "89"}], "}"}], ",", 2 f1 p! V0 ]4 E
RowBox[{"{",
! q$ a& M$ b& o/ m& w% S g RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
1 x) g t4 y' R3 }; J6 ^ RowBox[{"AxesOrigin", "\[Rule]",
; m# U) S* x M3 h RowBox[{"{",
o7 W v% g: t8 y" O RowBox[{"61", ",", "0"}], "}"}]}], ",", % \9 H* J d5 w+ M
RowBox[{"Frame", "\[Rule]", "True"}], ",", - P: {3 F r/ h+ l! `
RowBox[{"FrameLabel", "\[Rule]", 5 u$ `: f. p- ~
RowBox[{"{",
a) |- F0 S; `8 i5 C RowBox[{+ y/ l, p0 u& L' a6 K% r v
"\"\<\:7089\:6b21\>\"", ",", 8 B: p8 v# k& e, h' D
"\"\<\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\8 j: V- `9 W9 k9 j" o7 {; \0 i
\>\""}], "}"}]}]}], "]"}]}]], "Input",. \$ S3 G: n5 F: I ^
CellChangeTimes->{
# c. t0 k+ l8 D, i2 W- b1 a5 l 3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
6 ?. y; R5 n' h; G1 ~ 3.5779583712597866`*^9, 3.5779583781393986`*^9}, {3.577958536604475*^9, 5 }- `" o7 K' V( T( k
3.5779585491624975`*^9}, {3.5779592802577715`*^9,
* g- r: K' J& s: \2 m9 S 3.5779593014270086`*^9}, {3.5779594039971876`*^9, , V+ a6 Y3 v. o8 S
3.5779594059783907`*^9}, {3.57795949706695*^9, 3.5779595174717855`*^9}, {
5 m' z1 x! q/ t) G! i5 f: f' \# X 3.5779604302529774`*^9, 3.577960442311798*^9}, 3.57801246978125*^9, 2 z) J% N% R- a4 r8 ~
3.578012920859375*^9}],+ {( ^; \% D5 P$ H5 Z$ m" a( N- ^
! ~. a8 G" C6 ^# o4 L* c$ ~! {Cell[BoxData[' `8 c! f5 N! O: I
GraphicsBox[{{}, {},
3 d) q! i+ C7 v& N$ _, C {RGBColor[0, 0, 0], LineBox[CompressedData["
: {$ ?. y. m. i5 {: m1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
M+ X7 X- D7 N6 m/ t- T8 ] r/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ+ W) J7 i l" G K0 Y
9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P6 u) n- L- K, w; B. d) q
ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC3 R9 Z) Q4 s( Y# b, |7 [1 V$ h
qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
/ @2 l2 d2 z5 q/ i" y1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
% j' z# x' o$ t( L, ]& `0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
7 ~# ?# _- J! Y1 CsPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH8 B9 b& O9 R2 z; a' M1 u* t
99yxuG0PAHw7nyU=" {+ @* f2 ?, s I! S" c1 ~
"]]}},
% o/ z$ ] I p5 l" k# m. v AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
) r8 | }4 a( w9 S! H" K) D9 `) S Axes->True,9 d3 L6 v. m. | @2 T* n
AxesOrigin->{61, 0},
# _; s- Q) v8 h1 f; y5 V$ m Frame->True," d& P3 U& V9 U9 s* k
FrameLabel->{- ]; y. ~, U: I. t$ u
FormBox["\"\:7089\:6b21\"", TraditionalForm],
6 f1 v) z* c" M6 O* r- w FormBox[8 P9 g9 h# {8 S$ q5 v: ~: Q8 B
"\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", 7 E+ x+ m: f! C9 [
TraditionalForm]},/ n2 H3 v8 g2 z4 e) H5 q6 i
PlotRange->{{61, 89}, {0, 1}},/ z' b" u7 L+ K% w5 ^, G3 g4 e# [
PlotRangeClipping->True,
. `, G1 T9 `' k; }) T4 Z& z) } PlotRangePadding->{Automatic, Automatic}]], "Output",& Z" P$ ~6 |( D* c6 {8 u* m
CellChangeTimes->{
2 D' l6 }9 w$ K8 u' |9 i 3.577925144625*^9, 3.577925396578125*^9, 3.5779583797150016`*^9,
9 A, e# Z! N Y$ S7 Y2 V 3.577958519990446*^9, 3.5779585510813007`*^9, 3.5779590670678*^9,
, e0 S+ N( u" D7 C& v 3.5779593035642123`*^9, {3.5779594075383935`*^9, 3.577959430158433*^9},
8 ^* z( \. g5 O$ E 3.5779595184233866`*^9, 3.5779604438874006`*^9, 3.5779623548833966`*^9, ( G3 k; c) a2 M# }! e* B
3.57801247209375*^9, 3.5780129225625*^9}]
* h5 Y8 [+ n5 m! _. z}, Open ]],; r3 e x0 c7 a9 m3 k' C% ^* i6 y E/ v
2 ?' o/ l% O2 z/ q3 U# s! kCell[CellGroupData[{
1 d7 h0 `) j) _8 F! h
2 Q' g* n* \: [8 [0 MCell[BoxData[
/ ` Q" [) w6 F& j6 e RowBox[{"p2b", "=", / o6 Z; u" |: ?: ?4 ]/ }! }
RowBox[{"ListPlot", "[",
. T* _3 r8 M; o/ X/ K K RowBox[{"y20", ",",
1 _4 c" {6 n2 \* ^ L6 | RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
6 Z0 @: n' Y# j2 `- \& { RowBox[{"PlotStyle", "\[Rule]", 7 t3 e N8 ~: |9 q7 u
RowBox[{"{",
" X. {9 c+ @/ x4 l0 ? RowBox[{' _+ ?1 I/ E/ F- d& J4 c
RowBox[{"RGBColor", "[",
0 k1 \6 I* m9 C, t# C( R RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
* e# N! ^, [' L ",",
0 S& j2 G g; l1 l4 \1 }; L& i$ } RowBox[{"PlotRange", "\[Rule]", 9 x- B& K. Y" }# h$ r
RowBox[{"{",
0 j3 o: ^6 T: b. z" { RowBox[{! O+ I. W4 e5 K( l5 [! P! G
RowBox[{"{", # m- o* R' ?( m7 L9 j
RowBox[{"61", ",", "89"}], "}"}], ",",
p+ |0 |5 `7 a! z- t; v8 C RowBox[{"{", $ F! a* \5 W5 \ d* d5 Y( j
RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
' R2 _0 V+ |, I. W RowBox[{"AxesOrigin", "\[Rule]",
6 c1 E: e3 D2 r2 K( T" T1 X RowBox[{"{",
* {- ?# b2 U3 X, U6 ~( b RowBox[{"61", ",", "0"}], "}"}]}], ",",
. k; d% r$ d9 P B7 @; d5 {7 E* L RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",. y% H" \+ V# p! X* G, ?# C. n0 X" v
CellChangeTimes->{
4 F0 i/ Y2 P0 D# v* b1 [ 3.5779253991875*^9, {3.577958382429406*^9, 3.5779583843326097`*^9}, " {4 h: c$ N* E! b/ T
3.57795855655691*^9, 3.5779595724462814`*^9, 3.57801248346875*^9}],
9 w2 I2 g4 B( W. Y) J2 c9 i: `! G
Cell[BoxData[
+ V& s# p- m% {7 L' M GraphicsBox[{{}, {},
: T# L& I. { j% A {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
6 f, V d6 E6 g1 g* J( z$ ^8 S1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
8 p* m: o- {: C2 S+ i. B8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
3 M" E+ @& J/ o2 z' n1 i1 Q8 C) tc/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc) d [& C" f5 j/ U, }
iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4$ _1 z! w$ ?9 f+ {
TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO! @3 [. r# Z4 |2 |
fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
. }( b" L- F' ^6 Q6 M9 Q, V$ lTWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
; P# ~9 {$ A5 M4 ap0OYg4Fg/tz63VfsAdsCnzU= u- q6 G; X: [
"]]}},
2 {1 R( w2 D2 `6 y+ T, H# W0 E AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],' y/ J! X4 v6 h. h& s, q/ w
Axes->True,
& Z7 M3 T; U1 f, T AxesOrigin->{61, 0},
4 j, ?! X9 a b% _, k Frame->True,
[6 W' X' B3 g PlotRange->{{61, 89}, {0, 1}},
; W. |8 i5 D4 P: k5 Y. W: g+ U. v PlotRangeClipping->True,- O3 u* Q% v4 }9 e, c' B# e2 S6 o/ E
PlotRangePadding->{Automatic, Automatic}]], "Output",
4 ~. l8 b6 l) B) }. b2 [4 K CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
) y, }, G/ q; b 3.5779583861890125`*^9, 3.5779585219092493`*^9, 3.577958558132513*^9, - ^8 ^% d9 t6 z5 W' e
3.5779590691114035`*^9, 3.577959577906291*^9, 3.5779623569426003`*^9,
$ Y: C2 D) e& o- E+ d 3.578012484703125*^9, 3.578012925875*^9}]' ~6 \: `( x' `9 v& f) r' p
}, Open ]],# o, o2 c) b6 N# z A. X, K
; |; T. R$ k+ @$ h7 _. N# K
Cell[CellGroupData[{
9 i5 Q2 I- A/ ^ N
+ `. c z9 y$ ]& K, q+ G/ p7 wCell[BoxData[
, ]$ ]6 j7 @% z m/ ~ RowBox[{"Show", "[", ^2 E0 K2 @0 v# R
RowBox[{"p2a", ",", "p2b"}], "]"}]], "Input"],) K L6 k9 B8 R: {
/ i% C, ]7 g8 `, _. r
Cell[BoxData[
3 `! K8 l8 ?6 s+ @; }: R1 F/ k GraphicsBox[{{{}, {},
' i+ ]) I: }: w# A7 T8 { {RGBColor[0, 0, 0], LineBox[CompressedData["
. O U+ X0 H7 I& Z( I) Q5 J1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
: N9 S& Q, f- R) D& n: i" R/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
. \' k! r4 h4 `3 v1 t9 ~! G9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P
0 K9 @- Y, W i1 vofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC% O5 \' g5 ~& n' \$ N
qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
# a, \7 E4 p( K1 s1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx! i4 j1 d* U1 v# E- M& ?& V+ M
0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1% F+ X. r% K7 j
sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH( e; e9 D& F! ?
99yxuG0PAHw7nyU=6 M d% F; @8 J
"]]}}, {{}, {}, , C, {$ U9 x7 W( m& _
{RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["- y, c3 \( u/ u% \. K; e
1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
6 z& M7 v0 Y( r8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV2 h; v2 R. i+ S8 F3 ], y& z
c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc, @9 z% ^( d1 \* @* X
iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk41 ~; M7 Y2 b! H, G3 ?
TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
9 Q* A) a0 g+ h5 n5 v6 E) KfzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
/ ~- w/ \ ?, T( ~0 STWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG% [: A( [- l# C4 B, a' }7 U
p0OYg4Fg/tz63VfsAdsCnzU=
4 ]6 v4 C( Y4 h$ @7 q9 O' I0 i1 x "]]}}},
. {. O5 I0 P7 e" Z" i AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
) D5 t7 U1 Y+ g4 V Axes->True,
' w8 F4 f) ?7 @* K AxesOrigin->{61, 0},; V; T) L& h6 d. P) k# G) D
Frame->True,
@+ f+ S' }0 h: F; @ FrameLabel->{
1 W7 c7 L5 ~: ?1 C FormBox["\"\:7089\:6b21\"", TraditionalForm], * }0 w5 D/ ?8 X; P$ |: t8 ?$ g
FormBox[& M. l4 j$ Q, {/ O$ w, }
"\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", ! U) v7 o2 J) S' v. `& w* B
TraditionalForm]},
, W! R- I$ x1 C- Q' E% {9 c! L8 l PlotRange->{{61, 89}, {0, 1}},
" V' r/ v3 n0 w9 P PlotRangeClipping->True,
4 ~" h8 i0 S2 P ]2 ^ PlotRangePadding->{Automatic, Automatic}]], "Output",
% _) Z; Y8 d4 E0 A CellChangeTimes->{3.5779623624182096`*^9, 3.5780124863125*^9, , A2 q# `# L$ c9 K
3.578012927734375*^9}]
! f6 V' h! V& g3 _7 O$ b5 B# `}, Open ]],
5 d" O3 L& m* V' q8 c# v. u' T
- w2 y# c# {$ G0 j1 f P7 O2 BCell[BoxData[
) ^$ s) a3 j+ B' M& y RowBox[{"\:ff08", , O8 d) P- Q. i6 e% y
RowBox[{8 D, P- j' y; W' o8 M
"\:5df2\:77e5\:521d\:59cb\:94c1\:6c34\:8d28\:91cf0", ".7406",
/ L* `1 C; [. H! D "\:3001\:5e9f\:94a2\:8d28\:91cf0", ".4621", % O; X$ A$ p8 g, D0 [4 L1 q
"\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea60", ".5208",
$ o% H2 v6 C& L "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:542b\:78b3\:91cf0", ! v! v# @7 H4 a. ?, h1 w
".2221", "\:ff1b\:76ee\:6807\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\8 t: l! L: ?2 C
\:4e3a0", ".6224", 7 Y- q3 J& V* T5 G( t2 D ~7 M
"\:3001\:76ee\:6807\:94a2\:6c34\:7684\:78b3\:542b\:91cf\:4e3a0", ".2521"}],# l8 f2 K& S, d! H5 `4 E; ~
"\:ff09"}]], "Input"],4 p1 b7 C2 r6 v5 E' H6 d. m: s
9 S. d0 _! {% J7 R* g! r; s8 CCell[BoxData[4 v @# c$ Z8 `0 I
RowBox[{"{",
) o; t1 w" u$ |, O$ X4 N$ o/ Y7 e8 k- w2 a RowBox[{
; w* }1 g) R) b$ @# w9 ^' V1 E "\:94c1\:6c34\:8d28\:91cf", ",", "\:5e9f\:94a2\:8d28\:91cf", ",", 8 R9 t$ i7 r* G% S
"\:5439\:6c27\:91cf", ",", . H8 I, O6 ]1 e$ a x
"\:4e0b\:526f\:67aa\:65f6\:7684\:542b\:78b3\:91cf", ",",
" @' `$ U7 h( [5 W% e/ s7 c "\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea6", ",", 2 \; \' J& Q; X$ K; d
"\:5757\:72b6\:77f3\:7070", ",", "\:8f7b\:70e7\:767d\:77f3\:7070", ",",
$ o. t% a! ^! {" h9 W "\:83f1\:9541\:7403", ",", "\:5757\:72b6\:767d\:4e91\:77f3", ",",
' S" `7 `$ J1 `) t4 e' X! J "\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf", ",", B* |+ Y" k; _
"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6"}], "}"}]], "Input"],; \4 W. u! F5 T# s
3 f& E9 S# u3 r3 F* w5 h4 JCell[BoxData[" "], "Input",2 L, j8 R" o. N- f+ N
CellChangeTimes->{3.577962834553033*^9}],
8 a' r3 v K' p8 m
1 [4 H8 U: x* }' _Cell[BoxData["\:94a2\:6c34\:7684\:78b3\:542b\:91cf"], "Input"],
1 V& ^. @; A i, ~& o* @: j6 |! ?7 l( y5 n: c5 X
Cell[CellGroupData[{ [2 Z6 C* n. y' v
& \4 H/ v1 }% T# d9 |
Cell[BoxData[; K9 o! h i* n; U+ b7 e: f: t
RowBox[{"y1", "/.",
) \3 n2 }3 W( w: r& J RowBox[{"{", ' B0 P" z* C+ Z/ B4 ]1 d. o6 b
RowBox[{
+ ]1 X) A# ~- ^0 }3 \$ o* n RowBox[{"x1", "->", "0.7406"}], ",",
3 L* v7 M2 S' I RowBox[{"x2", "->", "0.4621"}], ",", 4 F. I* z7 z) {. x# N! f1 v
RowBox[{"x4", "->", "0.2221"}], ",", 7 x1 Y, g" e7 ]+ @/ e0 p- {
RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",$ V m$ t( i! @7 y
CellChangeTimes->{{3.57796267209435*^9, 3.5779627224200373`*^9}, {4 x6 `5 r1 E, ^1 ^. b3 c) J0 v
3.5779627663029137`*^9, 3.577962774820529*^9}}],3 h5 n- c4 J; \! K& |: i; J
; Z, L1 L5 H* z
Cell[BoxData[& |. p2 [* ]( @; M5 h+ }) D# S
RowBox[{
; S" T, H) l2 D' e RowBox[{"0.2286149508637297`", " ", # M$ I s- M$ |% Z1 b
SuperscriptBox["\[ExponentialE]",
5 k) Y0 Q" m! q& L: W RowBox[{"3.1415926535897936`", " ",
! Y# {4 }7 I; a+ c) ^7 D RowBox[{"(", 4 T# A' I2 ^! F: h3 R! [! g# q1 A/ P
RowBox[{! M& X! L5 E2 t0 }
RowBox[{"-", "0.17911224641499998`"}], "-",
" |4 ~0 C( e- ` SuperscriptBox[( J) a. I- {8 Z& J
RowBox[{"(", " F1 Z s; J( ?( B3 y. n$ f
RowBox[{4 u% p2 _7 G, P# C5 U/ P
RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
9 ~! l' f4 p) x SuperscriptBox[
" G5 a1 K' @, k' ^4 q7 h, B RowBox[{"(", 8 t1 _. [9 Q2 V) ~ @; t$ V- B
RowBox[{
* v l# `' n1 N& a3 c/ m3 d RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", # K/ |, o3 m! M
SuperscriptBox[2 a* R9 A. _- ^9 X/ Y1 s
RowBox[{"(",
4 O0 c! b1 N4 K7 F, K RowBox[{
2 n$ E- r! K6 ^% X RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
6 c2 d5 ?, P; T4 H9 q5 } SuperscriptBox["x8", "2"], "-", 4 N* K; F6 H. ?: r/ n. a9 T7 e j4 b8 r
SuperscriptBox[
. X! z$ C# v" [8 r: { RowBox[{"(", 1 S, g+ w- ]+ F* r9 H/ {' ]
RowBox[{. u4 S0 t- |# V2 \2 R+ o! V
RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
, Z) R' B# G0 Z- t2 ^ RowBox[{"0.020180806675835994`", " ", , i e% I j9 ]
SuperscriptBox["\[ExponentialE]",
8 r* n% w- s z7 ^* @) [ RowBox[{"3.1415926535897936`", " ", . P6 U- D( ?1 E% W* ]
RowBox[{"(", - a. h, o/ M' o# s# J( g
RowBox[{/ t& R* }/ F6 y. e
RowBox[{"-", "0.105619387859`"}], "-", & Y! o: G9 k; w2 H! }+ X& c
SuperscriptBox[( ?% C" M, n: l7 T5 O
RowBox[{"(",
+ i# x; f' z+ {" @ RowBox[{
' j4 T: \2 k3 O q. [. S RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", 4 r2 m+ v; B2 l( E: B! J
SuperscriptBox["x6", "2"], "-", : a3 V& ?. z( D2 q
SuperscriptBox[
6 u' }: ]8 j+ V* b) P0 ?. z RowBox[{"(", ) `4 ~. j7 |* I+ C
RowBox[{
0 q. c0 e q" `8 J: ^$ i+ | RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", ( {1 }& I8 I) S. C7 C5 P
SuperscriptBox["x8", "2"], "-",
" W3 B/ K, A# w SuperscriptBox[
e" Y. M. \- V5 D4 { RowBox[{"(", 7 |( e& [1 d5 S' Y' J3 M: a. S
RowBox[{4 v3 x0 c+ y4 O$ D% ~
RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ; M$ i" v6 D' J$ z# Y# r% t- L
"+",
7 C8 t- r$ H5 W' q: n7 _" |$ D) e RowBox[{"0.13092706311748437`", " ", : l4 @! ?& g. C: |3 _
SuperscriptBox["\[ExponentialE]",
/ f. ^" ^; }$ R: X+ j; z RowBox[{"3.1415926535897936`", " ",
' b- w- i, n9 Z. Y) ^ RowBox[{"(",
/ u9 U! i- E' P8 Z! I1 a RowBox[{
( J, X9 `* ?0 T9 ?: g7 G, X* a; Y( P RowBox[{"-", "0.236605670085`"}], "-", . [% t; E5 a/ [3 V/ v5 }
SuperscriptBox[
$ N" t5 a3 @; R3 a1 s5 F: W RowBox[{"(", 7 P1 K9 p( p& v( t( E
RowBox[{ N5 ]1 g7 y ]' W* H/ ^
RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
! G u$ g4 v% L' A0 U: s" q( z SuperscriptBox["x6", "2"], "-",
, _9 I5 [4 o$ L SuperscriptBox["x7", "2"], "-", 9 |8 m2 W, q2 j N9 m& B
SuperscriptBox["x8", "2"], "-",
0 k6 I% L `, j' y. @% [ SuperscriptBox[
5 Q0 i- s( R- ^( R5 x RowBox[{"(",
6 Y5 C4 L4 N' {. M, P RowBox[{
8 U' Q8 l( ~6 @8 ]* |! } RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], . p m' w/ R/ X6 B
"-", 2 R1 s% V) v& j0 }) Q
RowBox[{"0.033459349088924784`", " ",
# F+ x) S, L# L6 t" W) v SuperscriptBox["\[ExponentialE]", / _- D# q6 k( b, q9 r
RowBox[{"3.1415926535897936`", " ", 5 h- W( E6 g7 _ d: s: i
RowBox[{"(",
% }# w1 i9 [3 S# \+ `6 J9 x RowBox[{
- M5 t6 G) @7 ]* S7 z$ U$ ~ RowBox[{"-", "0.46221081830200006`"}], "-",
N3 C' x( n- n SuperscriptBox[6 `. W; s8 `& V& l
RowBox[{"(", / W+ _+ B: X. ?
RowBox[{, o6 J, V/ M6 P) q8 A% D
RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", 6 z, G* C# k4 ~# [+ n v
SuperscriptBox[
' O( E( a' L# z( d/ j RowBox[{"(", $ X/ w9 c5 |7 G9 Q3 F2 t. \
RowBox[{
- g* t) G2 a3 i+ b2 A RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", 1 o# S& p3 W* [" B5 `
SuperscriptBox[$ N" ^( i% J V+ F/ [4 K/ w
RowBox[{"(",
: u% d' `2 l: N1 g( @2 ? RowBox[{ b+ M5 K+ I9 I4 m7 t
RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
( o1 y4 u8 ~2 x' p" b( \ SuperscriptBox["x8", "2"], "-",
) ~( ~1 E0 n3 e: R) M5 H: A SuperscriptBox[( l' d5 X3 I) T5 Z- i# K- ~) J
RowBox[{"(", & K8 @/ w/ X! U
RowBox[{
( }4 t3 G d1 c RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 4 I5 r! ~" X- G3 A6 t& p
"+", 4 T: K# P' C, I) D
RowBox[{"0.39611806709006653`", " ",
. A: ^; D- c% V5 A* Q1 M) O4 D SuperscriptBox["\[ExponentialE]",
( }3 @& ^: Q9 r$ l; g* R9 j/ \ RowBox[{"3.1415926535897936`", " ", - ~5 k% C3 Y( [4 {$ c8 C
RowBox[{"(",
: B* m; ^$ H- A+ n g* W2 n RowBox[{. e- J1 w/ @: L! _8 r
RowBox[{"-", "0.5837889295140001`"}], "-", - w" E% h' S: F$ S6 L4 z. }5 J; D
SuperscriptBox[
4 e2 h7 g0 \6 U8 \8 a% A RowBox[{"(", # s) [2 A% q, e: s" p4 Y
RowBox[{
" A) f' N. ]: ^' V: M9 o: o( g RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", ' H2 t* n1 p: g" ]& |
SuperscriptBox["x6", "2"], "-",
* l* C, K( Z# U6 A; x) G: n( G, U SuperscriptBox[
4 h4 @0 w6 c7 G' C RowBox[{"(",
. G- j- e3 x/ J- o0 x% k RowBox[{
, @% L$ d0 \- b RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
( s/ ^2 W1 f- {! L' H7 E' W! M SuperscriptBox["x8", "2"], "-", ' J6 q3 V0 ?3 `& ^$ q8 o/ H
SuperscriptBox[( Z& H$ L2 V+ @. U
RowBox[{"(",
+ z6 X: D0 K* O8 {( v RowBox[{
6 T! _6 D6 t% j/ W RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
; O4 o& u8 ^+ T "-", ( _, S8 \* M7 B
RowBox[{"0.19996885877792045`", " ",
0 E3 l" v/ N$ Y. s SuperscriptBox["\[ExponentialE]",
- x/ Q5 X. p1 ]4 w2 v. D j RowBox[{"3.1415926535897936`", " ", 6 O. V. @7 h( ?, Y
RowBox[{"(", Q( M G) K" M# ?' t6 u4 b1 |
RowBox[{- o! m- J* F5 G( \8 y# M
RowBox[{"-", "0.19030188470200005`"}], "-", ! n- D8 g4 d9 R1 O; a
SuperscriptBox[
2 F& }* d5 {8 F. ? RowBox[{"(",
) {. m+ }/ s$ ]; R( l: a RowBox[{4 l/ Q4 N4 `0 T+ M& L
RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", 2 E2 c* r/ w) z I
SuperscriptBox[
: d' W% I' Q5 G( Q( x RowBox[{"(", u/ M: y: ?+ f) Y0 x
RowBox[{
( _2 |8 t5 m7 h6 T1 u1 q4 J k& p RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", % v' J0 q% |6 Y4 r9 X
SuperscriptBox["x7", "2"], "-",
) U5 q! b/ [5 S, u+ m/ T% I SuperscriptBox["x8", "2"], "-", * D) ~% c1 {( f, _: u w4 D3 W
SuperscriptBox[8 \* `" F* B* A n1 m8 F
RowBox[{"(", 1 V2 j) |( Y8 U; L
RowBox[{8 N! Q! i: E) f- [# k+ |, [
RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
4 \9 j. a' x( |" T' m$ `; r; z "+",
- e- {( g; ^0 S RowBox[{"0.23580523388620744`", " ", + {. }' }* a) R7 [
SuperscriptBox["\[ExponentialE]", 3 l2 R0 O9 }( u$ o$ m
RowBox[{"3.1415926535897936`", " ",
k7 e/ N' T; e RowBox[{"(", 5 `; R4 P' a/ d6 b7 `& j5 `
RowBox[{ u: e& S3 e: t4 ^$ r+ X6 }8 Y. U
RowBox[{"-", "0.28518780882`"}], "-",
* L/ U9 l8 j8 s" D) I SuperscriptBox[1 |4 U% l- f) n
RowBox[{"(", " _* D6 w2 Q* h1 `
RowBox[{
, W9 R( c+ Z7 O0 f$ ^: f, W RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
3 `- C! Q* e/ T2 r* h" M SuperscriptBox[
$ T. Q% F; D0 S# R G RowBox[{"(",
0 E0 `2 O3 q2 J+ k+ ~ d1 }* @* \6 D RowBox[{! t# W' E! I6 T& T4 i
RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
, W0 z" a- s9 ?1 \& R" B/ N SuperscriptBox[. T1 K. M5 r- [, ^, j
RowBox[{"(", 8 r# ~% s; e, X& {- W
RowBox[{
8 Z- R+ z5 ~- g% F8 S2 H+ T RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
, l/ B6 t! ]5 Q1 ^4 h) V1 h SuperscriptBox["x8", "2"], "-",
. I. A6 n1 z# U$ l+ w( g \ SuperscriptBox[: w m2 R" R. r$ X
RowBox[{"(",
4 f5 O; Y/ Z& Z& E1 x3 s8 ` RowBox[{
! B* P) t. l5 x RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
2 l) H" \ E: N, g' d6 R+ P, _ "+",
! q/ m# X( F5 E/ f- Y RowBox[{"0.667027259367853`", " ",
! K1 ~' ?1 @! D6 T- }6 V8 b Z SuperscriptBox["\[ExponentialE]", 2 a- |8 Y4 |) w
RowBox[{"3.1415926535897936`", " ",
) [" F8 Q6 h4 a" Q' l RowBox[{"(", & f# o, k( V, y4 r6 G9 ]4 R: v
RowBox[{
( o' W, c b2 I. g' X RowBox[{"-", "0.11387365200400001`"}], "-", , n/ y9 W2 q- H9 O
SuperscriptBox[
: D0 n! _- B) C7 @8 _ RowBox[{"(", 9 Y! }, R( q" Z. g2 M
RowBox[{* x; _* U4 |& {4 Q9 j: A% V
RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
# o1 b2 m1 |7 m" x: \! ~. ] SuperscriptBox[' R3 L: P+ ?" b8 Y/ w
RowBox[{"(", $ M l- ~; X5 C# `, O5 I# Y1 N$ V
RowBox[{
' ~( a" O+ t8 j+ B. } RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
7 t7 i9 P, i# f SuperscriptBox["x7", "2"], "-",
; b* y/ k. @1 F5 [ SuperscriptBox["x8", "2"], "-",
g* r4 Y I1 I0 M6 P0 L+ R+ t* v SuperscriptBox[8 L0 p# y. v& p8 z& C, ?
RowBox[{"(", ( f. t% k `' m) E% u
RowBox[{" _! t1 i+ S. H6 W3 f6 ^7 ~% ^
RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ! e7 P0 W1 X J* i- L7 ^
"+",
, q0 U9 z o# p7 U: X5 d5 [( L RowBox[{"0.25282438852646905`", " ", ' n# _5 y( i. U
SuperscriptBox["\[ExponentialE]", 4 d9 ~% w+ S2 o# M( X% ` h
RowBox[{"3.1415926535897936`", " ", ; \& q: [# P2 W( r# P
RowBox[{"(", 1 h% E8 T- K$ B: W/ Q
RowBox[{
4 A$ d/ ?: Y& i8 Q0 m4 n RowBox[{"-", "0.11442644782500001`"}], "-", 8 m" q' s f! f$ g
SuperscriptBox[
& F! ^: M D2 o RowBox[{"(", ' h/ y- c6 u! A! j5 s
RowBox[{
) @; s6 R( k- u0 l+ u) I RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", s: I2 i. p* b9 |0 T
SuperscriptBox["x6", "2"], "-", . G( @9 D- j6 H6 |
SuperscriptBox[8 L; B* V0 z) j5 U# M& H+ r
RowBox[{"(", - u, K( g" d9 S# u: K' a
RowBox[{# K8 d$ R; @ F. R7 S2 T3 Y# x$ F1 |: p
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
# b9 D6 R' j9 U, v SuperscriptBox[. ~" v: E3 h: @$ N ^
RowBox[{"(",
" ]" } ]7 v! l3 | RowBox[{4 H) U. m/ X( [- s
RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", 8 D$ \$ l6 z, F" \# Q
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", + F7 H5 @, y/ {( A" L
RowBox[{"0.07581214474544536`", " ", 9 U' g$ P8 F8 Z6 j
SuperscriptBox["\[ExponentialE]", * V0 O, Z: l/ c
RowBox[{"3.1415926535897936`", " ", / ]8 |9 {9 h1 r* N+ ?0 o) q
RowBox[{"(",
5 q O' H3 r) ]4 u ` M: F5 [ RowBox[{5 X2 r7 V: x; I' f6 F
RowBox[{"-", "0.21008576609800003`"}], "-", 6 @3 }7 B9 e5 {5 C
SuperscriptBox["x3", "2"], "-",
! {* S0 z: p7 f d5 [ SuperscriptBox["x6", "2"], "-", ! ? O1 p! |7 d8 _
SuperscriptBox["x7", "2"], "-",
8 P8 s5 [; _7 s X% t SuperscriptBox[+ |/ O. u2 b8 d, A
RowBox[{"(", % m0 l$ @) H( Y7 m7 q6 q3 I, @
RowBox[{2 Y$ z/ Z7 C4 K9 z" D
RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", & ?/ s" |) @0 `" y" G- D" n [! ?# N
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", V* t" r' A) n) K4 Q
RowBox[{"0.10599338351843121`", " ", 3 H2 g! s6 y" P
SuperscriptBox["\[ExponentialE]", 8 {8 E, G; E4 N9 |9 M, {
RowBox[{"3.1415926535897936`", " ", # s: R7 `/ w4 C+ A( z" C) p3 c5 f6 ~
RowBox[{"(", ! r' h! \* n' r! A/ Q3 d' t
RowBox[{
7 _1 I) \# ]3 x: ?" N5 T RowBox[{"-", "0.4481471925460001`"}], "-",
3 n" j, u0 A7 P/ C' R9 U U- p SuperscriptBox[
# k: J; }) j: P RowBox[{"(",
8 _2 w M, e9 G8 [- k5 w RowBox[{8 X6 @( m7 E- y' F3 w$ N& O5 b
RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
# ]0 d8 R3 o, r0 {9 i! [ SuperscriptBox[
5 W; \6 w9 h7 a7 G0 f. t- Y% g) J RowBox[{"(", # ]( Q1 I9 c: O# \- J( d' P) m
RowBox[{7 N2 A% l3 z8 ^: o1 R
RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
& I: T6 e* Y6 J; P2 v SuperscriptBox["x7", "2"], "-",
/ ^) H" _9 B* Z! ] SuperscriptBox[
9 X$ _/ A: M) `% U8 H1 s; p6 J RowBox[{"(",
; Z* R E/ X/ R! H9 m# Y8 D RowBox[{
, w; E: _6 V) c) T; k RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
; c; D& k( T7 U' `( t7 v( r SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", 9 T& B) k- y! p% C6 H
RowBox[{"0.5008208386064421`", " ",
( o' |# X" {8 e5 z0 ]) A) v SuperscriptBox["\[ExponentialE]", " [% k8 B, V, N
RowBox[{"3.1415926535897936`", " ", 8 X9 t; [% M* f( @
RowBox[{"(",
. R/ Z2 m. {: h7 a, H RowBox[{0 \8 t3 L) F3 M- w+ l6 u* v! W' I+ k
RowBox[{"-", "0.08722659614000003`"}], "-",
. G5 U5 m8 g- p& T) ]$ ^ SuperscriptBox[& {' w7 Q* k8 g. X7 w& e
RowBox[{"(",
2 J/ _* E) ^1 B RowBox[{) k. h( I: r0 S
RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
# F. Y4 X3 c- i$ {5 I2 S7 b SuperscriptBox[8 @: X1 o0 @" @/ @) V
RowBox[{"(",
$ Y" k: ]3 U0 l( u) L. O( \" J RowBox[{ B9 s5 \, j+ ~0 |
RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
7 ^! S2 f2 }0 L) x SuperscriptBox["x7", "2"], "-", ! f& E2 O1 {! P3 A. ?- L7 u
SuperscriptBox[% ]4 R2 m) m+ P
RowBox[{"(",
[) `8 h4 b& Y' w& {% ^ RowBox[{
) z; A. c f, N& a2 Z; _ RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", 0 p4 Z& ~( u2 h0 W4 g
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
, b* X7 a: B: Q3 v8 o' Q2 d% h RowBox[{"0.32564305572552343`", " ", 8 o( w3 w3 i" n3 v6 G. j
SuperscriptBox["\[ExponentialE]",
, u" O6 ~. }, I, P0 b; N6 f RowBox[{"3.1415926535897936`", " ",
, K Y& j9 q- u. x, B5 i RowBox[{"(", 7 }* M7 P" p) T6 n* q6 Z
RowBox[{
4 Q4 T. N- z# I0 R RowBox[{"-", "0.23738217000100004`"}], "-",
0 M! p3 A- i( W& _( } SuperscriptBox[) L% u$ T. t) M* f9 j
RowBox[{"(",
6 y; s- y& w) Z& k RowBox[{
9 ~- t( g) Z* P6 e f/ ] RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", ! B; W* y: T' t' M$ d) i
SuperscriptBox[
~9 D+ x2 j% t1 x* f: o RowBox[{"(",
" y) r+ }4 m7 V7 } RowBox[{" J' w0 x5 S8 m5 O- j3 U1 e; v
RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
' T- p. a/ \) }6 ]; ~% ^ {/ S SuperscriptBox[
, V; k6 V- B+ r. u2 p3 f+ l) M RowBox[{"(",
" Y+ m- _4 N+ ]: z2 @7 ^, R RowBox[{2 K- B' ]* M! d& {% j0 I
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
% S+ I3 y* X' p( w N0 \ SuperscriptBox[
* _7 A h7 k5 y6 ~( F/ i7 o RowBox[{"(",
3 c3 b& ~! |( E: l RowBox[{9 {1 U/ J& {6 ~1 n- s
RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", $ F- g+ w- t) |
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
- J- ?. G6 T1 I/ ` RowBox[{"0.6665374509702793`", " ",
) A' B, `4 c2 N SuperscriptBox["\[ExponentialE]",
1 ]2 @; M F0 c3 q! M% t5 V* R RowBox[{"3.1415926535897936`", " ", 7 ?+ D9 n) p) J) Y. H. R. T8 W
RowBox[{"(",
' @3 A; f6 q9 D Z1 R9 n RowBox[{
! N+ D- V- n8 N& j" B% p3 t RowBox[{"-", "0.19162171876400003`"}], "-",
0 V1 o7 D L# s. i5 x6 W SuperscriptBox[
6 t" ~ C: Q4 L: n$ a& | RowBox[{"(",
/ @: a/ }) [( W8 N/ G, C RowBox[{1 S- [# O: T3 h
RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", H5 Z) a `6 P3 M/ ]( u4 u$ w
SuperscriptBox[8 D$ y! `, C- ~" g5 l3 b5 ?) E
RowBox[{"(", 1 e/ m' A- n2 R+ J" k9 s5 a
RowBox[{
0 M. c$ D! C! ` RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", 2 [- y! M' K$ S( N( P
SuperscriptBox[
- `: r6 v- d( }2 X7 G RowBox[{"(",
8 c1 g/ g" O* G) u* f RowBox[{
+ }$ H* B5 t q @ {& C RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
7 K2 @& x, s7 i! e7 q. k9 L4 u' t SuperscriptBox["x8", "2"], "-",
0 U0 V- { Y! ~& Y( v SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", " M0 G( j, K' A2 o8 ^! J7 |) j/ H
RowBox[{"0.4812237524557293`", " ",
" {1 [, ?8 [5 R* M& e- u SuperscriptBox["\[ExponentialE]", 6 n: p" k8 T8 }7 F9 @5 k. @( r+ J
RowBox[{"3.1415926535897936`", " ",
6 I- x' o8 p4 X) @+ h RowBox[{"(",
$ O$ `7 G" d2 C& [* M RowBox[{: \3 f7 B1 ?: [# h- u
RowBox[{"-", "0.109748954594`"}], "-", - N" d" l3 ~6 W4 }5 [6 H
SuperscriptBox[+ o# j% R6 Y5 ]- v& D# t; H
RowBox[{"(", $ _4 M1 y9 \2 v/ W% l, Q4 R- r* b. f
RowBox[{
: [6 {4 N$ _6 ^7 w l RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
2 j$ }% x4 J# L+ t+ w/ H SuperscriptBox["x6", "2"], "-", 3 `- l/ i* A8 C4 c5 p
SuperscriptBox[2 ~6 b6 M5 p0 d. w3 S9 \# L
RowBox[{"(", - h8 f; O8 W3 [! d
RowBox[{& b% N6 W) R8 _- M, z5 b
RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", * ~$ r V) @) p4 t+ f& x, Q& o
SuperscriptBox["x8", "2"], "-", / D; N2 k* o3 W% C+ W0 C6 }
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
' y9 n9 k+ A( x RowBox[{"0.176024676254045`", " ",
: U: q0 m: }7 I" O0 |6 c4 C( _ SuperscriptBox["\[ExponentialE]",
. b& {0 N" v9 O RowBox[{"3.1415926535897936`", " ",
F1 d1 [' |, S. I) p RowBox[{"(", & K$ _& a/ f$ |8 H8 `
RowBox[{
9 s. |' Z& X {+ J' A( g1 u$ k5 M RowBox[{"-", "0.14616677062500003`"}], "-",
" n2 e5 ?% d* `; z Y' Z" c$ M) }# j SuperscriptBox[; i& w. d* O, l- A5 d: @( o0 S5 V
RowBox[{"(",
5 f* W" _& c9 I) w- P9 Q; ] RowBox[{
. F. m$ g2 X9 A; }" s RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
( Q" b; z& k# K1 z A8 Q) @' } SuperscriptBox["x6", "2"], "-",
/ g/ k# N# y, ~/ k- m4 q" [ SuperscriptBox[
6 d! Y* O% w- r' [# c% ?# O, r RowBox[{"(",
, R f3 h9 E$ q7 h. S' N RowBox[{# J5 c; T% _7 ?% ?
RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
& G) z0 X+ Z9 z3 g' e7 Q8 s2 ` SuperscriptBox["x8", "2"], "-", 5 m' l u' P, y- a0 N
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
7 I/ i- e: o7 C1 H2 S. N$ p# | RowBox[{"0.5945873894818965`", " ", 0 f9 d; M8 l u) f
SuperscriptBox["\[ExponentialE]",
) [* r$ Z4 C7 B# L RowBox[{"3.1415926535897936`", " ", ) w. T/ P3 \+ a" W- A; W
RowBox[{"(", % M9 S0 p% |# g+ [3 ~, n
RowBox[{, y" Y+ [5 G9 X2 e7 D+ r- L' n
RowBox[{"-", "0.10407011464100005`"}], "-",
1 {! X! y1 y, N6 h SuperscriptBox[
: f- Z4 o* u3 y r RowBox[{"(",
; ~$ F7 L( |( a6 K( P RowBox[{
0 w0 [* v% {" `6 O, b RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", 2 U* f7 }6 Z, p% e1 b* E9 ^
SuperscriptBox[
7 {! x! Z: f9 a, H2 z RowBox[{"(", 5 ~, V6 ~1 u1 _- D$ ]+ R ]0 v
RowBox[{
/ |4 Q0 W. ^8 E; S5 ? RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
0 H( i$ w1 R! H0 I8 F" K% s SuperscriptBox[1 p" x# D# a7 R2 d- _5 L8 ^4 _4 _* ~
RowBox[{"(",
6 N) s& D& W& W' Z6 S RowBox[{# N8 ?7 q0 J2 U; X, S! O
RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
) L( }5 [+ X6 a: q% f0 P2 P SuperscriptBox["x8", "2"], "-",
2 j, n+ E& Q( ^- P$ c( ?; | SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
% x$ [) M6 N% o, z# W( M RowBox[{"0.027591936509660075`", " ", 9 o$ s8 `% `) G+ N1 Q7 O; ?
SuperscriptBox["\[ExponentialE]",
, x+ ?% `7 E& V; q* F* U" u) @ RowBox[{"3.1415926535897936`", " ", $ \* v! f* N3 B* k& n
RowBox[{"(", 5 L) |/ ^, t! E4 ~+ T- h7 P
RowBox[{+ Y; i9 J# h# }+ f' e
RowBox[{"-", "0.31770463544200006`"}], "-", & c1 m6 Q( ` ]1 @4 G" h4 n2 h
SuperscriptBox[
- m5 z+ A& F3 r, A, {# z% ^' q( r RowBox[{"(", * f# p- @7 d' ?+ B0 L* e! i
RowBox[{/ I; v; V. N6 E! N( M8 F& u5 i
RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", 8 w2 U& G9 `- y# g0 A" M
SuperscriptBox["x6", "2"], "-",
" S% S4 ]5 e7 h: L SuperscriptBox["x7", "2"], "-",
" S, a' T* ?6 O( c/ G& i SuperscriptBox["x8", "2"], "-", ! O6 r d6 q, I" P
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", & Q4 J% V& p5 i# i
RowBox[{"0.5252475961933536`", " ",
3 X7 o& ^4 ^) Q! d) P& z SuperscriptBox["\[ExponentialE]", 2 H0 l& C; M6 L4 t# g4 y. a
RowBox[{"3.1415926535897936`", " ",
. g: q E! `2 {; b/ C" ]0 x M RowBox[{"(", ! u8 V' I9 P' C( N- L/ |5 B" D
RowBox[{, C5 r3 M2 u3 ?+ }7 p
RowBox[{"-", "0.6410867660730001`"}], "-",
2 K+ [* M* U7 ` SuperscriptBox[7 a, g# e' C! r" B& Z/ q$ d- t
RowBox[{"(", : z3 J, W2 V0 }8 [# `$ o
RowBox[{
& G" J3 T/ B& p4 D9 } RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", $ {' w5 r, N) [5 y( ?; _# V' b
SuperscriptBox["x6", "2"], "-", 7 n2 m5 F7 @- D$ q. A* A
SuperscriptBox["x7", "2"], "-", ! c& R! ~' g' ~
SuperscriptBox["x8", "2"], "-",
) x5 _+ r+ m: p4 b( e+ ? SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
( Y" y& i% {% p5 M' ^+ Y RowBox[{"0.32047284779644936`", " ",
$ Z! m5 g/ }' E) e* \8 } SuperscriptBox["\[ExponentialE]", . k! u) P0 h5 X
RowBox[{"3.1415926535897936`", " ",
2 N, P% J* Z! s S3 ]: l0 ? RowBox[{"(", ) u+ f8 O* I y# y: N7 c0 `
RowBox[{$ ?! T0 p% N6 j. y$ N# N0 i
RowBox[{"-", "0.155663887074`"}], "-", + M' k) H/ e0 F) Y9 S
SuperscriptBox[
9 E# w- M( B h8 \& S2 _5 A RowBox[{"(",
, Z4 R( k7 T9 @1 e3 l' N6 N2 Y RowBox[{
3 i6 R6 k& B0 e# ~4 _$ ?/ E RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
, e! p$ h* N( D SuperscriptBox["x6", "2"], "-", 2 n. w( ], l/ K) B
SuperscriptBox["x7", "2"], "-", $ P7 _, i" g0 z7 u' }/ I
SuperscriptBox["x8", "2"], "-", ' W+ ]5 D1 n4 u2 C" r
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", 5 w4 m& t; p% R. [; ]
RowBox[{"0.7528674241482847`", " ", 6 P" z; N" S* j3 x( R. K7 P
SuperscriptBox["\[ExponentialE]",
; q% C9 |* } k0 e- W RowBox[{"3.1415926535897936`", " ", : w4 E& i; Y2 e8 X
RowBox[{"(",
1 |$ B1 v3 g3 N2 |) @3 ^; O RowBox[{5 x$ k0 X/ b( i$ @
RowBox[{"-", "0.14151232428600002`"}], "-",
4 E0 G, q& {% x- X/ `8 O SuperscriptBox[
- T( K; [) ~) v! r; E RowBox[{"(", * V$ L3 P1 b2 C8 y4 q% w% d+ y) U
RowBox[{( ?) c! X7 ^: w) d
RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", . X I4 e. }$ B. n5 ^* C
SuperscriptBox["x6", "2"], "-",
- z; i+ V! V& ^) ~) J SuperscriptBox["x7", "2"], "-",
! j5 t8 R' q0 q; l& b* X SuperscriptBox["x8", "2"], "-",
% I7 ?+ y9 G* }! U$ n" ? SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",7 x0 h% E; ?1 Z# t) u7 Q
CellChangeTimes->{3.5779628386090403`*^9}]
( B7 n4 V3 V6 G! n6 x( M+ z}, Open ]],
- b9 D$ Y: o6 R2 q l3 Y: V8 Q( @8 K( m( j# U
Cell[BoxData[" "], "Input",& Q3 G: @+ b; O8 u, g. J
CellChangeTimes->{3.577962835879035*^9}],. N) T8 q" j8 A/ Z0 j- W K
3 I0 s# ?1 ^+ u" B$ Z1 z8 u" E6 }
Cell[BoxData["\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\:4e3a"], "Input"],
" P" Z* b* H# q* ]+ m8 Y3 A) J6 n* C0 ]
5 J5 |2 \/ ?/ WCell[CellGroupData[{
\/ t1 q4 w2 Q3 D( @7 N6 r r2 T
Cell[BoxData[" {( K! Y2 _0 D: J6 k+ D6 b
RowBox[{"y2", "/.",
! y% Z/ }2 y3 H, p& u+ d RowBox[{"{", ; T) E2 j, e8 O! s
RowBox[{
2 v& w2 p# r7 m b RowBox[{"x1", "->", "0.7406"}], ",", ) L _: O7 X9 j6 }$ G6 G% u
RowBox[{"x2", "->", "0.4621"}], ",", U; s+ I- a+ R9 x
RowBox[{"x4", "->", "0.2221"}], ",",
1 `2 ]: Q3 ]4 U8 x/ L9 J RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input"," f* G, s' B3 t% u1 q; _7 E5 [7 k
CellChangeTimes->{3.577962787784151*^9}],
" i$ V( z* s& @ M: ]2 p- J- |7 m+ H8 K
Cell[BoxData[
# `7 {& Q& q3 d( }/ R# \% B( R RowBox[{4 c2 I7 I: ?: x8 _# W9 ~% ?
RowBox[{"0.9125798890455848`", " ",
$ p% P0 t8 x }! y6 b$ Y! G: A$ O SuperscriptBox["\[ExponentialE]",
) z" ?8 k" a% R RowBox[{"3.1415926535897936`", " ",
: K# v9 l/ C! z+ r, F RowBox[{"(", / X! f' T" d: p3 {! Q
RowBox[{% U" q; H9 u/ \* h
RowBox[{"-", "0.17911224641499998`"}], "-", & D, Z$ @) y$ o# C% o1 t
SuperscriptBox[
2 h7 z8 [" w( t/ P5 [# W RowBox[{"(", / K( x1 A2 Z; x H2 I- m6 j' F9 {
RowBox[{
% R5 F& F' S2 \# G RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", 8 W& K) o5 b3 t& u
SuperscriptBox[. P' q( k8 Q+ G: K( `
RowBox[{"(",
+ }! ~, y* ~# r& |1 z RowBox[{9 k% I1 t' Z* b
RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", 6 c. h, B5 v7 _- K; l& o2 J* r
SuperscriptBox[
, `1 T, D7 [( m: P/ C RowBox[{"(",
# T% }* ~! ?$ Y RowBox[{" n, p! T7 X$ ~* g
RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", 2 ^* W0 ]5 ~, v5 z
SuperscriptBox["x8", "2"], "-",
$ ] r0 m' V6 } SuperscriptBox[
+ U+ a; B. J! h+ a" w7 y/ p RowBox[{"(",
% U" @: C3 U' O7 M/ ^ RowBox[{' K& b! z n( _0 p: O) D) L7 q
RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
) R5 e' e7 P; M& d RowBox[{"0.2883186011296682`", " ",
9 a9 T) E) L6 \2 x! B3 P5 H4 v9 L% F' x SuperscriptBox["\[ExponentialE]",
( M. G. t1 s! l' D5 G* _) V; P' n RowBox[{"3.1415926535897936`", " ", ( U* ?$ Z7 z( t
RowBox[{"(",
( i$ D+ o& R1 ]9 X3 O. h# _ RowBox[{
5 ?- k- z! _4 n- ?) u% P2 ]% Q RowBox[{"-", "0.105619387859`"}], "-", ) ?) E1 P- S9 z5 R/ t( j% p [
SuperscriptBox[7 C% {% F1 X2 M: W
RowBox[{"(",
8 z( d: B0 k$ n5 @3 \ RowBox[{8 `# b3 h4 u0 S: C
RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
1 O6 F% F8 U9 C) Q6 Z SuperscriptBox["x6", "2"], "-", 1 f: M. y- }8 c1 L5 w' L% h
SuperscriptBox[
1 o# B: Y$ F* G- z RowBox[{"(",
7 C: b- X# K7 ^; F RowBox[{, y; X6 ~8 T! R8 K# I# X+ O* U- E0 K& F1 r
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
6 ]! y$ v: z5 c3 ~6 r# ] SuperscriptBox["x8", "2"], "-", 6 F+ {7 j; k; W' Z
SuperscriptBox[
& u+ g1 p5 Y8 Y6 r# o, C RowBox[{"(", $ l$ Y* \ m' t1 ], h! C
RowBox[{% q) z$ E5 A# Q/ h' D$ G+ a
RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 0 x& \7 E- c1 |4 C# s
"+", 2 A: W* G* {5 d, D t: G8 a
RowBox[{"0.2115905228598317`", " ",
2 x- y @; O \ f7 [! e SuperscriptBox["\[ExponentialE]", : D+ |5 s, a# O5 Z) Q
RowBox[{"3.1415926535897936`", " ",
# S( {. G7 V4 V' N+ t* k* V7 ^! g' g RowBox[{"(",
& ]$ T7 q' c! s7 P! Z: Y- f RowBox[{
( N$ m5 J, E. O) z) f# F5 H$ f RowBox[{"-", "0.236605670085`"}], "-", * ?3 _2 x4 M2 U `9 M ]) h
SuperscriptBox[6 T8 s, e& M4 v0 {; E7 D" n8 o0 b
RowBox[{"(", * h6 I( k& P. m$ U r+ m. |
RowBox[{
% H2 ^3 I. s& e RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", : o; |/ t3 @1 F5 ^/ `
SuperscriptBox["x6", "2"], "-", & j- ~. R m0 x3 R8 L' Q
SuperscriptBox["x7", "2"], "-", % S" c2 F" K4 ~$ U, [
SuperscriptBox["x8", "2"], "-", 5 W' z1 x* f' X3 Q; i4 C* K7 l2 \- x
SuperscriptBox[( ]' T5 ~2 n2 L5 N8 D- K& c
RowBox[{"(",
9 F5 P5 u1 E: T! j# h2 U RowBox[{9 M' Y$ B% Y! q
RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
& [8 s7 t$ G3 G; i "-", ( F8 i: C, |: z5 |% ?. v* w
RowBox[{"0.22829938846668896`", " ", R/ D a; n: d
SuperscriptBox["\[ExponentialE]",
% t$ L8 f9 Z# |) D# X8 @7 V RowBox[{"3.1415926535897936`", " ",
/ W% R( C% M! j) i RowBox[{"(",
+ q& V& B7 Q, j RowBox[{. ~! V9 ]7 h- g
RowBox[{"-", "0.46221081830200006`"}], "-", * @3 P! S8 E: B' i0 M# I0 ]
SuperscriptBox[
& B6 d9 d/ p# U% X$ Y; ?# b( u RowBox[{"(",
+ q, U3 n0 ]$ h2 T H9 X RowBox[{
: {: L$ `6 W! W& } RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
2 X. m! ?. l+ Z6 b+ K SuperscriptBox[/ R# b; Y4 ^$ U! q' Y x( O8 b7 M
RowBox[{"(",
) r& L4 K. e( ^) y! L' d+ @/ o RowBox[{ d! w0 s2 C) r- m! a) i$ B
RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
" }" o: N6 Q: ]+ o, n" }" I3 l SuperscriptBox[
7 u7 |- Z2 y% C RowBox[{"(", 4 c1 i$ t4 j" [$ A4 E/ z# G
RowBox[{, c$ h* a, v; ^& A$ D+ d" J
RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
* U, f* m" R% Z6 S5 w SuperscriptBox["x8", "2"], "-",
6 O: W6 `! I3 f# H& F/ i7 G SuperscriptBox[" J3 y7 O( L% s/ P9 p
RowBox[{"(",
3 o- Y5 }) p1 H0 J3 j RowBox[{8 o( K+ Q* ~# V" g( ` I& w; w
RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], + t# D/ ~) y, O
"+",
& U6 G+ x7 _9 C; Y% H" E7 g RowBox[{"0.27551257162880105`", " ", 9 K5 h5 k9 A5 c+ J
SuperscriptBox["\[ExponentialE]",
/ N4 f8 c @3 L" Z RowBox[{"3.1415926535897936`", " ",
' D3 g W! N# O RowBox[{"(", 3 H0 a1 L/ L- Z$ N* e$ I9 f
RowBox[{; n% y- O9 a% f+ Y0 D! p2 Y
RowBox[{"-", "0.5837889295140001`"}], "-", , t4 ]) Q; @5 }5 c
SuperscriptBox[
* B1 a& @' h" I9 p& o0 j1 i, x/ U5 ?. a RowBox[{"(",
. b9 @9 G! ?* t3 [' s6 {) M9 F2 J RowBox[{4 W/ T; j) h" h0 x+ ?' \
RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", 6 ]' N7 }& L; J
SuperscriptBox["x6", "2"], "-",
3 @, Z9 p0 @- ]3 \" p& B, l5 |% w* [ SuperscriptBox[
0 P& K! j+ p- L9 i8 i RowBox[{"(", ( w% Z/ @$ s, j) D
RowBox[{
% [& j" q" V/ j% j$ a& x RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
: a' S( V$ z& O/ }. P SuperscriptBox["x8", "2"], "-",
" G1 \& s B' t+ ?) U- i SuperscriptBox[$ }6 K {# }8 g$ u; }/ P( h7 R
RowBox[{"(", " n" t) z& V6 A6 S2 \- n
RowBox[{4 q3 Y; v6 C5 a% k. \" U
RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
3 Z, x4 q1 w; C "-", 5 \- r; c) n( L4 u; e& }- z7 S0 }
RowBox[{"0.12620581913715256`", " ", $ ~1 t+ t) I3 v. Q3 y' ]
SuperscriptBox["\[ExponentialE]",
5 @2 Q, |# @& h8 \" ? RowBox[{"3.1415926535897936`", " ",
r% ?$ r3 O7 x/ V1 E6 K/ I3 N/ M RowBox[{"(", : }4 k1 G* N1 x' U# V; D/ T
RowBox[{
4 ?- ?0 a& ~5 K2 n1 T/ W5 [* h RowBox[{"-", "0.19030188470200005`"}], "-",
5 V, ?) t3 f8 i) K+ ` H: ? SuperscriptBox[
; [. m2 D+ G2 f' }& C, r RowBox[{"(", 9 J* D1 B* M6 h. Z" a7 s
RowBox[{
4 j% E3 N9 t" N2 P# d) s RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", - [1 q* h9 B. K8 r3 m4 W
SuperscriptBox[
+ S Z* M0 w0 z% t$ @5 J RowBox[{"(",
6 l5 {7 E# R* N; |: U# a RowBox[{: n- s* H h" |; a1 J+ d6 M
RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", 7 h: _0 i" H) k
SuperscriptBox["x7", "2"], "-",
# y" P6 r! X8 l; `* V, B& ~# b SuperscriptBox["x8", "2"], "-",
6 C; ]# Q5 }7 E. E SuperscriptBox[
! w E" i n# E/ O8 G RowBox[{"(", ! l/ \- Y0 D6 l+ W I4 i/ c
RowBox[{: K- h8 U+ ?% i9 W
RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], % v9 k" g# Q3 B" I/ X) y. j
"+", 0 {; C# d! `& u6 P" E; R A D
RowBox[{"0.12782130225993898`", " ",
; G3 X: J+ J6 G SuperscriptBox["\[ExponentialE]", 7 D9 ~5 y4 r6 r* j; e6 k/ O# P
RowBox[{"3.1415926535897936`", " ",
2 R6 F. t9 C6 {6 d RowBox[{"(", 0 F' ^0 V! F8 s
RowBox[{1 _3 w4 g' V9 |2 T
RowBox[{"-", "0.28518780882`"}], "-", # r9 K8 Z; u, D5 q
SuperscriptBox[9 w# [& _: F! M1 F" q
RowBox[{"(",
( @/ Y; G% k# u1 S6 y7 O RowBox[{
7 |# [! e% R! R2 ] RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
5 Q5 [9 K' w) t- C1 b( m) K, [ SuperscriptBox[# W0 p' T4 M& V0 O) _. T7 x
RowBox[{"(", . ?. s) u& f6 U3 O d/ S+ a; D
RowBox[{
! V5 ?9 W5 F; P8 |3 u& H RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", % J, t+ S1 p( F9 y+ U
SuperscriptBox[
4 [6 w. ^: M9 S RowBox[{"(",
- Y/ {8 z- x/ Q+ W2 Z6 y RowBox[{
# N# k- ^( H# I RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", 2 Z5 g) X1 ] F9 a8 H) O6 j6 p4 F) z
SuperscriptBox["x8", "2"], "-", % M# Z( u! k/ Y# r9 y( @6 @* y
SuperscriptBox[0 v: P8 v2 t+ ~) K, L. Z
RowBox[{"(",
- ]2 o2 _2 s A1 Q4 v" a RowBox[{
; @% t1 q& X/ f# M ~0 [4 c' e- O RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], # u( U6 c1 j) W7 M- q' O
"+",
9 b/ p5 @ N! j# w: | RowBox[{"0.23615247809381104`", " ",
% P }7 H) ^! o. ?' H& | SuperscriptBox["\[ExponentialE]", ' L3 J$ ?9 o" V* j- M
RowBox[{"3.1415926535897936`", " ",
5 H8 F" q7 G) P% e( D RowBox[{"(", ' ]' \0 C- Q j* Z, o
RowBox[{
/ |+ Y. O6 M" A3 h, f, \; Q" m3 k RowBox[{"-", "0.11387365200400001`"}], "-",
& Y- }$ l# j0 I0 ~; e- V5 S SuperscriptBox[
( z* u+ Q+ e8 ~: ~ RowBox[{"(",
. d# `- ?" c- j; @+ E RowBox[{
5 K5 E; V( M) B, g1 t, v RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
0 E) b1 _9 Z2 o& O6 d% g SuperscriptBox[
! I! ?) c$ B+ Z T$ T RowBox[{"(", 4 ?. ]- m1 j a- Y" Y& p" J
RowBox[{
& d l3 q/ e2 G) [7 V9 Z RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
& H5 Z1 R, F; B7 G SuperscriptBox["x7", "2"], "-", . w. f3 H1 T, z# |* b" z9 X7 v
SuperscriptBox["x8", "2"], "-", 3 L2 k" P V ?+ p5 {" ?: [! r3 o
SuperscriptBox[
9 L2 f9 a: v' s3 S% p1 p4 k. ` RowBox[{"(",
o5 e2 d {" s, j h8 ]. p RowBox[{$ O8 Y4 e7 P2 _8 D
RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 9 Y' b) O/ b5 p& N7 O5 X! T
"+", * n$ j/ ~* q) ~1 Z h
RowBox[{"0.3207174990295845`", " ",
& s% j1 Z4 E6 k' k% h2 t9 F SuperscriptBox["\[ExponentialE]",
8 v& o0 x" C# D m4 a RowBox[{"3.1415926535897936`", " ", 4 @ ^: B9 r3 W% b0 Z/ ^. d: R
RowBox[{"(",
: @/ t6 b5 I; \6 p" G2 J RowBox[{ |$ j$ g# a7 I3 @
RowBox[{"-", "0.11442644782500001`"}], "-",
: H9 _7 X, e8 @: ?% q' h8 _4 o SuperscriptBox[
" r7 `; A0 ?% Z" m1 l- | RowBox[{"(", 9 ^8 [& n, l2 v) z4 P2 K) n
RowBox[{
5 r z$ K$ D, K RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
$ E# R- J$ G" z3 g7 g0 N a SuperscriptBox["x6", "2"], "-", 3 V3 [" B: E% I( \8 z
SuperscriptBox[; N8 |: P; x7 ]( |; y
RowBox[{"(",
$ d5 ]2 ] f: t+ r/ L8 A RowBox[{1 r$ _. S, C' p1 Y2 R4 \% y
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 0 Z& p1 e# v, p7 k- l
SuperscriptBox[) z. U( y; _( B. Y, B' l4 V' k
RowBox[{"(",
1 t1 |0 j: t/ D+ g! v RowBox[{2 b9 F' z% y# [" R6 A
RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
6 @0 t3 ]: f8 h7 ~% N SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", 6 t! D. M, ]) X- @/ E
RowBox[{"0.15852708848338293`", " ",
3 ^, U" U I# R3 G2 y SuperscriptBox["\[ExponentialE]",
- j- s' O% X" u) e+ H1 ?. O: T RowBox[{"3.1415926535897936`", " ",
0 ^5 N, U; r* m6 }+ Z% v0 D RowBox[{"(", " C4 y$ }3 e5 W1 |" ]
RowBox[{
5 y0 v! e1 ^( _ RowBox[{"-", "0.21008576609800003`"}], "-",
% u% |( u, [) @% ~4 ]6 |9 P8 a( b. k SuperscriptBox["x3", "2"], "-",
; Q+ b) V4 g. N% o SuperscriptBox["x6", "2"], "-", 2 C9 g4 w' }, u. a9 J
SuperscriptBox["x7", "2"], "-",
* Z: o0 g% a1 A( E' P/ P. r) ? SuperscriptBox[
$ m7 O$ O7 ?# [$ u: x RowBox[{"(", 2 B+ d0 l; {# [. G
RowBox[{, {6 Y! N: [) J5 E e2 Z$ i8 E
RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", % [9 ~9 v9 Z+ _2 \/ {' m9 W. E
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
* l( {0 q/ W8 f& m G: R l) ` RowBox[{"0.6019775648968266`", " ", 4 {3 `9 ]& l" A6 [2 k0 y
SuperscriptBox["\[ExponentialE]", 2 q. y1 D& F9 v# ]# q( @) {5 c' H
RowBox[{"3.1415926535897936`", " ", * [ N( o- }- F' S# N) B- ^; l: O
RowBox[{"(",
- Y" e' N J* @2 i3 g/ M RowBox[{
. [2 ]# J9 H) G. q RowBox[{"-", "0.4481471925460001`"}], "-",
# N) |: M3 O" X; C9 ~$ O SuperscriptBox[# Y3 p6 h/ @9 J( H; U9 P
RowBox[{"(", 6 Q/ C K7 p4 j" W2 N
RowBox[{4 q3 @- u- m9 I
RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
+ L- C; o9 n* K7 @. o SuperscriptBox[+ v8 s- q6 x3 f7 `" I
RowBox[{"(", . B! ^4 {. A7 l' ]0 q
RowBox[{
! w a" R, Q* J$ S RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", 0 E2 h5 \' S& J# h5 j
SuperscriptBox["x7", "2"], "-",
$ J$ | Y# \! z; n0 ^ SuperscriptBox[6 ~0 O. N3 t0 S6 a9 S, Q8 D
RowBox[{"(",
3 V9 Q& q' v, [2 g9 a5 y0 C+ ] RowBox[{! b! f, l# D6 G1 h2 ]3 K
RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
A+ `4 M+ L5 Q/ @2 R' Y SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
3 [, K) T( F, g9 H6 k7 `( Z RowBox[{"0.16041393254115266`", " ",
4 D+ N! [ m1 h2 D SuperscriptBox["\[ExponentialE]",
' H( [1 P* k; z* \ RowBox[{"3.1415926535897936`", " ",
5 k! k6 V4 _0 t) n. _, H& H& F2 B RowBox[{"(",
: `0 d2 i3 M7 N5 d6 I RowBox[{
9 U3 f. C+ Q8 q3 _& ] RowBox[{"-", "0.08722659614000003`"}], "-", + M$ `- G3 U6 @' B) m' A8 B
SuperscriptBox[6 s) M- A/ C* s5 P' |. S. K0 L& u
RowBox[{"(", 3 E4 ~- J; E! e* w" @
RowBox[{/ ]& L- y b0 n1 {' c4 T! s: V! m
RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", . b6 S1 i4 }/ z% G
SuperscriptBox[9 e1 |0 s6 y4 y1 A& {- }
RowBox[{"(",
( m& J) K' v$ F! B5 g" q, c RowBox[{$ T( p7 U6 W. z
RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
& X4 B O6 \) {4 L$ p; \% k& U SuperscriptBox["x7", "2"], "-", 3 V" E$ B8 a! ~5 r0 p4 J
SuperscriptBox[
: I8 Z+ Y" J" c U RowBox[{"(",
5 w: t! ?( a' {: f3 Z! k RowBox[{9 }, r" _$ o5 c1 q1 z
RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", - h) {8 G5 F# O' E/ M' L) e
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
$ _9 V1 N h( v- H RowBox[{"0.482281849713638`", " ",
* \, V. v O$ T3 K; H1 d SuperscriptBox["\[ExponentialE]", 5 |8 x* J4 X, Q" L9 U- Q6 Z4 t0 q
RowBox[{"3.1415926535897936`", " ",
/ o4 H3 h4 K4 L% c. y RowBox[{"(",
) c+ v. |! c& R( @5 j RowBox[{" r% ?; B- Z- h$ I. L$ D6 W0 C& E5 v
RowBox[{"-", "0.23738217000100004`"}], "-", % [/ Z" d9 Z- g ~
SuperscriptBox[
8 V+ w' U% Y3 Q RowBox[{"(",
# I/ J+ K4 K) O RowBox[{- {; b* I5 y" @& O
RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
7 a; n3 k6 O) z, b SuperscriptBox[
: Y/ b0 q4 t V4 |7 e2 M2 {6 @8 H. J RowBox[{"(", 3 \: n3 V) q( y
RowBox[{6 O4 h9 x1 w. P6 S* b3 Z5 P% H
RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
: Q6 T+ b# t% z8 d$ m( v SuperscriptBox[
( S6 j, f* p- Y9 D RowBox[{"(",
_" P1 d; D8 b( _) }2 h9 w3 P RowBox[{
8 k8 R! w" j- G1 z! b RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", 8 X& H3 u4 a, w3 m* P h& z) T
SuperscriptBox[
5 ?1 M+ T f4 n/ `/ w' B4 i RowBox[{"(", 8 }! P4 P* D* B7 h2 D6 K& w
RowBox[{, o- l5 T: c7 s
RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
5 ~! `0 n+ E: }% z SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", : c' J' W" j# y6 ]" F( f/ `& ?
RowBox[{"0.29549238400772093`", " ", 3 T, @' Z0 c, _! ?3 R) z* u- h! n
SuperscriptBox["\[ExponentialE]", 7 A2 j X* p1 }$ Q" P( ?
RowBox[{"3.1415926535897936`", " ",
) p3 m1 g. A' q' [; p, J# ? RowBox[{"(",
5 N6 Z3 a: {1 O) a RowBox[{
. ?5 a# c* J, _ RowBox[{"-", "0.19162171876400003`"}], "-",
3 Y! }+ w" ^) q7 [+ A- v/ Z SuperscriptBox[
L+ q- w8 S# ~) ?' Y/ A( @) O RowBox[{"(", ' {! O+ b2 e0 N1 ]4 k2 `8 C/ ?
RowBox[{$ ]8 K* ^. Z H7 @' a* i* ~' [% o
RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", % ~" S0 ~4 @3 U6 F- k" ]8 c) \
SuperscriptBox[
7 j% O6 @9 I2 F, [4 D' h& ]1 } RowBox[{"(",
* `- e9 M8 w' D/ L( E+ L RowBox[{+ z: Y6 I+ X5 Z+ j8 p
RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
& h; Q+ C. N4 k5 |; Z0 P SuperscriptBox[
5 W7 M/ w) g: f0 k RowBox[{"(",
- [& y v7 w. L! {5 W; r RowBox[{% A: l8 h3 Z9 S
RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
9 K- i( W* A7 C6 t6 G SuperscriptBox["x8", "2"], "-",
+ g; @) e7 ?) K: D: J- d SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", / {" U6 } e' r' H* r6 w% g. |: |
RowBox[{"0.31296872769679895`", " ",
7 v7 j' Y4 C+ S q' i SuperscriptBox["\[ExponentialE]", 8 F& O! h) ]9 N6 t, M9 J
RowBox[{"3.1415926535897936`", " ",
; y* M0 ^ i- }: h# |4 Z RowBox[{"(", 2 I9 P$ W; o- L6 k" ^+ s" C2 f
RowBox[{; b' I; ]% k6 G$ M6 U
RowBox[{"-", "0.109748954594`"}], "-", . v" P% \" l; O! ?) D
SuperscriptBox[
" c/ m% \0 J1 s RowBox[{"(",
* d9 o2 G; c2 K- a. t6 K' `+ I RowBox[{( a8 Z% \6 t# O
RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", : W$ Q# e4 s: Y( x: R
SuperscriptBox["x6", "2"], "-",
1 s" I" n- s) f9 P8 O, p7 ~ SuperscriptBox[
) a# J& l9 c* V+ f RowBox[{"(",
. ]+ E6 A8 y; V, w; C% g( _ RowBox[{
) C5 ^9 I' p, x/ C4 o RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
2 D# O A/ w4 C SuperscriptBox["x8", "2"], "-", 4 e7 q" m9 a" |; S Y/ V
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
" a0 V" X9 o' P) F/ d: X RowBox[{"0.4666313851213299`", " ",
- F+ A) y7 ?3 k SuperscriptBox["\[ExponentialE]",
5 N" w" L7 m M1 K RowBox[{"3.1415926535897936`", " ",
. R% t+ j/ P& E) R5 C3 L RowBox[{"(", 7 {6 G$ N6 y: |$ a9 w6 ?$ Q
RowBox[{6 H( B; G: q7 U
RowBox[{"-", "0.14616677062500003`"}], "-", , C0 d) P, ^1 X# Q
SuperscriptBox[# @# g3 L1 R, Z7 i% m
RowBox[{"(",
6 {1 Z+ ^! P" ], I% q RowBox[{+ {* k' b8 m" M$ m# ?
RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", 3 r& s8 N( [/ B5 y
SuperscriptBox["x6", "2"], "-", . j" ?( o- S1 a, ?* t2 S' q
SuperscriptBox[$ `& z/ {7 z: S# {/ \
RowBox[{"(",
. b+ }1 g' S( R# C2 T' S2 A RowBox[{
q4 q/ N! j6 [+ H) n# P: G RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
7 u, Z) B3 e' J2 i2 W8 p7 G SuperscriptBox["x8", "2"], "-",
e$ M8 G& E7 n/ m SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
6 n- w- M% C& N# p RowBox[{"0.37419828116611387`", " ", ' j* G. L0 J2 Y% N& O! r) z5 ~6 k
SuperscriptBox["\[ExponentialE]",
3 i, X- e z7 g0 F4 |: \5 t RowBox[{"3.1415926535897936`", " ",
" `0 @! S$ \' d" k j4 E# k RowBox[{"(",
( Z b& L& V- R& X; M( i- w RowBox[{; c6 @) [# h. U1 O2 W) G; U( A, V
RowBox[{"-", "0.10407011464100005`"}], "-", ) x% R j. g1 d2 O3 N3 g
SuperscriptBox[
; Z, s2 p$ k3 L, q; H, k) o" j RowBox[{"(",
/ {8 ^5 j/ c9 {- Y RowBox[{& R% h- O- e* f- K Z7 e
RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
- `; M. a) S* {+ T5 P( m SuperscriptBox[4 p3 e* E: K" G4 G) e
RowBox[{"(", - ^5 G' c e# o& A0 g4 m* |
RowBox[{
6 H1 Y% D3 G6 ]& w RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", + j/ K8 l; |+ y' C* \
SuperscriptBox[. [. O' q; I+ o+ D. ^0 O
RowBox[{"(",
3 f# q, w0 [+ g- v3 ~- a5 G+ z RowBox[{: n0 G$ h5 J9 s! p/ a, U2 n7 [ A
RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", 9 K) U3 c% p9 x/ f2 z3 g% i: z4 j
SuperscriptBox["x8", "2"], "-",
* y" e7 W$ W; H% N- z( e9 t SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", % X8 D# |. l, e: i8 }6 i1 \: N7 w
RowBox[{"0.025873988843992612`", " ", 9 h2 V& W F2 |
SuperscriptBox["\[ExponentialE]", $ k# k" U6 F) Z- F
RowBox[{"3.1415926535897936`", " ",
V0 x2 L4 I' x8 [* W, I* _ RowBox[{"(",
0 w8 i- L& D% P' C; ` R RowBox[{
9 \. I; B3 Y. A/ c& Y RowBox[{"-", "0.31770463544200006`"}], "-",
* Y; T2 S/ h. B; A* ` SuperscriptBox[
8 s' }' h6 j: u* f RowBox[{"(",
7 I" e& ^9 X: r" d RowBox[{) j+ s& R* K+ E& y( D/ [5 r
RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
* Y. i# m$ U& p) ` SuperscriptBox["x6", "2"], "-",
3 s; Q' l- Q. }! ^2 a+ _7 q3 ] SuperscriptBox["x7", "2"], "-",
2 _" v6 j2 T: H SuperscriptBox["x8", "2"], "-", 6 k* A4 {7 q* x7 B0 M" i
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", " M: j) S( e4 u) O' v) N, F( V
RowBox[{"0.5575503376854455`", " ",
8 @* l1 y1 t9 E SuperscriptBox["\[ExponentialE]",
4 l8 \1 z5 V& r5 w6 O% x0 E RowBox[{"3.1415926535897936`", " ", " I# `! F& f1 G. P9 G) J
RowBox[{"(",
' u( o$ I7 K; T RowBox[{
) P0 m7 ]+ ~ P8 Z. S9 I RowBox[{"-", "0.6410867660730001`"}], "-", 5 {3 U& I% M/ h* X
SuperscriptBox[3 Q G) v9 U% ?/ v' C1 b0 `4 ^& E
RowBox[{"(", 5 V/ k( n0 g: s8 y7 v
RowBox[{
; o t1 ^/ v1 D, u6 a RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
: h! j. ]$ }# Y/ @, y SuperscriptBox["x6", "2"], "-", 6 j! h1 r4 k' M8 U6 C
SuperscriptBox["x7", "2"], "-", $ S1 U& e1 X+ e9 j' n" y7 O
SuperscriptBox["x8", "2"], "-", : r) Z7 o% F: [. _+ T3 f2 h/ B: v+ z
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", / C( I& K2 P# \3 }- a" b
RowBox[{"0.13398540448199214`", " ",
7 x& P J" @3 v5 O u SuperscriptBox["\[ExponentialE]", ' D0 l( Y5 G! v k( u; F
RowBox[{"3.1415926535897936`", " ",
4 D! \, L4 _0 H q6 v3 X RowBox[{"(",
/ ~) o) q# X- p1 ~; _8 L: ]: z RowBox[{
4 a0 p5 M+ |7 @1 @! K& l RowBox[{"-", "0.155663887074`"}], "-",
# P1 t4 e( U. A, t7 F SuperscriptBox[
: i4 z# k0 X7 L6 t9 ] RowBox[{"(", % f% R, E( U2 X0 v3 U9 z7 X0 v
RowBox[{% |9 X3 C4 N) v8 H/ \. c
RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", 0 B3 A# J& i; v: ]
SuperscriptBox["x6", "2"], "-", # B/ U+ }& i" P% R
SuperscriptBox["x7", "2"], "-", ' B1 l$ A9 _& p8 u" {8 o2 H: a
SuperscriptBox["x8", "2"], "-", % X7 b( Y6 y$ `0 [% j& U7 L
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", ' D* ?$ a3 ~; q. i$ D# z
RowBox[{"0.4572385099113415`", " ",
& ]; A& r' H: @2 E; t2 R8 C% W SuperscriptBox["\[ExponentialE]", 1 I. n3 Y% {4 D: E0 [, ?+ e8 {6 @
RowBox[{"3.1415926535897936`", " ", " `$ |" h l2 m
RowBox[{"(", 5 p. |& W" I5 f0 \& b% V- V/ {
RowBox[{
: }& t* K9 O% W) Z* i2 K RowBox[{"-", "0.14151232428600002`"}], "-",
/ \: W+ b8 \! T6 u SuperscriptBox[
: j6 ?1 {; V. F9 k3 n$ a RowBox[{"(", : Y: {. C; ~ y$ N; }/ a
RowBox[{) z4 R, j9 N- F3 l! Q
RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", * W) B, E2 G) g) V
SuperscriptBox["x6", "2"], "-",
* ]9 [, H2 |* J$ x SuperscriptBox["x7", "2"], "-", 4 V3 i0 P3 B% w8 m. a
SuperscriptBox["x8", "2"], "-",
* @: s" J! x9 V- P SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",
5 T+ E1 M6 z4 M Q' _8 H7 I CellChangeTimes->{3.577962841401445*^9}]* d! n- A$ ~ N9 K. q2 a# z; K
}, Open ]]
: d! S- [7 n$ }1 `2 P: B4 \5 P},3 m- e4 L. ?( [+ k2 { ]$ d: y
WindowSize->{1093, 659},( K* J! b3 y6 s- ?1 J3 S6 {
WindowMargins->{{61, Automatic}, {Automatic, 15}},, e3 }$ `. n* X; `2 f9 Q8 K
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
% j$ G' K$ [' o+ q! S2 |StyleDefinitions->"Default.nb"+ Q' v9 x, f2 w1 C! V
]& C: x# Q5 D/ i& M
(* End of Notebook Content *)
1 s+ i# B: n7 Z+ B0 P3 v3 V/ @+ i9 P+ p. c
(* Internal cache information *)! Q& `0 H: s' q6 U; i- ^+ ^" P& f
(*CellTagsOutline
) p7 Z0 x5 x. B/ ]# ~: MCellTagsIndex->{} P" C% M+ ~- m) S
*)
3 _6 O, o2 j: |6 j! k! T9 E(*CellTagsIndex
- n) l% z; e6 C) h+ Y3 h2 LCellTagsIndex->{}
1 ~3 i' R0 f, I& z*)
0 | i$ Y. w1 v7 O: H) z(*NotebookFileOutline
' [4 B+ ]2 H- q) b, Q( INotebook[{* i: M) i7 {. l; Z( C' r7 ~. W
Cell[CellGroupData[{/ K. q$ D0 Z4 w
Cell[567, 22, 22639, 450, 1792, "Input"],! Z4 j8 V9 D# G' {( L" v/ A2 V
Cell[23209, 474, 21281, 449, 1703, "Output"]) A& H4 d; C8 L# m+ t6 u
}, Open ]],, y% E1 s1 z: t5 ?9 ]
Cell[CellGroupData[{
1 o8 k0 n" {3 JCell[44527, 928, 198, 5, 31, "Input"],- M3 C4 m) u+ r+ I: Z* i
Cell[44728, 935, 53666, 1605, 1532, "Output"]% I5 Y& N+ R: w; k) s2 U' H
}, Open ]],) M! Q# F( Y8 P: @. r# {3 P
Cell[98409, 2543, 614, 16, 112, "Input"],
; D+ ]$ h- Y. b4 T: @/ ~Cell[99026, 2561, 667, 17, 72, "Input"],3 r$ ^( \* A0 n! \/ X' P. |% v9 Q1 t
Cell[CellGroupData[{
' ~; P& A ` I/ S, w2 XCell[99718, 2582, 885, 13, 52, "Input"],
! m$ \+ b# p' Q0 rCell[100606, 2597, 935, 14, 30, "Output"],
. N4 L; C* @' F WCell[101544, 2613, 932, 14, 30, "Output"]
( O! N2 ?' Y2 I' I6 u, h' v; N}, Open ]],( K& q, l n; f' _
Cell[102491, 2630, 4236, 93, 412, "Input"],
5 [& T4 T0 S& K3 P: ?5 z+ y6 O" jCell[CellGroupData[{
L5 E8 e+ e0 H; Z: n9 OCell[106752, 2727, 90, 1, 31, "Input"],( V1 Y. s. M* e% g: m+ w
Cell[106845, 2730, 872, 13, 30, "Output"]+ G4 O0 Y h2 F* U! j, ?! E
}, Open ]],7 p, _3 x' K- I, `# N" d
Cell[107732, 2746, 458, 10, 31, "Input"],
: n& Z+ [8 q5 [: }& vCell[108193, 2758, 126, 2, 31, "Input"],7 G$ R- C& F& S7 r& _0 r
Cell[CellGroupData[{
7 W, m; e% T4 J2 G) qCell[108344, 2764, 248, 6, 31, "Input"],
% x9 f& |: V! k# x* e( W/ cCell[108595, 2772, 1007, 17, 30, "Output"]
( q8 O6 W' m E! {}, Open ]],
) Z4 O, X' s$ r# V7 e% V4 QCell[CellGroupData[{0 N0 R# D$ q5 M
Cell[109639, 2794, 251, 6, 31, "Input"],
7 K) l$ I' [( Q! i2 FCell[109893, 2802, 1013, 17, 30, "Output"]
# f, c0 @/ \/ m! n5 E& c! j}, Open ]],1 b/ C# [7 O( z' R
Cell[110921, 2822, 1232, 23, 31, "Input"],* c( C9 N' x. f/ V
Cell[CellGroupData[{& i; |6 ]# g8 v3 t7 I6 a! z: s
Cell[112178, 2849, 147, 5, 31, "Input"],8 w4 E, C6 V4 Z$ ?# r
Cell[112328, 2856, 1979, 50, 50, "Output"]8 P/ S# _: F7 B# @. e
}, Open ]],8 a9 q0 b- I7 q, F: [/ @
Cell[CellGroupData[{" U3 V: q, s7 P! D9 ~7 R
Cell[114344, 2911, 195, 5, 31, "Input"],$ c2 k/ y# d; j* u8 J+ h
Cell[114542, 2918, 123, 2, 30, "Output"]/ G6 I9 |* h3 s' z
}, Open ]],( i" J k: _; p# V0 x6 Z
Cell[CellGroupData[{
% M1 O- F& i- g1 z" V9 Y# {7 w( {Cell[114702, 2925, 144, 4, 31, "Input"],, V. A" y* B9 I3 z# C4 N9 m! q
Cell[114849, 2931, 96, 1, 30, "Output"]+ T$ p# G4 B) T m
}, Open ]],
0 D* ^6 [- y' q* {1 W% eCell[CellGroupData[{# \& N! Y5 s6 I' _: E) y! |
Cell[114982, 2937, 146, 4, 31, "Input"],
) S/ P$ P4 s! b2 J4 ^+ GCell[115131, 2943, 495, 7, 30, "Output"]4 u% g% C/ w$ C. n# e
}, Open ]],
) Q0 V% c3 g5 yCell[CellGroupData[{
& X' F2 v$ Q9 ~8 vCell[115663, 2955, 144, 4, 31, "Input"],8 P4 ^' y9 Q$ C$ l, T% }
Cell[115810, 2961, 418, 6, 30, "Output"]- Y7 u1 S4 \& b# v8 B2 y5 c- W
}, Open ]],
4 h& ]0 l; s1 _$ zCell[CellGroupData[{
* N2 ?' v' b/ `$ ]Cell[116265, 2972, 144, 4, 31, "Input"],
- v2 ~) o! K3 @8 \0 r6 P/ k& ~Cell[116412, 2978, 549, 8, 30, "Output"]# w. L/ c2 A$ J, u- c+ o2 B
}, Open ]],
1 N' j b9 ^3 g3 E$ A3 `Cell[CellGroupData[{+ l7 M4 I2 i! X6 c& E; L8 A) s/ F
Cell[116998, 2991, 537, 10, 31, "Input"],2 h! P: W2 F: R( K9 i
Cell[117538, 3003, 998, 14, 30, "Output"]
4 Y! K- K. R: ? Z}, Open ]],! y& V' e& F6 j5 G. X! k F
Cell[CellGroupData[{ k+ z" `4 M5 V, E9 m
Cell[118573, 3022, 2321, 55, 44, "Input"],( P# U! s+ N9 }$ d8 p
Cell[120897, 3079, 1541, 38, 91, "Output"]
w) M) T- i4 ~) [4 e+ i: \}, Open ]],
2 `7 t$ T% J8 ~: b fCell[CellGroupData[{& y) y2 x* L4 ~" n3 Y- R
Cell[122475, 3122, 856, 19, 87, "Input"],/ f7 R& w- D$ }2 f
Cell[123334, 3143, 568, 14, 91, "Output"]
7 X# L9 C) Q2 `; @8 W}, Open ]],) e; j( v+ A" U6 W0 ]6 F) m
Cell[CellGroupData[{9 e( \1 Y' L! c! l0 @: d2 ~
Cell[123939, 3162, 437, 10, 31, "Input"],
% ~4 v- U& y. X/ g0 M2 qCell[124379, 3174, 739, 12, 30, "Output"]) S( j2 O3 R4 c1 i, O) W! X
}, Open ]],
! a1 S1 s5 N: z- a% H0 N3 C4 HCell[125133, 3189, 242, 3, 31, "Input"],
1 U; U& C" ~& F( W) wCell[CellGroupData[{* b. o% _; r/ T; t" J! Q
Cell[125400, 3196, 109, 2, 31, "Input"],
4 z* {- T' t$ A wCell[125512, 3200, 323, 7, 30, "Output"]
& Q' E9 Z2 n! k; t8 [4 J* `}, Open ]],1 w& Y& R7 O" j& F. Q7 `
Cell[CellGroupData[{
) u1 W4 e# F; J# K% P+ U: NCell[125872, 3212, 526, 15, 31, "Input"],2 a0 R' m/ S, \: |
Cell[126401, 3229, 1436, 44, 36, "Output"]
- Q6 |! x' H" A8 n! m}, Open ]],. m0 } r0 Q/ _) f" \8 Q% w: f
Cell[CellGroupData[{
6 J5 {& {0 j5 l& [3 o1 g5 ^Cell[127874, 3278, 92, 2, 31, "Input"],
: A7 [$ J. W1 V2 _! ACell[127969, 3282, 326, 7, 30, "Output"]. D2 d( E. p9 i/ j
}, Open ]],+ g7 Z/ [" x+ v' P
Cell[CellGroupData[{9 _: W8 N9 P% R+ J( W8 o. n
Cell[128332, 3294, 388, 13, 31, "Input"],. M2 u2 g' g1 Z$ }* B6 J
Cell[128723, 3309, 1381, 42, 36, "Output"]
6 q/ ]: ?$ w, ~! X2 G2 E {9 ]8 Q}, Open ]],7 s1 Q( U- v3 n* g
Cell[CellGroupData[{0 P4 e( r$ {, X3 O8 H' x
Cell[130141, 3356, 89, 2, 31, "Input"],
* W5 |4 M+ _- b/ A3 g) z/ dCell[130233, 3360, 320, 7, 30, "Output"]
0 T1 C8 O) N+ G. r}, Open ]],
5 J o" y. H# c$ \' `Cell[CellGroupData[{# @' ~/ T* h' y: \
Cell[130590, 3372, 387, 13, 31, "Input"],* H0 v5 @- t: l/ W b, T( i. ]
Cell[130980, 3387, 1381, 42, 36, "Output"]
- w3 e, ^5 i; P8 T) g. l5 f$ o& w}, Open ]],/ k( p+ }! b- F$ J( M
Cell[CellGroupData[{7 }/ i/ T6 X. E
Cell[132398, 3434, 91, 2, 31, "Input"],6 ]! U4 h* |7 D+ h* [
Cell[132492, 3438, 328, 7, 30, "Output"]# w7 x1 r: b# k+ _; ^1 V5 Z1 {2 ?0 G
}, Open ]],5 z. R: s h) z8 X0 p
Cell[CellGroupData[{
/ F) p* q6 s/ Q; xCell[132857, 3450, 384, 13, 31, "Input"],! M6 F' G# t8 e, d+ J( V& w# l" H6 r
Cell[133244, 3465, 1379, 42, 36, "Output"]- Y# Y9 U: F3 m5 j
}, Open ]],
+ x( q: k- t5 F; g+ T7 CCell[CellGroupData[{$ P! N0 \, n0 Z1 y8 |5 ~
Cell[134660, 3512, 93, 2, 31, "Input"],
4 L( }3 @) @/ Q; z3 U8 rCell[134756, 3516, 322, 7, 30, "Output"]
1 ?+ v$ {+ Y9 g* R* [0 _}, Open ]],- P8 x/ C+ o' F3 l2 Y) \. q
Cell[CellGroupData[{/ M7 B& R/ X' W: M
Cell[135115, 3528, 385, 13, 31, "Input"],
/ f+ u: j! M2 ]5 j* x1 wCell[135503, 3543, 1379, 42, 36, "Output"]6 j f& \4 P- G- h5 f4 ~
}, Open ]],
' c+ e; x2 x0 PCell[CellGroupData[{
1 L- J' ` g, oCell[136919, 3590, 113, 2, 31, "Input"],
8 O( J, g9 B- d* H. Z6 X! ZCell[137035, 3594, 348, 7, 30, "Output"]
, \& A |: j/ c9 y; Y+ l}, Open ]],! P Z# X9 e0 d9 R& U5 x
Cell[CellGroupData[{
, j% P- v: u1 `7 I2 zCell[137420, 3606, 406, 13, 31, "Input"],5 ]: ]/ Q# f1 R [2 z! e0 }# I7 E
Cell[137829, 3621, 1414, 43, 36, "Output"]
/ p( F+ |( c" y& M: v" X# R" u. h}, Open ]],* P$ i& u3 I4 c3 p- J, e) b4 O
Cell[CellGroupData[{1 I! y' [; u7 D) Y' X' d
Cell[139280, 3669, 135, 3, 31, "Input"],' L' S6 D3 |8 u4 H- b J% u. n4 O
Cell[139418, 3674, 358, 7, 30, "Output"]
. |! ^1 T) c6 d3 D$ J* @}, Open ]],) }) |+ R! A; H. N. q t/ w/ O
Cell[CellGroupData[{
$ m* ], w9 g: @8 Z7 D! dCell[139813, 3686, 430, 14, 31, "Input"],
$ `2 Z/ F4 l* N' lCell[140246, 3702, 1426, 43, 36, "Output"]
% t4 W, A0 h0 g5 p- U* ]5 ~}, Open ]],9 s z5 ~; _6 u# x
Cell[CellGroupData[{
& D! E" w3 o) x. k m: yCell[141709, 3750, 156, 3, 31, "Input"],/ X! G9 H( E8 g/ o) \) W
Cell[141868, 3755, 377, 8, 30, "Output"]$ n. z4 t# r1 D f) P
}, Open ]],9 v1 s# Q2 j) C7 F/ j
Cell[CellGroupData[{! R1 x- V% R( g' D% q+ s. k' @% h
Cell[142282, 3768, 452, 14, 31, "Input"],4 p0 C+ x3 {2 L# v2 U5 A: m
Cell[142737, 3784, 1440, 42, 36, "Output"]: p! m/ b- U- {2 X8 n4 J. f
}, Open ]],
! _5 V: f' h& A. W' bCell[CellGroupData[{( d7 x, B; X, l, k( F
Cell[144214, 3831, 178, 3, 31, "Input"],
: a* w. c* B# E8 N) V/ n; cCell[144395, 3836, 448, 9, 30, "Output"]
. |$ W% g2 u( k$ N}, Open ]],) Q* D# z" p: o& x5 T5 T
Cell[CellGroupData[{) A- G1 D+ K8 o; ?7 V2 O9 m. V
Cell[144880, 3850, 474, 14, 31, "Input"],$ Q; S4 V' k" Q
Cell[145357, 3866, 1510, 43, 36, "Output"]
! a& z4 d* I8 g' x" g3 y}, Open ]],9 X6 U( T9 V8 l! s
Cell[CellGroupData[{
. O0 w1 b M, S1 r9 T- G2 tCell[146904, 3914, 470, 14, 52, "Input"],, S) {3 p) O6 S0 d5 ?! P
Cell[147377, 3930, 257, 5, 30, "Output"],* v1 c' N X1 U* ~* j4 U
Cell[147637, 3937, 1310, 38, 36, "Output"]9 o+ x9 f. [- H7 Y* v
}, Open ]],
) t4 ^5 [( l$ l8 O" H# MCell[CellGroupData[{3 T, ~! p4 Y0 F: l$ d4 {
Cell[148984, 3980, 520, 15, 52, "Input"],' g. S! l. X6 q8 O' X" Y+ Y# J5 v
Cell[149507, 3997, 293, 7, 30, "Output"],8 ~' i# r/ G( j9 e) q% a9 \, \
Cell[149803, 4006, 1345, 40, 36, "Output"]& f0 a/ k. }+ Q6 \; Y
}, Open ]],
8 T* V: ]. u* K+ q* HCell[CellGroupData[{
7 h6 _; f. A7 c+ E" O- n4 @Cell[151185, 4051, 520, 15, 52, "Input"],
6 i* z; k* e* E& i( o! qCell[151708, 4068, 266, 6, 30, "Output"],
$ Y0 M, b& P/ r6 M+ V3 f2 KCell[151977, 4076, 1319, 39, 36, "Output"]
6 ~ ^: \: X* e+ Z}, Open ]],
' M& c7 F4 i5 E0 H. p7 e* _Cell[CellGroupData[{! O4 z- F& _7 a
Cell[153333, 4120, 520, 15, 52, "Input"],
9 j4 S8 I( l p- U/ aCell[153856, 4137, 272, 6, 30, "Output"],6 w! X# z8 N% J# I5 X
Cell[154131, 4145, 1327, 40, 36, "Output"], g6 W& N: ?. B- P6 I0 I! X3 k
}, Open ]],
( {8 E, c8 X- S/ _Cell[CellGroupData[{! c' J I: `3 k( J d
Cell[155495, 4190, 520, 15, 52, "Input"],) B1 s. V$ i0 I; A# _* B
Cell[156018, 4207, 265, 6, 30, "Output"],! q0 o( V/ c- i
Cell[156286, 4215, 1318, 39, 36, "Output"]" r0 \7 A* `9 x4 k/ ~ O
}, Open ]],
2 i( N& k7 D8 RCell[CellGroupData[{
3 g! z, a# k: z9 R: x9 H8 kCell[157641, 4259, 517, 15, 52, "Input"],
; p: e% F. r& U3 K' QCell[158161, 4276, 275, 6, 30, "Output"],
: G/ e0 B Z/ }* mCell[158439, 4284, 1333, 41, 36, "Output"]
i/ O& E9 S1 M& m( n}, Open ]],
8 }" L. f- z ~Cell[159787, 4328, 381, 11, 31, "Input"],- {3 M/ k3 X# F
Cell[CellGroupData[{, M p+ m* w; R+ f
Cell[160193, 4343, 573, 16, 52, "Input"],$ ?& y8 J2 [1 o; G8 L
Cell[160769, 4361, 278, 6, 30, "Output"],
3 p5 n0 a" @( R4 s3 T& I, OCell[161050, 4369, 1328, 41, 36, "Output"]
4 Z% s( Q5 {. Q6 U5 Q}, Open ]],' T' d. Y$ l7 a- d
Cell[CellGroupData[{! ?& M7 _7 L, ?7 Y
Cell[162415, 4415, 571, 16, 52, "Input"],% V. ~# h. D2 [
Cell[162989, 4433, 270, 6, 30, "Output"],' Z3 s3 j% Y1 c1 w b) E
Cell[163262, 4441, 1325, 40, 36, "Output"]+ C- B9 B5 I9 p- z) |
}, Open ]],! [- d, g8 z! ^5 O9 H$ E) \6 [( b
Cell[CellGroupData[{/ b3 L W/ `" Q2 J
Cell[164624, 4486, 571, 16, 52, "Input"],/ z* j' z3 H9 g5 p& m+ P9 F
Cell[165198, 4504, 264, 6, 30, "Output"],$ w& B" I6 F7 j
Cell[165465, 4512, 1316, 39, 36, "Output"]7 ^% k4 e( O/ {: N$ f% U
}, Open ]],
. R% r5 X. e) F' _8 qCell[CellGroupData[{# _2 C2 l! j9 ^/ }+ D
Cell[166818, 4556, 571, 16, 52, "Input"],
0 N- X4 @8 l6 p! x0 ZCell[167392, 4574, 271, 6, 30, "Output"],
' ~1 b2 m1 I% |) N0 @3 XCell[167666, 4582, 1329, 41, 36, "Output"]. Y9 Z2 G V1 S9 k
}, Open ]],
# c# A0 z; {/ D" e5 }Cell[CellGroupData[{8 |( ~- @" B* j
Cell[169032, 4628, 570, 16, 52, "Input"],; N. G5 U1 I, r" e' k
Cell[169605, 4646, 277, 6, 30, "Output"],: L- b Q. B7 Y0 C) S" o% }7 R
Cell[169885, 4654, 1335, 41, 36, "Output"]8 W" W9 K* r- ~/ T8 y
}, Open ]],+ F( Y; p6 G4 j) K# c. v# q5 E
Cell[CellGroupData[{
% L8 X% u& E! M/ \Cell[171257, 4700, 571, 16, 52, "Input"],. e4 y7 W" ?, B" x4 ?
Cell[171831, 4718, 274, 6, 30, "Output"],
, d& p- e/ h6 `3 r: R( @. _( j( D( xCell[172108, 4726, 1335, 42, 36, "Output"]
5 K/ t6 ^+ k8 p}, Open ]],/ h+ \. l% _. J7 o" V% H! ^ U8 j* _) `
Cell[173458, 4771, 104, 1, 31, "Input"],6 F* w7 q$ p4 O$ p6 K( n
Cell[CellGroupData[{
8 K$ G% ^7 ^0 Z- H CCell[173587, 4776, 279, 7, 31, "Input"],1 a, j2 ^" k2 l; k
Cell[173869, 4785, 878, 14, 50, "Output"], o3 R2 v+ \( g' p
}, Open ]],0 v, F2 R$ l0 ]) J7 b8 H
Cell[CellGroupData[{
2 y$ f3 P" {! r/ u; ACell[174784, 4804, 243, 5, 31, "Input"],
- y+ t/ c5 {5 T2 ]8 [; ECell[175030, 4811, 216, 3, 30, "Output"]7 s) Q+ a/ H* ?. f$ b: j
}, Open ]],
. h9 G4 E* w) l# m4 UCell[175261, 4817, 537, 14, 31, "Input"],/ r6 m4 L4 B2 C5 O
Cell[CellGroupData[{; {3 T$ i6 j: m: l
Cell[175823, 4835, 94, 1, 31, "Input"],4 q" J% s( M+ u* c6 a
Cell[175920, 4838, 1319, 20, 107, "Output"]
( j% L- o' S5 a7 [- U}, Open ]],/ P6 A" a" u% |) @5 O
Cell[CellGroupData[{
# p" k8 i9 N, B5 L5 wCell[177276, 4863, 464, 12, 31, "Input"],
! S. W T8 |- o6 Y PCell[177743, 4877, 17248, 366, 582, "Output"]
. ^+ ^" i1 z! J5 [7 N" n}, Open ]],
6 L2 ]' O" a2 w+ k7 }Cell[195006, 5246, 32810, 934, 912, "Input"],! e. N* u2 k! k+ p
Cell[CellGroupData[{' F2 E7 C. L) H' f9 H
Cell[227841, 6184, 284, 6, 31, "Input"],
3 G0 i& W7 W ^- D3 WCell[228128, 6192, 961, 17, 50, "Output"]- t0 y* D) ^2 m) F7 {3 @; q( l
}, Open ]],
( m8 f, g/ @/ _' K* CCell[CellGroupData[{
6 ~$ B6 P# i. Y, X$ D& v% MCell[229126, 6214, 531, 11, 31, "Input"],! N" u9 @5 Z1 y, M0 Y6 x6 U! k: ]
Cell[229660, 6227, 28858, 853, 537, "Output"]6 u1 f7 ^6 A0 [
}, Open ]],
+ ]& D' a) a X; Y0 d3 I3 ICell[CellGroupData[{
( s! P `4 J0 P/ r. l. h* jCell[258555, 7085, 281, 7, 31, "Input"],
" v v' M" W! d' ^Cell[258839, 7094, 540, 10, 30, "Output"]" ] B. r; p7 A! N, m
}, Open ]],2 G( C/ q6 S5 b, F
Cell[259394, 7107, 1869, 53, 92, "Input"],+ y9 K, C4 s8 ]0 f
Cell[CellGroupData[{
9 T; x& I, u9 _Cell[261288, 7164, 138, 2, 31, "Input"],5 N& D2 @3 H. _, B S& n( ^- b
Cell[261429, 7168, 1122, 20, 69, "Output"]9 s1 ~5 q- @* \9 J3 @( e' M
}, Open ]],3 n* J* B& T' D4 ~, D
Cell[CellGroupData[{
1 W$ M8 f! K" J/ F6 ZCell[262588, 7193, 1816, 29, 152, "Input"],
' D& G# W6 V7 p& }2 h7 F9 |3 A& V( qCell[264407, 7224, 1736, 28, 88, "Output"]8 E% E7 z; q. R, S0 B5 p/ N8 z7 X# x. Y: K
}, Open ]],
9 s: d! B9 ] N) g# ICell[CellGroupData[{; v7 I& y9 A$ R+ r
Cell[266180, 7257, 209, 6, 31, "Input"],3 P* U+ h/ R, X% J
Cell[266392, 7265, 516, 9, 30, "Output"]- { ?/ D3 s+ F# i3 c* d
}, Open ]],8 Q" W5 A% u! s; a) G! m
Cell[266923, 7277, 613, 16, 31, "Input"],
4 d! C" |" X- g9 D: m" I% iCell[CellGroupData[{+ H ^3 o6 v, Q% ~ ~
Cell[267561, 7297, 157, 2, 31, "Input"],
# b( E; J% e4 Z+ L' PCell[267721, 7301, 776, 13, 50, "Output"]8 y) L* ]* ~$ `
}, Open ]],6 f4 j- j, E$ D- S+ G; J0 F
Cell[CellGroupData[{3 k, L. p9 k" }7 _0 a- b
Cell[268534, 7319, 1397, 21, 112, "Input"],2 F8 w# Y7 H" x. _0 i: y
Cell[269934, 7342, 1384, 21, 88, "Output"]
% x5 r" \: c1 ^ x$ M}, Open ]],
2 ?5 W) P" D; ^; M4 OCell[CellGroupData[{
! o$ l/ m! B$ w% N1 w: JCell[271355, 7368, 1208, 30, 55, "Input"],
2 C4 d; v3 q* q" y: v4 s/ aCell[272566, 7400, 1299, 29, 256, "Output"]
/ L4 K; B% k0 K# Y N# v}, Open ]],
( ^9 Y5 s! K. l! ?+ a+ A7 d5 G" _" `Cell[CellGroupData[{+ L- h' i' h' \
Cell[273902, 7434, 829, 23, 31, "Input"],' u1 r; d3 ?% n, n* ?& z& {0 I& C
Cell[274734, 7459, 1053, 22, 249, "Output"]# i6 \4 e8 u' F8 h# t' A2 ^
}, Open ]],
% J; e( g, |2 J, KCell[CellGroupData[{$ u( j9 u1 T- ]
Cell[275824, 7486, 84, 2, 31, "Input"],; Y9 C* j l; U; G T( c
Cell[275911, 7490, 1675, 36, 256, "Output"]
. c o$ a' s, T4 H0 |& N# w3 N4 ~}, Open ]],
8 }9 p* F, |/ y# D7 F- J8 XCell[277601, 7529, 131, 2, 31, "Input"],( O2 x6 |- A! Z9 n( X2 D7 H
Cell[CellGroupData[{
# O& O# E' p; K. zCell[277757, 7535, 302, 7, 31, "Input"],1 [$ C' t" b. V4 M6 t/ e
Cell[278062, 7544, 935, 16, 50, "Output"]! ` W% c- ~$ w) a
}, Open ]],' D6 h8 |3 ~4 m* Q3 i5 [
Cell[CellGroupData[{
" B& C8 s" X4 j+ eCell[279034, 7565, 295, 6, 31, "Input"],
0 [, W# }' W5 U3 KCell[279332, 7573, 244, 3, 30, "Output"]( q% p2 m p5 K- a* H
}, Open ]],
+ s6 O; k4 v$ M6 UCell[279591, 7579, 610, 15, 31, "Input"],
6 C9 k0 k5 a: o) ]; L# w: HCell[CellGroupData[{# g9 [1 S8 J+ z, z& z& I! X
Cell[280226, 7598, 120, 2, 31, "Input"],
" V. h/ e' Q/ |2 J& T# U9 hCell[280349, 7602, 1334, 21, 107, "Output"]
6 c& J/ w# X& `7 K0 z4 v! k5 Z}, Open ]],$ P" z! D1 ^* A9 @ O- Y) ?
Cell[CellGroupData[{" _1 C! T( b0 {. R+ D, ^, ~, o
Cell[281720, 7628, 460, 12, 31, "Input"],8 n H' e& G" C) p0 r# S) x# C
Cell[282183, 7642, 17248, 366, 582, "Output"]
! ^5 `0 W7 Y2 u7 b+ f* I}, Open ]],$ W! j- \& e' w" D% C# H
Cell[299446, 8011, 32810, 934, 912, "Input"],- |/ z v$ k# c' }. c
Cell[CellGroupData[{
* R7 X" X+ T* |Cell[332281, 8949, 334, 6, 31, "Input"],4 h2 U* m h7 |$ ?& i+ g, C0 R
Cell[332618, 8957, 1004, 18, 50, "Output"]* j+ k% R7 ]9 M
}, Open ]],5 y- d3 _( V: o& }
Cell[CellGroupData[{ C, ^$ D# E/ x
Cell[333659, 8980, 559, 11, 31, "Input"],
' o( |! a) M. SCell[334221, 8993, 28881, 853, 537, "Output"]
; X. N6 N; T% I1 W3 g' `}, Open ]],9 w; k, a. j! X2 j& O% @& c! L
Cell[CellGroupData[{
+ ~: p3 U( m7 | d. c% s& yCell[363139, 9851, 306, 7, 31, "Input"],+ S% ^0 I" f! Q9 w K
Cell[363448, 9860, 562, 10, 30, "Output"]
) }8 V& R/ P3 }* t}, Open ]],. c; y9 w& Z& E1 N5 O. `0 b1 H0 k
Cell[364025, 9873, 1915, 53, 92, "Input"],
4 Z; L2 w9 F+ mCell[CellGroupData[{
: m7 c* Y4 n8 M0 bCell[365965, 9930, 163, 2, 31, "Input"],
" x2 K& J! V9 W: d" tCell[366131, 9934, 1139, 20, 69, "Output"]
, v) o E- P# b! Y4 T8 ?* n}, Open ]],
; X. c7 R* p9 c! m4 fCell[CellGroupData[{
: B8 c" v! o* G9 N* |2 o$ wCell[367307, 9959, 1863, 30, 152, "Input"],& J% c# z' {6 y/ N" k
Cell[369173, 9991, 1761, 28, 88, "Output"]
2 Y" L4 |, ], @9 I" s# j% x" j/ Q}, Open ]],
" L1 s$ Q0 e6 W: f+ U, \Cell[CellGroupData[{5 d' N# v \9 p" S/ e
Cell[370971, 10024, 231, 6, 31, "Input"],1 C" L! h" [ v- ?8 \7 y
Cell[371205, 10032, 540, 10, 30, "Output"]
% a) V) r4 e+ M) D}, Open ]],* z7 j& k c; W; M7 ~! }- a/ z' `
Cell[371760, 10045, 687, 17, 31, "Input"],- @- @/ _; s- Y `
Cell[CellGroupData[{
4 _/ y2 Z: J3 DCell[372472, 10066, 185, 3, 31, "Input"],
! o. v' v2 N5 ?1 ~7 B1 FCell[372660, 10071, 804, 13, 69, "Output"]
h$ R5 L9 n( O# l" G9 R' ?}, Open ]], c1 s# k0 S' M- Q4 E: {
Cell[CellGroupData[{
, J9 y) j" c. ^9 Z0 B7 c0 YCell[373501, 10089, 1405, 21, 112, "Input"],1 g% o6 O# ~' y* Q! a. A! E
Cell[374909, 10112, 1387, 21, 88, "Output"]5 w! \5 x& d# Z3 x% \
}, Open ]],
# p4 M7 q, H0 {2 D9 J6 ~Cell[CellGroupData[{
* f0 s6 N) I/ wCell[376333, 10138, 1339, 33, 55, "Input"],, C! G/ B" `& |3 i
Cell[377675, 10173, 1370, 30, 256, "Output"]
; {3 ^8 X/ W; d2 J/ ]4 o- n}, Open ]],0 |* M- @( C# p
Cell[CellGroupData[{+ W& K- `+ t5 O6 u! O2 d
Cell[379082, 10208, 877, 24, 31, "Input"],
4 D, j: d& b% A! v7 [Cell[379962, 10234, 1058, 22, 249, "Output"]
9 |: {$ {9 u7 J: P; q) A}, Open ]],
' n% e, f7 ~# f6 t' ]Cell[CellGroupData[{
0 L* \) Z8 }" Z8 nCell[381057, 10261, 84, 2, 31, "Input"],
- _ q6 L$ f; C, D; v, PCell[381144, 10265, 1659, 36, 256, "Output"] R. }7 u+ @: W+ s
}, Open ]],8 v7 v: H5 h( U6 G
Cell[382818, 10304, 509, 10, 52, "Input"],
8 W. ]" q, }- o) ^Cell[383330, 10316, 530, 10, 33, "Input"],
; [/ r+ p, r# g: p+ qCell[383863, 10328, 69, 1, 31, "Input"],+ w5 }2 ~7 m% \) c8 ^
Cell[383935, 10331, 62, 0, 31, "Input"],
) A/ Y# M# B( O B: P9 s0 ~1 cCell[CellGroupData[{
2 V; V Y8 O+ }. aCell[384022, 10335, 364, 9, 31, "Input"],
) f# R, V8 C& w# L4 ? eCell[384389, 10346, 13864, 402, 287, "Output"]
: D/ x$ F" \. L: ]}, Open ]],
& z& U4 ~6 H2 L7 ECell[398268, 10751, 69, 1, 31, "Input"],
" Z8 T7 p3 t5 R7 h* o) y( F, M6 WCell[398340, 10754, 74, 0, 31, "Input"],3 b" g7 p2 X9 u: P
Cell[CellGroupData[{
7 I: N; I, n4 n3 l, H$ u4 Q( yCell[398439, 10758, 288, 8, 31, "Input"],7 D- j! r1 F6 E- i# O, ]
Cell[398730, 10768, 13861, 402, 287, "Output"]2 f# |+ g/ K1 ^7 H3 ]# Z' w- @
}, Open ]]
( m5 E/ s$ T( g, j$ c: T}
& i* \1 |$ C: K4 Z]9 k; e$ |! G3 z% S8 K1 M
*)
' @4 U4 a% F& X& w
, B' s4 i3 Z( o# i+ h1 R0 \(* End of internal cache information *）
/ p- F5 l# Z/ O& m4 \/ Y; A
. R/ T9 {: `' V这个是用mathmatic做的神经网络，能导出最后的权值，就是可以写出表达式，我想用matlab做，却不知道怎么做 |
IP卡
狗仔卡
发表于 2013-7-29 20:37
转播
淘帖
分享
收藏
支持
反对
微信
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
显身卡
